home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / P_FOTRAN.LZH / DEMOS.FOR / XBIOS.FOR < prev    next >
Text File  |  1987-12-31  |  1KB  |  37 lines
  1. *     This program demonstartes how the Atari XBIOS and BIOS routines
  2. *     can be accessed from Prospero Fortran
  3. *
  4. *     Date: 29 Oct 1987
  5. *     Copyright (c) 1987 Prospero Software
  6. *
  7.  
  8.       PROGRAM xBiosDemo
  9.       INTEGER*2 parmblock(0:2)
  10.       INTEGER*4 xbios, bios
  11.       INTEGER oldvals, dummy
  12.  
  13.       parmblock(0) = 35              ! XBIOS keyboard repeat function
  14.       parmblock(1) = -1              ! Get old keyboard repeats
  15.       parmblock(2) = -1       
  16.       oldvals = xbios(parmblock)
  17.  
  18.       parmblock(1) = 1               ! delay before first repeat
  19.       parmblock(2) = 1               ! delay before re-repeat
  20.       dummy = xbios(parmblock)       ! set new values
  21.  
  22.       print *, 'Try typing something'
  23.       read (*,*,err=10) i
  24. 10    CONTINUE
  25.  
  26. *     Restore old keyboard repeat values
  27.  
  28.       parmblock(0) = 35
  29.       parmblock(1) = (oldvals .AND. $FF00)/256
  30.       parmblock(2) = oldvals .AND. $FF
  31.       oldvals = xbios(parmblock)       ! Put it back to normal
  32.  
  33.       END 
  34.  
  35.  
  36.     
  37.