Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  test1
Language: BASIC
Code:
10 RANDOMIZE TIMER
20 CLS:KEY OFF
30 X=INT(RND*80)+1:Y=INT(RND*25)+1
40 LOCATE Y,X
50 IF SCREEN(Y,X) = 219 THEN 30
60 Z=Z+1
70 PRINT CHR$(219);
80 IF Z => 2000 THEN GOTO 100
90 GOTO 30
100 RANDOMIZE TIMER
120 X=INT(RND*80)+1:Y=INT(RND*25)+1
130 LOCATE Y,X
140 IF SCREEN(Y,X) = 32 THEN 120
150 Z=Z-1
160 PRINT CHR$(32);
170 IF Z <= 0 THEN GOTO 30
180 GOTO 120     
Comments: