By R. Erskine.
Originally released for the Commodore 64, Oric and Spectrum computers in 1983.
Program is Listed at 7:35
https://www.youtube.com/watch?v=egrfVX4z97Y&t=3s (https://www.youtube.com/watch?v=egrfVX4z97Y&t=3s)
Links:
http://www.cpcwiki.eu/index.php/Sixty_Programs_for_the_Amstrad_CPC_464 (http://www.cpcwiki.eu/index.php/Sixty_Programs_for_the_Amstrad_CPC_464)
https://www.cpc-power.com/index.php?page=detail&num=5409 (https://www.cpc-power.com/index.php?page=detail&num=5409)
It's had a couple of BASIC 1.1 commands put into it, so has definitely been modifed from the original listing. From what I can tell its just got a couple of FRAMEs and a CLEAR INPUT. While I normally use WHILE to clear the Keyboard Buffer which is what CLEAR INPUT does, some early listings from that era may have "IF INKEY$<>"" THEN GOTO" with that line Going to itself and continue until INKEY$ is cleared, more or less how a REPEAT...UNTIL functions.