ザ・民宿といった感じです。
冷蔵庫はないし個人の風呂トイレもないけど畳の匂いに癒されました。
風呂は広かったしね。
しかし14型のブラウン管で見る地デジは小さい…
昨日までは東急インに泊まってたけどそっちもテレビはブラウン管だった。
ここら辺はその辺のサービスがまだまだ進んでなさそうです。

ふと気づいたんだけどテロップが完全地デジ対応になってますね。
アナログが生きてた頃はテロップもアナログの画面サイズに最適化されてたのが今は地デジに最適化。
これ東北のアナログが生きてる地域なんかはテロップ切れちゃわない?

WIFIなのにかなり正確な位置情報に驚いた。充分使える。
でも何気遠かった…

見た目はCOOLなんだけどPCで見ると画面が真っ白になってしまった。
使えない。
次にWPtouchというプラグインを使用する方法。

PCで見た場合は既存のテーマそのままに、モバイル端末で見るとそれ用に表示が最適化された。
これで行くことにする。

最初に参加人数と何チームを作るか入力したら、参加者が次々タッチしていくとランダムでチームが決定されるというもの。
何気に使えそう。
以下コード

LOCKORIENTATION
BCOLOR 255, 255, 255
TCOLOR 0, 0, 0
COLOR 0, 0, 0

10 INPUT "How many people?", people

IF people = 0 THEN
   GOTO 10
END IF

targetpeople$ = "Total people = " + STR$(people)
TEXTFONT "Marker Felt", 22
DRAWTEXT targetpeople$, 0, 320

IF people > 26 THEN
   mes$ = "26"
ELSE
   mes$ = STR$(people)
END IF

20 INPUT "How many teams? [2 - " + mes$ + "]", teams

IF teams > people OR teams > 26 THEN
   GOTO 20
END IF

targetteams$ = "Target teams = " + STR$(teams)
DRAWTEXT targetteams$, 0, 340

members = INT(people / teams)
left = MOD(people, teams)

DIM team(teams)

FOR i = 1 TO teams
   team(i) = members
NEXT i

IF left > 0 THEN
   FOR i = 1 TO left
      30 tmp = INT(RND * teams) + 1

      IF team(tmp) > members THEN
         GOTO 30
      END IF

      team(tmp) = team(tmp) + 1
   NEXT i
END IF

CLS tty
PRINT "Starting."

TEXTFONT "Trebuchet", 10

DIM t$(26)

FOR i = 1 TO 26
   READ t$(i)
NEXT i

RECT 50, 150, 267, 200, 1

x = 275
y = 0

FOR i = 1 TO people
   PRINT
   PRINT
   PRINT
   PRINT
   PRINT
   PRINT
   PRINT
   PRINT
   PRINT
   PRINT " No " + STR$(i) + ". Touch Here."

   loop:
   IF Touch = 1 THEN
      IF TouchX > 50 AND TouchX < 267 AND TouchY > 150 AND TouchY < 200 THEN
         PLAY 1, "C5,16"
         GOTO 40
      END IF
   END IF
   GOTO loop

   40 tmp = INT(RND * teams) + 1

   IF team(tmp) = 0 THEN
      GOTO 40
   END IF

   team(tmp) = team(tmp) - 1

   CLS tty

   PRINT "No " + STR$(i) + ". Your team is " + t$(tmp) + "."

   DRAWTEXT "No " + STR$(i) + " = " + t$(tmp), x, y * 10

   y = y + 1

   IF MOD(i, 36) = 0 THEN
      x = x - 50
      y = 0
   END IF
NEXT i

TEXTFONT "Marker Felt", 22
DRAWTEXT "Have fun!", 115, 165

DATA "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"

・対象コントロールのフォント-スタイルテキストを有効にする。
・フィールド表現に以下のように書く。

$V{TOTAL_NOHINSU}.intValue() == $V{TOTAL_JUTYUSU}.intValue() ?
$V{TOTAL_JUTYUSU}.toString() :
"<style isStrikeThrough =\"true\">" + $V{TOTAL_JUTYUSU} + "</style>"

太字や斜体もできますね。
2重取り消し線じゃなきゃダメとか言われたら無理。

そこ灰皿なんですけど…