Listing of file='TBO.E' on disk='vmedia/toolbox.wvd.zip'
# Sector 1020, program filename = 'TBO.E'
0001 %E..EDITOR 08/12/82
0010 COM K
: COM B$(1)1,B$20,C$(2)40,F0$(2)40,I$(5)24,L$(2)2,T$(2),W$(2)40,D$3,Y$(3)64
,Y1$(16),Y2$(16),A1$(2),Z1$(1)64,S1$(1)1,F$8,L9,K9,X,K3,K4,K7
: REM K=NUMBER OF RECORDS
: INIT(09)I$()
: INIT(0A)I$(1)
: IF STR(F0$(1),1,1)<>" "THEN 30
: INIT (2D)F0$()
0030 IF A1$(1)=" "THEN A1$()="ASCII EBCDIC"
: Z1$(1)=HEX(2E002E012E022E032E042E052E062E072E082E092E0A2E0B2E0C2E0D2E0E2E
0F2020)
0040 REM ASCII ==> EBCDIC TRANSLATION TABLE
0050 INIT(00)Y1$()
: Y1$(3)=HEX(405A7F7B5B6C507D4D5D5C4E6B604B61)
: Y1$(4)=HEX(F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F)
: Y1$(5)=HEX(7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6)
: Y1$(6)=HEX(D7D8D9E2E3E4E5E6E7E8E9C0E0D00000)
: Y1$(7)=HEX(00818283848586878889919293949596)
0060 Y1$(8)=HEX(979899A2A3A4A5A6A7A8A9000000004A)
0070 REM EBCDIC ==> ASCII TRANSLATION TABLE
0080 INIT(00)Y2$()
: STR(Y2$(1),11,3)=HEX(0B0C0D)
: STR(Y2$(3),5,1)=HEX(0A)
: STR(Y2$(3),16,1)=HEX(07)
: Y2$(5)=HEX(20000000000000000000002E3C282B00)
: Y2$(6)=HEX(2600000000000000000021242A293B00)
: Y2$(7)=HEX(2D2F0000000000000000002C25003E3F)
: Y2$(8)=HEX(00000000000000000000)&":#@'="&HEX(22)
0090 Y2$(9)=HEX(00)&"abcdefghi"&HEX(000000000000)
: Y2$(10)=HEX(00)&"jklmnopqr"&HEX(000000000000)
: Y2$(11)=HEX(0000)&"stuvwxyz"&HEX(000000000000)
: Y2$(13)=HEX(00)&"ABCDEFGHI"&HEX(000000000000)
: Y2$(14)=HEX(00)&"JKLMNOPQR"&HEX(000000000000)
: Y2$(15)=HEX(0000)&"STUVWXYZ"&HEX(000000000000)
0100 Y2$(16)="0123456789"&HEX(000000000000)
0110 K9=80
: L9=24
: K3=K9*(L9-1)
: K4=K3+K9
: X=1
0120 SELECT PRINT 005(K9),#5005,#1001,LI NEL 9
0130 INIT(20)T$()
: T$(1)=HEX(010D03E520A009E60681208220A1205E)
: T$(2)=HEX(097E0AFF2020)
0135 K=INT((SPACE-12500)/80)
: K7=K-1
: IF K<50THEN STOP "NEED MORE MEMORY IN THIS PARTITION."
: LOAD T"TBO.E1"