63-APPLE#1:(Jean-Claude DEVAL)[WinAPPLE shift+ins] 10 FORI=770TO792:READJ:POKEI,J:NEXT:DATA173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96,0,0:F=768:D=769:S=770:A$="---===££*££===---":HOME:HTAB12:VTAB24:PRINTA$:HTAB12:VTAB21:PRINTA$:POKE34,21:POKE35,23:HGR:HCOLOR=3 20 GETA$:PRINT (A$);:X=ASC(A$):Y=RND(X)*75:HPLOT130-X,75-YTO130+X,75-YTO130+X,75+YTO130-X,75+YTO130-X,75-Y:FORI=1TO3STEP.5:POKEF,X:POKED,5:CALLS:POKEF,X*2/I:POKED,4:CALLS:NEXT:GOTO20