Qbasicnews.com

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

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

Awesomeness. Smile

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

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

Rattrapmax6

Dr_Davenstein

stylin

Phydaux

Zack

yetifoot

DrV

E.K.Virtanen

Nathan1993

stylin