image of READY prompt

Wang2200.org

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)