home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / forst / conin.s < prev    next >
Encoding:
Text File  |  1993-10-23  |  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.