home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / BULLETS.CTL < prev    next >
Encoding:
Text File  |  1992-08-29  |  1013 b   |  22 lines
  1. ;NON-STANDARD bullets.ctl: shows uslogo
  2. if (%BAUD%)=(19200) then view(display\uslogo)
  3. If (%NEWSEC%)=(/SEC) Then Welcome(display\NEWUSER) ;if newuser security
  4. Get(/:BIRTH/,1,6)  ;get 1st 6 chars of user's birthday
  5. SetEqual(a=%ARESP%)
  6. Get(%DATE%,1,6) ;get first 6 chars of date
  7. If (&a) = (%ARESP%) Then LoadSub(control\birth.ctl) ;if bday show scr
  8.         
  9.         *BLT2
  10. Display (Display\%NDNUMB%)   ;show personal message screens...
  11. Welcome(Display\WELCOME)  ;show any existing welcome screens
  12. NotIf (/LAST)=(%DATE%) Then Welcome (Display\OneAday)  ;if first call today...
  13. seek(areas\news/:lastmsg/.asc)
  14. iftrue(loadsub(control\macros\cnfnews.ctl))
  15. If (/EXPERT)=(Y) Then Display (Display\EXPERT)   ;if in EXPERT mode show screen
  16. Seek(logon.bat)
  17. IfTrue (Exec(logon.bat))  ;run LOGON.BAT batch file.
  18. if (%Event%)=(TRUE) then display(display\event)
  19. LoadSub(Control\Macros\Newbull.ctl) ;show new bulletins
  20. IfNotTrue(LoadMem(control\Main.mnu))
  21. LoadMem(Control\ViewB.ctl) ;ask "view bulletins menu?"
  22.