home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 138 / Tiger_Disk_138_20xx_Tiger-Crew-Disk_de_Side_B.d64 / swerve (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  128 lines
  1. 1 ifpeek(816)=165andpeek(817)=244then8
  2. 2 print"[147] kill cartridge ! ":end
  3. 8 poke53280,15:poke53281,15
  4. 10 print"[147] [213][195][195][195][195]
  5. 11 [153]" peek     (NULL)        (NULL)thenusrusrusrusr (NULL)usrusr(NULL) (NULL)    (NULL)+usrusrusrusr
  6. 12 print" [202][195][195][195][201]  [205]  [206][205]  [206] [167][195][195][195]  [204][175][175][206]  [205]  [206] [170][195][195][195]
  7. 13 [153]"     peek   (NULL)(NULL)  (NULL)(NULL)  thenandandandand fn  (NULL)   (NULL)(NULL)  thenandandandand
  8. 14 print" [195][195][195][195][203]
  9. 15 [153],"written for the pet
  10. 16 print,"       by
  11. 18 [153],"malcolm michael
  12. 20 print,"adapted for the 64
  13. 21 [153],"       by
  14. 22 print,"steven darnold
  15. 23 [153],"p.o. box 201
  16. 24 print,"alexandra, new zealand";
  17. 30 fori=1to4000:next
  18. 40 print"[147]maneuver your [209] around the track without
  19. 45 [153]"colliding with the computer's (NULL)
  20. 50 print"you get 10 points for running over a +
  21. 55 [153]"you get 22 points for running over a (NULL)
  22. 90 gosub61015
  23. 105 tr=1:cs=0:hs=0
  24. 110 p1=54273:p2=54276
  25. 120 v1=1:v2=32:v3=102:v4=230:v5=93:v6=64:v7=80:v8=96
  26. 130 dimd(3)
  27. 140 print"[147]":s$="":poke54277,8:poke54296,15
  28. 150 print"";s$;"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  29. 160 prints$"[221]+ + + + + + +[166][166][166][166][166]+ + + + + + +[221]"
  30. 170 prints$"[221] [176][192][192][192][192][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][192][192][192][192][174] [221]"
  31. 180 prints$"[221]+[221]+ + + + + +[166][166][166][166][166]+ + + + + +[221]+[221]"
  32. 190 prints$"[221] [221] [176][192][192][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][192][192][174] [221] [221]"
  33. 200 prints$"[221]+[221]+[221]+ + + + +[166][166][166][166][166]+ + + + +[221]+[221]+[221]"
  34. 210 prints$"[221] [221] [221] [176][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][174] [221] [221] [221]"
  35. 220 prints$"[221]+[221]+[221]+[221]+ + + +[166][166][166][166][166]+ + + +[221]+[221]+[221]+[221]"
  36. 230 prints$"[221] [221] [221] [221] [176][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][174] [221] [221] [221] [221]"
  37. 240 prints$"[221]+[221]+[221]+[221]+[221]+ + +[166][166][166][166][166]+ + +[221]+[221]+[221]+[221]+[221]"
  38. 250 prints$"[221][166][166][166][166][166][166][166][166][146] [176][192][192][192][192][192][192][192][192][192][192][192][174] [166][166][166][166][166][166][166][166][146][221]"
  39. 260 prints$"[221][166][166][166][166][166][166][166][166][166][146][221]s w e r v e[221][166][166][166][166][166][166][166][166][166][146][221]"
  40. 270 prints$"[221][166][166][166][166][166][166][166][166][166][146][221][152]game  score[146][221][166][166][166][166][166][166][166][166][166][146][221]"
  41. 280 prints$"[221][166][166][166][166][166][166][166][166][166][146][221]           [221][166][166][166][166][166][166][166][166][166][146][221]"
  42. 290 prints$"[221][166][166][166][166][166][166][166][166][146] [173][192][192][192][192][192][192][192][192][192][192][192][189][166][166][166][166][166][166][166][166][146][221]"
  43. 300 prints$"[221]+[221]+[221]+[221]+[221]+ + +[166][166][166][166][166]+ + +[221]+[221]+[221]+[221]+[221]"
  44. 310 prints$"[221] [221] [221] [221] [173][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][189] [221] [221] [221] [221]"
  45. 320 prints$"[221]+[221]+[221]+[221]+ + + +[166][166][166][166][166]+ + + +[221]+[221]+[221]+[221]"
  46. 330 prints$"[221] [221] [221] [173][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][189] [221] [221] [221]"
  47. 340 prints$"[221]+[221]+[221]+ + + + +[166][166][166][166][166]+ + + + +[221]+[221]+[221]"
  48. 350 prints$"[221] [221] [173][192][192][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][192][192][189] [221] [221]"
  49. 360 prints$"[221]+[221]+ + + + + +[166][166][166][166][166]+ + + + + +[221]+[221]"
  50. 370 prints$"[221] [173][192][192][192][192][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][192][192][192][192][189] [221]"
  51. 380 prints$"[221]+ + + + + + +[166][166][166][166][166]+ + + + + + +[221]"
  52. 390 prints$"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  53. 400 print"";tab(15);mid$(str$(tr),2)
  54. 410 crt=1024:w=55296-crt
  55. 420 k=crt+23*40+15+len(s$):p=k+2
  56. 425 df=1
  57. 430 d(0)=1:d(1)=-40:d(2)=-1:d(3)=40
  58. 440 dk=2:dp=0:tk=1:tp=1:v9=43
  59. 450 sk=0:sc=0:fp=v3:fk=102
  60. 460 pokep2,0:pokek,87:pokek+w,6:pokep,81:pokep+w,6:ifp=kthen690
  61. 470 pokep2,16:pokep2,17:pokep1,sd:sd=0
  62. 480 c=peek(p+d(dp)):ifc<>43andc<>v9then500
  63. 485 sc=sc+int(c/4):sd=c*2
  64. 495 print"[145]"tab(18)right$("      "+str$(sc),8):c=v8
  65. 497 ifsc>999thenv9=90
  66. 500 ifc=93orc=64thendp=dp+1:c=v2:ifdp>3thendp=0
  67. 510 ifc=87then690
  68. 520 pokep,fp:pokep+w,2:fp=c:p=p+d(dp):ifrnd(1)>.85then600
  69. 530 c=peek(k+d(dk)):ifc=93orc=64thendk=dk-1:c=v2:ifdk<0thendk=3
  70. 540 ifc=v8thenc=v9
  71. 545 ifc=81then690
  72. 550 pokek,fk:pokek+w,2:k=k+d(dk):fk=c
  73. 552 ifc<>v3andc<>v4thentl=df:goto600
  74. 556 tl=tl-1:iftl<0then600
  75. 560 ifc=v3andtk<tpthenk=k+v7*d(dk):tk=tk+v1
  76. 570 ifc=v3andtk>tpthenk=k-v7*d(dk):tk=tk-v1
  77. 580 ifc=v4andtk<tpthenk=k-2*d(dk)/40:tk=tk+v1
  78. 590 ifc=v4andtk>tpthenk=k+2*d(dk)/40:tk=tk-v1
  79. 600 mv=0:i=j(peek(pk)and15)
  80. 620 if(iand1)andfp=v3thenjs=p-80:tt=tp+sgn(d(dp)):mv=1
  81. 630 if(iand2)andfp=v3thenjs=p+80:tt=tp-sgn(d(dp)):mv=1
  82. 640 if(iand4)andfp=v4thenjs=p-2:tt=tp-sgn(d(dp)):mv=1
  83. 650 if(iand8)andfp=v4thenjs=p+2:tt=tp+sgn(d(dp)):mv=1
  84. 655 ifmv=0then680
  85. 660 ifmvthensd=14
  86. 670 ifpeek(js)=fpthentp=tt:p=js
  87. 680 df=1+int(sc/500)
  88. 685 goto460
  89. 690 x=p-crt:print"";
  90. 700 y=int(x/40):x=x-y*40
  91. 710 fora=1toy:print"";:next
  92. 720 printtab(x-2)"[144][195][214][144][195][145][157][157][157][205][221][206][157][157][157][206][221][205]"
  93. 730 fora=1to25:pokep2,33:pokep1,1:pokep2,0:pokep2,33:pokep1,3:pokep2,0
  94. 740 pokep2,33:pokep1,2:pokep2,0:next
  95. 750 poke54296,0
  96. 760 tm=ti+150
  97. 770 ifti<tmthen770
  98. 780 geta$:ifa$<>""then780
  99. 790 ifsc>hsthenhs=sc
  100. 800 cs=cs+sc
  101. 810 print"[147] your score for game"tr"was"sc;"[157],":tr=tr+1
  102. 820 print" for an average of"int(cs/tr+.5)"points/game."
  103. 830 print" your high score so far is"hs;"[157]."
  104. 840 ifpk=203theninput"do you wish to play again";a$:ifleft$(a$,1)<>"y"then880
  105. 870 print"press fire button[146] to play again":waitpk,16,16:goto140
  106. 880 poke54276,0:poke54273,0:poke54277,0:end
  107. 61015 readi,d,f,q,s,k:fort=i+8tod:readx:poket,x:next
  108. 61020 dimj(15):input"joystick vorhanden ";a$:ifleft$(a$,1)<>"j"then61060
  109. 61025 input"port 1 or 2";a$
  110. 61030 pk=56322-val(a$):fori=0to15:j(i)=15-i:next:goto105
  111. 61060 pk=203:j(2)=8:j(3)=2:j(6)=1:j(7)=4
  112. 61070 print"[147]                           up
  113. 61073 [153]"
  114. 61074 print"                         [207][183][183][183][183][183][208]
  115. 61075 [153]"                         sgn f 5 +
  116. 61076 print"                         [204][175][175][175][175][175][186]
  117. 61077 [153]"
  118. 61078 print"    [207][183][183][183][183][208] [207][183][183][183][183][208]        [207][183][183][183][183][183][208]
  119. 61079 [153]"    sgncrsr+ sgncrsr+        sgn f 7 +
  120. 61080 print"    [204][175][175][175][175][186] [204][175][175][175][175][186]        [204][175][175][175][175][175][186]
  121. 61081 [153]"
  122. 61082 print"     left   right         down":fori=1to5000:next:goto105
  123. 61200 data651,748,706,703,147,164,173,79,232,74,74,74,74,45,79,232,168,185
  124. 61210 data237,2,76,193,2,32,228,255,201,49,144,4,201,58,144,10,201,32,208,4,169
  125. 61220 data48,208,2,169,53,56,233,48,162,255,142,151,0,162,94,168,185,217,2,149
  126. 61230 data0,185,227,2,149,1,169,0,160,4,149,2,232,136,208,250,96,0,129,130,130
  127. 61240 data131,131,131,131,132,132,0,0,0,64,0,32,64,96,0,16
  128.