モールス2題

1.モールス練習1(次の100から270までをコピーし、テキストファイルにして使って下さい。)
100 rem morse 
110 rem
120 morse "hello"
130 say "hello"
140 rem
150 randomize (timer)
160 a = 7
170  read q$
180 for i = 1 to 10
190  r = rnd(a)+1
200  z$ = mid$(q$,r,1)
210  morse z$
220  print z$;
230 next i
240 end
250 data "abcdefghijklmnopqrstuvwxyz,.?"
260 data "1234567890"
270 end

解説)
英文字を乱数を使って適当に打つプログラムです。ただ、初めはhelloと打ち、また喋ります。
120 morseがこのBASIC特有の命令です。次の""で囲まれた文言をモールスで打ちます。
130 say "hello"がこのBASIC特有の命令です。次の""で囲まれた文言を喋ります。
randomize,rndは乱数を発生させるもので、大概ペアーで使います。
z$のようにアルファベットに$をつけたものは、文字変数です。
readは下のdataのデーターを読み込みます。
mid$は、ある文字から文字をいくつか取り出す関数です。
190のaの数字を変えると打つ文字の種類をかえられます。


2.モールス練習2(次の100から170までをコピーし、テキストファイルにして使って下さい。)
100 rem morse2      
110 rem キー入力モールス打ち
120 print "Please push any keys (Alphabet or number only). "
130 x$ = inkey$ : if x$ = "" then goto 130
140 morse x$
150 print x$;
160 goto 130
170 end

解説)
キーボードから入力した文字をモールスで打つプログラムです。
inkey$で一文字だけキーボードから受け取ります。
goto 130で130行目に飛びます。この場合は、stopさせるまでくり返します。