home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / verwarn2 / verwarn2.bas < prev    next >
BASIC Source File  |  1997-10-09  |  14KB  |  259 lines
  1. 1 REM
  2. 2 REM 7,"<" KEY 8,"@" KEY 9,"^" KEY 10,"\"
  3. 3 B$="A"
  4. 10 GOTO 100
  5. 20 ZZ$=LEFT$(ZZ$,L):ZZ$=ZZ$+STRING$(L-LEN(ZZ$),32):Z2=0:Y=1
  6. 21 LOCATE R,S,O:PRINT ZZ$;
  7. 22 LOCATE R,S+Y-1,1
  8. 23 Z$=INKEY$: IF Z$="" THEN 23 ELSE Z=ASC(Z$): Z1=0: IF Z=0 THEN Z1=ASC(RIGHT$(Z$,1))
  9. 24 IF Z<>13 THEN 28 ELSE IF Z2 >0 THEN 23
  10. 25 IF Y=1 THEN ZZ$=CHR$(13): LOCATE ,,0: RETURN
  11. 26 IF RIGHT$(ZZ$,1)="_" THEN ZZ$=LEFT$(ZZ$,INSTR(ZZ$,"_")-1)
  12. 27 LOCATE ,,0: RETURN
  13. 28 IF Z<>0 THEN 48
  14. 29 IF Z1<>71 THEN 31 ELSE IF Y=1 OR Z2 THEN 23
  15. 30 Y=1:GOTO 22
  16. 31 IF Z1<>75 THEN 34 ELSE IF Y=1 OR Z2 THEN 23
  17. 32 Y=Y-1:GOTO 22
  18. 34 Y=Y+1:GOTO 22
  19. 35 IF Z1<>79 THEN 39 ELSE IF Y>L OR Z2 THEN 23
  20. 36 IF MID$(ZZ$,Y,1)="_" THEN 23
  21. 37 Y=Y+1
  22. 38 IF MID$(ZZ$,Y,1)="_" THEN 22 ELSE 37
  23. 39 IF Z1<>82 THEN 42 ELSE IF RIGHT$(ZZ$,1)<>"_" THEN 23
  24. 40 IF (Z2=0 AND MID$(ZZ$,Y,1)="_") OR Y>L THEN 23
  25. 41 ZZ$=LEFT$(ZZ$,Y-1)+"_"+MID$(ZZ$,Y,L-Y):Z2=Z2+1:GOTO 21
  26. 42 IF Z1<>83 THEN 44 ELSE IF (Z2=0 AND MID$(ZZ$,Y,1)="_") OR Y>L THEN 23
  27. 43 GOSUB 56:ZZ$=LEFT$(ZZ$,Y-1)+MID$(ZZ$,Y+1)+"_":GOTO 21
  28. 44 IF Z1<>117 THEN 46 ELSE IF (Z2=0 AND MID$(ZZ$,Y,1)="_") OR Y>L THEN 23
  29. 45 GOSUB 56:ZZ$=LEFT$(ZZ$,Y-1)+STRING$(L-Y+1,32):GOTO 21
  30. 46 IF Z1<>119 THEN 23 ELSE IF Y=1 THEN 23
  31. 47 ZZ$=MID$(ZZ$,Y)+STRING$(Y-1,32):Y=1:GOTO 21
  32. 48 IF Z<>8 THEN 50 ELSE IF Y=1 THEN 23
  33. 49 ZZ$=LEFT$(ZZ$,Y-2)+MID$(ZZ$,Y)+"_":Y=Y-1:GOTO 21
  34. 50 IF Z<>27 THEN 51 ELSE ZZ$=STRING$(L,32):Y=1:Z2=0: GOTO 21
  35. 51 IF Z=95 OR Y>L THEN 23
  36. 52 ON PK% GOTO 55,53,54
  37. 53 IF Z<46 OR Z>58 THEN 23 ELSE 55
  38. 54 IF Z<>106 AND Z<>110 THEN 23
  39. 55 IF Z=44 THEN 23 ELSE GOSUB 56:ZZ$=LEFT$(ZZ$,Y-1)+Z$+MID$(ZZ$,Y+1):PRINT Z$;:Y=Y+1:GOTO 22
  40. 56 IF Z2 THEN Z2=Z2-1
  41. 57 RETURN
  42. 70 E$=INKEY$: IF E$="" THEN 70
  43. 71 RETURN
  44. 80  LOCATE 21,1: PRINT CHR$(32);: PRINT "                    JEDE EINGABE MIT RETURN BESTÄTIGEN                        ";: PRINT CHR$(32)
  45. 81 RETURN
  46. 85  LOCATE 21,1: PRINT CHR$(32);: PRINT "                       EINGABE IST ERFORDERLICH                               ";: PRINT CHR$(32)
  47. 86 RETURN
  48. 97 LOCATE 21,1: PRINT CHR$(32);: PRINT "     GEBEN SIE DIE ZU SUCHENDE VERWARNUNGSNUMMER AN. MIT TASTE * ZURÜCK       ";: PRINT CHR$(32): RETURN
  49. 98 LOCATE 21,1: PRINT CHR$(32);: PRINT "                       DATEN WERDEN GESPEICHERT. BITTE WARTEN.                ";: PRINT CHR$(32): RETURN
  50. 99 LOCATE 21,1: PRINT CHR$(32);: PRINT "                       DATEN WERDEN EINGELESEN . BITTE WARTEN.                ";: PRINT CHR$(32): RETURN
  51. 100 CLS: LOCATE ,,0
  52. 101 COLOR 0,7:PRINT " ------ (c) 1991 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------- ";:color 7,0:print " "
  53. 102 LOCATE 3,20: PRINT "VERWARNUNGEN-DATEI     Public Domain Version 1.0"
  54. 103 LOCATE 4,1: PRINT STRING$(79,32): GOSUB 110: GOTO 142
  55. 110 LOCATE 6,1: PRINT CHR$(32);STRING$(29,32);CHR$(32)
  56. 111 LOCATE 7,1: PRINT CHR$(32);" VERWARNUNGS-NR :            ";CHR$(32)
  57. 112 LOCATE 8,1: PRINT CHR$(32);STRING$(29,32);CHR$(32)
  58. 113 LOCATE 6,33: PRINT CHR$(32);STRING$(20,32);CHR$(32)
  59. 114 LOCATE 7,33: PRINT CHR$(32);" DATUM :            ";CHR$(32)
  60. 115 LOCATE 8,33: PRINT CHR$(32);STRING$(20,32);CHR$(32)
  61. 116 LOCATE 6,56: PRINT CHR$(32);STRING$(23,32);CHR$(32)
  62. 117 LOCATE 7,56: PRINT CHR$(32);" ORT :                 ";CHR$(32)
  63. 118 LOCATE 8,56: PRINT CHR$(32);STRING$(23,32);CHR$(32)
  64. 120 LOCATE 10,1: PRINT CHR$(32);STRING$(29,32);CHR$(32)
  65. 121 LOCATE 11,1: PRINT CHR$(32);" STRASSE :                   ";CHR$(32)
  66. 122 LOCATE 12,1: PRINT CHR$(32);STRING$(29,32);CHR$(32)
  67. 123 LOCATE 10,33: PRINT CHR$(32);STRING$(20,32);CHR$(32)
  68. 124 LOCATE 11,33: PRINT CHR$(32);" BETRAG:            ";CHR$(32)
  69. 125 LOCATE 12,33: PRINT CHR$(32);STRING$(20,32);CHR$(32)
  70. 126 LOCATE 10,56: PRINT CHR$(32);STRING$(23,32);CHR$(32)
  71. 127 LOCATE 11,56: PRINT CHR$(32);" TAT :                 ";CHR$(32)
  72. 128 LOCATE 12,56: PRINT CHR$(32);STRING$(23,32);CHR$(32)
  73. 130 LOCATE 14,1: PRINT CHR$(32);STRING$(29,32);CHR$(32)
  74. 131 LOCATE 15,1: PRINT CHR$(32);"             0 = UNBEZAHLT   ";CHR$(32)
  75. 132 LOCATE 16,1: PRINT CHR$(32);" ZAHLUNG :   1 = BEZAHLT     ";CHR$(32)
  76. 133 LOCATE 17,1: PRINT CHR$(32);STRING$(29,32);CHR$(32)
  77. 134 LOCATE 14,33: PRINT CHR$(32);STRING$(20,32);CHR$(32)
  78. 135 LOCATE 15,33: PRINT CHR$(32);"   ZAHLUNGSDATUM    ";CHR$(32)
  79. 136 LOCATE 16,33: PRINT CHR$(32);" DATUM :            ";CHR$(32)
  80. 137 LOCATE 17,33: PRINT CHR$(32);STRING$(20,32);CHR$(32)
  81. 138 LOCATE 14,56: PRINT CHR$(32);STRING$(23,32);CHR$(32)
  82. 139 LOCATE 15,56: PRINT CHR$(32);"           0= ZAHLKARTE";CHR$(32)
  83. 140 LOCATE 16,56: PRINT CHR$(32);"BEZAHLT :  1= ÜBERWEIS.";CHR$(32)
  84. 141 LOCATE 17,56: PRINT CHR$(32);STRING$(23,32);CHR$(32): RETURN
  85. 142 LOCATE 18,1: PRINT STRING$(79,32)
  86. 144 LOCATE 20,1: PRINT CHR$(32);STRING$(78,32);CHR$(32)
  87. 145 LOCATE 21,1: PRINT CHR$(32);: PRINT "  EINGABE = ^       AUSGABE = \  LW WECHSLEN = <  TEXT = T     ENDE = @  ";: PRINT CHR$(32)
  88. 146 LOCATE 22,1: PRINT CHR$(32);STRING$(78,32);CHR$(32)
  89. 150 E$=INKEY$: IF E$="" THEN 150
  90. 151 IF E$="^" THEN GOSUB 275: GOTO 200
  91. 152 IF E$="\" THEN GOSUB 275: GOTO 300
  92. 153 IF E$="<" THEN GOSUB 389: GOTO 145
  93. 154 IF E$="@" THEN GOSUB 399: GOTO 145
  94. 155 IF E$="T" OR E$="t" THEN 500
  95. 156 GOTO 150
  96. 200 GOSUB 80
  97. 201 ZZ$="": LOCATE 5,2: PRINT "KEINE ANGABE VON PUNKTEN"
  98. 202 R=7: S=20: L=10: PK%=1: GOSUB 20: F1$=ZZ$: IF F1$="*" THEN 100
  99. 203 IF F1$=CHR$(13) THEN BEEP: GOSUB 85: ZZ$="": GOTO 202
  100. 205 GOSUB 80
  101. 206 ZZ$=""
  102. 207 R=7: S=43: L=10: PK%=2: GOSUB 20: F2$=ZZ$
  103. 208 IF F2$=CHR$(13) THEN BEEP: GOSUB 85: GOTO 206
  104. 215 GOSUB 80
  105. 216 ZZ$=""
  106. 217 R=7: S=64: L=15: PK%=1: GOSUB 20: F3$=ZZ$
  107. 218 IF F3$=CHR$(13) THEN BEEP: GOSUB 85: GOTO 216
  108. 220 GOSUB 80
  109. 221 ZZ$=""
  110. 222 R=11: S=13: L=17: PK%=1: GOSUB 20: F4$=ZZ$
  111. 223 IF F4$=CHR$(13) THEN BEEP: GOSUB 85: GOTO 221
  112. 225 GOSUB 80
  113. 230 ZZ$=""
  114. 231 R=11: S=43: L=5: PK%=2: GOSUB 20: F5$=ZZ$
  115. 232 IF F5$=CHR$(13) THEN BEEP: GOSUB 85: GOTO 230
  116. 235 GOSUB 80
  117. 236 ZZ$=""
  118. 237 R=11: S=64: L=15: PK%=1: GOSUB 20: F6$=ZZ$
  119. 238 IF F6$=CHR$(13) THEN BEEP: GOSUB 85: GOTO 236
  120. 240 GOSUB 80
  121. 241 ZZ$=""
  122. 242 R=16: S=13: L=1: PK%=2: GOSUB 20: F7$=ZZ$
  123. 243 IF F7$=CHR$(13) THEN F7$="0": GOTO 245
  124. 244 Z=VAL(F7$): IF Z>1 THEN BEEP: GOSUB 85: GOTO 241
  125. 245 IF F7$="0" THEN LOCATE 15,19: PRINT "UNBEZAHLT"
  126. 246 IF F7$="1" THEN LOCATE 16,19: PRINT "BEZAHLT  "
  127. 247 IF F7$="1" THEN 250 ELSE 265
  128. 250 GOSUB 80
  129. 251 ZZ$=""
  130. 252 R=16: S=43: L=10: PK%=2: GOSUB 20: F8$=ZZ$
  131. 253 IF F8$=CHR$(13) THEN BEEP: GOSUB 85:  GOTO 251
  132. 255 GOSUB 80
  133. 256 ZZ$="0"
  134. 257 R=16: S=65: L=1: PK%=2: GOSUB 20: F9$=ZZ$
  135. 258 IF F9$=CHR$(13) THEN F9$="0": GOTO 260
  136. 259 Z=VAL(F9$): IF Z>1 THEN BEEP: GOSUB 85: GOTO 256
  137. 260 IF F9$="0" THEN LOCATE 15,71: PRINT "ZAHLKARTE"
  138. 261 IF F9$="1" THEN LOCATE 16,71: PRINT "ÜBERWEIS."
  139. 262 GOTO 269
  140. 265 F8$="-": F9$="-"
  141. 269 LOCATE 21,1: PRINT CHR$(32);: PRINT "  WEITERE EINGABE = ^         KORREKTUR = @                ZURÜCK  = \ ";: PRINT CHR$(32)
  142. 270 E$=INKEY$: IF E$="" THEN 270
  143. 271 IF E$="^" THEN GOSUB 280: GOSUB 275: GOTO 200
  144. 272 IF E$="@" THEN GOSUB 276: GOTO 201
  145. 273 IF E$="\" THEN GOSUB 280: GOTO 100
  146. 274 GOTO 270
  147. 275 F1$="": F2$="": F3$="": F4$="": F5$="": F6$="": F7$="": F8$="": F9$="": RETURN
  148. 276 LOCATE 15,19: PRINT "UNBEZAHLT"
  149. 277 LOCATE 16,19: PRINT "BEZAHLT  "
  150. 278 LOCATE 15,71: PRINT "ZAHLKARTE"
  151. 279 LOCATE 16,71: PRINT "ÜBERWEIS.": RETURN
  152. 280 NA$=B$+":"+MID$(F1$,1,8)+"."+MID$(F1$,9,3): GOSUB 98
  153. 281 OPEN NA$ FOR OUTPUT AS #1
  154. 282 PRINT #1,F1$: PRINT #1,F2$: PRINT #1,F3$: PRINT #1,F4$: PRINT #1,F5$
  155. 283 PRINT #1,F6$: PRINT #1,F7$: PRINT #1,F8$: PRINT #1,F9$
  156. 284 CLOSE #1: RETURN
  157. 290 ON ERROR GOTO 294: NA$=B$+":"+MID$(SU$,1,8)+"."+MID$(SU$,9,3): GOSUB 99
  158. 291 OPEN NA$ FOR INPUT AS #1
  159. 292 INPUT #1,F1$,F2$,F3$,F4$,F5$,F6$,F7$,F8$,F9$
  160. 293 CLOSE #1: RETURN
  161. 294 IF ERR=53 AND ERR=58 OR ERR=1230 THEN 296
  162. 295 REM
  163. 296 LOCATE 21,1: PRINT CHR$(32);: PRINT "          KEINE VERWARNUNGSDATEI GEFUNDEN. BELIEBIGE TASTE DRÜCKEN            ";: PRINT CHR$(32)
  164. 297 GOSUB 70: GOTO 300
  165. 300 LOCATE 5,2: PRINT "KEINE ANGABE VON PUNKTEN": ZZ$="": SU$="": GOSUB 97
  166. 302 R=7: S=20: L=10: PK%=1: GOSUB 20: SU$=ZZ$: IF SU$="*" THEN 100
  167. 303 IF SU$=CHR$(13) THEN BEEP: GOSUB 85: GOTO 300
  168. 305 GOSUB 275: GOSUB 290
  169. 306 IF F1$="" THEN 296
  170. 310 LOCATE 7,20: PRINT F1$: LOCATE 7,43: PRINT F2$: LOCATE 7,64: PRINT F3$
  171. 311 LOCATE 11,13: PRINT F4$: LOCATE 11,43: PRINT F5$: LOCATE 11,64: PRINT F6$
  172. 312 IF F7$="0" THEN LOCATE 16,13: PRINT F7$: LOCATE 15,19: PRINT "UNBEZAHLT"
  173. 313 IF F7$="1" THEN LOCATE 16,13: PRINT F7$;TAB(19);: PRINT "BEZAHLT  "
  174. 314 IF F7$="0" THEN 319
  175. 315 LOCATE 16,43: PRINT F8$
  176. 316 IF F9$="0" THEN LOCATE 15,65:PRINT F9$;TAB(71);: PRINT "ZAHLKARTE"
  177. 317 IF F9$="1" THEN LOCATE 16,65:PRINT F9$;TAB(71);: PRINT "ÜBERWEIS."
  178. 319 LOCATE 21,1: PRINT CHR$(32);: PRINT "  VERWARNUNG BEZAHLT = @  DRUCK= <    NEUE AUSGABE= ^    ZURÜCK = \  ";: PRINT CHR$(32)
  179. 320 E$=INKEY$: IF E$="" THEN 320
  180. 321 IF E$="@" THEN GOSUB 350: GOSUB 280: GOTO 319
  181. 322 IF E$="\" THEN 100
  182. 323 IF E$="^" THEN GOSUB 110: GOTO 300
  183. 324 IF E$="<" THEN GOSUB 329: GOTO 319
  184. 325 GOTO 320
  185. 329 LOCATE 21,1: PRINT CHR$(32);: PRINT "          DRUCKER EIN + TASTE = D  DRÜCKEN                     ZURÜCK = \  ";: PRINT CHR$(32)
  186. 330 E$=INKEY$: IF E$="" THEN 330
  187. 331 IF E$="\" THEN RETURN
  188. 332 IF E$="D" OR E$="D" THEN 335
  189. 333 GOTO 330
  190. 335 LPRINT TAB(5)"VERWARNUNG NR. : ";LEFT$(F1$,2);".";MID$(F1$,3,7);".";MID$(F1$,9,1)
  191. 336 LPRINT TAB(5)"TAG DER TAT    : ";F2$; TAB(40);"ORT DER TAT   : ";F3$
  192. 337 LPRINT TAB(5)"VERGEHEN       : ";F6$; TAB(40);"STRASSE       : ";F4$
  193. 338 LPRINT TAB(5)"BETRAG         : ";F5$;" DM"
  194. 339 IF F7$="1" THEN 341
  195. 340 LPRINT TAB(5)"ZAHLUNG        :  BETRAG NOCH NICHT BEZAHLT": GOTO 345
  196. 341 IF F9$="0" THEN A$="PER ZAHLKARTE" ELSE A$="PER ÜBERWEISUNG"
  197. 342 LPRINT TAB(5)"BETRAG BEZAHLT : ";F8$;TAB(40); "ZAHLUNGSART   : ";A$
  198. 345 RETURN
  199. 350 GOSUB 80
  200. 351 IF F8$="-" THEN ZZ$="": GOTO 352 ELSE GOTO 319
  201. 352 R=16: S=43: L=10: PK%=2: GOSUB 20: F8$=ZZ$
  202. 353 IF F8$=CHR$(13) THEN BEEP: GOSUB 85:  ZZ$="": GOTO 352
  203. 355 GOSUB 80
  204. 356 ZZ$="0"
  205. 357 R=16: S=65: L=1: PK%=2: GOSUB 20: F9$=ZZ$
  206. 358 IF F9$=CHR$(13) THEN F9$="0": GOTO 360
  207. 359 Z=VAL(F9$): IF Z>1 THEN BEEP: GOSUB 85: GOTO 356
  208. 360 IF F9$="0" THEN LOCATE 15,71: PRINT "ZAHLKARTE"
  209. 361 IF F9$="1" THEN LOCATE 16,71: PRINT "ÜBERWEIS."
  210. 362 RETURN
  211. 389 LOCATE 21,1: PRINT CHR$(32);: PRINT "  BISHER LAUFWERK : ";B$;"     NEUE LAUFWERKSANGABE :                             ";: PRINT CHR$(32)
  212. 390 TE$=B$: ZZ$="": R=21: S=53: L=1: PK%=1: GOSUB 20: B$=ZZ$
  213. 391 IF B$="*" THEN B$=TE$: RETURN
  214. 392 IF B$=CHR$(13) THEN BEEP: GOSUB 85: GOTO 390
  215. 393 IF B$="A" OR B$="a" OR B$="B" OR B$="b" OR B$="C" OR B$="C" THEN 395
  216. 394 BEEP: GOSUB 85: GOTO 390
  217. 395 RETURN
  218. 399 LOCATE 21,1: PRINT CHR$(32);: PRINT "                      PROGRAMM BEENDEN. SICHER (J/N) ?                        ";: PRINT CHR$(32)
  219. 400 E$=INKEY$: IF E$="" THEN 400
  220. 401 IF E$="J" OR E$="j" THEN CLS: END
  221. 402 RETURN
  222. 500 LOCATE 6,1: PRINT "Mit diesem Programm können Sie Ihre Verwarnungen, die wohl jeder Autofahrer     "
  223. 501 LOCATE 7,1: PRINT "erhält, verwalten. Es können beliebig viele Verwarnungen verwaltet werden .     "
  224. 502 LOCATE 8,1: PRINT "EINGABE VON VERWARNUNGSDATEN                                                    "
  225. 503 LOCATE 9,1: PRINT "Drücken Sie Taste ^ und geben Sie die entsprechende Verwarnungsnummer ohne    "
  226. 504 LOCATE 10,1: PRINT "die üblichen Trennpunkte ein. Die Erweiterungsmerkmale zur Speicherung der Daten"
  227. 505 LOCATE 11,1: PRINT "übernimmt das Programm automatisch.Geben Sie dann das Tat-Datum, der Ort sowie  "
  228. 506 LOCATE 12,1: PRINT "die Straße und den Betrag an. Außerdem in Stichworten das Vergehen.             "
  229. 507 LOCATE 13,1: PRINT "Im Feld Zahlung geben Sie 0 oder nur Return ein, wenn das Verwarnungsgeld noch  "
  230. 508 LOCATE 14,1: PRINT "nicht bezahlt wurde. Anderenfalls Ziffer 1 und das Datum der Zahlung sowie die  "
  231. 509 LOCATE 15,1: PRINT "Art der Zahlungsweise (0 oder Return = per Zahlkarte, 1=per Überweisung)eingeben"
  232. 510 LOCATE 16,1: PRINT "Sind weitere Verwarnungs-Daten einzugeben, drücken Sie Taste ^. Zuvor werden  "
  233. 511 LOCATE 17,1: PRINT "die Daten auf der Diskette gespeichert. Ist die Eingabe der Daten beendet,      "
  234. 512 LOCATE 18,1: PRINT "drücken Sie \. Auch hier werden die Daten gespeichert.Neubeginn mit @.     "
  235. 519 LOCATE 21,1: PRINT CHR$(32);: PRINT "  WEITER  = ^                                                  MENÜ = \  ";: PRINT CHR$(32)
  236. 520 E$=INKEY$: IF E$="" THEN 520
  237. 521 IF E$="^" THEN 530
  238. 522 IF E$="\" THEN 100
  239. 523 GOTO 520
  240. 530 LOCATE 6,1: PRINT "AUSGABE VON VERWARNUNGSDATEN                                                    "
  241. 531 LOCATE 7,1: PRINT "Zur Ausgabe wählen Sie Taste \ und geben dann die gesuchte Verwarnungsnummer "
  242. 532 LOCATE 8,1: PRINT "ein. Wird diese auf der Diskette gefunden, so werden die restlichen Daten dazu  "
  243. 533 LOCATE 9,1: PRINT "eingeblendet. Sofern die Verwarnung noch nicht bezahlt ist, können Sie mit @  "
  244. 534 LOCATE 10,1: PRINT "die Eingaben des Zahlungsdatums sowie Art der Zahlungsweise eingeben. Nach der  "
  245. 535 LOCATE 11,1: PRINT "letzten Eingabe werden die Daten erneut unter der gleichen Verwarnungsnummer    "
  246. 536 LOCATE 12,1: PRINT "gespeichert. Mit Taste < können Sie die Daten auf den Drucker ausgeben.Schal- "
  247. 537 LOCATE 13,1: PRINT "ten Sie den Drucker ein und drücken Sie Taste D, wenn der Ausdruck erfolgen     "
  248. 538 LOCATE 14,1: PRINT "kann. Mit Taste \ kommen Sie ohne Ausdruck wieder zur Ausgabe zurück.        "
  249. 539 LOCATE 15,1: PRINT "LAUFWERK WECHSELN                                                               "
  250. 540 LOCATE 16,1: PRINT "Mit der Taste < können Sie das aktuelle Laufwerk umbenennen. Mit dem Zeichen *"
  251. 541 LOCATE 17,1: PRINT "behalten Sie das derzeitige Laufwerk bei und kehren zum Menü zurück.            "
  252. 542 LOCATE 18,1: PRINT "PROGRAMMENDE  Mit Taste @ beenden Sie dieses Programm und kommen zum DOS.     "
  253. 549 LOCATE 21,1: PRINT CHR$(32);: PRINT "  ENDE DER ERKLÄRUNG      WIEDERHOLEN = ^                      MENÜ = \  ";: PRINT CHR$(32)
  254. 550 E$=INKEY$: IF E$="" THEN 550
  255. 551 IF E$="^" THEN 500
  256. 552 IF E$="\" THEN 100
  257. 553 GOTO 550
  258.  
  259.