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