30 lines
465 B
Plaintext
30 lines
465 B
Plaintext
PROGRAM "100doors"
|
|
VERSION "0.0001"
|
|
|
|
IMPORT "xma"
|
|
IMPORT "xst"
|
|
|
|
DECLARE FUNCTION Entry()
|
|
|
|
FUNCTION Entry()
|
|
maxpuertas = 100
|
|
cont = 0
|
|
DIM puertas[100]
|
|
|
|
FOR p = 1 TO maxpuertas
|
|
IF INT(SQRT(p)) = SQRT(p) THEN puertas[p] = 1
|
|
NEXT p
|
|
|
|
PRINT "The doors are open: ";
|
|
FOR p = 1 TO maxpuertas
|
|
IF puertas[p] = 1 THEN
|
|
PRINT p; " ";
|
|
INC cont
|
|
END IF
|
|
NEXT p
|
|
|
|
PRINT CHR$(10); "Are "; STR$(cont); " open doors."
|
|
|
|
END FUNCTION
|
|
END PROGRAM
|