:59468,12? MORSE! COPYRIGHT (C) 1979 NORMAN PARRONN BOX 2946h APO 09194, NEW YORKn: CURSOR #14, OCT 79 BOX 550, GOLETA, CA. 93017 LINES 61000-65000 (C) 1979 CURSOR MAGAZINE: AS OF NOV 18 79ZPG$"MORSE!":NM$"14":62000LdA$(63),B$(39),C$(39),D$(39),E$(39),F$(39),G$(39)bnI058:A$(I):IxG039:B$(G),C$(G),D$(G),E$(G),F$(G),G$(G):G,,,,,,,,,,,,331133,31113131313,331131,33333,13333,11333,1113311113,11111,31111,33111,33311,33331,,,,,113311,H13,3111,3131,311,1,1131,331,1111,11,1333n313,1311,33,31,333,1331,3313,131111,3,113,1113,133,3113,3133,3311DI50:DA3DI"HOW MANY WORDS/MIN? ";:60000:K(IN$):IN$""K9K1K50220K5K5DIDIK:DADAK ""C "WHAT DO YOU WANT TO DO?k2)"1: PET TRANSMITS CODE FOR THE"5)"LETTERS YOU TYPE IN"2)"2: TEST,2)"3: LESSONS12)"4: CODE GROUPS62)"5: QUIT"@" ";:1490:I(K$)JI350,420,810,1700,1570T2653^YOU TYPE PET XMITS;|"QRJ$:RJ$""390"WHAT LETTERS OR NUMBERS? ";:60000:X$IN$:X$""2601300:380EXERCISES"HIT ANY KEY TO STARTRJ$:RJ$""440""CHOOSE CHAR NR0:NW0:NT0:C120- "WHAT IS...";:1460N X((1)63)1:A$(X)""480] X$(X32)s RJ$:RJ$""520 1300:1490 K$CR$720 &NTNT1:K$X$NRNR1:690 0NWNW1 :"SORRY! I SENT '";X$;"'" N:X$" IS ...." X1460 b1300 l:K$" IS ....";' v1460] X(K$)32:X0X40A$(X)""X$K$:1300:660f "?"p 1460y 480 "CORRECT 1460 660 "TOTAL NUMBER",NT NT0770 "NUMBER RIGHT",NR "NUMBER WRONG",NW# "PERCENT RIGHT",(100NRNT);"%"X "WANT TO CONTINUE THE EXERCISES";:1490:""o K$"Y"1460:480x 260 *LESSONS 4DL120:1600 HG(40(1)) R" \X$B$(G) f1300:Z$""260 p18)C$(G):18)D$(G):18)E$(G) z18)F$(G):18)G$(G)5 DLDA:1600:Z$""260K 1300:Z$""260f DL90:1600:Z$""840o 260 A," ","  "," ","  ","  " B," ","  "," ","  "," " C," "," "," "," "," "? D," ","  ","  ","  "," "g E," "," "," "," "," " F," "," "," "," "," " G," "," ","  ","  "," " H,"  ","  "," ","  ","  "(I," "," "," "," "," "XJ,"  ","  ","  ","  "," "K," "," "," "," "," "L," "," "," "," "," "$ M,"ߒ "," ߩ "," ߩ ","  ","  ". N,"ߒ  "," ߒ  ","  ","  "," "U8O," ","  ","  ","  "," "BP," ","  "," "," "," "LQ," ","  ","  ","  "," "VR," ","  "," "," "," "`S," "," "," ","  "," "MjT," "," "," "," "," "tU,"  ","  ","  ","  "," "~V,"  ","  ","  ","ߩ"," ߩ"W,"  ","  "," ","  "," ""X,"  ","ߩ","  ","","  "VY,"  ","  "," "," "," "Z," "," "," ",""," "1,"  "," "," "," "," "2," ","  "," "," "," "3," ","  ","  ","  "," "M4,"  ","  "," ","  ","  "z5," "," "," ","  "," "6," "," "," ","  "," "7," "," "," ","  ","  "8," ","  "," ","  "," "A9," ","  "," ","  "," "w 0," ","  ","  ","  "," "  ?," ","  ","  "," ","  "  .,"","","",""," "  ",","","","","  "," " -,"",""," ","",""XMIT ROUTINE359467,16:59466,51:59464,0B(I1(X$)X2K((X$,I,1))32k<A$(K)""1420}PL1(A$(K))Z59464,234dDLDI((A$(K),L,1)):1600:Z$CR$1435n59464,0xDLDI:1600:Z$CR$1435LDLDA:1600:Z$CR$1435I-59464,0:59466,0:59467,0DZ$"""";(Z$)JVTMTICfTITM1470lzGET SUBRTM0:ZZ1K$:K$""1540TITM("? ",ZZ,1);"";:ZZ3ZZ:TMTI201510Z(K$)127:Z13Z31Z96A$(Z32)""K$:1520#":0@TMTIDLJJZ$:Z$""TITM1610PTb CODE GROUPSsDL120:1600"WHAT IS...";DL30:1600X$"":I15K((1)40)1:X$X$B$(K):I1300"? ";:60000IN$""260IN$X$"CORRECT":1700>"NO, IT WAS ";X$;" ...":" ";NDL30:1600eXX$X$:Z1(XX$)X$(XX$,Z,1):X$;" ";:1300Z1700`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15 ~600109Z(Z$):ZL(IN$):(Z127)32" ";:60110iFL(Z127)64(Z127)91Z$((Z128)255){ZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000600109TI110:"";:I:`0"";9);"CURSOR #";NM$;" ";PG$:" COPYRIGHT (C) 1979 BY NORMAN PARROND60500N"LEARN MORSE CODE."PRESS RETURN TO BEGIN.T$:T$""62090""::CR$(13):100