gwbasic/DISKMAN2/DISKMAN2.BAS

10 E=1
20 D$="DISKMAN"
30 CLS
40 COLOR 12
50 PRINT"                                  <20><><EFBFBD> DiskMen<65> <20><><EFBFBD>"
60 COLOR 15
70 PRINT
80 PRINT"                         Diskettenverwaltung f<>r GW-Basic"
90 PRINT
100 COLOR 12
110 PRINT"1 - Eingabe"
120 COLOR 10
130 PRINT"2 - Ausgabe"
140 COLOR 14
150 PRINT"3 - Datei w<>hlen [";D$;"]"
160 COLOR 7
170 PRINT"4 - Datei l<>schen"
180 COLOR 12
190 PRINT"5 - Daten speichern"
200 COLOR 10
210 PRINT"6 - Daten laden"
220 PRINT
230 COLOR 15
240 PRINT"7 - Ende"
250 A$=INKEY$:IF A$="" THEN GOTO 250
260 IF A$="1" THEN GOTO 340
270 IF A$="2" THEN GOTO 770
280 IF A$="3" THEN GOTO 1290
290 IF A$="4" THEN GOTO 1140
300 IF A$="5" THEN GOTO 670
310 IF A$="6" THEN GOTO 1040
320 IF A$="7" THEN CLS:END
330 GOTO 250
340 REM Eingabe
350 CLS
360 COLOR 12
370 PRINT"                            <20><><EFBFBD> Eingabe von Datens<6E>tzen <20><><EFBFBD>"
380 COLOR 15
390 PRINT
400 A=1
410 REM E=a
415 CLS
420 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
430 PRINT"Datensatznummer:                ";A
440 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
450 INPUT"Diskettenbeschriftung: ",G$(A,1)
460 INPUT"Diskettenformat      : ",G$(A,2)
470 INPUT"Diskettenlabel       : ",G$(A,3)
480 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
490 INPUT"Programm 01          : ",G$(A,4)
500 INPUT"Programm 02          : ",G$(A,5)
510 IF G$(A,5)="" THEN F=5:GOTO 580
520 INPUT"Programm 03          : ",G$(A,6)
530 IF G$(A,6)="" THEN F=6:GOTO 580
540 INPUT"Programm 04          : ",G$(A,7)
550 IF G$(A,7)="" THEN F=7:GOTO 580
560 INPUT"Programm 05          : ",G$(A,8)
570 F=8
580 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
590 PRINT" <20>N<EFBFBD><4E>chster      <20>M<EFBFBD>en<65>      <20><><EFBFBD>ndern "
600 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
610 E=A
620 A$=INKEY$:IF A$="" THEN 620
630 IF A$="n" OR A$="N" THEN A=A+1:CLS:GOTO 410
640 IF A$="m" OR A$="M" THEN GOTO 20
650 IF A$="<22>" OR A$="<22>" THEN CLS:GOTO 410
660 GOTO 620
670 REM Speichern
680 OPEN "O",#1,D$
690 WRITE #1,E
700 WRITE#1,""
710 FOR X=1 TO E
720 FOR Y=1 TO 8
730 WRITE#1,G$(X,Y)
740 NEXT Y,X
750 CLOSE 1
760 GOTO 20
770 REM Ausgabe
780 C=1
785 CLS
790 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
800 PRINT"Datensatznummer:  ";C
810 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
820 PRINT"Diskettenbeschriftung: ";G$(C,1)
830 PRINT"Diskettenformat      : ";G$(C,2)
840 PRINT"Diskettenlabel       : ";G$(C,3)
850 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
860 PRINT"Programm 01          : ";G$(C,4)
870 PRINT"Programm 02          : ";G$(C,5)
880 PRINT"Programm 03          : ";G$(C,6)
890 PRINT"Programm 04          : ";G$(C,7)
900 PRINT"Programm 05          : ";G$(C,8)
910 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
920 PRINT" <20>W<EFBFBD>eiter          <20>Z<EFBFBD>ur<75>ck           <20>M<EFBFBD>en<65>"
930 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
940 PRINT
950 IF C=1 THEN PRINT"Ende...7"
960 IF C=E THEN PRINT"Ende...8":PRINT
970 A$=INKEY$:IF A$="" THEN GOTO 970
980 IF C=E THEN GOTO 1000
990 IF A$="w" OR A$="W" THEN C=C+1:GOTO 785
1000 IF C<=1 THEN GOTO 1020
1010 IF A$="z" OR A$="Z" THEN C=C-1:GOTO 785
1020 IF A$="m" OR A$="M" THEN GOTO 30
1030 GOTO 970
1040 REM Laden
1050 CLS
1060 OPEN "I",#1,D$
1070 INPUT#1,E,Z$
1080 FOR X=1 TO E
1090 FOR Y=1 TO 8
1095 IF EOF(1) THEN 1125
1100 INPUT#1,G$(X,Y)
1110 NEXT Y,X
1120 PRINT"loaded"
1125 CLOSE 1
1130 GOTO 30
1140 REM DATEI L<>SCHEN
1150 CLS
1160 PRINT"Sind Sie sicher da<64> sie die Datei ";D$;" l<>schen wollen ?"
1170 A$=INKEY$:IF A$="" THEN 1170
1180 IF A$="j" OR A$="J" THEN GOTO 1210
1190 IF A$="n" OR A$="N" THEN GOTO 1260
1200 GOTO 1170
1210 REM KILL
1220 PRINT"Datei wird gel<65>scht..."
1230 KILL D$
1240 PRINT"Datei gel<65>scht!"
1250 GOTO 30
1260 REM NOT KILL
1270 PRINT"Datei wird nicht gel<65>scht!"
1280 GOTO 30
1290 REM Datei w<>hlen
1300 CLS
1305 PRINT"Der Dateiname darf nicht <20>ber 8 Stellen VOR dem Punkt und 3 Stellen HINTER dem  Punkt lang sein !!!"
1310 INPUT"Geben Sie den Dateinamen ein:",D$
1320 IF LEN(D$)>12 THEN PRINT"Zu lang...":GOTO 1310
1330 GOTO 30