@vP?Wv!6zmD:\:!68!12345@W P P 3\3\3\M?M3Mvv@>v>>BB<DHpHDB@~BfZBBBBbRJFBx~<<|~<|BB B<|< BD@B@B@BBBf b8BB8D8888@88D88BB|Bx~<<@~<B>>B@@@B>>>BB@@@B<<~@~<|B<|>B<<<~B8fBBb@BBB@BDBBD ZBBRBB~f!8 :8: 8:8 8 8k8" # <@T v\\\-^\vv,^vvvv\X![!PP!!88"W K SR P M.SAGUER ~~ 24/9/84 7::4:2 "1,1;"VIDEOSPECTRUM" (2,1;"Revista de Software" 33,1;"_" $0:1,26;"No. 3" l1:12 ,10 ;"***SOLFEO***":0:20,5;"Por MARTIN SAGUER DIAZ":150 1000:1400x  -- SOLFEO --  6:6: 236099\,100d (%1;0,12 ;"SOLFEO" 21200:2000 7612 ,2;"nota :";13 ,9 ;"" <512 ,10 ;"DO":910:1,0 F512 ,10 ;"RE":920:1,2 P512 ,10 ;"MI":930:1,4 Z512 ,10 ;"FA":940:1,5 d612 ,10 ;"SOL":950:1,7 n612 ,10 ;"LA ":960:1,9 x712 ,10 ;"SI ":970:1,11 712 ,10 ;"DO ":980:1,12 -502:12 ,2;" " 713 ,9 ;" ";12 ,1;" " /21,2;1;"OTRA VEZ ? (S/N)" ="s"Ŧ="S" ="n"Ŧ="N"149 140 E:d=0:10 ,12 ;"NOTAS":l=1150:l ):1;0,10 ;"SOLFEO-1" 0,20;"NOTAS" 1200 2000 #12 ,1;"Que nota es ?" 0n=(*8)+1:m=n*10 +900 m:1,n n$:n$>3205 12 ,15;n$;" " 410 a=1n b$ c$=b$ a n$=c$235 18,10 ;1;"MAL":150:18,10 ;" ":21,1;" ":20,4;"otra vez :":205 /18,10 ;1;"BIEN":150 #d=d+1:d>5300, 160 ,E:e=0:10 ,12 ;"TONOS":l=1150:l 6):1;0,10 ;"SOLFEO-2" ;%0,20;"TONOS" @ 1200 E 2000 J#12 ,1;"Que nota es ?" Tn=(*8)+1 ^ 1,n hn$:n$>3360h m12 ,15;n$;" " p 410 r a=1n wb$ |c$=b$ a n$=c$440 *"do","re","mi","fa","sol","la","si","do" 18,10 ;1;"MAL":150:18,10 ;" ":21,1;" ":20,4;"otra vez :" !n*10 +900:360h $18,10 ;1;"BIEN" !n*10 +900:150 #e=e+1:e>5500  3106 CONTINUACION  #8;" ** SOLFEO ** " #5,2;"Escoge entre :" A10 ,5;"A - NOTAS."::5;"B - TONOS." &!:5;"C - FIN." 0#1;" Cual ?" :="a"Ŧ="A"160 D="b"Ŧ="B"300, N="c"Ŧ="C"9908& X 570: COLOCAR NOTAS B1;9 ,7;"":1;9 ,6;"": 61;8,9 ;"";9 ,9 ;"": "1;8,11 ;"": 81;7,13 ;"";8,13 ;"": "1;7,15;"": 81;6,17;"";7,17;"": "1;6,19;"": 81;5,21;"";6,21;"":  GRAFICOS  1165 a=07 b  "a"+a,b a a=07 $b . "b"+a,b 8a Ba=07 Lb V "c"+a,b `a ja=07 tb ~ "d"+a,b a C0,0,0,255,0,0,0,0 K0,60<,126~,126~,126~,126~,60<,0 F0,0,0,0,0,60<,126~,126~ F126~,126~,60<,0,0,0,0,0   PENTAGRAMA a=48 b=131  a,b;"" b a  xCLAVE DE SOL C0,0,0,0,0,4,10 ,17 F17,17,9 ,6,4,12 ,20,36$ L68D,68D,132,132,133,68D,36$,36$ D21,14,4,20,8,0,0,0 H0,0,0,128,64@,32 ,64@,128 n=07 b  "e"+n,b n n=07 b  "f"+n,b "n ,n=07 6b @ "g"+n,b Jn Tn=07 ^b h "h"+n,b rn |n=07 b  "i"+n,b n  COLOCAR CLAVE څ1;1;4,2;"";5,2;"";6,2;"";7,2;"";6,3;"":0  &7::4:2 &"1,1;"VIDEOSPECTRUM" &(2,1;"Revista de Software" &33,1;"_" &$0:1,26;"No. 3" &A1:6,3;"SUSCRIBASE TELEFONICAMENTE":0 &)7,7;"Tfno. (91) 413 47 99" &38,1;"(contestador automatico 24 h.)" &!11 ,11 ;" *" &02:14,1;"CONCURSO":0 &416,1;"1)Realice un programa original" &117,1;"2)Mandenoslo en un cassette" &518,1;"3)Si es elegido ganara 5000 pts" &019,1;"4)Envielo a: VIDEOSPECTRUM" &320,1;"c/Zabaleta, 36 - 28002 MADRID" & zHzIIzHz@ À MChpap0aphQpap(apap0ap L4Px888T6E"@ u# $rF ufA=0HKA