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 BG 0 PAL 3 TEXT 0,2,"THRPIGS" NUMBER 11,1,101,3 TEXT 7,3,"121 3 11" FOR I=0 TO 35 FLAG$(I)="-----" NEXT I FLAG$(0)="XXXXX" EDIT_FLAGS: 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 050B0600003F0B00003F3F00000F0F00 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 0000141002000300000000000E000F00 00000100040005000600070008000900 0A000B00000000004001410112001300 000000001E001F001000110014001500 16001700180019001A001B0000000000 50015101301031103110311031103110 30182000210031102200230024002500 260027000C000D002800290030003100 31003100310031003008300031003100 3200330034003500360037001C001D00 38003900000000000000000000000000 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