Illegal function call

by pmarathe (no login)

 

What is wrong with the following code?

Code :

SCREEN _NEWIMAGE(1920, 1080, 32)
_FONT _LOADFONT("C:\WINDOWS\Fonts\Lucon.ttf", 21)
_SCREENMOVE 0, 0
DIM SHARED green(0 TO 25)
DIM SHARED Trail(27700 * 51)
DIM SHARED x(50)
DIM SHARED y(50)
FOR g = 255 TO 5 STEP -10
green(FIX(g / 10)) = g
NEXT g
DIM SHARED position
position = -1

FOR dd = 1 TO 50
getTrail
NEXT dd

FOR fx = 1 TO 50
RANDOMIZE TIMER
x(fx) = INT(RND * 1820) + 1
y(fx) = INT(RND * 200) + 1
NEXT fx

posit = 0
FOR dd = 1 TO 50
posit = posit + 1
FOR fx = 0 TO 24
IF y(fx) >= 500 THEN y(fx) = 100
PUT (x(fx + 1), y(fx + 1)), Trail(posit * 27700 * (fx) / 25)
y(fx) = y(fx) + INT(RND * 10) + 1
NEXT fx
_DISPLAY
CLS
NEXT dd
END

SUB getTrail
position = position + 1
RANDOMIZE TIMER
CLS
FOR fx = 0 TO 25
COLOR _RGB(0, green(fx), 0)
PRINT CHR$(INT(RND * 245) + 10)
NEXT fx
FOR dx = 1 TO (25)
GET (0, (540 / 25) * (dx - 1))-(50, (540 / 25) * dx), Trail((postion + 1) * (27700 / 25) * (dx - 1))
NEXT dx
CLS
END SUB

Posted on Feb 8, 2012, 3:19 PM

Respond to this message   

Return to Index

Response TitleAuthor and Date
PUT images must be on the screen!Clippy on Feb 8
 Re: PUT images must be on the screen!pmarathe on Feb 8
  * You can try VIEW PRINTClippy on Feb 8
   *Same resultpmarathe on Feb 8

 Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement