test.txt

来自「H++编译器: 一个仿Pascal语言的编译器」· 文本 代码 · 共 24 行

// Simple example of how to write programs in HS H++ Compiler

Program(Hello,Dos.MZ);
  Const(who,'world');
  Var(yellow,byte,Color.Red);
Begin
  Screen.Clear;
  Cursor.Set(8,0);
  WriteLn(App.Name+' '+who+'!');

  Include('tinc2.txt');
  Include('tinc.txt');

  Const(bye,'Bye then!'+crlf+'...');
  Write(bye);
  yellow = Color.Yellow;
  Write('Cool!',Yellow,10,40);
  Sleep;
  Beep;
  Cursor.Set(11,40);
  Color.Set(Color.Black+ColorBk.White,5);
  Write('Cool!');
  Wait;
End;