home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 09_10 / tricks / flop.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-06  |  556 b   |  23 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      FLOP.PAS                          *)
  3. (* ------------------------------------------------------ *)
  4. PROGRAM Flop;
  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(Yellow);
  16.   Write('Ich bin Flop');
  17.   b := SetMasterEnv('flipflop', 'flip.exe');
  18.   Delay(1000);
  19. END.
  20. (* ------------------------------------------------------ *)
  21. (*                 Ende von FLOP.PAS                      *)
  22.  
  23.