home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 167
/
167.d81
/
u.antrock
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
556b
|
21 lines
10 forx=33280to33295:reada:pokex,a:next
20 data 173,1,220,201,223,240,6,174,231,27,76,13,17,76,38,17
30 poke53280,0:poke53281,0:print"[147][158]"
35 q=peek(4096):ifq<>169thenprint"[205]ust [204]oad 'antrock.up' 1'st..[196][207] [206][207][212] [210][213][206]":stop
40 print"[212]urn [207]ff [212]imer? ([217]/[206])"
50 getq$:ifq$=""then50
60 ifq$="y"thenpoke7208,96:goto90
70 ifq$="n"then90
80 goto50
90 print"[213]nlimited [204]ives? ([217]/[206])"
100 getq$:ifq$=""then100
110 ifq$="y"thenpoke22597,173:goto140
120 ifq$="n"then140
130 goto100
140 print"[211]kip [204]evels [215]ith [195]omm [203]ey? ([217]/[206])"
150 getq$:ifq$=""then150
160 ifq$="y"thenpoke4362,76:poke4363,0:poke4364,130:goto190
170 ifq$="n"then190
180 goto150
190 sys30464