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
