home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_92-01_1992_-_de_Side_B.d64 / daten-verwaltung (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  187 lines

  1. 1000 print"[147]":poke53280,0:poke53281,0
  2. 1005 poke773,27
  3. 1010 printchr$(8):poke53272,23:dimei$(500):poke788,52:poke792,193:poke650,120
  4. 1011 print"[158][194]itte warten!"
  5. 1012 forz=1to100
  6. 1013 forc=0to4
  7. 1014 ei$(z*5-c)=" "
  8. 1015 nextc:nextz:print"[147]"
  9. 1020 an=an+1:print"   [193]dresse";an;"[157] "
  10. 1025 print"[183][183][183][183][183][183][183][183][183][183][183]"
  11. 1030 print"[154]   [214]orname :                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  12. 1035 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  13. 1040 print"   [206]achname:                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  14. 1045 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  15. 1050 print"   [193]dresse[160]:                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  16. 1055 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  17. 1060 print"   [215]ohnort :                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  18. 1065 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  19. 1070 print"   [212]elefon :                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  20. 1075 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  21. 1080 print"[158]";ei$(an*5-4):print
  22. 1090 print"";ei$(an*5-3):print
  23. 1100 print"";ei$(an*5-2):print
  24. 1110 print"";ei$(an*5-1):print
  25. 1120 print"";ei$(an*5):print
  26. 1130 print"[156][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":ifas=1thengoto8400
  27. 1140 print"[198]1:naechste [193]dresse [198]2:[196]atei laden"
  28. 1150 print"[155][198]3:letzte [193]dresse   [198]4:[196]atei speichern"
  29. 1160 print"[152][198]5:[193]dresse eingeben [198]6:[193]dresse suchen"
  30. 1170 print"[151][198]7:[193]dresse loeschen [198]8:[208]rogrammende"
  31. 1180 geta$:ifa$=""then1180
  32. 1190 ifa$="[133]"then2000
  33. 1200 ifa$="[134]"then3000
  34. 1210 ifa$="[135]"then4000
  35. 1220 ifa$="[136]"then5000
  36. 1230 ifa$="[137]"then6000
  37. 1240 ifa$="[138]"then7000
  38. 1250 ifa$="[139]"then8000
  39. 1260 ifa$="[140]"then9000
  40. 1270 goto1180
  41. 2000 ifan<100then2020
  42. 2010 goto1080
  43. 2020 print"                    "
  44. 2030 print"                    "
  45. 2040 print"                    "
  46. 2050 print"                    "
  47. 2060 print"                    ":goto1020
  48. 3000 ifan>1then3020
  49. 3010 goto1080
  50. 3020 print"                    "
  51. 3030 print"                    "
  52. 3040 print"                    "
  53. 3050 print"                    "
  54. 3060 print"                    ":an=an-2:goto1020
  55. 4000 ei$(an*5-4)="":print"                    "
  56. 4001 ei$(an*5-3)="":print"                    "
  57. 4002 ei$(an*5-2)="":print"                    "
  58. 4003 ei$(an*5-1)="":print"                    "
  59. 4004 ei$(an*5)="":print"                    "
  60. 4005 print"";:hv=4:x=0
  61. 4010 print"[158] [146]";
  62. 4020 gett$:ift$=""then4020
  63. 4030 ift$=chr$(34)then4020
  64. 4040 ifasc(t$)>31andasc(t$)<96andx<20then4090
  65. 4050 ifasc(t$)>192andasc(t$)<219andx<20then4090
  66. 4060 ift$=chr$(20)andx>0then4110
  67. 4070 ift$=chr$(13)thenprint"[157] ":goto4200
  68. 4080 goto4020
  69. 4090 print"[157]";t$;:x=x+1      
  70. 4100 ei$(an*5-hv)=ei$(an*5-hv)+t$:goto4010
  71. 4110 print"[157] [157][157]";:x=x-1
  72. 4120 ei$(an*5-hv)=left$(ei$(an*5-hv),len(ei$(an*5-hv))-1):goto4010
  73. 4200 ifhv=0thenan=an-1:goto1020
  74. 4210 hv=hv-1:print"";:x=0:goto4010
  75. 5000 ei$(an*5-4)=""
  76. 5010 ei$(an*5-3)=""
  77. 5020 ei$(an*5-2)=""
  78. 5030 ei$(an*5-1)=""
  79. 5040 ei$(an*5)=""
  80. 5050 print"                    "
  81. 5060 print"                    "
  82. 5070 print"                    "
  83. 5080 print"                    "
  84. 5090 print"                    ":an=an-1:goto1020
  85. 6000 print"[147]":x=0:fl$="":ea=1:la=1
  86. 6010 print"[154][204]oadname: ";
  87. 6020 print"[158] [146]";
  88. 6030 gett$:ift$=""then6030
  89. 6040 ift$=chr$(34)then6030
  90. 6050 ifasc(t$)>31andasc(t$)<65andx<16orasc(t$)>90andasc(t$)<96andx<16then6200
  91. 6055 ifasc(t$)>64andasc(t$)<91andx<16then6250
  92. 6060 ift$=chr$(20)andx>0then6300
  93. 6070 ift$=chr$(13)thenprint"[157] ":goto6400
  94. 6080 goto6030
  95. 6200 print"[157]";t$;:fl$=fl$+t$:x=x+1:goto6020
  96. 6250 print"[157]";chr$(asc(t$)+32);:fl$=fl$+t$:x=x+1:goto6020
  97. 6300 print"[157] [157][157]";:x=x-1:fl$=left$(fl$,len(fl$)-1):goto6020
  98. 6400 ifx=0thenan=an-1:print"[147]":goto1020
  99. 6500 print"[194]itte warten!"
  100. 6510 open2,8,2,fl$+",s,r"
  101. 6520 input#2,ea:input#2,la
  102. 6530 fore=eatola
  103. 6540 input#2,ei$(e*5-4)
  104. 6550 input#2,ei$(e*5-3)
  105. 6560 input#2,ei$(e*5-2)
  106. 6570 input#2,ei$(e*5-1)
  107. 6580 input#2,ei$(e*5)
  108. 6590 nexte:close2
  109. 6600 print"[147]":an=0:goto1020
  110. 7000 print"[147]":x=0:fl$="":ea=1:la=1
  111. 7010 print"[154][211]avename: ";
  112. 7020 print"[158] [146]";
  113. 7030 gett$:ift$=""then7030
  114. 7040 ift$=chr$(34)then7030
  115. 7050 ifasc(t$)>31andasc(t$)<65andx<16orasc(t$)>90andasc(t$)<96andx<16then7200
  116. 7055 ifasc(t$)>64andasc(t$)<91andx<16then7250
  117. 7060 ift$=chr$(20)andx>0then7300
  118. 7070 ift$=chr$(13)thenprint"[157] ":goto7400
  119. 7080 goto7030
  120. 7200 print"[157]";t$;:fl$=fl$+t$:x=x+1:goto7020
  121. 7250 print"[157]";chr$(asc(t$)+32);:fl$=fl$+t$:x=x+1:goto7020
  122. 7300 print"[157] [157][157]";:x=x-1:fl$=left$(fl$,len(fl$)-1):goto7020
  123. 7400 ifx=0thenan=an-1:print"[147]":goto1020
  124. 7405 print"[155][214]on [193]dresse [206]r.     ([198]1/[198]3)"
  125. 7410 print"[152][194]is [193]dresse [206]r.     ([198]5/[198]7)"
  126. 7415 print"[151]'[210][197][212][213][210][206]'"
  127. 7420 print"[155]";ea;"[157] "
  128. 7430 print"[152]";la;"[157] "
  129. 7435 poke650,128
  130. 7440 getft$:ifft$="[133]"andea<100thenea=ea+1:goto7420
  131. 7450 ifft$="[134]"andea>1thenea=ea-1:goto7420
  132. 7460 ifft$="[135]"andla<100thenla=la+1:goto7420
  133. 7470 ifft$="[136]"andla>1thenla=la-1:goto7420
  134. 7480 ifft$=chr$(13)thengosub7600:poke650,1:goto7500
  135. 7490 goto7440
  136. 7500 print"[194]itte warten!"
  137. 7503 open2,8,2,"@:"+fl$+",s,w"
  138. 7505 print#2,ea:print#2,la
  139. 7510 fore=eatola
  140. 7520 print#2,ei$(e*5-4)
  141. 7530 print#2,ei$(e*5-3)
  142. 7540 print#2,ei$(e*5-2)
  143. 7550 print#2,ei$(e*5-1)
  144. 7560 print#2,ei$(e*5)
  145. 7570 nexte:close2
  146. 7580 print"[147]":an=an-1:goto1020
  147. 7600 print"[155][193]chtung: [152][199]leichnamige [196]atei wird"
  148. 7605 print"           ueberschrieben!       "
  149. 7610 print"[151][212]rotzdem? ([202]/[206])              "
  150. 7620 geta$:ifa$="j"ora$="[202]"thenreturn
  151. 7630 ifa$="n"ora$="[206]"thenpoke650,1:an=an-1:print"[147]":goto1020
  152. 7640 goto7620
  153. 8000 x=0:sb$=""
  154. 8005 print"                                       "
  155. 8010 print"                                       "
  156. 8020 print"                                       "
  157. 8030 print"                                        [145][145][145][145][145][145][145]  ";
  158. 8040 print"[152][211]uchbegriff: ";
  159. 8050 print"[151] [146]";
  160. 8060 gett$:ift$=""then8060
  161. 8070 ift$=chr$(34)then8060
  162. 8080 ifasc(t$)>31andasc(t$)<96andx<20then8200
  163. 8090 ifasc(t$)>192andasc(t$)<219andx<20then8200
  164. 8100 ift$=chr$(20)andx>0then8210
  165. 8110 ift$=chr$(13)thenprint"[157] ":goto8220
  166. 8120 goto8060
  167. 8200 print"[157]";t$;:sb$=sb$+t$:x=x+1:goto8050
  168. 8210 print"[157] [157][157]";:x=x-1:sb$=left$(sb$,len(sb$)-1):goto8050
  169. 8220 print"                                  "        "
  170. 8221 [153]"  print#(NULL)uche nach: poke";sb$             "        "
  171. 8225 [139]ws[178]1[167]8260
  172. 8230 [129]z1[178]1[164]100
  173. 8240 [129]z2[178]0[164]4
  174. 8250 [139]sb$[178][200](ei$(z1[172]5[171]z2),[195](sb$))[167]8300
  175. 8260 [130]z2:[130]z1:[153]"               str$ateiende!"
  176. 8270 [129]q[178]1[164]1000:[130]q:an[178]an[171]1:ws[178]0:as[178]0:[137]1020
  177. 8300 an[178]z1[171]1:as[178]1:[137]1020
  178. 8400 [153]"list  (NULL)waiteitersuchen oder peekwaiteenden?"
  179. 8410 [161]e$:[139]e$[178]"w"[176]e$[178]"(NULL)"[167]ws[178]1:[137]8220
  180. 8420 [139]e$[178]"b"[176]e$[178]"peek"[167]as[178]0:an[178]an[171]1:ws[178]0:[137]1020
  181. 8430 [137]8410
  182. 9000 [153]"load"
  183. 9010 [153]"print#(NULL)irklich? (mid$/(NULL))"
  184. 9020 [161]a$:[139]a$[178]"mid$"[176]a$[178]"j"[167][158]64738
  185. 9030 [139]a$[178]"(NULL)"[176]a$[178]"n"[167]an[178]an[171]1:[153]"load":[137]1020
  186. 9040 [137]9020
  187.