home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTH / 4THPROG.ZIP / KYBD_EX.FOR < prev    next >
Encoding:
Text File  |  1985-10-30  |  640 b   |  25 lines
  1. $TITLE:'  EXAMPLE OF USING POLKBD'
  2.       INTEGER*2 STAT
  3.       CHARACTER*1 CHR
  4. C
  5. C   PROGRAM CONTINUES IN AN INFINITE LOOP UNTIL
  6. C   THE 'C' KEY IS PRESSED.
  7. C
  8.       I=0
  9. 10    I=I+1
  10.       CALL POLKBD(STAT)
  11.       IF(STAT.EQ.0) GO TO 10
  12.       CALL INKEY(CHR)
  13.       IF(CHR.EQ.'C') THEN
  14.         WRITE(0,*)' I=',I
  15.         WRITE(0,'(A\)')' DO YOU WANT TO QUIT (Y/N): '
  16.         CALL GETCHR(CHR)
  17.         WRITE(0,*) CHR
  18.         IF((CHR.EQ.'Y').OR.(CHR.EQ.'y')) STOP
  19.         I=0
  20.         GO TO 10
  21.       ELSE
  22.         GO TO 10
  23.       ENDIF
  24.       END
  25.