Home » Archimedes archive » Acorn Computing » 1994 06 subscription disc.adf » 9406s » PD/ShutDown/ShutDown

PD/ShutDown/ShutDown

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 Computing » 1994 06 subscription disc.adf » 9406s
Filename: PD/ShutDown/ShutDown
Read OK: ✔
File size: 0C50 bytes
Load address: 0000
Exec address: 0000
File contents
   30*| Program:    !ShutDown
   40*| Purpose:    Provide shutdown facility on RISC OS 2
   50*| Author:     Gareth Boden
   60*| Copyright:  Gareth Boden 1993
   70END=TOP+5000:ONERRORVDU4,30:PRINTREPORT$;" (Internal error code ";ERL;")":END
  110SYS262336,200,&4B534154,"ShutDown" TO wimp_ver%,task_hnd%:DIM poll_blk%255:ONERROROFF
  150IF wimp_ver%>=300 THENERROR 0,"You don't need ShutDown on RISC OS 3"
  160SYS263872:ONERRORPROCerror(REPORT$+FNinterr(ERL)):quit%=-2:PROCpoll
  200PROCtemplates:quit%=FALSE:prequitref%=0:shut%=FALSE:ONERRORPROCerror(REPORT$+FNinterr(ERL)):PROCpoll
  240SYS263873:PROCpoll:END
  290DEFPROCpoll:LOCAL reason%:WHILE quit%=FALSE:PROCcallwimp:ENDWHILE:SYS262365:END:ENDPROC
  380DEFPROCcallwimp:SYS262343,%11100000110010,poll_blk%TO reason%,poll_blk%:CASE reason%OF
  410WHEN 0:IF shut%=1 THEN shut%=FALSE
  420WHEN 2:SYS262341,,poll_blk%
  430WHEN 3:IF shut%=FALSETHENSYS262342,,poll_blk%
  440WHEN 6:PROCmouseclick(poll_blk%!8,poll_blk%!12,poll_blk%!16)
  450WHEN 8:PROCkeypress(poll_blk%!24)
  460WHEN 17,18:PROCusermessage(poll_blk%)
  470WHEN 19:PROCack(poll_blk%)
  480ENDCASE:ENDPROC
  510DEFPROCmouseclick(but%,hnd%,icon%):IF (but%AND%101)ELSEENDPROC
  530CASE hnd%OF
  540WHEN w_shutdown%:IF icon%=2 THENPROCrestart
  560ENDCASE:ENDPROC
  590DEFPROCkeypress(key%):CASE key%OF
  610WHEN 13:IF shut%=TRUETHENPROCrestart
  630WHEN&1FC:IF shut%=FALSETHENPROCshutdown
  650OTHERWISE:SYS262364,key%
  660ENDCASE:ENDPROC
  690DEFPROCusermessage(blk%):CASE blk%!16 OF
  710WHEN 0:IF shut%=FALSETHEN quit%=TRUE
  730ENDCASE:ENDPROC
  760DEFPROCerror(error$):LOCAL icon%:LOCALERROR:ONERROROFF
  800SYS263874:SYS262367,STRING$(4,CHR$0)+error$,%11 TO,icon%:IF icon%=2 THEN quit%=-2 ELSERESTOREERROR
  830ENDPROC
  850DEFPROCtemplates:LOCAL temp_defs%,opensd%,shutdown_def%,opengk%,grabkeys_def%,text1%,text2%,val%:DIM temp_defs%512:FOR pass%=0 TO 2 STEP 2:P%=temp_defs%:[OPTpass%:.shutdown_def%:EQUD0:EQUD0:EQUD502:EQUD272:EQUD0:EQUD272:EQUD-1:EQUD&80000012
  950EQUD&01070207:EQUD&000C0103:EQUD0:EQUD-272:EQUD502:EQUD0:EQUD0:EQUD0:EQUD1:EQUW0:EQUW0:EQUD0:EQUD0:EQUD0:EQUD3:EQUD36:EQUD-88:EQUD(502-36):EQUD(-88+44):EQUD&C7000119:EQUDtext1%:EQUDval%:EQUD(text2%-text1%)
 1020EQUD36:EQUD-132:EQUD(502-36):EQUD(-132+44):EQUD&C7000119:EQUDtext2%:EQUDval%:EQUD(grabkeys_def%-text2%):EQUD164:EQUD-224:EQUD(502-164):EQUD(-224+44):EQUD&C701903D:EQUS"Restart":EQUB0:EQUD0
 1050.text1%EQUS"The computer is now ready":EQUB0:.text2%EQUS"to be switched off":EQUB0:.val%EQUB0:.grabkeys_def%:EQUD-1000:EQUD-1000:EQUD-980:EQUD-980:EQUD0:EQUD200:EQUD-1:EQUD&FF001052:EQUD&00070D0E:EQUD&000C0D04
 1140EQUD0:EQUD-200:EQUD244:EQUD0:EQUD&9:EQUD0:EQUD1:EQUD0:EQUS"Grab keys":EQUB0:EQUW0:EQUD0:]:NEXT:SYS262337,,shutdown_def%TO w_shutdown%:SYS262337,,grabkeys_def%TO w_grabkeys%:!temp_defs%=w_grabkeys%:SYS262347,,temp_defs%
 1250temp_defs%!28=-1:SYS262341,,temp_defs%:ENDPROC
 1290DEFPROCshutdown:shut%=1:!poll_blk%=20:poll_blk%!12=0:poll_blk%!16=8:SYS262375,18,poll_blk%,0:prequitref%=poll_blk%!8:ENDPROC
 1390DEFPROCack(poll_blk%):IF poll_blk%!8=prequitref%ELSEENDPROC
 1410!poll_blk%=20:poll_blk%!12=0:poll_blk%!16=0:SYS262375,17,poll_blk%,0:!poll_blk%=w_shutdown%:VDU26:SYS53,-1,4 TO,,xeig%:SYS53,-1,5 TO,,yeig%:SYS53,-1,11 TO,,width%:SYS53,-1,12 TO,,height%:width%=(width%+1)<<xeig%
 1540height%=(height%+1)<<yeig%:poll_blk%!4=(width%-502)DIV2:poll_blk%!8=(height%-272)DIV2:poll_blk%!12=poll_blk%!4+502:poll_blk%!16=poll_blk%!8+272:poll_blk%!20=0:poll_blk%!24=0:poll_blk%!28=-2:SYS262341,,poll_blk%:OSCLI "ShutDown"
 1730shut%=TRUE:ENDPROC
 1760DEFFNinterr(n%):=" (Internal error code "+STR$n%+")"
 1790DEFPROCrestart:DIM space%20:P%=space%:[OPT0:MOVR0,#&3800000:LDRR1,[R0,#0]:LDRR1,[R1,-R1]:SWI"XOS_EnterOS":MOVPC,#0:]:CALL space%:ENDPROC

*| Program:    !ShutDown
(9*| Purpose:    Provide shutdown facility on RISC OS 2
2*| Author:     Gareth Boden
<$*| Copyright:  Gareth Boden 1993
F:�=�P+5000:��4,30:�$;" (Internal error code ";�;")":�
nNș262336,200,&4B534154,"ShutDown" � wimp_ver%,task_hnd%:� poll_blk%255:
�@� wimp_ver%>=300 �� 0,"You don't need ShutDown on RISC OS 3"
�3ș263872:��error(�$+�interr(�)):quit%=-2:�poll
�J�templates:quit%=�:prequitref%=0:shut%=�:��error(�$+�interr(�)):�poll
�ș263873:�poll:�
"8��poll:� reason%:ȕ quit%=�:�callwimp:�:ș262365:�:�
|P��callwimp:ș262343,%11100000110010,poll_blk%� reason%,poll_blk%:Ȏ reason%�
�� 0:� shut%=1 � shut%=�
�� 2:ș262341,,poll_blk%
�%� 3:� shut%=��ș262342,,poll_blk%
�:� 6:�mouseclick(poll_blk%!8,poll_blk%!12,poll_blk%!16)
�� 8:�keypress(poll_blk%!24)
�#� 17,18:�usermessage(poll_blk%)
�� 19:�ack(poll_blk%)
��:�
�1��mouseclick(but%,hnd%,icon%):� (but%�%101)��
Ȏ hnd%�
%� w_shutdown%:� icon%=2 ��restart
0�:�
N��keypress(key%):Ȏ key%�
b� 13:� shut%=���restart
v�&1FC:� shut%=���shutdown
�:ș262364,key%
��:�
�$��usermessage(blk%):Ȏ blk%!16 �
�� 0:� shut%=�� quit%=�
��:�
�"��error(error$):� icon%:�:
 Hș263874:ș262367,�4,�0)+error$,%11 �,icon%:� icon%=2 � quit%=-2 ���
>�
R���templates:� temp_defs%,opensd%,shutdown_def%,opengk%,grabkeys_def%,text1%,text2%,val%:� temp_defs%512:� pass%=0 � 2 � 2:P%=temp_defs%:[OPTpass%:.shutdown_def%:EQUD0:EQUD0:EQUD502:EQUD272:EQUD0:EQUD272:EQUD-1:EQUD&80000012
��EQUD&01070207:EQUD&000C0103:EQUD0:EQUD-272:EQUD502:EQUD0:EQUD0:EQUD0:EQUD1:EQUW0:EQUW0:EQUD0:EQUD0:EQUD0:EQUD3:EQUD36:EQUD-88:EQUD(502-36):EQUD(-88+44):EQUD&C7000119:EQUDtext1%:EQUDval%:EQUD(text2%-text1%)
��EQUD36:EQUD-132:EQUD(502-36):EQUD(-132+44):EQUD&C7000119:EQUDtext2%:EQUDval%:EQUD(grabkeys_def%-text2%):EQUD164:EQUD-224:EQUD(502-164):EQUD(-224+44):EQUD&C701903D:EQUS"Restart":EQUB0:EQUD0
�.text1%EQUS"The computer is now ready":EQUB0:.text2%EQUS"to be switched off":EQUB0:.val%EQUB0:.grabkeys_def%:EQUD-1000:EQUD-1000:EQUD-980:EQUD-980:EQUD0:EQUD200:EQUD-1:EQUD&FF001052:EQUD&00070D0E:EQUD&000C0D04
t�EQUD0:EQUD-200:EQUD244:EQUD0:EQUD&9:EQUD0:EQUD1:EQUD0:EQUS"Grab keys":EQUB0:EQUW0:EQUD0:]:�:ș262337,,shutdown_def%� w_shutdown%:ș262337,,grabkeys_def%� w_grabkeys%:!temp_defs%=w_grabkeys%:ș262347,,temp_defs%
�+temp_defs%!28=-1:ș262341,,temp_defs%:�

t��shutdown:shut%=1:!poll_blk%=20:poll_blk%!12=0:poll_blk%!16=8:ș262375,18,poll_blk%,0:prequitref%=poll_blk%!8:�
n0��ack(poll_blk%):� poll_blk%!8=prequitref%��
��!poll_blk%=20:poll_blk%!12=0:poll_blk%!16=0:ș262375,17,poll_blk%,0:!poll_blk%=w_shutdown%:�26:ș53,-1,4 �,,xeig%:ș53,-1,5 �,,yeig%:ș53,-1,11 �,,width%:ș53,-1,12 �,,height%:width%=(width%+1)<<xeig%
�height%=(height%+1)<<yeig%:poll_blk%!4=(width%-502)�2:poll_blk%!8=(height%-272)�2:poll_blk%!12=poll_blk%!4+502:poll_blk%!16=poll_blk%!8+272:poll_blk%!20=0:poll_blk%!24=0:poll_blk%!28=-2:ș262341,,poll_blk%:� "ShutDown"
�
shut%=�:�
�2ݤinterr(n%):=" (Internal error code "+�n%+")"
�|��restart:� space%20:P%=space%:[OPT0:MOVR0,#&3800000:LDRR1,[R0,#0]:LDRR1,[R1,-R1]:SWI"XOS_EnterOS":MOVPC,#0:]:� space%:�
�
00000000  0d 00 1e 1c 2a 7c 20 50  72 6f 67 72 61 6d 3a 20  |....*| Program: |
00000010  20 20 20 21 53 68 75 74  44 6f 77 6e 0d 00 28 39  |   !ShutDown..(9|
00000020  2a 7c 20 50 75 72 70 6f  73 65 3a 20 20 20 20 50  |*| Purpose:    P|
00000030  72 6f 76 69 64 65 20 73  68 75 74 64 6f 77 6e 20  |rovide shutdown |
00000040  66 61 63 69 6c 69 74 79  20 6f 6e 20 52 49 53 43  |facility on RISC|
00000050  20 4f 53 20 32 0d 00 32  1f 2a 7c 20 41 75 74 68  | OS 2..2.*| Auth|
00000060  6f 72 3a 20 20 20 20 20  47 61 72 65 74 68 20 42  |or:     Gareth B|
00000070  6f 64 65 6e 0d 00 3c 24  2a 7c 20 43 6f 70 79 72  |oden..<$*| Copyr|
00000080  69 67 68 74 3a 20 20 47  61 72 65 74 68 20 42 6f  |ight:  Gareth Bo|
00000090  64 65 6e 20 31 39 39 33  0d 00 46 3a e0 3d b8 50  |den 1993..F:.=.P|
000000a0  2b 35 30 30 30 3a ee 85  ef 34 2c 33 30 3a f1 f6  |+5000:...4,30:..|
000000b0  24 3b 22 20 28 49 6e 74  65 72 6e 61 6c 20 65 72  |$;" (Internal er|
000000c0  72 6f 72 20 63 6f 64 65  20 22 3b 9e 3b 22 29 22  |ror code ";.;")"|
000000d0  3a e0 0d 00 6e 4e c8 99  32 36 32 33 33 36 2c 32  |:...nN..262336,2|
000000e0  30 30 2c 26 34 42 35 33  34 31 35 34 2c 22 53 68  |00,&4B534154,"Sh|
000000f0  75 74 44 6f 77 6e 22 20  b8 20 77 69 6d 70 5f 76  |utDown" . wimp_v|
00000100  65 72 25 2c 74 61 73 6b  5f 68 6e 64 25 3a de 20  |er%,task_hnd%:. |
00000110  70 6f 6c 6c 5f 62 6c 6b  25 32 35 35 3a ee 85 87  |poll_blk%255:...|
00000120  0d 00 96 40 e7 20 77 69  6d 70 5f 76 65 72 25 3e  |...@. wimp_ver%>|
00000130  3d 33 30 30 20 8c 85 20  30 2c 22 59 6f 75 20 64  |=300 .. 0,"You d|
00000140  6f 6e 27 74 20 6e 65 65  64 20 53 68 75 74 44 6f  |on't need ShutDo|
00000150  77 6e 20 6f 6e 20 52 49  53 43 20 4f 53 20 33 22  |wn on RISC OS 3"|
00000160  0d 00 a0 33 c8 99 32 36  33 38 37 32 3a ee 85 f2  |...3..263872:...|
00000170  65 72 72 6f 72 28 f6 24  2b a4 69 6e 74 65 72 72  |error(.$+.interr|
00000180  28 9e 29 29 3a 71 75 69  74 25 3d 2d 32 3a f2 70  |(.)):quit%=-2:.p|
00000190  6f 6c 6c 0d 00 c8 4a f2  74 65 6d 70 6c 61 74 65  |oll...J.template|
000001a0  73 3a 71 75 69 74 25 3d  a3 3a 70 72 65 71 75 69  |s:quit%=.:prequi|
000001b0  74 72 65 66 25 3d 30 3a  73 68 75 74 25 3d a3 3a  |tref%=0:shut%=.:|
000001c0  ee 85 f2 65 72 72 6f 72  28 f6 24 2b a4 69 6e 74  |...error(.$+.int|
000001d0  65 72 72 28 9e 29 29 3a  f2 70 6f 6c 6c 0d 00 f0  |err(.)):.poll...|
000001e0  14 c8 99 32 36 33 38 37  33 3a f2 70 6f 6c 6c 3a  |...263873:.poll:|
000001f0  e0 0d 01 22 38 dd f2 70  6f 6c 6c 3a ea 20 72 65  |..."8..poll:. re|
00000200  61 73 6f 6e 25 3a c8 95  20 71 75 69 74 25 3d a3  |ason%:.. quit%=.|
00000210  3a f2 63 61 6c 6c 77 69  6d 70 3a ce 3a c8 99 32  |:.callwimp:.:..2|
00000220  36 32 33 36 35 3a e0 3a  e1 0d 01 7c 50 dd f2 63  |62365:.:...|P..c|
00000230  61 6c 6c 77 69 6d 70 3a  c8 99 32 36 32 33 34 33  |allwimp:..262343|
00000240  2c 25 31 31 31 30 30 30  30 30 31 31 30 30 31 30  |,%11100000110010|
00000250  2c 70 6f 6c 6c 5f 62 6c  6b 25 b8 20 72 65 61 73  |,poll_blk%. reas|
00000260  6f 6e 25 2c 70 6f 6c 6c  5f 62 6c 6b 25 3a c8 8e  |on%,poll_blk%:..|
00000270  20 72 65 61 73 6f 6e 25  ca 0d 01 9a 1b c9 20 30  | reason%...... 0|
00000280  3a e7 20 73 68 75 74 25  3d 31 20 8c 20 73 68 75  |:. shut%=1 . shu|
00000290  74 25 3d a3 0d 01 a4 1b  c9 20 32 3a c8 99 32 36  |t%=...... 2:..26|
000002a0  32 33 34 31 2c 2c 70 6f  6c 6c 5f 62 6c 6b 25 0d  |2341,,poll_blk%.|
000002b0  01 ae 25 c9 20 33 3a e7  20 73 68 75 74 25 3d a3  |..%. 3:. shut%=.|
000002c0  8c c8 99 32 36 32 33 34  32 2c 2c 70 6f 6c 6c 5f  |...262342,,poll_|
000002d0  62 6c 6b 25 0d 01 b8 3a  c9 20 36 3a f2 6d 6f 75  |blk%...:. 6:.mou|
000002e0  73 65 63 6c 69 63 6b 28  70 6f 6c 6c 5f 62 6c 6b  |seclick(poll_blk|
000002f0  25 21 38 2c 70 6f 6c 6c  5f 62 6c 6b 25 21 31 32  |%!8,poll_blk%!12|
00000300  2c 70 6f 6c 6c 5f 62 6c  6b 25 21 31 36 29 0d 01  |,poll_blk%!16)..|
00000310  c2 1f c9 20 38 3a f2 6b  65 79 70 72 65 73 73 28  |... 8:.keypress(|
00000320  70 6f 6c 6c 5f 62 6c 6b  25 21 32 34 29 0d 01 cc  |poll_blk%!24)...|
00000330  23 c9 20 31 37 2c 31 38  3a f2 75 73 65 72 6d 65  |#. 17,18:.userme|
00000340  73 73 61 67 65 28 70 6f  6c 6c 5f 62 6c 6b 25 29  |ssage(poll_blk%)|
00000350  0d 01 d6 18 c9 20 31 39  3a f2 61 63 6b 28 70 6f  |..... 19:.ack(po|
00000360  6c 6c 5f 62 6c 6b 25 29  0d 01 e0 07 cb 3a e1 0d  |ll_blk%).....:..|
00000370  01 fe 31 dd f2 6d 6f 75  73 65 63 6c 69 63 6b 28  |..1..mouseclick(|
00000380  62 75 74 25 2c 68 6e 64  25 2c 69 63 6f 6e 25 29  |but%,hnd%,icon%)|
00000390  3a e7 20 28 62 75 74 25  80 25 31 30 31 29 8b e1  |:. (but%.%101)..|
000003a0  0d 02 12 0c c8 8e 20 68  6e 64 25 ca 0d 02 1c 25  |...... hnd%....%|
000003b0  c9 20 77 5f 73 68 75 74  64 6f 77 6e 25 3a e7 20  |. w_shutdown%:. |
000003c0  69 63 6f 6e 25 3d 32 20  8c f2 72 65 73 74 61 72  |icon%=2 ..restar|
000003d0  74 0d 02 30 07 cb 3a e1  0d 02 4e 1d dd f2 6b 65  |t..0..:...N...ke|
000003e0  79 70 72 65 73 73 28 6b  65 79 25 29 3a c8 8e 20  |ypress(key%):.. |
000003f0  6b 65 79 25 ca 0d 02 62  1b c9 20 31 33 3a e7 20  |key%...b.. 13:. |
00000400  73 68 75 74 25 3d b9 8c  f2 72 65 73 74 61 72 74  |shut%=...restart|
00000410  0d 02 76 1d c9 26 31 46  43 3a e7 20 73 68 75 74  |..v..&1FC:. shut|
00000420  25 3d a3 8c f2 73 68 75  74 64 6f 77 6e 0d 02 8a  |%=...shutdown...|
00000430  13 7f 3a c8 99 32 36 32  33 36 34 2c 6b 65 79 25  |..:..262364,key%|
00000440  0d 02 94 07 cb 3a e1 0d  02 b2 24 dd f2 75 73 65  |.....:....$..use|
00000450  72 6d 65 73 73 61 67 65  28 62 6c 6b 25 29 3a c8  |rmessage(blk%):.|
00000460  8e 20 62 6c 6b 25 21 31  36 20 ca 0d 02 c6 1a c9  |. blk%!16 ......|
00000470  20 30 3a e7 20 73 68 75  74 25 3d a3 8c 20 71 75  | 0:. shut%=.. qu|
00000480  69 74 25 3d b9 0d 02 da  07 cb 3a e1 0d 02 f8 22  |it%=......:...."|
00000490  dd f2 65 72 72 6f 72 28  65 72 72 6f 72 24 29 3a  |..error(error$):|
000004a0  ea 20 69 63 6f 6e 25 3a  ea 85 3a ee 85 87 0d 03  |. icon%:..:.....|
000004b0  20 48 c8 99 32 36 33 38  37 34 3a c8 99 32 36 32  | H..263874:..262|
000004c0  33 36 37 2c c4 34 2c bd  30 29 2b 65 72 72 6f 72  |367,.4,.0)+error|
000004d0  24 2c 25 31 31 20 b8 2c  69 63 6f 6e 25 3a e7 20  |$,%11 .,icon%:. |
000004e0  69 63 6f 6e 25 3d 32 20  8c 20 71 75 69 74 25 3d  |icon%=2 . quit%=|
000004f0  2d 32 20 8b f7 85 0d 03  3e 05 e1 0d 03 52 e3 dd  |-2 .....>....R..|
00000500  f2 74 65 6d 70 6c 61 74  65 73 3a ea 20 74 65 6d  |.templates:. tem|
00000510  70 5f 64 65 66 73 25 2c  6f 70 65 6e 73 64 25 2c  |p_defs%,opensd%,|
00000520  73 68 75 74 64 6f 77 6e  5f 64 65 66 25 2c 6f 70  |shutdown_def%,op|
00000530  65 6e 67 6b 25 2c 67 72  61 62 6b 65 79 73 5f 64  |engk%,grabkeys_d|
00000540  65 66 25 2c 74 65 78 74  31 25 2c 74 65 78 74 32  |ef%,text1%,text2|
00000550  25 2c 76 61 6c 25 3a de  20 74 65 6d 70 5f 64 65  |%,val%:. temp_de|
00000560  66 73 25 35 31 32 3a e3  20 70 61 73 73 25 3d 30  |fs%512:. pass%=0|
00000570  20 b8 20 32 20 88 20 32  3a 50 25 3d 74 65 6d 70  | . 2 . 2:P%=temp|
00000580  5f 64 65 66 73 25 3a 5b  4f 50 54 70 61 73 73 25  |_defs%:[OPTpass%|
00000590  3a 2e 73 68 75 74 64 6f  77 6e 5f 64 65 66 25 3a  |:.shutdown_def%:|
000005a0  45 51 55 44 30 3a 45 51  55 44 30 3a 45 51 55 44  |EQUD0:EQUD0:EQUD|
000005b0  35 30 32 3a 45 51 55 44  32 37 32 3a 45 51 55 44  |502:EQUD272:EQUD|
000005c0  30 3a 45 51 55 44 32 37  32 3a 45 51 55 44 2d 31  |0:EQUD272:EQUD-1|
000005d0  3a 45 51 55 44 26 38 30  30 30 30 30 31 32 0d 03  |:EQUD&80000012..|
000005e0  b6 d1 45 51 55 44 26 30  31 30 37 30 32 30 37 3a  |..EQUD&01070207:|
000005f0  45 51 55 44 26 30 30 30  43 30 31 30 33 3a 45 51  |EQUD&000C0103:EQ|
00000600  55 44 30 3a 45 51 55 44  2d 32 37 32 3a 45 51 55  |UD0:EQUD-272:EQU|
00000610  44 35 30 32 3a 45 51 55  44 30 3a 45 51 55 44 30  |D502:EQUD0:EQUD0|
00000620  3a 45 51 55 44 30 3a 45  51 55 44 31 3a 45 51 55  |:EQUD0:EQUD1:EQU|
00000630  57 30 3a 45 51 55 57 30  3a 45 51 55 44 30 3a 45  |W0:EQUW0:EQUD0:E|
00000640  51 55 44 30 3a 45 51 55  44 30 3a 45 51 55 44 33  |QUD0:EQUD0:EQUD3|
00000650  3a 45 51 55 44 33 36 3a  45 51 55 44 2d 38 38 3a  |:EQUD36:EQUD-88:|
00000660  45 51 55 44 28 35 30 32  2d 33 36 29 3a 45 51 55  |EQUD(502-36):EQU|
00000670  44 28 2d 38 38 2b 34 34  29 3a 45 51 55 44 26 43  |D(-88+44):EQUD&C|
00000680  37 30 30 30 31 31 39 3a  45 51 55 44 74 65 78 74  |7000119:EQUDtext|
00000690  31 25 3a 45 51 55 44 76  61 6c 25 3a 45 51 55 44  |1%:EQUDval%:EQUD|
000006a0  28 74 65 78 74 32 25 2d  74 65 78 74 31 25 29 0d  |(text2%-text1%).|
000006b0  03 fc c0 45 51 55 44 33  36 3a 45 51 55 44 2d 31  |...EQUD36:EQUD-1|
000006c0  33 32 3a 45 51 55 44 28  35 30 32 2d 33 36 29 3a  |32:EQUD(502-36):|
000006d0  45 51 55 44 28 2d 31 33  32 2b 34 34 29 3a 45 51  |EQUD(-132+44):EQ|
000006e0  55 44 26 43 37 30 30 30  31 31 39 3a 45 51 55 44  |UD&C7000119:EQUD|
000006f0  74 65 78 74 32 25 3a 45  51 55 44 76 61 6c 25 3a  |text2%:EQUDval%:|
00000700  45 51 55 44 28 67 72 61  62 6b 65 79 73 5f 64 65  |EQUD(grabkeys_de|
00000710  66 25 2d 74 65 78 74 32  25 29 3a 45 51 55 44 31  |f%-text2%):EQUD1|
00000720  36 34 3a 45 51 55 44 2d  32 32 34 3a 45 51 55 44  |64:EQUD-224:EQUD|
00000730  28 35 30 32 2d 31 36 34  29 3a 45 51 55 44 28 2d  |(502-164):EQUD(-|
00000740  32 32 34 2b 34 34 29 3a  45 51 55 44 26 43 37 30  |224+44):EQUD&C70|
00000750  31 39 30 33 44 3a 45 51  55 53 22 52 65 73 74 61  |1903D:EQUS"Resta|
00000760  72 74 22 3a 45 51 55 42  30 3a 45 51 55 44 30 0d  |rt":EQUB0:EQUD0.|
00000770  04 1a d5 2e 74 65 78 74  31 25 45 51 55 53 22 54  |....text1%EQUS"T|
00000780  68 65 20 63 6f 6d 70 75  74 65 72 20 69 73 20 6e  |he computer is n|
00000790  6f 77 20 72 65 61 64 79  22 3a 45 51 55 42 30 3a  |ow ready":EQUB0:|
000007a0  2e 74 65 78 74 32 25 45  51 55 53 22 74 6f 20 62  |.text2%EQUS"to b|
000007b0  65 20 73 77 69 74 63 68  65 64 20 6f 66 66 22 3a  |e switched off":|
000007c0  45 51 55 42 30 3a 2e 76  61 6c 25 45 51 55 42 30  |EQUB0:.val%EQUB0|
000007d0  3a 2e 67 72 61 62 6b 65  79 73 5f 64 65 66 25 3a  |:.grabkeys_def%:|
000007e0  45 51 55 44 2d 31 30 30  30 3a 45 51 55 44 2d 31  |EQUD-1000:EQUD-1|
000007f0  30 30 30 3a 45 51 55 44  2d 39 38 30 3a 45 51 55  |000:EQUD-980:EQU|
00000800  44 2d 39 38 30 3a 45 51  55 44 30 3a 45 51 55 44  |D-980:EQUD0:EQUD|
00000810  32 30 30 3a 45 51 55 44  2d 31 3a 45 51 55 44 26  |200:EQUD-1:EQUD&|
00000820  46 46 30 30 31 30 35 32  3a 45 51 55 44 26 30 30  |FF001052:EQUD&00|
00000830  30 37 30 44 30 45 3a 45  51 55 44 26 30 30 30 43  |070D0E:EQUD&000C|
00000840  30 44 30 34 0d 04 74 d6  45 51 55 44 30 3a 45 51  |0D04..t.EQUD0:EQ|
00000850  55 44 2d 32 30 30 3a 45  51 55 44 32 34 34 3a 45  |UD-200:EQUD244:E|
00000860  51 55 44 30 3a 45 51 55  44 26 39 3a 45 51 55 44  |QUD0:EQUD&9:EQUD|
00000870  30 3a 45 51 55 44 31 3a  45 51 55 44 30 3a 45 51  |0:EQUD1:EQUD0:EQ|
00000880  55 53 22 47 72 61 62 20  6b 65 79 73 22 3a 45 51  |US"Grab keys":EQ|
00000890  55 42 30 3a 45 51 55 57  30 3a 45 51 55 44 30 3a  |UB0:EQUW0:EQUD0:|
000008a0  5d 3a ed 3a c8 99 32 36  32 33 33 37 2c 2c 73 68  |]:.:..262337,,sh|
000008b0  75 74 64 6f 77 6e 5f 64  65 66 25 b8 20 77 5f 73  |utdown_def%. w_s|
000008c0  68 75 74 64 6f 77 6e 25  3a c8 99 32 36 32 33 33  |hutdown%:..26233|
000008d0  37 2c 2c 67 72 61 62 6b  65 79 73 5f 64 65 66 25  |7,,grabkeys_def%|
000008e0  b8 20 77 5f 67 72 61 62  6b 65 79 73 25 3a 21 74  |. w_grabkeys%:!t|
000008f0  65 6d 70 5f 64 65 66 73  25 3d 77 5f 67 72 61 62  |emp_defs%=w_grab|
00000900  6b 65 79 73 25 3a c8 99  32 36 32 33 34 37 2c 2c  |keys%:..262347,,|
00000910  74 65 6d 70 5f 64 65 66  73 25 0d 04 e2 2b 74 65  |temp_defs%...+te|
00000920  6d 70 5f 64 65 66 73 25  21 32 38 3d 2d 31 3a c8  |mp_defs%!28=-1:.|
00000930  99 32 36 32 33 34 31 2c  2c 74 65 6d 70 5f 64 65  |.262341,,temp_de|
00000940  66 73 25 3a e1 0d 05 0a  74 dd f2 73 68 75 74 64  |fs%:....t..shutd|
00000950  6f 77 6e 3a 73 68 75 74  25 3d 31 3a 21 70 6f 6c  |own:shut%=1:!pol|
00000960  6c 5f 62 6c 6b 25 3d 32  30 3a 70 6f 6c 6c 5f 62  |l_blk%=20:poll_b|
00000970  6c 6b 25 21 31 32 3d 30  3a 70 6f 6c 6c 5f 62 6c  |lk%!12=0:poll_bl|
00000980  6b 25 21 31 36 3d 38 3a  c8 99 32 36 32 33 37 35  |k%!16=8:..262375|
00000990  2c 31 38 2c 70 6f 6c 6c  5f 62 6c 6b 25 2c 30 3a  |,18,poll_blk%,0:|
000009a0  70 72 65 71 75 69 74 72  65 66 25 3d 70 6f 6c 6c  |prequitref%=poll|
000009b0  5f 62 6c 6b 25 21 38 3a  e1 0d 05 6e 30 dd f2 61  |_blk%!8:...n0..a|
000009c0  63 6b 28 70 6f 6c 6c 5f  62 6c 6b 25 29 3a e7 20  |ck(poll_blk%):. |
000009d0  70 6f 6c 6c 5f 62 6c 6b  25 21 38 3d 70 72 65 71  |poll_blk%!8=preq|
000009e0  75 69 74 72 65 66 25 8b  e1 0d 05 82 cc 21 70 6f  |uitref%......!po|
000009f0  6c 6c 5f 62 6c 6b 25 3d  32 30 3a 70 6f 6c 6c 5f  |ll_blk%=20:poll_|
00000a00  62 6c 6b 25 21 31 32 3d  30 3a 70 6f 6c 6c 5f 62  |blk%!12=0:poll_b|
00000a10  6c 6b 25 21 31 36 3d 30  3a c8 99 32 36 32 33 37  |lk%!16=0:..26237|
00000a20  35 2c 31 37 2c 70 6f 6c  6c 5f 62 6c 6b 25 2c 30  |5,17,poll_blk%,0|
00000a30  3a 21 70 6f 6c 6c 5f 62  6c 6b 25 3d 77 5f 73 68  |:!poll_blk%=w_sh|
00000a40  75 74 64 6f 77 6e 25 3a  ef 32 36 3a c8 99 35 33  |utdown%:.26:..53|
00000a50  2c 2d 31 2c 34 20 b8 2c  2c 78 65 69 67 25 3a c8  |,-1,4 .,,xeig%:.|
00000a60  99 35 33 2c 2d 31 2c 35  20 b8 2c 2c 79 65 69 67  |.53,-1,5 .,,yeig|
00000a70  25 3a c8 99 35 33 2c 2d  31 2c 31 31 20 b8 2c 2c  |%:..53,-1,11 .,,|
00000a80  77 69 64 74 68 25 3a c8  99 35 33 2c 2d 31 2c 31  |width%:..53,-1,1|
00000a90  32 20 b8 2c 2c 68 65 69  67 68 74 25 3a 77 69 64  |2 .,,height%:wid|
00000aa0  74 68 25 3d 28 77 69 64  74 68 25 2b 31 29 3c 3c  |th%=(width%+1)<<|
00000ab0  78 65 69 67 25 0d 06 04  de 68 65 69 67 68 74 25  |xeig%....height%|
00000ac0  3d 28 68 65 69 67 68 74  25 2b 31 29 3c 3c 79 65  |=(height%+1)<<ye|
00000ad0  69 67 25 3a 70 6f 6c 6c  5f 62 6c 6b 25 21 34 3d  |ig%:poll_blk%!4=|
00000ae0  28 77 69 64 74 68 25 2d  35 30 32 29 81 32 3a 70  |(width%-502).2:p|
00000af0  6f 6c 6c 5f 62 6c 6b 25  21 38 3d 28 68 65 69 67  |oll_blk%!8=(heig|
00000b00  68 74 25 2d 32 37 32 29  81 32 3a 70 6f 6c 6c 5f  |ht%-272).2:poll_|
00000b10  62 6c 6b 25 21 31 32 3d  70 6f 6c 6c 5f 62 6c 6b  |blk%!12=poll_blk|
00000b20  25 21 34 2b 35 30 32 3a  70 6f 6c 6c 5f 62 6c 6b  |%!4+502:poll_blk|
00000b30  25 21 31 36 3d 70 6f 6c  6c 5f 62 6c 6b 25 21 38  |%!16=poll_blk%!8|
00000b40  2b 32 37 32 3a 70 6f 6c  6c 5f 62 6c 6b 25 21 32  |+272:poll_blk%!2|
00000b50  30 3d 30 3a 70 6f 6c 6c  5f 62 6c 6b 25 21 32 34  |0=0:poll_blk%!24|
00000b60  3d 30 3a 70 6f 6c 6c 5f  62 6c 6b 25 21 32 38 3d  |=0:poll_blk%!28=|
00000b70  2d 32 3a c8 99 32 36 32  33 34 31 2c 2c 70 6f 6c  |-2:..262341,,pol|
00000b80  6c 5f 62 6c 6b 25 3a ff  20 22 53 68 75 74 44 6f  |l_blk%:. "ShutDo|
00000b90  77 6e 22 0d 06 c2 0d 73  68 75 74 25 3d b9 3a e1  |wn"....shut%=.:.|
00000ba0  0d 06 e0 32 dd a4 69 6e  74 65 72 72 28 6e 25 29  |...2..interr(n%)|
00000bb0  3a 3d 22 20 28 49 6e 74  65 72 6e 61 6c 20 65 72  |:=" (Internal er|
00000bc0  72 6f 72 20 63 6f 64 65  20 22 2b c3 6e 25 2b 22  |ror code "+.n%+"|
00000bd0  29 22 0d 06 fe 7c dd f2  72 65 73 74 61 72 74 3a  |)"...|..restart:|
00000be0  de 20 73 70 61 63 65 25  32 30 3a 50 25 3d 73 70  |. space%20:P%=sp|
00000bf0  61 63 65 25 3a 5b 4f 50  54 30 3a 4d 4f 56 52 30  |ace%:[OPT0:MOVR0|
00000c00  2c 23 26 33 38 30 30 30  30 30 3a 4c 44 52 52 31  |,#&3800000:LDRR1|
00000c10  2c 5b 52 30 2c 23 30 5d  3a 4c 44 52 52 31 2c 5b  |,[R0,#0]:LDRR1,[|
00000c20  52 31 2c 2d 52 31 5d 3a  53 57 49 22 58 4f 53 5f  |R1,-R1]:SWI"XOS_|
00000c30  45 6e 74 65 72 4f 53 22  3a 4d 4f 56 50 43 2c 23  |EnterOS":MOVPC,#|
00000c40  30 3a 5d 3a d6 20 73 70  61 63 65 25 3a e1 0d ff  |0:]:. space%:...|
00000c50

© Dominic Ford 2021–2025.

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