~rabbits/left

ref: 9033bef11ab7b6c385aaaf3aa28beba431d57ed7 left/untitled.txt -rw-r--r-- 701 bytes
9033bef1neauoire Fixed overflow error 4 months ago
                                                                                
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
( Example file )

[]

a very long line that doesn't quite display on a single screen to test the scroll-x behaviour.

@on-frame ( -> )
	
	.state/trap LDZ #00 ! #01 JCN [ BRK ]

	( incr ) .state/timer LDZ #01 + DUP .state/timer STZ 

	#08 ! ,&no-toggle JCN
		.state/blink TOGGLE
		#23 .state/blink LDZ #09 * + ;draw-filepath JSR2
		#00 .state/timer STZ 
	&no-toggle
	
BRK

@on-button ( -> )
		
	.Controller/key DEI .Controller/button DEI #0000 !! #01 JCN [ BRK ]

	.Controller/key DEI #00 ! .state/trap LDZ #0101 == ;on-button-trap JCN2
	.Controller/button DEI DUP #f0 AND ;on-button-arrow JCN2 POP
	.Controller/button DEI #01 AND ;on-control JCN2

	.Controller/key DEI DUP ;on-button-key JCN2 POP

BRK