Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50422/rstrt.bas
There are 2 other files named rstrt.bas in the archive. Click here to see a list.
00030REM**********************************************************
00040REM   RSTRT     RSTRT     RSTRT     RSTRT     RSTRT
00050REM**********************************************************
00060REM   ROUTINE TO SET RESTART FILE FOR CMONTR
00070REM**********************************************************
00080  DIM Q(10)
00090FILES RFILE1,RFILE2,RFILE3,RF4,RF5,RF6,RF7,RF8,RF9
00130  DIM M(111)
00140MAT M=ZER
00150RESTORE#1
00151  INPUT#  1,V,J,K
00160PRINT L$
00170PRINT "TYPE THE NUMBER OF THE OPTION YOU WANT."
00180IF K=3 THEN 220
00190IF K=1 THEN 250
00200IF K=2 THEN 250
00210GOTO 400
00220PRINT "     1. RESTART AT THE BEGINNING OF THIS DISTRIBUTION"
00230GOTO 280
00240IF K=3 THEN 280
00250PRINT "     1. RESTART AT THE BEGINNING OF THIS MODULE."
00260PRINT "     2. SELECT A DIFFERENT MODULE."
00270GOTO 290
00280PRINT "     2. SELECT A DIFFERENT DISTRIBUTION."
00290PRINT "     3. SELECT A DIFFERENT COMPONENT."
00300PRINT "     4. EXIT CADA MONITOR."
00310INPUT I
00320IF I=4 THEN 580
00330IF I=3 THEN 590
00340IF I=2 THEN 670
00350IF I=1 THEN 690
00360PRINT
00370PRINT "REENTER.  INPUT MUST BE NUMBER OF OPTION."
00380PRINT
00390GOTO 310
00400PRINT "     1. RESTART AT THE BEGINNING OF THIS MODULE."
00410IF K <> 8 THEN 440
00420IF J=8 THEN 710
00430SCRATCH#3
00431  PRINT #  3,0
00440PRINT "     2. SELECT A DIFFERENT MODULE OF THIS MODEL."
00450PRINT "     3. SELECT A DIFFERENT MODEL OF THIS COMPONENT."
00460PRINT "     4. SELECT A DIFFERENT COMPONENT."
00470PRINT "     5. EXIT CADA MONITOR."
00480INPUT I
00490IF I=5 THEN 580
00500IF I=4 THEN 590
00510IF I=3 THEN 650
00520IF I=2 THEN 670
00530IF I=1 THEN 690
00540PRINT
00550PRINT "REENTER.  INPUT MUST BE NUMBER OF OPTION."
00560PRINT
00570GOTO 480
00580STOP
00590SCRATCH#2
00591FORZ1=1TO111
00592PRINT#2M(Z1)
00593NEXTZ1
00600SCRATCH#3
00601FORZ1=1TO111
00602PRINT#3,M(Z1)
00610SCRATCH#8
00611  PRINT #  8 ,0,0,0
00620SCRATCH#7
00621  PRINT #  7 ,0,0,0,0
00630SCRATCH#1
00631  PRINT #  1,0,0,0
00640CHAIN "CMONTR"
00650SCRATCH#1
00651  PRINT #  1,0,0,K,0,0,0
00660GOTO 640
00670SCRATCH#1
00671  PRINT #  1,0,J,K,0,0,0,0,0
00680GOTO 640
00683NEXTZ1
00690SCRATCH#1
00691  PRINT #  1,V,J,K,0,0,0,0,0
00700GOTO 640
00710PRINT "     2. SELECT A DIFFERENT MODEL OF THIS COMPONENT."
00720SCRATCH#3
00721  PRINT #  3,0
00730PRINT "     3. SELECT A DIFFERENT COMPONENT."
00740PRINT "     4. EXIT CADA"
00750INPUT I
00760IF I=4 THEN 580
00770IF I=2 THEN 650
00780IF I=3 THEN 590
00790IF I=1 THEN 820
00800PRINT "REENTER.  INPUT MUST BE NUMBER OF OPTION."
00810GOTO 750
00820SCRATCH#2
00821FORZ1=1TO111
00822PRINT#2,M(Z1)
00823NEXTZ1
00830SCRATCH#3
00831FORZ1=1TO111
00832PRINT#3,M(Z1)
00833NEXTZ1
00840GOTO 690
09999END