CLS
R=0:DIR=1
Do
A%=Peek(CFUNADDR BadAple)
X=1:Y=1
For I=0 To 191
D%=Peek(BYTE A%+I)
If D% And 128 Then C=1 Else C=0
D%=D% And 127
Do
If C Then Circle X*8-4,Y*8+32,R,,,0,DIR
Inc X: If X>80 Then X=1: Inc Y
Inc D%,-1
Loop While D%>0
Next
Inc R,DIR
If R>6 Then DIR=-1
If R<0 Then DIR= 1
Pause 100
Loop

CSub BadAple
00000000
864C831C 84428603 83408903 853D8B03 903B8F01 8F3B8204 8D448E42 8F428F44
92428E43 9101823B 9102843B 8C038439 843A8201 823F8D02 83018902 8A458B40
84038B46 85028A3F 86018A3F 8D01833F 8D018240 92028240 94038239 89038336
85038101 8B048237 87078107 93048227 89088F02 A5038215 820A9308 9F09A603
C50BA901 890B8101 820BBB01 AD0B8603 AE0A8514 8F0A8216 88229B04 99048701
9806862D 900A862C 852F8101 82328A0F 86138201 81308101 82168202 824E8201
End CSub