Ok˙                                                                             
list                                                                            
999 END                                                                         
1000 ' dump screen with RUN 1000                                                
1010 DEF SEG=&HB800                                                             
1020 OPEN "output.txt" 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                                                                    
                                                                                
2020 REM                                                                        
Ok˙                                                                             
run 1000