home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_121_(06-1985).d64 / gotcha (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  106 lines
  1. 20 POKE56,48:POKE52,48
  2. 30 FORI=54272TO54296:POKEI,0:NEXT:POKE54296,15:POKE54277,17:POKE54278,136
  3. 40 GOTO1100
  4. 50 K=INT(.5+(ME-1183)/80):J=0:ET=K*80+1183:CH=-1:E1=66
  5. 51 IFRND(1)<.5THENET=ET-39:CH=1:E1=67
  6. 52 IFPEEK(ME)=36THENGOSUB1050
  7. 53 IFPEEK(ET)=36THENIT=IT+1
  8. 54 IFME<1064THENME=ME+40
  9. 55 IFME>2023THENME=ME-40
  10. 56 POKEOM,32:POKEME,M1:POKEME+54272,7
  11. 57 IFPEEK(ET)=M1THEN1100
  12. 58 POKEOT,32:POKEET+54272,2:POKEET,E1
  13. 59 IFIT=>(30+RD*20)THENPRINT"[147]":RD=RD+1:MT=0:OM=0:OT=0:GOTO1510
  14. 60 P=PEEK(DD):J1=15-(PAND15)
  15. 63 IFJ1=1THENDY=-40:GOTO74
  16. 64 IFJ1=2THENJY=40:GOTO74
  17. 65 IFJ1=4THENDX=-1:M1=0:GOTO74
  18. 66 IFJ1=5THENDY=-41:M1=0:GOTO74
  19. 67 IFJ1=6THENDY=39:GOTO74
  20. 68 IFJ1=8THENDX=1:M1=65:GOTO74
  21. 69 IFJ1=9THENDY=-39:M1=65:GOTO74
  22. 70 IFJ1=10THENDY=41:M1=65
  23. 74 OM=ME:ME=ME+DX+DY:DY=0:DX=0
  24. 80 IFME<1064THENME=ME+40
  25. 81 IFME>2023THENME=ME-40
  26. 82 IFET>2023THENET=ET-40
  27. 85 IFPEEK(ME)<>32ANDPEEK(ME)<>36THENME=OM
  28. 180 OT=ET:ET=ET+CH:J=J+1:IFJ=>40THEN50
  29. 190 GOTO52
  30. 200 PRINT"[147]SCORE[146]"SC:IFRD=0THEN1000
  31. 201 IFRD>18THENPRINT"[147]YOU MADE IT!!!!":GOTO201
  32. 202 UR$="[197] [198]":UL$="[200] [199]"
  33. 210 PRINTCHR$(147)
  34. 300 PRINT:PRINT
  35. 350 FORT=1TO12
  36. 360 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  37. 370 NEXT
  38. 372 PRINT""
  39. 374 OV$="":AP$=""
  40. 375 FORT=1TO5
  41. 380 PRINTOV$UR$AP$UL$
  42. 385 AP$=AP$+"":OV$=OV$+"[157][157]"
  43. 390 NEXT
  44. 395 AP$=AP$+"[157][157][157][157]":OV$=OV$+""
  45. 410 FORT=1TO5
  46. 420 PRINTOV$UL$AP$UR$
  47. 430 AP$=AP$+"[157][157][157][157]":OV$=OV$+""
  48. 440 NEXT
  49. 460 FORT=1TO30+(RD*20)
  50. 470 SP=INT(RND(1)*879)+1064
  51. 480 IFPEEK(SP)=32THENPOKESP,36:POKESP+54272,5:GOTO500
  52. 490 GOTO470
  53. 500 NEXT
  54. 505 DD=56320:ME=1562:IT=0:V=54276:HF=54273:LF=HF-1
  55. 555 POKEV,17:FORT=1TO50:POKEHF,RND(0)*38+34
  56. 600 FORTT=1TO5:POKELF,RND(0)*20+40:NEXTTT:NEXTT:POKEV,16
  57. 609 IFRD>0THENME=ME-80
  58. 610 GOTO50
  59. 1000 PRINT"[198][200]"
  60. 1002 PRINT"[198][196][196][196][196][200]"
  61. 1004 PRINT"[198][196][196][196][196][196][196][196][196][200]"
  62. 1006 PRINT"[198][196][196][196][196][196][196][196][196][196][196][196][196][200]"
  63. 1008 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][200]"
  64. 1010 PRINT"[199][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][197]"
  65. 1011 PRINT"[199][196][196][196][196][196][196][196][196][196][196][196][196][197]"
  66. 1012 PRINT"[199][196][196][196][196][196][196][196][196][197]"
  67. 1014 PRINT"[199][196][196][196][196][197]"
  68. 1016 PRINT"[199][197]"
  69. 1018 GOTO460
  70. 1050 POKEV,17:POKEHF,51:FORT=1TO5:POKELF,2*T:NEXTT:IT=IT+1:SC=SC+10*(1+RD)
  71. 1060 POKEV,16:IFRD=0THENPRINT"SCORE"SC:RETURN
  72. 1065 PRINT"SCORE"SC"[145][145]":RETURN
  73. 1100 PRINT"[147]"TAB(17)"GOTCHA!!"
  74. 1101 POKEV,17:FORT=40TO75:POKEHF,T:POKELF,2*T:NEXT:FORT=1TO50:NEXT:POKEV,16
  75. 1102 FORT=34TO12STEP-1:POKEHF,T:POKELF,T/2:NEXT:POKEV,16
  76. 1130 FL=1:RD=0:OM=0:OT=0:GOTO1501
  77. 1180 POKE53280,15:POKE53281,15:PRINT"[147]"TAB(10)"JUST A MOMENT PLEASE"
  78. 1200 PRINTCHR$(142):POKE52,48:POKE56,48:CLR
  79. 1210 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
  80. 1220 FORI=0TO511:POKE12288+I,PEEK(53248+I):NEXTI:POKE1,PEEK(1)OR4
  81. 1225 POKE56334,PEEK(56334)OR1:POKE53272,(PEEK(53272)AND240)OR12
  82. 1230 READX:IFX<0THEN1300
  83. 1240 FORI=XTOX+7:READJ:POKEI,J:NEXTI:GOTO1230
  84. 1250 DATA12288,48,18,156,120,24,40,36,34,12808,24,81,58,28,24,20,36,68
  85. 1260 DATA12816,60,230,126,30,30,30,254,124,12824,60,103,126,120,120,120,127,62,
  86. 1270 DATA12832,255,255,255,255,255,255,255,255
  87. 1280 DATA12840,255,254,252,248,240,224,192,128,12848,1,3,7,15,31,63,127,255,
  88. 1290 DATA12856,255,127,63,31,15,7,3,1,12864,128,192,224,240,248,252,254,255,-1
  89. 1300 POKE53280,0:POKE53281,0
  90. 1380 PRINT"[147]** GOTCHA **"
  91. 1400 PRINT"[158]USING JOYSTICK #2, YOU MUST GATHER AS  "
  92. 1401 PRINT"MUCH OF THE MONEY AS YOU CAN WITHOUT     BEING CAUGHT BY  [195]."
  93. 1402 PRINT"[158]YOU ARE[159][193].[158] THE NUMBER AND VALUE OF    "
  94. 1403 PRINT"THE [151]$[158]'S INCREASE WITH EACH ROUND.":GOTO1510
  95. 1501 PRINT"SCORE"SC:PRINT"HIGH"HS:IFSC>HSTHENHS=SC:GOSUB1550
  96. 1505 IFRD=0THENSC=0
  97. 1510 PRINT"[158]PRESS THE <TRIGGER> TO PLAY";
  98. 1512 IFFL=1THENPRINT"[158], Q TO QUIT"
  99. 1515 P=PEEK(56320):FR=PAND16
  100. 1516 IFPEEK(197)=62THENPOKE198,0:SYS2048
  101. 1518 IFFR=16THEN1515
  102. 1520 FL=0:GOTO200
  103. 1550 FORT=1TO1000:NEXT:FORCT=1TO3:PRINT"  A NEW HIGH SCORE!!":NEXT
  104. 1551 POKEV,17:FORTT=40TO200:POKEHF,TT/2:FORI=1TO10:NEXTI:POKELF,TT:NEXTTT
  105. 1560 POKEV,16:RETURN
  106.