Listing of file='CHKFILE' on disk='vmedia/701-2654C.wvd.zip'
# Sector 597, program filename = 'CHKFILE' 0010 REM CHKFILE 0020 REM PROGRAM NAME = CHKFILE 0030 REM DATE WRITTEN = 11/28/78 0040 REM ************************************************* 0050 REM * THIS PROGRAM IS PART OF A GENERALIZED * 0060 REM * APPLICATION. COPYRIGHT WANG LABS INC. 1978 * 0070 REM ************************************************* 0080 REM SYSTEM NAME = GBS/MVP 0090 REM MODULE NAME = A/P CHECK FILE PUT 0100 REM PROGRAM FUNCTION = PUT FOR A/P CHECK RECORDS 0110 REM ************************************************* 0159 REM 0170 COM N0$Q4,N$1,N1$21,N3$8 0172 COM N0,N1,N2,N3 0174 COM L4$16,M$(4)62,N 0198 REM 0199 L4$ = HEX(A0)&BIN(Q4)&HEX(A015A0086004620662066206A001) 0200 O = 0 0210 GOSUB '99 3526 REM ---------------------- 3528 REM CHEKFILE 'PUT' ROUTINE 3530 DEFFN'64(N) 3532 M$() = ALL(FF) 3534 O = O + 1 3536 IF O <> 1 THEN DATA LOAD DC #N,M$() 3538 $PACK(F=L4$) M$(O) FROM N0$,N1$,N3$,N0,N1,N2,N3,N$ 3540 IF O <> 1 THEN DBACKSPACE #N,1S 3542 DATA SAVE DC #N, M$() 3544 DBACKSPACE #N,1S 3546 IF O < 4 THEN RETURN 3548 O = 0 3550 DSKIP #N,1S 3552 RETURN 9999 DEFFN'29"Q$=";HEX(22);"CHKFILE";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)