Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0113/cmod94.bas
There are 2 other files named cmod94.bas in the archive. Click here to see a list.
00020REM**********************************************************
00030REM  CMOD94     CMOD94     CMOD94     CMOD94     CMOD94
00040REM**********************************************************
00050REM   PRE SIMULTANEOUS ESTIMATION MODULE
00060REM      DETERMINES IF DATA IN RESTART OR DEMONSTRATION DATA
00070REM***********************************************************
00080  DIM                     N(12),X(1000)
00090D0=0
00110PRINT L$
00120PRINT "   SIMULTANEOUS ESTIMATION - EQUAL SLOPES"
00130PRINT " "
00140  FILES RFILE1,RFILE2,RFILE3,RF4 
00180RESTORE#1
00181  INPUT#  1,I1,I2,I3
00190SCRATCH#1
00191  PRINT #  1,94,I2,I3
00200RESTORE#4
00201  INPUT#  4,N$
00215PRINT "IF YOU WANT TO USE THE DEMONSTRATION DATA TYPE '1', ELSE '0'.";
00216GOSUB 9000
00217IF O1=1 THEN 260
00218  IF N$ <> "$$$$$$" THEN 426
00220PRINT "THERE ARE NO DATA IN WORKING STORAGE."
00230PRINT "IF YOU WANT TO USE THE DEMONSTRATION DATA TYPE '1', ELSE '0'.";
00240GOSUB 9000
00250IF O1 <> 1 THEN 340
00260 GOTO 345
00320 REM
00340CHAIN "RSTRT"
00345 FILE #1,"DATREG"
00346 MARGIN #4,100
00350RESTORE#1
00351 INPUT#1,N$
00352INPUT#1,N$
00360SCRATCH#4
00361  PRINT #  4,N$
00370 INPUT #1,M
00372INPUT #1,P
00380PRINT #4,M
00382PRINT#4,P
00390INPUT#1,G$
00392INPUT #1,V$
00399 QUOTE #4
00400 PRINT #4,G$
00402 PRINT #4,V$
00410 FOR I=1 TO 12
00412 INPUT#1,N(I)
00414 PRINT#4,N(I)
00420 NEXT I
00422 FOR I=1 TO 1000
00423 INPUT #1,X(I)
00424 PRINT#4,X(I)
00425NEXT I
00426CHAIN"CMOD62"
00430IF M>1 THEN 460
00440PRINT "RESTART DATA ISN'T GROUPED. GROUP DATA IN COMP1"
00450GOTO 320
00460IF M <= 10 THEN 426
00470PRINT "YOU HAVE ";M;" GROUPS.  THE MAX NUMBER OF GROUPS"
00480PRINT "IS 10. REGROUP DATA IN COMP1."
00490GOTO 320
09000REM--SUBROUTINE THAT DETERMINES IF RESTART HAS BEEN REQUESTED.
09005INPUT O1
09015IF O1=-9999 THEN 9025
09020RETURN
09025CHAIN "RSTRT"
09035REM*************END ROUTINE
09999 END