DataMuseum.dk

top - metrics - download

    Length: 1408 (0x580)
    Types: TextFile
    Names: »602P.PAS«

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

TextFile

program printer602tjekker;

(* Hovedideen er taget fra den medfølgende printermanual !  *)
(* På min printer skriver den et tilfældigt antal linier
   for så at gå fuldstændig 'død'. Desuden laver den også
   de velkendte 'flueben'.  *)
   


(*$U+*)
type
  reg_type=record
            ax,bx,cx,dx,bp,si,di,ds,es,flags : integer
           end;
var
  reg                                   : reg_type;
  n,m                                   : integer;
  
procedure reserver_printer;

begin
  reg.ax:=41+256;swint($28,reg);
 end;

procedure frigiv_printer;

begin
  reg.ax:=41+512;swint($28,reg);
end;

begin
 write(clrhom);
 gotoxy(35,10);
 write('tryk en tast');
 repeat until keypress;
 write(clrhom);
 gotoxy(35,10);
 write('Der skrives nu !');
 reserver_printer;
 write(lst,@28);          (* 72 dots pr inch *)
 write(lst,@27@45);       (* unidirection *)
 write(lst,@3);           (* printeren skal skrive grafik ! *)
 for n:=1 to 40 do        (* 40 linier   *)
   begin
   for m:=1 to 60 do      (* med 60 kasser i hver. *)
     begin
       write(lst,@127@65@65@65@65@65@127);          (* kasse *)
     end;
   write(lst,@3@14);      (* 14/144 lpi cr/lf *)
   end; 
 write(lst,@3@2);         (* grafik farvel *)
 write(lst,@24);          (* cancel *)
 frigiv_printer;
end.

«eof»