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