! ,,::::::: 4 AZ:M O$()"cdfd0d350d770cc40b1b0b7b0ae5095609d0085208da07690723237ed6153004c60c30fcfe603804d60c18f80601fe0c380504d60c18f7876f260011**cd195e235621200005280dcb3acb1bcb3ccb1d10f630011319afcd93005a556c3cfe0420f5c9"*, ,:"A U G E N B L I C K"́O:I("&h"(O$(O),,)):T(O$(O)):D$(O$(O),T,):D("&h"D$):D$"**"F:FژMI,D:II:MI,(MD):MI,((MD)):II:F؁T::AA:A:,,:AZ:O: :SV():SV:::"grp:"AS1:VOX@:OY:OW:OS:<:()(OZP:OQ:OV7G:OZ(:OQ:OVC,:HOOZ:VE:HGOX:VGOY:A:˂F тP:d: ,,,'::i: nVEVE,HOHO:s:'xVE:HO():-}:Q ,:" ";SR$;" ";: ,:W:IN:IN$: IN$"" : IN(IN$) IN IN ININ уINININ:()IN$():IN$""IN ININININ:IN$()IN`INININ :: :(K : IN :QW: HO VE HOOZ VE IN:IN((VEHO):IN("&h"((IN),)): IN IN ʄ Є:؄:ބ:RV(): : FR()("")2::% FR :8" FR :>':t,SR$(((SR)),): (SR)SRSR$"0"SR$-SRSR$"-"SR$::Ņ6O#(SR)@P CN:O!(O#):O#O#O!:O$""7CNO$"."(CN,0):O#(O$,)((O#),)-8SR$((O!),)O$:(SR$)SRSR$"-"SR$L9(SR$)CTSR$(CT,*):p:(SR$)CTSR$" "SR$:::vH:J (SR$) ̆O O (SR$):O1((SR$,O,)): O1` O1 O1O1 T(SR$,O,)(O1)::Y:^ SR$;:c:h:m:/:O((SP)):,SV:,SVS SD  : ,: ,:Y:a : IN   : SDSD: SD S:X ::"bm0,199":b:l(?HO,(VE)),(CN ):q:v (?HO,(VE)),(CN ):{:?O1?HO:O2(VE):O3(CN )W"bm=o1;,=o2;c=o3;"c#,SR$io::ͷ:::ͷ::"errorline ";:O():∸,,: :O():̕::,,,':::A:: NOTENBALK TN$(),NO$(`),TE$(`)>%: --- tonentabel ---aNT$" ":FG$" ":KM$" ":W$" "}PT$" ":MP:NO$()"X"P$"":D$"":V$"4":VG$"4":M$"4"$FG:T:U:VM:VA׉.J: --- titel ---8X:CNB: --- muziekscherm --- L(V === HOOFDPROGRAMMA ===I`NO$()"X" NO$()"Y":,$bjIN$"#" J$:tINB IN$"b":J$:~ --- 1e toets kiest subr.---̊INH :INT -- Cursor,spatiebalk,delete --IN IN$(IN)(IN ) :@IN IN:: X -- verlengnoot --rIN+ T:: --- Noot ---(IN$"A")(IN$"H") FG::ً(IN$"a")(IN$"h") FG:: --- Maataanduiding --- IN/ $:$ --- Invoegen ---;INI b:T( --- Maatstreep ---w2INM IN$"M":d :6:< --- Rust ---FINR IN$"R": :6:P --- Speel ---،ZINS :d --- Teken opnieuw ---nINT X:::,x --- Uithalen ---CINU b:X --- Volume ---oINV  : --- Wis op cursor ---INW  : --- Load/Save ---ٍIN$"*" Z:INT:nNO$()"X" `6:   === CURSOR ===BCUIN:CU ,6,h,ONO ڎcCN:: wis{NONO:HCHC?@"(HC?P)(VC@ ) HC@:VCVC@$Ŏ,: print opnieuwӎ6NO` ڎ@CN:: wisJNONO:HCHC?@0T(HC@)(VC@) HC?`:VCVC@$I^: print opnieuwWhNOH ڎkrCN:: wis|NONO:VCVC@$: print opnieuwNO ڎCN:: wis؏NONO:VCVC@$HOHC? :VEVC?:SR$"."::CN  === NOOT ===3P$"":T DVA T:SVNVA:NjSRFG:,:FG$SR$SRINA:,:NT$SR$ --- hulplijntjes --(FG)(INC) :ؐHOHC?0:VEVC?0:lHOHC:v&INA :0HOHC?0:VEVC:l:HOHC:vD:PINA:VNVC(FG@P)(P?)_DP$TN$(PFG):VAVNsNHNHC:T X --- verlengboogje ---bHNHC:HOHN:VEVN? :lёlHOHO? :VEVE? :vvHOHO? :vHOHO? :VEVE? :vD$"+" ڎ/ --- teken noot ---JHOHN:VEVN?:l_HOHN?:vHOHO?:VEVE?:vVEVE?:vHOHO?:v˒HOHO?:VEVE?:vVEVE?:vT ڎKM$" "!IN$"#" KM$IN$: :? INB KM$"b": :aIN$"1" W$IN$:D$"16":$ | IN$"2" D$"08":\*IN$"4" D$"04":\4IN$"8" D$"02":\͓>IN$"6" D$"01":\ۓH:R ---stokje---\W$IN$:HOHN:VEVN?`:l%fVEVE?`:v7pIN$"2" $ Jz ---vullen---fHZHN?:VEVN?HOHN:VEVEVG:lHZHZVG:HOHZ:vVEVN ƔHZHN?:VEVN?收HOHN? :VEVEVG:lHZHZVG:HOHZ:vVEVN "IN$"4" $ 0 1e vlagKHOHN:VEVN?`:llHOHO?:VEVE? :v~IN$"8" $  2e vlag HOHO?:l• HOHO?:VEVE? :vΕ$ T ڎו. 8 --- EVT punt of maatstreep ---B IN$"." j "L INM  : M3V PT$" ": N` --- verleng-punt ---mj HOHNHG:VEVNVG:lt HOHOHG:l~ D$"02" D$"03" D$"04" D$"06"Ö D$"08" D$"12"ٖ D$"16" D$"24"ꖦ PT$".": --- compacte maatstreep ---# VM?:d :VM/ PT$"M"; T ڎF  :a === kruis of mol === IN$"#" SR(P$):,:P$SR$: INB IN$"b":SR(P$):,:P$SR$ܗ HOHN?P:VEVN? :SR$IN$ IN$"#"  IN$"b" 2  HOHN:VEVN?:5( === teken mol ===O2 l:VEVE?@:vp< HOHO?:VEVE?:vF VEVE?:vP HOHO?:v:Z === MAATSTREEP ===˜d HOHCVMn VEVC?`:l:VEVE@:vx VM ڎ T ڎ. NO$(NO)"":TE$(NO)"M ":NOMP MPNO4 G === RUST ===Y NT$IN$:M$V$ :(IN1)(IN8) : (IN3)(IN5)(IN7) : V$"0":W$IN$Й IN1  : 1/1 VRVC@:HRHC? VRVRVG:HOHC:VEVR:l HOHR:v1 VEVC@  B D$"16": X IN2 J : 1/2t VRVC@:HRHC? " VRVRVG:HOHC:VEVR:l, HOHR:v6 VEVC@ " ʚ@ D$"08": J IN4  : 1/4T VEVC@:HOHC? :l"^ VEVE? :HOHO? :vCh VEVE?:HOHO?:vXr VEVE? :vy| VEVE?:HOHO?:v D$"04": HOHC?:VEVC@: 1/8қ l:HOHO? :VEVE?@:v盤 HOHO? :v IN6 D$"02":  VEVE?0:l: 1/169 HOHO?:v:D$"01"E T ڎP  :e === OPSLAG ===~ --- muziektoon --- T  X(NO$(LA)) (D$)ǜ SRX:,:NO$(LA)SR$:D  LANO:NX$NT$:FX$FG$ NO$(NO)P$D$V$:V$"0" VA& V$M$0 NNO:4: --- tekendata ---VD T NT$NX$:FG$FX$:KM$"+"uN TE$(NO)NT$FG$KM$W$PT$X NT$" ":KM$" ":W$" ":PT$" ":Tb NOMP MPNOl ɝv === VOLUME === :(IN1)(IN7) :  CN:HO:VE:SR$VG$:- CN:VG$IN$:SR$IN$:A V$IN$:M$IN$:d === WIS OP CURSORPOSITIE ===~ TE$(NO)"":NO$(NO)"" HWHC?0:VWVC?:TWVC@& CN:HWHWHG:HOHWڞ VEVW:l:VETW:v CN VEVC@:l VEVC@:l" VEVC@:l7 VEVC?:lL VEVC?`:lb HWHC?  h  === SPEEL MUZIEK ===N MPNO$(N)"" N՟ === SPEEL 1 NOOT ===SP((NO$(N),,)) SD((NO$(N),,))% SV((NO$(N),,)).4IP === * MENU ===TZd:odSR$"M E N U":::n" 1 = UITLEG":x" 2 = TERUG NAAR MUZIEKSCHERM":ʠ" 3 = EEN NAAM PLAATSEN":" 4 = SAVEN VAN MUZIEK (CASSETTE)":" 5 = SAVEN VAN MUZIEK (DISK)":D" 6 = LADEN VAN MUZIEK (CASSETTE)":j" 7 = LADEN VAN MUZIEK (DISK)":" 8 = MUZIEKGEHEUGEN WISSEN":" 9 = STOPPEN MET DIT PROGRAMMA":ԡ" Tik een cijfer ";:(IN1)(IN9) d::" MOMENT"IN1 :Z)IN2 ڎRIN8 %:NO:NO$()"X":MP:bIN9 IN2 ,P#,2#,#,#| === NAAM ===d:"GEEF DE NAAM":ʢA$:TE$()A$:䢚 === NOTENBALKEN ===N? @ @$:HO#VEN:l:VEVE@:v:M @ ?0OHO:VEMN:laHO@:v|M:VEVE@:v:NU U: --- sleutels ---N@# @ @$գHO? :VEN:lHOHO>`:VEVE>@:vHOHO>:VEVE@:v8HOHO>:VEVE>P:vY&HOHO>:VEVE>:vz0HOHO?0:VEVE?:v:VEVE? :vDHOHO?:VEVE? :vŤNHOHO? :vXHOHO?:VEVE? :vbVEVE? :vlHOHO?:VEVE?:v1vHOHO?:vRHOHO?:VEVE? :vYNs ---init. cursor ---HC?`:VC@&:NO: === TEKEN MUZIEK UIT TE$() ==ߥHO@0:VE:SR$TE$():T:D$NO$():(D$) IN$D$:6A$(D$,,):B$(D$,,):C$(D$,,)NIN$"/":$:IN$C$n(IN$"#")(IN$"b") J$MP T:AA:BBMPXAA BB:A$TE$(X) TE$(X)""  æzӦ 6:X:T٦*p === NOTEN TEKEN ROUTINE ===zB$(A$,,):C$(A$,,)ID$(A$,,):E$(A$,,):F$(A$,,)^B$"M" d :B$"R" IN(E$)0: :(B$"0")(B$"7") ڎIN(B$)A:FG(C$):ӧD$"#" IN$"#": D$"b" IN$"b": D$"+" bIN$E$:E$"1" \5IN$F$:IN$"M" INM>B DdX === INVOEGEN/UITHALEN ===rbNOH ڎlBA((NO)):TPBA:MMNO:VVVC:HHHCʨvCN:VEVC@&: --wis notenb.--ߨHOHC?0:lHO:v:VEVEVGVEVC? .CN:U:: teken nb.-->INU ]XTP MM : --arraysTE$(X)TE$(X):NO$(X)NO$(X)X:TE$(MM)"":NO$(MM)""MPTP MPMP ˩XMM TPTE$(X)TE$(X):NO$(X)NO$(X) X:TE$(TP)"":NO$(TP)"""MPTP MPMP; AAMM:BBTP:T:NCN::CNk NOMM:HCHH:VCVV::@ === TITEL EN UITLEG ===Jd:::TA$" "Ū^SR$A$::hSR$"N O T E N B A L K"::rSR$A$::|::&" MUZIEKNOTEN-PROGRAMMA"::D" IN BASICODE-3 FORMAAT"R::::p" WIL JE UITLEG? J/N";:INJ ڎd:"Tik muzieknoten als volgt: eerst":"een van de letters ABCDEFGabcdefg":"daarna EVENTUEEL een # of een b":;"daarna de waarde met EEN cijfer":f"1 2 4 8 of 6 voor resp. een hele,":"een halve, een kwart, een achtste":"of een zestiende noot.":۬ "Daarna kan nog een PUNT ingetikt": "worden (verlenging), of een M (=":/ "maatstreep),tik anders 'n spatie":X& "Een + maakt een verlengnoot >>";h0 :d:: "De CURSOR gaat vanzelf naar de":D "volgende positie. De cursor kan":N "ook met de cursortoetsen worden":X "verplaatst.":%b "Een RUST wordt geplaatst met de":Ol "letter R en een cijfer 1 2 4 8 6":tv "De M plaatst een MAATSTREEP": "/ en 2 cijfers plaatst een maat-":î "aanduiding voor aan de balk": "De S laat de muziek spelen en de": "T tekent alles netjes opnieuw >>";& :d:O "Aan het begin kun je een # of b":s "invoeren als voortekening.": "Het volume (geluidssterkte) van":ů "de muziek kun je veranderen met": "de V en een cijfer van 1 t/m 7.": "Dat geldt dan voor alle noten":6 "die je daarna intikt.":_ "DOOR EEN * TE TIKKEN KRIJG JE":!"ALLE INSTRUCTIES VOOR HET SAVEN": !"EN LADEN VAN MUZIEK NAAR EN VAN":ٰ!"CASSETTE OF DISK >>"; !:d*!4!"Met de W kun je een noot wissen":?>!"die je met de cursor aanwijst.":hH!"Met de I kun je boven de cursor":R!"ruimte maken om een noot in te":\!"voegen, en met de U kun je een":f!"noot uitnemen en al wat verder": p!"op de balk staat naar links aan":5z!"schuiven. Zo kun je achteraf de":`!"muziek nog gemakkelijk wijzigen"::!"DIT KOMT WEER ALS JE EEN H TIKT"!:INH !(# === SAVE ===²2#NF::߲<#" Geef file naam";:NF$F#Z#P#NF:NF$"MUZDAT"Z#MP :d#'n#X MP;x#SR$TE$(X):0O#SR$NO$(X):0[#X:Da#t# === LOAD ===#NF:::#" Geef file naam";:NF$###NF:NF$"MUZDAT"ȳ#%ֳ#:MP#:TE$(MP)IN$#:NO$(MP)IN$ #MPMP$IN #,$D:MPMP2$M"$ === VOORTEKENING ===`,$6$::CN6$HO:VE:SR$"# of b"::CN@$J$SR$IN$:VN@:HO?@:VEVNT$IN$"b" r$Ҵ^$IN$"#" ڎ h$VNVN?U:VEVE?U:TN$()"66":TN$( )"78":|$(r$TN$()"58":TN$()"70"<|$IN$"b" 2 P$IN$"#" q$VNVN@$:VEVN:VN |$}$T ڎ$NO$()IN$:$ === MAATAANDUIDING ===ص$HO?`:VE@:SR$IN$::T $$:A$IN$:(IN1)(IN9) $$$VEVE?@:SR$A$::T $J$:B$IN$:(IN1)(IN9) $n$VEVE?:SR$B$::T ڎ$NO$()(NO$(),,)A$B$$$ === VUL TONENTABEL ===%ն%N :A$:TN$(N)A$:N% --- en leeg de arrays ---&%N `:NO$(N)"":TE$(N)"":N0%=a"57","59","60","62","64"[a"65","67","69","71","72"ta"74","76","77","79"a=============================} GEMAAKT OP BBC B COMPUTER̷ } SEPTEMBER 1987ҷ}} Ch.W.Brederode(} Von Bonninghausenlaan 332} 2161 ES LISSE!<}