    5 PRINT CHR$(12):Z=0 
   10 LABBUS 1
   12 GOSUB 2000:COLOR 11
   15 CURSOR 0,4:PRINT"Kommunikations-Test mit ADA-IO #0 BUS 1"
   18 COLOR 2
   20 CURSOR 0,6:PRINT"Messung: ";Z;" "
   30 FOR S=20 TO 27:CURSOR 0,S-5:PRINT"SubCh: ",S; 
   35 INC Z
   40 LABREQ 0,S,A
   45 LABSET 0,20,Z/100-10:REM willkuerlicher Wert
   50 PRINT"   Ergebnis:";A;"        "
   60 NEXT S
   85 GOTO 18
   90 END
 1000 FOR N=0 TO 100:NEXT N
 1010 RETURN
 2000 CURSOR 0,30: FOR N=1 TO 7
 2020 COLOR N
 2030 PRINT"FARBE";N,
 2040 NEXT N
 2050 CURSOR 0,31: FOR N=9 TO 15
 2060 COLOR N
 2070 PRINT"FARBE";N,
 2080 NEXT N
 2090 RETURN 
