【レトロガジェット#2】SHARP PC-1246Sを復活させる！！2KBのメモリでもBASICが使えるすごいやつ！！ポケコンでゲームだってできるぞ！！

探していたら、こんなポケコンが出てきました。箱と取説もそろっています。久しぶりに使ってみたら1文字変数にはまりました。。。Long Live Pocket Computer！

① Hit & Blow なつかしのゲームプログラム
　（説明文のエラー回避のため60ラインの＜＞は全角になっています）
10 "A":CLEAR:RANDOM
20 DIM B(4),N(4),R(4)
30 FOR I=1 TO 4:B(I)=(RND 10)-1:NEXT I
40 Z=0
50 INPUT "4DIGIT=",G$
60 IF LEN(G$)＜＞4 THEN PRINT "ERR":GOTO 50
70 FOR I=1 TO 4:N(I)=VAL(MID$(G$,I,1)):NEXT I
80 FOR I=1 TO 4:R(I)=B(I):NEXT I
90 H=0:L=0
100 FOR I=1 TO 4
110 IF N(I)=R(I) LET H=H+1:R(I)=10
120 NEXT I
130 FOR I=1 TO 4
140 FOR J=1 TO 4
150 IF N(I)=R(J) LET L=L+1:R(J)=10:GOTO 170
160 NEXT J
170 NEXT I
180 PRINT "HIT=";H;" BLOW=";L
190 Z=Z+1
200 IF H=4 THEN PRINT "4HITS IN ";Z:END
210 GOTO 50

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