10 ' test LISTing programs with LF and long lines                               
15 FOR I = 1 TO 23: PRINT STRING$(80,"#");:NEXT                                 
20 REM 890123456789012345678901234567890123456789012345678901234567890123456789 
30 REM 8901234567890123456789012345678901234567890123456789012345678901234567890
40 REM 8901234567890123456789012345678901234567890123456789012345678901234567890
1                                                                               
50 REM abcde                                                                    
fgh                                                                             
ij                                                                              
60 LOCATE 1,1: LIST                                                             
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########################################################################
################################################################################