home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
bus
/
pswrd.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
725b
|
17 lines
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