blob: 181ca2e4308af24bd980c7f20febd4c458de3be6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
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
|
