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