Listing of file='609FR100' on disk='vmedia/731-0071G.wvd.zip'
# Sector 376, program filename = '609FR100' 0010 REM '609FR100' - REM RETRIEVE A DOCUMENT FROM ARCHIVE 0020 LOAD T"609FG070"3000,BEG 40 0040 IF D2<>2THEN 130 : IF R1$=HEX(00)AND B2$=" "THEN 110 : IF R1$=HEX(00)AND B2$<>" "THEN D2=-2 : IF R1$=HEX(00)AND B2$<>" "THEN 130 : IF R1$=HEX(03)THEN 430 0110 IF R1$=HEX(00)THEN GOSUB 2505 0130 IF B2$=" "THEN 390 : PRINT AT(23,0,);B2$;HEX(07); : B2$=" " : GOSUB '34(1) : R1$=HEX(00) : J$=HEX(0D) : IF ABS(D2)<>2THEN 280 : IF D2=-2THEN 220 : IF R1$=HEX(00)THEN 250 0220 D2=0 : GOTO 430 0250 D2=0 : GOTO 610 0280 IF D2=8THEN 360 : D2=8 : C=3 : A5$()="609FG050JCATSMALREC-GEN" : GOTO 650 0360 D2=8 : GOTO 430 0390 IF J$<>HEX(F0)THEN 430 : J$=HEX(0D) : D2=0 0430 D2=D2+1 : ON D2GOTO 470,490,510,530,550,570,590,610,630 0470 A5$()="609FG060Prime 62" : C=2 : GOTO 650 0490 A5$()="609FG150609Open JCATSMAL" : C=3 : GOTO 650 0510 A5$()="609FG030609FG070" : C=2 : GOTO 650 0530 A5$()="609FG140609FG080609FG070" : C=3 : GOTO 650 0550 A5$()="609FG130JCATSMALREC-GEN" : C=3 : GOTO 650 0570 A5$()="609FG010609FG070609Open JCATSMAL" : C=4 : GOTO 650 0590 A5$()="609FR010609FG080REC-GEN REC-RD" : C=4 : GOTO 650 0610 A5$()="609FG040JCATSMAL" : C=2 : GOTO 650 0630 B4$=J7$ : COM CLEAR D2 : LOAD T"609Fmenu" 0650 LOAD T<C>A5$() 0655 DEFFN'31 : COM CLEAR C : LOAD T"609menu" 2500 % THE FOLLOWING MUST NOT BE RENUMBERED 2505 B2$="File Already Exists" : RETURN