home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 January / 1986-01.d64 / face-off (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  7KB  |  145 lines
  1. 100 bd=53280:bk=53281:pokebd,1:pokebk,1:print"[147]":gosub690
  2. 110 print""spc(6)"reading data... please wait"
  3. 120 fora=49152to49958:readb:c=c+b:pokea,b:nexta:ifc=86769then140
  4. 130 print"[147]error in data lines 790-1210":stop
  5. 140 fora=14336to14463:readb:pokea,b:next:poke53287,2:poke53288,3
  6. 150 ml$="[162]"+chr$(8)+"[189]<"+chr$(3)+"[149]x[202]"+chr$(16)+chr$(248)+"l[191][163]":poke835,0
  7. 160 poke836,208:poke830,0:poke831,216:poke828,0:poke829,56:poke56334,0
  8. 170 poke1,51:ml$=ml$:sys(peek(51)+256*peek(52)):poke1,55:poke56334,1
  9. 180 fori=12552to12559:readj:pokei,j:next:fori=12568to12575:readj:pokei,j:next
  10. 190 fori=0to15:poke54296,i:next:fori=0to23:poke54272+i,0:next
  11. 200 bd=53280:bk=53281:pokebd,1:pokebk,1:poke3,1:gosub690:poke53272,28
  12. 210 poke53274,129:h$="[152]                    ":gosub680
  13. 220 print""tab(6)"                           [154][145]"
  14. 230 printtab(7)"[1]  or  [2]  players  [166][157]";:poke204,0
  15. 240 poke198,0:wait198,1:geta$:ifa$<"1"ora$>"2"then240
  16. 250 poke204,1:poke207,0:printa$
  17. 260 np=val(a$)-1:poke247,np:printtab(9)"what speed [1-3]  [166][157]";:poke204,0
  18. 270 poke198,0:wait198,1:geta$:ifa$<"1"ora$>"3"then270
  19. 280 poke204,1:poke207,0:printa$:poke146,31-val(a$)*10:ifnp=1then320
  20. 290 printtab(9)"what level [1-9]  [166][157]";:poke204,0
  21. 300 poke198,0:wait198,1:geta$:ifa$<"1"ora$>"9"then300
  22. 310 poke204,1:poke207,0:printa$:poke890,100-val(a$)*10
  23. 320 dn$="":co$="[152]                                        "
  24. 330 do$="                                        ":pokebd,12:pokebk,14
  25. 340 print"[147]":fori=1to18:printdo$;:next:print"";:fori=1to3:printco$;:next
  26. 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]";
  27. 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)
  28. 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)
  29. 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]";
  30. 390 printspc(15)"[180] [144] [152][180][170][144]  [167]"spc(16)"[194]"spc(15)"[180] [144] [152][180][170][144]  [170]                [194]";
  31. 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)
  32. 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)
  33. 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);
  34. 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
  35. 440 printco$;:next:print"                                       "
  36. 450 poke2023,160:poke56295,12:print"[146]"spc(6)"score 0"spc(15)"score 0"dn$
  37. 460 printspc(16)"[145][145][145][145][145][145][145][145]    [194]    [146]";:printspc(68)"f a c e - o f f"
  38. 470 poke839,50:poke840,39:poke849,0:poke850,1:fora=868to870:pokea,140:next
  39. 480 ifpeek(3)=1thenpoke838,np*25+55:poke848,0
  40. 490 ifpeek(3)=2thenpoke838,9:poke848,1
  41. 500 poke53269,15:sys49152:poke53269,14:gosub660:a=peek(3):sc(a)=sc(a)+1
  42. 510 print""tab(11)sc(2)spc(19)sc(1):ifsc(1)+sc(2)<9then470
  43. 520 poke53269,0
  44. 530 print""spc(16)"game[194]over":printdn$""spc(8)h$dn$:v=60
  45. 540 a$="press fire button to play again":fori=1to16:gosub640:gosub650:nexti
  46. 550 ifpeek(56320)andpeek(56321)and16then550
  47. 560 printdn$:a$="[152] [146]press fire button to play again[152] [146]":v=63
  48. 570 fori=20to0step-1:gosub640:print"[145]";:gosub650:nexti
  49. 580 poke53274,128:poke53269,0:printdn$"[152]  [146]up to change options";
  50. 590 print" / down to play"
  51. 600 if(peek(56320)andpeek(56321)and2)<>2thensc(1)=0:sc(2)=0:poke3,1:goto630
  52. 610 if(peek(56320)andpeek(56321)and1)<>1thenprint"[147]":run200
  53. 620 goto600
  54. 630 printdn$""h$"                 ":goto450
  55. 640 poke214,22:printchr$(13)"[145]";:printtab(v-i)left$(a$,i)right$(a$,i):return
  56. 650 forz=1to30:nextz:return
  57. 660 poke54277,20:form=1to5:fors=20to90step10:poke54273,s:poke54272,s+30
  58. 670 poke54276,32:poke54276,33:pokebk,s:nexts,m:pokebk,14:return
  59. 680 poke53289,7:poke2040,224:poke2041,225:poke2042,225:return
  60. 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);
  61. 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]  ";
  62. 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]  ";
  63. 720 print"[188][190][188][190] [162][162][146] [188][162][162][146][190]     [162][162][146] [188][190]  [188][190]":return
  64. 730 data 32,45,192,32,218,193,198,251,208,13,165
  65. 740 data 143,133,251,32,197,192,32,49,193,32,28
  66. 750 data 192,165,3,240,232,96,198,144,208,12,169
  67. 760 data 130,133,144,165,143,201,45,240,2,230
  68. 770 data 143,96,160,1,169,20,153,110,3,153,120,3
  69. 780 data 136,16,245,165,247,208,6,173,122,3,141
  70. 790 data 120,3,169,27,141,17,208,162,127,142,13
  71. 800 data 220,232,142,15,212,142,18,212,160,23
  72. 810 data 169,0,153,0,212,136,16,248,169,1,141,5
  73. 820 data 212,169,15,141,24,212,169,20,141,1,212
  74. 830 data 169,134,141,20,3,169,192,141,21,3,169
  75. 840 data 129,141,26,208,169,0,133,3,133,4,133,5
  76. 850 data 96,169,1,141,25,208,165,3,208,36,162,4
  77. 860 data 160,2,169,0,133,2,185,70,3,157,0,208
  78. 870 data 185,100,3,157,1,208,185,80,3,74,38,2
  79. 880 data 202,202,136,16,233,165,2,141,16,208,169
  80. 890 data 250,141,18,208,173,13,220,41,1,240,3,76
  81. 900 data 49,234,76,188,254,165,4,48,25,24,109,60
  82. 910 data 3,141,60,3,173,70,3,105,0,141,70,3,173
  83. 920 data 80,3,105,0,141,80,3,16,32,73,255,24,105
  84. 930 data 1,133,2,173,60,3,56,229,2,141,60,3,173
  85. 940 data 70,3,233,0,141,70,3,173,80,3,233,0,141
  86. 950 data 80,3,165,5,48,18,24,109,90,3,141,90,3
  87. 960 data 173,100,3,105,0,141,100,3,76,48,193,73
  88. 970 data 255,24,105,1,133,2,173,90,3,56,229,2
  89. 980 data 141,90,3,173,100,3,233,0,141,100,3,96
  90. 990 data 173,100,3,201,71,176,7,165,5,16,3,32
  91. 1000 data 205,193,201,212,144,7,165,5,48,3,32
  92. 1010 data 205,193,173,70,3,201,27,176,15,174,80
  93. 1020 data 3,208,10,165,4,16,6,32,172,193,32,185
  94. 1030 data 193,201,65,144,15,173,80,3,240,10,165
  95. 1040 data 4,48,6,32,172,193,32,185,193,160,1,169
  96. 1050 data 2,133,142,173,80,3,217,81,3,208,39,173
  97. 1060 data 70,3,56,249,71,3,201,9,144,4,201,247
  98. 1070 data 144,24,133,6,173,100,3,56,249,101,3
  99. 1080 data 133,7,201,9,144,4,201,247,144,5,132
  100. 1090 data 142,32,200,194,136,16,206,96,32,234
  101. 1100 data 194,165,4,73,255,24,105,1,133,4,96,173
  102. 1110 data 100,3,201,126,144,12,201,157,176,8,173
  103. 1120 data 80,3,24,105,1,133,3,96,32,234,194,165
  104. 1130 data 5,73,255,24,105,1,133,5,96,162,1,222
  105. 1140 data 110,3,240,3,76,193,194,189,120,3,157
  106. 1150 data 110,3,189,71,3,133,139,189,81,3,133
  107. 1160 data 140,189,101,3,133,141,165,247,208,78
  108. 1170 data 224,0,208,74,173,80,3,240,3,56,176,9
  109. 1180 data 173,70,3,201,140,176,59,201,40,8,160
  110. 1190 data 254,173,100,3,201,141,176,5,56,233,1
  111. 1200 data 208,5,24,105,2,208,3,56,233,1,201,74
  112. 1210 data 176,5,40,169,253,208,28,201,207,144,5
  113. 1220 data 40,169,254,208,19,205,101,3,144,2,160
  114. 1230 data 253,152,40,176,8,73,3,76,78,194,189,0
  115. 1240 data 220,74,168,176,10,189,101,3,201,72,240
  116. 1250 data 3,222,101,3,152,74,168,176,10,189,101
  117. 1260 data 3,201,209,240,3,254,101,3,152,74,168
  118. 1270 data 176,25,189,71,3,221,245,194,240,17,189
  119. 1280 data 71,3,56,233,1,157,71,3,189,81,3,233,0
  120. 1290 data 157,81,3,152,74,168,176,25,189,71,3
  121. 1300 data 221,247,194,240,17,189,71,3,24,105,1
  122. 1310 data 157,71,3,189,81,3,105,0,