mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 04:07:46 +00:00
9ee89d6ff4
These tests use a variety of sample code (with some of the larger files removed, so they are not complete!) and verifies that they all compile successfully.
35 lines
567 B
QBasic
35 lines
567 B
QBasic
'QB Graphics Utility which reads the width and height of a SCREEN 13 BSAVEd image
|
|
'Written by drnull 02/09/06
|
|
|
|
DECLARE FUNCTION readInt! (file%, offset%)
|
|
|
|
SCREEN 13
|
|
CLS
|
|
|
|
INPUT "BSAVEd Filename>"; pic$
|
|
OPEN pic$ FOR BINARY AS #1
|
|
|
|
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 (file%, offset%)
|
|
|
|
DIM a$
|
|
a$ = " "
|
|
|
|
GET file%, offset%, a$
|
|
value = ASC(a$)
|
|
GET file%, , a$
|
|
value = value OR (ASC(a$) * 256)
|
|
|
|
readInt = value
|
|
|
|
END FUNCTION
|