image of READY prompt

Wang2200.org

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)