home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 October / 64er_Magazin_88-10_1988_Markt__Technik_de_Side_A.d64 / pailgame (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  196 lines
  1. 2 poke51,.:poke52,158:poke55,.:poke56,158:poke808,225:dim c(1),c1(1)
  2. 5 print"[147][144]":fort=.to4:reada:poke53280+t,a:next:c(0)=2:c(1)=7:c1(0)=5:c1(1)=8
  3. 10 ifpeek(49152)=76then500
  4. 20 fort=828to903:readc:poket,c:next
  5. 25 data12,12,5,2,7
  6. 30 data120,169,51,133,1,169,208,162,,133,35,134,34,169,224,133,37,134,36,162,17
  7. 40 data160,,177,34,145,36,200,208,249,230,37,230,35,202,208,240,169,55,133,1,88
  8. 50 data96
  9. 60 data169,1,162,208,160,255,32,189,255,169,1,162,8,160,,32,186,255,32,192,255
  10. 70 data176,2,169,,133,255,169,1,32,195,255,96
  11. 75 sys828
  12. 80 sys871:ifpeek(255)=.then110
  13. 90 print"[147]"spc(7)"bitte floppy einschalten !!!"
  14. 100 printspc(14)"( taste )":poke198,0:wait198,1:goto80
  15. 110 gosub400:ifa<>.then80
  16. 120 sys57812"57344 zeichens.",8,1:poke780,0:sys65493
  17. 130 gosub400:ifa<>.then80
  18. 140 sys57812"49152 mp",8,1:poke780,0:sys65493
  19. 150 gosub400:ifa<>.then80
  20. 180 goto500
  21. 200 data"                [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
  22. 201 data"                [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
  23. 202 data"                [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
  24. 203 data"[169]            [151][223][146][144]   [201]   [201]   [201]   [201]   [201]   [201]"
  25. 204 data"[151] [146]             [146][144]  [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
  26. 205 data"[151] [146]    the[151]      [146][144]  [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
  27. 206 data"[151] [146]    [193][193][193]      [146][144]  [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
  28. 207 data"[151] [146]  pailgame[151]   [146][144]   [201]   [201]   [201]   [201]   [201]   [201]"
  29. 208 data"[151] [146] [193][193][193][193][193][193][193][193][193][193]  [146][144]  [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
  30. 209 data"[151][223][155]            [146][169][144]  [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
  31. 210 data"                [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
  32. 211 data"-von e.schwan[144]-   [201]   [201]   [201]   [201]   [201]   [201]"
  33. 212 data"                [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
  34. 213 data"                [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
  35. 214 data"                [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
  36. 215 data"                 [201]   [201]   [201]   [201]   [201]   [201]"
  37. 216 data"[193][193][193][193][193][193][193][193][193][193][193][193][193][193][193] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
  38. 217 data"                [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
  39. 218 data"                [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
  40. 219 data"    [172][162][162][162][162][162][162][187]     [201]   [201]   [201]   [201]   [201]   [201]"
  41. 220 data"    [151][161][146]- [149]00[151] -[161][144]    [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
  42. 221 data"    [155][188][162][162][162][162][162][162][146][190][144]    [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
  43. 222 data"                [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
  44. 223 data
  45. 400 poke53265,11:open1,8,15:input#1,a,b$:close1:ifa=.thenreturn
  46. 410 poke53265,27:print"[147]disk error :"a" "b$
  47. 420 poke198,0:wait198,1:return
  48. 500 jo=56320:poke53265,11:poke56576,4:poke53272,57:poke648,204:print"[147]":mo=.
  49. 511 print"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][187]";
  50. 512 print"[161]*                                    *[161][146]";
  51. 513 print"[161]             the pailgame             [161][146]";
  52. 514 print"[161]             [183][183][183][183][183][183][183][183][183][183][183][183]             [161][146]";
  53. 515 print"[161]                                      [161][146]";
  54. 516 print"[161][158]  sinn des spieles ist es, alle       [144][161][146]";
  55. 517 print"[161][158]  felder des 6 x 6 spielplanes zu     [144][161][146]";
  56. 518 print"[161][158]  erobern.                            [144][161][146]";
  57. 519 print"[161][149]  das besetzen eines feldes erreicht  [144][161][146]";
  58. 520 print"[161][149]  man durch setzen eines punktes mit  [144][161][146]";
  59. 521 print"[161][149]  dem cursor.                         [144][161][146]";
  60. 522 print"[161][158]  jedes feld kann mit mehreren punk-  [144][161][146]";
  61. 523 print"[161][158]  ten aufgefuellt werden.             [144][161][146]";
  62. 524 print"[161][149]  ist das feld jedoch ueberfuellt,so  [144][161][146]";
  63. 525 print"[161][149]  lauft es ueber und verteilt die     [144][161][146]";
  64. 526 print"[161][149]  punkte auf die umliegenden felder.  [144][161][146]";
  65. 527 print"[161][158]  dadurch lassen sich auch die fel-   [144][161][146]";
  66. 528 print"[161][158]  der des gegners erobern, da die     [144][161][146]";
  67. 529 print"[161][158]  ubergelaufenen punkte die benach-   [144][161][146]";
  68. 530 print"[161][158]  barten felder besetzen.             [144][161][146]";
  69. 531 print"[161]                                      [161][146]";
  70. 532 print"[161]                                      [161][146]";
  71. 533 print"[161]            weiter mit fire           [161][146]";
  72. 534 print"[161]*                                    *[161][146]";
  73. 535 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][145]";:poke53223,126:poke56295,.
  74. 540 poke53265,27:ifpeek(jo)<>111then540
  75. 545 p$=""
  76. 550 printp$"":a=6:e=20
  77. 555 printspc(a)"             "spc(e+1);
  78. 560 printspc(a)" 1 spieler _ [144] "spc(e);
  79. 565 printspc(a)" 2 spieler   [144] "spc(e);
  80. 570 printspc(a)" - demo -    [144] "spc(e);
  81. 575 printspc(a)"   ende      [144] "spc(e);
  82. 580 printspc(a)"             [144] "spc(e);
  83. 585 printspc(a+1)"             "
  84. 590 t=0:a=52601:x=0
  85. 595 ifpeek(jo)=111then595
  86. 600 pokea+x*40,159:t=t+1:ifpeek(jo)=111then710
  87. 610 ifpeek(jo)<>127thengosub670
  88. 620 ift<>10then600
  89. 630 pokea+x*40,160:t=t-1:ifpeek(jo)=111then710
  90. 640 ifpeek(jo)<>127thengosub670
  91. 650 iftthen630
  92. 660 goto600
  93. 670 j=peek(jo):ifj<>126then690
  94. 680 ifx<>0thenpokea+x*40,160:x=x-1
  95. 685 goto705
  96. 690 ifj<>125thenreturn
  97. 700 ifx<>3thenpokea+x*40,160:x=x+1
  98. 705 ifpeek(jo)<>127then705
  99. 707 return
  100. 710 pokea+40*x,159:onx+1goto750,730,3000,720
  101. 720 poke56334,0:poke788,49:poke789,234:poke648,4:poke53272,21:poke56576,7
  102. 725 poke56334,1:poke53269,0:poke54296,.:poke808,237:print"[147][144]":end
  103. 730 gosub850:poke52769,177:gosub820:n$(0)=a$
  104. 740 gosub850:poke52769,178:gosub820:n$(1)=a$:poke49570,0:goto900
  105. 750 gosub850:poke52770,160:gosub820:n$(0)=a$:poke49570,128:goto1000
  106. 810 rem
  107. 820 print"";:s=0
  108. 823 poke52885+s,227:geta$:ifa$=""then823
  109. 826 ifa$<" "ora$>"z"then833
  110. 830 ifs<10thenprint"[159]"a$;:poke52885+s,160:s=s+1:goto823
  111. 833 ifa$=chr$(13)thenifsthen845
  112. 834 ifa$=chr$(20)thenifsthenprint"[157] [157]";:poke52885+s,160:s=s-1:goto823
  113. 840 goto823
  114. 845 sys50479,52845,s,a$:return
  115. 849 :
  116. 850 printp$"[159]":a=15:e=3
  117. 860 printspc(a)"                     "spc(e+1);
  118. 865 printspc(a)" name des  .spielers [144] [159]"spc(e);
  119. 870 printspc(a)"                     [144] [159]"spc(e);
  120. 875 printspc(a)"    *            *   [144] [159]"spc(e);
  121. 880 printspc(a)"                     [144] [159]"spc(e);
  122. 885 printspc(a)"                     [144] "spc(e);
  123. 890 printspc(a+1)"                     "
  124. 895 return
  125. 900 ifmothen1000
  126. 905 mo=1:print"[153]":a=10:e=2
  127. 910 printspc(a)"                           "spc(e+1);
  128. 920 printspc(a)"  2 joysticks vorhanden ?  [144] [153]"spc(e);
  129. 930 printspc(a)"         (j/n)             [144] [153]"spc(e);
  130. 940 printspc(a)"                           [144] [153]"spc(e);
  131. 950 printspc(a+1)"[144]                           "
  132. 960 geta$:ifa$<>"j"anda$<>"n"then960
  133. 970 ifa$="j"thenja=2:goto1000
  134. 980 ja=1
  135. 990 :
  136. 1000 print"[144][147]":poke53265,27
  137. 1010 print"";:poke63,70:poke64,0:poke65,209:poke66,9
  138. 1020 fort=0to22:reada$:printa$:next
  139. 1030 sys49155:poke49816,0:poke53248,152:poke53249,59:poke53240,47:poke53269,1
  140. 1035 poke53264,0:poke53287,1:fort=.to3:poke50587+t,.:next
  141. 1040 s=int(rnd(ti)*2):ifs=1then1060
  142. 1050 sys50866:s=.:gosub1500:ifpeek(254)then2000
  143. 1060 s=1:onx+1goto1100,1065
  144. 1065 ifja=2thensys50874
  145. 1070 gosub1500:ifpeek(254)then2000
  146. 1080 goto1050
  147. 1099 rem computerzug
  148. 1100 sys49152,1:ifpeek(254)then2500
  149. 1110 goto1050
  150. 1120 :
  151. 1500 print"[159]                [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"n$(s)"'s zug"
  152. 1510 sys50747:geta$:ifa$=chr$(133)then2110
  153. 1515 sys49757:sys49152,s,peek(50587)+6*peek(50588)
  154. 1520 ifpeek(253)=.then1510
  155. 1530 return
  156. 2000 print"[153]":a=10:e=8:a$="           ":poke53269,0
  157. 2010 printspc(a)"                     "spc(e+1);
  158. 2020 printspc(a)" bravo, "n$(s);left$(a$,11-len(n$(s)))"   [144] [153]"spc(e);
  159. 2030 printspc(a)"                     [144] [153]"spc(e);
  160. 2040 printspc(a)" du hast gewonnen !! [144] [153]"spc(e);
  161. 2050 printspc(a)"                     [144] [153]"spc(e);
  162. 2060 printspc(a)"  weiter mit fire !  [144] [153]"spc(e);
  163. 2070 printspc(a)"                     [144] "spc(e);
  164. 2080 printspc(a+1)"                     "
  165. 2100 ifpeek(jo)<>111andpeek(jo+1)<>239then2100
  166. 2110 p$="":poke56334,0:poke788,49:poke789,234:poke56334,1
  167. 2120 goto550
  168. 2130 :
  169. 2499 rem computer gewinnt
  170. 2500 print"[153]":a=10:e=8:a$="           ":poke53269,0
  171. 2510 printspc(a)"                     "spc(e+1);
  172. 2520 printspc(a)"  tja, "n$(s);left$(a$,11-len(n$(s)))"    [144] [153]"spc(e);
  173. 2530 printspc(a)"                     [144] [153]"spc(e);
  174. 2540 printspc(a)"  leider verloren.   [144] [153]"spc(e);
  175. 2550 printspc(a)"                     [144] [153]"spc(e);
  176. 2560 printspc(a)"  weiter mit fire !  [144] [153]"spc(e);
  177. 2570 printspc(a)"                     [144] "spc(e);
  178. 2580 printspc(a+1)"                     "
  179. 2590 ifpeek(jo)<>111andpeek(jo+1)<>239then2590
  180. 2600 p$="":poke56334,0:poke788,49:poke789,234:poke56334,1
  181. 2610 goto550
  182. 3000 print"[144][147]":poke53265,27:n$(0)="karl":n$(1)="jupp":poke49570,128
  183. 3010 print"";:poke63,70:poke64,0:poke65,209:poke66,9
  184. 3020 fort=0to22:reada$:printa$:next
  185. 3030 sys49155:poke49816,0
  186. 3035 fort=.to3:poke50587+t,.:next
  187. 3040 s=int(rnd(ti)*2):ifs=1then3060
  188. 3050 poke49568,7:poke49567,2:s=.:gosub3500:ifpeek(254)then3100
  189. 3060 poke49568,2:poke49567,7:s=1:gosub3500:ifpeek(254)then3100
  190. 3070 goto3050
  191. 3100 poke49568,7:poke49567,2:goto2000
  192. 3120 :
  193. 3500 print"[159]                [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"n$(s)"'s zug"
  194. 3510 sys49152,1:sys49757
  195. 3520 forq=0to600:next:return
  196.