It looks like you're new here. If you want to get involved, click one of these buttons!
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!