Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0113/comp1.bas
There are 2 other files named comp1.bas in the archive. Click here to see a list.
00020REM CMONTR
00030C0=0
00040C1=1
00050C2=2
00060C7=7
00080FILES RFILE1,RFILE2,RFILE3,RF4,RF5,RF6,RF7,RF8,RF9
00120RESTORE#1
00121 INPUT# 1,K,J,I
00130PRINT L$
00140RESTORE#1
00141 INPUT# 1,I1,I2,I3
00150RESTORE#4
00151INPUT#4,N$
00160 IF N$="$$$$$$" THEN 190
00170SCRATCH#1
00171PRINT#1,I1,2,I3
00180GOTO 210
00190 SCRATCH#1
00191PRINT#1,I1,C1,I3,C0
00200 SCRATCH #6
00201PRINT#6,"NONE",0
00210PRINT " COMPONENT 1. DATA MANAGEMENT"
00220PRINT
00230PRINT " 1. DATA ENTRY"
00240PRINT " 2. DATA DISPLAY AND EDITTING"
00250PRINT " 3. DATA REDUCTION - SUMMARY STATISTICS"
00260PRINT " 4. DATA GRAPHICS AND TABULAR DISPLAYS"
00270PRINT " 5. DATA TRANSFORMATIONS"
00280PRINT " 6. DATA GROUPING"
00290PRINT " 7. DATA FILING"
00300PRINT " 8. DATA FILE ENTRY"
00310PRINT " 9. DATA FILE CATALOGUE"
00320PRINT
00330PRINT "IF YOU WANT AN AVAILABLE MODULE TYPE IT NUMBER, ELSE '0'.";
00340INPUT I
00350IF I=C2 THEN 560
00360IF I=6 THEN 550
00370IF I=3 THEN 570
00380IF I=4 THEN 580
00390IF I=5 THEN 590
00400IF I=C7 THEN 610
00410IF I=C0 THEN 630
00420IF I=C1 THEN 540
00430IF I=9 THEN 470
00440IF I=8 THEN 620
00450GOSUB 510
00460GOTO 350
00470CHAIN "COMP2"
00480PRINT " * NOT YET AVAILABLE"
00490PRINT
00500PRINT
00510PRINT "REENTER. INPUT MUST BE NUMBER OF AVAILABLE MODULE OR '0'.";
00520INPUT I
00530RETURN
00540CHAIN "CMOD11"
00550CHAIN "CMOD16"
00560CHAIN "CMOD12"
00570CHAIN "CMOD13"
00580CHAIN "CMOD14"
00590CHAIN "CMOD15"
00600CHAIN "CMOD16"
00610CHAIN "CMOD17"
00620CHAIN "CMOD31"
00630SCRATCH#1
00631 PRINT # 1,-99,0,0
00640CHAIN "CMONTR"
00999END