@@ 153,7 153,7 @@ JMP2r
&no-insert
POP2
( append )
- [ LIT2r &addr :mem/prg ]
+ [ LIT2r &addr =mem/prg ]
[ LIT2 &link $2 ] STH2kr STA2 INC2r INC2r
[ LIT2 &id $2 ] STH2kr STA2 INC2r INC2r
[ LIT &statement $1 ] STH2kr STA INC2r
@@ 1185,19 1185,19 @@ JMP2r
$1
@statements-tbl
- :do-let :do-goto :do-rem :do-if
- :do-gosub :do-clear :do-input :do-return
- :do-list :do-print :do-end :do-run
- ( display ) :do-color :do-cls :do-draw :do-mode :do-sprite :do-pict
- ( system ) :do-save :do-load :do-make :do-poke
+ =do-let =do-goto =do-rem =do-if
+ =do-gosub =do-clear =do-input =do-return
+ =do-list =do-print =do-end =do-run
+ ( display ) =do-color =do-cls =do-draw =do-mode =do-sprite =do-pict
+ ( system ) =do-save =do-load =do-make =do-poke
@arithmetic-tbl
- "+ :math/add "- :math/sub
- "* :math/mul "/ :math/div
- "& :math/and "| :math/ora
- "< :math/lth "> :math/gth
- "= :math/equ "! :math/neq
- "% :math/mod
+ "+ =math/add "- =math/sub
+ "* =math/mul "/ =math/div
+ "& =math/and "| =math/ora
+ "< =math/lth "> =math/gth
+ "= =math/equ "! =math/neq
+ "% =math/mod
$3
@dict
@@ 1280,7 1280,7 @@ $2
@mem
&root
- :&prg
+ =&prg
0000
00
&prg