


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 
50000 REM SAVE BASIC LISTING AS TEST
50010 LABBUS 0:LABOUT "TSF=LIST1.TXT"
50020 PRINT CHR$(2):LIST: PRINT CHR$(3)
50030 END



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 
50000 REM SAVE BASIC LISTING AS TEST
50010 LABBUS 0:LABOUT "TSF=LIST1.TXT"
50020 PRINT CHR$(2):LIST: PRINT CHR$(3)
50030 END
