Search found 101 matches

by Stoves
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: 5071

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" + STR$(picH) FUNCTION readInt (fil...