home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / WHAK-IT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.9 KB  |  121 lines
  1. 5 REM   FROM NELCUG DISK # C10  1/86.          TINKERED WITH BY JIM GREEN 4/85..
  2. 10 REM      TINKERED WITH A LOT!                    DAMN NEAR RUINED IT!       .
  3. 15 POKE53280,7:POKE53281,7:POKE53265,11:PRINT"[147]"
  4. 20 PRINT"   [182][182]"
  5. 25 PRINT"   [181][146][181]  [165][146][161]     "
  6. 30 PRINT"   [182][182][146] [182][182] [146]  [182][182][146]  "
  7. 35 PRINT"     [146] [181][146][181][181][146][181] [181][146][181]   [146] "
  8. 40 PRINT"    [181][146][181] [146] [182][182][146]  [146]  [182][182][146]     [146]  "
  9. 45 PRINT"      [146][161]   [146][182][182][146]  [181][146][181]   [182][182][146]   [183][146][162][175]        "
  10. 50 PRINT"     [165][146][165]  [181] [146]    [184][146][185]  [181][146][181] [182][182][146][163][146][184][185][164][183][146]     "
  11. 55 PRINT"         [182][182][146]  [182][182][146][183][162][164][183] [146]  [181][146][181]   [182][182][146]  [181][146][181]     "
  12. 60 PRINT"             [181][146][181]   [182][182][146]   [184][146][185][164] [181][146][181]   [146]    [181][146][181] "
  13. 65 PRINT"                  [181][146][181] [182][182][146][183][162][185][164] [146]  [182][182][146]   [182][182][146] "
  14. 70 PRINT"                     [181][146][181]   [182][182][146]   [184][146][175] [162] [146] "
  15. 75 PRINT"                          [181][146][181] [182][182][146][183][185] [146][184]
  16. 80 [153]"                             INTWAITINT  FNWAITFN "
  17. 85 [153]"                                 ABSABSWAITONON                  AND"
  18. 90 [153]"             POS FRE"
  19. 95 [153]"             ABSABSWAITFRE  ANDUSRWAITPOSWAITTO
  20. 100 PRINT"             [181][146][181]   [162][146] [184] [175][183][146]
  21. 105 [153]"              WAIT      ABSABSWAIT  AND"
  22. 110 [153]"           ANDABSABSWAIT      INTWAITINT
  23. 115 PRINT"           [185] [188][146]       [146]
  24. 120 [153]"            CLOSENEWWAIT    POSABSABSWAIT
  25. 125 PRINT"                  [162] [188][146]  "
  26. 130 PRINT"                    [162][146]":POKE53265,27
  27. 132 FORD=1TO1E3:NEXT:SI=54272:FORT=SITOSI+23:POKET,0:NEXT
  28. 133 FORT=45TO0 STEP-1:POKESI+24,T:POKESI+24,0:FORD=1TO1:NEXT:NEXT
  29. 134 FORJ=0TO15STEP.5:POKESI+24,J:FORD=1TO3:NEXT:NEXT
  30. 135 FORD=1TO2E3:NEXT
  31. 140 DIMD$(8),LO(4),CH(4)
  32. 145 HS=0:S=0:SB=1024:SI=54272
  33. 150 POKE53280,12:POKE53281,12
  34. 155 PRINT"[147][158][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][164][164]";
  35. 160 PRINT" *  [215] [200] [193] [203] - [201] [212]  **  [215] [200] [193] [203] - [201] [212]  * "
  36. 165 PRINT"[155]         [208]RESS <[211][208][193][195][197]> TO [215][200][193][203]
  37. 170 [153]"        THE PRINT>WAITLIST TOWARDS THE TARGET."
  38. 175 [153]"SYS       (null)ISS 5 TIMES AND IT'S OVER."
  39. 180 [153]"PRINT       (null)INNING AND LOSING SCORING
  40. 185 PRINT"       SHOWN AT BOTTOM OF SCREEN."
  41. 190 PRINT"         [204]EVELS 1 - 2 & [210]ANDOM
  42. 195 [153]"     1 = HARD  2 = EASY  3 = RANDOM
  43. 200 PRINT"          [215]HAT LEVEL 1/2/3"
  44. 205 GETG$:IFG$<"1"ORG$>"3"THEN205
  45. 210 IFG$="1"THENR=3
  46. 215 IFG$="2"THENR=20
  47. 220 IFG$="3"THENR=1
  48. 225 FORI=SITOSI+23:POKEI,0:NEXT
  49. 230 POKESI+24,15:POKESI+5,68:POKESI+6,68
  50. 235 R$="":SP$=" "
  51. 240 S$="[153]>":C$=""
  52. 245 FORI=1TO39:C$=C$+" ":NEXT
  53. 250 FORG=1TO39:Y$=Y$+"[192]":NEXT
  54. 255 FORI=1TO8:READC,D$(I)
  55. 260 D$(I)=CHR$(C)+D$(I):NEXT
  56. 265 FORI=1TO4:READLO(I),CH(I):NEXT
  57. 270 PRINT"[147][142]";:POKE53265,11
  58. 275 PRINTTAB(4)"[159]SCORE >[158]"S;
  59. 280 PRINTTAB(20)"[159]HIGH SCORE >[158]"HS
  60. 285 PRINTC$:FORI=1TO21
  61. 290 PRINTR$SP$TAB(38)SP$:NEXT
  62. 295 PRINTC$
  63. 300 PRINT"[159] POINTS- "D$(1)"[209]=100  ";
  64. 305 PRINTD$(2)"=250  "D$(3)"=500  "D$(4)"=-100";
  65. 310 FORI=1TO4:POKELO(I),CH(I)
  66. 315 POKELO(I)+54272,7:NEXT
  67. 320 J=25:FORI=2TO10STEP2:POKE214,I:PRINT
  68. 325 PRINTTAB(J)"[159]([158]"LEFT$(Y$,37-J)" "
  69. 330 POKE214,22-I:PRINT
  70. 335 PRINTTAB(J)"[159]([158]"LEFT$(Y$,37-J)" ":J=J+1:NEXT
  71. 340 FORI=1TO21STEP2:POKE214,I:PRINT
  72. 345 PRINTTAB(37)D$(INT(RND(1)*8)+1):NEXT:POKE53265,27
  73. 350 F=1:A=R:D=INT(RND(1)*18)+3
  74. 355 IFR=1THENA=INT(RND(1)*17)+4
  75. 360 POKE214,D:PRINT:PRINTTAB(A)S$;
  76. 365 GETK$:IFK$=SP$THEN400
  77. 370 L=INT(RND(1)*21)+1:IFL/2=INT(L/2)THEN380
  78. 375 POKE214,L:PRINT:PRINTTAB(37)D$(INT(RND(1)*8)+1)
  79. 380 POKE214,D:PRINT:PRINTTAB(A)" ";
  80. 385 D=D+F:IFD>1ANDD<21THEN360
  81. 390 F=-F:POKESID+1,35+7*F:POKESI+4,17
  82. 395 FORT=1TO5:NEXT:POKESI+4,0:GOTO360
  83. 400 POKE214,D:PRINT:PRINTTAB(A)" ";
  84. 405 A=A+1:P=PEEK(SB+A+(D+1)*40):IFP=81THENP=87
  85. 410 IFP<>32THEN420
  86. 415 POKE214,D:PRINT:PRINTTAB(A)S$:GOTO400
  87. 420 IFP=40THEN540
  88. 425 P$=CHR$(P)
  89. 430 PT=50+25*(P$="*")+40*(P$="W")+60*(P$="-")
  90. 435 V=SGN(PT):X=50+40*(V>0)
  91. 440 POKESI+1,0:POKESI+4,33
  92. 445 FORI=VTOPTSTEPV
  93. 450 S=S+V*10
  94. 455 PRINT""TAB(11)RIGHT$(C$,5)
  95. 460 PRINT""TAB(11)"[158]"S
  96. 465 POKESI+1,X
  97. 470 X=X+V+4*(V<0):NEXT:POKESI+4,0:GOTO350
  98. 475 POKESI+1,9:POKESI+4,33
  99. 480 FORQ=1TO15:NEXT:POKESI+4,0
  100. 485 PRINT"[147][159]       SORRY, YOU MISSED 5 TIMES"
  101. 490 PRINTTAB(11)"[158]YOUR SCORE- "S
  102. 495 PRINTTAB(11)"[153]HIGH SCORE- "HS
  103. 500 IFS<=HSTHEN515
  104. 505 HS=S:PRINTTAB(12)"[159]CONGRATULATIONS!
  105. 510 [153]"        YOU BEAT THE HIGH SCORE!
  106. 512 PRINT"       PRESS <L> TO CHANGE LEVEL
  107. 515 [153]"SYS      PRESS <SPACE> TO PLAY AGAIN
  108. 520 PRINT"            OR <Q> TO QUIT.":POKE198,0
  109. 525 GETK$:IFK$<>" "ANDK$<>"Q"ANDK$<>"L"THEN525
  110. 530 IFK$="Q"THENPRINTTAB(8)"[159]ALL 'WHAKED OUT'  HUH!!":END
  111. 532 IFK$="L"THENRUN140
  112. 535 S=0:GOTO270
  113. 540 GOSUB555:PRINT""TAB(14)"MISSES - "NQ
  114. 545 IFNQ=5THENNQ=0:FORD=1TO1E3:NEXT:GOTO475
  115. 550 GOTO350
  116. 555 POKESI+24,15:POKESI+1,8:POKESI+5,15:POKESI+6,251:POKESI+4,129
  117. 560 FORI=1TO300:NEXT:POKESI+4,128
  118. 565 POKESI+5,68:POKESI+6,68:NQ=NQ+1:RETURN
  119. 570 DATA 155,"[215]",159,*,158,$,153,"-",31,"[209]",153,*,31,"-",159,"-"
  120. 575 DATA 1064,233,1102,223,1944,95,1982,105
  121.