home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / HPTDEM.ZIP / HAPRECV.RXC < prev    next >
Text File  |  1992-03-17  |  793b  |  23 lines
  1. /* HAPRECV demo version (c) Copyright HeteroGenius Systems Ltd 1992 */
  2.         /* DEMOCMD -*- DEMOCMD -*- DEMOCMD -*- DEMOCMD */
  3. PARSE UPPER ARG luname,lfname,rfname,fclass,repopt
  4. IF VALUE('HAPLOGON_'luname,'Y','OS2ENVIRONMENT') <> 'Y' THEN
  5.    CALL HAPLOGON luname
  6.  
  7. /* Query the file size and time */
  8. size = STREAM(lfname,'C','QUERY SIZE')
  9. dtim = STREAM(lfname,'C','QUERY DATETIME')
  10.  
  11. IF repopt = 'NOREPL' & dtim ¬= '' THEN DO
  12.    SAY "HDP060I File" lfname "not replaced"
  13.    EXIT 4; END
  14.  
  15. /* Emulate the file transfer */
  16. SAY "HDP051I Receiving" lfname "from" luname "*** SIMULATION ONLY ***"
  17. size = RANDOM(300,10000)
  18. DO size; m=0; END
  19. SAY "HDP006I" size "bytes received"
  20. SAY "HDP003I File transfer complete"
  21. EXIT 0
  22.         /* DEMOCMD -*- DEMOCMD -*- DEMOCMD -*- DEMOCMD */
  23.