image of READY prompt

Wang2200.org

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

# Sector 246, program filename = '609FD100'
0010 REM '609FD100' - REM DELETE A SYSTEM DOCUMENT
0020 LOAD T"609FG070"2000,BEG 40
0040 IF B2$=" "THEN 210
   : PRINT AT(23,0,);B2$;HEX(07);
   : B2$=" "
   : IF D2<>3THEN 120
   : GOSUB '34(0)
   : IF J$<>HEX(F0)THEN 290
   : ELSE GOTO 140
0120 GOSUB '34(1)
0140 IF D2<3THEN 450
   : IF D2=4OR D2=5OR D2=6THEN 450
   : D2=6
   : GOTO 390
0210 IF J$<>HEX(F0)THEN 290
   : J$=HEX(0D)
   : D2=0
   : GOTO 390
0290 D2=D2+1
   : ON D2GOTO 330,350,370,390,410,430,450
0330 A5$()="609FG060Prime 62"
   : C=2
   : GOTO 470
0350 A5$()="609FG010609FG070609Open JCATSMAL"
   : C=4
   : GOTO 470
0370 A5$()="609FG020609FG070JCATSMALREC-GEN REC-RD"
   : C=5
   : GOTO 470
0390 A5$()="609FG040JCATSMAL"
   : C=2
   : GOTO 470
0410 A5$()="609FG010609FG070609Open JCATSMAL"
   : C=4
   : GOTO 470
0430 A5$()="609FG050JCATSMALREC-JCATREC-GEN"
   : C=4
   : GOTO 470
0450 B4$=J7$
   : COM CLEAR D2
   : LOAD T"609Fmenu"
0470 LOAD T<C>A5$()
0475 DEFFN'31
   : COM CLEAR C
   : LOAD T"609menu"