#B
.J
NEW
   10 *NAME SENDER
   20 REM Phil Wheeler -- 1/8/89 -- Copyright 1989
   30 REM Program to send a file to the comm port with linefeeds
   40 REM at the end of each line.  Primary use is to ease
   50 REM uploads when using Terminal ([]V) for Z88 communications.
   60 REM Note that linefeeds in file (e.g., downloaded PC file) can give
   70 REM double spacing. To eliminate, load into Pipedream
   80 REM and resave to menu with plain text option.
   90 REM USAGE: Load SENDER to Basic, then log on in Terminal and 
  100 REM and specify an ASCII upload (U A FILE.EXT) specify NO ECHO.
  110 REM (Echo is provided by SENDER)
  120 REM After prompts say to, go to BASic ([]B) and run SENDER.  Specify
  130 REM the ASCII file you want upload.  When finished, the
  140 REM the program will take you back to Terminal
  150 REM
  160 B$=CHR$(1)+"B":FL$=CHR$(1)+"F"
  170 ON ERROR GOTO 260
  180 CLS:M=1:PRINT B$"Z88 File Comm File SENDER"B$
  190 PRINT "File to Send <ENTER to end>: ";:INPUTF$
  200 IF F$="" THEN CLS:END
  210 F=OPENIN(F$):P=OPENOUT(":COM.0")
  220 INPUT#F,H$
  230 PRINT#P,H$:BPUT#P,10:PRINTH$
  240 IF EOF#F THEN GOTO 290
  250 GOTO 220
  260 IF ERL=80 THEN PRINT:PRINTCHR$(7),"Bad File Name!":END
  270 PRINT:PRINT CHR$(7),"Error Number ";ERR;" at Line Number ";ERL:CLOSE#F:END
  280 REM Close file, send ^C and go back to Terminal
  290 BPUT#P,26:BPUT#P,3:CLOSE#0
  300 *CLI #V