EN is coming

This commit is contained in:
Antoine Vignau 2024-01-14 00:01:12 +01:00
parent 857b37c83b
commit 3a6d5dbf9f
37 changed files with 94811 additions and 19166 deletions

Binary file not shown.

Binary file not shown.

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1 @@
RetourDrGenius=Type(B3),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)

14
leretour/apple2/en/data.s Normal file
View File

@ -0,0 +1,14 @@
*
* Le retour du Dr Genius - Data
*
* (c) 1983, Loriciels
* (c) 2023, Brutal Deluxe Software (Apple II)
*
lst off
put sons.s
put introdata.s
*--- It's the end

757
leretour/apple2/en/en.s Normal file
View File

@ -0,0 +1,757 @@
*
* Le retour du Dr Genius
*
* (c) 1983, Loriciels
* (c) 2023, Brutal Deluxe Software (Apple II)
*
*
* Les chaines standards
*
strVOUSDETENEZ
asc 'You carry: '00
strVOUSRIEN
asc 'You mustn'27't be tired. You carry nothing.'00
strPOINT
asc '.'00
strVOUSLAVEZ
asc 0D'You already have this... Stunned!'0D00
strNOTOWNED
asc 0D'I didn'27't know you could drop something'0D
asc 'you don'27't own...'0D00
strDACCORD
asc 'OK'00
strILFAITNOIR
asc 'The room is not lit.'0D00
strVOSYEUX asc 'Your eyes no longer see anything.'0D00
strNIVEAU asc 'LEVEL 0'00 ; +6 pour le niveau
strTEMPS asc '00:00'00
strILYA asc 0D'There is also:'00
strCOMMA asc ','00
strSPACE asc 0D' '00
strRETURN asc 0D00
strCOMMANDE asc 0D'Command? '00
strJENECOMPRENDS
asc 'I don'27't understand'00
strIMPOSSIBLE
asc 0D'Not possible '00
strCECHEMIN
asc 'to take this path'00
strEXCLAM
asc '!'0D00
strREPLAY asc 0D'Play again? '00
strPERDU
asc 0d'As I thought, you were stupidly fooled,'0d
asc 'and your corpse (or what'27's left of it)'0d
asc 'will lie in space forever...'00
strGAGNE asc 0d'All right,'0d
asc 'You beat me, but it was a stroke of luck,'0d
asc 'and next time my revenge will be terrible.'
asc 'Be afraid, because I will be back and my'0d
asc 'power will have no limits, then the hour'0d
asc 'of suffering will have come...'0d
asc ' Dr GENIUS.'0d00
strINTRO asc ' THE RETURN OF Dr GENIUS'0d
asc ' You have 20 minutes and'0d
asc ' 400 units of force to'0d
asc ' complete your mission..'00
*-----------------------------------
* LES DONNEES
*-----------------------------------
*
* Les actions version hexadecimale
*
newA$ hex 0100411246012E4931394DFF
hex 0300411245012E4931314DFF
hex 010041122E4430334EFF
hex 030041122E4430334EFF
hex 190045112E4438354BFF
hex 020041022E4430344EFF
hex 020041312E4430354BFF
hex 0400412E2E4430364BFF
hex 0A1342012E4230314AFF
hex 0A1242032E4230334AFF
hex 0A0E42052E4230354AFF
hex 0A2142062E4230364AFF
hex 0A2A42082E4230384AFF
hex 0A2B42092E4230394AFF
hex 0A36420A2E4231304AFF
hex 0A35420B2E4231314AFF
hex 0A2D420C2E4231324AFF
hex 0A2E420E2E4231344AFF
hex 0A2F420F2E4430374AFF
hex 0A10412E46092E4530394231364AFF
hex 0A3042112E4231374430384BFF
hex 0A3142122E4231384AFF
hex 0A29451142022E4230324AFF
hex 0A2942022E4430394531374230324DFF
hex 0A2142072E4230374AFF
hex 0B292E4330324AFF
hex 0B132E4330314AFF
hex 0B122E4330334AFF
hex 0B2E2E4331344AFF
hex 0B2142072E4330374AFF
hex 0B212E4330364AFF
hex 194A41152E4438394BFF
hex 0B2A2E4330384AFF
hex 0B2B2E4330394AFF
hex 0B362E4331304AFF
hex 0B352E4331314AFF
hex 0B2D440D2E4F31324331334831334AFF
hex 0B2D2E4331324AFF
hex 0B102E4331364AFF
hex 0B302E4331374AFF
hex 0B312E4331384AFF
hex 0A1142042E4230344AFF
hex 0A1142132E4331394831394230354230344AFF
hex 0B1144042E4330344AFF
hex 0B1144132E4331394831394230354F30344AFF
hex 052E440E2E4431324EFF
hex 322E440E2E4431324EFF
hex 4B2E440E2E4431324EFF
hex 0F2F41142E4431334EFF
hex 3435420B2E4431344EFF
hex 2823410F2E4530384431364BFF
hex 282343072E4431374BFF
hex 28232E4431384EFF
hex 2A0044082E4431394EFF
hex 342A44082E4431394EFF
hex 343144122E4432304EFF
hex 0C4C41122E4432314EFF
hex 0A1042102E4231364AFF
hex 28002E4431354BFF
hex 0F4D41312E4430354BFF
hex 0F4D412E2E4430354BFF
hex 0F4D2E4432324BFF
hex 0F112E4432334EFF
hex 0F44410F2E4432344BFF
hex 4344410F2E4432354BFF
hex 0F49411E2E4935334DFF
hex 1949411E2E4935334DFF
hex 0F1A412C2E4432374BFF
hex 431A412C2E4432374BFF
hex 434941352E4933304DFF
hex 191A412C2E4432364BFF
hex 5253412C2E4432384BFF
hex 1C1E412C2E4432394BFF
hex 1C1F412C2E4433304BFF
hex 1C20412C2E4433314BFF
hex 1C1D412C2E4433324BFF
hex 2221410F42062E4330364830364230374AFF
hex 2221410F42072E4433334BFF
hex 0A0E42132E4231394AFF
hex 0B0E42132E4331394AFF
hex 0B0E2E4330354AFF
hex 141744012E4433344EFF
hex 141644014931492E2E4433354BFF
hex 1416440141312E4433364934364DFF
hex 14164401412E2E4433364934394DFF
hex 14154401490E49144917491D49262E4433354BFF
hex 14154401410E2E4433374630344DFF
hex 1415440141142E4433374630354DFF
hex 1415440141172E4433374630334DFF
hex 14154401411D2E4433374630364DFF
hex 141544012E4433374630374DFF
hex 3412420346122E47303130344531384AFF
hex 341242032E4433334BFF
hex 322D440D2E4433334BFF
hex 322D440C2E4331324831324231334AFF
hex 342B4209460B2E4433384BFF
hex 342B42092E4433394BFF
hex 242C4209450B2E4631314AFF
hex 242C4209460B2E4531314AFF
hex 4B3044112E4434304BFF
hex 323044112E4434304BFF
hex 333044112E4AFF
hex 332D440D2E4331334831334231324AFF
hex 3436440A490449114916493049332E4433354BFF
hex 3436440A2E4434314BFF
hex 37002E4434324BFF
hex 38002E4434334BFF
hex 39002E4434344BFF
hex 3A002E4434354BFF
hex 3B002E4434364BFF
hex 3C3B2E4434364BFF
hex 3D002E4434374BFF
hex 4E002E41FF
* 1714D04D05.C04C05H04H05B19J. => TUBE GLAC
* $11 = TUBE / $0E = GLACE
* $5A = METT / $11 = TUBE
* hex 110E440444052E4330344330354830344830354231394AFF
hex 5A11440444052E4330344330354830344830354231394AFF
hex 502144072E4330374830374230364AFF
hex 3F002E443438FF ; QUIT - D48
hex 40002E4434394EFF
hex 14182E4435304BFF
hex 14424122450C2E4435314BFF
hex 14414122450C2E4435314BFF
hex 144241222E4435324EFF
hex 144141222E4531334435374BFF
hex 4546450C2E44353345313447303230354BFF
hex 4546460C4932460D2E4435344EFF
hex 4546460C450D2E44353345313447303230354BFF
hex 4546460C41322E44353345313447303230354BFF
hex 474A4115450F2E4433334BFF
hex 474A41152E45313544353547303430374BFF
hex 564A4115450F2E46313547303430304435364DFF
hex 564A41152E4435334BFF
hex 5758451041152E4631364435374BFF
hex 575841152E4436364BFF
hex 54002E443539FF ; SAVE - D59
hex 55002E443630FF ; LOAD - D60
hex 2526411D4410460C2E443631FF
hex 2526411D460C2E4438364EFF
hex 2526411D2E4436324EFF
hex 1C1B412C2E4436384BFF
hex 3E002E4436344BFF
hex 3C3E2E4436344BFF
hex 51002E4436334BFF
hex 3C512E4436334BFF
hex 241044102E4436394BFF
hex 521044102E4436394BFF
hex 470D412E2E4436374935314DFF
hex 190D412E2E4437304BFF
hex 192B42092E4437314BFF
hex 194841322E4437324BFF
hex 191342012E4439304BFF
hex 010041082E4439314EFF
hex 192741352E4933304DFF
hex 19272E4DFF
hex 19002E4437334BFF
hex 0B592E4438374BFF
hex 3C002E4438384BFF
hex 00
*
* Les objets dans les salles
*
nbO = 19
refO dfb $bd
dfb 40,33,41,53,43,10,00,21,22,26
dfb 01,06,00,17,20,00,47,19,00
tblO$ da $bdbd
da O$1,O$2,O$3,O$4,O$5,O$6,O$7,O$8,O$9,O$10
da O$11,O$12,O$13,O$14,O$15,O$16,O$17,O$18,O$19
O$1 asc 'A laser gun'00
O$2 asc 'Bloody gloves'00
O$3 asc 'A time bomb'00
O$4 asc 'A tube'00
O$5 asc 'A cooler'00
O$6 asc 'An empty box'00
O$7 asc 'A box full of water'00
O$8 asc 'A vaporizer'00
O$9 asc 'A tape recorder'00
O$10 asc 'A Geiger counter'00
O$11 asc 'A fan'00
O$12 asc 'A helmet'00
O$13 asc 'A helmet on'00
O$14 asc 'Stilts'00
O$15 asc 'Containers'00
O$16 asc 'A radio control'00
O$17 asc 'Sunglasses'00
O$18 asc 'A chainsaw'00
O$19 asc 'The cooler with the tube inside'00
*
* Les directions
*
M = 53
tblM$ da $bdbd
da M$1,M$2,M$3,M$4,M$5,M$6,M$7,M$8,M$9,M$10
da M$11,M$12,M$13,M$14,M$15,M$16,M$17,M$18,M$19,M$20
da M$21,M$22,M$23,M$24,M$25,M$26,M$27,M$28,M$29,M$30
da M$31,M$32,M$33,M$34,M$35,M$36,M$37,M$38,M$39,M$40
da M$41,M$42,M$43,M$44,M$45,M$46,M$47,M$48,M$49,M$50
da M$51,M$52,M$53
M$1 dfb 2,02,3,03,00
M$2 dfb 3,04,4,01,00
M$3 dfb 1,01,2,04,3,19,00
M$4 dfb 1,02,2,05,4,03,00
M$5 dfb 3,06,4,04,5,38,00
M$6 dfb 1,05,4,07,00
M$7 dfb 2,06,3,16,4,08,00
M$8 dfb 2,07,3,09,00
M$9 dfb 1,08,2,13,3,10,4,11,00
M$10 dfb 1,09,0
M$11 dfb 1,18,2,09,3,17,00
M$12 dfb 3,13,6,27,00
M$13 dfb 1,12,4,09,00
M$14 dfb 3,15,0
M$15 dfb 1,14,4,16,00
M$16 dfb 1,07,2,15,00
M$17 dfb 1,11,0
M$18 dfb 00
M$19 dfb 1,03,2,20,3,18,00
M$20 dfb 4,19,0
M$21 dfb 3,23,0
M$22 dfb 2,23,4,25,00
M$23 dfb 1,21,3,24,4,22,00
M$24 dfb 1,23,0
M$25 dfb 2,22,6,49,00
M$26 dfb 1,27,0
M$27 dfb 3,26,4,28,5,12,00
M$28 dfb 2,27,4,29,00
M$29 dfb 2,28,4,30,00
M$30 dfb 2,29,0
M$31 dfb 2,40,3,32,00
M$32 dfb 1,31,2,44,3,33,00
M$33 dfb 1,32,3,49,00
M$34 dfb 1,41,4,43,00
M$35 dfb 2,36,3,43,00
M$36 dfb 1,37,2,48,4,35,00
M$37 dfb 1,38,3,36,00
M$38 dfb 1,39,2,47,3,37,4,45,6,05,00
M$39 dfb 3,38,4,40,00
M$40 dfb 2,39,4,31,00
M$41 dfb 3,34,0
M$42 dfb 1,50,2,43,00
M$43 dfb 1,35,2,34,4,42,00
M$44 dfb 4,32,0
M$45 dfb 2,38,0
M$46 dfb 00
M$47 dfb 3,48,4,38,00
M$48 dfb 1,47,4,36,00
M$49 dfb 1,33,3,50,5,25,00
M$50 dfb 1,49,3,42,00
M$51 dfb 3,46,0
M$52 dfb 00
M$53 dfb 2,29,0
*
* Les mots de passe
*
tblMP$ da MP$1,MP$2,MP$3,MP$4,MP$5
MP$1 asc 'ORIC1'
MP$2 asc 'ATMOS'
MP$3 asc 'GENIS'
MP$4 asc 'CHESS'
MP$5 asc 'ARGON'
MDP$ asc 'MANOR' ; LOGO - Shorten it for the English version
*
* Le vocabulaire
* on fera index-1 b/c 8-bits
*
V = 139+2
tblVL$ dfb $bd
dfb <V$1,<V$2,<V$3,<V$4,<V$5,<V$6,<V$7,<V$8,<V$9,<V$10
dfb <V$11,<V$12,<V$13,<V$14,<V$15,<V$16,<V$17,<V$18,<V$19,<V$20
dfb <V$21,<V$22,<V$23,<V$24,<V$25,<V$26,<V$27,<V$28,<V$29,<V$30
dfb <V$31,<V$32,<V$33,<V$34,<V$35,<V$36,<V$37,<V$38,<V$39,<V$40
dfb <V$41,<V$42,<V$43,<V$44,<V$45,<V$46,<V$47,<V$48,<V$49,<V$50
dfb <V$51,<V$52,<V$53,<V$54,<V$55,<V$56,<V$57,<V$58,<V$59,<V$60
dfb <V$61,<V$62,<V$63,<V$64,<V$65,<V$66,<V$67,<V$68,<V$69,<V$70
dfb <V$71,<V$72,<V$73,<V$74,<V$75,<V$76,<V$77,<V$78,<V$79,<V$80
dfb <V$81,<V$82,<V$83,<V$84,<V$85,<V$86,<V$87,<V$88,<V$89,<V$90
dfb <V$91,<V$92,<V$93,<V$94,<V$95,<V$96,<V$97,<V$98,<V$99,<V$100
dfb <V$101,<V$102,<V$103,<V$104,<V$105,<V$106,<V$107,<V$108,<V$109,<V$110
dfb <V$111,<V$112,<V$113,<V$114,<V$115,<V$116,<V$117,<V$118,<V$119,<V$120
dfb <V$121,<V$122,<V$123,<V$124,<V$125,<V$126,<V$127,<V$128,<V$129,<V$130
dfb <V$131,<V$132,<V$133,<V$134,<V$135,<V$136,<V$137,<V$138,<V$139
dfb <V$200,<V$201
tblVH$ dfb $bd
dfb >V$1,>V$2,>V$3,>V$4,>V$5,>V$6,>V$7,>V$8,>V$9,>V$10
dfb >V$11,>V$12,>V$13,>V$14,>V$15,>V$16,>V$17,>V$18,>V$19,>V$20
dfb >V$21,>V$22,>V$23,>V$24,>V$25,>V$26,>V$27,>V$28,>V$29,>V$30
dfb >V$31,>V$32,>V$33,>V$34,>V$35,>V$36,>V$37,>V$38,>V$39,>V$40
dfb >V$41,>V$42,>V$43,>V$44,>V$45,>V$46,>V$47,>V$48,>V$49,>V$50
dfb >V$51,>V$52,>V$53,>V$54,>V$55,>V$56,>V$57,>V$58,>V$59,>V$60
dfb >V$61,>V$62,>V$63,>V$64,>V$65,>V$66,>V$67,>V$68,>V$69,>V$70
dfb >V$71,>V$72,>V$73,>V$74,>V$75,>V$76,>V$77,>V$78,>V$79,>V$80
dfb >V$81,>V$82,>V$83,>V$84,>V$85,>V$86,>V$87,>V$88,>V$89,>V$90
dfb >V$91,>V$92,>V$93,>V$94,>V$95,>V$96,>V$97,>V$98,>V$99,>V$100
dfb >V$101,>V$102,>V$103,>V$104,>V$105,>V$106,>V$107,>V$108,>V$109,>V$110
dfb >V$111,>V$112,>V$113,>V$114,>V$115,>V$116,>V$117,>V$118,>V$119,>V$120
dfb >V$121,>V$122,>V$123,>V$124,>V$125,>V$126,>V$127,>V$128,>V$129,>V$130
dfb >V$131,>V$132,>V$133,>V$134,>V$135,>V$136,>V$137,>V$138,>V$139
dfb >V$200,>V$201
tblV dfb $bd
dfb 01,01,02,02,03,03,04,04,05,05 ; 1
dfb 05,05,06,06,10,10,10,11,12,12
dfb 13,13,14,15,16,17,17,17,18,19 ; 21
dfb 19,20,20,21,22,23,24,25,25,25
dfb 26,27,28,29,30,31,32,33,34,35 ; 41
dfb 35,36,37,37,38,38,38,39,39,39
dfb 40,41,42,43,43,44,45,46,47,48 ; 61
dfb 49,50,50,50,51,51,52,52,52,53
dfb 54,54,55,55,56,56,57,58,58,59 ; 81
dfb 60,61,62,62,63,63,64,65,66,67 ; 91
dfb 68,69,69,70,70,71,72,73,73,74 ; 101
dfb 75,76,77,77,78,78,79,80,80,80
dfb 81,81,82,83,83,84,84,84,85,85 ; 121
dfb 85,86,87,87,88,88,89,89,90 ; last was 00, now 90
dfb 200,201
V$1 str 'N'
V$2 str 'NORT'
V$3 str 'E'
V$4 str 'EAST'
V$5 str 'S'
V$6 str 'SOUT'
V$7 str 'W'
V$8 str 'WEST'
V$9 str 'C'
V$10 str 'CLIM'
V$11 str 'U'
V$12 str 'UP'
V$13 str 'D'
V$14 str 'DOWN'
V$15 str 'TAKE'
V$16 str 'GRAB'
V$17 str 'PICK'
V$18 str 'DROP'
V$19 str 'JUMP'
V$20 str 'ENJA'
V$21 str 'TELE'
V$22 str 'TV'
V$23 str 'COOL'
V$24 str 'OPEN'
V$25 str 'RADI'
V$26 str 'FLAS'
V$27 str 'TUBE'
V$28 str 'NITR'
V$29 str 'BOMB'
V$30 str 'LASE'
V$31 str 'GUN'
V$32 str 'PUSH'
V$33 str 'PRES'
V$34 str 'RED'
V$35 str 'BLEU'
V$36 str 'YELL'
V$37 str 'BUTT'
V$38 str 'LEAR'
V$39 str 'EXAM'
V$40 str 'LOOK'
V$41 str 'LIBR'
V$42 str 'BOOK'
V$43 str 'READ'
V$44 str 'MATH'
V$45 str 'DALL'
V$46 str 'ARLE'
V$47 str 'MEMO'
V$48 str 'BOX'
V$49 str 'FILL'
V$50 str 'WATE'
V$51 str 'H2O'
V$52 str 'RETU'
V$53 str 'ENTE'
V$54 str 'ABOA'
V$55 str 'SHIP'
V$56 str 'SAUC'
V$57 str 'SAUC'
V$58 str 'ROOM'
V$59 str 'PIEC'
V$60 str 'PLAC'
V$61 str 'DRIN'
V$62 str 'GLOV'
V$63 str 'VAPO'
V$64 str 'RECO'
V$65 str 'RECO'
V$66 str 'CASS'
V$67 str 'HELM'
V$68 str 'STIL'
V$69 str 'CONT'
V$70 str 'GLAS'
V$71 str 'CHAI'
V$72 str 'WEAR'
V$73 str 'PASS'
V$74 str 'PUT'
V$75 str 'REMO'
V$76 str 'DEPO'
V$77 str 'ENGA'
V$78 str 'DECL'
V$79 str 'ACTI'
V$80 str 'FAN'
V$81 str 'GEIG'
V$82 str 'COUN'
V$83 str 'REFL'
V$84 str 'THIN'
V$85 str 'NOTH'
V$86 str 'WAIT'
V$87 str 'SLEE'
V$88 str 'HELP'
V$89 str 'HELP'
V$90 str 'CONS'
V$91 str 'STAR'
V$92 str 'LIST'
V$93 str 'CHRO'
V$94 str 'TEMP'
V$95 str 'QUIT' ; 63 (3F)
V$96 str 'WITH'
V$97 str 'SUIC'
V$98 str 'MANU'
V$99 str 'AUTO'
V$100 str 'CLOS'
V$101 str 'TAP'
V$102 str 'RETI'
V$103 str 'ARRE'
V$104 str 'BREA'
V$105 str 'BLOW'
V$106 str 'LIGH'
V$107 str 'TABL'
V$108 str 'FRID'
V$109 str 'FRID'
V$110 str 'COMP'
V$111 str 'TRY'
V$112 str 'PUDD'
V$113 str 'DOOR'
V$114 str 'SAS'
V$115 str 'INVE'
V$116 str 'INVE'
V$117 str 'STAI'
V$118 str 'EMPT'
V$119 str 'POUR'
V$120 str 'RENV'
V$121 str 'FORC'
V$122 str 'ENER'
V$123 str 'TURN'
V$124 str 'PAGE'
V$125 str 'SHEE'
V$126 str 'SAVE' ; 84 (54)
V$127 str 'SAVE'
V$128 str 'CSAV'
V$129 str 'LOAD' ; 85 (55)
V$130 str 'LOAD'
V$131 str 'CLOA'
V$132 str 'SWIT'
V$133 str 'REST'
V$134 str 'CORR'
V$135 str 'DIRE'
V$136 str 'TRAJ'
V$137 str 'ALL'
V$138 str 'ALL'
V$139 str 'STOR' ; RANGER (TUBE DANS GLACE => RANG TUBE)
V$200 str 'STOP' ; STOP coupe toutes les interruptions
V$201 str 'MUSI'
*
* Les reponses (str7xxx)
*
* '0 1 2 3 '
* '0123456789012345678901234567890123456789'
* '----------------------------------------'
str4010 asc 'Une boule d'27'acier tomb'8e'e du plafond'0d
asc 'vient de s'278e'craser sur votre casque.'00
str4020 asc 'Une boule d'27'acier vient de tomber du'0d
asc 'plafond, vous avez le cr'89'ne d'8e'fonc'8e'...'00
str4030 asc 'Vous venez de tomber dans une flaque d'270d
asc 'acide, '8d'a cr'8e'pite...'00
str4040 asc 'Vous venez de rentrer dans le r'8e'acteur'0d
asc 'atomique du vaisseau..!'00
str4050 asc 'La porte ne veut pas s'27'ouvrir'00
str4060 asc 'Un peu de m'8e'moire... Comment '90'tes-vous'0d
asc 'entr'8e' ?'00
str4070 asc 'Je ne vous savais pas assez muscl'8e' pour '
asc 'soulever une tonne.'00
str4080 asc 'Vous avez raison, la vue c'27'est la vie !'00
str4090 asc 'Les gants '8e'taient radioactifs, vous'0d
asc 'perdez la vue.'00
str4100 asc 'Vous l'27'avez d'8e'j'88' sur vous.'00
str4110 asc 'Impossible, je ne vois pas ceci ici.'00
str4120 asc 'Vous vous arrachez la t'90'te en tombant'0d
asc 'des '8e'chasses.'00
str4130 asc 'Des monstres sortis des containers vous '
asc 'd'8e'vorent tout cru !'00
str4140 asc 'L'27'air frais vous fait du bien. Dommage'0d
asc 'que l'27'h'8e'lice vous ait coup'8e' la t'90'te.'00
str4150 asc 'Qu'27'est-ce que vous voulez boire ???'00
str4160 asc 'Ah oui...l'27'eau est bonne.'00
str4170 asc 'Il n'27'y a pas d'27'eau ici.'00
str4180 asc 'L'27'eau '8e'tait contamin'8e'e par les bo'94'tes'0d
asc 'radioactives.'00
str4190 asc 'Vous r'8e'trecissez..petit..petit..et une'0d
asc 'araign'8e'e vous mange !'00
str4200 asc 'Ca coupe une tron'8d'onneuse, comme le'0d
asc 'prouve votre t'90'te au sol.'00
str4210 asc 'Vous glissez et tombez dans la flaque.'0d
asc 'L'27'acide cr'8e'pite.'00
str4220 asc 'Il n'27'y a pas ici de porte verrouill'8e'e'
str4230 asc 'En secouant le tube pour l'27'ouvrir,'0d
asc 'la nitroglyc'8e'rine a explos'8e'.'00
str4240 asc 'Pourquoi ouvrir un robinet qui ne ferme '
asc 'pas !'00
str4250 asc 'Le robinet ne se ferme pas.'00
str4260 asc ''00
str4270 asc 'La biblioth'8f'que n'27'a pas de porte...'00
str4280 asc 'Il n'27'y a rien de mieux sur les autres'0d
asc 'pages.'00
str4290 asc '...c'27'est toi J.R qui a pris ma femme et '
asc 'mon p'8e'trole, tu es inf'89'me.'00
str4300 asc 'Collection Arlepin, tout un r'90've'0d
asc 'd'278e'vasion.'00
str4310 asc '...et c'27'est moi Genius le grand qui cr'8e'a'
asc 'un superbe manoir...'00
str4320 asc '1031141221242713182310291430271214232927102110272718311427103023141427142324303114212114'00
str4321 asc ' <press a key> '00
str4330 asc 'Vous l'27'avez d'8e'j'88' fait.'00
str4340 asc 'Le laser vient d'27'exploser.'00
str4350 asc 'Il ne se passe rien.'00
str4360 asc 'Le sas s'27'ouvre, vous passez dans la'0d
asc 'salle '88' c'99't'8e'.'00
str4370 asc 'Cela agit sur un contacteur '88' infrarouge'
asc 'qui commande l'278e'clairage.'00
str4380 asc 'Allons enfants de la patrie...'00
str4390 asc 'Vous entendez : '27'Le laser ouvrira la'0d
asc 'porte'2700
str4400 asc 'Les lunettes sont trop fortes, vous'0d
asc 'voyez trouble.'00
str4410 asc 'La salle est radioactive.'00
str4420 asc 'Vous avez quelque chose pour ?'00
str4430 asc 'C'27'est votre probl'8f'me, mais le temps'0d
asc 'passe.'00
str4440 asc 'Avez-vous si sommeil que ca ?'00
str4450 asc 'Et puis quoi encore !'00
str4460 asc 'Faites un plan...'00
str4470 asc 'Vous entendez le ronronnement des'0d
asc 'moteurs.'00
str4480 asc 'I knew you were a coward.'00
str4490 asc 'Vous passez la t'90'te '88' travers un sas,'00
str4491 asc 'et appuyez sur le bouton de fermeture'00
str4500 asc 'Quel bouton ?'00
str4510 asc 'Les boutons ne fonctionnent pas car'0d
asc 'l'27'ordinateur central les contr'99'le.'00
str4520 asc 'Le syst'8f'me automatique est d'8e'r'8e'gl'8e', il'0d
asc 'met du gaz carbonique '88' la place de'0d
asc 'l'27'oxyg'8f'ne.'00
str4530 asc 'Vous respirez un grand coup.'00
str4540 asc 'Que voulez-vous respirer ? Il n'27'y a plus'
asc 'd'27'oxyg'8f'ne.'00
str4550 asc 'You have 2 tries'00
str4552 asc 'to enter the pass-'00
str4553 asc 'WRONG!'00
str4554 asc 'Missed twice!'0d
asc 'The computer explodes in your face.'00
str4556 asc '-word '00
str4558 asc 'Correct, you are insightful!'00
str4559 asc 0d'The return password is '00
str4559_1 asc 'UIN LOI QRU ILD ESP ECU TAS'00
str4559_2 asc 'ASU VIE RAL HOU MEA NOI THE'00
str4560 asc 'C'27'est d'27'accord.'00
str4570 asc 'Il '8e'tait temps, vous alliez mourir.'00
str4580 asc 'Vous mourrez d'8e'shydrat'8e'.'00
str4590 asc ''00
str4595 asc 'Slot 1-9 (0=sortir) ? '00
str4600 asc ''00
str4610 asc 'Le sas se referme derri'8f're vous,'0d
asc 'le tableau de contr'99'le s'27'allume et'0d
asc 'l'27'ordinateur de bord vous demande le'0d
asc 'mot de passe pour le retour '00
str4615 asc 0d'Le vaisseau de secours s'278e'loigne,'0d
asc 'au loin vous voyez Genius qui pleure'0d
asc 'derri'8f're un hublot'00
str4616 asc 0d' VOUS AVEZ GAGNE'00
str4618_1 asc 0d'Mais, que se passe-t-il, vous avez d'9e0d
asc 'vous tromper de mot de passe, votre'0d
asc 'vaisseau de poche fonce sur le soleil.'00
str4618_2 asc 0d'Vous venez de r'8e'aliser que Genius'0d
asc 'pleurait de JOIE...!'00
str4620 asc 'La soucoupe a explos'8e' au d'8e'collage.'00
str4630 asc 'Energie restante : '00
strFORCE asc '20000'00
str4640 asc 'Petit dr'99'le... Le chronom'8f'tre est'0d
asc 'affich'8e' en permanence'00
str4650 asc 0d'Le temps que vous aviez pour votre'0d
asc 'mission est '8e'coul'8e', vous avez '8e'chou'8e'.'00
str4660 asc 'Votre trajectoire est bonne, pourquoi la'
asc 'corriger ?'00
str4670 asc 'Le mur au nord coulisse, vous avancez'0d
asc 'dans cette salle.'00
str4680 asc 'Quel livre ?'00
str4690 asc 'Au dos du bo'94'tier est marqu'8e' :'00
str4692 asc ' '27'PROTEGEZ MOI'A700
str4700 asc 'Vous remarquez un bo'94'tier de radio-'0d
asc 'commande.'00
str4710 asc ''00
str4720 asc ''00
str4730 asc 'Que regardez vous ?'00
str4740 asc 0d'Le tube de nitroglyc'8e'rine vient d'270d
asc 'exploser, vous '90'tes pulv'8e'ris'8e'.'00
str4750 asc 'La bombe '88' retardement vient d'270d
asc 'exploser, vous '90'tes pulv'8e'ris'8e'.'00
str4760 asc 'La bombe '88' retardement a explos'8e', elle a'
asc 'endommag'8e' le syst'8f'me de chauffage,'0d
asc 'vous '90'tes carbonis'8e00
str4770 asc 'La bombe a explos'8e', vous '8e'tiez trop pr'8f's'
asc 'et '90'tes devenu fou...'00
str4780 asc 'La bombe '88' retardement n'278e'tait pas assez'
asc 'forte, l'27'ordinateur central n'27'est qu'270d
asc 'endommag'8e', il vous fait exploser...'00
str4790 asc 'Bravo! L'27'ordinateur central est d'8e'truit,'
asc 'mais le syst'8f'me d'27'oxyg'8e'nation ne fonc-'0d
asc '-tionne plus, de plus la trajectoire du'0d
asc 'vaisseau a chang'8e'.'00
str4800 asc 'Vous n'27'avez plus de souffle,'0d
asc 'vous '90'tes mort asphyxi'8e'.'00
str4810 asc 'Vous auriez d'9e' corriger la trajectoire,'0d
asc 'vous avez percut'8e' le soleil.'00
str4820 asc 'A force de traverser les salles radio-'0d
asc '-actives, vous '90'tes mort contamin'8e'.'00
str4830 asc 0d'Il fait de plus en plus chaud...'00
str4840 asc 'L'27'ordinateur vient d'27'exploser !'00
str4845 asc 'Vous avez d'9e' le laisser allum'8e'.'00
str4850 asc 'Comment !!! Vous '90'tes aveugle.'00
str4860 asc 'Vous n'27'aviez pas pris la radiocommande'0d
asc 'qui a explos'8e' quand le vaisseau a percu-'
asc '-te le soleil, son explosion a d'8e'clench'8e
asc 'la fin du monde.'00
str4870 asc 'Non ! pas de strip-tease.'00
str4874 asc 'Vous avez pos'8e' tout ce que vous'
asc 'transportiez.'00
str4880 asc 'Ca ne se demande pas.'00
str4890 asc 'Il y a effectivement un ordinateur parmi'
asc 'le tableau de contr'99'le.'00
str4891 asc 'L'27'ordinateur n'27'est pas en fonction.'00
str4900 asc 'Sur le laser, vous voyez trois boutons :'
asc 'jaune, rouge et bleu.'00
str4910 asc 'Vous '90'tes entre dans le d'8e'sint'8e'grateur'0d
asc 'de particules...'00
str4920 asc 'Vous '90'tes entr'8e' dans le vaisseau par le '
asc 'sas '88' l'27'ouest qui ne s'27'ouvre pas de'0d
asc 'l'27'int'8e'rieur.'00
str5500 asc 0d'Are you sure (Y/N) ? '00
str19050 asc ' Thanks for trying...!'00
str19060 asc ' Wake up, it is over!'00

