; Mid Example
; -----------

; Mid$ returns part of a string: Mid$(string$,start[,count]).
; Positions are 1-based. Leave out count to take the rest of the string.

code$="L05-W02-HARD"
Print "Level code: "+code$
Print ""

; Slice the fields out of the level code
Print "Level:      "+Mid$(code$,2,2)
Print "World:      "+Mid$(code$,6,2)
Print "Difficulty: "+Mid$(code$,9)

; Spell a name out one letter at a time
Print ""
name$="Robo"
For i=1 To Len(name$)
    Print "Letter "+i+" of "+name$+" is '"+Mid$(name$,i,1)+"'"
Next

Print ""
Print "Press any key to close the example"
WaitKey

End