image of READY prompt

Wang2200.org

Listing of file='CHKFILE' on disk='vmedia/701-2652C.wvd.zip'

# Sector 157, program filename = 'CHKFILE'
0010 REM CHKFILE
0170 COM N0$Q4,N$1,N1$21,N3$8
   : COM N0,N1,N2,N3
   : COM L4$16,M$(4)62,N
0199 L4$=HEX(A0)&BIN(Q4)&HEX(A015A0086004620662066206A001)
   : O=0
   : GOSUB '99
3530 DEFFN'64(N)
   : M$()=ALL(FF)
   : O=O+1
   : IF O<>1THEN DATA LOAD DC #N,M$()
   : $PACK(F=L4$)M$(O)FROMN0$,N1$,N3$,N0,N1,N2,N3,N$
   : IF O<>1THEN DBACKSPACE #N,1S
   : DATA SAVE DC #N,M$()
   : DBACKSPACE #N,1S
   : IF O<4THEN RETURN
   : O=0
   : DSKIP #N,1S
   : RETURN
9999 DEFFN'29"Q$=";HEX(22);"CHKFILE";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)