Commodore 64 - Page 153

9(1
10C'
110
12')
1 :-::"~1
141)
15')
16')
1(1)
1:~0
19')
2(10
211)
22(1
23"~1
REM F'l At.m KE'T'E:OAF;D
PRINT"~ ~ g ~ I U ~ ~ I ~ n I ~ ~ "
PRINT" ~ M ~ I ~ ~ ~ i ~ M I ~ ~
PR HIT" ..1~ I!J I ~J i!JI it~ I i!JI I!J I I!II I!J "
PFUNT" ~ I I I I I I I I I I I I "
PRINT" ;:11)I~j IE IR IT I','IU 1110 IP II] I;+;I.t"
PRUIT":!j'-SPACE'-FOR SOLO OR POL','PHO~UC"
PRINT":!j'F1 ,F~'3._F5..F7'-OCTAVE SELECTIClt~"
PR I ~IT" :!j'-F2._ F 4._ F6._ F8'- 1..IA' EFClRt.1~..
PRHIT"HAt'IG ()N._SETTIt~G UP FREClUEI..jC','TABLE_ __"
S_13*41)96+1024:DIMF(26):OIMKC255)
FOR I ",\)TCI2:~ : POKE:;+ I. <):t.jE;".:T .
Fl_7040:FORI_1T026:F(27-I)_F1;+;5.8+30:F1_F1/2~C1/12):NEXT
K$="1)2W3ER5T6Y7UI900P@-*£~"
FC'PI~l TOU::N(K$> : I.::(F'f;:;C( rHO:t(Kt._ I» )-1 :NE:,:T
PRItH":J
AT =1) : DE") : SU= 15 : PE-9 ::;:;'''':;1)* 16+RE : AV=AT;+;16+0E :
~N= 16 : 1.,=0 :1'1=1 : OC=4 : H8=256 :Z=':'
FIJR I ",')T'J2 : PCtKES+5+ I *7.. AT;+;16+0E : PCIKES+6+ I;+;7._SU;+;16...RE
POKES+2+ 1;+;7._40CII)At.10255 : POI(ES+3+ 1;+;7,4000/256: t.jE:.<:T
POKES+24,15:REM+16+64:POKES+23.7
GETA$: IFA$=" "THEt.1301)
FR.F(K(ASI:::CA,'P) ),..t'1 :T-'./;+;7 :CR-S+T+4: IFFR-ZTHEH50')
POI<:ES+6+T,Z :REI'1 FItHSH DEC.":3US
POKES+5+ T ._2 :REt'1 FItH:;H
ATT REL
POKECR,8:POKECR,O:REM FIX ClFF
POKES+T..FR-H8;+;HITCFR/HB) :REI1 $ET LO
PClKES+l+T..FP,'HB:REt'1 :;ET HI
POKES+6+T,SV:REM SET OEC/SUS
POKES+5+
T._AV :REI'1 :;ET ATT /REL
PPKECR,WV+l:FORI_1T(51)*AT:NEXT
POKECR,WY:REM PUL$E
IFP-1THENV=V+1:IFY=3THENY=1)
t3IJTIJ3a.)I.)
I FA$=" iiii"THEt'U'1=1 : OC=4 : GOT03CII)
IFA$'-"!!!"THEHI'1=2 :IJC-~: : GOTO:3CII)
IFA$="I!I"THEt~~1=4 :OC-2 :130TO:::o)C,
IFA$="ill"THEt.H'1=::;. :OC=l :GOT03')')
IFA$="9"THEt~I.J-C' :.1' =16 : GOT'J:::O')
I FA$_" JG"THEHI.I- 1 : 1.1'.,1=32: GOTO:3')O
IFA$=":i!"THEt.n.I=2 :W =64 : GOT03.:II)
I FA:$:="11"THEt.U.J=:?':~J1...1=128 :!31)T(I:3QO
IFA$=" "THEHP=1-P:GOT0309
I FA$ -":J" THE~j2'30
O(ITCI3(1(\
PRHIT"HIT A KE','"
13ETA,. :IFA'~=" "THE:H::;.1C,:I.IAIT FOR A I.:E','
PRHJTA$ :RETUF:N
/
241)
.250
261.)
2713
3~30
31e
321)
:325
33&.)
341)
350
361.)
:365
3713
375
3813
4 ell)
501.)
51')
53')
540
'550
560
570
581)
59(1
61.3(1
:3(.1)
:::1(1
:32a.~
NOTES:
Line 100 uses (SHIFT CLR/HOME).
(CTRL 9),(CTRL ]),(SHIFT B).
Line 150 uses (CRSR DOWN)
Line 240 uses (CRSR UP)
Line 500 uses (11)
Line 510 uses (13)
Line 520 uses (15)
Line 530 uses (17)
Line 540 uses (12)
Line 550 uses (14)
Line 560 uses (16)
Line 570 uses (18)
Line 590 uses (SHIFT CLR/HOME)
147