Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0113/cmod10.bas
There are 2 other files named cmod10.bas in the archive. Click here to see a list.
00020REM******************************************************************
00030REM CMOD10 CMOD10 CMOD10 CMOD10 CMOD10 CMOD10
00040REM*****************************************************************
00050FILES RFILE1,RFILE2,RFILE3,RF4,RF5,RF6,RF7,RF8,RF9
00090RESTORE#1
00091 INPUT# 1,I1,I2,I3
00100PRINT L$
00110PRINT " DATA MANAGEMENT MODULES"
00120PRINT
00130PRINT " 1. DATA ENTRY"
00140PRINT " 2. DATA DISPLAY AND EDITTING"
00150PRINT " 3. DESCRIPTIVE/SUMMARY STATISTICS"
00160PRINT " 4. DATA GRAPHICS AND TABULAR DISPLAYS"
00170PRINT " 5. DATA TRANSFORMATIONS"
00180PRINT " 6. DATA GROUPING"
00190PRINT " 7. DATA FILING"
00200PRINT " 8. DATA FILE ENTRY"
00210PRINT
00220PRINT "NOTE: TO ADD TO AN EXISTING DATA SET USE MODULE 2."
00221PRINT
00230PRINT "TYPE THE NUMBER OF THE MODULE YOU WANT (EXIT=0).";
00240SCRATCH#1
00241 PRINT # 1,I1,I2,1
00250GOSUB 9000
00260O1=INT(O1)
00270IF O1=1 THEN 430
00280IF O1=6 THEN 470
00290IF O1=3 THEN 410
00300IF O1=7 THEN 390
00310IF O1=4 THEN 420
00320IF O1=2 THEN 440
00330IF O1=5 THEN 450
00340IF O1=0 THEN 460
00350IF O1=8 THEN 480
00360PRINT "REENTER. INPUT MUST BE NUMBER OF AVAILABLE OPTION."
00370GOTO 250
00380REM
00390CHAIN "CMOD17"
00400CHAIN "CMONTR"
00410CHAIN "CMOD13"
00420CHAIN "CMOD14"
00430CHAIN "CMOD11"
00440CHAIN "CMOD12"
00450CHAIN "CMOD15"
00460CHAIN "RSTRT"
00470CHAIN "CMOD16"
00480CHAIN "CMOD31"
09000REM--SUBROUTINE THAT DETERMINES IF RESTART HAS BEEN REQUESTED.
09005INPUT O1
09015IF O1=-9999 THEN 9025
09020RETURN
09025CHAIN "RSTRT"
09035REM*************END ROUTINE
09050REM--SUBROUTINE THAT DETERMINES IF RESTART HAS BEEN REQUESTED. 2 INPUTS
09055INPUT O1,O2
09065IF O1=-9999 THEN 9080
09070IF O2=-9999 THEN 9080
09075RETURN
09080CHAIN "RSTRT"
09090REM*************END ROUTINE
09999END