Commodore 64 User Manual page 157

90 REM F,lANA KEYBOARD
10:1 FRINT" a 01 NI I hJ I'ii i?!I I PB uJl I i!N IAN "
110 PRINT" ,J M @J I iJ IN FAN i IJ I+J 1 M Of
120 PRIIIT" ;N L'JI IN 1 111 1111 Jl I IN Fl 1 I! '.
1 _:Ci PRINT" ;N I I I I I I I I I 11 1
140 PRINT" :}! I l • 1 I E I I T I Y 1 1 1 I I I O I I ' - I@ 1'+ l t
150 FRINT",N' ,PR:=E' FOR SOLO CIR POLYPHONIC"
150 PRINT"J'F1.F:-:.FS 177' OCTR'•:'E ' ELECTICIN"
F'F'It1T" 'F2 .F4.F15.F3' IJR'•r'EFORM )"
170
1:?C1 FRINT"HRNO OH, _;ETTINU_ UP FR'ECIUEIICY THE:LE... "
1911 S=1 :2:41395+1C-124:D IMF-:2G - :DIM}. 255)
511 FORI=0TO2!3:FI 1 E'-;+ 1 C+:NE T
210 F1='3413 :FOR I=1TCr2E:F:.-'-I?=F1+=. 3+313:F1=F1:2 :1r''12:NE::T
.2 --,'C' K2bJ::!ER5T5'.''UI9nf1F'I=+--+IT"
:2 10 FORI=1TOLEII 81:- R'=.C 1-11D#-F:tI =I:NE:T
240 FIR IHT"^
250 RT=O:DE=O; _:CI=15:F:E=9U+16+RE:R'-r=RT+15+DE
tJ'v'=15 : bi=13 :11=1 : OC=•-1 :H E! =.. 55
250 FORE=C+TO2:F'OF::E'=;+.F,+I+'.AT+1 +DE:POF:E=:+.+I47._LI l ,.,-FE
2713 PORE'=•+ +I+ 4Cn:0 I
Ei235:Ff'LE + +I+ .4^:u_u_i:'254:HE:;T
2 o3 Pf'KE'=+24.15:REM+15+ :4:FIJKE5 = 23.
301+ -;ETR:t:IFR^=""THEtl:a_u:i
310 FR=F.K:A51_. H_t;: i,D1:T='•:'+7:CF:=:=+T+4:IFFR=7THEH50_+
2c_+ P'F::E'-:+e•+T.--:REli FIHIOH DEC,•5LIS
5 FCIFE'S-,- +T. :REM FIl•II'=H RTT,'REL
3^=^ F'OK:ECF, ::F'iik:ECF..0:FEti FI„ CUFF
330 FOF:ES+T,FE-HE::+INT::FR:'HC :FEM SET LO
2,5:1 Pl-jlt+.ES+I+T,FF-.'.'HE:.F,Er-I '--;ET HI
5.0 POKE:+e.+T,S',':F:EP1 SET DEC.''3!I3
=:65 Pi Ik:E'=+S+T..R'•J :F:EM '=:ET RTT.'F:EL
270 POF:ECP.1J•.'+1 :Fi'RI=ITC 150+RT :HE:;T
:75 POF::E':.P 14;':FEti F'iILSE
.:-'.Cl IFP=ITHEFI'v' r1:IF':'=::THEN'•?=0
411_1 00TCi3517i
51313 IFA+T="fi"THEIIM=1:Cu_=4:131ITC -_:00
510 iFR3="!!"THENM=2
520 IFR3="111"THENM=4:OC=2 of CITOS:1113
5311 IFR$="111"THEHt•1 :cif =1 :OflTl:13f1_1
540 IFRB="`11" THENN=Ci l1'=1 e• :GOTC ra:+0
5513 IFR:t="i THENN=1 :Ii'•r'=_r2:i 11TC1-:iu=1
5551 IFR3="U"THEIIH=2e.•4 : 1 C , 0 C'
5'0 IFR£=" IITHEHL4= 138 :OCT:
I;0cl
5013 IFFI =" "THEHF'=I-P:GiiT1iOI:10
590 IFR3 =" O"THE_N20C1
: 5113 PF'IHT"HIT R F:EY"
_:li=+ i3ETH<t:.CFHSE=""THI=11:=1! :b.IRIT FOP I=i FEY
='•20 F'P I HTRB :RETURN
NOTES:
Line 100 uses (SHIFT CLRIHOME),
(CTRL 9),(CTRL ]),(SHIFT B).
Line 150 uses ( CRSR DOWN)
Line 240 uses ( CRSR UP)
Line 500 uses (f1)
Line 510 uses (f3)
Line 520 uses (f5)
Line 530 uses (f7)
Line 540 uses (f2)
Line 550 uses (f4)
Line 560 uses (f6)
Line 570 uses (f8)
Line 590 uses (SHIFT CLRIHOME)
147