home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 17 / ascii.ram < prev    next >
Encoding:
Text File  |  1989-12-29  |  1.6 KB  |  59 lines
  1. (* ------------------------------------------------------ *)
  2. (*                       ASCII.RAM                        *)
  3. (*          Verwaltung der ASCII-Tabelle im RAM           *)
  4. (* ------------------------------------------------------ *)
  5.  
  6. VAR
  7.   SavePage : Screen;
  8.   AsciiTable : Window;
  9.  
  10. PROCEDURE SaveScreen(CurrentPage : ScreenPtr);
  11.   (* sichert den Bildschirminhalt bei "CurrentPage".      *)
  12. BEGIN
  13.   SavePage := CurrentPage^;
  14. END;
  15.  
  16. PROCEDURE RestoreScreen(CurrentPage : ScreenPtr);
  17.   (* restauriert den Bildschirminhalt bei "CurrentPage".  *)
  18. BEGIN
  19.   CurrentPage^ := SavePage;
  20. END;
  21.  
  22. PROCEDURE DisplayAsciiTable(CurrentPage : ScreenPtr);
  23.   (* bringt die Ascii-Tabelle auf den Bildschirm.         *)
  24. VAR
  25.   Row : BYTE;
  26. BEGIN
  27.   FOR Row:=1 TO RowSize DO BEGIN
  28.     Move(AsciiTable[Row,1], CurrentPage^[YOfs+Row-1,XOfs],
  29.          ColSize*2);
  30.   END;
  31. END;
  32.  
  33. PROCEDURE AllocateBuffers;
  34.   (* Anforderung und Vorbereitung der benötigten Puffer.  *)
  35. BEGIN
  36.   { Nichts zu tun! }
  37. END;
  38.  
  39. PROCEDURE DeallocateBuffers;
  40.   (* benötigte Puffer bei Programmende wieder freigeben.  *)
  41. BEGIN
  42.   { Nichts zu tun! }
  43. END;
  44.  
  45. PROCEDURE SetTable(Col, Row, Attr : BYTE; Ch : CHAR);
  46.   (* belegt die Tabellenposition (Col,Row) mit dem Zei-
  47.      chen "Ch" und dem Videoattribut "Attr".              *)
  48. BEGIN
  49.   AsciiTable[Row,Col] := Word(Attr)*256 + Ord(Ch)
  50. END;
  51.  
  52. PROCEDURE PrepareExit;
  53.   (* Maßnahmen für das Installationsende treffen.         *)
  54. BEGIN
  55.   { Nichts zu tun! }
  56. END;
  57. (* ------------------------------------------------------ *)
  58. (*                  Ende von ASCII.RAM                    *)
  59.