image of READY prompt

Wang2200.org

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

# Sector sector 629, program filename = '609AC100'
0010 REM '609AC100' - REM Copy a document to archive with rename 05/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<3THEN 460
   : IF D2=8THEN 460
   : D2=8
   : GOTO 440
0170 IF J$<>HEX(F0)THEN 300
   : J$=HEX(0D)
   : IF D2<>3THEN 270
   : D2=0
   : GOTO 440
0270 D2=3
   : GOTO 371
0300 D2=D2+1
   : ON D2GOTO 340,360,371,374,400,404,420,440,460
0340 A5$()="609AG060609FG070Prime 62"
   : C=3
   : GOTO 480
0360 A5$()="609FG010609FG070609Open JCATSMAL"
   : C=4
   : GOTO 480
0371 A5$()="609FG020609FG070JCATSMALREC-GEN REC-RD"
   : C=5
   : GOTO 480
0374 A5$()="609AG061Prime 62"
   : C=2
   : GOTO 480
0400 A5$()="609FG030609FG070"
   : C=2
   : GOTO 480
0404 A5$()="609AG140609FG080609FG070"
   : C=3
   : GOTO 480
0420 A5$()="609FC010609FG080REC-GEN REC-RD"
   : C=4
   : GOTO 480
0440 A5$()="609FG040JCATSMAL"
   : C=2
   : GOTO 480
0460 B4$=J7$
   : COM CLEAR D2
   : LOAD T"609adfil"
0480 LOAD T<C>A5$()
0485 DEFFN'31
   : COM CLEAR C
   : LOAD T"609menu"