bigchars.prg

来自「用汇编语言或高级语言编写的源程序翻译成机器可执行的机器语言程序的工具称为“语言处」· PRG 代码 · 共 34 行

procedure bigchars
parameter startx,starty,instring

set blink off

if startx > 20
	return
endif

curenty = starty
curlet = 1

if "MONO" $ upper(sys(2006))
	colorvar = "n/n"
else
	colorvar = "n/b"
endif

do while curlet <= len(instring) and curenty < 89
	do case
		case substr(instring,curlet,1) = " "
			define window ("letter" + alltrim(str(curlet))) ;
				 from startx,curenty to startx + 3,curenty + 5 ;
				 none noshadow 
			activate window ("letter" + alltrim(str(curlet)))
			curenty = curenty + 6
		case substr(instring,curlet,1) = "t" 
			define window ("letter" + alltrim(str(curlet))) ;
				 from startx,curenty to startx + 5,curenty + 5 ;
				 none noshadow 
			activate window ("letter" + alltrim(str(curlet)))
			curenty = curenty + 6
			@ 0,0 say " 剟"
			@ 0,3 say "