Comment on BASIC for the Masses
peron@lemmy.sdf.org 6 months ago
<code basic> 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 </code>