Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0113/cmod17.bas
There are 2 other files named cmod17.bas in the archive. Click here to see a list.
00020 DIM X(1000) ,S(12)
00030MAT S=ZER
00040 N1$=" "
00050N=6
00060REM******************************************************************
00070REM CMOD17 CMOD17 CMOD17 CMOD17 CMOD17 CMOD17
00080REM**********************************************************************
00090REM* N IS THE TOTAL NUMBER OF DATA FILES AVAIL. AND SHOULD BE
00100REM CHANGED AS YOU CHANGE THE NUMBER OF FILES
00110 FILES RFILE1,RFILE2,RFILE3,RF4,RF5,RF6
00160RESTORE#1
00161 INPUT# 1,I1,I2,I3
00170SCRATCH#1
00171 PRINT # 1,48,I2,I3
00180PRINT L$
00190PRINT " DATA FILING"
00200IF I2 <> 1 THEN 230
00210SCRATCH#1
00211 PRINT # 1,I1,7,I3
00220CHAIN "CMOD30"
00230GOSUB 8500
00240 RESTORE#6
00241 INPUT#6,L1$
00250 IF MID$(L1$,1,1-(1)+1) <> "D" THEN 280
00260 F$=L1$
00265 INPUT #6,W$
00270GOTO 530
00280PRINT
00290PRINT "YOU MUST HAVE A WRITE PASSWORD IN ORDER TO FILE YOUR DATA."
00300PRINT "IF YOU DO NOT HAVE ONE YOU SHOULD CHECK WITH THE SYSTEMS"
00310PRINT "MANAGER."
00320PRINT
00330PRINT "INPUT YOUR PASSWORD OR 'NONE'.";
00340INPUT W$
00343 IF W$ <> "-9999" THEN 350
00344CHAIN "RSTRT"
00350 REM
00355 IF W$<>"NONE" THEN 460
00360PRINT
00370PRINT "CHECK WITH THE SYSTEMS MANAGER."
00380PRINT
00390PRINT "IF YOU HAVE A PASSWORD TYPE '1', ELSE '0'.";
00400GOSUB 9000
00410IF O1=1 THEN 320
00420IF O1=0 THEN 450
00430PRINT "REENTER. INPUT MUST BE 0 OR 1."
00440GOTO 400
00450CHAIN "CMOD10"
00460 REM
00470FOR I=1 TO N
00500 F$="DFIL0"+STR$(I)
00530 FILE#1,F$
00560RESTORE#1
00561 INPUT# 1,N$
00570 IF N$ <> W$ THEN 610
00590 INPUT#1,N1$
00600GOTO 650
00610NEXT I
00620PRINT "THIS IS NOT A VALID PASSWORD. CHECK WITH THE SYSTEMS"
00630PRINT "MANAGER."
00640GOTO 380
00650 IF N1$=" " THEN 730
00660PRINT
00670PRINT "THE FILE WITH YOUR PASSWORD HAS DATA ALREADY STORED IN IT."
00680PRINT
00690PRINT "IF YOU WANT TO ERASE THIS DATA TYPE '1', ELSE '0'.";
00700GOSUB 9000
00710IF O1=1 THEN 730
00720GOTO 320
00730PRINT
00740PRINT "INPUT THE NAME YOU WANT TO ASSIGN TO THE DATA SET (MAX=6).";
00750INPUT N0$
00760 IF N0$ <> "$$$$$$" THEN 790
00770 PRINT "'$$$$$$' IS AN INVALID DATA SET NAME. PLEASE RESPECIFY."
00780GOTO 740
00790PRINT
00800GOTO 900
00810 SCRATCH #1
00811PRINT#1,N$
00812PRINT#1,N0$
00813 SCRATCH#4
00814MARGIN #4,100
00815MARGIN #1,100
00819PRINT#4,N0$
00820PRINT#4,G6
00821PRINT#4,V0
00822PRINT#4,CHR$(34);G$;CHR$(34)
00823PRINT#4,CHR$(34);V$;CHR$(34)
00824PRINT#1,G6
00825PRINT#1,V0
00826PRINT#1,CHR$(34);G$;CHR$(34)
00827PRINT#1,CHR$(34);V$;CHR$(34)
00828 FOR I=1 TO 12
00829 PRINT#4,S(I)
00830PRINT#1,S(I)
00831NEXT I
00860FOR K0=1 TO N0*V0
00870PRINT#4,X(K0)
00872 PRINT#1,X(K0)
00880NEXT K0
00890CHAIN "CMOD10"
00900PRINT L$
00910PRINT "HERE IS A DESCRIPTION OF THE DATA SET."
00920PRINT
00930PRINT "NAME=";N0$
00940IF G6=0 THEN 990
00950FOR J=1 TO G6
00960 PRINT "GROUP ";J;" NAME=";MID$(G$,J*6-5,J*6-(J*6-5)+1);" SIZE=";S(J)
00970NEXT J
00980GOTO 1000
00990PRINT "NUMBER OBSERVATIONS=";N0
01000PRINT
01005PRINT "VARIABLES"
01006FOR I=1 TO V0
01008 PRINT " ";MID$(V$,I*6-5,I*6-(I*6-5)+1)
01009NEXT I
01010PRINT
01020PRINT "WHEN YOU ARE READY TO CONTINUE TYPE '1'.";
01030GOSUB 9000
01040GOTO 810
08490REM---------- READ IN TEMPORARY DATA FILE
08500RESTORE#4
08501INPUT#4,N$
08502INPUT#4,G6
08503INPUT#4,V0
08504INPUT#4,G$
08505INPUT#4,V$
08506FOR I=1 TO 12
08507 INPUT#4,S(I)
08508 NEXT I
08520IF G6=0 THEN 8830
08660N0=0
08670FOR J=1 TO G6
08680N0=N0+S(J)
08690NEXT J
08790GOTO 8870
08830N0=S(1)
08870FOR J=1 TO N0*V0
08880 INPUT#4,X(J)
08890NEXT J
08895RETURN
09000REM--SUBROUTINE THAT DETERMINES IF RESTART HAS BEEN REQUESTED.
09005INPUT O1
09015IF O1=-9999 THEN 9025
09020RETURN
09025CHAIN "RSTRT"
09035REM*************END ROUTINE
09999 END