0 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE 1 POKE 63056,128:ONERRORGOTO210 5 'Password Program for the TRS-80 model 100 7 ' By Jim Straus 20 P$="":IPL"PASWRD.BA" 30 POWER OFF,RESUME 40 L$="" 50 CLS:PRINT "Password? ";CHR$(27);"P"; 60 A$=INKEY$:IF A$="" THEN 60 70 IF ASC(A$)=127 OR ASC(A$)=8 THEN IF L$<>"" THEN L$=LEFT$(L$,LEN(L$)-1):PRINT CHR$(127);:GOTO 60 ELSE BEEP:GOTO 60 80 IF ASC(A$)=13 THEN 200 90 IF ASC(A$)=24 THEN IF L$<>"" THEN FOR I=1 TO LEN(L$):PRINTCHR$(127);:NEXT:L$="":GOTO 60 ELSE BEEP:GOTO 60 100 IF ASC(A$)<32 THEN PRINT " ";:L$=L$+A$:GOTO 60 110 PRINT A$;:L$=L$+A$:GOTO 60 200 IF L$=P$ THEN POKE 63056,0:IPL:MENU ELSE BEEP:GOTO 30 210 BEEP:RESUME40