home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 September / Ahoy_Magazine_85-09_1985_Double_L.d64 / invective (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  127 lines
  1. 10 rem program: invective
  2. 20 rem george trepal
  3. 30 rem 2650 alturas rd
  4. 40 rem bartow, fl  33830
  5. 50 :
  6. 100 gosub 1150
  7. 110 poke53280,12:poke53281,12:print"[147]";
  8. 120 rem set up screen
  9. 130 g$(1)="[144][191]  [158][218][218][218][218][218][218]   [218][218][218][218][218][218]    [218][218][218][218][218][218]   [218][218][218][218][218][218]  [144][191]
  10. 140 g$(2)[178]"stopsin  spc(    spc(   spc(    spc(    spc(    spc(   spc(    spc(  stopsin"
  11. 150 g$(3)[178]"stopsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsinsin"
  12. 160 g$(4)[178]"stopsin    sys(NULL)        (NULL)          (NULL)        (NULL)    stopsin"
  13. 170 [153] g$(3); g$(4); g$(2); g$(2); g$(1); g$(2); g$(2); g$(4);
  14. 180 [153] g$(4); g$(4); g$(2); g$(2); g$(1); g$(2); g$(2); g$(4);
  15. 190 [153] g$(4); g$(4); g$(2); g$(2); g$(1); g$(4); g$(4); g$(3);
  16. 200 :
  17. 210 [143] poke green points
  18. 220 cm[178]54272:  [143] cm=color memory
  19. 230 [129] j[178]1 [164] 50
  20. 240 rn [178] [181]([187](1)[172]920)[170]1024
  21. 250 [139] [194](rn)[179][177]32 [167] 240
  22. 260 [151] rn,105: [151] rn[170]cm,13
  23. 270 [130]
  24. 280 :
  25. 290 [143] set joystick values j() and scramble array values sa()
  26. 300 j(1)[178][171]40: j(2)[178]40: j(4)[178][171]1: j(8)[178]1
  27. 310 sa(1)[178]1: sa(2)[178]2: sa(3)[178]4: sa(4)[178]8
  28. 320 :
  29. 330 [143] set up player  sp=spaces over  dn$=how far down  p=position
  30. 340 [143] bm$=bottom of screen  ti$=timer
  31. 350 [153]"(NULL)"
  32. 360 sp[178]1: dn$[178]"": p[178]1065: ti$[178]"000001"
  33. 370 bm$[178]"": [141] 750: [141] 1000
  34. 380 :
  35. 390 [143] read port 2 joystick
  36. 400 jv[178][194](56320)
  37. 410 jv[178]15[171](jv[175]15)
  38. 420 [153]bm$;"score ";sc;
  39. 430 vt[178][197](ti$): [139] vt[173]15[178][181](vt[173]15)[167] [141] 680
  40. 440 [139] jv[178]0 [167] 400
  41. 450 :
  42. 460 [143] find character moved to
  43. 470 t[178]p[170]j(jv)
  44. 480 ch[178]([194](t))
  45. 490 [139] ch[178]32 [167] [141] 570:  [137] 400: [143] blank space
  46. 500 [139] ch[178]105 [167] sc[178]sc[170]10: [141] 570: [141] 1000: [137] 400: [143] green score
  47. 510 [143] blue joystick scramble
  48. 520 [139] ch[178]102 [167] [141] 570: [141] 680: sc[178]sc[171]20: [137]400
  49. 530 [139] ch[178]90 [167] sc[178]sc[171]50: [141] 570: [141] 950: [137] 400: [143] yellow score
  50. 540 [137]400
  51. 550 :
  52. 560 [143] wipe out player position
  53. 570 [153] dn$; [166]sp)" ";
  54. 580 :
  55. 590 [143] print new player position
  56. 600 p[178]t
  57. 610 [139] j(jv)[178]1 [167] sp[178]sp[170]1
  58. 620 [139] j(jv)[178][171]1 [167] sp[178]sp[171]1
  59. 630 [139] j(jv)[178]40 [167] dn$[178]dn$ [170] ""
  60. 640 [139] j(jv)[178][171]40 [167] dn$[178][200](dn$,[195](dn$)[171]1)
  61. 650 [153] dn$; [166]sp)"(NULL)";: [142]
  62. 660 :
  63. 670 [143] scramble joystick
  64. 680 [139] vt[177]130 [167] 1050
  65. 690 [129] j[178]1 [164] 4: rn[178][181]([187](1)[172]4)[170]1
  66. 700 t[178]sa(j): sa(j)[178]sa(rn): sa(rn)[178]t: [130]
  67. 710 j(sa(1))[178]1: j(sa(2))[178][171]1: j(sa(3))[178]40: j(sa(4))[178][171]40
  68. 720 [141] 900
  69. 730 :
  70. 740 [143] position hints
  71. 750 [153] bm$;[166]13)"verify";
  72. 760 [129] j[178]1 [164] 8
  73. 770 [139] j[178]1 [167] [153] "up ";
  74. 780 [139] j[178]2 [167] [153] "dn ";
  75. 790 [139] j[178]4 [167] [153] "lt ";
  76. 800 [139] j[178]8 [167] [153] "rt ";
  77. 810 [139] j(j)[178]1 [167] [153] ">  ";
  78. 820 [139] j(j)[178][171]1 [167] [153] "<  ";
  79. 830 [139] j(j)[178]40 [167] [153] "v   ";
  80. 840 [139] j(j)[178][171]40 [167] [153] "^  ";
  81. 850 [130]
  82. 860 [151] 53280,2: [151] 53281,2: [129] dl[178] 1 [164] 80: [130]
  83. 870 [151] 53280,12: [151] 53281,12
  84. 880 :
  85. 890 [143] scramble sound
  86. 900 [151] 54296,15: [151] 54276,17: [151] 54277,15: [151] 54273,60
  87. 910 [129] dl[178]1 [164] 25:[130]
  88. 920 [151] 54296,0: [151] 54276,0: [142]
  89. 930 :
  90. 940 [143] yellow hit
  91. 950 [151] 54296,15: [151] 54276,33: [151] 54277,15: [151] 54273,40
  92. 960 [129] dl[178]1 [164] 25:[130]
  93. 970 [151] 54296,0: [151] 54276,0: [142]
  94. 980 :
  95. 990 [143] green sound
  96. 1000 [151] 54296,15: [151] 54276,17: [151] 54277,15: [151] 54273,30
  97. 1010 [129] dl[178]1 [164] 25:[130]
  98. 1020 [151] 54296,0: [151] 54276,0: [142]
  99. 1030 :
  100. 1040 [143] end game
  101. 1050 [153]"load";[166]15);"score ";sc
  102. 1060 [129] j[178]1 [164] 4: [141] 900: [141] 950: [141] 900
  103. 1070 [141] 1000:[130]
  104. 1080 [153]"  press joystick button to play again"
  105. 1090 jv[178][194](56320)
  106. 1100 fr[178]jv[175]16
  107. 1110 [139] fr [178] 16 [167] 1090
  108. 1120 [137] 110
  109. 1130 :
  110. 1140 [143] intro
  111. 1150 [153]"openload":[151] 53280,0: [151] 53281,0:
  112. 1160 [153][166]16)"invective"
  113. 1170 [153][166]12)"by george trepal"
  114. 1180 [153][166]11)"printgreen = 10 points"
  115. 1190 [153][166]10)"sysyellow = -50 points"
  116. 1200 [153][166]2)"contblue = -20 points and scrambles the"
  117. 1210 [153][166]16)"joystick"
  118. 1220 [153][166]2)"openthe joystick is scrambled every 15"
  119. 1230 [153][166]2)"seconds whether you hit blue or not"
  120. 1240 [153][166]5)"the joystick goes in port #2"
  121. 1250 [153][166]7)"the game lasts 90 seconds"
  122. 1260 [153][166]5)"press the fire button to play"
  123. 1270 jv[178][194](56320)
  124. 1280 fr[178]jv[175]16
  125. 1290 [139] fr [178] 16 [167] 1270
  126. 1300 [142]
  127.