home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / stpm231.zip / DATALIB.NAV < prev    next >
Text File  |  1996-02-25  |  2KB  |  74 lines
  1. ; DIR LOOP
  2.     define    xlib[21]
  3. ;
  4. ; FOS2BASE
  5.     title    "éeénéréQéaé`érédüFü@üâOS/2 Users' Base Forumüä"
  6.     send    "go FOS2BASE\r"
  7.     call    library
  8. ;
  9. ; FOS2APP
  10.     title    "éeénéréQé`éoéoüFü@üâOS/2 Users' Application Forum üä"
  11.     send    "go FOS2APP\r"
  12.     call    library
  13. ;
  14. ; FOS2FAN
  15.     title    "éeénéréQéeé`émüFü@üâOS/2 Users' Fan Forumüä"
  16.     send    "go FOS2FAN\r"
  17.     call    library
  18.  
  19.     title
  20.     send    tt\r
  21.     exit
  22. ;
  23. ;
  24. ;ö╘ìåü@æìÉöü@ôoÿ^ì╧ü@ì┼ÉVü@ü@âëâCâuâëâèû╝
  25. ;   1    75  (  75)  05/21   IBM EWS
  26. ;   2    94  (  94)  08/01   CSD (OS/2é┘é⌐,ÅCÉ│ì╖ò¬)
  27. ;   3    86  (  86)  08/18   âfâoâCâXâhâëâCâoü[ (Printer,Display,etc)
  28. ;  ^^~~       ^^^^~
  29. ;    ü¬           ü¬
  30. ;    *1           *2
  31. ;
  32. ;
  33. library:
  34.     clear    xlib            ; ò╧Éöé≡âNâèâäü[é╖éΘ
  35.     wait    30,"\n\000üä","\n\000æ▒é½"
  36.     if cc eq 2 then            ; âüâbâZü[âWé¬êΩëµû╩é≡ëzéªéΘÅΩìç
  37.         send    E\r        ; âüâbâZü[âWé≡ÅIù╣é│é╣éΘ
  38.         wait    15,"\n\000üä"
  39.     endif
  40.     send    "set page off\r"
  41.     wait    20,"\n\000üä"
  42.     send    "send off\r"
  43.     wait    20,"\n\000üä"
  44.     send    4\r            ; âfü[â^âëâCâuâëâèâBé╓ê┌éΘ
  45.     wait    20,"\n\000ö╘ìå"        ; ìsô¬é╠ò╢ÄÜù±üu\000ö╘ìåüvé≡îƒÅoé╖éΘ
  46.     wait    20,"æìÉö"        ; ô»é╢ìsé╠ò╢ÄÜù±üuæìÉöüvé≡îƒÅoé╖éΘ
  47.  
  48. count:
  49.     wait    5,"\00  ","\n\000üä"    ; "\00  " é╠ÅΩìçüAâëâCâuâëâèâBé╠ò\Ī
  50.     if cc eq 2 goto listing        ; "\000üä" é╠ÅΩìçüAò\ĪÅIù╣
  51.     wait    5,"  "            ; 2ò╢ÄÜé╠âXâyü[âXé≡îƒÅoé╖éΘ(*1) üA
  52.     ax = sw                ; SWé╔é═üAâëâCâuâëâèâBö╘ìå [1] é¬èiö[é│éΩé─é╖éΘ
  53.                     ; ax é╔é═üAâëâCâuâëâèâBö╘ìåé¬èiö[é│éΩéΘ
  54.     wait    5,")"            ; ")" é≡îƒÅoé╖éΘ(*2)üASWé╔é═Æ╝æOé╠^^^^é╠òöò¬é¬èiö[é│éΩéΘ
  55.     xlib[ax] = sw            ; SWé╔é═üAôoÿ^ì╧ [29] é¬èiö[é│éΩé─éóéΘ
  56.                     ; xlib[ax] é╖é╚éφé┐ xlib[1] é╔ 29 é¬èiö[é│éΩéΘ
  57.     goto    count            ; ê╚ì~üAò\ĪÅIù╣é▄é┼îJéΦò╘é╖
  58.                     ; ax é╠Ælé═üAâëâCâuâëâèâBö╘ìåé╔éµé┴é─ò╧ë╗é╖éΘ
  59.  
  60. listing:
  61.     set    ax = 1
  62. next:
  63.     if xlib[ax] > 0 then        ; xlib[ax] é╔é═üAôoÿ^ì╧é╠Éöé¬âZâbâgé│éΩé─éóéΘ
  64.         send    "lib ",ax,\r    ; üulib 1\rüvé≡æùÉMé╖éΘ
  65.         wait    20,"\n\000üä"
  66.         send    dir\r
  67.         wait    90,"\n\000üä"
  68.     endif
  69.     ax = ax + 1            ; ax é≡âCâôâNâüâôâgé╖éΘ
  70.     if ax <= 20 goto next
  71.  
  72.     return
  73.  
  74.