10 'イダテン 20 @TOP 30 CLS:LED1 40 LC0,0:?"イダテン" 50 LC1,1:?"|" 60 LC0,2:?"~FB|" 70 LC1,3:?"|" 80 IFIN(1)CONT:ELSELED0 90 C=0:X=0:Y=2 100 PLAY"<C8":WAIT 60 110 PLAY"<C8":WAIT 60 120 PLAY"<C8":WAIT 60 130 PLAY"<<C2":LED1 140 CLT:B=-1 150 @LP:B=B+1:IFB>3B=0 160 P=B/2+1 170 IFIN(P)CONT 180 LCX,Y 190 IFP=1?"ス~FB":ELSE?"ハ~FB" 200 LED0 210 IF!IN(P)CONT 220 C=C+1:X=X+1:LED1 230 IFX=30:X=0:Y=Y+1 240 IF!SOUND()BEEP 250 LC10,0:?C/10;".";C%10;"km" 260 LC20,0:?TICK()/60;"ビヨウ" 270 IFC<420GOTO@LP 280 LC10,0:?"42.195km" 290 LED0:PLAY"T300L16<CEG<C4" 300 @G:IFBTN()GOTO@TOP 310 LCX-1,Y:?"~F9":WAIT30 320 LCX-1,Y:?"~FA":WAIT30 330 GOTO@G