L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`N0>"0>06$$0$$60$B$B0P0PF",F,.$$4$$.4<4<4NHNH<":<:R$$"$$R"24 N@"(rl KM6a(ӠӠ$.H.H.J"LJL<$$6$$<6&.&.FLFLF"6F6>$$"$$>"F.F.J,J,<"D<DL$$6$$L6$4$4N0[Vq8(rdedededeM?[dq8rq8rdedededeMB?[]٠ǮڠЮ[de?edf?edg?eK}dh?edi?edj?edk?edl?edm?edn?edo?eK}dp?edq?edr?eds?edt?edu?edv?edw?e)}dx?edy?edz?ed{?e`[%qqֱ\qֲ\qI?edJ?edK?edL?edM?edN?edO?eKd}dP?edQ?edR?edS?e0dT?edU?edV?edW?eKn}dX?edY?edZ?ed[?ed\?ed]?ed^?ed_?eKx}d`?eda?edb?edc?edd?e.?ed/?eK<}d0?ed1?ed2?ed3?ed4?ed5?ed6?ed7?eKF}d8?ed9?ed:?ed;?ed?ed??eKP}d@?edA?e`dB?edC?edD?edE?edF?edG?eKZ}dH?edd?ed?ed?ed?ed?eK}d?ed?ed?ed?eLd?e d?e?d?ed?eK(}d ?ed!?ed"?ed#?ed$?ed%?ed&?ed'?e0K2}d(?ed)?ed*?ed+?ed,?ed-?edq^_ QqW_ VqR_ `qH_jUVWY[ 'tuK}d?ed?ed?ed?ed?ed?ed?ed?eK }d?ed ?ed ?ed ?ed ?ed ?ed?ed?e0K}d?ed?ed?e\\\\3q\8d"eQ q_ q_ q_ q_ q_ q_ q_ q_ q_ q_ q_ $q_ .qz_ 3qt_ 8qn_ =qh_ Bqc_ L\8\L\8\B\8\\.q\Tq\j\\8\L\B\8\L\8\B\8\\q\Pq\j\\\3q\Bq\\\3q\8Oq\\\.\\\.\q\4fq\j\8\8\3q\.qkUVWAY/pq\Bq\8\q\Pzq\j\\.\q\q\\\q\qֱTq\j\\8\L\B.q\G>q\j\\8\L\B\8\L\8\B\8\\1Hq\q\jqֲ\\\34Rq\Bq\\$\3q\8T\q\j\\\.\\\.\\\\\q\Vq\B\.\Iq\\.q\Bq\8q\.q\j \9%q\j*qֱq1/M6d2e?P a(Š)d2eO4q\\8\L\B\8\L\8\B\8\\q\\\j\\\ q\q\\\j:\B\.\\\$\.\8\B\8\.\8Sq\.q\j\\ \q\.q\q\.M q\\.\\\.\BPq\q\j\\\ q\q\\\jE\\\ q\q\\\j\\\Z\$q\$\$q\\ \q\q\j\\\ Zq\\.\B\.\8q\B2q\$q\8q8r\.['q\\\ q\Mq\\\j\\\ q\q\\\j:\B\.\\\$\.\8\B\8\.\8de<qdedededede<qdedededede<qdedededede<qdedededede"<&qedede<qdedededede<qdedededede<qdedededede<qdedededeǾ)cUVW(%q"/?rq*/? r%q(/?rq,/?r%q(/?rq&/?r%q/?rq/?r]٠Ӡ%]­­íĭíĭŭƭŭƭǭȭǭ4dededŠ);hq.?r.?r]ҠԠƠŠǠ rqq`8r$Lwca(ԠȠ٠Ů)a(ŠӠΠŠϠԠ)7xa(ΠРƠӠҠΩǠŮ)Qzc(cP a(Y*f4UVWijkY>fUVWXHUVWXghYRUVWXghY\Yffijk ccca(ŠҠĠ)[M6P a(Š),ca(ҠΠ٠ҠŠӬҠҠǮϠΠϠթ)'`%\`%\`$  MQLf UVW'X,ij'kij'kij'k YCfUVW$Xij'kij'kij'kŮ):+a(ȡ٬ӠԠҭĠҠԠ)?0a(ϧҠŠĠƠŠŠĠŠŠƠŠſ):['dededed e'dededede $deK]ϬΠŠES(ŠӠĠԠӬՠŠӠԬ)Fa(ϧҠŠӠŠĠŠϠ٠ǿ)B!a(ĠŠӧĠŬŠӠǠΠҬ)B&a(ŠƠՠŠԠԠҠǠӠ̠ŠȠdedeM$YLUVWY_ +ccccca(ŠҠĠ)@ ca(ȡ٬ΠՠŬ٠ŠΧӠ٠Ԭ)Fa(ԠϠ٠ŠĠԠ)a(ԧӠԠǿ)Ja(ŠTdede0dededededed ed e[UVWXq.?rq.?r `$$`$Lq`%q4q8((.? r.? rr8 .? rr#q](ԠŠϠԠȮ)Ja(ŠǿŠҠŠӠҠҠǮҠթ)T`%\`%\`$  \_]d ed ed ededededeLdedede`ȠӠȠŮ̠ӠŠΠӮ)7a(Ӡ͠٠ӠŠ٠)a(Š)Wca(Š٠ŠΠŠ٠ӠԠ̠ĠӠŠ)0a(ӠΠЮƠŠԠŠ)G(caĠƠǩ)-a(Ҡũ)*a(Ơũ),a(ӠӠϠŠĮ).a(ƠŠΠŠŠӠԮ)ua(ŠҠӠנŠòՠҠr<()rn`$s`$x`$@}`$`$`$(# `%Q_ZJM6ca(ŠҠӠǠӠԠ̠ؠŴ)0ca(ŠԠӠӠҠ̠),a(ŠǠŠŠ)cA2a(ҠĠҠĠ٠ŠŠ)c+<a(ҠĠŠ)c-Fa(͠٠ìŠ)c Pa()Zo!da(ŠҠŠ)GM6R@f`;@r$Zq<@ΠƠàǠӮԠԠՠԠ͠Ӡծ)Eca(ҠĠҠĠȠŠŧӠ)c<a(ҠĠàΠŠŠ)#c;(a(ӠҠıγ)Ua(ԠҠŠŠӠƠŠӮӠӠŠԠ̮),a(ŠǿŠ٠٠ҠŮ)`.?6@r$d6?esa(ԠŠҠ͠ŠԠӠƠŠӠϠĮӠԬĠҠϠĩ)Yhca(ҠԠӠŠȠҠ̠ԬՠΰנҠԮ)$rca(ԠˠϠΠΰ)!|a(ˠϠαα)"a(ˠϠΠβ)"a(ˠϠΠΠӠԠ̠ϠǠҠԠΠŠŠŠҮ)NJa(ŠĠӠĠΠ̠ΠŠԠŠΠӠ)XTca(ՠ̠ĠҠԠԭӠˬˬˬ˩Πɮî)-Ya(W ñq/? rUVW ıq/? rUVW űq/? rUVW Ʊq/? rUVW DZq/? r UVW ȱq/? rq±ñıűƱDZȱ dedeM*YZZZZZZZ4_j@ca(ŠŠŠ̠àά̠Ӯ);ca(٠ŠҠŠΠƠȠŮ)ca(̠àϠ)(\]ŠŠŠ q<UVW q/? rUVW ±q/? rUV͠Ӯ)Flca(ŠҠŠӠΠŠ̠͠ŠΠӮ)Xvca(ӠȠŠӠŠϠŠӠŬԠԠϠŠӠΠ)>a(àҠϠҠ٠ĠĠӠΠŠî)Nca(ҠŠǠ_]͠Ơ̠٠Ġ͠ӠӠҠĠή qUVWq/?#rYq/?<rdedeM_Xca(ӠӠƠî).bca(ȠŠӠ͠ƠҠנԠӠ٠)Ynca(ӮנàӠ)ca(ӠĠŠŠƠŠŮ)?xca(ՠΠҠŠΠƠȠŠΠŠ),ca(Š̠àϠРŠî)'\]ŠŠ͠ŠРҠΠŠŮ)1ca(ՠΠŠŠΠΠŠ))ca(РŠàȠ̠î) qq/?r  q27`%q`%q`%q`%qdedeM_0dca(Š Zq/?rBnq/?r]ĠĠԠŠӠΠŠҠŠΠ sqxdedeM_ZYpcca(ΠΠӠŠ͠˭ħӠˠ٠͠ǠŮ)Sza(ŠԠŠӠŠӠŠӠӮŠŠӠ͠)Ga(ҠŠȠӠ)a(ӠƠ̠ŠӮ)]a(ŠΠƠȠŠΠŠҠԠҠͮ٠ŠϠԮ)+ ca(РŠàȠ̠î)cP\Š) a(ΠΠ)a(Ơ)a(נ)a(ΠϠ)cS(ȠϠՠ)''`%_`%_p`%_X`%_d`$ Xca(ŠŠӠ̠ӠƠ̠ĠϠŠŠή)$*ca(Šՠ٠Ҡ٠ÿ) 4ca(Ӡ٠٠ϠԮ).>a(ӠŠâ٠ϠΠϠթ)H`.?6@r$HRd6?e`.?6@r$ \Mf_  cca(ӠƠ͠)ca(ӠҠŠ!dede$]ǠӠƠǠde]ĠƠ) de dede]9de2]ϠΠŠΠǠΠĠL a(ΠΠҠҬҬҠԱedede$de$qd<ed=ed>ed?eM6[-PcS(נ)&@Z[pa(ĠϮ)F6z_P0u-rq-rq-rq-rq-rq:N$(A):AD$"CLOSE":&' DATA2' NOTESH.' -1,51,61,64,165^8' 57,-1,48,102,43sB' -1,36,41,46,92L' 82,202,155,74,139V' 110,54,185,68,125`' 78j' 87,-1,195,175,-1t' 149,132,117,-1,99* -999AD$"OPEN "I$:D$"WRITE"I$'NLDA1NL:T%(A):L%(A):AZA1NL:N$(A):AkD$"CLOSE":v LOAD::D$"CATALOG":"FILE TO LOAD: ";I$I$""ıD$"OPEN"I$:D$"READ"I$NLA1NL:T%(A):L%(A):A A1NL: , L . ;"b :"HIT THE : KEY TO CHANGE TONE LENGTH. IT SHOULD BE FOLLOWED BY A NUMBER KEY." "/ DELETE - INSERT ESC: STOP":"HIT RETURN TO ENTER NONSTANDARD NOTE."  SAVE::D$"CATALOG":"FILE TO SAVE: ";I$I$""%(N)0aN$(N)" "f( DISPLAY2 1:8 "NOTES: C # D # E F # G # A # B C # DKEYS : Q 2 W 3 E R 5 T 6 Y 7 U I 9 O" "NOTES: # E F # G # A # B C # D # E KEYS : 0 P Z S X D C F V B H N J M "  "NOTES: F # G #":"KEYS `ȅ}d0000000000(00000400000 LL?eden#dede q#]ҠĠԠs#de]x#M$_ eԠŠϠΠŠנҠӠԠϠؠϠ)sP#ca(ŠΠΠҠϠРĠϠŠŠάΠԠŠǠӠՠԮ)Z#cS(Ԡ)'=d#dededed edŬȠ))2#a(ҠŠҠĠҮ)D<#ca(ՠ̠Ԡ͠ǠƠՠԠԠŠǠŮ)jF#ca(ŠǠ̠ĠƠŠӠϠΠΠ̠ϠŠԠӠŠƠŮ)kK#ca(ՠԠԠϠҠ̠ϠǠҠĠנ)/a(ҠӠĠΠŠŠŮ)2l a(Ӡ٠٠ϠΠϠթ)d6?e#v `.?6@r$v d6?e_ \(#M6oa(ŠŠΠӠǠŠΠ٠Ǡ)ma(ӮĠŠŠϠΠϠҬҠϠŠ٠ԠƠҠŠҮ)nca(ՠŠŮ٠ŠŠΠҠɭɠŠ̠ԠϠ٠ȠӠĠנŮ)Qa(ҠӠŬĠӠԠŠƠŠ)Wa(٠ŮȠŠҠӠҬԠӠŠ)<a(ĠӠŠΠ͠ҠϠͮ)Ta(ԠŠϠĠΠΠŠԩĠϠŠԠӠƠM6o&a(ԠŠϠԠƠ)(ca(ԠҠΠ٧) cS(ԠΧ)&@-M6o a(Ǡ͠Ů)q.?r.?rq.?r.?r-d<ed=ed>ed?eԠҠΠħ)cS(ԠΧ)&@M6o a(ǠΠŮ)q.?r.?r q5qd<ed=ed>ed?eM639d<ed=ed>ed?eM63[`α%αq`_ tUV6αWα~-rq-αr-rq-αrYαq6α`α%αq_ 'ca(ҠנРĠҠŠ)F6T-6r'-6r!αq6`α%αq_ M6oa(Ġ))ca(ŠŠ)F6E(ĠέǠ) S()'α `α$ `α$t `α$UVW6X6-rq-αr-rq-αr$Y.UV6W6α 8a(ҠРĠҠŠ)FBS()'-r'-rLYVαq6-rI-r Y a() a(ΧנΧ) S(ΧԠΧ)' `$   `%[ & αq_  c! a(ϠŠŠ)F6F a(ΧϠԠΧӠŠŠ)F6K a(ΧϠS(ҠȧΧ)'-r'-r`-r%-rq6d`-r$d1oa()bI-rI-r q_ S(ԠŠ)'α UVαWα `-r%a() `-r$  bIcT`6%_`%_p `%_$` $d LM6VUV-rW``-r$j`(%M6to8-rr~P(a()"de--rrde--rrMY+oS(ԠӠŠԠŠ)'0@`;@r%_a()E@`;@r%_a()E@`;@r%_a()E@`;±@r%_a()E±@`;²@r%_a()E²@ `;³@r%_ a()E³@$oa(ήϠԠŠΧ)Pa(Š)F-rca()E@`;@r%_a()E@`;@r%_a()E@`;@r%_a()E@`;@r%_a()E@`;@r%_a()E@`;@r%_a()Ep()-rq!@p()-rq!@p()-rqI@p()-rq@p()- rq9@p()- rq@p()- rq)±@p()- rq²@p()- rq³@p()[8M6oa(àΠ))ca(Š)5cS(Š)'&`$dM6\_d,-rq@p(ԠƠŠ)-rq!@p()-rq!@p()-rq!@N@"r FqKa(ΠɬϬ)3PS(Ԡ͠ϠՠԠϠҿ)&@Qa(Ϯ)E@U\0uZ_dM6o,na(ԠŠ)xca()ca()ca( KM6o Pa()UVW YN@"(r q'O4rD4rD4 rD4rD4)r(N@"rC@"rC@"rC@"r((N@"rC@"rC@"rC@"r12N@"rC@"rC±@"rC²@"rC³@"r <    `K 000!!!!LjE н`                              L'                                        30 STORE SHAPE TABLE I 6,6,6,6,6,6,5,5,5,4,5,4,4,4,7,4,7,7: De (# STORE SPEAKER ROUTINE 2# 160,0,174,0,3,173,48,192 4# 136,208,5,206,1,3,240,5 7# 202,208,245,240,237,96,256 <#AD770 F#X P#X256ı Z#AD,X d#ADAD1 n#9021023828 700:X! 22:1N "PRESS KEYS 1,2, OR 3 TO CHANGE OCTAVE"i ::"OCTAVE ";::"1"  PLOT BLACK KEY AT X,Y I012 XI,YXI,Y48 I:  PLAY NOTE 768,P:769,L 770: x PLAY NOTE 1000  70 24:8:I;# I1T1:704 I2T2:70A I3T3I 70` X DISPLAY KEYBOARDk b::3y gY63159 l0,Y278,Y:Y q0 vX2725128 {X,64X,159:X Y64 X144228 700:X X9815428 700:X X 16,44,100,128,156,212,240/ 4I17:TB%(I):G 52000: STORE TABLE[ 79000: SPEAKERv <600 DISPLAY KEYBOARD AT1:L50 F1:A$ KA$"X"ĉ:: PI1 ZA$K$(I)I18110 dII1:90 nI18PP%(I)T:1400:70 xI(A$):I0I3 CRABAPPLE ORGAN" 36863<K$(18),P%(17),TB%(7)`:"STORING DATA----BE PATIENT" A,S,D,F,G,H,J,K,";",L,W,E,T,Y,U,O,P 191,170,152,143,128,114,101,96,85,76,180,161,135,120,107,90,80(I117:K$(I):2I117:P%(I):I 3    L# E000L 000`                                             IG8H9`NO,(HH 0 (hh,`  ,Z1002dD$(4):D$;"CATALOG"nI %#!    !    %#!    !     !            u-tI-ut,ut +u.u` Yn p wrsrZj"ktkkJll llVk.lm4lrrkkkkrrkkkkrr mt jH jH`Lr ajLr juttuu qEttr u qrsuu%usuuts so ?n Pn vnrtsusust*ut"ut#uuusuLnǠΠҠ@7)٠͠@T)@\)Š͠ΧΧ±@y)±@)Ԡ²@)²@)Ԡ)³@)³@)Ϡ)@)@)))r@,(@4(ˠ@Q(@Y(Ƞ͠@v(@~(Š͠ҧ@(@(Š͠Ҡӧ@(@(Ӡ̠@(@(٠ŠǠ@ )@)l'AYI9)'(x<<Z'yrlf`[VQLHD@<9630-+(&$" @(Š::"HERE THEY COME" 2X151 768,I:769,20:770% I2 (I1540J 2768,I:769,20:770Q <IX FJf PI41250~ Z768,I:769,20:770 dI x13:10:"AND HERE THEY ARE!!!" I12000:I : 13:13::"THE SIREN" I12000:I 13:11"********************5* SIREN PROGRAM *O* M.W. FORDICE *i* APRIL 18, 1982 *********************X770790:Y:X,Y:173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96200 J14 I40 ' 0 0 0 dȅ000000000000000000002222LD` $$""L'"                3 9"@&D+L-D+ &rrrrrrrrlVD9 +" -&fVD 3 9"@L9999rrrr@@@@LLLLD9DVDVV@@LD@<93ZVLrrr f f Z"Z&V"@ 9"9&9"9&@"@&@"@&9"9&9"9&r"r&r+r&V+VVL V"Z&V"9"Z-"$"$"$($"f(Z&V"P"LD&r"f fr-f+`&Z&VL+"  L V&  ` frrDD+ LL0 "PP3"L @ 3 && &9999-&V LZD66L"Z"VV"V "Z&f+l-f+D+@&D+L-V3Z6V3V+V"fZPL&LLLD<rZL99<<<rZDDLLLVfLV+ZrV""ZrfxZ$$fxrrr<DHD-+-39"<$9"f (2+"  3+"   &9 &""+&9-&  D9- " &+3&&&&LLLL++++333"3-&-&9&-&9"9 V"D9++---fV"D"3"3"9"9 9@L9-r-@LDV@33D  (`  0000000000(00000400000 L L                                P D H < H V D P ` P V H V l P ` r `ؐl`VH<HD6("$(0+0+V 960(9@96--0-P"0(6-0(Z$6-906-`(90@690lllHH<H6@<+<+<6<0<+($""$($+lllPPDP6@D(D(D$D(D+($"$(-0-(0-( 9 9 r9 r` P D H P 9 P 0 P 9 D H P V 3 < H 6 D- 6 9 6 & 6 & - 6 9 6  $06 0-6 9$6 @&6 9$6 09$@&9$H09@96DHDP@H@9HPHZ$($"(-(0(-($-0-6$-0-("060-$6 Z6 & Z6 `9 Z6 l@ Z6 `9 Z6 & Z6 `9 Z6 l@ Z6 `9 Z6 $ Z6 `9 Z6 P0 Z6 `9 Z6 $ Z6 `9 Z6 P0 Z6 `9 Z6 " Z6 `9 Z6 P0 Z6 `9 Z6 " Z6 `9 Z6 P0 Z6 `9 Z6 r ` P D P V P 9 P 0 9 D P V P l Z H 6 H L H - 6 $ - 6 D H D L 6 0 Z6 P0 D9 P0 Z6 P0 l( P0 V6 P0 D9 P0 V6 P0 l( P0 V6 P0 D9 P0 V6 P0 l- Z6 `9 Z6 PH Z6 `9 Z6 l- Z6 `9 Z6 PH Z6 `9 Z6 P l- r0 l- `( l- r0 l- P l- r0 l- `( l- r0 l- L Z6 `9 Z6 l- Z6 `9 Z6 L Z6 `9 Z6 l- Z6 `9 Z6 - Z6 `9 Z6 PH Z6 `9 Z6 - Z6 `9 Z6 PH Z6 `9H- Z$ `( Z$  Z$ `( Z$ H- Z$ `( Z$ l" Z$ `( Z$ D- Z$ `( Z$ l" Z$ `( Z$ D- Z$ `( Z$ `" P0 Z6 P0 D< P0 Z6 P0 `" P0 Z6 P0 D< P0 Z6 P0 Z$ H< PD H< D- H< PD H< Z$ H< PD H< D- H< PD H< Z( @6 H< @6 P@ @6 H< @6 Z( @6 H< @6 P@ @6 H< @6 `( P0 Z6 P0 D9 P0 Z6 P0 `( P 6" l @& H+ @& L0 @& H+ @& l @& H+ @& L0 @& H+ @& x <$ @& <$ H0 <$ @& <$ x <$ @& <$ H0 <$ @& <$ x H+ P0 H+ V6 H+ P0 H+ x H+ P0 H+ V6 H+ P0 H+  D( H+ D( P6 D( H+ D(  D( H+ D( P6 D( H+ D(  `( l- `( P0 `( l- `(  `( l- `( P0 `( l- `(  Z$ `( Z$ (tl H- P0 H- Z6 H- P0 H-l H- P0 H- Z6 H- P0 H-l" D( H+ D( P6 D( H+ D(l" D( H+ D( P6 D( H+ D( l D( H- D( P0 D( H- D( l D( H- D( P0 D( H- D( l Z$ `( Z$ H- Z$ `( Z$ l Z$ `( Z$ H- Z$ `( Z$ l 6" <$ 6" D- 6" <$ 6" l 6" <$ 6" D- 6" <$    / `(%"0000000000(00000400000 LLL3                       u-tI-ut,ut +u.u` Yn p wrsrZj"ktkkJll llVk.lm4lrrkkkkrrkkkkrr mt jH jH`Lr ajLr juttuu qEttr u qrsuu%usuuts so ?n Pn vnrtsusust*ut"ut#uuusuLnǠΠҠ@7)٠͠@T)@\)Š͠ΧΧ±@y)±@)Ԡ²@)²@)Ԡ)³@)³@)Ϡ)@)@)))α)Š@,(@4(Š@Q(@Y(ŠƠŠ٠@v(@~(ҧ@(@(Š͠Ҡӧ@(@(Ӡ̠@(@(٠ŠǠ@ )@)l'!!!I9)'(x<<Z'yrlf`[VQLHD@<9630-+(&$" @(ԠƠ                                     HHHȱ ȱi hhhIȱ` - J| -Jhhh,00,0N,0I@$NPp 0 00O P,0HHHLIpP L9L x000000000000000 000000L `?                                  $$""L'     "   "             !    !    %#!    !    %#           !    M.PRELUDE 2,A24576"D A$"2"ĺD$;"BLOAD M.TELEMANN FUGUE,A24576"W A$"0"ė:220h A$"2"ī100r 30,0} 31,96 768 100 D D$(132)%D$;"NOMON C,I,O"AD$;"BLOAD PLAYER,A768"K(:10Y2,"MUSIC"_<eFP10:"1. BACH PRELUDE #2"Z10:"2. TELEMANN FUGUE"d18:"CHOOSE ONE (1 OR 2; 0 TO QUIT): ";nA$x16368,0 A$"1"ĺD$;"BLOAD   1000L( L `2(                                                                                                         6(6$6+60(PZ ((((((+(+(0(0(6(6$9(0+600@66(((( (-(0(0 (3 6(6$6+6 (P (((((+(+(0(0(6(6$9(0++00@66(((( (-(0(0 (3 6(6$6+6 (P((((`0x((((`666000000000000+6(6`$6(((((+(+(0(0(6(6$9(0+600@66(((( (-(0(0 (3  i d@2(000000000000(0000004000000 L} `0       $$""L'"                %#!    !  u-tI-ut,ut +u.u` Yn p wrsrZj"ktkkJll llVk.lm4lrrkkkkrrkkkkrr mt jH jH`Lr ajLr juttuu qEttr u qrsuu%usuuts so ?n Pn vnrtsusust*ut"ut#uuusuLnǠΠҠ@7)٠͠@T)@\)Š͠ΧΧ±@y)±@)Ԡ²@)²@)Ԡ)³@)³@)Ϡ)@)@)))α))Š@,(@4(ӠĠӠQ(@Y(ǠϠˠŠ@~(͠ҧ@(@(Š͠Ҡӧ@(@(Ӡ̠@(@(٠ŠǠ@ )@)l'!!I9)'(x<<Z'yrlf`[VQLHD@<9630-+(&$" @(Ơ HHHȱ ȱi hhhIȱ` - J| -Jhhh,00,0N,0I@$NPp 0 00O P,0HHHLIpP L9L D$;" SAVE ";NAME$ ' 0 ( CHANGE LINE 30F ) TO LOAD, OR RUN^ * A BACKSPACED FILE D`THIS PROGRAM LETS0YOU PUT TRICK FILEHNAMES ON YOUR DISKaOF 22 CHARACTERS ORyLESS. CHANGE N$ TO YOUR OWN LIKEING.  D$(4)N$"'CALL' THE ADDRESS "NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$  z"#XͰŠɠ ŠŠРΠŠŠ ̮ͮŠ" ı̴ ı̵ ı̴ ı̴ ı̳ı̴!ŠȠĠΠ ij̲ Ĵ̳ Ķ̳ ķ̵ ĸ̲Ĺ̵ı̵  ǮҠĠ٠Ҡ"İı̲IJ̳ Ҡ Ӯʠ ӮàǠӠ ΠŠҠŠנ " ٠àӠȠŠӮ îҠ ñ ò Π٠ԠŠΠ͡ ͮΠŠ Ϡ Ϯ%Ϯ%Ϯ% Ϯ%Ϯ Š  àӠ ɭӮŠ ϠǮӠĠΠ ҠӠ ͮŠ ΠˠͰŠàҠŠΠ8Ƞ! ΧӮȠĠҠ ŠΠ                                     UE e5 1`!%                                                                                         (#                               000 dL 000dL L < < < < < < <000LD` Z ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8)"""" !    %#!      !"#$&'() !"#$%$#$%$#$ !"!   !"#$%$#$&'()('&'&%$%$#"!    "$%$#$#"! %$#"! !"#$#"! %$#$#"! !"#$ !"!                 (#$#"!"!                                  5ȅdn0000000000 00000 00000 LI` !!7,27,27,0 I156:P(I):1 I156:D(I):7 :21:"BACH BY MARCUS BROWN":I156:768,P(I):769,D(I):(1)15:(9)39,(9)39:770: :21:"HIT ANY KEY TO PLAY AGAIN.":S$:220 220X8,160,120,69,78,88,95,78,88,69,78,88,95,107,120,95,107,88,95,107,120,128,144,120,128,107,120 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,2X56P(X),D(X)i 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96 A770790:I:A,I:A\ d 243,220,197,183,220,197,243,160,243,220,197,183,220,197,243,160,160,144,128,120,144,128,160,107,160,144,128,120,144,12  q\q\.q)\.\8\=\B\.\8qB\Bq\$q\8q8r\.q\j@\.\8\B\.\8q\Bq\.\8\.R\B\.\8q\Bq\.\8.q\j\\Ib\q\.q\q\.q\q\.2lq\\\ \\.q\B>vq\8\.\q \8q \j\\Q\q\.q\q\.)d2e5qֱq6\9qֲ_9qֱT:\\\q\.q\q\.q\q8 r%D\.q8r \.\8\=9N\B\.\8q\Bq\$q\8-Xq8r\q8r\q\q\$\84q\Bq\j\$\.\8q;\B\Bq\Bq\.\$\\\ 4q\q\ \\ q\>0q\jM6P d2e?a(Š\.\$\\$\.\8\B\8\$Fq\q\\$\q\\q\Q\$UVW\Yq\.\.q\.\jq\$\$m\q\q8r\ q8r\q\q\\q\ Qq\q\jq\q\ q\ q\:q\q8r\q\\\2q\$q\jUV$W8X \YCUVW\BYY5\Bq\q\q8r\UVW\$\8Y5\$q\q\q8r\Tq8r \q \jqֲ\q\ q\q\Oq\q8r\q\q8r\5Tq8r\q\q\\$^UVBW$X6 \Y'hq\q\8\B\8"r\jq\Bq\85|\Bq\8q\$q8r\UVW\\\\.*q\jq\q\Bq\joP d2e?a(ŠŠ)d2e"qֱq 1,\\\\jq\$q\6\$\\\@UVW\\Y5J\q\ͳ\Lq\Bq\Lq\B\.\q\.gqq8r\Bq\Lq\Bq\Lq\B\.\q\._qq8r\8q\q\q\q\\UVWdYq\\\q\qֲMq \j\.q8r\8q\Lq\Lq\LPqq8r\Vq\Lq\Lq\Lq\Lgqq8r\Bqq \j\q8r\q\q\\q8r\q\kq\q\q\q\q\q\q\q\$q\\q\[q\q\Qq\q\q\q\q\q\ q8\j\q8r\q\q\UVWdYMq \j\q8r\q\q\q\c\.q\.q\dq\8q\.iUVWdYPnqq8r\q\.q\.q\.q\.sUVWdY^xq\q\q\q\q\q\`.??r%\}_UVW Y[UVWY[<KM6o8rPa(ŠӠɠ̮)d"e M6+P d2e?a(Š٠)d2e ֱqֲq q \_q@qֱq8r\q                         #" # #   #%#  %#!"&'&%$%$#"! !"""""$$"   "(#                   ȅd00000000000000000000 L` *C*************) INTRODUCTION PROGRAMF FOR 'SINGING FINGERS'a DONATED TO APPLE PIu AUGUST, 1980{ ************************CBY CRAIG A. MILLS DONATED TO APPLE PI AUGUST, 1980  *********************** APPLE":10 0:> 2C$"":10T 7(16384)16070\ <55p F16368,0:936 d"BRUN SINGING FINGERS": - CONTROL D n10 xC$"NOW JUST START TO TYPE":10 C$"....AND HAVE FUN????":10 ***********16298,0::936:206 PRINT CENTER ROUTINEF 20(C$)2N C$c"": CONTROL Gi5:C$"* * * SINGING FINGERS * * *":10C$"AUTHOR UNKNOWN":10:+:C$"* * * *":10,20 -C$"A PROGRAM TO ADD 'ZING' TO YOUR           !                                                                                                                #$#                                                      (#                      `dF( 0000000000(00000400000 LL5 IG8H9`NO,(HH 0 (hh,` d2K00000000000000000000L`ԠРŠbO4rD4rlUVW-rqY0v-rq-rq-rq?-rq-rq-rq-rq[rr`Ȳ %ȲqȲqȱȲ deq Y[ pqr-rquq#qzUVW qUVWq q8r Y -rqqqq6Y[X]\LJYT[hUVW-rmUVWYrY|_J]ԠРŠN@"2r7@p(ijðİİöưöð) q;@r qUVWXȱq<@*rr`ȱ %ȱqȱȲq<@*@r UVWX q -rq<@*rr -rq<@*rr Y []٠ŠLUVWdq-r`%[`-r$hq-rq-r,fq(lmnfgh%q U \LYZ qY_ UVW2Y6a qUVW qUVW2YUVWd q-rq-rg \LqYj UVWX6n q-rq-rq `%q t \LYx qY [ q; - q 2 UVWq-r\LY%7 UVWX6q-r\LY: UVW2Y6< qUVW qUVW2YUVWA q-rq-rF \LqYK UVWX6P q-rq-rR `tj @p(òöö)t \ ~ \ [ ]͠ UVWc -rq/?r -rq/?r Y -drq \ [( ]٠͠B@p()\ \[]ԠРĠ٠` @p(²) \  \$ [` ]ӠӠ-rq\L_[4]ŠL>@p(²²²²ò²)H\ R\D\@p()f\ p\z[]٠Š-rq~-rqZ8[!L]ԠРŠРĠ٠Vq8#r  `dejqtq~dedeM["q.?6@r`$d6?eqq1?rq`%qq-rq--rqG-rq- rq-- rqG- rq- rq-- rqp-rq1-rq--rq-rq-rqS-$-rq#-rq-rq-.-rqda(͠)na()xa(ӠӠŧ)a(͠)a()ccP S(Ҡ)'`%Q\ld_(--rq-rqb-rq--rqw-rq  ]Šà]ٺ ҭ@- O4drD4drD4rC@"r\\X\p (KM62oa(Šà)<a()FcPa(ŠҠΠ)Za(Šŧ)     8*2*2BTBT*"P*P*$$8$$*8H*H*F2F2*">*>R$$&$$R&"@"@J4J4>"6>6@$$4$$@4$.,$$ $$, BBBBJBJB>"P>PB$$>$$B>8B8B>,>,6"<6<$$$$$$$$H.H.,6,6<":<:$$8$$"@2@J$$<$$J<:8:8P>P>>"&>&$$$$$$$$*2*2BHBHB"0B0L$$$$L0808DVDV:"L:LDTH"<H<4$$.$$4.6>6>R8R8>"<><6$$,$$6,>.>.>L>LH":H:.$$0$$.00<0<<.<.2*,0L0L,"2,2.$$ $$. :B:BR,R,<"6<6T$$$$T"6"646468"*8*:$$:$$::4646DT T<0@TJD2@RJ@ J2 J.`TJD, X@2 \D@ ^F@b\TD TND6 XH@4`\TJ2 ^TN2@XRF2TJD<F2F22,2,D":D:>$$ $$> .6.6R@R@B"0B0,$$ $$, *,J@:2 J2 J2`\TD$ X@( T<,RJ@20NF.RJ@.@TJD,@T<@J2@D,@<$0\TD(\TD(@\TD$@^TF(@bTJ,bTJ, ^TF( \TD,@XR@2@\TD<@^RF@^XF@^RF`\JD$ XJ@(@TJ<,RJ@2 N6. RJ:.@TJ<,@D<6@H@<(J@:@J2@TJD$@TF@( TJD, RJD,@NF<.@NF<.@NJ>,@XF@( ^F( \D, X@.Z[ XYe e eeee e e ИВ`J2D,@@$@D$@J"TND0\RDX@@T<@D<@H@<(J@:2 J2 J2`\TD$ X@(@T<,RJ@20NF.RJ@.@TJD,@T<@J2@D,@<$0J2D,@<$@D$@J"TND0\RDX@@T<@D<@H@<((()))**++++++++***))(''&%$#"!    "#%'(*+,./01إ^\ZX` ȱ ȱȱȱqqq ^_ \] 345667899::;;; <<<<<<<<<<<;;;;;::::::9999999999:::::;;;;<<<====>>>>????????????>>>==<<;;:98876543210/.-,+*)('&%$#"!!  !!"##$$%&&'pq 2gEh6g Ifl5  1 q  jE.$)>b>6'udfŠŠĠנϠ٠ǠӬ)G:a(ǠŠ΢٠ԠŠĠƠȠź)/ca(ͺ)ca()o.?%rQ,(devdedede_.2]ŠӠ̠٠Ƞ%f6KM6oF`.?r.?rW.?r$ dLe.?rdMe.?r_(` `.?Lr.?Mr@$(`.?Mr?$a(ŠŠͺĠĠ)QdedeWdeYde.?Lrde.?Mra(Š                                                 @ X:@@H@:@L @hL@Ƽ~wpjd^YTOJw?82w~dKdKdKppw?pCdw~dp2w?pCdd2w?pCdd2w?pCdw~Gw~pw?82w~dKdKdKppw;pCd^YOJ@@0@ @L@` 000LCORE","HIH SCORE":SC,HSUI11000::60`L7680A$"030008000B0012003E2C003E96AvocRXNIE}]i @,(@4(٠ϠŠ@Q(@Y(٠Š@v(@~(ŠŠҧ@(@(ˠŠҠӧ@(@(ˡŠĠӠ@(ȠŠĭĠ@)ԠŠl'yi Y!qa'(x<<Z'yrlf`[VQLHD@<9630-+(&$" @(Š                      ٍŠбàҍѠΠŠҠҠōб؍ŠаؠōРҠ٠ŠōΠӍŠ Ҡ  ŠٍˠՠðӠŠҍ٠ŠŠĠϠҠٍ٠ҠȠƠٍҠˠӠŠҍб     Ѱƴ Ŵ ƴ Ѡ     ó Ƴ ij Ƴ ų Ƴ Ƴ dz Ƴ  Ƴ ³ ô ƴ Ĵ ҠՠõǠҠҍؠŠؠҠΠѬؠѰ؍Ѱ٠Ѭؠ٠ŠˠРŠˍРİǠΠϠàˠҠٍ؍؍Р΍  C *" * & *; * PROGRAM *T * BY *m * DAVE * * HOFFMANN * * (C) 1982 * * MICROSOFTWARE * * WENATCHEE WA. * *********************************D 96,3,2,76,3,0,174,245,208,202,9,240,3,1,206^ 208,202,9,240,3,1,206,5,208,136,192,48,173o TN101001{ 768,TN 769,10 770 ,:D$(4):::D$;"RUN HELLO"  ******************* * GRAPHICS * * MUSI/::D$(4):16304,0:16302,0:16299,0> I770790LJ:I,J:g 173,48,192,136,208,5( 206,1,3,240,9,202,208- 245,174,0,3,76,2,3,962TN100101<768,TNF769,10P770ZdnI770790xJ:I,J:-   r`r`r$`$r$`$r$`$r `r ` r$`$l l$` `$r&r$`&&`&r&`&l`r``r`H999$9+l+V+H+6+6$6+6lL66 6&60r0`0L0909&909rVHH$H+H66l6V6@6@+@6@   ` PPP P$H(H+@(@$@ @$@(@+Z0Z69r9`$H$+r+`6H60r0`$H$+r+`6H6 0 H$ H f`f`f`f`l`l`l`l`r`r`r$`$r$`$r$`$r `r ` r$`$l l$` `$r&r$`&&`&r&`&l`r`l```(`$`(H+H(l+H+VHP@P9P60+($ $(+0P6P9P@VHV@V960+($(+0V6V9V@VH`P`H`@960+(+069`@`H`PlVlPlH@960+069l@lHlPlV@`@V@P@H@@@9@3@0@@@9@3@0@+@(@$P P6 6` `6 6L L6 6` `6 6L L6 6` `6 6L L6$6 H$$0$$66 6&6 0$H`H909H9l6l@lLl@ rH  $ l6H6V6H6l+H+V$H$`9H9P9H6H0l6H6VHl @ P @ l$H$VHr$H$`$6&60r0`0L0909&909rVHH$H+H66l6V6@6@+@6@   ` L L&L0L99r9`9H$H0H9Hl@l@l@l@l9l6l6l-l+l+l"l l l ll l"l ll ll `9H$9$`9H9`9H9`9H 9$` `6 6L Lu-tI-ut,ut +u.u` Yn p wrsrZj"ktkkJll llVk.lm4lrrkkkkrrkkkkrr mt jH jH`Lr ajLr juttuu qEttr u qrsuu%usuuts so ?n Pn vnrtsusust*ut"ut#uuusuLnΠԠ@7)ĠԠՠ٠@\)ӠŠŠĠΠ±@)ĠǠ²@)²@)ӮΠΠΠ³@)ŠȠՠ٠@))) α)))α)td::I768793:J:I,J::1013,76:1014,0:1015,3:J125511:I125511:1:"I = "I", J = "J" ";:I,J::32,70,231,164,80,152,170,202,208,253,44,48,192,69,161,170,202,208,253,44,48,192,136,208,236,96dI 16,254,16,161,8,171B ;4,215,4,192,8,171,6,161,2,100,8,192,4,229d <4,215,8,192,8,171,32,215,255~ FN080:D:S0N,D:N D253: 6 136,208,12,165,253,201,100,240,3,173,48,192,164 ~ 7 253,136,198,255,208,223, 198,254,208,215,198,252 8208,207,230,249,230,249,24,144,179 9 16,215,16,107,8,113,4,143,4,127,8,113,6,107,2 : 100,16,215,16,127,24,143,8,100,(126):S0S1S22561C D$:D$:A1(125):A2(126):A0A1A22561i (250,A1:251,A2:S0:"CATALOG": 3 1,96,133,252,200,177,250,133,253,166,253 4 164,253,136,169,32,133,254,169,255,133,255,202 5 208,11,165,253,201,100,240,3,173,48,192,166, :"CELESTE MUSIC DEMO"N :"CREATIVE COMPUTING"::"MARCH 82 PG.134" 1,`ȱ d0 d0 2,kqqkddd  :D$:S1(125):S2   $$66 6&6 0$H`H909H9l6l@lLl@ H$0$$6 6&6 6 $<H`H<0<H<6l@lLl@lHHHxHl`VLH$HH H$(+033r3f3`VLD@@@@ $ (0@0L L&L0L99r9`9H$H0H9Hl@l@l@l@l9l6l6l-l+l+l"l l l ll l"l ll ll `9H$9$`9H9`9H9`9H 9$` `6 6L L6 6` `6 6L L6 6` `6 6L L6 6` `6 6L L6$6 H$$0` L `PWRT   U  Tl8<I<zR{=~K~e~s~~8߷L 6&    p6w6wzyzQ~)~ w йL@ 7&  7w6wzyzQ~)~ w 0y h0  ! (4)"BLOAD SONATA.1,A$300"(4)"BLOAD SONATA.2,A$6000"::7:958:" SONATA":15:" PRESS TO QUIT":30,0:31,96:768CLOG"_C$;A$ CO&X0CO:T(X),L(X):X7CL$;A$:230W"FILENAME ?";A$:A$""470kOP$;A$:WR$;A$sCOX0CO:T(X):L(X):XCL$;A$CO200ı230OH LINE ?";Y:YCOĺ"LINE NUMBER TO HIGH TRY AGAIN":360y rXYCO:T,T(X):L,L(X):"# "X,"T= "T(X),"L= "L(X):A:X:230 |"=1= NEW FILE, =2= OLD FILE ?";X:X1ı X2380  "CATALOG"  "FILENAME ?";A$:A$""420OP$;A$:REESS THAN "CO1:300k 6"INPUT> TONE,TONELENGTH ":"FOR LINE #";::X::"OLD VALUES WERE T="T(X)" L="L(X)v :TN,TL @TN255TL255ĺ"NO NUMBERS GRATER THAN 255 PLEASE ":310 JT(X)TN:L(X)TL T230 ^CO0:"DONE":1907 h"STARTING FROM WHICNDS ARE":"-----------":"'A'= ADD ":"'C'=CHANGE A NOTE":"'D'=DELETE THE FILE IN MEMORY":"'S'=SAVE THE FILE TO DISK":"'P'=PLAY THE TUNE":"'N'=GET NEW SONG FROM DISK":230 ,"WHICH NUMBER DO YOU WISH TO CHANGE ?";X 1XCOĺ"PLEASE PRINT A VALUE L";TN,TLE TN255TL255ĺ"NO NUMBERS GRATER THAN 255 PLEASE ":200[ T(CO)TN:L(CO)TL "COMAND---->";:A$:A$:A$"A"COCO1:190 (A$,1)"C"300 (A$,1)"D"350 (A$,1)"S"470 (A$,1)"P"360 (A$,1)"N"410 ""COMAMONC,I,O"6 OP$"OPEN ":WR$"WRITE ":CL$"CLOSE "G RE$"READ "i A770:T6:L7:T,90:L,100:A| T(200),L(200) 380 CO0 CO200ĺ"BUFFER FULL. SAVING DATA":CO200:470: "INPUT> TONE,TONELENGTH ":"FOR LINE #";::CO;::" ? BY EMIL Pc LINES 100 AND 110 POKE THE TONE MAKER INTO MEMORY d770,173:771,48:772,192:773,136:774,208:775,4:776,198:777,7:778,240n779,8:780,202:781,208:782,246:783,166:784,6:785,76:786,2:787,3:788,96 x:"NO   X ::12X770790:B:X,B:: 173,48,192 ,136,208,5,206,1,3,240,9,202 ,208,245,174,0,3,76,2,3,96 "FREQUENCY (1 TO 255) ";F:"DURATION (1 TO 255) ";D:768,F:769,D:770::"ANOTHER TONE (Y/N)? ":A$:A$"Y"2 HVHVHVHVHPPHHVVH`HVHPHVH`HVH6++++ P @ 6 ( (( (`P9(((($V$H$9$+$++$+lV@666 6(`(P(@(0(0 0(0r`H999$9+l+V+H00000 D$D(l+V+H6l V H(6(l$V$H6l V H(6( l$ 6 l6 lkLHLHLHLHPHPHPHPHVHVHVHVHVHVHVHVHPPHHVVH`HVHPHVHPH`HVHVHVHV6<0<+<($  $<(<+<0@6@0@+($  $@(@+@0@6H<H6H0+($  $(+H0H6H<P@P<P60+($ $(+P0P6P<P@0H0@0<06000+0&0$000+0&0$0 00<<<<<<66 0( $(+0r0P0V0`lr+ "(+066l6r6<06<@HPVxPxHx@x * * * *??V@ CLASSIFIEDpA -PUBLIC DOMAIN-B NOVEMBER, 1981HRPLEASE RETAIN LINES\565-900fIN ALL COPIES.p -THANK YOU!!z * * * *: Y...VERT. LOC. FOR:5: SHAPE DRAW :P+-------------------+Vp "HI-RES METRONOME"v BY JIM GANZ * * * * AN UNCALIBRATED METRONOME. REQUIREMENTS: APPLESOF 5 7' :+-------------------+B D: V A R I A B L E S :] N: ----- :x X: P...POKE VALUES : b: PKE.MEMORY LOC : l: R..."ROT" SHAPE : v: T...FOR/NEXT PAUSE: : X...HORIZ. LOC.FOR: : SHAPE DRAW :3,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96,1,0,4,0,4,4,0,252,29h POKE MACH.LANG.y PKE770790 P:PKE,P  PKE76767682 P:PKE,P :P:232,P:115,P:P:233,P:116,P  &ONERR BRINGS US HERE 0::T STEP PADDLE(0)/ @R199185(1)5016 JRI TDRAW PENDULUMT ^1X,Y_ hPAUSEo rT1(0): |ERASE PENDULUM 1X,Y  TONE 1X,Y:768,255:769,10:770:1X,Y START OVER 200 DATA FOR MACH.LANG.S 17LEFT TO RIGHT;R IS ROT- ATION;STEP BY A FRACTION OF PADDLE(1)W R185199(1)501^ Rq DRAW PENDULUM| 1X,Y PAUSE T1(0): ERASE PENDULUM 1X,Y  "TONE ,1X,Y:768,255:769,10:770:1X,Y 6LEFT TO RIGH0 n9:"PAD";::"DLE #0 CONTROLS TE";::"MPO"h x6:"PADDLE";::" #1 CONTROLS STEP";::" VALUE";| DRAW METRONOME 2 X80200:140,40X,159: X & Y ARE COORDINATES ATWHICH TO DRAW PENDULUM;SET COLOR X140:Y155:3 55>  HI-RES METRONOME2IF CTRL-C THEN TEXT<560L(460:POKES2SET HIRES MODE, CLEAR TEXT WINDOW, AND MOVE CURSORTO BOTTOM OF SCREEN<::21FPRINT TITLE,ETC.PZ12:"APPLE ][ METRONOME"d12:" ":     L L0`Q252:WO3:5000%FQ200:WO:5000;FQ224:WO3:5000OF Q150:WO:5000cFQ170:WO:5000wFQ200:WO:5000FQ100:WO:5000F!Q126:WO:5000F&Q112:WO:5000F+Q126:WO2:5000F0Q200:WO:5000F5Q252:WO3:5000G:Q200:WWO:5000EQ126:WO:50001EQ150:WO:5000EEQ142:WO:5000YEQ126:WO:5000mEQ150:WO:5000EQ170:WO:5000EQ200:WO:5000EQ126:WO:5000EQ200:WO:5000EQ200:WO:5000EQ224:WO2:5000EQ200:WO:5000FDwQ100:WO:5000'D|Q112:WO:5000;DQ126:WO:5000ODQ150:WO:5000eDQ126:WO2:5000yDQ150:WO:5000DQ112:WO3:5000DQ150:WO:5000DQ112:WO3:5000DQ170:WO:5000DQ126:WO:5000DQ100:WO:5000 EQ112:Q170:WO2:5000'C Q200:WO2:5000=CQ170:WO3:5000SCQ224:WO2:5000iCQ200:WO2:5000oC"xC,120C6210C@Q252:WO3:5000CJ120CT210C^Q252:WO3:5000ChQ170:WO2:5000CmQ170:WO2:5000CrQ126:WO:500000 BEBQ170:WO:5000#B7BQ150:WO:5000KBQ170:WO:5000aBQ150:WO2:5000wBQ142:WO2:5000BQ126:WO2:5000BQ112:WO2:5000BQ100:WO3:5000BQ126:WO2:5000BQ170:WO2:5000BQ126:WO3:5000CxQ170:WO2:5000)A}Q200:WO2:5000=AQ252:WO:5000QAQ252:WO:5000gAQ252:WO2:5000}AQ224:WO2:5000AQ200:WO2:5000AQ190:WO2:5000AE13AQ170:WO:5000AEAQ200:WO:5000AE13BQ150:WO:50@:5020+@ (16):(12):"D I X I E"@d770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202@n782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0@qO74@s300A! (08@HPX`hpxxph`XPH@80(  "*26 PP P0P   ȥ ȩȑȑȑȑȑ iH) h i @`iiL $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP((( $6H6+$+6+P(P0P9P0 V6 l l+66$6+6P0P0P0P0P+P(P(P"P P PPPPPPPPPPPPH+6+H+6+H+6+H+6+HH((99((HH((99((HH((99((HH((99(( 6$(5,D,171,86,42,D#, 161,81,40,EB,161,81,40,E,153 ,76,37,F,144,72,35,F#,136,68 ,33,GB,136,68,33,G,129,64,31 ,G#,122,60,29,AB,122,60,29 2A,115,57,27,A#,108,54,26,BB,108,54,26,B,102,50,24,C,96,47,23dI  NOTES AND OCTAVE NUMBERS< FOR THE APPLE SPEAKERV::17:"OCTAVES":3"NOTE";5);"1'ST";5);"2'ND";5);"3'RD"I118 A$,T1,T2,T3A$;8);T1;5);T2;5);T3# ( C,192,96,47,C#,180,9