    5 PRINT CHR$(12)
   10 LABBUS 0
   12 GOSUB 2000:COLOR 11
   15 CURSOR 0,4:PRINT"Speed-Test FPGA BUS 0"
   18 COLOR 2:PRINT"BITTE WARTEN..."
   20 LABREQ 9,92,S
   40 FOR N=1 TO 1000
   50 LABREQ 9,92,A:NEXT N
   60 LABREQ 9,92,E
   70 PRINT N-1;" MESSUNGEN DURCHGEFUEHRT, ";
   75 T=E-S
   78 IF T<0 THEN T=T+60
   80 PRINT "ZEIT";T;" SEKUNDEN
   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 TEST
 50010 LABBUS 0:LABOUT "TSF=LISTING.TXT"
 50020 PRINT CHR$(2):LIST:PRINT CHR$(3)
 50030 END
