home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / RESETMOD.BAS < prev    next >
BASIC Source File  |  1993-11-07  |  247b  |  16 lines
  1. SUB RESETMODEM
  2. IF Comline = 0 THEN GOTO ENDRESETMODEMSUB
  3. Delay 2
  4. PRINT #5, "+";
  5. FOR y = 1 TO 500: NEXT y
  6. PRINT #5, "+";
  7. FOR y = 1 TO 500: NEXT y
  8. PRINT #5, "+";
  9. Delay 2
  10. PRINT #5, "ATH"
  11. CLOSE #5
  12. Comline = 0
  13. ENDRESETMODEMSUB:
  14. END SUB
  15.  
  16.