5 KEY OFF
10 COLOR 7,0:CLS:PRINT "1": PRINT "2"
20 COLOR 0,7
30 LOCATE 25,1:PRINT TAB(80);" ";
40 LOCATE 10,1
50 N$="tab80.dat": GOSUB 1000
999 END
1000 ' dump screen
1010 DEF SEG=&HB800
1020 OPEN N$ FOR OUTPUT AS 1
1030 FOR Y = 0 TO 24
1040 FOR X = 0 TO 79
1050 PRINT #1, CHR$(PEEK(2*(Y*80+X)));
1060 NEXT
1065 PRINT #1, ""
1070 NEXT
1080 CLOSE 1
1090 RETURN

