home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / amos / lserial_demo / examples / lserial / linkeys.amos / linkeys.amosSourceCode
AMOS Source Code  |  1992-07-13  |  241b  |  12 lines
  1. Print "Press BACKSPACE to quit"
  2. Print "Try Cursor and CTRL-letters"
  3. Do 
  4.    A$= Extension_11_00DA 
  5.    If Asc(A$)=8 Then End 
  6.    If A$<>""
  7.       For I=1 To Len(A$)
  8.          Print Asc(Mid$(A$,I,1));" ";
  9.       Next I
  10.       Print 
  11.    End If 
  12. Loop