Listing of file='PASSWORD' on disk='vmedia/701-2739G.wvd.zip'
# Sector 110, program filename = 'PASSWORD'
2750 REM % PASSWORD ROUTINE
2755 DIM D(25)
2760 DEFFN'90
: PRINT AT(23,0,);"Enter Document ";R5$;" Password ";HEX(858585858585);AT(2
3,40);"Password Protected";HEX(07);AT(23,29);HEX(0509);
2780 KEYIN D5$,2780,2780
: D(6)=0
: B4$=" "
2810 KEYIN D5$,2820,2820
: GOTO 2810
2820 PRINT HEX(06);AT(23,40,);
: ON POS(HEX(0D82F0)=D5$)GOTO 2900,2900,2920
: IF VER(D5$,"N")=1THEN 2870
: PRINT AT(23,40);"Invalid Character";HEX(07);
: GOTO 2810
2870 D(6)=D(6)+1
: STR(B4$,D(6),1)=D5$
: IF D(6)<6THEN 2810
2900 PRINT AT(23,0,);
: RETURN
2920 PRINT AT(23,0,);
: B4$=" "
: RETURN