El programa "spritesmaker" en ZX Spectrum Basic ya es un hecho. Lo he terminado esta tarde y aquí lo comparto con vosotros por si a alguien le apetece probarlo. Si se da el caso de que alguien lo pruebe, por favor, que me dé un poco de feedback. Vaya por delante mi agradecimiento.

Por una diferencia en el número de caracteres redefinibles que hay entre el Basic del 48K y del 128K, este programa solo funciona correctamente en el ZX Spectrum 128K.

https://cloud.disroot.org/s/brtYdDRT9jTA7NF

#Spritesmaker #Spectrum #Basic #128K

@UncleClive #128K
10 REM 500 pc speed for 5 mins
20 FLASH 1: PRINT "May not work"

Formatting tips:

I'm picky about the code layout. Currently, the following rules apply.

Start by tagging me on the first line and nobody else. You may add a space and #128K, then a space, and on the next line, start your code.

You may omit the #128K to default to 48K ROMs. If you're eager, you can replace #128K with #16K

Lines must start with a number, and the first line of code must be line 10.

I will loosen this up over time. But those are the rules right now :)

@UncleClive #128K
100 LET a$="UX4000W0N7&&&3BA#G#F5#G3E#F5#G3B&BA#G#F5#G3E#F5#G3E&X2000N3BA#G#F5#G3E#F5#G3B&BA#G#F5#G3E#F5#G3E&H"
110 LET b$=T120Ueb))"
120 PLAY a$,b$
130 LET a$="UX20000W0O6N3b#CD#C5b3#Ca7b3&#CD#Cb#Cba5b3#ga5b3#g&5b3#gaba#ga8b3#g&7&H"
140 PLAY a$,b$
150 LET a$="UX4000W0O5N3BA#G#F5#G3E#F#GABA#G#F5#G3E#F#GABA#G#FH"
160 PLAY a$,b$
170 LET a$="UX4000W0O5N5#GUX30000W0N3E&7#F#F#F"
180 LET b$="5e3#g&7bbb"
190 PLAY a$,b$
@UncleClive #128K
10 LET a$="T180O6(CDEC)(5EF7G)(3GAGF5EC)5Cg7C9CgC"
20 LET b$="O4(CDEC)(5EF7G)(3GAGF5EC)5Eb7E9EbE"
30 LET c$="O3(7CG)(7CG)(7CG)5GD7G9GDG"
35 PRINT "Test 128K ROM mode"
40 PLAY a$,b$,c$
50 REM Third time is the charm
@UncleClive #128K
10 LET a$="T180O6(CDEC)(5EF7G)(3GAGF5EC)5Cg7C9CgC"
20 LET b$="O4(CDEC)(5EF7G)(3GAGF5EC)5Eb7E9EbE"
30 LET c$="O3(7CG)(7CG)(7CG)5GD7G9GDG"
35 PRINT "Test 128K ROM mode"
40 PLAY a$,b$,c$
50 REM Second try
@UncleClive #128K
10 LET a$="T180O6(CDEC)(5EF7G)(3GAGF5EC)5Cg7C9CgC"
20 LET b$="O4(CDEC)(5EF7G)(3GAGF5EC)5Eb7E9EbE"
30 LET c$="O3(7CG)(7CG)(7CG)5GD7G9GDG"
40 PLAY a$,b$,c$
50 REM Just testing 128K mode

A 3D printed full-size Retro Macintosh.
[The Brewintosh]

Kevin Noki decided to build a Macintosh 128K computer with modern parts inside. The decision was made to 3D print a case made to the exact dimensions of an original. A cash register LCD display was repurposed and a USB floppy drive was modified. Teensy and Arduino microcontrollers were used for various low level functionality.

https://youtu.be/7N9oz4Ylzm4

#apple #3dprinting #retrocomputing #news #mac #retro #macintosh #128k #computer

3D Printed Apple Macintosh - The Brewintosh

YouTube