Listing of file='609FERM2' on disk='vmedia/731-0067G.wvd.zip'
# Sector 2165, program filename = '609FERM2' 0010 REM %609FERM2 237-07/23/86 Copyright WANG Laboratories, INC. 1986 0020 COM C7,V0$(64)60 0022 DIM S4,S5(1),S0(1),S3(1),T5(1),T1$(2)80,S5,T1(3),S6(3),S1(3),T2$(3)80,S6, T2(1),S7(1),S2(1),S4(1),T5$(1)5,S1$2,S1$(2)2,S2$(5)2,S2$1,T1$80,T1$80,T2$ 2,C3$80,C2$1,U2$(64)16,V1$(3)82,U1$(8),V2$(256)1,V7(10),R1$1,@B4$6 : @B4$=B4$ : GOSUB '110(R5$,C2$) : IF T1$>" "THEN 140 0130 GOSUB '215(B0$,B9$) : IF R1$=HEX(00)THEN 180 : IF R1$=HEX(03)THEN GOSUB 2150 : ELSE GOSUB 2140 0140 PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); : IF R1$=HEX(03)THEN 480 0150 B4$=@B4$ 0151 KEYIN C1$ : IF C1$=HEX(F0)THEN GOSUB '31 : PRINT HEX(07); : GOTO 150 0180 GOSUB '111(B0$,B9$,B4$,HEX(FF)) : IF R1$=HEX(00)THEN 230 : IF R1$=HEX(05)THEN 188 : GOSUB 2010 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); : GOTO 150 0188 B4$=STR(V2$(),V7(8)+5,6) : GOTO 180 0230 C3=V3 : GOSUB '217(1,1,B0$,B9$) : IF R1$=HEX(00)THEN 310 : GOSUB 2030 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); : GOTO 150 0310 STR(U1$(),107,1)=HEX(00) : GOSUB '235(C3,U1$()) : IF R1$=HEX(00)THEN 390 : GOSUB 2050 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); : GOTO 150 0390 GOSUB '212(C3) : IF R1$=HEX(00)THEN 440 : GOSUB 2070 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1);HEX(07); : GOTO 150 0440 GOSUB 2200 : PRINT AT(23,0,80);B5$(2);T1$;B5$(1); : B4$=@B4$ 0460 C1$=" " : KEYIN C1$ : IF C1$=HEX(F0)OR C1$=HEX(50)THEN GOSUB '31 : IF C1$<>HEX(82)THEN 460 0480 A5$()="Prime 62609FERM" : LOAD T<2>A5$() 0510 DEFFN'31 : COM CLEAR C : LOAD TA5$ 2010 T1$="Open file error - Press CANCEL" : RETURN 2030 T1$="Query Node error - Press CANCEL" : RETURN 2050 T1$="Error writing FCB - Press CANCEL" : RETURN 2070 T1$="File close error - Press CANCEL" : RETURN 2140 T1$="Error in override close - Press CANCEL" : RETURN 2150 T1$="Unknown DOCUMENT" : RETURN 2200 PRINT AT(10,0);"DOCUMENT CLEARED - Key EXEC to clear another document or CANCEL for menu" : RETURN