mirror of
https://github.com/antoinevignau/source.git
synced 2024-09-01 04:29:09 +00:00
108 lines
3.8 KiB
QBasic
108 lines
3.8 KiB
QBasic
10 GOSUB 13000: REM TOMBE
|
|
20 GOSUB 30000: REM SARABANDE
|
|
30 TEXT: 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
|
|
|
|
13000 & H: & I 0: & S 75,62,1: & D -5,0,1: & D -55,108,1: & D 37,-10,1
|
|
13005 & D 30,-90,1: & D -19,5,1: & D 19,-5,1: & D 20,5,1: & D -12,94,1
|
|
13007 & D -38,-10,1: & D 38,10,1: & D 0,20,1: & D -75,0,1: & D 0,-20,1
|
|
13010 & D 0,20,1: & D 75,0,1: & D 15,-112,1: & D 0,-15,1
|
|
13012 & D -3,14,1: & D 3,-14,1: & D -13,0,1
|
|
13015 & D 0,-12,1: & D 0,12,1: & D -4,10,1: & D 0,-22,1: & D 12,0,1
|
|
13020 & D 4,-7,1: & D 0,-15,1: & D -4,6,1: & D 0,16,1: & D 0,-16,1: & D -12,0,1
|
|
13025 & D 4,-6,1: & D 12,0,1: & D -12,0,1: & D 0,-16,1: & D -4,6,1: & D 0,16,1
|
|
13030 & D 0,-16,1: & D -12,0,1: & D 4,-6,1: & D 12,0,1: & D -12,0,1: & D -4,6,1
|
|
13035 & D 0,16,1: & D -12,0,1: & D 4,-6,1: & D 7,0,1: & D -7,0,1: & D -4,6,1
|
|
13040 & D 0,16,1: & D 12,0,1: & D 0,22,1
|
|
13045 & I 3: RETURN
|
|
|
|
30000 REM SARABANDE
|
|
30001 RETURN
|
|
30005 & R 30000: REM RESTORE
|
|
30010 FOR N=1 TO 41:READ Y$,Y$,Y$,Y$,Y$,Y$,Y$:NEXT
|
|
30015 FOR N=1 TO 75
|
|
30020 READ A1,A2,A3,A4,A5
|
|
30025 READ A6,A7,A8,A9,A0
|
|
30030 REM MUSIC1,A1,A2,A3:MUSIC2,A4,A5,A6:MUSIC3,A7,A8,A9:PLAY7,0,0,100: & W A0
|
|
30032 REM IF N>70 THEN NEXT:PLAY0,0,0,0: RETURN
|
|
30035 REM PLAY0,0,0,0:NEXT
|
|
30040 DATA 3,6,8,3,3,8,2,10,8,80
|
|
30045 DATA 3,6,8,3,3,8,2,10,8,80
|
|
30050 DATA 0,1,1,0,1,1,0,1,1,40
|
|
30055 DATA 3,8,8,3,5,8,0,1,1,40
|
|
30060 DATA 3,5,8,3,2,8,2,10,8,80
|
|
30065 DATA 3,5,8,3,2,8,2,10,8,40
|
|
30070 DATA 1,11,8,0,1,1,0,1,1,40
|
|
30075 DATA 1,10,8,0,1,1,0,1,1,40
|
|
30080 DATA 1,8,8,0,1,1,0,1,1,40
|
|
30085 DATA 3,10,8,3,6,9,3,1,8,80
|
|
30090 DATA 3,10,8,3,6,9,3,1,8,80
|
|
30095 DATA 0,1,1,0,1,1,0,1,1,40
|
|
30100 DATA 3,11,8,3,8,8,0,1,1,40
|
|
30105 DATA 3,8,8,3,5,8,3,1,8,80
|
|
30110 DATA 3,8,8,3,5,8,3,1,8,40
|
|
30115 DATA 2,1,8,0,1,1,0,1,1,40
|
|
30120 DATA 1,11,8,0,1,1,0,1,1,40
|
|
30125 DATA 1,10,8,3,7,8,3,10,8,40
|
|
30130 DATA 3,11,8,3,8,8,3,3,8,80
|
|
30135 DATA 3,11,8,3,8,8,3,3,8,80
|
|
30140 DATA 1,8,8,0,1,1,0,1,1,40
|
|
30145 DATA 1,8,8,3,10,8,4,1,8,40
|
|
30150 DATA 3,10,8,3,6,8,3,3,8,80
|
|
30155 DATA 3,10,8,3,6,8,3,3,8,80
|
|
30160 DATA 0,1,1,0,1,1,0,1,1,40
|
|
30165 DATA 3,10,8,2,1,8,0,1,1,40
|
|
30170 DATA 4,3,8,3,10,8,1,11,8,80
|
|
30175 DATA 4,3,8,3,8,8,2,11,9,80
|
|
30180 DATA 0,1,1,0,1,1,0,1,1,40
|
|
30185 DATA 4,5,8,0,1,1,0,1,1,40
|
|
30190 DATA 4,2,8,3,10,8,3,5,8,80
|
|
30195 DATA 4,2,8,3,10,8,3,5,8,40
|
|
30200 DATA 2,8,8,0,1,1,0,1,1,40
|
|
30202 DATA 2,6,8,0,1,1,0,1,1,40
|
|
30203 DATA 2,5,8,0,1,1,0,1,1,40
|
|
30205 DATA 3,6,8,3,3,8,2,10,8,80
|
|
30210 DATA 3,6,8,3,3,8,2,10,8,80
|
|
30215 DATA 0,1,1,0,1,1,0,1,1,40
|
|
30220 DATA 3,8,8,3,5,8,0,1,1,40
|
|
30225 DATA 3,5,8,3,2,8,2,10,8,80
|
|
30230 DATA 3,5,8,3,2,8,2,10,8,40
|
|
30235 DATA 1,11,8,0,1,1,0,1,1,40
|
|
30240 DATA 1,10,8,0,1,1,0,1,1,40
|
|
30245 DATA 1,8,8,0,1,1,0,1,1,40
|
|
30250 DATA 3,10,8,3,6,9,3,1,8,80
|
|
30255 DATA 3,10,8,3,6,9,3,1,8,80
|
|
30260 DATA 0,1,1,0,1,1,0,1,1,40
|
|
30265 DATA 3,11,8,3,8,8,0,1,1,40
|
|
30270 DATA 3,8,8,3,5,8,3,1,8,80
|
|
30275 DATA 3,8,8,3,5,8,3,1,8,40
|
|
30280 DATA 2,1,8,0,1,1,0,1,1,40
|
|
30285 DATA 1,11,8,0,1,1,0,1,1,40
|
|
30290 DATA 1,10,8,3,7,8,3,10,8,40
|
|
30295 DATA 3,11,8,3,8,8,3,3,8,80
|
|
30300 DATA 2,8,8,0,1,1,0,1,1,40
|
|
30305 DATA 3,11,8,3,8,8,3,1,8,40
|
|
30310 DATA 2,8,8,0,1,1,0,1,1,40
|
|
30315 DATA 2,1,8,0,1,1,0,1,1,40
|
|
30320 DATA 4,1,8,2,5,8,0,1,1,40
|
|
30325 DATA 3,10,8,3,6,8,3,1,8,80
|
|
30330 DATA 3,10,8,2,3,8,0,1,1,40
|
|
30335 DATA 4,3,8,3,6,8,2,11,8,40
|
|
30340 DATA 4,2,8,0,1,1,0,1,1,40
|
|
30345 DATA 4,3,8,3,11,8,2,8,8,40
|
|
30350 DATA 4,5,8,0,1,1,0,1,1,40
|
|
30355 DATA 4,6,8,3,10,8,2,10,8,80
|
|
30360 DATA 4,5,8,3,8,8,1,10,8,40
|
|
30365 DATA 0,1,1,3,8,8,1,10,8,40
|
|
30370 DATA 4,3,8,0,1,1,0,1,1,40
|
|
30375 DATA 4,3,8,3,6,8,2,3,8,80
|
|
30380 DATA 3,3,8,3,10,8,3,6,8,40
|
|
30385 DATA 3,3,7,3,10,7,3,6,7,40
|
|
30390 DATA 3,3,6,3,10,6,3,6,6,40
|
|
30395 DATA 3,3,5,3,10,5,3,6,5,40
|
|
30400 DATA 3,3,4,3,10,4,3,6,5,40
|