RANDOMIZE TIMER BG 1 REM WAS8BIT BG COPY 0,0,20,16 TO 0,0 DIM GLOBAL DOOR(7,4),XDOOR(7) FOR I=1 TO 7 READ XDOOR(I) FOR II=1 TO 4 READ DOOR(I,II) NEXT II NEXT I DATA 2,5,4,4,3 DATA 6,3,2,0,0 DATA 8,2,0,0,0 DATA 9,1,1,0,0 DATA 11,2,0,0,0 DATA 12,2,3,0,0 DATA 14,3,4,4,5 DO CALL ADDWALL(0) CALL DODOOR(RND(6)+1,RND(1)) IF RND(10)=0 THEN CALL ADDWALL(RND(3)) WAIT 15 LOOP SUB DODOOR(IDOOR,SET) BG 1 X=XDOOR(IDOOR) FOR I=1 TO 4 II=I-1 D=DOOR(IDOOR,I)-1 BG TINT X+II,5-D TO X+II,6+D PAL SET NEXT I END SUB SUB ADDWALL(IWALL) BG 0 PAL 1 BG FILL 2,1 TO 17,10 CHAR 0 IF IWALL=3 THEN BG FILL 8,4 TO 11,7 CHAR 16 IF IWALL=2 THEN BG FILL 6,3 TO 13,8 CHAR 16 IF IWALL=1 THEN BG FILL 2,1 TO 17,10 CHAR 16 END SUB #1:MAIN PALETTES 042E0400002D0808003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000C0F07CAF0000000000C0F0FC C0F07CAF57AA55AA00C0F0FCFFFFFFFF 0000000000000000000000FF00000000 FFAAD5AAD5AAD5AAFFFFFFFFFFFFFFFF FFAB55AB55AB55ABFFFFFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF D5AAD5AAD5AAD5AA7F7F7F7F7F7F7F7F 55AA55AA55AA55AAFFFFFFFFFFFFFFFF 00000000000000000000000000000000 D5AAD5AAD5AAD5FFFFFFFFFFFFFFFFFF 55AB55AB55AB55FFFFFFFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 5FBCF0C000000000FCF0C00000000000 55AA55AB5FBCF0C0FFFFFFFFFCF0C000 000000000000000000000000FF000000 #3:MAIN BG 00001410100010001000100010001000 10001000100010001000100010001000 10001000100010001000100010001000 01000301030103010301030103010301 03010301030103010301030103010108 10001000100010001100020001000000 00000000000000000000000000000000 00000108020811081000100010001000 11001200120002000100030103010301 03010301030101080208120812081108 10001000100010001100120012001200 11000200010003010301010802081108 12081208120811081000100010001000 11001200120012001100120011000400 05001108120811081208120812081108 10001000100010001100120012001200 11001200110014001500110812081108 12081208120811081000100010001000 11001200120012001100220021002301 23012108220811081208120812081108 10001000100010001100120012002200 21002301230123012301230123012108 22081208120811081000100010001000 11002200210000000000000000000000 00000000000000000000210822081108 10001000100010002100230123012301 23012301230123012301230123012301 23012301230121081000100010001000 10001000100010001000100010001000 10001000100010001000100010001000 10001000100010001000100010001000 10001000100010001000100010001000 10001000100010001000100010001000 10001000100010001000100010001000 10001000100010001000100010001000 10001000100010001000100010001000 10001000100010001000100010001000 10001000100010001000100010001000 10001000100010001000100010001000 10001000100010001000100010001000 10001000