CLS
  LET b0 = "OFF"
  IFVAL !23 <> 1 GOTO jpczhwegfb
    LET b0 = "ON"
  jpczhwegfb:
  IFVAL !23 <> 2 GOTO fodzgaiasm
    LET b0 = "ENH"
  fodzgaiasm:
  IFVAL !23 <> 3 GOTO spvlvnqogk
    LET b0 = "RIP"
  spvlvnqogk:
  IF b0 <> "ON" GOTO navsytcdnt
    LET b1 = "�������������������������������������������������������������������������������"
    LET b1 = !30 % !31 % b1
    GOTO veocrvkknl
  navsytcdnt:
    LET b1 = "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
  veocrvkknl:

  DBGROUP "l"
  LET b2 = 0
  trynextdb:
  LET b2 = b2 + 1
  IFVAL b2 > !92 GOTO leave
  DB b2
  IF !97 = "CCNEWS" GOTO founddb
  IF !97 <> "CCNEWS" GOTO trynextdb

  founddb:
  CLS
  PRINT "Checking your bbs name   -+- System News..."
  IFVAL !96 < !95 GOTO readnews
  PRINT
  PRINT
  PRINT "Nothing New To Read Since Your Last Call ", !51, ""
  PRINT
  DELAY 1

  GOTO leave

  readnews:
  LET b3 = !96 + 1
  DO b4, b3, !95
    readagain:
    LOAD b4
    IF !22 <> "OK" GOTO dontshow
    CLS
    LET b5 = "  Con-X-tion Stuff ** System News  "
    JC b5, 80
    PRINT "", b5
    PRINT "Subject: ", !100, ""
    PRINT "Date   : ", !116, ""
    PRINT b1
    PRINT
    DISPLAYTEXT b4
    PRINT
    PRINT b1
    LET b6 = !13 % "A"
    LET b7 = "Press [A] to read news Item again, or [ENTER] to continue: "
    RR b8, b6, b7
    PRINT
    IF b8 = "A" GOTO readagain
    dontshow:
  LOOP
  PRINT
  PRINT "Thats All Of The News For Now...."
  PRINT
  DELAY 1
  EXIT