home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1986 September & October
/
rerun-1986-09-10.d64
/
mirror
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
43 lines
5 printchr$(147):poke53280,15:poke53281,1:printchr$(151)
10 poke214,7:print:print" random characters, letters, or blocks?
15 [151]214,9:[153]:[151]211,17:[153]"(r/l/b)"
20 [161]a$:[139]a$[179][177]"r"[167][139]a$[179][177]"b"[167][139]a$[179][177]"l"[167]20
25 [139]a$[178]"b"[167]fl[178]0:[137]40
30 [139]a$[178]"r"[167]fl[178]1:[137]40
35 fl[178]2
40 [153]:[153]" automatic or firebutton color change?
45 print:poke211,18:print"(a/f)
50 [161]a$:[139]a$[179][177]"a"[167][139]a$[179][177]"f"[167]50
55 [139]a$[178]"a"[167]gl[178]1:[137]65
60 gl[178]0
65 [153][199](147)
70 [129]z[178]54272[164]54295:[151]z,0:[130]
75 [151]54272,10:[151]54275,8:[151]54277,4:[151]54296,15
80 r1[178]54273:vr[178]54276:rr[178]54:rx[178]255:rn[178]5:vn[178]65:vf[178]64:pc[178]4
85 z[178]1523:zm[178]1524:c[178]54272:cc[178]2:mc[178]16:mx[178]2023:mn[178]1024:vt[178]40:hz[178]1:dg[178]39:dh[178]41
90 js[178]56320:b[178]116:fb[178][171]5:kb[178]197:sp[178]60
95 a[178][194](js)[171]b
100 [139]fl[178]0[167]ch[178]160:[137]115
105 [139]fl[178]1[167]ch[178][181](255[172][187](1))[170]1:[137]115
110 ch[178][181](26[172][187](1))[170]1
115 [139]gl[178]0[167][139]a[178]fb[167]cc[178]cc[170]1:a[178]12:[137]130
120 [139]gl[178]1[167]cc[178]cc[170]1
125 [139]a[179]0[167]95
130 [139][194](kb)[178]sp[167][138]
135 [139]cc[177]16[167]cc[178]0
140 [139]z[177]mx[176]zm[177]mx[167]130
145 [139]z[179]mn[176]zm[179]mn[167]130
150 [151]z,ch:[151]z[170]c,cc:[151]zm,ch:[151]zm[170]c,cc:[151]r1,rr:[151]vr,vn
155 [145]a[137]185,180,165,95,190,195,175,95,170,160,95,200
160 z[178]z[171]vt:zm[178]zm[171]vt:rr[178]rr[170]pc:[137]200
165 z[178]z[170]hz:zm[178]zm[171]hz:[137]200
170 z[178]z[170]vt:zm[178]zm[170]vt:rr[178]rr[171]pc:[137]200
175 z[178]z[171]hz:zm[178]zm[170]hz:[137]200
180 z[178]z[171]dg:zm[178]zm[171]dh:rr[178]rr[170]pc:[137]200
185 z[178]z[170]dh:zm[178]zm[170]dg:rr[178]rr[171]pc:[137]200
190 z[178]z[170]dg:zm[178]zm[170]dh:rr[178]rr[171]pc:[137]200
195 z[178]z[171]dh:zm[178]zm[171]dg:rr[178]rr[170]pc:[137]200
200 [129]t[178]1[164]20:[130]:[151]vr,vf:[137]95
205 [143] commodore (logo) key pressed with the following keys simulates joystick
210 [143] f3 key for up, s for down, h for left, f for right, k for firebutton