home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2000 #11 / Net02.iso / Utility / DMIMF007.EXE / disk1 / data1.cab / OneClick_Conn_Files / templ2.scp < prev    next >
Encoding:
Text File  |  2000-07-26  |  998 b   |  64 lines
  1. proc main
  2.     integer nMode = 1
  3.  
  4. loop:
  5.     waitfor
  6.         "CLR PAD",matchcase then step11,
  7.         ": X",matchcase then step11,
  8.         ": x",matchcase then step11,
  9.         "[Y/n]",matchcase then step12,
  10.         "597-1150",matchcase then neowiz1,
  11.         "ﾁ｢ｼﾓﾇﾒ ｼ ｾﾀｴﾏｴﾙ",matchcase then step13,
  12.         "[Enter] keyｸｦ ﾄ｡ｼｼｿ",matchcase then neowiz2,
  13.         "ｼｱﾅﾃ >>",matchcase then neowiz3,
  14.         "OC5>",matchcase then neowiz4,
  15.         "PPPｰ｡",matchcase then done,
  16.         "OC5-HALT",matchcase then BailOut,
  17.         "SLiRP Ready",matchcase then done
  18.     until 20
  19.  
  20. step11:
  21.     if nMode == 0 then 
  22.         nMode = 1
  23.         transmit "1133595477^M"
  24.         goto loop
  25.     endif
  26.  
  27.     nMode = 0
  28.     transmit "neowiz^M"
  29.     goto loop
  30.  
  31. step12:
  32.     transmit "y^M"
  33.     goto loop
  34.  
  35. step13:
  36.     transmit "^M"
  37.     goto loop
  38.  
  39. neowiz1:
  40.     transmit "70^M"
  41.     goto loop
  42.  
  43. neowiz2:
  44.     transmit "^M"
  45.     goto loop
  46.  
  47. neowiz3:
  48.     transmit "1^M"
  49.     goto loop
  50.  
  51. neowiz4:
  52.     $CODE3
  53.     goto loop
  54.  
  55. BailOut:
  56.    set screen keyboard on
  57.    halt
  58.  
  59. Done:
  60.     set port databits 8
  61.     set port parity none
  62.  
  63. endproc
  64.