blob: 5ee675611ddaf4219859a044a56731f36cafec0a (
plain) (
blame)
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
|
%%HP: T(1)A(D)F(,);
(0;0) (13;6,3)
PDIM { } 'T' STO
(6,5;3,1) 'H' STO 0
'K' STO (,1;0) 'D'
STO (1;1) 'F' STO
WHILE GETKEY 21
REPEAT ,2 WAIT
GETKEY 'K' STO
CASE K 25 ==
THEN (0;,1)
'D' STO
END K 34 ==
THEN (-,1;0)
'D' STO
END K 36 ==
THEN (,1;0)
'D' STO
END K 35 ==
THEN (0;-,1)
'D' STO
END
END F PIXON
IF F H ==
THEN T (0;0) +
'T' STO RAND 0 1 0
6,5 MAP 1 RND RAND
0 1 0 3,1 MAP 1 RND
RC 'F' STO
END H T + 'T'
STO H D + 'H' STO H
PIXON T DUP SIZE
GET PIXOFF T DUP
SIZE 1 - 1 SWAP SUB
'T' STO { # 0d # 0d
} PVIEW
END { F D K H T
PPAR PICT } PURGE
|
