■ＴＹＰＩＮＧ■

　著作制作…………よなぷー
　制作年月日………２０１６年２月７日
　対応機種…………ＰＢ－１００／１１０／１２０用ゲームプログラム
　使用メモリ………５４４ステップ
　※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
　※「●」はスペース一個です。
　※「○」はＥＸＴモードの［ＳＨＩＦＴ］［Ａ］です。
　※「⊂」は［ＡＮＳ］の下の［Ｅ］です。


P0

1 PRINT CSR4;"TYPING","HI";S:E=0:T=0

2 F=0:GOSUB 9+RAN#*7:$=MID(1+5*INT(RAN#*6,5):PRINT

3 IF MID(LEN($),1)=".";$=MID(1,LEN($)-1):GOTO 3

4 PRINT CSR0;"[";$;"]";F$;:GOSUB #1:IF $=F$;E=E+1:IF E≦9 THEN 2

5 IF F$≠"";IF MID(1,LEN(F$))≠F$;PRINT:PRINT "MISS";:GOTO 2

6 IF E≦9 THEN 4

7 STOP:T=1⊂3-T:PRINT "SC";T;:IF T≧S;PRINT ":HI!":S=T

8 END

9 $="GOSUBFOR..TO...STEP.NEXT.GOTO.":RETURN

10 $="IF...THEN.PRINTSTOP.END..DEFM.":RETURN

11 $="RUN..LIST.INPUTCLEARINT..CSR..":RETURN

12 $="MID..ABS..SGN..RAN..LEN..LN...":RETURN

13 $="KEY..MODE.SET..VAL..FRAC.RND..":RETURN

14 $="SIN..COS..TAN..ASN..ACS..ATN..":RETURN

15 $="LOG..EXP..SQR..PUT..GET..VAC..":RETURN


P1

9 T=T+1:K$=KEY:IF K$≧"A";IF K$≦"Z";F$=F$+K$:PRINT K$;:RETURN

20 GOTO 9