Skip to content

Instantly share code, notes, and snippets.

@Iruyan-Zak

Iruyan-Zak/BTN_System.bs

Created November 30, 2017 09:52
Show Gist options
  • Save Iruyan-Zak/afaf885bc4a3d8042db49f87db8bdfaa to your computer and use it in GitHub Desktop.
Save Iruyan-Zak/afaf885bc4a3d8042db49f87db8bdfaa to your computer and use it in GitHub Desktop.
Download ZIP
Raw
BTN_System.bs
10 P=0
11 C=0
20 POKE #800,#21,10,1,#69
21 FOR I=0 TO 7: POKE #804+I, 0: NEXT
23 POKE #80C, C
100 B=BTN()
101 IF P OR NOT B GOTO 200
110 C=C+1
120 POKE #804, C
121 S=0: FOR I=0 TO 11: S=S^PEEK(#800+I):NEXT
122 POKE #80C, S
130 Z=I2CR(79,#800,13,#820,3)
131 ?PEEK(#820)
200 P=B
300 GOTO 100
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment