home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-02_1988_-_de_Side_A.d64 / m6 (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  6KB  |  204 lines

  1. 0 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2. 1 goto10
  3. 3 @p:print"[147]";:poke53272,21:list1800-1997
  4. 4 @m:print"[147]";:poke53272,21:list1700-1799
  5. 5 @l:print"[147]";:poke53272,21:list10000-
  6. 6 @l:print"[147]";:poke53272,21:list10000-
  7. 10 :poke56,96:clr
  8. 100 v=53248:s=54272:jo=v-1:poke659,1:poke56325,40:ma=49152
  9. 110 dima$(20),a(20),b(20),c(20):fori=0to20:reada$(i),a(i):ifa$(i)<>"***"thennext
  10. 112 forj=1to20:readb$(j),b2$(j):ifb$(j)<>"***"thennext
  11. 115 rn=i-1:sysma
  12. 120 gosub999:pokev,50:pokev+1,50:lp=1:lo=0:e=0:ls=1
  13. 130 open1,8,15,"m-w"+chr$(7)+chr$(28)+chr$(1)+chr$(15):close1
  14. 200 poke659,0:la=0:e4=e2
  15. 205 if(peek(jo)and16)=16then205
  16. 210 y=abs(int((peek(v)-24)/8+.5)+(33and(peek(v+16)and1)=1))
  17. 215 x=int(abs(peek(v+1)-62)/8+.5)
  18. 217 rem print""x,y"[157] "
  19. 220 onlpgoto300,230
  20. 230 ifx<19orx>21then200
  21. 240 ify>1andy<9thena=1906:b=1910:gosub1200:goto1800
  22. 245 ify>9andy<16then120
  23. 250 ify>18andy<22thenpokes+1923,1:e2=-1:goto1725
  24. 255 ify>21andy<26thenpokes+1927,1:e2=1:goto1725
  25. 260 ify>28andy<34thenpokes+1933,1:pokes+1934,1:goto1600
  26. 270 goto200
  27. 300 ifx>14andx<18thenify>33andy<39thensys64738
  28. 305 fori=0torn
  29. 310 ifb(i)<>xthennext:goto360
  30. 320 ifc(i)<20andy>20orc(i)>20andy<20thennext:goto360
  31. 330 poke214,b(i):print:print""tab(c(i))a$(i)
  32. 340 e=1:e3=1:e2=1
  33. 350 goto1300
  34. 360 goto200
  35. 998 :end
  36. 999 poke53265,peek(53265)and239
  37. 1000 poke53280,12:poke53281,15:sysma+18:ifpeek(789)>200thensysma+21:poke53240,19
  38. 1001 print"[147][142][152]                                        ";
  39. 1002 print"      [144]                              [152]    ";
  40. 1003 print"     [146]                              [144] [152]    ";
  41. 1004 print"     [146]                              [144] [152]    ";
  42. 1005 print"     [146]                              [144] [152]    ";
  43. 1006 fori=6to14:print"     [146]                              [144] [152]    ";:next
  44. 1015 print"     [146]                              [144]     [152]";
  45. 1016 print"[152]     [146]                           [152][164][144]       [152]";
  46. 1017 print"     [144][146]                           [152][165][151][162][162][162][162][144]   [152]";
  47. 1018 print"                                [146][151] [197][216][201][212][146] [144][152]  ";
  48. 1019 print"                                [146] [151][162][162][162][162][144][146] [152]  ";:gosub1020:goto1030
  49. 1020 print"[152]                                        ";
  50. 1021 print" [144]                                      [152] ";
  51. 1022 print"[146] [156][162][162][162][162][162][162][162][151] [162][162][162][162][162][162] [144] [151] [162][162][162] [162][162][162] [144] [151] [162][162][162][162] [144][176][178][178][174][151] [144] [152] ";
  52. 1023 print"[146] [156] [196]ruck [146]  [205]en@ [144][146]   [151] _ [144][146] [151] [255] [146] [144] [151]  _[255] [146] [144][171][151][144][179][151] [144] [152] ";
  53. 1024 print"[146] [156][162][162][162][162][162][162][162][146] [162][162][162][162][162][162][144][146]   [151][162][162][162][144][146] [151][162][162][162][144][146]  [151] [162][162][162][162][146] [144][173][177][177][189][151] [152]  ";
  54. 1025 print"[152]                                       ";
  55. 1026 poke53223,160:pokes+2023,12
  56. 1027 fork=217to240:pokek,peek(k)or128:next:return
  57. 1030 ifr%=1thenprint"";:poke2023,160:return
  58. 1035 x=7:poke214,3:print:fork=0torn:poke211,x:print"[144]"a$(k):print
  59. 1040 b(k)=peek(214)-3:c(k)=x:ifk=int(rn/2)thenx=20:poke214,3:print
  60. 1050 next:print"":poke53265,27:return
  61. 1200 rem  ---- col a,b--
  62. 1210 forc=s+atos+b:pokec,1:next:return
  63. 1300 rem  ---- load i,e---
  64. 1304 ifi=10thenla=0:goto205
  65. 1305 ifi=11then2200
  66. 1307 e$=right$(str$(i+1),len(str$(i+1))-1)+".":lp=2
  67. 1308 e$=e$+right$(str$(e),len(str$(e))-1)
  68. 1309 ife<>1ore2<1then1325
  69. 1310 ife=1thenife2>0thenclose2:close1:open1,8,15:open2,8,2,e$+",p,r"
  70. 1311 input#1,a:close2:close1:ifa=62thengosub2000:goto1380
  71. 1320 ifa>19then120
  72. 1325 lp=2:print"[144][147]";:goto1700
  73. 1330 print"";:poke53280,12:poke53281,15:e=e3
  74. 1335 gosub1020:poke53265,27:goto1360
  75. 1340 :
  76. 1350 poke214,b(i):print:print"[144]"tab(c(i))a$(i)
  77. 1360 goto200
  78. 1370 ifla=1thenlp=1:gosub999:e=0:goto200
  79. 1375 goto1300
  80. 1380 ife2=0thene2=1
  81. 1385 lp=1:goto1340
  82. 1400 rem --- inc/dec page ---
  83. 1405 ife2=0thene2=1
  84. 1410 ife=1ande2=-1thenla=1:return
  85. 1420 ife=a(i)ande2=1thenla=1:return
  86. 1430 e=e+e2:return
  87. 1500 rem --- print e/set counter e ---
  88. 1510 poke214,21:print:c$="":ife<10thenc$="0"
  89. 1515 ife=10thenc$="10":goto1530
  90. 1520 c$=c$+right$(str$(e),len(str$(e-1))-1)
  91. 1530 print"[151]"tab(34)c$:return
  92. 1600 rem --- fforward i/e ---
  93. 1610 poke659,1:if(peek(v+16)and1)=1then1630
  94. 1620 forj=peek(v)to255:pokev,j:aw=((NULL)):next:pokev,0:pokev+16,peek(v+16)or1
  95. 1630 forj=peek(v)to56:pokev,j:aw=((NULL)):next
  96. 1640 forj=peek(v+1)to230:pokev+1,j:aw=sqr(((NULL))):next
  97. 1650 if(peek(jo)and16)=0then1680
  98. 1660 if(peek(jo)and4)=0thene=e+(e>1):gosub1500
  99. 1670 if(peek(jo)and8)=0thene=e-(e<a(i)):gosub1500
  100. 1675 e2=sgn(e-e3):goto1650
  101. 1680 lo=0:goto1700
  102. 1700 rem --- load + show i,e ---
  103. 1703 la=0
  104. 1705 ifla=1then1740
  105. 1708 sysma:sysma+9:sysma+33,i+1,e,6*4096:goto1727
  106. 1710 poke53265,peek(53265)or16:sysma+9:sysma+33,i+1,e,6*4096
  107. 1720 ifpeek(789)>200thensysma+21:poke53240,19:pokev,160:pokev+1,234
  108. 1724 goto200
  109. 1725 ife4<>e2thene4=e2:gosub1400:gosub1400:goto1705
  110. 1727 poke53265,peek(53265)and239:sysma+18:poke53281,0:print"[144][147]";:poke53281,15
  111. 1728 ifla=0thensysma+15:sysma+12:qq=peek(781):ifqq>1thensysma+24:pokev,0:goto1750
  112. 1729 pokev,222:pokev+1,230:pokev+16,0
  113. 1730 print"":gosub1020:gosub1500:poke53265,peek(53265)or16
  114. 1735 gosub1400:ifla<>1then1710
  115. 1740 pokev+16,0:pokev,138:pokev+1,230:goto200
  116. 1750 poke53265,peek(53265)or16:gosub1400:ifla=1thensysma+6:goto120
  117. 1760 sysma+9:sysma+33,i+1,e,6*4096
  118. 1765 ifqq<>2thensysma+6:goto1790
  119. 1770 getq$:ifq$=""thenifpeek(56320)=127orpeek(56321)=255then1770
  120. 1780 ifq$="d"thensysma+36,24
  121. 1785 ifpeek(56320)=127andpeek(56321)=255andq$<>" "then1770
  122. 1790 goto1727
  123. 1800 rem --- printer ---
  124. 1805 poke816,165:poke817,244:poke665,2:poke666,2:e3=e
  125. 1810 sysma+36,18:close1:open1,4:cmd1
  126. 1820 a$="(magic disk 64: ":b$=" seite"+str$(e)+")"
  127. 1830 z=(39-len(a$)-len(a$(i))-len(b$))/2
  128. 1835 c$="":forj=1tolen(a$(i)):c$=c$+chr$(asc(mid$(a$(i),j,1))and127):next
  129. 1840 forj=1toz:a$=a$+" ":next:a$=a$+c$:forj=1toz:a$=a$+" ":next
  130. 1850 a$=a$+b$:printa$
  131. 1860 sys43957:close1
  132. 1870 goto1330
  133. 2000 rem --- disk wenden ---
  134. 2001 ax=peek(v+1):ay=peek(v):poke659,1
  135. 2003 z=20:a2=a:a=(99-peek(v))/z:b=(227-peek(v+1))/z:c=peek(v):d=peek(v+1)
  136. 2005 forj=1toz:d=d+b:c=c+a:pokev,c:pokev+1,d:next
  137. 2010 print"";:r%=1
  138. 2020 print"[144]             [146][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  139. 2025 print"[144]             [146][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  140. 2030 print"               [146][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  141. 2040 print" [185][175] [196]iskette[144]   [146][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  142. 2050 print" [161][182] wenden ![144]  [146][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  143. 2060 print"             [157][157][157][157][157][157][157][157][157][157][157][157][157][157][145][145]";
  144. 2070 forqs=0to6
  145. 2080 print"[185][175][157][157][161][182][157][157][145]";:forsq=1to200:next
  146. 2090 print"  [157][157]  [157][157][145]";:forsq=1to200:next
  147. 2100 nextqs:print"[152]                     [146]"
  148. 2102 print"                     [146]"
  149. 2105 print"";:gosub1020:r%=0:print"";
  150. 2110 z=20:a=(ay-peek(v))/z:b=(ax-peek(v+1))/z:c=peek(v):d=peek(v+1)
  151. 2120 forj=1toz:d=d+b:c=c+a:pokev,c:pokev+1,d:next:poke659,0
  152. 2125 pokev,int(peek(v)/2)*2:pokev+1,int(peek(v+1)/2)*2
  153. 2150 a=a2:return
  154. 2200 rem  --- game menu ---
  155. 2205 poke214,16:print:printtab(33)"[151][208][204][193][217]
  156. 2210 [151]214,2:[153]
  157. 2220 [129]j[178]0[164]11:[153]"stop                              ":[130]
  158. 2230 [153]"chr$atn(NULL)val (NULL)val(NULL)sqr
  159. 2240 forj=1to10:ifb$(j)="***"then2270
  160. 2243 if(peek(214)-2)/4=lsthenprint"";:goto2247
  161. 2245 print"[144]";
  162. 2247 print""b$(j):next
  163. 2270 :
  164. 2300 y=abs(int((peek(v)-24)/8+.5)+(33and(peek(v+16)and1)=1))
  165. 2310 x=int(abs(peek(v+1)-62)/8+.5)
  166. 2320 if(peek(jo)and16)=16then2270
  167. 2330 poke214,2:print
  168. 2340 ify>9andy<16thenifx>19then120
  169. 2345 ifx>14andx<18thenify>33andy<39then2395
  170. 2350 print"
  171. 2360 [129]j[178]1[164]10:[139]b$(j)[178]"***"[167]2390
  172. 2370 [139][181](x[171]4)[173]1[179][177]j[167][153]"stop";:[137]2380
  173. 2375 [153]"";:ls[178]j
  174. 2380 [153]""b$(j):[130]
  175. 2390 [137]2270
  176. 2395 [158]ma[170]24:[158]ma[170]3:[151]53272,23:[151]56325,64
  177. 2397 [153]"loadstop(NULL)oading "b$(ls):[151]v,0
  178. 2400 [151]v[170]21,0:[160]1:[160]2:[159]1,8,15,"i":[159]2,8,2,b2$(ls)[170]",p,r"
  179. 2410 [132]1,a:[139]a[179]19[167]2460
  180. 2420 [153]"peekitte wenden (NULL)ie die str$iskette."
  181. 2450 [151]198,0:[146]198,1:[137]2395
  182. 2460 [153]"listload":[153]"load"[199](34)b2$(ls)[199](34)",8,8":[151]56,160:[156]
  183. 2470 [153]"runonononononononon"
  184. 2480 [151]631,13:[151]632,13:[151]198,2:[128]
  185. 2499 [128]
  186. 10000 [131]"left$allo",4
  187. 10001 [131]"left$ardware",9
  188. 10002 [131]"(NULL)oftware",22
  189. 10003 [131]"peekastelware",9
  190. 10004 [131]"(NULL)tilities",15
  191. 10005 [131]"chr$ames",3
  192. 10006 [131]"(NULL)ews",12
  193. 10007 [131]"right$ntern",19
  194. 10008 [131]"(NULL)ips & (NULL)ricks",10
  195. 10009 [131]"(NULL)he valnd",3
  196. 10010 [131]"         ",1
  197. 10011 [131]"chr$ame (NULL)en@",1
  198. 10100 [131]***,0
  199. 10110 [131]"str$ark (NULL)ower",dark tower,"right$mperator",imperator
  200. 10130 [131]"atnnleitung zu (NULL).len.(NULL)",l.c.s.info
  201. 10150 [131]"str$emo 1",demo1,"str$emo 2",demo2
  202. 10160 [131]"(NULL)istschutzdemo",listschutz
  203. 10200 [131]***,***
  204.