这是一个很简单的程式，某日在度娘知道看到有人求序列型的文本生成器所以随手编的，不过度娘傲娇了，成果发不出去，我可怜的正解率……
screen 0,640,480
screen 1,640,480
exp = ""
mesbox exp,640,480,0
gsel 0
pos 60,20:button "print",*sub_print_s
a = ""
b = ""
c = 0
d = 1
pos 0,0:objsize 300,20:input a
pos 300,0:objsize 40,20:input c
pos 340,00:objsize 300,20:input b
pos 0,20:objsize 60,20:input d
stop
*sub_print_s
color 255,255,255
boxf 0,40,640,480
color 0,0,0
gsel 1,1
repeat d-c+1
e = a + (c+cnt) + b +"\n"
exp +=e
loop
objprm 0,exp
stop

翻出来后想了一下，改成这样。
screen 0,640,480
screen 1,640,480
exp = ""
mesbox exp,640,480,0
gsel 0
pos 500,30:button "print",*sub_print_s
a = ""
b = ""
c = 0
d = 1
f = 5
pos 0,10:objsize 300,20:input a
pos 300,0:objsize 40,20:input c
pos 340,10:objsize 300,20:input b
pos 300,20:objsize 40,20:input d
pos 100,60:mes "digital"
pos 174,60:input f
stop
*sub_print_s
color 255,255,255
boxf 0,40,640,480
color 0,0,0
gsel 1,1
repeat d-c+1
switch f
case 0:e = strf("%s%d%s\n",a,cnt+c,b):swbreak
case 1:e = strf("%s%d%s\n",a,cnt+c,b):swbreak
case 2:e = strf("%s%02d%s\n",a,cnt+c,b):swbreak
case 3:e = strf("%s%03d%s\n",a,cnt+c,b):swbreak
case 4:e = strf("%s%04d%s\n",a,cnt+c,b):swbreak
case 5:e = strf("%s%05d%s\n",a,cnt+c,b):swbreak
case 6:e = strf("%s%06d%s\n",a,cnt+c,b):swbreak
case 7:e = strf("%s%07d%s\n",a,cnt+c,b):swbreak
case 8:e = strf("%s%08d%s\n",a,cnt+c,b):swbreak
case 9:e = strf("%s%09d%s\n",a,cnt+c,b):swbreak
case 10:e = strf("%s%010d%s\n",a,cnt+c,b):swbreak
default:dialog "digital out of range\ndigital should between 0 to 10":end: break: swbreak
swend
exp +=e
loop
objprm 0,exp
stop