📄 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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -