home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / LOOK-BOTH-WAYS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.8 KB  |  158 lines
  1. 4 GOSUB3000
  2. 5 GOTO6000
  3. 10 PRINT"[147]"TAB(11)"LOOK BOTH WAYS"
  4. 11 POKE53281,0:POKE53280,0
  5. 12 PRINTTAB(10)"BY JOSEPH SWEELY"
  6. 15 PRINT"           [213][195][195][195][201]    [213][195][195][195][201]"
  7. 16 PRINT"           [194] [215] [194]    [194][160][215] [194]"
  8. 17 PRINT"           [202][195][195][195][203]    [202][195][195][195][203]"
  9. 19 FORT=1TO500:NEXTT
  10. 20 POKE1357,32:POKE1356,87:POKE1366,32:POKE1365,87:POKE1358,32:POKE1367,32
  11. 25 FORT=1TO500:NEXTT
  12. 26 POKE1356,32:POKE1358,87:POKE1365,32:POKE1367,87
  13. 27 GETA$:IFA$=""THEN19
  14. 28 HS=.
  15. 29 SC=.:JO=PEEK(252):LV=4:OC=24:CS=4:CO=253:KH=.:Z=1
  16. 30 POKE2040,194:POKE2041,192:POKE2042,192:POKE2043,192:POKE2044,193
  17. 32 POKE2045,193:POKE2046,193
  18. 34 POKEV+39,10:POKEV+40,1:POKEV+41,2:POKEV+42,5
  19. 36 POKEV+43,12:POKEV+44,7:POKEV+45,6
  20. 40 GOSUB5000
  21. 45 XP=151:YP=217:POKEV,XP:POKEV+1,YP
  22. 50 XR=24:E1=70:E2=86:E3=102:POKEV+2,XR:POKEV+3,E1:POKEV+4,XR:POKEV+5,E2
  23. 51 POKEV+6,XR:POKEV+7,E3
  24. 60 XL=253:E4=166:E5=181:E6=198:POKEV+8,XL:POKEV+9,E4:POKEV+10,XL:POKEV+11,E5
  25. 61 POKEV+12,XL:POKEV+13,E6
  26. 63 POKEV+30,0
  27. 64 TI$="000000"
  28. 65 ONPEEK(252)GOTO70,105,80,105,90,105,100,105
  29. 68 GOTO105
  30. 70 YP=YP-7:SC=SC+1:GOTO105
  31. 80 XP=XP+7:GOTO105
  32. 90 YP=YP+7:GOTO105
  33. 100 XP=XP-7:GOTO105
  34. 105 IFVAL(TI$)>90THEN300
  35. 110 IFXP>255THENXP=255
  36. 111 IFXP<24THENXP=24
  37. 112 IFYP<43THENYP=43
  38. 113 IFYP>229THENYP=229
  39. 114 POKEV,XP:POKEV+1,YP
  40. 115 IFYP<55THEN200
  41. 116 PRINT""SPC(34);SC
  42. 117 IFPEEK(V+30)>1THEN300
  43. 119 XR=XR+CS:IFXR>255THENXR=23
  44. 120 POKEV+2,XR:POKEV+6,XR
  45. 121 IFOC>252THENOC=24
  46. 122 IFRND(1)>.2THENOC=OC+CS:IFOC<255THENPOKEV+4,OC
  47. 125 XL=XL-CS:IFXL<24THENXL=253
  48. 126 IFRND(1)>.2THENCO=CO-CS:POKEV+10,CO
  49. 127 IFRND(1)>.2THENCO=CO-CS:POKEV+10,CO
  50. 128 IFCO<24THENCO=252
  51. 130 POKEV+8,XL:POKEV+12,XL
  52. 135 GOTO65
  53. 200 KH=KH+1:YT=VAL(TI$)
  54. 205 IFKH=1THENPOKE1106,160
  55. 210 IFKH=2THENPOKE1114,160
  56. 215 IFKH=3THENPOKE1122,160
  57. 220 IFKH=4THENPOKE1130,160
  58. 225 SC=SC+100-YT
  59. 230 XP=151:YP=217:POKEV,XP:POKEV+1,YP
  60. 235 IFKH=4THENZ=Z+1:POKEV+21,0:GOSUB4010:CS=CS+1:GOSUB5000:IFCS>13THENCS=13
  61. 240 TI$="000000":POKEV+21,255:GOTO65
  62. 300 LV=LV-1:GOTO700
  63. 302 IFLV<1THENPOKEV+21,0:GOSUB7010:GOTO400
  64. 305 GOTO65
  65. 400 PRINT""TAB(11)"FINAL SCORE ";SC
  66. 405 IFSC>HSTHENHS=SC
  67. 410 PRINT""TAB(12)"HIGH SCORE";HS
  68. 415 PRINT""TAB(13)"PLAY AGAIN ?"
  69. 420 POKE198,0
  70. 425 GETA$:IFA$=""THEN425
  71. 430 IFA$="Y"THENPOKEV+21,255:GOTO29
  72. 435 IFA$<>"N"THEN425
  73. 440 END
  74. 700 FORJ=1TO10:POKE54296,15:FORK=1TO5:NEXT:POKE54296,0:FORK=1TO5:NEXT:NEXT
  75. 701 IFYP<133THENFORT=XPTO255:POKEV,T:NEXT:GOTO705
  76. 703 FORT=XPTO23STEP-1:POKEV,T:NEXT
  77. 705 XP=151:YP=217:POKEV,XP:POKEV+1,YP
  78. 707 POKEV+30,0:TI$="000000"
  79. 710 GOTO302
  80. 3000 RESTORE
  81. 3020 FORX=828TO885:READA:POKEX,A:C=C+A:NEXT
  82. 3030 IFC<>5208THENPRINT"ERROR!!"
  83. 3035 SYS828:RETURN
  84. 3040 DATA120,169,73,141,20,3,169,3,141,21,3,88,96,160,2,185,255,219,73,255,41
  85. 3050 DATA31,170,41,16,153,251,0,138,41,15,170,189,107,3,25,251,0,153,251,0,136
  86. 3060 DATA208,227,76,49,234,0,1,5,0,7,8,6,0,3,2,4
  87. 4010 FORT=54272TO54295:POKET,0:NEXT:POKE54296,15
  88. 4015 PRINT"[147]"TAB(15)"LEVEL"Z:KH=0
  89. 4020 A=15:D=107
  90. 4030 POKE54277,A:POKE54284,A:POKE54291,A:POKE54278,D:POKE54285,D:POKE54292,D
  91. 4040 POKE54286,50:POKE54287,40
  92. 4050 POKE54276,33:POKE54283,23:POKE54290,23
  93. 4060 FORF1=10TO50STEP1:POKE54273,F1
  94. 4070 FORF2=30TO1STEP-5:POKE54280,F2
  95. 4075 NEXTF2:NEXTF1
  96. 4080 POKE54276,32:POKE54283,32:POKE54290,32
  97. 4090 RETURN
  98. 5000 POKE53281,0:POKE53280,0:PRINT"[147]"
  99. 5002 PRINT"  [169]  [223][146]    [169]  [223][146]    [169]  [223][146]   ";
  100. 5004 PRINT" [169]  [223][146]          [146]   [158][182][181] [146]    ";
  101. 5006 PRINT" [158][182][181] [146]     [158][182][181] [146]     [158][182][181] [146]   [146]  ";
  102. 5008 PRINT"       [166]   [146][208]   [166]   [146][208]   [166] ";
  103. 5010 PRINT"  [146][208]   [166]   [146][208]  [146] LOOK  [195][195][195][195][195]";
  104. 5012 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  105. 5014 PRINT"[195][195] [146]       - - - - - - - -";
  106. 5016 PRINT" - - - - - - - -  [146] BOTH  ";
  107. 5018 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  108. 5020 PRINT"[195][195][195][195][195][195][195] [146]       - - - - - ";
  109. 5022 PRINT"- - - - - - - - - - -  [146] W";
  110. 5024 PRINT"AYS  [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  111. 5026 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195] [146]       - - -";
  112. 5028 PRINT" - - - - - - - - - - - - ";
  113. 5030 PRINT"-  [146]  BY   [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  114. 5032 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146]JOSEPH ";
  115. 5034 PRINT"                         ";
  116. 5036 PRINT"        [146]SWEELY [153] [216][153] [216][153] [216][153] [216][153] [216]";
  117. 5038 PRINT"[153] [216][153]        [216][153] [216][153] [216][153] [216][153] [216][153] [216][153]  [146]  ";
  118. 5040 PRINT"     [153]                    ";
  119. 5042 PRINT"             [146]       [216][153] [216][153] [216]";
  120. 5044 PRINT"[153] [216][153] [216][153] [216][153] [216][153]      [216][153] [216][153] [216][153] [216][153] [216][153] [216]";
  121. 5046 PRINT"[153] [216] [146]SCORE                 ";
  122. 5048 PRINT"                  [146]       ";
  123. 5050 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  124. 5052 PRINT"[195][195][195][195][195][195][195] [146]       - - - - - ";
  125. 5054 PRINT"- - - - - - - - - - -  [146]  ";
  126. 5056 PRINT"     [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  127. 5058 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195] [146]       - - -";
  128. 5060 PRINT" - - - - - - - - - - - - ";
  129. 5062 PRINT"-  [146]       [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  130. 5064 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146]       ";
  131. 5066 PRINT"- - - - - - - - - - - - -";
  132. 5068 PRINT" - - -  [146]       [195][195][195][195][195][195][195][195][195][195]";
  133. 5070 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146]  ";
  134. 5072 PRINT"     [160]                   ";
  135. 5074 PRINT"                    [146]     ";
  136. 5076 PRINT"                         ";
  137. 5078 PRINT"          ";
  138. 5080 PRINT"[145][145][145][145][145]":RETURN
  139. 6000 FORT=0TO189:READK:POKE12288+T,K:NEXT
  140. 6002 V=53248:POKEV+21,255:GOTO10
  141. 6005 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  142. 6006 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,3,254,0,7
  143. 6007 DATA241,0,15,240,128,31,240,64,31,255,248
  144. 6008 DATA49,255,28,46,254,236,42,130,168,14,0,224,0,0,0,0
  145. 6009 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  146. 6010 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,1,255
  147. 6011 DATA224,2,63,240,4,63,248,8,63,248,63
  148. 6012 DATA255,252,120,255,140,119,127,116,117,127,84,7,0,112,0,0,0
  149. 6013 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  150. 6014 DATA0,1,224,0,3,252,0,2,208,0,3,240,0,3,48,0,1
  151. 6015 DATA224,0,7,248,0,13,236,0,25,230
  152. 6016 DATA0,17,226,0,3,48,0,3,48,0,3,48,0,7,56,0
  153. 7010 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
  154. 7015 PRINT"[147]";TAB(13);" GAME OVER "
  155. 7020 POKE54277,8:POKE54278,255:POKE54276,23
  156. 7040 FORF2=15TO30STEP5:POKE54287,F2
  157. 7050 FORF1=1TO255STEP4:POKE54273,F1:NEXTF1:NEXTF2:POKE54278,15:RETURN
  158.