DataMuseum.dk

top - download

    Length: 28160 (0x6e00)
    Types: TextFile
    Names: »STYRING.BAS«

└─⟦073ff2c3b⟧ Bits:30002864 Assembler (RMAC), linker, libraries etc. for JET80
    └─ ⟦this⟧ »STYRING.BAS« 

TextFile

1 DIM D$(30),ST$(30),RES1$(30),PART$(30),RES2$(30),RES3$(30),INSP$(30)
2 DIM PST$(21)
3 DIM PST(22),ST(22),RES1(22),RES2(22),RES3(22)
4 DIM O$(50)
10 REM *******************************************************************
20 REM 
30 REM          STYRINGSPROGRAM TIL INSPEKTIONS-NIVEAU
40 REM               VED FKT'S KVALITETSKONTROL
50 REM
60 REM *******************************************************************
70 PRINT CHR$(27);CHR$(69)
80 PRINT"LINIEAFDELINGENS DRIFTSSEKTION                INDGANGSKONTROL"
90 OPEN "I",#1,"LIB"
100 X=0
110 IF EOF(1) THEN GOTO 150
120 X=X+1
130 INPUT#1,N$(X),O$(X)
140 GOTO 110
150 PRINT:PRINT
160 PRINT"                 ************* MENU ***************
170 PRINT:PRINT
180 PRINT,"0","RETUR TIL CP/M
190 Y=X
200 FOR X=1 TO Y
210 PRINT,N$(X),O$(X)
220 NEXT X
230 PRINT "             ";Y+1,"INDFOERING AF NYT MAALEOBJEKT"
240 PRINT "             ";Y+2,"SLETNING AF MAALEOBJEKT"
250 CLOSE#1
260 PRINT:PRINT
270 INPUT "INDTAST VALGTE FUNKTIONS-NUMMER    ",X
280 IF X>Y+2 THEN PRINT "NUMMER EKSISTERER IKKE":GOTO 270
289 IF X=0 THEN SYSTEM
290 IF X=Y+1 THEN GOTO 440
291 IF X=Y+2 THEN GOTO 1000
300 PRINT CHR$(27);CHR$(69)
310 PRINT:PRINT
320 PRINT"               ************** MENU 2 **************
330 PRINT:PRINT:PRINT
340 PRINT,"0 :","UDPRINTNING AF STATUS FOR OBJEKT
350 PRINT,"1 :","AENDRING AF AQL-VAERDIER
360 PRINT,"2 :","OPDATERING AF KONTROL-RESULTATER
370 PRINT,"3 :","MANUEL AENDRING AF INSPEKTIONSNIVEAU
380 PRINT,"4 :","RETUR TIL HOVED-MENU
390 PRINT:PRINT
400 INPUT "INDTAST VALGTE FUNKTIONS-NUMMER     :",F
401 IF F=0 THEN GOTO 1400
402 IF F=2 THEN GOTO 2000
410 IF F>4 THEN PRINT "NUMMER EKSITERER IKKE":GOTO 400
420 IF F=4 THEN GOTO 10
421 IF F=1 THEN GOTO 20000
422 IF F=3 THEN GOTO 20500
440 REM **********************************************
450 REM  RUTINE TIL OPRETTELSE AF NYE MAALEOBJEKTER
460 REM **********************************************
470 PRINT CHR$(27);CHR$(69)
480 PRINT:PRINT:PRINT:PRINT
490 PRINT,"OPRETTELSE AF NYE MAALEOBJEKTER
500 PRINT,"-------------------------------"
510 PRINT:PRINT
520 OPEN "I",#1,"LIB"
530 OPEN "O",#2,"TEMP1"
540 IF EOF(1) THEN 580
550 INPUT#1,A$
560 PRINT#2,A$
570 GOTO 540
580 CLOSE #1
590 KILL "LIB"
600 INPUT"INDTAST NAVN PAA NYT MAALEOBJEKT  :",A$
610 IF A$="" THEN GOTO 680
620 Y=Y+1
630 PRINT#2,Y
640 PRINT#2,A$
650 PRINT A$;" ER NU OPRETTET I BIBLIOTEKET
660 PRINT:GOSUB 720
670 GOTO 600
680 CLOSE
690 NAME "TEMP1" AS "LIB"
700 CLOSE #1,#2
710 GOTO 10
720 REM OPRETTELSE AF DATAFIL
730 T$=LEFT$(A$,6)
740 OPEN "O",#3,T$
750 PRINT#3,A$
755 PRINT#3,0
760 PRINT
765 INPUT "DATO ?                             ",F$
770 INPUT "AQL-VAERDI, FEJLKLASSE  I    ?     ",B
780 INPUT "AQL-VAERDI, FEJLKLASSE  II   ?     ",C
790 INPUT "AQL-VAERDI, FEJLKLASSE  III  ?     ",D
800 PRINT#3,B:PRINT#3,C:PRINT#3,D
810 INPUT "INSPEKTIONSNIVEAU (N=NORMAL OSV)  ?  ";E$
820 PRINT#3,E$
830 FOR P=1 TO 20
835 PRINT#3,F$
840 FOR G=1 TO 5
850 PRINT#3,"XX"
860 NEXT G
870 PRINT#3,"INGEN KONTROL"
880 NEXT P
890 CLOSE #3
900 PRINT "FIL MED STARTVAERDIER OPRETTET":PRINT
910 RETURN
1000 REM ****************************************************
1010 REM   RUTINE TIL SLETNING AF MAALEOBJEKTER
1020 REM ****************************************************
1030 PRINT CHR$(27);CHR$(69)
1040 PRINT:PRINT
1050 PRINT,"SLETNING AF MAALE-OBJEKTER"
1060 PRINT,"--------------------------"
1070 PRINT:PRINT"FOLGENDE OBJEKTER KEN SLETTES :
1075 PRINT
1080 FOR X=1 TO Y
1090 PRINT,N$(X),O$(X)
1095 NEXT X
1100 PRINT
1110 INPUT "INDTAST NUMMER PAA MAALEOBJEKT TIL SLETNING   ",C
1120 PRINT
1130 PRINT "OENSKES ";O$(C);" VIRKELIG SLETTET  ? "
1140 INPUT D$
1150 IF D$="JA" OR D$="ja" THEN GOTO 1170
1160 GOTO 10
1170 REM FIL SLETTES
1180 T$=LEFT$(O$(C),6)
1190 KILL T$
1200 WHILE C<Y
1210 O$(C)=O$(C+1)
1220 C=C+1
1230 WEND
1240 Y=Y-1
1250 OPEN "O",#1,"LIB"
1260 FOR X=1 TO Y
1270 PRINT#1,X
1280 PRINT#1,O$(X)
1290 NEXT X
1300 CLOSE
1305 GOTO 10
1400 REM *****************************************************
1410 REM   RUTINE TIL UDPRINTNING AF STATUS FOR OBJEKT
1420 REM *****************************************************
1430 T$=LEFT$(O$(X),6)
1440 OPEN "I",#3,T$
1450 INPUT#3,T$
1460 INPUT#3,S$
1470 INPUT#3,AQL1$
1480 INPUT#3,AQL2$
1490 INPUT#3,AQL3$
1500 INPUT#3,I$
1510 FOR X=1 TO 20
1520 INPUT#3,D$(X)
1525 INPUT#3,PST$(X)
1530 INPUT#3,ST$(X)
1540 INPUT#3,RES1$(X)
1550 INPUT#3,RES2$(X)
1560 INPUT#3,RES3$(X)
1570 INPUT#3,INSP$(X)
1580 NEXT X
1590 CLOSE
1600 LPRINT CHR$(12)
1610 LPRINT "LINIEAFDELINGENS DRIFTSSEKTION               INDGANGSKONTROL"
1620 LPRINT:LPRINT:LPRINT:LPRINT:LPRINT:LPRINT
1630 LPRINT CHR$(14);SPC(8);T$;" - STATUS";CHR$(20);
1640 LPRINT:LPRINT:LPRINT:LPRINT:LPRINT
1650 LPRINT "AQL-VAERDI, FEJLKLASSE I    : ";AQL1$
1660 LPRINT "AQL-VAERDI, FEJLKLASSE II   : ";AQL2$
1670 LPRINT "AQL-VAERDI, FEJLKLASSE III  : ";AQL3$
1671 LPRINT:LPRINT
1672 LPRINT "LOEBENDE INSPEKTIONSNIVEAU :  ";I$
1680 LPRINT:LPRINT:LPRINT
1685 LPRINT CHR$(27);CHR$(45);CHR$(1)
1690 LPRINT " DATO  PARTIST0RRELSE  STIKST0RRELSE     I      II     III   NIVEAU"
1710 LPRINT
1720 FOR X=1 TO 20
1730 LPRINT D$(X);TAB(13);PST$(X);TAB(29);ST$(X);TAB(42);RES1$(X);TAB(49);RES2$(X);TAB(57);RES3$(X);TAB(65);INSP$(X)
1740 NEXT X
1750 GOTO 10
2000 REM *********************************************
2010 REM     RUTINE TIL OPDATERING AF TESTRESULTATER
2020 REM *********************************************
2025 PRINT CHR$(27);CHR$(69)
2030 T$=LEFT$(O$(X),6)
2040 OPEN "I",#3,T$
2050 INPUT#3,A$
2060 INPUT#3,S
2070 INPUT#3,AQL1
2080 INPUT#3,AQL2
2090 INPUT#3,AQL3
2100 INPUT#3,I$
2110 FOR X=1 TO 20
2120 INPUT#3,D$(X)
2130 INPUT#3,PST(X)
2140 INPUT#3,ST(X)
2150 INPUT#3,RES1(X)
2160 INPUT#3,RES2(X)
2170 INPUT#3,RES3(X)
2180 INPUT#3,INSP$(X)
2190 NEXT X
2200 CLOSE
2205 PRINT CHR$(27);CHR$(69)
2210 PRINT:PRINT:PRINT
2220 PRINT "   OPDATERING AF TESTRESULTATER FOR ";A$
2230 PRINT "------------------------------------------------------------------"
2240 PRINT:PRINT:PRINT
2250 INPUT "PARTISTOERELSE                    ";PST(21)
2260 INPUT "STIKPROEVE-STOERELSE              ";ST(21)
2270 INPUT "FEJL I KLASSE I                   ";RES1(21)
2280 INPUT "FEJL I KLASSE II                  ";RES2(21)
2290 INPUT "FEJL I KLASSE III                 ";RES3(21)
2300 INPUT "DATO                              ";D$(21)
2310 INSP$(21)=I$
2410 PRINT "ADVARSEL: FORKERT INDTASTEDE TESTRESULTATER KAN IKKE AENDRES."
2420 INPUT "ER OPLYSNINGERNE KORREKTE  ";B$
2430 IF B$="JA" THEN GOTO 2800
2440 GOTO 2205
2800 REM
2809 REM DATA FOR NORMAL INSPEKTION
2810 REM AQL=0,15
2820 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,0,1,20,0,1,32,0,1,50,0,1,80,0,1
2830 DATA 125,0,1,200,1,2,315,1,2,500,2,3,800,3,4,1250,5,6,2000,7,8
2840 REM AQL=0,25
2850 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,0,1,20,0,1,32,0,1,50,0,1,80,0,1
2860 DATA 125,1,2,200,1,2,315,2,3,500,3,4,800,5,6,1250,7,8,2000,10,11
2870 REM AQL=0,40
2880 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,0,1,20,0,1,32,0,1,50,0,1,80,1,2
2890 DATA 125,1,2,200,2,3,315,3,4,500,5,6,800,7,8,1250,10,11,2000,14,15
2900 REM AQL=0,65
2910 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,0,1,20,0,1,32,0,1,50,1,2,80,1,2
2920 DATA 125,2,3,200,3,4,315,5,6,500,7,8,800,10,11,1250,14,15,2000,21,22
2930 REM AQL=1,0
2940 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,0,1,20,0,1,32,1,2,50,1,2,80,2,3
2950 DATA 125,3,4,200,5,6,315,7,8,500,10,11,800,14,15,1250,21,22,2000,21,22
2960 REM AQL=1,5
2970 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,0,1,20,1,2,32,1,2,50,2,3,80,3,4
2980 DATA 125,5,6,200,7,8,315,10,11,500,14,15,800,21,22,1250,21,22,2000,21,22
2990 REM AQL=2,5
3000 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,1,2,20,1,2,32,2,3,50,3,4,80,5,6,125,7,8
3010 DATA 200,10,11,315,14,15,500,21,22,800,21,22,1250,21,22,2000,21,22
3020 REM AQL=4,0
3030 DATA 2,0,1,3,0,1,5,0,1,8,1,2,13,1,2,20,2,3,32,3,4,50,5,6,80,7,8,125,10,11
3040 DATA 200,14,15,315,21,22,500,21,22,800,21,22,1250,21,22,2000,21,22
3050 REM AQL=6,5
3060 DATA 2,0,1,3,0,1,5,1,2,8,1,2,13,2,3,20,3,4,32,5,6,50,7,8,80,10,11,125,14,15
3070 DATA 200,21,22,315,21,22,500,21,22,800,21,22,1250,21,22,2000,21,22
3080 REM AQL=10
3090 DATA 2,1,2,3,1,2,5,1,2,8,2,3,13,3,4,20,5,6,32,7,8,50,10,11,80,14,15
3100 DATA 125,21,22,200,21,22,315,21,22,500,21,22,800,21,22,1250,21,22,2000,21,22
3110 REM DATA FOR SKAERPET INSPEKTION
3120 REM AQL=0,15
3130 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,0,1,20,0,1,32,0,1,50,0,1,80,0,1,125,0,1
3140 DATA 200,1,2,315,1,2,500,1,2,800,2,3,1250,3,4,2000,5,6
3150 REM AQL=0,25
3160 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,0,1,20,0,1,32,0,1,50,0,1,80,0,1,125,1,2
3170 DATA 200,1,2,315,1,2,500,2,3,800,3,4,1250,5,6,2000,8,9
3180 REM AQL=0,40
3190 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,0,1,20,0,1,32,0,1,50,0,1,80,1,2,125,1,2
3200 DATA 200,1,2,315,2,3,500,3,4,800,5,6,1250,8,9,2000,12,13
3210 REM AQL=0,65
3220 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,0,1,20,0,1,32,0,1,50,1,2,80,1,2,125,1,2
3230 DATA 200,2,3,315,3,4,500,5,6,800,8,9,1250,12,13,2000,18,19
3240 REM AQL=1,0
3250 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,0,1,20,0,1,32,1,2,50,1,2,80,1,2,125,2,3
3260 DATA 200,3,4,315,5,6,500,8,9,800,12,13,1250,18,19,2000,18,19
3270 REM AQL=1,5
3280 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,0,1,20,1,2,32,1,2,50,1,2,80,2,3,125,3,4
3290 DATA 200,5,6,315,8,9,500,12,13,1250,18,19,2000,18,19
3300 REM AQL=2,5
3310 DATA 2,0,1,3,0,1,5,0,1,8,0,1,13,1,2,20,1,2,32,1,2,50,2,3,80,3,4,125,5,6
3320 DATA 200,8,9,315,12,13,500,18,19,800,18,19,1250,18,19,2000,18,19
3330 REM AQL=4,0
3340 DATA 2,0,1,3,0,1,5,0,1,8,1,2,13,1,2,20,1,2,32,2,3,50,3,4,80,5,6,125,8,9
3350 DATA 200,12,13,315,18,19,500,18,19,800,18,19,1250,18,19,2000,18,19
3360 REM AQL=6,5
3370 DATA 2,0,1,3,0,1,5,1,2,8,1,2,13,1,2,20,2,3,32,3,4,50,5,6,80,8,9,125,12,13
3380 DATA 200,18,19,315,18,19,500,18,19,800,18,19,1250,18,19,2000,18,19
3390 REM AQL=10
3400 DATA 2,1,2,3,1,2,5,1,2,8,1,2,13,2,3,20,3,4,32,5,6,50,8,9,80,12,13,125,18,19
3410 DATA 200,18,19,315,18,19,500,18,19,800,18,19,1250,18,19,2000,18,19
3420 REM DATA FOR REDUCERET INSPEKTION
3430 REM AQL=0,15
3440 DATA 16,2,0,1,26,2,0,1,91,2,0,1,151,3,0,1,281,5,0,1,501,8,0,1,1201,13,0,1
3450 DATA 3201,20,0,1,10001,32,0,1,35001,50,0,1,150001,80,0,2
3460 REM AQL=0,25
3470 DATA 16,2,0,1,26,2,0,1,91,2,0,1,151,3,0,1,281,5,0,1,501,8,0,1,1201,13,0,1
3480 DATA 3201,20,0,1,10001,32,0,1,35001,50,0,2,150001,80,0,2
3490 REM AQL=0,40
3500 DATA 16,2,0,1,26,2,0,1,91,2,0,1,151,3,0,1,281,5,0,1,501,8,0,1,1201,13,0,1
3510 DATA 3201,20,0,1,10001,32,0,2,35001,50,0,2,150001,80,1,3
3520 REM AQL=0,65
3530 DATA 16,2,0,1,26,2,0,1,91,2,0,1,151,3,0,1,281,5,0,1,501,8,0,1,1201,13,0,1
3540 DATA 3201,20,0,2,10001,32,0,2,35001,50,1,3,150001,80,1,4
3550 REM AQL=1,0
3560 DATA 16,2,0,1,26,2,0,1,91,2,0,1,151,3,0,1,281,5,0,1,501,8,0,1,1201,13,0,2
3570 DATA 3201,20,0,2,10001,32,1,3,35001,50,1,4,150001,80,2,5
3580 REM AQL=1,5
3590 DATA 16,2,0,1,26,2,0,1,91,2,0,1,151,3,0,1,281,5,0,1,501,8,0,2,1201,13,0,2
3600 DATA 3201,20,1,3,10001,32,1,4,35001,50,2,5,150001,80,3,6
3610 REM AQL=2,5
3620 DATA 16,2,0,1,26,2,0,1,91,2,0,1,151,3,0,1,281,5,0,2,501,8,0,2,1201,13,1,3
3630 DATA 3201,20,1,4,10001,32,2,5,35001,50,3,6,150001,80,5,8
3640 REM AQL=4,0
3650 DATA 16,2,0,1,26,2,0,1,91,2,0,1,151,3,0,2,281,5,0,2,501,8,1,3,1201,13,1,4
3660 DATA 3201,20,2,5,10001,32,3,6,35001,50,5,8,150001,80,7,10
3670 REM AQL=6,5
3680 DATA 16,2,0,1,26,2,0,1,91,2,0,2,151,3,0,2,281,5,1,3,501,8,1,4,1201,13,2,5
3690 DATA 3201,20,3,6,10001,32,5,8,35001,50,7,10,150001,80,10,13
3700 REM AQL=10
3710 DATA 16,2,0,2,26,2,0,2,91,2,0,2,151,3,1,3,281,5,1,4,501,8,2,5,1201,13,3,6
3720 DATA 3201,20,5,8,10001,32,7,10,35001,50,10,13,150001,80,10,13
3730 REM LIMIT NUMBERS FOR REDUCED INSPECTION
3740 REM AQL=0,15
3750 DATA 1250,2000,0,3150,0,5000,1,8000,3,12500,7
3760 REM AQL=0,25
3770 DATA 800,1250,0,2000,0,3150,2,5000,4,8000,7,12500,14
3780 REM AQL=0,40
3790 DATA 500,800,0,1250,0,2000,2,3150,4,5000,8,8000,14,12500,24
3800 REM AQL=0,65
3810 DATA 320,500,0,800,0,1250,2,2000,4,3150,8,5000,14,8000,25,12500,42
3820 REM AQL=1,0
3830 DATA 200,320,0,500,0,800,2,1250,4,2000,7,3150,14,5000,24,8000,40,12500,68
3840 REM AQL=1,5
3850 DATA 130,200,0,320,0,500,1,800,3,1250,7,2000,13,3150,22
3860 DATA 5000,38,8000,63,12500,105
3870 REM AQL=2,5
3880 DATA 80,130,0,200,0,320,2,500,4,800,7,1250,14,2000,24,3150,40
3890 DATA 5000,67,8000,110,12500,181
3900 REM AQL=4,0
3910 DATA 50,80,0,130,0,200,2,320,4,500,8,800,14,1250,24,2000,40,3150,68
3920 DATA 5000,111,8000,181
3930 REM AQL=6,5
3940 DATA 30,50,0,80,0,130,2,200,4,320,8,500,14,800,25,1250,42,2000,69
3950 DATA 3150,115,5000,186
3960 REM AQL=10
3970 DATA 20,30,0,50,0,80,2,130,4,200,7,320,14,500,24,800,40,1250,68
3980 DATA 2000,110,3150,181
3990 COM1$="PARTI GODKENDT FEJLKLASSE I"
4000 COM2$="PARTI GODKENDT FEJLKLASSE II
4010 COM3$="PARTI GODKENDT FEJLKLASSE III
4020 COM4$="PARTI AFVIST FEJLKLASSE I
4030 COM5$="PARTI AFVIST FEJLKLASSE II
4040 COM6$="PARTI AFVIST FEJLKLASSE III
4050 COM7$="AQL-VAERDI IKKE INDLAGT I PROGRAMMET
4060 COM8$="STIKPROEVE-STOERRELSE FORKERT
4070 COM9$="STIKPROEVE-STOERRELSE UKENDT
4080 COM10$="INSPEKTION FORTSAETTER PAA NORMALT NIVEAU
4090 COM11$="INSPEKTION FORTSAETTER PAA SKAERPET NIVEAU
4100 COM12$="INSPEKTION FORTSAETTER PAA REDUCERET NIVEAU
4110 COM13$="INSPEKTIONS-SKIFT TIL NORMALT NIVEAU
4120 COM14$="INSPEKTIONS-SKIFT TIL SKAERPET NIVEAU
4130 COM15$="INSPEKTIONS-SKIFT TIL REDUCERET NIVEAU
4140 COM16$="AARSAG: 2 UD AF 5 PARTIER AFVIST
4150 COM17$="AARSAG: 5 PAA HINDANDEN FOELGENDE PARTIER GODKENDT
4160 COM18$="AARSAG: INGEN AFVISNING AF 10 SIDSTE PARTIER OG
4170 COM19$="        TOTAL ANTAL FEJL TILFREDSSTILLENDE IFOELGE MIL-105D
4171 LPRINT CHR$(12)
4172 LPRINT "LINIEAFDELINGENS DRIFTSSEKTION                        KVALITETSKONTROL"          
4173 LPRINT:LPRINT:LPRINT:LPRINT
4180 PRINT CHR$(27);CHR$(69)
4190 PRINT:PRINT
4200 PRINT "              BEREGNINGS - RESULTATER                  "
4202 LPRINT "          BEREGNINGS-RESULTATER FOR ";A$
4203 LPRINT "---------------------------------------------------------------"
4204 LPRINT:LPRINT
4210 PRINT "  -----------------------------------------------------  "
4211 LPRINT "DATO :  ";D$(21)
4212 LPRINT:LPRINT
4213 LPRINT "PARTI-STOERRELSE :  ";PST(21)
4214 LPRINT:LPRINT "STIKPROEVE-STOERRELSE :  ";ST(21)
4215 LPRINT:LPRINT
4216 PRINT "LOEBENDE INSPEKTIONSNIVEAU :  ";I$
4217 PRINT:PRINT
4218 LPRINT "LOEBENDE INSPEKTIONSNIVEAU :  ";I$
4219 LPRINT:LPRINT
4220 PRINT:PRINT
4230 IF I$="N" THEN GOTO 4940
4231 IF I$="S" THEN GOTO 4940
4232 IF I$="S" THEN GOTO 6410
4240 REM ************************************
4250 REM SUBRUTINE TIL GODKENDELSE VED NORMAL OG SKAERPET  INSPEKTION
4260 REM IND-PARAMETRE: X=NUMMER PAA MAALERESULTAT
4270 REM                Y=AQL-VAERDI
4280 REM                FEJL= ANTAL FUNDNE FEJL
4290 REM UD-PARAMETRE : R=RESULTAT(NUMMER SVARER TIL KOMMENTAR-NUMMER)
4300 REM                AC = GODKENDELSES-TAL
4310 REM                RE = AFVISNINGS-TAL
4320 IF INSP$(X)="S" THEN GOTO 4340
4321 IF Y=.15 THEN RESTORE 2820:GOTO 4480
4322 IF Y=.25 THEN RESTORE 2850:GOTO 4480
4323 IF Y=O.40 THEN RESTORE 2880:GOTO 4480
4324 IF Y=.65 THEN RESTORE 2910:GOTO 4480
4325 IF Y=1! THEN RESTORE 2940:GOTO 4480
4326 IF Y=1.5 THEN RESTORE 2970:GOTO 4480
4327 IF Y=2.5 THEN RESTORE 3000:GOTO 4480
4328 IF Y=4! THEN RESTORE 3030:GOTO 4480
4329 IF Y=6.5 THEN RESTORE 3060:GOTO 4480
4330 IF Y=10! THEN RESTORE 3090:GOTO 4480
4340 IF Y=.15 THEN RESTORE 3130:GOTO 4480
4341 IF Y=.25 THEN RESTORE 3160:GOTO 4480
4342 IF Y=.4 THEN RESTORE 3190:GOTO 4480
4343 IF Y=.65 THEN RESTORE 3220:GOTO 4480
4344 IF Y=1! THEN RESTORE 3250:GOTO 4480
4345 IF Y=1.5 THEN RESTORE 3280:GOTO 4480
4346 IF Y=2.5 THEN RESTORE 3310:GOTO 4480
4347 IF Y=4! THEN RESTORE 3340:GOTO 4480
4348 IF Y=6.5 THEN RESTORE 3370:GOTO 4480
4349 IF Y=10! THEN RESTORE 3400:GOTO 4480
4350 R$=COM7$:RETURN
4480 P=0
4490 P=P+1
4500 READ STIK
4510 IF STIK=ST(X) THEN GOTO 4560
4520 IF STIK=2000 THEN R$=COM9$
4530 IF STIK=2000 THEN RETURN
4540 READ STIK:READ STIK
4550 GOTO 4490
4560 READ AC:READ RE
4570 IF FEJL<RE THEN R$="GOD"
4580 IF FEJL>AC THEN R$="BAD"
4590 RETURN
4600 REM***********************************
4610 SUBRUTINE TIL GODKENDELSE VED REDUCERET INSPEKTION
4620 REM IND-PARAMETRE: X=NUMMER PAA MAALERESULTAT
4630 REM                Y = AQL-VAERDI
4640 REM                FEJL= ANTAL FUNDNE FEJL
4650 REM UD-PARAMETRE:  R$=RESULTAT
4660 REM                AC = GODKENDELSESTAL
4670 REM                RE = AFVISNINGSTAL
4680 IF Y=.15 THEN RESTORE 3440:GOTO 4810
4681 IF Y=.25 THEN RESTORE 3470:GOTO 4810
4682 IF Y=.4 THEN RESTORE 3500:GOTO 4810
4683 IF Y=.65 THEN RESTORE 3530:GOTO 4810
4684 IF Y=1! THEN RESTORE 3560:GOTO 4810
4685 IF Y=1.5 THEN RESTORE 3590:GOTO 4810
4686 IF Y=2.5 THEN RESTORE 3620:GOTO 4810
4687 IF Y=4! THEN RESTORE 3650:GOTO 4810
4688 IF Y=6.5 THEN RESTORE 3680:GOTO 4810
4689 IF Y=10! THEN RESTORE 3710:GOTO 4810
4690 R$=COM7$:RETURN
4810 P=0
4820 P=P+1
4830 READ STOE
4840 READ STIK
4850 IF PST(X)<STOE THEN IF STIK=ST(X) THEN GOTO 4900
4860 IF STOE=150001! THEN R$=COM8$
4870 IF STOE=150001! THEN RETURN
4880 READ AC:READ RE
4890 GOTO 4820
4900 READ AC:READ RE
4910 IF FEJL<RE THEN R$="GOD"
4920 IF FEJL=RE OR FEJL>RE THEN R$="BAD"
4930 RETURN
4940 REM *********************************************************
4950 REM BEREGNING AF RESULTATER VED NORMAL OG SKAERPET INSPEKTION
4960 REM *********************************************************
5000 GOTO 5200
5010 REM SUBRUTINE TIL UDSKRIFT AF FEJLUDSKRIFTER
5020 LPRINT "DE INDTASTEDE FEJL ER DERFOR IKKE REGISTRERET I SYSTEMET"
5030 PRINT "DE INDTASTEDE FEJL ER DERFOR IKKE REGISTRERET I SYTEMET"
5040 LPRINT CHR$(12)
5050 PRINT
5060 INPUT "TAST <RETURN> FOR RETUR TIL MENU";Q$
5070 GOTO 10
5200 REM ************ SIDSTE RESULTATER BEREGNES
5201 X=21:Y=AQL1:FEJL=RES1(21)
5202 GOSUB 4240
5209 IF R$=COM7$ THEN PRINT COM7$:LPRINT COM7$:GOTO 5010
5210 IF R$=COM9$ THEN PRINT COM9$:LPRINT COM9$:GOTO 5020
5220 IF R$="GOD" THEN PRINT COM1$:LPRINT COM1$
5230 IF R$="BAD" THEN PRINT COM4$:LPRINT COM4$
5240 PRINT "TESTRESULTAT: ";RES1(21),"GODKENDELSESTAL: ";AC,"AFVISNINGSTAL: ";RE
5250 LPRINT "TESTRESULTAT: ";RES1(21),"GODKENDELSESTAL: ";AC,"AFVISNINGSTAL: ";RE
5260 PRINT:LPRINT
5270 X=21:Y=AQL2:FEJL=RES2(21)
5280 GOSUB 4240
5290 IF R$=COM7$ THEN PRINT COM7$:LPRINT COM7$:GOTO 5020
5300 IF R$=COM9$ THEN PRINT COM9$:LPRINT COM9$:GOTO 5020
5310 IF R$="GOD" THEN PRINT COM2$:LPRINT COM2$
5320 IF R$="BAD" THEN PRINT COM5$:LPRINT COM5$
5330 PRINT "TESTRESULTAT: ";RES2(21),"GODKENDELSESTAL: ";AC,"AFVISNINGSTAL: ";RE
5340 LPRINT "TESTRESULTAT: ";RES2(21),"GODKENDELSESTAL: ";AC,"AFVISNINGSTAL: ";RE
5350 PRINT:LPRINT
5360 X=21:Y=AQL3:FEJL=RES3(21)
5370 GOSUB 4240
5380 IF R$=COM7$ THEN PRINT COM7$:LPRINT COM7$:GOTO 5020
5390 IF R$=COM9$ THEN PRINT COM9$:LPRINT COM9$:GOTO 5020
5400 IF R$="GOD" THEN PRINT COM3$:LPRINT COM3$
5410 IF R$="BAD" THEN PRINT COM6$:LPRINT COM6$
5420 PRINT "TESTRESULTAT: ";RES3(21),"GODKENDELSESTAL: ";AC,"AFVISNINGSTAL: ";RE
5430 LPRINT "TESTRESULTAT: ";RES3(21),"GODKENDELSESTAL: ";AC,"AFVISNINGSTAL: ";RE
5435 LPRINT:PRINT
5440 REM ********** DET BEREGNES OM DER SKAL SKIFTES TIL SKAERPEET NIVEAU
5450 IF I$="S" THEN GOTO 6220
5451 E=0
5452 IF S<5 THEN PRINT COM10$:LPRINT COM10$:GOTO 10000     
5460 FOR X=21 TO 17 STEP -1
5470 Y=AQL1:FEJL=RES1(X)
5480 GOSUB 4250
5490 IF R$="BAD" THEN E=E+1:GOTO 5560
5500 Y=AQL2:FEJL=RES2(X)
5510 GOSUB 4250
5520 IF R$="BAD" THEN E=E+1:GOTO 5560
5530 Y=AQL3:FEJL=RES3(X)
5540 GOSUB 4250
5550 IF R$="BAD" THEN E=E+1:GOTO 5560
5560 NEXT X
5570 IF E<2 THEN GOTO 5610
5575 PRINT COM14$:LPRINT COM14$
5580 INPUT "KAN SKIFT GODKENDES?     ",Q$
5590 IF Q$="NEJ" THEN PRINT "SKIFT IKKE GODKENDT":LPRINT "SKIFT IKKE GODKENDT":PRINT COM10$:LPRINT COM10$:GOTO 10000
5600 S=-1:I$="S":PRINT "SKIFT TIL SKAERPET NIVEAU":LPRINT "SKIFT TIL SKAERPET NIVEAU":PRINT:LPRINT:GOTO 10000
5610 REM ********* DET BEREGNES OM DER SKKAL SKIFTES TIL REDUCERET NIVEAU
5615 GOTO 5730
5620 IF AQL=.15 THEN RESTORE 3750
5630 IF AQL=.25 YHEN RESTORE 3770
5640 IF AQL=O.40 THEN RESTORE 3790
5650 IF AQL=.65 THEN RESTORE 3810
5660 IF AQL=1 THEN RESTORE 3830
5670 IF AQL=1.5 THEN RESTORE 3850
5680 IF AQL=2.5 THEN RESTORE 3880
5690 IF AQL=4 THEN RESTORE 3910
5700 IF AQL=6.5 THEN RESTORE 3940
5710 IF AQL=10 THEN RESTORE 3970
5720 RETURN
5730 IF S<10 THEN PRINT COM10$:LPRINT COM10$:GOTO 10000
5735 SAMLET=0
5740 FOR X=21 TO 12 STEP -1
5750 SAMLET=SAMLET+ST(X)
5760 NEXT X
5770 AQL=AQL1:GOSUB 5620
5780 READ MINIMUM
5790 IF SAMLET<MINIMUN THEN PRINT COM10$:LPRINT COM10$:GOTO 10000
5800 READ X
5810 IF X<SAMLET THEN READ Y:GOTO 5800
5820 READ MAXFEJL
5825 E=0
5830 FOR X=21 TO 12 STEP -1
5840 Y=AQL1:FEJL=RES1(X)
5850 GOSUB 4240
5860 IF R$="BAD" THEN E=E+1
5870 NEXT X
5880 IF E>MAXFEJL THEN PRINT COM10$:LPRINT COM10$:GOTO 10000
5890 AQL=AQL2:GOSUB 5620
5900 READ X
5910 IF SAMLET<X THEN PRINT COM10$:LPRINT COM10$:GOTO 10000
5920 READ X
5930 IF X<SAMLET THEN READ Y:GOTO 5920
5940 READ MAXFEJL
5950 E=0
5960 FOR X=21 TO 12 STEP -1
5970 Y=AQL2:FEJL=RES2(X)
5980 GOSUB 4240
5990 IF R$="BAD" THEN E=E+1
6000 NEXT X
6010 IF E>MAXFEJL THEN PRINT COM10$:LPRINT COM10$:GOTO 10000
6020 AQL=AQL3:GOSUB 5620
6030 READ X
6040 IF SAMLET<X THEN PRINT COM10$:LPRINT COM10$:GOTO 10000
6050 READ X
6060 IF X<SAMLET THEN READ Y:GOTO 6050
6070 READ MAXFEJL
6080 E=0
6090 FOR X=21 TO 12 STEP -1
6100 Y=AQL3:FEJL=RES3(X)
6110 GOSUB 4240
6120 IF R$="BAD" THEN E=E+1
6130 NEXT X
6140 IF E>MAXFEJL THEN PRINT COM10$:LPRINT COM10:GOTO 10000
6150 PRINT COM15$:LPRINT COM15$
6160 PRINT COM18$:LPRINT COM18$
6170 PRINT COM19$:LPRINT COM19$
6180 PRINT:LPRINT
6190 INPUT "KAN SKIFTET GODKENDES ?       ",SVAR$
6200 IF SVAR$="NEJ" THEN PRINT "SKIFT IKKE GODKENDT":LPRINT "SKIFT IKKE GODKENDT":PRINT COM10$:LPRINT COM10:GOTO 10000
6210 S=-1:I$="R":PRINT "SKIFT TIL REDUCERET NIVEAU FORETAGET":LPRINT "SKIFT TIL REDUCERET NIVEAU":GOTO 10000
6220 REM ********** DET BEREGNES OM DER SKAL SKIFTES TIL NORMALT NIVEAU
6230 IF S<5 THEN PRINT COM11$:LPRINT COM11$:GOTO 10000
6240 E=0
6250 FOR X=21 TO 17 STEP -1
6260 Y=AQL1:FEJL=RES1(X)
6270 GOSUB 4250
6280 IF R$="BAD" THEN E=E+1
6290 Y=AQL2:FEJL=RES2(X)
6300 GOSUB 4250
6310 IF R$="BAD" THEN E=E+1
6320 Y=AQL3:FEJL=RES3(X)
6330 GOSUB 4250
6340 IF R$="BAD" THEN E=E+1
6350 NEXT X
6360 IF E>0 THEN PRINT COM11$:LPRINT COM11$:GOTO 10000
6370 PRINT COM13$:LPRINT COM13$
6380 INPUT "KAN SKIFT GODKENDES?    ",Q$
6390 IF Q$="NEJ" THEN PRINT "SKIFT IKKE GODKENDT":LPRINT "SKIFT IKKE GODKENDT":PRINT COM11$:LPRINT COM11$:GOTO 10000
6400 S=-1 I$="N":PRINT COM13$:LPRINT COM13$:GOTO 10000
6410 REM ************************************************************
6420 REM   BEREGNING AF RESULTATER VED REDUCERET INSPEKTION
6430 REM ************************************************************
6440 X=21:Y=AQL1:FEJL=RES1(21)
6450 GOSUB 4600
6460 IF R$=COM7$ THEN PRINT COM7$:LPRINT COM7$:GOTO 5010
6470 IF R$=COM8$ THEN PRINT COM8$:LPRINT COM8$:GOTO 5020
6480 IF R$="GOD" THEN PRINT COM1$:LPRINT COM1$
6490 IF R$="BAD" THEN PRINT COM4$:LPRINT COM4$
6500 PRINT "TESTRESULTAT: ";RES1(21),"GODKENDELSESTAL: ";AC,"AFVISNINGSTAL: ";RE
6510 LPRINT "TESTRESULTAT: ";RES1(21),"GODKENDELSESTAL: ";AC,"AFVISNINGSTAL: ";RE
6520 PRINT:LPRINT
6530 X=21:Y=AQL2:FEJL=RES2(21)
6540 GOSUB 4600
6550 IF R$=COM7$ THEN PRINT COM7$:LPRINT COM7$:GOTO 5020
6560 IF R$=COM8$ THEN PRINT COM8$:LPRINT COM8$:GOTO 5020
6570 IF R$="GOD" THEN PRINT COM2$:LPRINT COM2$
6580 IF R$="BAD" THEN PRINT COM5$:LPRINT COM5$
6590 PRINT "TESTRESULTAT: ";RES2(21),"GODKENDELSESTAL: ";AC,"AFVISNINGSTAL: ";RE
6600 LPRINT "TESTRESULTAT: ";RES2(21),"GODKENDELSESTAL: ";AC,"AFVISNINGSTAL: ";RE
6610 PRINT:LPRINT
6620 X=21:Y=AQL3:FEJL=RES3(21)
6630 GOSUB 4600
6640 IF R$=COM7$ THEN PRINT COM7$:LPRINT COM7$:GOTO 5020
6650 IF R$=COM8$ THEN PRINT COM8$:LPRINT COM8$:GOTO 5020
6660 IF R$="GOD" THEN PRINT COM3$:LPRINT COM3$
6670 IF R$="BAD" THEN PRINT COM6$:LPRINT COM6$
6680 PRINT "TESTRESULTAT: ";RES3(21),"GODKENDELSESTAL: ";AC,"AFVISNINGSTAL: ";RE
6690 LPRINT "TESTRESULTAT: ";RES3(21),"GODKENDELSESTAL: ";AC,"AFVISNINGSTAL: ";RE
6700 LPRINT:PRINT
6710 REM *****************************************************
6720 REM    DET BEREGNES OM DER SKAL SKIFTES TIL NORMAL INSPEKTION
6730 REM ****************************************************
6740 E=0
6750 X=21:Y=AQL1:FEJL=RES1(21)
6760 GOSUB 4600
6770 IF R$="BAD" THEN E=E+1
6780 X=21:Y=AQL2:FEJL=RES2(21)
6790 GOSUB 4600
6800 IF R$="BAD" THEN E=E+1
6810 X=21:Y=AQL3:FEJL=RES3(21)
6820 GOSUB 4600
6830 IF R$="BAD" THEN E=E+1
6840 IF E=0 THEN PRINT COM12$:LPRINT COM12$:GOTO 10000
6850 PRINT COM13$:LPRINT COM13$
6860 INPUT "KAN SKIFT GODKENDES?    ",Q$
6870 IF Q$="NEJ" THEN PRINT "SKIFT IKKE GODKENDT":LPRINT "SKIFT IKKE GODKENDT"PRINT COM12$:LPRINT COM12$:GOTO 10000
6880 S=-1:I$="N":PRINT "SKIFT TIL NORMAL INSPEKTION":LPRINT "SKIFT TIL NORMAL INSPEKTION":GOTO 10000
10000 REM DATAFIL OPDATERES
10010 S=S+1
10020 FOR X=1 TO 20
10030 D$(X)=D$(X+1)
10040 PST(X)=PST(X+1)
10050 ST(X)=ST(X+1)
10060 RES1(X)=RES1(X+1)
10070 RES2(X)=RES2(X+1)
10080 RES3(X)=RES3(X+1)
10090 INSP$(X)=INSP$(X+1)
10100 NEXT X
10110 OPEN "O",#3,T$
10120 PRINT#3,A$
10130 PRINT#3,S
10140 PRINT#3,AQL1
10150 PRINT#3,AQL2
10160 PRINT#3,AQL3
10170 PRINT#3,I$
10180 FOR X=1 TO 20
10190 PRINT#3,D$(X)
10200 PRINT#3,PST(X)
10210 PRINT#3,ST(X)
10220 PRINT#3,RES1(X)
10230 PRINT#3,RES2(X)
10240 PRINT#3,RES3(X)
10250 PRINT#3,INSP$(X)
10255 NEXT X
10260 CLOSE
10270 PRINT
10280 INPUT "TAST <RETURN> FOR RETUR TIL MENU    ",Q$
10290 GOTO 10
20000 T$=LEFT$(O$(X),6)
20010 OPEN "I",#3,T$
20020 INPUT#3,A$
20030 INPUT#3,S
20040 INPUT#3,AQL1
20050 INPUT#3,AQL2
20060 INPUT#3,AQL3
20070 INPUT#3,I$
20080 FOR X=1 TO 20
20090 INPUT#3,D$(X)
20100 INPUT#3,PST$(X)
20110 INPUT#3,ST$(X)
20120 INPUT#3,RES1(X)
20130 INPUT#3,RES2(X)
20140 INPUT#3,RES3(X)
20150 INPUT#3,INSP$(X)
20160 NEXT X
20170 CLOSE
20180 PRINT CHR$(27);CHR$(69)
20190 PRINT:PRINT:PRINT
20200 PRINT "AENDRING AF AQL-VAERDIER FOR ";A$
20210 PRINT "----------------------------------------------------"
20220 PRINT:PRINT:PRINT
20230 INPUT "AQL-VAERDI, FEJLKLASSE   I ?     ",AQL1
20240 INPUT "AQL-VAERDI, FEJLKLASSE  II ?     ",AQL2
20250 INPUT "AQL-VAERDI, FEJLKLASSE III ?     ",AQL3
20260 S=0
20270 OPEN "O",#3,T$
20280 PRINT#3,A$
20290 PRINT#3,S
20300 PRINT#3,AQL1
20310 PRINT#3,AQL2
20320 PRINT#3,AQL3
20330 PRINT#3,I$
20340 FOR X=1 TO 20
20350 PRINT#3,D$(X)
20360 PRINT#3,PST$(X)
20370 PRINT#3,ST$(X)
20380 PRINT#3,RES1(X)
20390 PRINT#3,RES2(X)
20400 PRINT#3,RES3(X)
20410 PRINT#3,INSP$(X)
20420 NEXT X
20430 CLOSE
20440 GOTO 10
20500 REM *************************************************
20510 REM MANUEL AENDRING AF INSPEIKTIONSNIVEAU
20520 REM *************************************************
20530 T$=LEFT$(O$(X),6)
20540 OPEN "I",#3,T$
20550 INPUT#3,A$
20560 INPUT#3,S
20570 INPUT#3,AQL1
20580 INPUT#3,AQL2
20590 INPUT#3,AQL3
20600 INPUT#3,I$
20610 FOR X=1 TO 20
20620 INPUT#3,D$(X)
20630 INPUT#3,PST$(X)
20640 INPUT#3,ST$(X)
20650 INPUT#3,RES1(X9
20660 INPUT#3,RES2(X)
20670 INPUT#3,RES3(X)
20680 INPUT#3,INSP$(X)
20690 NEXT X
20700 CLOSE
20710 PRINT CHR$(27);CHR$(69)
20720 PRINT:PRINT:PRINT
20730 PRINT "AENDRING AF INSPEKTIONSNIVEAU FOR ";A$
20740 PRINT "------------------------------------------------------"
20750 PRINT:PRINT:PRINT
20760 INPUT "NYT INSPEKTIONSNIVEAU ? (TAST <N> FOR NORMAL OSV.)   ",I$
20770 S=0
20780 OPEN "O",#3,T$
20790 PRINT#3,A$
20800 PRINT#3,S
20810 PRINT#3,AQL1
20820 PRINT#3,AQL2
20830 PRINT#3,AQL3
20840 PRINT#3,I$
20850 FOR X=1 TO 20
20860 PRINT#3,D$(X)
20870 PRINT#3,PST$(X)
20880 PRINT#3,ST$(X)
20890 PRINT#3,RES1(X)
20900 PRINT#3,RES2(X)
20910 PRINT#3,RES3(X)
20920 PRINT#3,INSP$(X)
20930 NEXT X
20940 CLOSE
20950 GOTO 10
«eof»