image of READY prompt

Wang2200.org

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