My question is why doesn't the data statement work in subs? When it try putting data in Subs I get an error that says "illegal procedure or Def Fn" I says that while highlighting the first data thingy. Heres a program to show you what I mean.

Thanks in advance,
Razor



,************************************************************

DECLARE SUB Fire ()
DECLARE SUB Ro ()
SCREEN 7

Fire
Ro

PUT (50, 50), Fire
PUT (70, 50), Ro

SUB Fire
xlenght = 10
ylenght = 10
FOR y = 1 TO ylenght
FOR x = 1 TO xlenght
READ z
PSET (x, y), z
NEXT
NEXT
Fire:
DATA 00,00,00,04,00,00,04,00,00,00
DATA 00,00,04,04,00,04,04,00,00,00
DATA 00,00,04,04,04,04,04,00,00,00
DATA 00,04,04,12,12,04,04,00,00,00
DATA 00,04,04,12,12,04,04,00,00,00
DATA 00,04,04,12,12,04,04,00,00,00
DATA 00,04,12,12,12,04,04,04,00,00
DATA 00,04,12,14,14,12,04,04,00,00
DATA 04,04,12,14,14,14,12,04,00,00
DATA 04,04,12,14,14,14,12,04,00,00
DIM Fire(xlenght * ylenght)
GET (0, 0)-(xlenght, ylenght), Fire
CLS
xlenght = 10
ylenght = 10
FOR y = 1 TO ylenght
FOR x = 1 TO xlenght
READ z
PSET (x, y), z
NEXT
NEXT
END SUB

SUB Ro
Ro:
DATA 00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00
DATA 00,00,02,02,00,00,00,00,00,00
DATA 00,02,00,00,02,00,00,00,00,00
DATA 02,00,00,00,00,02,00,00,00,00
DATA 02,00,00,00,00,02,00,00,00,00
DATA 00,02,00,00,02,00,00,00,00,00
DATA 00,00,02,02,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00
DIM Ro(xlenght * ylenght)
GET (0, 0)-(xlenght, ylenght), Ro
CLS
END SUB

,************************************************************