home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / vrac / qvptrw.zip / DATA.Z / PLINE32.DLL / SCRIPT / LOGON < prev   
Text File  |  1996-04-01  |  12KB  |  591 lines
  1. VERSION 2
  2.  lcd,$30009,""
  3.  sset,svaru,"V950915"
  4.  set,varl,-1
  5.  set,varg,0
  6.  set,varx,0
  7. TOP: set,vare,0
  8.  sset,svare,""
  9.  sset,svarv,""
  10.  add,varl,1
  11.  sset,svarj,file(varl)
  12.  ifeof,NOHUP
  13.  sif,svarj,=,"",TOP
  14.  extract,svarj,"|",1,svari
  15.  extract,svarj,"|",2,svard
  16.  sif,svari,=,"*",TOP
  17.  sif,svard,<>,"",$ENDIF
  18.  lcd,svard,""
  19.  endif
  20.  sif,svari,=,"0",FRECOK
  21.  sif,svari,=,"3",$ENDIF
  22.  extract,svarj,"|",6,svar6
  23.  extract,svarj,"|",4,svar3
  24.  extract,svarj,"|",7,svar7
  25.  extract,svarj,"|",14,svarx
  26.  extract,svarj,"|",15,svars
  27.  sset,svarv,svar6
  28.  sif,svarx,=,"R",$ENDIF
  29.  strcat,svarv,"|regfast|"
  30.  sset,svaro,$30010
  31.  endif
  32.  sif,svarx,=,"O",$ENDIF
  33.  strcat,svarv,"|ordfast|"
  34.  sset,svaro,$30011
  35.  endif
  36.  sif,svarx,=,"F",$ENDIF
  37.  strcat,svarv,"|feefast|"
  38.  sset,svaro,$30012
  39.  endif
  40.  strcat,svarv,svaru
  41.  strcat,svarv,"|PIPEHOST.SCR|$DATE|$TIME|"
  42.  strcat,svarv,svar3
  43.  strcat,svarv,"|"
  44.  strcat,svarv,svar7
  45.  strcat,svarv,"|"
  46.  strcat,svarv,svars
  47.  strcat,svarv,"|"
  48.  endif
  49.  sif,svari,=,"3",FRECOK
  50.  sif,svari,=,"S",NOHUP
  51.  sif,svari,=,"R",$ENDIF
  52.  extract,svarj,"|",3,svard
  53.  val,svard,varl
  54.  add,varl,-1
  55.  endif
  56.  jump,TOP
  57. FRECOK: set,varq,varl
  58.  extract,svarj,"|",3,svar0
  59.  extract,svarj,"|",4,svar3
  60.  extract,svarj,"|",5,svar4
  61.  extract,svarj,"|",6,svar6
  62.  extract,svarj,"|",7,svar7
  63.  extract,svarj,"|",8,svari
  64.  val,svari,var3
  65.  extract,svarj,"|",9,svari
  66.  val,svari,var5
  67.  extract,svarj,"|",10,svari
  68.  val,svari,var6
  69.  extract,svarj,"|",11,svari
  70.  val,svari,vard
  71.  extract,svarj,"|",13,svars
  72.  extract,svarj,"|",14,svarw
  73.  extract,svarj,"|",16,svarq
  74.  sif,svarq,<>,"",GOTALT
  75.  sset,svarq,svar3
  76. GOTALT: 
  77.  sendpurge,1
  78.  change_timer,55
  79.  sif,svar6,<>,"",L2OK
  80.  sset,svare,$30013
  81.  set,vare,92
  82.  jump,BADEXIT
  83. L2OK: sif,svar3,<>,"",TS1
  84.  sset,svare,$30014
  85.  set,vare,90
  86.  jump,BADEXIT
  87. TS1: if,var3,<>,0,TS2
  88.  set,var3,60
  89. TS2: jump,ts3
  90. TS3: sif,svar0,<>,"",TS4
  91.  sset,svar0,"2400,N,8,1"
  92. TS4: sif,svar4,<>,"",TS5
  93.  sset,svar4,"AT&F"
  94. TS5: jump,TS6
  95. TS6: jump,TSDONE
  96. TSDONE: SETCOMM,svar0
  97.  set,vara,0
  98. WAIT4AT: DROP_CARRIER,0,DROPCAR
  99.  send,"AT",3
  100.  set,vara,0
  101. LOOKAGN: wait,1
  102.  LOOKFOR,"OK",WAIT1
  103.  LOOKFOR,"0",WAIT1
  104.  add,vara,1
  105.  if,vara,>,3,NORESET
  106.  jump,LOOKAGN
  107. WAIT1: DROP_CARRIER,0,DROPCAR
  108.  if,@carrier,=,0,NOCNOH
  109.  hangup
  110. NOCNOH: send,svar4,3
  111.  waitfor,"OK",5,MODRES2
  112.  hangup
  113.  add,vara,1
  114.  if,vara,>,3,MODRES2
  115.  jump,WAIT1
  116. MODRES2: set,vara,0
  117. MODT2: send,"ATQ0V1&D2&C1",3
  118.  waitfor,"OK",5,FORCED
  119.  hangup
  120.  add,vara,1
  121.  if,vara,>,3,NORESET
  122.  jump,MODT2
  123. NORESET: sset,svare,$30015
  124.  set,vare,91
  125.  jump,BADEXIT
  126. FORCED: send,"AT+FCLASS=0",3
  127.  waitfor,"OK",1,DIAL
  128. DIAL: set,varb,0
  129.  set,varm,0
  130.  set,varn,0
  131.  set,var7,0
  132.  set,var9,0
  133.  add,vart,1
  134. DIALGO: str,vart,svarz
  135.  offhook,1
  136.  set,vara,0
  137.  if,var1,>=,2,USE2ND
  138.  if,var1,<,1,CHKMORE
  139.  setcomm,"2400,N,8,1"
  140. CHKMORE: if,varb,>=,1,USE2ND
  141.  if,var7,>=,1,USE2ND
  142.  if,var9,>=,1,USE2ND
  143.  jump,DIALIT
  144. USE2ND: sset,svar3,svarq
  145.  setcomm,"2400,N,8,1"
  146.  send,"AT",3
  147.  waiton,"OK",3,&NEXT,""
  148. DIALIT: send,svar3,3
  149. LOOP: waiton,"CONNECT",1,&NEXT,""
  150.  lookfor,"CONNECT",CONN
  151.  lookfor,"BUSY",$ENDIF
  152.  add,varb,1
  153.  if,varb,<=,var5,DIALGO
  154.  sset,svare,$30016
  155.  set,vare,80
  156.  jump,BADEXIT
  157.  endif
  158.  lookfor,"NO CARRIER",$ENDIF
  159.  add,var7,1
  160.  if,var7,<=,var5,DIALGO
  161.  sset,svare,$30017
  162.  set,vare,81
  163.  jump,BADEXIT
  164.  endif
  165.  lookfor,"NO DIALTONE",$ENDIF
  166.  sset,svare,$30018
  167.  set,vare,84
  168.  jump,BADEXIT
  169.  endif
  170.  lookfor,"VOICE",$ENDIF
  171.  sset,svare,$30019
  172.  set,vare,83
  173.  jump,BADEXIT
  174.  endif
  175.  lookfor,"login:",START
  176.  add,vara,1
  177.  if,vara,<,var3,LOOP
  178.  add,var9,1
  179.  if,var9,<=,var5,DIALGO
  180.  sset,svare,$30020
  181.  set,vare,82
  182.  jump,BADEXIT
  183. CONN: set,vara,0
  184.  sset,svar1,svar0
  185.  highspeed,0
  186. LOOKB: waiton,"2400",1,&NEXT,""
  187.  lookfor,"login:",START
  188.  add,vara,1
  189.  if,vara,<,10,LOOKB
  190.  jump,START
  191. START: if,@carrier,=,0,LITEM
  192.  DROP_CARRIER,1,DROPCAR
  193. LITEM: set,vara,0
  194.  set,varz,0
  195.  lookfor,"xnlogin:",$ENDIF
  196.  set,varx,1
  197.  endif
  198.  lookfor,"nlogin:",LOGNGIM
  199.  lookfor,"ylogin:",LOGHGIM
  200. UNEWLP: waiton,"login",1,&NEXT,""
  201.  lookfor,"xnlogin:",$ENDIF
  202.  set,varx,1
  203.  endif
  204.  lookfor,"nlogin:",LOGNGIM
  205.  lookfor,"ylogin:",LOGHGIM
  206.  lookfor,"invalid login",UAG
  207.  lookfor,"Command:",GOTCMD
  208.  add,varz,1
  209.  if,varz,<,10,UNEWLP
  210. UAG: set,varz,0
  211.  send,"huh?",1
  212.  add,vara,1
  213.  if,vara,<,4,UNEWLP
  214.  sset,svare,$30021
  215.  set,vare,70
  216.  jump,BADAGAIN
  217. LOGHGIM: sif,svarv,<>,"",$ENDIF
  218.  set,varw,3
  219.  else
  220.  set,varw,1
  221.  endif
  222.  sset,svarv,""
  223.  jump,LOGTHER
  224. LOGNGIM: set,varw,2
  225. LOGTHER: set,varz,0
  226. LOTA: set,vara,0
  227.  lcd,$30022,""
  228.  sif,svarv,<>,"",$ENDIF
  229.  sset,svarn,svarv
  230.  if,varx,=,1,$ENDIF
  231.  strcat,svarn,"X|"
  232.  else
  233.  strcat,svarn,"Z|"
  234.  endif
  235.  str,vart,svarz
  236.  strcat,svarn,svarz
  237.  strcat,svarn,"|"
  238.  str,varg,svarz
  239.  strcat,svarn,svarz
  240.  str,var1,svarz
  241.  strcat,svarn,svarz
  242.  str,varb,svarz
  243.  strcat,svarn,svarz
  244.  str,var7,svarz
  245.  strcat,svarn,svarz
  246.  str,var9,svarz
  247.  strcat,svarn,svarz
  248.  strcat,svarn,"|"
  249.  send,svarn,1
  250.  else
  251.  send,svar6,1
  252.  endif
  253.  sif,svarv,<>,"",FLEFAST
  254. LOGTAG: waiton,"Command:",3,&NEXT,""
  255.  lookfor,"Command:",GOTCMD
  256.  lookfor,"invalid login",UAG
  257.  lookfor,"login:",LOGTHER
  258.  add,vara,1
  259.  if,vara,<,5,LOGTAG
  260.  add,varz,1
  261.  if,varz,<,2,LOTA
  262.  sset,svare,$30023
  263.  set,vare,71
  264.  jump,BADAGAIN
  265. GOTCMD: lcd,$30024,""
  266.  trapcomm,svarz
  267.  extract,svarz,"|",2,svarc
  268.  val,svarc,varz
  269.  substr,"8$R@5G2K)QO",varz,1,svard
  270.  set,vara,0
  271.  sset,svarz,"i1 |"
  272.  strcat,svarz,svard
  273.  strcat,svarz,"|"
  274.  strcat,svarz,svar3
  275.  strcat,svarz,"|"
  276.  strcat,svarz,svar1
  277.  strcat,svarz,"|"
  278.  strcat,svarz,svar6
  279.  strcat,svarz,"|"
  280.  strcat,svarz,svaru
  281.  strcat,svarz,"|PIPEHOST.SCR|$DATE|$TIME|"
  282.  strcat,svarz,svar7
  283.  strcat,svarz,"|"
  284.  strcat,svarz,svarw
  285.  strcat,svarz,"|"
  286.  str,vart,svarx
  287.  strcat,svarz,svarx
  288.  strcat,svarz,"|"
  289.  str,varg,svarx
  290.  strcat,svarz,svarx
  291.  strcat,svarz,"|"
  292.  if,varx,=,1,$ENDIF
  293.  strcat,svarz,"X|"
  294.  else
  295.  strcat,svarz,"Z|"
  296.  endif
  297.  strcat,svarz,svars
  298.  strcat,svarz,"|"
  299.  str,var1,svarx
  300.  strcat,svarz,svarx
  301.  str,varb,svarx
  302.  strcat,svarz,svarx
  303.  str,var7,svarx
  304.  strcat,svarz,svarx
  305.  str,var9,svarx
  306.  strcat,svarz,svarx
  307.  strcat,svarz,"|"
  308. SCMD2: send,svarz,1
  309.  waiton,"Command:",5,&NEXT,""
  310.  lookfor,"Bad command",TCMD2
  311.  lookfor,"Command:",BCMD3
  312. TCMD2: add,vara,1
  313.  if,vara,>,5,NOCMD2
  314.  jump,SCMD2
  315. NOCMD2: sset,svare,$30025
  316.  set,vare,72
  317.  jump,BADAGAIN
  318. BCMD3: trapcomm,svarr
  319. PROCF: if,varw,=,3,FAKEREG
  320.  add,varl,1
  321.  sset,svarj,file(varl)
  322.  ifeof,DONECF
  323.  jump,NOTEOF
  324. FAKEREG: set,varw,1
  325.  extract,svarj,"|",2,svarx
  326.  extract,svarj,"|",12,svard
  327.  extract,svarj,"|",13,svarz
  328.  sset,svarj,"2|"
  329.  strcat,svarj,svarx
  330.  strcat,svarj,"|"
  331.  scrcat,svarj,svard
  332.  strcat,svarj,"|"
  333.  strcat,svarj,svarz
  334.  jump,NOTEOF
  335. DONECF: set,varl,-2
  336.  jump,LOGOFF
  337. NOTEOF: sif,svarj,=,"",PROCF
  338.  extract,svarj,"|",1,svari
  339.  extract,svarj,"|",2,svard
  340.  sif,svari,=,"*",PROCF
  341.  sif,svari,=,"1",SHOWDIS
  342.  sif,svari,=,"2",SHOWDIS
  343.  sif,svari,=,"5",SHOWDIS
  344.  sif,svari,=,"6",SHOWDIS
  345.  sif,svari,=,"B",SHOWDIS
  346.  sif,svari,=,"W",SHOWDIS
  347.  jump,PASTDIS
  348. SHOWDIS: sif,svard,<>,"",$ENDIF
  349.  lcd,svard,""
  350.  endif
  351. PASTDIS: sif,svari,=,"2",DOREG
  352.  sif,svari,=,"0",BACKUPL
  353.  sif,svari,=,"3",BACKUPL
  354.  sif,svari,=,"4",DOORD
  355.  sif,svari,=,"B",DOCMD
  356.  sif,svari,=,"W",PWFOR
  357.  sif,svari,=,"S",BACKUPL
  358.  sif,svari,=,"R",BACKUPL
  359.  sif,svari,=,"5",DOFSR
  360.  jump,PROCF
  361. DOFSR: extract,svarj,"|",3,svarx
  362.  extract,svarj,"|",4,svara
  363.  extract,svarj,"|",9,svarb
  364.  sif,svarx,=,"S",$ENDIF
  365.  if,varx,=,0,$ENDIF
  366.  sset,svar8,"uploadz "
  367.  sset,svart,"zmsend,svara,svarb,0,vare"
  368.  endif
  369.  if,varx,=,1,$ENDIF
  370.  sset,svar8,"uploadx "
  371.  sset,svart,"xmsend,svara,vare"
  372.  endif
  373.  gosub,ZMODEM
  374.  else
  375.  if,varx,=,0,$ENDIF
  376.  sset,svar8,"downloadz "
  377.  sset,svart,"zmrecv,svara,svarb,0,vare"
  378.  endif
  379.  if,varx,=,1,$ENDIF
  380.  sset,svar8,"downloadx "
  381.  sset,svart,"xmrecv,svara,svarb,vare"
  382.  endif
  383.  gosub,ZMODEM
  384.  endif
  385.  jump,PROCF
  386. BACKUPL: add,varl,-1
  387.  jump,LOGOFF
  388. PWFOR: extract,svarj,"|",5,svari
  389.  val,svari,vark
  390.  extract,svarj,"|",3,svari
  391.  extract,svarj,"|",4,svark
  392.  send,svari,1
  393.  set,vara,0
  394. WEGLIV: waiton,svark,1,&NEXT,""
  395.  lookfor,svark,GOTWEW
  396.  lookfor,"Command:",PROCF
  397.  add,vara,1
  398.  if,vara,>,vark,PROCF
  399.  jump,WEGLIV
  400. GOTWEW: extract,svarj,"|",6,svari
  401.  sif,svari,=,"0",PROCF
  402.  sif,svari,=,"1",$ENDIF
  403.  extract,svarj,"|",7,svara
  404.  extract,svarj,"|",8,svarb
  405.  if,varx,=,0,$ENDIF
  406.  sset,svar8,"downloadz "
  407.  sset,svart,"zmrecv,svara,svarb,0,vare"
  408.  endif
  409.  if,varx,=,1,$ENDIF
  410.  sset,svar8,"downloadx "
  411.  sset,svart,"xmrecv,svara,svarb,vare"
  412.  endif
  413.  gosub,STARTGS
  414.  endif
  415.  sif,svari,=,"2",$ENDIF
  416.  extract,svarj,"|",7,svara
  417.  extract,svarj,"|",8,svarb
  418.  if,varx,=,0,$ENDIF
  419.  sset,svar8,"uploadz "
  420.  sset,svart,"zmsend,svara,svarb,0,vare"
  421.  endif
  422.  if,varx,=,1,$ENDIF
  423.  sset,svar8,"uploadx "
  424.  sset,svart,"xmsend,svara,vare"
  425.  endif
  426.  gosub,STARTGS
  427.  endif
  428.  jump,PROCF
  429. DOCMD: set,vara,0
  430. TRYDA: extract,svarj,"|",3,svarz
  431.  send,svarz,1
  432.  waiton,"Command:",5,&NEXT,""
  433.  lookfor,"Bad command",TRYDOC
  434.  lookfor,"procedure...",$ENDIF
  435.  sset,svara,""
  436.  sset,svarb,""
  437.  sset,svart,"zmrecv,svara,svarb,0,vare"
  438.  sset,svar8,"downloadz"
  439.  gosub,STARTGS
  440.  endif
  441.  lookfor,"Command:",PROCF
  442. TRYDOC: add,vara,1
  443.  if,vara,<,3,TRYDA
  444.  sset,svare,$30026
  445.  set,vare,69
  446.  jump,BADAGAIN
  447. FLEFAST: lcd,svaro,""
  448.  extract,svarj,"|",12,svard
  449.  extract,svarj,"|",13,svarz
  450.  gosub,SENDREG
  451.  DROP_CARRIER,0,DROPCAR
  452.  if,vare,=,0,PROCF
  453.  sset,svare,$30030
  454.  set,vare,63
  455.  jump,BADAGAIN
  456. DOREG: set,varv,0
  457.  jump,STARTDO
  458. DOORD: set,varv,1
  459. STARTDO: set,vara,0
  460. STARTR: if,varv,=,0,$ENDIF
  461.  lcd,$30031,""
  462.  send,"reg",1
  463.  else
  464.  lcd,$30032,""
  465.  send,"order",1
  466.  endif
  467.  waiton,"procedure...",5,&NEXT,""
  468.  lookfor,"Bad command",TBC
  469.  lookfor,"procedure...",STARTZ
  470. TBC: add,vara,1
  471.  if,vara,<,3,STARTR
  472.  sset,svare,$30033
  473.  set,vare,64
  474.  jump,BADAGAIN
  475. STARTZ: extract,svarj,"|",3,svard
  476.  extract,svarj,"|",4,svarz
  477.  gosub,SENDREG
  478.  if,vare,=,0,STARTG
  479.  sset,svare,$30034
  480.  set,vare,63
  481.  jump,BADAGAIN
  482. STARTG: set,vara,0
  483. LOOKCAG: waiton,"Command:",10,&NEXT,""
  484.  lookfor,"Bad command",WAKEU
  485.  lookfor,"Command:",GOTC1
  486. WAKEU: send,"record Waking you up...",1
  487.  add,vara,1
  488.  if,vara,<,3,LOOKCAG
  489.  sset,svare,$30035
  490.  set,vare,61
  491.  jump,BADAGAIN
  492. GOTC1: lcd,$30036,""
  493.  jump,PROCF
  494. ZMODEM: set,vara,0
  495. ZMODEMG: send,svar8,0
  496.  send,svarb,1
  497.  waiton,"procedure...",5,&NEXT,""
  498.  lookfor,"Bad command",BADSR
  499.  lookfor,"procedure...",STARTGS
  500. BADSR: add,vara,1
  501.  if,vara,<,3,ZMODEMG
  502.  sset,svare,$30037
  503.  set,vare,65
  504.  jump,BADAGAIN
  505. BSTARTGS: gosub,STARTGS
  506.  jump,PROCF
  507. STARTGS: sif,svar8,=,"downloadz ",WERECV
  508.  sif,svar8,=,"downloadx ",WERECV
  509.  jump,FTD
  510. WERECV: lcd,$30038,svara
  511. FTD: exec_string,svart
  512.  if,vare,=,0,GOODSR
  513.  lcd,$30039,svara
  514.  return
  515. GOODSR: sif,svar8,=,"uploadz ",FILESENT
  516.  sif,svar8,=,"uploadx ",FILESENT
  517.  add,varm,1
  518.  return
  519. FILESENT: add,varn,1
  520.  return
  521. SENDREG: sif,svarz,<>,"1",GOREG
  522.  compress,svard,"$FLECOMP.TMP",vare
  523.  if,vare,<>,0,GOREG
  524.  sset,svard,"$FLECOMP.TMP"
  525. GOREG: if,varx,=,1,$ENDIF
  526.  xmsend,svard,vare
  527.  else
  528.  zmsend,svard,"",0,vare
  529.  endif
  530.  return
  531. LOGOFF: if,@carrier,=,0,OKEXIT
  532.  DROP_CARRIER,1,OKEXIT
  533.  lcd,$30041,""
  534.  set,vara,0
  535. SLOGOFF: send,"exit",1
  536.  waiton,"Goodbye",5,&NEXT,""
  537.  lookfor,"Goodbye",WEHANG
  538.  add,vara,1
  539.  if,vara,>,5,NOLOGOFF
  540.  jump,SLOGOFF
  541. NOLOGOFF: sset,svare,$30042
  542.  set,vare,75
  543.  jump,BADAGAIN
  544. WEHANG: if,@carrier,=,0,OKEXIT
  545.  hangup
  546. OKEXIT: lcd,$30043,""
  547.  set,var1,0
  548.  set,var2,0
  549.  if,varl,<>,-2,TOP
  550.  jump,NOHUP
  551. DROPCAR: OFFHOOK,0
  552.  add,var1,1
  553.  if,var1,>,var6,DIE
  554.  if,var1,=,var6,$ENDIF
  555.  set,varx,1
  556.  endif
  557.  set,varl,varq
  558.  add,varl,-1
  559.  lcd,$30044,""
  560.  add,varg,1
  561.  jump,TOP
  562. BADAGAIN: OFFHOOK,0
  563.  add,var2,1
  564.  if,var2,>,vard,DIE2
  565.  if,var2,=,vard,$ENDIF
  566.  set,varx,1
  567.  endif
  568.  set,varl,varq
  569.  add,varl,-1
  570.  lcd,svare,""
  571.  add,varg,1
  572.  wait,1
  573.  jump,TOP
  574. DIE: set,vare,1
  575.  sset,svare,$30045
  576.  jump,BADEXIT
  577. DIE2: set,vare,3
  578.  sset,svare,$30046
  579.  jump,BADEXIT
  580. BADEXIT: sif,svare,<>,"",BE2ON
  581.  set,vare,99
  582.  sset,svare,$30047
  583. BE2ON: strcat,svaru," "
  584.  lcd,svaru,svare
  585.  if,vare,>,89,NOHUP
  586.  DROP_CARRIER,0,DROPCAR
  587.  if,@carrier,=,0,NOHUP
  588.  hangup
  589. NOHUP: wait,1
  590.  exit,vare
  591.