Listing of file='609Eoldo' on disk='vmedia/701-2736G.wvd.zip'
# Sector 1103, program filename = '609Eoldo' 0100 REM 609Eoldo, RELEASE 1-0, (03/01/81) - COPYRIGHT WANG LABS. INC. : REM program function - open files : DIM U1$(8),U2$(8)4,I0$5, V0$(1)1 : REM edit old document : A5=2 0110 IF R3$()=" "THEN R3$(1)="609menu" : IF D7$=" "THEN 120 : GOSUB '61 : GOSUB 1010 : GOTO 160 0120 DIM S5(1),S0(1),T5(1),S3(1),T1$(2)8 : DIM S5,S6(3),S1(3),T1(3),T2$(3)25 : S5=2 : S6(2)=20 : T1(2)=4 : GOSUB 1010 : DIM S6,S7(1),S2(1),T2(1),S4(1),T5$(1)5 : S6=1 : S7(1)=20 : S2(1)=26 : T2(1)=2 : S4(1)=5 : DIM S1$2,S1$(2)2,S2$(5)2,S2$1,T2$2,I2$2,T1$80 : S1$="T" 0160 IF C1$="Glossary"THEN C0$=B3$ : ELSE C0$=R5$ : IF C0$>" "THEN T5$(1)=C0$ : ELSE T5$(1)=R5$ : IF T5$(1)=" "THEN T5$(1)=" "&B5$ : IF Y5$<>" "THEN 240 0190 GOSUB '62 : ON T5+2GOTO 230,230,240 : GOSUB 1020 0200 IF Y5$<>" "THEN 230 : PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1); : GOTO 190 0210 IF B3$=" "THEN 200 : GOSUB '212(A4) : IF R1$=HEX(00)THEN 200 : GOTO 1042 0220 GOSUB 1035 : GOTO 210 0230 GOSUB '32 0240 GOSUB 1030 : IF B3$=" "THEN 250 : GOSUB '110(B3$,"G") : IF B2$<>" "THEN 200 : GOSUB '111(B0$,B9$," ",HEX(01)) : IF B2$<>" "THEN 200 : A4=V3 0250 GOSUB '110(T5$(1),"D") : IF B2$<>" "THEN 210 : C0$=T5$(1) : IF C1$<>"Glossary"THEN R5$=C0$ : GOSUB '217(1,1,B0$,B9$) : IF U1$()=" "THEN 220 : IF STR(U1$(),107,1)>HEX(00)THEN 440 : IF STR(U1$(),109,1)>HEX(00)THEN 450 : GOSUB '111(B0$,B9$,B4$,HEX(FF)) : IF B2$<>" "THEN 210 : A1=V3 : IF D7$="H"AND T5(1)=2THEN D7$="h" 0400 A5$()="609EoldwRECMGR Prime 62" : IF STR(U1$(),108,1)<>HEX(00)THEN 430 : IF STR(U1$(),107,1)>HEX(00)THEN 440 : C5=0 : LOAD T<3>A5$() 0430 LOAD T"609Epbld" 0440 GOSUB 1045 : GOTO 200 0450 GOSUB 1049 : GOTO 200 1000 % This is line 1000 - do not renumber lines 1000-1100 1010 T2$(2)="Please Enter "&C2$&" Id:" : RETURN 1020 B2$="Invalid Key - ignored" : RETURN 1030 PRINT AT(23,0);B5$(3);"Opening ";C2$;B5$(1); : RETURN 1035 B2$="Unknown "&STR(B0$,,8) : RETURN 1040 B2$="Error in query node" : IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO I2$,(##) : ELSE HEXUNPACKR1$TO I2$ : B2$=B2$&" - error = "&I2$ : GOTO 1055 1042 B2$="Error closing glossary" : GOTO 1060 1045 B2$="Document In Use" 1046 IF Y5$<>" "THEN GOSUB '31 : RETURN 1047 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;" - please Cancel";B5$(1); : KEYIN S2$,,1048 : GOTO 1047 1048 IF POS(HEX(F050)=S2$)=0THEN 1047 : A5$()="609CloseJCATSMAL" : A1=-1 : LOAD T<2>A5$() 1049 B2$="Document summary - can't edit" : GOTO 1046 1050 B2$="File damaged" 1055 IF Y5$<>" "THEN GOSUB '31 1060 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;" - please Cancel";B5$(1); : KEYIN S2$,,1070 : GOTO 1060 1070 IF POS(HEX(F050)=S2$)>0THEN GOSUB '31 : GOTO 1060 1080 DATA 4,0,0," ",4,20,0,"*",2,20,26,5,"!" : DATA 4,20,50,"Maximum page size:" : DATA 1,21,50,1,"Standard","Extended","\DE",0 9031 DEFFN'31 : A5=0 9032 DEFFN'32 : A5$()="609CloseJCATSMAL" : A5$=R3$() : R3$()=STR(R3$(),10) : IF A1>-1OR A2>-1THEN LOAD T<2>A5$() : COM CLEAR C : LOAD TA5$