1000 REM ******* SETUP SCREEN 1010 (null) 6:(null) 6:(null) 14 1020 (null):(null) 3:(null) (11,12) 1030 PRINT "SPRITE BASIC -DEMO" 1040 (null) 15:(null) (10,13) 1050 PRINT "BY GORDON MOYES 1989" 1060 (null) 14:(null) 4 1070 REM ******* SETUP SPRITES 1080 X=24:Y=50 1090 X1=0:X2=344 1100 (null) 0,2,160,60:(null) 1,2,160,120 1110 (null) 2,2,160,170 1120 (null) 3,2,160,220:(null) 2,4 1130 (null) 2,1,1,1:(null) 0,2,65 1140 (null) 0,2,0,1,0,1,5:(null) 0,2,1 1150 (null) 2,0,0,0 1160 (null) 0,0,0,0,0,0,11 1170 (null) 1,0,0,0,0,0,12 1180 (null) 2,0,0,0,0,0,13 1190 (null) 3,0,0,0,0,0,15 1200 (null) 0,1,1,1:(null) 0,0,1 1210 (null) 0,0,64:(null) 0,0,0,0 1220 (null) 1,1,1,1 1230 (null) 0,1,0,1,1,0,10 1240 (null) 0,1,64 1250 (null) 0,1,1 1260 REM ******* SETUP MUSIC 1270 (null):(null) 15 1280 (null) 0,0,0,15,0 1290 (null) 0,2,0,0 1300 P=0 1310 REM ******* MAIN LOOP 1320 : FOR I=0 TO 1 1330 I=0 1340 (null) 0,1,X,Y 1350 (null) (2)=A 1360 IF A AND 1 THEN Y=Y-4 1370 IF Y<50 THEN Y=50 1380 IF A AND 2 THEN Y=Y+4 1390 IF Y>208 THEN Y=208 1400 IF A AND 4 THEN X=X-4 1410 IF X<24 THEN X=24 1420 IF A AND 8 THEN X=X+4 1430 IF X>296 THEN X=296 1440 (null) 0,0,X1,50:(null) 1,0,X2,110 1450 (null) 2,0,X1,160:(null) 3,0,X2,210 1460 X1=X1+2:IF X1>344 THEN X1=0 1470 X2=X2-2:IF X2<0 THEN X2=344 1480 REM ******* PLAY MUSIC 1490 (null) (0)=B:IF B=1 THEN NEXT I 1500 P=P+1:IF P=5 THEN P=0:RESTORE 1510 READ C:READ D:(null) 0,C,D 1520 : NEXT I 1530 DATA 8779,25,11060,12,8779,12 1540 DATA 11718,6,11068,12