Download this file
CPUTS(S;SS) [SS=0;++SS<=%S@.WRITEC(S%SS);S] CPUTSXY(S,X,Y) [.GOTOXY(X,Y);CPUTS(S)]