ô > MODE/SRC ô Select screen mode :  name$="MODE/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: MODE ":Ý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,22:Ö 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$ ÿ