makro boyut 100 son
makro stdout 1 son
makro sys-write 1 son
makro print-buffer
    stdout bel boyut + boyut 1 + sys-write syscall-3
son

;; initialize board
0 döngü eş boyut < iken
    eş bel + 0 yaz
    1 +
yap düş
boyut 2 - bel + 1 yaz

;; iteration count
0 döngü eş boyut 2 - < iken
    ;; write board to buffer
    0 döngü eş boyut < iken
        eş bel + oku 1 = ise
            eş bel boyut + + '*'  yaz ;; 42 = '*'
        yoksa
            eş bel boyut + + ' ' yaz ;; 32 = ' '
        yap
        1 +
    yap
    bel boyut + + '\n' yaz ;; 10 '\n' 
    ;; write to screen
    print-buffer
    
    ;; pattern init
    bel 0 + oku 1 << bel 1 + oku |
    1 döngü eş boyut 1 - < iken
        eş bel 1 + + oku ;; (pattern i cell)
        rot 1 << 7 & | ;; (i new-pattern)
        üst bel + üst 110 değiş >> 1 & yaz
        değiş 1 +
    yap düş düş
    1 +
yap