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

  Рет қаралды 1,266

古いものチャンネル

古いものチャンネル

Күн бұрын

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

Пікірлер
Players vs Corner Flags 🤯
00:28
LE FOOT EN VIDÉO
Рет қаралды 29 МЛН
Dad gives best memory keeper
01:00
Justin Flom
Рет қаралды 25 МЛН
iPhoneのバッテリー警告を消して容量を回復 JCID V1SE
31:44
熊五郎お兄さんのDIY
Рет қаралды 267 М.
古いパソコンでテレビをみる[チューナーいらない]
21:57
カンダタの魚
Рет қаралды 169 М.
これPC!?学校教育用ポケットコンピュータ SHARP PC-G830動作確認&修理【ジャンク】
11:52
【ALL新作】最新Switch最高評価RPG TOP10
32:28
Switchゲーム紹介ch/すぽし
Рет қаралды 65 М.