home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / stpm231.zip / MEETING.NAV < prev    next >
Text File  |  1995-08-23  |  3KB  |  116 lines
  1. ;
  2. ;ö╘ìåü@ö¡î╛ (ûóô╟) ü@ì┼ÉVü@ü@ë∩ïcÄ║û╝
  3. ; 1    3146 (   1)   07/29   ÄÄé╡é─é▌é╚éóüH(WarpÄÄùpö┼ô▒ôⁿæèÆkÄ║)
  4. ; 6     365 (   0)   07/28   ô▒ôⁿüEÅëÉSÄ╥æèÆkÄ║ ÄOôcò¬Ä║üiNECö┼üj
  5. ; 7    4104 (   0)   07/29   Ver.2.11æèÆkÄ║(ô▒ôⁿ,é╗é╠æ╝)
  6. ; 8     726 (   0)   07/29   èyé╡éóôKùpï╞û▒é╠É▌îvüiÅëÉSÄ╥îⁿüj
  7. ; 9     132 (   0)   07/26   OS/2òSë╚ÄûôT(FAQ,îñïåîïë╩Åεò±Ä║üj
  8. ;10    5659 (   1)   07/29   ôⁿéΩé╜éóüI(WarpJÉ╗òiö┼ô▒ôⁿæèÆkÄ║)
  9. ;11     743 (   0)   07/29   OS/2 News center
  10. ;16    7953 (   0)   07/28   ========= KABE KABE KABE KABE =========
  11. ;18     619 (   0)   07/29   OS/2 âfâxâìâbâpü[âY Inn/Driver Dev.
  12. ;20    1903 (   5)   07/29   OS/2 âfâxâìâbâpü[âY Inn
  13. ;~~          ^^^^~
  14. ;ü¬             ü¬
  15. ;*1             *2
  16. ;
  17.     define    mno[20],mf$[20]
  18. ;
  19.     macro    mcheck,no,file            ; ûóô╟â`âFâbâNùpâ}âNâì
  20.         zx = &no
  21.         z$ = "\n\000",zx,-2        ; îƒÅoé╖éΘìsô¬é╠ò╢ÄÜù±é≡âZâbâgé╖éΘ
  22.         wait    40,z$            ; ìsô¬é╠ò╢ÄÜù±é≡îƒÅoé╖éΘ
  23.         wait    20,")"            ; ")" é≡îƒÅoé╖éΘ(*2)üASWé╔é═Æ╝æOé╠^^^^é╠òöò¬é¬èiö[é│éΩéΘ
  24.         if sw > 0 then            ; sw é╖é╚éφé┐ûóô╟é¬éáéΘÅΩìç
  25.             mno[ax] = &no        ; mno[ax] é╔ë∩ïcÄ║ö╘ìåé≡âZâbâg
  26.             mf$[ax] = &file        ; mf$[ax] é╔âtâ@âCâïû╝é≡âZâbâg
  27.             ax = ax + 1        ; âCâôâfâbâNâX ax é╔ 1 é≡ë┴ÄZé╖éΘ
  28.         endif
  29.     endm
  30. ;
  31.     macro    gomes,forum,title        ; âtâHü[âëâÇê┌ô«ùpâ}âNâì
  32.         title    &title            ; â^âCâgâïé≡âZâbâgé╖éΘ
  33.         send    "go ",&forum,\r        ; âtâHü[âëâÇé╓ê┌ô«é╖éΘ
  34.         wait    60,"\n\000üä","\n\000æ▒é½"
  35.         if cc eq 2 then            ; âüâbâZü[âWé¬êΩëµû╩é≡ëzéªéΘÅΩìç
  36.             send    E\r        ; âüâbâZü[âWé≡ÅIù╣é│é╣éΘ
  37.             wait    30,"\n\000üä"
  38.         endif
  39.         send    "send off\r"
  40.         wait    30,"\n\000üä"
  41.         send    3\r            ; 3:ôdÄqë∩ïc é╓ê┌éΘ
  42.         ax = 0                ;  âCâôâfâbâNâX ax é≡âNâèâäü[
  43.     endm
  44. ;
  45. fos2base:
  46. ; FOS2BASE
  47.     gomes    "FOS2BASE","éeénéréQéaé`érédüFü@üâOS/2 Users' Base Forumüä"
  48.                 ; âtâHü[âëâÇû╝üAò\Īâ^âCâgâïé≡ÄwÆΦé╖éΘ
  49.  
  50.     mcheck     1,"fos2base.warp_b.mes"
  51.                 ; ë∩ïcÄ║ö╘ìåüAâ_âEâôâìü[âhâtâ@âCâïû╝é≡ÄwÆΦé╖éΘ
  52.     mcheck     6,"fos2base.necos2.mes"
  53.     mcheck     7,"fos2base.os2j211.mes"
  54.     mcheck     8,"fos2base.beginer.mes"
  55.     mcheck     9,"fos2base.os2faq.mes"
  56.     mcheck    10,"fos2base.warpj.mes"
  57.     mcheck    11,"fos2base.news.mes"
  58.     mcheck    16,"fos2base.kabe.mes"
  59.     mcheck    18,"fos2base.dev_drv.mes"
  60.     mcheck    20,"fos2base.dev_in.mes"
  61.  
  62.     call    download
  63. ;
  64. fos2app:
  65. ; FOS2APP
  66.     gomes    "FOS2APP","éeénéréQé`éoéoüFü@üâOS/2 Users' Application Forum üä"
  67. ;
  68.     mcheck    1,"fos2app.info.mes"
  69.     mcheck    2,"fos2app.win_app.mes"
  70.     mcheck    3,"fos2app.dos_app.mes"
  71.     mcheck    4,"fos2app.os2_app.mes"
  72.     mcheck    5,"fos2app.bonus.mes"
  73.     mcheck    8,"fos2app.online.mes"
  74.     mcheck    9,"fos2app.internet.mes"
  75.     mcheck    10,"fos2app.lan.mes"
  76.     mcheck    11,"fos2app.kabe.mes"
  77.     mcheck    14,"fos2app.rexx.mes"
  78.     mcheck    15,"fos2app.realizer.mes"
  79.  
  80.     call    download
  81. ;
  82. fos2fan:
  83. ; FOS2FAN
  84.     gomes    "FOS2FAN","éeénéréQéeé`émüFü@üâOS/2 Users' Fan Forumüä"
  85. ;
  86.     mcheck    1,"fos2fan.info.mes"
  87.     mcheck    2,"fos2fan.beginer.mes"
  88.     mcheck    4,"fos2fan.hard_h.mes"
  89.     mcheck    5,"fos2fan.mobile.mes"
  90.     mcheck    7,"fos2fan.game.mes"
  91.     mcheck    8,"fos2fan.mmpm2.mes"
  92.     mcheck    10,"fos2fan.online.mes"
  93.     mcheck    11,"fos2fan.kabe.mes"
  94.     mcheck    12,"fos2fan.talkos2.mes"
  95.     mcheck    18,"fos2fan.teamos2.mes"
  96.     mcheck    20,"fos2fan.som.mes"
  97.  
  98.     call    download
  99. ;
  100. EXIT:
  101.     title
  102.     exit
  103.  
  104. download:
  105.     wait    30,"\n\000üä"
  106.     loop    ax
  107.         send    "mes ",mno[lc],"\r"
  108.         wait    60,"\n\000üä"
  109.         send    "down new prot:bpl\r"
  110.         wait    360,"\n\000üF"
  111.         send    mf$[lc],\r
  112.         wait    240,"\n\000üä"
  113.     endloop
  114.     return
  115. ;
  116.