;8------
-
.
.·
·
....
·
.
_..
..._-,
.
.,..,
__
,.,_M_
.
Akko~dfindun9
leicht
gemacht
ist
ein
P~o9~amm
fue~
Ke~bo~de~
ode~
solche
die
es
noch
we~den
wo,
ren.
Auf
dem
PC2500
ode~
dem
PC135B
koennen
alle
Ou~;Moll
;Oom:nantsePl;MollsePt
und
Nonakko~de
als
G~i
ffbi
Id
da~gestel
It
we~den,auch
an
ein
Ha~dcop~
des
gewuen-
schten
Akko~des
ist
gedacht
wo~den.
Die
Akko~de
koennen
in
G~oss-
ode~
Kleinsch~ift
eingegeben
we~den.
Ha~dcop~
de s
Ak
k
o~de
s F -.
Mo
I I
nach
de
~
Ein9abe
von
)fm(
ode~>FM<
wi~d
dieses
Ha~dcop~
ausgegeben
:
Akkol"'d
FM
......................
u
........
ua.u
•••
u
.....................
...
•
.a....
•
all
.1.
IU
•
.t.
&.I
.'
tu:
•
......
•
'"
III
•••
1.&
11.1
•••
tU
1'1
•
.a.
IU
•
I.a
Ut
au
.1.
'1'
au
UI
U&
•
.at
••
, •
.a.
al'
11' • •
•••
u ,
••
a...
•••
.I'.
•••
•••
•••
•••
•
tu
•••
tU
I
•
.a.
'1.
tU
IU
•••
..
••
'1.
tU
ata
Itt
•
tU
I"
•
'I"
•••
ut
Ut
tU
'11
•
.1.
IU
•
al'
u.a
•••
'"
U.
I.'
U&
••
, •
.a'
•••
"1
•••
.11
.a.
'1.
•
.U
. •1
••••
,
.....
.
•••
UI
•
.U
•••
,.&
tU
I I
I I
• I
I I
'"
•
'11
1.1
I
••
..........
I A I
1'1
•
.1
•
l.l
.,.
A..
U,
I
•
••
Ut
a
•••
•
IU
.,&
III
1,1
I'U
11&
•••
'1'
.a.
A •
I
A I
I I
I •
. .
UU'
.. ..
• • I
......
. .
I •
. .
• I
. .
tu...
·
&lU.......
.....
.....
..
t • • • • • • • I • •
• • • • • • • • • • • • • & •
....
u •.
•••
uu
.....
uu
............
u
.........
u
............
.
l:REM
AKKOROFINDUNG
2;REM
LEICHT
GEMACAI
3:REM
Thomas Lange
4:REM
Rotdo~nwe9
3
5:REM 4722
Ennige~loh
10:WAIT 0
50:
·
CLS
60:Cl=3500:CI=3501:01=3502:DI=3503:El=
3504:Fl=3505~FI=3506:Gl=3507:Gl=350
8
61:Al=3509:AI=3510:Hl=3511
62:C2=3512:CS=3513:D2=3514:DS=3515:E2=
3516:F2=3517:
FS=3518: G2=3519:GS=352
o
63:A2=3521:AS=3522:H2=3523
999:-GOTO
2000
1000:
REM
ZEICHNEN
OER
TASTATUR
1040:
RESTORE
1050:WAlT 0
1100:LINE
(3,3)-(59,27),B
1110:FOR 1=1
TO
13
1120:LINE
«3~4tl),3)-«3~4tI),27)
1130:NEXT 1
1135:H=3:T=17
1138:~OR
1=1
TO
20
1139:READ ' Xl
1140:LINE
(Xl,H)-(Xl,T)
1150:NEXT I
1180:
RETURN
1200:0ATA
6,8,10,12,18,20,22,24,26,28,
34,36,38,40,46,48,50,52,54,56
2000:REM
ABFRAGE
DES
AKKORDES
2010:CLS
:
GOSUB
2100:
GOSUB
2500:
GOSUB
1000:
GOSUB
3000
2020:SU=""
2025:ST$=
INKEY$
2·
030:
IF
ST$=""
GOTO
2020
2040:
IF ST$="W"
OR
ST$=·"w"
THEN
GOTO
2
000
ni'
PMP
In
le;
le
3000
bis
3157
s;nd
die
gesPei-
che~len
Akko~de
und
ih~eToene
a/jointfilesconvert/338009/bgele9t.
Die
Koordinaten
de~
Tasten
sind
in
lei
le
3500
bis
3523
a/jointfilesconvert/338009/bgesPe
iche~t
und
we~den
di~ekt
uebe~
die
Namen
de~
Toene
angesP~ungen.
....
IF
AK$=>FM<DR
AK$=)fm(
GOSUB
F1:
.
...
IF
AK$=
GOSUB
GS:GOSUB
C2:RETURN
Auf
diese
weise
lassen
sich
auch
al
le
ande~en
Akkol"de
P~o9~amm
i
·
e~en.
SPe i ch e
~be
da~
f de s
P~o9
~am.fTIe
s
4,
6K
. .
P~og~Qmmie~hi
Ire
fue~
weite~e
Akko~de
UO
(f)(f)
(f)C/)(f)
1L..
C!JO
UO
lL..C!JP
mm
mmm
mm
mmm
::l::l
::l::l::l
::l::l
::l::l::l
(f)(/)
(f)(f)(f)
(f)U)
(j)(j)(j)
00
000
00
000
00
C!JC!JC!J
C!JC!J
C!JC!JC!J
Ois
Gis
dis
gis
Cis
Fis
Ais
cis
fis ais
....
r-
C 0 E F G A H c d
~
f 9 a h
.-i.-i.-i.-i.-i.-i.-iNNNNNNN
UOWlL..C!J<I
IUOWlL..
C!J<I I
mmm-Olmmmmmmmmmm
::l:::>::>:::>:::>
::>
.:::>:::>::>:::>:::>:::>::>::>
(f)(f)(f)(f)(f)(f)(j)(f)(f)(f)(f)(f)(f)(f)
00000000000000
C!JC!JC!JC!JC!JC!JC!JC!JC!JC!JC!JC!JC!JC!J
2050:
IF ST$="C"
OR
ST$="c"
THEN
GOSUB
'
5000
2060:GOTO
2020
2100:CURSOR
10,0
2110:PRINT
"AKKORO"j
2120:CURSOR
10,1
2130:PRINT
"[
]";
2140:CURSOR
11,1
2150:
INPUT
AK$:
RETURN
2500:CURSOR
10,2:
PRINT
"W=Weite~":
CURSQR
10,3:
PRINT
"C=CoPY":
RETURN
3000:REM
KOOROINATEN
OER
AKKO
ROE
3100:
IF AK$="C"
OR
AK$="c"
GOSUB
Cl:
GOSU~
El:
GOSUB
Gl:RETURN
3110:JF
AK$="CM"
OR
AK$="
cm
"
GOSUB
Cl:
GOSUB
Dl:
GOSUB
Gl:
RETURN
3111:
IF AK$="C7"
OR
AK$="c7"
GOSUB
Cl:
GOSUB
El:
GOSUB
Gi:
GOSUB
AI:
RETURN
3112:
IF
AK$="CM7"
OR
AK$="cm7"
GOSUB
C
1:
GOSUB
01:
GOSUB
Gl:
GOSUB
AI:
RETURN
3113:
IF AK$="C9"
OR
AK$="c9"
GOSUB
Cl:
GOSUB
El:
GOSUB
G1:
GOSUB
AI:
GOSUB
02:
RETURN
3114:IF
AK$="G"
OR
AK$="g"
GOSUB
Gl:
GOSUB
Hl:
GOSUB
02:
RETURN
3115:
IF
AK$="GM"
OR
AK$="9m"
GOSUB
G1:
GOSUB
AI:
GOSUB
02:
RETURN
3116:
IF AK$="G7"
OR
AK$="g7"
GOSUB
Gl:
,
GOSUB
Hl:
GOSUB
02:
GOSUB
F2:
RETURN
·
S
.
HARP-~omputer
Heft
16
Seite
14
--.
.......
----
Comments to this Manuals