02-04-2006, 03:13 AM
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!!!!"
Quote:if you're writing "Hello, World!" to begin with, well then...either you're a complete n00b...
print "H3ll0 w0r1d!!!!!11111one1!!!!"
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
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
DEFSTR A-Z'
MER = "Hello World"'
PRINT MER
REM TNIRP
'"dlroW olleH" = REM
'Z-A RTSFED
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