home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / pswrd.ba < prev    next >
Text File  |  2006-10-19  |  725b  |  17 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 POKE 63056,128:ONERRORGOTO210
  3. 5 'Password Program for the TRS-80 model 100
  4. 7 ' By Jim Straus  
  5. 20 P$="":IPL"PASWRD.BA"
  6. 30 POWER OFF,RESUME
  7. 40 L$=""
  8. 50 CLS:PRINT "Password? ";CHR$(27);"P";
  9. 60 A$=INKEY$:IF A$="" THEN 60
  10. 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
  11. 80 IF ASC(A$)=13 THEN 200
  12. 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
  13. 100 IF ASC(A$)<32 THEN PRINT " ";:L$=L$+A$:GOTO 60
  14. 110 PRINT A$;:L$=L$+A$:GOTO 60
  15. 200 IF L$=P$ THEN POKE 63056,0:IPL:MENU ELSE BEEP:GOTO 30
  16. 210 BEEP:RESUME40
  17.