REM GAMEBOOK REM BY WAS8BIT REM REM REM TOP OF FILE... REM >F = FLAGS REM EACH GAME PAGE.... REM >P### = PAGE DATA, PAGE# REM >T = (STORY) TEXT REM >S = SET FLAGS REM >C = CHOICES REM REM < = END OF (FLAG,TEXT,SET,CHOICES) REM << = END OF PAGE DATA REM REM PROGRAMABLE FLAGS... 0-9,A-Z (35 TOTAL) 0=NOFLAG REM NAME$,STATUS(ON/OFF) REM REM SET FLAGS... REM >S#V#V REM >S1+2-< REM #=FLAG# REM V= +ON -OFF REM REM CHOICES... REM >C=#"TEXT"(FLAG:PAGE#)=#(FLAG:PAGE#,PAGE#)< REM >C=1"GO HOME"(0:123)=2"STAY"(1:23,45)< REM (0: = NO FLAGS REM (1: = FLAG #1 REM (1:23,45) FLAG ON=PAGE#23, FLAG OFF=PAGE#45 DIM FLAG$(35),FNUM(35) DIM PAGE$(200),CHOICE$(200,3),FGOTO(200,3),PGOTO(200,3,3) BG 1 BG COPY 0,0,20,16 TO 0,0 FOR I=0 TO 35 FLAG$(I)="-----" NEXT I FLAG$(0)="XXXXX" EDIT_FLAGS: CLS 0 N$="" BG 0 PAL 2 FOR I=1 TO 12 CALL NUM(I-1,N$) TEXT 0,I+3,N$+FLAG$(I-1) CALL NUM(I+11,N$) TEXT 7,I+3,N$+FLAG$(I+11) CALL NUM(I+23,N$) TEXT 14,I+3,N$+FLAG$(I+23) NEXT I DO WAIT VBL LOOP SUB NUM(N,N$) IF N<10 THEN N$=STR$(N) ELSE N$=CHR$(N+55) END IF END SUB #1:MAIN PALETTES 050B0600003F0B00003F3F00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 007F7F7F7F7F7F7FFFC4CACACACACAE4 00FEFEFEFEFEFEFEFF4DABABEBABABAD 007F7F7F7F7F7F7FFFE2D5D5E7C5C5C5 00FEFEFEFEFEFEFEFF27554577555527 007F7F7F7F7F7F7FFF80BCA2BCA0A080 00FFFFFFFFFFFFFFFF001C223E222200 00FFFFFFFFFFFFFFFF001C202E221C00 00FEFEFEFEFEFEFEFF013D2139213D01 007F7F7F7F7F7F7FFFE2D5D5E7C5C5C5 00FEFEFEFEFEFEFEFF27554577555527 007F7F7F7F7F7F7FFFECCACAEACACAEC 00FEFEFEFEFEFEFEFFEF4545454545E5 007F7F7F7F7F7F7FFFA2D5C5A795D5A5 00FEFEFEFEFEFEFEFF57555755552527 00000000000000000000000000000000 00000000000000000000000000000000 7F7F7F7F7F7F7F0080E2D5E5D5D5E2FF FEFEFEFEFEFEFE0001935559555393FF 7F7F7F7F7F7F7F0080808081808080FF FEFEFEFEFEFEFE000161C181C16101FF 7F7F7F7F7F7F7F0092BF9292BF9280FF FFFFFFFFFFFFFF0000000000000000FF FFFFFFFFFFFFFF0000000000000000FF FEFEFEFEFEFEFE0001010101010101FF 7F7F7F7F7F7F7F0080818080808180FF FEFEFEFEFEFEFE000181C161C18101FF 7F7F7F7F7F7F7F0080F6A4A6A4A4A6FF FEFEFEFEFEFEFE0001AFA54545A5A5FF 7F7F7F7F7F7F7F0080E2D5E5D5D5E2FF FEFEFEFEFEFEFE0001935559555393FF 007F7F7F7F7F7F7FFFB3A9A9B1A1A1A3 00FFFFFFFFFFFFFFFF98242020202498 00FFFFFFFFFFFFFFFF7B8181710909F3 00FEFEFEFEFEFEFEFFBF0305091121BF 007F7F7F7F7F7F7FFFB4C6C5A59594E4 00FEFEFEFEFEFEFEFF5D53535353D35D 007F7F7F7F7F7F7FFFC5EDD5C5C5C5C4 00FEFEFEFEFEFEFEFF272929252323CD 007F7F7F7F7F7F7FFFECCACAEACACAEC 00FEFEFEFEFEFEFEFFEF4545454545E5 007F7F7F7F7F7F7FFFECCACAEACACAEC 00FEFEFEFEFEFEFEFFEF4545454545E5 007F7F7F7F7F7F7FFFECCACAEACACAEC 00FEFEFEFEFEFEFEFFEF4545454545E5 007F7F7F7F7F7F7FFFECCACAEACACAEC 00FEFEFEFEFEFEFEFFEF4545454545E5 7F7F7F7F7F7F7F0080808080808080FF FFFFFFFFFFFFFF0000000000000000FF FFFFFFFFFFFFFF0000000000000000FF FEFEFEFEFEFEFE0001010101010101FF 7F7F7F7F7F7F7F0080808080808080FF FEFEFEFEFEFEFE0001010101010101FF 7F7F7F7F7F7F7F0080808080808080FF FEFEFEFEFEFEFE0001010101010101FF 7F7F7F7F7F7F7F0080E3A4A1A2A4F7FF FEFEFEFEFEFEFE000119A509052599FF 7F7F7F7F7F7F7F0080E0A0A0A0A0F0FF FEFEFEFEFEFEFE0001010101010101FF 7F7F7F7F7F7F7F0080838481828487FF FEFEFEFEFEFEFE0001018101010181FF 7F7F7F7F7F7F7F0080808080808080FF FEFEFEFEFEFEFE0001192509052519FF 007F7F7F7F7F7F7FFFECCACAEACACAEC 00FEFEFEFEFEFEFEFFEF4545454545E5 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 7F7F7F7F7F7F7F0080E8C9E9C9C9CDFF FEFEFEFEFEFEFE00018955D15D5549FF #3:MAIN BG 00001410020003000000000004000500 06000700080009000A000B0000000100 40014101000000000E000F0012001300 00000000140015001600170018001900 1A001B00100011005001510100000000 1E001F00000000000000000020002100 2200230024002500260027000C000D00 28002900000000000000000000000000 00000000300031003200330034003500 360037001C001D003800390000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000