/ PASSWORD / LOAD PASSWD=2000/8/9/P *2000 XLIST NOP L, CLA TAD PK DCA L RTRY, TAD (BUF-1 DCA 13 JMS TXT 15 12 "# JMS KBD TLS JMS TXT 15 12 "P "A "S "S "W "O "R "D ": JMS KBD JMP LD TAD (223 DCA I 13 TAD (232 DCA I 13 CIF 10 JMS 7700 10 TAD (21 CIF 10 JMS 200 3 ARG1, FNAM 0 JMS ERR TAD ARG1 DCA ARG2 JMS 7607 4200 BUF ARG2, 7777 JMS ERR CLA IAC PKC, CIF 10 JMS 200 4 FNAM 1 JMS ERR PK, JMP 7605 ERR, 0 CLA CLL CMA RTL TAD ERR DCA 13 TAD 13 DCA 14 TAD PKC DCA I 13 TAD PKC+1 DCA I 13 TAD (7 DCA I 13 CLA CLL IAC RAL DCA I 13 JMP I 14 TXT, 0 TAD I TXT SPA JMP I TXT TLS TSF JMP .-1 CLA ISZ TXT JMP TXT+1 KBD, 0 CLA TAD I KBD ISZ KBD DCA SW KBC, KSF JMP .-1 KRB AND (177 SW, HLT TSF JMP .-1 LD, TAD (-177 SNA JMP RTRY TAD (177-15 SNA JMP KBE TAD (15 DCA I 13 JMP KBC KBE, TAD (15 DCA I 13 TAD (12 DCA I 13 JMP I KBD XLIST FNAM, FILENAME PASSWD.SX PAGE BUF, ZBLOCK 200 $