10 REM Page d'intro du programme *** LE CHATEAU ENCHANTE ***" 
11 REM Adapate par Dominique Rioual - Aout 2017
15 HOME
20 HGR:HCOLOR=7
100 READ TRAIT%, X%, Y%
110 IF TRAIT%=-1 THEN 200
120 IF TRAIT%=0 THEN HPLOT X%,Y%:GOTO 100
130 HPLOT TO X%,Y%:GOTO 100
200 VTAB 21: HTAB 10:INVERSE : PRINT" LE CHATEAU ENCHANTE ":NORMAL
210 PRINT "Jeu d'aventure de Jorg Walkowiak---1984"
220 PRINT "Adaptation Dominique Rioual---aout 2017"
230 GOSUB 20000
240 GET ENTREE$
500 TEXT:HOME
510 FLASH:PRINT "CHARGEMENT...":NORMAL
520 PRINT CHR$(4);"RUN CHATEAU"
530 REM FIN DE L'INTRO
9999 REM DATA GRAPHIQUE
10000 DATA 0,173,58:DATA 1,186,58:DATA 1,186,65:DATA 1,199,65:DATA 1,199,58:DATA 1,213,58
10001 DATA 0,267,24:DATA 1,253,38:DATA 1,253,136:DATA 1,213,136:DATA 1,213,38:DATA 1,200,24
10002 DATA 1,267,24:DATA 0,213,66:DATA 1,67,66:DATA 0,67,136:DATA 1,67,38:DATA 1,80,24
10003 DATA 1,13,24:DATA 1,27,38:DATA 1,27,136:DATA 1,67,136:DATA 0,67,135:DATA 1,213,135
10004 DATA 0,152,135:DATA 1,152,118:DATA 1,147,112:DATA 1,141,112:DATA 1,136,118:DATA 1,136,135
10005 DATA 0,80,23:DATA 0,80,23:DATA 1,80,16:DATA 1,67,16:DATA 1,67,23:DATA 1,53,23
10006 DATA 1,53,16:DATA 1,40,16:DATA 1,40,23:DATA 1,27,23:DATA 1,27,16:DATA 1,13,16
10007 DATA 1,13,23:DATA 0,200,23:DATA 1,200,16:DATA 1,213,16:DATA 1,213,23:DATA 1,227,23
10008 DATA 1,227,16:DATA 1,240,16:DATA 1,240,23:DATA 1,253,23:DATA 1,253,16:DATA 1,267,16
10009 DATA 1,267,23:DATA 0,232,52:DATA 1,234,54:DATA 1,234,60:DATA 1,230,60:DATA 1,230,54
10010 DATA 1,232,52:DATA 0,230,92:DATA 1,230,86:DATA 1,232,83:DATA 1,234,86:DATA 1,234,92
10011 DATA 0,234,94:DATA 1,230,94:DATA 0,48,94:DATA 1,44,94:DATA 1,44,88:DATA 1,46,86
10012 DATA 1,48,88:DATA 1,48,94:DATA 0,48,60:DATA 1,48,54:DATA 1,46,52:DATA 1,44,54
10013 DATA 1,44,60:DATA 1,48,60:DATA 0,66,58:DATA 1,79,58:DATA 1,79,65:DATA 1,93,65
10014 DATA 1,93,58:DATA 1,106,58:DATA 1,106,65:DATA 1,119,65:DATA 1,119,58:DATA 1,133,58
10015 DATA 1,133,65:DATA 1,146,65:DATA 1,146,58:DATA 1,159,58:DATA 1,159,65:DATA 1,173,65
10016 DATA 1,173,58:DATA 1,186,58:DATA 1,186,65:DATA 1,199,65:DATA 1,199,58:DATA 1,213,58
10017 DATA 0,81,94:DATA 1,81,88:DATA 1,83,86:DATA 1,85,88:DATA 0,85,88:DATA 1,85,94
10018 DATA 1,81,94:DATA 0,113,94:DATA 1,109,94:DATA 1,109,88:DATA 1,111,86:DATA 1,113,88
10019 DATA 1,113,94:DATA 0,141,94:DATA 1,137,94:DATA 1,137,88:DATA 1,139,86:DATA 1,141,88
10020 DATA 1,141,94:DATA 0,163,94:DATA 1,163,88:DATA 1,165,86:DATA 1,167,88:DATA 1,167,94
10021 DATA 1,163,94:DATA 0,189,94:DATA 1,189,88:DATA 1,191,86:DATA 1,193,88:DATA 1,193,94
10022 DATA 1,189,94:DATA 0,147,115:DATA 1,147,130:DATA 0,143,130:DATA 1,143,113:DATA 0,139,113
10023 DATA 1,139,130:DATA 0,135,128:DATA 1,151,128:DATA -1,-1,-1
20000 REM SUBROUTINE SON
20010 FOR I=768 TO 786
20020 READ B
20030 POKE I,B
20040 NEXT I
20050 DATA 173,48,192,136,208,4,198,8,240
20060 DATA 8,202,208,246,166,6,76,0,3,96
20100 REM LECTURE NOMBRE DE NOTES
20110 READ T
20120 REM JOUE CHAQUE NOTE
20130 FOR I=1 TO T
20140 READ D : REM DUREE
20150 READ P : REM PITCH
20160 GOSUB 20510
20170 NEXT I
20180 RETURN
20200 REM DATA POUR LES NOTES
20210 REM PREMIER ELEMENT EST LE NOMBRE DE NOTES
20220 DATA 6
20230 DATA 60,20,60,20,70,20,160,30,175,27,180,32
20500 REM SUBROUTINE LANGAGE MACHINE
20510 POKE 6,P : REM PITCH
20520 POKE 8,D : REM DUREE
20530 CALL 768 : REM JOUE NOTE
20540 RETURN