vga.txt

一个编译器源代码。用法看里面的“使用说明”

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;