- GOTO SCREEN begin
*>SCREEN begin
- PUT HUGE TEXT AT (2,1): "ETI LINK"
- PUT LARGE TEXT AT (2,3): "THE PC CONNECTION!"
- DELAY 2000
- GOTO SCREEN setupscr
  
*>SCREEN setupscr
- PUT REVERSE LARGE TEXT AT (1,1): "       SETUP        "
- PUT TEXT AT (2,4): "The unit must be assigned a node number"
- PUT TEXT AT (1,5): "that is unique on the ETI link."
- PUT TEXT AT (1,7): "ENTER NODE NUMBER (1-32):"
- GET NUMBER node AT (27,7) USING "##" DEFAULT 0
- GET node RANGE FROM 1 TO 32 OR GOTO setupscr
  call etiinit( node )
  NVOL&(1) = 0 : NVOL(2) = 0 : NVOL&(3) = 0 : NVOL$(1)=""
- GOTO SCREEN monitor
  
*>SCREEN monitor
- PUT TEXT AT (32,1): "NODE:"
- PUT NUMBER node AT (38,1) USING "##"
- SOFTKEY (1) "SEND" GOTO SCREEN sendnew
- SOFTKEY (6) "EXIT" GOTO SCREEN exitscr
- LABEL monloop
- SOFTKEY CHECK
  A=NVOL%(1) : A$=NVOL$(1) : A$ = A$ + SPACE$(81-LEN(A$))
  if a=0 then goto %%-1
- PUT TEXT AT (1,2): "Contents of NVOL(2): "
- PUT NUMBER nvol(2) AT (23,2) USING "+##,###.###"
- PUT TEXT AT (1,3): "Contents of NVOL$(1): "
- PUT TEXT AT (23,3): a$
    if A>1 THEN pos 1,5:?"Sending:";
    if A=1 THEN pos 1,5:?"Waiting:";
   'if A=0 THEN pos 1,5:?"   Sent:";
    ? NVOL%(3)
- GOTO LABEL monloop
- LABEL sendnew
- KEY OFF
- PUT TEXT AT (1,5): "ENTER DATA TO BE SENT: "
- GET NUMBER nvol%(3) AT (24,5) USING "#####" DEFAULT nvol%(3)
    NVOL%(1) = 1
- GOTO SCREEN monitor
  
*>SCREEN exitscr
- PUT TEXT AT (1,1): "Thank you!"
  pos 1,2:end
- END OF PSEUDOCODE