� Micro model checker
� by Jim Maguire
� (c) The Micro User
(� December 1990
2�getcode:�
<U� code%,micro$:� comp%=code% � � "This is a ";micro$:� � � code%=256 � � micro$:�
F� 0
P
��getcode
Zcomp%=�(-256):�
d� 0,BBC Micro MOS 0.10
n� 1,Acorn Electron MOS 1.00
x� 160,Archimedes (Arthur)
�� 161,Archimedes (RiscOS)
�!� 244,BBC Master 128 MOS 3.26
�� 251,BBC Model B+ MOS 2.00
�� 252,BBC Micro German MOS
�!� 253,BBC Master 128 MOS 3.20
�!� 254,BBC Micro MOS 1.00/1.10
�!� 255,BBC Micro MOS 1.00/1.20
�� 256,Micro unrecognised!
�

00000000  0d 00 0a 19 f4 20 4d 69  63 72 6f 20 6d 6f 64 65  |..... Micro mode|
00000010  6c 20 63 68 65 63 6b 65  72 0d 00 14 14 f4 20 62  |l checker..... b|
00000020  79 20 4a 69 6d 20 4d 61  67 75 69 72 65 0d 00 1e  |y Jim Maguire...|
00000030  18 f4 20 28 63 29 20 54  68 65 20 4d 69 63 72 6f  |.. (c) The Micro|
00000040  20 55 73 65 72 0d 00 28  13 f4 20 44 65 63 65 6d  | User..(.. Decem|
00000050  62 65 72 20 31 39 39 30  0d 00 32 0e f2 67 65 74  |ber 1990..2..get|
00000060  63 6f 64 65 3a f5 0d 00  3c 55 f3 20 63 6f 64 65  |code:...<U. code|
00000070  25 2c 6d 69 63 72 6f 24  3a e7 20 63 6f 6d 70 25  |%,micro$:. comp%|
00000080  3d 63 6f 64 65 25 20 8c  20 f1 20 22 54 68 69 73  |=code% . . "This|
00000090  20 69 73 20 61 20 22 3b  6d 69 63 72 6f 24 3a e0  | is a ";micro$:.|
000000a0  20 8b 20 e7 20 63 6f 64  65 25 3d 32 35 36 20 8c  | . . code%=256 .|
000000b0  20 f1 20 6d 69 63 72 6f  24 3a e0 0d 00 46 07 fd  | . micro$:...F..|
000000c0  20 30 0d 00 50 0d dd f2  67 65 74 63 6f 64 65 0d  | 0..P...getcode.|
000000d0  00 5a 13 63 6f 6d 70 25  3d a6 28 2d 32 35 36 29  |.Z.comp%=.(-256)|
000000e0  3a e1 0d 00 64 1a dc 20  30 2c 42 42 43 20 4d 69  |:...d.. 0,BBC Mi|
000000f0  63 72 6f 20 4d 4f 53 20  30 2e 31 30 0d 00 6e 1f  |cro MOS 0.10..n.|
00000100  dc 20 31 2c 41 63 6f 72  6e 20 45 6c 65 63 74 72  |. 1,Acorn Electr|
00000110  6f 6e 20 4d 4f 53 20 31  2e 30 30 0d 00 78 1d dc  |on MOS 1.00..x..|
00000120  20 31 36 30 2c 41 72 63  68 69 6d 65 64 65 73 20  | 160,Archimedes |
00000130  28 41 72 74 68 75 72 29  0d 00 82 1d dc 20 31 36  |(Arthur)..... 16|
00000140  31 2c 41 72 63 68 69 6d  65 64 65 73 20 28 52 69  |1,Archimedes (Ri|
00000150  73 63 4f 53 29 0d 00 8c  21 dc 20 32 34 34 2c 42  |scOS)...!. 244,B|
00000160  42 43 20 4d 61 73 74 65  72 20 31 32 38 20 4d 4f  |BC Master 128 MO|
00000170  53 20 33 2e 32 36 0d 00  96 1f dc 20 32 35 31 2c  |S 3.26..... 251,|
00000180  42 42 43 20 4d 6f 64 65  6c 20 42 2b 20 4d 4f 53  |BBC Model B+ MOS|
00000190  20 32 2e 30 30 0d 00 a0  1e dc 20 32 35 32 2c 42  | 2.00..... 252,B|
000001a0  42 43 20 4d 69 63 72 6f  20 47 65 72 6d 61 6e 20  |BC Micro German |
000001b0  4d 4f 53 0d 00 aa 21 dc  20 32 35 33 2c 42 42 43  |MOS...!. 253,BBC|
000001c0  20 4d 61 73 74 65 72 20  31 32 38 20 4d 4f 53 20  | Master 128 MOS |
000001d0  33 2e 32 30 0d 00 b4 21  dc 20 32 35 34 2c 42 42  |3.20...!. 254,BB|
000001e0  43 20 4d 69 63 72 6f 20  4d 4f 53 20 31 2e 30 30  |C Micro MOS 1.00|
000001f0  2f 31 2e 31 30 0d 00 be  21 dc 20 32 35 35 2c 42  |/1.10...!. 255,B|
00000200  42 43 20 4d 69 63 72 6f  20 4d 4f 53 20 31 2e 30  |BC Micro MOS 1.0|
00000210  30 2f 31 2e 32 30 0d 00  c8 1d dc 20 32 35 36 2c  |0/1.20..... 256,|
00000220  4d 69 63 72 6f 20 75 6e  72 65 63 6f 67 6e 69 73  |Micro unrecognis|
00000230  65 64 21 0d ff                                    |ed!..|
00000235