Skip to navigation

BBC Micro Elite

Text: TWOK

Name: TWOK [View in context] Type: Macro Category: Text Summary: Macro definition for two-letter tokens in the token table
The following macro is used when building the recursive token table: TWOK 'x', 'y' Insert two-letter token "xy" See the deep dive on "Printing text tokens" for details on how two-letter tokens are stored in the recursive token table.
MACRO TWOK t, k IF t = 'A' AND k = 'L' : EQUB 128 EOR 35 : ENDIF IF t = 'L' AND k = 'E' : EQUB 129 EOR 35 : ENDIF IF t = 'X' AND k = 'E' : EQUB 130 EOR 35 : ENDIF IF t = 'G' AND k = 'E' : EQUB 131 EOR 35 : ENDIF IF t = 'Z' AND k = 'A' : EQUB 132 EOR 35 : ENDIF IF t = 'C' AND k = 'E' : EQUB 133 EOR 35 : ENDIF IF t = 'B' AND k = 'I' : EQUB 134 EOR 35 : ENDIF IF t = 'S' AND k = 'O' : EQUB 135 EOR 35 : ENDIF IF t = 'U' AND k = 'S' : EQUB 136 EOR 35 : ENDIF IF t = 'E' AND k = 'S' : EQUB 137 EOR 35 : ENDIF IF t = 'A' AND k = 'R' : EQUB 138 EOR 35 : ENDIF IF t = 'M' AND k = 'A' : EQUB 139 EOR 35 : ENDIF IF t = 'I' AND k = 'N' : EQUB 140 EOR 35 : ENDIF IF t = 'D' AND k = 'I' : EQUB 141 EOR 35 : ENDIF IF t = 'R' AND k = 'E' : EQUB 142 EOR 35 : ENDIF IF t = 'A' AND k = '?' : EQUB 143 EOR 35 : ENDIF IF t = 'E' AND k = 'R' : EQUB 144 EOR 35 : ENDIF IF t = 'A' AND k = 'T' : EQUB 145 EOR 35 : ENDIF IF t = 'E' AND k = 'N' : EQUB 146 EOR 35 : ENDIF IF t = 'B' AND k = 'E' : EQUB 147 EOR 35 : ENDIF IF t = 'R' AND k = 'A' : EQUB 148 EOR 35 : ENDIF IF t = 'L' AND k = 'A' : EQUB 149 EOR 35 : ENDIF IF t = 'V' AND k = 'E' : EQUB 150 EOR 35 : ENDIF IF t = 'T' AND k = 'I' : EQUB 151 EOR 35 : ENDIF IF t = 'E' AND k = 'D' : EQUB 152 EOR 35 : ENDIF IF t = 'O' AND k = 'R' : EQUB 153 EOR 35 : ENDIF IF t = 'Q' AND k = 'U' : EQUB 154 EOR 35 : ENDIF IF t = 'A' AND k = 'N' : EQUB 155 EOR 35 : ENDIF IF t = 'T' AND k = 'E' : EQUB 156 EOR 35 : ENDIF IF t = 'I' AND k = 'S' : EQUB 157 EOR 35 : ENDIF IF t = 'R' AND k = 'I' : EQUB 158 EOR 35 : ENDIF IF t = 'O' AND k = 'N' : EQUB 159 EOR 35 : ENDIF ENDMACRO