10 CLEAR 255,&HD000
20 DEFINT A-Y
30 DIM PA(8-1)
40 GOSUB 2000:REM PALETTE ADDRESS
49 REM PALETTE ROUTINE
50 GOSUB 3000:DEF USR=&HD000
60 SCREEN 5
70 COLOR 15,0,0
80 CLS
90 BLOAD "PROGRAM.BIN",S
99 REM SCREEN3
100 VDP(0)=VDP(0) AND &HF1
110 VDP(1)=VDP(1) AND &HE7:VDP(1)=VDP(1) OR &H8
120 VDP(4)=0:VDP(2)=0
129 REM NO USE TRANSPARENT COLOR & SPRITE OFF
130 VDP(9)=VDP(9) OR &H22
140 F=0:P=0
150 ON INTERVAL=60 GOSUB 1000
160 INTERVAL ON
170 IF INKEY$="" THEN 170
180 INTERVAL OFF
190 END
999 REM CHANGE PGT ADDRESS & PALETTE
1000 'INTERVAL OFF:REM NO NEED THIS LINE FOR turboR
1010 VDP(4)=F+1
1020 A=USR(PA(P))
1030 P=(P+1) MOD 8
1040 IF P=0 OR P=4 THEN F=(F+1) MOD 31:IF F=0 THEN P=0
1050 'INTERVAL ON:REM NO NEED THIS LINE FOR turboR
1060 RETURN
1999 REM PALETTE ADDRESS
2000 FOR I=0 TO 8-1
2010 ZP=&H420+32*I
2020 IF ZP>&H7FFF THEN ZP=ZP-65536
2030 PA(I)=ZP
2040 NEXT I
2050 RETURN
2999 REM PALETTE ROUTINE
3000 FOR I=&HD000 TO &HD026
3010 READ C$
3020 POKE I,VAL("&H"+C$)
3030 NEXT I
3040 RETURN
3100 DATA F3,2A,F8,F7,16,90,06,10
3110 DATA 3A,07,00,4F,0C,3E,10,90
3120 DATA ED,79,ED,51,0C,CD,74,01
3130 DATA 5F,23,CD,74,01,ED,59,ED
3140 DATA 79,23,0D,10,E8,FB,C9