! VCRIDX.BAS

! Purpose: Calculate & print the number of blocks per PPN from a VCRDIR file.
!	   Output to xxxxxx.LST and terminal.

! Limitations: Memory required: 135K Bytes.  See COUNTS matrix below.
!              Max block count per PPN = 65,535.

! 	At: Interactive Concepts, Inc. (312)949-1771
!	By: Bart Berndtson
!	On: 01/03/85 Why: Created

!	On: 01/08/85 By: BEB Why: Edited format.
!	On: 01/22/85 By: BEB Why: Add STRING="".  Make [mmm,nnn] fixed length
!	On: 05/22/87 By: BEB Why: Dress up report matrix: ......, column foot.


!       Where PPN =     P   PN
!		From	1    0
!		To     377 377
	MAP1	COUNTS(255,256),B,2	! = 130,560 bytes
					! where max block count = 65,535 per PPN
					
	MAP1	TRUE,B,2,-1
	MAP1	FALSE,B,2,0
	MAP1	FIRST,B,2
	MAP1	DEBUG,B,2,FALSE

	MAP1	FILE'NAME,S,30	! DSKn:[nnn,nnn]abcdef
	MAP1	EXT,S,3		! ghi
	MAP1	FILE'SPEC,S,30	! DSKn:[nnn,nnn]abcdef.ghi
	MAP1	OUT'SPEC,S,30	! DSKn:[nnn,nnn]abcdef.LST
	MAP1	STRING,S,90

	MAP1	DEV,S,4		! DEVn device on tape to report

	MAP1	I,F
	MAP1	N,F
	MAP1	X,F
	MAP1	PX,F
	MAP1	XP,F
	MAP1	XPN,F
	MAP1	XPU,F
	MAP1	D,F
	MAP1	P'PRIOR,F
	MAP1	PN'PRIOR,F
	MAP1	P,F,,0
	MAP1	PN,F,,0
	MAP1	PFLAG(255),B,1
	MAP1	PS(255),B,1
	MAP1	PNS(256),B,1
	MAP1	PPN'TOTAL(256),F
	MAP1	PPN'BLOCKS,F
	MAP1	PPN,S,30
	MAP1	PROJ,S,30
	MAP1	SEQ,B,5
	MAP1	BLOCKS,B,5
	MAP1	BLOCKS'PER'PPN,B,5
	MAP1	TOTAL'BLOCKS,B,5,0

	MAP1	P'STRING,S,6
	MAP1	FMT,S,3
	MAP1	P'10,F
	MAP1	WORK,F
	MAP1	ROW,F

	?MEM(0)
		FOR I = 1 TO 255 : PFLAG(I) = 0 : NEXT I

		EXT = "VCR"		! default
		PRINT TAB(-1,0);
		PRINT "File Name: "
		PRINT "Extension: ";EXT
		PRINT "Summarize device from vcr directory(eg, DSK0): "
	?MEM(0)

		PRINT TAB(1,12);
		INPUT LINE "", FILE'NAME

		PRINT TAB(2,12);
		INPUT LINE "", EXT

		PRINT TAB(3,48);
		INPUT LINE "",DEV

		IF EXT = "" EXT = "VCR"

		FILE'SPEC = FILE'NAME + "." + EXT
		OUT'SPEC = FILE'NAME + "." + "LST"
		PRINT
		PRINT "Input file: ";FILE'SPEC;"  Output file: ";OUT'SPEC

		OPEN #10,FILE'SPEC,INPUT
		OPEN #20,OUT'SPEC,OUTPUT
		FIRST = TRUE
		TOTAL'BLOCKS = 0
		N = 0
		ROW = 7
		BLOCKS'PER'PPN = 0

		IF DEBUG = TRUE &
			PRINT "          1111111111222222222233333333334" : &
			PRINT " 1234567890123456789012345678901234567890" : &
			PRINT " =====  ====             === === ===== "
! Here scan directory file:
	NEXT:
		P'PRIOR = P
		PN'PRIOR = PN
		INPUT LINE #10,STRING
		IF EOF (10) # FALSE GOTO INPUT'END

		N = N + 1
		IF N <= 7 GOSUB DO'PRT'STG : GOTO NEXT
		IF N  = 8 GOSUB SEE'HEADING

		SEQ = STRING[1,5]
		PRINT TAB(ROW,1);(SEQ USING "#####");" ";
		IF NOT(STRING[8,11] = DEV OR STRING[8,11] = "ALL")&
			PRINT " SKIP";TAB(-1,9); : GOTO NEXT

		P = 0 : FOR I = 25 TO 27 : D = STRING[I,I] : P = P * 8 + D : NEXT I

		IF P # 0 PFLAG(P) = P
		
		PN = 0
		FOR I = 29 TO 31
			IF STRING[I,I] >= "0" AND STRING[I,I] <= "9" &
				D = STRING[I,I] : PN = PN * 8 + D
		NEXT I

		P'10 = P : FMT = "#ZZ" : GOSUB OCT'FMT
		PROJ = "["+P'STRING+","
		P'10 = PN : FMT = "#ZZ" : GOSUB OCT'FMT
		PPN = PROJ + P'STRING+ "]"
		PRINT PPN;

		BLOCKS = STRING[33,37]
		PRINT BLOCKS USING " #####";

		IF P # P'PRIOR OR PN # PN'PRIOR BLOCKS'PER'PPN = 0
		BLOCKS'PER'PPN = BLOCKS'PER'PPN + BLOCKS
		PRINT BLOCKS'PER'PPN USING " #####"

		COUNTS(P,PN+1) = COUNTS(P,PN+1) + BLOCKS
		TOTAL'BLOCKS = TOTAL'BLOCKS + BLOCKS
		GOTO NEXT

	INPUT'END:
		CLOSE #10

		PRINT : ROW = ROW + 1

