... | ... |
@@ -17,15 +17,15 @@ |
17 | 17 |
#c0f7 .System/b DEO2 |
18 | 18 |
( | vectors ) |
19 | 19 |
;on-frame .Screen/vector DEO2 |
20 |
- (| set origin ) .Screen/width DEI2 #01 SFT2 .hello/x STZ2 |
|
20 |
+ ( | set origin ) .Screen/width DEI2 #01 SFT2 .hello/x STZ2 |
|
21 | 21 |
.Screen/height DEI2 #01 SFT2 .hello/y STZ2 |
22 |
- #16 .Screen/auto DEO |
|
22 |
+ [ LIT2 16 -Screen/auto ] DEO |
|
23 | 23 |
#00 on-frame/draw BRK |
24 | 24 |
|
25 | 25 |
@on-frame ( -> ) |
26 | 26 |
.Controller/button DEI DUP ?{ POP BRK } |
27 | 27 |
( | clear ) |
28 |
- #40 .Screen/sprite DEO |
|
28 |
+ [ LIT2 40 -Screen/sprite ] DEO |
|
29 | 29 |
( | movement ) |
30 | 30 |
DUP #10 AND #00 EQU ?{ |
31 | 31 |
.hello/y LDZ2k #0001 SUB2 ROT STZ2 } |
... | ... |
@@ -39,7 +39,7 @@ |
39 | 39 |
.hello/x LDZ2 STH2k .Screen/x DEO2 |
40 | 40 |
.hello/y LDZ2 STH2k .Screen/y DEO2 |
41 | 41 |
;hello-chr .Screen/addr DEO2 |
42 |
- #c1 .Screen/sprite DEOk |
|
42 |
+ [ LIT2 c1 -Screen/sprite ] DEOk |
|
43 | 43 |
DEO |
44 | 44 |
( draw slime ) STH2r .Screen/y DEO2 |
45 | 45 |
STH2r .Screen/x DEO2 |