Joystick

Source Code

   10 LET A=0: LET B=A
   20 LET Z$="\*"
   30 PRINT AT A,B; INK INT (RND*7);Z$
   40 FLASH 0
   50 IF |(1,2)=1 OR |(1,2)=5 OR |(1,2)=9 THEN LET A=A-1: IF A<0 THEN LET A=0: GO TO 30
   60 IF |(1,2)=4 OR |(1,2)=6 OR |(1,2)=5 THEN LET B=B-1: IF B<0 THEN LET B=0: GO TO 30
   70 IF |(1,2)=2 OR |(1,2)=10 OR |(1,2)=6 THEN LET A=A+1: IF A>21 THEN LET A=21: GO TO 30
   80 IF |(1,2)=8 OR |(1,2)=10 OR |(1,2)=9 THEN LET B=B+1: IF B>31 THEN LET B=31: GO TO 30
   90 IF |(2,2)=1 THEN LET Z$=CHR$ (INT (RND*53)+91)
  100 GO TO 30