home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C128CPM / GRC128.ZIP / INC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-15  |  2.9 KB  |  146 lines
  1.     type
  2.          tsrec = record
  3.            xs:integer;
  4.            ys: integer;
  5.            xe:integer;
  6.            ye:integer;
  7.            car:array[1..8] of char;
  8.            linv:byte;
  9.            lover:byte
  10.          end;
  11.  
  12.  
  13.          nstr=record
  14.            xw:integer;
  15.            yw:integer;
  16.            xq:integer;
  17.            yq:integer;
  18.            wt:integer;
  19.            sinv:byte;
  20.            sover:byte
  21.           end;
  22.  
  23.          feld=array [1..4096] of byte;
  24.  
  25.          ttextrec = record
  26.             inv:integer;
  27.             offs:integer;
  28.             zeile:integer;
  29.             spalte:integer;
  30.             addr:integer
  31.           end;
  32.  
  33.         xrec = record
  34.            kx:integer;
  35.            ky:integer
  36.         end;
  37.  
  38.         xyz = array [1..8] of char;
  39.  
  40. var  ndd:nstr;
  41.      speicher:feld;
  42.      lrec:xrec;
  43.      textrec:ttextrec;
  44.      s,e:integer;
  45.      srec,erec:tsrec;
  46.      x,y:integer;
  47.      mytext:array [1..11] of char;
  48.  
  49. procedure GrFOn;
  50.    begin
  51.    bdos (153);
  52.    end;
  53.  
  54. procedure GrSOn;
  55.    begin
  56.    bdos (154);
  57.    end;
  58.  
  59. procedure GrFOff;
  60.    begin
  61.    bdos (155);
  62.    end;
  63.  
  64. procedure SetPix(xp,yp:integer);
  65.    begin
  66.    lrec.kx:=xp;lrec.ky:=yp;
  67.    bdos(156,addr(lrec))
  68.    end;
  69.  
  70. procedure EraPix (xp,yp:integer);
  71.     begin
  72.     lrec.kx:=xp;lrec.ky:=yp;
  73.     bdos(157,addr(lrec))
  74.     end;
  75.  
  76.  
  77. procedure ClrGr;
  78.     begin
  79.     bdos (158)
  80.     end;
  81.  
  82. procedure SaveWi(x1,y1,x2,y2:integer);
  83.     begin
  84.     ndd.xw:=x1;
  85.     ndd.yw:=y1;
  86.     ndd.xq:=x2;
  87.     ndd.yq:=y2;
  88.     ndd.wt:=addr(speicher);
  89.     bdos(159,addr(ndd))
  90.     end;
  91.  
  92.  
  93. procedure LoadWi(x1,y1,x2,y2:integer;inv:byte;over:byte);
  94.     begin
  95.     ndd.xw:=x1;
  96.     ndd.yw:=y1;
  97.     ndd.xq:=x2;
  98.     ndd.yq:=y2;
  99.     ndd.wt:=addr(speicher);
  100.     ndd.sinv:=inv;
  101.     ndd.sover:=over;
  102.     bdos(160,addr(ndd))
  103.     end;
  104.  
  105. procedure SaveFW (x1,y1,x2,y2:integer;xk:xyz);
  106.     begin
  107.     srec.xs:=x1;
  108.     srec.ys:=y1;
  109.     srec.xe:=x2;
  110.     srec.ye:=y2;
  111.     srec.car[1]:=xk[1];srec.car[2]:=xk[2];
  112.     srec.car[3]:=xk[3];srec.car[4]:=xk[4];
  113.     srec.car[5]:=xk[5];srec.car[6]:=xk[6];
  114.     srec.car[7]:=xk[7];srec.car[8]:=xk[8];
  115.     bdos(161,addr(srec))
  116.     end;
  117.  
  118. procedure LoadFW (x1,y1,x2,y2:integer;xk:xyz;inv:byte;over:byte);
  119.     begin
  120.     srec.xs:=x1;
  121.     srec.ys:=y1;
  122.     srec.xe:=x2;
  123.     srec.ye:=y2;
  124.     srec.car[1]:=xk[1];srec.car[2]:=xk[2];
  125.     srec.car[3]:=xk[3];srec.car[4]:=xk[4];
  126.     srec.car[5]:=xk[5];srec.car[6]:=xk[6];
  127.     srec.car[7]:=xk[7];srec.car[8]:=xk[8];
  128.     srec.linv:=inv;srec.lover:=over;
  129.     bdos(162,addr(srec))
  130.     end;
  131.  
  132. procedure GFtext (i,o,z,s,a :integer);
  133.     begin
  134.     textrec.inv:=i;
  135.     textrec.offs:=o;
  136.     textrec.spalte:=s;
  137.     textrec.zeile:=z;
  138.     textrec.addr:=a;
  139.     bdos(163,addr(textrec))
  140.    end;
  141.  
  142. procedure scrdump (i:integer);
  143.    begin
  144.    bdos (164,i)
  145.    end;
  146.