� b% 256
	!b%=0
�
(
� $(b%+4)
2Cș "Wimp_ReportError",b%,%11011,"Message from Computer" � ,box%
<� box% = 2 � �explain_why
Fd$="Sun,03 Jun"
Pt$="06:57:00"
Z
y$="2248"
d�"Set Sys$Year "+y$
n�"Set Sys$Date "+d$
x�"Set Sys$Time "+t$
��
�� $(b%+4),$(b%+4),$(b%+4)
�;ș "Wimp_ReportError",b%,%11001,"Message from Computer"
��
�:
���explain_why
�	!b%=0
�
� $(b%+4)
�;ș "Wimp_ReportError",b%,%11001,"Message from Computer"
��
��
�:
�f� "About to reset date and time to the year 2248, click OK to carry on or Cancel to find out why!"



�� "At 6:57am on June 3rd 2248, the internal clock will reset back to 1900, this prog simulates that by setting your clock to that date."



"I� "Now load up !Alarm and watch the time as it approaches 06:57.57s."
�

00000000  0d 00 0a 0c de 20 62 25  20 32 35 36 0d 00 14 09  |..... b% 256....|
00000010  21 62 25 3d 30 0d 00 1e  05 f7 0d 00 28 0d f3 20  |!b%=0.......(.. |
00000020  24 28 62 25 2b 34 29 0d  00 32 43 c8 99 20 22 57  |$(b%+4)..2C.. "W|
00000030  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00000040  2c 62 25 2c 25 31 31 30  31 31 2c 22 4d 65 73 73  |,b%,%11011,"Mess|
00000050  61 67 65 20 66 72 6f 6d  20 43 6f 6d 70 75 74 65  |age from Compute|
00000060  72 22 20 b8 20 2c 62 6f  78 25 0d 00 3c 1d e7 20  |r" . ,box%..<.. |
00000070  62 6f 78 25 20 3d 20 32  20 8c 20 f2 65 78 70 6c  |box% = 2 . .expl|
00000080  61 69 6e 5f 77 68 79 0d  00 46 13 64 24 3d 22 53  |ain_why..F.d$="S|
00000090  75 6e 2c 30 33 20 4a 75  6e 22 0d 00 50 11 74 24  |un,03 Jun"..P.t$|
000000a0  3d 22 30 36 3a 35 37 3a  30 30 22 0d 00 5a 0d 79  |="06:57:00"..Z.y|
000000b0  24 3d 22 32 32 34 38 22  0d 00 64 17 ff 22 53 65  |$="2248"..d.."Se|
000000c0  74 20 53 79 73 24 59 65  61 72 20 22 2b 79 24 0d  |t Sys$Year "+y$.|
000000d0  00 6e 17 ff 22 53 65 74  20 53 79 73 24 44 61 74  |.n.."Set Sys$Dat|
000000e0  65 20 22 2b 64 24 0d 00  78 17 ff 22 53 65 74 20  |e "+d$..x.."Set |
000000f0  53 79 73 24 54 69 6d 65  20 22 2b 74 24 0d 00 82  |Sys$Time "+t$...|
00000100  05 f7 0d 00 8c 1d f3 20  24 28 62 25 2b 34 29 2c  |....... $(b%+4),|
00000110  24 28 62 25 2b 34 29 2c  24 28 62 25 2b 34 29 0d  |$(b%+4),$(b%+4).|
00000120  00 96 3b c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |..;.. "Wimp_Repo|
00000130  72 74 45 72 72 6f 72 22  2c 62 25 2c 25 31 31 30  |rtError",b%,%110|
00000140  30 31 2c 22 4d 65 73 73  61 67 65 20 66 72 6f 6d  |01,"Message from|
00000150  20 43 6f 6d 70 75 74 65  72 22 0d 00 a0 05 e0 0d  | Computer"......|
00000160  00 aa 05 3a 0d 00 b4 11  dd f2 65 78 70 6c 61 69  |...:......explai|
00000170  6e 5f 77 68 79 0d 00 be  09 21 62 25 3d 30 0d 00  |n_why....!b%=0..|
00000180  c8 0d f3 20 24 28 62 25  2b 34 29 0d 00 d2 3b c8  |... $(b%+4)...;.|
00000190  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
000001a0  72 6f 72 22 2c 62 25 2c  25 31 31 30 30 31 2c 22  |ror",b%,%11001,"|
000001b0  4d 65 73 73 61 67 65 20  66 72 6f 6d 20 43 6f 6d  |Message from Com|
000001c0  70 75 74 65 72 22 0d 00  dc 05 e0 0d 00 e6 05 e1  |puter"..........|
000001d0  0d 00 f0 05 3a 0d 00 fa  66 dc 20 22 41 62 6f 75  |....:...f. "Abou|
000001e0  74 20 74 6f 20 72 65 73  65 74 20 64 61 74 65 20  |t to reset date |
000001f0  61 6e 64 20 74 69 6d 65  20 74 6f 20 74 68 65 20  |and time to the |
00000200  79 65 61 72 20 32 32 34  38 2c 20 63 6c 69 63 6b  |year 2248, click|
00000210  20 4f 4b 20 74 6f 20 63  61 72 72 79 20 6f 6e 20  | OK to carry on |
00000220  6f 72 20 43 61 6e 63 65  6c 20 74 6f 20 66 69 6e  |or Cancel to fin|
00000230  64 20 6f 75 74 20 77 68  79 21 22 0d 01 04 04 0d  |d out why!".....|
00000240  01 0e 8c dc 20 22 41 74  20 36 3a 35 37 61 6d 20  |.... "At 6:57am |
00000250  6f 6e 20 4a 75 6e 65 20  33 72 64 20 32 32 34 38  |on June 3rd 2248|
00000260  2c 20 74 68 65 20 69 6e  74 65 72 6e 61 6c 20 63  |, the internal c|
00000270  6c 6f 63 6b 20 77 69 6c  6c 20 72 65 73 65 74 20  |lock will reset |
00000280  62 61 63 6b 20 74 6f 20  31 39 30 30 2c 20 74 68  |back to 1900, th|
00000290  69 73 20 70 72 6f 67 20  73 69 6d 75 6c 61 74 65  |is prog simulate|
000002a0  73 20 74 68 61 74 20 62  79 20 73 65 74 74 69 6e  |s that by settin|
000002b0  67 20 79 6f 75 72 20 63  6c 6f 63 6b 20 74 6f 20  |g your clock to |
000002c0  74 68 61 74 20 64 61 74  65 2e 22 0d 01 18 04 0d  |that date.".....|
000002d0  01 22 49 dc 20 22 4e 6f  77 20 6c 6f 61 64 20 75  |."I. "Now load u|
000002e0  70 20 21 41 6c 61 72 6d  20 61 6e 64 20 77 61 74  |p !Alarm and wat|
000002f0  63 68 20 74 68 65 20 74  69 6d 65 20 61 73 20 69  |ch the time as i|
00000300  74 20 61 70 70 72 6f 61  63 68 65 73 20 30 36 3a  |t approaches 06:|
00000310  35 37 2e 35 37 73 2e 22  0d ff                    |57.57s."..|
0000031a