Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0113/cmod31.bas
There are 2 other files named cmod31.bas in the archive. Click here to see a list.
00020REM*******************************************************************
00030REM  CMOD31     CMOD31    CMOD31    CMOD31    CMOD31
00040REM*******************************************************************
00050  DIM S(12),X(1000)
00060  FILES RFILE1,RFILE2,RFILE3,RF4,RF5,RF6,RF7,RF8,RF9
00100RESTORE#1
00101  INPUT#  1,I1,I2,I3
00110SCRATCH#1
00111  PRINT #  1,60,I2,I3
00120  DIM W(1000)
00190  N$="12345"
00200  D$="DFIL00"
00210  E$="010203040506"
00230W2=0
00240N0=I2
00250MAT W=CON
00260PRINT
00270O1=N0
00280IF I2=234 THEN 370
00290PRINT L$
00300PRINT "               DATA  FILE  ENTRY"
00310PRINT
00320PRINT "THE PURPOSE OF THIS MODULE IS TO ALLOW YOU TO RETRIEVE A"
00330PRINT "DATA SET THAT YOU HAVE PREVIOUSLY FILED."
00340PRINT
00350PRINT "IF YOU DO NOT HAVE A DATA SET ON FILE BUT WANT TO ENTER"
00360PRINT "ONE FROM THE TERMINAL YOU SHOULD USE MODULE 1-DATA ENTRY."
00370PRINT
00380PRINT "INPUT THE NAME OF YOUR DATA SET ON FILE OR 'NONE'.";
00390INPUT N$
00400  IF N$="-9999" THEN 870
00410  IF N$="NONE" THEN 430
00420  IF N$ <> "NONE " THEN 470
00430IF I2=234 THEN 450
00440CHAIN "CMOD10"
00450SCRATCH#1
00451  PRINT #  1,I2,1,I3
00460GOTO 440
00470REM--------------  CHECK TO SEE IF DATA SET IS ON ONE OF DATA FILES
00480FOR I=1 TO 11 STEP 2
00490 D$="DFIL"+MID$(E$,I,2)
00550 FILE#1,D$
00560INPUT#1,W$
00562INPUT#1,N1$
00580  IF N1$ <> N$ THEN 780
00590INPUT#1,G6
00591INPUT#1,V0
00592INPUT#1,G$
00593INPUT#1,V$
00595 FOR I=1TO 12
00600INPUT#1,S(I)
00602 NEXT I
00610IF G6=0 THEN 670
00620N0=0
00630FOR J=1 TO G6
00640N0=N0+S(J)
00650NEXT J
00660GOTO 680
00670N0=S(1)
00680FOR K0=1 TO N0*V0
00690  INPUT#1,X(K0)
00700NEXT K0
00709 MARGIN #4,100
00710SCRATCH#4
00711PRINT#4,N$
00712PRINT#4,G6
00713PRINT#4,V0
00714PRINT#4,CHR$(34);G$;CHR$(34) 
00715PRINT#4,CHR$(34);V$;CHR$(34)
00720 FOR I=1 TO 12
00724 PRINT#4,S(I)
00725NEXT I
00730FOR J=1 TO N0*V0
00740 PRINT #4,X(J)
00750NEXT J
00760SCRATCH#6
00761PRINT#6,CHR$(34);"      ";CHR$(34),0
00770GOTO 880
00780NEXT I
00790PRINT
00800PRINT "YOUR DATA SET WAS NOT FOUND ON ANY OF THE DATA FILES."
00810PRINT "IF YOU ARE SURE THAT YOU HAVE THE RIGHT DATA SET"
00820PRINT "NAME IT MAY BE THAT THE FILE WAS TEMPORARILY BUSY."
00830PRINT "IF IT WAS SIMPLY BUSY THEN TRY AGAIN.  OTHERWISE"
00840PRINT "YOU SHOULD SEE THE SYSTEMS MANAGER."
00850PRINT
00860GOTO 380
00870CHAIN "RSTRT"
00880O2=O1
00890GOSUB 930
00900O1=O2
00910SCRATCH#1
00911  PRINT #  1,I1,2,I3
00920CHAIN "CMOD10"
00930PRINT L$
00940PRINT "HERE IS A DESCRIPTION OF THE DATA SET."
00950PRINT
00960PRINT "NAME=";N$
00970IF G6=0 THEN 1020
00980FOR J=1 TO G6
00990  PRINT "GROUP ";J;"   NAME=";MID$(G$,J*6-5,J*6-(J*6-5)+1);"    SIZE=";S(J)
01000NEXT J
01010GOTO 1030
01020PRINT "NUMBER OBSERVATIONS=";N0
01030PRINT "NUMBER OF VARIABLES=";V0
01040PRINT
01050FOR J=1 TO V0
01060  PRINT "VARIABLE ";J;" = ";MID$(V$,J*6-5,J*6-(J*6-5)+1)
01070NEXT J
01080PRINT
01090PRINT "WHEN YOU ARE READY TO CONTINUE TYPE '1'.";
01100GOSUB 9000
01110RETURN
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
09999 END