1 07/21/87 * MORSE CODE PRACTICE PROGRAM *p COMMENTS TO Q-LINK: "CUZ", GENIE: "G. ROZEA" (EX: K1AVE)v( REDONE FOR 128 IN 80 COL. MODE FROM OLD VIC-20 ROUTINE2< R54272 54296: R,0:F 54277,0: 54278,240: 54275,8: 54276,65_P" MORSE CODE PRACTICER "eZd "WHAT SPEED ( 5 TO 20 W.P.M. )";Pn P 5 P20 100x "HOW MANY GROUPS OF SIX CHARACTERS ( 1 TO 160 ) ";H1 H11 H1160 120% VP  P12 K1: 180BK ((P421538807P)):P13cP((P(2.333)961387P))i" PRESS S TO INTERRUPT THE PRACTICE SESSION "" *CHECK YOUR ACCURACY*" 2 54296,10 : VOLUME)A(( 1)47)44K(A64) (A57 A63) 260[ I 44 Ad" A$j,|6 I1 (A$)@D$(A$,I,1)J D$"L" L3P1 : DAHT D$"S" LP1 : DIT^ 54272,132 : 54273,40: PITCH h J1 L : J r 54272,0: 54273,01 | J 1 P2 : J9  I[  END OF CHARACTER GENERATIONf (A);l   E$: E$"S" 540 CC1  C6 C0: 480 : 6 CHAR GROUP  J1 K:  260  I1 P62K: : BETWEEN GROUPS!GG1:HH1! G10 G0(! HH1 5403!" ";=! 260U! 54296,0 : VOLUME]!&:!0" YOU HAVE COPIED"H" GROUPS OF SIX LETTERS AT "V" W.P.M. "!:!D&: !N LLSSLL,LSSSL,SLSLSL,LSSLS%"X LLLLL,SLLLL,SSLLL,SSSLL,SSSSL,SSSSS,LSSSS,LLSSS,LLLSS,LLLLS>"b B,B,B,B,B,SSLLSS,B"l SL,LSSS,LSLS,LSS,S,SSLS,LLS,SSSS,SS,SLLL,LSL,SLSS,LL,LS,LLL,SLLS,LLSL"v SLS,SSS,L,SSL,SSSL,SLL,LSSL,LSLL,LLSS