Home » Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo » OnTime/OnTimeSrc
OnTime/OnTimeSrc
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 1993-08.adf » !StarInfo_StarInfo |
| Filename: | OnTime/OnTimeSrc |
| Read OK: | ✔ |
| File size: | 0C60 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >OnTimeSrc (Info10)
20REM Display the time on the Risc OS 3 welcome banner
30REM By Paul Clifford
40REM For Risc OS 3
50REM (c) BAU August 1993
60:
70DIM code% 1000
80FOR pass%=%1100 TO %1110 STEP 2
90P%=0:O%=code%:L%=code%+1000
100[ opt pass%
110 equd 0
120 equd initialise
130 equd finalise
140 equd service
150 equd title
160 equd help
170 equd 0
180 equd 0
190 equd 0
200 equd 0
210 equd 0
220.title
230 equs "WelcomeTime"+CHR$(0)
240 align
250.help
260 equs "WelcomeTime"+CHR$(9)
270 equs "1.01 (12 Mar 1993) by Paul Clifford"+CHR$(0)
280 align
290.initialise
300 stmfd r13!,{r0-r7,r14}
310 bl change_time
320 adr r0,resources
330 swi "XResourceFS_RegisterFiles"
340 ldmfd r13!,{r0-r7,pc}
350.finalise
360 stmfd r13!,{r0-r7,r14}
370 adr r0,resources
380 swi "XResourceFS_DeregisterFiles"
390 ldmfd r13!,{r0-r7,pc}
400.service
410 cmpne r1,#&49
420 beq change_time
430 cmp r1,#&60
440 beq point_to_resources
450 mov pc,r14
460.change_time
470 stmfd r13!,{r0-r3,r14}
480 adr r1,time_block
490 mov r0,#3
500 strb r0,[r1]
510 mov r0,#14
520 swi "OS_Word"
530 mov r0,r1
540 adr r1,time_start
550 mov r2,#time_end-time_start
560 adr r3,time_state
570 swi "OS_ConvertDateAndTime"
580 mov r0,#10
590 strb r0,time_end-1
600 ldmfd r13!,{r0-r3,pc}
610.time_block
620 equd 0
630 equb 0
640.time_state
650 equs "%12:%mi:%se %pm"+CHR$(0)
660 align
670.point_to_resources
680 adr r0,resources
690 mov r14,pc
700 mov pc,r2
710.resources
720 equd blank-P%
730 equd &ffffff43
740 equd &d48fb688
750 equd file_end-file_start
760 equd 3
770 equs "Resources.Desktop.Messages"+CHR$(0)
780 align
790 equd 4+file_end-file_start
800.file_start
810 equs "RO3:RISC OS 3"+CHR$(10)
820 equs "CopyRt:"+CHR$(169)+" Acorn Computers Ltd, 1992"+CHR$(10)
830 equs "Init:Welcome, the time is now "
840.time_start
850 equs "xx:xx:xx xx"
860 equb 10
870.time_end
880 equs "Pre:"+CHR$(10)
890 equs "Alarm:%Run Resources:$.Apps.!Alarm"+CHR$(10)
900 equs "Calc:%Run Resources:$.Apps.!Calc"+CHR$(10)
910 equs "Chars:%AddTinyDir Resources:$.Apps.!Chars"+CHR$(10)
920 equs "Config:%Run Resources:$.Apps.!Configure"+CHR$(10)
930 equs "Draw:%Run Resources:$.Apps.!Draw"+CHR$(10)
940 equs "Edit:%Run Resources:$.Apps.!Edit"+CHR$(10)
950 equs "Help:%Run Resources:$.Apps.!Help"+CHR$(10)
960 equs "Paint:%Run Resources:$.Apps.!Paint"+CHR$(10)
970 equs "Desktop:Desktop"+CHR$(10)
980.file_end
990 align
1000.blank
1010 equd 0
1020]
1030NEXT pass%
1040:
1050SYS "OS_File",10,"OnTime",&ffa,,code%,O%
� >OnTimeSrc (Info10)
:� Display the time on the Risc OS 3 welcome banner
� By Paul Clifford
(� For Risc OS 3
2� (c) BAU August 1993
<:
F� code% 1000
P � pass%=%1100 � %1110 � 2
Z P%=0:O%=code%:L%=code%+1000
d[ opt pass%
n equd 0
x equd initialise
� equd finalise
� equd service
� equd title
� equd help
� equd 0
� equd 0
� equd 0
� equd 0
� equd 0
�
.title
�& equs "WelcomeTime"+�(0)
� align
� .help
& equs "WelcomeTime"+�(9)
> equs "1.01 (12 Mar 1993) by Paul Clifford"+�(0)
align
".initialise
,$ stmfd r13!,{r0-r7,r14}
6 bl change_time
@ adr r0,resources
J/ swi "XResourceFS_RegisterFiles"
T# ldmfd r13!,{r0-r7,pc}
^
.finalise
h$ stmfd r13!,{r0-r7,r14}
r adr r0,resources
|1 swi "XResourceFS_DeregisterFiles"
�# ldmfd r13!,{r0-r7,pc}
� .service
� cmpne r1,#&49
� beq change_time
� cmp r1,#&60
�& beq point_to_resources
� mov pc,r14
�.change_time
�$ stmfd r13!,{r0-r3,r14}
�! adr r1,time_block
� mov r0,#3
� strb r0,[r1]
� mov r0,#14
swi "OS_Word"
mov r0,r1
! adr r1,time_start
&+ mov r2,#time_end-time_start
0! adr r3,time_state
:+ swi "OS_ConvertDateAndTime"
D mov r0,#10
N! strb r0,time_end-1
X# ldmfd r13!,{r0-r3,pc}
b.time_block
l equd 0
v equb 0
�.time_state
�* equs "%12:%mi:%se %pm"+�(0)
� align
�.point_to_resources
� adr r0,resources
� mov r14,pc
� mov pc,r2
�.resources
� equd blank-P%
� equd &ffffff43
� equd &d48fb688
�' equd file_end-file_start
� equd 3
5 equs "Resources.Desktop.Messages"+�(0)
align
) equd 4+file_end-file_start
.file_start
*) equs "RO3:RISC OS 3"+�(10)
4G equs "CopyRt:"+�(169)+" Acorn Computers Ltd, 1992"+�(10)
>4 equs "Init:Welcome, the time is now "
H.time_start
R! equs "xx:xx:xx xx"
\ equb 10
f
.time_end
p equs "Pre:"+�(10)
z> equs "Alarm:%Run Resources:$.Apps.!Alarm"+�(10)
�< equs "Calc:%Run Resources:$.Apps.!Calc"+�(10)
�E equs "Chars:%AddTinyDir Resources:$.Apps.!Chars"+�(10)
�C equs "Config:%Run Resources:$.Apps.!Configure"+�(10)
�< equs "Draw:%Run Resources:$.Apps.!Draw"+�(10)
�< equs "Edit:%Run Resources:$.Apps.!Edit"+�(10)
�< equs "Help:%Run Resources:$.Apps.!Help"+�(10)
�> equs "Paint:%Run Resources:$.Apps.!Paint"+�(10)
�+ equs "Desktop:Desktop"+�(10)
�
.file_end
� align
�
.blank
� equd 0
�]
� pass%
:
+ș "OS_File",10,"OnTime",&ffa,,code%,O%
� 00000000 0d 00 0a 1d f4 20 20 20 20 20 3e 4f 6e 54 69 6d |..... >OnTim|
00000010 65 53 72 63 20 28 49 6e 66 6f 31 30 29 0d 00 14 |eSrc (Info10)...|
00000020 3a f4 20 20 20 20 20 44 69 73 70 6c 61 79 20 74 |:. Display t|
00000030 68 65 20 74 69 6d 65 20 6f 6e 20 74 68 65 20 52 |he time on the R|
00000040 69 73 63 20 4f 53 20 33 20 77 65 6c 63 6f 6d 65 |isc OS 3 welcome|
00000050 20 62 61 6e 6e 65 72 0d 00 1e 17 f4 20 42 79 20 | banner..... By |
00000060 20 50 61 75 6c 20 43 6c 69 66 66 6f 72 64 0d 00 | Paul Clifford..|
00000070 28 13 f4 20 46 6f 72 20 52 69 73 63 20 4f 53 20 |(.. For Risc OS |
00000080 33 0d 00 32 19 f4 20 28 63 29 20 42 41 55 20 41 |3..2.. (c) BAU A|
00000090 75 67 75 73 74 20 31 39 39 33 0d 00 3c 05 3a 0d |ugust 1993..<.:.|
000000a0 00 46 10 de 20 63 6f 64 65 25 20 31 30 30 30 0d |.F.. code% 1000.|
000000b0 00 50 1d e3 20 70 61 73 73 25 3d 25 31 31 30 30 |.P.. pass%=%1100|
000000c0 20 b8 20 25 31 31 31 30 20 88 20 32 0d 00 5a 1f | . %1110 . 2..Z.|
000000d0 50 25 3d 30 3a 4f 25 3d 63 6f 64 65 25 3a 4c 25 |P%=0:O%=code%:L%|
000000e0 3d 63 6f 64 65 25 2b 31 30 30 30 0d 00 64 19 5b |=code%+1000..d.[|
000000f0 20 20 20 20 20 20 20 6f 70 74 20 20 20 20 20 70 | opt p|
00000100 61 73 73 25 0d 00 6e 15 20 20 20 20 20 20 20 20 |ass%..n. |
00000110 65 71 75 64 20 20 20 20 30 0d 00 78 1e 20 20 20 |equd 0..x. |
00000120 20 20 20 20 20 65 71 75 64 20 20 20 20 69 6e 69 | equd ini|
00000130 74 69 61 6c 69 73 65 0d 00 82 1c 20 20 20 20 20 |tialise.... |
00000140 20 20 20 65 71 75 64 20 20 20 20 66 69 6e 61 6c | equd final|
00000150 69 73 65 0d 00 8c 1b 20 20 20 20 20 20 20 20 65 |ise.... e|
00000160 71 75 64 20 20 20 20 73 65 72 76 69 63 65 0d 00 |qud service..|
00000170 96 19 20 20 20 20 20 20 20 20 65 71 75 64 20 20 |.. equd |
00000180 20 20 74 69 74 6c 65 0d 00 a0 18 20 20 20 20 20 | title.... |
00000190 20 20 20 65 71 75 64 20 20 20 20 68 65 6c 70 0d | equd help.|
000001a0 00 aa 15 20 20 20 20 20 20 20 20 65 71 75 64 20 |... equd |
000001b0 20 20 20 30 0d 00 b4 15 20 20 20 20 20 20 20 20 | 0.... |
000001c0 65 71 75 64 20 20 20 20 30 0d 00 be 15 20 20 20 |equd 0.... |
000001d0 20 20 20 20 20 65 71 75 64 20 20 20 20 30 0d 00 | equd 0..|
000001e0 c8 15 20 20 20 20 20 20 20 20 65 71 75 64 20 20 |.. equd |
000001f0 20 20 30 0d 00 d2 15 20 20 20 20 20 20 20 20 65 | 0.... e|
00000200 71 75 64 20 20 20 20 30 0d 00 dc 0a 2e 74 69 74 |qud 0.....tit|
00000210 6c 65 0d 00 e6 26 20 20 20 20 20 20 20 20 65 71 |le...& eq|
00000220 75 73 20 20 20 20 22 57 65 6c 63 6f 6d 65 54 69 |us "WelcomeTi|
00000230 6d 65 22 2b bd 28 30 29 0d 00 f0 11 20 20 20 20 |me"+.(0).... |
00000240 20 20 20 20 61 6c 69 67 6e 0d 00 fa 09 2e 68 65 | align.....he|
00000250 6c 70 0d 01 04 26 20 20 20 20 20 20 20 20 65 71 |lp...& eq|
00000260 75 73 20 20 20 20 22 57 65 6c 63 6f 6d 65 54 69 |us "WelcomeTi|
00000270 6d 65 22 2b bd 28 39 29 0d 01 0e 3e 20 20 20 20 |me"+.(9)...> |
00000280 20 20 20 20 65 71 75 73 20 20 20 20 22 31 2e 30 | equs "1.0|
00000290 31 20 28 31 32 20 4d 61 72 20 31 39 39 33 29 20 |1 (12 Mar 1993) |
000002a0 62 79 20 50 61 75 6c 20 43 6c 69 66 66 6f 72 64 |by Paul Clifford|
000002b0 22 2b bd 28 30 29 0d 01 18 11 20 20 20 20 20 20 |"+.(0).... |
000002c0 20 20 61 6c 69 67 6e 0d 01 22 0f 2e 69 6e 69 74 | align.."..init|
000002d0 69 61 6c 69 73 65 0d 01 2c 24 20 20 20 20 20 20 |ialise..,$ |
000002e0 20 20 73 74 6d 66 64 20 20 20 72 31 33 21 2c 7b | stmfd r13!,{|
000002f0 72 30 2d 72 37 2c 72 31 34 7d 0d 01 36 1f 20 20 |r0-r7,r14}..6. |
00000300 20 20 20 20 20 20 62 6c 20 20 20 20 20 20 63 68 | bl ch|
00000310 61 6e 67 65 5f 74 69 6d 65 0d 01 40 20 20 20 20 |ange_time..@ |
00000320 20 20 20 20 20 61 64 72 20 20 20 20 20 72 30 2c | adr r0,|
00000330 72 65 73 6f 75 72 63 65 73 0d 01 4a 2f 20 20 20 |resources..J/ |
00000340 20 20 20 20 20 73 77 69 20 20 20 20 20 22 58 52 | swi "XR|
00000350 65 73 6f 75 72 63 65 46 53 5f 52 65 67 69 73 74 |esourceFS_Regist|
00000360 65 72 46 69 6c 65 73 22 0d 01 54 23 20 20 20 20 |erFiles"..T# |
00000370 20 20 20 20 6c 64 6d 66 64 20 20 20 72 31 33 21 | ldmfd r13!|
00000380 2c 7b 72 30 2d 72 37 2c 70 63 7d 0d 01 5e 0d 2e |,{r0-r7,pc}..^..|
00000390 66 69 6e 61 6c 69 73 65 0d 01 68 24 20 20 20 20 |finalise..h$ |
000003a0 20 20 20 20 73 74 6d 66 64 20 20 20 72 31 33 21 | stmfd r13!|
000003b0 2c 7b 72 30 2d 72 37 2c 72 31 34 7d 0d 01 72 20 |,{r0-r7,r14}..r |
000003c0 20 20 20 20 20 20 20 20 61 64 72 20 20 20 20 20 | adr |
000003d0 72 30 2c 72 65 73 6f 75 72 63 65 73 0d 01 7c 31 |r0,resources..|1|
000003e0 20 20 20 20 20 20 20 20 73 77 69 20 20 20 20 20 | swi |
000003f0 22 58 52 65 73 6f 75 72 63 65 46 53 5f 44 65 72 |"XResourceFS_Der|
00000400 65 67 69 73 74 65 72 46 69 6c 65 73 22 0d 01 86 |egisterFiles"...|
00000410 23 20 20 20 20 20 20 20 20 6c 64 6d 66 64 20 20 |# ldmfd |
00000420 20 72 31 33 21 2c 7b 72 30 2d 72 37 2c 70 63 7d | r13!,{r0-r7,pc}|
00000430 0d 01 90 0c 2e 73 65 72 76 69 63 65 0d 01 9a 1b |.....service....|
00000440 20 20 20 20 20 20 20 20 63 6d 70 6e 65 20 20 20 | cmpne |
00000450 72 31 2c 23 26 34 39 0d 01 a4 1f 20 20 20 20 20 |r1,#&49.... |
00000460 20 20 20 62 65 71 20 20 20 20 20 63 68 61 6e 67 | beq chang|
00000470 65 5f 74 69 6d 65 0d 01 ae 1b 20 20 20 20 20 20 |e_time.... |
00000480 20 20 63 6d 70 20 20 20 20 20 72 31 2c 23 26 36 | cmp r1,#&6|
00000490 30 0d 01 b8 26 20 20 20 20 20 20 20 20 62 65 71 |0...& beq|
000004a0 20 20 20 20 20 70 6f 69 6e 74 5f 74 6f 5f 72 65 | point_to_re|
000004b0 73 6f 75 72 63 65 73 0d 01 c2 1a 20 20 20 20 20 |sources.... |
000004c0 20 20 20 6d 6f 76 20 20 20 20 20 70 63 2c 72 31 | mov pc,r1|
000004d0 34 0d 01 cc 10 2e 63 68 61 6e 67 65 5f 74 69 6d |4.....change_tim|
000004e0 65 0d 01 d6 24 20 20 20 20 20 20 20 20 73 74 6d |e...$ stm|
000004f0 66 64 20 20 20 72 31 33 21 2c 7b 72 30 2d 72 33 |fd r13!,{r0-r3|
00000500 2c 72 31 34 7d 0d 01 e0 21 20 20 20 20 20 20 20 |,r14}...! |
00000510 20 61 64 72 20 20 20 20 20 72 31 2c 74 69 6d 65 | adr r1,time|
00000520 5f 62 6c 6f 63 6b 0d 01 ea 19 20 20 20 20 20 20 |_block.... |
00000530 20 20 6d 6f 76 20 20 20 20 20 72 30 2c 23 33 0d | mov r0,#3.|
00000540 01 f4 1b 20 20 20 20 20 20 20 20 73 74 72 62 20 |... strb |
00000550 20 20 20 72 30 2c 5b 72 31 5d 0d 01 fe 1a 20 20 | r0,[r1].... |
00000560 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 72 30 | mov r0|
00000570 2c 23 31 34 0d 02 08 1d 20 20 20 20 20 20 20 20 |,#14.... |
00000580 73 77 69 20 20 20 20 20 22 4f 53 5f 57 6f 72 64 |swi "OS_Word|
00000590 22 0d 02 12 19 20 20 20 20 20 20 20 20 6d 6f 76 |".... mov|
000005a0 20 20 20 20 20 72 30 2c 72 31 0d 02 1c 21 20 20 | r0,r1...! |
000005b0 20 20 20 20 20 20 61 64 72 20 20 20 20 20 72 31 | adr r1|
000005c0 2c 74 69 6d 65 5f 73 74 61 72 74 0d 02 26 2b 20 |,time_start..&+ |
000005d0 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 72 | mov r|
000005e0 32 2c 23 74 69 6d 65 5f 65 6e 64 2d 74 69 6d 65 |2,#time_end-time|
000005f0 5f 73 74 61 72 74 0d 02 30 21 20 20 20 20 20 20 |_start..0! |
00000600 20 20 61 64 72 20 20 20 20 20 72 33 2c 74 69 6d | adr r3,tim|
00000610 65 5f 73 74 61 74 65 0d 02 3a 2b 20 20 20 20 20 |e_state..:+ |
00000620 20 20 20 73 77 69 20 20 20 20 20 22 4f 53 5f 43 | swi "OS_C|
00000630 6f 6e 76 65 72 74 44 61 74 65 41 6e 64 54 69 6d |onvertDateAndTim|
00000640 65 22 0d 02 44 1a 20 20 20 20 20 20 20 20 6d 6f |e"..D. mo|
00000650 76 20 20 20 20 20 72 30 2c 23 31 30 0d 02 4e 21 |v r0,#10..N!|
00000660 20 20 20 20 20 20 20 20 73 74 72 62 20 20 20 20 | strb |
00000670 72 30 2c 74 69 6d 65 5f 65 6e 64 2d 31 0d 02 58 |r0,time_end-1..X|
00000680 23 20 20 20 20 20 20 20 20 6c 64 6d 66 64 20 20 |# ldmfd |
00000690 20 72 31 33 21 2c 7b 72 30 2d 72 33 2c 70 63 7d | r13!,{r0-r3,pc}|
000006a0 0d 02 62 0f 2e 74 69 6d 65 5f 62 6c 6f 63 6b 0d |..b..time_block.|
000006b0 02 6c 15 20 20 20 20 20 20 20 20 65 71 75 64 20 |.l. equd |
000006c0 20 20 20 30 0d 02 76 15 20 20 20 20 20 20 20 20 | 0..v. |
000006d0 65 71 75 62 20 20 20 20 30 0d 02 80 0f 2e 74 69 |equb 0.....ti|
000006e0 6d 65 5f 73 74 61 74 65 0d 02 8a 2a 20 20 20 20 |me_state...* |
000006f0 20 20 20 20 65 71 75 73 20 20 20 20 22 25 31 32 | equs "%12|
00000700 3a 25 6d 69 3a 25 73 65 20 25 70 6d 22 2b bd 28 |:%mi:%se %pm"+.(|
00000710 30 29 0d 02 94 11 20 20 20 20 20 20 20 20 61 6c |0).... al|
00000720 69 67 6e 0d 02 9e 17 2e 70 6f 69 6e 74 5f 74 6f |ign.....point_to|
00000730 5f 72 65 73 6f 75 72 63 65 73 0d 02 a8 20 20 20 |_resources... |
00000740 20 20 20 20 20 20 61 64 72 20 20 20 20 20 72 30 | adr r0|
00000750 2c 72 65 73 6f 75 72 63 65 73 0d 02 b2 1a 20 20 |,resources.... |
00000760 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 72 31 | mov r1|
00000770 34 2c 70 63 0d 02 bc 19 20 20 20 20 20 20 20 20 |4,pc.... |
00000780 6d 6f 76 20 20 20 20 20 70 63 2c 72 32 0d 02 c6 |mov pc,r2...|
00000790 0e 2e 72 65 73 6f 75 72 63 65 73 0d 02 d0 1c 20 |..resources.... |
000007a0 20 20 20 20 20 20 20 65 71 75 64 20 20 20 20 62 | equd b|
000007b0 6c 61 6e 6b 2d 50 25 0d 02 da 1d 20 20 20 20 20 |lank-P%.... |
000007c0 20 20 20 65 71 75 64 20 20 20 20 26 66 66 66 66 | equd &ffff|
000007d0 66 66 34 33 0d 02 e4 1d 20 20 20 20 20 20 20 20 |ff43.... |
000007e0 65 71 75 64 20 20 20 20 26 64 34 38 66 62 36 38 |equd &d48fb68|
000007f0 38 0d 02 ee 27 20 20 20 20 20 20 20 20 65 71 75 |8...' equ|
00000800 64 20 20 20 20 66 69 6c 65 5f 65 6e 64 2d 66 69 |d file_end-fi|
00000810 6c 65 5f 73 74 61 72 74 0d 02 f8 15 20 20 20 20 |le_start.... |
00000820 20 20 20 20 65 71 75 64 20 20 20 20 33 0d 03 02 | equd 3...|
00000830 35 20 20 20 20 20 20 20 20 65 71 75 73 20 20 20 |5 equs |
00000840 20 22 52 65 73 6f 75 72 63 65 73 2e 44 65 73 6b | "Resources.Desk|
00000850 74 6f 70 2e 4d 65 73 73 61 67 65 73 22 2b bd 28 |top.Messages"+.(|
00000860 30 29 0d 03 0c 11 20 20 20 20 20 20 20 20 61 6c |0).... al|
00000870 69 67 6e 0d 03 16 29 20 20 20 20 20 20 20 20 65 |ign...) e|
00000880 71 75 64 20 20 20 20 34 2b 66 69 6c 65 5f 65 6e |qud 4+file_en|
00000890 64 2d 66 69 6c 65 5f 73 74 61 72 74 0d 03 20 0f |d-file_start.. .|
000008a0 2e 66 69 6c 65 5f 73 74 61 72 74 0d 03 2a 29 20 |.file_start..*) |
000008b0 20 20 20 20 20 20 20 65 71 75 73 20 20 20 20 22 | equs "|
000008c0 52 4f 33 3a 52 49 53 43 20 4f 53 20 33 22 2b bd |RO3:RISC OS 3"+.|
000008d0 28 31 30 29 0d 03 34 47 20 20 20 20 20 20 20 20 |(10)..4G |
000008e0 65 71 75 73 20 20 20 20 22 43 6f 70 79 52 74 3a |equs "CopyRt:|
000008f0 22 2b bd 28 31 36 39 29 2b 22 20 41 63 6f 72 6e |"+.(169)+" Acorn|
00000900 20 43 6f 6d 70 75 74 65 72 73 20 4c 74 64 2c 20 | Computers Ltd, |
00000910 31 39 39 32 22 2b bd 28 31 30 29 0d 03 3e 34 20 |1992"+.(10)..>4 |
00000920 20 20 20 20 20 20 20 65 71 75 73 20 20 20 20 22 | equs "|
00000930 49 6e 69 74 3a 57 65 6c 63 6f 6d 65 2c 20 74 68 |Init:Welcome, th|
00000940 65 20 74 69 6d 65 20 69 73 20 6e 6f 77 20 22 0d |e time is now ".|
00000950 03 48 0f 2e 74 69 6d 65 5f 73 74 61 72 74 0d 03 |.H..time_start..|
00000960 52 21 20 20 20 20 20 20 20 20 65 71 75 73 20 20 |R! equs |
00000970 20 20 22 78 78 3a 78 78 3a 78 78 20 78 78 22 0d | "xx:xx:xx xx".|
00000980 03 5c 16 20 20 20 20 20 20 20 20 65 71 75 62 20 |.\. equb |
00000990 20 20 20 31 30 0d 03 66 0d 2e 74 69 6d 65 5f 65 | 10..f..time_e|
000009a0 6e 64 0d 03 70 20 20 20 20 20 20 20 20 20 65 71 |nd..p eq|
000009b0 75 73 20 20 20 20 22 50 72 65 3a 22 2b bd 28 31 |us "Pre:"+.(1|
000009c0 30 29 0d 03 7a 3e 20 20 20 20 20 20 20 20 65 71 |0)..z> eq|
000009d0 75 73 20 20 20 20 22 41 6c 61 72 6d 3a 25 52 75 |us "Alarm:%Ru|
000009e0 6e 20 52 65 73 6f 75 72 63 65 73 3a 24 2e 41 70 |n Resources:$.Ap|
000009f0 70 73 2e 21 41 6c 61 72 6d 22 2b bd 28 31 30 29 |ps.!Alarm"+.(10)|
00000a00 0d 03 84 3c 20 20 20 20 20 20 20 20 65 71 75 73 |...< equs|
00000a10 20 20 20 20 22 43 61 6c 63 3a 25 52 75 6e 20 52 | "Calc:%Run R|
00000a20 65 73 6f 75 72 63 65 73 3a 24 2e 41 70 70 73 2e |esources:$.Apps.|
00000a30 21 43 61 6c 63 22 2b bd 28 31 30 29 0d 03 8e 45 |!Calc"+.(10)...E|
00000a40 20 20 20 20 20 20 20 20 65 71 75 73 20 20 20 20 | equs |
00000a50 22 43 68 61 72 73 3a 25 41 64 64 54 69 6e 79 44 |"Chars:%AddTinyD|
00000a60 69 72 20 52 65 73 6f 75 72 63 65 73 3a 24 2e 41 |ir Resources:$.A|
00000a70 70 70 73 2e 21 43 68 61 72 73 22 2b bd 28 31 30 |pps.!Chars"+.(10|
00000a80 29 0d 03 98 43 20 20 20 20 20 20 20 20 65 71 75 |)...C equ|
00000a90 73 20 20 20 20 22 43 6f 6e 66 69 67 3a 25 52 75 |s "Config:%Ru|
00000aa0 6e 20 52 65 73 6f 75 72 63 65 73 3a 24 2e 41 70 |n Resources:$.Ap|
00000ab0 70 73 2e 21 43 6f 6e 66 69 67 75 72 65 22 2b bd |ps.!Configure"+.|
00000ac0 28 31 30 29 0d 03 a2 3c 20 20 20 20 20 20 20 20 |(10)...< |
00000ad0 65 71 75 73 20 20 20 20 22 44 72 61 77 3a 25 52 |equs "Draw:%R|
00000ae0 75 6e 20 52 65 73 6f 75 72 63 65 73 3a 24 2e 41 |un Resources:$.A|
00000af0 70 70 73 2e 21 44 72 61 77 22 2b bd 28 31 30 29 |pps.!Draw"+.(10)|
00000b00 0d 03 ac 3c 20 20 20 20 20 20 20 20 65 71 75 73 |...< equs|
00000b10 20 20 20 20 22 45 64 69 74 3a 25 52 75 6e 20 52 | "Edit:%Run R|
00000b20 65 73 6f 75 72 63 65 73 3a 24 2e 41 70 70 73 2e |esources:$.Apps.|
00000b30 21 45 64 69 74 22 2b bd 28 31 30 29 0d 03 b6 3c |!Edit"+.(10)...<|
00000b40 20 20 20 20 20 20 20 20 65 71 75 73 20 20 20 20 | equs |
00000b50 22 48 65 6c 70 3a 25 52 75 6e 20 52 65 73 6f 75 |"Help:%Run Resou|
00000b60 72 63 65 73 3a 24 2e 41 70 70 73 2e 21 48 65 6c |rces:$.Apps.!Hel|
00000b70 70 22 2b bd 28 31 30 29 0d 03 c0 3e 20 20 20 20 |p"+.(10)...> |
00000b80 20 20 20 20 65 71 75 73 20 20 20 20 22 50 61 69 | equs "Pai|
00000b90 6e 74 3a 25 52 75 6e 20 52 65 73 6f 75 72 63 65 |nt:%Run Resource|
00000ba0 73 3a 24 2e 41 70 70 73 2e 21 50 61 69 6e 74 22 |s:$.Apps.!Paint"|
00000bb0 2b bd 28 31 30 29 0d 03 ca 2b 20 20 20 20 20 20 |+.(10)...+ |
00000bc0 20 20 65 71 75 73 20 20 20 20 22 44 65 73 6b 74 | equs "Deskt|
00000bd0 6f 70 3a 44 65 73 6b 74 6f 70 22 2b bd 28 31 30 |op:Desktop"+.(10|
00000be0 29 0d 03 d4 0d 2e 66 69 6c 65 5f 65 6e 64 0d 03 |).....file_end..|
00000bf0 de 11 20 20 20 20 20 20 20 20 61 6c 69 67 6e 0d |.. align.|
00000c00 03 e8 0a 2e 62 6c 61 6e 6b 0d 03 f2 15 20 20 20 |....blank.... |
00000c10 20 20 20 20 20 65 71 75 64 20 20 20 20 30 0d 03 | equd 0..|
00000c20 fc 05 5d 0d 04 06 0b ed 20 70 61 73 73 25 0d 04 |..]..... pass%..|
00000c30 10 05 3a 0d 04 1a 2b c8 99 20 22 4f 53 5f 46 69 |..:...+.. "OS_Fi|
00000c40 6c 65 22 2c 31 30 2c 22 4f 6e 54 69 6d 65 22 2c |le",10,"OnTime",|
00000c50 26 66 66 61 2c 2c 63 6f 64 65 25 2c 4f 25 0d ff |&ffa,,code%,O%..|
00000c60 
.