home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 09_10 / tricks / flip.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-06  |  556 b   |  22 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      FLIP.PAS                          *)
  3. (* ------------------------------------------------------ *)
  4. PROGRAM Flip;
  5.  
  6. {$R-,S-,I-,F-,O-,A+,V-,B-,N-,E-,D-,L-}
  7.  
  8. USES Crt, Environ;
  9.  
  10. VAR
  11.   b : BOOLEAN;
  12.  
  13. BEGIN
  14.   GotoXY(1, 1);
  15.   TextColor(LightRed);
  16.   Write('Ich bin Flip');
  17.   b := SetMasterEnv('flipflop', 'flop.exe');
  18.   Delay(1000);
  19. END.
  20. (* ------------------------------------------------------ *)
  21. (*                Ende von FLIP.PAS                       *)
  22.