home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 3 #8
/
Commodore_Disk_User_Vol.3_8_1990_-.d64
/
sb.demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
56 lines
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