# Qbasicnews.com

Full Version: Your best "Hello, world!" program in FreeBasic
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Pages: 1 2 3 4 5 6
: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\$ <> ""```

: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```
Awesomeness.
Shortest working code:
Code:
`? "Hello, World!"`
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```
@DRV yes very clever way!! i was fooled for a moment that it DID use the internet.

PS. it says HVllo World
Oops, typo (swapped 56 for 65)... fixed.
Too simple ones i just made.

1'st
Code:
```SCREEN 18 : Width 80,60 DIM Text(2) AS STRING     Text(1) = "Hello_" : Text(2) = "World" DIM n, x, r AS INTEGER For r = 1 TO 2    LOCATE 1,1 : Print Text(r)     For n = 0 TO LEN(Text(1)) * 8        For x = 0 TO 7           IF POINT(n, x) > 0 THEN         LOCATE x+(10*r),n+(1+(r*8)) : Color x + 23 : Print CHR\$(177);         PSET(n, x), 0 : Sleep 50           END IF        Next x     Next n Next r Sleep```

2'nd
Code:
```Randomize Timer CLS DIM WeWantThis AS STRING     WeWantThis = "HelloWorld" For i = 1 TO LEN(WeWantThis)     DO     IsCorrect = INT(RND * 57) + 66     LOCATE 10,i : Print CHR\$(IsCorrect);     SLEEP 100     LOOP Until MID\$(WeWantThis,i,1) = CHR\$(IsCorrect) Next i SLEEP```
Code:
```type Node     'The address of the node before us     PrevNode as Node ptr     'The address of the node after us     NextNode as Node ptr     'The data in this node     NodeData as string end type declare sub SetNodeData(byref Node as Node ptr, byval NodeData as string) declare sub DestroyNode(byref Node as Node ptr) declare sub DestroyList(byref NodeHead as Node ptr) declare function AddNode(byref CurrentNode as Node ptr, byval NodeData as string) as Node ptr declare function GetNextNode(byref Node as Node ptr) as node ptr declare function GetNodeData(byref Node as Node ptr) as string declare function GetPrevNode(byref Node as Node ptr) as Node ptr sub SetNodeData(byref Node as Node ptr, byval NodeData as string)     Node->NodeData = NodeData end sub sub DestroyNode(byref Node as Node ptr)     'We need to make 2 node ptrs     'one for the node after us, and     'one for the node before us     dim as Node ptr PrevNode, NextNode          'Get the address of the node before     'and after us     PrevNode = GetPrevNode(Node)     NextNode = GetPrevNode(Node)          'If we don't have a node before us, don't update     'the node before us     if NextNode <> 0 then         'We need to tell it that the node before it is         'the node before Node -- not Node itself         NextNode->PrevNode = PrevNode     end if          'Make sure we arn't accessing a null pointer     if PrevNode <> 0 then         'We need to tell the node before us that         'the node after us is it's next node         PrevNode->NextNode = NextNode     end if          'Get rid of our Node     deallocate(Node) end sub sub DestroyList(byref NodeHead as Node ptr)     dim as Node ptr CurrentNode = NodeHead     dim as Node ptr NextNode     dim as integer i = 1     do while GetNextNode(CurrentNode) = 0         NextNode = GetNextNode(CurrentNode)         DestroyNode(CurrentNode)         CurrentNode = NextNode     loop end sub function AddNode(byref CurrentNode as Node ptr, byval NodeData as string) as Node ptr     'Make a new node and give it the space of a Node type     dim as Node ptr NewNode = callocate(len(Node))          'Give the new node the data that we were told to     NewNode->NodeData = NodeData          'Give the old node the address of the new node     CurrentNode->NextNode = NewNode          'Set our current node to the one we made     return NewNode end function function GetNextNode(byref Node as Node ptr) as node ptr     if Node->NextNode <> 0 then         return Node->NextNode     else         return Node     end if end function function GetNodeData(byref Node as Node ptr) as string     return Node->NodeData end function function GetPrevNode(byref Node as Node ptr) as Node ptr     if Node->PrevNode <> 0 then         return Node->PrevNode     else         return Node     end if end function 'Make the head of the node dim as Node ptr ListHead = callocate(len(Node)) 'Make our first node with the data of "Hello" dim as Node ptr CurrentNode 'Put some data into our nodes CurrentNode = AddNode(ListHead, "Hello") CurrentNode = AddNode(CurrentNode, " ") CurrentNode = AddNode(CurrentNode, "world!") 'Lets traverse through our 3 nodes and get out our data CurrentNode = GetNextNode(ListHead) print GetNodeData(CurrentNode); CurrentNode = GetNextNode(CurrentNode) print GetNodeData(CurrentNode); CurrentNode = GetNextNode(CurrentNode) print GetNodeData(CurrentNode) DestroyList(ListHead)[list] Actually an accident -- I wrote this and just had to post this, as I remembered about this thread.[/list]```
Inspired by the movie War Games:

Code:
```'' compile with fbc version dim target as string = "Hello, world!" dim matches(0 to len(target) - 1) as integer dim numMatches as integer = 0 dim test as string = space(13) randomize timer cls do     dim i as integer     for i = 0 to len(target) - 1         if not matches(i) then             do                 test[i] = int(rnd * 256)             loop while test[i] < 32                          if test[i] = target[i] then                 matches(i) = -1                 numMatches += 1             end if         end if     next     locate 1,1 : print test : sleep 50              if numMatches = len(target) then exit do loop```
Pages: 1 2 3 4 5 6