Google
 

Trailing-Edge - PDP-10 Archives - scratch - 10,7/unscsp/montst/bastst.ctl
There are 5 other files named bastst.ctl in the archive. Click here to see a list.
 0
670D 0
680D 0
690D 0
700D 0
710D 0
720D 0
730D 0
740D 10.7966
750D 15.4711
760D 8.66285
770D 3561.94
780D 0
790D 0
800D 0
810D 0
820D 0
830D 0
840D 0
850D 0
860D 0
870D 0
880D 0
890D 0
900D 0
910D 0
920D 424
930D 504
940D 462
950D 292
960D 0
970D 0
980D 0
990D 0
1000D 0
1010D 0
1020D 0
1030D 0
LIS
SAVE
NEW
PCHEM
10 DIM C(110),B(10),A(10),E$(15)
12 FOR I=1 TO 12
14 READ E$(I)
15 NEXT I
20 FILES CHEM
30 READ #1,N
40 FOR I=1 TO 102
50 READ #1,C(I)
60 NEXT I
70 PRINT "DATA(1) OR INQUIRY(2)"
80 INPUT X
90 IF X=2 THEN 440
100 IF X=1 THEN 130
110 PRINT "NO SUCH MODE"
120 GO TO 70
130 PRINT "MONTH(1-12)"
140 INPUT K
150 IF K=N THEN 290
160 IF K=N+1 THEN 220
170 PRINT "IMPROPER MONTH ENTRY"
180 PRINT "MAY ENTER DATA ONLY FOR MONTH";N
190 LET X=N+1
200 PRINT "OR IF THIS IS THE FIRST DAY OF MONTH";X
210 GO TO 130
220 LET N=N+1
230 FOR I=1 TO 3
240 LET J=30*(I-1)+K
250 LET C(J)=0
260 LET C(J+12)=0
270 NEXT I
280 LET C(90+K)=0
290 FOR L=1 TO 2
300 PRINT "ENTER CAREFULLY; %CU, %PB, NT
420 IF Z$="YES" THEN 70
430 GO TO 1080
440 PRINT
450 PRINT "FROM THE LAST 12 MONTHS; INPUT X,Y WHERE"
460 PRINT "X THROUGH Y ARE THE MONTHS OF INQUIRY"
470 INPUT X,Y
472 PRINT
473 PRINT
480 IF X>Y THEN 560
490 FOR F=X TO Y
492 PRINT E$(F)
500 GO SUB 1030
510 GO SUB 960
520 GO SUB 790
530 NEXT F
540 IF X=Y THEN 390
550 GO TO 670
560 FOR F=X TO 12
562 PRINT E$(F)
570 GO SUB 1030
580 GO SUB 960
590 GO SUB 790
600 NEXT F
610 FOR F=1 TO Y
612 PRINT E$(F)
620 GO SUB 1030
630 GO SUB 960
640 GO SUB 790
650 NEXT F
660 GO SUB 1030
670 IF X>Y THEN 720
680 FOR F=X TO Y
690 GO SUB 960
700 NEXT F
702 PRINT "ALL MONTHS";X;"THROUGH";Y
710 GO SUB 790
712 GO TO 390
720 FOR F=X TO 12
730 GO SUB 960
740 NEXT F
750 FOR F=1 TO Y
760 GO SUB 960
770 NEXT F
772 PRINT "ALL MONTHS";X;"THROUGH";Y
780 GO SUB 790
782 GO TO 390
790 FOR I=1 TO 3
800 LET M(I)=B(2*I-1)/D
810 LET S(I)=SQR((D*B(2*I)-B(2*I-1)**2)/(D*(D-1)))
820 NEXT I
840 PRINT
870 PRINT "MEAN";TAB(10);"STND. DEVIATION"
880 PRINT "%CU"
890 PRINT M(1);TAB(14);S(1)
900 PRINT "%PB"
910 PRINT M(2);TAB(14);S(2)
920 PRINT "%FE"
930 PRINT M(3);TAB(14);S(3)
940 PRINT
945 PRINT
950 RETURN 
960 FOR I=1 TO 3
970 LET J=30*(I-1)+F
980 LET B(2*I-1)=B(2*I-1)+C(J)
990 LET B(2*I)=B(2*I)+C(J+12)
1000 NEXT I
1010 LET D=D+C(90+F)
1020 RETURN
1030 FOR I=1 TO 6
1040 LET B(I)=0
1050 NEXT I
1060 LET D=0
1070 RETURN
1080 SCRATCH #1
1090 WRITE #1,N
1100 FOR I=1 TO 102
1110 WRITE #1,C(I)
1120 NEXT I
1121 DATA JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE
1122 DATA JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
1130 END
SAVE
!1Q
SAVE
CAT
REPLACE
RUNNH
2
1
2

!1Q
N
CAT
UNS CHEM
UNS PCHEM
SYSTEM
DELETE *.*
KJOB/D/D
!XOUT
SKIP::
;RUN VIRTUALLY IF WE CAN
.R SETVM
.IF (ERROR)  ;IGNORE
.R TECO
=ERBASTST.CTL
*_SCP::
=0,.K
=EWBASTST.SCP
=NSKIP::0L
=.,ZKPWEF
;
;SCRIPT FILE COMPLETE.  NOW, RUN THE SCRIPT, 3 JOBS, EACH JOB DOES
;A SAMPLE BASIC PROGRAM
;
.R SCRIPT
*BASTST
.CON
*3
*
*BASTST
*BASTST
*
*
*
*Y
*N
*Y
.IF (ERROR) .GOTO B
.PLEASE BASTST SUCCESSFUL
.DELETE BASTST.WCH
.GOTO A
B::
.PLEASE ERROR RUNNING BASTST.SCP
.QUEUE BASTST.WCH/DISPOSE:DELETE
A::
%FIN:
.NOERROR
.DELETE BASTST.SCP