10 'AUFTRAGSDATEI-SERVICEPROGRAMM FUER FESTVERGLASTES FENSTER 20 ON ERROR GOTO 6000 30 PRINT CHR$(12) 35 SZ=1 40 GOSUB 5000 50 PRINT "Datei - Service - Programm fuer 'FESTGL.DAT' " 60 GOSUB 5000 70 PRINT " (1) - Anzeige FESTGL.DAT" 80 PRINT " (2) - Anzeige Archivdatei FESTGLxx.DAT" 90 PRINT " (3) - Suche nach einer Auftragsnummer " 100 PRINT " (4) - Archivieren FESTGL.DAT" 110 PRINT " (5) - Loeschen einer archivierten Datei " 120 PRINT " (6) - Anzeige aller Dateien" 130 PRINT " (7) - Arbeit beenden" 140 PRINT " AUSWAHL :"; : INPUT " ",A 150 A=INT(A) 160 ON A GOSUB 200,400,600,800,1000,1200,1400 170 GOTO 30 200 'ANZEIGE AKTUELLE DATEI 210 DT$="FESTGL.DAT" 220 GOSUB 2000 : PRINT CHR$ (12) 230 GET #1,SZ 240 IF EOF(1)<>0 THEN 300 250 GOSUB 3000 : 'ANZEIGE 260 PRINT " Ausdruck des angezeigten Auftrags (J/N) ? :"; 270 AW$=INPUT$ (1) :PRINT 280 IF AW$="J" OR AW$="j" THEN GOSUB 4000 290 SZ=SZ+1 : GOTO 230 300 PRINT USING " Die Datei & enthaelt ### Auftraege ";DT$,SZ-1 310 CLOSE #1 315 IF SZ-1=0 THEN KILL DT$ 317 AE$=INPUT$ (1) 320 RETURN 400 ' ANZEIGE ALTE DATEI 410 PRINT " Gebe bitte das Jahr zweistellig ein "; 420 PRINT " z.B. 87 fuer 1987 : "; 430 INPUT " ",AE$ :PRINT 440 AE$=LEFT$(AE$+" ",2) : DT$="FESTGL"+AE$+".DAT" 450 GOTO 220 600 'SUCHEN EINES AUFTRAGS 610 PRINT " Eingabe der Auftragsnummer :"TAB(30); 620 INPUT " ";AN$ 630 AN$=LEFT$(AN$+" ",12) : DT$="FESTGL.DAT" 640 PRINT " Suche in aktueller Datei (J/N) ? :"; 650 AE$=INPUT$ (1) : IF AE$="J" OR AE$="j" THEN 690 660 IF AE$="N" OR AE$="n" THEN 670 : ELSE 650 670 INPUT " Gebe das Jahr zweistellig ein : ",AE$ 680 AE$=LEFT$(AE$+" ",2): DT$="FESTGL"+AE$+".DAT" 690 GOSUB 2000 : SZ=1 700 GET #1,SZ : IF EOF(1) THEN 740 710 IF AN$=B$ THEN 730 720 SZ=SZ+1 : GOTO 700 730 GOSUB 3000 : GOSUB 4000 : GOTO 750 740 PRINT USING " AUFTRAG & NICHT GEFUNDEN !!!";AN$ 742 IF SZ=1 THEN KILL DT$ 745 AE$=INPUT$ (1) 750 CLOSE #1 : RETURN 800 'ARCHIVIEREN ALTER DATEI 810 PRINT "Archivieren VON FESTGL.DAT als FESTGLxx.DAT" 820 PRINT " xx - Jahr" 830 INPUT " Eingabe des Jahres : ",JA$ 840 JA$="FESTGL"+JA$+".DAT" 850 PRINT USING "Dateiname & in Ordnung (j/n) ? :" ;JA$ 860 AE$=INPUT$(1): IF AE$="N" OR AE$="n" THEN 830 870 IF AE$="J" OR AE$="j" THEN 880 : ELSE 860 880 NAME "FESTGL.DAT" AS JA$ 890 RETURN 1000 'LOESCHEN ALTER DATEI 1010 PRINT " Eingabe der Jahreszahl der zuloeschenden Datei " 1020 PRINT " Jahr zweistellig : "; 1030 INPUT " ",JA$ 1040 JA$="FESTGL"+JA$+".DAT" 1050 PRINT USING " Datei & loeschen (j/n) ? :";JA$ 1060 AE$=INPUT$ (1) : IF AE$="N" OR AE$="n" THEN RETURN 1070 IF AE$="j" OR AE$="J" THEN 1080 :ELSE 1060 1080 PRINT : KILL JA$ 1090 RETURN 1200 'DIRECTORY 1210 FILES "*.DAT" 1215 INPUT " ",AE$ 1220 RETURN 1400 PRINT CHR$(12) 1410 PRINT "Ich wuensche ein schoenes Wochenende " 1420 SYSTEM 2000 OPEN "R",#1, DT$,128 2010 FIELD #1 ,8AS A$,12AS B$,31AS C$,1AS F$,2AS G$,2AS D$,72AS E$ 2020 RETURN 3000 PRINT "Auftragsnummer :";TAB(35);B$ 3010 PRINT "Erfassungsdatum :";TAB(35);A$ 3020 PRINT "Auftraggeber :";TAB(35);C$ 3030 PRINT " Verglasung : ";F$;" fach" 3040 PRINT " Farbe : ";G$ 3050 PRINT " Anzahl der Positionen :";CVI(D$) 3060 PRINT "Anzahl","Breite","Hoehe" 3070 FOR Z=0 TO 5 3080 FOR Y=0 TO 2 3090 T$=MID$(E$,(3*Z+Y)*4+1,4) 3100 IF CVS(T$)=0 THEN 3120 3110 PRINT CVS(T$), 3120 NEXT Y :PRINT 3130 NEXT Z 3140 RETURN 4000 LPRINT "Auftragsnummer :";TAB(35);B$ 4010 LPRINT "Erfassungsdatum :";TAB(35);A$ 4020 LPRINT "Auftraggeber :";TAB(35);C$ 4030 LPRINT " Verglasung :";F$;"fach" 4040 LPRINT " Farbe :";G$ 4050 LPRINT " Anzahl der Positionen :";CVI(D$) 4060 LPRINT "Anzahl","Breite","Hoehe" 4070 FOR Z=0 TO 5 4080 FOR Y=0 TO 2 4090 T$=MID$(E$,(3*Z+Y)*4+1,4) 4100 IF CVS(T$)=0 THEN 4120 4110 LPRINT CVS(T$), 4120 NEXT Y :LPRINT 4130 NEXT Z 4140 RETURN 5000 FOR ZZ=0 TO 50: PRINT "*"; : NEXT : PRINT : RETURN 6000 IF ERR=53 THEN PRINT " DATEI NICHT VORHANDEN !!!" : RESUME 20 6010 IF ERR=64 THEN PRINT " FALSCHER DATEINAME !!!" : RESUME 20 6020 IF ERR=57 THEN PRINT " LESE ODER SCHREIBFEHLER !!!": RESUME 20 6030 IF ERR=67 THEN PRINT "DISKETTE IST VOLL !!!": RESUME 20 6040 PRINT USING "FEHLER : ### ";ERR : END 6050 'PROGRAMMENDE 6060 END ::h8 *<}2/:q;2