Listing of file='KDR' on disk='vmedia/701-2427C.wvd.zip'
# Sector 859, program filename = 'KDR'
0001 DEFFN'16"SCRATCH T";HEX(22);"KDR";HEX(223A);"SAVEDCT()";HEX(22);"KDR";HEX
(220D)
0010 REM 'KDR' - ISS 5.1
0020 DIM A$(256)1,F1$2,F2$2,K1$8,D$3,S$2,P$1
0030 F1$ = HEX(5001)
0040 F2$ = HEX(5004)
0050 DEFFN'0
0060 PRINT HEX(0306)
0070 D$ = "D15"
: REM KEY FILE DEVICE ADDRESS
0080 SELECT #1 <D$>
0090 K1$ = "XXXXK100"
: REM KEY FILE NAME
0100 LIMITS T#1,K1$,A,B,B,B
0110 IF B <> 2 THEN STOP "NOT AN ACTIVE FILE"
0120 DATA LOAD BA T #1,(A,B)A$()
0130 $UNPACK (F=F1$) STR(A$(),62,1) TO T0
0140 $UNPACK (F=F2$) STR(A$(),69,4) TO T8
0150 PRINT HEX(06);AT(0,0);
0160 PRINT ,"SECTOR ";B,"FILE - ";K1$;" DISK ADDRESS - ";D$
0170 PRINT
0180 PRINT HEXOF(A$( ));TAB(80)
0190 PRINT "# INDEX LEVELS ................... T0 = ";T0;TAB(50);HEXOF(STR(A
$(),62,1))
0200 PRINT "HIGH LEVEL INDEX SECTOR (RELETIVE) T2$ = ";VAL(STR(A$(),63,2),2);
TAB(50);HEXOF(STR(A$(),63,2))
0210 PRINT "LAST SECTOR ASSIGNED, USER FILE .. Q2$ = ";VAL(STR(A$(),65,2),2);
TAB(50);HEXOF(STR(A$(),65,2))
0220 PRINT "LAST SECTOR ASSIGNED, KEY FILE ... V2$ = ";VAL(STR(A$(),67,2),2);
TAB(50);HEXOF(STR(A$(),67,2))
0230 PRINT "COUNT OF ACTIVE RECORDS IN FILE .. T8 = ";T8;TAB(50);HEXOF(STR(A
$(),69,4))
0240 PRINT "SECTORS PER LOGICAL RECORD ....... V6$ = ";VAL(STR(A$(),73,1));TA
B(50);HEXOF(STR(A$(),73,1))
0250 PRINT "UPPER BOUND, KEY FILE (REL.) ..... V3$ = ";VAL(STR(A$(),74,2),2);
TAB(50);HEXOF(STR(A$(),74,2))
0260 PRINT "UPPER BOUND, USER FILE (REL.) .... Q3$ = ";VAL(STR(A$(),76,2),2);
TAB(50);HEXOF(STR(A$(),76,2))
0270 PRINT "RECORDS PER BLOCK ................ V8$ = ";VAL(STR(A$(),78,1));TA
B(50);HEXOF(STR(A$(),78,1))
0280 PRINT "RECORD TYPE (A,B,C,M,N) .......... V1$1 = ";" ";STR(A$(),79,1);TAB
(50);STR(A$(),79,1)
0290 PRINT "RECORD LENGTH .................... V1$2 = ";VAL(STR(A$(),80,1));TA
B(50);HEXOF(STR(A$(),80,1))
0300 PRINT "STARTING POSITION OF KEY ......... V1$3 = ";VAL(STR(A$(),81,2),2);
TAB(50);HEXOF(STR(A$(),81,2))
0310 PRINT "LENGTH OF KEY .................... V1$5 = ";VAL(STR(A$(),83,1));TA
B(50);HEXOF(STR(A$(),83,1))
0320 PRINT "NUMBER OF ENTRIES IN KIR ......... V1$6 = ";VAL(STR(A$(),84,1));TA
B(50);HEXOF(STR(A$(),84,1))
0330 SELECT PRINT 005
0340 PRINT HEX(05);
0350 A1$ = A$
0360 KEYIN A$
0370 IF A$ = "P" THEN SELECT PRINT 215
0380 ON VAL(A$)+1 GOTO 120,430
0390 GOTO 360
0400 REM ----------------------------
0410 DEFFN'1
0420 %##
0430 IF A$ <> A1$ THEN PRINT HEX(0306);"FINDNEW SECTOR TABLES";AT(2,0);"STATIO
N SECTOR(HEX) RECORD(HEX) SECTOR RECORD"
0440 PRINT HEX(06);AT(3,0);
0450 FOR I = 1 TO 16
0460 S$ = STR(A$(),110+3*I-2,2)
0470 P$ = STR(A$(),110+3*I,1)
0480 PRINTUSING 420,I;
0490 PRINT ;TAB(14);HEXOF(S$);TAB(29);HEXOF(P$);TAB(41);VAL(S$,2);TAB(50);V
AL(P$)
0500 NEXT I
0510 GOTO 330