help for mateo
#1
Code:
doItAgain:
PRINT "Data";
A$ = "": B$ = ""
WHILE LEN(A$) < 2 AND B$ <> CHR$(13)
   IF B$ = CHR$(65) OR B$ = CHR$(97) THEN 10
   IF B$ = CHR$(66) OR B$ = CHR$(98) THEN 10
   IF B$ = CHR$(67) OR B$ = CHR$(99) THEN 10
   IF B$ = CHR$(84) OR B$ = CHR$(116) THEN 10
   IF B$ = CHR$(80) OR B$ = CHR$(112) THEN 10
   IF B$ = CHR$(76) OR B$ = CHR$(108) THEN 10
   IF B$ = CHR$(83) OR B$ = CHR$(115) THEN 10
   IF B$ = CHR$(68) OR B$ = CHR$(100) THEN 10
   IF B$ = CHR$(87) OR B$ = CHR$(119) THEN 10
   IF B$ = CHR$(53) THEN 10
   IF B$ = CHR$(54) THEN 10
   IF B$ = CHR$(55) THEN 10
   IF B$ = CHR$(56) THEN 10
   IF B$ = CHR$(57) THEN 10
   B$ = ""
   WHILE B$ = ""
       WHILE _MOUSEINPUT: WEND
       B$ = INKEY$
       IF _MOUSEBUTTON(1) THEN B$ = CHR$(13)
       _LIMIT 60
   WEND
   IF B$ = CHR$(32) THEN 10
   IF B$ = CHR$(27) THEN 10
   IF B$ <> CHR$(13) THEN A$ = A$ + B$
WEND
PRINT: PRINT "You just pressed *"; A$; "* and then enter, so goodbye for now!": END
10 PRINT: PRINT "You just pressed *"; B$; "* so yada yada yada... from this GOTO "
GOTO doItAgain

OK now it works for me with mouse, how about for you?
B += x
Reply