1160
leretour/apple2/en/engine.s Normal file

File diff suppressed because it is too large Load Diff

567
leretour/apple2/en/iigs.s Normal file
View File

@ -0,0 +1,567 @@
*
* Le retour du Dr Genius
*
* (c) 1983, Loriciels
* (c) 2023, Brutal Deluxe Software (Apple II)
*
* Les accents (encore et toujours)
*
* ˆ 88
* 89
* <EFBFBD> 8d
* Ž 8e
* <EFBFBD> 8f
* <EFBFBD> 90
* 91
* 94
* 95
* 99
* <EFBFBD> 9d
* ž 9e
* (c) a9 (only c)
* oe cf
mx %00
rel
lst off
*-----------------------------------
* MACROS
*-----------------------------------
use 4/Event.Macs
use 4/Font.Macs
use 4/Int.Macs
use 4/Locator.Macs
use 4/Mem.Macs
use 4/Menu.Macs
use 4/MidiSyn.Macs
use 4/Misc.Macs
use 4/QD.Macs
use 4/QDAux.Macs
use 4/Sound.Macs
use 4/Std.Macs
use 4/Util.Macs
use 4/Window.Macs
*-----------------------
KBD = $e0c000
KBDSTROBE = $e0c010
RDVBLBAR = $e0c019
VERTCNT = $e0c02e
GSOS = $e100a8
*-----------------------
dpFROM = $80
dpTO = dpFROM+4
dpTHREE = dpTO+4
dpFOUR = dpTHREE+4
dpCOL1 = $90
dpCOL2 = dpCOL1+1
dpPX = dpCOL2+1
dpBK = dpPX+1
*-----------------------
refIsPointer = $0
refIsHandle = $1
refIsResource = $2
appleKey = $0100
mouseDownEvt = $0001
mouseUpEvt = $0002
keyDownEvt = $0003
*-----------------------
modeCopy = $0000
modeForeCopy = $0004 ; QDII Table 16-10
mode320 = $00
mode640 = $80
maxX = 320
maxY = 200
maxTCOLUMN = 40
maxTROW = 19
charHEIGHT = 10
charWIDTH = 8
row0 = charHEIGHT-2 ; 9 - 1 partout...
row1 = row0+charHEIGHT ; 19
row2 = row1+charHEIGHT ; 29
row3 = row2+charHEIGHT ; 39
row4 = row3+charHEIGHT ; 49
row5 = row4+charHEIGHT ; 59
row6 = row5+charHEIGHT ; 69
row7 = row6+charHEIGHT ; 79
row8 = row7+charHEIGHT ; 89
row9 = row8+charHEIGHT ; 99
row10 = row9+charHEIGHT ; 109
row11 = row10+charHEIGHT ; 119
row12 = row11+charHEIGHT ; 129
row13 = row12+charHEIGHT ; 139
row14 = row13+charHEIGHT ; 149
row15 = row14+charHEIGHT ; 159
row16 = row15+charHEIGHT ; 169
row17 = row16+charHEIGHT ; 179
row18 = row17+charHEIGHT ; 189
row19 = row18+charHEIGHT ; 199
ptr012000 = $012000
ptrE12000 = $e12000
*-----------------------
TRUE = 1
FALSE = 0
*-----------------------------------
* DU 16-BITS
*-----------------------------------
ICI phk
plb
clc
xce
rep #$30
tdc
sta myDP
_TLStartUp
pha
_MMStartUp
pla
sta appID
ora #$0100
sta myID
*-----------------------------------
* MEMORY...
*-----------------------------------
jsr make64KB
bcc okMEM1
koMEM pha
PushLong #memSTR1
PushLong #errSTR2
PushLong #errSTR1
PushLong #errSTR2
_TLTextMountVolume
pla
brl meQUIT1
okMEM1 sty ptrTEXT
stx ptrTEXT+2
stx ptrBACKGND+2
*-----------------------
jsr make64KB
bcs koMEM
sty ptrUNPACK
stx ptrUNPACK+2
stx ptrIMAGE+2
*-----------------------------------
* DESKTOP MODE
*-----------------------------------
pha
pha
PushWord myID
PushWord #refIsResource
PushLong #1
_StartUpTools
PullLong ssREC
bcc okTOOL
pha
PushLong #tolSTR1
PushLong #errSTR2
PushLong #errSTR1
PushLong #errSTR2
_TLTextMountVolume
pla
brl meQUIT
okTOOL _HideMenuBar
_InitCursor
_HideCursor
PushWord #0
PushWord #%11111111_11111111
PushWord #0
_FlushEvents
pla
PushLong #0
PushWord #5 ; SetDeskPat
PushWord #$4000
PushWord #$0000
_Desktop
pla
pla
*-----------------------------------
* INITIALISATIONS DESKTOP
*-----------------------------------
PushLong #0
_GetPort
PullLong mainPORT
PushLong mainPORT
_SetPort
PushLong #117117
_SetRandSeed
PushWord #0
_SetBackColor
PushWord #15
_SetForeColor
PushLong #whitePATTERN ; white pattern
_SetPenPat
PushWord #0
_ClearScreen
PushWord #0
_GetMasterSCB
pla
bmi okSHADOW ; shadowing is on if bit 15 is set
lda #^ptrE12000 ; shadowing is off, use slow RAM
sta srcLocInfoPtr+4
sta ptrSCREEN+2
okSHADOW
*-----------------------------------
* C'EST L'HEURE DE L'INTRODUCTION
*-----------------------------------
jsr intro
*-----------------------------------
* IL FAUT JOUER MAINTENANT
*-----------------------------------
lda fgINTRO
bne okZIKMU
jsr initMIDI
jsr doSOUNDON
okZIKMU sei
PushLong #intTIME
_SetHeartBeat
cli
jmp PLAY
*-----------------------------------
* AU REVOIR LE IIGS
*-----------------------------------
QUIT rep #$30
jsr stopMIDI
sei
PushLong #intTIME
_DelHeartBeat
cli
meQUIT PushWord #refIsHandle
PushLong ssREC
_ShutDownTools
meQUIT1 PushWord myID
_DisposeAll
PushWord appID
_DisposeAll
PushWord appID
_MMShutDown
_TLShutDown
jsl GSOS
dw $2029
adrl proQUIT
brk $bd
*-----------------------------------
* UNE BELLE BIBLIOTHEQUE
*-----------------------------------
*-----------------------------------
* RESERVE 64K
*-----------------------------------
make64KB pha
pha
PushLong #$010000
PushWord myID
PushWord #%11000000_00011100
PushLong #0
_NewHandle
phd
tsc
tcd
ldy #2
lda [3],y
tax
lda [3]
tay ; low in X
pld
pla ; we do not keep track of the handle
pla
rts
*-----------------------------------
* SAVE THE SHR SCREEN
*-----------------------------------
saveBACK _HideCursor
PushLong ptrSCREEN
PushLong ptrBACKGND
PushLong #32768
_BlockMove
_ShowCursor
rts
*-----------------------------------
* RESTORE THE SHR SCREEN
*-----------------------------------
loadBACK _HideCursor
PushLong ptrBACKGND
PushLong ptrSCREEN
PushLong #32768
_BlockMove
rts
*-----------------------------------
* LOAD/SAVE
*-----------------------------------
*----------------------------------- Open
mx %00
doLOAD sta pGAME+8
rep #$30
jsl GSOS
dw $2010
adrl proOPENGAME
bcs loadKO99
lda proOPENGAME+2
sta proREADGAME+2
sta proCLOSE+2
jsl GSOS
dw $2012
adrl proREADGAME
jsl GSOS
dw $2014
adrl proCLOSE
loadKO99 sep #$30
rts
*----------------------------------- Save
mx %00
doSAVE sta pGAME+8
rep #$30
jsl GSOS
dw $2002
adrl proDESTROYGAME
jsl GSOS
dw $2001
adrl proCREATEGAME
bcs saveKO99
jsl GSOS
dw $2010
adrl proOPENGAME
bcs saveKO99
lda proOPENGAME+2
sta proWRITEGAME+2
sta proCLOSE+2
jsl GSOS
dw $2013
adrl proWRITEGAME
jsl GSOS
dw $2014
adrl proCLOSE
saveKO99 sep #$30
rts
mx %00
*--- For the game party
proCREATEGAME
dw 7 ; pcount
adrl pGAME ; pathname
dw $c3 ; access_code
dw $5d ; file_type
adrl $8020 ; aux_type
ds 2 ; storage_type
ds 4 ; eof
ds 4 ; resource_eof
proDESTROYGAME
dw 1 ; pcount
adrl pGAME ; pathname
proOPENGAME
dw 2
ds 2
adrl pGAME
proREADGAME
dw 4 ; 0 - pcount
ds 2 ; 2 - ref_num
adrl A1 ; 4 - data_buffer
adrl FIN_DATA-DEBUT_DATA ; 8 - request_count
ds 4 ; C - transfer_count
proWRITEGAME
dw 5 ; 0 - pcount
ds 2 ; 2 - ref_num
adrl A1 ; 4 - data_buffer (we are in same bank)
adrl FIN_DATA-DEBUT_DATA ; 8 - request_count
ds 4 ; C - transfer_count
dw 1 ; cache_priority
pGAME strl '1/Game0'
*-----------------------------------
* DES DONNES 16-BITS
*-----------------------------------
*----------------------------------- Memory Manager
appID ds 2
myID ds 2
myDP ds 2
ptrSCREEN adrl ptr012000 ; l'Žcran actif
ptrTEXT adrl $00000000 ; 32k bank 1
ptrBACKGND adrl $00008000 ; 32k
ptrUNPACK adrl $00000000 ; 32k bank 2
ptrIMAGE adrl $00008000 ; 32k
*----------------------------------- Quickdraw II
palette320 dw $0000,$0777,$0841,$072C,$000F,$0080,$0F70,$0D00
dw $0FA9,$0FF0,$00E0,$04DF,$0DAF,$078F,$0CCC,$0FFF
palette640 dw $0000,$000F,$00F0,$0FFF,$0000,$000F,$0FF0,$0FFF
dw $0000,$0F00,$00F0,$0FFF,$0000,$000F,$0FF0,$0FFF
blackPATTERN ds 32,$00
ds 32,$11
ds 32,$22
ds 32,$33
ds 32,$44
ds 32,$55
ds 32,$66
redPATTERN ds 32,$77
ds 32,$88
yellowPATTERN ds 32,$99
ds 32,$aa
cyanPATTERN ds 32,$bb
ds 32,$cc
ds 32,$dd
ds 32,$ee
whitePATTERN ds 32,$ff
checkeredPATTERN
hex 0F0F0F0F
hex F0F0F0F0
hex 0F0F0F0F
hex F0F0F0F0
hex 0F0F0F0F
hex F0F0F0F0
hex 0F0F0F0F
hex F0F0F0F0
curPATTERN ds 32
curPENSIZE ds 4
*----------------------------------- Error messages
tolSTR1 str 'Error while loading tools'
memSTR1 str 'Cannot allocate memory'
filSTR1 str 'Cannot load file'
errSTR1 str 'Quit'
errSTR2 str ''
*----------------------------------- Tool Locator
ssREC ds 4
*----------------------------------- GS/OS
proERR ds 2 ; GS/OS error code
proCLOSE dw 1 ; pcount
ds 2 ; ID
proQUIT dw 2 ; pcount
ds 4 ; pathname
ds 2 ; flags
*----------------------------------- Window Manager
mainPORT ds 4
taskREC ds 2 ; wmWhat +0
taskMESSAGE ds 4 ; wmMessage +2
taskWHEN ds 4 ; wmWhen +6
taskWHERE ds 4 ; wmWhere +10
taskMODIFIERS ds 2 ; wmModifiers +14
taskDATA ds 4 ; wmTaskData +16
*-----------------------------------
* CODE BASIC EN ASM :-)
*-----------------------------------
put leretour.s
put engine.s
put introcode.s
put en.s
put midi.s
put images.s
*--- It's the end

