Download this file
1 2 3 4
CLRSCR() [STD.CPUTC(27);STD.CPUTC('E')] GOTOXY(X,Y) [STD.CPUTC(27);STD.CPUTC('Y');STD.CPUTC(Y+31);STD.CPUTC(X+31)] CPUTS(S;SS) [SS=0;++SS<=%S@STD.CPUTC(S%SS);S] CPUTSXY(S,X,Y) [GOTOXY(X,Y);CPUTS(S)]