Listing of file='609FERM2' on disk='vmedia/701-2737G.wvd.zip'
# Sector 1002, 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