Listing of file='LPEDTCOM' on disk='vmedia/701-2721C.wvd.zip'
# Sector 190, program filename = 'LPEDTCOM' 0010 REM % ***LPEDTCOM*** 5/83 0013 COM C : COM Z$1 : COM J1$(123)2,V2$(256)1,J9$(256)1,J8$(2)35 : COM J4$(1)2,C3$32,C1$8,C2$16,C0$5 : COM C4$1,C5$1,C3,C4,C5,C6,D7,J1,J2,J9 0020 COM D1$(80)1,D2$(80)1,D5$(80)1,D6$(80)2,D7$(1)2 : COM J1(24),J2(24),J3(24),J4(24),J5(24),A5,J7(3) : COM C6$3,C8$1,D1$1,D2$1,D3$1 : COM J6$(64)2,J7$(64)2,D4$(64)1 : COM C1,C2,C7,C8,D0,D1,D2,D3,D9,J0,J3,J4,J7 : COM J0(6),C0 : COM C9$(10)1 : C9$()=HEX(80A0802980A980008000) 0055 C9$(3),C9$(5),C9$(7),C9$(8),C9$(9)=A6$ : C9$(10)=A6$OR HEX(80) : COM D4$5 : D4$=HEX(8182838485868F) : COM D5$2 : D5$=HEX(80A0) : COM C7$1 : C7$=HEX(7F) : COM J9$3 : COM C1$(2),C9$ : C1$(1),C1$(2),C9$=" " : COM D7$1 : D7$=" " : A1,A2,A3,A4=-1 : COM D4 : J8=4182 : COM V1$(3)82 : DIM L8(5),L0$(7)20 0090 B2$=$PSTAT(#PART) : IF STR(B2$,,8)="609Glos"THEN C1$="Glossary" : ELSE C1$="Document" : B2$=" " : IF C1$="Glossary"THEN C2$="Glossary" : ELSE C2$="Document" : J9$=ALL(00) : CONVERT #TERMTO I1$,(##) : I2$="INTFIL"&I1$ : LIMITS TI2$,L8(5),I2,I3 : ERRORI2=ERR : GOTO 500 0160 DATA LOAD DA T(L8(5))L8() : DATA LOAD DA T(L8(5)+1)L0$() : IF L8(4)=1THEN A1=L8(2) : ELSE A1=L8(3) : IF L8(4)=1THEN I=3 : ELSE I=4 : C0$=STR(L0$(I),12,4)&STR(L0$(I),10,1) : A0$()="609Eoldw"&"RECMGR " : LOAD T<2>A0$() 0500 PRINT AT(21,0);"DISK HARDWARE ERROR ";I2; : STOP 9000 DEFFN'0"SCRATCH T";HEX(22);"LPEDTCOM";HEX(22) 9100 DEFFN'1"SAVE T ()";HEX(22);"LPEDTCOM";HEX(22)