home *** CD-ROM | disk | FTP | other *** search
/ Languages Around the World / LanguageWorld.iso / language / greek / edtgreek / solid.pas < prev    next >
Pascal/Delphi Source File  |  1989-09-14  |  413b  |  29 lines
  1. program solid;
  2.  
  3.   type
  4.     regs = record
  5.       case integer of
  6.         1: (al,ah,bl,bh,cl,ch,dl,dh:    byte);
  7.         2: (ax,bx,cx,dx:                integer;
  8.             bp,si,di,ds,es,flags:       integer);
  9.       end;
  10.  
  11. var
  12.   r: regs;
  13.  
  14. procedure solid_cursor;
  15.  
  16. begin
  17.   r.ah := 3;
  18.   r.bh := 0;
  19.   intr($10,r);
  20.   r.ah := 1;
  21.   r.ch := 0;
  22.   intr($10,r);
  23. end;
  24.  
  25. begin
  26.   solid_cursor;
  27. end.
  28.  
  29.