5748190 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n break0.bas
   1: 10 KEY 15, CHR$(4 + 128 + 32 + 64) + CHR$(70): ON KEY(15) GOSUB 2000: KEY(15) ON
   2: 20 KEY 16, CHR$(4 + 128) + CHR$(70): ON KEY(16) GOSUB 2000: KEY(16) ON
   3: 30 KEY 17, CHR$(4 + 128 + 32) + CHR$(70): ON KEY(17) GOSUB 2000: KEY(17) ON
   4: 40 KEY 18, CHR$(4 + 128 + 64) + CHR$(70): ON KEY(18) GOSUB 2000: KEY(18) ON
   5: 50 KEY 19, CHR$(4 + 1) + CHR$(70): ON KEY(19) GOSUB 2000: KEY(19) ON
   6: 60 KEY 22, CHR$(4 + 64) + CHR$(70): ON KEY(22) GOSUB 2000: KEY(22) ON
   7: 70 KEY 23, CHR$(4 + 32) + CHR$(46): ON KEY(23) GOSUB 2000: KEY(23) ON
   8: 80 KEY 24, CHR$(4 + 64) + CHR$(46): ON KEY(24) GOSUB 2000: KEY(24) ON
   9: 100 KEY 25, CHR$(4 + 32 + 64) + CHR$(46): ON KEY(25) GOSUB 2000: KEY(25) ON
  10: 110 IF INKEY$ = CHR$(13) THEN END ELSE 10
  11: 
  12: 
  13: 2000 RETURN
  14:
5748191 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:00:37