Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50422/cmod30.bas
There are 2 other files named cmod30.bas in the archive. Click here to see a list.
00020  DIM S(12),X(1000)
00030REM*****************************************************************
00040REM     CMOD30     CMOD30     CMOD30     CMOD30     CMOD30
00050REM*****************************************************************
00060FILES RFILE1,RFILE2,RFILE3,RF4,RF5,RF6,RF7,RF8,RF9
00100RESTORE#1
00101  INPUT#  1,I1,I2,I3
00110SCRATCH#1
00111  PRINT #  1,I1,234,I3
00120PRINT
00130PRINT "THIS MODULE ASSUMES THAT YOU WANT TO USE A DATA FILE THAT YOU"
00140PRINT "HAVE PREVIOUSLY FILED.  IF YOUR DATA SET IS ON FILE YOU SHOULD"
00150PRINT "USE MODULE 8 - DATA FILE ENTRY TO GET IT.  IF YOU DO NOT HAVE"
00160PRINT "A DATA SET ON FILE BUT WANT TO ENTER ONE FROM THE TERMINAL"
00170PRINT "YOU SHOULD USE MODULE 1 - DATA ENTRY."
00180PRINT
00190PRINT "IF YOU HAVE A DATA SET ON FILE TYPE '1'."
00200PRINT "IF YOU WANT TO ENTER DATA FROM THE TERMINAL TYPE '2'."
00210PRINT "IF YOU WANT TO EXIT THE DATA MANAGEMENT COMPONENT TYPE '3'"
00220GOSUB 9000
00230IF O1=1 THEN 280
00240IF O1=2 THEN 290
00250IF O1=3 THEN 310
00260PRINT "REENTER.  INPUT MUST BE 1,2 OR 3."
00270GOTO 220
00280CHAIN "CMOD31"
00290SCRATCH#1
00291  PRINT #  1,1,1,1
00300CHAIN "CMOD11"
00310CHAIN "RSTRT"
09000REM--SUBROUTINE THAT DETERMINES IF RESTART HAS BEEN REQUESTED.
09005INPUT O1
09015IF O1=-9999 THEN 9025
09020RETURN
09025CHAIN "RSTRT"
09035REM*************END ROUTINE
09999END