Google
 

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