image of READY prompt

Wang2200.org

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

# Sector 898, program filename = '609FG180'
0010 REM '609FG180' - DELETE DOC FROM ARCHIVE, ADMIN PTR IN A$
0050 B2$=" "
   : J$=HEX(0D)
   : GOSUB 2505
   : PRINT AT(23,0);T1$;
   : J0$=STR(D$,32,2)
   : INIT(00)D9$()
0130 IF J0$=HEX(0000)THEN 290
   : GOSUB '47(J0$)
   : IF D(20)=0AND STR(D2$(),5,3)=D1$THEN 210
   : GOSUB 2510
   : GOTO 290
0210 J0$=STR(D2$(),1,2)
   : D2$()=ALL(00)
   : DATA SAVE BA T#D(9),(D(1)+D1)D2$()
   : GOSUB '57(D(1))
   : GOTO 130
0290 GOSUB '57(-1)
   : IF B2$=" "AND T5(1)=5THEN GOSUB '59(R5$)
   : LOAD TA5$
2500 % DO NOT RENUMBER THE FOLLOWING
2505 T1$="(In Progress)"
   : RETURN
2510 B2$="Unable to free all deleted sectors"
   : RETURN