Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Your best "Hello, world!" program in FreeBasic
#31
Quote:if you're writing "Hello, World!" to begin with, well then...either you're a complete n00b...

Shouldn't that be:
Code:
print "H3ll0 w0r1d!!!!!11111one1!!!!"
then?
esus saves.... Passes to Moses, shoots, he scores!
Reply
#32
:lol: :lol: :rotfl: :rotfl: :lol: :lol:

AOLer style ftw! Big Grin
\__/)
(='.'=) Copy bunny into your signature to
(")_(") help him gain world domination.
Reply
#33
please what is 111111one11!!!!!

i never understand.
EVEN MEN OF STEEL RUST.
[Image: chav.gif]
Reply
#34
AOLers like to hold down the !!!!!!!!!! but then sometimes, in their retardedism, let go of the shift key and do 111111111. The "oneoneone" thing is an insult to them...by writing out the 1s in longhand, it's not only continuing on the 111111 thing but it's also insulting their ability to use longhand in the first place SINC3 TH3Y ALWEZ TOK LIEK DIS ROFL LOL!!!!!!!!!!!!!1111111111111oneoneone
\__/)
(='.'=) Copy bunny into your signature to
(")_(") help him gain world domination.
Reply
#35
I HVE U KNW I NVR TOK LIEK THAT PRIOD!!!!!!!!!!!1111111111oneone

:roll: No wait,. bad example....

You'll like to hear, tho,. I'm starting not to like AOL,. It keeps fighting w/ my new comp and modem.. Tongue ..
Kevin (x.t.r.GRAPHICS)

[Image: 11895-r.png]
Reply
#36
Stop polluting my thread with this crap. Here ya go - to get things back on track:

Code:
sub d() destructor : Print "rld!" : end sub

enum boolean : false = 0, true = not false : end enum

function Blind( westernSociety as byte ) as boolean
    dim as string obliviousTo => "o, wo"
    static as integer theDeclineOf => 0
    
    if( obliviousTo[theDeclineOf] = 0 ) then
        System() : end if

    if( obliviousTo[theDeclineOf] = westernSociety ) then
        theDeclineOf += 1
        return true
    end if
    return false
end function

sub Dumb( andDeaf as byte ) : Print Chr( andDeaf ) ;: end sub
    
function IsFoolishness( f as integer, l as integer ) as integer
    return cint( Rnd(1)*(l-f)+f )
end function

function main() as integer
    const AOLSucks as integer = true
    while( AOLSucks )
        dim as byte acceptance => IsFoolishness( 0,255 )
        if( Blind( acceptance ) ) then
            Dumb( acceptance ) : end if
    wend
end function

    end main()

sub c() constructor : Randomize( Timer() ) : Print "Hell" ;: end sub
stylin:
Reply
#37
stylin, take a freakin' chill pill. Don't make me beat you down with a Hello World hose.
\__/)
(='.'=) Copy bunny into your signature to
(")_(") help him gain world domination.
Reply
#38
. . . :roll:

Code:
SCREENRES 320, 200, 32, 2, 1
DIM AS INTEGER P1, P2 = 1
DIM AS INTEGER Smoke(320*200*4+4)

START$ = "FreeBasic, Rocks!"
LEND$ =  "  Hello, World!  "
SX = 1: SV = -1

LOCATE 12, 20 - INT(LEN(START$) / 2): PRINT START$

SLEEP 1000
FOR i = 1 TO LEN(START$)
    LTT = ASC(MID$(START$, i, 1))
    DO
        SCREENSET P1, P2
        SWAP P1, P2
        CLS
        IF LTT = ASC(MID$(LEND$, i, 1)) THEN
            DSPL$ += CHR$(LTT)
            EXIT DO
        END IF
        PUT (SX,-1), Smoke, Alpha, 220
        SX += SV
        IF SX < -1 THEN SV = 1
        IF SX > 1 THEN SV = -1
        LOCATE 12, 20 - INT(LEN(START$) / 2): PRINT START$
        LTT += 1
        IF LTT > 255 THEN LTT = 0
        IF LTT = 7 THEN LTT = 14
        LOCATE 12, 20 - INT(LEN(START$) / 2): PRINT DSPL$ + CHR$(LTT)
        SLEEP 30
        GET(0,0)-(319, 199), Smoke
    LOOP
NEXT

SLEEP
Kevin (x.t.r.GRAPHICS)

[Image: 11895-r.png]
Reply
#39
Palindromic:
Code:
DEFSTR A-Z'
MER = "Hello World"'
PRINT MER
REM TNIRP
'"dlroW olleH" = REM
'Z-A RTSFED
God I'm bored ;-)
esus saves.... Passes to Moses, shoots, he scores!
Reply
#40
Quote:. . . :roll:

Code:
SCREENRES 320, 200, 32, 2, 1
DIM AS INTEGER P1, P2 = 1
DIM AS INTEGER Smoke(320*200*4+4)

START$ = "FreeBasic, Rocks!"
LEND$ =  "  Hello, World!  "
SX = 1: SV = -1

LOCATE 12, 20 - INT(LEN(START$) / 2): PRINT START$

SLEEP 1000
FOR i = 1 TO LEN(START$)
    LTT = ASC(MID$(START$, i, 1))
    DO
        SCREENSET P1, P2
        SWAP P1, P2
        CLS
        IF LTT = ASC(MID$(LEND$, i, 1)) THEN
            DSPL$ += CHR$(LTT)
            EXIT DO
        END IF
        PUT (SX,-1), Smoke, Alpha, 220
        SX += SV
        IF SX < -1 THEN SV = 1
        IF SX > 1 THEN SV = -1
        LOCATE 12, 20 - INT(LEN(START$) / 2): PRINT START$
        LTT += 1
        IF LTT > 255 THEN LTT = 0
        IF LTT = 7 THEN LTT = 14
        LOCATE 12, 20 - INT(LEN(START$) / 2): PRINT DSPL$ + CHR$(LTT)
        SLEEP 30
        GET(0,0)-(319, 199), Smoke
    LOOP
NEXT

SLEEP

Hey, I like that one. Tongue
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)