---

msxscr

Mi 1987e laboris kelkajn monatojn per du bonegaj MSX2-komputilojn de Philips, nome VG-8235 kaj NMS-8250. Mi ne havis ŝancon tre koni la normon MSX, kiu malgraŭ siaj nekonvenaĵoj estis bona iniciato por normigo, kun siatempe tre kapablaj maŝinoj kaj bonkvalitaj programoj. Du jarojn poste, mi trovis en diskedo bildojn iam ciferigitajn per unu el tiuj komputiloj. Ĉi programon mi verkis por vidi ilin per mia komputilo QL.

La programo legas la enhavon de la bilda MSX-dosiero, bitokon post bitoko, kalkulas la korespondan koloron por la punkto de la QL-ekrano kaj pentras ĝin. Fine ĝi konservas la bildon en dosieron.

La 8-kolorajn bildo-formatojn de QL kaj MSX2 estas similaj, pro kio la tasko estis multe pli simpla ol traduki ekran-bildon de Spectrum al QL.

Fontkodo

La fontkodo estas en la hispana lingvo, sed ĝi tre facile kompreneblas.

100 REMark msxscr
110 REMark Convierte una pantalla del modo SCREEN 8 de MSX2 al formato de la Sinclair QL.
120 :
130 REMark Copyright (C) 1989 Marcos Cruz (http://programandala.net)
140 REMark Licencia/Permesilo/License: http://programandala.net/licencia
150 :
160 REMark 1989-06-06
170 :
180 TK2_EXT:REMark Toolkit II
190 MODE 8
200 OPEN#3,con_512x256a0x0
210 PAPER#3,0
220 INPUT#3,"Nombre final"!n$
230 CLS#3
240 OPEN#4,mdv1_mi_pic
250 FOR y=0 TO 212
260   FOR x=0 TO 512 STEP 2
270     BGET#4,pixel_msx
280     rojo=pixel_msx && BIN("00000111")
290     amarillo=(pixel_msx && BIN("00111000"))/16
300     azul=(pixel_msx && BIN("11000000"))/64
310     color=rojo+amarillo+azul
320     BLOCK#3,2,1,x,y,color
330   END FOR x
340 END FOR y
350 SBYTES n$,131072,32768
360 STOP

Deŝutoj

• msxscr_bas (776 B)