home.social
Sign in Create account

#amstradpcw — Public Fediverse posts

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

  1. electron.greg @[email protected] ·

    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)

    #bbcmicro #acornelectron #vic20 #c64 #c16 #cbmpet
  2. electron.greg @[email protected] ·

    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)

    #bbcmicro #acornelectron #vic20 #c64 #c16 #cbmpet
  3. electron.greg @[email protected] ·

    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)

    #bbcmicro #acornelectron #vic20 #c64 #c16 #cbmpet
  4. electron.greg @[email protected] ·

    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)

    #zx81 #sharppc1500a #sharpmz700 #sharppc1245 #trs80coco #luxorabc80
  5. electron.greg @[email protected] ·

    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)

    #sharppc1245 #sharpmz700 #sharppc1500a #zx81 #bbcmicro #acornelectron
  6. Pyrzout :vm: @[email protected] ·

    An Amstrad PCW Receives A Bit Of Love hackaday.com/2025/04/06/an-ams #Retrocomputing #amstradPCW #Amstrad #pcw

    #retrocomputing #amstradpcw #amstrad #pcw
  7. IT News @[email protected] ·

    An Amstrad PCW Receives A Bit Of Love - If Clive Sinclair’s genius in consumer electronics was in using ingenious hacks to... - hackaday.com/2025/04/06/an-ams #retrocomputing #amstradpcw #amstrad #pcw

    #retrocomputing #amstradpcw #amstrad #pcw
  8. squelch41 @[email protected] ·

    It lives!
    #amstrad #pcw 9256 resurrected!
    Having got it working then shorted the psu on the floppy housing (🤬), converted to USB-C PD.

    Lots of capacitors replaced and the image is almost stable (a few ~100v caps still need doing as I don't have anything above 50v in stock).

    Pleased :)

    Now just need to make a #cp/m boot disk!

    (Back connector on #thingiverse if anyone ever needs)

    #retrocomputing #amstradpcw #pcw9256 #USBPD

    #amstrad #pcw #cp #thingiverse #retrocomputing #amstradpcw
  9. Jeremy Rayner @[email protected] ·

    #introduction

    I’m Jez from the #UK. I’ve been employed as a #SoftwareEngineer since 1994 in a variety of companies. I have also made #iOS games and contributed to #OpenSource Projects including #Groovy

    I was inspired to code on the #Atari400 in the early 80’s, followed by the #BBCMicro #AmstradPCW #Amiga #PCXT and #486 PCs, I still use most of these and the #FPGA #retrocomputing remakes

    I also design #MechanicalPuzzles, and enjoy the theory and technique behind #CardMagic

    Cheers
    Jez

    #introduction #uk #softwareengineer #ios #opensource #groovy
  10. Jeremy Rayner @[email protected] ·

    #introduction

    I’m Jez from the #UK. I’ve been employed as a #SoftwareEngineer since 1994 in a variety of companies. I have also made #iOS games and contributed to #OpenSource Projects including #Groovy

    I was inspired to code on the #Atari400 in the early 80’s, followed by the #BBCMicro #AmstradPCW #Amiga #PCXT and #486 PCs, I still use most of these and the #FPGA #retrocomputing remakes

    I also design #MechanicalPuzzles, and enjoy the theory and technique behind #CardMagic

    Cheers
    Jez

    #introduction #uk #softwareengineer #ios #opensource #groovy
  11. Jeremy Rayner @[email protected] ·

    #introduction

    I’m Jez from the #UK. I’ve been employed as a #SoftwareEngineer since 1994 in a variety of companies. I have also made #iOS games and contributed to #OpenSource Projects including #Groovy

    I was inspired to code on the #Atari400 in the early 80’s, followed by the #BBCMicro #AmstradPCW #Amiga #PCXT and #486 PCs, I still use most of these and the #FPGA #retrocomputing remakes

    I also design #MechanicalPuzzles, and enjoy the theory and technique behind #CardMagic

    Cheers
    Jez

    #introduction #uk #softwareengineer #ios #opensource #groovy
  12. Jeremy Rayner @[email protected] ·

    #introduction

    I’m Jez from the #UK. I’ve been employed as a #SoftwareEngineer since 1994 in a variety of companies. I have also made #iOS games and contributed to #OpenSource Projects including #Groovy

    I was inspired to code on the #Atari400 in the early 80’s, followed by the #BBCMicro #AmstradPCW #Amiga #PCXT and #486 PCs, I still use most of these and the #FPGA #retrocomputing remakes

    I also design #MechanicalPuzzles, and enjoy the theory and technique behind #CardMagic

    Cheers
    Jez

    #cardmagic #mechanicalpuzzles #retrocomputing #fpga #pcxt #amiga
  13. Jeremy Rayner @[email protected] ·

    #introduction

    I’m Jez from the #UK. I’ve been employed as a #SoftwareEngineer since 1994 in a variety of companies. I have also made #iOS games and contributed to #OpenSource Projects including #Groovy

    I was inspired to code on the #Atari400 in the early 80’s, followed by the #BBCMicro #AmstradPCW #Amiga #PCXT and #486 PCs, I still use most of these and the #FPGA #retrocomputing remakes

    I also design #MechanicalPuzzles, and enjoy the theory and technique behind #CardMagic

    Cheers
    Jez

    #introduction #uk #softwareengineer #ios #opensource #groovy