10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 A$="":PRINT"[147]":GOSUB1010:SYS49152:REM INSTALL BACKDROPS AND TURN ON
30 SYS49185:GOSUB1130:PRINT"[147][144]":X=1:GOSUB90:PRINT"[158]"
40 X=0:GOSUB90:GOSUB210
50 SYS49185:GOSUB1240:PRINT"[147]":X=1:GOSUB90:PRINT"[159]"
60 X=0:GOSUB90:GOSUB210
70 SYS49185:GOSUB1290:PRINT"[147][144]":X=1:GOSUB90:PRINT"[158]"
80 X=0:GOSUB90:GOSUB210:GOTO30
90 PRINTTAB(X)"       [146]     [146]       [146]  [146]     [146]"
100 PRINTTAB(X)"       [146]     [146]       [146]  [146]     [146]"
110 PRINTTAB(X)"   [146]   [146]   [146]  [146]  [146]"
120 PRINTTAB(X)"   [146]   [146]   [146]  [146]    [146]"
130 PRINTTAB(X)"   [146]   [146]   [146]  [146]    [146]"
140 PRINTTAB(X)"   [146]   [146]   [146]  [146]  [146]"
150 PRINTTAB(X)"   [146]     [146]   [146]      [146]     [146]"
160 PRINTTAB(X)"   [146]     [146]   [146]      [146]     [146]"
170 PRINT""TAB(13)"COPYRIGHT 1989":PRINTTAB(7)"COMPUTE! PUBLICATIONS, INC."
180 PRINTTAB(11)"ALL RIGHTS RESERVED"
190 PRINT""TAB(7)"HIT A KEY TO CONTINUE DEMO"
200 RETURN
210 SYS49185:POKE198,0:WAIT198,1:GETA$
220 RETURN
1000 REM BACKDROPS ML
1010 FORU=49152TO49272:READQ:POKEU,Q:CK=CK+Q:NEXT
1020 IFCK<>14738THENPRINT"ERROR IN DATA":END
1030 FORT=50000TO50000+254STEP2:POKET,0:NEXT
1040 DATA120,169,127,141,13,220,169,1,141,26,208,169,40,141,18,208,169,27
1050 DATA141,17,208,169,81,141,20,3,169,192,141,21,3,88,96,173,18,208
1060 DATA201,38,208,249,173,17,208,73,16,141,17,208,96,120,169,49,141,20
1070 DATA3,169,234,141,21,3,169,240,141,26,208,169,129,141,13,220,173,120
1080 DATA195,141,32,208,141,33,208,88,96,169,1,141,25,208,174,18,208,224
1090 DATA0,240,20,189,80,195,141,33,208,141,32,208,232,232,142,18,208,104
1100 DATA168,104,170,104,64,169,40,141,18,208,76,49,234
1110 RETURN
1120 REM LASER BACKDROP
1130 FORT=50000TO50000+254STEP2:POKET,0:NEXT
1140 FORT=50000+40TO50000+40+214STEP2
1150 FORD=0TO7:POKET,6:T=T+2:NEXT
1160 POKET,14:T=T+2
1170 POKET,3:T=T+2
1180 POKET,1:T=T+2
1190 POKET,3:T=T+2
1200 POKET,14
1210 NEXT
1220 RETURN
1230 REM LINE BACKDROP
1240 X=0:FORT=50000TO50000+254STEP2:POKET,0:NEXT
1250 FORT=50000+40TO50000+40+214STEP2
1260 POKET,5:T=T+X:X=X+2:NEXT
1270 RETURN
1280 REM PLANK BACKDROP
1290 FORT=50000TO50000+254STEP2:POKET,0:NEXT
1300 FORT=50000+40TO50000+40+214STEP2
1310 FORD=0TO4:POKET,11:T=T+2:NEXT
1320 POKET,0:T=T+2
1330 POKET,12:T=T+2
1340 POKET,15
1350 NEXT
1360 RETURN