font_size 3pt#; vpt# := 0.6pt#; mode_setup; input thaibase; screenstrokes; w_rows := floor 1/3 screen_rows; w_cols := floor 1/2 screen_cols; w_rows := 1/3(600); w_cols := 1/2(500); message "screen rows, cols " & decimal screen_rows & "," & decimal screen_cols; def open(expr k, i, j) = openwindow k from ((i-1)*w_rows,(j-1)*w_cols) to (i*w_rows, j*w_cols) at (-60, 140) enddef; def openit = open(1,1,1); open(2,1,2); open(3,2,1); open(4,2,2); open(5,3,1); open(6,3,2); enddef; openit; string params[],fontname[]; params[1] := "roman_params"; fontname[1] := "r"; params[2] := "ital_params"; fontname[2] := "i"; params[3] := "bold_params"; fontname[3] := "bx"; params[4] := "roman2_params"; fontname[4] := "rz"; params[5] := "bold2_params"; fontname[5] := "by"; params[6] := "bold3_params"; fontname[6] := "bz"; string charnum; forever: message "Enter character code (eg: a1) "; charnum := readstring; for k = 1 upto 6: if known params[k]: currentwindow := k; scantokens("input " & fontname[k]); newstyle; scantokens("input char" & charnum); fi; endfor; endfor;