Main sections
INKEY$
a$=INKEY$( )
Liefert nicht den Tasten-Code, sondern den eingegebenen Buchstaben zurück.
Langsamer als KEY( ), aber nützlich für eigene INPUT Funktionen.
Die Enter Taste liefert "\n", die Backspace Teste "\b" zurück.
Sample:
// ------------------------------------------------------------- //
// INPUT via INKEY$ Mit Sternenhintergrund
// ------------------------------------------------------------- //
// Sternfeld vorbereiten
DIM spd[640]
DIM sy[640]
FOR x=0 TO 639
spd[x]=RND(3)+1
sy[x]=-RND(480)
NEXT
name$=""
WHILE TRUE
IF KEY(14)
name$=MID$(name$, 0, LEN(name$)-1) // Backspace
ELSE
in$=INKEY$()
IF in$<>"" THEN name$=name$+in$
ENDIF
PRINT name$, 0, 100
GOSUB ShowStarfield
SHOWSCREEN
WEND
END
// ------------------------------------------------------------- //
// -=# SHOWSTARFIELD #=-
// ------------------------------------------------------------- //
SUB ShowStarfield:
LOCAL x
FOR x=0 TO 639
c=spd[x]
y=sy[x]
y=y+c
IF y>480 THEN y=0
sy[x]=y
c=c*64 -1
SETPIXEL x, y, RGB(c, c, c)
NEXT
ENDSUB // SHOWSTARFIELD