Skip to content

Instantly share code, notes, and snippets.

@denzuko

denzuko/helo.bas

Last active March 11, 2021 08:28
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save denzuko/8b7d793f6bc32153ae3a2a54d56d08fc to your computer and use it in GitHub Desktop.
Save denzuko/8b7d793f6bc32153ae3a2a54d56d08fc to your computer and use it in GitHub Desktop.
Download ZIP
Arduino64
Raw
helo.bas
5 FALSE = .:TRUE = NOT FALSE
10 HI=255: LO=0:DEV=56579:COMM=56577
15 DIM D(7)
20 D(0)=1:D(1)=2:D(2)=4:D(3)=8
22 D(4)=16:D(5)=32:D(6)=64:D(7)=128
25 POKE DEV,HI:POKE COMM,LO
100 FOR X=0 TO 7: GOSUB 300:NEXT
200 FOR X=7 TO 1 STEP -1: GOSUB 300:NEXT
250 GOTO 100
300 POKE COMM, D(X)
310 FOR I=1 TO 25:NEXT I
320 RETURN
@dancompton
Copy link

🧇

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment