

5 PRINT CHR$(12):Z=0 
10 LABBUS 0
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 TEST
50010 LABBUS 0:LABOUT "TSF=LISTING.TXT"
50020 PRINT CHR$(2):LIST:PRINT CHR$(3)
50030 END


5 PRINT CHR$(12):Z=0 
10 LABBUS 0
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 TEST
50010 LABBUS 0:LABOUT "TSF=LISTING.TXT"
50020 PRINT CHR$(2):LIST:PRINT CHR$(3)
50030 END


5 PRINT CHR$(12):Z=0 
10 LABBUS 0
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


5 PRINT CHR$(12):Z=0 
10 LABBUS 0
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


5 PRINT CHR$(12):Z=0 
10 LABBUS 0
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


5 PRINT CHR$(12):Z=0 
10 LABBUS 0
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


5 PRINT CHR$(12):Z=0 
10 LABBUS 0
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


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


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


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
