home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / AIR-HOCKEY (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.6 KB  |  146 lines
  1. 100 BD=53280:BK=53281:POKEBD,1:POKEBK,1:PRINT"[147]":GOSUB690
  2. 110 PRINT""SPC(6)"READING DATA... PLEASE WAIT"
  3. 112 PRINT TAB(10)"JOYSTICK IN PORT 1"
  4. 120 FORA=49152TO49958:READB:C=C+B:POKEA,B:NEXTA:IFC=86769THEN140
  5. 130 PRINT"[147]ERROR IN DATA LINES 790-1210":STOP
  6. 140 FORA=14336TO14463:READB:POKEA,B:NEXT:POKE53287,2:POKE53288,3
  7. 150 ML$="[162]"+CHR$(8)+"[189]<"+CHR$(3)+"[149]X[202]"+CHR$(16)+CHR$(248)+"L[191][163]":POKE835,0
  8. 160 POKE836,208:POKE830,0:POKE831,216:POKE828,0:POKE829,56:POKE56334,0
  9. 170 POKE1,51:ML$=ML$:SYS(PEEK(51)+256*PEEK(52)):POKE1,55:POKE56334,1
  10. 180 FORI=12552TO12559:READJ:POKEI,J:NEXT:FORI=12568TO12575:READJ:POKEI,J:NEXT
  11. 190 FORI=0TO15:POKE54296,I:NEXT:FORI=0TO23:POKE54272+I,0:NEXT
  12. 200 BD=53280:BK=53281:POKEBD,1:POKEBK,1:POKE3,1:GOSUB690:POKE53272,28
  13. 210 POKE53274,129:H$="[152]                    ":GOSUB680
  14. 220 PRINT""TAB(6)"                           [154][145]"
  15. 230 PRINTTAB(7)"[1]  OR  [2]  PLAYERS  [166][157]";:POKE204,0
  16. 240 POKE198,0:WAIT198,1:GETA$:IFA$<"1"ORA$>"2"THEN240
  17. 250 POKE204,1:POKE207,0:PRINTA$
  18. 260 NP=VAL(A$)-1:POKE247,NP:PRINTTAB(9)"WHAT SPEED [1-3]  [166][157]";:POKE204,0
  19. 270 POKE198,0:WAIT198,1:GETA$:IFA$<"1"ORA$>"3"THEN270
  20. 280 POKE204,1:POKE207,0:PRINTA$:POKE146,31-VAL(A$)*10:IFNP=1THEN320
  21. 290 PRINTTAB(9)"WHAT LEVEL [1-9]  [166][157]";:POKE204,0
  22. 300 POKE198,0:WAIT198,1:GETA$:IFA$<"1"ORA$>"9"THEN300
  23. 310 POKE204,1:POKE207,0:PRINTA$:POKE890,100-VAL(A$)*10
  24. 320 DN$="":CO$="[152]                                        "
  25. 330 DO$="                                        ":POKEBD,12:POKEBK,14
  26. 340 PRINT"[147]":FORI=1TO18:PRINTDO$;:NEXT:PRINT"";:FORI=1TO3:PRINTCO$;:NEXT
  27. 350 PRINT"[152][170][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][146]#[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][152][180][170][180]";
  28. 360 PRINTTAB(20)"[194]"SPC(17)"[170][152][180][170][180]"SPC(18)"[194]"SPC(17)"[170][152][180][170][180]"SPC(18)"[194]"SPC(17)
  29. 370 PRINT"[170][152][180][170][180]"SPC(18)"[194]"SPC(17)"[170][152][180][170][180]"SPC(18)"[194]"SPC(17)"[170][152][180][170][207][183][208]";SPC(16)
  30. 380 PRINT"[194]"SPC(14)" [207][183][208][152][180][170][144]  [167]"SPC(16);"[194]"SPC(15)"[180] [144] [152][180][170][144]  [170] "SPC(15)"[194]";
  31. 390 PRINTSPC(15)"[180] [144] [152][180][170][144]  [167]"SPC(16)"[194]"SPC(15)"[180] [144] [152][180][170][144]  [170]                [194]";
  32. 400 PRINTSPC(15)"[180] [144] [152][180][170][144]  [167]"SPC(16)"[194]"SPC(14)" [180] [144] [152][180][170][204][175][186]"SPC(16)"[194]"SPC(15)
  33. 410 PRINT"[204][175][186][152][180][170][180]"SPC(18)"[194]"SPC(17)"[170][152][180][170][180]"SPC(18)"[194]"SPC(17)"[170][152][180][170][180]"SPC(18)
  34. 420 PRINT"[194]"SPC(4)SPC(13)"[170][152][180][170][180]"SPC(18)"[194]"SPC(17)"[170][152][180][170][180]"SPC(18)"[194]"SPC(17);
  35. 430 PRINT"[170][152][180][170][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][146]![175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152][180][145][145]":FORI=1TO2
  36. 440 PRINTCO$;:NEXT:PRINT"                                       "
  37. 450 POKE2023,160:POKE56295,12:PRINT"[146]"SPC(6)"SCORE 0"SPC(15)"SCORE 0"DN$
  38. 460 PRINTSPC(16)"[145][145][145][145][145][145][145][145]    [194]    [146]";:PRINTSPC(68)"F A C E - O F F"
  39. 470 POKE839,50:POKE840,39:POKE849,0:POKE850,1:FORA=868TO870:POKEA,140:NEXT
  40. 480 IFPEEK(3)=1THENPOKE838,NP*25+55:POKE848,0
  41. 490 IFPEEK(3)=2THENPOKE838,9:POKE848,1
  42. 500 POKE53269,15:SYS49152:POKE53269,14:GOSUB660:A=PEEK(3):SC(A)=SC(A)+1
  43. 510 PRINT""TAB(11)SC(2)SPC(19)SC(1):IFSC(1)+SC(2)<9THEN470
  44. 520 POKE53269,0
  45. 530 PRINT""SPC(16)"GAME[194]OVER":PRINTDN$""SPC(8)H$DN$:V=60
  46. 540 A$="PRESS FIRE BUTTON TO PLAY AGAIN":FORI=1TO16:GOSUB640:GOSUB650:NEXTI
  47. 550 IFPEEK(56320)ANDPEEK(56321)AND16THEN550
  48. 560 PRINTDN$:A$="[152] [146]PRESS FIRE BUTTON TO PLAY AGAIN[152] [146]":V=63
  49. 570 FORI=20TO0STEP-1:GOSUB640:PRINT"[145]";:GOSUB650:NEXTI
  50. 580 POKE53274,128:POKE53269,0:PRINTDN$"[152]  [146]UP TO CHANGE OPTIONS";
  51. 590 PRINT" / DOWN TO PLAY"
  52. 600 IF(PEEK(56320)ANDPEEK(56321)AND2)<>2THENSC(1)=0:SC(2)=0:POKE3,1:GOTO630
  53. 610 IF(PEEK(56320)ANDPEEK(56321)AND1)<>1THENPRINT"[147]":RUN200
  54. 620 GOTO600
  55. 630 PRINTDN$""H$"                 ":GOTO450
  56. 640 POKE214,22:PRINTCHR$(13)"[145]";:PRINTTAB(V-I)LEFT$(A$,I)RIGHT$(A$,I):RETURN
  57. 650 FORZ=1TO30:NEXTZ:RETURN
  58. 660 POKE54277,20:FORM=1TO5:FORS=20TO90STEP10:POKE54273,S:POKE54272,S+30
  59. 670 POKE54276,32:POKE54276,33:POKEBK,S:NEXTS,M:POKEBK,14:RETURN
  60. 680 POKE53289,7:POKE2040,224:POKE2041,225:POKE2042,225:RETURN
  61. 690 PRINT"[154]    [161][172][162][146][190] [190][188][146] [172][172][187][146][187][161][172][162][146][190]    [172][172][187][146][187][161][172][162][146][190][161][172][162][146][190]"SPC(8);
  62. 700 PRINT"[161][188][146][187] [161][188][190][146][161][161][146][161]  [161][188][146][187] [172][162][162][187][161][146][161][161][146][161][161][188][146][187] [161][188][146][187]"SPC(9)"[161][146][161]  ";
  63. 710 PRINT"[161][146][161][161][146][161][161][146][161][172][187][161][146][161]      [161][146][161][161][146][161][161][146][161]  [161][146][161]"SPC(10)"[188][190]  ";
  64. 720 PRINT"[188][190][188][190] [162][162][146] [188][162][162][146][190]     [162][162][146] [188][190]  [188][190]":RETURN
  65. 730 DATA 32,45,192,32,218,193,198,251,208,13,165
  66. 740 DATA 143,133,251,32,197,192,32,49,193,32,28
  67. 750 DATA 192,165,3,240,232,96,198,144,208,12,169
  68. 760 DATA 130,133,144,165,143,201,45,240,2,230
  69. 770 DATA 143,96,160,1,169,20,153,110,3,153,120,3
  70. 780 DATA 136,16,245,165,247,208,6,173,122,3,141
  71. 790 DATA 120,3,169,27,141,17,208,162,127,142,13
  72. 800 DATA 220,232,142,15,212,142,18,212,160,23
  73. 810 DATA 169,0,153,0,212,136,16,248,169,1,141,5
  74. 820 DATA 212,169,15,141,24,212,169,20,141,1,212
  75. 830 DATA 169,134,141,20,3,169,192,141,21,3,169
  76. 840 DATA 129,141,26,208,169,0,133,3,133,4,133,5
  77. 850 DATA 96,169,1,141,25,208,165,3,208,36,162,4
  78. 860 DATA 160,2,169,0,133,2,185,70,3,157,0,208
  79. 870 DATA 185,100,3,157,1,208,185,80,3,74,38,2
  80. 880 DATA 202,202,136,16,233,165,2,141,16,208,169
  81. 890 DATA 250,141,18,208,173,13,220,41,1,240,3,76
  82. 900 DATA 49,234,76,188,254,165,4,48,25,24,109,60
  83. 910 DATA 3,141,60,3,173,70,3,105,0,141,70,3,173
  84. 920 DATA 80,3,105,0,141,80,3,16,32,73,255,24,105
  85. 930 DATA 1,133,2,173,60,3,56,229,2,141,60,3,173
  86. 940 DATA 70,3,233,0,141,70,3,173,80,3,233,0,141
  87. 950 DATA 80,3,165,5,48,18,24,109,90,3,141,90,3
  88. 960 DATA 173,100,3,105,0,141,100,3,76,48,193,73
  89. 970 DATA 255,24,105,1,133,2,173,90,3,56,229,2
  90. 980 DATA 141,90,3,173,100,3,233,0,141,100,3,96
  91. 990 DATA 173,100,3,201,71,176,7,165,5,16,3,32
  92. 1000 DATA 205,193,201,212,144,7,165,5,48,3,32
  93. 1010 DATA 205,193,173,70,3,201,27,176,15,174,80
  94. 1020 DATA 3,208,10,165,4,16,6,32,172,193,32,185
  95. 1030 DATA 193,201,65,144,15,173,80,3,240,10,165
  96. 1040 DATA 4,48,6,32,172,193,32,185,193,160,1,169
  97. 1050 DATA 2,133,142,173,80,3,217,81,3,208,39,173
  98. 1060 DATA 70,3,56,249,71,3,201,9,144,4,201,247
  99. 1070 DATA 144,24,133,6,173,100,3,56,249,101,3
  100. 1080 DATA 133,7,201,9,144,4,201,247,144,5,132
  101. 1090 DATA 142,32,200,194,136,16,206,96,32,234
  102. 1100 DATA 194,165,4,73,255,24,105,1,133,4,96,173
  103. 1110 DATA 100,3,201,126,144,12,201,157,176,8,173
  104. 1120 DATA 80,3,24,105,1,133,3,96,32,234,194,165
  105. 1130 DATA 5,73,255,24,105,1,133,5,96,162,1,222
  106. 1140 DATA 110,3,240,3,76,193,194,189,120,3,157
  107. 1150 DATA 110,3,189,71,3,133,139,189,81,3,133
  108. 1160 DATA 140,189,101,3,133,141,165,247,208,78
  109. 1170 DATA 224,0,208,74,173,80,3,240,3,56,176,9
  110. 1180 DATA 173,70,3,201,140,176,59,201,40,8,160
  111. 1190 DATA 254,173,100,3,201,141,176,5,56,233,1
  112. 1200 DATA 208,5,24,105,2,208,3,56,233,1,201,74
  113. 1210 DATA 176,5,40,169,253,208,28,201,207,144,5
  114. 1220 DATA 40,169,254,208,19,205,101,3,144,2,160
  115. 1230 DATA 253,152,40,176,8,73,3,76,78,194,189,0
  116. 1240 DATA 220,74,168,176,10,189,101,3,201,72,240
  117. 1250 DATA 3,222,101,3,152,74,168,176,10,189,101
  118. 1260 DATA 3,201,209,240,3,254,101,3,152,74,168
  119. 1270 DATA 176,25,189,71,3,221,245,194,240,17,189
  120. 1280 DATA 71,3,56,233,1,157,71,3,189,81,3,233,0
  121. 1290 DATA 157,81,3,152,74,168,176,25,189,71,3
  122. 1300 DATA 221,247,194,240,17,189,71,3,24,105,1
  123. 1310 DATA 157,71,3,189,81,3,105,0,157,81,3,152
  124. 1320 DATA 74,176,0,32,115,193,228,142,208,15,165
  125. 1330 DATA 139,157,71,3,165,140,157,81,3,165,141
  126. 1340 DATA 157,101,3,202,16,1,96,76,220,193,32
  127. 1350 DATA 234,194,138,72,165,6,24,105,9,170,189
  128. 1360 DATA 19,195,133,4,165,7,24,105,9,170,189,2
  129. 1370 DATA 195,133,5,166,146,134,143,104,170,96
  130. 1380 DATA 169,128,141,4,212,169,129,141,4,212,96
  131. 1390 DATA 35,184,169,54,55,50,39,0,0,1,254,255
  132. 1400 DATA 255,149,149,180,180,210,210,240,0,0,5
  133. 1410 DATA 25,45,75,75,106,106,106,132,138,149
  134. 1420 DATA 160,171,182,193,204,204,215,226,237
  135. 1430 DATA 248,52,67,82,82,97,116,120,0,0,0,0,0,0
  136. 1440 DATA 0,0,0,0,0,0,0,0,0,0,248,0,1,252,0,3
  137. 1450 DATA 254,0,3,254,0,3,254,0,3,254,0,1,252,0
  138. 1460 DATA 0,248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  139. 1470 DATA 0,0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0
  140. 1480 DATA 0,0,0,0,0,254,0,3,255,128,3,255,128,7
  141. 1490 DATA 255,192,7,255,192,7,255,192,7,255,192
  142. 1500 DATA 7,255,192,3,255,128,3,255,128,0,254,0
  143. 1510 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  144. 1520 DATA 165,231,231,231,231,231,231,0,0,0,0
  145. 1530 DATA 231,231,231,231,231,231
  146.