Qbasicnews.com
December 09, 2018, 10:35:22 PM *
Welcome, Guest. Please login or register.

Login with username, password and session length
News: Back to Qbasicnews.com | QB Online Help | FAQ | Chat | All Basic Code | QB Knowledge Base
 
   Home   Help Search Login Register  
Pages: 1 2 [3] 4
  Print  
Author Topic: Your best "Hello, world!" program in FreeBasic  (Read 43538 times)
LooseCaboose
I hold this place together
*****
Posts: 981



« Reply #30 on: February 03, 2006, 07:13:28 PM »

Quote from: "NecrosIhsan"

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?
Logged

esus saves.... Passes to Moses, shoots, he scores!
NecrosIhsan
Been there, done that
*****
Posts: 1191



« Reply #31 on: February 03, 2006, 09:07:00 PM »

:lol:  :lol:  :rotfl:  :rotfl:  :lol:  :lol:

AOLer style ftw! Cheesy
Logged

\__/)
(='.'=) Copy bunny into your signature to
(")_(") help him gain world domination.
yetifoot
Ancient Guru
****
Posts: 575



« Reply #32 on: February 03, 2006, 10:48:01 PM »

please what is 111111one11!!!!!

i never understand.
Logged

EVEN MEN OF STEEL RUST.
NecrosIhsan
Been there, done that
*****
Posts: 1191



« Reply #33 on: February 04, 2006, 09:41:42 AM »

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
Logged

\__/)
(='.'=) Copy bunny into your signature to
(")_(") help him gain world domination.
Rattrapmax6
__/--\__
*****
Posts: 2577



WWW
« Reply #34 on: February 04, 2006, 01:05:35 PM »

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 ..
Logged

Kevin (x.t.r.GRAPHICS)

stylin
Ancient QBer
****
Posts: 445


« Reply #35 on: February 04, 2006, 02:04:56 PM »

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
Logged

stylin:
NecrosIhsan
Been there, done that
*****
Posts: 1191



« Reply #36 on: February 04, 2006, 03:06:27 PM »

stylin, take a freakin' chill pill. Don't make me beat you down with a Hello World hose.
Logged

\__/)
(='.'=) Copy bunny into your signature to
(")_(") help him gain world domination.
Rattrapmax6
__/--\__
*****
Posts: 2577



WWW
« Reply #37 on: February 04, 2006, 04:48:43 PM »

. . . :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
Logged

Kevin (x.t.r.GRAPHICS)

LooseCaboose
I hold this place together
*****
Posts: 981



« Reply #38 on: February 04, 2006, 07:13:09 PM »

Palindromic:
Code:

DEFSTR A-Z'
MER = "Hello World"'
PRINT MER
REM TNIRP
'"dlroW olleH" = REM
'Z-A RTSFED

God I'm bored ;-)
Logged

esus saves.... Passes to Moses, shoots, he scores!
Dr_Davenstein
Na_th_an
*****
Posts: 2052


« Reply #39 on: February 04, 2006, 10:30:46 PM »

Quote from: "Rattrapmax6"
. . . :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
Logged
Rattrapmax6
__/--\__
*****
Posts: 2577



WWW
« Reply #40 on: February 04, 2006, 11:13:14 PM »

: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$ <> ""
Logged

Kevin (x.t.r.GRAPHICS)

Dr_Davenstein
Na_th_an
*****
Posts: 2052


« Reply #41 on: February 05, 2006, 12:16:29 AM »

Nothing dangerous about this, but man...

:rotfl:

edit:
glad you found it humorous... but i should have added another sleep.  :lol:

Code:
Screen 12

Type Point2D
    As Integer X,Y
End Type

READ ArrCnt

Dim As Point2D Cursive(ArrCnt)


For i=0 To ArrCnt
    Read Cursive(i).X, Cursive(i).Y
    Pset( Cursive(i).X, Cursive(i).Y ), 31
    Sleep 1
Next

Sleep

