home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / alpiner (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  179 lines
  1. 0 rem--ahoy!--june issue--alpiner--prog page 47
  2. 1 rem *****  a l p i n e r  *****
  3. 2 rem ** designed by-bob lloret **
  4. 3 rem **** for ahoy' magazine ****
  5. 4 rem ============================
  6. 10 print "[147]":poke 53280,6:poke53281,0
  7. 20 print tab(18);"the":print tab(11);"\ a l p i n e r \"
  8. 25 print tab(13);"[156]by:bob lloret"
  9. 30 print tab(6);"number of players:";:input np
  10. 40 if np<1 or np>4 then 10
  11. 50 print spc(6);"[149]enter player's first names"
  12. 55 for i=1 to np
  13. 60 print tab(6);"[158]player #";i;:input name$(i)
  14. 70 next i
  15. 98 rem ***  difficulty level  ***
  16. 99 rem ==========================
  17. 100 print "[147]":poke 53280,0:poke 53281,7
  18. 110 print tab(10);"[149][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  19. 120 print tab(10);"[194] * player level * [194]"
  20. 130 print tab(10);"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  21. 140 print "";tab(13);"[1][146] amature":print tab(13);"[156][2][146] professional"
  22. 150 print tab(13);"[3][146] alpiner":print tab(12);"[149]your choice [1-3][146]"
  23. 160 get ch$:if ch$="" then 160
  24. 170 if ch$="1" then s=13:obs=6
  25. 175 if ch$="2" then s=12:obs=5
  26. 180 if ch$="3" then s=10:obs=3
  27. 190 print "[147]":poke 53280,6:poke 53281,3
  28. 200 print "[144]   hold on...i'm arranging the course
  29. 210 [137] 1000
  30. 220 [141] 1200:[141] 900
  31. 225 [129] t[178]1 [164] np
  32. 230 [153] "load":[151] 53280,14:[151] 53281,1:x[178]160:y[178]145:sc(t)[178]50000:m(t)[178]0:ga[178]0
  33. 235 [129] a[178]1 [164] 10:[153]:[130] a
  34. 240 [153] [163]12);"get ready,";name$(t)
  35. 245 [129] a[178]1 [164] 11:[153]:[130] a
  36. 250 [151] v,x:[151] v[170]1,y:[151] v[170]21,1
  37. 255 [129] d[178]1 [164] 1500:[130] d
  38. 260 si[178]54272:[129] i[178]0 [164] 24:[151] si[170]i,0:[130] i
  39. 265 [143] ****  main 1st loop  ****
  40. 266 [143] =========================
  41. 270 [129] count[178]1 [164] 600:c[178][181]([187](0)[172]11)
  42. 280 [153] "";[163]c);[199](94);[163]c[170]28);[199](94)
  43. 285 [151]si[170]24,3:[151]si[170]5,64:[151]si[170]6,130:[151]si[170]1,17:[151]si,37:[151]si[170]4,129
  44. 290 [158](49400)
  45. 300 [139] [194](v[170]31)[175]x[178]x[167][151]2040,14:sc(t)[178]sc(t)[171]150:m(t)[178]m(t)[170]1
  46. 320 b[178]b[170]1:[139] b[177][178]s [167] c2[178][181]([187](0)[172]15)[170]10:[137] 340
  47. 330 [137] 350
  48. 340 [153]"on";[163]c2);[199](95);[163]c2[170]5);[199](95):b[178]0:[151]2040,13:ga(t)[178]ga(t)[170]1
  49. 350 [130] count
  50. 355 [143] ***  end of run  ***
  51. 356 [143] ====================
  52. 360 [129] a[178]1 [164] 30:c[178][181]([187](0)[172]11):[153]"";[163]c);[199](94);[163]c[170]28);[199](94)
  53. 365 [130] a
  54. 370 [151] si[170]4,16:[151] si[170]1,0:[151] si,0
  55. 380 le$[178]"first":[141] 800
  56. 385 [143] ****  second leg  ****
  57. 386 [143] ======================
  58. 390 [153] "load":[151] 53280,14:[151] 53281,1:x[178]160:y[178]145:m[178]0
  59. 400 [129] a[178]1 [164] 10:[153]:[130] a
  60. 410 [153] [163]12);"get ready,";name$(t)
  61. 420 [129] a[178]1 [164] 11:[153]:[130] a
  62. 430 [151] v,x:[151] v[170]1,y:[151] v[170]21,1
  63. 440 [129] d[178]1 [164] 1000:[130] d
  64. 450 [151]si[170]24,2:[151]si[170]5,64:[151]si[170]6,130:[151]si[170]1,17:[151]si,37:[151]si[170]4,129
  65. 455 [143] **** main 2nd loop ****
  66. 456 [143] =======================
  67. 460 [129] count[178]1 [164] 700:c[178][181]([187](0)[172]11):c1[178][181]([187](0)[172]15)[170]11
  68. 470 [153] "";[163]c);[199](94);[163]c[170]28);[199](94)
  69. 475 [139] b[178]obs [167] 477
  70. 476 [137] 480
  71. 477 [153] [163]c1);"print#";[199](96)
  72. 480 [158](49400)
  73. 490 [139] [194](v[170]31)[175]x[178]x [167] [151] 2040,14:sc(t)[178]sc(t)[171]250:m(t)[178]m(t)[170]1
  74. 500 b[178]b[170]1:[139] b[177][178]s [167] c2[178][181]([187](0)[172]15)[170]10:[137] 520
  75. 510 [137] 530
  76. 520 [153] "on";[163]c2);[199](95);[163]c2[170]5);[199](95):b[178]0:[151] 2040,13
  77. 530 [130] count
  78. 540 [129] a[178]1 [164] 25:c[178][181]([187](0)[172]11):[153] "";[163]c);[199](94);[163]c[170]28);[199](94)
  79. 545 [130] a
  80. 550 [151] si[170]4,16:[151] si[170]1,0:[151] si,0
  81. 560 le$[178]"second":[141] 800
  82. 565 [143] ****  third leg  ****
  83. 566 [143] =====================
  84. 570 [153] "load":[151] 53280,14:[151] 53281,1:x[178]160:y[178]145:m[178]0
  85. 575 [129] a[178]1 [164] 10:[153]:[130] a
  86. 580 [153] [163]12);"get ready,";name$(t)
  87. 585 [129] a[178]1 [164] 11:[153]:[130] a
  88. 590 [151] v,x:[151] v[170]1,y:[151] v[170]21,1
  89. 595 [129] d[178]1 [164] 1000:[130] d
  90. 600 [151]si[170]24,2:[151]si[170]5,64:[151]si[170]6,130:[151]si[170]1,17:[151]si,37:[151]si[170]4,129
  91. 605 [143] **** main 3rd loop ****
  92. 606 [143] =======================
  93. 610 [129] count[178]1 [164] 800:c[178][181]([187](0)[172]11):c1[178][181]([187](0)[172]15)[170]9
  94. 620 [153] "";[163]c);[199](94);[163]c[170]28);[199](94)
  95. 630 [139] b[178]obs [167] 650
  96. 640 [137] 660
  97. 650 [153] [163]c1);"print#";[199](96);[163]c1[170]5);"verifyon";[199](100);[199](101);[199](102)
  98. 660 [158](49400)
  99. 670 [139] [194](v[170]31)[175]x[178]x [167] [151] 2040,14:sc(t)[178]sc(t)[171]350:m(t)[178]m(t)[170]1
  100. 680 b[178]b[170]1:[139] b[177][178]s [167] c2[178][181]([187](0)[172]15)[170]10:[137] 700
  101. 690 [137] 710
  102. 700 [153] "on";[163]c2);[199](95);[163]c2[170]5);[199](95):b[178]0:[151] 2040,13
  103. 710 [130] count
  104. 720 [129] a[178]1 [164] 25:c[178][181]([187](0)[172]11):[153] "";[163]c);[199](94);[163]c[170]28);[199](94)
  105. 730 [130] a
  106. 740 [151] si[170]4,16:[151] si[170]1,0:[151] si,0
  107. 750 le$[178]"third":[141] 800
  108. 760 [139] le$[178]"third" [175] t[178]np [167] [128]
  109. 770 [130] t
  110. 798 [143] ****  run results  ****
  111. 799 [143] =======================
  112. 800 [153] "load":[151] v[170]21,0:[151] 53280,0:[151] 53281,6
  113. 810 [153] "stop";[163]9);"* ";le$;" leg results *"
  114. 815 [153] "sys   ";name$(1);":"
  115. 816 [153] "";[163]8);"no. of gates....";ga(1)
  116. 817 [153] [163]8);"obsticles hit...";m(1)
  117. 818 [153] [163]8);"total score.....";sc(1)
  118. 820 [139] t[179]2 [167] [129] a[178]1 [164] 16:[153]:[130] a:[137] 860
  119. 825 [153] "sys   ";name$(2);":"
  120. 826 [153] "";[163]8);"no. of gates....";ga(2)
  121. 827 [153] [163]8);"obsticles hit...";m(2)
  122. 828 [153] [163]8);"total score.....";sc(2)
  123. 830 [139] t[179]3 [167] [129] a[178]1 [164] 12:[153]:[130] a:[137] 860
  124. 835 [153] "sys   ";name$(3);":"
  125. 836 [153] "";[163]8);"no. of gates....";ga(3)
  126. 837 [153] [163]8);"obsticles hit...";m(3)
  127. 838 [153] [163]8);"total score.....";sc(3)
  128. 840 [139] t[179]4 [167] [129] a[178]1 [164] 8:[153]:[130] a:[137] 860
  129. 845 [153] "sys   ";name$(4);":"
  130. 846 [153] "";[163]8);"no. of gates....";ga(4)
  131. 847 [153] [163]8);"obsticles hit...";m(4)
  132. 848 [153] [163]8);"total score.....";sc(4)
  133. 850 [129] a[178]1 [164] 3:[153]:[130] a
  134. 860 [139] le$[179][177]"third" [167] msg$[178]"next leg coming up"
  135. 870 [139] le$[178]"third" [175] t[179][177]np [167] msg$[178]"next player please"
  136. 880 [139] le$[178]"third" [175] t[178]np [167] msg$[178]"* final results *"
  137. 885 cent[178][181](40[171][195](msg$))[173]2
  138. 890 [153] [163]cent);"sys";msg$:[129] d[178]1 [164] 4500:[130] d:[142]
  139. 895 [156]:[128]
  140. 896 [143] ===============================
  141. 900 [129] i[178]1 [164] 101:[135] a:[151] 49151[170]i,a:[130] i
  142. 910 [129] i[178]1 [164] 19:[135] a:[151] 49399[170]i,a:[130] i:[142]
  143. 1000 [143] **** char change ****
  144. 1005 [143] =====================
  145. 1010 [153] [199](142):[151] 52,48:[151] 56,48
  146. 1020 [151] 56334,[194](56334)[175]254:[151] 1,[194](1)[175]251
  147. 1030 [129] i[178]0 [164] 511:[151] i[170]12288,[194](i[170]53248):[130]
  148. 1040 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1:[151]53272,([194](53272)[175]240)[170]12
  149. 1050 [135] loc:[139] loc[178][171]1 [167] 1100
  150. 1060 [129] a[178]0 [164] 7:[135] ch:[151] loc[170]a,ch:[130] a:[137] 1050
  151. 1070 [131] 12528,24,24,60,126,255,24,24,24
  152. 1080 [131] 12536,112,124,126,127,96,96,96,96
  153. 1090 [131] 12512,0,2,252,124,60,124,236,196
  154. 1100 [131] 12800,48,124,126,62,62,127,255,255
  155. 1110 [131] 12832,12,3,127,191,191,127,0,0
  156. 1120 [131] 12840,0,0,255,255,255,255,1,6
  157. 1130 [131] 12848,0,0,252,254,254,252,128,0,-1
  158. 1150 [137] 220
  159. 1198 [143] *** data for sprites ***
  160. 1199 [143] ========================
  161. 1200 v[178]53248:[151] 2040,13:[151] v[170]39,6:[151] v[170]28,3:[151] v[170]38,10:[151] v[170]37,9
  162. 1210 [129]a[178]0[164] 62:[135] ch:[151] 832[170]a,ch:[130] a
  163. 1220 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,190,0,0,190,0,0,255,0,15
  164. 1230 [131] 255,240,51,195,204,0,255,0,0,255,0,0,130,0,0,130
  165. 1240 [131] 0,0,130,0,0,130,0,0,130,0,0,0,0,0,0,0,0,0,0,0,0,0
  166. 1250 [151] 2041,14:[151] v[170]40,6:[151] v[170]38,10:[151] v[170]37,9
  167. 1255 [129]a[178]0[164] 62:[135] ch:[151] 896[170]a,ch:[130] a
  168. 1260 [131] 0,0,0,0,0,0,0,0,0,0,192,192,8,51,192,8,15,192,8,12,192
  169. 1270 [131] 8,63,0,11,255,192,8,12,48,8,12,0,8,12,0,8,8,0,0,8,0,0,8,0
  170. 1280 [131] 0,8,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0
  171. 1300 [142]
  172. 1400 [131] 173,0,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,38,173
  173. 1410 [131] 0,208,208,15,173,16,208,41,1,240,12,173,16,208,41,254,141,16
  174. 1420 [131] 208,206,0,208,96,173,16,208,9,1,162,63,141,16,208,142,0,208,96
  175. 1430 [131] 74,176,32,238,0,208,240,28,173,16,208,41,1,240,20,169,64,205
  176. 1440 [131] 0,208,208,13,173,16,208,41,254,162,0,141,16,208,142,0,208,96
  177. 1450 [131] 173,16,208,9,1,141,16,208,96
  178. 1460 [131] 32,0,192,32,0,192,32,0,192,32,0,192,96,32,0,192,76,5,193
  179.