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"