Input (Getkey ?)

Graphics 640,480,0

foo$ = gl_input$(10,10,"what is your name? ")

SetColor 255,255,0 ; SetScale(2,2) 

DrawText "hello "+foo$+", how are you?",100,100

flip
waitmouse

End 


'-------------------------------------
Function gl_input$(x,y,prompt$ = "?")

	Repeat
	
		Cls
		DrawText prompt$+m$,10,10
		DrawText key,10,50
		hit_key = 0
		For key = 1 To 226
		
			hit_key = KeyHit(key)
			If hit_key 
				m$ = m$ + Chr(key)
			
				If key = KEY_ENTER
					Return m$
				EndIf
				If key = KEY_BACKSPACE
					l = Len(m$)
					m = m[..l-2]
				EndIf
			EndIf 
		Next
	
 	Flip
	Until KeyHit(KEY_ESCAPE)

End Function

Module pub.input

ModuleInfo "Version: 1.00"
ModuleInfo "Author:Antony Wells"
ModuleInfo "License:Public Domain"
ModuleInfo "Copyright:Poblic Domain" 
ModuleInfo "Modserver: BRL/Anyone"

Type GetKey
   Method Update:()
     lastKey=0
     For j=1 To 255
         KeyMap[j]=KeyHit(j)
         If KeyMap[j] LastKey=J
     Next
     FlushKeys 'Needed?
   End Method
   Method GetKey:Int()
       Return LastKey
   End Method
   'Returns how many times the key was hit since last update. 
   Method KeyHit:Int(Key:Int)
       Return KeyMap[Key]
   End Method
   Local LastKey
   Local KeyMap:Int[255]
End Type

static unsigned int getkeycode[2];

unsigned int  *bbSystemGetKey=getkeycode;

getkeycode[1] = wp;

getkeycode[1] = 0;

Method GetKey( ) Abstract

Rem
bbdoc: Check for general key down state
returns: keycode of key pressed
End Rem
Function GetKey( )
  If auto_poll PollSystem
  Return Driver.GetKey( )
End Function

Global bbSystemGetKey:Int Ptr="bbSystemGetKey"

Method GetKey()
  Return bbSystemGetKey[1]
End Method

WaitKeyArray ( [key_left, key_right, key_up, key_down] )
 ' returns true if one of the keys in the array pressed

function KeyHitByArray ( a[] )
 for local b = eachin a
  if keyhit (b) = true then return b
 next
end function

function WaitKeyByArray ( a[] )
 local i = waitkey()
 for local b = eachin a
  if i = b then return b
 next
end function

#include <conio.h>

int bbGetKey(void) {
  return kbhit();
}

Module dirk.test

Import "getkey.c"

Extern
  Function bbGetKey:Int()
End Extern

Function GetKey:Int()
  Return bbGetKey()
End Function

Repeat
  a = bbGetKey:Int()
  If a <> 0 Then
    Print a
  EndIf
Forever