100 REM RYTMTR[NING
102 DIM A$=255,Q0$=255
105 ; CHR$(12)"TAKTRYTMER" : ; "**********************************"
110 ; CUR(5,0)"Med detta program kan du f} en inskriventext s{nd som en rytm f|r telegrafinyck-eltr{ning."
115 ; : ; "Det hela {r ordnat s} att det normala   mellanrummet mellan tecken dvs 3 enheterst{lls om till 1 enhet."
116 ; : ; "Om du l{gger upp ett antal olika rytmer kan du med biblioteksprogrammet l{gga   upp en lektion som ";
117 ; "inneh}ller flera" : ; "varianter och sedan snabbt {ndra under  uts{ndning"
120 ; : ; : ; "VILKEN SEKTOR "; : INPUT C%
130 IF C%<1% OR C%>549% 105
140 OPEN "DR1:DD1.DAT" ASFILE 1%
150 Z%=CALL(28666%,1%)+CALL(28668%,C%) : A$=Q0$
160 A$=LEFT$(A$,250%)+"R  "
170 Z%=CALL(28666%,1%) : Q0$=A$ : Z%=CALL(28670%,C%)
180 CLOSE 1%
190 ; CHR$(12)"KLART !!  FLER RYTMER  J/N"; : GET C$
200 IF C$="J" THEN 105 ELSE CHAIN "START"