image of READY prompt

Wang2200.org

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

# Sector 995, 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