Listing of file='609Enewo' on disk='vmedia/731-0067G.wvd.zip'
# Sector 1377, program filename = '609Enewo'
0010 REM 609Enewo, RELEASE 1-0, (03/01/81) - COPYRIGHT WANG LABS. INC.
0089 COM V0$(1)1
: A5=1
: IF R3$()=" "THEN R3$(1)="609menu"
: DIM U1$(8),U2$(8)4
: DIM S5(1),S0(1),T5(1),T1$(2)8,S3(1)
: DIM T1(8),S6(8),S1(8),T2$(8)32
: DIM T2(6),S7(6),S2(6),S4(6),T5$(6)75
: DIM S1$(2)2,S1$6,S2$(235)2
: DIM S2$1,T1$80,T2$2,I2$18
0130 IF Y5$=" "THEN A6$()=" "
: A7$()=ALL(30)
: A7$(2)=R2$
: A7$(12)=" "
: MAT A0=ZER
: A0(3)=8
: IF D7$=" "THEN 140
: GOSUB '61
: GOSUB 1010
: T5$(1)=B5$
: GOTO 145
0140 S4=0
: S5=2
: T1(2)=4
: S6(2)=22
: S1(2)=0
: T1(2)=2
: GOSUB 1010
: S6=1
: T2(1)=2
: S7(1)=22
: S2(1)=20
: S4(1)=1
: T5$(1)=B5$
: S1$="T"
0145 IF Y5$<>" "THEN 180
0150 GOSUB '62
: ON T5+2GOTO 170,170,180
: GOSUB 1020
0160 IF Y5$<>" "THEN 170
: PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1);
: GOTO 150
0170 GOSUB '32
0180 GOSUB 1030
: IF B3$=" "OR A4>-1THEN 210
: GOSUB 1040
: C4$=STR(B3$,5,1)
: GOSUB 350
: IF B2$<>" "THEN 160
: C9$=B9$
: C1$(2)="GLOSSARY."&STR(B3$,5,1)&"."&STR(B3$,,4)
: GOSUB '211(C1$(2),C9$,B4$,HEX(01))
: ON POS(HEX(000306)=R1$)GOTO 200,240,260
: GOTO 1070
0200 A4=V3
0210 C4$=T5$(1)
: GOSUB 1050
: GOSUB 350
: IF B2$<>" "THEN 160
: IF A2>-1THEN 280
: C1$(1)="DOCUMENT."&C4$&".0000"
: GOSUB 1060
0230 GOSUB '211(C1$(1),B9$,B2$,HEX(FF))
: ON POS(HEX(00030506)=R1$)GOTO 270,240,250,260
: GOTO 1080
0240 GOSUB 1090
: GOTO 160
0250 B2$=STR(V2$(),8,6)
: GOTO 230
0260 GOSUB 1100
: GOTO 160
0270 A2=V3
: $OPEN #0
: DATA LOAD DA T(B3+I2)A0$()
: CONVERT STR(A0$(),10,4)TO D6
: B2$=" "
0280 CONVERT D6TO STR(A7$(1),,4),(####)
: STR(A7$(1),5)=C4$
: B0$="DOCUMENT."&C4$&"."&STR(A7$(1),,4)
: GOSUB '217(1,1,B0$,B9$)
: IF R1$=HEX(00)THEN D6=MAX(1,MOD(D6+1,10000))
: ON POS(HEX(0003)=R1$)GOTO 280,300
: $CLOSE
: GOTO 1110
0300 C0$=A7$(1)
: IF C1$<>"Glossary"THEN R5$=C0$
: CONVERT MAX(1,MOD(D6+1,10000))TO STR(A0$(),10,4),(####)
: DATA SAVE DA T(B3+I2)A0$()
: $CLOSE
: IF SPACEK<42THEN 339
: IF T5(1)=2AND SPACEK<47THEN D7$="h"
: ELSE D7$="H"
: IF T5(1)=1THEN 340
: J8=2*J8
0339 IF SPACEK<42THEN READ I,I,I,I$,I,I,I,I$,I,I,I,I,I$,I,I,I,I$,I,I,I,I,I$,I$
,I$,I
0340 GOSUB '59
: J9$()=STR(T5$(5))&T5$(6)
: GOSUB 1120
: A5$()="609EnewcJCATSMALRECMGR"
: COM CLEAR V0$()
: LOAD T<3>A5$()
0350 I2=POS(" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=C4$)-1
: IF I2=-1THEN 380
: DATA LOAD DA T(B3+I2)A0$()
: B9$=STR(A0$(),2,8)
: IF B9$=" "THEN 390
: T6=1
0360 GOSUB '236(8,T6)
: IF R1$<>HEX(00)THEN 1130
: IF V1=0THEN 400
: MAT SEARCHSTR(U1$(),,V1*16),=STR(B9$,,8)TO T2$STEP 16
: IF T2$>HEX(0000)THEN 370
: IF V1<8THEN 400
: T6=T6+8
: GOTO 360
0370 B9$=STR(U1$(),VAL(T2$,2))
: B2$=" "
: RETURN
0380 GOSUB 1140
: RETURN
0390 GOSUB 1150
: RETURN
0400 GOSUB 1160
: RETURN
1000 % This is line 1000 - do not renumber lines 1000-1999
1010 T2$(2)="Creation Library is"
: RETURN
1020 B2$="Invalid key - ignored"
: RETURN
1030 PRINT AT(23,0);B5$(3);"Getting ";C2$;" Number";B5$(1);
: RETURN
1040 I2$,B2$="Attached Glossary"
: RETURN
1050 I2$,B2$="Creation Document"
: RETURN
1060 I2$,B2$="Prototype Document"
: RETURN
1070 B2$="Error opening attached glossary"
: GOTO 1190
1080 B2$="Error opening prototype document"
: GOTO 1190
1090 B2$=I2$&" does not exist"
: RETURN
1100 B2$=I2$&" not accessible"
: RETURN
1110 B2$="Document Query Failure"
: GOTO 1190
1120 PRINT AT(23,0);B5$(3);"Creating New ";C2$;B5$(1);
: RETURN
1130 B2$="Query Volume failure"
: GOTO 1190
1140 B2$=I2$&" library name invalid"
: RETURN
1150 B2$=B2$&" library not yet established"
: RETURN
1160 B2$=B2$&" volume not recorded in master file"
: RETURN
1190 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO T2$,(##)
: ELSE HEXUNPACKR1$TO T2$
: B2$=B2$&" - error = "&T2$
: IF Y5$=" "THEN B2$=B2$&" - please Cancel"
: IF Y5$<>" "THEN GOSUB '31
1200 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1);
: KEYIN S2$,,1210
: GOTO 1200
1210 IF POS(HEX(F050)=S2$)=0THEN 1200
: GOSUB '31
: DATA 4,0,0," ",4,20,0,"*",2,20,20,1,"!"
: DATA 4,20,50,"Maximum page size; "
: DATA 1,21,50,1,"Standard","Extended","\DE",0
: B2$="Select page type:"
: PRINT AT(21,0,160);B2$;
: RETURN
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$