image of READY prompt

Wang2200.org

Listing of file='609AMOVE' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 124, program filename = '609AMOVE'
0010 REM '609AMOVE' - Advanced filing, move between libraries    07/19/81
0020 LOAD T"609FG070"2000,BEG 40
0040 IF B2$=" "THEN 170
   : PRINT AT(23,0,);B2$;HEX(07);
   : B2$=" "
   : GOSUB '34(1)
   : IF D2<=6THEN 520
   : IF D2=8THEN 500
   : IF A2=-1THEN 520
   : ELSE D2=11
   : GOTO 300
0170 IF J$<>HEX(F0)THEN 300
   : J$=HEX(0D)
   : IF D2<=5THEN 520
   : IF D2>6THEN 506
   : IF D2=6THEN D2=4
   : GOTO 374
0300 D2=D2+1
   : ON D2GOTO 340,360,371,374,400,404,420,440,460,480,500,506,520
0340 A5$()="609AG060609FG070Prime 62"
   : C=3
   : GOTO 540
0360 A5$()="609FG010609FG070609Open JCATSMAL"
   : C=4
   : GOTO 540
0371 A5$()="609FG020609FG070REC-GEN REC-RD  JCATSMAL"
   : C=5
   : GOTO 540
0374 A5$()="609AG061Prime 62"
   : C=2
   : GOTO 540
0400 A5$()="609AV010JCATSMAL"
   : C=2
   : GOTO 540
0404 A5$()="609AV020609FG070JCATSMALREC-GEN "
   : C=4
   : GOTO 540
0420 A5$()="609AC010REC-GEN JCATSMAL"
   : C=3
   : GOTO 540
0440 A5$()="609AC042JCATSMAL"
   : C=2
   : GOTO 540
0460 C4$=" "
   : A5$()="609FG010609FG070609Open JCATSMAL"
   : C=4
   : GOTO 540
0480 A5$()="609FG050JCATSMALREC-GEN "
   : C=3
   : GOTO 540
0500 B4$=J7$
   : COM CLEAR D2
   : A5$()="609adfil"
   : C=1
   : GOTO 540
0506 A5$()="609AC041JCATSMAL"
   : C=2
   : GOTO 540
0520 D2=10
   : A5$()="609AC040JCATSMAL"
   : C=2
0540 LOAD T<C>A5$()
0550 DEFFN'31
   : COM CLEAR C
   : LOAD T"609menu"