mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-06 17:29:39 +00:00
66 lines
2.5 KiB
QBasic
66 lines
2.5 KiB
QBasic
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
|