L0PHONE(C)ALAN BRICKMAN `hhh``HHHPȱHȱOȱNȱEȱ ˩qsprsɉȱrpqsrpP A . = & 0 E 0 0 O L D R U N hhh`  Call calculator  By G. Bisset  For Acorn User ( (C) 1987 GL-Lock Security 2: <7 Fentertime P display Z d:  entertime 12,0);"Call Calculator" 12,1);"===============" /0,12);"Enter duration of call in mins ";  Duration ':0,12);"Enter type of call rate" $n'"L-Local"'"C-Over 35 miles over low cost routes"'"B-Over 35 miles and Channel islands"'"A-Up to 35miles" . 80,18);rate$ B "LlbBcCAa",rate$) LSecs=Duration*60 V `Q0,12);"Enter : (P)eek Rate"';(9);"(S)tandard Rate"';(9);"(C)heap Rate" j t 0,16);time$ ~ "PpCcSs",time$) 1 0,12);"Duration of call in secs is :";Secs  :  display  +0,12);"Each unit costs 5.06p inc VAT" J rate$="L" rate$="l" time$="P" time$="p" PRICE=Secs/60*5.06 H rate$="L" rate$="l" time$="S" time$="s" PRICE=Secs/90*5.06 I rate$="L" rate$="l" time$="C" time$="c" PRICE=Secs/360*5.06  : I rate$="B" rate$="b" time$="P" time$="p" PRICE=Secs/18*5.06  I rate$="B" rate$="b" time$="S" time$="s" PRICE=Secs/24*5.06 *I rate$="B" rate$="b" time$="C" time$="c" PRICE=Secs/45*5.06 4: >J rate$="C" rate$="c" time$="P" time$="p" PRICE=Secs/22.5*5.06 HH rate$="C" rate$="c" time$="S" time$="s" PRICE=Secs/30*5.06 RI rate$="C" rate$="c" time$="C" time$="c" PRICE=Secs/60*5.06 \J rate$="A" rate$="a" time$="P" time$="p" PRICE=Secs/25.7*5.06 fM rate$="A" rate$="a" time$="S" time$="s" PRICE=Secs/34.3*5.06 pJ rate$="A" rate$="a" time$="C" time$="c" PRICE=Secs/100*5.06 z+0,14);"Cost of call is :"; PRICE;"p" $9,23);"Press space to restart"  =32  f<f