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$