span style="color: #808080;">'MUTIKEY FUNCTION - LETS YOU TRAP SEVERAL KEYS AT ONCE (BETTER THAN INKEY$!!)
'
'USAGE:
'  riable=MULTIKEY(KEYNUM)
'WHERE KEYNUM IS THE KEY YOU WANT TO TRAP
'  riable = 1 IF KEY IS DEPRESSED, 0 IF IT ISN'T
'
'CALL KEYTEST(lower,upper)
'Use this to find new keycodes
'(unrem below to test)
 
' CALL KEYTEST(1, 200)
 
'Gives all keynums between 1 & 200
'If the 0 by the number becomes a 1, then the key with that keycode is
'currently being depressed
 
'EMAIL ME AT: huberjjr@nicom.com
'
'HAVE FUN!!!
 
'
' GET SOME KEYS' STATUSES
'TEMINATE WHEN ESCAPE IS PRESSED
'THIS MOVES YOU AROUND
'THE TIMELOOP   RIABLE DELAYS
'MOVEMENT WITHOUT SLOWING DOWN
'INPUT (WITHOUT IT YOU WOULD GO
'WAAAAYYY TOO FAST)
'KEEPS YOU FROM GOING OFF THE SCREEN AND
'MAKING AN ERROR
'CHANGES YOUTR SHAPE WHEN
'YOU HIT SPACE
'UPDATES YOUR POSITION
" "'TELLS ME WHERE I WAS LAST
'LOOP (DUH...) :)
 
'THANX TO Eric Carr FOR FIGURING OUT HOW TO TRAP SEVERAL KEYS AT ONCE
'EVERYTHING ELSE WRITTEN BY ME,              
'\
  SC(E) = E: DU(E) = 1          '|
'|-ERIC CARR'S CODE--------------------\
'|                                     |
  SC(E) = E - 128: DU(E) = 0    '|                                     |
'/                                     |
  FIRSTIME = -1                 '                                      |
'                                      |
                                '                                      |
' So the keyb buffer don't get full     \routine/ \ |
' Get keyboard scan code from port 60h   \lines/  |-/
'         \!!!/   |
' This says what keys are pressed        \!/    /