Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0113/comp13.bas
There are 2 other files named comp13.bas in the archive. Click here to see a list.
00020C0=0
00030C1=1
00040C2=2
00050C7=7
00070  FILES RFILE1,RFILE2,RFILE3
00110RESTORE#1
00111  INPUT#  1,K,J,I
00120IF J=0 THEN 150
00130I=J
00140GOTO 220
00150PRINT L$
00160PRINT "     COMPONENT 13.  EDUCATIONAL AND EMPLOYMENT SELECTION"
00170PRINT
00180PRINT "     1. QUOTA-FREE SELECTION"
00190PRINT "     2. RESTRICTED SELECTION"
00200GOSUB 720
00210IF I=C0 THEN 560
00220IF I=C2 THEN 370
00230IF I=C1 THEN 260
00240GOSUB 580
00250GOTO 230
00260PRINT L$
00270RESTORE#1
00271  INPUT#  1,I1,I2,I3
00280SCRATCH#1
00281  PRINT #  1,I1,C1,I3
00290PRINT "        QUOTA-FREE SELECTION"
00300PRINT
00310PRINT "     1. DETERMINATION OF PREDICTOR CUT SCORE FOR THRESHOLD UTILITY"
00320GOSUB 660
00330IF I=C0 THEN 150
00340IF I=C1 THEN 530
00350GOSUB 620
00360GOTO 330
00370PRINT L$
00380RESTORE#1
00381  INPUT#  1,I1,I2,I3
00390SCRATCH#1
00391  PRINT #  1,I1,C2,I3
00400PRINT "        RESTRICTED SELECTION "
00410PRINT
00420PRINT "     1. ASSESSMENT OF UTILITY STRUCTURES"
00430PRINT "     2. DETERMINATION OF PREDICTOR CUT SCORES"
00440GOSUB 660
00450IF I=C0 THEN 150
00460IF I=C1 THEN 540
00470IF I=C2 THEN 550
00480GOSUB 620
00490GOTO 450
00500CHAIN "CMOD86"
00510CHAIN "CMOD87"
00520CHAIN "CMOD88"
00530CHAIN "CMOD90"
00540CHAIN "CMOD91"
00550CHAIN "CMOD92"
00560SCRATCH#1
00561  PRINT #  1,-99,0,0
00570CHAIN "CMONTR"
00580PRINT "REENTER.  INPUT MUST BE NUMBER OF AVAILABLE MODEL OR '0'.";
00590INPUT I
00600I=INT(I)
00610RETURN
00620PRINT "REENTER.  INPUT MUST BE NUMBER OF AVAILABLE MODULE OR '0'.";
00630INPUT I
00640I=INT(I)
00650RETURN
00660PRINT
00670PRINT "     * NOT YET AVAILABLE"
00680PRINT
00690PRINT "IF YOU WANT AN AVAILABLE MODULE TYPE ITS NUMBER, ELSE '0'.";
00700INPUT I
00710RETURN
00720PRINT
00730PRINT "     * NOT YET AVAILABLE"
00740PRINT
00750PRINT "IF YOU WANT AN AVAILABLE MODEL TYPE ITS NUMBER ELSE '0'.";
00760INPUT I
00770RETURN
09999END