d 16346,165:16347,0:16348,240:16349,3:16350,173:16351,48:16352,192:16353,136:16354,208:16355,4:16356,198:16357,1:16358,240:16359,8:16360,202:16361,208:16362,246:16363,166:16364,0:16365,76:16366,218:16367,63:16368,96: (' 2A$(48),CR$(48),CH$(48),AA$(48)G <D1:F0:F172:F00:TN16346c F:14)"CODE TEACHER": P"ENTER CODE SPEED (5 THROUGH 25 IN STEPS OF 5)>";CS ZCS0180 dCS5D085 nCS10D042 xCS15D025 CS20D017 CS25D013 CS30D010 CS35D08( 190W 3:958:"ENTER SPEED VALUE (1 TO 85)";D0q D1D03:; DAH LENGTH "ENTER # OF ELEMENTS/CHARACTER SPACE >";D2 "ENTER # OF TIMES TO REPEAT EACH LETTER ";RP X148:CR$(X): X148:A$(X): "DO YOU WANT TO:"8 "(1) INPUT THROUGH KEYBOARD?"] "(2) ENTER PROBLEM CHARACTERS?" "(3) RECIEVE RANDOM CHARACTERS?" KB KB1ī620 KB2ī510 KB3ī290 ""DO YOU WANT:" ,"(1) LETTERS?" 6"(2) LETTERS & NUMBERS", @"(3) LETTERS NUMBERS & PUNCTUATION?";CR:< JCR1CR26L TCR2CR36\ ^CR3CR48o hB(CR(1))1 r390:(16384)127Ĺ16368,0:40 |16368,0:360 Y1RP X1(A$(B)) F1(0):F,F1: SET TONE (A$(B),X,1)"1"ĹD,D1:TN:440: SEND A DAH1 D,D0:TN: ;SEND A DITU F,F0:D,D0:TN: ELEMENT SPACE[  W1D21: CHARACTER SPACE LOOP D,D0:TN  CR$(B);" "; : C0:C10: :"ENTER PROBLEM CHARACTERS>";P$ CR(P$) CC1:C1C11:CCR600&P1$(P$,C,1))0B148X:P1$CR$(B)CH$(C1)P1$:AA$(C1)A$(B):540D::P1$;" IS NOT A VALID CHARACTER"NC1C11:540XCRC11:B1CRbCR$(B)CH$(B):A$(B)AA$(B)::360lAA$:AA$(13)ī40vB148 AA$CR$(B)İ390:620:620O A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Zi 1,2,3,4,5,6,7,8,9,0 .,",",?,-,":",;,(,/,WAIT,AR,SK,ERROR 01,1000,1010,100,0,0010,110,0000,00,0111,101,0100  11,10,111,0110,1101,010,000,1,001,0001,011,1001,1011,1100N 01111,00111,00011,00001,00000,10000,11000,11100,11110,11111 010101,110011,001100,10001,111000,101010,101101,10010,01000,01010,000101,00000000 ;CALIBRATE ROUTINEX0F,F1:D,D0:TN: SEND A DITF,F0:D,D0:TN:ELEMENTSPACEXX1:X&1020a$ ;CODE SPEED IN WORDS PER MINUTE=DOTS PER MINUTE / 25g.8 +-------------------+B CODE TEACHERL BY DEAN CARTERV +-------------------+