76 lines
560 B
Text
76 lines
560 B
Text
PROGRAM:XORPATT
|
|
" •.-,+-°-1+o*:πOX"→Str1
|
|
|
|
ClrHome
|
|
|
|
{0,0,0,0}→L1
|
|
{0,0,0,0)→L2
|
|
|
|
For(I,1,8,1)
|
|
For(J,1,16,1)
|
|
J→A
|
|
I→B
|
|
|
|
If A>8
|
|
Then
|
|
A-8→A
|
|
1→L1(1)
|
|
Else
|
|
0→L1(1)
|
|
End
|
|
|
|
If A>4
|
|
Then
|
|
A-4→A
|
|
1→L1(2)
|
|
Else
|
|
0→L1(2)
|
|
End
|
|
|
|
If A>2
|
|
Then
|
|
A-2→A
|
|
1→L1(3)
|
|
Else
|
|
0→L1(3)
|
|
End
|
|
|
|
If A>1
|
|
Then
|
|
1→L1(4)
|
|
Else
|
|
0→L1(4)
|
|
End
|
|
|
|
0→L2(1)
|
|
|
|
If B>4
|
|
Then
|
|
B-4→B
|
|
1→L2(2)
|
|
Else
|
|
0→L2(2)
|
|
End
|
|
|
|
If B>2
|
|
Then
|
|
B-2→B
|
|
1→L2(3)
|
|
Else
|
|
0→L2(3)
|
|
End
|
|
|
|
If B>1
|
|
Then
|
|
1→L2(4)
|
|
Else
|
|
0→L2(4)
|
|
End
|
|
|
|
L1≠L2→L3
|
|
8L3(1)+4L3(2)+2L3(3)+L3(4)→C
|
|
Output(I,J,sub(Str1,C+1,1))
|
|
|
|
End
|
|
End
|
|
Pause
|