10 a                                                                            
20*                                                                             
30                                                                              
Ok˙                                                                             
list                                                                            
10 A                                                                            
20 AUTO                                                                         
999 END                                                                         
1000 N$="output.txt" ' RUN 1000 to 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                                                                    
Ok˙                                                                             
run 1000