Listing of file='609FG010' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 271, program filename = '609FG010' 0010 REM '609FG010' - OPEN DOCUMENT FILE ROUTINE 0030 GOSUB '110(R5$,"D") : IF B2$<>" "THEN 120 : GOSUB '111(B0$,B9$," ",HEX(FF)) : IF R1$=HEX(05)THEN GOTO 37 : B4$=" " : GOTO 40 0037 IF T5(1)=1THEN B4$=J7$ 0038 GOSUB '111(B0$,B9$,B4$,HEX(FF)) 0040 IF B2$=" "THEN A1=V3 : IF B2$=" "THEN 120 : IF R1$=HEX(05)THEN 90 : GOTO 120 0090 GOSUB '90 : IF J$<>HEX(F0)THEN 38 0120 LOAD TA5$ 0140 DEFFN'90 : GOSUB 2505 : PRINT AT(23,0,);T1$;HEX(20858585858585); : GOSUB 2510 : PRINT AT(23,40);T1$;HEX(07);AT(23,29);HEX(0509); 0160 KEYIN J$,160,160 : D(6)=0 : B4$=" " 0190 KEYIN J$,200,200 : GOTO 190 0200 PRINT HEX(06);AT(23,40,); : ON POS(HEX(0D82F0)=J$)GOTO 280,280,300 : IF VER(J$,"N")=1THEN 250 : GOSUB 2515 : PRINT AT(23,40);T1$;HEX(07); : GOTO 190 0250 D(6)=D(6)+1 : STR(B4$,D(6),1)=J$ : IF D(6)<6THEN 190 0280 PRINT AT(23,0,); : RETURN 0300 PRINT AT(23,0,); : B4$=" " : RETURN 2500 % DO NOT RENUMBER THE FOLLOWING 2505 T1$="Enter Document "&R5$&" Password " : RETURN 2510 T1$="Password Protected" : RETURN 2515 T1$="Invalid Character" : RETURN