home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Comunic / TGLP_1.ZIP / BBSLIST.ZIP / BBSLIST.SCR < prev   
Encoding:
Text File  |  1996-08-14  |  1.9 KB  |  90 lines

  1. VARIABLE OPTION INTEGER "1"
  2. VARIABLE CHOICE CHAR
  3.  
  4. :BEGIN
  5. CLS
  6. FILEDISPLAY BBSINTRO.ANS
  7.  
  8. :START
  9. IF "$OPTION$" "1"
  10. PUTNL "23H`0Aφ         `0DAdd To BBS List         `0Aφ"
  11. PUTNL "23H`08φ          `05View BBS List          `08φ
  12. PUTNL "23H`08φ     `05View Telegad Beta Team      `08φ
  13. PUTNL "23H`08φ          `05Quit To Main           `08φ`00
  14. ENDIF                                                    
  15.  
  16. IF "$OPTION$" "2"
  17. PUTNL "23H`08φ         `05Add To BBS List         `08φ"
  18. PUTNL "23H`0Aφ          `0DView BBS List          `0Aφ
  19. PUTNL "23H`08φ     `05View Telegad Beta Team      `08φ
  20. PUTNL "23H`08φ          `05Quit To Main           `08φ`00
  21. ENDIF
  22.  
  23. IF "$OPTION$" "3"
  24. PUTNL "23H`08φ         `05Add To BBS List         `08φ"
  25. PUTNL "23H`08φ          `05View BBS List          `08φ
  26. PUTNL "23H`0Aφ     `0DView Telegad Beta Team      `0Aφ
  27. PUTNL "23H`08φ          `05Quit To Main           `08φ`00
  28. ENDIF
  29.  
  30. IF "$OPTION$" "4"
  31. PUTNL "23H`08φ         `05Add To BBS List         `08φ"
  32. PUTNL "23H`08φ          `05View BBS List          `08φ
  33. PUTNL "23H`08φ     `05View Telegad Beta Team      `08φ
  34. PUTNL "23H`0Aφ          `0DQuit To Main           `0Aφ`00
  35. ENDIF
  36.  
  37. GET CHOICE "" "AB^_^M"
  38.  
  39. IF "$CHOICE$" "B"
  40. INCREMENT OPTION
  41. ENDIF
  42.  
  43. IF "$CHOICE$" "A"
  44. DECREMENT OPTION
  45. ENDIF
  46.  
  47. IF "$CHOICE$" "^_"
  48. INCREMENT OPTION
  49. ENDIF
  50.  
  51. IF "$OPTION$" "0"
  52. OPTION "4"
  53. ENDIF
  54.  
  55. IF "$OPTION$" "5"
  56. OPTION "1"
  57. ENDIF
  58.  
  59. JNE "$CHOICE$" "^M" START
  60.  
  61. IF "$CHOICE$" "^M"
  62.  
  63.     IF "$OPTION$" "1"
  64.     PUT "1H"
  65.     MENU OA
  66.     JUMP BEGIN
  67.     ENDIF
  68.  
  69.     IF "$OPTION$" "2"
  70.     PUT "1H"
  71.     MENU OB
  72.     PUT "~SP"
  73.     JUMP BEGIN
  74.     ENDIF
  75.  
  76.     IF "$OPTION$" "3"
  77.     PUT "1H"
  78.     MENU OBTG_BETA
  79.     JUMP BEGIN
  80.     ENDIF
  81.  
  82.     IF "$OPTION" "4"
  83.     CLS
  84.     ENDSCRIPT
  85.     ENDIF
  86.  
  87. ENDIF
  88.  
  89.  
  90.