var TEKST : string;
SAVEVARIABLE ('AAP$', 'IS EEN AAP.');
TEKST:= REPLACEVARIABLES(TEKST);
TEKST:= _CALCSTRING (TEKST);
PRINTVGA ((wherex-1)*8, (wherey-1)*8, AAP$);
gotoxy (wherex+length(TEKST)-1, wherey);
gotoxy (1, wherey+1);
TEKST:= REPLACEVARIABLES(TEKST);
TEKST:= _CALCSTRING (TEKST);
PRINTVGA ((wherex-1)*8, (wherey-1)*8, "HOEVEEL IS 1 PLUS 1? " );
gotoxy (wherex+length(TEKST)-1, wherey);
READLNVGA (TEKST);
SAVEVARIABLE ('BERT', TEKST);
SAVEVARIABLE ('KOFFIE', '   4.00000');
SHOWIMAGEVGA ('VADER.RAW');
