10 GOSUB 32000
30 PRINT: PRINT: PRINT: PRINT: PRINT "Voulez-vous rejouer ?":GET X$
40 IF X$="O" THEN PRINT CHR$(4);"RUN PRESENTATION"
50 IF X$="N" THEN GOTO 70
60 GOTO 30
70 HOME: PRINT: PRINT: PRINT: PRINT "     AU REVOIR"
80 END

32000 REM    TEA FOR TWO
32001 GOSUB 33000
32002 & R 32000: REM RESTORE
32003 RETURN
32004 FOR N=1 TO 166:READ Y$,Y$,Y$,Y$,Y$,Y$,Y$,Y$:NEXT
32005 FOR N=1 TO 110
32010 READ A1,A2,A3
32015 REM MUSIC1,A1,A2,10:PLAY1,0,0,100: & W  A3
32020 REM PLAY0,0,0,0
32022 NEXT
32025 DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45 
32030 DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15
32035 DATA4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45
32040 DATA4,3,15,4,5,45,4,1,30,4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8
32045 DATA4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,5,8,4,9,30,4,7,22,4,5,8
32050 DATA4,7,30,4,7,22,4,5,8,4,9,30,4,9,22,4,5,8,4,7,30,4,7,22,4,5,8
32055 DATA4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8,4,10,30,4,10,22,4,7,8
32060 DATA4,9,30,4,9,30,5,2,120,5,1,60,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45
32065 DATA4,3,15,4,5,45,4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15
32070 DATA4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45
32075 DATA4,1,30,5,3,45,5,3,15,5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15
32080 DATA5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15
32085 DATA4,6,45,4,3,15,4,5,45,4,3,15
32090 DATA4,6,45,4,3,15,4,5,45,4,10,15,4,6,120

33000 TEXT:HOME:NORMAL
33002 GOSUB 50000
33003 RETURN: REM LOGO
33005 FOR N=1 TO 331:READ Y$,Y$,Y$,Y$,Y$:NEXT:READ Y$,Y$,Y$
33010 FOR N=46360 TO 46423
33020 READ GH:POKE  N,GH
33030 NEXT
33040 DATA 1,2,4,4,4,2,3,1,48,32,24,16,32,16,32,32
33050 DATA 2,6,9,8,8,8,4,6,16,16,8,40,26,12,10,16
33060 DATA 7,8,8,16,16,8,28,0,48,8,8,4,4,2,3,0
33070 DATA 3,4,4,6,2,2,3,0,48,24,8,4,4,4,6,0
33100 FOR N=48802 TO 48836 STEP 2
33110 POKE N,35:POKE N+1,36:POKE N+40,37:POKE N+41,38:POKE N+80,39:POKE N+81,40
33120 REM & W 48836-N
33130 POKE N,32:POKE N+40,32:POKE N+80,32
33140 POKE N+1,35:POKE N+2,36:POKE N+41,37:POKE N+42,38:POKE N+81,41:POKE N+82,42
33150 REM & W 48836-N
33160 POKE N+1,32:POKE N+41,32:POKE N+81,32
33170 NEXT
33180 POKE N,32:POKE N+40,32:POKE N+80,32
33190 REM CALL#F89B
33200 RETURN

50000 PRINT
50010 PRINT " Cela est exceptionnel, vous etes le"
50020 PRINT "premier a etre sorti vivant de cette"
50030 PRINT "maison.";
50040 PRINT: PRINT
50050 PRINT " Mais si j'etais vous, je me mettrais"
50060 PRINT "a courir car un nain rode peut-etre"
50070 PRINT "dans les parages..."
50080 RETURN