home.social

#acornelectron — Public Fediverse posts

Live and recent posts from across the Fediverse tagged #acornelectron, aggregated by home.social.

  1. Tested various micros running this FLOATING POINT program. It derives Pi to 20 decimal places. Interesting stats.

    1 N=20: L=INT(10*N/3): DIM A(255): Z$="000000":T$="999999"
    2 FOR I=1 TO L: A(I)=2: NEXT I: M=0: P=0: FOR J=1 TO N: Q=0: K=2*L+1
    3 FOR I=L TO 1 STEP -1: K=K-2: X=10*A(I)+Q*I: Q=INT(X/K): A(I)=X-Q*K: NEXT I
    4 Y =INT(Q/10): A(1)=Q-10*Y: Q=Y: IF Q=9 THEN LET M=M+1: GOTO 7
    5 IF Q=10 THEN PRINT STR$(P+1);LEFT$(Z$,M);: P=0: M=0: GOTO 7
    6 PRINT STR$(P);LEFT$(T$,M);: P=Q: M=0
    7 NEXT J:PRINT STR$(P)

    #RC2014 : 14 (thank you JonV)
    #BBCMicro : 19
    #AmstradCPC : 22 (thank you Devlin)
    #AmstradPCW : 23 (thank you Pete)
    #AcornElectron : 25
    #C128 : 27 (fast mode - thank you Jonas H)
    #LuxorABC80 : 29 (thank you Erik)
    #SharpMZ700 : 32 (thank you Tim Holyoake)
    #VIC20 : 36
    #AcornAtom : 37
    #AppleII : 38 (thank you Jeroen)
    #TRS80CoCo : 42 (thank you Chip)
    #Atari800 : 42 (thank you Mark Elliott)
    #CBMPET : 43
    #C64 : 43
    #Dragon32 : 44
    #SharpMZ80K : 45 (thank you Tim Holyoake)
    #C16 : 46
    #Altair8800 : 52
    #MSX : 53 (thank you Pixel Purrito)
    #C128 : 56 (default "mode")
    #ZX80 : 57
    #ZXSpectrum : 68 (thank you Adam)
    #SharpPC1500A : 167 (thank you Karttu)
    #ZX81 : 213 (native slow mode)
    #SharpPC1245 : 405 (thank you Karttu)

    Edit: now ordered (seconds)

  2. Tested various micros running this FLOATING POINT program. It derives Pi to 20 decimal places. Interesting stats.

    1 N=20: L=INT(10*N/3): DIM A(255): Z$="000000":T$="999999"
    2 FOR I=1 TO L: A(I)=2: NEXT I: M=0: P=0: FOR J=1 TO N: Q=0: K=2*L+1
    3 FOR I=L TO 1 STEP -1: K=K-2: X=10*A(I)+Q*I: Q=INT(X/K): A(I)=X-Q*K: NEXT I
    4 Y =INT(Q/10): A(1)=Q-10*Y: Q=Y: IF Q=9 THEN LET M=M+1: GOTO 7
    5 IF Q=10 THEN PRINT STR$(P+1);LEFT$(Z$,M);: P=0: M=0: GOTO 7
    6 PRINT STR$(P);LEFT$(T$,M);: P=Q: M=0
    7 NEXT J:PRINT STR$(P)

    #RC2014 : 14 (thank you JonV)
    #BBCMicro : 19
    #AmstradCPC : 22 (thank you Devlin)
    #AmstradPCW : 23 (thank you Pete)
    #AcornElectron : 25
    #C128 : 27 (fast mode - thank you Jonas H)
    #LuxorABC80 : 29 (thank you Erik)
    #SharpMZ700 : 32 (thank you Tim Holyoake)
    #VIC20 : 36
    #AcornAtom : 37
    #AppleII : 38 (thank you Jeroen)
    #TRS80CoCo : 42 (thank you Chip)
    #Atari800 : 42 (thank you Mark Elliott)
    #CBMPET : 43
    #C64 : 43
    #Dragon32 : 44
    #SharpMZ80K : 45 (thank you Tim Holyoake)
    #C16 : 46
    #Altair8800 : 52
    #MSX : 53 (thank you Pixel Purrito)
    #C128 : 56 (default "mode")
    #ZX80 : 57
    #ZXSpectrum : 68 (thank you Adam)
    #SharpPC1500A : 167 (thank you Karttu)
    #ZX81 : 213 (native slow mode)
    #SharpPC1245 : 405 (thank you Karttu)

    Edit: now ordered (seconds)

  3. Tested various micros running this FLOATING POINT program. It derives Pi to 20 decimal places. Interesting stats.

    1 N=20: L=INT(10*N/3): DIM A(255): Z$="000000":T$="999999"
    2 FOR I=1 TO L: A(I)=2: NEXT I: M=0: P=0: FOR J=1 TO N: Q=0: K=2*L+1
    3 FOR I=L TO 1 STEP -1: K=K-2: X=10*A(I)+Q*I: Q=INT(X/K): A(I)=X-Q*K: NEXT I
    4 Y =INT(Q/10): A(1)=Q-10*Y: Q=Y: IF Q=9 THEN LET M=M+1: GOTO 7
    5 IF Q=10 THEN PRINT STR$(P+1);LEFT$(Z$,M);: P=0: M=0: GOTO 7
    6 PRINT STR$(P);LEFT$(T$,M);: P=Q: M=0
    7 NEXT J:PRINT STR$(P)

    #RC2014 : 14 (thank you JonV)
    #BBCMicro : 19
    #AmstradCPC : 22 (thank you Devlin)
    #AmstradPCW : 23 (thank you Pete)
    #AcornElectron : 25
    #C128 : 27 (fast mode - thank you Jonas H)
    #LuxorABC80 : 29 (thank you Erik)
    #SharpMZ700 : 32 (thank you Tim Holyoake)
    #VIC20 : 36
    #AcornAtom : 37
    #AppleII : 38 (thank you Jeroen)
    #TRS80CoCo : 42 (thank you Chip)
    #Atari800 : 42 (thank you Mark Elliott)
    #CBMPET : 43
    #C64 : 43
    #Dragon32 : 44
    #SharpMZ80K : 45 (thank you Tim Holyoake)
    #C16 : 46
    #Altair8800 : 52
    #MSX : 53 (thank you Pixel Purrito)
    #C128 : 56 (default "mode")
    #ZX80 : 57
    #ZXSpectrum : 68 (thank you Adam)
    #SharpPC1500A : 167 (thank you Karttu)
    #ZX81 : 213 (native slow mode)
    #SharpPC1245 : 405 (thank you Karttu)

    Edit: now ordered (seconds)

  4. Tested various micros running this FLOATING POINT program. It derives Pi to 20 decimal places. Interesting stats.

    1 N=20: L=INT(10*N/3): DIM A(255): Z$="000000":T$="999999"
    2 FOR I=1 TO L: A(I)=2: NEXT I: M=0: P=0: FOR J=1 TO N: Q=0: K=2*L+1
    3 FOR I=L TO 1 STEP -1: K=K-2: X=10*A(I)+Q*I: Q=INT(X/K): A(I)=X-Q*K: NEXT I
    4 Y =INT(Q/10): A(1)=Q-10*Y: Q=Y: IF Q=9 THEN LET M=M+1: GOTO 7
    5 IF Q=10 THEN PRINT STR$(P+1);LEFT$(Z$,M);: P=0: M=0: GOTO 7
    6 PRINT STR$(P);LEFT$(T$,M);: P=Q: M=0
    7 NEXT J:PRINT STR$(P)

    #RC2014 : 14 (thank you JonV)
    #BBCMicro : 19
    #AmstradCPC : 22 (thank you Devlin)
    #AmstradPCW : 23 (thank you Pete)
    #AcornElectron : 25
    #C128 : 27 (fast mode - thank you Jonas H)
    #LuxorABC80 : 29 (thank you Erik)
    #SharpMZ700 : 32 (thank you Tim Holyoake)
    #VIC20 : 36
    #AcornAtom : 37
    #AppleII : 38 (thank you Jeroen)
    #TRS80CoCo : 42 (thank you Chip)
    #Atari800 : 42 (thank you Mark Elliott)
    #CBMPET : 43
    #C64 : 43
    #Dragon32 : 44
    #SharpMZ80K : 45 (thank you Tim Holyoake)
    #C16 : 46
    #Altair8800 : 52
    #MSX : 53 (thank you Pixel Purrito)
    #C128 : 56 (default "mode")
    #ZX80 : 57
    #ZXSpectrum : 68 (thank you Adam)
    #SharpPC1500A : 167 (thank you Karttu)
    #ZX81 : 213 (native slow mode)
    #SharpPC1245 : 405 (thank you Karttu)

    Edit: now ordered (seconds)

  5. Tested various micros running this FLOATING POINT program. It derives Pi to 20 decimal places. Interesting stats.

    1 N=20: L=INT(10*N/3): DIM A(255): Z$="000000":T$="999999"
    2 FOR I=1 TO L: A(I)=2: NEXT I: M=0: P=0: FOR J=1 TO N: Q=0: K=2*L+1
    3 FOR I=L TO 1 STEP -1: K=K-2: X=10*A(I)+Q*I: Q=INT(X/K): A(I)=X-Q*K: NEXT I
    4 Y =INT(Q/10): A(1)=Q-10*Y: Q=Y: IF Q=9 THEN LET M=M+1: GOTO 7
    5 IF Q=10 THEN PRINT STR$(P+1);LEFT$(Z$,M);: P=0: M=0: GOTO 7
    6 PRINT STR$(P);LEFT$(T$,M);: P=Q: M=0
    7 NEXT J:PRINT STR$(P)

    #RC2014 : 14 (thank you JonV)
    #BBCMicro : 19
    #AmstradCPC : 22 (thank you Devlin)
    #AmstradPCW : 23 (thank you Pete)
    #AcornElectron : 25
    #C128 : 27 (fast mode - thank you Jonas H)
    #LuxorABC80 : 29 (thank you Erik)
    #SharpMZ700 : 32 (thank you Tim Holyoake)
    #VIC20 : 36
    #AcornAtom : 37
    #AppleII : 38 (thank you Jeroen)
    #TRS80CoCo : 42 (thank you Chip)
    #Atari800 : 42 (thank you Mark Elliott)
    #CBMPET : 43
    #C64 : 43
    #Dragon32 : 44
    #SharpMZ80K : 45 (thank you Tim Holyoake)
    #C16 : 46
    #Altair8800 : 52
    #MSX : 53 (thank you Pixel Purrito)
    #C128 : 56 (default "mode")
    #ZX80 : 57
    #ZXSpectrum : 68 (thank you Adam)
    #SharpPC1500A : 167 (thank you Karttu)
    #ZX81 : 213 (native slow mode)
    #SharpPC1245 : 405 (thank you Karttu)

    Edit: now ordered (seconds)

  6. Mistodon: One final silly April Fool's screen, mashing up a little #Easter into the heady mix, this #AcornElectron high resolution graphics screen was drawn by The Elk and included in the MIST0418 artpack collection released 8 years ago this month.

  7. Mistodon: One final silly April Fool's screen, mashing up a little #Easter into the heady mix, this #AcornElectron high resolution graphics screen was drawn by The Elk and included in the MIST0418 artpack collection released 8 years ago this month.

  8. Mistodon: One final silly April Fool's screen, mashing up a little #Easter into the heady mix, this #AcornElectron high resolution graphics screen was drawn by The Elk and included in the MIST0418 artpack collection released 8 years ago this month.

  9. Mistodon: One final silly April Fool's screen, mashing up a little #Easter into the heady mix, this #AcornElectron high resolution graphics screen was drawn by The Elk and included in the MIST0418 artpack collection released 8 years ago this month.

  10. Mistodon: One final silly April Fool's screen, mashing up a little #Easter into the heady mix, this #AcornElectron high resolution graphics screen was drawn by The Elk and included in the MIST0418 artpack collection released 8 years ago this month.

  11. Elite for the #AcornElectron often gets a bad press for its cut-down features, compared to the BBC and other versions. But instead of focusing on what it lacks, we should be amazed that the game was able to run on the little machine at all, thanks to David Braben & Ian Bell!

  12. Elite for the #AcornElectron often gets a bad press for its cut-down features, compared to the BBC and other versions. But instead of focusing on what it lacks, we should be amazed that the game was able to run on the little machine at all, thanks to David Braben & Ian Bell!

  13. Elite for the #AcornElectron often gets a bad press for its cut-down features, compared to the BBC and other versions. But instead of focusing on what it lacks, we should be amazed that the game was able to run on the little machine at all, thanks to David Braben & Ian Bell!

  14. Who else writes their own programming utilities?

    Here's my UDG designer for the #AcornElectron and #BBCMIcro

  15. Who else writes their own programming utilities?

    Here's my UDG designer for the #AcornElectron and #BBCMIcro

  16. Who else writes their own programming utilities?

    Here's my UDG designer for the #AcornElectron and #BBCMIcro

  17. Who else writes their own programming utilities?

    Here's my UDG designer for the #AcornElectron and #BBCMIcro

  18. Who else writes their own programming utilities?

    Here's my UDG designer for the #AcornElectron and #BBCMIcro

  19. Fedora Hat plot using 160 column TEXT on the #BBCMicro / #AcornElectron

    Plotted with random alphanumerics

  20. Fedora Hat plot using 160 column TEXT on the #BBCMicro / #AcornElectron

    Plotted with random alphanumerics

  21. Fedora Hat plot using 160 column TEXT on the #BBCMicro / #AcornElectron

    Plotted with random alphanumerics

  22. Fedora Hat plot using 160 column TEXT on the #BBCMicro / #AcornElectron

    Plotted with random alphanumerics

  23. Fedora Hat plot using 160 column TEXT on the #BBCMicro / #AcornElectron

    Plotted with random alphanumerics

  24. Might latest Acorn Electron addition, Desk Diary, a real gem from @lordarse.com much better than Google 😁 #AcornElectron #Acorn #Electron #Retrocomputing

  25. Might latest Acorn Electron addition, Desk Diary, a real gem from @lordarse.com much better than Google 😁 #AcornElectron #Acorn #Electron #Retrocomputing

  26. "Red Phosphor Faulty Land-Rovers; Smite Thee!!"

    Probably the longest name for a game.

    Nice little game I made in 2019 for the #AcornElectron

  27. "Red Phosphor Faulty Land-Rovers; Smite Thee!!"

    Probably the longest name for a game.

    Nice little game I made in 2019 for the #AcornElectron

  28. "Red Phosphor Faulty Land-Rovers; Smite Thee!!"

    Probably the longest name for a game.

    Nice little game I made in 2019 for the #AcornElectron

  29. "Red Phosphor Faulty Land-Rovers; Smite Thee!!"

    Probably the longest name for a game.

    Nice little game I made in 2019 for the #AcornElectron

  30. "Red Phosphor Faulty Land-Rovers; Smite Thee!!"

    Probably the longest name for a game.

    Nice little game I made in 2019 for the #AcornElectron