So, here's the error:
Code: Select all
Illegal function call
*highlights line #17*
Code: Select all
MS-DOS QBasic
Version 1.1
Copyright (C) Microsoft Corporation, 1987-1992.
Code: Select all
SCREEN 1
CLS
FOR y = 1 TO 5
FOR x = 1 TO 36
READ z
PSET (x - 1, y - 1), z
NEXT
NEXT
DATA 3,3,3,0,0,0,3,0,0,3,3,0,0,0,0,3,3,3,0,3,0,3,3,3,3,0,0,3,3,0,0,0,0,0,0,0
DATA 0,3,0,3,0,3,0,3,0,3,0,3,0,0,0,0,3,0,0,3,0,3,0,3,0,3,0,3,0,0,0,0,0,0,0,0
DATA 0,3,3,0,0,3,3,3,0,3,0,3,0,0,0,0,3,0,0,3,0,3,0,3,0,3,0,3,3,0,0,0,0,0,0,0
DATA 0,3,0,3,0,3,0,3,0,3,0,3,0,0,0,0,3,0,0,3,0,3,0,3,0,3,0,3,0,0,0,0,0,0,0,0
DATA 3,3,3,0,0,3,0,3,0,3,3,0,0,0,0,0,3,0,0,3,0,3,0,3,0,3,0,3,3,0,3,0,3,0,3,0
DIM bad3%(37)
DIM bad2%(37)
DIM bad1%(37)
GET (0, 0)-(5, 36), bad3%
FOR y = 1 TO 5
FOR x = 1 TO 36
READ z
IF z = 3 THEN
z = 2
END IF
PSET (x - 1, y - 1), z
NEXT
NEXT
GET (0, 0)-(5, 36), bad2%
FOR y = 1 TO 5
FOR x = 1 TO 36
READ z
IF z = 3 THEN
z = 1
END IF
PSET (x - 1, y - 1), z
NEXT
NEXT
GET (0, 0)-(5, 36), bad1%
CLS
PUT (0, 0), bad1%
PUT (0, 37), bad2%
PUT (0, 37 * 2), bad3%