home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1989 October
/
1989-10.d64
/
backdrops
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
60 lines
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