【レトロガジェット#6】SHARP PC-G830 でZARDの「負けないで」を演奏するぞ！ポケコンのBEEP音でノスタルジーを感じよう！！

SHARP PC-G830です。不人気機種だったようにも思いますが、メモリも32KBもあり、スピーカ増設も簡単です。もっと遊びましょう！！Long Live Pocket Computer！

① ZARD「負けないで」演奏プログラム
10 DIM OT(56, 2)
20 SS=68:SL=100:ST=11
30 FOR I=1 TO 56
40 READ OT(I,1), OT(I,2)
50 NEXT I
60 FOR I=1 TO 56
70 IF OT(I,1)=0 THEN WAIT ST*OT(I,2):PRINT:GOTO 100
80 CL=OT(I,2)*SL/(OT(I,1)/SS)
90 BEEP 1,OT(I,1),CL
100 NEXT I
110 END
120 DATA 68,2, 93,2, 68,2, 52,2, 60,4, 72,4
130 DATA 68,4, 72,2, 82,2, 93,4, 93,4
140 DATA 82,4, 93,2, 105,2, 93,4, 68,2, 68,2
150 DATA 82,2, 68,4, 52,2, 60,4, 0,4
160 DATA 68,2, 93,2, 68,2, 52,2, 60,4, 43,4
170 DATA 68,4, 72,2, 82,2, 93,4, 93,4
180 DATA 82,2, 93,2, 93,2, 105,2, 93,4, 68,4
190 DATA 82,2, 72,4, 68,2, 72,4, 0,2, 112,2
200 DATA 68,8, 82,3, 72,3, 68,2
210 DATA 52,4, 60,4, 49,4, 52,4
220 DATA 60,14, 68,2
230 DATA 68,16

②簡易ベンチマーク用の計算プログラム
　（説明文のエラー回避のため560ラインの＜は全角になっています）
500 NN=1:MX=2
510 INPUT "NUM(INT)=?",NU
520 FOR N = 2 TO NU
530 FG = 1
540 FOR I = 2 TO N-1
550 RE = N
560 IF RE＜I GOTO 590
570 RE = RE - I
580 GOTO 560
590 IF RE = 0 LET FG = 0: GOTO 610
600 NEXT I
610 IF FG = 1 LET MX=N: NN=NN+1
620 NEXT N
630 BEEP 1:PRINT "N=";NN;" MAX=";MX
640 END