home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 09_10 / tricks / flipflop.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-06  |  801 b   |  30 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    FLIPFLOP.PAS                        *)
  3. (* ------------------------------------------------------ *)
  4. PROGRAM FlipFlop;
  5.  
  6. {$R-,S-,I-,F-,O-,A-,V-,B-,N-,E-,D-,L-,M 1024,0,0}
  7.  
  8. USES Crt, Dos, Environ;
  9.  
  10. VAR
  11.   b : BOOLEAN;
  12.   s : STRING;
  13.  
  14. BEGIN
  15.   b := SetMasterEnv('flipflop', 'flip.exe');
  16.   WHILE NOT KeyPressed DO BEGIN
  17.     s := GetMasterEnv('flipflop');
  18.     SwapVectors;
  19.     Exec(s, '');
  20.     SwapVectors;
  21.   END;
  22.   IF ReadKey = '' THEN ;
  23.   b := SetMasterEnv('flipflop', '');
  24.   TextColor(LightCyan);
  25.   WriteLn(#13#10#10'Und ich bin der Boß !');
  26.   WHILE ReadKey = '' DO ;
  27. END.
  28. (* ------------------------------------------------------ *)
  29. (*                Ende von FLIPFLOP.PAS                   *)
  30.