15688
leretour/apple2/en/images.s Normal file

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,700 @@
*
* Le retour du Dr Genius
*
* (c) 1983, Loriciels
* (c) 2023, Brutal Deluxe Software (Apple II)
*
lst off
*-----------------------------------
* LES TEXTES DE L'INTRO
*-----------------------------------
txtINTRO1 ENT
str 'Brutal Deluxe Software'
txtINTRO2 ENT
str 'Antoine Vignau & Olivier Zardini'
txtINTRO3 ENT
str 'present'
txtINTRO4 ENT
str 'Thanks XavSnap'
txtINTRO5 ENT
str 'THE RETURN OF DR GENIUS'
txtINTRO6 ENT
str '(c) 1984 - 2024'
txtINTRO7 ENT
str 'Laurent Benes & Loriciels'
*-----------------------------------
telexRECT ENT
dw 0,0,102,320
txtTELEX1 ENT
asc '1AM (French time)'00
txtTELEX3 ENT
asc 'on all the telexes in'00
txtTELEX4 ENT
asc 'the world this distres-'00
txtTELEX5 ENT
asc 'sing message appears...'00
*-----------------------------------
txtGENIUSTEXTE ENT
asc 'I, GENIUS, challenge the world.'0d
asc 'I invented a new weapon capable of '0d
asc 'destroying the Earth, which I will do in'
asc 'two weeks... But, since I'27'm not a'0d
asc 'monster, I'27'll give you a chance.'0d
asc 'I accept that men from all countries go'0d
asc 'to my ship in orbit around the Earth to'0d
asc 'try to defuse my weapons. But, never'0d
asc 'more than one man at a time....'00
*-----------------------------------
txtSERPENT1 ENT
str 'LORICIELS'
txtSERPENT2 ENT
str 'offers you what you'
txtSERPENT3 ENT
str 'have been dreading'
txtSERPENT4 ENT
str 'for a long time'
*-----------------------------------
txtTITRE1 ENT
asc 'The Return'00
txtTITRE2 ENT
asc 'of Doctor'00
txtTITRE3 ENT
asc 'Genius'00
txtECRITPAR1 ENT
str 'Written by Laurent Benes'
txtECRITPAR2 ENT
str 'Assisted by Karine Le Pors'
txtECRITPAR3 ENT
str '('A9') LORICIELS August 1984'
txtECRITPAR6 ENT
str '3 days later in'
txtECRITPAR7 ENT
str 'the newspapers'
ecritparRECT ENT
dw 160,0,200,320
*-----------------------------------
txtMONDE ENT
asc 'This is how you decide to go to the'0d
asc 'authorities to fight Dr. Genius again.'0d
asc 'The next day, you are taken to the ship'0d
asc 'where you will now try to defeat'0d
asc 'Dr. Genius in order to save the Earth.'0d0d0d
asc ' GOOD LUCK...'0d0d0d
asc 'You will need it!'00
*-----------------------------------
txtEXPLICATIONS1 ENT
asc 'Here are some explanations'0d
asc 'The game is in real time, a timer will'0d
asc 'be permanently displayed. On the other'0d
asc 'hand, you will have to be careful of'0d
asc 'your energy which will decrease as the'0d
asc 'game progresses.'0d
asc 'Be careful, the more objects you carry,'0d
asc 'the more your strength decreases.'0d0d
asc 'To converse with the computer, you can'0d
asc 'use vocabulary chosen from nearly 150'0d
asc 'words that you will discover as you go'0d
asc 'along... and yes, that'27's the adventure.'0d0d
asc 'On the other hand, the computer will'0d
asc 'only take into account the first four'0d
asc 'letters of each word, thus:'0d
asc 'TAKE CARDBOARD will be understood as:'0d
asc 'TAKE CARD'00
txtEXPLICATIONS2 ENT
asc 'L'27'ordinateur ne prend en compte en'0d
asc 'g'8e'n'8e'ral que deux mots, exemple :'0d
asc '- ALLUME SALLE'0d
asc '- EST ou E ou AVANCE EST'0d0d
asc 'Dans certains cas,l'27'ordinateur prendra'0d
asc 'en compte trois mots. Il s'27'agit de cas'0d
asc 'ou un qualificatif est n'8e'cessaire, ou'0d
asc 'lorsque l'27'on veut mettre une chose'0d
asc 'dans une autre. Exemple :'0d0d
asc 'PRENDS LIVRE VERT'0d
asc 'PRENDS MOUCHOIR PAPIER'0d
asc ' ou'0d
asc 'CRAYON DANS BOITE'0d0d
asc 'Ce dernier cas indiquera qu'27'il faut'0d
asc 'mettre le crayon dans la bo'94'te.'0d
asc 88' condition que vous poss'8e'diez crayon'0d
asc 'et bo'94'te, '8e'videmment.'00
txtEXPLICATIONS3 ENT
asc 'One last thing, it is possible to save'0d
asc 'a game in progress, and reload it, but'0d
asc 'it'27's up to you to find the appropriate'0d
asc 'vocabulary...'0d0d0d0d
asc 'And now, have a good adventure...'0d0d
asc 'and take care of yourself!'0d0d0d
asc 'Press a key to play.'00
txtEXPLICATIONS4 ENT
asc 'Do you want to watch the presentation again (Y/N) '00
*-----------------------------------
* IMAGE DU DR GENIUS (DRACULA)
*-----------------------------------
picGENIUS ENT
HEX 404040405F7F6040404040404040404040
HEX 404040437F7F7E40404040404040404040
HEX 4040405F7F7F7F78404040404040404040
HEX 4040437F7F7E7F7E404040404040404040
HEX 40405F7F7F604F7F604040404040404040
HEX 40437F7F7040437F704040404040404040
HEX 40405F7E4040407F784040404040404040
HEX 40417F704040404F7C4040404040404040
HEX 40404F40404040437E4040404040404040
HEX 40405E405C4040417F4040404040404040
HEX 40404E417C4040407F6040404040404040
HEX 40404C437E4040405F7040404040404040
HEX 40405C477F4C40404F7840404040404040
HEX 4040584F7F704040477C40404040404040
HEX 4040584F7E436040477C40404040404040
HEX 40405040407C4F40437E40404040404040
HEX 404050404F405070437E40404040404040
HEX 404050437C436048417F40404040404040
HEX 4040705C405C4040417F40404040404040
HEX 4040704043504040417F60404040404040
HEX 404070404F404040407F60404040404040
HEX 404173617E404760407F70404040404040
HEX 4041705E42405F70407F70404040404040
HEX 4041704042405F78407F78404040404040
HEX 4041704041407F78405F78404040404040
HEX 40417040415F7C7C405F7C404040404040
HEX 40417040415F704E405F7C404040404040
HEX 40417770465F716F405F7E404040404040
HEX 4040777F705F6163404F7E404140404040
HEX 4040777F784F4346404F74404770404040
HEX 4040777F79677F7C404F64417848404040
HEX 404057737A417F78424F464E4364404040
HEX 4040576078517F7042474F505E44404040
HEX 4040574650486040434651677F42404040
HEX 40405646504440404346614F7E42404040
HEX 4040667F7042404043454C7F7E41404040
HEX 40406D7F704140404346507F7C41404040
HEX 4041407F60587F474740607F7840604040
HEX 4041405F4F5C5F637F406C5F7040604040
HEX 404140404F5C5F7B7F407E5F6040604040
HEX 404140405F4E5F6B7E407E5F4040504040
HEX 404148417F4F4F6B7E405E5E4040504040
HEX 40414C437F6043637E40465C4040504040
HEX 40406C437F7843637E404C784040484040
HEX 40406E43637C41717C4070784040484040
HEX 40406777637F40787C4041704040484040
HEX 404057776170405C7C4441704040444040
HEX 404053774040405C5C4A43604040444040
HEX 70405377405F404E5C4A47404040444040
HEX 78404977417F7F4E4C494F404040424040
HEX 7C40497747794F474C4976404040424040
HEX 7C40487747494967445040404040424040
HEX 7C4044574D4F7973645048404040417040
HEX 7C404447597F7F736050487C4040404840
HEX 7C4044475F7F7F717050517E4040404640
HEX 7C4042475F7F7F717060577F4040404140
HEX 7F7F42435F7F7F717060577F6040404140
HEX 7F7F71437F7F7F717060577F7040404060
HEX 7F7F7E63797949716060577F7840404060
HEX 7F7F7C637D4949616140577F7840404060
HEX 7F7F78516F4F7F4361405B7F7C40404050
HEX 7F7F7051677F7C6341407B7F7C40404050
HEX 7F7F6049737F7C6342417D7F7E40404050
HEX 7F7F4048707F7D47424F7D7F7F40404050
HEX 7F7E4044787C4146425F7E7F7F60404050
HEX 7F7C404458704046445F7E7F7F60404050
HEX 7F7840424C40404E445F7E7F7F70404050
HEX 7F7760424440404C485F7F5F7F70404050
HEX 7F7058414243605C485F7F5F7F78404050
HEX 7C4F444062477058505F7F5F7F7C404050
HEX 7D7F7A40514F7F70705F7F4F7F7E404048
HEX 7D7F7D40487F7F73405F7F6F7F7F404048
HEX 7D7F7E60447F7F7C405F7F6F7F7F604048
HEX 7E7F7F50437F7F60405F7F6F7F7F704048
HEX 7E7F7F68417F7C40405F7F6F7F7F7C4048
HEX 7E7F7F74405F7040405F7F777F7E434048
HEX 7F5F7F7A40424040405B7F777F60407048
HEX 7F5F7F7D4042404040437F777E40404C48
HEX 7F5F7F7D4042404040437F777840404370
HEX 7F6F7F7E6042404040417F776040404040
HEX 7F6F7F7E6042404040417F776040404040
HEX 7F6F7F7F5044404040407F774040404040
HEX 7F777F7F5044404040407F764040404040
HEX 7F777F7F5048404040407F744040404040
*-----------------------------------
* IMAGE DU DE LA UNE DU MONDE
*-----------------------------------
picMONDE ENT
HEX 17004040404040404040404040404040404040404040404040404040404040404040404040404040
HEX 170040404040404F6040404041637844407040404040404040404840404001404040404040404040
HEX 170040404040407770404040434F7C7F437E44404040404040405C40404001404040404040404040
HEX 17004040404041625E604040477C7D6F7E5F78404040404040407E40404001404040404040404040
HEX 1700404040404373476040404F787E47784760404040404040414F604040015F5E4E5F4E5F594040
HEX 1700404040404F72634040404B607C43745B404040404040404247604040015F5F4455445F594040
HEX 17004040404057526C40404048407F4173664040404040404041436040400153534444445B5D4040
HEX 170040404040645250404040484C7C60704E404040404040404073604040015053444444515D4040
HEX 1700404040406C524040404044547C59705E40404040404040405360404001585344444451574040
HEX 1700404040407C524040404043647C49716E40404040404040405360404001585344444451574040
HEX 1700404040415C524040404040447C49725E40424040505040405360404001505344444451534040
HEX 1700404040425C5240405C4040457C49725E40474040787C4240576043600153534444445B534040
HEX 170040404044565240407E40405F7C49725E404F60417F7F44405F604770015F5F4444445F514040
HEX 170040404044465240437F40406B7C49725E404F78527E5F78407B605F78015F5E4E444E5F514040
HEX 1700404040457752404F676041417C49725E405C7E645E47704173617C7C01404040404040404040
HEX 1700404040424F52404F616041407C49725E407C4F444F43704753617C4C01404040404040404040
HEX 1700404040417F5240576360417C7C49725E407F47434E71704F53627C5C01404040404040404040
HEX 1700404040425F524067774041447C49725E415C67414E49705753647E7801404040404040404040
HEX 170040404042575240676C4040447C49725E425C67414E49706753647D60015F5F5F5F4E5F505F40
HEX 17004040404243524067684040447849725E425C67414E49706753647D40015F5F5F5F445F505F40
HEX 17004040404279524067784040447849725E425C67414E49706753647F4001535953534451505340
HEX 17004040404149524067704040447049725E425C67414E49706753647E4001505950504451505040
HEX 17004040404049524067604040446049725E425F67414E49706773647C40015F5F5850445F505840
HEX 1700404040404B5E4667604040456049725E425F77415F4970677A447C400141585850445F505840
HEX 1700404040404F7F7C67716040477049725E625F7E417F6972677C447E4C01595853534451535340
HEX 1700404040407F7F7C637A40405F7C69725F624F78425F48746778445F50015F585F5F44515F5F40
HEX 1700404040417C5F70607E4041787F696247414370444E44786370444770015F5C5F5F4E515F5F40
HEX 17004040404740407058784043404349436240606042444448706043474001404040404040404040
HEX 170040404048404060454040424F424A406C40534041484250494040684001404040404040404040
HEX 17004040404F7F71404640404370744C4050404C4040704160464040704001404040404040404040
HEX 170040404040405E4040404040404848404040404040404040404040404001404040404040404040
HEX 17004040404040404040404040404040404040404040404040404040404040404040404040404040
HEX 17004040404040404040404040404040404040404040404040404040404040404040404040404040
HEX 17004040404040404040404040404040404040404040404040404040404040404040404040404040
HEX 17004040404040404040404040404040404040404040404040404040404040404040404040404040
HEX 17004040404040404040404040404040404040404040404040404040404040404040404040404040
HEX 17004040404040404040404040404040404040404040404040404040404040404040404040404040
HEX 17004040404040404040404040404040404040404040404040404040404040404040404040404040
HEX 17004040404040404040404040404040404040404040404040404040404040404040404040404040
HEX 17004040404040404040404040404040404040404040404040404040404040404040404040404040
HEX 170048404050405040047E477C7E474C
HEX 7E5F737840437E4F637C5F73797C4300
HEX 40405040404040401700484040544050
HEX 40047F477C7F474C7E5F737C40437E5F
HEX 737E5F73797E43004040544040404040
HEX 1700487E5E5840507E047F664C71674C
HEX 5C5873464043465F7346587171634300
HEX 7E7E58407C7E7E401700406260704050
HEX 620471664C71676C5C58734640434658
HEX 73425051716343007062704042707040
HEX 1700407C7E5040507C0471664071676C
HEX 5C584346404340587342505171634300
HEX 607C50407E6060401700406042524058
HEX 600471664071666C5C58434640434058
HEX 43465051716343007060524062707040
HEX 1700405E7C4C405C5E047167607F467C
HEX 5C5E437C40437058437C5051717E4300
HEX 7E5E4C405C7E7E401700404040404040
HEX 40047167607E467C5C5E43784043705F
HEX 637C5051717C43004040404040404040
HEX 1700405040404040500471676076465C
HEX 5C5E43584043705F73405051716C4300
HEX 40404050404040401700405440484040
HEX 540471676076465C5C5E435840437040
HEX 73405051716C43004040405040404040
HEX 17007E587C407E6C580471664076465C
HEX 5C5843584043404073405051716C4300
HEX 6C7E5C507E40624017006270424C6272
HEX 700471664073464C5C58434C40434040
HEX 73405051716643007262625062407640
HEX 17007C507E487C62500471664C73464C
HEX 5C58734C404346587340505171664000
HEX 607C5E507C406A401700605262486062
HEX 52047F664C73464C5C58734C40434658
HEX 73405871716640006060425860406240
HEX 17005E4C5C585E624C047F477C71664C
HEX 7E5F734640437E5F73705F7379634300
HEX 605E565C5E4062401700404040404040
HEX 40047E477C71664C7E5F734640437E4F
HEX 63705F737963430040405C4040404040
HEX 17004040404050404004404040404040
HEX 40404040404040404040404040404000
HEX 42404040504040401700404040405040
HEX 40044040404040404040404040404040
HEX 40404040404040004240404050404040
HEX 17007E5E407C50625E04404040404040
HEX 40404040404040404040404040404000
HEX 5E7E407C50625E401700626040625062
HEX 60044040404040404040404040404040
HEX 40404040404040007662406250626040
HEX 17007C7E406650667E04404040404040
HEX 40404040404040404040404040404000
HEX 627C406650667E4017006042407C586A
HEX 42044040404040404040404040404040
HEX 40404040404040007660407C586A4240
HEX 17005E7C40605C727C04404040404040
HEX 40404040404040404040404040404000
HEX 5E5E40605C727C401700404040604040
HEX 40044040404040404040404040404040
HEX 40404040404040004040406040404040
HEX 170040404040404040044040407E4040
HEX 50405040404040404240404040404000
HEX 60404040404040401700484040404040
HEX 40044040406A40405440504040404040
HEX 42404040404040006040404040404040
HEX 1700407E7E5E407E6C04404040485C62
HEX 5840507E40625C6C5E7E407E5C6C4000
HEX 7C7C6C5E627E6C4017004C6262604062
HEX 72044040404872627040506240767272
HEX 7662407072727E007642726262627240
HEX 1700487C7C7E407C6204404040486266
HEX 5040507C406A6262627C406062627E00
HEX 627E6272667C60401700486060424060
HEX 620440404048666A5240586040626662
HEX 76604070666240007662625E6A606040
HEX 1700585E5E7C405E62044040405C5C72
HEX 4C405C5E40625C625E5E407E5C624000
HEX 7C5C6242725E60401700404040404040
HEX 40044040404040404040404040404040
HEX 40404040404040004040404240404040
HEX 17004050404048404004404040504050
HEX 4860404040406050404042404C404000
HEX 40504040404040401700405440444840
HEX 48044040485440504860404040486050
HEX 40404240524840004850404040404040
HEX 17006C584040487C40046C7C40584050
HEX 48685C6C6C407C507E405E7E50404000
HEX 405040627C407C401700727040464042
HEX 4C0472424C70405040747272724C7650
HEX 624076625C4C40004C50407642406240
HEX 170062504444407E4804627E48504050
HEX 40626260604862507C40627C54484000
HEX 485040547E4066401700625244444062
HEX 48046262485240584062666060487658
HEX 60407660504840004858404862407C40
HEX 1700624C4864405C5804625C584C405C
HEX 40625C6060587C5C5E405E5E50584000
HEX 585C40485C40604017004040505C4040
HEX 40044040404040404040404040404040
HEX 40404040404040004040404040406040
HEX 17004040404040404004404048404050
HEX 40404040405040404240405040404000
HEX 4C404040404040401700404040404040
HEX 40044040484040504040404040504040
HEX 42404054404040005248404040404840
HEX 17005E7C62627C5C7E045E62487C4050
HEX 7C6C7E7E40507E405E5C7E587E626C00
HEX 50406C7C6C7E40401700604262764262
HEX 62046262404240504272706240506240
HEX 76727070626272005C4C724272704C40
HEX 17007E7E66547E5E7C047266407E4050
HEX 7E62607C40507C40626260507C666000
HEX 5448627E62604840170042626A486242
HEX 60045E6A406240586262706040586040
HEX 76667052606A60005048626262704840
HEX 17007C5C72485C565E044272405C405C
HEX 5C627E5E405C5E405E5C7E4C5E726000
HEX 5058625C627E5840170040404040405C
HEX 40044240404040404040404040404040
HEX 40404040404040004040404040404040
HEX 170040404042404050047E4040404040
HEX 4060404042404C404040404040404000
HEX 40404040404040401700404840424040
HEX 54047240404840404060404042405240
HEX 40404040484040004040404840404040
HEX 17006240405E5C6C5804607E6C40625E
HEX 40607C405E7E507E6C7E7E40406C4000
HEX 7E6C62406C5C6C401700624C40767272
HEX 70046462724C62604060424076625C62
HEX 727062404C727E006272764C72727240
HEX 17006648406262625004627C6248667E
HEX 40627E40627C547C62607C4048627E00
HEX 7C6254486062624017006A4840766662
HEX 5204726062486A424C72624076605060
HEX 62706040486240006062484860666240
HEX 17007258405E5C624C047E5E6258727C
HEX 4C7E5C405E5E505E627E5E4058624000
HEX 5E624858605C62401700404040404040
HEX 40044040404040404040404040404040
HEX 40404040404040004040404040404040
HEX 17004040404040404004504040404050
HEX 40404040504040404042404040404000
HEX 50487E40404040401700404048404040
HEX 48045440404040544840404050404040
HEX 40424044404040005048724040404040
HEX 17007E6240405E624004587E6C6C7C58
HEX 405C6C7C507E407C405E7E407C404000
HEX 5048605E7C7C5C40170062764C406262
HEX 4C047062727242704C72724250624042
HEX 40766246424040005040786062426240
HEX 17007C6A484072664804507C60627E50
HEX 4862627E507C407E40627C447E404000
HEX 5040607E667E5E401700606248405E6A
HEX 48045260606262524866626258604062
HEX 4076604462404000584072427C624240
HEX 17005E625840427258044C5E60625C4C
HEX 585C625C5C5E405C405E5E645C404000
HEX 5C407E7C605C56401700404040404240
HEX 40044040404040404040404040404040
HEX 4040405C404040004040404060405C40
HEX 17004040404040404004404040404040
HEX 40404040404040404040404050404000
HEX 585C5C5E407E40401700404040404040
HEX 40044040404040404040404840404040
HEX 40404040544040006862626240724040
HEX 17005E407E7C5C7E5E047E6C625C627E
HEX 405E62406C7E7E407C5C7E6C585E4000
HEX 4862546040606C401700604070426262
HEX 60046272767262624062624C72646240
HEX 4262627270604000485E487C40787240
HEX 17007E40607E5E7C7E047C625462547C
HEX 4072664862487C407E5E7C62507E4000
HEX 48425462406062401700424070624260
HEX 4204606248664860405E6A4862526040
HEX 6242606252424000486262624C726240
HEX 17007C407E5C565E7C045E62485C485E
HEX 40427258627E5E405C565E624C7C4000
HEX 5C5C5C5C4C7E62401700404040405C40
HEX 40044040404040404042404040404040
HEX 405C4040404040004040404040404040
HEX 17004040404248404004404040404050
HEX 40404040404040404040404040404000
HEX 40404040404040401700404040424840
HEX 40044040404040544040484040404040
HEX 40404040404040004040404040404040
HEX 17006C5E405E48626C045E626C7E6C58
HEX 6C7C406C7E5E407C5C626C407E5E4000
HEX 7E626C5C7C7E7E401700726040764062
HEX 720460627262727072424C7262604062
HEX 7262724062607E006262727262626240
HEX 1700627E4062406662047E66607C6250
HEX 607E48627C7E4066626660407C7E7E00
HEX 7C666062667C7C40170062424076406A
HEX 6204426A60606252606248626042407C
HEX 666A604060424000606A60667C606040
HEX 1700627C405E407262047C72605E624C
HEX 605C58625E7C40605C7260405E7C4000
HEX 5E72605C605E5E401700404040404040
HEX 40044040404040404040404040404060
HEX 40404040404040004040404060404040
HEX 17004C40405040404004404040404040
HEX 4240404C404040404040406040404000
HEX 50484040404040401700524040544840
HEX 40044040404040404240405240484040
HEX 40404060404040005048404040404040
HEX 1700507C7E58405C6C045E7C627E6C40
HEX 5E7E40507C406C7E407E7E685C624000
HEX 50487C6C6C7E7E4017005C4270704C72
HEX 72046042626272407662405C424C7262
HEX 4062707472627E005040427272626240
HEX 1700547E6050486262047E7E547C6040
HEX 627C40547E48607C407C606262667E00
HEX 50407E62627C7C401700506270524866
HEX 62044262486060407660405062486060
HEX 40607062666A40005840626262606040
HEX 1700505C7E4C585C62047C5C485E6040
HEX 5E5E40505C58605E405E7E625C724000
HEX 5C405C62625E5E401700404040404040
HEX 40044040404040404040404040404040
HEX 40404040404040004040404040404040
HEX 17004050404040404004404040404040
HEX 42404040405040404040404040405000
HEX 40404060504040401700405440404040
HEX 40044040404040404240404040544040
HEX 40484040404050004040406050404040
HEX 17005E587E6C407C62047E6C407E7E40
HEX 5E7E627E6C5840627C405E406C625000
HEX 7E5C627C507E6C401700607062724042
HEX 62046272407062407662766272704076
HEX 424C6040726250007072767650627240
HEX 17007E507C60407E66047C6040607C40
HEX 627C6A7C6250446A7E487E4062665000
HEX 60626A62507C60401700425260604062
HEX 6A046060407060407660626062524462
HEX 62484240626A58007066627658606040
HEX 17007C4C5E60405C72045E60407E5E40
HEX 5E5E625E624C48625C587C4062725C00
HEX 7E5C627C5C5E60401700404040404040
HEX 40044040404040404040404040405040
HEX 40404040404040004040404040404040
HEX 17004040404040404004404840405040
HEX 404040404040407E4040404040404000
HEX 42484040404040401700404040404840
HEX 40044048404054404040404040404072
HEX 40404840404040004248404040404040
HEX 17007E7E406C407E6C046C487E5E5840
HEX 6C7E627E6C6240607E6C40625E404000
HEX 5E487E7E625E40401700626440724C62
HEX 72047240626070407262766272624064
HEX 62724C62604040007640627062604040
HEX 17007C484060487C620462407C7E5040
HEX 607C547C626640627C6248667E404000
HEX 62407C60667E40401700605240604860
HEX 620462406042524060604860626A4C72
HEX 6062486A42404000764060706A424040
HEX 17005E7E4060585E620462405E7C4C40
HEX 605E485E62724C7E5E6258727C404000
HEX 5E405E7E727C40401700404040404040
HEX 40044040404040404040404040404040
HEX 40404040404040004040404040404040
HEX 17004040404050405004404050405048
HEX 60404040404050404040504040404000
HEX 40404040504840401700404040405440
HEX 50044040544050486040404040405040
HEX 40405040404040004040404050484040
HEX 17007E40627E587C50047E5E58405048
HEX 685C62627E40507E407C50625E404000
HEX 5E627E4050487E401700624076627042
HEX 50046260704050407472767662405062
HEX 40625062604040006262624050406240
HEX 17007C406A7C507E50047C7E50405040
HEX 62626A6A7C40507C406650667E404000
HEX 72667C4050407C401700604062605262
HEX 58046042524058406266626260405860
HEX 407C586A424040005E6A604058406040
HEX 17005E40625E4C5C5C045E7C4C405C40
HEX 625C62625E405C5E40605C727C404000
HEX 42725E405C405E401700404040404040
HEX 40044040404040404040404040404040
HEX 40604040404040004240404040404040
HEX 17004040405040404004404050404040
HEX 40504050404040504040404240404000
HEX 42404050404040401700404048544040
HEX 40044040504840404054405040404050
HEX 40404042404040004240405040404040
HEX 17006C5C40585E407C04627C50406C40
HEX 7E5840507E407C50625E405E7C6C4000
HEX 5E7E40507C407C40170072724C706040
HEX 42047642504C72406270405062406250
HEX 6260407642727E007662405042406240
HEX 1700606248507E407E046A7E50486240
HEX 7C5040507C406650667E40627E627E00
HEX 627C40507E4066401700606648524240
HEX 62046262584862406052405860407C58
HEX 6A424076626240007660405862407C40
HEX 1700605C584C7C405C04625C5C586240
HEX 5E4C405C5E40605C727C405E5C624000
HEX 5E5E405C5C4060401700404040404040
HEX 40044040404040404040404040406040
HEX 40404040404040004040404040406040
HEX 17004040404050404004404040404040
HEX 40404840405040404040404040404000
HEX 40404040404040401700404048405040
HEX 48044040404040404040484040544040
HEX 40404040404048004440484040404040
HEX 1700625C4040506240045C7E6C7E6262
HEX 407E487E5E58407C5C626C5E625C4000
HEX 4062406C407E5E40170062724C405062
HEX 4C046262726262764070406260704062
HEX 7262726262724C0046624C7240626040
HEX 170066624844506648045E7C607C6648
HEX 4460407C7E5040666266607266624800
HEX 44664862447C7E4017006A664844586A
HEX 4804426060606A76447040604252407C
HEX 666A605E6A664800446A486244604240
HEX 1700725C58485C725804565E605E7262
HEX 487E405E7C4C40605C726042725C5800
HEX 64725862485E7C401700404040504040
HEX 40045C40404040405040404040404060
HEX 40404042404040005C40404050404040
HEX 170040405C5040404004404040404040
HEX 40406040404060404040405040404000
HEX 4040404040424040170040405C504040
HEX 40044040404040404040604040406040
HEX 40404050404040004040404048424040
HEX 17004040485040627E046C5C625E406C
HEX 7E7E687E6C7E685C6C5E40507C404000
HEX 7E5C6C5E405E7E401700404048504076
HEX 62047272626040726270746272707472
HEX 7260405042404000707272604C766240
HEX 170040404850406A7C046262667E4060
HEX 7C60627C60606262627E40507E404000
HEX 6062627E48627C4017004C4C5C584062
HEX 600462666A4240606070626060706266
HEX 62424058624040007066624248766040
HEX 17004C4C5C5C40625E04625C727C4060
HEX 5E7E625E607E625C627C405C5C404000
HEX 7E5C627C585E5E401700404040404040
HEX 40044040404040404040404040404040
HEX 40404040404040004040404040404040
HEX 17004040405040424004404040404040
HEX 40404040404040404040405040404000
HEX 40404040404040401700404048544042
HEX 40044040404040404040404040484040
HEX 40404854404040004040484040404040
HEX 17007C5C4058405E7E047C7E6C5E5C6C
HEX 6C7E405E6240407C627C405840404000
HEX 625C405E407C7C40170042624C704076
HEX 620462627260727272624062624C4042
HEX 76424C704040400076724C6040426240
HEX 17007E5E485040627C04667C607E6262
HEX 627C40726648407E547E485040404000
HEX 6A62487E407E66401700624248524076
HEX 60047C60604266626260405E6A484062
HEX 48624852404040006266484240627C40
HEX 17005C56584C405E5E04605E607C5C62
HEX 625E40427258405C485C584C40404000
HEX 625C587C405C60401700405C40404040
HEX 40046040404040404040404240404040
HEX 40404040404040004040404040406040
HEX 17004040404050404004504040404040
HEX 60404042404040404040504040404000
HEX 40404060504040401700404040405040
HEX 40045440484040406040404240404040
HEX 40405440404040004040406050404040
HEX 17006C7E5E40507E5E04586C405C627C
HEX 687E405E7E405E5C6C40586C5C7C4000
HEX 7C6C5C7C507E62401700726260405062
HEX 600470724C7276627462407662406072
HEX 72407072726240006272727650627640
HEX 1700627C7E40507C7E04506048626A66
HEX 627C40627C407E626240506062664000
HEX 66606262507C6A401700626042405860
HEX 420452604866627C6260407660404266
HEX 62405260667C40007C60667658606240
HEX 1700625E7C405C5E7C044C60585C6260
HEX 625E405E5E407C5C62404C605C604000
HEX 60605C7C5C5E62401700404040404040
HEX 40044040404040604040404040404040
HEX 40404040406040006040404040404040
HEX 17004050405040404004404050406040
HEX 40404040404040404040404040404000
HEX 40405040504040401700405448504040
HEX 40044040504060404040404040404840
HEX 40404040404040004040504854484040
HEX 17007E5840507E5E40047E7E507E7C6C
HEX 7E40627C6C5C406C4040404040404000
HEX 7C5C504058405E40170070704C506260
HEX 40047062506276726240764272724C72
HEX 40404040404040006272504C704C6240
HEX 1700605048507C7E4004607C507C6260
HEX 7C406A7E626248604040404040404000
HEX 66625048504872401700705248586042
HEX 4C047060586076606040626262664860
HEX 4C404040404040007C66584852485E40
HEX 17007E4C585C5E7C4C047E5E5C5E7C60
HEX 5E40625C625C58604C40404040404000
HEX 605C5C584C5842401700404040404040
HEX 40044040404040404040404040404040
HEX 40404040404040006040404040404240
HEX 1700323530204124283135293D22726F
HEX 6974732061206D616C696E206574206C
HEX 6520706C75732064170072616E636169
HEX 7304202020506F7572206C2748756D61
HEX 6E6974652C202000636F6D6D756E6120
HEX 17006E69717565733F04666169746573
HEX 2D766F757320636F6E6E616974726500
HEX 73756363657320201700202020202020
HEX 20202020202020202020202020202020
HEX 20202020202020202020202020202020
HEX 55555555555555555555555555555555
HEX 55555555555555555555234246444655

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,26 @@
*
* Le retour du Dr Genius
*
* (c) 1983, Loriciels
* (c) 2023, Brutal Deluxe Software (Apple II)
*
* Expansion linker file
DSK RetourDrGenius
TYP $B3
* Assemble files
ASM iigs.s
KND $0000
SNA LeRetour
ASM data.s
KND $0000
SNA Du
ASM loriciels.s
KND $0000
SNA DrGenius

