Listing of file='609FERM' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2183, program filename = '609FERM'
0010 REM %609FERM - Clear in use (01/22/81)
0020 COM C7,V0$(64)60,C2$1
: DIM S4,S5(1),S0(1),S3(1),T5(1),T1$(3)80
: DIM S5,T1(3),S6(3),S1(3),T2$(3)80
: DIM S6,T2(1),S7(1),S2(1),S4(1),T5$(1)5
: DIM S1$2,S1$(3)2,S2$(5)2
: DIM S2$1,B2$80,T1$80,T2$2,C3$1
: DIM U2$(64)16,V1$(3)82
: DIM V2$(256)1,R1$1
: GOSUB '61
: PRINT HEX(03)
0325 T5$(1)=" "
: IF R5$>" "THEN T5$(1)=R5$
: ELSE STR(T5$(1),5,1)=B5$
: GOSUB 2070
: GOSUB '62
: IF T5=0THEN GOSUB '31
: IF T5(1)=3THEN 500
: R5$=T5$(1)
: IF T5(1)=1THEN C2$=" "
: ELSE C2$="G"
: A5$()="609FERM2609Open JCATSMAL"
: LOAD T<3>A5$()
0500 DATA LOAD DC OPEN T"609EDATA"
: DATA SAVE DC END
: T5(1)=1
: GOSUB 2080
: GOTO 325
1210 DEFFN'31
: COM CLEAR C
: LOAD TA5$
2010 DATA 3,0,0,"C L E A R I N U S E"
: DATA 4,4,0,"Please enter document ID"
: DATA 2,4,28,5," "
: DATA 3,4,40,"Please select option"
: DATA 1,6,40,1,"Document or Glossary Document","Verified Glossary","Work f
ile","\DE"
: DATA 0
2070 PRINT AT(20,0);HEX(07020404000E);"WARNING! Do not run this program while
another partition is accessing this";AT(21,9,74);"document. Volume damage
may result.";HEX(0F)
: RETURN
2080 PRINT AT(18,0);HEX(07020404000E);"Work file has been cleared";HEX(0F)
: RETURN