STRING CITY,NAME,OPER,NOD,NODESTAT(10),Z,PROMPT
INTEGER I,X,POS(2),NODE(100),COUNT,LOOP,T,Y,O
NOD=MAXNODE()
X=0
CLS

GOSUB UPDATE

; *************
; * Main Menu *
; *************


PROMPT="SHORT"
PRINTLN "@X0APlease enter your WHO choice.  [@X0830@X0A] for 30 second up date,@X07"
INPUTSTR "@X0A[@X0860@X0A] for 60 second update.  [@X08SHORT@X0A] listing.  [@X08Q@X0A]uit",prompt,@X0E,5,"306SHORTQ",FIELDLEN+GUIDE+UPCASE

CLS
IF (PROMPT="Q") GOTO END
IF (PROMPT="SHORT") GOTO Short
IF (PROMPT="30") Then

IF (INKEY()=CHR(27)) GOTO END

PRINTLN "@POFF@@QOFF@"
PRINTLN "@X40ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿@X07"
PRINTLN "@X40³                     @X4E30 Second Who Update                       @X40³@X07"
PRINTLN "@X40ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ@X07"
PRINTLN "@X08Press @X0CESCape@X08 to quit.@X07"
PRINTLN "                @X08þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ@X07"
ANSIPOS 17,17
PRINTLN "@X08þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ@X07"
NEWLINE
POS(1)=17
POS(2)=17
Y = 8
O = 10
: MAIN1
FOR LOOP=1 TO X
        ANSIPOS 1,O
        RDUNET NODE(LOOP)

        ; Z=RANDOM(6)
        Z="E"
        IF (UN_STAT()=" ") THEN
                PRINTLN " @X0E "+STRING(NODE(LOOP))+"                 No Caller This Node @POS:79@"
                O=O+2

        Else
                NAME=UN_NAME()
                CITY=UN_CITY()

                PRINTLN "@X07 @X0E "+STRING(NODE(LOOP))+" "+NODESTAT(LOOP)+"@POS:29@"+STRING(NAME)+" @X0"+Z+"("+STRING(CITY)+")"
                                                                
                O=O+2
                EndIf


                CITY=" "
                NAME=" "

IF (INKEY()=CHR(27)) GOTO END

NEXT LOOP

GOSUB UPDATE

O=10

DELAY 18.2

IF (INKEY()=CHR(27)) GOTO END

IF (COUNT < 15) Then
         ANSIPOS POS(1),6
         POS(1)=POS(1)+2
         PRINT "@X0Aþ@X07"
Else If (COUNT > 15) Then
         ANSIPOS POS(2),17
         POS(2)=POS(2)+2
         Print "@X0Aþ@X07"
         EndIf
IF (COUNT >= 30) GOTO END
COUNT=COUNT+1
GOTO MAIN1

ELSE IF (PROMPT="60") Then

IF (INKEY()=CHR(27)) GOTO END

PRINTLN "@POFF@@QOFF@"
PRINTLN "@X40ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿@X07"
PRINTLN "@X40³                     @X4E60 Second Who Update                       @X40³@X07"
PRINTLN "@X40ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ@X07"
PRINTLN "@X08Press @X0CESCape@X08 to quit.@X07"
PRINTLN "    @X08þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ@X07"
ANSIPOS 5,17
PRINTLN "@X08þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ þ@X07"
NEWLINE
POS(1)=5
POS(2)=5
Y = 8
O = 10
: MAIN2
FOR LOOP=1 TO X
        ANSIPOS 1,O
        RDUNET NODE(LOOP)

        ; Z=RANDOM(6)
        Z="E"
        IF (UN_STAT()=" ") THEN
                PRINTLN "  @X0E"+STRING(NODE(LOOP))+"                 No Caller This Node @POS:79@"
                O=O+2

        Else
                NAME=UN_NAME()
                CITY=UN_CITY()

                PRINTLN "  @X0E"+STRING(NODE(LOOP))+" "+NODESTAT(LOOP)+"@POS:30@"+STRING(NAME)+" @X0E("+STRING(CITY)+")"
                O=O+2
                EndIf


                CITY=" "
                NAME=" "

IF (INKEY()=CHR(27)) GOTO END

NEXT LOOP

GOSUB UPDATE

O=10

DELAY 18.2

IF (INKEY()=CHR(27)) GOTO END

IF (COUNT < 30) Then
         ANSIPOS POS(1),6
         POS(1)=POS(1)+2
         PRINT "@X0Aþ@X07"
Else If (COUNT > 30) Then
         ANSIPOS POS(2),17
         POS(2)=POS(2)+2
         Print "@X0Aþ@X07"
         EndIf
IF (COUNT >= 60) GOTO END
COUNT=COUNT+1
GOTO MAIN2
EndIf

: SHORT

PRINTLN "@X40ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINTLN "@X40³ @X4E(#)  Status                User                                  @X40 ³"
PRINTLN "@X40ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ@X07"
PRINTLN
FOR LOOP=1 TO X

        RDUNET NODE(LOOP)

        
        Z="E"
        IF (UN_STAT()=" ") THEN
                PRINTLN "   @X0E"+STRING(NODE(LOOP))+"                 No Caller This Node @POS:79@"
                O=O+2

        Else
                NAME=UN_NAME()
                CITY=UN_CITY()

                PRINTLN "   @X0E"+STRING(NODE(LOOP))+"   @X0E"+NODESTAT(LOOP)+"@POS:30@@X0E"+STRING(NAME)+" @X0E("+STRING(CITY)+")"
                O=O+2
                EndIf


                CITY=" "
                NAME=" "

IF (INKEY()=CHR(27)) GOTO END

NEXT LOOP

GOTO END

: UPDATE
X=0
FOR I = 1 TO NOD
         RDUNET I

IF (INKEY()=CHR(27)) GOTO END

         IF (UN_STAT() = "A") Then
                X=X+1
                NODE(X)=I
                NODESTAT(X)="Available for Chat"

         ELSE IF (UN_STAT() = "C") Then
                X=X+1
                NODE(X)=I
                NODESTAT(X)="Chatting w/ SysOp"

         ELSE IF (UN_STAT() = "E") Then
                X=X+1
                NODE(X)=I
                NODESTAT(X)="Entering a Message"

         ELSE IF (UN_STAT() = "O") Then
                X=X+1
                NODE(X)=I
                NODESTAT(X)="Logging into System"

         ELSE IF (UN_STAT() = "D") Then
                X=X+1
                NODE(X)=I
                NODESTAT(X)="In A Door"

         ELSE IF (UN_STAT() = "P") Then
                X=X+1
                NODE(X)=I
                NODESTAT(X)="Paging the SysOp"

         ELSE IF (UN_STAT() = "T") Then
                X=X+1
                NODE(X)=I
                NODESTAT(X)="Transfering a file"

         ELSE IF (UN_STAT() = " ") Then
                X=X+1
                NODE(X)=I

         ELSE IF (UN_STAT() = "G") Then
                X=X+1
                NODE(X)=I
                NODESTAT(X)="Chatting w/ Group"

         ELSE IF (UN_STAT() = "U") Then
                X=X+1
                NODE(X)=I
                NODESTAT(X)="Unavailable for Chat"
                EndIf

NEXT
RETURN

: END
; ANSIPOS 1,18
NEWLINE
PRINTLN "@X01Kristopher Steinwender - 30 Second Who - àlpha - 05/01/94@X07"
END