Boxes

   5 REM boxes  John Colonna
     Revised Aug. 1985
   8 RANDOMIZE : CLS : BORDER 6
  10 GO SUB 800
  20 LET x=7: LET y=1
  25 LET n=INT (RND*20)+1
  27 LET r=INT (RND*3)+1
  28 GO SUB 200
  30 FOR i=1 TO n
  40 PRINT AT x,y; PAPER 5; INK
1;a$;AT x+1,y;b$: BEEP .5,i
  45 IF y>27 THEN LET x=x+5: LET
 y=1: GO TO 60
  50 LET y=y+3
  60 NEXT i
  70 INPUT "How many boxes are t
here? ";t$: IF t$="" OR t$>="A"
OR t$>"z" THEN GO TO 70
  80 IF VAL t$=n THEN GO SUB 500
  90 IF VAL t$<>n THEN GO TO 600
 100 CLS : GO TO 20
 200 IF r=1 THEN LET a$="[graphics]": LE
T b$="[graphics]"
 210 IF r=2 THEN LET a$="[graphics]": LE
T b$="[graphics]"
 220 IF r=3 THEN LET a$="[graphics]": LE
T b$="[graphics]"
 230 RETURN
 500 PRINT AT 16,7;"
 "
 503 PRINT AT 18,7;"
 "
 508 PRINT AT 16,9; FLASH 1;"C O
 R R E C T"
 509 FOR i=1 TO 10: BEEP .1,i: N
EXT i
 510 PAUSE 45
 550 PRINT AT 20,3; PAPER 6;"Pre
ss any key to continue.": PAUSE
0
 590 RETURN
 600 PRINT AT 16,7; INVERSE 1;"I
 N C O R R E C T"
 602 FOR i=15 TO 10 STEP -5: BEE
P .4,i: NEXT i
 605 PRINT AT 18,7; FLASH 1;"T R
 Y     A G A I N"
 620 GO TO 70
 800 PRINT AT 2,3; PAPER 6;"1 2
3 4 5 6 7 8 9 10 11 12"
 802 PRINT AT 4,0;"[graphics: 32 border blocks]"
 803 PRINT "▒";AT 5,31;"▒"
 805 PRINT "▒ 111    22   3  3
4444    55  ▒"
 810 PRINT "▒ 1  1  2  2  3  3
4       5  5▒"
 815 PRINT "▒ 1  1  2  2   33
4       5   ▒"
 820 PRINT "▒ 111   2  2   33
444      55 ▒"
 830 PRINT "▒ 1  1  2  2   33
4          5▒"
 835 PRINT "▒ 1  1  2  2  3  3
4       5  5▒"
 840 PRINT "▒ 111    22   3  3
4444    55  ▒"
 843 PRINT "▒";AT 13,31;"▒"
 845 PRINT "[graphics: 32 border blocks]"
 850 PRINT AT 16,4; PAPER 6;"13
14 15 16 17 18 19 20"
 860 GO SUB 510
 900 CLS : RETURN
9999 SAVE "boxes" LINE 1: BEEP 1
,32: PRINT AT 9,9; INVERSE 1;"Pr
ogram Saved"