image of READY prompt

Wang2200.org

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

# Sector sector 725, program filename = '609FA100'
0010 REM '609FA100' - DELETE A DOCUMENT FROM ARCHIVE
0020 LOAD T"609FG070"2000,BEG 40
0040 IF B2$=" "THEN 110
   : PRINT AT(23,0,);B2$;HEX(07);
   : B2$=" "
   : GOSUB '34(1)
   : GOTO 270
0110 IF J$<>HEX(F0)THEN 150
   : J$=HEX(0D)
   : D2=0
0150 D2=D2+1
   : ON D2GOTO 190,210,230,250,270
0190 A5$()="609FG060Prime 62"
   : C=2
   : GOTO 290
0210 A5$()="609FG030609FG070"
   : C=2
   : GOTO 290
0230 A5$()="609FG140609FG080609FG070"
   : C=3
   : GOTO 290
0250 A5$()="609FG180609FG080"
   : C=2
   : GOTO 290
0270 B4$=J7$
   : COM CLEAR D2
   : LOAD T"609Fmenu"
0290 LOAD T<C>A5$()
0295 DEFFN'31
   : COM CLEAR C
   : LOAD T"609menu"