Commit 7f6935f8 authored by Alexander Shabarshin's avatar Alexander Shabarshin

TERNARO PLAYGROUND v1.0

parent 21abbce0
......@@ -26,6 +26,14 @@ main()
def tmp[17] = "START"
def inp[9]
def xyz[3]
simp1 = 0
simp2 = 0
simp3 = 0
indep1 = 0
indep3 = 0
indep = 0
aux = 0
mem = 0
xx = 0
yy = 0
sendp tmp[0] @filesystem
......@@ -198,7 +206,6 @@ main()
continue
}
if(A==1716 || A==1816)
{
if(xyz[1]!=1)
......@@ -315,9 +322,274 @@ main()
continue
}
print A
if(A==3012 || A==3013)
{
if(mem)
{
mem = 0
select 30 12; set #20
select 31 12; set #B3
select 30 13; set #FE
select 31 13; set #C5
print_bit(48,43,0)
}
else
{
mem = 1
select 30 12; set #FE
select 31 12; set #C5
select 30 13; set #20
select 31 13; set #B3
print_bit(48,43,1)
}
draw_memaux()
continue
}
if(A==3004 || A==3005)
{
if(indep1)
{
indep1 = 0
select 30 04; set #20
select 31 04; set #B3
select 30 05; set #FE
select 31 05; set #C5
print_bit(44,43,0)
}
else
{
indep1 = 1
select 30 04; set #FE
select 31 04; set #C5
select 30 05; set #20
select 31 05; set #B3
print_bit(44,43,1)
}
draw_memaux()
continue
}
if(A==3024 || A==3025)
{
if(indep3)
{
indep3 = 0
select 30 24; set #20
select 31 24; set #B3
select 30 25; set #FE
select 31 25; set #C5
print_bit(43,43,0)
}
else
{
indep3 = 1
select 30 24; set #FE
select 31 24; set #C5
select 30 25; set #20
select 31 25; set #B3
print_bit(43,43,1)
}
draw_memaux()
continue
}
if(A==4214 || A==4215)
{
if(simp1)
{
simp1 = 0
select 42 14; set #FE
select 43 14; set #C5
select 42 15; set #20
select 43 15; set #B3
print_bit(47,43,0)
}
else
{
simp1 = 1
select 42 14; set #20
select 43 14; set #B3
select 42 15; set #FE
select 43 15; set #C5
print_bit(47,43,1)
}
draw_memaux()
continue
}
if(A==3818 || A==3819)
{
if(simp2)
{
simp2 = 0
select 38 18; set #FE
select 39 18; set #C5
select 38 19; set #20
select 39 19; set #B3
print_bit(46,43,0)
}
else
{
simp2 = 1
select 38 18; set #20
select 39 18; set #B3
select 38 19; set #FE
select 39 19; set #C5
print_bit(46,43,1)
}
draw_memaux()
continue
}
if(A==4221 || A==4222)
{
if(simp3)
{
simp3 = 0
select 42 21; set #FE
select 43 21; set #C5
select 42 22; set #20
select 43 22; set #B3
print_bit(45,43,0)
}
else
{
simp3 = 1
select 42 21; set #20
select 43 21; set #B3
select 42 22; set #FE
select 43 22; set #C5
print_bit(45,43,1)
}
draw_memaux()
continue
}
if(A==4925)
{
if(aux==0)
{
continue
}
if(aux==1)
{
select 80 17; set #20
select 81 17; set #20
select 82 17; set #20
}
else
{
select 80 25; set #20
select 81 25; set #20
select 82 25; set #20
}
aux = 0
select 49 25; set #FE
select 50 25; set #C5
select 49 26; set #20
select 50 26; set #B3
select 49 27; set #20
select 50 27; set #B3
select 49 28; set #20
select 50 28; set #B3
print_bit(41,43,0)
print_bit(42,43,0)
draw_memaux()
continue
}
if(A==4926)
{
if(aux==1)
{
continue
}
if(aux==2 || aux==3)
{
select 80 25; set #20
select 81 25; set #20
select 82 25; set #20
}
select 80 17; set 'A'
select 81 17; set 'U'
select 82 17; set 'X'
aux = 1
select 49 25; set #20
select 50 25; set #B3
select 49 26; set #FE
select 50 26; set #C5
select 49 27; set #20
select 50 27; set #B3
select 49 28; set #20
select 50 28; set #B3
print_bit(41,43,0)
print_bit(42,43,1)
draw_memaux()
continue
}
if(A==4927)
{
if(aux==2)
{
continue
}
if(aux==1)
{
select 80 17; set #20
select 81 17; set #20
select 82 17; set #20
}
select 80 25; set 'A'
select 81 25; set 'U'
select 82 25; set 'X'
aux = 2
select 49 25; set #20
select 50 25; set #B3
select 49 26; set #20
select 50 26; set #B3
select 49 27; set #FE
select 50 27; set #C5
select 49 28; set #20
select 50 28; set #B3
print_bit(41,43,1)
print_bit(42,43,0)
draw_memaux()
continue
}
if(A==4928)
{
if(aux==3)
{
continue
}
if(aux==1)
{
select 80 17; set #20
select 81 17; set #20
select 82 17; set #20
}
select 80 25; set 'A'
select 81 25; set 'U'
select 82 25; set 'X'
aux = 3
select 49 25; set #20
select 50 25; set #B3
select 49 26; set #20
select 50 26; set #B3
select 49 27; set #20
select 50 27; set #B3
select 49 28; set #FE
select 50 28; set #C5
print_bit(41,43,1)
print_bit(42,43,1)
draw_memaux()
continue
}
// print A
continue
}
if(N==@filesystem)
{
aa = @filebuffer
......@@ -337,9 +609,23 @@ main()
yy = yy + 1
aa = A + 1
}
// initial screen
if(xx==0)
{
select 63 8; set #20
select 64 8; set #20
select 65 8; set #20
select 66 8; set #20
select 67 8; set #20
select 68 8; set #20
select 69 8; set #20
select 69 9; set #C4
select 63 10; set 'A'
select 64 10; set #FE
select 65 10; set #C4
select 66 10; set #C4
select 67 10; set #C4
select 68 10; set #C4
select 69 10; set #BF
select 80 21; set 'O'
select 81 21; set 'U'
select 82 21; set 'T'
......@@ -389,6 +675,94 @@ main()
// select 63 43; set '0'
// select 65 43; set ']'
}
else
{
if(simp1)
{
select 75 19; set '4'
select 75 18
if(mem)
{
set #C4
}
else
{
set #20
}
select 75 17
if(aux==1)
{
set #C0
}
else
{
set #20
}
}
if(simp2)
{
select 75 21; set 'C'
select 74 21
if(aux==2)
{
set #BF
}
else
{
set #20
}
}
if(simp3)
{
select 75 23; set '6'
select 75 24; set #20
select 75 25
if(aux==3)
{
set #DA
}
else
{
if(aux==2)
{
set #C4
select 75 26
}
set #20
}
}
if(indep)
{
indep = 0
xx = 69
yy = 11
tmp[0] = 4
tmp[1] = 'I'
tmp[2] = 'N'
tmp[3] = 'D'
if(indep1)
{
tmp[4] = '1'
}
if(indep3)
{
if(indep1)
{
tmp[4] = '4'
}
else
{
tmp[4] = '3'
}
}
if(mem)
{
tmp[0] = 5
tmp[5] = 'M'
}
sendp tmp[0] @filesystem
}
}
continue
}
}
......@@ -612,6 +986,8 @@ draw_triad() // A-triad(1,2,3)
select 63 yyyy
set #20
yyyy = yyyy - 1
select 64 yyyy
set #20
select 65 yyyy
if(box1)
{
......@@ -750,6 +1126,27 @@ draw_triad() // A-triad(1,2,3)
}
}
draw_memaux()
{
xx = 69
yy = 11
tmp[0] = 4
tmp[1] = 'A'
tmp[2] = 'U'
tmp[3] = 'X'
tmp[4] = '0' + aux
if(mem)
{
tmp[0] = 5
tmp[5] = 'M'
}
if(indep1 || indep3)
{
indep = 1
}
sendp tmp[0] @filesystem
}
print_bit() // A-X,B-Y,C-bit
{
select A B
......
......@@ -8,7 +8,7 @@
</HEAD>
<BODY BGCOLOR=#000000 TEXT=#00AA00 LINK=#00AAAA>
<center>
<h3>TERNARO PLAYGROUND</h3>
<h3>TERNARO PLAYGROUND v1.0</h3>
</center>
<p id="tut" align=center>TERNARO.COM requires a modern web-browser to work properly...</p>
<font size=-4>
......
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment