home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 October / Chip_1997-10_cd.bin / invex / ozogan / varload.ips < prev    next >
Text File  |  1997-07-13  |  484b  |  18 lines
  1. VAR
  2.    var4 : string = '1. mßje 97';
  3.    var5 : string = 'LIBEREC';
  4. ENDVAR
  5.  
  6. PROCEDURE main
  7.    ConsoleClear;
  8.    WRITELN('NaΦtenφ hodnot prom∞nn²ch ze souboru VARIABLE.VAR');
  9.    LoadVariables('variable.var');
  10.  
  11.    WRITELN;
  12.    WRITELN('var1 = ', IntToStr(var1));
  13.    WRITELN('var2 = ', var2:3);
  14.    WRITELN('var3 = ', var3); {prom∞nnß nebyla deklarovßna}
  15.    WRITELN('var4 = ', var4); {prom∞nnß nebyla p°epsßna}
  16.    WRITELN('var5 = ', var5); {prom∞nnß nebyla zruÜena}
  17. ENDPROC
  18.