IchigoJam MORSE TRAINERできました。

　IchigoJam Basicの練習で作っていたモールス符号練習プログラムが一応完成しました。

 

　モールス符号発生のアルゴリズムは前の記事のとおりです。スピード調節とABC順、ランダムを選択できるようにしました。

 

 

IchigoJam Basicでは、変数はA～Zで数字、文字変数は扱えません。また、INPUT命令も数字のみの入力など、かなり制限があります。

 

でも、工夫をすれば、いろいろなプログラムができそうです。

 

参考までにプログラムのリストです。

 

10 'MORSE TRAINER Ver1
20 LET [65],6,17,21,9,2,20,11,16,4,30,13,18,7,5,15,22,27,10,8,3,12,24,14,25,29,19
30 CLS:? "*** MORSE TRAINER Ver1 ***":?
40 INPUT"SPEED(1-5) ?",S
50 IF S<1 GOTO 40:IF S>5 GOTO 40
60 S=25/S:P=S*3
70 INPUT"1:ABC.. 2:RANDOM ?",M
80 IF M=1 GOTO 100
85 IF M=2 GOTO 200
90 GOTO 70
100 FOR I=65 TO 90
110 N=[I]:? CHR$(I);:GOSUB 300
120 NEXT
130 ?:GOTO 400
200 FOR I=1 TO 10
210 FOR J=1 TO 10
220 X=RND(91)
230 IF X<65 GOTO 220
240 N=[X]:? CHR$(X);:GOSUB 300
250 NEXT
260 ?
270 NEXT
280 GOTO 400
300 IF N=1 WAIT P:RETURN
310 L=N&1
320 IF L=0 THEN BEEP 13,S :WAIT S ELSE BEEP 13,P:WAIT P
330 WAIT S
340 N=N>>1
350 GOTO 300
400 ?:INPUT"PLAY AGAIN ?(Yes=1) ",Y
410 IF Y=1 GOTO 70
420 END