Listing of file='SCAT020A' on disk='vmedia/701-2048D.wvd.zip'
# Sector 238, program filename = 'SCAT020A' 0010 REM SCAT020A,00-00(03/12/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0060 % #### ######## #### ##### ##### ##### ##### 0070 % ### CATALOG ######## ### 0080 DIM B$(16),B$1,N$(255,1)12,L$(255)2,L1$(255)2 : INIT(FF)N$() : PRINT HEX(010A);"MOUNT DISK TO BE LISTED - UNIT ";A1$;TAB(64) : PRINT TAB(64);HEX(0D0C) : KEYIN A$,130,130 0130 INPUT "KEY RETURN(EXEC) TO RESUME",A$ : PRINT HEX(01),"SORTING DISK INDEX",TAB(64),TAB(64),TAB(64) : A$=HEX(20105311440050802020) : C=1 : DATA LOAD BA T#2,(0,A)B$() : K=0 : FOR J=0TO VAL(STR(B$(1),2,1))-1 : DATA LOAD BA T#2,(J,A)B$() : FOR I=1TO 16 0290 IF I<>1THEN 320 : IF A=1THEN 590 0320 B$=B$(I) : IF B$=HEX(00)THEN 580 : IF B$=HEX(21)THEN 590 : IF F=0THEN 440 : IF F=2THEN 420 : IF B$=HEX(11)THEN 590 : IF F=1THEN 440 0420 IF B$=HEX(10)THEN 590 0440 STR(N$(C,1),1+O,8)=STR(B$(I),9,8) : AND (STR(B$(I),3,1),7F) : STR(N$(C,1),9-4*O,2)=STR(B$(I),3,2) : $TRAN(B$(I),A$)R : STR(N$(C,1),11,2)=B$(I) : C=C+1 : IF C<256THEN 590 : K=1 : J=255 0580 I=16 0590 NEXT I : NEXT J : IF C=1THEN 1200 : MAT SORTN$()TO L$(),L1$() : GOTO 700 0650 DEFFN'1 : P=1 : GOTO 700 0680 DEFFN'0 : P=0 0700 PRINT HEX(01);TAB(63) : IF P=0THEN 750 : SELECT PRINT 215(64) : GOTO 770 0750 SELECT PRINT 005(64) 0770 DATA LOAD BA T#2,(0,A)B$() : AND (STR(B$(1),3,1),7F) : AND (STR(B$(1),5,1),7F) : PRINT HEX(0D0C03) : IF P=1THEN 830 : PRINT HEX(0A0A) 0830 PRINT HEX(0E);H$ : IF K=0THEN 860 : PRINT "PARTIAL LIST OF FILES" 0860 PRINT " " : PRINTUSING 70,A1$,Q1$,1 : PRINT " INDEX SECTORS =";VAL(STR(B$(1),2,1)) : PRINT " END CAT. AREA =";256*VAL(STR(B$(1),5,1))+VAL(STR(B$(1),6,1))-1 : PRINT " CURRENT END =";256*VAL(STR(B$(1),3,1))+VAL(STR(B$(1),4,1))-1 : PRINT " " 0920 PRINTUSING 60,"ITEM"," NAME","TYPE","START"," END"," USED"," FREE" : FOR I=1TO C-1 : IF C=1THEN 1040 : J=VAL(L1$(I)) : LIMITS T#2,STR(N$(J,1),1+O,8),X,Y,Z : PRINTUSING 60,I,STR(N$(J,1),1+O,8),STR(N$(J,1),11,2),X,Y,Z,(Y-X+1)-Z 1000 IF I=C-1THEN 1040 : IF INT((I+4)/(8+P*45))<>(I+4)/(8+P*45)THEN 1180 1040 IF P=1THEN 1090 : PRINT HEX(01) : KEYIN A$,1070,1070 1070 INPUT "KEY RETURN(EXEC) TO RESUME",A$ 1090 PRINT HEX(0D0C03) : IF I=C-1THEN 1180 : IF P<>0THEN 1130 : PRINT HEX(0A0A); 1130 PRINT HEX(0E);H$ : PRINT " " : PRINTUSING 70,A1$,Q1$,(I+4)/(9+P*44)+1 : PRINT " " : PRINTUSING 60,"ITEM"," NAME","TYPE","START"," END"," USED"," FREE" 1180 NEXT I 1200 DEFFN'15 : SELECT PRINT 005 : PRINT HEX(030A);"MOUNT ISS PLATTER" : KEYIN A$,1240,1240 1240 INPUT "KEY RETURN(EXEC) TO RESUME",A$ : COM CLEAR O : LOAD DC T#0,"START040"