home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 October / Chip_1997-10_cd.bin / invex / ozogan / varsave.ips < prev   
Text File  |  1997-07-13  |  417b  |  18 lines
  1. VAR
  2.    var1 : integer = 1;
  3.    var2 : integer = 2;
  4.    var3 : string = 'OZOGAN';
  5.    var4 : string = 'KLONDAIK';
  6. ENDVAR
  7.  
  8. PROCEDURE main
  9.    ConsoleClear;
  10.    WRITELN('Uklo₧enφ hodnot prom∞nn²ch do souboru VARIABLE.VAR');
  11.    SaveVariables('variable.var');
  12.    WRITELN();
  13.    WRITELN('var1 = ', IntToStr(var1));
  14.    WRITELN('var2 = ', var2:3);
  15.    WRITELN('var3 = ', var3);
  16.    WRITELN('var4 = ', var4);
  17. ENDPROC
  18.