REM タイトル「宇宙人との交信」
REM 某有名なあのサウンドを繰り返します。
REM LEDも、それっぽく点滅。

REM サウンドデータ配列。
DIM  ARRAY[5]
DATA #B,#C,#A,#3,#7

DO
 REM あの５音を繰り返します。
 FOR O=0 TO 4
  REM LEDを流します。
  L1 = L1 + L1 REM 右に流す。
  L2 = (SFT L2) REM 左に流す。
  REM 乱数で点滅兼、ウェイト時間を生成します。
  RND(Time)
  IF Time <= 8 THEN
   L1 = L1 + 1 REM 右に追加
  ELSE
   L2 = L2 + 8 REM 左に追加
  ENDIF
  REM LEDを表示
  LED_DISP()
  REM 7セグ表示とサウンド
  $Ar = ARRAY[O]
  PRINT $Ar
  SOUND($Ar)
 NEXT
 REM ウェイト
 TIMER(Time)
UNTIL FALSE

REM タイトル「LEDイルミネーション」
REM LEDの左に光を溜め込み、一杯になると逆にLEDの右に光を溜め込みます。
REM これを繰り返すプログラムです。
REM プログラムサイズを減らすために強引なコードになってますので真似しない様に。

DATA MODE = 0 REM 右左を示すモードの初期値
DATA J = 0    REM 内側のループカウンタの初期値
DO
 REM 外側はダウンカウントします
 FOR I=7 TO 1
  L = 7 REM とりあえず番号外
  DO
   REM LEDを消す。
   LED_OFF(L)
   REM 点灯する番号を決める。MODEで右か左か決めます。
   L = J
   IF MODE = #F THEN
    L = 6 - J
   ENDIF
   REM LEDを点灯します。
   LED_ON(L)
   REM 内側のカウント
   J = J + 1
   TIMER(0)
  UNTIL I=J
  J = 0 REM ここでJを初期化するのはマシン語がコンパクトになるからです。
 NEXT
 REM モードを反転します。
 MODE=NEG(MODE)
UNTIL FALSE

REM タイトル「フラッシュ１６進暗算」
REM １６進数で表示される数値を暗算で加算せよ。
REM $Arやら$Yrやらプログラムのコンパクト化のために駆使しております。

REM ループで処理するためワザと合計を配列に入れてます。
DIM ARRAY[2]

REM 無限ループ
WHILE TRUE
 REM 初期化
 $Ar = 0
 ARRAY[0] = $Ar REM 上位の桁
 ARRAY[1] = $Ar REM 下位の桁
 PRINT $Ar

 REM 出題３つ。
 FORLOOP 3
  REM 乱数で数値を求めて出題する。
  RND(RANDOM)
  $Ar = RANDOM
  REM 表示
  PRINT $Ar
  REM 加算する
  ARRAY[1] = ADDO(ARRAY[1],$Ar,ARRAY[0])
  REM ここで表示時間を変更できます。
  TIMER( 9 )
 NEXT
 
 REM 回答入力。ADDR関数とMEM関数を使用。
 FOR $Yr = ADDR(ARRAY[0]) TO ADDR(ARRAY[1])
  REM 入力
  INPUT $Ar
  PRINT $Ar
  REM 合計と一致
  IF $Ar = MEM($Yr) THEN
   REM キーを離すのを待つ。
   WAIT_KEYOFF()
  ELSE
   REM エラーへ。
   GOTO ERROR:
  ENDIF
 NEXT
 REM 合格！　サウンド
 SOUND(ENDS)
 CONTINUE REM ループの処理に戻る

ERROR:
 REM 失敗した。
 SOUND(ERRS)
WEND