vga.txt

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

Program(VGA,Dos.MZ);
	Var(X,Word,25);
	Var(Y,Word,50);
	Var(Color,Byte,1);
	Var(Count,Byte,100);
Begin
	Screen.SetMode(VGA);

	@@:
		Count =- 1;
		Y =+ 1;
		X = 25;
		Color =+ 1;
		Count.Set(100);
		Plot:
			X =+ 1;
			Screen.Pixel(X,Y,Color);
		Loop(Plot);
	If Count > 0 Goto @B;

	Wait;
End;