Data 1405
Data 98,111
Data 99,111
Data 100,111
Data 101,110
Data 102,110
Data 103,110
Data 104,110
Data 106,110
Data 107,110
Data 108,110
Data 109,110
Data 110,110
Data 111,110
Data 112,111
Data 112,112
Data 112,113
Data 112,114
Data 112,115
Data 112,116
Data 112,117
Data 112,118
Data 112,119
Data 112,120
Data 112,121
Data 111,122
Data 111,123
Data 110,123
Data 109,124
Data 108,124
Data 107,124
Data 106,124
Data 105,124
Data 104,124
Data 103,124
Data 102,124
Data 101,124
Data 100,124
Data 100,122
Data 99,122
Data 98,121
Data 98,120
Data 97,119
Data 96,118
Data 96,117
Data 96,116
Data 96,115
Data 96,114
Data 97,113
Data 97,112
Data 98,112
Data 98,111
Data 99,111
Data 99,110
Data 100,110
Data 101,110
Data 102,110
Data 103,110
Data 104,110
Data 105,110
Data 105,111
Data 106,111
Data 107,112
Data 108,112
Data 108,113
Data 109,113
Data 109,114
Data 109,115
Data 109,116
Data 109,117
Data 109,118
Data 109,119
Data 109,120
Data 109,121
Data 109,122
Data 109,123
Data 109,124
Data 109,125
Data 109,126
Data 109,127
Data 109,128
Data 109,130
Data 109,131
Data 109,133
Data 109,134
Data 109,136
Data 109,137
Data 109,138
Data 109,140
Data 109,142
Data 109,143
Data 109,145
Data 109,146
Data 109,148
Data 109,150
Data 109,152
Data 108,154
Data 108,155
Data 108,158
Data 108,159
Data 108,160
Data 107,161
Data 107,164
Data 107,165
Data 106,166
Data 106,168
Data 106,170
Data 106,172
Data 106,173
Data 106,175
Data 106,177
Data 105,179
Data 105,181
Data 105,183
Data 105,184
Data 105,186
Data 105,187
Data 105,188
Data 105,189
Data 154,114
Data 153,114
Data 152,114
Data 151,115
Data 150,116
Data 149,117
Data 149,118
Data 149,119
Data 149,120
Data 148,121
Data 147,122
Data 147,123
Data 147,125
Data 146,127
Data 145,129
Data 145,131
Data 144,133
Data 144,134
Data 143,137
Data 143,138
Data 143,139
Data 142,141
Data 142,143
Data 142,145
Data 141,146
Data 141,147
Data 141,149
Data 141,151
Data 141,152
Data 141,153
Data 141,156
Data 140,157
Data 140,158
Data 140,160
Data 140,161
Data 140,162
Data 140,163
Data 140,165
Data 140,166
Data 140,167
Data 140,168
Data 140,170
Data 140,171
Data 140,172
Data 140,174
Data 140,176
Data 140,177
Data 140,178
Data 140,180
Data 140,181
Data 140,183
Data 140,184
Data 140,185
Data 140,186
Data 140,187
Data 140,186
Data 140,185
Data 110,152
Data 111,152
Data 112,152
Data 114,153
Data 115,153
Data 117,153
Data 118,153
Data 119,153
Data 120,153
Data 121,153
Data 123,153
Data 124,153
Data 126,153
Data 127,153
Data 129,153
Data 130,153
Data 131,153
Data 132,153
Data 133,153
Data 135,153
Data 136,153
Data 137,153
Data 138,153
Data 139,153
Data 140,153
Data 141,153
Data 171,181
Data 172,180
Data 174,179
Data 176,179
Data 178,178
Data 180,176
Data 184,175
Data 186,174
Data 187,173
Data 189,170
Data 189,169
Data 190,166
Data 191,165
Data 191,164
Data 191,161
Data 192,160
Data 192,158
Data 192,157
Data 192,155
Data 192,153
Data 192,151
Data 192,149
Data 192,148
Data 192,147
Data 192,146
Data 192,145
Data 192,144
Data 191,145
Data 190,145
Data 190,146
Data 189,146
Data 188,148
Data 188,149
Data 187,150
Data 186,151
Data 186,152
Data 185,152
Data 185,154
Data 185,155
Data 184,156
Data 184,157
Data 183,158
Data 183,159
Data 183,161
Data 182,162
Data 182,164
Data 182,165
Data 182,166
Data 182,167
Data 182,168
Data 182,169
Data 182,170
Data 182,171
Data 182,172
Data 183,172
Data 183,173
Data 183,174
Data 184,175
Data 184,176
Data 184,177
Data 185,177
Data 185,178
Data 186,178
Data 187,178
Data 188,178
Data 189,178
Data 191,178
Data 192,178
Data 193,178
Data 195,178
Data 195,177
Data 196,176
Data 198,176
Data 199,175
Data 200,174
Data 202,174
Data 202,173
Data 204,172
Data 205,171
Data 206,170
Data 207,170
Data 208,168
Data 209,168
Data 210,166
Data 212,165
Data 212,163
Data 214,161
Data 215,160
Data 216,158
Data 218,156
Data 218,154
Data 220,153
Data 220,150
Data 222,148
Data 223,146
Data 224,144
Data 226,141
Data 227,138
Data 228,136
Data 229,135
Data 230,132
Data 231,130
Data 232,129
Data 232,127
Data 232,125
Data 232,124
Data 232,123
Data 232,121
Data 232,120
Data 232,119
Data 232,118
Data 232,116
Data 232,115
Data 231,115
Data 231,114
Data 230,114
Data 229,115
Data 228,115
Data 227,117
Data 226,118
Data 225,120
Data 223,121
Data 223,122
Data 223,123
Data 222,124
Data 221,126
Data 220,127
Data 220,129
Data 218,130
Data 218,132
Data 217,133
Data 216,134
Data 216,135
Data 215,136
Data 215,137
Data 215,138
Data 215,139
Data 214,140
Data 214,141
Data 214,142
Data 214,143
Data 214,145
Data 214,146
Data 214,147
Data 214,148
Data 214,149
Data 213,150
Data 213,151
Data 213,152
Data 213,154
Data 213,156
Data 213,157
Data 213,158
Data 213,159
Data 213,160
Data 213,161
Data 213,162
Data 213,164
Data 213,165
Data 213,167
Data 213,169
Data 214,170
Data 214,171
Data 215,171
Data 215,172
Data 216,172
Data 217,173
Data 218,173
Data 219,174
Data 220,174
Data 221,174
Data 222,174
Data 223,174
Data 224,175
Data 225,175
Data 227,175
Data 228,175
Data 230,175
Data 231,175
Data 233,175
Data 235,174
Data 235,173
Data 237,173
Data 237,172
Data 238,172
Data 239,170
Data 240,170
Data 240,169
Data 241,168
Data 243,167
Data 244,166
Data 246,165
Data 247,164
Data 248,163
Data 249,162
Data 250,161
Data 251,160
Data 252,159
Data 253,157
Data 254,156
Data 255,155
Data 256,153
Data 257,151
Data 258,150
Data 259,148
Data 259,147
Data 260,145
Data 261,143
Data 261,142
Data 261,140
Data 261,139
Data 261,137
Data 261,135
Data 261,133
Data 261,132
Data 261,130
Data 261,128
Data 261,127
Data 261,126
Data 261,125
Data 261,123
Data 261,121
Data 260,120
Data 260,119
Data 260,118
Data 260,117
Data 260,116
Data 259,116
Data 258,116
Data 258,117
Data 257,118
Data 257,119
Data 255,121
Data 254,122
Data 253,123
Data 252,125
Data 251,127
Data 250,128
Data 249,131
Data 249,133
Data 248,135
Data 247,137
Data 246,140
Data 246,141
Data 246,144
Data 246,145
Data 245,146
Data 245,148
Data 245,149
Data 245,150
Data 245,152
Data 244,152
Data 244,153
Data 244,154
Data 244,155
Data 244,156
Data 244,157
Data 244,158
Data 244,159
Data 244,161
Data 244,162
Data 244,164
Data 244,165
Data 244,167
Data 244,168
Data 244,169
Data 244,170
Data 245,171
Data 245,172
Data 245,173
Data 246,173
Data 246,174
Data 247,174
Data 248,174
Data 249,174
Data 251,174
Data 253,174
Data 255,174
Data 256,174
Data 257,174
Data 259,174
Data 260,174
Data 261,174
Data 262,174
Data 263,174
Data 264,173
Data 265,173
Data 266,172
Data 268,171
Data 270,170
Data 271,170
Data 273,169
Data 274,168
Data 275,168
Data 277,167
Data 277,166
Data 279,166
Data 279,165
Data 280,165
Data 281,164
Data 282,163
Data 282,162
Data 283,162
Data 283,161
Data 284,160
Data 284,159
Data 286,158
Data 286,157
Data 286,156
Data 286,154
Data 286,153
Data 286,152
Data 286,151
Data 285,151
Data 284,151
Data 283,151
Data 282,151
Data 281,151
Data 280,151
Data 279,152
Data 278,152
Data 278,153
Data 277,154
Data 276,155
Data 276,156
Data 275,157
Data 274,159
Data 274,160
Data 274,162
Data 273,163
Data 273,164
Data 273,166
Data 273,168
Data 272,169
Data 272,171
Data 272,172
Data 272,174
Data 272,175
Data 272,176
Data 272,177
Data 273,177
Data 274,177
Data 276,177
Data 278,177
Data 280,177
Data 282,177
Data 284,177
Data 287,177
Data 289,176
Data 292,175
Data 293,175
Data 294,174
Data 295,173
Data 296,172
Data 296,171
Data 297,170
Data 298,170
Data 299,168
Data 300,168
Data 301,166
Data 301,165
Data 301,164
Data 301,163
Data 301,162
Data 301,161
Data 301,160
Data 300,159
Data 299,158
Data 299,156
Data 298,155
Data 297,154
Data 296,153
Data 295,152
Data 294,152
Data 293,151
Data 292,151
Data 291,150
Data 290,150
Data 290,149
Data 289,148
Data 288,148
Data 287,147
Data 287,148
Data 287,149
Data 287,150
Data 288,150
Data 290,151
Data 291,151
Data 295,151
Data 297,151
Data 299,151
Data 300,151
Data 301,151
Data 303,151
Data 304,150
Data 304,149
Data 304,150
Data 297,211
Data 298,210
Data 299,210
Data 300,210
Data 302,210
Data 303,210
Data 304,210
Data 306,210
Data 306,211
Data 307,211
Data 308,212
Data 309,212
Data 311,213
Data 312,215
Data 313,215
Data 314,217
Data 315,218
Data 316,219
Data 316,221
Data 317,222
Data 318,223
Data 318,224
Data 318,225
Data 318,227
Data 319,228
Data 319,229
Data 319,230
Data 319,232
Data 319,233
Data 319,234
Data 319,235
Data 318,237
Data 317,237
Data 317,238
Data 316,239
Data 315,240
Data 314,241
Data 312,242
Data 311,242
Data 310,243
Data 309,243
Data 308,243
Data 308,242
Data 306,241
Data 305,241
Data 304,240
Data 304,239
Data 303,239
Data 303,238
Data 302,238
Data 302,237
Data 301,237
Data 301,235
Data 299,235
Data 299,233
Data 298,232
Data 297,231
Data 297,230
Data 296,229
Data 295,228
Data 295,227
Data 295,226
Data 294,225
Data 294,224
Data 294,222
Data 294,221
Data 294,219
Data 294,218
Data 294,217
Data 295,216
Data 295,215
Data 295,214
Data 296,214
Data 296,213
Data 297,213
Data 298,212
Data 299,212
Data 300,211
Data 301,210
Data 302,210
Data 303,209
Data 304,209
Data 306,209
Data 307,209
Data 308,209
Data 309,209
Data 310,209
Data 311,209
Data 312,210
Data 314,210
Data 314,212
Data 316,212
Data 316,214
Data 317,214
Data 318,216
Data 318,217
Data 319,218
Data 319,219
Data 319,220
Data 319,221
Data 319,222
Data 319,223
Data 319,224
Data 319,225
Data 319,227
Data 319,229
Data 319,230
Data 319,232
Data 319,234
Data 319,236
Data 319,237
Data 319,239
Data 319,240
Data 319,242
Data 319,243
Data 319,244
Data 319,245
Data 318,246
Data 318,247
Data 318,248
Data 318,250
Data 318,251
Data 318,253
Data 318,254
Data 317,256
Data 317,258
Data 317,259
Data 316,259
Data 316,261
Data 315,262
Data 315,263
Data 315,264
Data 314,265
Data 314,266
Data 313,267
Data 313,268
Data 312,270
Data 311,271
Data 311,273
Data 310,274
Data 310,275
Data 309,277
Data 308,278
Data 308,279
Data 307,280
Data 307,281
Data 306,282
Data 306,284
Data 305,284
Data 304,286
Data 303,287
Data 303,288
Data 302,288
Data 302,289
Data 302,290
Data 301,290
Data 301,291
Data 300,291
Data 300,292
Data 299,292
Data 299,294
Data 298,294
Data 298,295
Data 297,295
Data 297,296
Data 297,295
Data 297,294
Data 298,292
Data 299,291
Data 300,289
Data 301,289
Data 301,288
Data 302,287
Data 303,287
Data 304,286
Data 306,285
Data 307,284
Data 308,283
Data 309,282
Data 310,281
Data 311,280
Data 312,278
Data 314,277
Data 315,276
Data 316,276
Data 316,274
Data 317,274
Data 318,273
Data 318,272
Data 319,272
Data 320,271
Data 320,270
Data 321,270
Data 322,269
Data 322,268
Data 323,268
Data 324,267
Data 325,266
Data 325,265
Data 326,265
Data 326,264
Data 326,265
Data 326,266
Data 326,268
Data 326,269
Data 326,270
Data 326,271
Data 326,273
Data 326,275
Data 326,277
Data 326,278
Data 326,279
Data 326,280
Data 326,281
Data 326,282
Data 326,283
Data 326,284
Data 326,285
Data 326,286
Data 326,287
Data 327,288
Data 327,289
Data 328,291
Data 329,292
Data 329,293
Data 329,294
Data 330,295
Data 330,296
Data 331,296
Data 331,297
Data 332,297
Data 332,298
Data 333,299
Data 333,300
Data 333,299
Data 333,298
Data 333,297
Data 333,296
Data 333,295
Data 333,292
Data 334,291
Data 335,289
Data 335,287
Data 335,285
Data 336,284
Data 336,283
Data 336,281
Data 336,280
Data 336,279
Data 336,277
Data 336,276
Data 336,275
Data 336,273
Data 337,271
Data 338,269
Data 339,267
Data 340,264
Data 341,262
Data 342,259
Data 343,257
Data 344,255
Data 345,252
Data 347,249
Data 348,246
Data 350,244
Data 351,241
Data 354,237
Data 356,233
Data 357,230
Data 360,228
Data 361,226
Data 363,224
Data 365,221
Data 367,219
Data 369,217
Data 371,216
Data 373,214
Data 375,214
Data 376,212
Data 377,212
Data 379,211
Data 379,210
Data 380,210
Data 379,212
Data 379,215
Data 374,265
Data 373,266
Data 372,267
Data 371,269
Data 370,270
Data 370,271
Data 369,272
Data 368,272
Data 368,274
Data 367,274
Data 367,275
Data 367,276
Data 367,277
Data 367,278
Data 366,278
Data 366,279
Data 366,280
Data 366,281
Data 366,282
Data 366,284
Data 366,285
Data 366,286
Data 366,287
Data 366,288
Data 367,288
Data 367,289
Data 368,289
Data 369,289
Data 371,290
Data 372,290
Data 373,290
Data 375,290
Data 376,290
Data 377,290
Data 378,290
Data 379,289
Data 380,288
Data 381,287
Data 381,286
Data 383,285
Data 384,283
Data 385,282
Data 385,281
Data 386,278
Data 387,277
Data 387,275
Data 387,273
Data 387,272
Data 387,270
Data 387,269
Data 387,267
Data 387,266
Data 386,265
Data 386,264
Data 385,263
Data 384,262
Data 384,261
Data 383,261
Data 382,261
Data 382,260
Data 381,260
Data 380,260
Data 379,260
Data 378,260
Data 377,260
Data 376,260
Data 376,261
Data 375,262
Data 375,263
Data 375,264
Data 375,265
Data 375,266
Data 376,266
Data 377,266
Data 379,267
Data 380,267
Data 381,267
Data 382,267
Data 383,267
Data 384,266
Data 385,266
Data 387,265
Data 389,264
Data 389,263
Data 390,263
Data 390,262
Data 391,262
Data 391,261
Data 392,261
Data 392,260
Data 393,259
Data 394,259
Data 395,258
Data 397,257
Data 398,257
Data 399,255
Data 400,254
Data 400,253
Data 402,253
Data 402,252
Data 403,252
Data 404,251
Data 405,250
Data 406,250
Data 407,249
Data 408,249
Data 408,248
Data 407,248
Data 407,249
Data 406,249
Data 406,250
Data 405,250
Data 405,251
Data 404,251
Data 403,252
Data 402,253
Data 402,254
Data 401,254
Data 401,255
Data 400,255
Data 400,256
Data 399,256
Data 399,257
Data 398,257
Data 398,258
Data 398,259
Data 399,260
Data 402,261
Data 404,262
Data 406,262
Data 409,263
Data 410,264
Data 412,264
Data 413,264
Data 414,265
Data 415,265
Data 416,265
Data 416,266
Data 416,267
Data 416,268
Data 416,269
Data 416,270
Data 416,272
Data 416,273
Data 416,275
Data 416,276
Data 416,277
Data 416,278
Data 415,280
Data 415,281
Data 415,282
Data 415,283
Data 415,284
Data 415,285
Data 415,286
Data 415,287
Data 415,288
Data 415,289
Data 415,290
Data 416,290
Data 417,290
Data 419,290
Data 421,291
Data 423,291
Data 426,291
Data 427,291
Data 428,291
Data 429,289
Data 430,288
Data 431,288
Data 433,286
Data 434,285
Data 435,284
Data 436,282
Data 437,280
Data 439,278
Data 440,276
Data 442,274
Data 443,272
Data 444,270
Data 445,267
Data 447,264
Data 448,262
Data 449,260
Data 450,257
Data 451,254
Data 452,251
Data 454,249
Data 454,246
Data 455,244
Data 456,241
Data 456,238
Data 456,235
Data 456,232
Data 456,229
Data 456,227
Data 456,224
Data 456,223
Data 456,222
Data 456,221
Data 455,221
Data 454,222
Data 453,223
Data 452,224
Data 451,226
Data 450,228
Data 449,229
Data 448,232
Data 448,234
Data 447,237
Data 446,240
Data 445,243
Data 444,246
Data 444,249
Data 444,252
Data 444,254
Data 444,257
Data 443,259
Data 443,262
Data 443,263
Data 443,265
Data 443,266
Data 443,268
Data 442,268
Data 442,269
Data 442,270
Data 442,271
Data 442,272
Data 441,272
Data 441,273
Data 441,274
Data 441,275
Data 440,276
Data 440,277
Data 440,278
Data 440,280
Data 440,281
Data 440,282
Data 440,284
Data 440,285
Data 440,286
Data 440,287
Data 440,288
Data 441,288
Data 442,288
Data 443,288
Data 444,288
Data 447,288
Data 448,287
Data 449,287
Data 450,286
Data 451,285
Data 452,284
Data 453,284
Data 453,282
Data 455,282
Data 456,281
Data 457,280
Data 459,279
Data 460,278
Data 461,277
Data 462,276
Data 464,275
Data 465,274
Data 466,273
Data 467,272
Data 468,271
Data 469,271
Data 469,270
Data 470,270
Data 471,270
Data 473,270
Data 475,270
Data 477,270
Data 478,270
Data 480,270
Data 479,270
Data 478,270
Data 477,270
Data 476,270
Data 475,270
Data 474,270
Data 473,270
Data 472,271
Data 470,272
Data 470,273
Data 469,274
Data 468,275
Data 468,276
Data 467,277
Data 467,278
Data 466,279
Data 466,280
Data 465,280
Data 465,281
Data 465,282
Data 464,283
Data 464,284
Data 464,285
Data 465,285
Data 466,285
Data 467,285
Data 468,285
Data 469,284
Data 470,284
Data 471,284
Data 471,283
Data 472,283
Data 472,282
Data 473,281
Data 473,280
Data 474,279
Data 475,278
Data 476,277
Data 476,276
Data 477,275
Data 477,274
Data 478,272
Data 479,272
Data 479,270
Data 479,269
Data 479,268
Data 480,266
Data 480,265
Data 480,264
Data 480,263
Data 480,261
Data 480,260
Data 481,259
Data 481,257
Data 481,256
Data 482,254
Data 482,252
Data 482,251
Data 482,249
Data 482,248
Data 482,245
Data 482,244
Data 482,243
Data 482,241
Data 482,240
Data 482,239
Data 482,238
Data 482,237
Data 482,236
Data 482,237
Data 482,239
Data 481,240
Data 481,241
Data 480,243
Data 480,245
Data 480,247
Data 480,249
Data 480,252
Data 480,254
Data 480,256
Data 479,258
Data 479,261
Data 479,263
Data 479,265
Data 479,266
Data 478,267
Data 478,270
Data 478,271
Data 478,273
Data 478,274
Data 478,276
Data 478,277
Data 478,279
Data 478,280
Data 478,281
Data 478,282
Data 478,283
Data 479,283
Data 479,284
Data 480,285
Data 480,286
Data 481,286
Data 482,286
Data 482,285
Data 482,284
Data 482,283
Data 482,281
Data 504,211
Data 504,212
Data 504,214
Data 504,216
Data 504,218
Data 504,219
Data 504,222
Data 504,225
Data 504,227
Data 504,230
Data 504,232
Data 504,235
Data 504,237
Data 504,239
Data 504,241
Data 504,243
Data 504,245
Data 504,246
Data 504,248
Data 504,250
Data 504,251
Data 504,252
Data 504,253
Data 504,254
Data 504,255
Data 504,257
Data 504,258
Data 504,260
Data 504,261
Data 504,262
Data 504,263
Data 504,264
Data 504,265
Data 504,266
Data 504,267
Data 504,268
Data 504,269
Data 504,270
Data 504,271
Data 504,270
Data 503,269
Data 507,283
Data 507,284
Data 507,285
Data 507,286
Data 506,286
Data 505,286
Data 504,286
Data 503,286
Data 502,286
Data 500,286
Data 499,286
Data 499,285
Data 499,284
Data 499,283
Data 500,282
Data 501,281
Data 502,281
Data 503,281
Data 505,281
Data 507,281
Data 508,282
Data 509,283
Data 510,283
Data 511,283
Data 511,284
Data 511,285
Data 511,286
Data 511,287
Data 510,287
Data 510,288
Data 509,288
Data 508,288
Data 507,288
Data 506,288
Data 505,288
Data 505,287
Data 504,286
Data 503,286
Data 503,285
Data 502,284
Data 502,283
Data 503,283
Data 504,282
Data 505,282
Data 506,282
Data 506,283
Data 506,284
Data 507,284
Data 507,285
Data 507,286
Data 507,287
Data 506,287
Data 505,287
Data 504,287
Data 503,287
Data 503,286
Data 502,285
Data 501,284
Data 501,283
Data 502,282
Data 503,281
Data 503,280
Data 504,280
Data 505,281
Data 507,281
Data 507,282
Data 509,282
Data 509,283
Data 509,284
Data 508,284
Data 507,284
Data 506,284
Data 505,284
Data 504,284
Data 504,283
Data 503,282
Data 503,281
Data 503,280
Data 504,280
Data 505,280
Data 506,281
Data 507,282
Data 508,283
Data 508,284
Data 508,285
Data 508,286
Data 507,286
Data 506,286
Data 506,287
Data 505,287
Data 504,287
Data 504,286
Data 503,285
Data 503,284
Data 503,283
Data 503,282
Data 504,282
Data 505,281
Data 506,280
Logged
stylin
Ancient QBer
****
Posts: 445


« Reply #42 on: February 05, 2006, 04:59:20 AM »

Awesomeness.  Smiley
Logged

stylin:
Phydaux
Senior Member
**
Posts: 200



« Reply #43 on: February 09, 2006, 07:37:23 AM »

Shortest working code:
Code:
? "Hello, World!"

Wink
Logged

url=http://www.spreadfirefox.com/?q=affiliates&id=60131&t=79][/url]
END OF LINE.
Zack
*/-\*
*****
Posts: 3974



WWW
« Reply #44 on: February 09, 2006, 12:11:07 PM »

This doesn't work on my XP, but I think it would work in 95/98.
Code:
DIM AS STRING HelloWorld, WantedString
WantedString="Hello, World!"
DO UNTIL HelloWorld="Hello, World!"
    IF PEEK(A)=ASC(WantedString[S]) THEN
        HelloWorld[S]=CHR$(PEEK(A))
        S=S+1
    END IF
    A+=1
LOOP
PRINT HelloWorld
END
Logged

f only life let you press CTRL-Z.
--------------------------------------
Freebasic is like QB, except it doesn't suck.
Pages: 1 2 [3] 4
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!