home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / oplexamp_z / RUNSCO.OPL < prev    next >
Text File  |  1993-05-25  |  2KB  |  56 lines
  1.  
  2. Ä Area: [FIDO] PSION echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3.   Msg#: 8361                                         Date: 05-24-93  13:24
  4.   From: Bj“rn Felten                                 Read: Yes    Replied: No 
  5.     To: Andy Parkins                                 Mark:                     
  6.   Subj: Was: Emulator -- Now: Running APP's from OPL
  7. ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  8.  -=> Quoting Bj“rn Felten to Andy Parkins <=-
  9.  
  10.  > call the comms app and run a script.
  11.  
  12.  BF> This is exactly what's described in RUNSCO.OPL. Looks like this:
  13.  
  14.  BF> proc runcomm:
  15.  BF> local pid%,fname$(128),timeout&
  16.  BF> fname$="\sco\*.sco"
  17.  BF> timeout&=10
  18.  BF> dInit "Run comms"
  19.  BF> dFile fname$,"Script:",0
  20.  BF> dLong timeout&,"Stop after (secs)",5,300
  21.  BF> if dialog
  22.  BF> pid%=runsco%:(fname$)
  23.  BF> if pid%
  24.  BF> pause timeout&*20
  25.  BF> call($998d,0,0)         rem wClientPosition
  26.  BF> giPrint "Terminating comms..."
  27.  BF> call($0d88,pid%,0,0,0)  rem ProcTerminate
  28.  BF> endif
  29.  BF> pause 40
  30.  BF> endif
  31.  BF> giPrint "Bye..."
  32.  BF> pause 40
  33.  BF> ENDP
  34.  
  35.  BF> PROC runsco%:(sco$)
  36.  BF> rem Execute script sco$ and return pid% if successful
  37.  BF> local pid%
  38.  BF> local cmdl$(128),appname$(128)
  39.  BF> local ret%
  40.  BF> appname$="LOC::C:\APP\COMMS.APP"+chr$(0)
  41.  BF> cmdl$="OComms"+chr$(0)+".SCO "+chr$(0)+sco$+chr$(0)
  42.  BF> ret%=call($0187,addr(appname$)+1,addr(cmdl$),0,0,addr(pid%))
  43.  BF> if ret%<0
  44.  BF> print(err$(ret%))
  45.  BF> pid%=0
  46.  BF> else
  47.  BF> call($0688,pid%,0,0,0,0)
  48.  BF> endif
  49.  BF> return pid%
  50.  BF> ENDP
  51.  
  52.  BF> -!-
  53.  BF>  ! Origin: -=P=I=X=- / Psion Info Xchange (+46-31-960447) (2:203/208)
  54.  
  55.  
  56.