home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 78 / 078.d81 / typeracer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  72 lines
  1. 5 ifx=0then:poke56,32:clr:x=10:rem   load"loadcol",8,1
  2. 7 ifx=10thenx=11:poke53281,0:poke53280,0:load"newchars",8,1
  3. 15 ifx=11thenx=1:rem: poke53272,30:load"loadscr",8,1
  4. 20 ifx=1thenx=2:load"truckspr",8,1
  5. 30 ifx=2thenx=3:load"newscr",8,1
  6. 40 ifx=3thenx=4:load"cardata",8,1
  7. 45 ifx=4thenx=5:load"code",8,1
  8. 50 ifx=5thenx=6:load"bitmap",8,1
  9. 55 ifx=6thenx=7:load"color",8,1
  10. 56 ifx=7thenx=8:load"racer dir.o",8,1
  11. 1000 rem set up and read scores
  12. 1010 dimsc$(11,1):cw$="[155][152][159][154][156][158][152]":gosub1470:poke650,0
  13. 1020 rem enter scores after game
  14. 1030 poke198,0:poke53272,23:printchr$(8);:poke53280,0:poke53281,0
  15. 1031 poke53270,peek(53270)and239:poke25134,96
  16. 1040 print"[147]":poke214,8:print"[145][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  17. 1050 fori=1to7:print"[155]                                      ":next
  18. 1060 print"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  19. 1070 poke214,10:print"[145][155]         [200][201][199][200][160][211][195][207][210][197][211][160][212][193][194][204][197]"
  20. 1080 print" [215]  to wipe high scores  [209]  to quit"
  21. 1090 print" [197] to edit word list       "
  22. 1100 print" [211] [208] [193] [195] [197][160][160] [212] [207] [160] [208] [204] [193] [217] "
  23. 1110 gosub1310:le=0
  24. 1120 gosub1410
  25. 1130 ifa$<>" "anda$<>"w"anda$<>"q"anda$<>"e"then1110
  26. 1140 ifa$="w"thenclose15:open15,8,15,"s:type scores":gosub1470:goto1030
  27. 1150 ifa$=" "thensys24576:goto1030
  28. 1160 ifa$="q"then1185
  29. 1170 ifa$="e"thenpoke53281,3:print"[159][147]":sys25550:goto1030
  30. 1180 goto1130
  31. 1185 poke56,160:clr
  32. 1190 a$="hello connect":open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer<>63thenprint"[147]":end
  33. 1200 q$=chr$(34):poke646,peek(53281):print"[147]":print"p[207]2048,0:p[207]44,8:l[207]"q$a$q$",8
  34. 1210 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  35. 1220 [160]15:[159]15,8,15,"s0:type scores"
  36. 1230 [132]15,a$,a$,a$,a$
  37. 1240 [159]2,8,2,"type scores,u,w":[129]i[178]1[164]10
  38. 1250 [152]2,[199](34)sc$(i,0)[199](13)sc$(i,1):[130]:[160]2:[160]15:[142]
  39. 1260 [159]2,8,2,"type scores,u,r":[129]i[178]1[164]10
  40. 1270 [132]2,sc$(i,0),sc$(i,1):[130]:[160]2:[142]
  41. 1280 [159]2,8,2,"type scores,u,w":[129]i[178]1[164]10
  42. 1290 sc$(i,0)[178]"(NULL)evel str$":sc$(i,1)[178]"valmpty":[152]2,sc$(i,0)[199](13)sc$(i,1):[130]
  43. 1300 [160]2:[142]
  44. 1310 it$[178]"(NULL)evel "[170][199]([194](26993)[170]192):[151]26993,1
  45. 1320 f[178]0:[129]i[178]1[164]10:[139]it$[177]sc$(i,0)[167]f[178]i:i[178]10:[130]:[137]1350
  46. 1330 [130]:[142]
  47. 1340 [143] sort the scores
  48. 1350 [129]i[178]11[164]f[169][171]1:sc$(i,0)[178]sc$(i[171]1,0):sc$(i,1)[178]sc$(i[171]1,1):[130]
  49. 1360 sc$(f,1)[178]" ":sc$(f,0)[178]it$
  50. 1370 [151]214,18:[151]211,1:[153]"onlenongrats!  valnter your name ";:[141]1490
  51. 1380 [139]w$[179][177]""[167]sc$(f,1)[178]w$
  52. 1390 [141]1220:[142]
  53. 1400 [143] print high scores
  54. 1410 [153]"":of%[178]of%[170]1:[139]of%[177][195](cw$)[171]1[167]of%[178]0
  55. 1420 [129]i[178]1[164]10:[139]i[178]6[167][151]214,18:[153]"on"
  56. 1430 [153][202](cw$,[182](i[171]of%)[171](i[178]of%),1);
  57. 1440 [153]i"cmd."[163]5)sc$(i,1)[163]27)sc$(i,0):[130]
  58. 1450 [161]a$:[139]a$[178]""[167]1410
  59. 1460 [142]
  60. 1470 [160]15:[159]15,8,15:[141]1260:[132]15,a$,a$:[139]a$[179][177]"ok"[167][141]1280
  61. 1480 [160]15:[142]
  62. 1490 w$[178]"":t[178]0:lw[178]0:[139]li[178]0[167]li[178]10
  63. 1500 [161]a$:as[178][198](a$[170][199](0)):[139]ti[177]15[167][141]1580
  64. 1510 [139](a$[179]" "[176]a$[177]"z")[175](a$[179]"atn"[176]a$[177]"(NULL)")[175]as[179][177]13[175]as[179][177]20[167]1500
  65. 1520 lw[178][195](w$):[139]as[178]13[167]t[178][171]1:[141]1580:[151]781,[194](214):[158]59903:[142]
  66. 1530 [139]lw[178]li[167][139]as[179][177]20[175]as[179][177]13[167]1500
  67. 1540 [139]as[178]20[167][139]lw[178]0[167]1500
  68. 1550 [139]as[178]20[167]w$[178][200](w$,[195](w$)[171]1):t[178]0:[141]1580:[141]1580:[153]"waitcmd cmd";:[137]1500
  69. 1560 w$[178]w$[170]a$:lw[178][195](w$):[151]212,0:[153]"wait"a$;:[141]1580
  70. 1570 [137]1500
  71. 1580 t[178][168]t:[151]199,[171]t:[153]" cmd";:ti$[178]"000000":[142]
  72.