Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0113/cmod16.bas
There are 2 other files named cmod16.bas in the archive. Click here to see a list.
00020 DIM X(1000),W(1000)
00030 DIM Y(1000)
00032REM*************************************************************
00033REM CMOD16 CMOD16 CMOD16 CMOD16 CMOD16
00034REM**************************************************************
00040FILES RFILE1,RFILE2,RFILE3,RF4,RF5,RF6,RF7,RF8,RF9
00062MAT X=ZER
00063MAT Y=ZER
00064 MAT W=ZER
00080MARGIN ALL 80
00090RESTORE#1
00091 INPUT# 1,I1,I2,I3
00100SCRATCH#1
00101 PRINT # 1,56,I2,I3
00110IF I2=1 THEN 130
00120GOTO 180
00130PRINT L$
00140SCRATCH#1
00141 PRINT # 1,I1,6,I3
00150PRINT " DATA GROUPING"
00160CHAIN "CMOD30"
00170REM---------- READ IN TEMPORARY DATA FILE
00180RESTORE#4
00181 INPUT #4,M$
00182 INPUT #4,G6
00183 INPUT #4,V0
00184 INPUT #4,G$
00185 INPUT #4,V$
00186 DIM S(12)
00190 FOR I=1 TO 12
00191INPUT#4,S(I)
00192NEXTI
00200PRINT
00210IF G6=0 THEN 590
00215PRINT L$
00216PRINT " DATA GROUPING"
00217PRINT
00220PRINT "THE DATA SET IN WORKING STORAGE IS ALREADY GROUPED."
00230PRINT
00240GOSUB 690
00250PRINT
00260PRINT "IF YOU WANT TO REGROUP THE DATA TYPE '1'"
00270PRINT "IF YOU DO NOT WANT TO CHANGE THE GROUPING TYPE '2'."
00280PRINT "IF YOU WANT THE DATA SET TO BE UNGROUPED TYPE '3'."
00290GOSUB 9000
00300IF O1=3 THEN 360
00310IF O1=1 THEN 360
00320IF O1=2 THEN 350
00330PRINT "REENTER. INPUT MUST BE O OR 1."
00340GOTO 290
00350CHAIN "CMOD10"
00360F5=0
00370FOR J=1 TO G6
00380F5=S(J)+F5
00390NEXT J
00400N0=F5
00410FOR J=1 TO F5*V0
00420 INPUT#4,Y(J)
00430NEXT J
00440N=1
00450FOR J=1 TO V0
00460F5=0
00470FOR I=1 TO G6
00480FOR K=1 TO S(I)
00490X(N)=Y(F5+K+S(I)*J-S(I))
00520N=N+1
00530NEXT K
00540F5=F5+S(I)*V0
00550NEXT I
00560NEXT J
00570 IF O1=3 THEN 631
00571 SCRATCH #9
00572 FOR I=1 TO 1000
00573 PRINT #9,X(I)
00574 PRINT #9,W(I)
00575 NEXT I
00576 FOR I=1 TO 12
00577 PRINT #9,S(I)
00578 NEXT I
00579 PRINT #9,N0
00580 PRINT #9,V0
00581 PRINT #9,G6
00582 PRINT #9,M$
00583 PRINT #9,CHR$(34);V$;CHR$(34)
00584 PRINT #9,CHR$(34);G$;CHR$(34)
00588 CHAIN "CMOD61"
00590N0=S(1)
00595FOR J=1 TO N0*V0
00600 INPUT#4,X(J)
00610NEXT J
00620 GOTO 571
00631SCRATCH#4
00632PRINT#4,M$
00633PRINT#4,0
00634PRINT#4,V0
00635PRINT#4CHR$(34);G$;CHR$(34)
00636PRINT#4CHR$(34);V$;CHR$(34)
00637S(1)=N0
00638FORI=1TO12
00639PRINT#4,S(I)
00640NEXTI
00641FORI=1TO1000
00642PRINT#4,X(I)
00643NEXTI
00645CHAIN "CMOD10"
00690PRINT " DESCRIPTION OF DATA SET"
00700PRINT
00710PRINT "DATA SET NAME = ";M$
00720PRINT
00730PRINT " GROUP SIZE"
00740FOR J6=1 TO G6
00750:'CCCCC ####
00760 PRINT USING 750,MID$(G$,J6*6-5,J6*6-(J6*6-5)+1),S(J6)
00770NEXT J6
00780PRINT
00790FOR J6=1 TO V0
00800:VARIABLE ## = 'CCCCC
00810 PRINT USING 800,J6,MID$(V$,J6*6-5,J6*6-(J6*6-5)+1)
00820NEXT J6
00830RETURN
09000REM--SUBROUTINE THAT DETERMINES IF RESTART HAS BEEN REQUESTED.
09010INPUT O1
09020IF O1=-9999 THEN 9040
09030RETURN
09040CHAIN "RSTRT"
09050REM*************END ROUTINE
09999END