Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- はんのうそくどゲーム(LEDひかったら、すぐボタン!)
- 10 LED 0
- 20 WAIT RND(180)+60
- 30 LED 1:CLT
- 40 IF BTN()=0 GOTO 40
- 50 ?TICK()
- こうそくタイピングゲーム(AからZまですばやくおせ
- 10 LET N,65:CLT
- 20 ?CHR$(N);
- 30 IF INKEY()<>N GOTO 30
- 40 LET N,N+1:IF N<>91 GOTO 20
- 50 ?:?TICK()/60
- たしざんめいじんゲーム(こたえをいれてエンター!
- 10 LET N,0:CLT
- 20 LET A,RND(10)
- 30 LET B,RND(10)
- 40 ?A;”+”;B;”=“;:INPUT C
- 50 IF C!=A+B ?”NG!”:END
- 60 LET N,N+1:IF N<10 GOTO 20
- 70 ?TICK()/60
- かわくだりゲーム(カーソル左右でよけろ!)
- 10 LET X,16:CLS:CLT
- 20 LET K,INKEY()
- 30 IF K=RIGHT LET X,X+1
- 40 IF K=LEFT LET X,X-1
- 50 IF SCR(X,5) ?TICK()/60:END
- 60 LC X,5:?”O”
- 70 LC RND(32),23:?”*”
- 80 WAIT 3
- 90 GOTO 20
- やきゅうゲーム(タイミングよくボタンおせ
- 10 LET Y,0
- 20 CLS
- 30 LC 4,15:?”%”
- 40 LC 5,Y:?”O”
- 50 IF BTN() GOTO 90
- 60 LET Y,Y+1
- 70 WAIT 6
- 80 GOTO 20
- 90 IF Y=15 ?”HIT!”
- スクリーンジャック(キーボードでうつと?)
- 10 LET C,1:CLS
- 20 LC RND(32),RND(22)
- 30 ?CHR$(C)
- 40 LET K,INKEY():IF K C=K
- 50 GOTO 20
- ()や”はシフトおしながら、キーをおそう
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement