home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_94-06_1994_-_de_Side_B.d64 / main (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  287 lines

  1. 5 rem"1992 sys2061 by "markus fischer""(NULL)
  2. 6 poke53265,11
  3. 7 a=a+1:ifa=1thenload"chars",8,1
  4. 8 ifa=2thenload"dir",8,1
  5. 9 poke53272,29:poke53265,27
  6. 10 print"[147]"chr$(8)chr$(14):poke53280,0:poke53281,0:poke788,52:poke792,193
  7. 15 dimei$(100,6):sn=1
  8. 20 printtab(5)"[162][162][162][162]    [162][162][162]  [162][162][162][162][162]     [162][162][162]
  9. 30 [153][163]5)"new   new  new   new   new      new   new
  10. 40 printtab(5)"[150][162]   [162]  [162]   [162]   [162]      [153][162]   [162]
  11. 50 [153][163]5)"defnew   new  new   new   new      printnew   new
  12. 60 printtab(5)"[158][162]   [162]  [162][162][162][162][162]   [162]   [162][162] [162]   [162] [162][162]
  13. 70 [153][163]5)"defnew   new  new   new   new      printnew   new
  14. 80 printtab(5)"[150][162]   [162]  [162]   [162]   [162]      [153][162]   [162]
  15. 90 [153][163]5)"new   new  new   new   new      new   new
  16. 100 printtab(5)"[162][162][162][162]   [162]   [162]   [162]       [162][162][162]
  17. 110 [153][163]11)"new   new   newnewnew  newnewnewnewnew
  18. 120 printtab(11)"[162]   [162]  [162]   [162]   [162]
  19. 130 [153][163]11)"contnewnew newnew  new   new   new
  20. 140 printtab(11)"[154][162][162][162][162][162]  [162]   [162]   [162]
  21. 150 [153][163]11)"opennew new new  newnewnewnewnew   new
  22. 160 printtab(11)"[154][162]   [162]  [162]   [162]   [162]
  23. 170 [153][163]11)"contnew   new  new   new   new
  24. 180 printtab(11)"[162]   [162]  [162]   [162]   [162]
  25. 190 [153][163]11)"new   new  new   new   new
  26. 200 print"[158] geschrieben von [205]arkus [198]ischer ([195])1994"
  27. 210 geta$:ifa$=" "then400
  28. 220 goto210
  29. 400 ru$(1)="      [197]ingabe      "
  30. 410 ru$(2)="      [193]usgabe      "
  31. 420 ru$(3)="    [196]urchsuchen    "
  32. 430 ru$(4)="     [196]isk-[205]enu     "
  33. 440 ru$(5)=" [208]rogramm  beenden "
  34. 450 dm$(1)="   [196]atei laden   "
  35. 460 dm$(2)=" [196]atei speichern "
  36. 470 dm$(3)="    [196]irectory    "
  37. 480 dm$(4)="    [200]auptmenu    "
  38. 500 print"[147][158]":poke650,1
  39. 510 printtab(10)"[176][178][174]      [176][174]"
  40. 520 printtab(10)"[221][221][171][192][174][176][178][178][192][179][173][178][192][192][178][192][178][192][178][178][174]"
  41. 530 printtab(10)"[221] [221][221][221][221][221][221][221][221][176][179][221][221][221][221][221][221][221][221][221]"
  42. 540 printtab(10)"[221][221][221][221][171][179][221][221][221][221][171][179][221][221][221][176][179][221][221][221][221]"
  43. 550 printtab(10)"[173][177][177][192][192][177][192][179][176][177][192][177][177][177][177][192][177][177][177][192][189]"
  44. 560 printtab(10)"[156][184][184][184][184][184][184][184][158][173][189][156][184][184][184][184][184][184][184][184][184][184][184][184]"
  45. 570 print""tab(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  46. 580 forn=1to4
  47. 590 printtab(10)"[221]                   [221]"
  48. 600 printtab(10)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  49. 610 next
  50. 620 printtab(10)"[221]                   [221]"
  51. 630 printtab(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  52. 690 print"[159]";
  53. 700 forn=1to6
  54. 710 printtab(11)ru$(n):print
  55. 720 next
  56. 730 cp=1:print""tab(11)ru$(cp)
  57. 740 geta$:ifa$=""then740
  58. 750 ifa$=""andcp<5then790
  59. 760 ifa$="[145]"andcp>1then800
  60. 770 ifa$=chr$(13)thenoncpgoto1000,3000,6000,7000,8000
  61. 780 goto740
  62. 790 print"[145]"tab(11)ru$(cp):cp=cp+1:print""tab(11)ru$(cp):goto740
  63. 800 print"[145]"tab(11)ru$(cp):cp=cp-1:print"[145][145][145]"tab(11)ru$(cp):goto740
  64. 1000 print"[147]"
  65. 1005 ifsn=101thenprint""tab(12)"[211]peicher ist voll!"
  66. 1006 ifsn=101thenforn=1to1500:next:goto500
  67. 1010 printtab(16)"[162][162][162][162][162][162][162][162][162]"
  68. 1020 printtab(15)"[159]          "
  69. 1030 printtab(15)"[159] [197]ingabe  "
  70. 1040 printtab(15)"[159]         [162]"
  71. 1050 print""tab(13)"[208]erson [206]r."right$(str$(sn),4)
  72. 1060 printtab(12)"[156][163][163][163][183][183][183][184][184][184][184][183][183][183][163][163][163]"
  73. 1070 printtab(10)"[154][214]orname :                   "
  74. 1080 printtab(10)"[206]achname:                   "
  75. 1090 printtab(10)"[193]dresse :                   "
  76. 1100 printtab(10)"[215]ohnort :                   "
  77. 1110 printtab(10)"[212]elefon :                   "
  78. 1115 printtab(10)"[199]eb. am :                   "
  79. 1120 print"[145][145][145][145][145][145][145][158]"
  80. 1130 az=18
  81. 1140 forn=1to6
  82. 1150 printtab(20);
  83. 1160 gosub50000:ifpf=1then500
  84. 1170 ei$(sn,n)=hv$
  85. 1180 next
  86. 1190 sn=sn+1
  87. 1200 ifsn=101thengoto500
  88. 1210 goto1050
  89. 3000 print"[147]":an=1
  90. 3005 ifsn=1thenprinttab(8)"[203]eine [196]aten im [211]peicher!"
  91. 3006 ifsn=1thenforn=1to2000:next:goto500
  92. 3010 printtab(16)"[162][162][162][162][162][162][162][162][162]"
  93. 3020 printtab(15)"[159]          "
  94. 3030 printtab(15)"[159] [193]usgabe  "
  95. 3040 printtab(15)"[159]         [162]"
  96. 3050 poke650,128:print""tab(13)"[208]erson [206]r."right$(str$(an),4);" "
  97. 3060 printtab(12)"[156][163][163][163][183][183][183][184][184][184][184][183][183][183][163][163][163]"
  98. 3070 printtab(10)"[154][214]orname :                   "
  99. 3080 printtab(10)"[206]achname:                   "
  100. 3090 printtab(10)"[193]dresse :                   "
  101. 3100 printtab(10)"[215]ohnort :                   "
  102. 3110 printtab(10)"[212]elefon :                   "
  103. 3120 printtab(10)"[199]eb. am :                   "
  104. 3130 print"[145][145][145][145][145][145][158]";
  105. 3140 forn=1to6
  106. 3150 printtab(20)ei$(an,n)
  107. 3160 next
  108. 3170 print""tab(11)"[153] [198]1 [146] [196]atensatz vor"
  109. 3175 printtab(11)"[153] [198]2 [146] [196]atensatz zur^ck"
  110. 3180 printtab(11)" [198]3 [146] 10 [196]atens.vor"
  111. 3185 printtab(11)" [198]4 [146] 10 [196]atens.zur^ck"
  112. 3190 printtab(11)" [198]5 [146] [196]atensatz ;ndern[158]"
  113. 3200 geta$:ifa$=""then3200
  114. 3210 ifa$="[133]"andan<sn-1thenan=an+1:goto3050
  115. 3215 ifa$="[137]"andan>1thenan=an-1:goto3050
  116. 3220 ifa$="[134]"andan+10<snthenan=an+10:goto3050
  117. 3225 ifa$="[138]"andan-10>0thenan=an-10:goto3050
  118. 3230 ifa$="[135]"thenpoke650,1:goto3250
  119. 3240 ifa$="_"then500
  120. 3245 goto3200
  121. 3250 po=1
  122. 3260 print"";
  123. 3270 print""tab(20)ei$(an,po)
  124. 3280 geta$:ifa$=""then3280
  125. 3290 ifa$=""andpo<6thenprinttab(20)"[145]"ei$(an,po):po=po+1:goto3270
  126. 3300 ifa$="[145]"andpo>1thenprinttab(20)"[145]"ei$(an,po):po=po-1:print"[145][145]";:goto3270
  127. 3310 ifa$=chr$(13)then3330
  128. 3315 ifa$="_"thenprint"[145]"tab(20)ei$(an,po):goto3170
  129. 3320 goto3280
  130. 3330 printtab(20)"[145]                  "
  131. 3340 printtab(20)"[145]";
  132. 3350 az=18
  133. 3360 gosub50000:ifpf=1then3050
  134. 3370 ei$(an,po)=hv$
  135. 3380 goto3170
  136. 4000 print"[147]"
  137. 4010 printtab(17)"[162][162][162][162][162][162][162]"
  138. 4020 printtab(16)"[159]        "
  139. 4030 printtab(16)"[159] [204]aden  "
  140. 4040 printtab(16)"[159]       [162]"
  141. 4050 printtab(11)"[154][198]ilename: [158]";
  142. 4060 az=16
  143. 4065 gosub50000:ifpf=1then7000
  144. 4066 printtab(11)"[156][211]earching":gosub10000
  145. 4067 ifdr=0thenprint"[147]"tab(7)"[198]loppy ist ausgeschaltet!"
  146. 4068 ifdr=0thenforn=1to2000:nextn:goto7000
  147. 4080 open2,8,2,hv$+",s,r":close2
  148. 4090 open1,8,15:input#1,a:close1
  149. 4100 ifa<>0thenprinttab(11)"[198]ile not found!":forn=1to1000:next:goto7000
  150. 4105 printtab(11)"[210]eading"
  151. 4110 open2,8,2,hv$+",s,r"
  152. 4120 input#2,sn
  153. 4130 forn=1tosn-1
  154. 4140 fori=1to6
  155. 4150 input#2,ei$(n,i)
  156. 4160 nexti,n:close2
  157. 4170 printtab(11)"[207][203].":forn=1to500:next:goto7000
  158. 5000 print"[147]"
  159. 5005 ifsn=1thenprinttab(8)"[203]eine [196]aten im [211]peicher!"
  160. 5006 ifsn=1thenforn=1to2000:next:goto7000
  161. 5010 printtab(15)"[162][162][162][162][162][162][162][162][162][162][162]"
  162. 5020 printtab(14)"[159]            "
  163. 5030 printtab(14)"[159] [211]peichern  "
  164. 5040 printtab(14)"[159]           [162]"
  165. 5050 printtab(9)"[154][198]ilename: [158]@:";
  166. 5055 az=16
  167. 5060 gosub50000:ifpf=1then7000
  168. 5061 printtab(9)"[156][195]hecking [196]isk":gosub10000
  169. 5062 ifdr=0thenprint"[147]"tab(7)"[198]loppy ist ausgeschaltet!"
  170. 5063 ifdr=0thenforn=1to2000:nextn:goto7000
  171. 5065 hv$="@:"+hv$
  172. 5080 open2,8,2,hv$+",s,w":close2
  173. 5090 open1,8,15:input#1,a:close1
  174. 5100 ifa<>0thenprinttab(9)"[198]ehler!":forn=1to500:next:goto7000
  175. 5105 printtab(9)"[215]riting"
  176. 5110 open2,8,2,hv$+",s,w"
  177. 5120 print#2,sn
  178. 5130 forn=1tosn-1
  179. 5140 fori=1to6
  180. 5150 print#2,ei$(n,i)
  181. 5160 nexti,n:close2
  182. 5170 printtab(9)"[207][203].":forn=1to500:next:goto7000
  183. 6000 print"[147]"
  184. 6005 ifsn=1thenprinttab(8)"[203]eine [196]aten im [211]peicher!"
  185. 6006 ifsn=1thenforn=1to2000:next:goto500
  186. 6010 printtab(14)"[162][162][162][162][162][162][162][162][162][162][162][162][162]"
  187. 6020 printtab(13)"[159]              "
  188. 6030 printtab(13)"[159] [196]urchsuchen  "
  189. 6040 printtab(13)"[159]             [162]"
  190. 6050 printtab(13)"[208]erson [206]r."
  191. 6060 printtab(12)"[156][163][163][163][183][183][183][184][184][184][184][183][183][183][163][163][163]"
  192. 6070 printtab(10)"[154][214]orname :"
  193. 6080 printtab(10)"[206]achname:"
  194. 6090 printtab(10)"[193]dresse :"
  195. 6100 printtab(10)"[215]ohnort :"
  196. 6110 printtab(10)"[212]elefon :"
  197. 6120 printtab(10)"geb. am :"
  198. 6130 printtab(7)"[155][211]uchbegriff: [152]";:az=18:gosub50000:ifpf=1then500
  199. 6135 sb$=hv$
  200. 6140 print""tab(16)"[153][211]uche..."
  201. 6150 forn=1tosn-1
  202. 6160 fori=1to6
  203. 6170 hv$=ei$(n,i)
  204. 6180 forx=1tolen(hv$)-len(sb$)+1
  205. 6190 ifsb$=mid$(hv$,x,len(sb$))then6210
  206. 6200 nextx,i,n:print"[147]"tab(15)"[196]ateiende!":forn=1to2000:nextn:goto500
  207. 6210 print""tab(23)right$(str$(n),4)
  208. 6215 print""tab(20);
  209. 6220 ifi=1thenprint"[158]"left$(hv$,x-1)""sb$"[158]"right$(hv$,len(hv$)-x-len(sb$)+1)
  210. 6230 ifi<>1thenprint"[158]"ei$(n,1)
  211. 6240 printtab(20);
  212. 6250 ifi=2thenprint"[158]"left$(hv$,x-1)""sb$"[158]"right$(hv$,len(hv$)-x-len(sb$)+1)
  213. 6260 ifi<>2thenprint"[158]"ei$(n,2)
  214. 6270 printtab(20);
  215. 6280 ifi=3thenprint"[158]"left$(hv$,x-1)""sb$"[158]"right$(hv$,len(hv$)-x-len(sb$)+1)
  216. 6290 ifi<>3thenprint"[158]"ei$(n,3)
  217. 6300 printtab(20);
  218. 6310 ifi=4thenprint"[158]"left$(hv$,x-1)""sb$"[158]"right$(hv$,len(hv$)-x-len(sb$)+1)
  219. 6320 ifi<>4thenprint"[158]"ei$(n,4)
  220. 6330 printtab(20);
  221. 6340 ifi=5thenprint"[158]"left$(hv$,x-1)""sb$"[158]"right$(hv$,len(hv$)-x-len(sb$)+1)
  222. 6350 ifi<>5thenprint"[158]"ei$(n,5)
  223. 6360 printtab(20);
  224. 6370 ifi=6thenprint"[158]"left$(hv$,x-1)""sb$"[158]"right$(hv$,len(hv$)-x-len(sb$)+1)
  225. 6380 ifi<>6thenprint"[158]"ei$(n,6)
  226. 6390 printtab(11)"[153][215]eitersuchen? ([202]/[206])"
  227. 6400 geta$:ifa$=""then6400
  228. 6410 ifa$="j"then6440
  229. 6420 ifa$="n"then500
  230. 6430 goto6400
  231. 6440 print""tab(24)"   "
  232. 6450 print"";
  233. 6460 foru=1to6:printtab(20)"                  ":next
  234. 6470 print"[153]"tab(11)"     [211]uche...      "
  235. 6480 goto6200
  236. 7000 print"[147]":dm=1
  237. 7010 printtab(15)"[162][162][162][162][162][162][162][162][162][162][162]"
  238. 7020 printtab(14)"[159]            "
  239. 7030 printtab(14)"[159] [196]isk-[205]enu  "
  240. 7040 printtab(14)"[159]           [162]"
  241. 7050 print""tab(10)"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  242. 7060 forn=1to3
  243. 7070 printtab(10)"[221]                 [221]"
  244. 7080 printtab(10)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  245. 7090 next
  246. 7100 printtab(10)"[221]                 [221]"
  247. 7110 printtab(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  248. 7120 print"[158]";
  249. 7130 forn=1to4:print:printtab(11)dm$(n):next
  250. 7140 cp=1:print""tab(11)dm$(cp)
  251. 7150 geta$:ifa$=""then7150
  252. 7160 ifa$=""andcp<4then7210
  253. 7170 ifa$="[145]"andcp>1then7220
  254. 7180 ifa$=chr$(13)thenoncpgoto4000,5000,9000,7230
  255. 7200 goto7150
  256. 7210 print"[145]"tab(11)dm$(cp):cp=cp+1:print""tab(11)dm$(cp):goto7150
  257. 7220 print"[145]"tab(11)dm$(cp):cp=cp-1:print"[145][145][145]"tab(11)dm$(cp):goto7150
  258. 7230 dm=0:goto500
  259. 8000 print"[147]"tab(4)"[208]rogramm wirklich beenden? ([202]/[206])"
  260. 8010 geta$:ifa$=""then8010
  261. 8020 ifa$="j"thensys64738
  262. 8030 ifa$="n"then500
  263. 8040 goto8010
  264. 9000 print"[147]":gosub10000
  265. 9010 ifdr=0thenprint""tab(7)"[198]loppy ist ausgeschaltet!"
  266. 9020 ifdr=0thenforn=1to2000:nextn:goto7000
  267. 9030 sys49152:goto7000
  268. 10000 dr=0:fs=peek(768)
  269. 10010 poke768,185
  270. 10020 open1,8,15,"i":close1
  271. 10030 poke768,fs
  272. 10040 ifst<>-128thendr=1:return
  273. 10050 return
  274. 50000 pf=0:cp=0:hv$=""
  275. 50010 print"[164][157]";
  276. 50020 geta$:ifa$=""then50020
  277. 50030 ifa$=chr$(34)ora$=chr$(148)then50020
  278. 50040 ifa$="_"thenpf=1:return
  279. 50042 ifa$="#"anddm=1then50020
  280. 50043 ifa$="$"anddm=1then50020
  281. 50045 ifa$=chr$(13)andcp>0thenprint" ":return
  282. 50050 ifa$=chr$(20)andcp>0then50080
  283. 50060 ifa$=>" "anda$<"_"andcp<azora$=>"[193]"anda$<="[218]"andcp<azthen50090
  284. 50070 goto50020
  285. 50080 printa$;:hv$=left$(hv$,len(hv$)-1):cp=cp-1:goto50010
  286. 50090 printa$;:hv$=hv$+a$:cp=cp+1:goto50010
  287.