Home » Archimedes archive » Acorn User » AU 1997-01 B.adf » Regulars » StarInfo/Boham/!PhoneBill/!RunImage

StarInfo/Boham/!PhoneBill/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1997-01 B.adf » Regulars
Filename: StarInfo/Boham/!PhoneBill/!RunImage
Read OK: ✔
File size: 09B1 bytes
Load address: 0000
Exec address: 0000
File contents
    1REM >!PhoneBill.!RunImage
    2REM LEN1995 21st Century Software
    3REM
    4:
    5ON ERROR PROCerror
    6PROCinit
    7PROCpoll
    8:
    9DEF PROCinit
   10SYS "Wimp_Initialise",200,&4B534154,"Phone Bill" TO ,task%
   11DIM ca% 50,b% 1000,men% 500,t% 1000,e% 255,tb% 7
   12tend%=t%+1000
   13end%=FALSE
   14PROCtemplates
   15start%=TIME
   16cc=0
   17ENDPROC
   18:
   19DEF PROCpoll
   20PROCupdate
   21b%!0=main%
   22SYS "Wimp_GetWindowState",,b%
   23SYS "Wimp_OpenWindow",,b%
   24REPEAT
   25SYS"Wimp_Poll",,b% TO r%
   26cc+=1
   27CASE r% OF
   28WHEN 0:IF cc>50 THEN PROCupdate:cc=0
   29WHEN 2:SYS"Wimp_OpenWindow",,b%
   30WHEN 3:SYS"Wimp_CloseWindow",,b%:end%=TRUE
   31WHEN 6:PROCmouseclick
   32WHEN 17,18:PROCrecieve
   33ENDCASE
   34UNTIL end%=TRUE
   35PROCclose
   36ENDPROC
   37:
   38DEF PROCclose
   39SYS"Wimp_CloseDown",task%,&4B534154
   40END
   41ENDPROC
   42:
   43DEF PROCrecieve
   44CASE b%!16 OF
   45WHEN 0:end%=TRUE
   46ENDCASE
   47ENDPROC
   48:
   49DEF PROCmouseclick
   50IF b%!12=main% THEN
   51CASE b%!16 OF
   52WHEN 5:IF b%!4<>0 THEN start%=TIME:PROCupdate
   53ENDCASE
   54ENDIF
   55ENDPROC
   56:
   57DEF PROCtemplates
   58SYS"Wimp_OpenTemplate",,"<PhoneBill$Dir>.Templates"
   59SYS"Wimp_LoadTemplate",,b%,t%,tend%,-1,"Info",0 TO ,,t%
   60SYS"Wimp_CreateWindow",,b% TO info%
   61SYS"Wimp_LoadTemplate",,b%,t%,tend%,-1,"Main",0 TO ,,t%
   62p_addr%=!(b%+88+32*1+20)
   63m_addr%=!(b%+88+32*6+20)
   64SYS"Wimp_CreateWindow",,b% TO main%
   65SYS"Wimp_CloseTemplate"
   66ENDPROC
   67:
   68DEF PROCupdateicon(noi)
   69b%!0=main%
   70b%!4=noi
   71SYS &400CE,,b%
   72SYS"Wimp_ForceRedraw",main%,b%!8,b%!12,b%!16,b%!20
   73ENDPROC
   74:
   75DEF FNselected(w,i)
   76ca%!0=w:ca%!4=i:SYS &400CE,,ca%:=(ca%!24AND1<<21)>>21
   77:
   78:
   79DEF PROCfatal(t$)
   80e%!0=0
   81$(e%+4)=t$
   82SYS &400DF,e%,%1001,"Phone Bill"
   83SYS "Wimp_CreateMenu",-1
   84PROCclose
   85ENDPROC
   86:
   87DEF PROCnonfatal(t$)
   88e%!0=0
   89$(e%+4)=t$
   90SYS &400DF,e%,%1010,"Phone Bill"
   91SYS "Wimp_CreateMenu",-1
   92ENDPROC
   93:
   94DEF PROCerror
   95ON ERROR OFF
   96str$="Basic error: "+REPORT$+" at line "+STR$(ERL)
   97PROCfatal(str$)
   98ENDPROC
   99:
  100DEF PROCupdate
  101l=FNselected(main%,2)
  102r=FNselected(main%,4)
  103n=FNselected(main%,3)
  104
  105REM Mon,10 Jul 1995.17:50:12
  106t$=TIME$
  107
  108hour=VAL(MID$(t$,17,2))
  109day$=LEFT$(t$,1)
  110IF hour>=18 OR hour<9 THEN rate=1:REM        daytime rate
  111IF hour>=9 AND hour<18 THEN rate=2:REM       evening rate
  112IF day$="S" THEN rate=0:REM                  Weekend rate
  113
  114CASE rate OF
  115WHEN 0:IF l=1 THEN price=1 ELSE price=3.3
  116WHEN 1:IF l=1 THEN price=1.7
  117       IF r=1 THEN price=4
  118       IF n=1 THEN price=5.8
  119WHEN 2:IF l=1 THEN price=4
  120       IF r=1 THEN price=8.3
  121       IF n=1 THEN price=9.8
  122ENDCASE
  123mins=(TIME-start%)/6000
  124
  125cost=mins*(price/100)
  126q%=@%
  127@%="+F8.2"
  128$p_addr%="�"+STR$(cost)
  129@%="+F8.1"
  130$m_addr%=STR$(price)+"p"
  131@%=q%
  132PROCupdateicon(1)
  133PROCupdateicon(6)
  134ENDPROC
  135:

