Listing of file='609@pswd' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2153, program filename = '609@pswd'
0010 REM %609@pswd - Change Passwords (02/17/81)
0020 COM C6$6
: COM S4,S5(1),S0(1),S3(1),T5(1),T1$(3)80
: COM S5,T1(7),S6(7),S1(7),T2$(7)80
: COM S6,T2(5),S7(5),S2(5),S4(5),T5$(5)8
: COM S1$5,S1$(18)2,S2$(23)2
: COM S2$1,B2$80,T1$80,T2$2,C3$1
: COM C2$(128)16,J6$5,D7$5,C1$1,D5$8,C7$6,D1$12,C7,C8,C9
: IF B2$>" "THEN ON C7GOTO 380,470,710
0310 B2$=" "
: IF C9>0THEN 320
: PRINT HEX(03)
: C8=0
: C9=16
0320 PRINT AT(4,0,560)
: PRINT AT(5,0);BOX(-0,-80)
: PRINT AT(23,0,80);
: RESTORE LINE2190
: GOSUB '61
: GOSUB '62
: IF T5=0THEN GOSUB '31
: PRINT AT(4,0,40);AT(5,0);BOX(-0,-35)
: C7=T5(1)
: ON C7GOTO ,460,700
: RESTORE LINE2230
: GOSUB '61
: T5$()=" "
: STR(T5$(1),5,1)=B5$
: IF R5$<>" "THEN T5$(1)=R5$
0380 GOSUB '62
: IF T5=0THEN GOSUB '31
: GOSUB 2010
: R5$,J6$=T5$(1)
: C6$=T5$(2)
: GOSUB '107(3,C6$)
: IF B2$<>" "THEN 440
: C7$=T5$(3)
: GOSUB '107(1,C7$)
: IF B2$<>" "THEN 440
0400 A5$()="609Open JCATSMAL609@psw2"
: LOAD T<3>A5$()
0440 GOSUB 1160
: GOTO 380
0460 RESTORE LINE2320
: GOSUB '61
: T5$()=" "
: T5$(3)=B5$
0470 GOSUB '62
: IF T5=0THEN GOSUB '31
: GOSUB 2010
: J6$=T5$(1)
: D7$=T5$(2)
: STR(R5$,5,1),C1$=T5$(3)
: D5$=T5$(4)
: C7$=T5$(5)
: GOSUB '107(2,C7$)
: IF B2$<>" "THEN 500
: B2$=" "
: IF VER(J6$,"####")<>4OR VER(D7$,"####")<>4THEN GOSUB 2150
0490 IF VER(C1$,"A")<>1THEN GOSUB 2160
: IF B2$=" "AND D7$<J6$THEN GOSUB 2170
: IF B2$=" "THEN 400
0500 GOSUB 1160
: IF C7=2THEN 470
: ELSE GOTO 710
0700 RESTORE LINE2450
: GOSUB '61
: T5$()=" "
: T5$(1)=B5$
0710 GOSUB '62
: IF T5=0THEN GOSUB '31
: GOSUB 2010
: J6$="0000"
: D7$="9999"
: STR(R5$,5,1),C1$=T5$(1)
: D5$=T5$(2)
: C7$=T5$(3)
: GOSUB '107(2,C7$)
: IF B2$<>" "THEN 500
: ELSE GOTO 490
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
1200 DEFFN'107(C1,T1$)
: STR(T1$,7)=" "
: B2$=" "
: C3=0
: FOR C2=1TO LEN(T1$)
: IF STR(T1$,C2,1)=" "OR VER(STR(T1$,C2,1),"N")=1AND C1=3THEN C3=C3+1
: IF STR(T1$,1,6)=" "OR VER(STR(T1$,C2,1),"N")=1AND C1<3THEN C3=C3+1
: NEXT C2
: IF C3=LEN(T1$)THEN RETURN
: GOSUB 2000
: RETURN
1220 DEFFN'31
: COM CLEAR C
: LOAD TA5$
2000 IF C1=1THEN D1$="new"
: IF C1=2THEN D1$="new document"
: IF C1=3THEN D1$="old"
: B2$="Re-enter acceptable "&D1$&" password"
: RETURN
2010 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
2020 PRINT AT(23,0,80);HEX(0707);"CHANGE DONE Keyin ";B0$(1);" to continue "
;B0$(3);" to return to menu";
: GOTO 1130
2030 PRINT AT(23,0,80);"Keyin ";B0$(1);" to accept ";B0$(3);" to cancel";
: RETURN
2040 B2$="Error "&T2$&" in modifying doc. "&R5$
: RETURN
2050 B2$="Error "&T2$&" in closing file "&R5$
: RETURN
2150 B2$="Invalid Document Number"
: RETURN
2160 B2$="Invalid Library ID"
: RETURN
2170 B2$="Invalid Range of Documents"
: RETURN
2190 DATA 3,0,0,"C H A N G E P A S S W O R D S"
: DATA 3,4,5,"Please select option"
: DATA 1,6,5,1,"Single Document","Range of Documents","All Documents in Lib
rary","\DE"
: DATA 0
2230 DATA 3,0,0," "
: DATA 3,4,40,"Please enter information"
: DATA 4,6,40,"Document ID"
: DATA 4,7,40,"Old Password"
: DATA 4,8,40,"New Password"
: DATA 2,6,53,5," "
: DATA 5,7,54,6," "
: DATA 5,8,54,6," "
: DATA 0
2320 DATA 3,0,0," "
: DATA 3,4,40,"Please enter information"
: DATA 4,6,40,"Starting Document Number"
: DATA 4,7,40,"Ending Document Number"
: DATA 4,8,40,"Library Name"
: DATA 4,9,40,"Volume Password"
: DATA 4,10,40,"New Document Password"
: DATA 2,6,66,4," "
: DATA 2,7,64,4," "
: DATA 2,8,54,1," "
2420 DATA 5,9,56,8," "
: DATA 5,10,62,6," "
: DATA 0
2450 DATA 3,0,0," "
: DATA 3,4,40,"Please enter information"
: DATA 4,6,40,"Library Name"
: DATA 4,7,40,"Volume Password"
: DATA 4,8,40,"New Document Password"
: DATA 2,6,54,1," "
: DATA 5,7,56,8," "
: DATA 5,8,62,6," "
: DATA 0