Listing of file='609FG030' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 284, program filename = '609FG030' 0010 REM '609FG030' - MOUNT AND VERIFY ARCHIVE 0020 A5$()="609FG080609FG190" : LOAD T<2>A5$()0,0BEG 60 0060 B2$=" " : J$=HEX(0D) 0090 GOSUB 410 : PRINT AT(22,0,40);T1$; : IF D(14)>1THEN 160 : GOSUB '34(0) : PRINT AT(22,0,40); : IF J$=HEX(F0)THEN 390 0160 GOSUB '50 : IF B2$<>" "THEN 390 : IF D(20)=0THEN 280 : IF D(20)<>93THEN 240 : GOSUB 440 : GOTO 310 0240 IF D(20)<>95THEN 90 : GOSUB 450 : GOTO 310 0280 D4$=STR(D2$(),4,5) : IF VER(D4$,"####A")=5THEN 340 : GOSUB 420 0310 PRINT AT(23,0,);T1$;HEX(07); : GOSUB '34(1) : GOTO 60 0340 GOSUB 430 : PRINT AT(22,0,40);T1$;" ";D4$; : IF D(14)>1THEN 390 : GOSUB '34(0) : IF J$=HEX(F0)THEN 90 0390 LOAD TA5$ 0400 % DO NOT RENUMBER THE FOLLOWING 0410 T1$="Mount Archive" : RETURN 0420 T1$="Platter mounted is not an archive" : RETURN 0430 T1$="Archive:" : RETURN 0440 T1$="Archive is not formatted" : RETURN 0450 T1$="Archive is write protected" : RETURN