10 REM modes 8,9 and 10.
   20 REM by Ian Robertson
   30 REM MODE Dimensions colors Kbs
   40 REM    8 10x32      16     10k
   50 REM    9 10x25      16      8k
   60 REM   10 20x25       4      8k
   70 REM modes 9 and 10 are called from
   80 REM Mode 6, mode 8 from Mode 5
   90 REM Syntax *CODE n (n=8,9 or 10)
  100 CD%=&900
  110 ?&200=CD%MOD256
  120 ?&201=CD%DIV256
  130 FORT%=0TO2STEP2
  140 P%=CD%
  150 [:OPT T%
  160 PHP:PHA:TXA:PHA:TYA:PHA
  170 CMP#0:BEQ SKIP
  180 .error
  190 BRK
  200 OPT FNequb(255):OPT FNequs("Syntax *CODE n (n=8,9 or 10)")
  210 BRK:.SKIP
  220 CPX#8:BEQ mode8
  230 CPX#9:BEQ mode9
  240 CPX#10:BEQ mode10
  250 JMP error
  260 .mode8
  270 LDA#22:JSR&FFEE:LDA#5:JSR&FFEE
  280 LDA#154:LDX#224:JSR&FFF4
  290 .SKIP2
  300 LDA#15:STA&360:LDA#1:STA&361:LDA#32:STA&34F:LDA#&55:STA&363:LDA#&AA:STA&362:LDA#9:STA&30A
  310 JMP RESET
  320 .mode9
  330 LDA#22:JSR&FFEE:LDA#6:JSR&FFEE
  340 LDA#154:LDX#128:JSR&FFF4
  350 JMP SKIP2
  360 .mode10
  370 LDA#22:JSR&FFEE:LDA#6:JSR&FFEE
  380 LDA#154:LDX#132:JSR&FFF4
  390 LDA#3:STA&360:LDA#2:STA&361:LDA#16:STA&34F:LDA#&55:STA&363:LDA#&AA:STA&362:LDA#19:STA&30A
  400 .RESET:LDA#20:JSR&FFEE:PLA:TAY:PLA:TAX:PLA:PLP:RTS:]
  410 NEXT
  420 END
  430 DEFFNequs(string$)
  440 $P%=string$
  450 P%=P%+LEN(string$)
  460 =T%
  470 DEFFNequb(byte%)
  480 ?P%=byte%
  490 P%=P%+1
  500 =T%