image of READY prompt

Wang2200.org

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

# Sector sector 680, program filename = '609AG061'
0010 REM '609AG061' - INPUT A RENAMED DOCUMENT ID
0030 RESTORE LINE2505
   : GOSUB '61
   : IF C4$=" "THEN T5$(1)=R5$
   : T5$(1)=C4$
0070 GOSUB '62
   : ON T5+1GOTO 130,110
0090 GOSUB 2525
   : PRINT AT(23,0,);T1$;HEX(07);
   : GOTO 70
0110 IF T5$(1)=" "THEN 90
   : IF A5$="609AC100"OR A5$="609AF100"AND VERT5$(1),"####A")<>5THEN 90
   : ELSE C4$=T5$(1)
   : LOAD TA5$
0130 J$=HEX(F0)
   : LOAD TA5$
2500 % DO NOT RENUMBER THE FOLLOWING
2505 DATA 3,0,0,"ADVANCED FILING"
   : DATA 4,13,3,"        Enter new document ID:"
   : DATA 2,13,35,5," "
   : DATA 0
2525 T1$="Invalid Id "
   : RETURN