Listing of file='TBO.SDC0' on disk='vmedia/toolbox.wvd.zip'
# Sector 1090, program filename = 'TBO.SDC0' 0010 %.TBO.SDC0 04/26/91 SORTMEM 0020 COM T9 : I=SPACEK : T9=7 : IF I<58THEN T9=6 : IF I<50THEN T9=5 : IF I<43THEN T9=4 : IF I<37THEN T9=3 : IF I<31THEN T9=2 : IF I<23THEN T9=1 0025 A$=$PSTAT(#PART) : IF STR(A$,9,1)<>"W"THEN 30 : T9=6 : IF I<80THEN T9=4 0030 LOAD DC T#0,"TBO.SDC1" 0100 %SORTCAT TBO.SDCx variables 0110 REM %FUNCTION : REM TO PRODUCE A SUMMARY DISPLAY OF FILE NAMES. 0120 REM OUTPUT MAY BE ORDERED BY 1). NAME OR BY 2). SECTOR. 0130 REM DISPLAY INCLUDES-- 0140 REM NAME USER SUPPLIED OR FIXED/REMOVABLE 0150 REM CATALOGUE SORTED BY (NAME/SECTOR) 0160 REM INDEX SECTORS = AAAA 0170 REM END CAT. AREA = BBBB 0180 REM CURRENT END = CCCC 0190 REM AND FOR EACH FILE NAME THE FOLLOWING DATA-- 0200 REM ..... DESCRIPTION ..DISK SECTOR SUMMARY.. 0210 REM ITEM# NAME TYPE START END USED FREE 0220 REM ..... ........ .. .... .... .... .... 0230 REM %MACHINE REQUIREMENTS 0240 REM %SPECIAL FUNCTIONS 0250 REM %0 #0 System disk, #1 Disk to examine 0260 REM %0 '0 List, '1 List with REMS, '15 Hard-Copy 0270 REM %0 '15 Recall list, '16 Hard copy 0280 REM %0 '36 Get sector data, '37 Get REM statement 0290 REM %VARIABLE MEANINGS 0300 REM %0 A A, B B, C C 0310 REM %0 A$ Date w/a, B$ B$1, C9 # copies, C9$ Title 0320 REM %0 C$( Criteria to sort, C0$ Sort criteria, C1$ xx ITEMS FOUND 0330 REM %0 C2$ Name/Sector, C9$ Fixed/Removable, D1$( Possible disks 0340 REM %0 D$ Type, D1 Fixed/removable, D8$ Disk addresses, D9 Disk surface 0350 REM %0 E Index Sectors, E8 End CAT.Area, E9 Current End 0360 REM %0 F List mode, F$ (DEFAULT)= 0370 REM %0 F1 Fld#1 YY, F2 Fld#2 MM, F3 Fld#3 DD 0380 REM %0 W1 Fld#1 YY, W2 Fld#2 MM, W3 Fld#3 DD 0390 REM %0 H Hard copy?, I$ ID, I1 Found Item #, I9$ Recall to ID, K$ $1 KBD 0400 REM %0 L$ L$1, L$( REM Read Area, L Line count 0410 REM %0 N$ REMark field 0420 REM %0 M M, P1 Page #, P2 DATA flag, N Name or Sector 0430 REM %0 S0 Sectors used ctr, S4 Sectors free ctr 0440 REM %0 S Disk sector, S$ CAT.Item, S1 Loop Index, S2 Start CAT.Sector 0450 REM %0 S2$ CAT.Definition, S3 #Sectors used, S6 #Sectors free 0460 REM %0 S8 Start Sector, S9 End Sector 0470 REM %0 T Item Ptr, T9 Max.array 1st DIM 0480 REM %0 T$( Item Array, T1$( Sort array 1, T2$( Sort array 2 0490 REM %0 U$( Prompt array, U1$( Prompt array, U9 #sorts 0500 REM %0 Z Z, Z1 1ST Item in CAT.Sector 0510 REM %0 Z$( CAT.DATA, Z2$ CATI.ITEM 1/2, Z3$ AP/AD/ALL/A/etc