Koodit: QB: PCX-tiedoston tutkinta

CLS

OPEN "kuva.pcx" FOR INPUT AS 1
a$ = INPUT$(1, #1)
PRINT "aina 10: "; ASC(a$)
a$ = INPUT$(1, #1)
PRINT "Versio: "; ASC(a$)
a$ = INPUT$(1, #1)
PRINT "RLE-koodaus (aina 1): "; ASC(a$)
a$ = INPUT$(1, #1)
PRINT "Bittiä pikseliä kohti: "; ASC(a$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Kuvan vasen yläkulma, x: "; ASC(a$) * 256 + ASC(b$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Kuvan vasen yläkulma, y: "; ASC(a$) * 256 + ASC(b$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Kuvan koko, x: "; ASC(b$) * 256 + ASC(a$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Kuvan koko, y: "; ASC(b$) * 256 + ASC(a$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Pikselien määrä x-suunnassa: "; ASC(b$) * 256 + ASC(a$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Pikselien määrä y-suunnassa: "; ASC(b$) * 256 + ASC(a$)
'ega-paletti. turha, joten ohitetaan
FOR i = 1 TO 48: a$ = INPUT$(1, #1): NEXT i
a$ = INPUT$(1, #1)
PRINT "Ei mitään?: "; ASC(a$)
a$ = INPUT$(1, #1)
PRINT "Kuvan tasojen määrä: "; ASC(a$)
a$ = INPUT$(1, #1)
b$ = INPUT$(1, #1)
PRINT "Tavujen määrä yhdellä vaakasuoralla viivalla: "; ASC(b$) * 256 + ASC(a$)
'ja sitten tässä olisi vielä 60 merkkiä "turhaa tietoa", jota ei nyt avata...

CLOSE 1