home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / rixon.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-01-31  |  384 b   |  15 lines
  1. 10  CLS:PRINT "RIXON MODEM SETUP PROGRAM"
  2. 20  PRINT "Use BREAK to Exit"
  3. 30  PRINT "Enter 2 <CR> to wake modem"
  4. 40  OPEN "COM1:1200,N,8,,CS,DS,CD" AS #1
  5. 50  ON ERROR GOTO 140
  6. 60  B$=INKEY$:IF B$<>"" THEN PRINT #1,B$;
  7. 70  IF EOF(1) THEN 60
  8. 80  A$=INPUT$(LOC(1),#1)
  9. 90  LPF=0
  10. 100  LPF=INSTR(LPF+1,A$,CHR$(10))
  11. 110  IF LPF>0 THEN MID$(A$,LPF,1)="":GOTO 100
  12. 120  PRINT A$;:IF LOC(1)>0 THEN 80
  13. 130  GOTO 60
  14. 140  RESUME
  15.