ô > COLOUR/SRC ô Select text colour mode : "name$="COLOUR/COM":start%=&100 : -BDOS=5:OSWRCH=&FFEE:FCB=&5C:bdos_string=9 : Ş mcode% &100 ã P=0 ¸ 1 O%=mcode%:P%=start% [OPT P*3+4 JP Start .msgSyntax <İB 13:İB 10:İM "Syntax: COLOUR ":İB 13:İB 10:İM "$" .msgBadNumber 2İB 13:İB 10:İM "Bad number":İB 13:İB 10:İM "$" : .errBadNumber "LD DE,msgBadNumber:JR errAbort .errSyntax LD DE,msgSyntax .errAbort LD C,bdos_string:JP BDOS : .Start LD DE,FCB+1:LD A,(DE) CP —" ":JR Z,errSyntax Ö ReadDec:JR c,errBadNumber LD A,17:Ö OSWRCH LD A,C:JP OSWRCH : .ReadDec ! XOR A ".ReadDecLp #LD C,A:LD A,(DE) $&CP —"!":CCF:RET NC :\ NC=Ok %-INC DE:CP —":":CCF:RET C :\ C=Bad Number &-SUB —"0":RET C :\ C=Bad Number 'LD B,10 (.ReadDecAdd )/ADD A,C:RET C :\ C=Bad Number * DJNZ ReadDecAdd:JR ReadDecLp +: ,] -í .+A$="*SAVE "+name$+" "+Ã~mcode%+" "+Ã~O% /ñA$ ÿ