1 CLEAR 50,20047
2 CURSORY23:CLOAD"SS13

10 INIT6,0:CALL28675:POKE17149,4:POKE17153,4:FORi=17TO24:POKE16385+i*80,162:NEXTi
20 TX0,7:CURSORX1:CURSORY1:DELIM0,6,0:PRINT"  SSOOUUNNDD  SSHHEEEEPP    ":DELIM6,6,0
30 TX1,7:CURSORX1:DELIM1,7,0:PRINT"  SSOOUUNNDD  SSHHEEEEPP    ";:TX1:DELIM6,6,0
40 TX4,3:CURSORX4:CURSORY 4:PRINT"==  VVoolluummee  11  ==
50 TX0,3:CURSORX4:PRINT"==  VVoolluummee  11  ==

100 TX0:PRINT:CURSORY18:PRINT"(1) Boules & bits":PRINT"(2) Logon's run
110 PRINT"(3) Relentless menu":PRINT"(4) Sub hunter bonus stage
140 PRINT"(5) Square roots":PRINT"(6) Sheep's travel in autumn

160 CURSORX22:CURSORY 18:EG4,2:PRINT CHR$(107);CHR$(108);
170 CURSORX34:EG5,2:PRINTCHR$(107);CHR$(108):CURSORX26:EG1,2:PRINTCHR$(107);CHR$(108)
180 CURSORX31:EG3,2:PRINTCHR$(107);CHR$(108):CURSORX37:EG7,2:PRINTCHR$(107);CHR$(108)
190 CURSORX33:CURSORY2:EG0,3:PRINTCHR$(105);CHR$(106):CURSORX37:CURSORY6:EG0,6:PRINTCHR$(105):PAGE:EG4,2
200 CURSORX39:CURSORY23:PRINT CHR$(103):CURSORX39:PRINTCHR$(104);:SCREEN:CALL28672

rem Boucle principale !

500 K=KEY(0):IFK<49ORK>54THEN500
510 POKE28681,k-48:FORi=1TO100:NEXTi:GOTO500