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