�: EQUDEMO
� mcode &100
� pass = 0 � 3 � 3
(P% = mcode
2
[OPT pass
<OPT �equb(&12)
F#\BASIC 1 equivalent of EQUB &12
POPT �equw(&1234)
Z%\BASIC 1 equivalent of EQUW &1234
dOPT �equd(&12345678)
n)\BASIC 1 equivalent of EQUD &12345678
xOPT �equs("hello")
�'\BASIC 1 equivalent of EQUS "hello"
�]
��
��
�ݤequb(byte)
�?P%=byte
�P%=P%+1
�	=pass
�ݤequw(word)
�?P%=word � 256
�P%?1=word � 256
�P%=P%+2
�	=pass

ݤequd(double)

!P%=double

P%=P%+4

"	=pass

,ݤequs(string$)

6$P%=string$

@P%=P%+�(string$)

J	=pass
�

00000000  0d 00 0a 0e f4 3a 20 45  51 55 44 45 4d 4f 0d 00  |.....: EQUDEMO..|
00000010  14 10 de 20 6d 63 6f 64  65 20 26 31 30 30 0d 00  |... mcode &100..|
00000020  1e 16 e3 20 70 61 73 73  20 3d 20 30 20 b8 20 33  |... pass = 0 . 3|
00000030  20 88 20 33 0d 00 28 0e  50 25 20 3d 20 6d 63 6f  | . 3..(.P% = mco|
00000040  64 65 0d 00 32 0d 5b 4f  50 54 20 70 61 73 73 0d  |de..2.[OPT pass.|
00000050  00 3c 12 4f 50 54 20 a4  65 71 75 62 28 26 31 32  |.<.OPT .equb(&12|
00000060  29 0d 00 46 23 5c 42 41  53 49 43 20 31 20 65 71  |)..F#\BASIC 1 eq|
00000070  75 69 76 61 6c 65 6e 74  20 6f 66 20 45 51 55 42  |uivalent of EQUB|
00000080  20 26 31 32 0d 00 50 14  4f 50 54 20 a4 65 71 75  | &12..P.OPT .equ|
00000090  77 28 26 31 32 33 34 29  0d 00 5a 25 5c 42 41 53  |w(&1234)..Z%\BAS|
000000a0  49 43 20 31 20 65 71 75  69 76 61 6c 65 6e 74 20  |IC 1 equivalent |
000000b0  6f 66 20 45 51 55 57 20  26 31 32 33 34 0d 00 64  |of EQUW &1234..d|
000000c0  18 4f 50 54 20 a4 65 71  75 64 28 26 31 32 33 34  |.OPT .equd(&1234|
000000d0  35 36 37 38 29 0d 00 6e  29 5c 42 41 53 49 43 20  |5678)..n)\BASIC |
000000e0  31 20 65 71 75 69 76 61  6c 65 6e 74 20 6f 66 20  |1 equivalent of |
000000f0  45 51 55 44 20 26 31 32  33 34 35 36 37 38 0d 00  |EQUD &12345678..|
00000100  78 16 4f 50 54 20 a4 65  71 75 73 28 22 68 65 6c  |x.OPT .equs("hel|
00000110  6c 6f 22 29 0d 00 82 27  5c 42 41 53 49 43 20 31  |lo")...'\BASIC 1|
00000120  20 65 71 75 69 76 61 6c  65 6e 74 20 6f 66 20 45  | equivalent of E|
00000130  51 55 53 20 22 68 65 6c  6c 6f 22 0d 00 8c 05 5d  |QUS "hello"....]|
00000140  0d 00 96 05 ed 0d 00 a0  05 e0 0d 00 aa 10 dd a4  |................|
00000150  65 71 75 62 28 62 79 74  65 29 0d 00 b4 0c 3f 50  |equb(byte)....?P|
00000160  25 3d 62 79 74 65 0d 00  be 0b 50 25 3d 50 25 2b  |%=byte....P%=P%+|
00000170  31 0d 00 c8 09 3d 70 61  73 73 0d 00 d2 10 dd a4  |1....=pass......|
00000180  65 71 75 77 28 77 6f 72  64 29 0d 00 dc 12 3f 50  |equw(word)....?P|
00000190  25 3d 77 6f 72 64 20 83  20 32 35 36 0d 00 e6 13  |%=word . 256....|
000001a0  50 25 3f 31 3d 77 6f 72  64 20 81 20 32 35 36 0d  |P%?1=word . 256.|
000001b0  00 f0 0b 50 25 3d 50 25  2b 32 0d 00 fa 09 3d 70  |...P%=P%+2....=p|
000001c0  61 73 73 0d 01 04 12 dd  a4 65 71 75 64 28 64 6f  |ass......equd(do|
000001d0  75 62 6c 65 29 0d 01 0e  0e 21 50 25 3d 64 6f 75  |uble)....!P%=dou|
000001e0  62 6c 65 0d 01 18 0b 50  25 3d 50 25 2b 34 0d 01  |ble....P%=P%+4..|
000001f0  22 09 3d 70 61 73 73 0d  01 2c 13 dd a4 65 71 75  |".=pass..,...equ|
00000200  73 28 73 74 72 69 6e 67  24 29 0d 01 36 0f 24 50  |s(string$)..6.$P|
00000210  25 3d 73 74 72 69 6e 67  24 0d 01 40 14 50 25 3d  |%=string$..@.P%=|
00000220  50 25 2b a9 28 73 74 72  69 6e 67 24 29 0d 01 4a  |P%+.(string$)..J|
00000230  09 3d 70 61 73 73 0d ff                           |.=pass..|
00000238