image of READY prompt

Wang2200.org

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