home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 561 / forst / lib / conin.s < prev    next >
Encoding:
Text File  |  1990-12-10  |  295 b   |  19 lines
  1. ( conin )
  2.  
  3. decimal
  4.  
  5. : key
  6.   7 a7 dec w! gemdos
  7.   d0 a6 dec w!  0 a6 dec w! ( extend char to long word)
  8.   2 addto a7 ;
  9.  
  10. : key?
  11.   11 a7 dec w! gemdos
  12.   d0 a6 dec w!  0 a6 dec w! ( extend flag to long word)
  13.   2 addto a7 ;
  14.   
  15. : wait  key drop ;
  16.  
  17. : ?key  key?  if wait wait then ;
  18.  
  19.