home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 87xx / 8709b.d64 / belagerung (.txt) next >
Commodore BASIC  |  1995-03-30  |  10KB  |  312 lines
  1. 0 REM     COPYRIGHT BY : FRANK ABBING
  2. 1 REM
  3. 2 REM    4422 AHAUS, MARGARETHENSTR.13
  4. 3 REM
  5. 4 EI=255
  6. 5 Z1$="ABCDEF":Z2$="12345678":Z3$="234567"
  7. 10 POKE53280,11:POKE53281,11:PRINT"[147][158]"
  8. 15 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3:W=SI+4:A=SI+5:H=SI+6:L=SI+24
  9. 16 POKEL,15:POKETH,8:POKETL,8:POKEA,0:POKEH,240:POKEW,0
  10. 17 POKETH+7,8:POKETL+7,8:POKEA+7,0:POKEH+7,240:POKEW+7,0
  11. 20 FORA=828TO828+45:READB:POKEA,B:NEXT
  12. 25 SYS828:VC=53248:CI=56576:POKEVC+24,8+48
  13. 27 POKECI,PEEK(CI)AND252:POKE648,204
  14. 30 PRINT"[147]"
  15. 32 REM *** ZEICHENSATZ VERSCHIEBEN ***
  16. 35 DATA234,165,1,120,41,251,133,1,160,0,132,251,132,253,169,208,133,252,169,224
  17. 40 DATA133,254,162,16,177,251,145,253,200,208,249,230,252,230,254,202,208,242
  18. 45 DATA165,1,9,4,133,1,88,96
  19. 50 AD=57344
  20. 55 READX:IFX=-1THEN410
  21. 60 CG=AD+X*8:FORI=0TO7:READQ:POKECG+I,Q:NEXT:GOTO55
  22. 65 REM *** DATAS FUER NEUE ZEICHEN ***
  23. 70 DATA0,255,255,255,255,255,255,255,255
  24. 80 DATA85,7,31,63,127,127,255,255,255
  25. 90 DATA74,255,255,255,127,127,63,31,7
  26. 100 DATA112,248,224,192,128,128,0,0,0
  27. 110 DATA109,0,0,0,128,128,192,224,248
  28. 120 DATA73,224,248,252,254,254,255,255,255
  29. 130 DATA75,255,255,255,254,254,252,248,224
  30. 140 DATA110,31,7,3,1,1,0,0,0
  31. 150 DATA125,0,0,0,1,1,3,7,31
  32. 160 DATA28,60,66,153,161,161,153,66,60
  33. 170 DATA65,0,255,255,255,255,255,255,255
  34. 180 DATA83,255,255,255,255,255,255,255,0
  35. 190 DATA90,127,127,127,127,127,127,127,127
  36. 200 DATA88,254,254,254,254,254,254,254,254
  37. 210 DATA76,127,127,127,127,127,127,127,0
  38. 220 DATA79,0,127,127,127,127,127,127,127
  39. 230 DATA80,0,254,254,254,254,254,254,254
  40. 240 DATA122,254,254,254,254,254,254,254,0
  41. 250 DATA31,127,127,127,126,125,125,126,126
  42. 260 DATA30,255,227,235,107,170,221,247,221
  43. 270 DATA94,255,255,255,63,223,223,191,191
  44. 280 DATA91,93,107,107,182,190,190,128,255
  45. 290 DATA86,127,127,127,255,255,255,255,255
  46. 300 DATA35,0,255,255,255,255,255,255,231
  47. 305 DATA38,255,255,255,255,255,255,255,231
  48. 310 DATA37,231,255,255,255,255,255,255,255
  49. 400 DATA-1
  50. 405 REM *** SPRITE DATEN EINLESEN ***
  51. 410 POKE53240,0:V=53248:POKE53241,1:POKE53242,1:POKE53243,1:POKE53244,2
  52. 411 POKE53245,2:POKE53246,2:POKE53247,2
  53. 412 FORN=0TO62:READQ:POKE49152+N,Q:NEXT
  54. 414 FORN=0TO62:READQ:POKE49216+N,Q:NEXT
  55. 416 FORN=0TO62:READQ:POKE49280+N,Q:NEXT
  56. 420 POKEV+0,120:POKEV+1,146:POKEV+39,0
  57. 430 POKEV+2,120:POKEV+3,162:POKEV+40,0
  58. 440 POKEV+4,104:POKEV+5,162:POKEV+41,0
  59. 450 POKEV+6,88:POKEV+7,162:POKEV+42,0
  60. 460 POKEV+8,120:POKEV+9,178:POKEV+43,0
  61. 470 POKEV+10,104:POKEV+11,178:POKEV+44,0
  62. 480 POKEV+12,88:POKEV+13,178:POKEV+45,0
  63. 490 POKEV+14,72:POKEV+15,178:POKEV+46,0
  64. 495 DIMM1(26),M2(26),M3(26):FORP=1TO25:READM1(P),M2(P),M3(P):NEXT
  65. 500 NA$(1)="":NA$(2)=""
  66. 505 REM *** VORSPANN ***
  67. 510 PRINT"[147]"
  68. 560 PRINT"[145][144][164][164][164] [164][164][164][164][164][164][164]   [164]   [164][164][164][164][164][164]
  69. 570 [153]"PRINT#^@^RIGHT$^@OR^^@OR  (null)ORRIGHT$ (null)OR^^@OR^
  70. 580 PRINT"[155] @[189][203] @[173]  @   @[185]@ @   @[173]
  71. 590 [153]"OPEN @^RIGHT$ @OR  @   @USR@ @^@ @OR
  72. 600 PRINT"[189]@[189][203][189]@[173][189][189]@[173][189][189]@ @[173][202][173][203][189]@[173][189]
  73. 611 [153]"TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB( TAB( TAB(TAB(TAB(TAB( 
  74. 620 PRINTTAB(24)"[145][144][164][164][164] [164][164] [164][164][164] [164][164] [164][164]
  75. 630 [153][163]24)"ONPRINT#^@^RIGHT$^@ @OR@/@OR(null)OR^
  76. 640 PRINTTAB(24)"[145][155] @[189][203] @ @ @@@ @
  77. 650 [153][163]24)"OPEN @^RIGHT$ @ @ @^@ @^@
  78. 660 PRINTTAB(24)"[145][189]@ @[173][202][173][203][189]@ @ [202][173][203]
  79. 670 [153][163]24)"ONTAB(TAB( TAB(TAB( TAB( TAB(TAB( TAB(  TAB(
  80. 680 PRINT"[158]\ EIN STRATEGIE-SPIEL VON FRANK ABBING \[155]
  81. 682 [153]""[163]15)"1 BURGHERR"
  82. 684 [153]""[163]15)"3 LANDSKNECHTE"
  83. 686 [153]""[163]15)"4 RITTERONONONONONONONONONON"
  84. 690 [151]V[170]21,255:Q3[178]Q3[170]1:[139]Q3[178]1[167][141]7000
  85. 691 [153]"PRINT# BITTE NAMEN EINGEBEN (1-5 BUCHSTABEN)LIST
  86. 692 INPUT" NAME VON SPIELER 1 (REITER) ";NA$(1)
  87. 693 IFNA$(1)=""THEN692
  88. 694 IFLEN(NA$(1))>5THEN500
  89. 695 INPUT" NAME VON SPIELER 2  (BURG)  ";NA$(2)
  90. 696 PRINT""
  91. 700 IFNA$(2)=""THEN695
  92. 705 IFLEN(NA$(2))>5THEN500
  93. 710 NA$(1)=LEFT$(NA$(1),5)
  94. 720 NA$(2)=LEFT$(NA$(2),5)
  95. 725 IFNA$(1)=NA$(2)THEN500
  96. 730 PRINT"[158]                                        "
  97. 732 REM *** SPRITEAUSGANGSSTELLUNG ***
  98. 735 POKEV+21,0
  99. 740 POKEV+0,185:POKEV+1,114:POKEV+2,161:POKEV+3,130:POKEV+4,185:POKEV+5,130
  100. 745 POKEV+6,161:POKEV+7,146:POKEV+8,137:POKEV+9,194:POKEV+10,161:POKEV+11,194
  101. 747 POKEV+12,185:POKEV+13,194:POKEV+14,209:POKEV+15,194
  102. 748 REM *** SPIELBRETT ZEICHNEN ***
  103. 749 PRINT"[145]         1  2  3  4  5  6  7  8
  104. 750 [153]"      A @&@(null)@@PRINT#(null)@@_^(null)_^(null)(null)@@SYS(null)@@(null)&@
  105. 755 PRINTTAB(8)"@%@[218]@@[152][218]@@[218][219][214][218][219][214][218]@@[158][218]@@[218]%@
  106. 760 [153][163]6)"B ATN#ATN(null)ATNATNPRINT#(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATNSYS(null)ATNATN(null)#ATN
  107. 765 PRINTTAB(8)"@%@[218]@@[152][218]@@[218]@@[218]@@[218]@@[158][218]@@[218]%@
  108. 770 [153][163]6)"C ATN#ATN(null)ATNATNPRINT#(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATNSYS(null)ATNATN(null)#ATN
  109. 775 PRINTTAB(8)"@%@[218]@@[152][218]@@[218]@@[218]@@[218]@@[158][218]@@[218]%@
  110. 780 [153][163]6)"D ATN#ATN(null)ATNATNPRINT#(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATNSYS(null)ATNATN(null)#ATN
  111. 785 PRINTTAB(8)"@%@[218]@@[152][218]@@[218]@@[218]@@[218]@@[158][218]@@[218]%@
  112. 790 [153][163]6)"E ATN#ATN(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATN(null)#ATN
  113. 795 PRINTTAB(8)"@%@[218]@@[218]@@[218]@@[218]@@[218]@@[218]@@[218]%@
  114. 800 [153][163]6)"F ATN#ATN(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATN(null)ATNATN(null)#ATN
  115. 805 PRINT"        @%@[218]@@[218]@@[218]@@[218]@@[218]@@[218]@@[218]%@       "
  116. 810 PRINT"                                      "
  117. 815 PRINT"BELAGERER[158]                    [144]VERTEIDIGER[158]
  118. 816 [153]"ON                                     "
  119. 817 [153]"                                     "
  120. 818 [151]V[170]21,255
  121. 819 [143] *** SPRITE DATAS ***
  122. 820 [131]0,0,0,0,224,0,0,192,0,0,128,0,1,16,0,1,56,0,1,16,0,2,184,0,2,124,0,2,58
  123. 830 [131]0,4,58,0,4,56,0,4,40,0,8,68,0,8,198,0,0,0,0,,,,,,,,,,,,,,,
  124. 840 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,56,0,0,18,0,12,58,0,10,252,0,1,56,0,0
  125. 850 [131]56,0,0,56,0,0,40,0,0,36,0,0,102,0,,,,,,,,,,,,,,,,,,
  126. 860 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,48,0,0,34,0,0,51,128,0,55,0,0
  127. 870 [131]254,0,1,255,0,2,255,0,0,165,0,1,40,128,,,,,,,,,,,,,,,,,,
  128. 877 :
  129. 878 [143] *** MUSIK-DATA'S ***
  130. 879 :
  131. 880 [131]29,69,85,26,20,65,29,69,1000,0,0,750,26,20,100,23,59,100,21,237,100,19
  132. 885 [131]137,100,18,112,300,19,137,75,19,137,600,0,0,25,14,162,100,13,10,100,14
  133. 890 [131]162,800,0,0,500,10,247,500,11,158,525,9,56,550,9,196,1,0,0,1500,14,162
  134. 895 [131]1000,15,129,1250,13,10,1250,14,162,2500
  135. 900 [153]""NA$(1)[163]33)"STOP"NA$(2)"SYS":BB[178]0
  136. 910 [143] *** SPIELER 1 ZIEHT ***
  137. 911 [151]W,65:[151]FH,100:[129]IO[178]1[164]250:[130]:[151]W,0
  138. 912 [129]U[178]1[164]4:A$(U)[178]"":[130]
  139. 915 [153]"                                       "
  140. 920 [153]"ONZUG VON "NA$(1)" = @CMD";
  141. 930 J[178]0:[129]A[178]1[164]4
  142. 940 [161]A$(A):[139]A$(A)[178]""[167]940
  143. 942 [139]A[178]1[176]A[178]3[167][129]Z[178]1[164][195](Z1$):[139]A$(A)[178][202](Z1$,Z,1)[167]950
  144. 943 [139]A[178]2[176]A[178]4[167][129]Z[178]1[164][195](Z2$):[139]A$(A)[178][202](Z2$,Z,1)[167]950
  145. 946 [130]Z
  146. 947 [137]940
  147. 950 [153]A$(A)"@CMD";
  148. 955 [151]W,65:[151]FH,100:[129]IO[178]1[164]25:[130]:[151]W,0
  149. 960 [139]A[178]2[167][153]"-@CMD";
  150. 970 [130] A
  151. 980 ZU$(1)[178]A$(1)[170]A$(2)
  152. 985 ZU$(2)[178]A$(3)[170]A$(4)
  153. 987 W$(1)[178]A$(1):W$(2)[178]A$(2)
  154. 990 [153]:[153]"ONVON "ZU$(1)" NACH "ZU$(2)"            "
  155. 991 [139]BB[178]1[167]A$(3)[178]A$(1):A$(4)[178]A$(2)
  156. 992 [139]BB[178]3[167]A$(3)[178]A$(1):A$(4)[178]A$(2)
  157. 995 [139]BB[178]5[167]A$(3)[178]A$(1):A$(4)[178]A$(2)
  158. 996 [139]BB[178]7[167]A$(3)[178]A$(1):A$(4)[178]A$(2)
  159. 1000 [139]A$(1[170]J)[178]"A"[167]X[178]114
  160. 1010 [139]A$(1[170]J)[178]"B"[167]X[178]130
  161. 1020 [139]A$(1[170]J)[178]"C"[167]X[178]146
  162. 1030 [139]A$(1[170]J)[178]"D"[167]X[178]162
  163. 1040 [139]A$(1[170]J)[178]"E"[167]X[178]178
  164. 1050 [139]A$(1[170]J)[178]"F"[167]X[178]194
  165. 1060 [139]A$(2[170]J)[178]"1"[167]Y[178]89
  166. 1070 [139]A$(2[17