• IchigoJam
• SWITCH

10'BALL
20SWITCH1:FORI=1TO4:OUTI,-1:NEXT
30FORI=0TO15:?CHR$(4);:NEXT
40FORY=0TO6:LC0,Y:?CHR$(4);:LC15,Y:?CHR$(4);:NEXT
50LC2,2,1:?"BALL";:GSB@W:LC2,2:?"    ";
60B=7:Y=6:X=B-2+RND(5):W=-1:Z=RND(2)*2-1
70@LP:LCX,Y:?CHR$(0);:X=X+Z:Y=Y+W
80IFX<=0X=1:Z=RND(2)+1:BEEP
90IFX>=15X=14:Z=-(RND(2)+1):BEEP
100IFY=0Y=1:W=1:BEEP
110IFY=7IFSCR(X,Y)=1Y=6:W=-1:Z=RND(3)-1:BEEP20
120LCX,Y:?"~F5";
130IFY=7GOTO@ED
140B=B-!IN(5)+!IN(8)
150IFB=1B=2:BEEP
160IFB=14B=13:BEEP
170LCB-2,7:?CHR$(0);CHR$(1);CHR$(1);CHR$(1);CHR$(0);
180WAIT10:GOTO@LP
190@ED:GSB@W:F=FILE():LRUN0
200@W:IF!BTN()CONT:ELSEBEEP2
210IFBTN()CONT:ELSEBEEP5:RTN

Pagetop