image of READY prompt

Wang2200.org

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