• IchigoJam
• モールス信号

NEW
10 'ﾓｰﾙｽｰｼﾞｭｼﾝ
20 @ST:IFZ=0:CLS
30 IFK>0GOTO@PR
40 LC0,0:?CHR$(24);"ﾓｰﾙｽ ｼﾞｭｼﾝ"
50 LC0,2:?CHR$(24)
60 LC0,1,1:?CHR$(24);:IFA=0?"A:";:ELSE?"ｱ:";
70 M=0:X=0
80 @IL:K=INKEY():IF!KCONT
90 IFK=ASC("4")A=0:M=0:K=0:GOTO@ST
100 IFK=ASC("5")A=1:M=0:K=0:GOTO@ST
110 IFK=ASC("0")THENGOTO@LF
120 IFK=10M=X*100+M:IF !A LRUN1:ELSE LRUN2
130 M=M*2:X=X+1
140 IFK=ASC("2")?"-";:M=M+1:ELSE?"･";
150 GOTO@IL
160 @LF:LCZ%32,Z/32+3:?
170 Z=(Z/32)*32+32
180 IFZ/32>20Z=Z-32
190 M=0:K=0:GOTO@ST
200 @PR:LCZ%32,Z/32+3:?CHR$(K);
210 Z=Z+1:IFZ/32>20Z=Z-32
220 M=0:K=0:GOTO@ST

NEW
10 'ﾓｰﾙｽ IN_A
20 K=32
30 IFM=643K=33
40 IFM=618K=34
50 IFM=522K=40
60 IFM=645K=41
70 IFM=510K=43
80 IFM=651K=44
90 IFM=633K=45
100 IFM=621K=46
110 IFM=518K=47
120 IFM=531K=48
130 IFM=515K=49
140 IFM=507K=50
150 IFM=503K=51
160 IFM=501K=52
170 IFM=500K=53
180 IFM=516K=54
190 IFM=524K=55
200 IFM=528K=56
210 IFM=530K=57
220 IFM=656K=58
230 IFM=517K=61
240 IFM=612K=63
250 IFM=626K=64
260 IFM=201K=65
270 IFM=408K=66
280 IFM=410K=67
290 IFM=304K=68
300 IFM=100K=69
310 IFM=402K=70
320 IFM=306K=71
330 IFM=400K=72
340 IFM=200K=73
350 IFM=407K=74
360 IFM=305K=75
370 IFM=404K=76
380 IFM=203K=77
390 IFM=202K=78
400 IFM=307K=79
410 IFM=406K=80
420 IFM=413K=81
430 IFM=302K=82
440 IFM=300K=83
450 IFM=101K=84
460 IFM=301K=85
470 IFM=401K=86
480 IFM=303K=87
490 IFM=409K=88
500 IFM=411K=89
510 IFM=412K=90
520 LRUN0
SAVE1

NEW
10 'ﾓｰﾙｽ IN_K
20 K=32
30 IFM=645K=162
40 IFM=618K=163
50 IFM=621K=164
60 IFM=407K=166
70 IFM=513K=176
80 IFM=527K=177
90 IFM=201K=178
100 IFM=301K=179
110 IFM=523K=180
120 IFM=508K=181
130 IFM=404K=182
140 IFM=520K=183
150 IFM=401K=184
160 IFM=411K=185
170 IFM=415K=186
180 IFM=521K=187
190 IFM=526K=188
200 IFM=529K=189
210 IFM=514K=190
220 IFM=414K=191
230 IFM=202K=192
240 IFM=402K=193
250 IFM=406K=194
260 IFM=511K=195
270 IFM=504K=196
280 IFM=302K=197
290 IFM=410K=198
300 IFM=400K=199
310 IFM=413K=200
320 IFM=403K=201
330 IFM=408K=202
340 IFM=525K=203
350 IFM=412K=204
360 IFM=100K=205
370 IFM=304K=206
380 IFM=409K=207
390 IFM=505K=208
400 IFM=101K=209
410 IFM=517K=210
420 IFM=518K=211
430 IFM=303K=212
440 IFM=519K=213
450 IFM=203K=214
460 IFM=300K=215
470 IFM=306K=216
480 IFM=522K=217
490 IFM=307K=218
500 IFM=405K=219
510 IFM=305K=220
520 IFM=510K=221
530 IFM=200K=222
540 IFM=506K=223
550 LRUN0
SAVE2

CLV:LRUN0

Pagetop