home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / maksiu / extensions / lserv25d.lha / 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