Listing of file='TBOMDATA' on disk='vmedia/toolbox.wvd.zip'
# Sector 501, program filename = 'TBOMDATA'
2990 REM %^.TBOMDATA 03/29/88 Make TBO format DATA statements (SORT overlay)
3000 DEFFN'12
: PRINT HEX(03);"Make DATA statement file from sorted output"
: COM F9$8,I9
3010 DIM D(4),D0$80,D0$(16)16,F3$3,L9$2,L9
: L9=9000
3020 REM .Defaults
: F3$="340"
: F9$="TBOD9000"
3030 PRINT T0-1;"Items available"
3040 PRINT "Low item number =";I0;
: INPUT " or",I0
3045 I9=(LEN(T$())/14)
3050 PRINT "High item number=";I9;
: INPUT " or",I9
3060 PRINT "From ";
: T0=I0
: GOSUB 3240
3070 PRINT ".To. ";
: T0=I9
: GOSUB 3240
3080 IF I0<1THEN 3040
: I0=ABS(I0)
: I9=ABS(I9)
: IF I0>T0THEN 3040
: IF I9>T0THEN 3050
: IF I0>I9THEN 3040
3090 LINPUT "Disk "-F3$
: SELECT #7 <F3$>
3100 LINPUT "FILE NAME ",-F9$
: L8=2
: INIT(00)D0$()
3110 LIMITS T#7,F9$,D(1),D(2),D(3),D(4)
: PRINT D(1),D(2),D(3),D(4)
: J=D(1)
: S1=10
: IF S1>90THEN S1=2
: T0=I9-I0
: S=INT(T0/8)+2
: IF S<=D(2)-JTHEN 3120
: PRINT T0;"files need ";S;" sectors"
: IF J=0THEN 3115
: STOP "Insufficient space in file "#
3115 INPUT "Number of sectors to save",J
: IF J<STHEN 3115
: DATA SAVE DC OPEN T#1,(J) F9$
: GOTO 3110
3120 INIT(00)D0$()
: STR(D0$(),,10)=HEX(40)&STR(F9$,,8)&HEX(FD)
: DATA SAVE BA T#7,(J)D0$()
3125 D0$()=HEX(00FF9000A22E)&STR(F9$,,8)&".Program generated DATA statements"&
HEX(3AA22E22)&"FileName.Description....!....3....!....4....!....5....!...
.6....ddd"&HEX(220D0000)
: T1=LEN(D0$())
: L8=L8+T1-1
3130 FOR T0=I0 TO I9
3140 L9=L9+S1
: CONVERT L9TO L4$,(####)
: HEXPACKL9$FROM L4$
: PRINT "File=";F9$,"Line ";HEXOF(L9$);" ";
3150 GOSUB 3240
3160 D0$=HEX(FF)&STR(L9$,,2)&HEX(9722)&STR(S$,7,8)&" Description.."&HEX(220D00
00FD)
3170 T1=LEN(D0$)
: IF L8+T1<255THEN 3180
: J=J+1
: PRINT "Saving sector ";J
: DATA SAVE BA T#7, (J)D0$()
: L8=2
: INIT(00)D0$()
3180 STR(D0$(),L8,T1)=D0$
: L8=L8+T1-1
3190 NEXT T0
: IF L8=2THEN 3230
: J=J+1
: DATA SAVE BA T#7,(J)D0$()
3200 L9$=BIN(INT(T0/8)+2,2)
3210 D0$=HEX(20FF9990972220220D0000FE)
: INIT(00)D0$()
: STR(D0$(),,LEN(D0$))=D0$
: DATA SAVE BA T#7,(J+1)D0$()
3220 D0$=HEX(20)&STR(L9$,,2)
: INIT(00)D0$()
: STR(D0$(),,LEN(D0$))=D0$
: DATA SAVE BA T#7,(D(2))D0$()
3225 LOAD DA T#1,(D(1))9000,9999BEG 3226
3226 RESAVE DC T#1,F9$ 9000,9999
3230 PRINT "Saved in file ";F9$;I9;"items"
: STOP "END OF JOB "#
3240 T1=INT((T0-1)/255)+1
: T=MOD(T0-1,255)+1
: S$=T$(VAL(T2$(T1,T)),VAL(STR(T2$(T1,T),2,1)))
3250 PRINT "Item #";T0,STR( S$,7,8)
: RETURN
4000 DEFFN'10
: DATA SAVE DC OPEN T#1,(20) F9$
: RETURN
9000 REM .TBOD9000.Program generated DATA statements
: REM ."FileName.Description....!....3....!....4....!....5....!....6....ddd
"
9010 DATA " E Description.."
9020 DATA "$CONVERT Description.."
9030 DATA "@CLOCK Description.."
9040 DATA "DATA9000 Description.."
9050 DATA "DATETIME Description.."
9060 DATA "E Description.."
9070 DATA "START Description.."
9080 DATA "STARTTBO Description.."
9090 DATA "SYS CRTS Description.."
9100 DATA "SYS TBO Description.."
9110 DATA "TBO DIAG Description.."
9120 DATA "TBO NUMC Description.."
9130 DATA "TBO TCPL Description.."
9140 DATA "TBO UTIL Description.."
9150 DATA "TBO.$GIO Description.."
9160 DATA "TBO.ADI Description.."
9170 DATA "TBO.ANDF Description.."
9180 DATA "TBO.BOOL Description.."
9190 DATA "TBO.CINT Description.."
9200 DATA "TBO.CMD Description.."
9210 DATA "TBO.CMPS Description.."
9220 DATA "TBO.CRF0 Description.."
9230 DATA "TBO.CRF1 Description.."
9240 DATA "TBO.CRF2 Description.."
9250 DATA "TBO.CRF3 Description.."
9260 DATA "TBO.CRT Description.."
9270 DATA "TBO.DATA Description.."
9280 DATA "TBO.DMAP Description.."
9290 DATA "TBO.DSCN Description.."
9300 DATA "TBO.FALO Description.."
9310 DATA "TBO.FIND Description.."
9320 DATA "TBO.FLOW Description.."
9330 DATA "TBO.FMAP Description.."
9340 DATA "TBO.INST Description.."
9350 DATA "TBO.LRUN Description.."
9360 DATA "TBO.NOTE Description.."
9370 DATA "TBO.NUMB Description.."
9380 DATA "TBO.SDC0 Description.."
9390 DATA "TBO.SDC1 Description.."
9400 DATA "TBO.SPV Description.."
9410 DATA "TBO.STAT Description.."
9420 DATA "TBO.XASK Description.."
9430 DATA "TBO.XDAD Description.."
9440 DATA "TBO.XDC Description.."
9450 DATA "TBO.ZAP Description.."
9460 DATA "TBODISKS Description.."
9470 DATA "TBOMDATA Description.."
9480 DATA "TBOPSTAT Description.."
9490 DATA "UTB.LIS0 Description.."
9500 DATA "UTB.LIS1 Description.."
9510 DATA "UTB.LIS2 Description.."
9520 DATA "UTB.LIST Description.."
9990 DATA " "