home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOM2 / TELE.LBR / GRAPHIC.MZD / GRAPHIC.MOD
Text File  |  2000-06-30  |  2KB  |  70 lines
  1. MODULE Graphic;
  2.  
  3. (* test of some graphics functions for the Televideo 955 terminal *)
  4. (* glenn brooke 6/17/87 *)
  5.  
  6. FROM Terminal IMPORT Highlight, Normal, ClearScreen, GotoXY;
  7. FROM Tele IMPORT BoxScreen,GraphicModeOn,GraphicModeOff, HalfIntensity,
  8.                  FullIntensity, LockKeyboard, UnlockKeyboard,Columns,
  9.                  EraseToEndOfPage,LightBackground,Darkbackground,
  10.                  CursorAttrib, WriteReversed, Underline, ReverseUnderline,
  11.                  Invisible;
  12.  
  13. VAR s : ARRAY [1..50] OF CHAR;
  14.     c : CHAR;
  15.     i : CARDINAL;
  16.     shine, thick : BOOLEAN;
  17.  
  18. PROCEDURE Continue;
  19. BEGIN
  20.   WRITE("Press return to continue...");
  21.   READ(c)
  22. END Continue;
  23.  
  24.  
  25. BEGIN
  26.   ClearScreen;
  27.   Thick := TRUE; shine := FALSE;
  28.   BoxScreen(Thick,shine);
  29.   GotoXY(15,15); Continue;
  30.   ClearScreen;
  31.   Thick := FALSE; shine := TRUE;
  32.   BoxScreen(Thick,shine);
  33.   Gotoxy(15,15); Continue;
  34.   ClearScreen;
  35.   FOR i := 1 TO 23 DO WRITE("******************************************") END;
  36.   GotoXY(3,2); WRITE("I will now erase rest of the screen <<press return>>");
  37.   READ(c);
  38.   EraseToEndOfPage;
  39.   Gotoxy(4,5); Continue;
  40.   WRITELN;
  41.   WriteReversed("   This should appear reversed   ");
  42.   WRITELN;
  43.   Underline;
  44.   WRITE("  And this should be underlined ");
  45.   ReverseUnderline;
  46.   WRITE("  This should be in reverse and underlined  ");
  47.   Gotoxy(25,20);Continue;
  48.   ClearScreen;
  49.   GraphicModeOn;
  50.   WRITELN("ABCDEFGHIJKLMNOPQRSTUVWXYZ");
  51.   GraphicModeOff;
  52.   WRITELN("ABCDEFGHIJKLMNOPQRSTUVWXYZ");
  53.   GotoXY(12,15); WRITE(" Light background <<press return>> "); READ(c);
  54.   LightBackground;
  55.   GotoXY(12,15); WRITE(" Dark background <<press return>> "); READ(c);
  56.   DarkBackground;
  57.   Gotoxy(15,15); Continue;
  58.   HalfIntensity;
  59.   WriteReversed("                                       ");
  60.   WriteReversed("                                       ");
  61.     WriteReversed("                                       ");
  62.       WriteReversed("                                       ");
  63.   GotoXY(12,17); WriteReversed(" This is half intensity");
  64.   FullIntensity;
  65.   WriteReversed("                                       ");
  66.     WriteReversed("                                       ");
  67.       WriteReversed("                                       ");
  68.   WriteReversed("                                       ");
  69.   Gotoxy(12,22); WriteReversed(" This is full intensity");
  70. END Graphic..