1 Varia$ = $Inkey: if Varia$ = "" then goto 1
You next need to look up the keyboard scan codesfor the arrow keys. You can find a listing of keyboard scan codes under the table of contents in QBASIC. However,here are the ones for the arrow keys:
72 Up 77 Right75 Left 80 Down
$INKEY returns the keyboard scan code with a nullcharacter in front of it, so you have to check for it in the following manner
if Varia$ = Chr$(0) + Chr$(72) then GoUp
The arrow keys return 2 bytes. The first is CHR$(0), and the second corresponds to the above letters (CAPITAL). I don't recall which letter is which arrow, but it should be easy enough to figure out.
Hope this helps!
It looks like you're new here. If you want to get involved, click one of these buttons!