Search found 101 matches
- Fri Feb 10, 2006 12:32 am
- Forum: QBASIC and QB64 Questions & Answers
- Topic: Here's the answer. What's the question?
- Replies: 0
- Views: 10666
Here's the answer. What's the question?
DECLARE FUNCTION readInt! (file%, offset%) 'Coded by drnull OPEN "..\qbpics\a1.sqr" FOR BINARY AS #1 SCREEN 13 CLS DIM picH, picW AS INTEGER DIM bpp AS INTEGER bpp = 8 picW = readInt(1, 8 ) / bpp picH = readInt(1, 10) PRINT "Width is" + STR$(picW) PRINT "Height is" + ST...