10 CLS:LC 31,9:? CHR$(#FF):CLT:FOR I=0 TO 59:K=INKEY():B=(K=32)*(I%2)+(K=29)*(I%2=0):I=I-1+B:BEEP B*7:LC I-I%30*(I>29)*2,9:? CHR$(#FD*(I>29),#FB*(I<30)):T=TICK():LC 12,0:? "T:";T/60;".";T%60*10/6:NEXT
ワンライン! たった一行でもちゃんとゲームを作れるとは。これで、1つのプログラムの中に幾つもゲームが入った「ゲームセンター」が可能になりますね。