Sorry your browser is not supported!

Data 1
Data "1234"
Read number_of_keys

For Keyrow=1 to number_of_keys
   Read Keys$
   Print Keys$
   If NumVal$=Keys$ then Gosub Start_Game
Next Keyrow

Suspend For Mouse

END

Read number_of_keys

For Keyrow=1 to number_of_keys
  Read Keys$
  Print Keys$
  If NumVal$=Keys$ then Gosub Start_Game
Next Keyrow

Suspend For Mouse
END

Data 1
Data "1234"

Rem ************* REQUIRED DIMS FOR FUNCTIONS *****************
Rem *** You MUST Include These At The Start Of Your Program ***
Dim Files$(1000,2): Dim Drv$(26)
Dim Temp$(1000,2): Dim GotDrives(0)
Dim Path$(0): Dim Filename$(0)
Dim SliderHeight(0): Dim FileOffset(0)
Dim Display$(100,6): Dim ArrayPointer(0,6): Dim SplitLine$(10,6)
Dim Keys$(50)
Rem ************************************************************

Gosub Setup

InitGUISystem(): Rem Initialise GUI System <<< MUST BE CALLED BEFORE USING ALERT BOX FUNCTIONS!!

Rem InputBox("Title For Panel","Input Prompt",ExistingData$,RestoreValue)
Rem ExistingData$ - Set to "" for empty box or use variable to show current data
Rem RestoreValue - 0 No Restore (3D)   1 Auto Restore Screen Behind Panel (2D)
Rem NumVal$ - Variable to receive what user entered. If Cancel clicked, all changes are discarded.
NumVal$ = InputBox("Data Input Box","Name:","",1)
Center Text 400,200,"User Typed: "+NumVal$


Read number_of_keys

For Keyrow=1 to number_of_keys
  Read Keys$
  Print Keys$
  If NumVal$=Keys$ then Gosub Start_Game
Next Keyrow

Suspend For Mouse
END

Data 1
Data "1234"

Setup:
  Set Display Mode 800,600,32
  Sync On
  Sync rate 0
  CLS
  Set Text Font "Arial",1
  Set Text Size 16
Return

Start_Game:
   Text 20,20,"GAME START, key accepted"
Return

Put in your code, highlight it, then click code at the top right of the "Post Forum Message" box, viola.

#Include "GUI.dba"

Rem ************* REQUIRED DIMS FOR FUNCTIONS *****************
Rem *** You MUST Include These At The Start Of Your Program ***
Dim Files$(1000,2): Dim Drv$(26)
Dim Temp$(1000,2): Dim GotDrives(0)
Dim Path$(0): Dim Filename$(0)
Dim SliderHeight(0): Dim FileOffset(0)
Dim Display$(100,6): Dim ArrayPointer(0,6): Dim SplitLine$(10,6)

number_of_keys=0
NumVal$=""

Rem ************************************************************

Gosub Setup

InitGUISystem(): Rem Initialise GUI System <<< MUST BE CALLED BEFORE USING ALERT BOX FUNCTIONS!!

Rem InputBox("Title For Panel","Input Prompt",ExistingData$,RestoreValue)
Rem ExistingData$ - Set to "" for empty box or use variable to show current data
Rem RestoreValue - 0 No Restore (3D)   1 Auto Restore Screen Behind Panel (2D)
Rem NumVal$ - Variable to receive what user entered. If Cancel clicked, all changes are discarded.
NumVal$ = InputBox("Data Input Box","Name:","",1)
Center Text 400,200,"User Typed: "+NumVal$


Read number_of_keys

For Keyrow=0 to number_of_keys
  Read Keys$
  Print Keys$
  If NumVal$=Keys$ then Gosub Start_Game
Next Keyrow

Suspend For Mouse
END

Data 1
Data "1234"







Setup:
  Set Display Mode 800,600,32
  Sync On
  Sync rate 0
  CLS
  Set Text Font "Arial",1
  Set Text Size 16
Return


Start_Game:
   Text 20,20,"GAME START, key accepted"
Return

Read number_of_keys
Print number_of_keys; "data items to read in."
Print

For Keyrow=1 to number_of_keys
  Read Keys$
  Print Keys$
  If NumVal$=Keys$ then Gosub Start_Game
Next Keyrow

Suspend For Mouse
END

Start_Game:
  Rem Do Something Here
Return

Data 1
Data "1234"