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 / IDENTIFY next >
Text File  |  1996-04-01  |  4KB  |  216 lines
  1.  LCD,$30000,sVARB
  2.  SSET,SVARX,"2400,N,8,1"
  3.  SETCOMM,SVARX
  4.  SET,VAR0,3
  5.  FLUSH,0
  6.  SEND,"AT&F",3
  7.  WAITFOR,"OK",VAR0,GOTOK1
  8.  FLUSH,0
  9.  SEND,"AT&F",3
  10.  WAITFOR,"OK",VAR0,GOTOK1
  11.  FLUSH,0
  12.  SSET,SVARX,"9600,N,8,1"
  13.  SETCOMM,SVARX
  14.  SEND,"AT&F",3
  15.  WAITFOR,"OK",VAR0,GOTOK2
  16.  JUMP,BADPORT
  17. GOTOK2: set,varf,1
  18. GOTOK1: FLUSH,0
  19.  LCD,$30001,sVARB
  20.  SEND,"AT&F",3
  21.  WAITFOR,"OK",VAR0,GOTOK
  22.  JUMP,BADPORT
  23. GOTOK: TRAPCOMM,sVAR0
  24.  FLUSH,0
  25.  SEND,"ATE0",3
  26.  WAITFOR,"OK",VAR0,&NEXT
  27.  FLUSH,0
  28.  SEND,"ATX4",3
  29.  WAITFOR,"OK",VAR0,&NEXT
  30.  TRAPCOMM,sVAR1
  31.  FLUSH,0
  32.  IF,VAR7,=,0,SKIPIT
  33.  LCD,$30002,sVARB
  34.  SEND,"AT+FCLASS=?",3
  35.  WAITFOR,"OK",VAR0,&NEXT
  36.  TRAPCOMM,sVAR2
  37.  SET,VAR6,2
  38.  LOOKFOR,"2",Class2
  39.  SET,VAR6,1
  40.  JUMP,class1
  41. class2: FLUSH,0
  42.  SEND,"AT+FMFR?",3
  43.  WAITFOR,"OK",VAR0,&NEXT
  44.  TRAPCOMM,sVAR3
  45.  FLUSH,0
  46.  SEND,"AT+FMDL?",3
  47.  WAITFOR,"OK",VAR0,&NEXT
  48.  TRAPCOMM,sVAR4
  49.  FLUSH,0
  50.  LCD,$30003,""
  51.  SEND,"AT+FREV?",3
  52.  WAITFOR,"OK",VAR0,&NEXT
  53.  TRAPCOMM,sVAR5
  54.  FLUSH,0
  55.  SEND,"AT+FDCC=?",3
  56.  WAITFOR,"OK",VAR0,&NEXT
  57.  TRAPCOMM,sVAR6
  58.  FLUSH,0
  59.  IF,VAR6,=,2,skipit
  60. class1: FLUSH,1
  61.  SETCOMM,"19200,n,8,1"
  62.  SEND,"AT+FCLASS=1",3
  63.  WAITFOR,"OK",5,&NEXT
  64.  SEND,"AT+FTM=?",3
  65.  WAITFOR,"OK",VAR0,&next
  66.  TRAPCOMM,sVAR7
  67.  FLUSH,0
  68.  SEND,"AT+FRM=?",3
  69.  WAITFOR,"OK",VAR0,&next
  70.  TRAPCOMM,sVAR8
  71.  FLUSH,0
  72.  SEND,"AT&F",3
  73.  FLUSH,1
  74.  SETCOMM,SVARX
  75.  SEND,"AT",3
  76.  WAITFOR,"OK",VAR0,&NEXT
  77.  FLUSH,0
  78.  SEND,"AT&F",3
  79.  WAITFOR,"OK",VAR0,&NEXT
  80.  FLUSH,1
  81. skipit: FLUSH,0
  82.  LCD,$30004,""
  83.  SET,VAR5,0
  84.  SETCOMM,"9600,n,8,1"
  85.  FLUSH,0
  86.  SEND,"AT",3
  87.  WAITON,"OK",VAR0,Maxed,""
  88.  SET,VAR5,1
  89.  SETCOMM,"19200,n,8,1"
  90.  FLUSH,0
  91.  SEND,"AT",3
  92.  WAITON,"OK",VAR0,maxed,""
  93.  SET,VAR5,2
  94. maxed: FLUSH,0
  95.  SETCOMM,SVARX
  96.  FLUSH,0
  97.  SEND,"ATX4",3
  98.  WAITFOR,"OK",VAR0,&next
  99.  FLUSH,0
  100.  LCD,$30005,""
  101.  FLUSH,0
  102.  IF,VARC,=,0,ESOUND
  103.  SEND,"ATM0",3
  104.  WAITFOR,"OK",VAR0,&NEXT
  105.  FLUSH,0
  106. ESOUND: SET,VAR8,0
  107. DTC: OFFHOOK,1
  108.  SEND,"ATL0DT,",0
  109.  IF,VAR8,=,0,NOPREFIX
  110.  SEND,"9,",0
  111. NOPREFIX: SET,VAR1,0
  112.  SEND,",",3
  113. LL: LOOKFOR,"BUSY",TRAPIT
  114.  LOOKFOR,"NO CARRIER",TRAPIT
  115.  LOOKFOR,"NO DIALTONE",TRAPND
  116.  LOOKFOR,"VOICE",TRAPIT
  117.  ADD,VAR1,1
  118.  IF,VAR1,>,10,TRAPIT
  119.  WAIT,1
  120.  JUMP,LL
  121. TRAPND: IF,VAR8,=,1,TRAPIT
  122.  SET,VAR8,1
  123.  FLUSH,1
  124.  JUMP,DTC
  125. TRAPIT: TRAPCOMM,sVAR9
  126. NOOK: OFFHOOK,0
  127.  SETCOMM,SVARX
  128.  FLUSH,0
  129.  LCD,$30006,""
  130.  SEND,"AT",3
  131.  WAIT,1
  132.  FLUSH,0
  133.  SEND,"AT&F",3
  134.  WAITFOR,"OK",VAR0,&next
  135.  FLUSH,0
  136.  SEND,"ATI3",3
  137.  WAITFOR,"OK",VAR0,&next
  138.  TRAPCOMM,sVARA
  139.  FLUSH,0
  140.  IF,VAR7,<>,0,ENHANCE
  141.  SET,VAR0,10
  142.  SEND,"ATI0",3
  143.  WAITFOR,"OK",var0,&next
  144.  TRAPCOMM,SVARB
  145.  FLUSH,0
  146.  SEND,"ATI5",3
  147.  set,varz,0
  148.  set,varq,0
  149. L5: lookfor,"OK",LL5
  150.  lookfor,"eady",R1
  151.  lookfor,"ontinue",R1
  152.  add,varz,1
  153.  wait,1
  154.  if,varz,>,10,LL5
  155.  jump,l5
  156. R1: if,varq,=,0,$endif
  157.  TRAPCOMM,sVARG
  158.  set,varq,1
  159.  endif
  160.  flush,0
  161.  send," ",3
  162.  jump,l5
  163. LL5: if,varq,=,0,$endif
  164.  TRAPCOMM,sVARG
  165.  endif
  166.  FLUSH,0
  167.  JUMP,GOODEX
  168. ENHANCE: SEND,"AT&F",3
  169.  WAITFOR,"OK",VAR0,&next
  170.  FLUSH,0
  171.  LCD,$30008,""
  172.  SET,VAR0,10
  173.  SEND,"ATI0",3
  174.  WAITFOR,"OK",VAR0,&next
  175.  TRAPCOMM,sVARB
  176.  FLUSH,2
  177.  SEND,"ATI1",3
  178.  WAITFOR,"OK",VAR0,&next
  179.  TRAPCOMM,sVARC
  180.  FLUSH,2
  181.  SEND,"ATI2",3
  182.  WAITFOR,"OK",VAR0,&next
  183.  TRAPCOMM,sVARD
  184.  FLUSH,2
  185.  SEND,"ATI3",3
  186.  WAITFOR,"OK",VAR0,&next
  187.  TRAPCOMM,sVARE
  188.  FLUSH,2
  189.  SEND,"ATI4",3
  190.  WAITFOR,"OK",VAR0,&next
  191.  TRAPCOMM,sVARF
  192.  FLUSH,2
  193.  SEND,"ATI5",3
  194.  WAITFOR,"OK",VAR0,&next
  195.  TRAPCOMM,sVARG
  196.  FLUSH,2
  197.  SEND,"ATI6",3
  198.  WAITFOR,"OK",VAR0,&next
  199.  TRAPCOMM,sVARH
  200.  FLUSH,2
  201.  SEND,"ATI7",3
  202.  WAITFOR,"OK",VAR0,&next
  203.  TRAPCOMM,sVARI
  204.  FLUSH,2
  205.  SEND,"AT&V",3
  206.  WAITFOR,"OK",var0,&next
  207.  TRAPCOMM,sVARJ
  208.  FLUSH,2
  209.  LCD,$30007,""
  210.  FLUSH,0
  211.  SEND,"AT&F",3
  212.  WAITFOR,"OK",VAR0,&next
  213.  FLUSH,0
  214. GOODEX: EXIT,0
  215. BADPORT: EXIT,1
  216.