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