Opps that's not the code
It's
REM **************************************
REM * A PASSWORD PROTECTION FOR THE BANK *
REM * **************
REM * PABLO J. *
REM * *
REM * HOMESTUDIO® *
REM *************************
PASSWORD$="comando"
hide mouse
do
rem A nice font
set text font "Arial" : set text size 32
MENU:
CLS : TEXT 150,0,"LOG ON AREA" : TEXT 150,103,"WHAT?" : TEXT 150,130,"1.LOG IN" : TEXT 150,170,"2.CHANGE PASSWORD"
PRINT : print : print : INPUT "ENTER A # OF THE MENU>";ACTION : IF ACTION=1 THEN GOTO LOGIN
IF ACTION=2 THEN GOTO CHANGE : IF ACTION=>3 THEN PRINT "INVALID INPUT" : SLEEP 1000 : GOTO MENU
loop
do
LOGIN:
rem Create a slowly sync'd loop for keyboard entry
sync on : sync rate 20
rem Main loop
pasline$=""
rem Build line string
new$=entry$()
if returnkey()=1 and PASSWORD$=line$ then GOTO MENU
for n=1 to len(new$)
if asc(mid$(new$,n))=8
line$=left$(line$,len(line$)-1)
else
line$=line$+mid$(new$,n)
endif
next n
clear entry buffer
rem Show Entry Buffer
cls rgb(64,64,64)
center text 320,200,"ENTER YOUR PASSWORD"
for i=1 to len(line$)
pasline$=pasline$+"*"
next i
center text 320,240,pasline$
`center text 320,260,line$
rem Update screen
sync
rem End loop
loop
CHANGE:
cls
DO
sync on : sync rate 20
rem Main loop
pasline$=""
rem Build line string
new$=entry$()
if returnkey()=1 and PASSWORD$=line$ then GOTO NEW
for n=1 to len(new$)
if asc(mid$(new$,n))=8
line$=left$(line$,len(line$)-1)
else
line$=line$+mid$(new$,n)
endif
next n
clear entry buffer
rem Show Entry Buffer
cls rgb(64,64,64)
center text 320,200,"ENTER OLD PASSWORD"
for i=1 to len(line$)
pasline$=pasline$+"*"
next i
center text 320,240,pasline$
`center text 320,260,line$
rem Update screen
sync
rem End loop
loop
NEW:
cls
DO
sync on : sync rate 20
rem Main loop
pasline$=""
rem Build line string
new$=entry$()
if returnkey()=1 then GOTO MENU
for n=1 to len(new$)
if asc(mid$(new$,n))=8
line$=left$(line$,len(line$)-1)
else
line$=line$+mid$(new$,n)
endif
next n
clear entry buffer
rem Show Entry Buffer
cls rgb(64,64,64)
center text 320,200,"ENTER NEW PASSWORD"
for i=1 to len(line$)
pasline$=pasline$+"*"
next i
PASSWORD$=LINE$
center text 320,240,pasline$
`center text 320,260,line$
rem Update screen
sync
rem End loop
loop
If you can make ot smaller or easy.Well,post it
Is just of those days when you don't wanna wake up everything is *****, everybody sucks you really don't know why, but you wanna justify rippin' someone head off!
