image of READY prompt

Wang2200.org

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

# Sector sector 885, program filename = '609FG150'
0010 REM '609FG150' - SEE IF DOC EXISTS BY TRYING TO OPEN DOCUMENT ONLY
0025 R1$=HEX(00)
   : 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 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 VERJ$,"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