A #BASIC #oneliner from Rajiv Gatha for #AmstradCPC (published in "Amstrad Action", June 1987, p. 24:
10 MODE 0:s=306:WHILE(TEST(s+8,18))=0:TAG:MOVE s,14:PRINT CHR$(239);:MOVE RND(1)*620,399:PRINT CHR$(46);:TAGOFF:LOCATE 1,1:PRINT CHR$(11);CHR$(11);:s=s-((INKEY(71)+1) AND s>=0)*4:s=s+((INKEY(63)+1) AND s<=612)*4:WEND:PRINT"WHOOPS":FOR t=0 TO 1000:NEXT:RUN






