Your best "Hello, world!" program in FreeBasic

[Rattrapmax6]

:lol: . . .

This one is a two in one... Try changing the MODE$ between ZSinus or YSinus.... =)

Code:

SCREENRES 800, 600, 32, 2
WINDOWTITLE "Printer Scroll..."
DIM SHARED AS INTEGER P1, P2 = 1
DIM AS INTEGER Scroll(800*600*4+4)

DIM AS INTEGER HELLO(42) = {1,2,1, 0, 1,3,3, 0, 1,4,4, 0, 1,4,4, 0, 1,5,1,_
                0, 0, 1,4,1,4,1, 0, 1,5,1, 0, 1,6,7,8, 0, 1,4,4, 0, 1,5,9}

'ZSINUS or YSINUS
MODE$ = "ZSINUS"

HEIGHT = 40
LWDTH = 20
DROP = 300 - (HEIGHT/2)
DO
    SCREENSET P1, P2
    SWAP P1, P2
    CLS
    Ang += 1
    IF UCASE$(MODE$) = "YSINUS" THEN
        OFST = 1 * SIN(Ang * 3.14/180)
        PUT(-1,OFST), Scroll, Alpha, 255
        COLOUR = RGB(0, 255, 0)
    ELSEIF UCASE$(MODE$) = "ZSINUS" THEN
        PUT(-1,OFST), Scroll, PSET
        COLV! = 110 * SIN(Ang * 3.14 / 180)
        COLOUR = RGB(0, COLV! + 145, 0)
    END IF
    
    IF LETT <= (UBOUND(HELLO)) THEN
        IF HELLO(LETT) = 0 THEN
                
        ELSEIF HELLO(LETT) = 1 THEN
            LINE(799, DROP)-(799, DROP + HEIGHT), COLOUR
        ELSEIF HELLO(LETT) = 2 THEN
            LINE(799, DROP + 15)-(799, DROP + HEIGHT - 15), COLOUR
        ELSEIF HELLO(LETT) = 3 THEN
            LINE(799, DROP)-(799, DROP + 5), COLOUR
            LINE(799, DROP + 15)-(799, DROP + HEIGHT - 15), COLOUR
            LINE(799, DROP + HEIGHT - 5)-(799, DROP + HEIGHT), COLOUR
        ELSEIF HELLO(LETT) = 4 THEN
            LINE(799, DROP + HEIGHT - 5)-(799, DROP + HEIGHT), COLOUR
        ELSEIF HELLO(LETT) = 5 THEN
            LINE(799, DROP)-(799, DROP + 5), COLOUR
            LINE(799, DROP + HEIGHT - 5)-(799, DROP + HEIGHT), COLOUR
        ELSEIF HELLO(LETT) = 6 THEN
            LINE(799, DROP)-(799, DROP + 5), COLOUR
            LINE(799, DROP + 15)-(799, DROP + HEIGHT - 15), COLOUR
        ELSEIF HELLO(LETT) = 7 THEN
            LINE(799, DROP)-(799, DROP + 5), COLOUR
            LINE(799, DROP + 15)-(799, DROP + HEIGHT), COLOUR
        ELSEIF HELLO(LETT) = 8 THEN
            LINE(799, DROP)-(799, DROP + 25), COLOUR
        ELSEIF HELLO(LETT) = 9 THEN
            LINE(799, DROP + 5)-(799, DROP + HEIGHT - 5), COLOUR
        END IF
    END IF
    
    GET(0,0)-(799, 599), Scroll
    LCNT += 1
    IF LCNT = 20 THEN LETT += 1: LCNT = 0
    IF LETT = 60 THEN LETT = 0
    
    SLEEP 2
LOOP UNTIL INKEY$ <> ""