home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / INKEY.ZIP / INKEY.PRG < prev   
Encoding:
Text File  |  1986-11-10  |  1.0 KB  |  17 lines
  1. *THIS SIMPLE DITTY TELLS YOU WHAT THE VALU RETURNED BY THE INKEY()
  2. *FUNCTION IS FOR YOUR IMPLEMENTATION OF DBASE III ON YOUR HARDWARE
  3. *THE LEFT ARROW, ASCII 19, DOESN'T ALWAYS WORK ON MOST IBM PC'S
  4. @ 19,0 SAY ' Press any key for value returned by inkey() function'
  5. DO WHIL .T.
  6. @ 20,0 CLEA
  7. C=0
  8. DO WHIL C=0
  9. C=INKEY()
  10. ENDD
  11. @ 21,0 SAY 'Value of key pressed->'
  12. @ 21,40 SAY C
  13. WAIT
  14. ENDD@aB$ë"åΦαB$ò \D4¼äI)1tîLRú æ
  15. «IB┼╚ôï"£äiSFç4j4LbäLÜ6Ñ4$hpJ܃8)µ╤Ü71B    3g╬¥7r╚°\Z≡α╙ê"áÖ2σ╩M"UVü┬ΣI"*c╬─è3╦¢:r@îA≤&═ÿ2?`¬¡≥D ▓M╧b¼W/╥¼"ⁿL╪0b┼Aq ┘,╘╠ò»&┼(ñ╠Ö4n@Σ∙ÿÄ£0nµÿ)Ä£7ç╔.πµC'Dî$1    BHû&OêiuΩ*n]L<┤Φö*Cåa█≡╚*O$^qR≈n├"Lû?ƒ~n{"  U╪A╙âF£BN ±DtAT ■IæA1ô∩!ù─Hδ▌ùùjÿi╪`à╞¥ï5÷ÿ 9u\Vφ╡Zf┤qΓg
  16. ò8┌ë)JåZïùßdDlö┬pö1╞ê9₧ªGüä▌_HUävBî╚!N¡╜█l¢┘å¢n╝üαpe'q0ær╠9¥tMt┬wßì7ECWbΣíî₧%û▀;ö─äDR2X4òª"Z^hæÜïÿm╒╒WaìàbYïbt(MOTAEeHt─\
  17. EQEó
  18. └'ƒµíº{vßI;ñαEêáIT,╪αâNXaE∩┼7$ ≡W╘ééα─y ΦÜ`»°í╨▀│]ÖBCí:1*5åf" ≤╣JÆI(
  19. ¢äDBTRANS.DOCéj
  20. Ö⌡z
  22. ¿`╚(Yñ$9éä
  23. ê9p╪üñê)Y@(q┬êö N