Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0113/cmod20.bas
There are 2 other files named cmod20.bas in the archive. Click here to see a list.
00020  DIM X(1000)              ,S(12)
00040MAT S=ZER
00050REM***********************************************************
00060REM  CMOD20     CMOD20     CMOD20     CMOD20     CMOD20
00070REM***********************************************************
00080FILES RFILE1,RFILE2,RFILE3,RF4,RF5,RF6,RF7,RF8
00130RESTORE#1
00131  INPUT#  1,I1,I2,I3
00140RESTORE#2
00141  INPUT#  2,K
00150IF K=68 THEN 200
00160IF K=69 THEN 180
00170GOTO 270
00180  F$="C9LL  "
00190GOTO 210
00200  F$="C8LL  "
00210  INPUT#2,K
00220IF K>9 THEN 250
00230S$=MID$(F$,1,4)
00232 F$=LEFT$(S$+STR$(K)+"      ",6)
00240GOTO290
00250S$=MID$(F$,1,4)
00251 F$=LEFT$(S$+STR$(K)+"       ",6)
00252 GOTO 290
00270IF K <> 1 THEN 480
00280  F$="FILE1"
00290 FILE  #9,F$
00320 RESTORE#9
00321INPUT#9,N$
00322INPUT#9,N$
00323INPUT#9,G6
00324INPUT#9,V0
00325INPUT#9,G$
00326INPUT#9,V$
00330 SCRATCH #6
00331PRINT#6,"NONAME",0
00332 MARGIN #4,100
00340SCRATCH#4
00341PRINT#4,N$
00342PRINT#4,G6
00343PRINT#4,V0
00344PRINT#4,CHR$(34);G$;CHR$(34)
00345PRINT#4,CHR$(34);V$;CHR$(34) 
00350 FOR I=1 TO 12
00351 INPUT #9,S(I) 
00353 PRINT#4,S(I)
00354 NEXT I
00370N0=S(1)
00380IF G6=0 THEN 430
00390N0=0
00400FOR I=1 TO G6
00410N0=N0+S(I)
00420NEXT I
00430FOR K0=1 TO N0*V0
00440 INPUT #9,X(K0)
00450  PRINT#4 ,X(K0)
00460NEXT K0
00470GOTO 550
00480IF K <> 2 THEN 510
00490  F$="FILE2"
00500GOTO 290
00510IF K <> 3 THEN 540
00520  F$="FILE3"
00530GOTO 290
00540CHAIN "CERROR"
00550PRINT L$
00560PRINT "THE DATA SET IS NOW IN WORKING STORAGE.  IT WILL REMAIN THERE"
00570PRINT "UNTIL YOU SIGN OFF THE MONITOR OR REPLACE IT WITH ANOTHER DATA"
00580PRINT "SET."
00590PRINT
00600PRINT "WHEN YOU ARE READY TO CONTINUE TYPE '1'.";
00610GOSUB 9000
00620SCRATCH#1
00621  PRINT #  1,0,0,1
00630CHAIN "CMONTR"
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
09100REM--SUBROUTINE THAT DETERMINES IF RESTART HAS BEEN REQUESTED.  3 INPUTS
09105INPUT O1,O2,O3
09115IF O1=-9999 THEN 9135
09120IF O2=-9999 THEN 9135
09125IF O3=-9999 THEN 9135
09130RETURN
09135CHAIN "RSTRT"
09145REM*************END ROUTINE
09999 END