Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0113/cmod15.bas
There are 2 other files named cmod15.bas in the archive. Click here to see a list.
00030  DIM        S(12),W(1000)
00031DIMX(1000)
00032MAT W=ZER
00033REM**********************************************************
00034REM     CMOD15     CMOD15     CMOD15     CMOD15     CMOD15
00035REM**********************************************************
00040FILES RFILE1,RFILE2,RFILE3,RF4,RF5,RF6,RF7,RF8,RF9
00080RESTORE#1
00081  INPUT#  1,I1,I2,I3
00090SCRATCH#1
00091  PRINT #  1,46;I2,I3
00100IF I2 <> 1 THEN 170
00110PRINT L$
00120SCRATCH#1
00121  PRINT #  1,I1,5,I3
00130PRINT "              DATA  TRANSFORMATIONS"
00140PRINT
00150CHAIN "CMOD30"
00160REM----------  READ IN TEMPORARY DATA FILE
00170RESTORE#4
00171INPUT#4,M$
00172INPUT#4,G6
00173INPUT#4,V0
00174INPUT#4,G$
00175INPUT#4,V$
00180FORI=1TO12
00181INPUT#4,S(I)
00182NEXTI
00190IF G6 <> 0 THEN 240
00200N0=S(1)
00210GOTO 290
00240N0=0
00250FOR J=1 TO G6
00260N0=N0+S(J)
00270NEXT J
00290FOR J=1 TO N0*V0
00300  INPUT#4,X(J)
00310NEXT J
00320IFG6=0THEN433
00330L=1
00340FOR K=1 TO V0
00350F5=0
00360FOR J=1 TO G6
00370FOR I=1 TO S(J)
00380W(L)=X(F5+I+S(J)*(K-1))
00390L=L+1
00400NEXT I
00410F5=F5+S(J)*V0
00420NEXT J
00430NEXT K
00432MAT X=W
00433SCRATCH#9
00434PRINT#9,N0
00435PRINT#9,V0
00436FORI=1TON0*V0
00437PRINT#9,X(I)
00438NEXTI
00439PRINT#9,CHR$(34);V$;CHR$(34)
00440CHAIN "CMOD71"
00450REM------------  PRINT OUT ON TEMPORARY DATA FILE
00460SCRATCH#4
00461  PRINT #  4,G6,V0,G$,V$
00470FORI=1TO12
00471PRINT#4,S(I)
00472NEXTI
00480IF G6=0 THEN 500
00490GOSUB 240
00500FOR J=1 TO N0*V0
00510PRINT#4,X,J
00520NEXT J
00530CHAIN "CMOD10"
09999END