here is the input boxes code as a 2 field form
sync on:sync rate 0
dim typeboxchar$(100,2)
dim typeboxcharposy(100,2)
dim typeboxcharposx(100,2)
dim typeboxcharnum(2)
for i=1 to 100
typeboxcharposy(i,1)=104
typeboxcharposy(i,2)=104
next i
ink rgb(150,150,150),rgb(255,255,255)
cls
typebox=0
do
cls
box 35,104,122,130
box 125,104,209,130
if keystate(15)=0 then changebox=0
if keystate(15)=1 and changebox=0 then inc typebox : changebox=1
if typebox>=3 then typebox=1
if keystate(15)=1 then clear entry buffer
if mousex()>35 and mousex()<122 and mousey()>104 and mousey()<130 and mouseclick()=1 then typebox=1
if mousex()>125 and mousex()<209 and mousey()>104 and mousey()<130 and mouseclick()=1 then typebox=2
if (mousex()<35 or mousex()>209 or mousey()>130 or mousey()<104 or (mousex()<122 and mousex()>125)) and mouseclick()=1 then typebox=0
if typebox<>0
if entry$()=chr$(8) and typeboxcharnum(typebox)>0 then typeboxchar$(typeboxcharnum(typebox),typebox)="" : dec typeboxcharnum(typebox) : clear entry buffer
if returnkey()=1
for i=1 to typeboxcharnum(1)
loginnameoutput$=loginnameoutput$+typeboxchar$(i,1)
next i
for i=1 to typeboxcharnum(2)
loginpasswordoutput$=loginpasswordoutput$+typeboxchar$(i,2)
next i
goto outofloop
endif
if entry$()<>"" and typebox=1
for i=1 to len(entry$())
inc typeboxcharnum(typebox) : typeboxchar$(typeboxcharnum(typebox),typebox)=mid$(entry$(),i) : typeboxcharposx(typeboxcharnum(typebox),typebox)=typeboxcharnum(typebox)*10+25
next i
endif
if entry$()<>"" and typebox=2
for i=1 to len(entry$())
inc typeboxcharnum(typebox) : typeboxchar$(typeboxcharnum(typebox),typebox)=mid$(entry$(),i) : typeboxcharposx(typeboxcharnum(typebox),typebox)=typeboxcharnum(typebox)*10+115
next i
endif
endif
clear entry buffer
ink rgb(0,0,0),rgb(255,255,255)
for i=1 to typeboxcharnum(1)
outputposy=typeboxcharposy(i,1)
outputposx=typeboxcharposx(i,1)
set cursor outputposx,outputposy
print typeboxchar$(i,1)
next i
for i=1 to typeboxcharnum(2)
outputposy=typeboxcharposy(i,2)
outputposx=typeboxcharposx(i,2)
set cursor outputposx,outputposy
print typeboxchar$(i,2)
next i
ink rgb(150,150,150),rgb(255,255,255)
sync
loop
outofloop:
sync off
cls
set cursor 0,0
print loginnameoutput$
print loginpasswordoutput$
wait key
http://www.larinar.tk
AMD athlon thoroughbred 2200, 512Mb ram, 40Gb HD, ati saphire radeon 9600 atlantis w/128mb ddr ram, good creative-labs soundcard, cd-rw + dvd drives.
