mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-09 14:00:17 +00:00
28 lines
460 B
QBasic
28 lines
460 B
QBasic
$CONSOLE:ONLY
|
|
OPTION _EXPLICIT
|
|
|
|
CHDIR _STARTDIR$
|
|
|
|
DIM fileName AS STRING
|
|
|
|
READ fileName
|
|
WHILE LEN(fileName) > 0
|
|
DIM img AS LONG: img = _LOADIMAGE("./" + fileName)
|
|
|
|
IF img < -1 THEN
|
|
PRINT fileName; ": ("; _WIDTH(img); "x"; _HEIGHT(img); ") pixels"
|
|
_FREEIMAGE img
|
|
ELSE
|
|
PRINT fileName; " is not a valid image file!"
|
|
END IF
|
|
|
|
READ fileName
|
|
WEND
|
|
|
|
SYSTEM
|
|
|
|
DATA good1.svg
|
|
DATA good2.svg
|
|
DATA bogus1.svg
|
|
DATA bogus2.svg
|
|
DATA
|