home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / comms / term93 / !MicroTnc / !Run < prev    next >
Text File  |  1993-12-16  |  803b  |  29 lines
  1. wimpslot -min 8k -max 8k
  2. Basic
  3.  
  4.    10  ON ERROR PROCerror:END
  5.    11  SYS "OS_CLI","Filer_OpenDir devices:$"
  6.    12  PRINT:PRINT
  7.    20  PRINT"PRESS ESCAPE TO END THE PROGRAM"
  8.    30  SYS "OS_SerialOp",1,0
  9.    31  REM Edit the next two lines to suit your normal baud rate
  10.    32  REM ",6" = 4800 AND ",7" = 9600.
  11.    40  SYS "OS_SerialOp",5,6
  12.    45  SYS "OS_SerialOp",6,6
  13.    50  SYS "OS_Byte",3,0
  14.    51  SYS "OS_Byte",2,2
  15.    60  REPEAT
  16.    70  kp%=INKEY(0)
  17.    80  IF kp%>0 AND kp%<256 SYS "OS_SerialOp",3,kp%:SYS "OS_WriteC",kp%:IF kp%=13 SYS "OS_NewLine"
  18.    90  SYS "OS_SerialOp",4,0 TO ,ip%
  19.   101  SYS "OS_WriteC",ip%
  20.   110  IF ip%=13 SYS "OS_NewLine"
  21.   120  UNTIL FALSE
  22.   130  END
  23.   131  :
  24.   140  DEF PROCerror
  25.   150  SYS "OS_CLI","Filer_CloseDir devices:$"
  26.   160  PRINT REPORT$;" @ ";ERL
  27.   170  ENDPROC
  28. RUN
  29.