Hi,
See help Ischarwaiting
you use Inkey its a byte not a string
try something like this :
Code:
Dim Temp1 AsString*40 Dim B AsByte , A AsByte
Do
A =Ischarwaiting() If A <>0Then
B =Inkey() SelectCase B
Case0'for Bascom simulator test Case13'keyboard cmd ATL+013 Case10:If Temp1 <>""Then'keyboard cmd ATL+010 Print Temp1
Temp1 ="" End If CaseElse:If B >31Then Temp1 = Temp1 +Chr(b) EndSelect End If
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You cannot download files in this forum