Listing of file='609PARCH' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2429, program filename = '609PARCH' 0010 REM '609PARCH' - CLEAR IN USE FLAG ON ARCHIVE 0020 DIM D(25),D7$32,J8$32,D0$(1)1,D1$(1)1,D2$(256)1,D4$(1)1,D5$(1)1,D6$(1)1,D 7$(1)1,J$(1)1,D8$(1)1,D9$(1)1 : D7$=HEX(0000040108020C030104050509060D07020806090A0A0E0B030C070D0B0E0F0F) : MAT COPY -D7$TO J8$ : DIM D2$(256)1 : D(9)=6 0090 IF C0$="WWPSDISK"THEN D1=0 : ELSE LIMITS T#D(9),C0$,D1,D(2),D(2),D(2) : GOSUB '51 : COM CLEAR U1$() : LOAD TA5$