Your best "Hello, world!" program in FreeBasic

[E.K.Virtanen]

Too simple ones i just made.

1'st

Code:

SCREEN 18 : Width 80,60

DIM Text(2) AS STRING
    Text(1) = "Hello_" : Text(2) = "World"

DIM n, x, r AS INTEGER

For r = 1 TO 2
   LOCATE 1,1 : Print Text(r)

    For n = 0 TO LEN(Text(1)) * 8
       For x = 0 TO 7
          IF POINT(n, x) > 0 THEN
        LOCATE x+(10*r),n+(1+(r*8)) : Color x + 23 : Print CHR$(177);
        PSET(n, x), 0 : Sleep 50
          END IF
       Next x
    Next n
Next r
Sleep

2'nd

Code:

Randomize Timer
CLS
DIM WeWantThis AS STRING
    WeWantThis = "HelloWorld"
For i = 1 TO LEN(WeWantThis)
    DO
    IsCorrect = INT(RND * 57) + 66
    LOCATE 10,i : Print CHR$(IsCorrect);
    SLEEP 100
    LOOP Until MID$(WeWantThis,i,1) = CHR$(IsCorrect)
Next i
SLEEP