Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0113/cmod72.bas
There are 2 other files named cmod72.bas in the archive. Click here to see a list.
00024 DIM S(12)
00050 DIM X(1000)
00060 MARGIN ALL 80
00100 FILES RFILE1,RFILE2,RFILE3,RF4,,,,,RF9
00111 RESTORE #9
00112 INPUT #9,N0
00113 INPUT #9,V3
00114 FOR I=1 TO N0*V3
00115 INPUT #9,X(I)
00116 NEXT I
00117 INPUT #9,Z$
00118 RESTORE #1
00120 INPUT #1,I,J,K
00122 SCRATCH #1
00130 PRINT #1,46,J,K
00132 RESTORE #4
00140 INPUT #4,M$
00141 INPUT #4,G6
00142 INPUT #4,V0
00143 INPUT #4,G$
00144 INPUT #4,V$
00150 IF V3<>0 THEN 240
00160 PRINT L$
00170 PRINT "THERE ARE NO VARIABLES IN YOUR WORKING DATA SET. THEREFORE"
00180 PRINT "YOUR SOURCE SET WILL CONTINUE TO BE THE DATA SET AVAILABLE"
00190 PRINT "TO YOU."
00200 PRINT
00210 PRINT "WHEN YOU ARE READY TO CONTINUE TYPE '1'.";
00220 GOSUB 9000
00230 GOTO 260
00240 V0=V3
00250 V$=Z$
00260 FOR I=1 TO 12
00262 INPUT #4,S(I)
00263 NEXT I
00270 PRINT L$
00280 PRINT " DESCRIPTION OF DATA SET"
00290 PRINT
00300 PRINT "DATA SET NAME=";M$
00310 IF G6=0 THEN 400
00320 PRINT "GROUP OBSERVATIONS"
00330 FOR V=1 TO G6
00340 : 'CCCCC ########
00350 PRINT USING 340,MID$(G$,V*6-5,6),S(V)
00360 NEXT V
00370 GOTO 410
00400 PRINT "NUMBER OF OBSERVATIONS = ";N0
00410 PRINT
00420 FOR V=1 TO V0
00430 :VARIABLE ## = 'CCCCC
00440 PRINT USING 430,V,MID$(V$,V*6-5,6)
00450 NEXT V
00460 PRINT
00470 PRINT "WHEN YOU ARE READY TO CONTINUE TYPE '1'.";
00480 GOSUB 9000
00490 IF G6<>0 THEN 550
00500 G6=0
00510 N0=S(1)
00520 GOTO 600
00550 N0=00
00560 FOR J=1 TO G6
00570 N0=N0+S(J)
00580 NEXT J
00600 SCRATCH #4
00601 PRINT #4,M$
00602 PRINT #4,G6
00603 PRINT #4,V0
00604 PRINT #4,CHR$(34);G$;CHR$(34)
00605 PRINT #4,CHR$(34);V$;CHR$(34)
00610 FOR I=1 TO 12
00620 PRINT #4,S(I)
00624 NEXT I
00630 IF G6=0 THEN 725
00640 F5=0
00650 FOR I=1 TO G6
00660 FOR K=1 TO V0
00670 FOR J=1 TO S(I)
00680 PRINT #4,X(F5+J+N0*(K-1))
00690 NEXT J
00700 NEXT K
00710 F5=F5+S(I)
00715 NEXT I
00720 GOTO 900
00725 FOR I=1 TO N0*V0
00730 PRINT #4,X(I)
00740 NEXT I
00900 CHAIN"CMOD10"
09000 INPUT O1
09010 IF O1=-9999 THEN 9030
09020 RETURN
09030 CHAIN "RSTRT"
09999 END