L'RTTY1.05(C)1983 P.J.HARRIS`H 8(h`HHp  p p hhL1HH  pqrst p.qerst 򀩊O L D R U N  hh(h`rpqsst` *FX200,1  *FX3,0 *KEY0"< DE "" " ( *KEY1$1 2 *KEY2$2 < *KEY3$3 F *KEY4$4 P *KEY5$5 Z *KEY6$6 d*KEY7RYRYRYRYRYRYRYRYRY' n*KEY8CQ CQ CQ DE " " "' x*KEY9AR PSE KKK] *TV255,1 *FX15,0 *FX12,3 *FX226,200 *FX227,200 7 =&2E00:?&FE60=4:?&FE62=&FE tZF init @head:12,5)"Version 1.05"5,12)"What is your ";:callsign timeset *FX200,0 '3:?&80=3:?&FE6B=0:7:=&2E00:menu  *FX4,1 9O%TbA,TlA,DrA,TXA,TvA,DhA,D@A,DJA,DTA,D^A 5:head:'14)"CW Transmit":28,0,24,39,7:&2E0F "baud=50:D|A ,baud=45.45:D|A 6timeset:TDA @serial:TDA J ed:TDA T sa:TDA ^ lo:TDA h+11,22)(20):31,11,22:callsign:TDA rdef_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:dLA:B%=201 decbaud:&2E12:dLA:B%=202 incbaud:&2E12:dLA -B%="]"incser:&2E00:dLA:E%=0:TDA   baud !&70=timer baudprint  incbaud:baud=(baud 5)*5 baud<=95baud=baud+5: ,-10,200,3:baud:baudprint: 0decbaud:baud=(baud 5)*5 :baud>=15baud=baud-5: D#1,-10,200,3:baud:baudprint: Ndef_baud X b*13,12)"Enter Speed "20,14)baud lebaud<10 baud>100 20,14)"? "14,16)"Out of range"10,17)"(Speed 10 to 100 baud)":DbB v 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=""   ed * G%=&3900 4"G%=G%+&100:G%=&4000 G%=&3A00 >;28,0,24,39,6,12:"Message ";((G%-&3A00)/&100+49);":" H$G%=""'"Empty"'$G% Rd0,10)" to edit message"'" to view next message"'" to return to Menu 1" \"X%=:X%=9 X%=13:X%=13TtC fon p *FX4,0 z28,0,24,39,8: $G% 9膊0,7)"Enter New message: (end with )"''$G% off:T~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"  C%=A$ $ .cont:'10)S$:=32: 8Bݤfnam:11,22)"Enter file name "A$:disk =A$,7)=A$,10) Bݤfs:disk="disk"="tape" L ݤdisk V(A%=0:X%=0:Y%=0:(&FFDA&F)=4=:= ` menu joff t 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 " BO%=(0)-48:15,5)"";:time:hoursmin:secs:valid(O%,0,9) O%=0O%=10  31,10,O%+7,136,133   head ( Y%=01 2'7,Y%)" RTTY Program " < F&8,Y%)" (c) P.J.Harris " P(8,Y%+1)" G3WHO " Z d clock n%1,-10,200,3:X%=:Y%=:E%time x8 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 :10,8)"Set time:" 919,10)(15):10,10)"HOURS : "H%:valid(H%,0,23) ;19,12)(15):10,12)"MINUTES : "M%:valid(M%,0,59) ";19,14)(15):10,14)"SECONDS : "S%:valid(S%,0,59) ,=((H%*60+M%)*60+S%)*100 6 @eserial::0,10)"Enter start of serial number sequence"'"OrReturnto cancel serial numbers." J18,15)""D% T ^/callsign:"Callsign?"$&39D1:$&39D1<>"" h ron:23,1,1;0;0;0;: |off:23,1,0;0;0;0;: ݤvalid(x,l,h) x>=lx<=h==  off:#0 =17 TDA S$:X=:TDA L7.LC5L6L7L5L7 /L3 6{|}~ 1 vwr)@k` ` ax8y )2 1 5 L// =0rL3,` E/,`s E/ E/`J&s$ s$ t8u*&X_t  =0rL3,`L|. - E/ E/ =0,`PhÍi ,m E/t8uL.7t8uL.phqiH =0h ,m`D 2  iD  ȩ 1 2` ƍL/:`;`<`=`>`?`L^/$123456֩`ԥ}O L0`r@}8L0 r~ `А`$L=0 9 5r$`$w| v{LZ1}|{LZ1 2ѥ} 1 { |  Q'M 7{C<`>_"^~g ]*}~ {|sALE1Lr1  1 2`L1L1L1 4 1 2`{2 Ly1揩' |}LZ1~ L1x9y{2Ҡx  L1x9yL1хx9yL1 O  `$  B  `HH vwhh` v w ` 2  x  1 2` 2 w v 2L3 D۩ Eͩ п * 𼩇 L2 / 9 9 2 D 3Dx9y )2L.x8y )2`兂9򅂩9D 3L3թ᥀I$CWx8y )2L3   C 3L3$kL//$bLX2Hrhe ɇx\8L4Lu4]Lk4* 77]|~xtp$L.LC5I$ 4L5L7. `` 2 1 5 1$ 2L3 2 1 5  {|} 1$Ж 2L3r 2`I$7sx8y )2L37 3L3I$+zx8y )2L3+ 3L3$ }w `$    ` `r`)` jx8y )2 1 6kde( E/ [5 6 =0rL3r 4L5$ s` ]*~揆r  $Əs  ~6L5|EL5{< =0rLu6 `Ə ~s 6s 6@s 6s 6Lu6s $!$ s'   )߅[ss's8s78s sL5 t Lu6 tڥ Ll6؅st`st`}K 2 | { | '~ |{w 2}~`s 7 E/ E/s 7L6 6 6 E/ E/ E/`` `fg``)`fg` V+8sH G7h`9  "7``&sH&s 7 7 7Ll7 7 7 |7 6 7 7h 7 7 7`` `͠8 ``)`Š8 `HHH 7!8  hhh`Hh(`88  ,^ "7L7T\O HNM^LRGIPCVEZDBSYFXAWJUQK5\9 `,.^)4@80:=3+#?!6%/-271( Printer Receive Transmit Word USOS sU2?/'#! 08<>1L     E*nd