512
leretour/apple2/en/midi.s Normal file
View File

@ -0,0 +1,512 @@
*
* Midi routines
*
* (c) 2020, Brutal Deluxe Software
* Antoine Vignau & Olivier Zardini
*
dpSEQ = $f8
seqOFFSET = $006
seqTEMPO = $18A
seqTPB = $190
*--------------------------------------
mx %00
stopMIDI lda fgMIDI
bne stopMIDI99
_KillAllNotes ; Stop MidiSynth
_MSShutDown
PushWord #35 ; unload MidiSynth
_UnloadOneTool
stopMIDI99 rts
*--------------------------------------
initMIDI pha ; Check for AppleTalk
_GetIRQEnable
pla
and #$20
beq initMIDI1
inc fgMIDI
rts
initMIDI1 PushWord #35 ; Load MidiSynth
PushWord #0
_LoadOneTool
bcc initMIDI2
inc fgMIDI
rts
initMIDI2 _MSStartUp ; Start MidiSynth
bcc musicMEMORY
inc fgMIDI
rts
*-------------------------------------- Now, get RAM
musicMEMORY
PushLong #0
PushLong #$10000
PushWord myID
PushWord #%11000000_00011100
PushLong #0
_NewHandle
phd
tsc
tcd
lda [3]
sta ptrSEQ
ldy #2
lda [3],y
sta ptrSEQ+2
pld
pla
pla
bcc musicMEMORY1
inc fgMIDI ; cannot assign memory for MIDI sequences
rts
musicMEMORY1
PushLong #0
PushLong #$10000
PushWord myID
PushWord #%11000000_00011100
PushLong #0
_NewHandle
phd
tsc
tcd
lda [3]
sta ptrBNK
ldy #2
lda [3],y
sta ptrBNK+2
pld
pla
pla
bcc musicMEMORY2
inc fgMIDI ; cannot assign memory for MIDI sequences
rts
musicMEMORY2
PushLong #0
PushLong #$10000
PushWord myID
PushWord #%11000000_00011100
PushLong #0
_NewHandle
phd
tsc
tcd
lda [3]
sta ptrWAV
ldy #2
lda [3],y
sta ptrWAV+2
pld
pla
pla
bcc loadWAV
inc fgMIDI ; cannot assign memory for MIDI sequences
rts
*-------------------------------------- Load WAV
loadWAV
lda #pWAV
sta midiOPEN+4
jsl GSOS
dw $2010
adrl midiOPEN
sta midiERR
lda midiOPEN+2
sta midiSETMARK+2
sta midiREAD+2
sta midiCLOSE+2
jsl GSOS
dw $2016
adrl midiSETMARK
lda ptrWAV
sta midiREAD+4
lda ptrWAV+2
sta midiREAD+6
stz midiREAD+8
lda #1
sta midiREAD+10
jsl GSOS
dw $2012
adrl midiREAD
sta midiERR
jsl GSOS
dw $2014
adrl midiCLOSE
lda midiERR ; check err
beq loadBNK
inc fgMIDI ; exit
rts
*-------------------------------------- Load BNK
loadBNK
lda #pBNK ; load the MIDI bank
ldx ptrBNK+2
ldy ptrBNK
jsr loadGSOS
lda midiERR ; check err
beq loadSEQUENCE
inc fgMIDI
rts
*-------------------------------------- Load Sequence
loadSEQUENCE
lda #pSEQ
ldx ptrSEQ+2
ldy ptrSEQ
jsr loadGSOS
lda midiERR ; check err
beq initMUSIC
inc fgMIDI
rts
*-------------------------------------- Play sequence
initMUSIC
lda ptrSEQ
sta dpSEQ
lda ptrSEQ+2
sta dpSEQ+2
* sta playMUSIC5+1 ; save pointers
* sta playMUSIC55+1
* lda ptrSEQ+2
* sta playMUSIC6+1
* sta playMUSIC66+1
_KillAllNotes
* lda myDP
* tcd
*playMUSIC5 lda #$bdbd ; patched
* sta dpSEQ
*playMUSIC6 lda #$bdbd ; patched
* sta dpSEQ+2
ldy #seqOFFSET
lda [dpSEQ],y
clc
*playMUSIC55 adc #$bdbd ; patched
adc dpSEQ
sta seqPlayRec
lda #0
*playMUSIC66 adc #$bdbd ; patched
adc dpSEQ+2
sta seqPlayRec+2
ldy #seqTEMPO
lda [dpSEQ],y
asl
sec
sbc #10
pha
_SetTempo
ldy #seqTPB
lda [dpSEQ],y
pha
_SetBeat
*--- Toutes les pistes sont actives
lda ptrBNK
clc
adc #$400
sta ptrINST
lda ptrBNK+2
adc #0
sta ptrINST+2
stz myINDEX
]lp PushWord myINDEX
PushWord #$8000
_SetPlayTrack
PushWord myINDEX
PushWord #-1
_TrackToChannel
PushWord myINDEX
PushWord #2
_SetTrackOut
PushLong ptrINST
PushWord myINDEX
_SetInstrument
lda ptrINST
clc
adc #$120
sta ptrINST
lda ptrINST+2
adc #0
sta ptrINST+2
inc myINDEX
lda myINDEX
cmp #16
bne ]lp
*---
sei
PushLong ptrWAV
PushWord #0 ; docStart
PushWord #0 ; byteCount (=64ko)
_WriteRamBlock
PushLong #callBackRec
_SetCallBack
PushWord #0
PushWord #0
PushLong seqClock
PushLong seqPlayRec
_Locate
PullLong seqPlayRec
stz fgMIDI ; we are good!!!
cli ; end of the long init!
rts
*--------------------------------------
doMUSIK lda fgMIDI ; can we play?
bne nozik99
lda fgMIDIPLAY
eor #1
sta fgMIDIPLAY
beq doSOUNDON
bne doSOUNDOFF
nozik99 rts
fgMIDIPLAY ds 2
*--------------------------------------
doSOUNDON lda fgMIDI ; can we play?
bne playMUSIC99
jsr initMUSIC
lda #$0100 ; no, let's start playing!
sta seqPlay
PushLong #seqPlayRec
_SeqPlayer
stz fgLOOP
playMUSIC99
rts
*--------------------------------------
doSOUNDOFF lda fgMIDI
bne stopMUSIC99
stz seqPlay
PushLong #seqPlayRec
_SeqPlayer
_KillAllNotes
stopMUSIC99 rts
*-------------------------------------- Suspend music
suspendMUSIC
lda fgMIDI
ora fgMIDIPLAY
bne suspendMUSIC9
_MSSuspend
suspendMUSIC9
rts
*-------------------------------------- Resume music
resumeMUSIC
lda fgMIDI
ora fgMIDIPLAY
bne resumeMUSIC9
_MSResume
resumeMUSIC9
rts
*--------------------------------------
checkREPLAY rep #$30
lda fgMIDI
bne checkREPLAY99
lda fgLOOP
beq checkREPLAY99
jsr doSOUNDON
checkREPLAY99
rts
*--------------------------------------
replayMUSIC
lda #-1
stal fgLOOP
rtl
fgLOOP dw -1
*-------------------------------------- Load a file
loadGSOS sta midiOPEN+4
sty midiREAD+4
stx midiREAD+6
stz midiERR
jsl GSOS
dw $2010
adrl midiOPEN
bcs loadGSOSERR
lda midiOPEN+2
sta midiREAD+2
sta midiCLOSE+2
lda midiEOF
sta midiREAD+8
lda midiEOF+2
sta midiREAD+10
jsl GSOS
dw $2012
adrl midiREAD
bcs loadGSOSERR
loadGSOS2 jsl GSOS
dw $2014
adrl midiCLOSE
rts
loadGSOSERR jsr loadGSOS2
inc fgMIDI
rts
*-------------------------------------- DATA
myINDEX ds 2
*--- GS/OS
midiERR ds 2
midiOPEN dw 12
ds 2
adrl pSEQ
ds 2
ds 2
ds 2
ds 2
ds 4
ds 2
ds 8
ds 8
ds 4
midiEOF ds 4
midiREAD dw 4
ds 2
ds 4
ds 4
ds 4
midiCLOSE dw 1
ds 2
midiSETMARK dw 3
ds 2
ds 2
adrl $900 ; +$900 pour WAV
*--- GS/OS Strings
pSEQ strl '1/Data/Sequence'
pWAV strl '1/Data/Piano.Wav'
pBNK strl '1/Data/Piano.Bnk'
*--- Memory
ptrSEQ ds 4
ptrWAV ds 4
ptrBNK ds 4
*--- Flags
fgMIDI dw 1 ; can play MIDI if 0
*--- Instruments
ptrINST ds 4
*--- MidiSynth
seqPlayRec
ds 4
ds 4
ds 4
ds 4
seqPlay ds 2 ; Play
seqClock ds 4
callBackRec adrl replayMUSIC ; When sequence ends !
ds 4
ds 4
ds 4
ds 4
ds 4
ds 4
ds 4
ds 4
ds 4
ds 4
ds 4
ds 4
ds 4

