home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1990-12-29 | 247 b | 6 lines |
- Screen Open 0,320,200,4,Lowres : Paper 0 : Pen 2 : Cls : Break Off
- Do
- K$=Inkey$
- If K$<>"" Then Locate 0,15 : Print "Character:";K$ : Locate 15,15 : Print "Scancode:";Scancode : Curs Off : Wait 100 : Cls : Clear Key
- If Mouse Key=3 Then End
- Loop