home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / 173ADWNF.ZIP / NOTROH-A.SB3 < prev    next >
Encoding:
Text File  |  1990-02-15  |  2.8 KB  |  67 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against C:\CPC17-3A\RBBSSUB3.BAS to produce RBBSSB3-.BAS
  3. * C:\CPC17-3A\RBBSSUB3.BAS:  Date 2-11-1990  Size 114935 bytes
  4. * ------------[ Created 02-14-1990 18:23:55 ]------------
  5. * REPLACING old line(s) by new
  6. 20293 ' $SUBTITLE: 'SendName - send FILENAME using EXEC-PC protocol'
  7. ' $PAGE
  8. '
  9. '  NAME    -- SendName
  10. '
  11. '  INPUTS  --  PARAMETER                    MEANING
  12. '              ZUserIn$()                ARRAY OF FILENAME FOR AUTODOWNLOAD
  13. * ------[ first line different ]------
  14. '              ZAnsIndex                 Index OF FILENAME TO Transfer 'RH021501
  15. '
  16. '  OUTPUTS --  ZAbort                    -1 FOR AN ABORTED ATTEMPT
  17. '
  18. '  PURPOSE -- Send the download filename to user during an autodownload
  19. '
  20.       SUB SendName STATIC
  21. '
  22. '
  23. ' *  Transfer FILENAME TO USER
  24. ' *         PROCESS - SEND USER THE "ALERT" CHARACTER SEQUENCE -- <ESC>OD
  25. ' *                   THEN THIS IS FOLLOWED BY CHARACTER-BY-CHARACTER
  26. ' *                   TRANSMISSION OF THE FILENAME WITH ECHO.  IF ANY OF THE
  27. ' *                   CHARACTERS OF THE FILENMAE ARE GARBLED A SERIES OF
  28. ' *                   <CAN> ARE SENT, OTHERWISE AN <ACK> IS SENT AT
  29. ' *                   COMPLETION AND FILE Transfer BEGINS.
  30. '
  31. '
  32.       ZAbort = ZFalse                    ' RESET ABORT FLAG
  33.       Attempts = 0                       ' RESET COUNT FOR # OF TRANS Attempts
  34. * REPLACING old line(s) by new
  35. 20296 CALL FlushCom(ZWasY$)              ' CLEAR THE COMM BUFFER OF GARBAGE
  36.       IF ZSubParm = -1 THEN _
  37.          EXIT SUB
  38.       CALL PutCom (ZEscape$+"OD")         ' SEND "ALERT" STRING
  39.       IF ZSubParm = -1 THEN _
  40.          EXIT SUB
  41.       IF ZAbort = ZTrue THEN _
  42.          GOTO 20306
  43.       CALL LPrnt("Sending FILENAME -- ",1)
  44.       CALL LPrnt(ZReturnLineFeed$ + CHR$(9),0)
  45.       CALL DelayTime (1)                   ' WAIT 1 SECOND FOR SETUP
  46. '
  47. '               SEND ONE CHARACTER AT A TIME
  48. '
  49. * ------[ first line different ]------
  50.       CALL BreakFileName (ZUserIn$(ZAnsIndex),WasX$,ZOutTxt$,ZWasY$,ZTrue) 'RH021501
  51.       ZOutTxt$ = ZOutTxt$ + ZWasY$ + "=X"                                  'RH021501
  52.       FOR WasX = 1 TO LEN(ZOutTxt$)
  53.          CALL PutCom (MID$(ZOutTxt$,WasX,1))     ' SEND 1 CHARACTER
  54.          IF ZSubParm = -1 THEN _
  55.             EXIT SUB
  56.          IF ZAbort = ZTrue THEN _
  57.             GOTO 20306
  58.          CALL LPrnt(MID$(ZOutTxt$,WasX,1),0)     ' DISPLAY IF NEEDED
  59.          ZDelay! = TIMER + 10            ' SET MAXIMUM TIME TO WAIT FOR Reply
  60.          Char = ZTrue
  61.          WHILE Char = -1
  62.             CALL CheckTime(ZDelay!, TempElapsed!, 1)
  63.             IF TempElapsed! <= 0 THEN _
  64.                GOTO 20300     ' IF ZNo ECHO, CANCEL FILENAME Transfer
  65.             CALL EofComm (Char)
  66.          WEND                 ' JUMP OUT IF CHARACTER IS RECEIVED
  67.