Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - 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