L&AMT1.04(C)1983 P.J.HARRIS`H 8(h`HHp  p p hhL0HH  pqrst p.q#rst 񀩊O L D R U N  hh(h`rpqsst` V:1.04  *FX3,0  init ( *FX200,3 2 D\H F 7:=P% P*KEY0< DE " Z *KEY1$1 d *KEY2$2 n *KEY3$3 x *KEY4$4 *KEY5$5 *KEY6$6 *KEY7RYRYRYRYRYRYRYRYRYRYRY\ *KEY8 CQ CQ CQ DE " " "\ *KEY9AR PSE KKK] *KEY12TIME: ~ UTC *KEY13SELCALL # #\ *KEY11|K 7:=P% he 12,4)"Version 1.04" ac 7:=P%:he  *FX200,2  #0:?&7A=0 3:intro:I%Th@,TPA,TQA,TRA,TSA,TTA,TXA  ed:TNA  sa:TNA  lo:TNA open:?&7A=C%:TNA dspl:TNA 3:7:=P% " menu , 3:=P% 619,1,3;0; @ 23;10,8;0;0;0,23;11,8;0;0;0 J23,255;0;0,255;0; T)23,254,127,127,127,127,127,127,127,0 ^?&7A<>060)"Disk" h0,13)80,255); r68,14)"Memory 1: <"68,15)$&39E1;68,17)"Memory 2: >"68,18)$&39D4;68,20)"Callsign: """68,21)$U%;68,23)"Selcall: #"68,24)$V%;:30 w *FX4,2 | *FX229,1 E% mB%=?&77:?&77=0:B%="T"26,31,71;:time:secs:R%:tPA:B%="~"clock:R%:tPA:B%=42cw:R%:tPA B%=27TXA:R%:tPA  init @P%=&2E00:E%=&2E31:R%=&2E2E:O%=&2E2B:U%=&39EE:V%=&39FB:?&7A=0  *TV255,1  *FX214,4  *FX15,0  *FX12,3 *FX226,200 *FX227,210  *FX7,1  *FX8,1 !&8B=&FFFFFF9C:?&8F=&FF $&39E1="":$&39D4="" &P% : Dmenu:*FX229,0 Noff Xhe b16,8)"MENU 2" l'9)"A"16)"AMTOR" v9)"M"16)"MAILBOX" 9)"R"16)"RTTY" 9)"C"16)"CW" 9)"I"16)"SET SELCALL"  9)"B"16)"SET RTTY BAUD" 9)"S"16)"SET CW SPEED" 9)"L"16)"LOCAL COPY" 9)"Q"16)"QUERY" ('5)" to return to Menu 1" ;X%=:Y%=:26:15,6)"";:time:secs:tl:"ARC",I%)  A%=24:O%  *FX15,0  tl 28,0,24,39,21,31,X%,Y%  *FX2,2  ?&77="T"?&77=0:I%=5:T~C  I%=(0):I%="D"I%=-1 *I%="I"sc 4$I%="M"I%="A":?&7D=64:?&7D=0 > *FX3,7 H I%I% R *FX3,4 \ *FX2,1 f J%=(0) p&J%=-1DzC:J%>128?&7E=J%:J% z  clock  *FX3,7 " ";:time:" ";  *FX3,0  atime T%=:S%=(T%100)60:M%=(T%6000)60:H%=(T%360000)24:;H%10;H%10;":";M%10;M%10;: secs":";S%10;S%10;: he 1N%=01:6,N%)" AMT-1 Terminal ": #7)" PA2LOG "   intro:off  *FX3,4 28,0,24,39,5: 16,3)"MENU 1" $$''7)"1"14)"RESET PARAMETERS" .7)"2"14)"EDIT MESSAGES" 8)7)"3"14)"SAVE MESSAGES ONTO ";fs B)7)"4"14)"LOAD MESSAGES FROM ";fs L.disk7)"5"14)"ENABLE OUTPUT TO DISK" V*disk7)"6"14)"DISPLAY DISK FILE" `" ''''12)"SPACE TO CONTINUE" j831,15,1,134:time:secs:I%=(0):笤diskI%>52I%=0 tI%=32valid(I%,49,54) ~I%=32I%=55 I%=I%-48: ed  G%=&3900 "G%=G%+&100:G%=&4000 G%=&3A00 ;28,0,24,39,6,12:"Message ";((G%-&3A00)/&100+49);":" $G%=""'"Empty"'$G%  d0,10)" to edit message"'" to view next message"'" to return to Menu 1" "X%=:X%=9 X%=13:X%=13dlD on ( *FX4,0 228,0,24,39,8: <$G% F9膊0,7)"Enter New message: (end with )"''$G% xoff:dvD  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 kdiskC%=A$:#0:C%<>07,12:C%=0:'9)"File already exists."9)"Do you wish to proceed?":<>"Y"  C%=A$   dspl HC%=fnam:disk C%=0 7,12:10,8)"File does not exist!":cont: "/12,14:I%=#C%:I%>31I%<128I%:I%=13 , #C%:15 6 *FX3,4 @ cont J Tcont:*FX15,1 Y''10)"SPACE TO CONTINUE":=32: ^Qݤfnam:31,11,I%+5,136:12,16)"Enter file name",A$:disk=A$,7)=A$,10) hݤfs:disk="DISK"="TAPE" r ݤdisk |(A%=0:X%=0:Y%=0:(&FFDA&F)=4=:= ts '"Set Clock Time:" B31,19,6,127,127,127,131:H%=input(2,48,57):valid(H%,0,23) A31,22,6,127,127,127,58:M%=input(2,48,57):valid(M%,0,59) A31,25,6,127,127,127,58:S%=input(2,48,57):valid(S%,0,59) =((H%*60+M%)*60+S%)*100  ac off  ?&7E=0  *FX2,1  A%=27:O%:A%=5:O%  I%=(100) (I%=-19,12)"AMT-1 Not Connected" I%>128?&7E=I% (?&7E7)=7 & *FX2,2 028,0,24,39,7 :":''"Callsign?"$U%:$U%<>"" D Nsc X *FX3,0 bts l vsc %"Selcall?";:$V%=input(4,65,90)  *FX3,7 73 $V% I%=  ݤinput(length,K%,L%)  I$="" HG%=:G%=127(I$<>0)I$=I$,I$-1):G%:G%=0:G%>L%G%=K%X%<=L%=:= cw  Hmode=(?&8148):mode=0mode=16?&81="A":mode=32?&81="R":?&81=0 26:"IDENT "  *FX3,7 *#"DE ";$U%;:?&81=65" AMTOR"; 4now=:-now=100 > *FX3,0 H(?&89=15:?&88=3:?&7D=(?&7D32):?&7E=0 Mon:23,1,1;0;0;0;: Noff:23,1,0;0;0;0;: R \ *FX3,0 f *FX2,0 p *FX4,0 z=17TDA7,128: cont:TDA :;<=>?1 /! '/`L8Lp. pqyx~w{ 4@$}z d3$ 0  5  d~L.@$}~)0O }1 $} ~)4 8$}   p z  1 1 %0 1 8~)~%ň 5w 5`Lp. `HHH} }报wTw '/(hhh`6 y iD v  y ȩ y` yL/ 9`:`;`<`=`>`?`LQ/$#0123456ҩ`Υ|S L0` xL0  ~ #`І`$L%0 & "L3su rtL1|u tL1ޥ| 2x z\v 7tlU"T#S ]S}O*K{ tu x\A0L1x  2 `L<1LV1Lc1Lp1 Q5`怩\ u|L1{ L0xᅂ9t2Ҡx 22L0xԅ9LF1x9LF1x9LF1HHH O   p q hhh`   B   r s '5` pq`HH 5 rshh` tu` 5 t u ` 5   ` }1 q p 9L3 D٩ E˩ н * yy𺩇 yL2y / y9y y999 G9 :A[9 (0: yD 3Dᅂ9 2` LI2ᅄ9vԅ9vD 3`}I}$}08 2`   08 2`}I}$}8 2`L3}I}$}$ą8 2`$L3L?3LO3 w 8 5`Ld3L 5LA2 L4 L4 L4L3L3L6H@$}h`h`\XA=9%!  ` 8` 8 8 8 5` 8~)0  4 5`H 8h` }1 a5pq` 1 a5 turs|`rs`     `|s ` `ׅ8L5ޅ8L5Ʌ8L5Ѕ8L5셂8L5pq 4 d29L5兂8L2󅂩8L58 L2~ 8`~`~H) 5L5 5h)~)? -)0-/ 709C@$} 5$}4L_7 5 5L)6 5` g5Lc6 r5$~L"7 }5L)6 5 $} L7$~L"7$},$} 1  uL6t`\w~wL7 ƀ]L7}LW7*" 1 8 7} } 5`!$ 7 9< A2 92Q 8R 8Z 8` 8 1`ƀ { 8 8L7 ᅂ9 22 `~)01! 5 1~ 8C 8})}*wL7~)003 @ 8~ 5L7+ 8? 8 5L7 7` 8 5L7 8 58 L7~)` '/})}` 8 8 5})߅}` 5L6 x` 1|M u t u \ ]*} uts|{`hi ,m`H, o8h o8`H h  ` Printer USOS Word RTTY CW ARQ FEC ST/BY CALL Receive Transmit M/BOX \++WELCOME TO MAILBOX "++\! DE ", TIME:~UTC\HELLO OM THANK YOU FOR CALLING\ENTER YOUR CALL]ENTER YOUR NAME]ENTER YOUR MESSAGE]YOUR CALL, NAME, MESSAGE IS STORED\MANY THANKS, BEST 73 DE LEEN\! DE " SK*