Gsub 1
2510 FOR 1=1 TO 500sNEXT I
2530 ? " Isagine if you Hill, that th ere are 60 cards stored soaewhere in A
tari,"
2532 ? "each containing portions of au sic stolen fros Scott Joplin." 2540 ? :? " Now what if you »ere to j usble up those cards in a randoa ord er and play";
2542 ? "thea on an instruaent. Hould they sound as good as the originals
2550 ? :? "Probably not. But thea aga in, who knows? At any rate, you wo uld have"
2552 ? "yourself an original cospositi on inspired by one of the greats in susic."
2560 ? :? "And if you didn't like it, you could six up the cards once sore and have"
2562 ? "soaething coapletely different b
2570 REH
2580 POSITION 6,23:? "< Press RETURN t o continue >"; 2590 G0SUB 2800 2600 G0SUB 2900
2610 PRINT " Can't play an instruaent or read ausic? Nell, that's where Atari coaes";
2612 ? "in. You will be shown a pair of dice.Press the space bar to stop th en frosi"
2620 ? "spinning, and the nuabers on y our throw will be displayed. This is done for a total of 5 tries." 2630 ? :? " Each nuaber of the die co rresponds to a particular card in aea ory depen-"
2632 ? "ding on the tiae it was thrown
(1st try, 2nd try, etc.). Atari" 2640 ? "asseables these together and y ou are asked if you want to hear the final product, or try again." 2650 ? :? " If you wish to have it pi ayed, the ausic will be accoapanied b y its"
2652 ? "musical notation (of sorts)." 2660 G0SUB 2800 2670 G0SUB 2900
2680 ? "After listening to your coapos ition, you will be asked if you wish to save"
2682 ? "it on disk, try again, or quit altogether." 2690 ? :? "That's all there is to it." 2700 G0SUB 2B00 2710 RETURN 2800 GET »2,AN 2810 IF AN0155 THEN 2800 2820 RETURN
2900 GRAPHICS 0:? " I INSTRUCT
Dice routine. This displays the dice, and allows you to stop their spinning.
3000 GRAPHICS 0:P0KE 752,1 3010 FOR H=7 TO 15:P0SITI0N H,0:? CHRf (160)¡¡POSITION H+11,7:? CHR$(160);:NE XT H
3020 FOR V=0 TO 8:P0SITI0N 15,V:? CHR$ (160)j¡POSITION 26,7+V:? CHR$(160);:NE XT V
3030 FOR H=15 TO 7 STEP -hPOSITION H, 8:? CHR$<160);¡POSITION 11+H,15:? CHR$ (160)¡¡NEXT H
3040 FOR V=8 TO 0 STEP -1¡POSITION 7,V ¡? CHR$(160);¡POSITION 18,7+V:? CHR$(1 60);¡NEXT V
3050 V=10ïH=9:POSITION H,V:? CHR$(160) ;¡POSITION H+4,V:? CHR$(160);¡POSITION H+l 1,V+7:? CHRK160); 3060 POSITION H+15,V+7:? CHR$(160); 3070 SOSUB 3360 3080 BOSUB 3430
Post a comment