home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #2 / Commodore_Disk_User_Vol.4_2_1990_-.d64 / game (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.3 KB  |  32 lines
  1. 10 rem -- sample game to load by the 'sys10037' programme. -- e. foster
  2. 20 rem -- note: to reset highest score, change level of difficulty
  3. 30 poke53280,1:poke53281,1:poke646,6:print"[147]"tab(12)" tim's racer [146]"
  4. 40 print"  **** use joystick in port 2 ****
  5. 50 [133]"  level of difficulty (1-18)  9cmdcmdcmd";w:w[178]20[171]w:[139]w[179]1[167]w[178]1
  6. 55 [139]w[179][177][194](2)[167][151]251,0:[151]252,0
  7. 60 [151]2,w:[133]"  car position (1-23)  12cmdcmdcmdcmd";cy:[151]3,cy:[139]cy[177]23[167]cy[178]23
  8. 70 [153]"load":sc[178]1024[170]40[172]cy:kb[178]56320:lf[178]123:rt[178]119:[143] -- joystick
  9. 80 in[178]0:tw[178]0:sr[178]0:cx[178]0:tl[178]0
  10. 90 b[178]1:e[178]38:tw[178]w[170]4:tl[178]20[171]tw[173]2:cx[178]20:s[178]sc:n[178]cy
  11. 100 [129]i[178]1[164]n:[151]s,32:[153][163]tl)"(*"[166]w)"*)":s[178]sc[170]cx:[143] -- the blue track
  12. 110 [151]s[170]54272,2:[143] -- colour mem (red car)
  13. 120 [139]tl[179]b[176]tl[170]tw[177]e[167] in[178](tl[170]tw[177]e)[171](tl[179]b):[143] -- put the space in
  14. 130 [161]z$:[139][194](s)[179][177]32[167]170
  15. 140 [151]s,160:k[178][194](kb):cx[178]cx[170](k[178]lf)[171](k[178]rt)
  16. 150 tl[178]tl[170]in:[130]:sr[178]sr[170]1
  17. 160 n[178][187](1)[172]10:in[178][181]([187](1)[172]3)[171]1:[137]100
  18. 170 [153]"*** you crashed!! ***":[153]"-- bends ="sr
  19. 180 se[178]sr[172](40[171]tw)[172]cy:[153]"-- score ="se:x[178]se:[141]280
  20. 190 [139]pe[179]se[167][151]252,hb:[151]251,lb
  21. 200 [141]280:[153]"highest score ="pe
  22. 210 [153]"again? (y/n) ";
  23. 220 [141]270:[145][171](a$[178]"y")[171]2[172](a$[178]"n")[137]240,225:[137]220
  24. 225 [153]"cmdcmdcmdcmdcmd  ...ok"
  25. 230 [153]"--elaineonononon":[129]m[178]0[164]9:[135]a:[151]631[170]m,a:[130]:[151]198,m:[128]
  26. 240 [153]"cmdcmdcmdcmd  same level? (y/n)"
  27. 250 [141]270:[145][171](a$[178]"y")[171]2[172](a$[178]"n")[137]70,260:[137]250
  28. 260 [138]
  29. 270 [161]a$:[145][171](a$[178]"")[137]270:[142]
  30. 280 hb[178][181](x[173]256):lb[178]x[171]256[172]hb:pe[178][194](251)[170]256[172][194](252):[142]
  31. 290 [131]145,67,72,69,69,82,69,79,33,141
  32.