!CLS
!POS 5 11
!PRINT +---------------------------------------------------------------+
!POS 5 12
!PRINT |                                                               |
!POS 5 13
!PRINT |  Moechtest Du die Mailboxstatistik noch sehen ???  [ J / N ]  |
!POS 5 14
!PRINT |                                                               |
!POS 5 15
!PRINT +---------------------------------------------------------------+
 !POS 62 13
 !% AB4
@AB3
 !KEY AB4
 !IF AB4 == 106
 !GOTO STATSEHN
 !ENDIF
 !IF AB4 != 106
 !GOTO STATNICH
 !ENDIF
 !GOTO AB3
@STATSEHN
caller


@STATNICH
!BREAK OFF

!% env
!% tbc
!% Zeit
!% Days
!% Midnight
!% SecToday
!% InBox
!% TimeAdd
!% sec

!LET Zeit &LOGINZEIT
!LET env &TIME - &Zeit
!GETENV TIMEHE &tbc
!LET tbc &tbc + &env
!PUTENV TIMEHE &tbc

!LET Days &Zeit / 86400
!LET Midnight &Days * 86400
!LET SecToday &Zeit - &Midnight

!LET InBox &TIME - &Zeit
!LET TimeAdd &SecToday / 7200
!LET TimeAdd &TimeAdd + 1
!LET TimeAdd &TimeAdd * 7200
!LET TimeAdd &TimeAdd - &SecToday

!IF TimeAdd > &InBox
  !LET TimeAdd &InBox
!ENDIF

@Repeat

!IF SecToday <= 7200
	!GETENV TIME02 &sec
	!LET sec &sec + &TimeAdd
	!PUTENV TIME02 &sec
	!GOTO GLUP
!ENDIF
!IF SecToday <= 14400
	!GETENV TIME04 &sec
	!LET sec &sec + &TimeAdd
	!PUTENV TIME04 &sec
	!GOTO GLUP
!ENDIF
!IF SecToday <= 21600
	!GETENV TIME06 &sec
	!LET sec &sec + &TimeAdd
	!PUTENV TIME06 &sec
	!GOTO GLUP
!ENDIF
!IF SecToday <= 28800
	!GETENV TIME08 &sec
	!LET sec &sec + &TimeAdd
	!PUTENV TIME08 &sec
	!GOTO GLUP
!ENDIF
!IF SecToday <= 36000
	!GETENV TIME10 &sec
	!LET sec &sec + &TimeAdd
	!PUTENV TIME10 &sec
	!GOTO GLUP
!ENDIF
!IF SecToday <= 43200
	!GETENV TIME12 &sec
	!LET sec &sec + &TimeAdd
	!PUTENV TIME12 &sec
	!GOTO GLUP
!ENDIF
!IF SecToday <= 50400
	!GETENV TIME14 &sec
	!LET sec &sec + &TimeAdd
	!PUTENV TIME14 &sec
	!GOTO GLUP
!ENDIF
!IF SecToday <= 57600
	!GETENV TIME16 &sec
	!LET sec &sec + &TimeAdd
	!PUTENV TIME16 &sec
	!GOTO GLUP
!ENDIF
!IF SecToday <= 64800
	!GETENV TIME18 &sec
	!LET sec &sec + &TimeAdd
	!PUTENV TIME18 &sec
	!GOTO GLUP
!ENDIF
!IF SecToday <= 72000
	!GETENV TIME20 &sec
	!LET sec &sec + &TimeAdd
	!PUTENV TIME20 &sec
	!GOTO GLUP
!ENDIF
!IF SecToday <= 79200
	!GETENV TIME22 &sec
	!LET sec &sec + &TimeAdd
	!PUTENV TIME22 &sec
	!GOTO GLUP
!ENDIF
!IF SecToday <= 86400
	!GETENV TIME24 &sec
	!LET sec &sec + &TimeAdd
	!PUTENV TIME24 &sec
	!GOTO GLUP
!ENDIF
@GLUP

!IF InBox > &TimeAdd
  !LET InBox &InBox - &TimeAdd
  !IF InBox > 7200
    !LET TimeAdd 7200
  !ENDIF
  !IF InBox <= 7200
    !LET TimeAdd &InBox
  !ENDIF
  !LET SecToday &SecToday + 7200
  !IF SecToday > 86400
    !LET SecToday &SecToday - 86400
  !ENDIF
  !GOTO Repeat
!ENDIF

!CLS
!POS 5 11
!PRINT +---------------------------------------------------------------+
!POS 5 12
!PRINT |                                                               |
!POS 5 13
!PRINT |  Moechtest Du dem Sysop noch eine MSG schreiben ?  [ J / N ]  |
!POS 5 14
!PRINT |                                                               |
!POS 5 15
!PRINT +---------------------------------------------------------------+
 !POS 62 13
 !% ABFRAGE4
@ABFRAGE3
 !KEY ABFRAGE4
 !IF ABFRAGE4 == 106
 !GOTO MSGSCHREIBEN
 !ENDIF
 !IF ABFRAGE4 != 106
 !GOTO LOGOFFFINAL
 !ENDIF
 !GOTO ABFRAGE3

@MSGSCHREIBEN
!CLS
!POS 0 0
b /
s -t sysop

@LOGOFFFINAL
!% stund
!% sek
!% temp
!% min
!CLS
!POS 0 0
!PRINT      AUF WIEDERSEHEN \U !!
!PRINT      ____________________________________________________________________
!PRINT
h bye
!POS 0 15
!PRINT      ____________________________________________________________________
!PRINT 
!PRINT      CALL:   TBL      !! 02174/3672    SYSOP Detlev Nahbereich Koeln.
!PRINT              DARKNESS !! 02273/3044    SYSOP Thomas Viel PD.
!PRINT              LEONARDO !! 0221 /5802319 SYSOP Peter  Die andere Box.
!PRINT              CUP-BOX  !! 0221 /6320151 SYSOP Frank  Neue Box.
!PRINT              DARKLINE !! 02236/47010   SYSOP Gerd   PC-Net Box.
WARTE 5
!BREAK ON