home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 15 / boot-disc-1997-11.iso / Store / qkview / Data.z / PLINE32.DLL / SCRIPT / IDENTIFY next >
Text File  |  1996-12-01  |  4KB  |  226 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,$30006,""
  101.  SET,VAR9,0
  102.  SEND,"AT",3
  103.  WAIT,1
  104.  FLUSH,0
  105.  SEND,"AT&F",3
  106.  WAITFOR,"OK",VAR0,&next
  107.  FLUSH,0
  108.  SEND,"ATI3",3
  109.  WAITFOR,"OK",VAR0,&next
  110.  TRAPCOMM,sVARA
  111.  LOOKFOR,"Sportster 33600",SPORTS
  112.  JUMP,SPORTS2
  113. SPORTS: SEND,"AT&F1",3
  114.  SET,VAR9,1
  115.  WAITFOR,"OK",VAR0,&next
  116. SPORTS2: FLUSH,0
  117.  LCD,$30005,""
  118.  FLUSH,0
  119.  IF,VARC,=,0,ESOUND
  120.  SEND,"ATM0",3
  121.  WAITFOR,"OK",VAR0,&NEXT
  122.  FLUSH,0
  123. ESOUND: SET,VAR8,0
  124. DTC: OFFHOOK,1
  125.  SEND,"ATL0DT,",0
  126.  IF,VAR8,=,0,NOPREFIX
  127.  SEND,"9,",0
  128. NOPREFIX: SET,VAR1,0
  129.  IF,VAR9,=,1,CRLFFIX
  130.  SEND,",",3
  131.  JUMP,LL
  132. CRLFFIX: SEND,",",1
  133. LL: LOOKFOR,"BUSY",TRAPIT
  134.  LOOKFOR,"NO CARRIER",TRAPIT
  135.  LOOKFOR,"NO DIALTONE",TRAPND
  136.  LOOKFOR,"NO DIAL TONE",TRAPND
  137.  LOOKFOR,"VOICE",TRAPIT
  138.  ADD,VAR1,1
  139.  IF,VAR1,>,10,TRAPIT
  140.  WAIT,1
  141.  JUMP,LL
  142. TRAPND: IF,VAR8,=,1,TRAPIT
  143.  SET,VAR8,1
  144.  FLUSH,1
  145.  JUMP,DTC
  146. TRAPIT: TRAPCOMM,sVAR9
  147. NOOK: OFFHOOK,0
  148.  SETCOMM,SVARX
  149.  FLUSH,0
  150.  IF,VAR7,<>,0,ENHANCE
  151.  SET,VAR0,10
  152.  SEND,"ATI0",3
  153.  WAITFOR,"OK",var0,&next
  154.  TRAPCOMM,SVARB
  155.  FLUSH,0
  156.  SEND,"ATI5",3
  157.  set,varz,0
  158.  set,varq,0
  159. L5: lookfor,$30048,LL5
  160.  lookfor,"eady",R1
  161.  lookfor,"ontinue",R1
  162.  add,varz,1
  163.  wait,1
  164.  if,varz,>,10,LL5
  165.  jump,l5
  166. R1: if,varq,=,0,$endif
  167.  TRAPCOMM,sVARG
  168.  set,varq,1
  169.  endif
  170.  flush,0
  171.  send," ",3
  172.  jump,l5
  173. LL5: if,varq,=,0,$endif
  174.  TRAPCOMM,sVARG
  175.  endif
  176.  FLUSH,0
  177.  JUMP,GOODEX
  178. ENHANCE: SEND,"AT&F",3
  179.  WAITFOR,"OK",VAR0,&next
  180.  FLUSH,0
  181.  LCD,$30008,""
  182.  SET,VAR0,10
  183.  SEND,"ATI0",3
  184.  WAITFOR,"OK",VAR0,&next
  185.  TRAPCOMM,sVARB
  186.  FLUSH,2
  187.  SEND,"ATI1",3
  188.  WAITFOR,"OK",VAR0,&next
  189.  TRAPCOMM,sVARC
  190.  FLUSH,2
  191.  SEND,"ATI2",3
  192.  WAITFOR,"OK",VAR0,&next
  193.  TRAPCOMM,sVARD
  194.  FLUSH,2
  195.  SEND,"ATI3",3
  196.  WAITFOR,"OK",VAR0,&next
  197.  TRAPCOMM,sVARE
  198.  FLUSH,2
  199.  SEND,"ATI4",3
  200.  WAITFOR,"OK",VAR0,&next
  201.  TRAPCOMM,sVARF
  202.  FLUSH,2
  203.  SEND,"ATI5",3
  204.  WAITFOR,"OK",VAR0,&next
  205.  TRAPCOMM,sVARG
  206.  FLUSH,2
  207.  SEND,"ATI6",3
  208.  WAITFOR,"OK",VAR0,&next
  209.  TRAPCOMM,sVARH
  210.  FLUSH,2
  211.  SEND,"ATI7",3
  212.  WAITFOR,"OK",VAR0,&next
  213.  TRAPCOMM,sVARI
  214.  FLUSH,2
  215.  SEND,"AT&V",3
  216.  WAITFOR,"OK",var0,&next
  217.  TRAPCOMM,sVARJ
  218.  FLUSH,2
  219.  LCD,$30007,""
  220.  FLUSH,0
  221.  SEND,"AT&F",3
  222.  WAITFOR,"OK",VAR0,&next
  223.  FLUSH,0
  224. GOODEX: EXIT,0
  225. BADPORT: EXIT,1
  226.