So I've been trying to get this to work for the past 2 hours and it still just tells me I have syntax errors (even though yesterday it was working perfectly). If anyone can see something that could be causing the issue then please help ASAP.
Rem Project: Launch
Rem Created: Friday, March 18, 2016
Rem ***** Main Source File *****
#CONSTANT ship 1
#CONSTANT earth 2
#CONSTANT moon 3
#CONSTANT sun 4
#CONSTANT octa 13
#CONSTANT octb 14
#CONSTANT octc 15
#CONSTANT nofuel 16
#CONSTANT map 17
#CONSTANT mapship 18
GLOBAL angle AS FLOAT
GLOBAL keypressed AS BYTE
GLOBAL fuel AS INTEGER
Setup()
Space()
fuel = 50000
REPEAT
ScrollV()
ScrollH()
HandleKeys()
FuelLeft()
PrintFuel()
UNTIL fuel = 0
END
FUNCTION Setup()
SET DISPLAY MODE 1440,900,32
COLOR BACKDROP RGB(79,74,89)
BACKDROP ON
ENDFUNCTION
FUNCTION Space()
LOAD IMAGE "earth.png",2
SPRITE earth, SCREEN WIDTH()/2, SCREEN HEIGHT()/2,2
OFFSET SPRITE earth,SPRITE WIDTH(earth)/2,SPRITE HEIGHT(earth)/2
LOAD IMAGE "moon.png",3
SPRITE moon, SCREEN WIDTH()/2 + 200, SCREEN HEIGHT()/2 - 200,3
OFFSET SPRITE moon,SPRITE WIDTH(moon)/2,SPRITE HEIGHT(moon)/2
LOAD IMAGE "ship.png",1
SPRITE ship, SCREEN WIDTH()/2, SCREEN HEIGHT()/2,1
OFFSET SPRITE ship,SPRITE WIDTH(ship)/2,SPRITE HEIGHT(ship)/2
SET SPRITE PRIORITY ship,1
LOAD IMAGE "sun.png",4
SPRITE sun, 8640, SCREEN HEIGHT()/2,4
OFFSET SPRITE sun,SPRITE WIDTH(sun)/2,SPRITE HEIGHT(sun)/2
LOAD IMAGE "octa.png",13
LOAD IMAGE "octb.png",14
LOAD IMAGE "octc.png",15
LOAD IMAGE "nofuel.png",16
LOAD IMAGE "map.png",17
SPRITE map, 222, 64,17
OFFSET SPRITE map,SPRITE WIDTH(map)/2,SPRITE HEIGHT(map)/2
LOAD IMAGE "mapship.png",18
SPRITE mapship, SPRITE WIDTH(map)/2 + 1,SPRITE HEIGHT(map)/2 + 1,18
OFFSET SPRITE mapship,SPRITE WIDTH(mapship)/2,SPRITE HEIGHT(mapship)/2
ENDFUNCTION
FUNCTION HandleKeys()
IF KEYSTATE(30) = 1
angle = WRAPVALUE(angle - 0.3)
ELSE
IF KEYSTATE(32) = 1
angle = WRAPVALUE(angle + 0.3)
ENDIF
ENDIF
IF KEYSTATE(57) = 1
MOVE SPRITE ship,1
ENDIF
ROTATE SPRITE ship,angle
ENDFUNCTION
FUNCTION ScrollV()
IF SPRITE Y(ship) < 30
spaceoffsety = spaceoffsety - 1
MOVE SPRITE ship,-1
MOVE SPRITE mapship,0.01
MOVE SPRITE sun,-0.5
MOVE SPRITE earth,-0.5
MOVE SPRITE moon,-0.5
ELSE
IF SPRITE Y(ship) > 870
spaceoffsety = spaceoffsety + 1
MOVE SPRITE ship,-1
MOVE SPRITE mapship,-0.01
MOVE SPRITE sun,0.5
MOVE SPRITE earth,0.5
MOVE SPRITE moon,0.5
ENDIF
ENDIF
ENDFUNCTION
FUNCTION ScrollH()
IF SPRITE X(ship) < 30
spaceoffsetx = spaceoffsetx - 1
MOVE SPRITE ship,-1
ROTATE SPRITE mapship,270
ROTATE SPRITE sun,90
ROTATE SPRITE earth,90
ROTATE SPRITE moon,90
MOVE SPRITE mapship,0.02
MOVE SPRITE sun,1
MOVE SPRITE earth,1
MOVE SPRITE moon,1
ROTATE SPRITE mapship,0
ROTATE SPRITE sun,0
ROTATE SPRITE earth,0
ROTATE SPRITE moon,0
SYNC
ELSE
IF SPRITE X(ship) > 1410
spaceoffsetx = spaceoffsetx + 1
MOVE SPRITE ship,-1
ROTATE SPRITE mapship,90
ROTATE SPRITE sun,270
ROTATE SPRITE earth,270
ROTATE SPRITE moon,270
MOVE SPRITE mapship,0.02
MOVE SPRITE sun,1
MOVE SPRITE earth,1
MOVE SPRITE moon,1
ROTATE SPRITE mapship,0
ROTATE SPRITE sun,0
ROTATE SPRITE earth,0
ROTATE SPRITE moon,0
SYNC
ENDIF
ENDIF
ENDFUNCTION
FUNCTION FuelLeft()
IF KEYSTATE(57) = 1
fuel = fuel - 1
ENDIF
ENDFUNCTION
FUNCTION PrintFuel()
SET CURSOR 50,100
PRINT "Fuel: "
SET CURSOR 150,100
PRINT fuel
ENDFUNCTION