home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / cross_464.lzh / Cross / txt / CPCPrint.mod < prev    next >
Text File  |  1991-03-09  |  1KB  |  84 lines
  1. IMPLEMENTATION MODULE CPCPrint;
  2.  
  3.  
  4.  
  5. FROM ASCII IMPORT nul;
  6. FROM CPCGads IMPORT ForceShowCommands;
  7. FROM CPCGlobal IMPORT screen,window,rastport,yoff,topaz;
  8. FROM Graphics IMPORT SetAPen,SetFont,TextFontPtr,ClearScreen;
  9. FROM IntuiIO IMPORT ScreenRastPort;
  10. IMPORT IntuiIO;
  11. FROM Intuition IMPORT ScreenPtr,ShowTitle;
  12. FROM Strings IMPORT Length;
  13. FROM SYSTEM IMPORT ADR,CAST;
  14.  
  15.  
  16.  
  17. CONST
  18.  xsize=8;
  19.  ysize=8;
  20.  spcs="                                                                    ";
  21.  
  22.  
  23. VAR initialized: BOOLEAN;
  24.     cursorx,cursory: INTEGER;
  25.  
  26.  
  27.  
  28. PROCEDURE Print(a: ARRAY OF CHAR; n: INTEGER);
  29.  BEGIN
  30.   SetFont(rastport,topaz);
  31.   IntuiIO.Print(window,a,cursorx*xsize,cursory*ysize+yoff);
  32.   cursory:=cursory+n;
  33.   IF n=0 THEN
  34.    cursorx:=cursorx+Length(a);
  35.   ELSE
  36.    cursorx:=0;
  37.   END;
  38.  END Print;
  39.  
  40.  
  41.  
  42. PROCEDURE PrintAtC(cx,cy: INTEGER; c: CHAR);
  43.  VAR
  44.   a: ARRAY[0..1] OF CHAR;
  45.  BEGIN
  46.   cursorx:=cx;
  47.   cursory:=cy;
  48.   a[0]:=c;
  49.   a[1]:=nul;
  50.   Print(a,0);
  51.  END PrintAtC;
  52.  
  53.  
  54.  
  55. PROCEDURE PrintAtS(cx,cy: INTEGER; a: ARRAY OF CHAR);
  56.  BEGIN
  57.   cursorx:=cx;
  58.   cursory:=cy;
  59.   Print(a,0);
  60.  END PrintAtS;
  61.  
  62.  
  63.  
  64. PROCEDURE ClrLine(l: INTEGER);
  65.  BEGIN
  66.   PrintAtS(0,l,spcs);
  67.   cursorx:=0;
  68.  END ClrLine;
  69.  
  70.  
  71.  
  72. PROCEDURE Cls;
  73.  BEGIN
  74.   ClearScreen(ScreenRastPort(screen));
  75.   cursorx:=0;
  76.   cursory:=0;
  77.   ShowTitle(CAST(ScreenPtr,screen),TRUE);
  78.   ForceShowCommands;
  79.  END Cls;
  80.  
  81.  
  82.  
  83. END CPCPrint.
  84.