Solitario-1K para ZX-81

[dancresp]

La utilidad la escribí precisamente pensando en pasar cintas reales. De hecho la necesidad de preservar una cinta de ZX81 fue lo que me llevó a escribir la utilidad. Incluso hice un video mostrando junto con Sound Forge cómo usar la utilidad en modo "verbose" para ir reparando los daños del WAV en los puntos temporales en donde la utilidad detecta un error que no puede recuperar (y necesita asistencia humana para discernir si lo que hay es un uno, un cero, o ruido). Lo que pasa es que el video aún no lo he editado y publicado

Pues llega el verano y ya no hay excusa para no hacerlo...

Tengo muchos programas escritos hace unos 30 años que me encantaría ver correr en un emulador...

[Hark0]

Bieeeeeeen!

Tus hilos son geniales!

[mcleod_ideafix]

Pues llega el verano y ya no hay excusa para no hacerlo...

En realidad tengo dos: tesis doctoral y bebé

[antoniovillena]

Ahí va otra mejora, ahora ocupan 283 bytes (Spectrum) y 359-365 bytes (ZX81).

solitario.zip

(39.95 KiB) Descargado 502 veces

Spectrum

Código: Seleccionar todo

    0 LET A$= "   OOO    ":\
      LET N= LEN A$:\
      LET D= INT LN N:\
      LET X= D:\
      LET T$= "123456789 "+A$+A$+A$+"OOOOOOOOO OOOO.OOOO OOOOOOOOO "+A$+A$+A$
   87 CLS:\
      FOR I= NOT PI TO PI*PI:\
        PRINT I; T$(I*N+SGN PI TO I*N+N):\
      NEXT I:\
      INPUT A$:\
      IF SQR LEN A$=D THEN\
          LET I= VAL A$(   TO D):\
          LET J= VAL A$(PI TO  ):\
          LET K= (I+J)/D:\
          IF T$(I)+T$(J)+T$(K)="O.O" THEN\
              IF   ABS(I-J)=D\
                OR ABS(I-K)=N THEN LET T$(I)= ".":\
                                   LET T$(J)= "O":\
                                   LET T$(K)= ".":\
                                   LET X= X+D
    0 GOTO X


ZX81

Código: Seleccionar todo

    1 LET A$= "\!:\!:\!:ooo\!:\!:\!: "
    2 LET N= LEN A$
    3 LET A$= A$+A$+A$
    4 LET D= INT LN N
    5 LET X= N
    6 LET T$= "123456789 "+A$+"ooooooooo oooo\.oooo ooooooooo "+A$
   95 FOR I= NOT PI TO PI*PI
   96   PRINT AT I, D; I; T$(I*N+SGN PI TO I*N+N)
   97 NEXT I
   98 INPUT A$
   99 IF SQR LEN A$<>D THEN GOTO X
  100   LET I= VAL A$(   TO D)
  101   LET J= VAL A$(PI TO  )
  102   IF    T$(I)+T$(J)+T$((I+J)/D)<>"o\.o"\
           OR ABS(I-J)<>D\
          AND ABS(I-J)<>N+N THEN GOTO N
  103       LET T$(I)= "\."
  104       LET T$(J)= "o"
  105       LET T$((I+J)/D)= "\."
  106       LET X= X+D
  107       GOTO N


[Hark0]

Dios!

Suelta eso y se queda tan ancho...