home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 January
/
Chip_1997-01_cd.bin
/
dirwin
/
data.z
/
PLINE32.DLL
/
SCRIPT
/
LOGON
< prev
Wrap
Text File
|
1996-03-15
|
12KB
|
592 lines
VERSION 2
lcd,$30009,""
sset,svaru,"V950915"
set,varl,-1
set,varg,0
if,varr,<>,0,TOP
set,varr,3
TOP: set,vare,0
sset,svare,""
sset,svarv,""
add,varl,1
sset,svarj,file(varl)
ifeof,NOHUP
sif,svarj,=,"",TOP
extract,svarj,"|",1,svari
extract,svarj,"|",2,svard
sif,svari,=,"*",TOP
sif,svard,<>,"",$ENDIF
lcd,svard,""
endif
sif,svari,=,"0",FRECOK
sif,svari,=,"3",$ENDIF
extract,svarj,"|",6,svar6
extract,svarj,"|",4,svar3
extract,svarj,"|",7,svar7
extract,svarj,"|",14,svarx
extract,svarj,"|",15,svars
sset,svarv,svar6
sif,svarx,=,"R",$ENDIF
strcat,svarv,"|regfast|"
sset,svaro,$30010
endif
sif,svarx,=,"O",$ENDIF
strcat,svarv,"|ordfast|"
sset,svaro,$30011
endif
sif,svarx,=,"F",$ENDIF
strcat,svarv,"|feefast|"
sset,svaro,$30012
endif
strcat,svarv,svaru
strcat,svarv,"|PIPEHOST.SCR|$DATE|$TIME|"
strcat,svarv,svar3
strcat,svarv,"|"
strcat,svarv,svar7
strcat,svarv,"|"
strcat,svarv,svars
strcat,svarv,"|"
endif
sif,svari,=,"3",FRECOK
sif,svari,=,"S",NOHUP
sif,svari,=,"R",$ENDIF
extract,svarj,"|",3,svard
val,svard,varl
add,varl,-1
endif
jump,TOP
FRECOK: set,varq,varl
extract,svarj,"|",3,svar0
extract,svarj,"|",4,svar3
extract,svarj,"|",5,svar4
extract,svarj,"|",6,svar6
extract,svarj,"|",7,svar7
extract,svarj,"|",8,svari
val,svari,var3
extract,svarj,"|",9,svari
val,svari,var5
extract,svarj,"|",10,svari
val,svari,var6
extract,svarj,"|",11,svari
val,svari,vard
extract,svarj,"|",13,svars
extract,svarj,"|",14,svarw
extract,svarj,"|",16,svarq
sif,svarq,<>,"",GOTALT
sset,svarq,svar3
GOTALT:
sendpurge,1
change_timer,55
sif,svar6,<>,"",L2OK
sset,svare,$30013
set,vare,92
jump,BADEXIT
L2OK: sif,svar3,<>,"",TS1
sset,svare,$30014
set,vare,90
jump,BADEXIT
TS1: if,var3,<>,0,TS2
set,var3,60
TS2: jump,ts3
TS3: sif,svar0,<>,"",TS4
sset,svar0,"2400,N,8,1"
TS4: sif,svar4,<>,"",TS5
sset,svar4,"AT&F"
TS5: jump,TS6
TS6: jump,TSDONE
TSDONE: SETCOMM,svar0
set,vara,0
WAIT4AT: DROP_CARRIER,0,DROPCAR
send,"AT",varr
set,vara,0
LOOKAGN: wait,1
LOOKFOR,"OK",WAIT1
LOOKFOR,"0",WAIT1
add,vara,1
if,vara,>,3,NORESET
jump,LOOKAGN
WAIT1: DROP_CARRIER,0,DROPCAR
if,@carrier,=,0,NOCNOH
hangup
NOCNOH: send,svar4,varr
waitfor,"OK",5,MODRES2
hangup
add,vara,1
if,vara,>,3,MODRES2
jump,WAIT1
MODRES2: set,vara,0
MODT2: send,"ATQ0V1&D2&C1",varr
waitfor,"OK",5,FORCED
hangup
add,vara,1
if,vara,>,3,NORESET
jump,MODT2
NORESET: sset,svare,$30015
set,vare,91
jump,BADEXIT
FORCED: send,"AT+FCLASS=0",varr
waitfor,"OK",1,DIAL
DIAL: set,varb,0
set,varm,0
set,varn,0
set,var7,0
set,var9,0
add,vart,1
DIALGO: str,vart,svarz
offhook,1
set,vara,0
if,var1,>=,2,USE2ND
if,var1,<,1,CHKMORE
setcomm,"2400,N,8,1"
CHKMORE: if,varb,>=,1,USE2ND
if,var7,>=,1,USE2ND
if,var9,>=,1,USE2ND
jump,DIALIT
USE2ND: sset,svar3,svarq
setcomm,"2400,N,8,1"
send,"AT",varr
waiton,"OK",3,&NEXT,""
DIALIT: send,svar3,varr
LOOP: waiton,"CONNECT",1,&NEXT,""
lookfor,"CONNECT",CONN
lookfor,"BUSY",$ENDIF
add,varb,1
if,varb,<=,var5,DIALGO
sset,svare,$30016
set,vare,80
jump,BADEXIT
endif
lookfor,"NO CARRIER",$ENDIF
add,var7,1
if,var7,<=,var5,DIALGO
sset,svare,$30017
set,vare,81
jump,BADEXIT
endif
lookfor,"NO DIALTONE",$ENDIF
sset,svare,$30018
set,vare,84
jump,BADEXIT
endif
lookfor,"VOICE",$ENDIF
sset,svare,$30019
set,vare,83
jump,BADEXIT
endif
lookfor,"login:",START
add,vara,1
if,vara,<,var3,LOOP
add,var9,1
if,var9,<=,var5,DIALGO
sset,svare,$30020
set,vare,82
jump,BADEXIT
CONN: set,vara,0
sset,svar1,svar0
highspeed,0
LOOKB: waiton,"2400",1,&NEXT,""
lookfor,"login:",START
add,vara,1
if,vara,<,10,LOOKB
jump,START
START: if,@carrier,=,0,LITEM
DROP_CARRIER,1,DROPCAR
LITEM: set,vara,0
set,varz,0
lookfor,"xnlogin:",$ENDIF
set,varx,1
endif
lookfor,"nlogin:",LOGNGIM
lookfor,"ylogin:",LOGHGIM
UNEWLP: waiton,"login",1,&NEXT,""
lookfor,"xnlogin:",$ENDIF
set,varx,1
endif
lookfor,"nlogin:",LOGNGIM
lookfor,"ylogin:",LOGHGIM
lookfor,"invalid login",UAG
lookfor,"Command:",GOTCMD
add,varz,1
if,varz,<,10,UNEWLP
UAG: set,varz,0
send,"huh?",1
add,vara,1
if,vara,<,4,UNEWLP
sset,svare,$30021
set,vare,70
jump,BADAGAIN
LOGHGIM: sif,svarv,<>,"",$ENDIF
set,varw,3
else
set,varw,1
endif
sset,svarv,""
jump,LOGTHER
LOGNGIM: set,varw,2
LOGTHER: set,varz,0
LOTA: set,vara,0
lcd,$30022,""
sif,svarv,<>,"",$ENDIF
sset,svarn,svarv
if,varx,=,1,$ENDIF
strcat,svarn,"X|"
else
strcat,svarn,"Z|"
endif
str,vart,svarz
strcat,svarn,svarz
strcat,svarn,"|"
str,varg,svarz
strcat,svarn,svarz
str,var1,svarz
strcat,svarn,svarz
str,varb,svarz
strcat,svarn,svarz
str,var7,svarz
strcat,svarn,svarz
str,var9,svarz
strcat,svarn,svarz
strcat,svarn,"|"
send,svarn,1
else
send,svar6,1
endif
sif,svarv,<>,"",FLEFAST
LOGTAG: waiton,"Command:",3,&NEXT,""
lookfor,"Command:",GOTCMD
lookfor,"invalid login",UAG
lookfor,"login:",LOGTHER
add,vara,1
if,vara,<,5,LOGTAG
add,varz,1
if,varz,<,2,LOTA
sset,svare,$30023
set,vare,71
jump,BADAGAIN
GOTCMD: lcd,$30024,""
trapcomm,svarz
extract,svarz,"|",2,svarc
val,svarc,varz
substr,"8$R@5G2K)QO",varz,1,svard
set,vara,0
sset,svarz,"i1 |"
strcat,svarz,svard
strcat,svarz,"|"
strcat,svarz,svar3
strcat,svarz,"|"
strcat,svarz,svar1
strcat,svarz,"|"
strcat,svarz,svar6
strcat,svarz,"|"
strcat,svarz,svaru
strcat,svarz,"|PIPEHOST.SCR|$DATE|$TIME|"
strcat,svarz,svar7
strcat,svarz,"|"
strcat,svarz,svarw
strcat,svarz,"|"
str,vart,svarx
strcat,svarz,svarx
strcat,svarz,"|"
str,varg,svarx
strcat,svarz,svarx
strcat,svarz,"|"
if,varx,=,1,$ENDIF
strcat,svarz,"X|"
else
strcat,svarz,"Z|"
endif
strcat,svarz,svars
strcat,svarz,"|"
str,var1,svarx
strcat,svarz,svarx
str,varb,svarx
strcat,svarz,svarx
str,var7,svarx
strcat,svarz,svarx
str,var9,svarx
strcat,svarz,svarx
strcat,svarz,"|"
SCMD2: send,svarz,1
waiton,"Command:",5,&NEXT,""
lookfor,"Bad command",TCMD2
lookfor,"Command:",BCMD3
TCMD2: add,vara,1
if,vara,>,5,NOCMD2
jump,SCMD2
NOCMD2: sset,svare,$30025
set,vare,72
jump,BADAGAIN
BCMD3: trapcomm,svarr
PROCF: if,varw,=,3,FAKEREG
add,varl,1
sset,svarj,file(varl)
ifeof,DONECF
jump,NOTEOF
FAKEREG: set,varw,1
extract,svarj,"|",2,svarx
extract,svarj,"|",12,svard
extract,svarj,"|",13,svarz
sset,svarj,"2|"
strcat,svarj,svarx
strcat,svarj,"|"
scrcat,svarj,svard
strcat,svarj,"|"
strcat,svarj,svarz
jump,NOTEOF
DONECF: set,varl,-2
jump,LOGOFF
NOTEOF: sif,svarj,=,"",PROCF
extract,svarj,"|",1,svari
extract,svarj,"|",2,svard
sif,svari,=,"*",PROCF
sif,svari,=,"1",SHOWDIS
sif,svari,=,"2",SHOWDIS
sif,svari,=,"5",SHOWDIS
sif,svari,=,"6",SHOWDIS
sif,svari,=,"B",SHOWDIS
sif,svari,=,"W",SHOWDIS
jump,PASTDIS
SHOWDIS: sif,svard,<>,"",$ENDIF
lcd,svard,""
endif
PASTDIS: sif,svari,=,"2",DOREG
sif,svari,=,"0",BACKUPL
sif,svari,=,"3",BACKUPL
sif,svari,=,"4",DOORD
sif,svari,=,"B",DOCMD
sif,svari,=,"W",PWFOR
sif,svari,=,"S",BACKUPL
sif,svari,=,"R",BACKUPL
sif,svari,=,"5",DOFSR
jump,PROCF
DOFSR: extract,svarj,"|",3,svarx
extract,svarj,"|",4,svara
extract,svarj,"|",9,svarb
sif,svarx,=,"S",$ENDIF
if,varx,=,0,$ENDIF
sset,svar8,"uploadz "
sset,svart,"zmsend,svara,svarb,0,vare"
endif
if,varx,=,1,$ENDIF
sset,svar8,"uploadx "
sset,svart,"xmsend,svara,vare"
endif
gosub,ZMODEM
else
if,varx,=,0,$ENDIF
sset,svar8,"downloadz "
sset,svart,"zmrecv,svara,svarb,0,vare"
endif
if,varx,=,1,$ENDIF
sset,svar8,"downloadx "
sset,svart,"xmrecv,svara,svarb,vare"
endif
gosub,ZMODEM
endif
jump,PROCF
BACKUPL: add,varl,-1
jump,LOGOFF
PWFOR: extract,svarj,"|",5,svari
val,svari,vark
extract,svarj,"|",3,svari
extract,svarj,"|",4,svark
send,svari,1
set,vara,0
WEGLIV: waiton,svark,1,&NEXT,""
lookfor,svark,GOTWEW
lookfor,"Command:",PROCF
add,vara,1
if,vara,>,vark,PROCF
jump,WEGLIV
GOTWEW: extract,svarj,"|",6,svari
sif,svari,=,"0",PROCF
sif,svari,=,"1",$ENDIF
extract,svarj,"|",7,svara
extract,svarj,"|",8,svarb
if,varx,=,0,$ENDIF
sset,svar8,"downloadz "
sset,svart,"zmrecv,svara,svarb,0,vare"
endif
if,varx,=,1,$ENDIF
sset,svar8,"downloadx "
sset,svart,"xmrecv,svara,svarb,vare"
endif
gosub,STARTGS
endif
sif,svari,=,"2",$ENDIF
extract,svarj,"|",7,svara
extract,svarj,"|",8,svarb
if,varx,=,0,$ENDIF
sset,svar8,"uploadz "
sset,svart,"zmsend,svara,svarb,0,vare"
endif
if,varx,=,1,$ENDIF
sset,svar8,"uploadx "
sset,svart,"xmsend,svara,vare"
endif
gosub,STARTGS
endif
jump,PROCF
DOCMD: set,vara,0
TRYDA: extract,svarj,"|",3,svarz
send,svarz,1
waiton,"Command:",5,&NEXT,""
lookfor,"Bad command",TRYDOC
lookfor,"procedure...",$ENDIF
sset,svara,""
sset,svarb,""
sset,svart,"zmrecv,svara,svarb,0,vare"
sset,svar8,"downloadz"
gosub,STARTGS
endif
lookfor,"Command:",PROCF
TRYDOC: add,vara,1
if,vara,<,3,TRYDA
sset,svare,$30026
set,vare,69
jump,BADAGAIN
FLEFAST: lcd,svaro,""
extract,svarj,"|",12,svard
extract,svarj,"|",13,svarz
gosub,SENDREG
DROP_CARRIER,0,DROPCAR
if,vare,=,0,PROCF
sset,svare,$30030
set,vare,63
jump,BADAGAIN
DOREG: set,varv,0
jump,STARTDO
DOORD: set,varv,1
STARTDO: set,vara,0
STARTR: if,varv,=,0,$ENDIF
lcd,$30031,""
send,"reg",1
else
lcd,$30032,""
send,"order",1
endif
waiton,"procedure...",5,&NEXT,""
lookfor,"Bad command",TBC
lookfor,"procedure...",STARTZ
TBC: add,vara,1
if,vara,<,3,STARTR
sset,svare,$30033
set,vare,64
jump,BADAGAIN
STARTZ: extract,svarj,"|",3,svard
extract,svarj,"|",4,svarz
gosub,SENDREG
if,vare,=,0,STARTG
sset,svare,$30034
set,vare,63
jump,BADAGAIN
STARTG: set,vara,0
LOOKCAG: waiton,"Command:",10,&NEXT,""
lookfor,"Bad command",WAKEU
lookfor,"Command:",GOTC1
WAKEU: send,"record Waking you up...",1
add,vara,1
if,vara,<,3,LOOKCAG
sset,svare,$30035
set,vare,61
jump,BADAGAIN
GOTC1: lcd,$30036,""
jump,PROCF
ZMODEM: set,vara,0
ZMODEMG: send,svar8,0
send,svarb,1
waiton,"procedure...",5,&NEXT,""
lookfor,"Bad command",BADSR
lookfor,"procedure...",STARTGS
BADSR: add,vara,1
if,vara,<,3,ZMODEMG
sset,svare,$30037
set,vare,65
jump,BADAGAIN
BSTARTGS: gosub,STARTGS
jump,PROCF
STARTGS: sif,svar8,=,"downloadz ",WERECV
sif,svar8,=,"downloadx ",WERECV
jump,FTD
WERECV: lcd,$30038,svara
FTD: exec_string,svart
if,vare,=,0,GOODSR
lcd,$30039,svara
return
GOODSR: sif,svar8,=,"uploadz ",FILESENT
sif,svar8,=,"uploadx ",FILESENT
add,varm,1
return
FILESENT: add,varn,1
return
SENDREG: sif,svarz,<>,"1",GOREG
compress,svard,"$FLECOMP.TMP",vare
if,vare,<>,0,GOREG
sset,svard,"$FLECOMP.TMP"
GOREG: if,varx,=,1,$ENDIF
xmsend,svard,vare
else
zmsend,svard,"",0,vare
endif
return
LOGOFF: if,@carrier,=,0,OKEXIT
DROP_CARRIER,1,OKEXIT
lcd,$30041,""
set,vara,0
SLOGOFF: send,"exit",1
waiton,"Goodbye",5,&NEXT,""
lookfor,"Goodbye",WEHANG
add,vara,1
if,vara,>,5,NOLOGOFF
jump,SLOGOFF
NOLOGOFF: sset,svare,$30042
set,vare,75
jump,BADAGAIN
WEHANG: if,@carrier,=,0,OKEXIT
hangup
OKEXIT: lcd,$30043,""
set,var1,0
set,var2,0
if,varl,<>,-2,TOP
jump,NOHUP
DROPCAR: OFFHOOK,0
add,var1,1
if,var1,>,var6,DIE
if,var1,=,var6,$ENDIF
set,varx,1
endif
set,varl,varq
add,varl,-1
lcd,$30044,""
add,varg,1
jump,TOP
BADAGAIN: OFFHOOK,0
add,var2,1
if,var2,>,vard,DIE2
if,var2,=,vard,$ENDIF
set,varx,1
endif
set,varl,varq
add,varl,-1
lcd,svare,""
add,varg,1
wait,1
jump,TOP
DIE: set,vare,1
sset,svare,$30045
jump,BADEXIT
DIE2: set,vare,3
sset,svare,$30046
jump,BADEXIT
BADEXIT: sif,svare,<>,"",BE2ON
set,vare,99
sset,svare,$30047
BE2ON: strcat,svaru," "
lcd,svaru,svare
if,vare,>,89,NOHUP
DROP_CARRIER,0,DROPCAR
if,@carrier,=,0,NOHUP
hangup
NOHUP: wait,1
exit,vare