0 I1=0 : I2=1 : MN=1 : MX=4 : MT=1 : goto 400
1 delay 20 : GET A$
2 IF A$<>CHR$(87) GOTO 5
3 IF MN<=1 GOTO 10
4 MN=MN-1
5 IF A$<>CHR$(83) GOTO 8
6 IF MN>=MX GOTO 10
7 MN=MN+1
8 IF A$=chr$(13) then gosub 14
9 if A$=chr$(8) goto 500
10 clrscr : SETXY 2,2 : PRINT "-MENU-"
11 on MT GOTO 100, 120, 125
12 SETXY 3,3+MN : PRINT "x"
13 goto 420

14 IF MT=1 AND MN=3 GOTO 500
15 IF MT=1 AND MN=1 THEN MT=2 : MN=1 : mx=1
16 IF MT=1 AND MN=2 THEN MT=3 : MN=1 : mx=1
29 return

100 SETXY 2,4 : PRINT "[ ] start programm"
101 SETXY 2,5 : PRINT "[ ] set input ID  => "i1
102 SETXY 2,6 : PRINT "[ ] set output ID => "i2
118 SETXY 2,7 : PRINT "[ ] exit programm"
119 goto 12

120 SETXY 2,4 : PRINT "[ ] set new input ID:"
121 SETXY 2,5 : get b : i1=b : mt=1 : mx=3
124 goto 10
125 SETXY 2,4 : PRINT "[ ] set new output ID:"
126 SETXY 2,5 : get b : i2=b : mt=1 : mx=3
129 goto 10

400 dim sl(14)
401 dim st$(1)
402 dim nm$(14)
403 st$(0)="[-]" : st$(1)="[#]"
404 nm$(1) = "white"
405 nm$(2) = "orange"
406 nm$(3) = "magenta"
407 nm$(4) = "light blue"
408 nm$(5) = "yellow"
409 nm$(6) = "lime"
410 nm$(7) = "pink"
411 nm$(8) = "gray"
412 nm$(9) = "light gray"
413 nm$(10) = "cyan"
414 nm$(11) = "purple"
415 nm$(12) = "blue"
416 nm$(13) = "brown"
417 nm$(14) = "green"
418 nm$(15) = "red"
419 bu=IOGET(i1) : mi=16384 : goto 10
420 for x=.0 to 14
421 if bu-mi>=0 then sl(14-x)=1 : bu=bu-mi
422 mi=mi/2
423 next
424 setxy 50,2 : print "signale"
425 for x=.0 to 14
426 setxy 50,4+x : print st$(sl(x))" "nm$(x)
427 next
450 goto 419

500 end