)LIST                                                                           
                                                                                
   20 PRINT "Apple IIGS BASIC V1.0 BETA 5.0 28 Jan 2019"                        
   38 PRINT:PRINT "GS BASIC AUTHOR: ";VAR$(BASIC@(0))                           
   39 PRINT:PRINT "CONTRIBUTORS:  ";VAR$(BASIC@(1))                             
   40 PRINT                                                                     
   49 CLEAR 65600                                                               
   50 PRINT "USER MEMORY ALLOCATED ";FRE;" BYTES"                               
   55 PRINT:PRINT "User data seg allocation controlled by 'CLEAR nnnnnn'"       
   57 PRINT "where nnnnnn is the seg size in bytes (approx)"                    
   60 PREFIX 6,"*/TDFS"                                                         
)