DataMuseum.dk

top - metrics - download

    Length: 1152 (0x480)
    Types: TextFile
    Names: »NYTRANS.PAS«

└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »NYTRANS.PAS« 

TextFile

repeat
     rqlocator(2,xin,yin,status,term,xout,yout)
   until (term=32) or (term=33);
   if term=32 then begin ene:=1;anden:=2;end
   else begin ene:=2;anden:=1;end;
   
   repeat
        mi:=0;
        repeat
            rest(.ene.):=pix(.soejle+mi.);
            rest(.anden.):=temp(.gemindex+mi.);
            for mj:=1 to 7 do
            begin
               farve(.1,mj.):=(rest(.1.) shl 14) shr 14;
               rest(.1.):=rest(.1.) shr 2;
            end;
            for mj:=1 to 7 do
            begin
                farve(.2,mj.):=(rest(.2.) shl 14) shr 14;
                rest(.2.):=rest(.2.) shr 2;
            end;
            if rest(.2.)=0 then rest(.2.):=rest(.1.);
            for mj:=7 downto 1 do
            begin
              if farve(.2,mj.)=0 then
                rest(.2.):=4*rest(.2.)+farve(.1,mj.)
              else
                rest(.2.):=4*rest(.2.)+farve(.2,mj.);
            end;
          pix(.soejle+mi.):=rest(.2.);
          mi:=mi+1;
        until mi=hoejde-1;
        soejle:=soejle+videolinier;
        gemindex:=gemindex+hoejde;
   until soejle>xmax;
«eof»