' Password accessory. Program idea, design and logic by Richard Karsmakers ' Accessory adaption by Karsten Köper ' Copyright by Thalion Software GmbH ' $m1000 buf&=APPL_INIT() ' me_id&=MENU_REGISTER(buf&," Password ") ' DO ~EVNT_MESAG(0) IF MENU(1)=40 ' SPOKE &H3FF,&H0 !Other password not valid any more DO RESTORE DO READ b$ !Read compare string EXIT IF b$="*" DO !Get a key a$=INKEY$ EXIT IF a$<>"" LOOP SHOWM a$=UPPER$(a$) !Make upper case IF b$<>a$ buf&=PEEK(&HFF8240) SPOKE &HFF8240,(PEEK(&HFF8240) XOR &H777) PAUSE 10 PRINT CHR$(7); SPOKE &HFF8240,buf& EXIT IF TRUE ENDIF EXIT IF b$<>a$ LOOP EXIT IF b$="*" LOOP SPOKE &H3FF,7 ' DATA T,E,S,T,* ' ENDIF LOOP