Competition for the ZX Spectrum

The program should be compiled but if you prefer you can use the ZX Spectrum interpreter. 

Summary of rules:

• Do not use GOTOs!
• Do not use line numbers
• Use PROCEDURE and FUNCTION
• Use REPEAT-UNTIL and WHILE-ENDWHILE
• Use IF-THEN-ELSEIF-ELSE-ENDIF
• etc.

Anyone interested in the competition can read the rules here:

http://arcalusitana.org/MuseuZX/Pascalated_ZXBASIC/Concurso2024.html

Anyone interested in knowing more about this language, and how to compile programs, can click here:

https://arcalusitana.org/MuseuZX/Pascalated_ZXBASIC