Print 1
450 POKE (28008+1),T:'STORE TIME SIGNATU RE
460 POKE( 28009+1), S;' STORE RATE 470 IF T=0 THEN 510 480 1=1+10 490 GOTO120
500 PRINT N$;'** THE FOLLOWING PLAYS THE MUSIC 510 1=0
515 'RETRIEVE DATA FROM MEMORY 520 A1=PEEK( 28000+1) :A2=PEEK(28001+1) 530 B1=PEEK(28002+1):B2=PEEK(28003+1) 540 C1=PEEK(28004+1):C2=PEEK( 28005+1)
Get Your Very Own Pot O' Gold!
Here's your chance to have a Pot O' Gold full of programs, articles arid information about CoCo every month! A subscription to the Rainbow is only $22 a year, and you won't miss a single chock-full issue!
The Rainbow is the premier magazine for the TRS-80 Color, TDP-100 and Dragon-32 personal computers. The reason? More of everything you and your CoCo want and need than you can find anywhere! Do yourself and your CoCo a favor and subscribe to the Rainbow today!
We accept VISA, MasterCard or American Express. Non-U.S. rates slightly higher. U.S. currency only, please.
the RAINBOW
5803 Timber Ridge Drive P.O. Box 209 Prospect, KV 40059
YES! Sign me up for a year (12 issues) of the RAINBOW
- (502) 228-4492
State
Signature _
□ MasterCard
American Express
_ Card Expiration Date
Subscriptions to the RAINBOW are $22 a year in the United States. Canadian and Mexican rate U.S. $29. Surface rate to other countries U S $39; air rate U S $57 All subscriptions begin with the current issue Please allow up to 5-6 weeks for first copy
560 T=PEEK(28008+1)
565 S=PEEK(28009+1)
570 IFT^THENOUT140,0:GOTO780
580 IFT4=1THEN660
590 IFA1=48ANDA2=117THENT4=1; PRINT "REPEA
600 IFS> 0ANDT4=0THENT1=S+T2
605 'NOW STORE IN 8253 - ONE CHORD
610 OUT128, A1: OUT128, A2 : OUT129, B1: OUT129
620 OUT130/C1: OUT130,C2: OUT13 2, D1 :OUT132 ,D2
630 OUT140,1: F0RJ=1T0T1 sNEXTJ 640 T=T-1:IFT>0THEN630 650 1=1+10SGOTO520
660 IFA1=48ANDA2=117THENT3=T3-1:IFT3>0TH
ENI=SsGOTO520
670 IF T3>0 THEN 610
680 T4=0:GOTO650
690 '** THE FOLLOWING LISTS THE MUSIC SH OWING DIVIDE RATIOS 700 1=0
710 PRINT I ;PEEK( 28000+1)?PEEK( 28001+1) ; PEEK(28002+1);
720 PRINT PEEK(28003+1);PEEK(28004+1);PE
730 IF PEEK(28008+1)=0 THEN 760
740 1=1+10
Post a comment