EXE化で少しハマりつつも何とか競技ゲームの提出完了！
後は主催からNGが出なければ当日遊んで貰える事だろう。
お疲れ様でした！＞自分
まあゲーム以外の仕込みがまだ残ってるので、
引き続きそちらの作業は継続中なのである…。
自作ゲーム大運動会に提出する競技用ゲームを作成中。4
何やかんやと、本編を引き続き弄り中…。
で、気が付いたら自分が想定している完成ラインまで到達していた。
なので、条件付きコンパイルで処理分岐させ、
大運動会用/完全版用を切り替えて出力するよう変更した。
今までデバッグ/リリースを分けるくらいにしか使って来なかったので新鮮だった。
残すはこいつをexe化して主催に提出するだけや。
自作ゲーム大運動会に提出する競技用ゲームを作成中。3
Windowsバイナリへのパックも出来た。
exeファイル用に自前アイコンも準備した。
これで誰も、実はWindows以外で動いてるとは思うまい。
…言うて起動するとVBA-Mが通常サイズで立ち上がるので、
よくよく見たら気付くだろうけど。
自作ゲーム大運動会に提出する競技用ゲームを作成中。2
昨日の投稿後、興が乗って追加演出まで一気に組み込んで完成したった！
これでGBAのフェーズは一先ず終了かね。
次は「Windowsで動作するバイナリ」要件を満たす為の施策だな。
追記:
更に追加で細かい部分を微調整した。
操作説明とか表示される文言とか諸々PC向けに変更。
自作ゲーム大運動会に提出する競技用ゲームを作成中。
久しぶりにやります！2026年 自作ゲーム大運動会！
https://docs.google.com/forms/d/e/1FAIpQLSfGc22ZVz_54kl5J5omnwUt_LjMoXDJeZAlBr9d9_YR5l-ItA/viewform
D.Kさん(あるふぁ～秘密基地)主催の自作ゲーム大運動会、
こちらに提出するゲームだが何とか期限に間に合いそう。
色々あって今日から始めたけど案外何とかなるものだ。
過去作引っ張り出してサクッと競技向けに手直し。
ソースコードはもっと汚いかと思ってたけど案外そうでもなかった。
現在考えている追加演出要素は近日中に適用の予定。
ちな作成中のゲームはGBAプラットフォーム。(ｫ
「Windowsで動作するバイナリで作成せよ！」とのお達しなのだが、
これも先日検証はしていて、何とかなりそうな目途は立ってるので多分大丈夫かなと。
…次回何か作るときはちゃんとWinプラットフォームで組もうと思う。
ASCII/ANK 文字<=>コード相互変換。
しばらく見ないうちにNERD HPCでカナ文字表示がサポートされていた。
・v1.8.0 画像プレーンでのみ利用可能(GPUTC)
・v1.10.0 テキストプレーンにも対応(CHR())
今のところ文字コードの直接指定以外に表示させる手段が無いので
サクッと簡易コンバータ(ASCII/ANK 文字<=>コード相互変換)を作っておいた。
気になる方はPython3実行環境を導入して試してみてほしい。
これで情緒溢れる古のマイコンUIも思いのままに…。
textconv.py
APP_TITLE = 'ASCII/ANK 文字<=>コード相互変換' APP_VERSION = '1.0.0' APP_RELEASE = '04 Aug, 2025' APP_AUTHOR = 'REGEKATSU SOFT' print(APP_TITLE + ' [Version ' + APP_VERSION + ']') print('(c) ' + APP_AUTHOR + '. ' + APP_RELEASE + ' released.'); print('') input_type = 0 while input_type < 1 or input_type > 2: print('変換種類を選択してください。1:文字⇒コード 2:コード⇒文字 CTRL+C:終了') input_type = int(input('>>')) if input_type == 1: print('変換したい文字列(半角英数カナ記号)を入力してください。') input_str = input('>>') input_data = input_str.encode('sjis') input_lenb = len(input_data) input_count = 0 for input_value in input_data: print(f'{input_value}', end='') input_count = input_count + 1 if input_count < input_lenb: print(',', end='') elif input_type == 2: print('変換したい文字コード(カンマ区切り)を入力してください。') input_str = input('>>') input_list = input_str.split(',') for input_value in input_list: print(int(input_value).to_bytes().decode('sjis'), end='')
※実装は必要最小のため不正データの入力は想定していない。
(単純にエラーでプログラムが中断されるだけ。)
NERD HPCでじゃんけんゲーム。
NERD HPCでじゃんけんゲーム。
只じゃんけんするだけの何の変哲もないプログラム。
平坦な作りではあるがじゃんけんをコード化すると
こんな感じになるんだなーと思って見て頂ければと。
JANKEN.TXT
10 CLS 20 GCLS 30 PRINT "JANKEN GAME" 31 PRINT "version 1.0.0" 32 PRINT "REGEKATSU SOFT" 33 PRINT "07 Jul, 2025" 34 PRINT "" 35 SLEEPMS 1000 40 P=0;REM player hand 50 C=0;REM cpu hand 60 G=0;REM judge 0:draw 1:win 2:lose 70 PRINT "JAN KEN PON!" 80 INPUT "1.GOO 2.CHO 3.PAR:"P 90 IF (P<1)+(P>3) GOTO 80 100 C=RND(3) 110 PRINT "YOU:",P,".",;H=P;GOSUB 300;PRINT " ", 120 PRINT "COM:",C,".",;H=C;GOSUB 300;PRINT "" 130 IF (P=1)*(C=2) G=1 140 IF (P=2)*(C=3) G=1 150 IF (P=3)*(C=1) G=1 160 IF (P=1)*(C=3) G=2 170 IF (P=2)*(C=1) G=2 180 IF (P=3)*(C=2) G=2 190 IF P=C G=0 200 IF G=2 PRINT "YOU LOSE" 210 IF G=1 PRINT "YOU WIN!" 220 IF G=0 PRINT "AIKO DE SHO!";GOTO 80 230 INPUT "RETRY? 1.Y 2.N:"P 240 IF P=1 GOTO 70 250 IF P=2 STOP 260 GOTO 230 300 REM PUT HAND 305 REM H:HAND RET:NAME 310 IF H=1 PRINT "GOO", 320 IF H=2 PRINT "CHO", 330 IF H=3 PRINT "PAR", 399 RETURN
NERD HPCで数あてクイズ。
NERD HPCで数あてクイズ。
プログラミング入門書だと乱数処理を学んだ辺りに
サンプルとして提示されるようなゲームで
ご存じな方も居るのではなかろうか。
試せる環境があれば、軽い気持ちで遊んでみて欲しい。
KAZUATE.TXT
10 CLS 20 GCLS 30 PRINT "KAZUATE QUIZ" 31 PRINT "version 1.0.0" 32 PRINT "REGEKATSU SOFT" 33 PRINT "07 Jul, 2025" 34 PRINT "" 40 B=RND(100)-1 50 INPUT "GUESS(0-99)?:"A 60 IF (A<0)+(A>99) PRINT "GIVE UP! A=",B;GOTO 120 70 IF A=B PRINT "IT'S CORRECT!! A=",B;GOTO 120 80 IF (A=B-1)+(A=B+1) PRINT "IT'S NEAR!";GOTO 110 90 IF A>B PRINT "IT'S SMALLER." 100 IF A<B PRINT "IT'S LARGER." 110 GOTO 50 120 INPUT "RETRY? 1.Y 2.N:"A 130 IF A=1 GOTO 40 140 IF A=2 STOP 150 GOTO 120
NERD HPCで電子ピアノ+ピポ音プログラムを作ってみた。
前回公開した電子ピアノプログラムにピポ音が鳴らせるよう手を加えたもの。
ピポ音を奏でる周波数2000Hzと1000Hzの音階は12平均律には含まれず
そのままでは再生が出来ないので機能追加した感じ。
■説明 HERD HPC本体キーボードのキー行4段を使った電子ピアノ+ピポ音プログラムです。 ■使い方 1段目に半音高い(低い)黒鍵盤音を、2段目に通常の白鍵盤音を割り当てています。 また、3～4段目には1オクターブ下げた音を割り当てています。 ↑または→を押す事で鍵盤全体の音が1オクターブ上がり、 ↓または←を押す事で鍵盤全体の音が1オクターブ下がります。 オクターブは0～8の範囲で選択、ローテーションします。(初期オクターブは4です。) 1段目の右から3つのキーにはピポ音(PC-98起動音)を割り当てています。 Escを押す事でプログラムを中断(終了)します。 ■キー情報 キー,機能 1,ド♯4 2,レ♯4 3,ミ♭4 4,ファ♯4 5,ソ♯4 6,ラ♯4 7,シ♭4 8,ド♯5 9,レ♯5 0,ミ♭5 Q,ド4 W,レ4 E,ミ4 R,ファ4 T,ソ4 Y,ラ4 U,シ4 I,ド5 O,レ5 P,ミ5 A,ド♯3 S,レ♯3 D,ミ♭3 F,ファ♯3 G,ソ♯3 H,ラ♯3 J,シ♭3 K,ド♯4 L,レ♯4 ;,ミ♭4 Z,ド3 X,レ3 C,ミ3 V,ファ3 B,ソ3 N,ラ3 M,シ3 ,,ド4 .,レ4 /,ミ4 ↑,鍵盤音を1オクターブ上げる →,鍵盤音を1オクターブ上げる ↓,鍵盤音を1オクターブ下げる ←,鍵盤音を1オクターブ下げる -,ピ =,ポ `,ピポ Esc,プログラムの中断
■キーマップ表
■プログラム
NERD ELE Piano+PiPo(ELPIANO+.TXT)
0 REM 'MAIN' 10 GOSUB 1000; REM 'initialize' 20 GOSUB 2000; REM 'loop' 1000 REM 'INITIALIZE' 1010 CLS 1020 GCLS 1030 A=0; REM 'key now' 1040 B=0; REM 'key old' 1050 C=4; REM 'octave' 1060 PRINT 'NERD ELE Piano+PiPo' 1070 PRINT 'v1.0.0' 1080 PRINT '' 1090 PRINT '30 Jun, 2025' 1100 PRINT '(C)REGEKATSU SOFT' 1110 PRINT '' 1999 RETURN 2000 REM 'LOOP' 2100 REM 'INPUT' 2110 B=A 2120 A=GETKEY(0) 2200 REM 'UPDATE' 2210 IF ((A=249)+(A=252))*(A#B) C=C+1; IF C>8 C=0 2220 IF ((A=250)+(A=251))*(A#B) C=C-1; IF C<0 C=8 2230 IF ((A>=249)*(A<=252))*(A#B) PRINT "OCTAVE:",C 2300 REM 'OUTPUT' 2305 IF C=0 GOSUB 3000; GOSUB 6400; REM 'KEYBOARD OCTAVE0 BLOCK1 & OCTAVE8 BLOCK2' 2310 IF C=1 GOSUB 3400; GOSUB 3200; REM 'KEYBOARD OCTAVE1 BLOCK1 & OCTAVE0 BLOCK2' 2320 IF C=2 GOSUB 3800; GOSUB 3600; REM 'KEYBOARD OCTAVE2 BLOCK1 & OCTAVE1 BLOCK2' 2330 IF C=3 GOSUB 4200; GOSUB 4000; REM 'KEYBOARD OCTAVE3 BLOCK1 & OCTAVE2 BLOCK2' 2340 IF C=4 GOSUB 4600; GOSUB 4400; REM 'KEYBOARD OCTAVE4 BLOCK1 & OCTAVE3 BLOCK2' 2350 IF C=5 GOSUB 5000; GOSUB 4800; REM 'KEYBOARD OCTAVE5 BLOCK1 & OCTAVE4 BLOCK2' 2360 IF C=6 GOSUB 5400; GOSUB 5200; REM 'KEYBOARD OCTAVE6 BLOCK1 & OCTAVE5 BLOCK2' 2370 IF C=7 GOSUB 5800; GOSUB 5600; REM 'KEYBOARD OCTAVE7 BLOCK1 & OCTAVE6 BLOCK2' 2380 IF C=8 GOSUB 6200; GOSUB 6000; REM 'KEYBOARD OCTAVE8 BLOCK1 & OCTAVE7 BLOCK2' 2500 GOSUB 6600; REM 'PIPO SOUND BLOCK1' 2990 IF A=0 STPSND 2999 GOTO 2000 3000 REM 'keyboard #/b octave0 block1 line1' 3005 IF (A=49)*(A#B) PLYSND 17,0; PRINT 'C#0 (17Hz)' 3010 IF (A=50)*(A#B) PLYSND 19,0; PRINT 'D#0 (19Hz)' 3020 IF (A=51)*(A#B) PLYSND 19,0; PRINT 'Eb0 (19Hz)' 3030 IF (A=52)*(A#B) PLYSND 23,0; PRINT 'F#0 (23Hz)' 3040 IF (A=53)*(A#B) PLYSND 26,0; PRINT 'G#0 (26Hz)' 3050 IF (A=54)*(A#B) PLYSND 29,0; PRINT 'A#0 (29Hz)' 3060 IF (A=55)*(A#B) PLYSND 29,0; PRINT 'Bb0 (29Hz)' 3070 IF (A=56)*(A#B) PLYSND 35,0; PRINT 'C#1 (35Hz)' 3080 IF (A=57)*(A#B) PLYSND 39,0; PRINT 'D#1 (39Hz)' 3090 IF (A=48)*(A#B) PLYSND 39,0; PRINT 'Eb1 (39Hz)' 3100 REM 'keyboard normal octave0 block1 line2' 3105 IF (A=113)*(A#B) PLYSND 16,0; PRINT 'C0 (16Hz)' 3110 IF (A=119)*(A#B) PLYSND 18,0; PRINT 'D0 (18Hz)' 3120 IF (A=101)*(A#B) PLYSND 21,0; PRINT 'E0 (21Hz)' 3130 IF (A=114)*(A#B) PLYSND 22,0; PRINT 'F0 (22Hz)' 3140 IF (A=116)*(A#B) PLYSND 24,0; PRINT 'G0 (24Hz)' 3150 IF (A=121)*(A#B) PLYSND 28,0; PRINT 'A0 (28Hz)' 3160 IF (A=117)*(A#B) PLYSND 31,0; PRINT 'B0 (31Hz)' 3170 IF (A=105)*(A#B) PLYSND 33,0; PRINT 'C1 (33Hz)' 3180 IF (A=111)*(A#B) PLYSND 37,0; PRINT 'D1 (37Hz)' 3190 IF (A=112)*(A#B) PLYSND 41,0; PRINT 'E1 (41Hz)' 3199 RETURN 3200 REM 'keyboard #/b octave0 block2 line3' 3205 IF (A=97)*(A#B) PLYSND 17,0; PRINT 'C#0 (17Hz)' 3210 IF (A=115)*(A#B) PLYSND 19,0; PRINT 'D#0 (19Hz)' 3220 IF (A=100)*(A#B) PLYSND 19,0; PRINT 'Eb0 (19Hz)' 3230 IF (A=102)*(A#B) PLYSND 23,0; PRINT 'F#0 (23Hz)' 3240 IF (A=103)*(A#B) PLYSND 26,0; PRINT 'G#0 (26Hz)' 3250 IF (A=104)*(A#B) PLYSND 29,0; PRINT 'A#0 (29Hz)' 3260 IF (A=106)*(A#B) PLYSND 29,0; PRINT 'Bb0 (29Hz)' 3270 IF (A=107)*(A#B) PLYSND 35,0; PRINT 'C#1 (35Hz)' 3280 IF (A=108)*(A#B) PLYSND 39,0; PRINT 'D#1 (39Hz)' 3290 IF (A=59)*(A#B) PLYSND 39,0; PRINT 'Eb1 (39Hz)' 3300 REM 'keyboard normal octave0 block2 line4' 3305 IF (A=122)*(A#B) PLYSND 16,0; PRINT 'C0 (16Hz)' 3310 IF (A=120)*(A#B) PLYSND 18,0; PRINT 'D0 (18Hz)' 3320 IF (A=99)*(A#B) PLYSND 21,0; PRINT 'E0 (21Hz)' 3330 IF (A=118)*(A#B) PLYSND 22,0; PRINT 'F0 (22Hz)' 3340 IF (A=98)*(A#B) PLYSND 24,0; PRINT 'G0 (24Hz)' 3350 IF (A=110)*(A#B) PLYSND 28,0; PRINT 'A0 (28Hz)' 3360 IF (A=109)*(A#B) PLYSND 31,0; PRINT 'B0 (31Hz)' 3370 IF (A=44)*(A#B) PLYSND 33,0; PRINT 'C1 (33Hz)' 3380 IF (A=46)*(A#B) PLYSND 37,0; PRINT 'D1 (37Hz)' 3390 IF (A=47)*(A#B) PLYSND 41,0; PRINT 'E1 (41Hz)' 3399 RETURN 3400 REM 'keyboard #/b octave1 block1 line1' 3405 IF (A=49)*(A#B) PLYSND 35,0; PRINT 'C#1 (35Hz)' 3410 IF (A=50)*(A#B) PLYSND 39,0; PRINT 'D#1 (39Hz)' 3420 IF (A=51)*(A#B) PLYSND 39,0; PRINT 'Eb1 (39Hz)' 3430 IF (A=52)*(A#B) PLYSND 46,0; PRINT 'F#1 (46Hz)' 3440 IF (A=53)*(A#B) PLYSND 52,0; PRINT 'G#1 (52Hz)' 3450 IF (A=54)*(A#B) PLYSND 58,0; PRINT 'A#1 (58Hz)' 3460 IF (A=55)*(A#B) PLYSND 58,0; PRINT 'Bb1 (58Hz)' 3470 IF (A=56)*(A#B) PLYSND 69,0; PRINT 'C#2 (69Hz)' 3480 IF (A=57)*(A#B) PLYSND 78,0; PRINT 'D#2 (78Hz)' 3490 IF (A=48)*(A#B) PLYSND 78,0; PRINT 'Eb2 (78Hz)' 3500 REM 'keyboard normal octave1 block1 line2' 3505 IF (A=113)*(A#B) PLYSND 33,0; PRINT 'C1 (33Hz)' 3510 IF (A=119)*(A#B) PLYSND 37,0; PRINT 'D1 (37Hz)' 3520 IF (A=101)*(A#B) PLYSND 41,0; PRINT 'E1 (41Hz)' 3530 IF (A=114)*(A#B) PLYSND 44,0; PRINT 'F1 (44Hz)' 3540 IF (A=116)*(A#B) PLYSND 49,0; PRINT 'G1 (49Hz)' 3550 IF (A=121)*(A#B) PLYSND 55,0; PRINT 'A1 (55Hz)' 3560 IF (A=117)*(A#B) PLYSND 62,0; PRINT 'B1 (62Hz)' 3570 IF (A=105)*(A#B) PLYSND 65,0; PRINT 'C2 (65Hz)' 3580 IF (A=111)*(A#B) PLYSND 73,0; PRINT 'D2 (73Hz)' 3590 IF (A=112)*(A#B) PLYSND 82,0; PRINT 'E2 (82Hz)' 3599 RETURN 3600 REM 'keyboard #/b octave1 block2 line3' 3605 IF (A=97)*(A#B) PLYSND 35,0; PRINT 'C#1 (35Hz)' 3610 IF (A=115)*(A#B) PLYSND 39,0; PRINT 'D#1 (39Hz)' 3620 IF (A=100)*(A#B) PLYSND 39,0; PRINT 'Eb1 (39Hz)' 3630 IF (A=102)*(A#B) PLYSND 46,0; PRINT 'F#1 (46Hz)' 3640 IF (A=103)*(A#B) PLYSND 52,0; PRINT 'G#1 (52Hz)' 3650 IF (A=104)*(A#B) PLYSND 58,0; PRINT 'A#1 (58Hz)' 3660 IF (A=106)*(A#B) PLYSND 58,0; PRINT 'Bb1 (58Hz)' 3670 IF (A=107)*(A#B) PLYSND 69,0; PRINT 'C#2 (69Hz)' 3680 IF (A=108)*(A#B) PLYSND 78,0; PRINT 'D#2 (78Hz)' 3690 IF (A=59)*(A#B) PLYSND 78,0; PRINT 'Eb2 (78Hz)' 3700 REM 'keyboard normal octave1 block2 line4' 3705 IF (A=122)*(A#B) PLYSND 33,0; PRINT 'C1 (33Hz)' 3710 IF (A=120)*(A#B) PLYSND 37,0; PRINT 'D1 (37Hz)' 3720 IF (A=99)*(A#B) PLYSND 41,0; PRINT 'E1 (41Hz)' 3730 IF (A=118)*(A#B) PLYSND 44,0; PRINT 'F1 (44Hz)' 3740 IF (A=98)*(A#B) PLYSND 49,0; PRINT 'G1 (49Hz)' 3750 IF (A=110)*(A#B) PLYSND 55,0; PRINT 'A1 (55Hz)' 3760 IF (A=109)*(A#B) PLYSND 62,0; PRINT 'B1 (62Hz)' 3770 IF (A=44)*(A#B) PLYSND 65,0; PRINT 'C2 (65Hz)' 3780 IF (A=46)*(A#B) PLYSND 73,0; PRINT 'D2 (73Hz)' 3790 IF (A=47)*(A#B) PLYSND 82,0; PRINT 'E2 (82Hz)' 3799 RETURN 3800 REM 'keyboard #/b octave2 block1 line1' 3805 IF (A=49)*(A#B) PLYSND 69,0; PRINT 'C#2 (69Hz)' 3810 IF (A=50)*(A#B) PLYSND 78,0; PRINT 'D#2 (78Hz)' 3820 IF (A=51)*(A#B) PLYSND 78,0; PRINT 'Eb2 (78Hz)' 3830 IF (A=52)*(A#B) PLYSND 92,0; PRINT 'F#2 (92Hz)' 3840 IF (A=53)*(A#B) PLYSND 104,0; PRINT 'G#2 (104Hz)' 3850 IF (A=54)*(A#B) PLYSND 117,0; PRINT 'A#2 (117Hz)' 3860 IF (A=55)*(A#B) PLYSND 117,0; PRINT 'Bb2 (117Hz)' 3870 IF (A=56)*(A#B) PLYSND 139,0; PRINT 'C#3 (139Hz)' 3880 IF (A=57)*(A#B) PLYSND 156,0; PRINT 'D#3 (156Hz)' 3890 IF (A=48)*(A#B) PLYSND 156,0; PRINT 'Eb3 (156Hz)' 3900 REM 'keyboard normal octave2 block1 line2' 3905 IF (A=113)*(A#B) PLYSND 65,0; PRINT 'C2 (65Hz)' 3910 IF (A=119)*(A#B) PLYSND 73,0; PRINT 'D2 (73Hz)' 3920 IF (A=101)*(A#B) PLYSND 82,0; PRINT 'E2 (82Hz)' 3930 IF (A=114)*(A#B) PLYSND 87,0; PRINT 'F2 (87Hz)' 3940 IF (A=116)*(A#B) PLYSND 98,0; PRINT 'G2 (98Hz)' 3950 IF (A=121)*(A#B) PLYSND 110,0; PRINT 'A2 (110Hz)' 3960 IF (A=117)*(A#B) PLYSND 123,0; PRINT 'B2 (123Hz)' 3970 IF (A=105)*(A#B) PLYSND 131,0; PRINT 'C3 (131Hz)' 3980 IF (A=111)*(A#B) PLYSND 147,0; PRINT 'D3 (147Hz)' 3990 IF (A=112)*(A#B) PLYSND 165,0; PRINT 'E3 (165Hz)' 3999 RETURN 4000 REM 'keyboard #/b octave2 block2 line3' 4005 IF (A=97)*(A#B) PLYSND 69,0; PRINT 'C#2 (69Hz)' 4010 IF (A=115)*(A#B) PLYSND 78,0; PRINT 'D#2 (78Hz)' 4020 IF (A=100)*(A#B) PLYSND 78,0; PRINT 'Eb2 (78Hz)' 4030 IF (A=102)*(A#B) PLYSND 92,0; PRINT 'F#2 (92Hz)' 4040 IF (A=103)*(A#B) PLYSND 104,0; PRINT 'G#2 (104Hz)' 4050 IF (A=104)*(A#B) PLYSND 117,0; PRINT 'A#2 (117Hz)' 4060 IF (A=106)*(A#B) PLYSND 117,0; PRINT 'Bb2 (117Hz)' 4070 IF (A=107)*(A#B) PLYSND 139,0; PRINT 'C#3 (139Hz)' 4080 IF (A=108)*(A#B) PLYSND 156,0; PRINT 'D#3 (156Hz)' 4090 IF (A=59)*(A#B) PLYSND 156,0; PRINT 'Eb3 (156Hz)' 4100 REM 'keyboard normal octave2 block2 line4' 4105 IF (A=122)*(A#B) PLYSND 65,0; PRINT 'C2 (65Hz)' 4110 IF (A=120)*(A#B) PLYSND 73,0; PRINT 'D2 (73Hz)' 4120 IF (A=99)*(A#B) PLYSND 82,0; PRINT 'E2 (82Hz)' 4130 IF (A=118)*(A#B) PLYSND 87,0; PRINT 'F2 (87Hz)' 4140 IF (A=98)*(A#B) PLYSND 98,0; PRINT 'G2 (98Hz)' 4150 IF (A=110)*(A#B) PLYSND 110,0; PRINT 'A2 (110Hz)' 4160 IF (A=109)*(A#B) PLYSND 123,0; PRINT 'B2 (123Hz)' 4170 IF (A=44)*(A#B) PLYSND 131,0; PRINT 'C3 (131Hz)' 4180 IF (A=46)*(A#B) PLYSND 147,0; PRINT 'D3 (147Hz)' 4190 IF (A=47)*(A#B) PLYSND 165,0; PRINT 'E3 (165Hz)' 4199 RETURN 4200 REM 'keyboard #/b octave3 block1 line1' 4205 IF (A=49)*(A#B) PLYSND 139,0; PRINT 'C#3 (139Hz)' 4210 IF (A=50)*(A#B) PLYSND 156,0; PRINT 'D#3 (156Hz)' 4220 IF (A=51)*(A#B) PLYSND 156,0; PRINT 'Eb3 (156Hz)' 4230 IF (A=52)*(A#B) PLYSND 185,0; PRINT 'F#3 (185Hz)' 4240 IF (A=53)*(A#B) PLYSND 208,0; PRINT 'G#3 (208Hz)' 4250 IF (A=54)*(A#B) PLYSND 233,0; PRINT 'A#3 (233Hz)' 4260 IF (A=55)*(A#B) PLYSND 233,0; PRINT 'Bb3 (233Hz)' 4270 IF (A=56)*(A#B) PLYSND 277,0; PRINT 'C#4 (277Hz)' 4280 IF (A=57)*(A#B) PLYSND 311,0; PRINT 'D#4 (311Hz)' 4290 IF (A=48)*(A#B) PLYSND 311,0; PRINT 'Eb4 (311Hz)' 4300 REM 'keyboard normal octave3 block1 line2' 4305 IF (A=113)*(A#B) PLYSND 131,0; PRINT 'C3 (131Hz)' 4310 IF (A=119)*(A#B) PLYSND 147,0; PRINT 'D3 (147Hz)' 4320 IF (A=101)*(A#B) PLYSND 165,0; PRINT 'E3 (165Hz)' 4330 IF (A=114)*(A#B) PLYSND 175,0; PRINT 'F3 (175Hz)' 4340 IF (A=116)*(A#B) PLYSND 196,0; PRINT 'G3 (196Hz)' 4350 IF (A=121)*(A#B) PLYSND 220,0; PRINT 'A3 (220Hz)' 4360 IF (A=117)*(A#B) PLYSND 247,0; PRINT 'B3 (247Hz)' 4370 IF (A=105)*(A#B) PLYSND 262,0; PRINT 'C4 (262Hz)' 4380 IF (A=111)*(A#B) PLYSND 294,0; PRINT 'D4 (294Hz)' 4390 IF (A=112)*(A#B) PLYSND 330,0; PRINT 'E4 (330Hz)' 4399 RETURN 4400 REM 'keyboard #/b octave3 block2 line3' 4405 IF (A=97)*(A#B) PLYSND 139,0; PRINT 'C#3 (139Hz)' 4410 IF (A=115)*(A#B) PLYSND 156,0; PRINT 'D#3 (156Hz)' 4420 IF (A=100)*(A#B) PLYSND 156,0; PRINT 'Eb3 (156Hz)' 4430 IF (A=102)*(A#B) PLYSND 185,0; PRINT 'F#3 (185Hz)' 4440 IF (A=103)*(A#B) PLYSND 208,0; PRINT 'G#3 (208Hz)' 4450 IF (A=104)*(A#B) PLYSND 233,0; PRINT 'A#3 (233Hz)' 4460 IF (A=106)*(A#B) PLYSND 233,0; PRINT 'Bb3 (233Hz)' 4470 IF (A=107)*(A#B) PLYSND 277,0; PRINT 'C#4 (277Hz)' 4480 IF (A=108)*(A#B) PLYSND 311,0; PRINT 'D#4 (311Hz)' 4490 IF (A=59)*(A#B) PLYSND 311,0; PRINT 'Eb4 (311Hz)' 4500 REM 'keyboard normal octave3 block2 line4' 4505 IF (A=122)*(A#B) PLYSND 131,0; PRINT 'C3 (131Hz)' 4510 IF (A=120)*(A#B) PLYSND 147,0; PRINT 'D3 (147Hz)' 4520 IF (A=99)*(A#B) PLYSND 165,0; PRINT 'E3 (165Hz)' 4530 IF (A=118)*(A#B) PLYSND 175,0; PRINT 'F3 (175Hz)' 4540 IF (A=98)*(A#B) PLYSND 196,0; PRINT 'G3 (196Hz)' 4550 IF (A=110)*(A#B) PLYSND 220,0; PRINT 'A3 (220Hz)' 4560 IF (A=109)*(A#B) PLYSND 247,0; PRINT 'B3 (247Hz)' 4570 IF (A=44)*(A#B) PLYSND 262,0; PRINT 'C4 (262Hz)' 4580 IF (A=46)*(A#B) PLYSND 294,0; PRINT 'D4 (294Hz)' 4590 IF (A=47)*(A#B) PLYSND 330,0; PRINT 'E4 (330Hz)' 4599 RETURN 4600 REM 'keyboard #/b octave4 block1 line1' 4605 IF (A=49)*(A#B) PLYSND 277,0; PRINT 'C#4 (277Hz)' 4610 IF (A=50)*(A#B) PLYSND 311,0; PRINT 'D#4 (311Hz)' 4620 IF (A=51)*(A#B) PLYSND 311,0; PRINT 'Eb4 (311Hz)' 4630 IF (A=52)*(A#B) PLYSND 370,0; PRINT 'F#4 (370Hz)' 4640 IF (A=53)*(A#B) PLYSND 415,0; PRINT 'G#4 (415Hz)' 4650 IF (A=54)*(A#B) PLYSND 466,0; PRINT 'A#4 (466Hz)' 4660 IF (A=55)*(A#B) PLYSND 466,0; PRINT 'Bb4 (466Hz)' 4670 IF (A=56)*(A#B) PLYSND 554,0; PRINT 'C#5 (554Hz)' 4680 IF (A=57)*(A#B) PLYSND 622,0; PRINT 'D#5 (622Hz)' 4690 IF (A=48)*(A#B) PLYSND 622,0; PRINT 'Eb5 (622Hz)' 4700 REM 'keyboard normal octave4 block1 line2' 4705 IF (A=113)*(A#B) PLYSND 262,0; PRINT 'C4 (262Hz)' 4710 IF (A=119)*(A#B) PLYSND 294,0; PRINT 'D4 (294Hz)' 4720 IF (A=101)*(A#B) PLYSND 330,0; PRINT 'E4 (330Hz)' 4730 IF (A=114)*(A#B) PLYSND 349,0; PRINT 'F4 (349Hz)' 4740 IF (A=116)*(A#B) PLYSND 392,0; PRINT 'G4 (392Hz)' 4750 IF (A=121)*(A#B) PLYSND 440,0; PRINT 'A4 (440Hz)' 4760 IF (A=117)*(A#B) PLYSND 494,0; PRINT 'B4 (494Hz)' 4770 IF (A=105)*(A#B) PLYSND 523,0; PRINT 'C5 (523Hz)' 4780 IF (A=111)*(A#B) PLYSND 587,0; PRINT 'D5 (587Hz)' 4790 IF (A=112)*(A#B) PLYSND 659,0; PRINT 'E5 (659Hz)' 4799 RETURN 4800 REM 'keyboard #/b octave4 block2 line3' 4805 IF (A=97)*(A#B) PLYSND 277,0; PRINT 'C#4 (277Hz)' 4810 IF (A=115)*(A#B) PLYSND 311,0; PRINT 'D#4 (311Hz)' 4820 IF (A=100)*(A#B) PLYSND 311,0; PRINT 'Eb4 (311Hz)' 4830 IF (A=102)*(A#B) PLYSND 370,0; PRINT 'F#4 (370Hz)' 4840 IF (A=103)*(A#B) PLYSND 415,0; PRINT 'G#4 (415Hz)' 4850 IF (A=104)*(A#B) PLYSND 466,0; PRINT 'A#4 (466Hz)' 4860 IF (A=106)*(A#B) PLYSND 466,0; PRINT 'Bb4 (466Hz)' 4870 IF (A=107)*(A#B) PLYSND 554,0; PRINT 'C#5 (554Hz)' 4880 IF (A=108)*(A#B) PLYSND 622,0; PRINT 'D#5 (622Hz)' 4890 IF (A=59)*(A#B) PLYSND 622,0; PRINT 'Eb5 (622Hz)' 4900 REM 'keyboard normal octave4 block2 line4' 4905 IF (A=122)*(A#B) PLYSND 262,0; PRINT 'C4 (262Hz)' 4910 IF (A=120)*(A#B) PLYSND 294,0; PRINT 'D4 (294Hz)' 4920 IF (A=99)*(A#B) PLYSND 330,0; PRINT 'E4 (330Hz)' 4930 IF (A=118)*(A#B) PLYSND 349,0; PRINT 'F4 (349Hz)' 4940 IF (A=98)*(A#B) PLYSND 392,0; PRINT 'G4 (392Hz)' 4950 IF (A=110)*(A#B) PLYSND 440,0; PRINT 'A4 (440Hz)' 4960 IF (A=109)*(A#B) PLYSND 494,0; PRINT 'B4 (494Hz)' 4970 IF (A=44)*(A#B) PLYSND 523,0; PRINT 'C5 (523Hz)' 4980 IF (A=46)*(A#B) PLYSND 587,0; PRINT 'D5 (587Hz)' 4990 IF (A=47)*(A#B) PLYSND 659,0; PRINT 'E5 (659Hz)' 4999 RETURN 5000 REM 'keyboard #/b octave5 block1 line1' 5005 IF (A=49)*(A#B) PLYSND 554,0; PRINT 'C#5 (554Hz)' 5010 IF (A=50)*(A#B) PLYSND 622,0; PRINT 'D#5 (622Hz)' 5020 IF (A=51)*(A#B) PLYSND 622,0; PRINT 'Eb5 (622Hz)' 5030 IF (A=52)*(A#B) PLYSND 740,0; PRINT 'F#5 (740Hz)' 5040 IF (A=53)*(A#B) PLYSND 831,0; PRINT 'G#5 (831Hz)' 5050 IF (A=54)*(A#B) PLYSND 932,0; PRINT 'A#5 (932Hz)' 5060 IF (A=55)*(A#B) PLYSND 932,0; PRINT 'Bb5 (932Hz)' 5070 IF (A=56)*(A#B) PLYSND 1109,0; PRINT 'C#6 (1109Hz)' 5080 IF (A=57)*(A#B) PLYSND 1245,0; PRINT 'D#6 (1245Hz)' 5090 IF (A=48)*(A#B) PLYSND 1245,0; PRINT 'Eb6 (1245Hz)' 5100 REM 'keyboard normal octave5 block1 line2' 5105 IF (A=113)*(A#B) PLYSND 523,0; PRINT 'C5 (523Hz)' 5110 IF (A=119)*(A#B) PLYSND 587,0; PRINT 'D5 (587Hz)' 5120 IF (A=101)*(A#B) PLYSND 659,0; PRINT 'E5 (659Hz)' 5130 IF (A=114)*(A#B) PLYSND 698,0; PRINT 'F5 (698Hz)' 5140 IF (A=116)*(A#B) PLYSND 784,0; PRINT 'G5 (784Hz)' 5150 IF (A=121)*(A#B) PLYSND 880,0; PRINT 'A5 (880Hz)' 5160 IF (A=117)*(A#B) PLYSND 988,0; PRINT 'B5 (988Hz)' 5170 IF (A=105)*(A#B) PLYSND 1047,0; PRINT 'C6 (1047Hz)' 5180 IF (A=111)*(A#B) PLYSND 1175,0; PRINT 'D6 (1175Hz)' 5190 IF (A=112)*(A#B) PLYSND 1319,0; PRINT 'E6 (1319Hz)' 5199 RETURN 5200 REM 'keyboard #/b octave5 block2 line3' 5205 IF (A=97)*(A#B) PLYSND 554,0; PRINT 'C#5 (554Hz)' 5210 IF (A=115)*(A#B) PLYSND 622,0; PRINT 'D#5 (622Hz)' 5220 IF (A=100)*(A#B) PLYSND 622,0; PRINT 'Eb5 (622Hz)' 5230 IF (A=102)*(A#B) PLYSND 740,0; PRINT 'F#5 (740Hz)' 5240 IF (A=103)*(A#B) PLYSND 831,0; PRINT 'G#5 (831Hz)' 5250 IF (A=104)*(A#B) PLYSND 932,0; PRINT 'A#5 (932Hz)' 5260 IF (A=106)*(A#B) PLYSND 932,0; PRINT 'Bb5 (932Hz)' 5270 IF (A=107)*(A#B) PLYSND 1109,0; PRINT 'C#6 (1109Hz)' 5280 IF (A=108)*(A#B) PLYSND 1245,0; PRINT 'D#6 (1245Hz)' 5290 IF (A=59)*(A#B) PLYSND 1245,0; PRINT 'Eb6 (1245Hz)' 5300 REM 'keyboard normal octave5 block2 line4' 5305 IF (A=122)*(A#B) PLYSND 523,0; PRINT 'C5 (523Hz)' 5310 IF (A=120)*(A#B) PLYSND 587,0; PRINT 'D5 (587Hz)' 5320 IF (A=99)*(A#B) PLYSND 659,0; PRINT 'E5 (659Hz)' 5330 IF (A=118)*(A#B) PLYSND 698,0; PRINT 'F5 (698Hz)' 5340 IF (A=98)*(A#B) PLYSND 784,0; PRINT 'G5 (784Hz)' 5350 IF (A=110)*(A#B) PLYSND 880,0; PRINT 'A5 (880Hz)' 5360 IF (A=109)*(A#B) PLYSND 988,0; PRINT 'B5 (988Hz)' 5370 IF (A=44)*(A#B) PLYSND 1047,0; PRINT 'C6 (1047Hz)' 5380 IF (A=46)*(A#B) PLYSND 1175,0; PRINT 'D6 (1175Hz)' 5390 IF (A=47)*(A#B) PLYSND 1319,0; PRINT 'E6 (1319Hz)' 5399 RETURN 5400 REM 'keyboard #/b octave6 block1 line1' 5405 IF (A=49)*(A#B) PLYSND 1109,0; PRINT 'C#6 (1109Hz)' 5410 IF (A=50)*(A#B) PLYSND 1245,0; PRINT 'D#6 (1245Hz)' 5420 IF (A=51)*(A#B) PLYSND 1245,0; PRINT 'Eb6 (1245Hz)' 5430 IF (A=52)*(A#B) PLYSND 1480,0; PRINT 'F#6 (1480Hz)' 5440 IF (A=53)*(A#B) PLYSND 1661,0; PRINT 'G#6 (1661Hz)' 5450 IF (A=54)*(A#B) PLYSND 1865,0; PRINT 'A#6 (1865Hz)' 5460 IF (A=55)*(A#B) PLYSND 1865,0; PRINT 'Bb6 (1865Hz)' 5470 IF (A=56)*(A#B) PLYSND 2217,0; PRINT 'C#7 (2217Hz)' 5480 IF (A=57)*(A#B) PLYSND 2489,0; PRINT 'D#7 (2489Hz)' 5490 IF (A=48)*(A#B) PLYSND 2489,0; PRINT 'Eb7 (2489Hz)' 5500 REM 'keyboard normal octave6 block1 line2' 5505 IF (A=113)*(A#B) PLYSND 1047,0; PRINT 'C6 (1047Hz)' 5510 IF (A=119)*(A#B) PLYSND 1175,0; PRINT 'D6 (1175Hz)' 5520 IF (A=101)*(A#B) PLYSND 1319,0; PRINT 'E6 (1319Hz)' 5530 IF (A=114)*(A#B) PLYSND 1397,0; PRINT 'F6 (1397Hz)' 5540 IF (A=116)*(A#B) PLYSND 1568,0; PRINT 'G6 (1568Hz)' 5550 IF (A=121)*(A#B) PLYSND 1760,0; PRINT 'A6 (1760Hz)' 5560 IF (A=117)*(A#B) PLYSND 1976,0; PRINT 'B6 (1976Hz)' 5570 IF (A=105)*(A#B) PLYSND 2093,0; PRINT 'C7 (2093Hz)' 5580 IF (A=111)*(A#B) PLYSND 2349,0; PRINT 'D7 (2349Hz)' 5590 IF (A=112)*(A#B) PLYSND 2637,0; PRINT 'E7 (2637Hz)' 5599 RETURN 5600 REM 'keyboard #/b octave6 block2 line3' 5605 IF (A=97)*(A#B) PLYSND 1109,0; PRINT 'C#6 (1109Hz)' 5610 IF (A=115)*(A#B) PLYSND 1245,0; PRINT 'D#6 (1245Hz)' 5620 IF (A=100)*(A#B) PLYSND 1245,0; PRINT 'Eb6 (1245Hz)' 5630 IF (A=102)*(A#B) PLYSND 1480,0; PRINT 'F#6 (1480Hz)' 5640 IF (A=103)*(A#B) PLYSND 1661,0; PRINT 'G#6 (1661Hz)' 5650 IF (A=104)*(A#B) PLYSND 1865,0; PRINT 'A#6 (1865Hz)' 5660 IF (A=106)*(A#B) PLYSND 1865,0; PRINT 'Bb6 (1865Hz)' 5670 IF (A=107)*(A#B) PLYSND 2217,0; PRINT 'C#7 (2217Hz)' 5680 IF (A=108)*(A#B) PLYSND 2489,0; PRINT 'D#7 (2489Hz)' 5690 IF (A=59)*(A#B) PLYSND 2489,0; PRINT 'Eb7 (2489Hz)' 5700 REM 'keyboard normal octave6 block2 line4' 5705 IF (A=122)*(A#B) PLYSND 1047,0; PRINT 'C6 (1047Hz)' 5710 IF (A=120)*(A#B) PLYSND 1175,0; PRINT 'D6 (1175Hz)' 5720 IF (A=99)*(A#B) PLYSND 1319,0; PRINT 'E6 (1319Hz)' 5730 IF (A=118)*(A#B) PLYSND 1397,0; PRINT 'F6 (1397Hz)' 5740 IF (A=98)*(A#B) PLYSND 1568,0; PRINT 'G6 (1568Hz)' 5750 IF (A=110)*(A#B) PLYSND 1760,0; PRINT 'A6 (1760Hz)' 5760 IF (A=109)*(A#B) PLYSND 1976,0; PRINT 'B6 (1976Hz)' 5770 IF (A=44)*(A#B) PLYSND 2093,0; PRINT 'C7 (2093Hz)' 5780 IF (A=46)*(A#B) PLYSND 2349,0; PRINT 'D7 (2349Hz)' 5790 IF (A=47)*(A#B) PLYSND 2637,0; PRINT 'E7 (2637Hz)' 5799 RETURN 5800 REM 'keyboard #/b octave7 block1 line1' 5805 IF (A=49)*(A#B) PLYSND 2217,0; PRINT 'C#7 (2217Hz)' 5810 IF (A=50)*(A#B) PLYSND 2489,0; PRINT 'D#7 (2489Hz)' 5820 IF (A=51)*(A#B) PLYSND 2489,0; PRINT 'Eb7 (2489Hz)' 5830 IF (A=52)*(A#B) PLYSND 2960,0; PRINT 'F#7 (2960Hz)' 5840 IF (A=53)*(A#B) PLYSND 3322,0; PRINT 'G#7 (3322Hz)' 5850 IF (A=54)*(A#B) PLYSND 3729,0; PRINT 'A#7 (3729Hz)' 5860 IF (A=55)*(A#B) PLYSND 3729,0; PRINT 'Bb7 (3729Hz)' 5870 IF (A=56)*(A#B) PLYSND 4435,0; PRINT 'C#8 (4435Hz)' 5880 IF (A=57)*(A#B) PLYSND 4978,0; PRINT 'D#8 (4978Hz)' 5890 IF (A=48)*(A#B) PLYSND 4978,0; PRINT 'Eb8 (4978Hz)' 5900 REM 'keyboard normal octave7 block1 line2' 5905 IF (A=113)*(A#B) PLYSND 2093,0; PRINT 'C7 (2093Hz)' 5910 IF (A=119)*(A#B) PLYSND 2349,0; PRINT 'D7 (2349Hz)' 5920 IF (A=101)*(A#B) PLYSND 2637,0; PRINT 'E7 (2637Hz)' 5930 IF (A=114)*(A#B) PLYSND 2794,0; PRINT 'F7 (2794Hz)' 5940 IF (A=116)*(A#B) PLYSND 3136,0; PRINT 'G7 (3136Hz)' 5950 IF (A=121)*(A#B) PLYSND 3520,0; PRINT 'A7 (3520Hz)' 5960 IF (A=117)*(A#B) PLYSND 3951,0; PRINT 'B7 (3951Hz)' 5970 IF (A=105)*(A#B) PLYSND 4186,0; PRINT 'C8 (4186Hz)' 5980 IF (A=111)*(A#B) PLYSND 4699,0; PRINT 'D8 (4699Hz)' 5990 IF (A=112)*(A#B) PLYSND 5274,0; PRINT 'E8 (5274Hz)' 5999 RETURN 6000 REM 'keyboard #/b octave7 block2 line3' 6005 IF (A=97)*(A#B) PLYSND 2217,0; PRINT 'C#7 (2217Hz)' 6010 IF (A=115)*(A#B) PLYSND 2489,0; PRINT 'D#7 (2489Hz)' 6020 IF (A=100)*(A#B) PLYSND 2489,0; PRINT 'Eb7 (2489Hz)' 6030 IF (A=102)*(A#B) PLYSND 2960,0; PRINT 'F#7 (2960Hz)' 6040 IF (A=103)*(A#B) PLYSND 3322,0; PRINT 'G#7 (3322Hz)' 6050 IF (A=104)*(A#B) PLYSND 3729,0; PRINT 'A#7 (3729Hz)' 6060 IF (A=106)*(A#B) PLYSND 3729,0; PRINT 'Bb7 (3729Hz)' 6070 IF (A=107)*(A#B) PLYSND 4435,0; PRINT 'C#8 (4435Hz)' 6080 IF (A=108)*(A#B) PLYSND 4978,0; PRINT 'D#8 (4978Hz)' 6090 IF (A=59)*(A#B) PLYSND 4978,0; PRINT 'Eb8 (4978Hz)' 6100 REM 'keyboard normal octave7 block2 line4' 6105 IF (A=122)*(A#B) PLYSND 2093,0; PRINT 'C7 (2093Hz)' 6110 IF (A=120)*(A#B) PLYSND 2349,0; PRINT 'D7 (2349Hz)' 6120 IF (A=99)*(A#B) PLYSND 2637,0; PRINT 'E7 (2637Hz)' 6130 IF (A=118)*(A#B) PLYSND 2794,0; PRINT 'F7 (2794Hz)' 6140 IF (A=98)*(A#B) PLYSND 3136,0; PRINT 'G7 (3136Hz)' 6150 IF (A=110)*(A#B) PLYSND 3520,0; PRINT 'A7 (3520Hz)' 6160 IF (A=109)*(A#B) PLYSND 3951,0; PRINT 'B7 (3951Hz)' 6170 IF (A=44)*(A#B) PLYSND 4186,0; PRINT 'C8 (4186Hz)' 6180 IF (A=46)*(A#B) PLYSND 4699,0; PRINT 'D8 (4699Hz)' 6190 IF (A=47)*(A#B) PLYSND 5274,0; PRINT 'E8 (5274Hz)' 6199 RETURN 6200 REM 'keyboard #/b octave8 block1 line1' 6205 IF (A=49)*(A#B) PLYSND 4435,0; PRINT 'C#8 (4435Hz)' 6210 IF (A=50)*(A#B) PLYSND 4978,0; PRINT 'D#8 (4978Hz)' 6220 IF (A=51)*(A#B) PLYSND 4978,0; PRINT 'Eb8 (4978Hz)' 6230 IF (A=52)*(A#B) PLYSND 5920,0; PRINT 'F#8 (5920Hz)' 6240 IF (A=53)*(A#B) PLYSND 6645,0; PRINT 'G#8 (6645Hz)' 6250 IF (A=54)*(A#B) PLYSND 7459,0; PRINT 'A#8 (7459Hz)' 6260 IF (A=55)*(A#B) PLYSND 7459,0; PRINT 'Bb8 (7459Hz)' 6270 IF (A=56)*(A#B) PLYSND 17,0; PRINT 'C#0 (17Hz)' 6280 IF (A=57)*(A#B) PLYSND 19,0; PRINT 'D#0 (19Hz)' 6290 IF (A=48)*(A#B) PLYSND 19,0; PRINT 'Eb0 (19Hz)' 6300 REM 'keyboard normal octave8 block1 line2' 6305 IF (A=113)*(A#B) PLYSND 4186,0; PRINT 'C8 (4186Hz)' 6310 IF (A=119)*(A#B) PLYSND 4699,0; PRINT 'D8 (4699Hz)' 6320 IF (A=101)*(A#B) PLYSND 5274,0; PRINT 'E8 (5274Hz)' 6330 IF (A=114)*(A#B) PLYSND 5588,0; PRINT 'F8 (5588Hz)' 6340 IF (A=116)*(A#B) PLYSND 6272,0; PRINT 'G8 (6272Hz)' 6350 IF (A=121)*(A#B) PLYSND 7040,0; PRINT 'A8 (7040Hz)' 6360 IF (A=117)*(A#B) PLYSND 7902,0; PRINT 'B8 (7902Hz)' 6370 IF (A=105)*(A#B) PLYSND 16,0; PRINT 'C0 (16Hz)' 6380 IF (A=111)*(A#B) PLYSND 18,0; PRINT 'D0 (18Hz)' 6390 IF (A=112)*(A#B) PLYSND 21,0; PRINT 'E0 (21Hz)' 6399 RETURN 6400 REM 'keyboard #/b octave8 block2 line3' 6405 IF (A=97)*(A#B) PLYSND 4435,0; PRINT 'C#8 (4435Hz)' 6410 IF (A=115)*(A#B) PLYSND 4978,0; PRINT 'D#8 (4978Hz)' 6420 IF (A=100)*(A#B) PLYSND 4978,0; PRINT 'Eb8 (4978Hz)' 6430 IF (A=102)*(A#B) PLYSND 5920,0; PRINT 'F#8 (5920Hz)' 6440 IF (A=103)*(A#B) PLYSND 6645,0; PRINT 'G#8 (6645Hz)' 6450 IF (A=104)*(A#B) PLYSND 7459,0; PRINT 'A#8 (7459Hz)' 6460 IF (A=106)*(A#B) PLYSND 7459,0; PRINT 'Bb8 (7459Hz)' 6470 IF (A=107)*(A#B) PLYSND 17,0; PRINT 'C#0 (17Hz)' 6480 IF (A=108)*(A#B) PLYSND 19,0; PRINT 'D#0 (19Hz)' 6490 IF (A=59)*(A#B) PLYSND 19,0; PRINT 'Eb0 (19Hz)' 6500 REM 'keyboard normal octave8 block2 line4' 6505 IF (A=122)*(A#B) PLYSND 4186,0; PRINT 'C8 (4186Hz)' 6510 IF (A=120)*(A#B) PLYSND 4699,0; PRINT 'D8 (4699Hz)' 6520 IF (A=99)*(A#B) PLYSND 5274,0; PRINT 'E8 (5274Hz)' 6530 IF (A=118)*(A#B) PLYSND 5588,0; PRINT 'F8 (5588Hz)' 6540 IF (A=98)*(A#B) PLYSND 6272,0; PRINT 'G8 (6272Hz)' 6550 IF (A=110)*(A#B) PLYSND 7040,0; PRINT 'A8 (7040Hz)' 6560 IF (A=109)*(A#B) PLYSND 7902,0; PRINT 'B8 (7902Hz)' 6570 IF (A=44)*(A#B) PLYSND 16,0; PRINT 'C0 (16Hz)' 6580 IF (A=46)*(A#B) PLYSND 18,0; PRINT 'D0 (18Hz)' 6590 IF (A=47)*(A#B) PLYSND 21,0; PRINT 'E0 (21Hz)' 6599 RETURN 6600 REM 'PiPo sound block1 line1 left 3 keys' 6610 IF (A=45)*(A#B) PLYSND 2000,0; PRINT 'Pi (2000Hz)' 6620 IF (A=61)*(A#B) PLYSND 1000,0; PRINT 'Po (1000Hz)' 6630 IF (A=96) PLYSND 2000,125; PRINT 'Pi (2000Hz)' 6640 IF (A=96) PLYSND 1000,125; PRINT 'Po (1000Hz)' 6699 RETURN
NERD HPCで電子ピアノプログラムを作ってみた。
先週開催されたレトロゲームDEアソビバin東京にて手に入れた
NERD HPCなる同人ベースのポケコンで何か実用的なものを作ろうと思い立ち、
楽曲打込時の耳コピ用途に使えそうな(?)電子ピアノプログラムを組んでみた。
取っ掛かりは13行で書かれた公式サンプルのピアノプログラム。
このマシン、音を鳴らすまでの敷居がすこぶる低くて良きポイントだと言えよう。
なお、リテラル値や冗長的な記述が多いのは現在の言語仕様故であり、
今後の進化・発展に期待を寄せる次第である。
■説明 HERD HPC本体キーボードのキー行4段を使った電子ピアノプログラムです。 ■使い方 1段目に半音高い(低い)黒鍵盤音を、2段目に通常の白鍵盤音を割り当てています。 また、3～4段目には1オクターブ下げた音を割り当てています。 ↑または→を押す事で鍵盤全体の音が1オクターブ上がり、 ↓または←を押す事で鍵盤全体の音が1オクターブ下がります。 オクターブは0～8の範囲で選択、ローテーションします。(初期オクターブは4です。) Escを押す事でプログラムを中断(終了)します。 ■キー情報 キー,機能 1,ド♯4 2,レ♯4 3,ミ♭4 4,ファ♯4 5,ソ♯4 6,ラ♯4 7,シ♭4 8,ド♯5 9,レ♯5 0,ミ♭5 Q,ド4 W,レ4 E,ミ4 R,ファ4 T,ソ4 Y,ラ4 U,シ4 I,ド5 O,レ5 P,ミ5 A,ド♯3 S,レ♯3 D,ミ♭3 F,ファ♯3 G,ソ♯3 H,ラ♯3 J,シ♭3 K,ド♯4 L,レ♯4 ;,ミ♭4 Z,ド3 X,レ3 C,ミ3 V,ファ3 B,ソ3 N,ラ3 M,シ3 ,,ド4 .,レ4 /,ミ4 ↑,鍵盤音を1オクターブ上げる →,鍵盤音を1オクターブ上げる ↓,鍵盤音を1オクターブ下げる ←,鍵盤音を1オクターブ下げる Esc,プログラムの中断
■キーマップ表
■プログラム
NERD ELE Piano(ELEPIANO.TXT)
0 REM 'MAIN' 10 GOSUB 1000; REM 'initialize' 20 GOSUB 2000; REM 'loop' 1000 REM 'INITIALIZE' 1010 CLS 1020 GCLS 1030 A=0; REM 'key now' 1040 B=0; REM 'key old' 1050 C=4; REM 'octave' 1060 PRINT 'NERD ELE Piano' 1070 PRINT 'v1.0.0' 1080 PRINT '' 1090 PRINT '28 Jun, 2025' 1100 PRINT '(C)REGEKATSU SOFT' 1110 PRINT '' 1999 RETURN 2000 REM 'LOOP' 2100 REM 'INPUT' 2110 B=A 2120 A=GETKEY(0) 2200 REM 'UPDATE' 2210 IF ((A=249)+(A=252))*(A#B) C=C+1; IF C>8 C=0 2220 IF ((A=250)+(A=251))*(A#B) C=C-1; IF C<0 C=8 2230 IF ((A>=249)*(A<=252))*(A#B) PRINT "OCTAVE:",C 2300 REM 'OUTPUT' 2305 IF C=0 GOSUB 3000; GOSUB 6400; REM 'KEYBOARD OCTAVE0 BLOCK1 & OCTAVE8 BLOCK2' 2310 IF C=1 GOSUB 3400; GOSUB 3200; REM 'KEYBOARD OCTAVE1 BLOCK1 & OCTAVE0 BLOCK2' 2320 IF C=2 GOSUB 3800; GOSUB 3600; REM 'KEYBOARD OCTAVE2 BLOCK1 & OCTAVE1 BLOCK2' 2330 IF C=3 GOSUB 4200; GOSUB 4000; REM 'KEYBOARD OCTAVE3 BLOCK1 & OCTAVE2 BLOCK2' 2340 IF C=4 GOSUB 4600; GOSUB 4400; REM 'KEYBOARD OCTAVE4 BLOCK1 & OCTAVE3 BLOCK2' 2350 IF C=5 GOSUB 5000; GOSUB 4800; REM 'KEYBOARD OCTAVE5 BLOCK1 & OCTAVE4 BLOCK2' 2360 IF C=6 GOSUB 5400; GOSUB 5200; REM 'KEYBOARD OCTAVE6 BLOCK1 & OCTAVE5 BLOCK2' 2370 IF C=7 GOSUB 5800; GOSUB 5600; REM 'KEYBOARD OCTAVE7 BLOCK1 & OCTAVE6 BLOCK2' 2380 IF C=8 GOSUB 6200; GOSUB 6000; REM 'KEYBOARD OCTAVE8 BLOCK1 & OCTAVE7 BLOCK2' 2990 IF A=0 STPSND 2999 GOTO 2000 3000 REM 'keyboard #/b octave0 block1 line1' 3005 IF (A=49)*(A#B) PLYSND 17,0; PRINT 'C#0 (17Hz)' 3010 IF (A=50)*(A#B) PLYSND 19,0; PRINT 'D#0 (19Hz)' 3020 IF (A=51)*(A#B) PLYSND 19,0; PRINT 'Eb0 (19Hz)' 3030 IF (A=52)*(A#B) PLYSND 23,0; PRINT 'F#0 (23Hz)' 3040 IF (A=53)*(A#B) PLYSND 26,0; PRINT 'G#0 (26Hz)' 3050 IF (A=54)*(A#B) PLYSND 29,0; PRINT 'A#0 (29Hz)' 3060 IF (A=55)*(A#B) PLYSND 29,0; PRINT 'Bb0 (29Hz)' 3070 IF (A=56)*(A#B) PLYSND 35,0; PRINT 'C#1 (35Hz)' 3080 IF (A=57)*(A#B) PLYSND 39,0; PRINT 'D#1 (39Hz)' 3090 IF (A=48)*(A#B) PLYSND 39,0; PRINT 'Eb1 (39Hz)' 3100 REM 'keyboard normal octave0 block1 line2' 3105 IF (A=113)*(A#B) PLYSND 16,0; PRINT 'C0 (16Hz)' 3110 IF (A=119)*(A#B) PLYSND 18,0; PRINT 'D0 (18Hz)' 3120 IF (A=101)*(A#B) PLYSND 21,0; PRINT 'E0 (21Hz)' 3130 IF (A=114)*(A#B) PLYSND 22,0; PRINT 'F0 (22Hz)' 3140 IF (A=116)*(A#B) PLYSND 24,0; PRINT 'G0 (24Hz)' 3150 IF (A=121)*(A#B) PLYSND 28,0; PRINT 'A0 (28Hz)' 3160 IF (A=117)*(A#B) PLYSND 31,0; PRINT 'B0 (31Hz)' 3170 IF (A=105)*(A#B) PLYSND 33,0; PRINT 'C1 (33Hz)' 3180 IF (A=111)*(A#B) PLYSND 37,0; PRINT 'D1 (37Hz)' 3190 IF (A=112)*(A#B) PLYSND 41,0; PRINT 'E1 (41Hz)' 3199 RETURN 3200 REM 'keyboard #/b octave0 block2 line3' 3205 IF (A=97)*(A#B) PLYSND 17,0; PRINT 'C#0 (17Hz)' 3210 IF (A=115)*(A#B) PLYSND 19,0; PRINT 'D#0 (19Hz)' 3220 IF (A=100)*(A#B) PLYSND 19,0; PRINT 'Eb0 (19Hz)' 3230 IF (A=102)*(A#B) PLYSND 23,0; PRINT 'F#0 (23Hz)' 3240 IF (A=103)*(A#B) PLYSND 26,0; PRINT 'G#0 (26Hz)' 3250 IF (A=104)*(A#B) PLYSND 29,0; PRINT 'A#0 (29Hz)' 3260 IF (A=106)*(A#B) PLYSND 29,0; PRINT 'Bb0 (29Hz)' 3270 IF (A=107)*(A#B) PLYSND 35,0; PRINT 'C#1 (35Hz)' 3280 IF (A=108)*(A#B) PLYSND 39,0; PRINT 'D#1 (39Hz)' 3290 IF (A=59)*(A#B) PLYSND 39,0; PRINT 'Eb1 (39Hz)' 3300 REM 'keyboard normal octave0 block2 line4' 3305 IF (A=122)*(A#B) PLYSND 16,0; PRINT 'C0 (16Hz)' 3310 IF (A=120)*(A#B) PLYSND 18,0; PRINT 'D0 (18Hz)' 3320 IF (A=99)*(A#B) PLYSND 21,0; PRINT 'E0 (21Hz)' 3330 IF (A=118)*(A#B) PLYSND 22,0; PRINT 'F0 (22Hz)' 3340 IF (A=98)*(A#B) PLYSND 24,0; PRINT 'G0 (24Hz)' 3350 IF (A=110)*(A#B) PLYSND 28,0; PRINT 'A0 (28Hz)' 3360 IF (A=109)*(A#B) PLYSND 31,0; PRINT 'B0 (31Hz)' 3370 IF (A=44)*(A#B) PLYSND 33,0; PRINT 'C1 (33Hz)' 3380 IF (A=46)*(A#B) PLYSND 37,0; PRINT 'D1 (37Hz)' 3390 IF (A=47)*(A#B) PLYSND 41,0; PRINT 'E1 (41Hz)' 3399 RETURN 3400 REM 'keyboard #/b octave1 block1 line1' 3405 IF (A=49)*(A#B) PLYSND 35,0; PRINT 'C#1 (35Hz)' 3410 IF (A=50)*(A#B) PLYSND 39,0; PRINT 'D#1 (39Hz)' 3420 IF (A=51)*(A#B) PLYSND 39,0; PRINT 'Eb1 (39Hz)' 3430 IF (A=52)*(A#B) PLYSND 46,0; PRINT 'F#1 (46Hz)' 3440 IF (A=53)*(A#B) PLYSND 52,0; PRINT 'G#1 (52Hz)' 3450 IF (A=54)*(A#B) PLYSND 58,0; PRINT 'A#1 (58Hz)' 3460 IF (A=55)*(A#B) PLYSND 58,0; PRINT 'Bb1 (58Hz)' 3470 IF (A=56)*(A#B) PLYSND 69,0; PRINT 'C#2 (69Hz)' 3480 IF (A=57)*(A#B) PLYSND 78,0; PRINT 'D#2 (78Hz)' 3490 IF (A=48)*(A#B) PLYSND 78,0; PRINT 'Eb2 (78Hz)' 3500 REM 'keyboard normal octave1 block1 line2' 3505 IF (A=113)*(A#B) PLYSND 33,0; PRINT 'C1 (33Hz)' 3510 IF (A=119)*(A#B) PLYSND 37,0; PRINT 'D1 (37Hz)' 3520 IF (A=101)*(A#B) PLYSND 41,0; PRINT 'E1 (41Hz)' 3530 IF (A=114)*(A#B) PLYSND 44,0; PRINT 'F1 (44Hz)' 3540 IF (A=116)*(A#B) PLYSND 49,0; PRINT 'G1 (49Hz)' 3550 IF (A=121)*(A#B) PLYSND 55,0; PRINT 'A1 (55Hz)' 3560 IF (A=117)*(A#B) PLYSND 62,0; PRINT 'B1 (62Hz)' 3570 IF (A=105)*(A#B) PLYSND 65,0; PRINT 'C2 (65Hz)' 3580 IF (A=111)*(A#B) PLYSND 73,0; PRINT 'D2 (73Hz)' 3590 IF (A=112)*(A#B) PLYSND 82,0; PRINT 'E2 (82Hz)' 3599 RETURN 3600 REM 'keyboard #/b octave1 block2 line3' 3605 IF (A=97)*(A#B) PLYSND 35,0; PRINT 'C#1 (35Hz)' 3610 IF (A=115)*(A#B) PLYSND 39,0; PRINT 'D#1 (39Hz)' 3620 IF (A=100)*(A#B) PLYSND 39,0; PRINT 'Eb1 (39Hz)' 3630 IF (A=102)*(A#B) PLYSND 46,0; PRINT 'F#1 (46Hz)' 3640 IF (A=103)*(A#B) PLYSND 52,0; PRINT 'G#1 (52Hz)' 3650 IF (A=104)*(A#B) PLYSND 58,0; PRINT 'A#1 (58Hz)' 3660 IF (A=106)*(A#B) PLYSND 58,0; PRINT 'Bb1 (58Hz)' 3670 IF (A=107)*(A#B) PLYSND 69,0; PRINT 'C#2 (69Hz)' 3680 IF (A=108)*(A#B) PLYSND 78,0; PRINT 'D#2 (78Hz)' 3690 IF (A=59)*(A#B) PLYSND 78,0; PRINT 'Eb2 (78Hz)' 3700 REM 'keyboard normal octave1 block2 line4' 3705 IF (A=122)*(A#B) PLYSND 33,0; PRINT 'C1 (33Hz)' 3710 IF (A=120)*(A#B) PLYSND 37,0; PRINT 'D1 (37Hz)' 3720 IF (A=99)*(A#B) PLYSND 41,0; PRINT 'E1 (41Hz)' 3730 IF (A=118)*(A#B) PLYSND 44,0; PRINT 'F1 (44Hz)' 3740 IF (A=98)*(A#B) PLYSND 49,0; PRINT 'G1 (49Hz)' 3750 IF (A=110)*(A#B) PLYSND 55,0; PRINT 'A1 (55Hz)' 3760 IF (A=109)*(A#B) PLYSND 62,0; PRINT 'B1 (62Hz)' 3770 IF (A=44)*(A#B) PLYSND 65,0; PRINT 'C2 (65Hz)' 3780 IF (A=46)*(A#B) PLYSND 73,0; PRINT 'D2 (73Hz)' 3790 IF (A=47)*(A#B) PLYSND 82,0; PRINT 'E2 (82Hz)' 3799 RETURN 3800 REM 'keyboard #/b octave2 block1 line1' 3805 IF (A=49)*(A#B) PLYSND 69,0; PRINT 'C#2 (69Hz)' 3810 IF (A=50)*(A#B) PLYSND 78,0; PRINT 'D#2 (78Hz)' 3820 IF (A=51)*(A#B) PLYSND 78,0; PRINT 'Eb2 (78Hz)' 3830 IF (A=52)*(A#B) PLYSND 92,0; PRINT 'F#2 (92Hz)' 3840 IF (A=53)*(A#B) PLYSND 104,0; PRINT 'G#2 (104Hz)' 3850 IF (A=54)*(A#B) PLYSND 117,0; PRINT 'A#2 (117Hz)' 3860 IF (A=55)*(A#B) PLYSND 117,0; PRINT 'Bb2 (117Hz)' 3870 IF (A=56)*(A#B) PLYSND 139,0; PRINT 'C#3 (139Hz)' 3880 IF (A=57)*(A#B) PLYSND 156,0; PRINT 'D#3 (156Hz)' 3890 IF (A=48)*(A#B) PLYSND 156,0; PRINT 'Eb3 (156Hz)' 3900 REM 'keyboard normal octave2 block1 line2' 3905 IF (A=113)*(A#B) PLYSND 65,0; PRINT 'C2 (65Hz)' 3910 IF (A=119)*(A#B) PLYSND 73,0; PRINT 'D2 (73Hz)' 3920 IF (A=101)*(A#B) PLYSND 82,0; PRINT 'E2 (82Hz)' 3930 IF (A=114)*(A#B) PLYSND 87,0; PRINT 'F2 (87Hz)' 3940 IF (A=116)*(A#B) PLYSND 98,0; PRINT 'G2 (98Hz)' 3950 IF (A=121)*(A#B) PLYSND 110,0; PRINT 'A2 (110Hz)' 3960 IF (A=117)*(A#B) PLYSND 123,0; PRINT 'B2 (123Hz)' 3970 IF (A=105)*(A#B) PLYSND 131,0; PRINT 'C3 (131Hz)' 3980 IF (A=111)*(A#B) PLYSND 147,0; PRINT 'D3 (147Hz)' 3990 IF (A=112)*(A#B) PLYSND 165,0; PRINT 'E3 (165Hz)' 3999 RETURN 4000 REM 'keyboard #/b octave2 block2 line3' 4005 IF (A=97)*(A#B) PLYSND 69,0; PRINT 'C#2 (69Hz)' 4010 IF (A=115)*(A#B) PLYSND 78,0; PRINT 'D#2 (78Hz)' 4020 IF (A=100)*(A#B) PLYSND 78,0; PRINT 'Eb2 (78Hz)' 4030 IF (A=102)*(A#B) PLYSND 92,0; PRINT 'F#2 (92Hz)' 4040 IF (A=103)*(A#B) PLYSND 104,0; PRINT 'G#2 (104Hz)' 4050 IF (A=104)*(A#B) PLYSND 117,0; PRINT 'A#2 (117Hz)' 4060 IF (A=106)*(A#B) PLYSND 117,0; PRINT 'Bb2 (117Hz)' 4070 IF (A=107)*(A#B) PLYSND 139,0; PRINT 'C#3 (139Hz)' 4080 IF (A=108)*(A#B) PLYSND 156,0; PRINT 'D#3 (156Hz)' 4090 IF (A=59)*(A#B) PLYSND 156,0; PRINT 'Eb3 (156Hz)' 4100 REM 'keyboard normal octave2 block2 line4' 4105 IF (A=122)*(A#B) PLYSND 65,0; PRINT 'C2 (65Hz)' 4110 IF (A=120)*(A#B) PLYSND 73,0; PRINT 'D2 (73Hz)' 4120 IF (A=99)*(A#B) PLYSND 82,0; PRINT 'E2 (82Hz)' 4130 IF (A=118)*(A#B) PLYSND 87,0; PRINT 'F2 (87Hz)' 4140 IF (A=98)*(A#B) PLYSND 98,0; PRINT 'G2 (98Hz)' 4150 IF (A=110)*(A#B) PLYSND 110,0; PRINT 'A2 (110Hz)' 4160 IF (A=109)*(A#B) PLYSND 123,0; PRINT 'B2 (123Hz)' 4170 IF (A=44)*(A#B) PLYSND 131,0; PRINT 'C3 (131Hz)' 4180 IF (A=46)*(A#B) PLYSND 147,0; PRINT 'D3 (147Hz)' 4190 IF (A=47)*(A#B) PLYSND 165,0; PRINT 'E3 (165Hz)' 4199 RETURN 4200 REM 'keyboard #/b octave3 block1 line1' 4205 IF (A=49)*(A#B) PLYSND 139,0; PRINT 'C#3 (139Hz)' 4210 IF (A=50)*(A#B) PLYSND 156,0; PRINT 'D#3 (156Hz)' 4220 IF (A=51)*(A#B) PLYSND 156,0; PRINT 'Eb3 (156Hz)' 4230 IF (A=52)*(A#B) PLYSND 185,0; PRINT 'F#3 (185Hz)' 4240 IF (A=53)*(A#B) PLYSND 208,0; PRINT 'G#3 (208Hz)' 4250 IF (A=54)*(A#B) PLYSND 233,0; PRINT 'A#3 (233Hz)' 4260 IF (A=55)*(A#B) PLYSND 233,0; PRINT 'Bb3 (233Hz)' 4270 IF (A=56)*(A#B) PLYSND 277,0; PRINT 'C#4 (277Hz)' 4280 IF (A=57)*(A#B) PLYSND 311,0; PRINT 'D#4 (311Hz)' 4290 IF (A=48)*(A#B) PLYSND 311,0; PRINT 'Eb4 (311Hz)' 4300 REM 'keyboard normal octave3 block1 line2' 4305 IF (A=113)*(A#B) PLYSND 131,0; PRINT 'C3 (131Hz)' 4310 IF (A=119)*(A#B) PLYSND 147,0; PRINT 'D3 (147Hz)' 4320 IF (A=101)*(A#B) PLYSND 165,0; PRINT 'E3 (165Hz)' 4330 IF (A=114)*(A#B) PLYSND 175,0; PRINT 'F3 (175Hz)' 4340 IF (A=116)*(A#B) PLYSND 196,0; PRINT 'G3 (196Hz)' 4350 IF (A=121)*(A#B) PLYSND 220,0; PRINT 'A3 (220Hz)' 4360 IF (A=117)*(A#B) PLYSND 247,0; PRINT 'B3 (247Hz)' 4370 IF (A=105)*(A#B) PLYSND 262,0; PRINT 'C4 (262Hz)' 4380 IF (A=111)*(A#B) PLYSND 294,0; PRINT 'D4 (294Hz)' 4390 IF (A=112)*(A#B) PLYSND 330,0; PRINT 'E4 (330Hz)' 4399 RETURN 4400 REM 'keyboard #/b octave3 block2 line3' 4405 IF (A=97)*(A#B) PLYSND 139,0; PRINT 'C#3 (139Hz)' 4410 IF (A=115)*(A#B) PLYSND 156,0; PRINT 'D#3 (156Hz)' 4420 IF (A=100)*(A#B) PLYSND 156,0; PRINT 'Eb3 (156Hz)' 4430 IF (A=102)*(A#B) PLYSND 185,0; PRINT 'F#3 (185Hz)' 4440 IF (A=103)*(A#B) PLYSND 208,0; PRINT 'G#3 (208Hz)' 4450 IF (A=104)*(A#B) PLYSND 233,0; PRINT 'A#3 (233Hz)' 4460 IF (A=106)*(A#B) PLYSND 233,0; PRINT 'Bb3 (233Hz)' 4470 IF (A=107)*(A#B) PLYSND 277,0; PRINT 'C#4 (277Hz)' 4480 IF (A=108)*(A#B) PLYSND 311,0; PRINT 'D#4 (311Hz)' 4490 IF (A=59)*(A#B) PLYSND 311,0; PRINT 'Eb4 (311Hz)' 4500 REM 'keyboard normal octave3 block2 line4' 4505 IF (A=122)*(A#B) PLYSND 131,0; PRINT 'C3 (131Hz)' 4510 IF (A=120)*(A#B) PLYSND 147,0; PRINT 'D3 (147Hz)' 4520 IF (A=99)*(A#B) PLYSND 165,0; PRINT 'E3 (165Hz)' 4530 IF (A=118)*(A#B) PLYSND 175,0; PRINT 'F3 (175Hz)' 4540 IF (A=98)*(A#B) PLYSND 196,0; PRINT 'G3 (196Hz)' 4550 IF (A=110)*(A#B) PLYSND 220,0; PRINT 'A3 (220Hz)' 4560 IF (A=109)*(A#B) PLYSND 247,0; PRINT 'B3 (247Hz)' 4570 IF (A=44)*(A#B) PLYSND 262,0; PRINT 'C4 (262Hz)' 4580 IF (A=46)*(A#B) PLYSND 294,0; PRINT 'D4 (294Hz)' 4590 IF (A=47)*(A#B) PLYSND 330,0; PRINT 'E4 (330Hz)' 4599 RETURN 4600 REM 'keyboard #/b octave4 block1 line1' 4605 IF (A=49)*(A#B) PLYSND 277,0; PRINT 'C#4 (277Hz)' 4610 IF (A=50)*(A#B) PLYSND 311,0; PRINT 'D#4 (311Hz)' 4620 IF (A=51)*(A#B) PLYSND 311,0; PRINT 'Eb4 (311Hz)' 4630 IF (A=52)*(A#B) PLYSND 370,0; PRINT 'F#4 (370Hz)' 4640 IF (A=53)*(A#B) PLYSND 415,0; PRINT 'G#4 (415Hz)' 4650 IF (A=54)*(A#B) PLYSND 466,0; PRINT 'A#4 (466Hz)' 4660 IF (A=55)*(A#B) PLYSND 466,0; PRINT 'Bb4 (466Hz)' 4670 IF (A=56)*(A#B) PLYSND 554,0; PRINT 'C#5 (554Hz)' 4680 IF (A=57)*(A#B) PLYSND 622,0; PRINT 'D#5 (622Hz)' 4690 IF (A=48)*(A#B) PLYSND 622,0; PRINT 'Eb5 (622Hz)' 4700 REM 'keyboard normal octave4 block1 line2' 4705 IF (A=113)*(A#B) PLYSND 262,0; PRINT 'C4 (262Hz)' 4710 IF (A=119)*(A#B) PLYSND 294,0; PRINT 'D4 (294Hz)' 4720 IF (A=101)*(A#B) PLYSND 330,0; PRINT 'E4 (330Hz)' 4730 IF (A=114)*(A#B) PLYSND 349,0; PRINT 'F4 (349Hz)' 4740 IF (A=116)*(A#B) PLYSND 392,0; PRINT 'G4 (392Hz)' 4750 IF (A=121)*(A#B) PLYSND 440,0; PRINT 'A4 (440Hz)' 4760 IF (A=117)*(A#B) PLYSND 494,0; PRINT 'B4 (494Hz)' 4770 IF (A=105)*(A#B) PLYSND 523,0; PRINT 'C5 (523Hz)' 4780 IF (A=111)*(A#B) PLYSND 587,0; PRINT 'D5 (587Hz)' 4790 IF (A=112)*(A#B) PLYSND 659,0; PRINT 'E5 (659Hz)' 4799 RETURN 4800 REM 'keyboard #/b octave4 block2 line3' 4805 IF (A=97)*(A#B) PLYSND 277,0; PRINT 'C#4 (277Hz)' 4810 IF (A=115)*(A#B) PLYSND 311,0; PRINT 'D#4 (311Hz)' 4820 IF (A=100)*(A#B) PLYSND 311,0; PRINT 'Eb4 (311Hz)' 4830 IF (A=102)*(A#B) PLYSND 370,0; PRINT 'F#4 (370Hz)' 4840 IF (A=103)*(A#B) PLYSND 415,0; PRINT 'G#4 (415Hz)' 4850 IF (A=104)*(A#B) PLYSND 466,0; PRINT 'A#4 (466Hz)' 4860 IF (A=106)*(A#B) PLYSND 466,0; PRINT 'Bb4 (466Hz)' 4870 IF (A=107)*(A#B) PLYSND 554,0; PRINT 'C#5 (554Hz)' 4880 IF (A=108)*(A#B) PLYSND 622,0; PRINT 'D#5 (622Hz)' 4890 IF (A=59)*(A#B) PLYSND 622,0; PRINT 'Eb5 (622Hz)' 4900 REM 'keyboard normal octave4 block2 line4' 4905 IF (A=122)*(A#B) PLYSND 262,0; PRINT 'C4 (262Hz)' 4910 IF (A=120)*(A#B) PLYSND 294,0; PRINT 'D4 (294Hz)' 4920 IF (A=99)*(A#B) PLYSND 330,0; PRINT 'E4 (330Hz)' 4930 IF (A=118)*(A#B) PLYSND 349,0; PRINT 'F4 (349Hz)' 4940 IF (A=98)*(A#B) PLYSND 392,0; PRINT 'G4 (392Hz)' 4950 IF (A=110)*(A#B) PLYSND 440,0; PRINT 'A4 (440Hz)' 4960 IF (A=109)*(A#B) PLYSND 494,0; PRINT 'B4 (494Hz)' 4970 IF (A=44)*(A#B) PLYSND 523,0; PRINT 'C5 (523Hz)' 4980 IF (A=46)*(A#B) PLYSND 587,0; PRINT 'D5 (587Hz)' 4990 IF (A=47)*(A#B) PLYSND 659,0; PRINT 'E5 (659Hz)' 4999 RETURN 5000 REM 'keyboard #/b octave5 block1 line1' 5005 IF (A=49)*(A#B) PLYSND 554,0; PRINT 'C#5 (554Hz)' 5010 IF (A=50)*(A#B) PLYSND 622,0; PRINT 'D#5 (622Hz)' 5020 IF (A=51)*(A#B) PLYSND 622,0; PRINT 'Eb5 (622Hz)' 5030 IF (A=52)*(A#B) PLYSND 740,0; PRINT 'F#5 (740Hz)' 5040 IF (A=53)*(A#B) PLYSND 831,0; PRINT 'G#5 (831Hz)' 5050 IF (A=54)*(A#B) PLYSND 932,0; PRINT 'A#5 (932Hz)' 5060 IF (A=55)*(A#B) PLYSND 932,0; PRINT 'Bb5 (932Hz)' 5070 IF (A=56)*(A#B) PLYSND 1109,0; PRINT 'C#6 (1109Hz)' 5080 IF (A=57)*(A#B) PLYSND 1245,0; PRINT 'D#6 (1245Hz)' 5090 IF (A=48)*(A#B) PLYSND 1245,0; PRINT 'Eb6 (1245Hz)' 5100 REM 'keyboard normal octave5 block1 line2' 5105 IF (A=113)*(A#B) PLYSND 523,0; PRINT 'C5 (523Hz)' 5110 IF (A=119)*(A#B) PLYSND 587,0; PRINT 'D5 (587Hz)' 5120 IF (A=101)*(A#B) PLYSND 659,0; PRINT 'E5 (659Hz)' 5130 IF (A=114)*(A#B) PLYSND 698,0; PRINT 'F5 (698Hz)' 5140 IF (A=116)*(A#B) PLYSND 784,0; PRINT 'G5 (784Hz)' 5150 IF (A=121)*(A#B) PLYSND 880,0; PRINT 'A5 (880Hz)' 5160 IF (A=117)*(A#B) PLYSND 988,0; PRINT 'B5 (988Hz)' 5170 IF (A=105)*(A#B) PLYSND 1047,0; PRINT 'C6 (1047Hz)' 5180 IF (A=111)*(A#B) PLYSND 1175,0; PRINT 'D6 (1175Hz)' 5190 IF (A=112)*(A#B) PLYSND 1319,0; PRINT 'E6 (1319Hz)' 5199 RETURN 5200 REM 'keyboard #/b octave5 block2 line3' 5205 IF (A=97)*(A#B) PLYSND 554,0; PRINT 'C#5 (554Hz)' 5210 IF (A=115)*(A#B) PLYSND 622,0; PRINT 'D#5 (622Hz)' 5220 IF (A=100)*(A#B) PLYSND 622,0; PRINT 'Eb5 (622Hz)' 5230 IF (A=102)*(A#B) PLYSND 740,0; PRINT 'F#5 (740Hz)' 5240 IF (A=103)*(A#B) PLYSND 831,0; PRINT 'G#5 (831Hz)' 5250 IF (A=104)*(A#B) PLYSND 932,0; PRINT 'A#5 (932Hz)' 5260 IF (A=106)*(A#B) PLYSND 932,0; PRINT 'Bb5 (932Hz)' 5270 IF (A=107)*(A#B) PLYSND 1109,0; PRINT 'C#6 (1109Hz)' 5280 IF (A=108)*(A#B) PLYSND 1245,0; PRINT 'D#6 (1245Hz)' 5290 IF (A=59)*(A#B) PLYSND 1245,0; PRINT 'Eb6 (1245Hz)' 5300 REM 'keyboard normal octave5 block2 line4' 5305 IF (A=122)*(A#B) PLYSND 523,0; PRINT 'C5 (523Hz)' 5310 IF (A=120)*(A#B) PLYSND 587,0; PRINT 'D5 (587Hz)' 5320 IF (A=99)*(A#B) PLYSND 659,0; PRINT 'E5 (659Hz)' 5330 IF (A=118)*(A#B) PLYSND 698,0; PRINT 'F5 (698Hz)' 5340 IF (A=98)*(A#B) PLYSND 784,0; PRINT 'G5 (784Hz)' 5350 IF (A=110)*(A#B) PLYSND 880,0; PRINT 'A5 (880Hz)' 5360 IF (A=109)*(A#B) PLYSND 988,0; PRINT 'B5 (988Hz)' 5370 IF (A=44)*(A#B) PLYSND 1047,0; PRINT 'C6 (1047Hz)' 5380 IF (A=46)*(A#B) PLYSND 1175,0; PRINT 'D6 (1175Hz)' 5390 IF (A=47)*(A#B) PLYSND 1319,0; PRINT 'E6 (1319Hz)' 5399 RETURN 5400 REM 'keyboard #/b octave6 block1 line1' 5405 IF (A=49)*(A#B) PLYSND 1109,0; PRINT 'C#6 (1109Hz)' 5410 IF (A=50)*(A#B) PLYSND 1245,0; PRINT 'D#6 (1245Hz)' 5420 IF (A=51)*(A#B) PLYSND 1245,0; PRINT 'Eb6 (1245Hz)' 5430 IF (A=52)*(A#B) PLYSND 1480,0; PRINT 'F#6 (1480Hz)' 5440 IF (A=53)*(A#B) PLYSND 1661,0; PRINT 'G#6 (1661Hz)' 5450 IF (A=54)*(A#B) PLYSND 1865,0; PRINT 'A#6 (1865Hz)' 5460 IF (A=55)*(A#B) PLYSND 1865,0; PRINT 'Bb6 (1865Hz)' 5470 IF (A=56)*(A#B) PLYSND 2217,0; PRINT 'C#7 (2217Hz)' 5480 IF (A=57)*(A#B) PLYSND 2489,0; PRINT 'D#7 (2489Hz)' 5490 IF (A=48)*(A#B) PLYSND 2489,0; PRINT 'Eb7 (2489Hz)' 5500 REM 'keyboard normal octave6 block1 line2' 5505 IF (A=113)*(A#B) PLYSND 1047,0; PRINT 'C6 (1047Hz)' 5510 IF (A=119)*(A#B) PLYSND 1175,0; PRINT 'D6 (1175Hz)' 5520 IF (A=101)*(A#B) PLYSND 1319,0; PRINT 'E6 (1319Hz)' 5530 IF (A=114)*(A#B) PLYSND 1397,0; PRINT 'F6 (1397Hz)' 5540 IF (A=116)*(A#B) PLYSND 1568,0; PRINT 'G6 (1568Hz)' 5550 IF (A=121)*(A#B) PLYSND 1760,0; PRINT 'A6 (1760Hz)' 5560 IF (A=117)*(A#B) PLYSND 1976,0; PRINT 'B6 (1976Hz)' 5570 IF (A=105)*(A#B) PLYSND 2093,0; PRINT 'C7 (2093Hz)' 5580 IF (A=111)*(A#B) PLYSND 2349,0; PRINT 'D7 (2349Hz)' 5590 IF (A=112)*(A#B) PLYSND 2637,0; PRINT 'E7 (2637Hz)' 5599 RETURN 5600 REM 'keyboard #/b octave6 block2 line3' 5605 IF (A=97)*(A#B) PLYSND 1109,0; PRINT 'C#6 (1109Hz)' 5610 IF (A=115)*(A#B) PLYSND 1245,0; PRINT 'D#6 (1245Hz)' 5620 IF (A=100)*(A#B) PLYSND 1245,0; PRINT 'Eb6 (1245Hz)' 5630 IF (A=102)*(A#B) PLYSND 1480,0; PRINT 'F#6 (1480Hz)' 5640 IF (A=103)*(A#B) PLYSND 1661,0; PRINT 'G#6 (1661Hz)' 5650 IF (A=104)*(A#B) PLYSND 1865,0; PRINT 'A#6 (1865Hz)' 5660 IF (A=106)*(A#B) PLYSND 1865,0; PRINT 'Bb6 (1865Hz)' 5670 IF (A=107)*(A#B) PLYSND 2217,0; PRINT 'C#7 (2217Hz)' 5680 IF (A=108)*(A#B) PLYSND 2489,0; PRINT 'D#7 (2489Hz)' 5690 IF (A=59)*(A#B) PLYSND 2489,0; PRINT 'Eb7 (2489Hz)' 5700 REM 'keyboard normal octave6 block2 line4' 5705 IF (A=122)*(A#B) PLYSND 1047,0; PRINT 'C6 (1047Hz)' 5710 IF (A=120)*(A#B) PLYSND 1175,0; PRINT 'D6 (1175Hz)' 5720 IF (A=99)*(A#B) PLYSND 1319,0; PRINT 'E6 (1319Hz)' 5730 IF (A=118)*(A#B) PLYSND 1397,0; PRINT 'F6 (1397Hz)' 5740 IF (A=98)*(A#B) PLYSND 1568,0; PRINT 'G6 (1568Hz)' 5750 IF (A=110)*(A#B) PLYSND 1760,0; PRINT 'A6 (1760Hz)' 5760 IF (A=109)*(A#B) PLYSND 1976,0; PRINT 'B6 (1976Hz)' 5770 IF (A=44)*(A#B) PLYSND 2093,0; PRINT 'C7 (2093Hz)' 5780 IF (A=46)*(A#B) PLYSND 2349,0; PRINT 'D7 (2349Hz)' 5790 IF (A=47)*(A#B) PLYSND 2637,0; PRINT 'E7 (2637Hz)' 5799 RETURN 5800 REM 'keyboard #/b octave7 block1 line1' 5805 IF (A=49)*(A#B) PLYSND 2217,0; PRINT 'C#7 (2217Hz)' 5810 IF (A=50)*(A#B) PLYSND 2489,0; PRINT 'D#7 (2489Hz)' 5820 IF (A=51)*(A#B) PLYSND 2489,0; PRINT 'Eb7 (2489Hz)' 5830 IF (A=52)*(A#B) PLYSND 2960,0; PRINT 'F#7 (2960Hz)' 5840 IF (A=53)*(A#B) PLYSND 3322,0; PRINT 'G#7 (3322Hz)' 5850 IF (A=54)*(A#B) PLYSND 3729,0; PRINT 'A#7 (3729Hz)' 5860 IF (A=55)*(A#B) PLYSND 3729,0; PRINT 'Bb7 (3729Hz)' 5870 IF (A=56)*(A#B) PLYSND 4435,0; PRINT 'C#8 (4435Hz)' 5880 IF (A=57)*(A#B) PLYSND 4978,0; PRINT 'D#8 (4978Hz)' 5890 IF (A=48)*(A#B) PLYSND 4978,0; PRINT 'Eb8 (4978Hz)' 5900 REM 'keyboard normal octave7 block1 line2' 5905 IF (A=113)*(A#B) PLYSND 2093,0; PRINT 'C7 (2093Hz)' 5910 IF (A=119)*(A#B) PLYSND 2349,0; PRINT 'D7 (2349Hz)' 5920 IF (A=101)*(A#B) PLYSND 2637,0; PRINT 'E7 (2637Hz)' 5930 IF (A=114)*(A#B) PLYSND 2794,0; PRINT 'F7 (2794Hz)' 5940 IF (A=116)*(A#B) PLYSND 3136,0; PRINT 'G7 (3136Hz)' 5950 IF (A=121)*(A#B) PLYSND 3520,0; PRINT 'A7 (3520Hz)' 5960 IF (A=117)*(A#B) PLYSND 3951,0; PRINT 'B7 (3951Hz)' 5970 IF (A=105)*(A#B) PLYSND 4186,0; PRINT 'C8 (4186Hz)' 5980 IF (A=111)*(A#B) PLYSND 4699,0; PRINT 'D8 (4699Hz)' 5990 IF (A=112)*(A#B) PLYSND 5274,0; PRINT 'E8 (5274Hz)' 5999 RETURN 6000 REM 'keyboard #/b octave7 block2 line3' 6005 IF (A=97)*(A#B) PLYSND 2217,0; PRINT 'C#7 (2217Hz)' 6010 IF (A=115)*(A#B) PLYSND 2489,0; PRINT 'D#7 (2489Hz)' 6020 IF (A=100)*(A#B) PLYSND 2489,0; PRINT 'Eb7 (2489Hz)' 6030 IF (A=102)*(A#B) PLYSND 2960,0; PRINT 'F#7 (2960Hz)' 6040 IF (A=103)*(A#B) PLYSND 3322,0; PRINT 'G#7 (3322Hz)' 6050 IF (A=104)*(A#B) PLYSND 3729,0; PRINT 'A#7 (3729Hz)' 6060 IF (A=106)*(A#B) PLYSND 3729,0; PRINT 'Bb7 (3729Hz)' 6070 IF (A=107)*(A#B) PLYSND 4435,0; PRINT 'C#8 (4435Hz)' 6080 IF (A=108)*(A#B) PLYSND 4978,0; PRINT 'D#8 (4978Hz)' 6090 IF (A=59)*(A#B) PLYSND 4978,0; PRINT 'Eb8 (4978Hz)' 6100 REM 'keyboard normal octave7 block2 line4' 6105 IF (A=122)*(A#B) PLYSND 2093,0; PRINT 'C7 (2093Hz)' 6110 IF (A=120)*(A#B) PLYSND 2349,0; PRINT 'D7 (2349Hz)' 6120 IF (A=99)*(A#B) PLYSND 2637,0; PRINT 'E7 (2637Hz)' 6130 IF (A=118)*(A#B) PLYSND 2794,0; PRINT 'F7 (2794Hz)' 6140 IF (A=98)*(A#B) PLYSND 3136,0; PRINT 'G7 (3136Hz)' 6150 IF (A=110)*(A#B) PLYSND 3520,0; PRINT 'A7 (3520Hz)' 6160 IF (A=109)*(A#B) PLYSND 3951,0; PRINT 'B7 (3951Hz)' 6170 IF (A=44)*(A#B) PLYSND 4186,0; PRINT 'C8 (4186Hz)' 6180 IF (A=46)*(A#B) PLYSND 4699,0; PRINT 'D8 (4699Hz)' 6190 IF (A=47)*(A#B) PLYSND 5274,0; PRINT 'E8 (5274Hz)' 6199 RETURN 6200 REM 'keyboard #/b octave8 block1 line1' 6205 IF (A=49)*(A#B) PLYSND 4435,0; PRINT 'C#8 (4435Hz)' 6210 IF (A=50)*(A#B) PLYSND 4978,0; PRINT 'D#8 (4978Hz)' 6220 IF (A=51)*(A#B) PLYSND 4978,0; PRINT 'Eb8 (4978Hz)' 6230 IF (A=52)*(A#B) PLYSND 5920,0; PRINT 'F#8 (5920Hz)' 6240 IF (A=53)*(A#B) PLYSND 6645,0; PRINT 'G#8 (6645Hz)' 6250 IF (A=54)*(A#B) PLYSND 7459,0; PRINT 'A#8 (7459Hz)' 6260 IF (A=55)*(A#B) PLYSND 7459,0; PRINT 'Bb8 (7459Hz)' 6270 IF (A=56)*(A#B) PLYSND 17,0; PRINT 'C#0 (17Hz)' 6280 IF (A=57)*(A#B) PLYSND 19,0; PRINT 'D#0 (19Hz)' 6290 IF (A=48)*(A#B) PLYSND 19,0; PRINT 'Eb0 (19Hz)' 6300 REM 'keyboard normal octave8 block1 line2' 6305 IF (A=113)*(A#B) PLYSND 4186,0; PRINT 'C8 (4186Hz)' 6310 IF (A=119)*(A#B) PLYSND 4699,0; PRINT 'D8 (4699Hz)' 6320 IF (A=101)*(A#B) PLYSND 5274,0; PRINT 'E8 (5274Hz)' 6330 IF (A=114)*(A#B) PLYSND 5588,0; PRINT 'F8 (5588Hz)' 6340 IF (A=116)*(A#B) PLYSND 6272,0; PRINT 'G8 (6272Hz)' 6350 IF (A=121)*(A#B) PLYSND 7040,0; PRINT 'A8 (7040Hz)' 6360 IF (A=117)*(A#B) PLYSND 7902,0; PRINT 'B8 (7902Hz)' 6370 IF (A=105)*(A#B) PLYSND 16,0; PRINT 'C0 (16Hz)' 6380 IF (A=111)*(A#B) PLYSND 18,0; PRINT 'D0 (18Hz)' 6390 IF (A=112)*(A#B) PLYSND 21,0; PRINT 'E0 (21Hz)' 6399 RETURN 6400 REM 'keyboard #/b octave8 block2 line3' 6405 IF (A=97)*(A#B) PLYSND 4435,0; PRINT 'C#8 (4435Hz)' 6410 IF (A=115)*(A#B) PLYSND 4978,0; PRINT 'D#8 (4978Hz)' 6420 IF (A=100)*(A#B) PLYSND 4978,0; PRINT 'Eb8 (4978Hz)' 6430 IF (A=102)*(A#B) PLYSND 5920,0; PRINT 'F#8 (5920Hz)' 6440 IF (A=103)*(A#B) PLYSND 6645,0; PRINT 'G#8 (6645Hz)' 6450 IF (A=104)*(A#B) PLYSND 7459,0; PRINT 'A#8 (7459Hz)' 6460 IF (A=106)*(A#B) PLYSND 7459,0; PRINT 'Bb8 (7459Hz)' 6470 IF (A=107)*(A#B) PLYSND 17,0; PRINT 'C#0 (17Hz)' 6480 IF (A=108)*(A#B) PLYSND 19,0; PRINT 'D#0 (19Hz)' 6490 IF (A=59)*(A#B) PLYSND 19,0; PRINT 'Eb0 (19Hz)' 6500 REM 'keyboard normal octave8 block2 line4' 6505 IF (A=122)*(A#B) PLYSND 4186,0; PRINT 'C8 (4186Hz)' 6510 IF (A=120)*(A#B) PLYSND 4699,0; PRINT 'D8 (4699Hz)' 6520 IF (A=99)*(A#B) PLYSND 5274,0; PRINT 'E8 (5274Hz)' 6530 IF (A=118)*(A#B) PLYSND 5588,0; PRINT 'F8 (5588Hz)' 6540 IF (A=98)*(A#B) PLYSND 6272,0; PRINT 'G8 (6272Hz)' 6550 IF (A=110)*(A#B) PLYSND 7040,0; PRINT 'A8 (7040Hz)' 6560 IF (A=109)*(A#B) PLYSND 7902,0; PRINT 'B8 (7902Hz)' 6570 IF (A=44)*(A#B) PLYSND 16,0; PRINT 'C0 (16Hz)' 6580 IF (A=46)*(A#B) PLYSND 18,0; PRINT 'D0 (18Hz)' 6590 IF (A=47)*(A#B) PLYSND 21,0; PRINT 'E0 (21Hz)' 6599 RETURN
