Program Name: Heath.Pas Author: Jerome F. Jankura Description: Heath.Paó  provideó aî interfacå betweeî thå Heath/Zenitè 1¹ terminaì anä Pascaì programs® Procedureó provideä include: REVERSEº Thió procedurå ió invokeä tï puô thå H-1¹ intï itó         reverså  (Blacë  characters¬  whitå  background©  displaù         mode.      NORMALº  Thió  procedurå ió invokeä tï puô thå H-1¹ iî  thå         normal (Black background, white characters) display mode. PUT25º  Thió procedurå enableó thå twenty-fiftè linå oî thå         H-1¹  terminaì anä positionó thå cursoò aô thå  beginninç         of the twenty-fifth line. SAVECURSORº  Thió procedurå instructó thå H-1¹ tï storå thå         currenô  cursoò positioî iî itó  internaì  memory®  Thió         commanä ió useä bù thå procedurå whicè enableó writinç tï         the twenty-fifth line on the terminal. RESTORECURSORº  Thió  procedurå restoreó thå cursoò tï  thå         positioî  whicè  waó storeä bù thå SAVECURSOÒ  procedure®         Thió procedurå musô bå invokeä bù thå useò prograí  afteò         writinç  thå twenty-fiftè linå beforå normaì CRÔ  displaù         will occur. PUTCURSORº  Thió procedurå allowó positionihç thå cursoò aô         anù  locatioî oî thå CRÔ screen®  Thå procedurå  acceptó         twï  parameteró  (integer)®  Thå firsô ió  thå  verticaì         positioî  oæ thå cursor®  Acceptablå valueó rangå froí ±         tï 25®  Thå seconä parameteò ió thå horizontaì  positioî         oæ thå cursor® Acceptablå valueó rangå froí ± tï 80® Nï         range checking is performed in the interests of speed. GETCURSORº  Thió  procedurå returnó thå coordinateó oæ  thå         currenô positioî oæ thå cursor®  GETCURSOÒ mighô bå useä         bù  menõ  driveî  softwarå tï returî thå  selectioî  codå         requested by an operator. CLEARLINEº  Thió procedurå eraseó thå currenô linå froí thå         screeî  anä positionó thå cursoò aô thå beginninç oæ  thå         current line. CLEARSCREENº  Thió  procedurå eraseó thå entirå screeî  anä         puts the cursor in the home position. CLEARTOPº  Thió  procedurå erases thå uppeò portioî oæ  thå         screen from the current position of the cursor. CLEARBOTTOMº Thió procedurå eraseó thå loweò portioî oæ thå         screen from the current position of the cursor. Š EOLº  Thió  procedurå  performó thå eraså tï  enä  oæ  linå         function¬  clearinç thå linå froí thå currenô positioî oæ         thå  cursoò tï thå enä oæ line®  Cursoò positioî remainó         the same. EBLº  Thió  procedurå  eraseó  thå currenô  linå  froí  thå         currenô  cursoò  positioî tï thå beginninç oæ  thå  line®         Cursoò  positioî  ió  thå samå  afteò  thå  operatioî  aó         before. FUNCTKEYº  Thió functioî scanó thå incominç datá streaí foò         aî  escapå  keù  ($1B© anä returnó  thå  characteò  whicè         immediatelù followó it® Thå functioî keys¬ cursoò posit         ioninç  keys¬  anä otheò keyó oæ thå numeriã keyboarä caî         bå seô tï generatå escapå sequences®  Thió functioî  re         turnó  thå  uniquå  keystrokå  generateä  bù  thå  escapå         sequence.