Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
pSIMPLETRON 1.4 - SIMPLETRON.pas

SIMPLETRON.pas

Caricato da: NOVA99
Scarica il programma completo

  1. program SIMPLETRON;
  2.  
  3. uses LMS, crt;
  4.  
  5. var sn:char;
  6.  
  7. procedure MAIN; forward;
  8. procedure redo; forward;
  9. procedure randomcolor; forward;
  10.  
  11. procedure redo;
  12. begin
  13.            
  14.             writeln;writeln;
  15.             writeln('*** PRESS: ***');
  16.             writeln('*** ''0'' TO CLOSE SIMPLETRON     ***');
  17.             writeln('*** ''1'' TO REPEAT THE EXECUTION ***');
  18.             writeln('*** ANY KEY TO LOAD A NEW PROGRAM ***');
  19.  
  20.             sn:=readkey;
  21.            
  22.             if sn = '1' then
  23.             begin
  24.            
  25.                 writeln;writeln;writeln;writeln;
  26.                 ExeInstr;
  27.        
  28.                 redo;
  29.        
  30.             end
  31.             else
  32.             begin
  33.        
  34.                 if (sn<>'0') then
  35.                 begin
  36.                     MAIN;
  37.                 end;
  38.        
  39.             end;
  40.        
  41. end;
  42.  
  43. procedure MAIN;
  44. begin
  45.  
  46.      randomcolor;
  47.      
  48.      Caption;
  49.  
  50.      GetInstr;
  51.  
  52.      if InstrOK then
  53.      begin
  54.             ExeInstr;
  55.        
  56.             redo;
  57.    
  58.             if (sn<>'0') AND (sn<>'1') then
  59.             begin
  60.                 MAIN;
  61.             end;
  62.      end
  63.      else
  64.      begin
  65.      
  66.              writeln;writeln;
  67.              writeln('*** PRESS: ***');
  68.              writeln('*** ''0'' TO CLOSE SIMPLETRON     ***');
  69.              writeln('*** ANY KEY TO LOAD A NEW PROGRAM ***');
  70.  
  71.              sn:=readkey;
  72.    
  73.              if (sn <> '0') then MAIN;
  74.    
  75.      end;
  76.      
  77.      clrscr;
  78.      
  79. end;
  80.  
  81. procedure randomcolor;
  82.  
  83. var color:byte;
  84.  
  85. begin
  86.  
  87.     randomize;
  88.      
  89.     repeat
  90.      
  91.         color := random(16);  //SELEZIONE CASUALE DEL COLORE
  92.      
  93.         randomize;
  94.  
  95.     until color<>7;  //PER EVITARE CHE IL TESTO SIA DEL COLORE DELLO SFONDO DEL TERMINALE (BIANCO) 'COLOR' DEVE ESSERE DIVERSO DA 7
  96.      
  97.     textcolor(color);
  98.    
  99. end;
  100.  
  101. begin
  102.  
  103.     MAIN;
  104.    
  105.     NormVideo;
  106.  
  107. end.