home *** CD-ROM | disk | FTP | other *** search
- VARIABLE OPTION INTEGER "1"
- VARIABLE CHOICE CHAR
-
- :BEGIN
- CLS
- FILEDISPLAY BBSINTRO.ANS
-
- :START
- IF "$OPTION$" "1"
- PUTNL "23H`0Aφ `0DAdd To BBS List `0Aφ"
- PUTNL "23H`08φ `05View BBS List `08φ
- PUTNL "23H`08φ `05View Telegad Beta Team `08φ
- PUTNL "23H`08φ `05Quit To Main `08φ`00
- ENDIF
-
- IF "$OPTION$" "2"
- PUTNL "23H`08φ `05Add To BBS List `08φ"
- PUTNL "23H`0Aφ `0DView BBS List `0Aφ
- PUTNL "23H`08φ `05View Telegad Beta Team `08φ
- PUTNL "23H`08φ `05Quit To Main `08φ`00
- ENDIF
-
- IF "$OPTION$" "3"
- PUTNL "23H`08φ `05Add To BBS List `08φ"
- PUTNL "23H`08φ `05View BBS List `08φ
- PUTNL "23H`0Aφ `0DView Telegad Beta Team `0Aφ
- PUTNL "23H`08φ `05Quit To Main `08φ`00
- ENDIF
-
- IF "$OPTION$" "4"
- PUTNL "23H`08φ `05Add To BBS List `08φ"
- PUTNL "23H`08φ `05View BBS List `08φ
- PUTNL "23H`08φ `05View Telegad Beta Team `08φ
- PUTNL "23H`0Aφ `0DQuit To Main `0Aφ`00
- ENDIF
-
- GET CHOICE "" "AB^_^M"
-
- IF "$CHOICE$" "B"
- INCREMENT OPTION
- ENDIF
-
- IF "$CHOICE$" "A"
- DECREMENT OPTION
- ENDIF
-
- IF "$CHOICE$" "^_"
- INCREMENT OPTION
- ENDIF
-
- IF "$OPTION$" "0"
- OPTION "4"
- ENDIF
-
- IF "$OPTION$" "5"
- OPTION "1"
- ENDIF
-
- JNE "$CHOICE$" "^M" START
-
- IF "$CHOICE$" "^M"
-
- IF "$OPTION$" "1"
- PUT "1H"
- MENU OA
- JUMP BEGIN
- ENDIF
-
- IF "$OPTION$" "2"
- PUT "1H"
- MENU OB
- PUT "~SP"
- JUMP BEGIN
- ENDIF
-
- IF "$OPTION$" "3"
- PUT "1H"
- MENU OBTG_BETA
- JUMP BEGIN
- ENDIF
-
- IF "$OPTION" "4"
- CLS
- ENDSCRIPT
- ENDIF
-
- ENDIF
-
-
-