image of READY prompt

Wang2200.org

Listing of file='609@pswd' on disk='vmedia/701-2737G.wvd.zip'

# Sector sector 965, 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 VERJ6$,"####")<>4OR VERD7$,"####")<>4THEN GOSUB 2150
0490 IF VERC1$,"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 VERSTR(T1$,C2,1),"N")=1AND C1=3THEN C3=C3+1
   : IF STR(T1$,1,6)=" "OR VERSTR(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","BIN("
   : 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