TokenHook:
  .db $83
  inc b
  dec b
  ret nz
  push hl
  ld hl,(iMathPtr1)
  inc hl
  inc hl
  ld a,3Ah
  cp (hl)
  jr nz,tokenhook_pop1exit
  inc hl
  ld a,30h
  cp (hl)
  jr nz,tokenhook_pop1exit
  inc hl
  ld a,3Eh
  cp (hl)
  jr nz,tokenhook_pop1exit
  ld b,0
  dec d
  inc d
  ld hl,TokenTable_0
  jr z,TokenSearchLoop
  ld hl,TokenTable_1
TokenSearchLoop:
  ld a,e
  cp (hl)
  inc hl
  jr z,ChkByte2
NotTokenMatch:
  inc hl
  ld c,(hl)
  inc c
  add hl,bc
  ld a,(hl)
  or a
  jr nz,TokenSearchLoop
tokenhook_pop1exit:
  pop hl
  ret
ChkByte2:
  ld a,d
  cp (hl)
  jr nz,NotTokenMatch
  pop de
  ld de,OP1
  inc hl
  ld c,(hl)
  inc c
  ldir
  ld hl,OP1-1
  ret
NoChange:
TokenTable:
TokenTable_0:
; .db $02,0,7,"module."
 .db $02,0,1,$F2           ;►DMS (turns into "$")    
 .db $04,0,6,$05,"Float"   ;►Dec
 .db $06,0,8,5,"lFactor"   ;►Frac
 .db $28,0,4,"ins "        ;augment
 .db $36,0,7,"clrPart"     ;R►Pr
 .db $38,0,7,"runPart"     ;R►PΘ
 .db $3A,0,8,"addPart "    ;P►Rx
 .db $3C,0,9,"partType "   ;P►Ry
 .db $44,0,5,"misc "       ;solve(
 .db $58,0,1,5Fh           ;i (turns into "_")
 .db $BE,0,5,"call "       ;prgm
 .db $E6,0,5,"Mode "       ;Fix 
 .db $EC,0,3,"int"         ;Func
 .db 0                     ;End of Table 0

TokenTable_1:
 .db $38,1,5,"Rect "       ;Line(
 .db $3C,1,5,"Tile "       ;Pt-On(
 .db $3E,1,7,"Sprite "     ;Pt-Off(
 .db $40,1,8,"TileMap "    ;Pt-Change(
 .db $48,1,9,"Contrast "   ;Shade(
 .db $4E,1,9,"shiftBuf "   ;Tangent(
 .db $62,1,7,"WriteB "     ;int(
 .db $70,1,4,"Inv "        ;not(
 .db $72,1,7,"WriteW "     ;iPart(
 .db $7C,1,3,"jp "         ;ln(
; .db $7E,1,2,"2^"         ;²
 .db $A6,1,4,"For "        ;For( 
 .db $B4,1,7,"GetInc "     ;IS>(
 .db $B6,1,7,"GetDec "     ;DS<(
 .db $BC,1,7,"GetBuf "     ;Disp 
 .db $BE,1,7,"DispBuf"     ;DispGraph
 .db $C0,1,8,"GetFont "    ;Output(
 .db $CE,1,8,"MakeVar "    ;Send(
 .db $D0,1,8,"FindVar "    ;Get(
 .db $B4,3,6,"PushVar "    ;►Nom(
 .db $C2,3,4,"del "        ;sub(
 .db $C8,3,6,"inStr "      ;inString(
 .db $F4,3,5,"Play "       ;conj(
 .db $FE,3,5,"expr "       ;expr(
 .db $00,4,7,"Search "     ;length(
 .db $72,4,4,"gbuf"        ;G-T
 .db $7A,4,4,"Arch "       ;Archive
 .db $7C,4,6,"UnArch "     ;UnArchive
 .db $7E,4,4,"Asm "        ;Asm(
 .db $82,4,4,"Asm$"        ;AsmPrgm
 .db 0                     ;End of Table 1