WheatleyHDD

GiGi Actual code on Pascal

Dec 5th, 2021
990
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program GiGi_Song;
  2. var color, gigi, you, _end: integer; us, together, homeIsWhatWeEarn: boolean; game: string;
  3. procedure print(a: string);
  4. begin
  5.     writeln(a)
  6. end;
  7. procedure trace(a: string);
  8. begin
  9.     writeln(a)
  10. end;
  11. label me;
  12. begin
  13.     gigi := 2;
  14.     you := 1;
  15.     us := true;
  16.     together := true;
  17.     homeIsWhatWeEarn := true;
  18.  
  19.     color := 0;
  20.    
  21.     print('Cry');
  22.     trace('Sorrow');
  23.    
  24.     _end := gigi - you;
  25.    
  26.     writeln('Whats a game with no pleasure ?');
  27.     readln(game);
  28.    
  29.     repeat
  30.         if (homeIsWhatWeEarn = true) then
  31.             goto me;
  32.     until us = together;
  33.    
  34.     me: writeln('Press RETURN')
  35. end.
RAW Paste Data