The only time I use REM on the same line as a command is to let myself know just what the variables/UDTs/DIMs are... any other time it's on it's own line(s).
This is just a snip of a program I made (won't work on it's own).
randomize timer()
global PlayerX ` Current X coordinate of Player
global PlayerY ` Current Y coordinate of player
global SafeX ` Last safe X location (with floor) for player
global SafeY ` Last safe Y location (with floor) for player
global CImage ` Current Image number of player
global PlatMax ` Max # of platforms
global Score ` Current Score
global Coins ` Number of coins gathered
global Jump
` Define the Background UDT
type Backgrounds
Image as integer ` Current Background Image Number (animations)
X as integer ` Background X
Y as integer ` Background Y
Rate as integer ` Background Scroll Rate
endtype
type ItemData
X as integer ` X Cooridinate
Y as integer ` Y Cooridinate
Image as integer ` Current Image number (used to make random coin animations)
CTimer as integer ` Timer for each coin
Exist as integer ` Item on or off (1=on 0=off)
endtype
dim Back(6) as Backgrounds ` Background Stuff
dim SafeBack(6) as Backgrounds ` Old (safe) background information (just the x and y)
dim Item(100) as ItemData ` 0 is key 1-99 are coins
LoadItemData("Items.txt")
Score=0
Lives=5
` Set and load backgrounds
Image=100:Rate=1
for t=1 to 6
` Set Image numbers and scroll rate
Back(t).Image=Image
Back(t).Rate=Rate
` Offset background images a bit off screen
if t<4 then Back(t).X=-200
` Load the image
load image "Media\Back "+str$(t)+".png",Back(t).Image,1
` Go to next image and rate
inc Image
inc Rate
next t
Yeah, IanM is right don't bother with colon. The only time I use it when defining things that go together like x and y coordinates.
GOTO is a classic command that should be learned and used till you learn about better methods using GOSUB and/or functions. Without knowing the past you'll never know just exactly why the new methods are "better".
One thing not mentioned yet is indenting. When you don't indent it's really hard to follow where your loops start and end if you have multiple loops close together. I only use once space but many people use Tab.
Not indented:
ink rgb(255,0,0),0
for x=1 to 500 step 20
for y=1 to 500 step 20
circle x,y,40
next y
next x
ink rgb(0,255,0),0
for x=1 to 500 step 10
for y=1 to 500 step 10
circle x,y,30
next y
next x
wait key
Indented:
ink rgb(255,0,0),0
for x=1 to 500 step 20
for y=1 to 500 step 20
circle x,y,40
next y
next x
ink rgb(0,255,0),0
for x=1 to 500 step 10
for y=1 to 500 step 10
circle x,y,30
next y
next x
wait key
