VT100/tests/Test1.mod

MODULE Test1;

IMPORT Strings, STextIO, NumberIO;

VAR
    str : ARRAY [0..9] OF CHAR;
    str1 : ARRAY[1..10] OF CHAR;
    str2 : ARRAY[0..10] OF CHAR;

BEGIN
    str := "123456789";
    STextIO.WriteString(str);
    STextIO.WriteLn;
    Strings.Delete(str,0,1);
    STextIO.WriteString(str);
    STextIO.WriteLn;

    str1 := "123456789";
    STextIO.WriteString(str1);
    STextIO.WriteLn;
    Strings.Delete(str1,0,1);
    STextIO.WriteString(str1);
    STextIO.WriteLn;

    str2 := "e[#;#R";
    Strings.Delete(str2,0,2);
    STextIO.WriteString(str2);
    STextIO.WriteLn;
    NumberIO.WriteCard(Strings.Length(str2),5);
    STextIO.WriteLn;
    Strings.Delete(str2,Strings.Length(str2) -1 ,1);
    STextIO.WriteString(str2);
    STextIO.WriteLn;


END Test1.