    5 PRINT CHR$(12):Z=0 
   10 LABBUS 0:LABOUT"9:97?":ELSE:REM Uhr synchronisieren mit RTC
   12 GOSUB 2000:COLOR 11
   15 CURSOR 0,4:PRINT"Kommunikations-Test FPGA BUS 0"
   18 COLOR 2
   20 CURSOR 0,6:PRINT"Messung: ";Z;" "
   30 FOR S=0 TO 5:CURSOR 0,S+9:SC=S+90:PRINT"SubCh: ",SC;
   35 INC Z
   40 LABREQ 9,SC,A
   50 PRINT"   Ergebnis:";A;"        "
   60 NEXT S
   85 GOTO 18
   90 END
 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 
 50000 REM SAVE BASIC LISTING AS TEXT
 50010 LABBUS 0:LABOUT "TSF=LISTING.TXT"
 50020 PRINT CHR$(2):LIST:PRINT CHR$(3)
 50030 END
