Broken Program 1

Gallery

Source Code

   4 LET T=RND**54
   5 LET D=RND*8
   6 IF D>4 THEN LET D=RND**8
   7 PRINT AT (1-D/2),(1-T/2);
  10 FOR X=1 TO T
  20 PRINT "% ";
  30 NEXT X
  35 PRINT TAB (1-T/2);
  50 FOR X=1 TO D
  55 PRINT TAB (1-T/2);
  56 PRINT "% ";
  57 FOR U=1 TO T-2
  60 PRINT CHR$ D;
  65 NEXT U
  66 PRINT "% ";
  70 NEXT X
  75 PRINT TAB (1-T/2);
  80 FOR X=1 TO T
  90 PRINT "% ";
 100 NEXT X
 105 IF NOT CODE INKEY$ THEN RETURN 
 110 GOTO 4
 120 CLEAR 
 130 SAVE "1032%1"
 140 RUN