Your best "Hello, world!" program in FreeBasic

[Zack]

This doesn't work on my XP, but I think it would work in 95/98.

Code:

DIM AS STRING HelloWorld, WantedString
WantedString="Hello, World!"
DO UNTIL HelloWorld="Hello, World!"
    IF PEEK(A)=ASC(WantedString[S]) THEN
        HelloWorld[S]=CHR$(PEEK(A))
        S=S+1
    END IF
    A+=1
LOOP
PRINT HelloWorld
END