■TYPING■
著作制作…………よなぷー
制作年月日………2016年2月7日
対応機種…………PB-100/110/120用ゲームプログラム
使用メモリ………544ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
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
著作制作…………よなぷー
制作年月日………2016年2月7日
対応機種…………PB-100/110/120用ゲームプログラム
使用メモリ………544ステップ
※「ク」はクラブ、「ス」はスペード、「ハ」はハートの記号です。
※「●」はスペース一個です。
※「○」はEXTモードの[SHIFT][A]です。
※「⊂」は[ANS]の下の[E]です。
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