1	DIM A%(24%, 80%)
2	PRINT CHR$(155%);"F";
5	ON ERROR GOTO 1000 \ Z = CTRLC
10 PRINT CHR$(155%);"H";CHR$(155%);"J";
20	D% = RND*23 \ A% = RND*79
25	GOTO 20 IF A%(D%, A%) = -1%
27	A%(D%, A%) = -1%
28	PRINT CHR$(155%);"Y";CHR$(32%+D%);CHR$(32%+A%);"a";
29	C% = C% + 1% \ IF C% >= 23%*79% THEN C% =0% \ MAT A% = ZER \ GOTO 10
30 GOTO 20
1000	PRINT CHR$(155%);"F";CHR$(155%);"H";CHR$(155%);"J";
32767	END