Senso's Telephone for the BBC Micro. BASIC 10 liner contest entry: https://gkanold.wixsite.com/homeputerium/rules2021

senso.bas

0REM "MR.SENSO IS A PECULIAR MAN. HIS PHONE NUMBER IS MADE OF"
1REM "1S AND 0S ONLY. PLEASE MEMORIZE HIS NUMBER. HE WOULD APPRECIATE IT."
2DIMA(19):L=0:E=0:BRK=0:MODE7:PRINTTAB(0,12)"SENSO'S TELEPH0NE":H$=INKEY$(249)
3K=48:REPEAT:L=L+1:A(L)=K+(RND(2)-1):IFL>1THENPRINT" NICE!":H$=INKEY$(89)
4CLS:PRINTTAB(0,12)"LISTEN "CHR$(93);:FORI=1TOL:PRINTCHR$(A(I));:T0M=&2A
5SOUND1,-9,129+(A(I)-K)*K,4:H$=INKEY$(89):NEXT:H$=INKEY$(99):PRINTTAB(0,12);
6PRINTSPC(35)TAB(0,12)"NOW, REPEAT ";CHR$(93);:FORI=1TOL:A$=GET$:PRINTA$;
7IFA$<>CHR$(A(I))THENBRK=1:E=E+1:SOUND1,-9,5,6ELSESOUND1,-9,109+(A(I)-K)*K,4
8NEXT:H$=INKEY$(89):UNTILBRK OR L=19:PRINT:PRINTTAB(0,12)"ROUNDS:";L;"/19 ";
9PRINT"TYPOS:";E;SPC(15):IFL<19THENPRINT"GO AGAIN!"ELSEPRINT"MR.SENSO APPR0VES"

<512B ver.

2DIMA(19):L=0:E=0:BRK=0:K=48:REPEAT:L=L+1:A(L)=K+(RND(2)-1)
4MODE7:PRINTTAB(0,12)"0;0) "CHR$(93);:FORI=1TOL:PRINTCHR$(A(I));
5SOUND1,-9,129+(A(I)-K)*K,4:H$=INKEY$(89):NEXT:H$=INKEY$(99):PRINTTAB(0,12);
6PRINTSPC(35)TAB(0,12)"YOU ";CHR$(93);:FORI=1TOL:A$=GET$:PRINTA$;
7IFA$<>CHR$(A(I))THENBRK=1:E=E+1:SOUND1,-9,5,6ELSESOUND1,-9,109+(A(I)-K)*K,4
8NEXT:H$=INKEY$(89):UNTILBRK OR L=19:PRINT:PRINTTAB(0,12)"DONE:";L;"/19 ";
9PRINT"TYPOS:";E;SPC(15):IFL<19THENPRINT"AGAIN?"ELSEPRINT"MR. 0;0) APPR0VES"

<256B ver.

2DIMA(19):B=0:REPEAT:L=L+1:A(L)=48+(RND(2)-1):CLS
3FORI=1TOL:PRINTCHR$(A(I));:SOUND1,-9,129,4:H$=INKEY$(89):NEXT
4H$=INKEY$(99):CLS:PRINT">";:FORI=1TOL:A$=GET$:PRINTA$;
7IFA$=CHR$(A(I))THENSOUND1,-9,129,4:NEXTELSEB=1
8UNTILB OR L=19:PRINTL"/19"

oneliner ver.

0A$=A$+CHR$(48+RND(2)-1):PRINT"CPU>"A$:B=INKEY(99):CLS:INPUTK$:IFK$=A$THENGOTO0