bascom printbin dana 9 bitowa

[grafii1]

można i tak , to działa może nie fachowo ale jest git

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. Do
2.  Gosub Print_
3.  Wait 1
4. Loop
5.  
6. Print_:
7.  
8. A = 350
9. Dat = 0
10. Waitus 420
11.  For A1 = 0 To 8
12.   If A.a1 = 1 Then
13.    Dat = 1
14.    Waitus 400
15.    End If
16.   If A.a1 = 0 Then
17.    Dat = 0
18.    Waitus 418
19.    End If
20.  Next A1
21. Dat = 1
22. Waitus 400
23. Return