2678
leretour/apple2/en/sons.s Normal file

File diff suppressed because it is too large Load Diff

Binary file not shown.

File diff suppressed because it is too large Load Diff

View File

@ -61,7 +61,7 @@ strPERDU asc 0d'Comme je le pensais, vous vous '90'tes'0d
asc '(ou ce qu'27'il en reste) reposera '88' jamais'
asc 'dans l'27'espace...'0d00
strGAGNE asc 'D'27'accord,'0d
strGAGNE asc 0d'D'27'accord,'0d
asc 'vous m'27'avez battu, mais c'27'est un coup'0d
asc 'de chance, et la prochaine fois ma'0d
asc 'vengeance sera terrible.'0d
@ -273,9 +273,9 @@ O$9 asc 'Un magn'8e'tophone'00
O$10 asc 'Un compteur Geiger'00
O$11 asc 'Un ventilateur'00
O$12 asc 'Un casque'00
O$13 asc 'Un casque enfi'8e00
O$13 asc 'Un casque enfil'8e00
O$14 asc 'Des '8e'chasses'00
O$15 asc 'Des containers'00
O$15 asc 'Des conteneurs'00
O$16 asc 'Une radiocommande'00
O$17 asc 'Des lunettes de soleil'00
O$18 asc 'Une tron'8d'onneuse'00

