image of READY prompt

Wang2200.org

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

# Sector sector 669, program filename = '609AG141'
0010 REM '609AG141' - VERIFY DOCUMENT IN ARCHIVE VTOC (modified from FG140)
0030 B2$=" "
   : J$=HEX(0D)
   : GOSUB '40
   : GOSUB '45(R5$)
   : IF D(12)>0THEN 130
   : GOSUB 2505
   : GOTO 320
0130 IF STR(D$,6,1)<=HEX(20)THEN 170
   : GOSUB 2510
   : GOTO 320
0170 IF POS(STR(D$,34,6)>20)=0THEN 260
0180 $TRAN(B4$,HEX(0020))R
   : IF STR(D$,34,6)=B4$THEN 260
   : $TRAN(B4$,HEX(2000))R
   : GOSUB '90
   : IF J$<>HEX(F0)THEN 180
   : GOSUB 2515
   : GOTO 320
0260 $TRAN(B4$,HEX(2000))R
   : GOSUB 2520
   : PRINT AT(21,0,40);I1$;" ";STR(D$,7,25);
   : IF D(14)>1THEN 320
   : GOSUB '34(0)
0320 LOAD TA5$
0340 DEFFN'90
   : GOSUB 2530
   : PRINT AT(23,0,);I1$;HEX(20858585858585);
   : GOSUB 2535
   : PRINT AT(23,40);I1$;HEX(07);AT(23,29);HEX(0509);
0370 KEYIN J$,370,370
   : D(6)=0
   : B4$=" "
0400 KEYIN J$,410,410
   : GOTO 400
0410 PRINT HEX(06);AT(23,40,);
   : ON POS(HEX(0D82F0)=J$)GOTO 490,490,510
   : IF VERJ$,"N")=1THEN 460
   : GOSUB 2540
   : PRINT AT(23,40);I1$;HEX(07);
   : GOTO 400
0460 D(6)=D(6)+1
   : STR(B4$,D(6),1)=J$
   : IF D(6)<6THEN 400
0490 PRINT AT(23,0,);
   : RETURN
0510 PRINT AT(23,0,);
   : B4$=" "
   : RETURN
2500 % DO NTO RENUMBER THE FOLLOWING
2505 B2$="Document Does Not Exist"
   : RETURN
2510 B2$="Document In Use"
   : RETURN
2515 B2$="Incorrect Password"
   : RETURN
2520 I1$="Document Name :"
   : RETURN
2530 I1$="Enter Document "&R5$&" Password  "
   : RETURN
2535 I1$="Password Protected"
   : RETURN
2540 I1$="Invalid Character"
   : RETURN