Re: Am I being stupid or not? (Illegal Function on GET)

2016-05-10T15:42:04-05:00

When the DATA runs out you can RESTORE for next READ.

Code:

SCREEN 1CLSFOR y = 1 TO 5    FOR x = 1 TO 36        READ z        PSET (x - 1, y - 1), z    NEXTNEXTDatafield: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,0DATA 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,0DATA 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,0DATA 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,0DATA 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,0SLEEPDIM bad3%(4 * 37)  'approx array size is same as dimensions DIM bad2%(4 * 37)DIM bad1%(4 * 37)GET (0, 0)-(36, 4), bad3%(0)  'GET 36 columns by 4 rows highRESTORE DatafieldFOR y = 1 TO 5    FOR x = 1 TO 36        READ z        IF z = 3 THEN z = 2        PSET (x - 1, y - 1), z    NEXTNEXTGET (0, 0)-(36, 4), bad2%(0)SLEEPRESTORE DatafieldFOR y = 1 TO 5    FOR x = 1 TO 36        READ z        IF z = 3 THEN z = 1        PSET (x - 1, y - 1), z    NEXTNEXTGET (0, 0)-(36, 4), bad1%(0)SLEEPCLSPUT (0, 0), bad1%(0)  'PUT each array image below previousSLEEPPUT (0, 5), bad2%(0)SLEEPPUT (0, 10), bad3%(0)

QB64 would need _FULLSCREEN to see properly

Statistics: Posted by burger2227 — Tue May 10, 2016 3:42 pm

Am I being stupid or not? (Illegal Function on GET)

2016-05-06T23:19:38-05:00

Sorry, but I'm not completely sure what the problem is.
So, here's the error:

Code:

Illegal function call*highlights line #17*

here's the QB version:

Code:

MS-DOS QBasicVersion 1.1Copyright (C) Microsoft Corporation, 1987-1992.

and, here's the code:

Code:

SCREEN 1CLSFOR y = 1 TO 5FOR x = 1 TO 36READ zPSET (x - 1, y - 1), zNEXTNEXTDATA 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,0DATA 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,0DATA 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,0DATA 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,0DATA 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,0DIM bad3%(37)DIM bad2%(37)DIM bad1%(37)GET (0, 0)-(5, 36), bad3%FOR y = 1 TO 5FOR x = 1 TO 36READ zIF z = 3 THENz = 2END IFPSET (x - 1, y - 1), zNEXTNEXTGET (0, 0)-(5, 36), bad2%FOR y = 1 TO 5FOR x = 1 TO 36READ zIF z = 3 THENz = 1END IFPSET (x - 1, y - 1), zNEXTNEXTGET (0, 0)-(5, 36), bad1%CLSPUT (0, 0), bad1%PUT (0, 37), bad2%PUT (0, 37 * 2), bad3%

And if you would like to know my intentions, I'm trying to make a amateur *air quotes* screen saver.

Statistics: Posted by ScottBeebiWan — Fri May 06, 2016 11:19 pm

Pete's QBASIC Site

Re: Am I being stupid or not? (Illegal Function on GET)

Am I being stupid or not? (Illegal Function on GET)