    5 PRINT CHR$(12);:LB=0
    8 PRINT"LEFT/RIGHT ARROW TO CHANGE WINDOW"
   10 DIM A$(31)
   15 C=1:W=1
   20 GOSUB 500:GOSUB 600
   30 N=0
  100 DO
  110 K=SCANKEY:C=0
  120 IF K=244 THEN W=1:C=1
  130 IF K=235 THEN W=2:C=1
  140 IF W=1 THEN GOSUB 500
  150 ELSE GOSUB 600
  190 WINDOW OFF:CURSOR 0,30
  200 PRINT"Taste:",PEEK(2020);"  "
  210 PRINT"ScanCode:",PEEK(2021);"  "
  220 PRINT"ScanKey:",K;"  "
  390 LOOP
  490 END
  500 GOSUB 1000
  502 WINDOW CLEAR
  510 LIST
  520 RETURN
  600 GOSUB 2000
  602 IF C=1 THEN WINDOW CLEAR
  604 ELSE GOTO 660
  605 WINDOW CURSOR 0,1
  610 LABBUS LB
  620 LABOUT "0:254?"
  630 LABINP A$
  650 PRINT A$
  660 LABREQ 0,92,A
  670 WINDOW CURSOR 0,4
  675 PRINT "Messwert  Nummer"
  680 PRINT A,N;"  "
  690 INC N
  730 RETURN
 1000 WINDOW POSITION 10,10 TO 50,25
 1010 WINDOW BORDER 1
 1020 RETURN
 2000 WINDOW POSITION 5,5 TO 30,15
 2010 WINDOW BORDER 1
 2020 RETURN
