1 COLOR 7,0:CLS
2 LOCATE 4,1:PRINT"----";:LOCATE 1,1
5 COLOR 4,0
10 PRINT STRING$(80, 1);
11 COLOR 0,4
20 PRINT "X";
25 OPEN "output.txt" FOR OUTPUT AS 1
30 PRINT#1, SCREEN(2,2,1), SCREEN(4,1)
40 CLOSE
