#bbcmicrobot F.F=0TO255:@%?F=(1A.F)+SGN(2A.F)+SGN(4A.F)+SGN(8A.F)+SGN(16A.F)+SGN(32A.F)+SGN(64A.F)+SGN(128A.F):N.:MO.4:PL.&99,1023,0:V.5,30,18,4;10,10:F.A%=H. TO&7FFF:T=T+@%??A%:N.:P=T/16384:$@%=STR$(P*1E4)+STRI.38," ")+"IYPDA":F._=0TO4:V.@%?_?@%:N.:P.''P:I.""I
I ran @rheolism's program and got this.
Source: https://bbcmic.ro/?t=dOfOn #bbcbasic




