Code Snippets->Retro Textboxes
N
NETMAN007 Joined: 16th Jan 2003
Location: Malta
Posted: 27th Feb 2003 21:40
In some post around this forum I saw a message which talked about textboxes,buttons etc.
What I this code does is create an effect of a textbox which was used in the time of DOS.
Those of you who have programmed with Pascal it is similar to the textboxes created with it.
The code is:

Rem ###############################################
Rem # Date: 27th February 2003 #
Rem # Created by Andre` Cutajar A.K.A Netman007 #
Rem # Program Title Retro Textboxes #
Rem ###############################################
Rem -- Vertical Lines
line 45,95,45,150
line 350,95,350,150
Rem -- Horizontal Lines
line 45,95,350,95
line 45,150,350,150
Rem -- Create a Box
box 235,95,235,150
ink RGB(255,255,255),RGB(0,128,64)
Rem -- Set the cursor exactly after the text of the TEXT command
Rem -- To Create the Textbox Effect of a blinking Cursor.
set cursor 235,100
text 50,100,"Please enter your name:"
text 50,120,"Please enter your age:"
input "",name$
Set cursor 235,120,
input "",age

Anyone who found it useful can use it freely.
M
Moggie100 Joined: 15th Oct 2002
Location: Behind You...
Posted: 16th Mar 2003 17:59
Here's your inut boxes put into an easy to use function

+ Code Snippet
function Dos_Box(prompt$,x,y,space)
   INK RGB(255,255,255),RGB(0,0,0)
Rem -- Vertical Lines
   line x,y,x,y+25
   line x+((len(prompt$))*10)+space,y,x+((len(prompt$))*10)+space,y+25
Rem -- Horizontal Lines
   line x,y,x+((len(prompt$))*10)+space,y
   line x,y+25,x+((len(prompt$))*10)+space,y+25
Rem -- Set colors
   ink RGB(255,255,255),RGB(0,128,64)
Rem -- Text Promps
   text x+5,100,prompt$
   curX=(len(prompt$))*10
   set cursor curX,100
   input "",Return$
endfunction Return$