~rabbits/left

ref: e09515cc0887e279ba881781a84dec341c50c0bb left/untitled.txt -rw-r--r-- 697 bytes
e09515ccneauoire Fixed issue with syntax highlight 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
( 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