Binary file not shown.

2065
leretour/apple2/loriciels.s Normal file

File diff suppressed because it is too large Load Diff

BIN
leretour/images/cover.jpg Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 33 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.3 KiB

Binary file not shown.

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.2 KiB

Binary file not shown.

Binary file not shown.

File diff suppressed because it is too large Load Diff

Binary file not shown.

Binary file not shown.

View File

@ -1,93 +0,0 @@
*---------------------------------------------------------*
* Disassembled with The Flaming Bird Disassembler *
* (c) Phoenix corp. 1992,93 - All rights reserved *
*---------------------------------------------------------*
TYP BIN
ORG $000000
keySND ENT
HEX 8080808080807F7F80807F7F80808080
HEX 8080807F7F7F7F7F7F7F7F7F7F7F8080
HEX 8080807F7F7F7F807F7F7F80807F7F7F
HEX 80807F7F7F7F8080808080808080807F
HEX 808080808080807F7F7F808080808080
HEX 80808080808080808080808080808080
HEX 808080807F7F80807F7F7F7F7F7F8080
HEX 807F7F7F7F7F7F7F7F80807F7F7F7F7F
HEX 7F7F7F7F7F7F7F7F7F7F7F807F7F8080
HEX 807F807F7F7F80808080808080807F7F
HEX 7F7F7F7F7F7F7F7F8080808080808080
HEX 80807F808080808080807F7F80808080
HEX 80807F7F7F8080807F7F7F807F7F7F80
HEX 8080807F7F7F7F7F7F7F7F7F7F7F7F7F
HEX 7F7F8080807F7F7F80807F7F80807F7F
HEX 7F80808080807F80807F7F7F807F7F7F
HEX 7F808080807F7F807F7F7F8080808080
HEX 7F7F7F7F7F8080808080808080808080
HEX 7F7F7F7F7F80807F7F7F7F7F7F80807F
HEX 7F7F8080807F7F8080807F7F80808080
HEX 808080808080807F7F808080807F7F7F
HEX 7F7F7F7F8080808080807F7F7F7F7F80
HEX 80807F808080807F8080807F7F7F7F7F
HEX 80807F7F80808080807F7F7F7F808080
HEX 8080807F7F80808080807F7F7F7F7F80
HEX 8080807F807F7F7F80807F807F7F8080
HEX 807F7F80807F7F7F7F7F7F7F807F7F7F
HEX 7F8080808080808080807F8080808080
HEX 7F7F7F807F7F7F8080808080807F7F7F
HEX 8080807F8080807F807F80808080807F
HEX 8080847F7F807F807F80807EC7AFB5C1
HEX A6CAA3C9AABDBAABC8A3CAA5C3B2B2C4
HEX A5CBA3C8ACB9BDA9C9A3CAA7C1B6AFC6
HEX A4CBA4C6AEB6C1A7CAA3C9A9BDB9ACC7
HEX A3CBA5C4B2B3C3A5CAA3C8ABBABDAAC9
HEX A3CAA6C2B5AFC5A4CBA3C6AEB7BFA7CA
HEX A3C9A8BEB7ADC7A3CBA5C5B1B3C2A6CA
HEX A3C8ABBCBCAAC8A3CAA6C2B3B1C5A5CB
HEX A3C7ADB7BEA8CAA3CAA7BFB7AEC6A3CB
HEX A4C5AFB5C2A6CAA3C9AABCBAABC8A3CA
HEX A5C3B3B2C4A5CBA3C7ACB9BEA9C9A3CA
HEX A7C1B6AEC6A4CBA4C6AFB6C1A6CAA3C9
HEX A9BDB9ACC8A3CBA5C4B2B2C3A5CBA3C8
HEX ACBABDAAC9A3CAA6C1B5AFC6A4CBA4C6
HEX AEB6BFA7CAA3C9A8BEB9ADC7A3CBA5C4
HEX B1B3C3A6CAA3C8ABBCBCAAC8A3CAA6C2
HEX B5B0C5A4CBA3C6ADB7BFA8CAA3CAA8BF
HEX B7ADC6A4CBA4C5B1B5BA99A58D96898A
HEX 87838481818080808080808080808080
HEX 807F807F80808080808080807F807F80
HEX 80808080807F807F807F807F807F8080
HEX 80807F807F7F807F807F807F807F7F7F
HEX 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
HEX 8080808080807F807F7F7F7F7F7F8080
HEX 80808080808080808080808080808080
HEX 8080807F8080807F807F8080807F8080
HEX 80807F80808080807F80807F80808080
HEX 7F807F807F808080808080808080807F
HEX 807F80807F807F7F7F7F807F807F807F
HEX 7F7F7F807F807F80807F807F807F807F
HEX 807F80807F807F807F808080807F807F
HEX 807F808080807F807F808080807F807F
HEX 807F8080807F807F7F807F7F807F807F
HEX 807F7F7F7F8080808080808080808080
HEX 8080808080808080808080807F7F7F7F
HEX 808080807F7F7F807F7F7F7F807F807F
HEX 7F7F7F807F807F7F7F7F7F7F807F7F80
HEX 7F7F7F807F807F807F807F8080808080
HEX 808080807F807F807F807F7F80808080
HEX 807F8080807F807F8080807F8080807F
HEX 807F7F7F7F807F807F807F807F807F80
HEX 80808080807F807F7F807F7F7F7F7F7F
HEX 7F8080807F7F7F7F807F7F7F7F7F7F7F
HEX 7F7F7F7F807F7F8080807F8080808000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000