|
Beispielprogramm für OPTOLCA, OPTOLCA/LC
|
Ansprechprogramm für die Karte in Basic
| |
1 REM Bezeichnung:Ansprechprogramm für die Karte in Basic
2 REM Beschreibung:Die Karte wird angesprochen.
10 FOR N=0 TO 7
20 OUT &H1D0,2^N
30 FOR I=1 TO 3000:NEXT I
35 GOSUB 1000
40 NEXT N
50 OUT &H1D0,0
60 REM '-----------------------------
70 FOR N=0 TO 7
80 OUT &H1D1,2^N
90 FOR I=1 TO 3000:NEXT I
100 GOSUB 1000
105 NEXT N
110 OUT &H1D1,0
120 REM '-----------------------------
130 RUN
1000 A=INP(&H1D0)
2000 GOSUB 10000
3000 A=INP(&H1D1)
4000 GOSUB 10000
5000 PRINT
6000 RETURN
9000 REM '-----------------------------
10000 FOR I=0 TO 7
10100 IF (A AND 2^I)<>0 THEN PRINT "1 "; ELSE PRINT "0 ";
10200 NEXT
10300 RETURN
|
|
|