mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-07 15:20:18 +00:00
These tests use a variety of sample code (with some of the larger files removed, so they are not complete!) and verifies that they all compile successfully.
92 lines
No EOL
1.8 KiB
QBasic
92 lines
No EOL
1.8 KiB
QBasic
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 |