! Here print table of block counts:
! [nn,?]  nn,nnn  nn,nnn  ...
		PRINT     ((DEV+":     ")[1,5]);"      TOTAL";
		PRINT #20,((DEV+":     ")[1,5]);"      TOTAL";
		GOSUB PRT'COLUMNS

! [mmm,nn?]  nn,nnn  nn,nnn  ...
! 12345678901234567890123456
		PPN = ""
		FOR XP = 1 TO 255			! mmm
			IF PFLAG(XP) = 0 GOTO LOOP'XP
			PPN'BLOCKS = 0
			FIRST = TRUE

			FOR XPN = 0 TO 31		! mmm,nn?
				STRING = ""
				P'10 = XP : FMT = "#ZZ" : GOSUB OCT'FMT
				PROJ = "["+P'STRING+","
				P'10 = XPN : FMT = "#Z" : GOSUB OCT'FMT
				PPN = PROJ + P'STRING+ ".]          "
				STRING = PPN
				IF FIRST = TRUE FIRST = FALSE &
				ELSE 		STRING[2,5]=SPACE(4)
				N = 0
				FOR XPU = 0 TO 7	! mmm,??n
					X = XPN*8+XPU+1	! mmm,nnn
					GOSUB FMT'COUNT
				NEXT XPU						
				GOSUB SEE'COUNT	! (including nn,nnn per proj.)
			NEXT XPN
			GOSUB SEE'PROJ
			GOSUB DO'PRT'LF
	LOOP'XP:
		NEXT XP
		PRINT     "                ";
		PRINT #20,"                ";
		GOSUB PRT'COLUMNS
		GOSUB SEE'TOTAL
		CLOSE #20
		END

!	=================================

	SEE'HEADING:
		PRINT TAB(ROW,1);
		PRINT "                   Blocks"
		PRINT " Seq.  Prj PNo  /File  /PPN"
		PRINT "=====  === ===  ===== ====="
		ROW = ROW + 3
		RETURN

	OCT'STG:	! Convert to octal string
!			Given: P'10	Return: P'STRING

		P'STRING = ""
	OCT'STG'CONT:
		WORK = INT(P'10/8)
		P'STRING = "0123456789"[1+P'10-WORK*8;1]+P'STRING
		P'10 = WORK
		IF P'10 <> 0 GOTO OCT'STG'CONT
		RETURN

	OCT'FMT:
		GOSUB OCT'STG
		P'STRING = VAL(P'STRING) USING FMT
		RETURN

	OCT'PN:
		P'10 = XPN-1
		GOSUB OCT'STG
		P'STRING = RIGHT(P'STRING+":",5)
		RETURN

	DO'PRT'STG:
		PRINT STRING
		PRINT #20,STRING
		ROW = ROW + 1
		RETURN

	DO'PRT'LF:
		PRINT
		PRINT #20
		ROW = ROW + 1
		RETURN

	PRT'COLUMNS:
		FOR I = 0 TO 7
			PRINT     "  ,..";STR(I);"  ";
			PRINT #20,"  ,..";STR(I);"  ";
		NEXT I
		PRINT
		PRINT #20
		RETURN

	FMT'COUNT:
		IF COUNTS(XP,X) # 0 &
			N = N + COUNTS(XP,X) :&
			PPN'BLOCKS = PPN'BLOCKS + COUNTS(XP,X):&
			STRING[17+8*XPU;6]= COUNTS(XP,X) USING "##,###"
		IF COUNTS(XP,X) = 0 STRING[17+8*XPU;6] = "......"

		RETURN

	SEE'COUNT:
		IF N =0 RETURN
		PRINT STRING
		PRINT #20,STRING
		RETURN

	SEE'PROJ:
		IF PPN'BLOCKS # 0 &
			STRING = PROJ +"*]  " :&
			STRING[12,17] = PPN'BLOCKS USING "##,###" :&
			PRINT STRING	:&
			PRINT #20,STRING
		RETURN

	SEE'TOTAL:
		STRING = "TOTAL"
		STRING[11,17] = TOTAL'BLOCKS USING "###,###"
		PRINT STRING
		PRINT #20,STRING
		RETURN