image of READY prompt

Wang2200.org

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

# Sector 402, program filename = '609FR100'
0010 REM '609FR100' - REM RETRIEVE A DOCUMENT FROM ARCHIVE
0020 LOAD T"609FG070"3000,BEG 40
0040 IF D2<>2THEN 130
   : IF R1$=HEX(00)AND B2$=" "THEN 110
   : IF R1$=HEX(00)AND B2$<>" "THEN D2=-2
   : IF R1$=HEX(00)AND B2$<>" "THEN 130
   : IF R1$=HEX(03)THEN 430
0110 IF R1$=HEX(00)THEN GOSUB 2505
0130 IF B2$=" "THEN 390
   : PRINT AT(23,0,);B2$;HEX(07);
   : B2$=" "
   : GOSUB '34(1)
   : R1$=HEX(00)
   : J$=HEX(0D)
   : IF ABS(D2)<>2THEN 280
   : IF D2=-2THEN 220
   : IF R1$=HEX(00)THEN 250
0220 D2=0
   : GOTO 430
0250 D2=0
   : GOTO 610
0280 IF D2=8THEN 360
   : D2=8
   : C=3
   : A5$()="609FG050JCATSMALREC-GEN"
   : GOTO 650
0360 D2=8
   : GOTO 430
0390 IF J$<>HEX(F0)THEN 430
   : J$=HEX(0D)
   : D2=0
0430 D2=D2+1
   : ON D2GOTO 470,490,510,530,550,570,590,610,630
0470 A5$()="609FG060Prime 62"
   : C=2
   : GOTO 650
0490 A5$()="609FG150609Open JCATSMAL"
   : C=3
   : GOTO 650
0510 A5$()="609FG030609FG070"
   : C=2
   : GOTO 650
0530 A5$()="609FG140609FG080609FG070"
   : C=3
   : GOTO 650
0550 A5$()="609FG130JCATSMALREC-GEN"
   : C=3
   : GOTO 650
0570 A5$()="609FG010609FG070609Open JCATSMAL"
   : C=4
   : GOTO 650
0590 A5$()="609FR010609FG080REC-GEN REC-RD"
   : C=4
   : GOTO 650
0610 A5$()="609FG040JCATSMAL"
   : C=2
   : GOTO 650
0630 B4$=J7$
   : COM CLEAR D2
   : LOAD T"609Fmenu"
0650 LOAD T<C>A5$()
0655 DEFFN'31
   : COM CLEAR C
   : LOAD T"609menu"
2500 % THE FOLLOWING MUST NOT BE RENUMBERED
2505 B2$="File Already Exists"
   : RETURN