Detectar tipo Spectrum (128k/48k)

Hola.

Pequeña utilidad que nos da la información de que tipo de Spectrum es.

Detecta:

1. Spectrum 48k.
2. Spectrum 128k.
3. Spectrum 128k en modo 48k. 

Bueno, bonito y barato.

10 CLS
20 IF (PEEK 75)<>110 THEN GO TO 90
40 LET x=INT (PEEK 23611/16)
50 LET y=128: LET z=128
60 IF x/2=INT (x/2) THEN LET z=48
70 PRINT AT 2,1;"Spectrum 128k ";"Modo/Mode ";z
80 GO TO 100
90 PRINT AT 2,1;"Spectrum 48k"
100 REM *Final