home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2000 #11 / Net02.iso / Utility / DMIMF007.EXE / disk1 / data1.cab / OneClick_Conn_Files / templ1.scp < prev    next >
Encoding:
Text File  |  2000-07-26  |  1.5 KB  |  96 lines
  1. proc main
  2.     integer nMode = 1
  3.     integer wMode = 0
  4.  
  5. loop:
  6.     waitfor
  7.         "CLR PAD",matchcase then step11,
  8.         ": X",matchcase then step11,
  9.         ": x",matchcase then step11,
  10.         "[Y/n]",matchcase then step12,
  11.         "[Y/N]",matchcase then step12,
  12.         "(y/N)",matchcase then step12,
  13.         "597-1150",matchcase then neowiz1,
  14.         "ﾁ｢ｼﾓﾇﾒ ｼ ｾﾀｴﾏｴﾙ",matchcase then step13,
  15.         "[Enter] keyｸｦ ﾄ｡ｼｼｿ",matchcase then neowiz2,
  16.         "ｼｱﾅﾃ >>",matchcase then neowiz3,
  17.         "OC5-ERR-CONNECT",matchcase then neowiz5,
  18.         "OC5>",matchcase then neowiz4,
  19.         "PPPｰ｡",matchcase then done,
  20.         "OC5-HALT",matchcase then BailOut,
  21.         "SLiRP Ready",matchcase then done
  22.     until 20
  23.  
  24. step11:
  25.     if wMode == 0 and nMode == 0 then 
  26.         nMode = 1
  27.         $IPPCODE
  28.         goto loop
  29.     endif
  30.     if wMode == 0 and nMode == 1 then
  31.         nMode = 0
  32.         transmit "neowiz^M"
  33.         goto loop
  34.     endif
  35.     if nMode == 0 then 
  36.         nMode = 1
  37.         wMode = 2
  38.         transmit "1133595477^M"
  39.         goto loop
  40.     endif
  41.     nMode = 0
  42.     transmit "neowiz^M"
  43.     goto loop
  44.  
  45. step12:
  46.     transmit "y^M"
  47.     goto loop
  48.  
  49. step13:
  50.     transmit "^M"
  51.     goto loop
  52.  
  53. neowiz1:
  54.     if wMode == 0 then
  55.         $CODE1
  56.         goto loop
  57.     endif
  58.     transmit "70^M"
  59.     wMode = 2
  60.     goto loop
  61.  
  62. neowiz2:
  63.     transmit "^M"
  64.     goto loop
  65.  
  66. neowiz3:
  67.     if wMode == 0 then
  68.         $CODE2
  69.         goto loop
  70.     endif
  71.     transmit "x^M"
  72.     goto loop
  73.  
  74. neowiz4:
  75.     if wMode == 1 then
  76.         transmit "x^M"
  77.         goto loop
  78.     endif
  79.     $CODE3
  80.     goto loop
  81.     
  82. neowiz5:
  83.     wMode = 1
  84.     nMode = 0
  85.     goto loop
  86.  
  87. BailOut:
  88.    set screen keyboard on
  89.    halt
  90.  
  91. Done:
  92.     set port databits 8
  93.     set port parity none
  94.  
  95. endproc
  96.