1 This program "twirls" the segments on the LED numeric displays

11  INTEGER X,Y
12   Y=0
15  DATA 128,64,32,16,2,1, - 1
16  RESTORE 
17  FOR X=0 TO 4
20  READ Y
30   IF  Y = -1 THEN  RESTORE : READ Y
35  DISPLAY Y + $100,X
40  NEXT X
45  WAIT 10
50  GOTO 7