home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-04_1990_-_de_Side_A.d64 / (7) (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  9KB  |  270 lines
  1. 0 ifpeek(1000)=222then5
  2. 1 ifx=0thenx=1:load"(1)",8,1
  3. 2 ifx=1thenx=2:load"(2)",8,1
  4. 3 ifx=2thenx=3:load"(3)",8,1
  5. 4 ifx=3thenx=4:load"(5)",8,1
  6. 5 poke1000,222:gosub1100
  7. 6 poke24653,28:poke55,0:poke56,76:clr
  8. 8 poke646,peek(700):print"[147]"chr$(8):sys24000,1024,2023,34000,55
  9. 9 sys24000,55296,56295,35000,55
  10. 10 poke53265,0:poke53283,peek(701):poke53282,peek(702)
  11. 11 dimf$(16):poke49570,52
  12. 12 fort=0to15:readf$(t):next:data"schwarz  ","weiss    ","rot      ","tuerkis  "
  13. 13 data"violett  ","gruen    ","blau     ","gelb     ","orange   ","braun    "
  14. 14 data"hellrot  ","grau 1   ","grau 2   ","hellgruen","hellblau ","grau 3   "
  15. 15 sys49158:print"[147]":poke53280,5:poke53248+27,0:poke888,6:poke679,200
  16. 16 fort=0to3:readhh(t):next:data64,16,4,1:poke24583,188:poke24584,2
  17. 17 fort=0to7:readhl(t):next:data128,64,32,16,8,4,2,1:poke678,0
  18. 18 fort=0to3:readlh(t):next:data192,48,12,3
  19. 19 fort=0to3:readvv$(t):next:data".   "," .  ","  . ","   ."
  20. 20 print"[147]";:poke49554,138:fort=0to7:readq:poke20000+t,q:next
  21. 21 data238,221,187,119,238,221,187,119:fort=0to3:readll(t):next:data128,32,8,2
  22. 22 printtab(8)"  "tab(18)"  [158]menue..[158]f1 [158]yspiegeln"
  23. 23 printtab(8)"  "tab(18)"  [158]kopieren. [158]xspiegeln"
  24. 24 printtab(8)"  "tab(18)"  [158]norden... [158]drehen..."
  25. 25 printtab(8)"  "tab(18)"  [158]sueden...[176][192][192][192][192][192][192][192][192][192]"
  26. 26 printtab(8)"  "tab(18)"  [158]osten....[221][158]f1 editor"
  27. 27 printtab(8)"  "tab(18)"  [158]westen...[221][158]f3 plan.."
  28. 28 printtab(8)"  "tab(18)"  [158]inverse..[221][158]f5 farben"
  29. 29 printtab(8)"  "tab(18)"  [158]loeschen.[221][158]f7 disk.."
  30. 30 print"    .            [164]                     "
  31. 31 print"mul:[154][165][165][165][159][146][165][165] sign >[167][146][154]@[180] joystick<->crsr    "
  32. 32 print"    123h         [163]                     [144]":poke51200,0
  33. 33 fort=0to10:poke52263+t*40,160:next
  34. 34 fort=0to39:poke53184+t,160:next
  35. 36 sys49152,0:poke53265,27:poke650,128
  36. 38 sys24000,20000,20007,58368,55
  37. 40 poke53269,0:poke722,0:poke2,11:sys24576
  38. 41 t=peek(203)
  39. 42 ift=4then50
  40. 43 ift=5then600
  41. 44 ift=6then400
  42. 45 ift=3then700
  43. 46 goto40
  44. 50 :
  45. 80 print"[158]";:poke53248+27,255
  46. 95 h=0:ifpeek(679)=200thenh=10
  47. 96 printtab(h)"@@[146]    @@"
  48. 97 printtab(h)"@[146]  @@[146]  @"
  49. 98 printtab(h)"@@@@@[146]  @"
  50. 99 printtab(h)"@@@@[146]  @@"
  51. 100 printtab(h)"@@@[146]  @@@"
  52. 101 printtab(h)"@@@[146]  @@@"
  53. 102 printtab(h)"@@@@@@@@"
  54. 103 printtab(h)"@@@[146]  @@@":poke198,0:t=peek(52601)
  55. 104 geta$:ifa$=""then104
  56. 105 ifa$=" "ora$=chr$(13)thensys49152,t:goto40
  57. 106 poke53269,3:poke646,peek(700):print""tab(17)a$:poke53248+27,0
  58. 110 t=peek(52601):sys49152,t:z=36864+t*8
  59. 111 ifpeek(679)=216then200
  60. 112 jo=56320
  61. 115 sys49194
  62. 117 if(peek(jo)and16)=0orpeek(203)=1thensys49191,z+peek(683),hl(peek(682)):gosub160
  63. 120 a$=""
  64. 121 geta$
  65. 122 ifa$=""then149
  66. 123 ifa$="m"ora$="[133]"thenpoke50432,69:goto40
  67. 125 ifa$="k"thengosub310
  68. 127 ifa$="n"thensys49170,peek(52601)
  69. 130 ifa$="s"thensys49173,peek(52601)
  70. 132 ifa$="w"thensys49176,peek(52601)
  71. 135 ifa$="o"thensys49179,peek(52601)
  72. 137 ifa$="i"thensys49155,peek(52601)
  73. 140 ifa$="l"thensys49185,peek(52601)
  74. 141 ifa$="y"thensys49164,peek(52601)
  75. 143 ifa$="x"thensys49167,peek(52601)
  76. 145 ifa$="d"thensys49182,peek(52601)
  77. 149 ifpeek(679)=216then251
  78. 150 goto115
  79. 160 sys49152,peek(52601):return
  80. 200 :
  81. 212 jo=56320
  82. 215 sys49197
  83. 217 if(peek(jo)and16)=0orpeek(203)=1thengosub270:gosub260
  84. 250 goto120
  85. 251 ifa$=""then215
  86. 252 ifa$="1"thenpoke678,0:print""tab(4)vv$(peek(678))
  87. 253 ifa$="2"thenpoke678,1:print""tab(4)vv$(peek(678))
  88. 254 ifa$="3"thenpoke678,2:print""tab(4)vv$(peek(678))
  89. 255 ifa$="h"thenpoke678,3:print""tab(4)vv$(peek(678))
  90. 259 goto215
  91. 260 sys49152,peek(52601):return
  92. 270 t=peek(680):s=peek(678):e=z+peek(681):ifs<>0then280
  93. 275 poke50432,5:sys49191,e,lh(t)
  94. 276 return
  95. 280 ifs<>1then290
  96. 285 poke50432,37:sys49191,e,255-lh(t):poke50432,5:sys49191,e,ll(t)
  97. 286 return
  98. 290 ifs<>2then300
  99. 295 poke50432,37:sys49191,e,255-lh(t):poke50432,5:sys49191,e,hh(t)
  100. 296 return
  101. 300 :
  102. 306 poke50432,37:sys49191,e,255-lh(t)
  103. 307 return
  104. 310 print"[158]";:poke53248+27,255
  105. 312 h=0:ifpeek(679)=200thenh=10
  106. 315 printtab(h)"@@[146]    @@"
  107. 317 printtab(h)"@[146]  @@[146]  @"
  108. 320 printtab(h)"@@@@@[146]  @"
  109. 322 printtab(h)"@@@@[146]  @@"
  110. 325 printtab(h)"@@@[146]  @@@"
  111. 327 printtab(h)"@@@[146]  @@@"
  112. 330 printtab(h)"@@@@@@@@"
  113. 332 printtab(h)"@@@[146]  @@@":poke198,0:t=peek(52601)
  114. 335 geta$:ifa$=""then335
  115. 340 poke646,peek(700):print""tab(17)a$:poke53248+27,0
  116. 342 s=peek(52601):poke52601,t:sys49161,s,t:a$="":return
  117. 400 poke53265,0:sys24000,52224,53223,30000,55:sys24000,55296,56295,31000,55
  118. 405 poke53269,0:print"[158]";
  119. 407 print" [158]                                      "
  120. 410 print" [158]  m[158]ulticolormodus...: aus             "
  121. 412 print" [158]  1[158].farbe...........: 6               "
  122. 415 print" [158]  2[158].farbe...........: 14              "
  123. 417 print" [158]  3[158].farbe...........: 1               "
  124. 420 print" [158]  h[158]intergrundsfarbe : 12              "
  125. 422 print" [158]                                      "
  126. 425 print" [158]  z[158]eichenmodus......: gross/grafik    "
  127. 427 print" [158]                     (datenverlust!)  "
  128. 430 print" [158]  f1[158] -> menue                         "
  129. 432 print"                                       "
  130. 435 poke646,peek(700):print"abcdefghijklmnopqrstuvwxyz0123456789\@*"
  131. 440 poke31364,peek(700):poke31365,peek(701):poke31366,peek(702)
  132. 442 poke31377,peek(700):poke31367,peek(712)
  133. 460 ifpeek(679)=200thenprint""tab(23)"[158]aus"
  134. 462 ifpeek(679)=216thenprint""tab(23)"[158]an "
  135. 465 print""tab(23)"[158]   [157][157][157]"f$(peek(700)and15)
  136. 467 print""tab(23)"[158]   [157][157][157]"f$(peek(701)and15)
  137. 470 print""tab(23)"[158]   [157][157][157]"f$(peek(702)and15)
  138. 472 print""tab(23)"[158]   [157][157][157]"f$(peek(712)and15)
  139. 475 ifpeek(49201)=208thenprint""tab(23)"[158]gross/grafik"
  140. 477 ifpeek(49201)=216thenprint""tab(23)"[158]klein/gross "
  141. 478 poke53248+27,255
  142. 480 poke53265,27
  143. 490 geta$:ifa$=""then490
  144. 492 ifa$="m"andpeek(679)=200thenpoke679,216:goto435
  145. 495 ifa$="m"andpeek(679)=216thenpoke679,200:goto435
  146. 497 ifa$="1"thenpoke700,(peek(700)+1)and15:goto435
  147. 500 ifa$="2"thenpoke701,(peek(701)+1)and15:poke53283,peek(701):goto435
  148. 502 ifa$="3"thenpoke702,(peek(702)+1)and15:poke53282,peek(702):goto435
  149. 504 ifa$="h"thenpoke712,(peek(712)+1)and15:goto435
  150. 505 ifa$="z"then515
  151. 507 ifa$="[133]"then510
  152. 508 goto490
  153. 510 poke53265,0:sys24000,30000,30999,52224,55:sys24000,31000,31999,55296,55
  154. 511 sys24000,20000,20007,58368,55:sys49152,peek(52601)
  155. 512 poke53269,3:poke53265,27:goto40
  156. 515 print"  ist das ganz sicher ([158]j/[158]n) ???       "
  157. 517 geta$
  158. 519 ifa$="n"then530
  159. 520 ifa$="j"then525
  160. 522 goto517
  161. 525 ifpeek(49201)=208thenpoke49201,216:sys49158:goto530
  162. 527 ifpeek(49201)=216thenpoke49201,208:sys49158
  163. 530 print"                                      "
  164. 531 sys24000,20000,20007,58368,55
  165. 532 goto435
  166. 600 poke53265,0:sys24000,52224,53223,30000,55:sys24000,55296,56295,31000,55
  167. 605 print"[147]":poke53269,0:sys49188:poke53281,peek(712)
  168. 607 sys24000,34000,34959,52224,55:sys24000,35000,35959,55296,55
  169. 610 poke53265,27:poke722,1:poke2,0:sys24576
  170. 612 poke53265,0:sys24000,52224,53183,34000,55:sys24000,55296,56255,35000,55
  171. 615 :print"[147]":sys24000,30000,30999,52224,55:sys24000,31000,31999,55296,55
  172. 617 poke53269,3:sys49458:poke53265,27:goto40
  173. 700 poke53265,0:sys24000,52224,53223,30000,55:sys24000,55296,56295,31000,55
  174. 705 poke53265,0:poke53269,0:print"[158]";
  175. 710 print" [158]  f1[158] - zeichensatz nachladen......... "
  176. 712 print" [158]  f2[158] - zeichensatz sichern........... "
  177. 715 print" [158]  ----------------------------------- "
  178. 717 print" [158]  f3[158] - spielplan nachladen........... "
  179. 720 print" [158]  f4[158] - spielplan sichern............. "
  180. 722 print" [158]  ----------------------------------- "
  181. 725 print" [158]  f5[158] - directory anzeigen............ "
  182. 727 print" [158]  f6[158] - diskbefehl senden............. "
  183. 728 print" [158]  f7[158] - farb/bildschirmparameter saven "
  184. 730 print" [158]  f8[158] - zurueck ins menue............. "
  185. 732 print"                                       "
  186. 735 print"[158]                                       "
  187. 737 print"                                       "
  188. 740 poke52703,160:poke52743,160:poke55775,7:poke55815,5:poke53265,27
  189. 745 geta$:ifa$=""then745
  190. 747 ifa$="[133]"then900
  191. 750 ifa$="[137]"then920
  192. 752 ifa$="[134]"then940
  193. 755 ifa$="[138]"then950
  194. 757 ifa$="[139]"then960
  195. 760 ifa$="[140]"then510
  196. 762 ifa$="[136]"then970
  197. 765 ifa$="[135]"then990
  198. 799 goto745
  199. 800 print"[158]";:x=0:n$=""
  200. 802 print">[146] [157]";
  201. 805 geta$:ifa$=""then805
  202. 807 a=asc(a$)
  203. 810 ifa>38anda<91then820
  204. 811 ifa=32then820
  205. 812 ifa=13then825
  206. 813 ifa<>20orx=0then805
  207. 815 x=x-1:t=len(n$):t=t-1:n$=left$(n$,t)
  208. 817 print" [157][157][146] [157]";:goto805
  209. 820 ifx=35then805
  210. 822 n$=n$+a$:x=x+1:printa$"[146] [157]";:goto805
  211. 825 print:return
  212. 900 rem zeich-lade
  213. 901 print"f1"
  214. 905 gosub800:ifn$=""then705
  215. 907 sys49188:sys57812n$,8:poke780,0:poke781,0:poke782,144:sys65493
  216. 910 sys24000,36864,37888,57344,55:goto1000
  217. 920 rem zeich-save
  218. 921 print"f2"
  219. 925 gosub800:ifn$=""then705
  220. 927 sys49188:sys57812n$,8:poke193,0:poke194,144:poke174,0:poke175,148
  221. 930 sys62954:goto1000
  222. 940 rem spiel-lade
  223. 941 print"f3"
  224. 945 gosub800:ifn$=""then705
  225. 947 sys49188:sys57812n$,8:poke780,0:poke781,208:poke782,132:sys65493
  226. 949 goto1000
  227. 950 rem spiel-save
  228. 951 print"f4"
  229. 955 gosub800:ifn$=""then705
  230. 957 sys49188:sys57812n$,8:poke193,208:poke194,132:poke174,159:poke175,140
  231. 959 sys62954:goto1000
  232. 960 rem befehl
  233. 961 print"f6"
  234. 965 gosub800:ifn$=""then705
  235. 967 sys49188:open1,8,15,n$:close1
  236. 969 goto1000
  237. 970 rem parameter
  238. 971 print"f7"
  239. 977 sys49188:open1,8,15,"s:(4)":close1
  240. 980 open1,8,2,"(4),s,w"
  241. 981 a=peek(700):print#1,a
  242. 982 a=peek(701):print#1,a
  243. 983 a=peek(702):print#1,a
  244. 984 a=peek(712):print#1,a
  245. 985 a=peek(679):print#1,a
  246. 986 a=peek(49201):print#1,a
  247. 988 close1:goto1000
  248. 990 print"f5[144]":sys49188:poke648,4:poke56576,151:poke53272,21
  249. 991 print"[147][144]":poke214,24:sys58640:sys19664
  250. 992 ifpeek(203)=64then992
  251. 993 poke53265,0:poke648,204:poke56576,148:poke53272,57
  252. 994 print"[147]"
  253. 995 open1,8,15:input#1,a$,b$,c$,d$:close1:sys49458:poke53269,3:goto510
  254. 1000 open1,8,15:input#1,a$,b$,c$,d$:close1
  255. 1002 print"[158]  "b$" >>taste<<":poke198,0:sys49458
  256. 1005 geta$:ifa$=""then1005
  257. 1007 poke53269,3:goto510
  258. 1100 open1,8,2,"(4),s,r"
  259. 1101 input#1,a:poke700,a
  260. 1102 input#1,a:poke701,a
  261. 1103 input#1,a:poke702,a
  262. 1104 input#1,a:poke712,a
  263. 1105 input#1,a:poke679,a
  264. 1106 input#1,a:poke49201,a
  265. 1107 close1
  266. 1110 open1,8,15:input#1,a$,b$,c$,d$:close1
  267. 1112 ifa$<>"62"thenreturn
  268. 1115 poke700,11:poke701,12:poke702,15:poke712,12:poke679,200:poke49201,208
  269. 1120 return
  270.