! Example of how to get information from a modem                              
00005 BEGIN                                                                   
00010 OPEN (1) "TY"                                                           
00020 REM PRINT (1) "ATDTEOQ1&C2"                                             
00030 PRINT (1) "ATDT135,94350003"                                            
00035 WAIT 5                                                                  
00040 INPUT (1,TIM=60,ERR=00100) R$;                                          
      PRINT R$;                                                               
      GOTO 00040                                                              
00050 PRINT "HIT ctrl-x TO BREAK"                                             
00055 PRINT (1) "+++",                                                        
00056 PRINT (1) "ATH"                                                         
00100 PRINT "Timed out waiting for a response"                                
00999 END