10 REM Arduino Motion Sensor Demo in Atari BASIC
20 REM By Jason H. Moore, Ph.D.
30 REM August 6, 2023

40 GRAPHICS 2+16
50 POKE 752,1
60 SETCOLOR 2,0,0
70 SETCOLOR 0,12,8
80 POSITION 6,4
90 S=STICK(0)
100 IF S=15 THEN PRINT #6;"MOTION!"
110 IF S=14 THEN GOTO 10
120 GOTO 80