SCREEN 13 BITMAP 0, 0, "256color.bmp" SUB BITMAP (x, y, nome$) bmp = FREEFILE OPEN nome$ FOR BINARY AS #bmp dato$ = SPACE$(2) GET #bmp, 19, dato$ larghezza = ASC(MID$(dato$, 1, 1)) + ASC(MID$(dato$, 2, 1)) * 256 GET #bmp, 23, dato$ altezza = ASC(MID$(dato$, 1, 1)) + ASC(MID$(dato$, 2, 1)) * 256 DIM rosso, verde, blu AS INTEGER dato$ = SPACE$(4) SEEK #bmp, 55 FOR c = 0 TO 255 GET #bmp, , dato$ blu = INT(ASC(MID$(dato$, 1, 1)) / 4) verde = INT(ASC(MID$(dato$, 2, 1)) / 4) rosso = INT(ASC(MID$(dato$, 3, 1)) / 4) PALETTE c, rosso + verde * 256 + blu * 65536 NEXT c dato$ = SPACE$(1) SEEK #bmp, 1079 FOR yy = altezza - 1 TO 0 STEP -1 FOR xx = 0 TO larghezza - 1 GET #bmp, , dato$ colore = ASC(dato$) PSET (xx + x, yy + y), colore NEXT xx NEXT yy CLOSE #bmp END SUB