home *** CD-ROM | disk | FTP | other *** search
/ PC Underground / UNDERGROUND.ISO / password / td_test.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-07-28  |  867 b   |  48 lines
  1. {$A+,B-,D-,E+,F+,G+,I+,L-,N-,O-,P-,Q-,R-,S+,T-,V+,X+,Y-}
  2. {$M 16384,0,655360}
  3. program SHOW_HOW_TO_DEBUG;
  4.  
  5. uses Crt;
  6.  
  7. var inputvar : word;
  8.     lives    : byte;
  9.     factor   : real;
  10.  
  11. procedure Init_variables;
  12. begin
  13.   lives  := 4;
  14.   factor := 0.27
  15. end;
  16.  
  17. procedure User_input;
  18. begin
  19.   textcolor(14);
  20.   gotoxy(10,3);
  21.   write('                                                     ');
  22.   gotoxy(10,3);
  23.   write('Please enter your new test value : ');
  24.   readln(inputvar);
  25. end;
  26.  
  27. procedure Nonsense_evaluation;
  28. begin
  29.   if (inputvar * factor) < 10 then
  30.     dec(lives);
  31. end;
  32.  
  33. procedure Write_status;
  34. begin
  35.   textcolor(15);
  36.   gotoxy(10,10);
  37.   write('Input : ',inputvar:5,'      ==>    lives : ',lives:3);
  38. end;
  39.  
  40. begin
  41.   clrscr;
  42.   Init_variables;
  43.   repeat
  44.     User_input;
  45.     Nonsense_evaluation;
  46.     Write_status;
  47.   until lives = 0;
  48. end.