Random Squares

Gallery

Source Code

  10 REM %R%A%N%D%O%M% %S%Q%U%A%R%E%S% % % % % % % % % 
  20 DIM A$(4,4)
  30 LET A$(1)="\:'\''\''\':"
  40 LET A$(2)="\:   \ :"
  50 LET A$(3)="\:   \ :"
  60 LET A$(4)="\:.\..\..\.:"
  70 LET S=INT (RND*29)
  80 LET T=INT (RND*17)
  90 FOR H=0 TO 3
 100 PRINT AT T+H,S;A$(H+1)
 110 NEXT H
 120 IF INKEY$="A" THEN STOP 
 130 GOTO 70
 140 SAVE "1008%6"
 150 RUN