L'RTTY1.07(C)1984 P.J.HARRIS`H 8(h`HHp  p p hhL1HH  pqrst p.qrst 򀩊O L D R U N  hh(h`rpqsst` *FX3,0  *FX200,3  *FX3,0 (*KEY0"< DE "" " 2 *KEY1$1 < *KEY2$2 F *KEY3$3 P *KEY4$4 Z *KEY5$5 d *KEY6$6 n*KEY7RYRYRYRYRYRYRYRYRY' x*KEY8CQ CQ CQ DE " " "' *KEY9AR PSE KKK] *TV255,1 *FX15,0 *FX12,3 *FX226,200 *FX227,200 *FX228,220 7 =&2E00:?&FE60=4:?&FE62=&FE d~F init @head:12,5)"Version 1.07"5,12)"What is your ";:callsign timeset  *FX200,2 '3:?&80=3:?&FE6B=0:7:=&2E00:menu  *FX4,1 "9O%TvA,D@A,tFA,TlA,DJA,D|A,DTA,D^A,DhA,DrA ,5:head:'14)"CW Transmit":28,0,24,39,7:&2E0F 6baud=50:tPA @baud=45.45:tPA Jtimeset:TNA Tserial:TNA ^ ed:TNA h sa:TNA r lo:TNA |+11,22)(20):31,11,22:callsign:TNA def_baud:3:=&2E00 83:=&2E00:baud:D%25,0)"Serial No: ";:serprint 19,1,3;0; 023,0,10,8,0,0,0,0,0,0,23,0,11,8,0,0,0,0,0,0 23,255,0,0,0,0,255,0,0,0 )23,254,127,127,127,127,127,127,127,0 0,13)80,255); h68,14)"Memory 1:"68,15)$&39E5;68,18)"Memory 2:"68,19)$&39F2;68,22)"Callsign:"68,23)$&39D1:30  &2E18 oB%=?&7F:?&7F=0:B%="~"clock:&2E03:d`A:B%=201 decbaud:&2E12:d`A:B%=202 incbaud:&2E12:d`A -B%="]"incser:&2E00:d`A:E%=0:TNA   baud !&70=timer baudprint  &incbaud:baud=(baud 5)*5 0baud<=95baud=baud+5: :#1,-10,200,3:baud:baudprint: Ddecbaud:baud=(baud 5)*5 Nbaud>=15baud=baud-5: X#1,-10,200,3:baud:baudprint: bdef_baud l v*13,12)"Enter Speed "20,14)baud ebaud<10 baud>100 20,14)"? "14,16)"Out of range"10,17)"(Speed 10 to 100 baud)":DvB  0ݤtimer:?&8C=(10.5-baud/10):=(500000/baud) baudprint off 3 26:12,0)10 12,0);baud;" Baud" on   init  D%=0:E%=0 S$="SPACE TO CONTINUE"  !&88=344:!&8A=390 "N%=&3A00&3F00&100:?N%=&0D:  $(&39CE)="DE " *$&39E5="":$&39F2="" 4 >ed H G%=&3900 R"G%=G%+&100:G%=&4000 G%=&3A00 \;28,0,24,39,6,12:"Message ";((G%-&3A00)/&100+49);":" f$G%=""'"Empty"'$G% pd0,10)" to edit message"'" to view next message"'" to return to Menu 1" z"X%=:X%=9 X%=13:X%=13DRC on  *FX4,0 28,0,24,39,8: $G% 9膊0,7)"Enter New message: (end with )"''$G% off:D\C  sa:open:C%=0 2#C%,$&3A00,$&3B00,$&3C00,$&3D00,$&3E00,$&3F00 #0  Mlo:C%=fnam:disk C%=0 7,12:10,8)"File does not exist!":cont: 2#C%,$&3A00,$&3B00,$&3C00,$&3D00,$&3E00,$&3F00 #0   open $ A$=fnam .odisk C%=A$:#0:C%<>0 7,12:C%=0:'9,8)"File already exists."9)"Do you wish to proceed?":<>"Y" 8 C%=A$ B Lcont:'10)S$:=32: VBݤfnam:11,22)"Enter file name "A$:disk =A$,7)=A$,10) `ݤfs:disk="disk"="tape" j ݤdisk t(A%=0:X%=0:Y%=0:(&FFDA&F)=4=:= ~ menu off  head ''''(7)"1 50 baud" (7)"2 45.45 baud" (7)"3 Define speed" (7)"4 CW send" (7)"5 Reset clock" ,(7)"6 Alter callsign(";$&39D1;")" 9(7)"7 Serial Numbers (";:D%serprint "Off";  ;")" (7)"8 Edit messages" '(7)"9 Save messages onto ";fs '(7)"0 Load messages from ";fs  11,22)"Enter option " 2O%=(0)-48:15,5)"";:time:hoursmin:secs O%=-6 oscli:X=:*FX125 (valid(O%,0,9) 2O%=0O%=10 <31,10,O%+7,136,133 F P head Z Y%=01 d'7,Y%)" RTTY Program " n x&8,Y%)" (c) P.J.Harris " (8,Y%+1)" G3WHO "   clock %1,-10,200,3:X%=:Y%=:E%time 8 D%;" ";:serprint:E%= " ";:hoursmin:" GMT'";  31,X%,Y%  Btime T%=:S%=(T%100)60:M%=(T%6000)60:H%=(T%360000)24: .hoursmin;H%10;H%10;":";M%10;M%10;: secs":";S%10;S%10;: incserE%D%=D%+1 E%= D%26,31,36,0:serprint  "5serprint D%=D%1000:;D%100;D%10010;D%10;: , timeset 6:10,8)"Set time:" @919,10)(15):10,10)"HOURS : "H%:valid(H%,0,23) J;19,12)(15):10,12)"MINUTES : "M%:valid(M%,0,59) T;19,14)(15):10,14)"SECONDS : "S%:valid(S%,0,59) ^=((H%*60+M%)*60+S%)*100 h reserial::0,10)"Enter start of serial number sequence"'"OrReturnto cancel serial numbers." |18,15)""D%  /callsign:"Callsign?"$&39D1:$&39D1<>""  on:23,1,1;0;0;0;: off:23,1,0;0;0;0;: oscli:28,0,24,39,5  11,17)20:11,17)"*"$&A00 X%=0:Y%=&A:&FFF7  '11)S$  ݤvalid(x,l,h) x>=lx<=h==  off:#0 =17 TNA S$:X=:TNA L7.L5L7L7Ls6L8 /L4 7{|}~ 1 vwr)}@k` ` x9y 82 1 5 L3/ G0rL3,` I/,`s I/ I/`J&s$ s$ Åt8u%!\ct G0rL3,`L|. 6 I/ I/ G0,`$ PhÍi ,m I/Åt8uL.t8uL.phqi$H G0h ,m`D 2  iD  ȩ 1 (2` ƍL/:`;`<`=`>`?`Lh/$123456֩`ԥ}T L0` r@}8L0 r~ `Ћ`$LG0 9 5r$`$w| v{Li1}|{Li1 2ѥ} 1 { |  Q'M 7{C<`>_"^~g ]*}~ {|sALT1L1  1 (2`L1L1L1 e5 1 (2`{2 L1揩' |}Li1~ L1x9y{2Ҡx  L1x9yL1хx9yL1 O  `$  B  `HH vwhh` v w ` 2  x  1 (2` 2 w v (2L4 D۩ Eͩ п * 𼩇 L2 / 9 9 (2 D +3Dx9y 82L.6x9y 82`兂9򅂩9D +3L4թ᥀I$Cx9y 82L4   C +3L4$xL3/$oLg2Hrht $L4ɇz^8L4L4]L4* 7]~~zvr$L.L5)I$ {5L5L7. `` 2 1 5 1$ (2L4 2 1 5  {|} 1$Д (2L4r 2`I$7x9y 82L47 +3L4I$+&x9y 82L4+ +3L4-x9y 82 5 L:4 s6L4] s6L7.L#4 s8s 8sL4Ht !7 |7LY5Ht 7 |7h s |7L4$ }w `$    ` `r x9y 82 1 5 6 |7 G0rL3`)` 7kde( I/ s6`r {5Ls6$ s` ]*~揆r  $Əs  *7LI6|ELV6{< G0rL!7 `Ə ~s |7s |7@s |7s |7L!7 $($" s' L6  )߅[ss's8s8s sLd6 t L!7 tڥ L7؅st`st`}K 2 | { | '~ |{w (2}~`s 7 I/ I/s 7L7 7 7 I/ I/ I/`` `fg``)`fg` V+C9sH 7h`9  7``&sH&s 28 7 V8L8 28 7 (8 7 D8 V8h V8 V8 V8`` `9 ``)`z9 `HHH 8!u9  hhh`Hh(`u9u9  ,^ 7L8T\O HNM^LRGIPCVEZDBSYFXAWJUQK5\9 `,.^)4@80:=3+#?!6%/-271( Printer Receive Transmit Word USOS Break-in sU2?/'#! 08<>1L     E*nd