You are a BASIC bitch, so type-in and share your BASIC listings here. Any and all BASIC dialects are welcome.

  • Ubuntu Peronista@lemmy.sdf.orgOP
    link
    fedilink
    arrow-up
    1
    ·
    edit-2
    8 months ago

    Star Wars March for the Atari!

    1 GRAPHICS 2+16
    2 ? #6;"STAR WARS THEME"
    3 ? #6;"BY JOHN WILLIAMS"
    4 REM ARR. BY AARON NESS
    5 REM FROM ACE NEWSLETTER, VOL.2,NO.3, MARCH 1981
    8 FOR W=1 TO 500:NEXT W
    9 GRAPHICS 0
    10 READ S,N0,N1,N2,N3
    20 IF N0=-1 THEN END 
    25 ? S;"|";N0;"|";N1;"|";N2;"|";N3
    30 SOUND 0,N0,10,4:SOUND 1,N1,10,4
    35 SOUND 2,N2,10,4:SOUND 3,N3,10,4
    40 FOR X=1 TO S*150:NEXT X:GOTO 10
    100 DATA .3,108,0,0,0
    101 DATA 0,0,0,0,0
    102 DATA .3,108,0,0,0
    104 DATA 0,0,0,0,0
    105 DATA .2,108,0,0,0
    110 DATA 1,81,108,128,162
    111 DATA 1,81,108,128,173
    114 DATA 1,53,64,81,193
    116 DATA 1,53,64,81,217
    120 DATA .3,60,81,96,243
    122 DATA .3,64,81,96,243
    124 DATA .2,72,81,96,243
    125 DATA 1,40,53,64,128
    128 DATA 1,40,53,64,144
    129 DATA 1,53,64,81,162
    140 DATA .3,60,81,96,243
    141 DATA .3,64,81,96,243
    144 DATA .2,72,81,96,243
    145 DATA 1,40,53,64,128
    148 DATA 1,40,53,64,144
    149 DATA 1,53,64,81,162
    160 DATA .3,60,72,91,182
    161 DATA .3,64,72,91,182
    164 DATA .3,60,72,91,182
    165 DATA 2,72,85,108,217
    168 DATA .6,108,0,0,0
    169 DATA 0,0,0,0,0
    172 DATA .3,108,0,0,0
    173 DATA 0,0,0,0,0
    180 DATA 1,81,103,128,162
    181 DATA 1,81,108,128,173
    184 DATA 1,53,64,81,193
    185 DATA 1,53,64,81,217
    190 DATA .3,60,81,96,243
    191 DATA .3,64,81,96,243
    194 DATA .2,72,81,96,243
    196 DATA 1,40,53,64,128
    198 DATA 1,40,53,64,144
    199 DATA 1,53,64,81,162
    210 DATA .3,60,81,96,243
    211 DATA .3,64,81,96,243
    214 DATA .2,72,81,96,243
    215 DATA 1,40,53,64,128
    218 DATA 1,40,53,64,144
    219 DATA 1,53,64,81,162
    230 DATA .3,60,72,91,182
    231 DATA .3,64,72,91,182
    234 DATA .3,60,72,91,182
    235 DATA 1,72,85,108,217
    236 DATA .6,108,0,0,0
    237 DATA 0,0,0,0,0
    238 DATA .3,108,0,0,0
    250 DATA 1.5,96,121,162,0
    251 DATA 0,0,0,0,0
    252 DATA .5,96,0,0,217
    254 DATA .5,60,81,96,217
    255 DATA .5,64,81,96,217
    256 DATA .5,72,81,96,217
    258 DATA .5,81,81,96,217
    270 DATA .3,81,96,0,217
    271 DATA .3,72,96,0,217
    274 DATA .3,64,96,0,217
    275 DATA 1,72,0,0,217
    278 DATA .25,96,0,0,217
    279 DATA 1,85,108,144,217
    282 DATA .6,108,0,0,0
    283 DATA 0,0,0,0,0
    284 DATA .3,108,0,0,0
    290 DATA 1.5,96,121,162,217
    291 DATA 0,0,0,0,0
    292 DATA .5,96,121,162,217
    294 DATA .5,60,81,121,217
    295 DATA .5,64,81,121,217
    298 DATA .5,72,81,121,217
    299 DATA .5,0,81,121,217
    310 DATA .75,53,68,91,136
    311 DATA .25,72,0,0,0
    314 DATA 2,72,85,108,217
    315 DATA .6,108,0,0,0
    318 DATA 0,0,0,0,0
    319 DATA .3,108,0,0,0
    320 DATA 1.5,96,121,162,0
    321 DATA 0,0,0,0,0
    322 DATA .5,96,0,0,217
    324 DATA .5,60,81,96,0
    325 DATA .5,64,81,96,0
    328 DATA .5,72,81,96,217
    329 DATA .5,0,81,96,0
    340 DATA .3,81,96,121,217
    341 DATA .3,72,96,121,0
    344 DATA .3,64,96,121,0
    345 DATA .6,72,96,121,217
    348 DATA .3,0,96,0,0
    349 DATA 1,85,0,0,0
    352 DATA .6,53,0,0,217
    353 DATA 0,0,0,0,0
    354 DATA .3,53,0,0,0
    360 DATA .6,40,50,60,81
    361 DATA .3,45,60,81,128
    364 DATA .6,50,60,81,243
    365 DATA .3,53,0,81,217
    368 DATA .6,60,0,81,204
    369 DATA .3,68,0,0,182
    372 DATA .6,72,0,0,162
    373 DATA .3,81,0,0,144
    380 DATA 1,53,0,0,0
    381 DATA .1,72,85,121,217
    384 DATA 0,0,0,0,0
    385 DATA .1,72,85,121,217
    386 DATA 0,0,0,0,0
    387 DATA .1,72,85,121,217
    388 DATA 0,0,0,0,0
    389 DATA .5,72,85,121,217
    390 DATA .3,0,0,108,0
    391 DATA 0,0,0,0,0
    392 DATA .3,0,0,108,0
    393 DATA 0,0,0,0,0
    394 DATA .3,0,0,108,0
    395 DATA 0,0,0,0,0
    400 DATA 1,81,108,128,162
    401 DATA 1,81,108,128,173
    404 DATA 1,53,64,81,193
    405 DATA 1,53,64,81,217
    410 DATA .3,60,81,96,243
    411 DATA .3,64,81,96,243
    414 DATA .2,72,81,96,243
    415 DATA 1,40,53,64,128
    418 DATA 1,40,53,64,144
    419 DATA 1,53,64,81,162
    430 DATA .3,60,81,96,243
    431 DATA .3,64,81,96,243
    434 DATA .2,72,81,96,243
    435 DATA 1,40,53,64,128
    438 DATA 1,40,53,64,144
    439 DATA 1,53,64,81,162
    450 DATA .3,60,72,91,182
    451 DATA .3,64,72,91,182
    454 DATA .3,60,72,91,182
    455 DATA 2,72,85,108,217
    456 DATA .6,108,0,0,0
    457 DATA 0,0,0,0,0
    458 DATA .3,108,0,0,0
    462 DATA 0,0,0,0,0
    470 DATA 1,81,108,128,162
    471 DATA 1,81,108,128,173
    474 DATA 1,53,64,81,193
    475 DATA 1,53,64,81,217
    480 DATA .3,60,81,96,243
    481 DATA .3,64,81,96,243
    484 DATA .2,72,81,96,243
    485 DATA 1,40,53,64,128
    488 DATA 1,40,53,64,144
    489 DATA 1,53,64,81,162
    500 DATA .3,60,81,96,243
    501 DATA .3,64,81,96,243
    504 DATA .2,72,81,96,243
    505 DATA 1,40,53,64,128
    508 DATA 1,40,53,64,144
    509 DATA 1,53,64,81,162
    520 DATA .3,60,72,91,182
    521 DATA .3,64,72,91,182
    524 DATA .3,60,72,91,182
    525 DATA 2,72,85,108,217
    528 DATA 1,53,108,217,0
    530 DATA .5,0,0,0,217
    540 DATA 1,40,53,64,162
    542 DATA 1,40,53,64,173
    544 DATA 1,40,53,64,193
    546 DATA 1,40,53,64,217
    550 DATA 1,40,53,64,243
    552 DATA 1,40,53,64,217
    554 DATA 1,40,53,64,193
    556 DATA 1,40,53,64,173
    558 DATA 2,40,53,64,162
    559 DATA 0,0,0,0,0
    560 DATA .1,40,53,64,162
    561 DATA 0,0,0,0,0
    562 DATA .1,40,53,64,162
    563 DATA 0,0,0,0,0
    564 DATA .1,40,53,64,162
    565 DATA 0,0,0,0,0
    566 DATA 1.7,40,53,64,162
    600 DATA 0,-1,0,0,0