+- Qbasicnews.com (http://qbasicnews.com/newforum)
+-- Forum: QbasicNews.Com (http://qbasicnews.com/newforum/forum-3.html)
+--- Forum: Challenges (http://qbasicnews.com/newforum/forum-10.html)
+--- Thread: Your best "Hello, world!" program in FreeBasic (/thread-8801.html)
Your best "Hello, world!" program in FreeBasic - LooseCaboose - 02-04-2006
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!!!!"Your best "Hello, world!" program in FreeBasic - NecrosIhsan - 02-04-2006
:lol: :lol: :rotfl: :rotfl: :lol: :lol:
AOLer style ftw!
Your best "Hello, world!" program in FreeBasic - yetifoot - 02-04-2006
please what is 111111one11!!!!!
i never understand.
Your best "Hello, world!" program in FreeBasic - NecrosIhsan - 02-04-2006
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
Your best "Hello, world!" program in FreeBasic - Rattrapmax6 - 02-04-2006
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..
..
Your best "Hello, world!" program in FreeBasic - stylin - 02-04-2006
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 subYour best "Hello, world!" program in FreeBasic - NecrosIhsan - 02-04-2006
stylin, take a freakin' chill pill. Don't make me beat you down with a Hello World hose.
Your best "Hello, world!" program in FreeBasic - Rattrapmax6 - 02-05-2006
. . . :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
SLEEPYour best "Hello, world!" program in FreeBasic - LooseCaboose - 02-05-2006
Palindromic:
Code:
DEFSTR A-Z'
MER = "Hello World"'
PRINT MER
REM TNIRP
'"dlroW olleH" = REM
'Z-A RTSFEDYour best "Hello, world!" program in FreeBasic - Dr_Davenstein - 02-05-2006
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.