home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503a.d64 / barre (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  4.5 KB  |  156 lines
  1. 70 DIM A(10)
  2. 90 POKE53280,0:POKE53281,0
  3. 100 PRINTCHR$(14)"[147][156]                       '                ";
  4. 110 PRINT"               B A R R E                ";
  5. 120 PRINT"[129]            BY JENS SCHMIDT             [146]";
  6. 130 PRINT" [202]EDER [211]PIELER ERHAELT ZWEI [211]TEINE"
  7. 140 PRINT" DER GLEICHEN [198]ARBE ([211]IE BEKOMMEN DIE"
  8. 150 PRINT" [199]ELBEN)."
  9. 160 PRINT" [193]BWECHSELND ZIEHT NUN JEDER EINEN "
  10. 170 PRINT" SEINER [211]TEINE (DEN [204]INIEN FOLGEND) "
  11. 180 PRINT" VON [208]UNKT ZU [208]UNKT"
  12. 190 PRINT" [205]AN MUSS PROBIEREN DIE [211]TEINE DES"
  13. 200 PRINT" [195]OMPUTERS EINZUSPERREN,DASS DIESER"
  14. 210 PRINT" NICHT MEHR ZIEHEN KANN."
  15. 220 INPUT" [215][197][210] [211][207][204][204] [194][197][199][201][206][206][197][206] (S/C) ";AN$
  16. 230 FORI=1TO10:READ A(I):NEXTI
  17. 250 V=53248:POKEV+21,15:POKEV+40,5:POKEV+39,5:POKEV+41,7:POKEV+42,7
  18. 260 POKE2040,13:POKE2041,13:POKE2042,13:POKE2043,13
  19. 270 FORN=0TO62:READQ:POKE832+N,Q:NEXTN
  20. 275 X=228:Y=110:X1=124:Y1=175:X2=124:Y2=110:X3=228:Y3=175
  21. 280 PRINTCHR$(142)"[147][156]                       '                ";
  22. 285 PRINT"               B A R R E                [146]"
  23. 290 PRINT"[156]           5 [213][201][175]         [175][213][201][160]1"
  24. 300 PRINT"             [202][203][223][146][156][205]       [206][169][146][156][202][203]"
  25. 304 PRINT"                [223][146][156][205]     [206][169] [156] [146]          [156]"
  26. 305 PRINT"             [160]   [223][146][156][205][213][195][201][206][169]  [156] [146]    MEIN  [156]"
  27. 310 PRINT"             [160]    [146] [156][221]3[221]    [156] [146]     ZUG  [156]"
  28. 320 PRINT"             [160]   [146][169][156][206][202][195][203][205][223]  [156] [146]          [156]"
  29. 324 PRINT"             [160]  [146][169][156][206][169]   [223][146][156][205][223] [156] "
  30. 325 PRINT"               [146][169][156][206][169]     [223][146][156][205][223][156] "
  31. 330 PRINT"             [213][201][185][185][185][185][185][185][185][185][185][185][185][213][201]"
  32. 340 PRINT"           4 [202][203][184][184][184][184][184][184][184][184][184][184][184][202][203] 2"
  33. 350 POKEV+0,124:POKEV+1,110:POKEV+2,228:POKEV+3,175:POKEV+4,228:POKEV+5,110
  34. 360 POKEV+6,124:POKEV+7,175:IFAN$="C"THENGOTO620
  35. 370 PRINT"  [158]        "
  36. 375 PRINT"    IHR[160]  "
  37. 376 PRINT"    ZUG   "
  38. 377 PRINT"          "
  39. 380 INPUT"[156]";A
  40. 390 PRINT"ZU "
  41. 400 INPUT A1
  42. 410 IFA>5THEN370
  43. 420 IFA=1THENX4=A(1):Y4=A(2):GOTO470
  44. 430 IFA=2THENX4=A(3):Y4=A(4):GOTO470
  45. 440 IFA=3THENX4=A(5):Y4=A(6):GOTO470
  46. 445 IFA=4THENX4=A(7):Y4=A(8):GOTO470
  47. 450 IFA=5THENX4=A(9):Y4=A(10):GOTO470
  48. 460 IFA<5THEN370
  49. 470 IFX=X4ANDY=Y4THENC=4:D=5:GOTO490
  50. 480 IFX1=X4ANDY1=Y4THENC=6:D=7:GOTO 490
  51. 485 GOTO 370
  52. 490 IFA1=1THENX4=A(1):Y4=A(2):GOTO540
  53. 500 IFA1=2THENX4=A(3):Y4=A(4):GOTO540
  54. 510 IFA1=3THENX4=A(5):Y4=A(6):GOTO540
  55. 520 IFA1=4THENX4=A(7):Y4=A(8):GOTO540
  56. 530 IFA1=5THENX4=A(9):Y4=A(10):GOTO540
  57. 535 GOTO 370
  58. 540 IFPEEK(V+0)=X4 AND PEEK(V+1)=Y4THEN370
  59. 550 IFPEEK(V+2)=X4 AND PEEK(V+3)=Y4THEN370
  60. 560 IFPEEK(V+4)=X4 AND PEEK(V+5)=Y4THEN370
  61. 570 IFPEEK(V+6)=X4 AND PEEK(V+7)=Y4THEN370
  62. 580 IFA-A1=-3 OR A-A1=-4THEN370
  63. 585 IFA=4ANDA1=1THEN370
  64. 590 IFD=5 THEN X=X4:Y=Y4:GOTO610
  65. 600 X1=X4:Y1=Y4
  66. 610 POKEV+C,X4:POKEV+D,Y4
  67. 620 FORI=1TO10STEP2
  68. 630 IFPEEK(V+0)=A(I)ANDPEEK(V+1)=A(I+1)THENNEXTI
  69. 640 IFPEEK(V+2)=A(I)ANDPEEK(V+3)=A(I+1)THENNEXTI
  70. 650 IFPEEK(V+4)=A(I)ANDPEEK(V+5)=A(I+1)THENNEXTI
  71. 660 IFPEEK(V+6)=A(I)ANDPEEK(V+7)=A(I+1)THENNEXTI
  72. 670 F=I:I=10:NEXTI
  73. 680 IFF=1THENX5=A(1):Y5=A(2):GOTO730
  74. 690 IFF=3THENX5=A(3):Y5=A(4):F=2:GOSUB3000:GOTO730
  75. 700 IFF=5THENX5=A(5):Y5=A(6):F=3:GOSUB3000:GOTO730
  76. 710 IFF=7THENX5=A(7):Y5=A(8):F=4:GOSUB3000:GOTO730
  77. 720 IFF=9THENX5=A(9):Y5=A(10):F=5:GOSUB3000:GOTO730
  78. 730 FORI=1TO10STEP2
  79. 740 IFPEEK(V+0)=A(I)ANDPEEK(V+1)=A(I+1)THENG=I:GOTO755
  80. 750 NEXTI
  81. 755 IFI=1THENI=1:GOTO800
  82. 760 IFI=3THENI=2:GOTO800
  83. 770 IFI=5THENI=3:GOTO800
  84. 780 IFI=7THENI=4:GOTO800
  85. 790 IFI=9THENI=5:GOTO800
  86. 800 IFF-I=-3THEN850
  87. 810 IFF-I=-4THEN850
  88. 815 IFF-I=4THEN850
  89. 816 IFI-F=-3THEN850
  90. 820 X2=X5:Y2=Y5
  91. 821 FORII=1TO3:POKEV+0,A(G):POKEV+1,A(G+1):FORZ=1TO200:NEXTZ
  92. 822 POKEV+0,0:POKEV+1,0:FORZ=1TO200:NEXTZ:NEXTII
  93. 825 FORII=1TO3:POKEV+0,0:POKEV+1,0:FORZ=1TO200:NEXTZ
  94. 830 POKEV+0,X5:POKEV+1,Y5:FORZ=1TO200:NEXTZ:NEXTII
  95. 835 PRINT""
  96. 840 PRINTSPC(28)" ";I;" ZU ";F:GOTO 2000
  97. 850 FORI=1TO10STEP2
  98. 860 IFPEEK(V+2)=A(I)ANDPEEK(V+3)=A(I+1)THEN871
  99. 870 NEXTI
  100. 871 FORII=1TO3:POKEV+2,A(I):POKEV+3,A(I+1):FORZ=1TO200:NEXTZ
  101. 872 POKEV+2,0:POKEV+3,0:FORZ=1TO200:NEXTZ:NEXTII
  102. 875 IFI=1THENI=1:GOTO920
  103. 880 IFI=3THENI=2:GOTO920
  104. 890 IFI=5THENI=3:GOTO920
  105. 900 IFI=7THENI=4:GOTO920
  106. 910 IFI=9THENI=5:GOTO920
  107. 920 IFF-I=-3THEN GOTO970
  108. 930 IFF-I=-4THEN GOTO970
  109. 935 IFF-I= 4THEN GOTO970
  110. 936 IFI-F=-3THEN GOTO970
  111. 940 X3=X5:Y3=Y5
  112. 945 FORII=1TO3:POKEV+2,0:POKEV+3,0:FORZ=1TO200:NEXTZ
  113. 950 POKEV+2,X5:POKEV+3,Y5:FORZ=1TO200:NEXTZ:NEXTII
  114. 954 PRINT""
  115. 955 PRINTSPC(28)" ";I;" ZU ";F
  116. 960 GOTO 2000
  117. 970 PRINT"[147] GRATULIERE,SIE HABEN GEWONNEN!!"
  118. 980 PRINT" GEBEN SIE MIR EINE REVANCHE (J/N) "
  119. 990 GETA$:IFA$=""THEN990
  120. 995 IFA$="J"THEN275
  121. 996 IFA$="N"THENPRINT"[147]":END
  122. 997 GOTO990
  123. 1000 REM DATA'S FUER STEINSETZEN
  124. 1010 DATA 228,110,228,175,180,142,124,175,124,110
  125. 1020 REM DATA'S FUER SPRITES
  126. 1030 DATA 0,0,0,0,0,0,0,0,0,0
  127. 1040 DATA 0,0,0,0,0,0,0,0,0,0
  128. 1050 DATA 0,0,0,0,0,0,0,0,0,0
  129. 1060 DATA 0,0,0,1,255,0,3,255,128
  130. 1070 DATA 3,255,128,3,207,128,3,207,128,3,207,128,3,207,128
  131. 1080 DATA 3,205,128,3,204,128,3,204,128
  132. 2000 IF X=228ANDY=110ANDX1=228ANDY1=175 THEN 2050
  133. 2010 IF X=228ANDY=175ANDX1=228ANDY1=110 THEN 2050
  134. 2020 IF X=124ANDY=175ANDX1=124ANDY1=110 THEN 2070
  135. 2030 IF X=124ANDY=110ANDX1=124ANDY1=175 THEN 2070
  136. 2040 GOTO 370
  137. 2050 IF X2=180ANDY2=142ANDX3=124ANDY3=175 THEN 2100
  138. 2060 IF X2=124ANDY2=175ANDX3=180ANDY3=142 THEN 2100
  139. 2065 GOTO 370
  140. 2070 IF X2=228ANDY2=175ANDX3=180ANDY3=142 THEN 2100
  141. 2080 IF X2=180ANDY2=142ANDX3=228ANDY3=175 THEN 2100
  142. 2090 GOTO 370
  143. 2100 PRINT"[147]"
  144. 2110 PRINT" SIE HABEN VERLOREN ."
  145. 2120 PRINT" WOLLEN SIE EINE REVANCHE (J/N)"
  146. 2130 GETA$:IFA$=""THEN2130
  147. 2140 IFA$="J"THEN275
  148. 2150 IFA$="N"THENPRINT"[147]":END
  149. 2160 GOTO2130
  150. 3000 IF Y=110 OR Y=175 ANDX=124 AND Y1=110 OR Y1=175 ANDX1=124 THEN 3500
  151. 3020 RETURN
  152. 3500 IFX=228THENRETURN
  153. 3510 IFX2=180ANDY2=142ANDX3=228ANDY3=110THEN 850
  154. 3520 IFX2=228ANDY2=175THEN 850
  155. 3530 RETURN
  156.