Listing of file='609@psw2' on disk='vmedia/731-0067G.wvd.zip'
# Sector 2145, program filename = '609@psw2'
0010 REM %609@psw2 - Alter Passwords (11/21/80)
0020 DIM C2$1,U1$(256),V2$(256)1,U2$(64),R1$1,V0$(1)1
: IF C7>1THEN 510
: GOSUB '110(R5$,C2$)
: IF B2$<>" "THEN 440
: GOSUB '111(B0$,B9$,C6$,HEX(FF))
: IF B2$<>" "THEN 440
: A1=V3
: GOSUB 1180
: IF R1$<>HEX(00)THEN 440
: GOSUB 1170
: GOSUB 1190
: IF R1$=HEX(00)THEN 680
: GOTO 700
0440 GOSUB 1160
: GOSUB '212(A1)
: GOTO 700
0500 GOSUB 1160
: GOTO 700
0510 D0=POS(" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=STR(R5$,5)
)-1
: DATA LOAD DA T(B3+D0)A0$()
: B9$=STR(A0$(),2)
: IF STR(B9$,1,8)<>" "THEN 515
: GOSUB 2130
: GOTO 500
0515 C0=1
0520 GOSUB '236(12,C0)
: IF R1$<>HEX(00)THEN 530
: IF V1=0THEN 540
: MAT SEARCHSTR(U1$(),,V1*16),=STR(B9$,,8)TO T2$STEP 16
: IF T2$>HEX(0000)THEN 550
: IF V1<12THEN 540
: C0=C0+12
: GOTO 520
0530 GOSUB 1220
: GOSUB 2000
: GOTO 500
0540 GOSUB 2010
: GOTO 500
0550 B9$=STR(U1$(),VAL(T2$,2))
: C2=1
: C3=0
: IF D5$=STR(B9$,9,8)THEN 570
: GOSUB 2020
: GOTO 500
0570 C3=C3+C2
: B0$="DOCUMENT."&C1$
: GOSUB '217(128,C3,B0$,B9$)
: IF R1$=HEX(00)THEN 580
: GOSUB 1220
: GOSUB 2030
: GOTO 500
0580 C2$()=U1$()
: C4=V1
: IF C4=0THEN 680
: C2=0
0590 IF C2=C4THEN 570
: C2=C2+1
: IF C2>C4THEN 570
: R5$=STR(C2$(C2),1,4)
: IF R5$<J6$OR R5$>D7$THEN 590
: STR(R5$,5,1)=C1$
: B0$="DOCUMENT."&C1$&"."&STR(R5$,,4)
: GOSUB '217(1,1,B0$,B9$)
: IF R1$=HEX(00)THEN 620
: GOSUB 1220
: GOSUB 2040
: GOTO 500
0620 GOSUB '111(B0$,B9$,STR(V2$(),8,6),HEX(FF))
: IF R1$<>HEX(00)THEN 500
: A1=V3
: C3$=" "
: KEYIN C3$,640,640
0640 IF STR(C3$,,1)<>HEX(F0)THEN 650
: GOSUB 2060
: GOSUB 1160
: GOSUB '31
0650 GOSUB 1180
: IF R1$=HEX(00)THEN 660
: GOSUB '212(A1)
: GOTO 500
0660 GOSUB 1170
: GOSUB 1190
: IF R1$=HEX(00)THEN 590
: GOTO 500
0680 GOSUB 2080
0700 A5$()="Prime 62609@pswd"
: LOAD T<2>A5$()
1130 KEYIN C3$,1140,1140
1140 C3$=" "
: KEYIN C3$
: IF C3$=HEX(82)THEN RETURN
: IF C3$=HEX(F0)THEN GOSUB '31
: GOTO 1140
1160 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;
: PRINT AT(1,0);B5$(1);
: RETURN
1170 PRINT AT(C9,C8,5);R5$
: C8=C8+8
: IF C8=80THEN C8=0
: IF C8=0THEN C9=C9+1
: IF C9=21THEN C9=16
: RETURN
1180 GOSUB '213(A1," ",C7$,2)
: IF R1$=HEX(00)THEN RETURN
: GOSUB 1220
: GOSUB 2100
: RETURN
1190 GOSUB '212(A1)
: IF R1$=HEX(00)THEN RETURN
: GOSUB 1220
: GOSUB 2110
: RETURN
1195 DEFFN'107(D1$,T1$)
: T1$=" "
: IF VER(T1$,"N")=LEN(T1$)OR T1$=" "THEN RETURN
: GOSUB 2120
: RETURN
1210 DEFFN'31
: COM CLEAR C
: LOAD TA5$
1220 T2$=" "
: IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO T2$,(##)
: ELSE HEXUNPACKR1$TO T2$
: RETURN
2000 B2$="Error "&T2$&" in Query Volume"
: RETURN
2010 B2$="Volume not recorded in master file."
: RETURN
2020 B2$="Incorrect Volume Password"
: RETURN
2030 B2$="Error "&T2$&" in query volume"
: RETURN
2040 B2$="Error "&T2$&" in query document "&R5$
: RETURN
2060 B2$="TERMINATING PROGRAM"
: RETURN
2070 PRINT AT(23,0,80);HEX(07);B5$(2);"CHANGE IN PROGRESS";
: PRINT AT(1,0);B5$(1)
: PRINT AT(14,0);"Documents processed:"
: RETURN
2080 PRINT AT(23,0,80);HEX(0707);"CHANGE DONE Keyin ";B0$(1);" to continue "
;B0$(3);" to return to menu";
: GOTO 1130
2090 PRINT AT(23,0,80);"Keyin ";B0$(1);" to accept ";B0$(3);" to cancel";
: RETURN
2100 B2$="Error "&T2$&" in modifying doc. "&R5$
: RETURN
2110 B2$="Error "&T2$&" in closing file "&R5$
: RETURN
2120 B2$="Re-enter acceptable "&D1$&" password"
: RETURN
2130 B2$="Library does not exist"
: RETURN