Listing of file='609@psw2' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2170, 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