53280,.:53281,.:10000G " " * MORSE CODE TRAINING PROGRAM * BY ROBERT STARTZEL  " CARLISLE, PA (717)249-2517 ó: " VERSION: 2.3 DATE: 07/27/86 ó " THIS IS A PUBLIC DOMAIN PROGRAM - NOT FOR SALE! - NOT FOR SALE! - " F R E E COPYING IS ENCOURAGED! ó- "ORIGINAL DISTRIBUTION COURTESY OF THE CUMBERLAND COMMODORE B.B.S. ~ " (717)243-9620: 24 HRS/7 DAYS BOB ST. CYR - SYSOP " "TIMING NOTES: " DIT = 1 TIME UNIT " DAH = 3 TIME UNITS$ " ELEMENT SPACE = 1 TIME UNITH "CHARACTER SPACE = 3 TIME UNITSl " WORD SPACE = 7 TIME UNITS~ :OUTPUT CODE :C$=SEQUENCE TO BE SENT L(C$)  C1L D$(C$,C,1) D$"."1500 $D$"@"1600 .C$" "1800 8X1T1::-ELEMENT SPACE B( L1700. V8 :DITD S4,65R X1T1:^ S4,64d n @:DAHz JS4,65 TX1(T13.2): ^S4,64 h :CHAR SPACE X1(T22):  :WORD SPACE X1T2:  :INITIALIZATION C$(256):S54272Y CD$"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.,?-(:;"(34)"'/"q CT$"" BL$" " "":5000 CS10:SS10: INIT. SPEEDS T135:-INIT CODE SPEED T235:-INIT SPACING SPEED! XSS24:X,.:<S,003:S1,035:S3,8I S6,240V*S24,15`46000y :CODE FROM KEYBOARD 53280,6:53281,1 "- LEARNING MODE -" "1 = LEARN A CHARACTER" "2 = LEARN A PHRASE"1 "3 = RETURN TO MAIN MENU"E R$:R$""3050V R$"1"3100g R$"2"3200x R$"3"8000 3050 :LEARN A CHARACTER "PRESS ANY KEY ON THE KEYBOARD TO SEE" "AND HEAR THE CODE FOR THAT CHARACTER."' "CAUTION: DON'T TYPE TOO FAST!"U! "THE MACHINE WON'T BE ABLE TO KEEP UP!"% "PRESS F7 TO STOP."& K$:K$""3110+ K$(13)31100 K$""8000:-STOP IF F7: ""K$" = ";D C$C$((K$)):C$N 1000]b " "gl 3110| :LEARN A PHRASE "TYPE IN A SERIES OF CHARACTERS AND" "PRESS RETURN. YOU WILL THEN SEE AND"  "HEAR THE SERIES ONE CHARACTER AT A TIME."< "THE SERIES WILL BE REPEATED UNTIL YOU:"j "PRESS F3 TO TRY A NEW SERIES OR" "PRESS F5 TO ADJUST CODE SPEED OR" "PRESS F7 TO STOP." "(ENTER UP TO 38 CHARACTERS)":""P$; P$""3310  CH138  R$:R$""3250) R$;< R$(13)3300K P$P$R$:[ T12000:l CH1 (P$)~ K$(P$,CH,1) ""(P$,1,CH) C$C$((K$)) 1000 R$:R$""P$"":3200:-F3-NEW SERIES" R$""3410:-F5=SPEED $ R$""8000:-F7=STOP&* 64 T13000:v> " "H 3310R 7000\ 53280,6:53281,1f 3200:CODE TEST53280,6:53281,1"--- SELECT TEST TYPE ---"!"1 = LETTERS ONLY"D"2 = NUMBERS ONLY"k"3 = PUNCTUATION ONLY""4 = LETTERS AND NUMBERS""5 = ALL TYPES""6 = RETURN TO MAIN MENU"R$:R$""4017"":TT(R$):TT1TT64000$TT68000BP$""::CREATE A SEQUENCEYX(TI): X1100TT1P$P$(CD$,(((1)26)1),1)TT2P$P$(CD$,(((1)10)27),1)TT3P$P$(CD$,(((1)10)37),1)TT4P$P$(CD$,(((1)36)1),1)#TT5P$P$(CD$,(((1)46)1),1))34500g"- CHARACTER GROUP TEST -""A SEQUENCE OF 20 SETS OF 5 CHARACTERS""WILL BE GENERATED. WRITE THEM DOWN""AS YOU HEAR THEM. YOU WILL BE ABLE TO" "SEE THE ANSWERS AT THE END OF THE TEST."L"PRESS RETURN TO BEGIN."`R$:R$""4100}53265,11::BLANK SCREENT13000:""- CODE TEST ANSWERS -","";6Z114:Z215:Z304@I((P$,Z1(Z2Z3),1)) JC$C$(I)T (I);^1000%h?r" ";:C$" ": 1000E|Q:" ";WgT12000:53265,27::SHOW SCREEN"PRESS F1 TO REPEAT THE SAME SEQUENCE""PRESS F3 TO TRY A NEW SEQUENCE" "PRESS F5 TO ADJUST CODE SPEED"<"PRESS F7 TO QUIT THE PRACTICE SESSION"PR$:R$""4310aR$""4110rR$""4000R$""4370R$""80004310700053280,6:53281,1&"";04270:TEST MENU"- SELECT TEST TYPE -"D"1 - NAME THAT CHARACTER!"o"2 - CHARACTER GROUP TEST""3 - ABORT THIS MENU"R$:R$""4530TS(R$):TS4600,4055,4000 4500:CHAR IDENTITY TEST+I1:RI0:WR0:"- RECOGNITION TEST -"Z"YOU WILL HEAR A SERIES OF CHARACTERS" "SENT ONE CHARACTER AT A TIME.""TRY TO IDENTIFY THE CHARACTER AND""PRESS THE PROPER KEY ON THE KEYBOARD"  "PRESS RETURN TO BEGIN."*R$:R$""4650M4"- CHARACTER RECOGNITION TEST -"{5"PRESS F7 AT ANY TIME TO STOP">I$(P$,I,1)@CT$BL$:BL$:CC$C$((I$)):CT$18);C$:1000HR$:R$""4680MR$""4705RR$I$4800:4695T4810WX12000::II1.\I1014670ca"SCORE ="RI"CORRECT,"WR"INCORRECT"d"ANOTHER TEST? (Y,N OR R TO REPEAT)"fR$:R$""4710pR$"Y"4000uR$"R"4600z8000CT$15)""R$" IS CORRECT!":RIRI1: CT$12)""R$" IS INCORRECT!"SCT$8)"THE CORRECT ANSWER IS ";I$:WRWR1:Yu:LOAD MORSE CHARACTERS:.=DOT,@=DASH," "=SPACE:NUMBERSX4857:C$:C$(X)C$: @@@@@,.@@@@,..@@@,...@@,....@  .....,@....,@@...,@@@..,@@@@. P:LETTERS. ZX6590:C$:C$(X)C$:P d .@,@...,@.@.,@..,.,..@.,@@.r n ....,..,.@@@,@.@,.@..,@@,@. x @@@,.@@.,@@.@,.@.,...,@,..@  ...@,.@@,@..@,@.@@,@@.. :PUNCTUATION C$(32)" " :-SPACE!C$(34)".@..@.":-QUOTES ["](!C$(39)".@@@@.":-APOSTROPHE[']L!C$(40)"@.@@.@":-PARENTH. [()]p!C$(41)"@.@@.@":-PARENTH. [()]!C$(44)"@@..@@":-COMMA [,]!C$(45)"@....@":-HYPHEN [-]!C$(46)".@.@.@":-PERIOD [.]"C$(47)"@..@.": -FRACTION [/]$"C$(58)"@@@...":-COLON [:]H"C$(59)"@.@.@.":-SEMICOLON [;]l"C$(63)"..@@..":-QUES.MARK [?]z":SPECIAL""C$(133)"@.@. @@.@":-F1=CQ/CALLING...",C$(134)"@.. @":-F3=DE/THIS IS#6C$(135)"@.@ .@ ...@@ @.@. . @":-F5=CALL SIGN (KA3CET))#@C$(136)"@.@.@":-F7= ATTENTIONH#JC$(137)".@...":-F2= WAITm#TC$(138)"...@.":-F4= UNDERSTOOD#^C$(139)".@.@.":-F6= END OF MSG#hC$(140)"...@.@":-F8=END WORK#rC$(13)"@.@"::RETURN=GO AHEAD#|C$(20)"........"::DEL=ERROR$o$p:INTRODUCTION)$z53280,.:53281,.C$"";r$TM$"MORSE CODE TRAINER"$Z1(TM$)2$L$(TM$,Z1,1)$C$C$((L$))$(TM$,Z,2);$1000$$:"-BY ROBERT STARTZEL-"&%"ORIGINAL DISTRIBUTION COURTESY OF"W%"--- THE CUMBERLAND COMMODORE BBS ---"%"(717) 243-9620 -- 24HRS/7 DAYS"%"INSTRUCTIONS? (Y/N)"%K$:K$""6120%K$"Y"9000%7000%8000%X:SET CODE SPEEDS&b53280,.:53281,.Q&l"CODE SPEED(5,10,15,20 OR 25 WPM) "CS"";:CS`&qZCS:7100o&vTM07020y&{T1TM&"SPACING SPEED(5,10,15,20 OR 25 WPM) "SS"";:SS&ZSS:7100&TM07040&T2TM&&Z5TM195: 'Z10TM82:'Z15TM55:0'Z20TM39:B'Z25TM32:M'TM0:]'@:MAIN MENUy'JP$"":53280,.:53281,.'T"-- SELECT OPTION --"'^"1 - LEARNING MODE"'h"2 - CODE TESTS"(r"3 - ADJUST CODE SPEED"=(|"4 - EXIT THE PROGRAM"Q(K$:K$""8070b(K$"1"3000s(K$"2"4000(K$"3"7000:8000(K$"4"64738(8070((#:INSTRUCTIONS(2#"@@... MORSE CODE TRAINING PROGRAM ...@@ ")7#"THIS PROGRAM IS DEDICATED TO ALL"I)8#"AMATEUR RADIO ENTHUSIASTS. IT IS"y)9#"IN THE PUBLIC DOMAIN AND MAY NOT BE"):#"SOLD UNDER ANY CIRCUMSTANCES!!!");#"--- FREE COPYING IS ENCOURAGED!!! ---"*A#"THIS TRAINING PROGRAM WAS WRITTEN"5*B#"WITH VERSATILITY IN MIND. IT PROVIDES"^*C#"SEVERAL METHODS FOR LEARNING AND"*D#"PRACTICING MORSE CODE. IF YOU ALREADY"*E#"HAVE YOUR LICENSE, THIS PROGRAM CAN"*F#"HELP YOU STUDY FOR UPGRADE EXAMS."+G#"THE PROGRAM ALLOWS YOU TO ADJUST"B+H#"BOTH THE CODE AND THE SPACING SPEEDS"o+I#"FROM 5 TO 25 WORDS PER MINUTE (WPM)."+J#"NORMALLY, BOTH SETTINGS WILL BE THE"+K#"SAME. SOME STUDENTS, HOWEVER, FIND IT"+L#"BETTER TO LEARN CODE AT A HIGHER SPEED"',M#"WHILE SETTING THE SPACING BETWEEN THE"W,N#"CHARACTERS AND WORDS AT A SLOWER SPEED.",'"- PRESS ANY KEY TO CONTINUE-";,'R$:R$""9992, ',':MODIFY CHAR SET,'(142),$'52,56:56,56:: RESERVE MEMORY-.'56334,(56334)254: TURN OFF INTERRUPTS/-8'1,(1)251: CHAR ROM INE-B'C114336:C253248y-L'I0511:C1I,(C2I):: TXFR CHAR ROM TO RAM-V'I07:(C1I),0:: ERASE THE 'AT' (@) CHARACTER-['(C15),252:(C16),252: MAKE IT A DASH-`'1,(1)4: SWITCH I/O BACK IN*.j'56334,(56334)1: RESTART INTERRUPTSU.t'53272,((53272)240)14: CHAR RAM INb.~': 2000