image of READY prompt

Wang2200.org

Listing of file='609PARCH' on disk='vmedia/701-2738G.wvd.zip'

# Sector 21, 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$