18 lines
472 B
Text
18 lines
472 B
Text
r=21:s=9:c=s
|
|
For i=1 To 11
|
|
Read d
|
|
If d <> 0 Then
|
|
For j=1 To 31
|
|
If (d And(2^(31-j)))>0 Then
|
|
Locate c+1,r:Print "___";
|
|
Locate c,r+1:Print "/_ /|";
|
|
Locate c,r+2:Print "[_]/";
|
|
End If
|
|
c=c+3
|
|
Next
|
|
Else
|
|
s=1:c=s
|
|
End If
|
|
r=r-2:s=s+2:c=s
|
|
Next
|
|
Data 479667712,311470336,485697536,311699712,476292608,0,1976518785,1160267905,1171157123,1160267909,1171223529
|