home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / demodisc / tyrant / rest / killyou.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-01-01  |  888 b   |  58 lines
  1. Uses Crt;
  2.  
  3. Var     I : Integer;
  4.  
  5. Procedure Fekete; Assembler;
  6. asm
  7.         mov dx,03c8h
  8.         xor al,al
  9.         out dx,al
  10.         inc dx
  11.         out dx,al
  12.         out dx,al
  13.         out dx,al
  14. end;
  15.  
  16. Procedure Feher; Assembler;
  17. asm
  18.         mov dx,03c8h
  19.         xor al,al
  20.         out dx,al
  21.         inc dx
  22.         mov al,63
  23.         out dx,al
  24.         out dx,al
  25.         out dx,al
  26. end;
  27.  
  28. Procedure Gron; Assembler;
  29. asm
  30.         mov ax,013h
  31.         int 10h
  32. end;
  33.  
  34. Procedure Retrace; Assembler;
  35. asm
  36.           mov     dx,03dah
  37. @y1:      in      al,dx
  38.           test    al,8
  39.           jz      @y1
  40. @y2:      in      al,dx
  41.           test    al,8
  42.           jnz     @y2
  43. end;
  44.  
  45. Begin
  46. Gron;
  47. I:=0;
  48. Repeat
  49. Fekete;
  50. Inc(I);
  51. If I=9 Then Begin
  52.             Feher;
  53.             I:=0;
  54.             End;
  55. Retrace;
  56. Until Keypressed;
  57. While Keypressed Do ReadKey;
  58. End.