SCREEN 12 title: CLS LOCATE 15, 25 PRINT "Welcome to Square Counter 2" LOCATE 16, 23 PRINT "Press 's' for counting squares only." LOCATE 17, 23 PRINT "Press 'r' for counting rectangles." LOCATE 18, 23 PRINT "Press 'i' for explanation." LOCATE 19, 23 PRINT "Press 'x' to quit." DO key$ = INKEY$ LOOP UNTIL key$ = "s" OR key$ = "r" OR key$ = "x" OR key$ = "i" SELECT CASE key$ CASE IS = "s" GOSUB squares CASE IS = "r" GOSUB rectangles CASE IS = "i" GOSUB explain CASE IS = "x" GOSUB ending END SELECT squares: CLS oldxsquare = 0 xsquare = 0 LOCATE 15, 25 INPUT "Enter the length of a side:", x LOCATE 16, 25 INPUT "Enter the length of other side:", y x = x + 1 y = y + 1 DO oldxsquare = xsquare x = x - 1 y = y - 1 xsquare = x * y xsquare = xsquare + oldxsquare LOOP UNTIL x = 1 OR y = 1 LOCATE 17, 24 PRINT xsquare SLEEP GOSUB title rectangles: CLS oldxsquare2 = 0 xsquare2 = 0 LOCATE 15, 25 INPUT "Enter the length of a side:", x2 LOCATE 16, 25 INPUT "Enter the length of other side:", y2 x2 = x2 + 1 y2 = y2 + 1 DO oldxsquare2 = xsquare2 x2 = x2 - 1 y2 = y2 - 1 xy = x2 + y2 xsquare2 = x2 * y2 * (xy / 2) xsquare2 = xsquare2 + oldxsquare2 LOOP UNTIL x2 = 1 OR y2 = 1 LOCATE 17, 24 PRINT xsquare2 SLEEP GOSUB title explain: CLS LOCATE 5, 5 PRINT " This is a program used to count squares or rectangles for" PRINT " people who don't want to waste their time on solving annoying" PRINT " long puzzles where they need to count how many squares or rectangles" PRINT " are in a certain grid. NOTE: A 3 by 3 grid don't just have 9, it also" PRINT " count the bigger ones (like the grid itself). So a 3 by 3 have 14" PRINT " squares in total." SLEEP GOSUB title ending: CLS LOCATE 1, 1 PRINT " I hope this will help with your puzzles." PRINT " Please give me comments on this." PRINT "" PRINT " By Paulunknown, creator of 'Zodiac'" END