� >!PhoneBill.!RunImage
!� �1995 21st Century Software
�
:
� � �error
	�init
	�poll
:
	� �init

<ș "Wimp_Initialise",200,&4B534154,"Phone Bill" � ,task%
2� ca% 50,b% 1000,men% 500,t% 1000,e% 255,tb% 7
tend%=t%+1000

end%=�
�templates
start%=�
cc=0
�
:
� �poll
�update
b%!0=main%
 ș "Wimp_GetWindowState",,b%
ș "Wimp_OpenWindow",,b%
�
ș"Wimp_Poll",,b% � r%
	cc+=1
Ȏ r% �
� 0:� cc>50 � �update:cc=0
� 2:ș"Wimp_OpenWindow",,b%
'� 3:ș"Wimp_CloseWindow",,b%:end%=�
� 6:�mouseclick
 � 17,18:�recieve
!�
"� end%=�
#
�close
$�
%:
&� �close
'&ș"Wimp_CloseDown",task%,&4B534154
(�
)�
*:
+� �recieve
,Ȏ b%!16 �
-� 0:end%=�
.�
/�
0:
1� �mouseclick
2� b%!12=main% �
3Ȏ b%!16 �
4$� 5:� b%!4<>0 � start%=�:�update
5�
6�
7�
8:
9� �templates
:6ș"Wimp_OpenTemplate",,"<PhoneBill$Dir>.Templates"
;9ș"Wimp_LoadTemplate",,b%,t%,tend%,-1,"Info",0 � ,,t%
<%ș"Wimp_CreateWindow",,b% � info%
=9ș"Wimp_LoadTemplate",,b%,t%,tend%,-1,"Main",0 � ,,t%
>p_addr%=!(b%+88+32*1+20)
?m_addr%=!(b%+88+32*6+20)
@%ș"Wimp_CreateWindow",,b% � main%
Aș"Wimp_CloseTemplate"
B�
C:
D� �updateicon(noi)
Eb%!0=main%
Fb%!4=noi
Gș &400CE,,b%
H5ș"Wimp_ForceRedraw",main%,b%!8,b%!12,b%!16,b%!20
I�
J:
K� �selected(w,i)
L6ca%!0=w:ca%!4=i:ș &400CE,,ca%:=(ca%!24�1<<21)>>21
M:
N:
O� �fatal(t$)
P
e%!0=0
Q$(e%+4)=t$
R#ș &400DF,e%,%1001,"Phone Bill"
Sș "Wimp_CreateMenu",-1
T
�close
U�
V:
W� �nonfatal(t$)
X
e%!0=0
Y$(e%+4)=t$
Z#ș &400DF,e%,%1010,"Phone Bill"
[ș "Wimp_CreateMenu",-1
\�
]:
^� �error
_	� � �
`,str$="Basic error: "+�$+" at line "+�(�)
a�fatal(str$)
b�
c:
d
� �update
el=�selected(main%,2)
fr=�selected(main%,4)
gn=�selected(main%,3)
h
i� Mon,10 Jul 1995.17:50:12
j	t$=�$
k
lhour=�(�t$,17,2))
mday$=�t$,1)
n6� hour>=18 � hour<9 � rate=1:�        daytime rate
o5� hour>=9 � hour<18 � rate=2:�       evening rate
p7� day$="S" � rate=0:�                  Weekend rate
q
r
Ȏ rate �
s#� 0:� l=1 � price=1 � price=3.3
t� 1:� l=1 � price=1.7
u       � r=1 � price=4
v       � n=1 � price=5.8
w� 2:� l=1 � price=4
x       � r=1 � price=8.3
y       � n=1 � price=9.8
z�
{mins=(�-start%)/6000
|
}cost=mins*(price/100)
~	q%=@%
@%="+F8.2"
�$p_addr%="�"+�(cost)
�@%="+F8.1"
�$m_addr%=�(price)+"p"
�	@%=q%
��updateicon(1)
��updateicon(6)
��
�:
�
00000000  0d 00 01 1b f4 20 3e 21  50 68 6f 6e 65 42 69 6c  |..... >!PhoneBil|
00000010  6c 2e 21 52 75 6e 49 6d  61 67 65 0d 00 02 21 f4  |l.!RunImage...!.|
00000020  20 a9 31 39 39 35 20 32  31 73 74 20 43 65 6e 74  | .1995 21st Cent|
00000030  75 72 79 20 53 6f 66 74  77 61 72 65 0d 00 03 05  |ury Software....|
00000040  f4 0d 00 04 05 3a 0d 00  05 0e ee 20 85 20 f2 65  |.....:..... . .e|
00000050  72 72 6f 72 0d 00 06 09  f2 69 6e 69 74 0d 00 07  |rror.....init...|
00000060  09 f2 70 6f 6c 6c 0d 00  08 05 3a 0d 00 09 0b dd  |..poll....:.....|
00000070  20 f2 69 6e 69 74 0d 00  0a 3c c8 99 20 22 57 69  | .init...<.. "Wi|
00000080  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
00000090  30 30 2c 26 34 42 35 33  34 31 35 34 2c 22 50 68  |00,&4B534154,"Ph|
000000a0  6f 6e 65 20 42 69 6c 6c  22 20 b8 20 2c 74 61 73  |one Bill" . ,tas|
000000b0  6b 25 0d 00 0b 32 de 20  63 61 25 20 35 30 2c 62  |k%...2. ca% 50,b|
000000c0  25 20 31 30 30 30 2c 6d  65 6e 25 20 35 30 30 2c  |% 1000,men% 500,|
000000d0  74 25 20 31 30 30 30 2c  65 25 20 32 35 35 2c 74  |t% 1000,e% 255,t|
000000e0  62 25 20 37 0d 00 0c 11  74 65 6e 64 25 3d 74 25  |b% 7....tend%=t%|
000000f0  2b 31 30 30 30 0d 00 0d  0a 65 6e 64 25 3d a3 0d  |+1000....end%=..|
00000100  00 0e 0e f2 74 65 6d 70  6c 61 74 65 73 0d 00 0f  |....templates...|
00000110  0c 73 74 61 72 74 25 3d  91 0d 00 10 08 63 63 3d  |.start%=.....cc=|
00000120  30 0d 00 11 05 e1 0d 00  12 05 3a 0d 00 13 0b dd  |0.........:.....|
00000130  20 f2 70 6f 6c 6c 0d 00  14 0b f2 75 70 64 61 74  | .poll.....updat|
00000140  65 0d 00 15 0e 62 25 21  30 3d 6d 61 69 6e 25 0d  |e....b%!0=main%.|
00000150  00 16 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |.. .. "Wimp_GetW|
00000160  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 25 0d  |indowState",,b%.|
00000170  00 17 1c c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..... "Wimp_Open|
00000180  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 00 18 05 f5  |Window",,b%.....|
00000190  0d 00 19 1a c8 99 22 57  69 6d 70 5f 50 6f 6c 6c  |......"Wimp_Poll|
000001a0  22 2c 2c 62 25 20 b8 20  72 25 0d 00 1a 09 63 63  |",,b% . r%....cc|
000001b0  2b 3d 31 0d 00 1b 0b c8  8e 20 72 25 20 ca 0d 00  |+=1...... r% ...|
000001c0  1c 1e c9 20 30 3a e7 20  63 63 3e 35 30 20 8c 20  |... 0:. cc>50 . |
000001d0  f2 75 70 64 61 74 65 3a  63 63 3d 30 0d 00 1d 1f  |.update:cc=0....|
000001e0  c9 20 32 3a c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |. 2:.."Wimp_Open|
000001f0  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 00 1e 27 c9  |Window",,b%...'.|
00000200  20 33 3a c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  | 3:.."Wimp_Close|
00000210  57 69 6e 64 6f 77 22 2c  2c 62 25 3a 65 6e 64 25  |Window",,b%:end%|
00000220  3d b9 0d 00 1f 13 c9 20  36 3a f2 6d 6f 75 73 65  |=...... 6:.mouse|
00000230  63 6c 69 63 6b 0d 00 20  14 c9 20 31 37 2c 31 38  |click.. .. 17,18|
00000240  3a f2 72 65 63 69 65 76  65 0d 00 21 05 cb 0d 00  |:.recieve..!....|
00000250  22 0c fd 20 65 6e 64 25  3d b9 0d 00 23 0a f2 63  |".. end%=...#..c|
00000260  6c 6f 73 65 0d 00 24 05  e1 0d 00 25 05 3a 0d 00  |lose..$....%.:..|
00000270  26 0c dd 20 f2 63 6c 6f  73 65 0d 00 27 26 c8 99  |&.. .close..'&..|
00000280  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00000290  2c 74 61 73 6b 25 2c 26  34 42 35 33 34 31 35 34  |,task%,&4B534154|
000002a0  0d 00 28 05 e0 0d 00 29  05 e1 0d 00 2a 05 3a 0d  |..(....)....*.:.|
000002b0  00 2b 0e dd 20 f2 72 65  63 69 65 76 65 0d 00 2c  |.+.. .recieve..,|
000002c0  0e c8 8e 20 62 25 21 31  36 20 ca 0d 00 2d 0e c9  |... b%!16 ...-..|
000002d0  20 30 3a 65 6e 64 25 3d  b9 0d 00 2e 05 cb 0d 00  | 0:end%=........|
000002e0  2f 05 e1 0d 00 30 05 3a  0d 00 31 11 dd 20 f2 6d  |/....0.:..1.. .m|
000002f0  6f 75 73 65 63 6c 69 63  6b 0d 00 32 13 e7 20 62  |ouseclick..2.. b|
00000300  25 21 31 32 3d 6d 61 69  6e 25 20 8c 0d 00 33 0e  |%!12=main% ...3.|
00000310  c8 8e 20 62 25 21 31 36  20 ca 0d 00 34 24 c9 20  |.. b%!16 ...4$. |
00000320  35 3a e7 20 62 25 21 34  3c 3e 30 20 8c 20 73 74  |5:. b%!4<>0 . st|
00000330  61 72 74 25 3d 91 3a f2  75 70 64 61 74 65 0d 00  |art%=.:.update..|
00000340  35 05 cb 0d 00 36 05 cd  0d 00 37 05 e1 0d 00 38  |5....6....7....8|
00000350  05 3a 0d 00 39 10 dd 20  f2 74 65 6d 70 6c 61 74  |.:..9.. .templat|
00000360  65 73 0d 00 3a 36 c8 99  22 57 69 6d 70 5f 4f 70  |es..:6.."Wimp_Op|
00000370  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 22 3c 50  |enTemplate",,"<P|
00000380  68 6f 6e 65 42 69 6c 6c  24 44 69 72 3e 2e 54 65  |honeBill$Dir>.Te|
00000390  6d 70 6c 61 74 65 73 22  0d 00 3b 39 c8 99 22 57  |mplates"..;9.."W|
000003a0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
000003b0  22 2c 2c 62 25 2c 74 25  2c 74 65 6e 64 25 2c 2d  |",,b%,t%,tend%,-|
000003c0  31 2c 22 49 6e 66 6f 22  2c 30 20 b8 20 2c 2c 74  |1,"Info",0 . ,,t|
000003d0  25 0d 00 3c 25 c8 99 22  57 69 6d 70 5f 43 72 65  |%..<%.."Wimp_Cre|
000003e0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 25 20 b8  |ateWindow",,b% .|
000003f0  20 69 6e 66 6f 25 0d 00  3d 39 c8 99 22 57 69 6d  | info%..=9.."Wim|
00000400  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000410  2c 62 25 2c 74 25 2c 74  65 6e 64 25 2c 2d 31 2c  |,b%,t%,tend%,-1,|
00000420  22 4d 61 69 6e 22 2c 30  20 b8 20 2c 2c 74 25 0d  |"Main",0 . ,,t%.|
00000430  00 3e 1c 70 5f 61 64 64  72 25 3d 21 28 62 25 2b  |.>.p_addr%=!(b%+|
00000440  38 38 2b 33 32 2a 31 2b  32 30 29 0d 00 3f 1c 6d  |88+32*1+20)..?.m|
00000450  5f 61 64 64 72 25 3d 21  28 62 25 2b 38 38 2b 33  |_addr%=!(b%+88+3|
00000460  32 2a 36 2b 32 30 29 0d  00 40 25 c8 99 22 57 69  |2*6+20)..@%.."Wi|
00000470  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000480  2c 2c 62 25 20 b8 20 6d  61 69 6e 25 0d 00 41 1a  |,,b% . main%..A.|
00000490  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |.."Wimp_CloseTem|
000004a0  70 6c 61 74 65 22 0d 00  42 05 e1 0d 00 43 05 3a  |plate"..B....C.:|
000004b0  0d 00 44 16 dd 20 f2 75  70 64 61 74 65 69 63 6f  |..D.. .updateico|
000004c0  6e 28 6e 6f 69 29 0d 00  45 0e 62 25 21 30 3d 6d  |n(noi)..E.b%!0=m|
000004d0  61 69 6e 25 0d 00 46 0c  62 25 21 34 3d 6e 6f 69  |ain%..F.b%!4=noi|
000004e0  0d 00 47 11 c8 99 20 26  34 30 30 43 45 2c 2c 62  |..G... &400CE,,b|
000004f0  25 0d 00 48 35 c8 99 22  57 69 6d 70 5f 46 6f 72  |%..H5.."Wimp_For|
00000500  63 65 52 65 64 72 61 77  22 2c 6d 61 69 6e 25 2c  |ceRedraw",main%,|
00000510  62 25 21 38 2c 62 25 21  31 32 2c 62 25 21 31 36  |b%!8,b%!12,b%!16|
00000520  2c 62 25 21 32 30 0d 00  49 05 e1 0d 00 4a 05 3a  |,b%!20..I....J.:|
00000530  0d 00 4b 14 dd 20 a4 73  65 6c 65 63 74 65 64 28  |..K.. .selected(|
00000540  77 2c 69 29 0d 00 4c 36  63 61 25 21 30 3d 77 3a  |w,i)..L6ca%!0=w:|
00000550  63 61 25 21 34 3d 69 3a  c8 99 20 26 34 30 30 43  |ca%!4=i:.. &400C|
00000560  45 2c 2c 63 61 25 3a 3d  28 63 61 25 21 32 34 80  |E,,ca%:=(ca%!24.|
00000570  31 3c 3c 32 31 29 3e 3e  32 31 0d 00 4d 05 3a 0d  |1<<21)>>21..M.:.|
00000580  00 4e 05 3a 0d 00 4f 10  dd 20 f2 66 61 74 61 6c  |.N.:..O.. .fatal|
00000590  28 74 24 29 0d 00 50 0a  65 25 21 30 3d 30 0d 00  |(t$)..P.e%!0=0..|
000005a0  51 0e 24 28 65 25 2b 34  29 3d 74 24 0d 00 52 23  |Q.$(e%+4)=t$..R#|
000005b0  c8 99 20 26 34 30 30 44  46 2c 65 25 2c 25 31 30  |.. &400DF,e%,%10|
000005c0  30 31 2c 22 50 68 6f 6e  65 20 42 69 6c 6c 22 0d  |01,"Phone Bill".|
000005d0  00 53 1b c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.S... "Wimp_Crea|
000005e0  74 65 4d 65 6e 75 22 2c  2d 31 0d 00 54 0a f2 63  |teMenu",-1..T..c|
000005f0  6c 6f 73 65 0d 00 55 05  e1 0d 00 56 05 3a 0d 00  |lose..U....V.:..|
00000600  57 13 dd 20 f2 6e 6f 6e  66 61 74 61 6c 28 74 24  |W.. .nonfatal(t$|
00000610  29 0d 00 58 0a 65 25 21  30 3d 30 0d 00 59 0e 24  |)..X.e%!0=0..Y.$|
00000620  28 65 25 2b 34 29 3d 74  24 0d 00 5a 23 c8 99 20  |(e%+4)=t$..Z#.. |
00000630  26 34 30 30 44 46 2c 65  25 2c 25 31 30 31 30 2c  |&400DF,e%,%1010,|
00000640  22 50 68 6f 6e 65 20 42  69 6c 6c 22 0d 00 5b 1b  |"Phone Bill"..[.|
00000650  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00000660  65 6e 75 22 2c 2d 31 0d  00 5c 05 e1 0d 00 5d 05  |enu",-1..\....].|
00000670  3a 0d 00 5e 0c dd 20 f2  65 72 72 6f 72 0d 00 5f  |:..^.. .error.._|
00000680  09 ee 20 85 20 87 0d 00  60 2c 73 74 72 24 3d 22  |.. . ...`,str$="|
00000690  42 61 73 69 63 20 65 72  72 6f 72 3a 20 22 2b f6  |Basic error: "+.|
000006a0  24 2b 22 20 61 74 20 6c  69 6e 65 20 22 2b c3 28  |$+" at line "+.(|
000006b0  9e 29 0d 00 61 10 f2 66  61 74 61 6c 28 73 74 72  |.)..a..fatal(str|
000006c0  24 29 0d 00 62 05 e1 0d  00 63 05 3a 0d 00 64 0d  |$)..b....c.:..d.|
000006d0  dd 20 f2 75 70 64 61 74  65 0d 00 65 18 6c 3d a4  |. .update..e.l=.|
000006e0  73 65 6c 65 63 74 65 64  28 6d 61 69 6e 25 2c 32  |selected(main%,2|
000006f0  29 0d 00 66 18 72 3d a4  73 65 6c 65 63 74 65 64  |)..f.r=.selected|
00000700  28 6d 61 69 6e 25 2c 34  29 0d 00 67 18 6e 3d a4  |(main%,4)..g.n=.|
00000710  73 65 6c 65 63 74 65 64  28 6d 61 69 6e 25 2c 33  |selected(main%,3|
00000720  29 0d 00 68 04 0d 00 69  1e f4 20 4d 6f 6e 2c 31  |)..h...i.. Mon,1|
00000730  30 20 4a 75 6c 20 31 39  39 35 2e 31 37 3a 35 30  |0 Jul 1995.17:50|
00000740  3a 31 32 0d 00 6a 09 74  24 3d 91 24 0d 00 6b 04  |:12..j.t$=.$..k.|
00000750  0d 00 6c 15 68 6f 75 72  3d bb 28 c1 74 24 2c 31  |..l.hour=.(.t$,1|
00000760  37 2c 32 29 29 0d 00 6d  0f 64 61 79 24 3d c0 74  |7,2))..m.day$=.t|
00000770  24 2c 31 29 0d 00 6e 36  e7 20 68 6f 75 72 3e 3d  |$,1)..n6. hour>=|
00000780  31 38 20 84 20 68 6f 75  72 3c 39 20 8c 20 72 61  |18 . hour<9 . ra|
00000790  74 65 3d 31 3a f4 20 20  20 20 20 20 20 20 64 61  |te=1:.        da|
000007a0  79 74 69 6d 65 20 72 61  74 65 0d 00 6f 35 e7 20  |ytime rate..o5. |
000007b0  68 6f 75 72 3e 3d 39 20  80 20 68 6f 75 72 3c 31  |hour>=9 . hour<1|
000007c0  38 20 8c 20 72 61 74 65  3d 32 3a f4 20 20 20 20  |8 . rate=2:.    |
000007d0  20 20 20 65 76 65 6e 69  6e 67 20 72 61 74 65 0d  |   evening rate.|
000007e0  00 70 37 e7 20 64 61 79  24 3d 22 53 22 20 8c 20  |.p7. day$="S" . |
000007f0  72 61 74 65 3d 30 3a f4  20 20 20 20 20 20 20 20  |rate=0:.        |
00000800  20 20 20 20 20 20 20 20  20 20 57 65 65 6b 65 6e  |          Weeken|
00000810  64 20 72 61 74 65 0d 00  71 04 0d 00 72 0d c8 8e  |d rate..q...r...|
00000820  20 72 61 74 65 20 ca 0d  00 73 23 c9 20 30 3a e7  | rate ...s#. 0:.|
00000830  20 6c 3d 31 20 8c 20 70  72 69 63 65 3d 31 20 8b  | l=1 . price=1 .|
00000840  20 70 72 69 63 65 3d 33  2e 33 0d 00 74 19 c9 20  | price=3.3..t.. |
00000850  31 3a e7 20 6c 3d 31 20  8c 20 70 72 69 63 65 3d  |1:. l=1 . price=|
00000860  31 2e 37 0d 00 75 1a 20  20 20 20 20 20 20 e7 20  |1.7..u.       . |
00000870  72 3d 31 20 8c 20 70 72  69 63 65 3d 34 0d 00 76  |r=1 . price=4..v|
00000880  1c 20 20 20 20 20 20 20  e7 20 6e 3d 31 20 8c 20  |.       . n=1 . |
00000890  70 72 69 63 65 3d 35 2e  38 0d 00 77 17 c9 20 32  |price=5.8..w.. 2|
000008a0  3a e7 20 6c 3d 31 20 8c  20 70 72 69 63 65 3d 34  |:. l=1 . price=4|
000008b0  0d 00 78 1c 20 20 20 20  20 20 20 e7 20 72 3d 31  |..x.       . r=1|
000008c0  20 8c 20 70 72 69 63 65  3d 38 2e 33 0d 00 79 1c  | . price=8.3..y.|
000008d0  20 20 20 20 20 20 20 e7  20 6e 3d 31 20 8c 20 70  |       . n=1 . p|
000008e0  72 69 63 65 3d 39 2e 38  0d 00 7a 05 cb 0d 00 7b  |rice=9.8..z....{|
000008f0  18 6d 69 6e 73 3d 28 91  2d 73 74 61 72 74 25 29  |.mins=(.-start%)|
00000900  2f 36 30 30 30 0d 00 7c  04 0d 00 7d 19 63 6f 73  |/6000..|...}.cos|
00000910  74 3d 6d 69 6e 73 2a 28  70 72 69 63 65 2f 31 30  |t=mins*(price/10|
00000920  30 29 0d 00 7e 09 71 25  3d 40 25 0d 00 7f 0e 40  |0)..~.q%=@%....@|
00000930  25 3d 22 2b 46 38 2e 32  22 0d 00 80 18 24 70 5f  |%="+F8.2"....$p_|
00000940  61 64 64 72 25 3d 22 a3  22 2b c3 28 63 6f 73 74  |addr%="."+.(cost|
00000950  29 0d 00 81 0e 40 25 3d  22 2b 46 38 2e 31 22 0d  |)....@%="+F8.1".|
00000960  00 82 19 24 6d 5f 61 64  64 72 25 3d c3 28 70 72  |...$m_addr%=.(pr|
00000970  69 63 65 29 2b 22 70 22  0d 00 83 09 40 25 3d 71  |ice)+"p"....@%=q|
00000980  25 0d 00 84 12 f2 75 70  64 61 74 65 69 63 6f 6e  |%.....updateicon|
00000990  28 31 29 0d 00 85 12 f2  75 70 64 61 74 65 69 63  |(1).....updateic|
000009a0  6f 6e 28 36 29 0d 00 86  05 e1 0d 00 87 05 3a 0d  |on(6).........:.|
000009b0  ff                                                |.|
000009b1

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .