Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0113/comp2.bas
There are 2 other files named comp2.bas in the archive. Click here to see a list.
00020REM CMONTR
00030C0=0
00040C1=1
00050C2=2
00060C7=7
00080 FILES RFILE1,RFILE2,RFILE3
00120RESTORE#1
00121 INPUT# 1,K,J,I
00130PRINT
00140RESTORE#1
00141 INPUT# 1,I1,I2,I3
00150SCRATCH#1
00151 PRINT # 1,I1,C1,I3
00160PRINT L$
00170PRINT " COMPONENT 2. DATA FILE CATALOGUE"
00180PRINT
00190PRINT " 1. ITBS SCORES SCHOOL #1"
00200PRINT " 2. ITBS SCORES SCHOOL #2"
00210PRINT " 3. ESAA PILOT PROGRAM-PRE/POST TREAT/CONTROL"
00220PRINT " 4. JUNIOR COLLEGE ACT SCORES"
00230PRINT " *5. MONITOR FILE #5"
00240PRINT " *6. MONITOR FILE #6"
00250PRINT
00260PRINT "IF YOU WANT AN AVAILABLE FILE TYPE ITS NUMBER, ELSE '0'.";
00270INPUT I
00280IF I=C1 THEN 350
00290IF I=C2 THEN 360
00300IF I=4 THEN 390
00310IF I=3 THEN 370
00320IF I=C0 THEN 410
00330PRINT "REENTER. INPUT MUST BE NUMBER OF AVAILABLE FILE OR '0'"
00340GOTO 270
00350CHAIN "CMOD18"
00360CHAIN "CMOD19"
00370CHAIN "CMOD21"
00380CHAIN "CMOD23"
00390CHAIN "CMOD93"
00400CHAIN "CMOD94"
00410SCRATCH#1
00411 PRINT # 1,-99,0,0
00420CHAIN "CMONTR"
09999END