image of READY prompt

Wang2200.org

Listing of file='609Close' on disk='vmedia/701-2739G.wvd.zip'

# Sector 103, program filename = '609Close'
0010 REM 609Close 238-08/07/86 Copyright Wang Laboratories, Inc. 1986
0011 DIM U1$(8),U2$(8)4,T2$2,V2$(256)1,M9$3
   : $IF OFF /005,20
   : PRINT HEX(0F030202000E);
0020 IF A1=-1THEN 30
   : $PACK(F=HEX(A019A005A007A002))U1$()FROMA6$(),A7$(12),HEX(00000000000000),
     "10"
   : I=15-A1
   : DATA LOAD BA T#I,(VAL(STR(V5$(),A1*32+15,2),2)+VAL(STR(V5$(),A1*32+23,2),
     2))V2$()
   : ERRORR1$=BIN(ERR)
   : GOSUB 1060
0023 STR(U1$(),107,1)=STR(V2$(),235,1)
   : STR(U1$(),109,1)=STR(V2$(),237,1)
   : IF A5=0THEN STR(U1$(),108,1)=HEX(FF)
   : GOSUB '235(A1,U1$())
   : IF R1$<>HEX(00)THEN GOSUB 1010
0030 C0=POS(U4$="1")
   : IF C0=0THEN 40
   : GOSUB '212(C0-1)
   : IF POS(HEX(0007)=R1$)=0THEN GOSUB 1020
   : STR(U4$,C0,1)="0"
   : GOTO 30
0040 IF Q2$<>" "THEN 50
   : COM CLEAR C
   : PRINT HEX(03);
   : LOAD TA5$
0050 IF STR(R3$(),9,1)=" "THEN COM CLEAR A0$()
   : ELSE COM CLEAR C
   : A5$=R3$()
   : R3$()=STR(R3$(),10)
   : LOAD TA5$
1000 % This is line 1000 - do not renumber lines 1000-1100
1010 B2$="Error writing FCB"
   : GOTO 1060
1020 B2$="Error closing file"
1060 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO T2$,(##)
   : ELSE HEXUNPACKR1$TO T2$
   : B2$=B2$&" - error = "&T2$&" - please Cancel"
   : PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1);
   : KEYIN S2$
   : RETURN
9000 DEFFN'0"LISTSHEX(03)D";HEX(0D)
9010 DEFFN'10"LISTSHEX(03)D1000,";HEX(0D)
9031 DEFFN'31
   : COM CLEAR C
   : LOAD TA5$