SET [0x8000], 0x1100
SET X, 0
SET Y, 0
SET J, 0
SET I, 512
SET [0x6000], 0x1100


:MAIN
IFG [0x9000], 0
SET PC, SPRAWDZ
SET PC, MAIN

:SPRAWDZ
IFE [0x9000], 67
SET PC, CLS
IFE [0x9000], 2
SET PC, PRAWO
IFE [0x9000], 1
SET PC, LEWO
IFE [0x9000], 3
SET PC, GORA
IFE [0x9000], 4
SET PC, DOL
IFE [0x9000], 80
SET PC, KOLPL
IFE [0x9000], 79
SET PC, KOLMIN
IFE [0x9000], 10
SET PC, ZAPBUF
SET PC, RESKB

:SS
SET B, [0x9000]
SET [0x9000], 0
SET PC, MAIN

:CLS
SET [0x8000+J], 0x0000
SET [0x8000+I], 0x0000
ADD I, 1
ADD J, 1
IFE J, 512
SET PC, RESCL
SET PC, CLS

:RESCL
SET I, 512
SET J, 0
SET PC, RYSXY

:RESKB
SET [0x9000], 0
SET PC, MAIN

:KOLPL
ADD [0x6000], 0x1100
SET PC, RYSXY

:KOLMIN
SUB [0x6000], 0x1100
SET PC, RYSXY





:PRAWO
ADD X, 1
SET PC, RYSXY

:LEWO
SUB X, 1
SET PC, RYSXY

:GORA
SUB Y, 1
SET PC, RYSXY

:DOL
ADD Y, 1
SET PC, RYSXY





:RYSXY
IFG X, 31
SET X, 31
IFG Y, 15
SET Y, 15


SET [0x8000+Z], [0x8200+Z]
SET Z, Y
MUL Z, 32
ADD Z, X
SET [0x8000+Z], [0x6000]
SET PC, RESKB

:ZAPBUF
SET [0x8200+Z], [0x6000]
SET PC, RESKB