image of READY prompt

Wang2200.org

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