Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2024-12-26 22:31:05 +00:00
Code Issues Projects Releases Wiki Activity

vive les MAJ

Browse Source
This commit is contained in:
Antoine Vignau 2023-12-01 21:56:37 +01:00
parent 9091cced15
commit 3df4ddfa6a
57 changed files with 24018 additions and 9301 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.DS_Store vendored
View File

Binary file not shown.

100
alzan/alzan.s Normal file
View File

@ -0,0 +1,100 @@
*
* Alzan
*
* (c) 1981, The pocket ZX81 book
* (c) 2023, Brutal Deluxe Software (Apple II)
*
mx %11
org $2000
lst off
*-----------------------------------
* SOFTSWITCHES AND FRIENDS
*-----------------------------------
leJEU = $4000
ptrPREFIX = $280
proBUFFER = $b800
PRODOS = $bf00
*-----------------------------------
* LOAD THE GAME
*-----------------------------------
jsr PRODOS ; get the prefix
dfb $c7
da proGETPFX
jsr PRODOS ; set it
dfb $c6
da proGETPFX
jsr PRODOS
dfb $c8
da proOPEN
bcs quitME
lda proOPEN+5 ; zou, on prend l'ID
sta proGETEOF+1
sta proREAD+1
sta proCLOSE+1
jsr PRODOS ; longueur du fichier
dfb $d1
da proGETEOF
bcs quitME
lda proGETEOF+2
sta proREAD+4
lda proGETEOF+3
sta proREAD+5
jsr PRODOS ; lecture du fichier
dfb $ca
da proREAD
bcs quitME
jsr PRODOS ; fermeture du fichier
dfb $cc
da proCLOSE
bcs quitME
jmp leJEU
quitME jsr PRODOS ; exit
dfb $65
da proQUIT
brk $bd ; on ne se refait pas ;-)
*--- Data
proQUIT dfb $4
ds 1
ds 2
ds 1
ds 2
proGETPFX dfb $1
da ptrPREFIX
proOPEN dfb $3
da pLEJEU ; pathname (par dŽfaut, le moteur)
da proBUFFER ; io_buffer
ds 1 ; ref_num
proREAD dfb $4
ds 1 ; ref_num
da leJEU ; data_buffer
ds 2 ; request_count
ds 2 ; transfer_count
proCLOSE dfb $1
ds 1 ; ref_num
proGETEOF dfb $2
ds 1 ; ref_num
ds 3 ; eof
pLEJEU str 'Alzan'

BIN
alzan/alzan_fr.po Normal file
View File

Binary file not shown.

475
alzan/common/musiques.s Normal file
View File

@ -0,0 +1,475 @@
*
* La maison du Professeur Folibus
*
* (c) 1982, Alain BrŽgŽon
* (c) 2023, Brutal Deluxe Software (Apple II)
*
mx %11
lst off
*-----------------------------------
* PLAYMUSIC
*-----------------------------------
playMUSIC
sty $1e
stx $1f
LDA #$01
STA $09
STA $1D
PHA
PHA
PHA
BNE LA04D
LA038 INY
LDA ($1E),Y
STA $09
INY
LDA ($1E),Y
STA $1D
LA042 LDA $1E
CLC
ADC #$03
STA $1E
BCC LA04D
INC $1F
LA04D LDY #$00
LDA ($1E),Y
CMP #$01
BEQ LA038
BCS LA067
PLA
PLA
PLA
LA05A LDX #$49
INY
LDA ($1E),Y
BNE LA063
LDX #$C9
LA063 BIT KBDSTROBE
RTS
LA067 STA $08
JSR LA05A
STX LA0B6
STA $06
LDX $09
LA073 LSR
DEX
BNE LA073
STA LA0AE+1
JSR LA05A
STX LA0EE
STA $07
LDX $1D
LA084 LSR
DEX
BNE LA084
STA LA0E6+1
*
PLA
TAY
PLA
TAX
PLA
BNE LA098
LA095 BIT SPKR
LA098 CMP #$00
BMI LA09F
NOP
BPL LA0A2
LA09F BIT SPKR
LA0A2 STA $4E
BIT KBD
BMI LA063
DEY
BNE LA0AE
BEQ LA0B4
LA0AE CPY #$36
BEQ LA0B6
BNE LA0B8
LA0B4 LDY $06
LA0B6 EOR #$40
LA0B8 BIT $4E
BVC LA0C3
BVS LA0BE
LA0BE BPL LA0C9
NOP
BMI LA0CC
LA0C3 NOP
BMI LA0C9
NOP
BPL LA0CC
LA0C9 CMP SPKR
LA0CC DEC $4F
BNE LA0E1
DEC $08
BNE LA0E1
BVC LA0D9
BIT SPKR
LA0D9 PHA
TXA
PHA
TYA
PHA
JMP LA042
LA0E1 DEX
BNE LA0E6
BEQ LA0EC
LA0E6 CPX #$0C
BEQ LA0EE
BNE LA0F0
LA0EC LDX $07
LA0EE EOR #$80
LA0F0 BVS LA095
NOP
BVC LA098
NOP
*--- End of player
*--- INTRODUCTION (Prelude)
zikINTRODUCTION
hex 0C80000C2B800C19800C1C800C19400C
hex 2B400C19560C2B560C80000C2B800C19
hex 800C1C800C19400C2B400C19560C2B56
hex 0102020C80000C26800C18800C19800C
hex 18390C26390C18400C26400C80000C26
hex 800C18800C19800C18440C26440C1840
hex 0C26400103030C80000C22800C18800C
hex 19800C18390C22390C18560C22560C80
hex 000C22800C18800C19800C18560C2256
hex 0C18390C22390102020C80000C20800C
hex 19800C1C800C19560C20560C19560C20
hex 560C4C000C204C0C194C0C1C4C0C1944
hex 0C20440C19440C20440101010C80000C
hex 26800C19800C1C800C19400C20400C22
hex 400C20400C26390C20390C22390C2039
hex 0C33000C2B330C2D330C33000102020C
hex 2D000C202D0C1C330C20330C1C390C20
hex 390C1C400C20400C44000C20440C1C4C
hex 0C204C0C1C560C20560C1C600C206001
hex 01010C22560C1C560C15560C16560C15
hex 560C1C560C20000C1C000C22560C1C56
hex 0C20560C1C560C2B560C22560C26000C
hex 2B000102020C4C000C334C0C204C0C22
hex 4C0C204C0C334C0C204C0C334C0C5600
hex 0C33560C20560C22560C204C0C334C0C
hex 20560C33560103030C4C000C264C0C2B
hex 4C0C264C0C2B000C2D000C33000C3900
hex 0C20720C22720C26720C15000C16000C
hex 19000C1C000C20000102020C22560C26
hex 560C2B560C15560C1C560C15560C2200
hex 0C1C000C2B560C26560C22560C1C560C
hex 20560C22560C26000C2B000101010C1E
hex 560C2B560C24560C26560C243C0C2B3C
hex 0C1E330C2B330C19560C2B560C24560C
hex 26560C243C0C2B3C0C1E330C2B330102
hex 020C60000C26600C1C600C19600C1860
hex 0C1C600C26600C2B600C30000C26300C
hex 1C330C19330C18390C1C390C22720C26
hex 720103030C28660C22660C28660C2266
hex 0C1C300C22300C1C330C22330C28390C
hex 22390C28390C22390C1C400C22400C1C
hex 440C22440102020C204C0C224C0C2633
hex 0C20330C22300C20300C1C300C22300C
hex 204C0C224C0C264C0C2B4C0C30000C33
hex 000C39000C40000101010C44000C3044
hex 0C2B440C30440C2B440C30440C2B000C
hex 30000102020C72000C30720C2B720C30
hex 720C2B720C30720C2B000C3000010101
hex 0C40000C33400C24400C26400C24800C
hex 33800C24800C33800102020C40000C33
hex 400C24400C26400C24800C33800C2480
hex 0C33800103030C40000C30400C26400C
hex 2B400C26800C30800C26800C30800102
hex 020C40000C30400C26400C2B400C2680
hex 0C30800C26800C30800103030C40000C
hex 22400C18400C19400C18800C22800C18
hex 800C22800102020C40000C22400C1840
hex 0C19400C18800C22800C18800C228001
hex 01010C40000C2B400C19400C1C400C19
hex 800C20800C22800C26800C2B800C3080
hex 0C33800C39800C40000C44000C4C000C
hex 56000102020C5A000C395A0C265A0C22
hex 5A0C205A0C265A0C22000C2000010401
hex 0101010C5A000C395A0C265A0C225A0C
hex 205A0C265A0C22000C20000102020C60
hex 000C39600C2B600C26600C22600C2B60
hex 0C26000C22000103030C60000C39600C
hex 2B600C26600C22600C2B600C26000C22
hex 000101010C60000C39600C2B300C2230
hex 0C1C300C16300C15560102020C15000C
hex 39000C33000C2D000C2B000C26000C22
hex 000C20000103030C1C560C22560C2B56
hex 0C26560C22560C20560C1C000C190001
hex 02020C18560C1C560C22560C20560C1C
hex 560C19560C18000C15000103030C1422
hex 0C15220C16220C15220C15280C18280C
hex 19280C18280C182B0C1C2B0C222B0C26
hex 2B0C2B560C30560C33560C3056010202
hex 0C56000C39560C2B560C22560C1C560C
hex 19560C18000C1C000C19560C20560C2B
hex 560C30560C33560C40560C39000C3300
hex 0101010C56000C40560C33560C2B560C
hex 20560C1C560C19000C20000102020C16
hex 260C1B260C1C260C1B260C1B2D0C1C2D
hex 0C1E2D0C1C2D0C1C000C20000C22000C
hex 20000C20000C26000C2D000C33000C39
hex 000C2D390C26390C20390C1C400C1640
hex 0C15400C16400103030C15440C1C440C
hex 22440C26440C22660C1C660C2B660C22
hex 660102020C39000C2B390C2D390C3339
hex 0C395A0C405A0C445A0C4C5A0101010C
hex 00560C00560C184C0C194C0C1C440C20
hex 440C22400C26400C2B390C18390C1933
hex 0C1C330C20300C22300C26400C2B4001
hex 02020C304C0C194C0C1C4C0C204C0C22
hex 000C26000C2B000C30000C33500C1C50
hex 0C204C0C224C0C26440C28440C30800C
hex 33800103030C39600C20600C22600C26
hex 600C22560C1C560C2B440C1C440C2640
hex 0C1C400C22390C1C390C20330C1C330C
hex 262D0C1C2D0102020C22560C1C560C2B
hex 440C1C440C20330C1C330C262D0C1C2D
hex 0C22560C1C560C2B440C1C440C20330C
hex 1C330C262D0C1C2D0101010C22560C1C
hex 560C2B2B0C1C2B0C26260C1C260C2222
hex 0C1C220C20200C1C200C1C1C0C1C000C
hex 19190C1C190C2B2B0C1C2B0102020C1C
hex 1C0C1C000C19190C1C190C18180C1C18
hex 0C2B2B0C1C2B0C19190C1C190C18180C
hex 1C180C15150C1C150C19190C1C190103
hex 030C18180C1C180C19190C1C190C1818
hex 0C1C180C1C1C0C1C000C19190C1C190C
hex 1C1C0C1C000C19190C1C190C20200C1C
hex 200102020C1C1C0C1C000C20200C1C20
hex 0C1C1C0C1C000C22220C1C220C20200C
hex 1C200C22220C1C220C20200C1C200C26
hex 260C1C260101010C22220C1C220C2B2B
hex 0C262B0102020C243C0C24560C22390C
hex 22560C20360C20560C1E330C1E560C1C
hex 300C1C560C1B2D0103030C1B560C192B
hex 0C19560C18280C18560C16260C16560C
hex 15240C15560C14220C14560C13200C13
hex 560C121E0C12560C111C0C1156010101
hex 0C10560C19560C2B560C19560C102B0C
hex 192B0C102B0C192B0103030C10560C19
hex 560C2B560C19560C102B0C192B0C102B
hex 0C192B0101010C10560C1C560C2B560C
hex 1C560C102B0C1C2B0C102B0C1C2B0103
hex 030C10560C1C560C2B560C1C560C102B
hex 0C1C2B0C102B0C1C2B0101010C11560C
hex 1C560C2B560C1C560C11300C1C300C11
hex 300C1C300102020C11560C1C560C2B56
hex 0C1C560C11300C1C300C11560C1C5630
hex 1040FFFFFE00FFFE1000000000000000
hex 00000000000000000000000000000000
*--- GAGNE (Air)
zikGAGNE
hex 01020308000008306008306008306020
hex 3C7808000008366C08366C08366C4040
hex 80080000083000083000083000083C90
hex 082D90082D90082D90083090081E9008
hex 1E90081E901824900824900824900830
hex 90083090083090084098082D98082D98
hex 082D98083098081B98081B98081B9818
hex 2098082098082098081898081898081B
hex 98081E00081E78081E78081E6C082060
hex 081860081860081B60081E00081E7808
hex 1E78081E6C082060081860081860081B
hex 60101E60100000102478100000201880
hex 080000082D5A082D5A082D5A601B6C08
hex 0000082D00082D00082D000836400836
hex 4008364008364C08365A08365A08365A
hex 0836600836C00836C00836C0083C6008
hex 2D00082D00082D000836000836400836
hex 4008364008364C08365A08365A08365A
hex 083660081BC0081BC0081BC0081E6008
hex 30000824000824001024D80824000824
hex D80826D80826D80826000820001020D8
hex 0820000820D80824D80824D808240008
hex 1E00081E4C08204C062000040000061B
hex 00030000081B50081C50061C00040000
hex 061800030000081848081B48061B0004
hex 00000616000300000816480818480618
hex 00040000061400030000081448081648
hex 06160004000006120003000008125608
hex 13560613000400000610000400000812
hex 60080F60080F00080F60081260081860
hex 081800081860081E6008246008300008
hex 3060083C60084860084800084860084C
hex 6C080D6C08100008106C08136C08166C
hex 08180008186C08206C08266C08300008
hex 366C08406C084C6C0848000848000848
hex 56080F56080F00080F56081256081556
hex 081500081556081856081E56081E0008
hex 1E56082456082B56082B00082B562015
hex 56100000200000201450100000080000
hex 08280008280008280020003C20360020
hex 0050102850101E501020A0081E00081E
hex A0101BA00824000824A01024F0082800
hex 0828F01028F0081E00081EF01020A008
hex 1E00081EA0101BA00824000824A01024
hex F00828000828F01028F0081E00081EF0
hex 1020A0081E00081EA0101BA008240008
hex 24A01024F00828000828F01028C00824
hex 000824C01022E40824000824E41028D8
hex 0824000824D81028D8082B00082BD810
hex 22B4081E00081EB4101BC0081E00081E
hex C01022E4081E00081EE41022B4082400
hex 0824B4101EB4081B00081BB41019AC08
hex 1B00081BAC101EAC081B00081BAC1019
hex A0081B00081BA0101EA0101B00101998
hex 081B00081B98101E98101B0010199008
hex 1B00081B90101E90101B00101990081B
hex 00081B90101990101500101480081400
hex 0814800814F00612F00600000614F006
hex 00000618F00600000818F00818F0061B
hex 00060000061E00060000081ED80820D8
hex 062400060000062000060000081BC008
hex 1EC00628000600000630000600000820
hex B40824B4062D00060000063600060000
hex 0824A00828A0063000060000063C0006
hex 00000800A00815A00814000815000814
hex F00815F00814D80815D80614A0060000
hex 0612A006000006148006000006168006
hex 00000816F00818F0061BC0060000061E
hex C0060000081ED80820D80624B4060000
hex 0620B4060000081BC0081EC00628A006
hex 00000630A00600000820B40824B4062D
hex 900600000636900600000824A00828A0
hex 061650060000061B500600000800A008
hex 28A0081450081450081E50080B30080B
hex 30080B30080F3C081450081450081450
hex 081860081E3C081E3C081E3C0828A008
hex 1B50081B50081B50081878080B30080B
hex 30080B30080F3C081450081450081450
hex 081860081E78081E78081E780828A008
hex 14500814500814501014501000000800
hex 00081450081450081450101450100000
hex 080000081050081050081050100F5010
hex 00002000004000000830600830600830
hex 60203C7808000008366C08366C08366C
hex 40408008000008300008300008300008
hex 3C90082D90082D90082D90083090081E
hex 90081E90081E90182490082490082490
hex 083090083090083090084098082D9808
hex 2D98082D98083098081B98081B98081B
hex 98182098082098082098081898081898
hex 081B98081E00081E78081E78081E6C08
hex 2060081860081860081B60081E00081E
hex 78081E78081E6C082060081860081860
hex 081B60101E6010000010247810000020
hex 188008000008165A08165A08165A601B
hex 6C080000082D00082D00082D00083640
hex 08364008364008364C08365A08365A08
hex 365A0836600836C00836C00836C0083C
hex 60082D00082D00082D00083600083640
hex 08364008364008364C08365A08365A08
hex 365A083660081BC0081BC0081BC0081E
hex 600830000824000824001024D8082400
hex 0824D80826D80826D808260008200010
hex 20D80820000820D80824D80824D80824
hex 00081E00081E4C08204C062000060000
hex 061B00060000081B50081C50061C0006
hex 0000061800060000081848081B48061B
hex 00060000061600060000081648081848
hex 06180006000006140006000008144808
hex 16480616000600000612000600000812
hex 56081356061300060000061000060000
hex 081260080F60080F00080F6008126008
hex 1860081800081860081E600824600830
hex 00083060083C60084860084800084860
hex 084C6C080D6C08100008106C08136C08
hex 166C08180008186C08206C08266C0830
hex 0008366C08406C084C6C084800084800
hex 08482D080F3C080F3C080F3C08124808
hex 1556081556081556081966081E78081E
hex 78081E78082490082BAC082BAC082BAC
hex 10339010000020000010309810000008
hex 0000083000083000083000083C90082D
hex 90082D90082D90083090081E90081E90
hex 081E9010249008249008249008309008
hex 3090083090083C90082D90082D90082D
hex 90083090081E90081E90081E90182490
hex 0824900824900820C00820C00820C010
hex 1E901000000800000820C00820C00820
hex C0101EC01000000800000820C00820C0
hex 0820C0101ED81020C0101ED81020C010
hex 1ED81015C01014D81015C01014D81000
hex 001026C01000002024D80062C5000000
hex 00000000000000000000000000000000
*--- PERDU (Beethoven's fifth)
zikPERDU
hex 010303302B6C302B36302B39302B7230
hex 2B80302B40302B48302B90309FA00102
hex 0218205018285018304C18364C183998
hex 1836980C39900C36900C39900C369030
hex 39901840901848903048A00101013024
hex AC302456302460302460180066010303
hex 182B66183C6618406618308018338018
hex 24801828800102023028601828601828
hex 6C182860182856182850182860182872
hex 01010118307218407218487218369018
hex 3990182890182B90302B6C302B36302B
hex 390102021826721824723036800C3640
hex 0C3040182B40182B4C18304C18306018
hex 36600103031839481840480C406C0C39
hex 6C18366C303660183960184060010101
hex 18489018488018487218486C18486018
hex 4850184856184860010303302B6C302B
hex 36302B39302B72302B80302B40302B48
hex 302B90309FA001020218205018285018
hex 304C18364C1839981836980C39900C36
hex 900C39900C3690303990184090184890
hex 3048A00101013024AC30245630246030
hex 2460180066010303182B66183C661840
hex 66183080183380182480182880010202
hex 30286018286018286C18286018285618
hex 28501828601828720101011830721840
hex 72184872183690183990182890182B90
hex 302B6C302B36302B3901020218267218
hex 24723036800C36400C3040182B40182B
hex 4C18304C183060183660010303183948
hex 1840480C406C0C396C18366C30366018
hex 3960184060010101C0488F3039903039
hex 481839500C36500C39500C40A00C39A0
hex 1848A01848AC1840AC303C56303C6030
hex 3C600102023040663020661800561824
hex 56182880182B80010303302860302860
hex 0C286C0C2B6C0C306C0C366C18396C18
hex 406C0102021844721840723039721839
hex 80183680303080010404183090182B90
hex 302880302872302B9001020218308018
hex 36801839501840500C39600C36601830
hex 60303656304080303F40304748308F90
hex 01010130369830364C183656182B5618
hex 30AC1836AC3020601820601820563020
hex 4C18246C18266C0103030C2B720C3072
hex 18247230487230406C1840600C39600C
hex 3660303990183948183F403048500101
hex 013048A03036AC303656303650182BA0
hex 1830A001020230309830304C30304818
hex 2890182B90010303302B88302B44302B
hex 40182480182880010404302860302830
hex 30283630286C01040430487230487218
hex 48901839901830721828720103031828
hex 6C182B6C302B6C302B78182B780C2878
hex 0C247801020230368030368018369018
hex 2B90182448181E480103033020503020
hex 50302056303656183960183060302860
hex 30286C30406C3048720102020C30900C
hex 2B9018289018286C182B6C182B501830
hex 500103030C36900C39901840901840A0
hex 1839A00C39900C36900C39900C369018
hex 39901836903036D8C0D7D80066B31000
hex 00000000000000000000000000000000

1
alzan/fr/_FileInformation.txt Normal file
View File

@ -0,0 +1 @@
alzan=Type(06),AuxType(4000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)

BIN
alzan/fr/alzan Normal file
View File

Binary file not shown.

1549
alzan/fr/alzan.s Normal file
View File

File diff suppressed because it is too large Load Diff

4002
alzan/fr/alzan_Output.txt Normal file
View File

File diff suppressed because it is too large Load Diff

203
alzan/fr/fr.s Normal file
View File

@ -0,0 +1,203 @@
*
* Alzan
*
* (c) 1981, The pocket ZX81 book
* (c) 2023, Brutal Deluxe Software (Apple II)
*
mx %11
lst off
* Les caract<EFBFBD>res en standard : @ { } ] ! (pipe)
* Les caract<EFBFBD>res en fran<EFBFBD>ais : ˆ Ž <EFBFBD> <EFBFBD> <EFBFBD>
* Les Žquivalents en ASCII : C0 FB FD DC FC
*-----------------------------------
* LES CHAINES
*-----------------------------------
strVOUSDETENEZ
asc 8D"Vous detenez : "00
strVOUSRIEN
asc 8D"Vous ne detenez absolument rien !!!"00
strPOINT
asc "."00
strEVIDENT
asc 8D"Vous ne pouvez porter plus"00
strVOUSLAVEZ
asc 8D"Vous l"A7"avez deja."00
strNOTOWNED
asc 8D"Vous n"A7"avez pas"00
strDACCORD
asc "D"A7"accord"00
*-----------------------------------
* 7000 - LES REPONSES
*-----------------------------------
str7010 asc "La porte est coincee"00
str7020 asc "La porte est ouverte"00
str7030 asc "C"A7"est deja allume"00
str7040 asc "Vous reussissez tant bien que mal a"8D
asc "ouvrir la porte."00
str7050 asc "C"A7"est trop dur a ouvrir pour vous."00
str7060 asc "Vous avez reussi. Bravo."00
str7070 asc "Vous ne pouvez pas franchir la porte"00
*-----------------------------------
* LIEUX
*-----------------------------------
* "0 1 2 3 "
* "0123456789012345678901234567890123456789"
* "----------------------------------------"
str8010 asc "Vous etes au bord d"A7"un gouffre."00
str8020 asc "Vous etes dans un labyrinth avec des"8D
asc "passages menant vers est, sud, ouest."8D
asc "Un passage obscur grimpe derriere vous."00
str8030 asc "Cette cave contient seulement une mare"8D
asc "d"A7"huile."00
str8040 asc "Voici une grande porte rouillee."00
str8050 asc "Vous etes dans la chambre ouest."00
str8060 asc "Vous etes dan la cave au tresor"00
strREPLAY asc 8D"Voulez-vous rejouer ? "00
strGAGNE asc "Cela est exceptionnel. Vous etes le "8D8D
asc "premier a etre sorti vivant de"8D8D
asc "Cauchemard House"00
*-----------------------------------
* 40000 - LISTE DES INSTRUCTIONS
*-----------------------------------
strINSTR asc 8D"La liste des instructions ? "00
strINSTR2 asc 8D8D
asc "Vous voici arrive dans"8D
asc " Cauchemard House..."8D
asc 8D
asc "Pour converser avec l"A7"ordinateur, il"8D
asc "faut rentrer les ordres en 1 ou 2 mots"8D
asc "tels que :"8D
asc " NORD"8D
asc " PRENDS PILULE"8D
asc 8D
asc "ou pour commencer :"8D
asc " ENTRE"8D
asc 8D8D
asc "Si vous voulez faire durer la phrase"8D
asc "decrivant la salle, tapez une touche"8D
asc 8D
asc "Un dernier conseil : il peut parfois y"8D
asc "avoir une porte derriere vous. "00
*-----------------------------------
* 51000 - DISCLAIMER
*-----------------------------------
strDISCLAIMER
asc "L"A7"utilisation de ce programme est"8D8D
asc "deconseillee aux personnes sensibles,"8D8D
asc "aux enfants en bas age, ainsi qu"A7"a"8D8D
asc "tout personne susceptible d"A7"avoir"8D8D
asc "des malaises cardiaques."8D8D
asc 8D8D
asc "Nous ne pourrions etre tenus responsa-"8D8D
asc "-bles des troubles physiques ou mentaux"8D8D
asc "provoques par votre echec dans"8D8D
asc "Cauchemard House ............."00
*-----------------------------------
* introPIC - la picture GR
*-----------------------------------
strLORICIELS
asc " Les Editions du P.S.I. presentent"00
strLEMANOIR
asc "ALZAN"00
strINTRO1 asc " Version Apple II par "00
strINTRO2 asc " Brutal Deluxe Software "00
strINTRO3 asc " The ZX81 Pocket Book "00
strINTRO4 asc " (C) 1983, Editions du PSI "00
*-----------------------------------
* VOCABULAIRE
*-----------------------------------
V$1 str "N"
V$2 str "NORD"
V$3 str "E"
V$4 str "EST"
V$5 str "S"
V$6 str "SUD"
V$7 str "O"
V$8 str "OUES"
V$9 str "M"
V$10 str "MONT"
V$11 str "D"
V$12 str "DESC"
V$13 str "PREN"
V$14 str "POSE"
V$15 str "VASE"
V$16 str "OR"
V$17 str "PORT"
V$18 str "OUVR"
V$19 str "LAMP"
V$20 str "ALLU"
V$21 str "REMP"
V$22 str "HUIL"
V$23 str "INVE"
V$24 str "QUIT"
V$25 str "REGA"
V$73 str "TEMPO" ; Apple II
V$74 str "QUITTER" ; Apple II
V$75 str "CASSE" ; Apple II
*-----------------------------------
* OBJETS
*-----------------------------------
O$1 asc "une lampe"00
O$2 asc "une lampe allumee"00
O$3 asc "un vase chinois"00
O$4 asc "un vase d"A7"huile"00
O$5 asc "un lingot d"A7"or"00
*-----------------------------------
* STRINGS
*-----------------------------------
* asc "1234567890123456789012345678901234567890"
strILFAITNOIR
asc "On n"A7"y voit rien, mieux vaudrait allumer"
asc "pour eviter les ennuis."00
strILYA asc 8D"Il y a aussi :"00
strCOMMA asc ","00
strSPACE asc " "00
strRETURN asc 8D00
strCOMMANDE
asc 8D"Que faites-vous ? "00
strJENECOMPRENDS
asc "Pardon ?"8D00
strIMPOSSIBLE
asc "Impossible "00
strCECHEMIN
asc "de prendre ce chemin"00
strEXCLAM
asc " !"00

35
alzan/fr/solution_fr.txt Normal file
View File

@ -0,0 +1,35 @@
Solution de Cauchemard House
PRENDS OUTIL
NORD
PRENDS COMBINAISON
ENFILE COMBINAISON
APPUIE BOUTON
BRANCHE PRISE
EST
VAIS 2
RIEN
PRENDS BOITE
NORD
PRENDS CASSETTE
SUD
SUD
INTRODUIS CASSETTE
APPUIE 2
OUEST
PREND LAMPE
EST
EST
VAIS 2
ALLUME LAMPE
RIEN
NORD
PRENDS GOURDE
BOIS GOURDE
SUD
SUD
POSE BOITE
OUEST
INTR CODE
NORD
TIRE MANIVELLE

BIN
alzan/zx81/CauchemardHouse.P Normal file
View File

Binary file not shown.

BIN
alzan/zx81/CauchemardHouse.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 18 KiB

384
alzan/zx81/res/CauchemardHouse_ZxBasic.bas Normal file
View File

@ -0,0 +1,384 @@
5 GOSUB 9700
19 DIM S(25)
20 DIM C(5)
30 LET SALLE=1
40 DIM P$(2,2)
50 DIM O(O)
60 FOR X=1 TO O
70 LET O(X)=Q(X)
80 NEXT X
90 RAND
100 IF NOT S(2) THEN GOTO 200
110 IF C(2) THEN LET C(2)=C(2)-1
120 IF S(3) THEN GOTO 200
130 PRINT "ON N Y VOIT RIEN.MIEUX VAUDRAIT","ALLUMER POUR EVITER LES ENNUIS."
140 IF C(3) THEN LET C(3)=C(3)-1
150 GOTO 1000
210 GOSUB 9600
220 GOSUB 8000+SALLE*10
300 LET F=0
310 FOR X=1 TO O
320 IF O(X)<>SALLE THEN GOTO 500
330 IF F THEN GOTO 400
340 PRINT AT 15,15;"IL Y A AUSSI:"
350 LET F=1
400 PRINT TAB 15;"-";O$(X)
500 NEXT X
1010 LET T=1
1020 GOTO 2000
1100 IF C(1) THEN LET C(1)=C(1)-1
1110 IF C(4) THEN LET C(4)=C(4)-1
1120 PRINT AT 21,15;"QUE FAITES-VOUS?>"
1130 INPUT Y$
1140 CLS
1150 LET Y=0
1160 PRINT ">";Y$;":";
1170 LET P$(2)="00"
1200 FOR W=1 TO 2
1210 GOSUB 6000
1220 IF Y>=LEN Y$ THEN GOTO 1300
1230 IF P$(W)="00" THEN GOTO 1210
1240 NEXT W
1300 IF P$(1)<>"00" THEN GOTO 1600
1310 PRINT "PARDON?"
1320 GOTO 100
1610 LET Z=1
1620 LET T$=M$(SALLE)(Z TO Z+1)
1630 IF T$="00" THEN GOTO 1900
1640 IF T$<>P$(1) THEN GOTO 1700
1650 LET SALLE=VAL (M$(SALLE)(Z+2 TO Z+3))
1660 GOTO 100
1700 LET Z=Z+4
1710 GOTO 1620
1900 LET T=0
1910 LET CORRESP=0
2010 LET CP=0
2100 LET CP=CP+1
2110 IF NOT T THEN GOTO 2300
2120 LET E$=C$(CP)
2130 GOTO 2600
2300 IF CP<=A THEN GOTO 2400
2310 IF CORRESP THEN GOTO 1000
2320 PRINT "IMPOSSIBLE";
2330 IF VAL (P$(1))<9 THEN PRINT " DE PRENDRE CETTE DIRECTION";
2340 PRINT "."
2350 GOTO 100
2400 IF A$(CP)(1 TO 2)<>P$(1) THEN GOTO 2100
2410 LET Y$=A$(CP)(3 TO 4)
2420 IF Y$<>"00" AND Y$<>P$(2) THEN GOTO 2100
2430 LET E$=A$(CP)(5 TO )
2610 LET E=1
2700 IF E$(E)="." THEN GOTO 3000
2710 LET TYPE=CODE (E$(E))-38
2720 LET N=VAL (E$(E+1 TO E+2))
2800 GOSUB 2900+TYPE*10
2810 IF NOT OK THEN GOTO 2100
2820 LET E=E+3
2830 GOTO 2700
2900 LET OK=(N=SALLE)
2905 RETURN
2910 LET OK=(O(N)=SALLE OR O(N)<0)
2915 RETURN
2920 LET OK=(O(N)<>SALLE AND O(N)>=0)
2925 RETURN
2930 LET OK=(O(N)<0)
2935 RETURN
2940 LET OK=S(N)
2945 RETURN
2950 LET OK=(NOT S(N))
2955 RETURN
2960 LET OK=(C(N)=1)
2965 RETURN
2970 LET OK=((INT (RND*100)+1)<=N)
2975 RETURN
3010 LET CORRESP=1
3020 LET E=E+1
3100 IF E$(E)="." THEN GOTO 2100
3110 LET TYPE=CODE (E$(E))-38
3120 IF E$(E+1)<>"." THEN LET N=VAL (E$(E+1 TO E+2))
3200 LET BREAK=0
3210 GOSUB 4000+TYPE*100
3220 IF BREAK THEN GOTO BREAK
3230 LET E=E+3
3240 GOTO 3100
4000 PRINT
4010 PRINT AT 8,15;"VOUS TENEZ:"
4020 LET F=1
4030 FOR X=1 TO O
4040 IF O(X)>=0 THEN GOTO 4070
4050 PRINT TAB 15;"-";O$(X)
4060 LET F=0
4070 NEXT X
4080 IF F THEN PRINT TAB 15;"-RIEN"
4090 LET BREAK=100
4095 RETURN
4100 IF S(1)<5 THEN GOTO 4140
4110 PRINT "VOUS NE POUVEZ PORTER PLUS"
4120 LET BREAK=100
4130 RETURN
4140 IF O(N)=-1 THEN GOTO 4180
4150 LET O(N)=-1
4160 LET S(1)=S(1)+1
4170 RETURN
4180 PRINT "VOUS LÀAVEZ DEJA"
4190 GOTO 4120
4200 IF O(N)=-1 THEN GOTO 4240
4210 PRINT "VOUS NÀAVEZ PAS ";O$(N)
4220 LET BREAK=100
4230 RETURN
4240 LET O(N)=SALLE
4250 LET S(1)=S(1)-1
4260 RETURN
4300 PRINT
4310 GOSUB 7000+N*10
4320 RETURN
4400 LET S(N)=1
4410 RETURN
4500 LET S(N)=0
4510 RETURN
4600 LET C(N)=VAL (E$(E+3 TO E+4))
4610 LET E=E+2
4620 RETURN
4700 LET X=O(N)
4710 LET O(N)=O(N+1)
4720 LET O(N+1)=X
4730 RETURN
4800 LET O(N)=SALLE
4810 RETURN
4900 IF O(N)<0 THEN LET S(1)=S(1)-1
4910 LET O(N)=0
4920 RETURN
5000 LET SALLE=N
5010 RETURN
5100 PRINT "DÀACCORD"
5200 LET BREAK=1000
5210 RETURN
5300 LET BREAK=1100
5310 RETURN
5400 LET BREAK=100
5410 RETURN
5500 PRINT "ETES VOUS SUR? ";
5510 INPUT W$
5520 PRINT W$
5530 IF PLOT CODE W$<>"O" THEN RETURN
5600 GOTO 9999
6010 DIM W$(4)
6015 LET P$(W)="00"
6020 GOSUB 6600
6025 IF FIN THEN RETURN
6030 FOR Q=1 TO 4
6040 LET W$(Q)=Y$(Y)
6050 GOSUB 6500
6060 IF FIN THEN GOTO 6100
6070 NEXT Q
6080 GOSUB 6500
6090 IF NOT FIN THEN GOTO 6080
6100 IF W$=" " THEN RETURN
6110 FOR Q=1 TO V
6120 IF W$=V$(Q)(3 TO ) THEN GOTO 6200
6130 NEXT Q
6140 RETURN
6200 LET P$(W)=V$(Q)( TO 2)
6210 RETURN
6500 LET Y=Y+1
6510 LET FIN=(Y>LEN Y$)
6520 IF FIN THEN RETURN
6530 LET FIN=(Y$(Y)=" ")
6540 RETURN
6600 LET Y=Y+1
6610 LET FIN=(Y>LEN Y$)
6620 IF FIN THEN RETURN
6630 IF Y$(Y)=" " THEN GOTO 6600
6640 RETURN
7010 PRINT AT 1,0;"UNE TRAPPE SÀOUVRE.VOUS VOUS EMPALEZ SUR DES PIQUES"
7015 RETURN
7020 PRINT AT 1,0;"UNE FLECHE VOUS TRAVERSE"
7025 RETURN
7030 PRINT AT 1,0;"LE RAYON REVIENT SUR VOUS ET VOUS DESINTEGRE"
7035 RETURN
7040 PRINT AT 1,0;"CE NÀETAIT QÀUNE PROJECTION.IL DISPARAIT"
7045 RETURN
7050 PRINT AT 2,0;"un«troll«apparait–";AT 9,6;"( O )"
7055 RETURN
7060 PRINT AT 1,0;"VOUS ETES ETES ELECTROCUTE"
7065 RETURN
7070 PRINT AT 1,0;"VOUS EXPLOSEZ"
7075 RETURN
7080 PRINT AT 1,0;"LE TRAIN SÀEST MIS EN MARCHE"
7085 RETURN
7090 PRINT AT 1,0;"VOUS TOMBEZ DANS LE VIDE.VOUS VOUS ECRASEZ"
7095 RETURN
7100 PRINT AT 5,0;"IL YÀA LE VIDE AUTOUR LA VOIE.VOUS APERCEVEZ ET APPRENEZ UN CODE POUR CLAVIER"
7105 RETURN
7110 PRINT AT 1,0;"LE MOTEUR EXPLOSE.VOUS AUSSI."
7115 RETURN
7120 PRINT AT 1,0;"UNE DOUCHE VOUS ENVOIF DE LÀACIDE."
7125 RETURN
7130 PRINT AT 1,0;"VOUS ETES DESINTEGRE."
7135 RETURN
7140 PRINT AT 1,0;"LA BOITE EXPLOSE.VOUS AUSSI."
7145 RETURN
7150 PRINT "UNE TRAPPE SÀOUVRE..."
7151 PRINT
7152 PAUSE 100
7153 PRINT "VOUS VOUS RETROUVEZ DEHORS.VOUS AVEZ GAGNE."
7155 RETURN
7160 PRINT AT 1,0;"VOUS ATTRAPEZ LA PESTE.VOUS MOUREZ."
7165 RETURN
7170 PRINT AT 1,0;"DEUX LAMES DE RASOIRS GEANTES SE REFERMENT SUR VOUS."
7175 RETURN
7180 PRINT AT 1,0;"LA BOUTEILLE FUYAIT.VOS MAINS SONT RONGES.VOUS ATTRAPEZ AUSSITOT LA LEPRE.LA MALADIE VOUS EMPORTE"
7185 RETURN
7190 PRINT AT 1,0;"LA PORTE SÀEST OUVERTE."
7195 RETURN
7200 PRINT AT 1,0;"VOUS GLISSEZ.VOUS VOUS ECRASEZ."
7205 RETURN
7210 PRINT AT 1,0;"LÀEAU ENVAHIT LA SALLE.VOUS VOUS NOYEZ."
7215 RETURN
7230 PRINT AT 1,0;"CÀEST BLINDE.."
7235 RETURN
7250 PRINT AT 1,0;"CELA CREE UN PARASITE.LA MACHINE EXPLOSE.VOUS AUSSI."
7255 RETURN
7260 PRINT AT 1,0;"VOUS AVEZ EFFACEZ LA K7"
7265 RETURN
7270 PRINT AT 1,0;"LES PILES DE LA LAMPE SONT MORTES."
7275 RETURN
7280 PRINT AT 1,0;"AVEC QUOI???..."
7285 RETURN
7290 PRINT AT 1,0;"TRICHEUR...VOUS NE LÀAVEZ JAMAIS LU."
7295 RETURN
7300 PRINT AT 1,0;"LA MOMIE SE MET EN MARCHE ET VOUS DEVORE."
7305 RETURN
7310 PRINT AT 1,0;"UNE VOIX VOUS DIT:","ÀPRENEZ TOUJOURS LE 2EMEÀ"
7315 RETURN
7320 PRINT AT 15,10;"O";AT 14,10;"-";AT 16,10;"-"
7325 RETURN
7330 PRINT AT 15,4;"O";AT 14,4;"-";AT 16,4;"-"
7335 RETURN
7340 PRINT AT 19,1;"-*";AT 1,0;"IL YÀA UN HAUT-PARLEUR BRANCHE."
7345 RETURN
7350 PRINT AT 19,1;"/*";AT 1,0;"IL YÀA UN HAUT-PARLEUR DEBRANCHE"
7355 RETURN
7360 PRINT AT 14,0;" ";AT 15,0;" ";AT 16,0;" "
7365 RETURN
7370 PRINT AT 8,6;" "
7375 RETURN
7380 PRINT AT 1,0;"LE TRAIN SÀARRETE,VOUS ETES","EJECTE SUR LE QUAI."
8010 PRINT AT 3,0;"VOUS ETES DANS UNE PIECE VIDE.";AT 8,6;"½½½";AT 16,6;"(O)"
8015 RETURN
8020 PRINT AT 3,0;"A LÀEST IL YÀA UNE PORTE AVEC UNMAGNETO K7 RIVE AU MUR AVEC DEUX TOUCHES ET AU SUD UN BOUTON ROUGE";AT 14,0;"½";AT 15,0;"½";AT 16,0;"½";AT 14,14;"½";AT 15,14;"½";AT 16,14;"½";AT 8,6;"½½½";AT 21,6;"½½½";AT 21,10;"ª";AT 12,0;"«:"
8025 RETURN
8030 PRINT AT 14,3;"-";AT 15,3;"O";AT 16,3;"-";AT 3,0;"VOUS ETES DANS UNE MINI GARE.IL YÀA 3 WAGONS.";AT 14,0;"½";AT 15,0;"½";AT 16,0;"½"
8031 FOR U=9 TO 20
8032 PRINT AT U,11;"+-+"
8033 NEXT U
8034 PRINT AT 9,11;"¬«ª";AT 10,11;"°˜º";AT 11,11;"¬«ª";AT 13,11;"¬«ª";AT 14,11;"°™º";AT 15,11;"¬«ª";AT 17,11;"¬«ª";AT 18,11;"°šº";AT 19,11;"¬«ª"
8035 RETURN
8040 PRINT AT 3,0;"LE TRAIN SÀEST ARRETE.IL FAIT NOIR"
8041 FOR U=8 TO 21
8042 PRINT AT U,0;"«««««««««««««««"
8043 NEXT U
8044 FOR U=8 TO 21
8045 PRINT AT U,1;"<22>‘<EFBFBD>"
8046 NEXT U
8047 PRINT AT 12,1;"«««";AT 13,1;"«™«";AT 14,1;"«««"
8048 RETURN
8050 PRINT AT 3,0;"UN RAYON EST ORIENTE N-S.IL YÀA UNE PORTE A LÀOUEST AVEC UN OEILELECTRONIQUE."
8051 FOR U=25 TO 2 STEP -2
8052 PLOT 18,U
8053 NEXT U
8054 FOR U=9 TO 20
8055 PRINT AT U,11;"+-+"
8056 NEXT U
8057 PRINT AT 8,6;"½½½";AT 21,6;"½½½";AT 14,0;"½";AT 15,0;"½";AT 16,0;"½";AT 12,0;"ª"
8058 RETURN
8060 PRINT AT 3,0;"UN TROU AVEC UNE ECHELLE RIVEE DESCEND.IL YÀA UNE VITRINE QUI DONNE SUR LA MER AVEC UN LEVIER."?3?TAN PRINT AT 8,4;"´´´´´";AT 21,6;"½½½";AT 14,0;"½ ½";AT 15,0;"½ ³";AT 16,0;" ";AT 9,3;"+";AT 18,3;"«"
8062 PRINT AT 19,6;"(O)"
8065 RETURN
8070 PRINT AT 3,0;"IL YÀA UNE MOMIE COUCHEE.AU N. IL YÀA UN LEVIER,UN BOUTON ET UNECRAN.A LÀO. UNE MANETTE."
8071 PRINT AT 18,14;"½";AT 15,14;"½";AT 16,14;"½";AT 14,1;"-";AT 8,6;"´´";AT 9,3;"+";AT 8,4;"¯";AT 17,3;"O";AT 18,3;"=";AT 19,3;"="
8072 PRINT AT 20,10;"(O)"
8075 RETURN
8080 PRINT AT 3,0;"AU NORD IL YÀA UNE PORTE AVEC UN CLAVIER.IL YÀA UNE MACHINE QUI RONRONNE."
8081 PRINT AT 8,6;"½½½";AT 14,14;"½";AT 15,14;"½";AT 16,14;"½";AT 18,2;"-«-";AT 19,3;"+";AT 8,5;"o";AT 20,5;"(O)"
8085 RETURN
9000 STOP
9010 CLS
9020 PRINT "NOMBRE D OBJETS?"
9030 INPUT O
9040 DIM Q(O)
9050 DIM O$(O,16)
9080 FOR X=1 TO O
9090 SCROLL
9100 PRINT "NO.";X;"SALLE?",
9110 INPUT Q(X)
9120 PRINT Q(X)
9130 SCROLL
9140 PRINT "DESCRIPTION?",
9150 INPUT O$(X)
9160 PRINT O$(X)
9170 NEXT X
9199 STOP
9200 CLS
9210 PRINT "NOMBRE DE MOTS?"
9220 INPUT V
9230 DIM V$(V,6)
9240 FOR X=1 TO V
9250 SCROLL
9260 INPUT V$(X)
9270 PRINT V$(X)
9280 NEXT X
9299 STOP
9300 CLS
9310 PRINT "NOMBRE DE SALLES?"
9320 INPUT R
9330 DIM M$(R,32)
9340 FOR X=1 TO R
9350 SCROLL
9360 INPUT M$(X)
9370 PRINT M$(X)
9380 NEXT X
9399 STOP
9400 CLS
9410 PRINT "NOMBRE DE CONDITIONSS?"
9420 INPUT C
9425 LET C=C+1
9430 DIM C$(C,21)
9440 FOR X=1 TO C-1
9450 SCROLL
9460 INPUT C$(X)
9470 PRINT C$(X)
9480 NEXT X
9490 LET C$(C)=".N."
9499 STOP
9500 CLS
9510 PRINT "NOMBRE D ACTIONS?"
9520 INPUT A
9530 DIM A$(A,31)
9540 FOR X=1 TO A
9550 SCROLL
9560 INPUT A$(X)
9570 PRINT A$(X)
9580 NEXT X
9599 STOP
9600 PRINT AT 8,0;"¼¸¸¸¸¸¸¸¸¸¸¸¸¸¯";AT 21,0;"ª®®®®®®®®®®®®®¬"
9610 FOR U=9 TO 20
9620 PRINT AT U,0;"º °"
9630 NEXT U
9640 RETURN
9700 PRINT "UN MANIAQUE,FOU ET SANS SCRUPU- LES VOUS A ENLEVE POUR VOUS FAI-RE TESTER:"
9710 PRINT AT 10,0;"–––’’’cauchemard‘house’’’–––"
9720 PRINT AT 15,5;"(MAISON TRUFFEE DE PIEGES)"
9730 PRINT AT 21,0;"PRESSEZ UNE TOUCHE.."
9740 IF INKEY$="" THEN GOTO 9740
9745 CLS
9750 RETURN
9790 SAVE "p"
9791 CLS
9800 GOTO 1
# REM
9999 REM [HEX:\
00,00,00,00,00,00,00,00,\
00,00,00,00,00 ]

34
alzan/zx81/res/Soluce.txt Normal file
View File

@ -0,0 +1,34 @@
PRENDS OUTIL
NORD
PRENDS COMBINAISON
ENFILE COMBINAISON
APPUIE BOUTON
BRANCHE PRISE
EST
VAIS 2
RIEN
PRENDS BOITE
NORD
PRENDS CASSETTE
SUD
SUD
INTRODUIS CASSETTE
APPUIE 2
OUEST
PREND LAMPE
EST
EST
VAIS 2
ALLUME LAMPE
RIEN
NORD
PRENDS GOURDE
BOIS GOURDE
SUD
SUD
POSE BOITE
OUEST
INTR CODE
NORD
TIRE MANIVELLE
*FIN*

150
alzan/zx81/res/test.bas Normal file
View File

@ -0,0 +1,150 @@
1 GOTO 9200
8699 LET V=47
8700 DIM V$(47,6)
8700 LET V$(1) = "01NORD"
8700 LET V$(2) = "02OUES"
8700 LET V$(3) = "03EST "
8700 LET V$(4) = "04SUD "
8700 LET V$(5) = "05VAIS"
8700 LET V$(6) = "061 "
8700 LET V$(7) = "072 "
8700 LET V$(8) = "083 "
8700 LET V$(9) = "09TIRE"
8700 LET V$(10) = "10BRAN"
8700 LET V$(11) = "11PRIS"
8700 LET V$(12) = "12APPU"
8700 LET V$(13) = "13BOUT"
8700 LET V$(14) = "14INTR"
8700 LET V$(15) = "15CASS"
8700 LET V$(16) = "16RIEN"
8700 LET V$(17) = "18VOIE"
8700 LET V$(18) = "17DESC"
8700 LET V$(19) = "19PREN"
8700 LET V$(20) = "20FLAC"
8700 LET V$(21) = "21GOUR"
8700 LET V$(22) = "22COMB"
8700 LET V$(23) = "23PIST"
8700 LET V$(24) = "24OUTI"
8700 LET V$(25) = "25KKKK"
8700 LET V$(26) = "26ALLU"
8700 LET V$(27) = "27LAMP"
8700 LET V$(28) = "29MANE"
8700 LET V$(29) = "30LEVI"
8700 LET V$(30) = "31BOIT"
8700 LET V$(31) = "32ECLA"
8700 LET V$(32) = "33OEIL"
8700 LET V$(33) = "34TAPE"
8700 LET V$(34) = "35FORM"
8700 LET V$(35) = "36REPA"
8700 LET V$(36) = "37MOTE"
8700 LET V$(37) = "38ORQU"
8700 LET V$(38) = "39DECR"
8700 LET V$(39) = "40INVE"
8700 LET V$(40) = "41POSE"
8700 LET V$(41) = "42LANC"
8700 LET V$(42) = "43ENFI"
8700 LET V$(43) = "44ETEI"
8700 LET V$(44) = "45BOIS"
8700 LET V$(45) = "46POUS"
8700 LET V$(46) = "47AMEN"
8700 LET V$(47) = "48CODE"
9014 LET A=75
9100 DIM A$(A,31)
9100 LET A$(1) = "1924B02.B02L. "
9100 LET A$(2) = "1923B01.B01L. "
9100 LET A$(3) = "4124B02.C02L. "
9100 LET A$(4) = "4123B01.C01L. "
9100 LET A$(5) = "1011A02F06.E06D31N. "
9100 LET A$(6) = "1415A02B09.C09E07L. "
9100 LET A$(7) = "1207A02E07F08.E09D19N. "
9100 LET A$(8) = "1206A02E07.E08D26N. "
9100 LET A$(9) = "0938A02E10.D03Q. "
9100 LET A$(10) = "1213A02E10.D04F10E18N. "
9100 LET A$(11) = "1213A02F10.L. "
9100 LET A$(12) = "4224A02B02.C02L. "
9100 LET A$(13) = "1922B03.B03L. "
9100 LET A$(14) = "0100E10A02.D02Q. "
9100 LET A$(15) = "0300E10A02.D02Q. "
9100 LET A$(16) = "0400E10A02.D02Q. "
9100 LET A$(17) = "0201E10A02.D12Q. "
9100 LET A$(18) = "0200A02E09.K08O. "
9100 LET A$(19) = "0400F10A02.K01O. "
9100 LET A$(20) = "0300F10A02.K03O. "
9100 LET A$(21) = "0100F10A22.K05O. "
9100 LET A$(22) = "1920B05.D18Q. "
9100 LET A$(23) = "4322D03.H03E11L. "
9100 LET A$(24) = "4122B03F11.C03L. "
9100 LET A$(25) = "4122E11B04.H03C03L. "
9100 LET A$(26) = "0508A03.D06Q. "
9100 LET A$(27) = "0506A03.D07Q. "
9100 LET A$(28) = "0507A03.D08K04O. "
9100 LET A$(29) = "0508A03.D06Q. "
9100 LET A$(30) = "1700A04.D09Q. "
9100 LET A$(31) = "0508A04.D06Q. "
9100 LET A$(32) = "1600A04.E12D38K05O. "
9100 LET A$(33) = "3637B02.D11Q. "
9100 LET A$(34) = "3637C02.D28N. "
9100 LET A$(35) = "4000.A00. "
9100 LET A$(36) = "3900.O00. "
9100 LET A$(37) = "1931B06.B06L. "
9100 LET A$(38) = "4131B06.C06L. "
9100 LET A$(39) = "0100E12A05F11.D13Q. "
9100 LET A$(40) = "0400E12A05F11.D13Q. "
9100 LET A$(41) = "2627A08F14F15.D25Q. "
9100 LET A$(42) = "0200E12A05F11.D13Q. "
9100 LET A$(43) = "0100F12A05.K06O. "
9100 LET A$(44) = "0400F12A05.F12K02O. "
9100 LET A$(45) = "0200F12A05E13.K07O. "
9100 LET A$(46) = "0100E11A05.F12K06O. "
9100 LET A$(47) = "0400E11A05.F12K02O. "
9100 LET A$(48) = "0200E11A05E13.K07O. "
9100 LET A$(49) = "3233E14A05.D19E13N. "
9100 LET A$(50) = "2627B11F15F14.H11E14L. "
9100 LET A$(51) = "4427E14B12.FX4H11L. "
9100 LET A$(52) = "1921B07.B07L. "
9100 LET A$(53) = "1915B09.B09L. "
9100 LET A$(54) = "4121B07.C07K. "
9100 LET A$(55) = "4115B09.C09L. "
9100 LET A$(56) = "4521B07.H07E16L. "
9100 LET A$(57) = "0200A06.D01Q. "
9100 LET A$(58) = "0300A06.D12Q. "
9100 LET A$(59) = "0930A06.D21Q. "
9100 LET A$(60) = "4530A06.D21Q. "
9100 LET A$(61) = "1700A06.D20Q. "
9100 LET A$(62) = "4629A07.D17Q. "
9100 LET A$(63) = "0929A07.D15Q. "
9100 LET A$(64) = "4630A07.D30Q. "
9100 LET A$(65) = "1213A07.D30Q. "
9100 LET A$(66) = "1927B11.B11L. "
9100 LET A$(67) = "4127B11.C11L. "
9100 LET A$(68) = "1448A08E17.D19D37E25N. "
9100 LET A$(69) = "1448A08F17.D29N. "
9100 LET A$(70) = "4127B11.C11L. "
9100 LET A$(71) = "0100A08E25.K07O. "
9100 LET A$(72) = "4121E16B08.C08L. "
9199 GOTO 9600
9200 REM TEST
9205 FOR A=1 TO 72
9210 LET O=VAL(A$(A)(1 TO 2))
9215 GOSUB 9500
9216 LPRINT A;"=";E$;" ";
9220 LET O=VAL(A$(A)(3 TO 4))
9225 GOSUB 9500
9226 LPRINT E$,":";
9230 FOR B=5 TO 30
9231 LET E$=A$(A)(B)
9232 IF E$="A" THEN LPRINT "/";A$(A)(B+1 TO B+2);"/";
9233 IF E$>="A" AND E$(1)<="K" THEN LET B=B+2
9234 LPRINT E$(1);
9235 IF E$<>" " THEN NEXT B
9236 LPRINT
9240 NEXT A
9500 LET E$=""
9501 IF O=0 THEN RETURN
9505 FOR Z=1 TO 47
9510 IF O<>VAL(V$(Z)(1 TO 2)) THEN NEXT Z
9520 LET E$=V$(Z)(3 TO )
9530 RETURN
9600 SAVE "TEST"

BIN
cauchemardhouse/cauchemardhouse_fr.po Normal file
View File

Binary file not shown.

475
cauchemardhouse/common/musiques.s Normal file
View File

@ -0,0 +1,475 @@
*
* La maison du Professeur Folibus
*
* (c) 1982, Alain BrŽgŽon
* (c) 2023, Brutal Deluxe Software (Apple II)
*
mx %11
lst off
*-----------------------------------
* PLAYMUSIC
*-----------------------------------
playMUSIC
sty $1e
stx $1f
LDA #$01
STA $09
STA $1D
PHA
PHA
PHA
BNE LA04D
LA038 INY
LDA ($1E),Y
STA $09
INY
LDA ($1E),Y
STA $1D
LA042 LDA $1E
CLC
ADC #$03
STA $1E
BCC LA04D
INC $1F
LA04D LDY #$00
LDA ($1E),Y
CMP #$01
BEQ LA038
BCS LA067
PLA
PLA
PLA
LA05A LDX #$49
INY
LDA ($1E),Y
BNE LA063
LDX #$C9
LA063 BIT KBDSTROBE
RTS
LA067 STA $08
JSR LA05A
STX LA0B6
STA $06
LDX $09
LA073 LSR
DEX
BNE LA073
STA LA0AE+1
JSR LA05A
STX LA0EE
STA $07
LDX $1D
LA084 LSR
DEX
BNE LA084
STA LA0E6+1
*
PLA
TAY
PLA
TAX
PLA
BNE LA098
LA095 BIT SPKR
LA098 CMP #$00
BMI LA09F
NOP
BPL LA0A2
LA09F BIT SPKR
LA0A2 STA $4E
BIT KBD
BMI LA063
DEY
BNE LA0AE
BEQ LA0B4
LA0AE CPY #$36
BEQ LA0B6
BNE LA0B8
LA0B4 LDY $06
LA0B6 EOR #$40
LA0B8 BIT $4E
BVC LA0C3
BVS LA0BE
LA0BE BPL LA0C9
NOP
BMI LA0CC
LA0C3 NOP
BMI LA0C9
NOP
BPL LA0CC
LA0C9 CMP SPKR
LA0CC DEC $4F
BNE LA0E1
DEC $08
BNE LA0E1
BVC LA0D9
BIT SPKR
LA0D9 PHA
TXA
PHA
TYA
PHA
JMP LA042
LA0E1 DEX
BNE LA0E6
BEQ LA0EC
LA0E6 CPX #$0C
BEQ LA0EE
BNE LA0F0
LA0EC LDX $07
LA0EE EOR #$80
LA0F0 BVS LA095
NOP
BVC LA098
NOP
*--- End of player
*--- INTRODUCTION (Prelude)
zikINTRODUCTION
hex 0C80000C2B800C19800C1C800C19400C
hex 2B400C19560C2B560C80000C2B800C19
hex 800C1C800C19400C2B400C19560C2B56
hex 0102020C80000C26800C18800C19800C
hex 18390C26390C18400C26400C80000C26
hex 800C18800C19800C18440C26440C1840
hex 0C26400103030C80000C22800C18800C
hex 19800C18390C22390C18560C22560C80
hex 000C22800C18800C19800C18560C2256
hex 0C18390C22390102020C80000C20800C
hex 19800C1C800C19560C20560C19560C20
hex 560C4C000C204C0C194C0C1C4C0C1944
hex 0C20440C19440C20440101010C80000C
hex 26800C19800C1C800C19400C20400C22
hex 400C20400C26390C20390C22390C2039
hex 0C33000C2B330C2D330C33000102020C
hex 2D000C202D0C1C330C20330C1C390C20
hex 390C1C400C20400C44000C20440C1C4C
hex 0C204C0C1C560C20560C1C600C206001
hex 01010C22560C1C560C15560C16560C15
hex 560C1C560C20000C1C000C22560C1C56
hex 0C20560C1C560C2B560C22560C26000C
hex 2B000102020C4C000C334C0C204C0C22
hex 4C0C204C0C334C0C204C0C334C0C5600
hex 0C33560C20560C22560C204C0C334C0C
hex 20560C33560103030C4C000C264C0C2B
hex 4C0C264C0C2B000C2D000C33000C3900
hex 0C20720C22720C26720C15000C16000C
hex 19000C1C000C20000102020C22560C26
hex 560C2B560C15560C1C560C15560C2200
hex 0C1C000C2B560C26560C22560C1C560C
hex 20560C22560C26000C2B000101010C1E
hex 560C2B560C24560C26560C243C0C2B3C
hex 0C1E330C2B330C19560C2B560C24560C
hex 26560C243C0C2B3C0C1E330C2B330102
hex 020C60000C26600C1C600C19600C1860
hex 0C1C600C26600C2B600C30000C26300C
hex 1C330C19330C18390C1C390C22720C26
hex 720103030C28660C22660C28660C2266
hex 0C1C300C22300C1C330C22330C28390C
hex 22390C28390C22390C1C400C22400C1C
hex 440C22440102020C204C0C224C0C2633
hex 0C20330C22300C20300C1C300C22300C
hex 204C0C224C0C264C0C2B4C0C30000C33
hex 000C39000C40000101010C44000C3044
hex 0C2B440C30440C2B440C30440C2B000C
hex 30000102020C72000C30720C2B720C30
hex 720C2B720C30720C2B000C3000010101
hex 0C40000C33400C24400C26400C24800C
hex 33800C24800C33800102020C40000C33
hex 400C24400C26400C24800C33800C2480
hex 0C33800103030C40000C30400C26400C
hex 2B400C26800C30800C26800C30800102
hex 020C40000C30400C26400C2B400C2680
hex 0C30800C26800C30800103030C40000C
hex 22400C18400C19400C18800C22800C18
hex 800C22800102020C40000C22400C1840
hex 0C19400C18800C22800C18800C228001
hex 01010C40000C2B400C19400C1C400C19
hex 800C20800C22800C26800C2B800C3080
hex 0C33800C39800C40000C44000C4C000C
hex 56000102020C5A000C395A0C265A0C22
hex 5A0C205A0C265A0C22000C2000010401
hex 0101010C5A000C395A0C265A0C225A0C
hex 205A0C265A0C22000C20000102020C60
hex 000C39600C2B600C26600C22600C2B60
hex 0C26000C22000103030C60000C39600C
hex 2B600C26600C22600C2B600C26000C22
hex 000101010C60000C39600C2B300C2230
hex 0C1C300C16300C15560102020C15000C
hex 39000C33000C2D000C2B000C26000C22
hex 000C20000103030C1C560C22560C2B56
hex 0C26560C22560C20560C1C000C190001
hex 02020C18560C1C560C22560C20560C1C
hex 560C19560C18000C15000103030C1422
hex 0C15220C16220C15220C15280C18280C
hex 19280C18280C182B0C1C2B0C222B0C26
hex 2B0C2B560C30560C33560C3056010202
hex 0C56000C39560C2B560C22560C1C560C
hex 19560C18000C1C000C19560C20560C2B
hex 560C30560C33560C40560C39000C3300
hex 0101010C56000C40560C33560C2B560C
hex 20560C1C560C19000C20000102020C16
hex 260C1B260C1C260C1B260C1B2D0C1C2D
hex 0C1E2D0C1C2D0C1C000C20000C22000C
hex 20000C20000C26000C2D000C33000C39
hex 000C2D390C26390C20390C1C400C1640
hex 0C15400C16400103030C15440C1C440C
hex 22440C26440C22660C1C660C2B660C22
hex 660102020C39000C2B390C2D390C3339
hex 0C395A0C405A0C445A0C4C5A0101010C
hex 00560C00560C184C0C194C0C1C440C20
hex 440C22400C26400C2B390C18390C1933
hex 0C1C330C20300C22300C26400C2B4001
hex 02020C304C0C194C0C1C4C0C204C0C22
hex 000C26000C2B000C30000C33500C1C50
hex 0C204C0C224C0C26440C28440C30800C
hex 33800103030C39600C20600C22600C26
hex 600C22560C1C560C2B440C1C440C2640
hex 0C1C400C22390C1C390C20330C1C330C
hex 262D0C1C2D0102020C22560C1C560C2B
hex 440C1C440C20330C1C330C262D0C1C2D
hex 0C22560C1C560C2B440C1C440C20330C
hex 1C330C262D0C1C2D0101010C22560C1C
hex 560C2B2B0C1C2B0C26260C1C260C2222
hex 0C1C220C20200C1C200C1C1C0C1C000C
hex 19190C1C190C2B2B0C1C2B0102020C1C
hex 1C0C1C000C19190C1C190C18180C1C18
hex 0C2B2B0C1C2B0C19190C1C190C18180C
hex 1C180C15150C1C150C19190C1C190103
hex 030C18180C1C180C19190C1C190C1818
hex 0C1C180C1C1C0C1C000C19190C1C190C
hex 1C1C0C1C000C19190C1C190C20200C1C
hex 200102020C1C1C0C1C000C20200C1C20
hex 0C1C1C0C1C000C22220C1C220C20200C
hex 1C200C22220C1C220C20200C1C200C26
hex 260C1C260101010C22220C1C220C2B2B
hex 0C262B0102020C243C0C24560C22390C
hex 22560C20360C20560C1E330C1E560C1C
hex 300C1C560C1B2D0103030C1B560C192B
hex 0C19560C18280C18560C16260C16560C
hex 15240C15560C14220C14560C13200C13
hex 560C121E0C12560C111C0C1156010101
hex 0C10560C19560C2B560C19560C102B0C
hex 192B0C102B0C192B0103030C10560C19
hex 560C2B560C19560C102B0C192B0C102B
hex 0C192B0101010C10560C1C560C2B560C
hex 1C560C102B0C1C2B0C102B0C1C2B0103
hex 030C10560C1C560C2B560C1C560C102B
hex 0C1C2B0C102B0C1C2B0101010C11560C
hex 1C560C2B560C1C560C11300C1C300C11
hex 300C1C300102020C11560C1C560C2B56
hex 0C1C560C11300C1C300C11560C1C5630
hex 1040FFFFFE00FFFE1000000000000000
hex 00000000000000000000000000000000
*--- GAGNE (Air)
zikGAGNE
hex 01020308000008306008306008306020
hex 3C7808000008366C08366C08366C4040
hex 80080000083000083000083000083C90
hex 082D90082D90082D90083090081E9008
hex 1E90081E901824900824900824900830
hex 90083090083090084098082D98082D98
hex 082D98083098081B98081B98081B9818
hex 2098082098082098081898081898081B
hex 98081E00081E78081E78081E6C082060
hex 081860081860081B60081E00081E7808
hex 1E78081E6C082060081860081860081B
hex 60101E60100000102478100000201880
hex 080000082D5A082D5A082D5A601B6C08
hex 0000082D00082D00082D000836400836
hex 4008364008364C08365A08365A08365A
hex 0836600836C00836C00836C0083C6008
hex 2D00082D00082D000836000836400836
hex 4008364008364C08365A08365A08365A
hex 083660081BC0081BC0081BC0081E6008
hex 30000824000824001024D80824000824
hex D80826D80826D80826000820001020D8
hex 0820000820D80824D80824D808240008
hex 1E00081E4C08204C062000040000061B
hex 00030000081B50081C50061C00040000
hex 061800030000081848081B48061B0004
hex 00000616000300000816480818480618
hex 00040000061400030000081448081648
hex 06160004000006120003000008125608
hex 13560613000400000610000400000812
hex 60080F60080F00080F60081260081860
hex 081800081860081E6008246008300008
hex 3060083C60084860084800084860084C
hex 6C080D6C08100008106C08136C08166C
hex 08180008186C08206C08266C08300008
hex 366C08406C084C6C0848000848000848
hex 56080F56080F00080F56081256081556
hex 081500081556081856081E56081E0008
hex 1E56082456082B56082B00082B562015
hex 56100000200000201450100000080000
hex 08280008280008280020003C20360020
hex 0050102850101E501020A0081E00081E
hex A0101BA00824000824A01024F0082800
hex 0828F01028F0081E00081EF01020A008
hex 1E00081EA0101BA00824000824A01024
hex F00828000828F01028F0081E00081EF0
hex 1020A0081E00081EA0101BA008240008
hex 24A01024F00828000828F01028C00824
hex 000824C01022E40824000824E41028D8
hex 0824000824D81028D8082B00082BD810
hex 22B4081E00081EB4101BC0081E00081E
hex C01022E4081E00081EE41022B4082400
hex 0824B4101EB4081B00081BB41019AC08
hex 1B00081BAC101EAC081B00081BAC1019
hex A0081B00081BA0101EA0101B00101998
hex 081B00081B98101E98101B0010199008
hex 1B00081B90101E90101B00101990081B
hex 00081B90101990101500101480081400
hex 0814800814F00612F00600000614F006
hex 00000618F00600000818F00818F0061B
hex 00060000061E00060000081ED80820D8
hex 062400060000062000060000081BC008
hex 1EC00628000600000630000600000820
hex B40824B4062D00060000063600060000
hex 0824A00828A0063000060000063C0006
hex 00000800A00815A00814000815000814
hex F00815F00814D80815D80614A0060000
hex 0612A006000006148006000006168006
hex 00000816F00818F0061BC0060000061E
hex C0060000081ED80820D80624B4060000
hex 0620B4060000081BC0081EC00628A006
hex 00000630A00600000820B40824B4062D
hex 900600000636900600000824A00828A0
hex 061650060000061B500600000800A008
hex 28A0081450081450081E50080B30080B
hex 30080B30080F3C081450081450081450
hex 081860081E3C081E3C081E3C0828A008
hex 1B50081B50081B50081878080B30080B
hex 30080B30080F3C081450081450081450
hex 081860081E78081E78081E780828A008
hex 14500814500814501014501000000800
hex 00081450081450081450101450100000
hex 080000081050081050081050100F5010
hex 00002000004000000830600830600830
hex 60203C7808000008366C08366C08366C
hex 40408008000008300008300008300008
hex 3C90082D90082D90082D90083090081E
hex 90081E90081E90182490082490082490
hex 083090083090083090084098082D9808
hex 2D98082D98083098081B98081B98081B
hex 98182098082098082098081898081898
hex 081B98081E00081E78081E78081E6C08
hex 2060081860081860081B60081E00081E
hex 78081E78081E6C082060081860081860
hex 081B60101E6010000010247810000020
hex 188008000008165A08165A08165A601B
hex 6C080000082D00082D00082D00083640
hex 08364008364008364C08365A08365A08
hex 365A0836600836C00836C00836C0083C
hex 60082D00082D00082D00083600083640
hex 08364008364008364C08365A08365A08
hex 365A083660081BC0081BC0081BC0081E
hex 600830000824000824001024D8082400
hex 0824D80826D80826D808260008200010
hex 20D80820000820D80824D80824D80824
hex 00081E00081E4C08204C062000060000
hex 061B00060000081B50081C50061C0006
hex 0000061800060000081848081B48061B
hex 00060000061600060000081648081848
hex 06180006000006140006000008144808
hex 16480616000600000612000600000812
hex 56081356061300060000061000060000
hex 081260080F60080F00080F6008126008
hex 1860081800081860081E600824600830
hex 00083060083C60084860084800084860
hex 084C6C080D6C08100008106C08136C08
hex 166C08180008186C08206C08266C0830
hex 0008366C08406C084C6C084800084800
hex 08482D080F3C080F3C080F3C08124808
hex 1556081556081556081966081E78081E
hex 78081E78082490082BAC082BAC082BAC
hex 10339010000020000010309810000008
hex 0000083000083000083000083C90082D
hex 90082D90082D90083090081E90081E90
hex 081E9010249008249008249008309008
hex 3090083090083C90082D90082D90082D
hex 90083090081E90081E90081E90182490
hex 0824900824900820C00820C00820C010
hex 1E901000000800000820C00820C00820
hex C0101EC01000000800000820C00820C0
hex 0820C0101ED81020C0101ED81020C010
hex 1ED81015C01014D81015C01014D81000
hex 001026C01000002024D80062C5000000
hex 00000000000000000000000000000000
*--- PERDU (Beethoven's fifth)
zikPERDU
hex 010303302B6C302B36302B39302B7230
hex 2B80302B40302B48302B90309FA00102
hex 0218205018285018304C18364C183998
hex 1836980C39900C36900C39900C369030
hex 39901840901848903048A00101013024
hex AC302456302460302460180066010303
hex 182B66183C6618406618308018338018
hex 24801828800102023028601828601828
hex 6C182860182856182850182860182872
hex 01010118307218407218487218369018
hex 3990182890182B90302B6C302B36302B
hex 390102021826721824723036800C3640
hex 0C3040182B40182B4C18304C18306018
hex 36600103031839481840480C406C0C39
hex 6C18366C303660183960184060010101
hex 18489018488018487218486C18486018
hex 4850184856184860010303302B6C302B
hex 36302B39302B72302B80302B40302B48
hex 302B90309FA001020218205018285018
hex 304C18364C1839981836980C39900C36
hex 900C39900C3690303990184090184890
hex 3048A00101013024AC30245630246030
hex 2460180066010303182B66183C661840
hex 66183080183380182480182880010202
hex 30286018286018286C18286018285618
hex 28501828601828720101011830721840
hex 72184872183690183990182890182B90
hex 302B6C302B36302B3901020218267218
hex 24723036800C36400C3040182B40182B
hex 4C18304C183060183660010303183948
hex 1840480C406C0C396C18366C30366018
hex 3960184060010101C0488F3039903039
hex 481839500C36500C39500C40A00C39A0
hex 1848A01848AC1840AC303C56303C6030
hex 3C600102023040663020661800561824
hex 56182880182B80010303302860302860
hex 0C286C0C2B6C0C306C0C366C18396C18
hex 406C0102021844721840723039721839
hex 80183680303080010404183090182B90
hex 302880302872302B9001020218308018
hex 36801839501840500C39600C36601830
hex 60303656304080303F40304748308F90
hex 01010130369830364C183656182B5618
hex 30AC1836AC3020601820601820563020
hex 4C18246C18266C0103030C2B720C3072
hex 18247230487230406C1840600C39600C
hex 3660303990183948183F403048500101
hex 013048A03036AC303656303650182BA0
hex 1830A001020230309830304C30304818
hex 2890182B90010303302B88302B44302B
hex 40182480182880010404302860302830
hex 30283630286C01040430487230487218
hex 48901839901830721828720103031828
hex 6C182B6C302B6C302B78182B780C2878
hex 0C247801020230368030368018369018
hex 2B90182448181E480103033020503020
hex 50302056303656183960183060302860
hex 30286C30406C3048720102020C30900C
hex 2B9018289018286C182B6C182B501830
hex 500103030C36900C39901840901840A0
hex 1839A00C39900C36900C39900C369018
hex 39901836903036D8C0D7D80066B31000
hex 00000000000000000000000000000000

1
cauchemardhouse/fr/_FileInformation.txt Normal file
View File

@ -0,0 +1 @@
cauchemardhouse=Type(06),AuxType(4000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)

BIN
cauchemardhouse/fr/cauchemardhouse Normal file
View File

Binary file not shown.

1779
cauchemardhouse/fr/cauchemardhouse.s Normal file
View File

File diff suppressed because it is too large Load Diff

5029
cauchemardhouse/fr/cauchemardhouse_Output.txt Normal file
View File

File diff suppressed because it is too large Load Diff

301
cauchemardhouse/fr/fr.s Normal file
View File

@ -0,0 +1,301 @@
*
* Cauchemard House
*
* (c) 198?, Auteur inconnu
* (c) 2023, Brutal Deluxe Software (Apple II)
*
mx %11
lst off
* Les caract<EFBFBD>res en standard : @ { } ] ! (pipe)
* Les caract<EFBFBD>res en fran<EFBFBD>ais : ˆ Ž <EFBFBD> <EFBFBD> <EFBFBD>
* Les Žquivalents en ASCII : C0 FB FD DC FC
*-----------------------------------
* LES CHAINES
*-----------------------------------
strVOUSDETENEZ
asc 8D"Vous detenez : "00
strVOUSRIEN
asc 8D"Vous ne detenez absolument rien !!!"00
strPOINT
asc "."00
strEVIDENT
asc 8D"Vous ne pouvez porter plus"00
strVOUSLAVEZ
asc 8D"Vous l"A7"avez deja."00
strNOTOWNED
asc 8D"Vous n"A7"avez pas"00
strDACCORD
asc "D"A7"accord"00
*-----------------------------------
* 7000 - LES REPONSES
*-----------------------------------
str7010 asc "Une trappe s"A7"ouvre. Vous vous empalez"8D
asc "sur des piques"00
str7020 asc "Une fleche vous traverse"00
str7030 asc "Le rayon revient sur vous et vous"8D
asc "desintegre"00
str7040 asc "Ce n"A7"etait qu"A7"une projection. Il dispa-"8D
asc "-rait"00
str7050 asc "Un troll apparait"00
str7060 asc "Vous vous etes electrocute"00
str7070 asc "Vous explosez"00
str7080 asc "Le train s"A7"est mis en marche"00
str7090 asc "Vous tombez dans le vide. Vous vous"8D
asc "ecrasez"00
str7100 asc "Il y a le vide autour de la voie. Vous"8D
asc "apercevez et apprenez un code pour"8D
asc "clavier"00
str7110 asc "Le moteur explose. Vous aussi."00
str7120 asc "Une douche vous envoie de l"A7"acide"00
str7130 asc "Vous etes desintegre."00
str7140 asc "La boite explose. Vous aussi."00
str7150 asc "Une trappe s"A7"ouvre..."00
str7153 asc 8D"Vous vous retrouvez dehors."8D
asc "Vous avez gagne."00
str7160 asc "Vous attrapez la peste. Vous mourez."00
str7170 asc "Deux lames de rasoir geantes se refer-"8D
asc "-ment sur vous."00
str7180 asc "La bouteille fuyait. Vos mains sont ron-"
asc "-gees. Vous attrapez aussitot la leptre."
asc "La maladie vous emporte"00
str7190 asc "La porte s"A7"est ouverte."00
str7200 asc "Vous glissez. Vous vous ecrasez."00
str7210 asc "L"A7"eau envahit la salle. Vous vous noyez."00
str7220 asc ""00
str7230 asc "C"A7"est blinde.."00
str7240 asc ""00
str7250 asc "Cela cree un parasite. La machine"8D
asc "explose. Vous aussi."00
str7260 asc "Vous avez efface la K7"00
str7270 asc "Les piles de la lampe sont mortes."00
str7280 asc "Avec quoi ???..."00
str7290 asc "Tricheur... Vous ne l"A7"avez jamais lu."00
str7300 asc "La momie se met en marche et vous"8D
asc "devore."00
str7310 asc "Une voix vous dit : "A7"Prenez toujours le"8D
asc "deuxieme."A7""00
str7320 asc "-O-"00
str7330 asc "-O-"00
str7340 asc "Il y a un haut-parleur branche"00
str7350 asc "Il y a un haut-parleur debranche"00
str7360 asc " "00
str7370 asc " "00
str7380 asc "Le train s"A7"arrete. Vous etes ejecte sur "
asc "le quai."00
*-----------------------------------
* LIEUX
*-----------------------------------
* "0 1 2 3 "
* "0123456789012345678901234567890123456789"
* "----------------------------------------"
str8010 asc "Vous etes dans une piece vide."00
str8020 asc "A l"A7"est il y a une porte avec un magneto"
asc "rive au mur avec deux touches et au sud "
asc "un bouton rouge"00
str8030 asc "Vous etes dans une mini gare."8D
asc "Il y a 3 wagons."00
str8040 asc "Le train s"A7"est arrete. Il fait noir."00
str8050 asc "Un rayon est oriente N-S."8D
asc "Il y a une porte a l"A7"ouest avec un oeil "
asc "electronique"00
str8060 asc "Un trou avec une echelle rivee descend. "
asc "Il y a une vitrine qui donne sur la mer "
asc "avec un levier."00
str8070 asc "Il y a une momie couchee. Au nord il y a"
asc "un levier, un bouton et un ecran."8D
asc "A l"A7"ouest, une manette."00
str8080 asc "Au nord il y a une porte avec un clavier"
asc "Il y a une machine qui ronronne."00
strREPLAY asc 8D"Voulez-vous rejouer ? "00
strGAGNE asc "Cela est exceptionnel. Vous etes le "8D8D
asc "premier a etre sorti vivant de"8D8D
asc "Cauchemard House"00
*-----------------------------------
* 40000 - LISTE DES INSTRUCTIONS
*-----------------------------------
strINSTR asc 8D"La liste des instructions ? "00
strINSTR2 asc 8D8D
asc "Vous voici arrive dans"8D
asc " Cauchemard House..."8D
asc 8D
asc "Pour converser avec l"A7"ordinateur, il"8D
asc "faut rentrer les ordres en 1 ou 2 mots"8D
asc "tels que :"8D
asc " NORD"8D
asc " PRENDS PILULE"8D
asc 8D
asc "ou pour commencer :"8D
asc " ENTRE"8D
asc 8D8D
asc "Si vous voulez faire durer la phrase"8D
asc "decrivant la salle, tapez une touche"8D
asc 8D
asc "Un dernier conseil : il peut parfois y"8D
asc "avoir une porte derriere vous. "00
*-----------------------------------
* 51000 - DISCLAIMER
*-----------------------------------
strDISCLAIMER
asc "L"A7"utilisation de ce programme est"8D8D
asc "deconseillee aux personnes sensibles,"8D8D
asc "aux enfants en bas age, ainsi qu"A7"a"8D8D
asc "tout personne susceptible d"A7"avoir"8D8D
asc "des malaises cardiaques."8D8D
asc 8D8D
asc "Nous ne pourrions etre tenus responsa-"8D8D
asc "-bles des troubles physiques ou mentaux"8D8D
asc "provoques par votre echec dans"8D8D
asc "Cauchemard House ............."00
*-----------------------------------
* introPIC - la picture GR
*-----------------------------------
strLORICIELS
asc "XavSnap et Brutal Deluxe presentent "00
asc "MICRO-SYSTEMES est fier de presenter"00
strLEMANOIR
asc "Un maniaque, fou et sans scrupules,"8D
asc " vous a enleve pour vous faire tester..."
asc 8D8D
asc "@@@ @@@ @ @ @@@ @ @ @@@ @ @ @@@ @@@ @@ "
asc "@ @ @ @ @ @ @ @ @ @@@@ @ @ @ @ @ @"
asc "@ @@@ @ @ @ @@@ @@ @ @@ @@@ @@ @ @"
asc "@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @"
asc "@@@ @ @ @@@ @@@ @ @ @@@ @ @ @ @ @ @ @@ "
asc 8D
asc " @ @ @@@ @ @ @@@ @@@"8D
asc " @ @ @ @ @ @ @ @ "8D
asc " @@@ @ @ @ @ @@@ @@ "8D
asc " @ @ @ @ @ @ @ @ "8D
asc " @ @ @@@ @@@ @@@ @@@"8D
asc 8D8D
asc " MAISON TRUFFEE DE PIEGES"00
strINTRO1 asc " Version Apple II par "00
strINTRO2 asc " Brutal Deluxe Software "00
strINTRO3 asc " Merci a XavSnap "00
strINTRO4 asc " (C) 198?, Auteur inconnu "00
*-----------------------------------
* VOCABULAIRE
*-----------------------------------
V$1 str "NORD"
V$2 str "OUES"
V$3 str "EST"
V$4 str "SUD"
V$5 str "VAIS"
V$6 str "1"
V$7 str "2"
V$8 str "3"
V$9 str "TIRE"
V$10 str "BRAN"
V$11 str "PRIS"
V$12 str "APPU"
V$13 str "BOUT"
V$14 str "INTR"
V$15 str "CASS"
V$16 str "RIEN"
V$17 str "VOIE"
V$18 str "DESC"
V$19 str "PREN"
V$20 str "FLAC"
V$21 str "GOUR"
V$22 str "COMB"
V$23 str "PIST"
V$24 str "OUTI"
V$25 str "KKKK"
V$26 str "ALLU"
V$27 str "LAMP"
V$28 str "MANE"
V$29 str "LEVI"
V$30 str "BOIT"
V$31 str "ECLA"
V$32 str "OEIL"
V$33 str "TAPE"
V$34 str "FORM"
V$35 str "REPA"
V$36 str "MOTE"
V$37 str "ORQU"
V$38 str "DECR"
V$39 str "INVE"
V$40 str "POSE"
V$41 str "LANC"
V$42 str "ENFI"
V$43 str "ETEI"
V$44 str "BOIS"
V$45 str "POUS"
V$46 str "AMEN"
V$47 str "CODE"
V$73 str "TEMPO" ; Apple II
V$74 str "QUITTER" ; Apple II
V$75 str "CASSE" ; Apple II
*-----------------------------------
* OBJETS
*-----------------------------------
O$1 asc ""00
O$2 asc ""00
O$3 asc ""00
O$4 asc ""00
O$5 asc ""00
O$6 asc ""00
O$7 asc ""00
O$8 asc ""00
O$9 asc ""00
O$10 asc ""00
*-----------------------------------
* STRINGS
*-----------------------------------
* asc "1234567890123456789012345678901234567890"
strILFAITNOIR
asc "On n"A7"y voit rien, mieux vaudrait allumer"
asc "pour eviter les ennuis."00
strILYA asc 8D"Il y a aussi :"00
strCOMMA asc ","00
strSPACE asc " "00
strRETURN asc 8D00
strCOMMANDE
asc 8D"Que faites-vous ? "00
strJENECOMPRENDS
asc "Pardon ?"8D00
strIMPOSSIBLE
asc "Impossible "00
strCECHEMIN
asc "de prendre ce chemin"00
strEXCLAM
asc " !"00

35
cauchemardhouse/fr/solution_fr.txt Normal file
View File

@ -0,0 +1,35 @@
Solution de Cauchemard House
PRENDS OUTIL
NORD
PRENDS COMBINAISON
ENFILE COMBINAISON
APPUIE BOUTON
BRANCHE PRISE
EST
VAIS 2
RIEN
PRENDS BOITE
NORD
PRENDS CASSETTE
SUD
SUD
INTRODUIS CASSETTE
APPUIE 2
OUEST
PREND LAMPE
EST
EST
VAIS 2
ALLUME LAMPE
RIEN
NORD
PRENDS GOURDE
BOIS GOURDE
SUD
SUD
POSE BOITE
OUEST
INTR CODE
NORD
TIRE MANIVELLE

100
cauchemardhouse/lereve.s Normal file
View File

@ -0,0 +1,100 @@
*
* Cauchemard House
*
* (c) 1982, Auteur inconnu
* (c) 2023, Brutal Deluxe Software (Apple II)
*
mx %11
org $2000
lst off
*-----------------------------------
* SOFTSWITCHES AND FRIENDS
*-----------------------------------
leJEU = $4000
ptrPREFIX = $280
proBUFFER = $b800
PRODOS = $bf00
*-----------------------------------
* LOAD THE GAME
*-----------------------------------
jsr PRODOS ; get the prefix
dfb $c7
da proGETPFX
jsr PRODOS ; set it
dfb $c6
da proGETPFX
jsr PRODOS
dfb $c8
da proOPEN
bcs quitME
lda proOPEN+5 ; zou, on prend l'ID
sta proGETEOF+1
sta proREAD+1
sta proCLOSE+1
jsr PRODOS ; longueur du fichier
dfb $d1
da proGETEOF
bcs quitME
lda proGETEOF+2
sta proREAD+4
lda proGETEOF+3
sta proREAD+5
jsr PRODOS ; lecture du fichier
dfb $ca
da proREAD
bcs quitME
jsr PRODOS ; fermeture du fichier
dfb $cc
da proCLOSE
bcs quitME
jmp leJEU
quitME jsr PRODOS ; exit
dfb $65
da proQUIT
brk $bd ; on ne se refait pas ;-)
*--- Data
proQUIT dfb $4
ds 1
ds 2
ds 1
ds 2
proGETPFX dfb $1
da ptrPREFIX
proOPEN dfb $3
da pLEJEU ; pathname (par dŽfaut, le moteur)
da proBUFFER ; io_buffer
ds 1 ; ref_num
proREAD dfb $4
ds 1 ; ref_num
da leJEU ; data_buffer
ds 2 ; request_count
ds 2 ; transfer_count
proCLOSE dfb $1
ds 1 ; ref_num
proGETEOF dfb $2
ds 1 ; ref_num
ds 3 ; eof
pLEJEU str 'CauchemardHouse'

BIN
cauchemardhouse/zx81/CauchemardHouse.P Normal file
View File

Binary file not shown.

BIN
cauchemardhouse/zx81/CauchemardHouse.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 18 KiB

384
cauchemardhouse/zx81/res/CauchemardHouse_ZxBasic.bas Normal file
View File

@ -0,0 +1,384 @@
5 GOSUB 9700
19 DIM S(25)
20 DIM C(5)
30 LET SALLE=1
40 DIM P$(2,2)
50 DIM O(O)
60 FOR X=1 TO O
70 LET O(X)=Q(X)
80 NEXT X
90 RAND
100 IF NOT S(2) THEN GOTO 200
110 IF C(2) THEN LET C(2)=C(2)-1
120 IF S(3) THEN GOTO 200
130 PRINT "ON N Y VOIT RIEN.MIEUX VAUDRAIT","ALLUMER POUR EVITER LES ENNUIS."
140 IF C(3) THEN LET C(3)=C(3)-1
150 GOTO 1000
210 GOSUB 9600
220 GOSUB 8000+SALLE*10
300 LET F=0
310 FOR X=1 TO O
320 IF O(X)<>SALLE THEN GOTO 500
330 IF F THEN GOTO 400
340 PRINT AT 15,15;"IL Y A AUSSI:"
350 LET F=1
400 PRINT TAB 15;"-";O$(X)
500 NEXT X
1010 LET T=1
1020 GOTO 2000
1100 IF C(1) THEN LET C(1)=C(1)-1
1110 IF C(4) THEN LET C(4)=C(4)-1
1120 PRINT AT 21,15;"QUE FAITES-VOUS?>"
1130 INPUT Y$
1140 CLS
1150 LET Y=0
1160 PRINT ">";Y$;":";
1170 LET P$(2)="00"
1200 FOR W=1 TO 2
1210 GOSUB 6000
1220 IF Y>=LEN Y$ THEN GOTO 1300
1230 IF P$(W)="00" THEN GOTO 1210
1240 NEXT W
1300 IF P$(1)<>"00" THEN GOTO 1600
1310 PRINT "PARDON?"
1320 GOTO 100
1610 LET Z=1
1620 LET T$=M$(SALLE)(Z TO Z+1)
1630 IF T$="00" THEN GOTO 1900
1640 IF T$<>P$(1) THEN GOTO 1700
1650 LET SALLE=VAL (M$(SALLE)(Z+2 TO Z+3))
1660 GOTO 100
1700 LET Z=Z+4
1710 GOTO 1620
1900 LET T=0
1910 LET CORRESP=0
2010 LET CP=0
2100 LET CP=CP+1
2110 IF NOT T THEN GOTO 2300
2120 LET E$=C$(CP)
2130 GOTO 2600
2300 IF CP<=A THEN GOTO 2400
2310 IF CORRESP THEN GOTO 1000
2320 PRINT "IMPOSSIBLE";
2330 IF VAL (P$(1))<9 THEN PRINT " DE PRENDRE CETTE DIRECTION";
2340 PRINT "."
2350 GOTO 100
2400 IF A$(CP)(1 TO 2)<>P$(1) THEN GOTO 2100
2410 LET Y$=A$(CP)(3 TO 4)
2420 IF Y$<>"00" AND Y$<>P$(2) THEN GOTO 2100
2430 LET E$=A$(CP)(5 TO )
2610 LET E=1
2700 IF E$(E)="." THEN GOTO 3000
2710 LET TYPE=CODE (E$(E))-38
2720 LET N=VAL (E$(E+1 TO E+2))
2800 GOSUB 2900+TYPE*10
2810 IF NOT OK THEN GOTO 2100
2820 LET E=E+3
2830 GOTO 2700
2900 LET OK=(N=SALLE)
2905 RETURN
2910 LET OK=(O(N)=SALLE OR O(N)<0)
2915 RETURN
2920 LET OK=(O(N)<>SALLE AND O(N)>=0)
2925 RETURN
2930 LET OK=(O(N)<0)
2935 RETURN
2940 LET OK=S(N)
2945 RETURN
2950 LET OK=(NOT S(N))
2955 RETURN
2960 LET OK=(C(N)=1)
2965 RETURN
2970 LET OK=((INT (RND*100)+1)<=N)
2975 RETURN
3010 LET CORRESP=1
3020 LET E=E+1
3100 IF E$(E)="." THEN GOTO 2100
3110 LET TYPE=CODE (E$(E))-38
3120 IF E$(E+1)<>"." THEN LET N=VAL (E$(E+1 TO E+2))
3200 LET BREAK=0
3210 GOSUB 4000+TYPE*100
3220 IF BREAK THEN GOTO BREAK
3230 LET E=E+3
3240 GOTO 3100
4000 PRINT
4010 PRINT AT 8,15;"VOUS TENEZ:"
4020 LET F=1
4030 FOR X=1 TO O
4040 IF O(X)>=0 THEN GOTO 4070
4050 PRINT TAB 15;"-";O$(X)
4060 LET F=0
4070 NEXT X
4080 IF F THEN PRINT TAB 15;"-RIEN"
4090 LET BREAK=100
4095 RETURN
4100 IF S(1)<5 THEN GOTO 4140
4110 PRINT "VOUS NE POUVEZ PORTER PLUS"
4120 LET BREAK=100
4130 RETURN
4140 IF O(N)=-1 THEN GOTO 4180
4150 LET O(N)=-1
4160 LET S(1)=S(1)+1
4170 RETURN
4180 PRINT "VOUS LÀAVEZ DEJA"
4190 GOTO 4120
4200 IF O(N)=-1 THEN GOTO 4240
4210 PRINT "VOUS NÀAVEZ PAS ";O$(N)
4220 LET BREAK=100
4230 RETURN
4240 LET O(N)=SALLE
4250 LET S(1)=S(1)-1
4260 RETURN
4300 PRINT
4310 GOSUB 7000+N*10
4320 RETURN
4400 LET S(N)=1
4410 RETURN
4500 LET S(N)=0
4510 RETURN
4600 LET C(N)=VAL (E$(E+3 TO E+4))
4610 LET E=E+2
4620 RETURN
4700 LET X=O(N)
4710 LET O(N)=O(N+1)
4720 LET O(N+1)=X
4730 RETURN
4800 LET O(N)=SALLE
4810 RETURN
4900 IF O(N)<0 THEN LET S(1)=S(1)-1
4910 LET O(N)=0
4920 RETURN
5000 LET SALLE=N
5010 RETURN
5100 PRINT "DÀACCORD"
5200 LET BREAK=1000
5210 RETURN
5300 LET BREAK=1100
5310 RETURN
5400 LET BREAK=100
5410 RETURN
5500 PRINT "ETES VOUS SUR? ";
5510 INPUT W$
5520 PRINT W$
5530 IF PLOT CODE W$<>"O" THEN RETURN
5600 GOTO 9999
6010 DIM W$(4)
6015 LET P$(W)="00"
6020 GOSUB 6600
6025 IF FIN THEN RETURN
6030 FOR Q=1 TO 4
6040 LET W$(Q)=Y$(Y)
6050 GOSUB 6500
6060 IF FIN THEN GOTO 6100
6070 NEXT Q
6080 GOSUB 6500
6090 IF NOT FIN THEN GOTO 6080
6100 IF W$=" " THEN RETURN
6110 FOR Q=1 TO V
6120 IF W$=V$(Q)(3 TO ) THEN GOTO 6200
6130 NEXT Q
6140 RETURN
6200 LET P$(W)=V$(Q)( TO 2)
6210 RETURN
6500 LET Y=Y+1
6510 LET FIN=(Y>LEN Y$)
6520 IF FIN THEN RETURN
6530 LET FIN=(Y$(Y)=" ")
6540 RETURN
6600 LET Y=Y+1
6610 LET FIN=(Y>LEN Y$)
6620 IF FIN THEN RETURN
6630 IF Y$(Y)=" " THEN GOTO 6600
6640 RETURN
7010 PRINT AT 1,0;"UNE TRAPPE SÀOUVRE.VOUS VOUS EMPALEZ SUR DES PIQUES"
7015 RETURN
7020 PRINT AT 1,0;"UNE FLECHE VOUS TRAVERSE"
7025 RETURN
7030 PRINT AT 1,0;"LE RAYON REVIENT SUR VOUS ET VOUS DESINTEGRE"
7035 RETURN
7040 PRINT AT 1,0;"CE NÀETAIT QÀUNE PROJECTION.IL DISPARAIT"
7045 RETURN
7050 PRINT AT 2,0;"un«troll«apparait–";AT 9,6;"( O )"
7055 RETURN
7060 PRINT AT 1,0;"VOUS ETES ETES ELECTROCUTE"
7065 RETURN
7070 PRINT AT 1,0;"VOUS EXPLOSEZ"
7075 RETURN
7080 PRINT AT 1,0;"LE TRAIN SÀEST MIS EN MARCHE"
7085 RETURN
7090 PRINT AT 1,0;"VOUS TOMBEZ DANS LE VIDE.VOUS VOUS ECRASEZ"
7095 RETURN
7100 PRINT AT 5,0;"IL YÀA LE VIDE AUTOUR LA VOIE.VOUS APERCEVEZ ET APPRENEZ UN CODE POUR CLAVIER"
7105 RETURN
7110 PRINT AT 1,0;"LE MOTEUR EXPLOSE.VOUS AUSSI."
7115 RETURN
7120 PRINT AT 1,0;"UNE DOUCHE VOUS ENVOIF DE LÀACIDE."
7125 RETURN
7130 PRINT AT 1,0;"VOUS ETES DESINTEGRE."
7135 RETURN
7140 PRINT AT 1,0;"LA BOITE EXPLOSE.VOUS AUSSI."
7145 RETURN
7150 PRINT "UNE TRAPPE SÀOUVRE..."
7151 PRINT
7152 PAUSE 100
7153 PRINT "VOUS VOUS RETROUVEZ DEHORS.VOUS AVEZ GAGNE."
7155 RETURN
7160 PRINT AT 1,0;"VOUS ATTRAPEZ LA PESTE.VOUS MOUREZ."
7165 RETURN
7170 PRINT AT 1,0;"DEUX LAMES DE RASOIRS GEANTES SE REFERMENT SUR VOUS."
7175 RETURN
7180 PRINT AT 1,0;"LA BOUTEILLE FUYAIT.VOS MAINS SONT RONGES.VOUS ATTRAPEZ AUSSITOT LA LEPRE.LA MALADIE VOUS EMPORTE"
7185 RETURN
7190 PRINT AT 1,0;"LA PORTE SÀEST OUVERTE."
7195 RETURN
7200 PRINT AT 1,0;"VOUS GLISSEZ.VOUS VOUS ECRASEZ."
7205 RETURN
7210 PRINT AT 1,0;"LÀEAU ENVAHIT LA SALLE.VOUS VOUS NOYEZ."
7215 RETURN
7230 PRINT AT 1,0;"CÀEST BLINDE.."
7235 RETURN
7250 PRINT AT 1,0;"CELA CREE UN PARASITE.LA MACHINE EXPLOSE.VOUS AUSSI."
7255 RETURN
7260 PRINT AT 1,0;"VOUS AVEZ EFFACEZ LA K7"
7265 RETURN
7270 PRINT AT 1,0;"LES PILES DE LA LAMPE SONT MORTES."
7275 RETURN
7280 PRINT AT 1,0;"AVEC QUOI???..."
7285 RETURN
7290 PRINT AT 1,0;"TRICHEUR...VOUS NE LÀAVEZ JAMAIS LU."
7295 RETURN
7300 PRINT AT 1,0;"LA MOMIE SE MET EN MARCHE ET VOUS DEVORE."
7305 RETURN
7310 PRINT AT 1,0;"UNE VOIX VOUS DIT:","ÀPRENEZ TOUJOURS LE 2EMEÀ"
7315 RETURN
7320 PRINT AT 15,10;"O";AT 14,10;"-";AT 16,10;"-"
7325 RETURN
7330 PRINT AT 15,4;"O";AT 14,4;"-";AT 16,4;"-"
7335 RETURN
7340 PRINT AT 19,1;"-*";AT 1,0;"IL YÀA UN HAUT-PARLEUR BRANCHE."
7345 RETURN
7350 PRINT AT 19,1;"/*";AT 1,0;"IL YÀA UN HAUT-PARLEUR DEBRANCHE"
7355 RETURN
7360 PRINT AT 14,0;" ";AT 15,0;" ";AT 16,0;" "
7365 RETURN
7370 PRINT AT 8,6;" "
7375 RETURN
7380 PRINT AT 1,0;"LE TRAIN SÀARRETE,VOUS ETES","EJECTE SUR LE QUAI."
8010 PRINT AT 3,0;"VOUS ETES DANS UNE PIECE VIDE.";AT 8,6;"½½½";AT 16,6;"(O)"
8015 RETURN
8020 PRINT AT 3,0;"A LÀEST IL YÀA UNE PORTE AVEC UNMAGNETO K7 RIVE AU MUR AVEC DEUX TOUCHES ET AU SUD UN BOUTON ROUGE";AT 14,0;"½";AT 15,0;"½";AT 16,0;"½";AT 14,14;"½";AT 15,14;"½";AT 16,14;"½";AT 8,6;"½½½";AT 21,6;"½½½";AT 21,10;"ª";AT 12,0;"«:"
8025 RETURN
8030 PRINT AT 14,3;"-";AT 15,3;"O";AT 16,3;"-";AT 3,0;"VOUS ETES DANS UNE MINI GARE.IL YÀA 3 WAGONS.";AT 14,0;"½";AT 15,0;"½";AT 16,0;"½"
8031 FOR U=9 TO 20
8032 PRINT AT U,11;"+-+"
8033 NEXT U
8034 PRINT AT 9,11;"¬«ª";AT 10,11;"°˜º";AT 11,11;"¬«ª";AT 13,11;"¬«ª";AT 14,11;"°™º";AT 15,11;"¬«ª";AT 17,11;"¬«ª";AT 18,11;"°šº";AT 19,11;"¬«ª"
8035 RETURN
8040 PRINT AT 3,0;"LE TRAIN SÀEST ARRETE.IL FAIT NOIR"
8041 FOR U=8 TO 21
8042 PRINT AT U,0;"«««««««««««««««"
8043 NEXT U
8044 FOR U=8 TO 21
8045 PRINT AT U,1;"<22>‘<EFBFBD>"
8046 NEXT U
8047 PRINT AT 12,1;"«««";AT 13,1;"«™«";AT 14,1;"«««"
8048 RETURN
8050 PRINT AT 3,0;"UN RAYON EST ORIENTE N-S.IL YÀA UNE PORTE A LÀOUEST AVEC UN OEILELECTRONIQUE."
8051 FOR U=25 TO 2 STEP -2
8052 PLOT 18,U
8053 NEXT U
8054 FOR U=9 TO 20
8055 PRINT AT U,11;"+-+"
8056 NEXT U
8057 PRINT AT 8,6;"½½½";AT 21,6;"½½½";AT 14,0;"½";AT 15,0;"½";AT 16,0;"½";AT 12,0;"ª"
8058 RETURN
8060 PRINT AT 3,0;"UN TROU AVEC UNE ECHELLE RIVEE DESCEND.IL YÀA UNE VITRINE QUI DONNE SUR LA MER AVEC UN LEVIER."?3?TAN PRINT AT 8,4;"´´´´´";AT 21,6;"½½½";AT 14,0;"½ ½";AT 15,0;"½ ³";AT 16,0;" ";AT 9,3;"+";AT 18,3;"«"
8062 PRINT AT 19,6;"(O)"
8065 RETURN
8070 PRINT AT 3,0;"IL YÀA UNE MOMIE COUCHEE.AU N. IL YÀA UN LEVIER,UN BOUTON ET UNECRAN.A LÀO. UNE MANETTE."
8071 PRINT AT 18,14;"½";AT 15,14;"½";AT 16,14;"½";AT 14,1;"-";AT 8,6;"´´";AT 9,3;"+";AT 8,4;"¯";AT 17,3;"O";AT 18,3;"=";AT 19,3;"="
8072 PRINT AT 20,10;"(O)"
8075 RETURN
8080 PRINT AT 3,0;"AU NORD IL YÀA UNE PORTE AVEC UN CLAVIER.IL YÀA UNE MACHINE QUI RONRONNE."
8081 PRINT AT 8,6;"½½½";AT 14,14;"½";AT 15,14;"½";AT 16,14;"½";AT 18,2;"-«-";AT 19,3;"+";AT 8,5;"o";AT 20,5;"(O)"
8085 RETURN
9000 STOP
9010 CLS
9020 PRINT "NOMBRE D OBJETS?"
9030 INPUT O
9040 DIM Q(O)
9050 DIM O$(O,16)
9080 FOR X=1 TO O
9090 SCROLL
9100 PRINT "NO.";X;"SALLE?",
9110 INPUT Q(X)
9120 PRINT Q(X)
9130 SCROLL
9140 PRINT "DESCRIPTION?",
9150 INPUT O$(X)
9160 PRINT O$(X)
9170 NEXT X
9199 STOP
9200 CLS
9210 PRINT "NOMBRE DE MOTS?"
9220 INPUT V
9230 DIM V$(V,6)
9240 FOR X=1 TO V
9250 SCROLL
9260 INPUT V$(X)
9270 PRINT V$(X)
9280 NEXT X
9299 STOP
9300 CLS
9310 PRINT "NOMBRE DE SALLES?"
9320 INPUT R
9330 DIM M$(R,32)
9340 FOR X=1 TO R
9350 SCROLL
9360 INPUT M$(X)
9370 PRINT M$(X)
9380 NEXT X
9399 STOP
9400 CLS
9410 PRINT "NOMBRE DE CONDITIONSS?"
9420 INPUT C
9425 LET C=C+1
9430 DIM C$(C,21)
9440 FOR X=1 TO C-1
9450 SCROLL
9460 INPUT C$(X)
9470 PRINT C$(X)
9480 NEXT X
9490 LET C$(C)=".N."
9499 STOP
9500 CLS
9510 PRINT "NOMBRE D ACTIONS?"
9520 INPUT A
9530 DIM A$(A,31)
9540 FOR X=1 TO A
9550 SCROLL
9560 INPUT A$(X)
9570 PRINT A$(X)
9580 NEXT X
9599 STOP
9600 PRINT AT 8,0;"¼¸¸¸¸¸¸¸¸¸¸¸¸¸¯";AT 21,0;"ª®®®®®®®®®®®®®¬"
9610 FOR U=9 TO 20
9620 PRINT AT U,0;"º °"
9630 NEXT U
9640 RETURN
9700 PRINT "UN MANIAQUE,FOU ET SANS SCRUPU- LES VOUS A ENLEVE POUR VOUS FAI-RE TESTER:"
9710 PRINT AT 10,0;"–––’’’cauchemard‘house’’’–––"
9720 PRINT AT 15,5;"(MAISON TRUFFEE DE PIEGES)"
9730 PRINT AT 21,0;"PRESSEZ UNE TOUCHE.."
9740 IF INKEY$="" THEN GOTO 9740
9745 CLS
9750 RETURN
9790 SAVE "p"
9791 CLS
9800 GOTO 1
# REM
9999 REM [HEX:\
00,00,00,00,00,00,00,00,\
00,00,00,00,00 ]

34
cauchemardhouse/zx81/res/Soluce.txt Normal file
View File

@ -0,0 +1,34 @@
PRENDS OUTIL
NORD
PRENDS COMBINAISON
ENFILE COMBINAISON
APPUIE BOUTON
BRANCHE PRISE
EST
VAIS 2
RIEN
PRENDS BOITE
NORD
PRENDS CASSETTE
SUD
SUD
INTRODUIS CASSETTE
APPUIE 2
OUEST
PREND LAMPE
EST
EST
VAIS 2
ALLUME LAMPE
RIEN
NORD
PRENDS GOURDE
BOIS GOURDE
SUD
SUD
POSE BOITE
OUEST
INTR CODE
NORD
TIRE MANIVELLE
*FIN*

150
cauchemardhouse/zx81/res/test.bas Normal file
View File

@ -0,0 +1,150 @@
1 GOTO 9200
8699 LET V=47
8700 DIM V$(47,6)
8700 LET V$(1) = "01NORD"
8700 LET V$(2) = "02OUES"
8700 LET V$(3) = "03EST "
8700 LET V$(4) = "04SUD "
8700 LET V$(5) = "05VAIS"
8700 LET V$(6) = "061 "
8700 LET V$(7) = "072 "
8700 LET V$(8) = "083 "
8700 LET V$(9) = "09TIRE"
8700 LET V$(10) = "10BRAN"
8700 LET V$(11) = "11PRIS"
8700 LET V$(12) = "12APPU"
8700 LET V$(13) = "13BOUT"
8700 LET V$(14) = "14INTR"
8700 LET V$(15) = "15CASS"
8700 LET V$(16) = "16RIEN"
8700 LET V$(17) = "18VOIE"
8700 LET V$(18) = "17DESC"
8700 LET V$(19) = "19PREN"
8700 LET V$(20) = "20FLAC"
8700 LET V$(21) = "21GOUR"
8700 LET V$(22) = "22COMB"
8700 LET V$(23) = "23PIST"
8700 LET V$(24) = "24OUTI"
8700 LET V$(25) = "25KKKK"
8700 LET V$(26) = "26ALLU"
8700 LET V$(27) = "27LAMP"
8700 LET V$(28) = "29MANE"
8700 LET V$(29) = "30LEVI"
8700 LET V$(30) = "31BOIT"
8700 LET V$(31) = "32ECLA"
8700 LET V$(32) = "33OEIL"
8700 LET V$(33) = "34TAPE"
8700 LET V$(34) = "35FORM"
8700 LET V$(35) = "36REPA"
8700 LET V$(36) = "37MOTE"
8700 LET V$(37) = "38ORQU"
8700 LET V$(38) = "39DECR"
8700 LET V$(39) = "40INVE"
8700 LET V$(40) = "41POSE"
8700 LET V$(41) = "42LANC"
8700 LET V$(42) = "43ENFI"
8700 LET V$(43) = "44ETEI"
8700 LET V$(44) = "45BOIS"
8700 LET V$(45) = "46POUS"
8700 LET V$(46) = "47AMEN"
8700 LET V$(47) = "48CODE"
9014 LET A=75
9100 DIM A$(A,31)
9100 LET A$(1) = "1924B02.B02L. "
9100 LET A$(2) = "1923B01.B01L. "
9100 LET A$(3) = "4124B02.C02L. "
9100 LET A$(4) = "4123B01.C01L. "
9100 LET A$(5) = "1011A02F06.E06D31N. "
9100 LET A$(6) = "1415A02B09.C09E07L. "
9100 LET A$(7) = "1207A02E07F08.E09D19N. "
9100 LET A$(8) = "1206A02E07.E08D26N. "
9100 LET A$(9) = "0938A02E10.D03Q. "
9100 LET A$(10) = "1213A02E10.D04F10E18N. "
9100 LET A$(11) = "1213A02F10.L. "
9100 LET A$(12) = "4224A02B02.C02L. "
9100 LET A$(13) = "1922B03.B03L. "
9100 LET A$(14) = "0100E10A02.D02Q. "
9100 LET A$(15) = "0300E10A02.D02Q. "
9100 LET A$(16) = "0400E10A02.D02Q. "
9100 LET A$(17) = "0201E10A02.D12Q. "
9100 LET A$(18) = "0200A02E09.K08O. "
9100 LET A$(19) = "0400F10A02.K01O. "
9100 LET A$(20) = "0300F10A02.K03O. "
9100 LET A$(21) = "0100F10A22.K05O. "
9100 LET A$(22) = "1920B05.D18Q. "
9100 LET A$(23) = "4322D03.H03E11L. "
9100 LET A$(24) = "4122B03F11.C03L. "
9100 LET A$(25) = "4122E11B04.H03C03L. "
9100 LET A$(26) = "0508A03.D06Q. "
9100 LET A$(27) = "0506A03.D07Q. "
9100 LET A$(28) = "0507A03.D08K04O. "
9100 LET A$(29) = "0508A03.D06Q. "
9100 LET A$(30) = "1700A04.D09Q. "
9100 LET A$(31) = "0508A04.D06Q. "
9100 LET A$(32) = "1600A04.E12D38K05O. "
9100 LET A$(33) = "3637B02.D11Q. "
9100 LET A$(34) = "3637C02.D28N. "
9100 LET A$(35) = "4000.A00. "
9100 LET A$(36) = "3900.O00. "
9100 LET A$(37) = "1931B06.B06L. "
9100 LET A$(38) = "4131B06.C06L. "
9100 LET A$(39) = "0100E12A05F11.D13Q. "
9100 LET A$(40) = "0400E12A05F11.D13Q. "
9100 LET A$(41) = "2627A08F14F15.D25Q. "
9100 LET A$(42) = "0200E12A05F11.D13Q. "
9100 LET A$(43) = "0100F12A05.K06O. "
9100 LET A$(44) = "0400F12A05.F12K02O. "
9100 LET A$(45) = "0200F12A05E13.K07O. "
9100 LET A$(46) = "0100E11A05.F12K06O. "
9100 LET A$(47) = "0400E11A05.F12K02O. "
9100 LET A$(48) = "0200E11A05E13.K07O. "
9100 LET A$(49) = "3233E14A05.D19E13N. "
9100 LET A$(50) = "2627B11F15F14.H11E14L. "
9100 LET A$(51) = "4427E14B12.FX4H11L. "
9100 LET A$(52) = "1921B07.B07L. "
9100 LET A$(53) = "1915B09.B09L. "
9100 LET A$(54) = "4121B07.C07K. "
9100 LET A$(55) = "4115B09.C09L. "
9100 LET A$(56) = "4521B07.H07E16L. "
9100 LET A$(57) = "0200A06.D01Q. "
9100 LET A$(58) = "0300A06.D12Q. "
9100 LET A$(59) = "0930A06.D21Q. "
9100 LET A$(60) = "4530A06.D21Q. "
9100 LET A$(61) = "1700A06.D20Q. "
9100 LET A$(62) = "4629A07.D17Q. "
9100 LET A$(63) = "0929A07.D15Q. "
9100 LET A$(64) = "4630A07.D30Q. "
9100 LET A$(65) = "1213A07.D30Q. "
9100 LET A$(66) = "1927B11.B11L. "
9100 LET A$(67) = "4127B11.C11L. "
9100 LET A$(68) = "1448A08E17.D19D37E25N. "
9100 LET A$(69) = "1448A08F17.D29N. "
9100 LET A$(70) = "4127B11.C11L. "
9100 LET A$(71) = "0100A08E25.K07O. "
9100 LET A$(72) = "4121E16B08.C08L. "
9199 GOTO 9600
9200 REM TEST
9205 FOR A=1 TO 72
9210 LET O=VAL(A$(A)(1 TO 2))
9215 GOSUB 9500
9216 LPRINT A;"=";E$;" ";
9220 LET O=VAL(A$(A)(3 TO 4))
9225 GOSUB 9500
9226 LPRINT E$,":";
9230 FOR B=5 TO 30
9231 LET E$=A$(A)(B)
9232 IF E$="A" THEN LPRINT "/";A$(A)(B+1 TO B+2);"/";
9233 IF E$>="A" AND E$(1)<="K" THEN LET B=B+2
9234 LPRINT E$(1);
9235 IF E$<>" " THEN NEXT B
9236 LPRINT
9240 NEXT A
9500 LET E$=""
9501 IF O=0 THEN RETURN
9505 FOR Z=1 TO 47
9510 IF O<>VAL(V$(Z)(1 TO 2)) THEN NEXT Z
9520 LET E$=V$(Z)(3 TO )
9530 RETURN
9600 SAVE "TEST"

BIN
folibus/applesoft/Folibus v1.DSK Normal file
View File

Binary file not shown.

BIN
folibus/applesoft/Folibus v2.DSK Normal file
View File

Binary file not shown.

433
folibus/applesoft/Folibus v2.bas Normal file
View File

@ -0,0 +1,433 @@
0 GOTO 9000
1 GOTO 10
10 HOME
19 DIM S(10)
20 DIM C(10)
30 SALLE = 1
40 DIM P$(2)
50 DIM O(O)
60 FOR X = 1 TO O
70 O(X) = Q(X)
80 NEXT X
100 IF S(2) = 0 THEN 200
110 IF C(2) THEN C(2) = C(2) - 1
120 IF S(3) THEN 200
130 PRINT "On y voit rien. Mieux vaudrait allumer pour eviter les ennuis."
140 IF C(3) THEN C(3) = C(3) - 1
150 GOTO 1000
200 GOTO 210
210 PRINT
215 IF SALLE > 11 THEN 230
220 ON SALLE GOSUB 8010,8020,8030,8040,8050,8060,8070,8080,8090,8100,8110: GOTO 300
230 ON SALLE GOSUB 0,0,0,0,0,0,0,0,0,0,0,8120,8130,8140,8150,8160,8170: GOTO 300
250 PRINT "Erreur de programme": STOP
300 F = 0
310 FOR X = 1 TO O
315 RW = O(X)
320 IF RW < > (SALLE) THEN GOTO 500
330 IF F THEN 400
340 PRINT "Il y a aussi:"
350 F = 1
400 PRINT " ";O$(X)
500 NEXT X
1000 GOTO 1010
1010 T = 1
1020 GOTO 2000
1100 IF C(1) THEN C(1) = C(1) - 1
1110 IF C(4) THEN C(4) = C(4) - 1
1120 INPUT "Que faites vous?>";Y$
1140 HOME
1150 Y = 0
1160 PRINT ">";Y$
1170 P$(2) = "00"
1200 FOR W = 1 TO 2
1210 GOSUB 6000
1220 IF Y > LEN (Y$) THEN 1300
1230 IF P$(W) = "00" THEN 1210
1240 NEXT W
1300 IF P$(1) < > "00" THEN 1600
1310 PRINT "Pardon?"
1320 GOTO 100
1600 GOTO 1610
1610 Z = 1
1620 T$ = MID$ (M$(SALLE),Z,2)
1630 IF T$ = "00" THEN 1900
1640 IF T$ < > P$(1) THEN 1700
1650 SALLE = VAL ( MID$ (M$(SALLE),Z + 2,2))
1660 GOTO 100
1700 Z = Z + 4
1710 GOTO 1620
1900 T = 0
1910 XXO = 0
2000 GOTO 2010
2010 CP = 0
2100 CP = CP + 1
2110 IF T = 0 THEN 2300
2120 E$ = C$(CP)
2130 GOTO 2600
2300 IF CP < = (A) THEN 2400
2310 IF XXO THEN 1000
2320 PRINT "Impossible ";
2330 IF VAL (P$(1)) < 13 THEN PRINT "prendre cette direction";
2340 PRINT "."
2350 GOTO 100
2400 IF LEFT$ (A$(CP),2) < > P$(1) THEN 2100
2410 Y$ = MID$ (A$(CP),3,2)
2420 IF Y$ < > "00" AND Y$ < > P$(2) THEN 2100
2430 E$ = MID$ (A$(CP),5)
2600 GOTO 2610
2610 E = 1
2700 IF MID$ (E$,E,1) = "." THEN 3000
2710 TYPE = ASC ( MID$ (E$,E,1)) - 64
2720 N = VAL ( MID$ (E$,E + 1,2))
2800 ON (TYPE) GOSUB 2900,2910,2920,2930,2940,2950,2960,2970
2810 IF NOT OK THEN GOTO 2100
2820 E = E + 3
2830 GOTO 2700
2900 OK = (N = SALLE)
2905 RETURN
2910 OK = (O(N) = SALLE OR O(N) < 0)
2915 RETURN
2920 OK = (O(N) < > SALLE AND O(N) > = 0)
2925 RETURN
2930 OK = (O(N) < 0)
2935 RETURN
2940 OK = (S(N) < > 0)
2945 RETURN
2950 OK = (S(N) = 0)
2955 RETURN
2960 OK = (C(N) = 1)
2965 RETURN
2970 OK = ( INT ( RND (1) * 100) < = N)
2975 RETURN
3000 GOTO 3010
3010 XXO = 1
3020 E = E + 1
3100 IF MID$ (E$,E,1) = "." THEN 2100
3105 IF MID$ (E$,E,1) = "" THEN TYPE = 0: GOTO 3120
3110 TYPE = ASC ( MID$ (E$,E,1)) - 64
3120 IF MID$ (E$,E + 1,1) < > "." THEN N = VAL ( MID$ (E$,E + 1,2))
3200 BREAK = 0
3205 IF TYPE < 12 THEN ON TYPE GOSUB 4000,4100,4200,4300,4400,4500,4600,4700,4800,4900,5000: GOTO 3220
3215 ON (TYPE - 11) GOSUB 5100,5200,5300,5400,5500,5600,4000,4100,5600: GOTO 3220
3218 PRINT "Erreur de programme": STOP
3220 IF BREAK = 100 THEN 100
3221 IF BREAK = 1000 THEN 1000
3222 IF BREAK = 1100 THEN 1100
3230 E = E + 3
3240 GOTO 3100
4000 PRINT
4010 PRINT "Vous tenez:"
4020 F = 1
4030 FOR X = 1 TO O
4040 IF O(X) > = 0 THEN 4070
4050 PRINT " ";O$(X)
4060 F = 0
4070 NEXT X
4080 IF F THEN PRINT " Rien."
4090 BREAK = 100
4095 RETURN
4100 IF S(1) < 5 THEN 4140
4110 PRINT "Vous ne pouvez porter plus."
4120 BREAK = 100
4130 RETURN
4140 IF O(N) = - 1 THEN 4180
4150 O(N) = - 1
4160 S(1) = S(1) + 1
4170 RETURN
4180 PRINT "Vous l'avez deja."
4190 GOTO 4120
4200 IF O(N) = - 1 THEN 4240
4210 PRINT "Vous n'avez pas ";O$(N)
4220 BREAK = 100
4230 RETURN
4240 O(N) = SALLE
4250 S(1) = S(1) - 1
4260 RETURN
4300 PRINT
4302 IF (N > 10) AND (N < 21) THEN 4312
4303 IF (N > 20) AND (N < 31) THEN 4313
4304 IF (N > 30) AND (N < 41) THEN 4314
4305 IF N > 40 THEN 4315
4310 ON N GOSUB 7010,7020,7030,7040,7050,7060,7070,7080,7090,7100: GOTO 4320
4312 ON (N - 10) GOSUB 7110,7120,7130,7140,7150,7160,7170,7180,7190,7200: GOTO 4320
4313 ON (N - 20) GOSUB 7210,7220,7230,7240,7250,7260,7270,7280,7290,7300: GOTO 4320
4314 ON (N - 30) GOSUB 7310,7320,7330,7340,7350,7360,7370,7380,7390,7400: GOTO 4320
4315 ON (N - 40) GOSUB 7410,7420,7430,7440,7450,7460: GOTO 4320
4316 PRINT "Erreur de programme": STOP
4320 RETURN
4400 S(N) = 1
4410 RETURN
4500 S(N) = 0
4510 RETURN
4600 C(N) = VAL ( MID$ (E$,E + 3,2))
4610 E = E + 2
4620 RETURN
4700 X = O(N)
4710 O(N) = O(N + 1)
4720 O(N + 1) = X
4730 RETURN
4800 O(N) = SALLE
4810 RETURN
4900 IF O(N) < 0 THEN S(1) = S(1) - 1
4910 O(N) = 0
4920 RETURN
5000 SALLE = N
5010 RETURN
5100 PRINT "D'acccord."
5200 BREAK = 1000
5210 RETURN
5300 BREAK = 1100
5310 RETURN
5400 BREAK = 100
5410 RETURN
5500 PRINT "Etes vous sur ";
5510 INPUT W$
5520 PRINT W$
5530 IF LEFT$ (W$,1) < > "O" THEN RETURN
5600 GOTO 9999
5710 PRINT "VOUS TENEZ:"
5720 LET F = 1
5730 FOR X = 1 TO O
5740 IF O(X) > = 0 THEN GOTO 5770
5750 PRINT O$(X)
5760 LET F = 0
5770 NEXT X
5780 IF F THEN PRINT "RIEN."
5790 LET G = 100
5795 RETURN
6000 GOTO 6010
6010 W$ = ""
6015 P$(W) = "00"
6020 GOSUB 6600
6025 IF (FIN) THEN RETURN
6030 FOR Q = 1 TO 4
6040 W$ = W$ + MID$ (Y$,Y,1)
6050 GOSUB 6500
6060 IF (FIN) THEN 6100
6070 NEXT Q
6080 GOSUB 6500
6090 IF (FIN) = 0 THEN 6080
6100 IF W$ = " " THEN RETURN
6110 FOR Q = 1 TO V
6120 IF W$ = MID$ (V$(Q),3) THEN 6200
6130 NEXT Q
6140 RETURN
6200 P$(W) = LEFT$ (V$(Q),2)
6210 RETURN
6500 Y = Y + 1
6510 FIN = (Y > LEN (Y$))
6520 IF (FIN) THEN RETURN
6530 FIN = ( MID$ (Y$,Y,1) = " ")
6540 RETURN
6600 Y = Y + 1
6610 FIN = (Y > LEN (Y$))
6620 IF (FIN) THEN RETURN
6630 IF MID$ (Y$,Y,1) = " " THEN 6600
6640 RETURN
7010 PRINT "La generatrice vient d'exploser.": PRINT "La maison n'existe plus. Vous non plus."
7015 RETURN
7020 PRINT "L'ascenseur ne bouge pas.": PRINT "Il faut peut-etre du courant?"
7025 RETURN
7030 PRINT "La porte vient de se fermer.": PRINT "Impossible de l'ouvrir."
7035 RETURN
7040 PRINT "Vous avez raison. La curiosite est un vilain defaut..."
7045 RETURN
7050 PRINT "L'odeur que vous sentiez etait celle d'un gaz explosif. Vous etes mort."
7055 RETURN
7060 PRINT "Il faudrait peut-etre du feu..."
7065 RETURN
7070 PRINT "Ah, Ah...Vous etes mon prisonnier!"
7075 RETURN
7080 PRINT "Vous avez dit papier? Quel papier?"
7085 RETURN
7090 PRINT "Bravez les interdits!"
7095 RETURN
7100 PRINT "Elle a l'air de s'emballer..."
7105 RETURN
7110 PRINT "La generatrice se met en marche."
7115 RETURN
7120 PRINT "Impossible, elle ne veut rien savoir."
7125 RETURN
7130 PRINT "Bravo. Je ne savais pas que vous aviez": PRINT "des dons d'electricien."
7135 RETURN
7140 PRINT "Votre machine est reparee mais elle sent le chaud."
7145 RETURN
7150 PRINT "La machine est reparee.": PRINT "Dommage qu'il n'y ait pas de courant."
7155 RETURN
7160 PRINT "Il faudrait peut etre des outils."
7165 RETURN
7170 PRINT "L'ascenseur semble monter..."
7175 RETURN
7180 PRINT "L'ascenseur ne bouge pas."
7185 RETURN
7190 PRINT "Le cable vient de casser.": PRINT "Vous vous ecrasez en bas. Mort."
7195 RETURN
7200 PRINT "Il fait noir. Il faudrait allumer."
7205 RETURN
7210 PRINT "Vous vous ecrasez au sol."
7215 RETURN
7220 PRINT "Il y a une clef."
7225 RETURN
7230 PRINT "La porte est fermee a clef."
7235 RETURN
7240 PRINT "Tiens, la porte du placard se referme."
7245 RETURN
7250 PRINT "La generatrice vient d'exploser,": PRINT "l'ascenseur est detruit.": PRINT "Vous vous en rechappez de justesse."
7255 RETURN
7260 PRINT "Vous etes mort electrocute."
7265 RETURN
7270 PRINT "Vous avez raison. Rien ne sert de courrir.": PRINT "Une fumee monte du sol.": PRINT " Il faut sortir quand meme."
7275 RETURN
7280 PRINT "Dehors il fait noir. On ne voit pas le sol."
7285 RETURN
7290 PRINT "C'est deja fait."
7295 RETURN
7300 PRINT "Vous etes au bout de la corde."
7305 RETURN
7310 PRINT "Vraiment pas au point cette machine! Vous etes mort."
7315 RETURN
7320 PRINT "Il faudrait peut-etre ouvrir la fenetre."
7325 RETURN
7330 PRINT "Tant pis. On a essaye."
7335 RETURN
7340 PRINT "Bravo, quel trait de genie!"
7345 RETURN
7350 PRINT "Une trappe s'ouvre sous vos pieds. Vous etes mort."
7355 RETURN
7360 PRINT "Sage precaution."
7365 RETURN
7370 PRINT "C'est du poison. Vous etes mort."
7375 RETURN
7380 PRINT "Vous apprenez a piloter une soucoupe en 1 lecon."
7385 RETURN
7390 PRINT "Ca ne se pilote pas comme ca!"
7395 RETURN
7400 PRINT "C'est de l'acide. Vous etes mort."
7405 RETURN
7410 PRINT "Il y a de l'eau. Vous vous noyez."
7415 RETURN
7420 PRINT "Ouf! Vous vous retrouvez dehors..."
7425 RETURN
7430 PRINT "Sain et sauf..."
7435 RETURN
7440 PRINT "Ca marche... Mais il n'y avait pas assez de carburant."
7445 RETURN
7450 PRINT "Mais vous etes tout bleu! Ce doit etre les pillules."
7455 RETURN
7460 PRINT "Et irradie.": PRINT "Vous mourez au bout de quelques jours."
7465 RETURN
8010 PRINT "Vous etes devant une maison.": PRINT "La porte est ouverte."
8015 RETURN
8020 PRINT "Vous etes dans le couloir.": PRINT "Il y a une porte a l'est et une porte a l'ouest."
8025 RETURN
8030 PRINT "Vous etes dans le salon.": PRINT "Il y a une porte a l'ouest."
8035 RETURN
8040 PRINT "Il y a une drole d'odeur."
8045 RETURN
8050 PRINT "Il y a une grosse machine qui ressemble a une generatrice avec un bouton vert,": PRINT "un bouton rouge.": PRINT "Il y a une porte au nord."
8055 RETURN
8060 PRINT "Une machinerie d'ascenseur.": PRINT "Une porte au nord."
8065 RETURN
8070 PRINT "Il y a plein de materiel"
8075 RETURN
8080 PRINT "Vous etes dans un ascenseur. Il y a un bouton MONTER, un bouton DESCENDRE."
8085 RETURN
8090 PRINT "L'ascenseur vient de s'arreter.": PRINT "Des gresillements derriere la porte."
8095 RETURN
8100 PRINT "La piece est humide. Il ya a des fils qui trainent par terre.": PRINT "Il y a une fenetre et une porte au nord."
8105 RETURN
8110 PRINT "La porte derriere vous vient de se refermer. Bonjour..": PRINT "Comment ecrivez vous ceci en 4 lettres?"
8115 RETURN
8120 PRINT "Vous etes dans une machine a remonter le temps 3 boutons:": PRINT "PASSE,PRESENT et AVENIR"
8125 RETURN
8130 PRINT "Vous vous retrouvez dans le laboratoire du professeur. Il y a une porte": PRINT "en fer a l'ouest. Une porte au sud marquee <<DANGER>>."
8135 RETURN
8140 PRINT "Il y a une douche. Un trou dans le sol."
8145 RETURN
8150 PRINT "Il y a un cube noir d'au moins une tonne": PRINT "Une echelle monte. Une porte a l'est."
8155 RETURN
8160 PRINT "Vous etes dans une bibliotheque."
8165 RETURN
8170 PRINT "Vous etes dans une soucoupe sur une terasse."
8175 RETURN
9000 O = 20: DIM Q(20): DIM O$(20)
9010 Q(1) = 2:Q(2) = 0:Q(3) = 2:Q(4) = 0:Q(5) = 6:Q(6) = 7:Q(7) = 3:Q(8) = 6:Q(9) = 0:Q(10) = 10
9020 Q(11) = 16:Q(12) = 0:Q(13) = 13:Q(14) = 0:Q(15) = 13:Q(16) = 0:Q(17) = 13:Q(18) = 0
9030 Q(19) = 13:Q(20) = 16
9040 O$(1) = "BRIQUET":O$(2) = "BRIQUET ALLUME":O$(3) = "BOUGIE"
9050 O$(4) = "BOUGIE ALLUMEE":O$(5) = "PLACARD":O$(6) = "OUTILS":O$(7) = "PAPIER"
9060 O$(8) = "FILS ARRACHES":O$(9) = "FILS REPARES":O$(10) = "UNE CORDE"
9070 O$(11) = "GANTS CAOUTCHOUC":O$(12) = "GANTS ENFILES":O$(13) = "PILLULE K"
9080 O$(14) = "PILLULE K AVALEE":O$(15) = "PILLULE Z":O$(16) = "PILLULE Z AVALEE"
9090 O$(17) = "PILLULE Q":O$(18) = "PILLULE Q AVALEE":O$(19) = "PISTOLET LASER"
9100 O$(20) = "LIVRE"
9200 V = 72: DIM V$(72)
9205 V$(1) = "01N":V$(2) = "01NORD":V$(3) = "02E":V$(4) = "02EST":V$(5) = "03S"
9210 V$(6) = "03SUD":V$(7) = "04O":V$(8) = "04OUES":V$(9) = "05M":V$(10) = "05MONT"
9215 V$(11) = "06D":V$(12) = "06DESC":V$(13) = "07ENTR":V$(14) = "07AVAN"
9220 V$(15) = "05HAUT":V$(16) = "06BAS":V$(17) = "13LIT":V$(18) = "35REGA"
9225 V$(19) = "14TOUR":V$(20) = "14RETO":V$(21) = "15PREN":V$(22) = "15RAMA"
9230 V$(23) = "16PAPI":V$(24) = "17ALLU":V$(25) = "18BOUG":V$(26) = "19APPU"
9235 V$(27) = "19ENFO":V$(28) = "20VERT":V$(29) = "21ROUG":V$(30) = "22OUTI"
9240 V$(31) = "23OUVR":V$(32) = "55DOUC":V$(33) = "25PLAC":V$(34) = "26PORT"
9245 V$(35) = "27ASCE":V$(36) = "28BRIQ":V$(37) = "29REPA":V$(38) = "29DEPA"
9250 V$(39) = "30RIEN":V$(40) = "31MACH":V$(41) = "32POSE":V$(42) = "33QUIT"
9255 V$(43) = "35DECR":V$(44) = "34INVE":V$(45) = "36CLEF":V$(46) = "31FILS"
9260 V$(47) = "37CORD":V$(48) = "38FENE":V$(49) = "39ACCR":V$(50) = "40SAUT"
9265 V$(51) = "39ATTA":V$(52) = "41SORT":V$(53) = "42FERM":V$(54) = "43CECI"
9270 V$(55) = "44ATTE":V$(56) = "45TAPE":V$(57) = "46FRAP":V$(58) = "47PASS"
9275 V$(59) = "47AVEN":V$(60) = "48PRES":V$(61) = "49MET":V$(62) = "50AVAL"
9280 V$(63) = "51GANT":V$(64) = "52K":V$(65) = "53Q":V$(66) = "54Z":V$(67) = "49ENFI"
9285 V$(68) = "56LASE":V$(69) = "56PIST":V$(70) = "57LIVR":V$(71) = "58DEMA"
9290 V$(72) = "58PILO"
9300 R = 17: DIM M$(18)
9301 M$(1) = "00":M$(2) = "0204040300":M$(3) = "0405020200"
9304 M$(4) = "040200":M$(5) = "0106020300":M$(6) = "0108030500"
9307 M$(7) = "00":M$(8) = "030600":M$(9) = "00"
9310 M$(10) = "011100":M$(11) = "00":M$(12) = "00"
9313 M$(13) = "00":M$(14) = "021300":M$(15) = "05170216011300"
9316 M$(16) = "041500":M$(17) = "061500":M$(18) = "00"
9400 C = 12:C = C + 1: DIM C$(13)
9401 C$(1) = "A04E05.D05Q.":C$(2) = "E04F10.G0403E10.":C$(3) = "G04A10.G0499F09D25."
9404 C$(4) = "A04F05.D20.":C$(5) = "E06F10.G0405E10.":C$(6) = "G04.D01Q."
9407 C$(7) = "A10E09.D26Q.":C$(8) = "A10E07.F06F07F04F08.":C$(9) = "A11F07.G0103E07."
9410 C$(10) = "A11G01.D35Q.":C$(11) = "A12.F06F04.":C$(12) = "A12.F08F05F07."
9413 C$(13) = ".N."
9500 A = 91: DIM A$(92)
9501 A$(1) = "0700A01.D03K02O.":A$(2) = "3000A01.D04O.":A$(3) = "1528B01.S01L."
9504 A$(4) = "1518B03.S03L.":A$(5) = "1718B03C01.D06N.":A$(6) = "1718B01B03.H03E05E03L."
9507 A$(7) = "1728B01.H01E05E03L.":A$(8) = "3400.R00.":A$(9) = "3300.P00."
9510 A$(10) = "3500.O00.":A$(11) = "3218B03.C03L.":A$(12) = "3228B01.C01L.":A$(13) = "1316D07.D07N."
9514 A$(14) = "1516B07.S07D22N.":A$(15) = "1316C07.D08N.":A$(16) = "1416C07.D08N."
9517 A$(17) = "1416D07.D09N.":A$(18) = "1416D07.D09N.":A$(19) = "1920A05F06F04.E04D11D10N."
9520 A$(20) = "1921A05F06F04.D11E03E06N.":A$(21) = "1921A05E04.D12N.":A$(22) = "1536A03F08.E08L."
9523 A$(23) = "2325A06F08.D23N.":A$(24) = "2325A06E08C06.K07F08O.":A$(25) = "1522A07B06.S06D24K06L."
9526 A$(26) = "2325A06E08B06.K06N.":A$(27) = "2931A06D06E04B08.D13E07H08N."
9528 A$(28) = "2931A06D06E04B08.D14E07H08N.":A$(29) = "2931A06D06F04F06B08.D15H08E07N."
9530 A$(30) = "2931A06C06B08.D16N.":A$(31) = "0500A08E07E06.D17K09O.":A$(32) = "0500A08F07F08.D18E08N."
9533 A$(33) = "0600A08F07F08.D18E08N.":A$(34) = "0500A08F08F06.D18E08N.":A$(35) = "0600A08F08F06.D18E08N."
9536 A$(36) = "0500A08E08.D19Q.":A$(37) = "0600A08F08.D19Q.":A$(38) = "0600A08E07E06.D19Q."
9539 A$(39) = "4100A09.E09K10O.":A$(40) = "0600A09.D19Q.":A$(41) = "3000A09.D27N."
9542 A$(42) = "2338A10F04.E04L.":A$(43) = "2338A10E04.D29N.":A$(44) = "4238A10E04.F04L."
9545 A$(45) = "4238A10F04.D29N.":A$(46) = "3937A10E04F06.E06L.":A$(47) = "0600A10E06.E08D30N."
9548 A$(48) = "4000A10E07.D21Q.":A$(49) = "4000A10E04.D21Q.":A$(50) = "4000A10F04.D32N."
9551 A$(51) = "0500A10E08.F08D33N.":A$(52) = "4400A09.D27N.":A$(53) = "4300A11.D34K12O."
9554 A$(54) = "4543A11.D34K12O.":A$(55) = "4643A11.D34K12O.":A$(56) = "3222B06.C06L."
9557 A$(57) = "1947A12.D31Q.":A$(58) = "1948A12.K13O.":A$(59) = "4951B11F04.E04H11D36N."
9560 A$(60) = "0400A13F04.D26Q.":A$(61) = "0400A13E04.F04K14O.":A$(62) = "5053B17.D37Q."
9563 A$(63) = "5054F05B15.E05H15L.":A$(64) = "5054E05.D29N.":A$(65) = "5052F08B13.E08H13L."
9566 A$(66) = "5052E08.D29N.":A$(67) = "1552B13.S13L.":A$(68) = "1553B17.S17L."
9569 A$(69) = "1554B15.S15L.":A$(70) = "3252B13.C13L.":A$(71) = "3253B17.C17L."
9572 A$(72) = "3254B15.C15L.":A$(73) = "1556B19.S19L.":A$(74) = "3256B19.C19L."
9575 A$(75) = "0300A13.E06K15O.":A$(76) = "1557B20.S20L.":A$(77) = "3257B20.C20L."
9578 A$(78) = "1357B20F07.D38E07N.":A$(79) = "1357B20E07.D29N.":A$(80) = "1551B11.S11L."
9581 A$(81) = "3251B11.C11L.":A$(82) = "5800A17F07.D39N.":A$(83) = "5800A17E07.D44D21O."
9584 A$(84) = "1555A14F05.D40Q.":A$(85) = "1555A14E06E05F08.F06F05L."
9586 A$(86) = "0600A14F08.D41Q.":A$(87) = "1555A14E06E05E08.F06L."
9588 A$(88) = "0600A14E08F05F06.D42D43Q.":A$(89) = "0600A14E08E05E06.D42D45D46Q."
9590 A$(90) = "0600A14E08E05F06.D42D43D45Q.":A$(91) = "0600A14E08F05E06.D42D46Q."
9592 A$(92) = ".N."
9900 GOTO 1
9999 END
29100 K = (O(N) = SALLE OR O(N) < 0)

513
folibus/applesoft/folibus_a2_NEW_2.bas Normal file
View File

@ -0,0 +1,513 @@
0 GOTO 9000
1 GOTO 10
10 HOME
19 DIM S(10)
20 DIM C(10)
30 SALLE = 1
40 DIM P$(2)
50 DIM O(O)
60 FOR X = 1 TO O
70 O(X) = Q(X)
80 NEXT X
100 IF S(2) = 0 THEN 200
110 IF C(2) THEN C(2) = C(2) - 1
120 IF S(3) THEN 200
130 PRINT "On y voit rien. Mieux vaudrait allumer pour eviter les ennuis."
140 IF C(3) THEN C(3) = C(3) - 1
150 GOTO 1000
200 GOTO 210
210 PRINT
215 IF SALLE > 11 THEN 230
220 ON SALLE GOSUB 8010,8020,8030,8040,8050,8060,8070,8080,8090,8100,8110: GOTO 300
230 ON SALLE GOSUB 0,0,0,0,0,0,0,0,0,0,0,8120,8130,8140,8150,8160,8170: GOTO 300
250 PRINT "Erreur de programme": STOP
300 F = 0
310 FOR X = 1 TO O
315 RW = O(X)
320 IF RW < > (SALLE) THEN GOTO 500
330 IF F THEN 400
340 PRINT "Il y a aussi:"
350 F = 1
400 PRINT " ";O$(X)
500 NEXT X
1000 GOTO 1010
1010 T = 1
1020 GOTO 2000
1100 IF C(1) THEN C(1) = C(1) - 1
1110 IF C(4) THEN C(4) = C(4) - 1
1120 INPUT "Que faites vous?>";Y$
1140 HOME
1150 Y = 0
1160 PRINT ">";Y$
1170 P$(2) = "00"
1200 FOR W = 1 TO 2
1210 GOSUB 6000
1220 IF Y > LEN (Y$) THEN 1300
1230 IF P$(W) = "00" THEN 1210
1240 NEXT W
1300 IF P$(1) < > "00" THEN 1600
1310 PRINT "Pardon?"
1320 GOTO 100
1600 GOTO 1610
1610 Z = 1
1620 T$ = MID$ (M$(SALLE),Z,2)
1630 IF T$ = "00" THEN 1900
1640 IF T$ < > P$(1) THEN 1700
1650 SALLE = VAL ( MID$ (M$(SALLE),Z + 2,2))
1660 GOTO 100
1700 Z = Z + 4
1710 GOTO 1620
1900 T = 0
1910 XX0 = 0
2000 GOTO 2010
2010 CP = 0
2100 CP = CP + 1
2110 IF T = 0 THEN 2300
2120 E$ = C$(CP)
2130 GOTO 2600
2300 IF CP < = (A) THEN 2400
2310 IF XXO THEN 1000
2320 PRINT "Impossible ";
2330 IF VAL (P$(1)) < 13 THEN PRINT "prendre cette direction";
2340 PRINT "."
2350 GOTO 100
2400 IF LEFT$ (A$(CP),2) < > P$(1) THEN 2100
2410 Y$ = MID$ (A$(CP),3,2)
2420 IF Y$ < > "00" AND Y$ < > P$(2) THEN 2100
2430 E$ = MID$ (A$(CP),5)
2600 GOTO 2610
2610 E = 1
2700 IF MID$ (E$,E,1) = "." THEN 3000
2710 TYPE = ASC ( MID$ (E$,E,1)) - 64
2720 N = VAL ( MID$ (E$,E + 1,2))
2800 ON (TYPE) GOSUB 2900,2910,2920,2930,2940,2950,2960,2970
2810 IF NOT OK THEN GOTO 2100
2820 E = E + 3
2830 GOTO 2700
2900 OK = (N = SALLE)
2905 RETURN
2910 OK = (O(N) = SALLE OR O(N) < 0)
2915 RETURN
2920 OK = (O(N) < > SALLE AND O(N) > = 0)
2925 RETURN
2930 OK = (O(N) < 0)
2935 RETURN
2940 OK = (S(N) < > 0)
2945 RETURN
2950 OK = (S(N) = 0)
2955 RETURN
2960 OK = (C(N) = 1)
2965 RETURN
2970 OK = ( INT ( RND (1) * 100) < = N)
2975 RETURN
3000 GOTO 3010
3010 XXO = 1
3020 E = E + 1
3100 IF MID$ (E$,E,1) = "." THEN 2100
3105 IF MID$ (E$,E,1) = "" THEN TYPE = 0: GOTO 3120
3110 TYPE = ASC ( MID$ (E$,E,1)) - 64
3120 IF MID$ (E$,E + 1,1) < > "." THEN N = VAL ( MID$ (E$,E + 1,2))
3200 BREAK = 0
3205 IF TYPE < 12 THEN ON TYPE GOSUB 4000,4100,4200,4300,4400,4500,4600,4700,4800,4900,5000: GOTO 3220
3215 ON (TYPE-11) GOSUB 5100,5200,5300,5400,5500,5600,4000,4100,5600: GOTO 3220
3218 PRINT "Erreur de programme": STOP
3220 IF BREAK = 100 THEN 100
3221 IF BREAK = 1000 THEN 1000
3222 IF BREAK = 1100 THEN 1100
3230 E = E + 3
3240 GOTO 3100
4000 PRINT
4010 PRINT "Vous tenez:"
4020 F = 1
4030 FOR X = 1 TO O
4040 IF O(X) > = 0 THEN 4070
4050 PRINT " ";O$(X)
4060 F = 0
4070 NEXT X
4080 IF F THEN PRINT " Rien."
4090 BREAK = 100
4095 RETURN
4100 IF S(1) < 5 THEN 4140
4110 PRINT "Vous ne pouvez porter plus."
4120 BREAK = 100
4130 RETURN
4140 IF O(N) = - 1 THEN 4180
4150 O(N) = - 1
4160 S(1) = S(1) + 1
4170 RETURN
4180 PRINT "Vous l'avez deja."
4190 GOTO 4120
4200 IF O(N) = - 1 THEN 4240
4210 PRINT "Vous n'avez pas";O$(N)
4220 BREAK = 100
4230 RETURN
4240 O(N) = SALLE
4250 S(1) = S(1) - 1
4260 RETURN
4300 PRINT
4302 IF N > 11 AND N < 22 THEN 4312
4303 IF N > 21 AND N < 32 THEN 4313
4304 IF N > 31 AND N < 41 THEN 4314
4305 IF N > 41 THEN 4315
4310 ON N GOSUB 7010,7020,7030,7040,7050,7060,7070,7080,7090,7100: GOTO 4320
4312 ON (N - 10) GOSUB 7110,7120,7130,7140,7150,7160,7170,7180,7190,7200: GOTO 4320
4313 ON (N - 20) GOSUB 7210,7220,7230,7240,7250,7260,7270,7280,7290,7300: GOTO 4320
4314 ON (N - 30) GOSUB 7310,7320,7330,7340,7350,7360,7370,7380,7390,7400: GOTO 4320
4315 ON (N - 40) GOSUB 7410,7420,7430,7440,7450,7460: GOTO 4320
4316 PRINT "Erreur de programme": STOP
4320 RETURN
4400 S(N) = 1
4410 RETURN
4500 S(N) = 0
4510 RETURN
4600 C(N) = VAL ( MID$ (E$,E + 3,2))
4610 E = E + 2
4620 RETURN
4700 X = O(N)
4710 O(N) = O(N + 1)
4720 O(N + 1) = X
4730 RETURN
4800 O(N) = SALLE
4810 RETURN
4900 IF O(N) < 0 THEN S(1) = S(1) - 1
4910 O(N) = 0
4920 RETURN
5000 SALLE = N
5010 RETURN
5100 PRINT "D'acccord."
5200 BREAK = 1000
5210 RETURN
5300 BREAK = 1100
5310 RETURN
5400 BREAK = 100
5410 RETURN
5500 PRINT "Etes vous sur?";
5510 INPUT W$
5520 PRINT W$
5530 IF LEFT$ (W$,1) < > "O" THEN RETURN
5600 GOTO 9999
5710 PRINT "VOUS TENEZ:"
5720 LET F=1
5730 FOR X=1 TO O
5740 IF O(X)>=0 THEN GOTO 5770
5750 PRINT O$(X)
5760 LET F=0
5770 NEXT X
5780 IF F THEN PRINT "RIEN."
5790 LET G=100
5795 RETURN
6000 GOTO 6010
6010 W$ = ""
6015 P$(W) = "00"
6020 GOSUB 6600
6025 IF (FIN) THEN RETURN
6030 FOR Q = 1 TO 4
6040 W$ = W$ + MID$ (Y$,Y,1)
6050 GOSUB 6500
6060 IF (FIN) THEN 6100
6070 NEXT Q
6080 GOSUB 6500
6090 IF (FIN) = 0 THEN 6080
6100 IF W$ = " " THEN RETURN
6110 FOR Q = 1 TO V
6120 IF W$ = MID$ (V$(Q),3) THEN 6200
6130 NEXT Q
6140 RETURN
6200 P$(W) = LEFT$ (V$(Q),2)
6210 RETURN
6500 Y = Y + 1
6510 FIN = (Y > LEN (Y$))
6520 IF (FIN) THEN RETURN
6530 FIN = ( MID$ (Y$,Y,1) = " ")
6540 RETURN
6600 Y = Y + 1
6610 FIN = (Y > LEN (Y$))
6620 IF (FIN) THEN RETURN
6630 IF MID$ (Y$,Y,1) = " " THEN 6600
6640 RETURN
7010 PRINT "La generatrice vient d'exploser. La maison n'existe plus. Vous non plus."
7015 RETURN
7020 PRINT "L'ascenseur ne bouge pas. Il faut peut-etre du courant?"
7025 RETURN
7030 PRINT "La porte vient de se fermer. Impossible de l'ouvrir."
7035 RETURN
7040 PRINT "Vous avez raison. La curiosite est un vilain defaut..."
7045 RETURN
7050 PRINT "L'odeur que vous sentiez etait celle d'un gaz explosif. Vous etes mort."
7055 RETURN
7060 PRINT "Il faudrait peut-etre du feu..."
7065 RETURN
7070 PRINT "Ah, Ah...Vous etes mon prisonnier!"
7075 RETURN
7080 PRINT "Vous avez dit papier? Quel papier?"
7085 RETURN
7090 PRINT "Bravez les interdits!"
7095 RETURN
7100 PRINT "Elle l'air de s'emballer..."
7105 RETURN
7110 PRINT "La generatrice se met en marche."
7115 RETURN
7120 PRINT "Impossible, elle ne veut rien savoir."
7125 RETURN
7130 PRINT "Bravo. Je ne savais pas que vous aviez des dons d'electricien."
7135 RETURN
7140 PRINT "Votre machine est reparee mais elle sent le chaud."
7145 RETURN
7150 PRINT "La machine est reparee. Dommage qu'il n'y ait pas de courant."
7155 RETURN
7160 PRINT "Il faudrait peut etre des outils."
7165 RETURN
7170 PRINT "L'ascenseur semble monter..."
7175 RETURN
7180 PRINT "L'ascenseur ne bouge pas."
7185 RETURN
7190 PRINT "Le cable vient de casser. Vous vous ecrasez en bas. Mort."
7195 RETURN
7200 PRINT "Il fait noir. Il faudrait allumer."
7205 RETURN
7210 PRINT "Vous vous ecrasez au sol."
7215 RETURN
7220 PRINT "Il y a une clef."
7225 RETURN
7230 PRINT "La porte est fermee a clef."
7235 RETURN
7240 PRINT "Tiens, la porte du placard se referme."
7245 RETURN
7250 PRINT "La generatrice vient d'exploser, l'ascenseur est detruit.": PRINT "Vous vous en rechappez de justesse."
7255 RETURN
7260 PRINT "Vous etes mort electrocute."
7265 RETURN
7270 PRINT "Vous avez raison. Rien ne sert de courrir."
7275 RETURN
7280 PRINT "Dehors il fait noir. On ne voit pas le sol."
7285 RETURN
7290 PRINT "C'est deja fait."
7295 RETURN
7300 PRINT "Vous etes au bout de la corde."
7305 RETURN
7310 PRINT "Vraiment pas au point cette machine! Vous etes mort."
7315 RETURN
7320 PRINT "Il faudrait peut-etre ouvrir la fenetre."
7325 RETURN
7330 PRINT "Tant pis. On a essaye."
7335 RETURN
7340 PRINT "Bravo, quel trait de genie!"
7345 RETURN
7350 PRINT "Une trappe s'ouvre sous vos pieds. Vous etes mort."
7355 RETURN
7360 PRINT "Sage precaution."
7365 RETURN
7370 PRINT "C'est du poison. Vous etes mort."
7375 RETURN
7380 PRINT "Vous apprenez a piloter une soucoupe en 1 lecon."
7385 RETURN
7390 PRINT "Ca ne se pilote pas comme ca!"
7395 RETURN
7400 PRINT "C'est de l'acide. Vous etes mort."
7405 RETURN
7410 PRINT "Il y a de l'eau. Vous vous noyez."
7415 RETURN
7420 PRINT "Ouf! Vous vous retrouvez dehors..."
7425 RETURN
7430 PRINT "Sain et sauf..."
7435 RETURN
7440 PRINT "Ca marche... Mais il n'y avait pas assez de carburant."
7445 RETURN
7450 PRINT "Mais vous etes tout bleu! Ce doit etre les pillules."
7455 RETURN
7460 PRINT "Et irradie. Vous mourez au bout de quelques jours."
7465 RETURN
8010 PRINT "Vous etes devant une maison. La porte est ouverte."
8015 RETURN
8020 PRINT "Vous etes dans le couloir. Il y a une porte a l'est et une porte a l'ouest."
8025 RETURN
8030 PRINT "Vous etes dans le salon. Il y a une porte a l'ouest."
8035 RETURN
8040 PRINT "Il y a une drole d'odeur."
8045 RETURN
8050 PRINT "Il y a une grosse machine qui ressemble a une generatrice avec un bouton vert,": PRINT "un bouton rouge. Il y a une porte au nord."
8055 RETURN
8060 PRINT "Une machinerie d'ascenseur. Une porte au nord."
8065 RETURN
8070 PRINT "Il y a plein de materiel"
8075 RETURN
8080 PRINT "Vous etes dans un ascenseur. Il y a un bouton HAUT, un bouton BAS."
8085 RETURN
8090 PRINT "L'ascenseur vient de s'arreter."
8095 RETURN
8100 PRINT "La piece est humide. Il ya a des fils qui trainent par terre.": PRINT "Il y a une fenetre et une porte au nord."
8105 RETURN
8110 PRINT "La porte derriere vous vient de se refermer. Bonjour..Comment ecrivez": PRINT "vous ceci en 4 lettres?"
8115 RETURN
8120 PRINT "Vous etes dans une machine a remonter le temps 3 boutons:": PRINT "PASSE,PRESENT ET AVENIR"
8125 RETURN
8130 PRINT "Vous vous retrouvez dans le laboratoire du professeur. Il y a une porte": PRINT "en fer a l'ouest. Une porte au sud marquee <<DANGER>>."
8135 RETURN
8140 PRINT "Il y a une douche. Un trou dans le sol."
8145 RETURN
8150 PRINT "Il y a un cube noir d'au moins une tonne. Une echelle monte. Une porte a l'est."
8155 RETURN
8160 PRINT "Vous etes dans une bibliotheque."
8165 RETURN
8170 PRINT "Vous etes dans une soucoupe sur une terasse."
8175 RETURN
9000 O = 20: DIM Q(20): DIM O$(20)
9010 Q(1) = 2:Q(2) = 0:Q(3) = 2:Q(4) = 0:Q(5) = 6:Q(6) = 7:Q(7) = 3:Q(8) = 6:Q(9) = 0:Q(10) = 10
9020 Q(11) = 16:Q(12) = 0:Q(13) = 13:Q(14) = 0:Q(15) = 13:Q(16) = 0:Q(17) = 13:Q(18) = 0
9030 Q(19) = 13:Q(20) = 16
9040 O$(1) = "BRIQUET":O$(2) = "BRIQUET ALLUME":O$(3) = "BOUGIE"
9050 O$(4) = "BOUGIE ALLUMEE":O$(5) = "PLACARD":O$(6) = "OUTILS":O$(7) = "PAPIER"
9060 O$(8) = "FILS ARRACHES":O$(9) = "FILS REPARES":O$(10) = "UNE CORDE"
9070 O$(11) = "GANTS CAOUTCHOUC":O$(12) = "GANTS ENFILES":O$(13) = "PILLULE K"
9080 O$(14) = "PILLULE K AVALEE":O$(15) = "PILLULE Z":O$(16) = "PILLULE Z AVALEE"
9090 O$(17) = "PILLULE Q":O$(18) = "PILLULE Q AVALEE":O$(19) = "PISTOLET LASER"
9100 O$(20) = "LIVRE"
9200 V = 72: DIM V$(72)
9205 V$(1) = "01N":V$(2) = "01NORD":V$(3) = "02E":V$(4) = "02EST":V$(5) = "03S"
9210 V$(6) = "03SUD":V$(7) = "04O":V$(8) = "04OUES":V$(9) = "05M":V$(10) = "05MONT"
9215 V$(11) = "06D":V$(12) = "06DESC":V$(13) = "07ENTR":V$(14) = "07AVAN"
9220 V$(15) = "05HAUT":V$(16) = "06BAS":V$(17) = "13LIT":V$(18) = "35REGA"
9225 V$(19) = "14TOUR":V$(20) = "14RETO":V$(21) = "15PREN":V$(22) = "15RAMA"
9230 V$(23) = "16PAPI":V$(24) = "17ALLU":V$(25) = "18BOUG":V$(26) = "19APPU"
9235 V$(27) = "19ENFO":V$(28) = "20VERT":V$(29) = "21ROUG":V$(30) = "22OUTI"
9240 V$(31) = "23OUVR":V$(32) = "55DOUC":V$(33) = "25PLAC":V$(34) = "26PORT"
9245 V$(35) = "27ASCE":V$(36) = "28BRIQ":V$(37) = "29REPA":V$(38) = "29DEPA"
9250 V$(39) = "30RIEN":V$(40) = "31MACH":V$(41) = "32POSE":V$(42) = "33QUIT"
9255 V$(43) = "35DECR":V$(44) = "34INVE":V$(45) = "36CLEF":V$(46) = "31FILS"
9260 V$(47) = "37CORD":V$(48) = "38FENE":V$(49) = "39ACCR":V$(50) = "40SAUT"
9265 V$(51) = "39ATTA":V$(52) = "41SORT":V$(53) = "42FERM":V$(54) = "43CECI"
9270 V$(55) = "44ATTE":V$(56) = "45TAPE":V$(57) = "46FRAP":V$(58) = "47PASS"
9275 V$(59) = "47AVEN":V$(60) = "48PRES":V$(61) = "49MET":V$(62) = "50AVAL"
9280 V$(63) = "51GANT":V$(64) = "52K":V$(65) = "53Q":V$(66) = "54Z":V$(67) = "49ENFI"
9285 V$(68) = "56LASE":V$(69) = "56PIST":V$(70) = "57LIVR":V$(71) = "58DEMA"
9290 V$(72) = "58PILO"
9300 R = 17: DIM M$(18)
9301 M$(1) = "00"
9302 M$(2) = "0204040300"
9303 M$(3) = "0405020200"
9304 M$(4) = "040200"
9305 M$(5) = "0106020300"
9306 M$(6) = "0108030500"
9307 M$(7) = "00"
9308 M$(8) = "030600"
9309 M$(9) = "00"
9310 M$(10)= "011100"
9311 M$(11)= "00"
9312 M$(12)= "00"
9313 M$(13)= "00"
9314 M$(14)= "021300"
9315 M$(15)= "05170216011300"
9316 M$(16)= "041500"
9317 M$(17)= "061500"
9318 M$(18)= "00"
9400 C = 12:C = C + 1: DIM C$(13)
9401 C$(1)= "A04E05.D05Q."
9402 C$(2)= "E04F10.G0403E10."
9403 C$(3)= "G04A10.G0499F09D25."
9404 C$(4)= "A04F05.D20."
9405 C$(5)= "E06F10.G0405E10."
9406 C$(6)= "G04.D01Q."
9407 C$(7)= "A10E09.D26Q."
9408 C$(8)= "A10E07.F06F07F04F08."
9409 C$(9)= "A11F07.G0103E07."
9410 C$(10)= "A11G01.D35Q."
9411 C$(11)= "A12.F06F04."
9412 C$(12)= "A12.F08F05F07."
9413 C$(13)= ".N."
9500 A = 91: DIM A$(92)
9501 A$(1) = "0700A01.D03K02O."
9502 A$(2) = "3000A01.D04O."
9503 A$(3) = "1528B01.S01L."
9504 A$(4) = "1518B03.S03L."
9505 A$(5) = "1718B03C01.D06N."
9506 A$(6) = "1718B01B03.H03E05E03L."
9507 A$(7) = "1728B01.H01E05E03L."
9508 A$(8) = "3400.R00."
9509 A$(9) = "3300.P00."
9510 A$(10)= "3500.O00."
9511 A$(11)= "3218B03.C03L."
9512 A$(12)= "3228B01.C01L."
9513 A$(13)= "1316D07.D07N."
9514 A$(14)= "1516B07.S07D22N."
9515 A$(15)= "1316C07.D08N."
9516 A$(16)= "1416C07.D08N."
9517 A$(17)= "1416D07.D09N."
9518 A$(18)= "1416D07.D09N."
9519 A$(19)= "1920A05F06F04.E04D11D10N."
9520 A$(20)= "1921A05F06F04.D11E03E06N."
9521 A$(21)= "1921A05E04.D12N."
9522 A$(22)= "1536A03F08.E08L."
9523 A$(23)= "2325A06F08.D23N."
9524 A$(24)= "2325A06E08C06.K07F08O."
9525 A$(25)= "1522A07B06.S06D24K06L."
9526 A$(26)= "2325A06E08B06.K06N."
9527 A$(27)= "2931A06D06E04B08.D13E07H08N."
9528 A$(28)= "2931A06D06E04B08.D14E07H08N."
9529 A$(29)= "2931A06D06F04F06B08.D15H08E07N."
9530 A$(30)= "2931A06C06B08.D16N."
9531 A$(31)= "0500A08E07E06.D17K09O."
9532 A$(32)= "0500A08F07F08.D18E08N."
9533 A$(33)= "0600A08F07F08.D18E08N."
9534 A$(34)= "0500A08F08F06.D18E08N."
9535 A$(35)= "0600A08F08F06.D18E08N."
9536 A$(36)= "0500A08E08.D19Q."
9537 A$(37)= "0600A08F08.D19Q."
9538 A$(38)= "0600A08E07E06.D19Q."
9539 A$(39)= "4100A09.E09K10O."
9540 A$(40)= "0600A09.D19Q."
9541 A$(41)= "3000A09.D27N."
9542 A$(42)= "2338A10F04.E04L."
9543 A$(43)= "2338A10E04.D29N."
9544 A$(44)= "4238A10E04.F04L."
9545 A$(45)= "4238A10F04.D29N."
9546 A$(46)= "3937A10E04F06.E06L."
9547 A$(47)= "0600A10E06.E08D30N."
9548 A$(48)= "4000A10E07.D21Q."
9549 A$(49)= "4000A10E04.D21Q."
9550 A$(50)= "4000A10F04.D32N."
9551 A$(51)= "0500A10E08.F08D33N."
9552 A$(52)= "4400A09.D27N."
9553 A$(53)= "4300A11.D34K12O."
9554 A$(54)= "4543A11.D34K12O."
9555 A$(55)= "4643A11.D34K12O."
9556 A$(56)= "3222B06.C06L."
9557 A$(57)= "1947A12.D31Q."
9558 A$(58)= "1948A12.K13O."
9559 A$(59)= "4951B11F04.E04H11D36N."
9560 A$(60)= "0400A13F04.D26Q."
9561 A$(61)= "0400A13E04.F04K14O."
9562 A$(62)= "5053B17.D37Q."
9563 A$(63)= "5054F05B15.E05H15L."
9564 A$(64)= "5054E05.D29N."
9565 A$(65)= "5052F08B13.E08H13L."
9566 A$(66)= "5052E08.D29N."
9567 A$(67)= "1552B13.S13L."
9568 A$(68)= "1553B17.S17L."
9569 A$(69)= "1554B15.S15L."
9570 A$(70)= "3252B13.C13L."
9571 A$(71)= "3253B17.C17L."
9572 A$(72)= "3254B15.C15L."
9573 A$(73)= "1556B19.S19L."
9574 A$(74)= "3256B19.C19L."
9575 A$(75)= "0300A13.E06K15O."
9576 A$(76)= "1557B20.S20L."
9577 A$(77)= "3257B20.C20L."
9578 A$(78)= "1357B20F07.D38E07N."
9579 A$(79)= "1357B20E07.D29N."
9580 A$(80)= "1551B11.S11L."
9581 A$(81)= "3251B11.C11L."
9582 A$(82)= "5800A17F07.D39N."
9583 A$(83)= "5800A17E07.D44D21O."
9584 A$(84)= "1555A14F05.D40Q."
9585 A$(85)= "1555A14E06E05F08.F06F05L."
9586 A$(86)= "0600A14F08.D41Q."
9587 A$(87)= "1555A14E06E05E08.F06L."
9588 A$(88)= "0600A14E08F05F06.D42D43Q."
9589 A$(89)= "0600A14E08E05E06.D42D45D46Q."
9590 A$(90)= "0600A14E08E05F06.D42D43D45Q."
9595 A$(91)= "0600A14E08F05E06.D42D46Q."
9592 A$(92)= ".N."
9900 GOTO 1
9999 END
29100 K = (O(N) = SALLE OR O(N) < 0)

137
folibus/common/musiques.s
View File

@ -270,143 +270,6 @@ zikINTRODUCTION
hex 1040FFFFFE00FFFE1000000000000000
hex 00000000000000000000000000000000
*--- GAGNE (Air)
zikGAGNE
hex 01020308000008306008306008306020
hex 3C7808000008366C08366C08366C4040
hex 80080000083000083000083000083C90
hex 082D90082D90082D90083090081E9008
hex 1E90081E901824900824900824900830
hex 90083090083090084098082D98082D98
hex 082D98083098081B98081B98081B9818
hex 2098082098082098081898081898081B
hex 98081E00081E78081E78081E6C082060
hex 081860081860081B60081E00081E7808
hex 1E78081E6C082060081860081860081B
hex 60101E60100000102478100000201880
hex 080000082D5A082D5A082D5A601B6C08
hex 0000082D00082D00082D000836400836
hex 4008364008364C08365A08365A08365A
hex 0836600836C00836C00836C0083C6008
hex 2D00082D00082D000836000836400836
hex 4008364008364C08365A08365A08365A
hex 083660081BC0081BC0081BC0081E6008
hex 30000824000824001024D80824000824
hex D80826D80826D80826000820001020D8
hex 0820000820D80824D80824D808240008
hex 1E00081E4C08204C062000040000061B
hex 00030000081B50081C50061C00040000
hex 061800030000081848081B48061B0004
hex 00000616000300000816480818480618
hex 00040000061400030000081448081648
hex 06160004000006120003000008125608
hex 13560613000400000610000400000812
hex 60080F60080F00080F60081260081860
hex 081800081860081E6008246008300008
hex 3060083C60084860084800084860084C
hex 6C080D6C08100008106C08136C08166C
hex 08180008186C08206C08266C08300008
hex 366C08406C084C6C0848000848000848
hex 56080F56080F00080F56081256081556
hex 081500081556081856081E56081E0008
hex 1E56082456082B56082B00082B562015
hex 56100000200000201450100000080000
hex 08280008280008280020003C20360020
hex 0050102850101E501020A0081E00081E
hex A0101BA00824000824A01024F0082800
hex 0828F01028F0081E00081EF01020A008
hex 1E00081EA0101BA00824000824A01024
hex F00828000828F01028F0081E00081EF0
hex 1020A0081E00081EA0101BA008240008
hex 24A01024F00828000828F01028C00824
hex 000824C01022E40824000824E41028D8
hex 0824000824D81028D8082B00082BD810
hex 22B4081E00081EB4101BC0081E00081E
hex C01022E4081E00081EE41022B4082400
hex 0824B4101EB4081B00081BB41019AC08
hex 1B00081BAC101EAC081B00081BAC1019
hex A0081B00081BA0101EA0101B00101998
hex 081B00081B98101E98101B0010199008
hex 1B00081B90101E90101B00101990081B
hex 00081B90101990101500101480081400
hex 0814800814F00612F00600000614F006
hex 00000618F00600000818F00818F0061B
hex 00060000061E00060000081ED80820D8
hex 062400060000062000060000081BC008
hex 1EC00628000600000630000600000820
hex B40824B4062D00060000063600060000
hex 0824A00828A0063000060000063C0006
hex 00000800A00815A00814000815000814
hex F00815F00814D80815D80614A0060000
hex 0612A006000006148006000006168006
hex 00000816F00818F0061BC0060000061E
hex C0060000081ED80820D80624B4060000
hex 0620B4060000081BC0081EC00628A006
hex 00000630A00600000820B40824B4062D
hex 900600000636900600000824A00828A0
hex 061650060000061B500600000800A008
hex 28A0081450081450081E50080B30080B
hex 30080B30080F3C081450081450081450
hex 081860081E3C081E3C081E3C0828A008
hex 1B50081B50081B50081878080B30080B
hex 30080B30080F3C081450081450081450
hex 081860081E78081E78081E780828A008
hex 14500814500814501014501000000800
hex 00081450081450081450101450100000
hex 080000081050081050081050100F5010
hex 00002000004000000830600830600830
hex 60203C7808000008366C08366C08366C
hex 40408008000008300008300008300008
hex 3C90082D90082D90082D90083090081E
hex 90081E90081E90182490082490082490
hex 083090083090083090084098082D9808
hex 2D98082D98083098081B98081B98081B
hex 98182098082098082098081898081898
hex 081B98081E00081E78081E78081E6C08
hex 2060081860081860081B60081E00081E
hex 78081E78081E6C082060081860081860
hex 081B60101E6010000010247810000020
hex 188008000008165A08165A08165A601B
hex 6C080000082D00082D00082D00083640
hex 08364008364008364C08365A08365A08
hex 365A0836600836C00836C00836C0083C
hex 60082D00082D00082D00083600083640
hex 08364008364008364C08365A08365A08
hex 365A083660081BC0081BC0081BC0081E
hex 600830000824000824001024D8082400
hex 0824D80826D80826D808260008200010
hex 20D80820000820D80824D80824D80824
hex 00081E00081E4C08204C062000060000
hex 061B00060000081B50081C50061C0006
hex 0000061800060000081848081B48061B
hex 00060000061600060000081648081848
hex 06180006000006140006000008144808
hex 16480616000600000612000600000812
hex 56081356061300060000061000060000
hex 081260080F60080F00080F6008126008
hex 1860081800081860081E600824600830
hex 00083060083C60084860084800084860
hex 084C6C080D6C08100008106C08136C08
hex 166C08180008186C08206C08266C0830
hex 0008366C08406C084C6C084800084800
hex 08482D080F3C080F3C080F3C08124808
hex 1556081556081556081966081E78081E
hex 78081E78082490082BAC082BAC082BAC
hex 10339010000020000010309810000008
hex 0000083000083000083000083C90082D
hex 90082D90082D90083090081E90081E90
hex 081E9010249008249008249008309008
hex 3090083090083C90082D90082D90082D
hex 90083090081E90081E90081E90182490
hex 0824900824900820C00820C00820C010
hex 1E901000000800000820C00820C00820
hex C0101EC01000000800000820C00820C0
hex 0820C0101ED81020C0101ED81020C010
hex 1ED81015C01014D81015C01014D81000
hex 001026C01000002024D80062C5000000
hex 00000000000000000000000000000000
*--- PERDU (Beethoven's fifth)
zikPERDU

641
folibus/en/en.s
View File

@ -17,214 +17,96 @@
*-----------------------------------
strVOUSDETENEZ
asc 8D"You carry: "00
asc 8D"Vous detenez : "00
strVOUSRIEN
asc 8D"You carry absolutely nothing!!!"00
asc 8D"Vous ne detenez absolument rien !!!"00
strPOINT
asc "."00
strEVIDENT
asc 8D"It seems abvious that you can only"8D
asc "carry so much stuff!!"00
asc 8D"Vous ne pouvez porter plus"00
strVOUSLAVEZ
asc 8D"You already have it. You are dizzy"8D
asc "and in this house, it is not"00
strCONSEILLE
asc 8D"very advisable"00
asc 8D"Vous l"A7"avez deja."00
strNOTOWNED
asc 8D"How do you want to drop what you"8D
asc "do not carry?"00
asc 8D"Vous n"A7"avez pas"00
strDACCORD
asc 8D"OK"00
asc "D"A7"accord"00
*-----------------------------------
* 4000 - LES REPONSES
* 7000 - LES REPONSES
*-----------------------------------
str4000 asc "You kept the lamp on too long,"8D
asc "it exploded"00
str4010 asc "You forgot to close the faucet"8D
asc "You die under tons of water"00
str4020 asc "The door has just closed behind you"8D
asc "You are a prisoner..."00
str4030 asc "You triped on the stairs,"8D
asc "you are impaled on the knife!"00
str4040 asc "You spill the water down the stairs,"8D
asc "causing a discharge of the"00
str4042 asc 8D"electrical outlet"00
str4050 asc "You are safe thanks to the suit"8D
asc "you have put on...!"00
str4060 asc "You die of electric shot..."00
str4070 asc "The room was full of explosive gas,"8D
asc "you should have extinguished..."00
str4072 asc 8D"We will pick up your pieces"8D
asc "another day...!"00
str4080 asc "You die impalted on spears of the"8D
asc "wall...!"00
str4090 asc "The door does not open from this room"00
str4100 asc "The lamp and the lighter refuse to"8D
asc "work in this room"00
str4110 asc "You fall into a trap, you dislocate"8D
asc "arriving on the ground..."00
str4120 asc "You are right to pass, because this"8D
asc "monster was only a 3D projection"00
str4124 asc 8D"on a smoken screen"00
str4130 asc "You are right, curiosity killed the cat"00
str4133 asc 8D" Bye"00
str4140 asc "You are right to wait, but this"
asc "cannot last forever..."00
str4150 asc "You are lucky because this chest was open"00
str4152 asc 8D"A message inside says: do not"8D
asc "respect the colors of the Highway code?"00
str4156 asc 8D"Hold on, the chest closes"00
str4160 asc "Now you have a lamp full of oil"00
str4170 asc "You have nothing to carry the oil"00
str4180 asc "The lighter you left lit exploded"00
str4185 asc 8D"It kills thoughtlessness..."00
str4190 asc "Walking long and large in this house"00
str4195 asc 8D"you fall into a deadly coma"00
str4200 asc "Water flows..."00
str4210 asc "Your feet are soaked and it makes you"8D
asc "very sick..."00
str4215 asc 8D"You die of triple pneumonia...!"00
str4220 asc "The title is: "00
str4225 asc 8D"Death on the first page."00
str4230 asc "The book exploded when you opened it..."00
str4240 asc "The paper says: search the key."00
str4250 asc "The key will allow you to find the"8D
asc "entrance door code."00
str4260 asc "There is, next to the door, a numerical"8D
asc "keypad for entering a code"00
str4270 asc "To do what...?"00
str4280 asc 8D"There is a smell of gas."00
str4290 asc "Apparently, there is no smell but..."00
str4300 asc "It is already done, you funny fool"00
str4310 asc "Maybe you need a fire"00
str4320 asc "The lamp does not contain oil"00
str4330 asc "You do not have it"00
str4340 asc "The lighter is still lit and"8D
asc "it lights up the room."00
str4350 asc "The torch was trapped, it"8D
asc "exploded in your hands..."00
str4360 asc "The lamp is still lit and it"8D
asc "enlightened"00
str4370 asc "A dwarf just throwed a stab at you"8D
asc "in the heart..."00
str4380 asc "A dwarf just rushed at you, it impales"8D
asc "on your scissor"00
str4390 asc "A dwarf just rushed at you, it impales"8D
asc "on your knife"00
str4400 asc "You just spilled the pot"00
str4410 asc "The lighting just fell on the house"00
str4412 asc 8D"The house no longer exists, neither you"00
str4420 asc "Walking in the dark, you tripped"00
str4425 asc 8D"you die of a skull fracture"00
str4430 asc "You cannot work in the dark"00
str4440 asc "The light of the lighter is not enough"8D
asc "to work..."00
str4450 asc "Impossible!"8D00
str4460 asc "You have no tools..."
str4470 asc "The teleporter is broken, the buttons"8D
asc "do not work."00
str4480 asc "The teleporter just exploded, you"8D
asc "are decomposed...!"00
str4490 asc "The teleporter stars, you disappear"00
str4500 asc "You take 30,0000 Volts in your fingers"00
str4510 asc "The closet is locked"00
str4520 asc "The horrible monster out of the closet"8D
asc "just devoured you"00
str4530 asc "You should not flee"00
str4540 asc "You are right to use the scissors,"8D
asc "the monster is dead"00
str4550 asc "Inside the closet, number "00
str4552 asc 8D" is registered"00
str4555 asc 8D"The closet closes."00
str4560 asc "The gun exploded"00
str4570 asc "The numeric keyboard exploded"00
str4580 asc "The numeric keyboard caught fire,"8D
asc "Luckily, you had "00
str4582 asc "a pot full of ware"00
str4585 asc 8D"that allows you extinguish the fire"00
str4590 asc 8D"Code number? "00
strCODEEXACT
asc "The code is exact... The door opens......"00
strENDEHORS
asc 8D"You are now outside the house..."
str4610 asc "Inside the closet, there is a word"8D
asc "talking about a teleporter"00
str4615 asc 8D"Hold on, the closed closes by itself..."00
str4620 asc "Before putting it on the ground, you"8D
asc "may need to remove it"00
str4630 asc "Thee is a horrible monster in front of you"8D
asc "that came out of the closet."00
str4640 asc "The closet was trapped, you should not"8D
asc "have opened it"00
str7010 asc "La generatrice vient d"A7"exploser. La"8D
asc "maison n"A7"existe plus, vous non plus."00
str7020 asc "L"A7"ascenseur ne bouge pas. Il faudrait"8D
asc "peut-etre du courant ?"00
str7030 asc "La porte vient de se fermer. Impossible"8D
asc "de l"A7"ouvrir..."00
str7040 asc "Vous avez raison. La curiosite est un"8D
asc "vilain defaut..."00
str7050 asc "L"A7"odeur que vous sentiez etait celle d"A78D
asc "un gaz explosif. Vous etes mort."00
str7060 asc "Il faudrait peut-etre du feu..."00
str7070 asc "Ah, ah... Vous etes prisonnier"00
str7080 asc "Vous avez dit papier ? Quel papier ?"00
str7090 asc "Bravez les interdits."00
str7100 asc "Elle a l"A7"air de s"A7"emballer..."00
str7110 asc "La generatrice se met en marche"00
str7120 asc "Impossible, elle ne veut rien savoir"00
str7130 asc "Bravo, je ne savais pas que vous aviez"8D
asc "des dons d"A7"electricien."00
str7140 asc "Votre machine est reparee. Mais elle"8D
asc "sent le chaud."00
str7150 asc "La machine est reparee. Dommage qu"A7"il"8D
asc "n"A7"y ait pas de courant."00
str7160 asc "Il faudrait peut-etre des outils."00
str7170 asc "L"A7"ascenseur semble monter..."00
str7180 asc "L"A7"ascenseur ne bouge pas"00
str7190 asc "Le cable vient de casser. Vous vous"8D
asc "ecrasez en bas : mort"00
str7200 asc "Il faut noir. Il faudrait allumer"00
str7210 asc "Vous vous ecrasez au sol"00
str7220 asc "Il y a une clef."00
str7230 asc "La porte est fermee a clef"00
str7240 asc "Tiens, la porte du placard se referme."8D00
str7250 asc "La generatrice vient d"A7"exploser,"8D
asc "l"A7"ascenseur est detruit. Vous en"8D
asc "rechappez de justesse"8D00
str7260 asc "Vous etes mort electrocute"00
str7270 asc "Vous avez raison, rien ne sert de courir"
asc "Une fumee monte du sol. Il faut sortir"8D
asc "quand meme."00
str7280 asc "Dehors il fait noir, on ne voit pas le"8D
asc "sol."00
str7290 asc "C"A7"est deja fait."00
str7300 asc "Vous etes au bout de la corde."00
str7310 asc "Vraiment pas au point cette machine."8D
asc "Vous etes mort"00
str7320 asc "Il faudrait peut-etre ouvrir la fenetre."00
str7330 asc "Tant pis. On a essaye."00
str7340 asc "Bravo, quel trait de genie."00
str7350 asc "Une trappe s"A7"ouvre sous vos pieds."8D
asc "Vous etes mort."00
str7360 asc "Sage precaution."00
str7370 asc "C"A7"est du poison. Vous etes mort."00
str7380 asc "Vous apprenez a piloter une soucoupe en"8D
asc "une lecon"00
str7390 asc "Ca ne se pilote pas comme ca"00
str7400 asc "C"A7"est de l"A7"acide. Vous etes mort."00
str7410 asc "Il y a de l"A7"eau. Vous vous noyez"00
str7420 asc "Ouf, vous vous retrouvez dehors.."00
str7430 asc "Sain et sauf..."00
str7440 asc "Ca marche... Mais il n"A7"y avait pas assez"
asc "de carburant"00
str7450 asc "Mais. Vous etes tout bleu, ce doit etre"8D
asc "les pilules"00
str7460 asc "Et irradie. Vous mourez au bout de"8D
asc "quelques jours"00
*-----------------------------------
* LIEUX
@ -234,248 +116,251 @@ str4640 asc "The closet was trapped, you should not"8D
* "0123456789012345678901234567890123456789"
* "----------------------------------------"
strVOUS asc 8D"You are "00
str7000 asc "in front of the manor of"00
str7001 asc 8D" Dr Genius"00
str7010 asc "in the entrance hall"00
str7020 asc "At the bottom of the stairs tothe 2nd floor"00
str7030 asc "in the dining room"00
str7040 asc "in a library without books...!"00
str7050 asc "in a laundry room"00
str7060 asc "in the living room"00
str7070 asc "in a bedroom"00
str7080 asc "in a corridor"00
str7090 asc "in a waiting room"00
str7100 asc "in a vestibule"00
str7110 asc "in the guest room"00
str7120 asc "in a bedroom"00
str7130 asc ""00 ; nada
str7140 asc "in a small room"00
str7150 asc "in the laboratory of"00 ; + :7001
str7160 asc "in a small empty room"00
str7170 asc "! You actually do not know"8D
asc "where you are"00
str7180 asc "at the top of the stairs"00
str7190 asc "in the bathroom"00
str7200 asc "in the living room"00
str7210 asc "in a somky room"00
str7220 asc "in a large room"00
str7230 asc "in a storage room"00
str7240 asc "in the dressing room"00
str8010 asc "Vous etes devant une maison, la porte"8D
asc "est ouverte."00
str8020 asc "Vous etes dans un couloir. Il y a une"8D
asc "porte a l"A7"est et une porte a l"A7"ouest."00
str8030 asc "Vous etes dans un salon. Il y a une"8D
asc "porte a l"A7"ouest."00
str8040 asc "Il y a une drole d"A7"odeur."00
str8050 asc "Il y a une grosse machine qui ressemble"8D
asc "a 1 generatrice avec un bouton vert, un"8D
asc "bouton rouge. Il y a une porte au nord."00
str8060 asc "Une machinerie d"A7"ascenseur. Une porte"8D
asc "au nord."00
str8070 asc "Il y a plein de materiel."00
str8080 asc "Vous etes dans un ascenseur. Il y a un"8D
asc "bouton monter, un bouton descendre."00
str8090 asc "L"A7"ascenseur vient de s"A7"arreter."00
str8100 asc "La piece est humide, il y a des fils qui"
asc "trainent par terre. Il y a une fenetre"8D
asc "et une porte au nord."00
str8110 asc "La porte vient de se refermer. Bonjour.."
asc "Comment ecrivez-vous ceci en 4 lettres ?"00
str8120 asc "Vous etes dans une machine a remonter le"
asc "temps. Trois boutons : passe, present et"
asc "avenir."00
str8130 asc "Vous vous retrouvez dans le laboratoire"8D
asc "du Professeur. Il y a une porte en fer a"
asc "l"A7"ouest, porte au sud marque danger."00
str8140 asc "Il y a une douche. Un trou dans le sol."00
str8150 asc "Il y a un cube noir d"A7"au moins une"8D
asc "tonne, une echelle monte. Une porte a"8D
asc "l"A7"est."00
str8160 asc "Vous etes dans une bibliotheque."00
str8170 asc "Vous etes dans une soucoupe sur une"8D
asc "terrasse."00
strREPLAY asc 8D"Do you want to play again? "00
* "0123456789012345678901234567890123456789"
strREPLAY asc 8D"Voulez-vous rejouer ? "00
strGAGNE asc "This is exceptional, you are the first"8D8D
asc "to get out of this house alive, but"8D8D
asc "if I were you, I would start to flee"8D8D
asc "because a dwarf may be lurking around..."00
strGAGNE asc "Cela est exceptionnel. Vous etes le "8D8D
asc "premier a etre sorti vivant de la"8D8D
asc "maison du Professeur Folibus"00
*-----------------------------------
* 40000 - LISTE DES INSTRUCTIONS
*-----------------------------------
strINSTR asc 8D"Do you want to know how to play? "00
strINSTR asc 8D"La liste des instructions ? "00
strINSTR2 asc 8D8D
asc "You have arrived in the mansion of"8D
asc " Dr Genius..."8D
asc "Vous voici arrive dans la maison du"8D
asc " Pr Folibus..."8D
asc 8D
asc "To converse with the computer, you"8D
asc "must enter orders in 1 or 2 words"8D
asc "such as"8D
asc " NORTH"8D
asc " TAKE PILL"8D
asc "Pour converser avec l"A7"ordinateur, il"8D
asc "faut rentrer les ordres en 1 ou 2 mots"8D
asc "tels que :"8D
asc " NORD"8D
asc " PRENDS PILULE"8D
asc 8D
asc "or to start:"8D
asc " ENTER"8D
asc "ou pour commencer :"8D
asc " ENTRE"8D
asc 8D8D
asc "If you want to make the sentence"8D
asc "describing the room last, type a key"8D
asc "Si vous voulez faire durer la phrase"8D
asc "decrivant la salle, tapez une touche"8D
asc 8D
asc "One last advice: sometimes, there may"8D
asc "be a door behind you. "00
asc "Un dernier conseil : il peut parfois y"8D
asc "avoir une porte derriere vous. "00
*-----------------------------------
* 51000 - DISCLAIMER
*-----------------------------------
strDISCLAIMER
asc "The use of this program is not"8D8D
asc "recommended to sensitive people,"8D8D
asc "young children, as well as"8D8D
asc "anyone who have heart diseases."8D8D
asc "L"A7"utilisation de ce programme est"8D8D
asc "deconseillee aux personnes sensibles,"8D8D
asc "aux enfants en bas age, ainsi qu"A7"a"8D8D
asc "tout personne susceptible d"A7"avoir"8D8D
asc "des malaises cardiaques."8D8D
asc 8D8D
asc "We cannot be held responsible for any"8D8D
asc "physical or mental disorder caused"8D8D
asc "by your failure in"8D8D
asc "The Manor of Dr Genius ............."00
asc "Nous ne pourrions etre tenus responsa-"8D8D
asc "-bles des troubles physiques ou mentaux"8D8D
asc "provoques par votre echec dans"8D8D
asc "la maison du Pr Folibus ............."00
*-----------------------------------
* introPIC - la picture GR
*-----------------------------------
strLORICIELS
asc " LORICIELS is proud to present: "00
asc "MICRO-SYSTEMES est fier de presenter"00
strLEMANOIR
asc " @@@ @ @ @@@ @ @ @@@ @ @ @@@ @@@"8D
asc " @ @ @ @ @@ @@ @ @ @@ @ @ @ @ @"8D
asc " @ @@@ @@ @ @ @ @@@ @@@@ @ @ @@@"8D
asc " @ @ @ @ @ @ @ @ @ @@ @ @ @@"8D
asc " @ @ @ @@@ @ @ @ @ @ @ @@@ @ @"8D
asc " @ @ @ @ @@@ @ @@@ @@@ @ @"8D
asc " @ @ @ @@ @@ @ @ @ @ @ @ @@ @"8D
asc " @ @@@ @ @ @ @@@ @ @@@ @ @ @@@@"8D
asc " @ @ @ @ @ @ @ @ @ @ @ @ @@"8D
asc " @@@ @ @ @ @ @ @ @ @@@ @@@ @ @@"8D
asc 8D
asc " @@@ @@@ @@"8D
asc " @ @ @ @ @ @"8D
asc " @ @ @@ @ @ @@"8D
asc " @ @ @ @ @ @ @"8D
asc " @@@ @ @@@ @"8D
asc " @@ @ @ @@@"8D
asc " @ @ @ @ @ @ @"8D
asc " @ @ @ @ @@@ @@"8D
asc " @ @ @ @ @ @ @"8D
asc " @@@ @@@ @ @"8D
asc 8D8D
asc " @@@@ @@@@ @@ @ @ @ @ @@@@"8D
asc " @ @ @ @@ @ @ @ @ @"8D
asc " @ @ @@@ @ @ @ @ @"8D
asc " @ @@@ @ @ @ @ @ @ @@@@"8D
asc " @ @@ @ @ @@@ @ @ @ @"8D
asc " @ @ @ @ @@ @ @ @ @"8D
asc " @@@@ @@@@ @ @@ @ @@@@ @@@@ @ @"00
asc " @@@ @@@ @ @ @@@ @ @ @@@"8D
asc " @ @ @ @ @ @ @ @ @ @"8D
asc " @ @ @ @ @ @ @ @ @ @"8D
asc " @@@ @ @ @ @ @@@ @ @ @@@"8D
asc " @ @ @ @ @ @ @ @ @ @"8D
asc " @ @ @ @ @ @ @ @ @ @"8D
asc " @ @@@ @@@ @ @@@ @@@@ @@@ @ @"00
strINTRO1 asc " Apple II version by "00
strINTRO1 asc " Version Apple II par "00
strINTRO2 asc " Brutal Deluxe Software "00
strINTRO3 asc " Thanks Fred_72 "00
strINTRO4 asc "(C) 1983, L. BENES & LORICIELS"00
strINTRO3 asc " Merci a XavSnap "00
strINTRO4 asc " (C) 1982, Alain Bregeon "00
*-----------------------------------
* VOCABULAIRE
*-----------------------------------
V$1 str "N"
V$2 str "NORTH"
V$3 str "S"
V$4 str "SOUTH"
V$5 str "E"
V$6 str "EAST"
V$7 str "W"
V$8 str "WEST"
V$9 str "UP" ; MONTER
V$10 str "CLIM" ; MONTER
V$11 str "DOWN" ; DESCENDRE
V$12 str "TAKE" ; PRENDRE
V$13 str "PICK" ; RAMASSER
V$14 str "DROP" ; POSER
V$15 str "OPEN" ; OUVRIR
V$16 str "CLOS" ; FERMER
V$17 str "ENTE" ; ENTRER
V$18 str "MOVE" ; AVANCER
V$19 str "LIGH" ; ALLUMER
V$20 str "EXTI" ; ETEINDRE
V$21 str "REPA" ; REPARER
V$22 str "DEPA" ; DEPANNER
V$23 str "READ" ; LIS (LIRE)
V$24 str "LOOK" ; REGARDER
V$25 str "TURN" ; RETOURNER
V$26 str "SNIF" ; RENIFLER
V$27 str "SMEL" ; SENS (SENTIR)
V$28 str "FILL" ; REMPLIT
V$29 str "EMPT" ; VIDER
V$30 str "INVE" ; INVENTAIRE
V$31 str "LIST" ; LISTE
V$32 str "NOTH" ; RIEN
V$33 str "WARN" ; ATTENTION
V$34 str "DAGG" ; POIGNARD
V$35 str "KNIF" ; COUTEAU
V$36 str "SCRE" ; TOURNEVIE
V$37 str "LAMP" ; LAMPE
V$38 str "CODE" ; CODE
V$39 str "STAI" ; ESCALIER
V$40 str "GUN" ; PISTOLET
V$41 str "CLOS" ; PLACARD
V$42 str "TORC" ; TORCHE
V$43 str "TELE" ; TELEPORTEUR
V$44 str "MONS" ; MONSTRE
V$45 str "OIL" ; PETROLE
V$46 str "POT" ; POT
V$47 str "BED" ; LIT
V$48 str "KEY" ; CLEF
V$49 str "PAPE" ; PAPIER
V$50 str "BOOK" ; LIVRE
V$51 str "LIGH" ; BRIQUET
V$52 str "SUIT" ; COMBINAISON
V$53 str "CHES" ; COFFRE
V$54 str "RED" ; ROUGE
V$55 str "BLUE" ; BLEU
V$56 str "GREE" ; VERT
V$57 str "TITL" ; TITRE
V$58 str "TAP" ; ROBINET
V$59 str "SCIS" ; CISEAU
V$60 str "CARR" ; PORTER
V$61 str "ENAB" ; ACTIVER
V$62 str "THRO" ; JETER
V$63 str "THRO" ; LANCER
V$64 str "WAT" ; EAU
V$65 str "WEAR" ; ENFILER
V$66 str "PASS" ; PASSER
V$67 str "PRES" ; APPUYER
V$68 str "BURY" ; ENFOUIR
V$69 str "REMO" ; ENLEVER
V$70 str "RETU" ; RENTRER
V$71 str "TEMPO" ; TEMPO - Apple II
V$72 str "QUIT" ; QUITTER - Apple II
V$73 str "CASE" ; CASSE - Apple II
V$2 str "NORD"
V$3 str "E"
V$4 str "EST"
V$5 str "S"
V$6 str "SUD"
V$7 str "O"
V$8 str "OUES"
V$9 str "H"
V$10 str "MONT"
V$11 str "D"
V$12 str "DESC"
V$13 str "ENTR"
V$14 str "AVAN"
V$15 str "HAUT"
V$16 str "BAS"
V$17 str "LIT"
V$18 str "REGA"
V$19 str "TOUR"
V$20 str "RETO"
V$21 str "PREN"
V$22 str "RAMA"
V$23 str "PAPI"
V$24 str "ALLU"
V$25 str "BOUG"
V$26 str "APPU"
V$27 str "ENFO"
V$28 str "VERT"
V$29 str "ROUG"
V$30 str "OUTI"
V$31 str "OUVR"
V$32 str "DOUC"
V$33 str "PLAC"
V$34 str "PORT"
V$35 str "ASCE"
V$36 str "BRIQ"
V$37 str "REPA"
V$38 str "DEPA"
V$39 str "RIEN"
V$40 str "MACH"
V$41 str "POSE"
V$42 str "QUIT"
V$43 str "DECR"
V$44 str "INVE"
V$45 str "CLEF"
V$46 str "FILS"
V$47 str "CORD"
V$48 str "FENE"
V$49 str "ACCR"
V$50 str "SAUT"
V$51 str "ATTA"
V$52 str "SORT"
V$53 str "FERM"
V$54 str "CECI"
V$55 str "ATTE"
V$56 str "TAPE"
V$57 str "FRAP"
V$58 str "PASS"
V$59 str "AVEN"
V$60 str "PRES"
V$61 str "MET"
V$62 str "AVAL"
V$63 str "GANT"
V$64 str "K"
V$65 str "Q"
V$66 str "Z"
V$67 str "ENFI"
V$68 str "LASE"
V$69 str "PIST"
V$70 str "LIVR"
V$71 str "DEMA"
V$72 str "PILO"
V$73 str "TEMPO" ; Apple II
V$74 str "QUITTER" ; Apple II
V$75 str "CASSE" ; Apple II
*-----------------------------------
* OBJETS
*-----------------------------------
O$1 asc "an electric torch"00
O$2 asc "a tap"00
O$3 asc "scissors"00
O$4 asc "a screwdriver"00
O$5 asc "an oil lamp"00
O$6 asc "a full lamp"00
O$7 asc "a lighted lamp"00
O$8 asc "a knife"00
O$9 asc "a paper"00
O$10 asc "a book"00
O$11 asc "oil in a clogged sink"00
O$12 asc "a key"00
O$13 asc "a red button"00
O$14 asc "a blue button"00
O$15 asc "a green button"00
O$16 asc "a teleporter"00
O$17 asc "a repaired teleporter"00
O$18 asc "a silver suit"00
O$19 asc "a coated suit"00
O$20 asc "a monster to the east"00
O$21 asc "a gun"00
O$22 asc "a lighter"00
O$23 asc "a lighted lighter"00
O$24 asc "a pot"00
O$25 asc "a pot full of water"00
O$1 asc "briquet"00
O$2 asc "briquet allume"00
O$3 asc "bougie"00
O$4 asc "bougie allumee"00
O$5 asc "placard"00
O$6 asc "outils"00
O$7 asc "papier"00
O$8 asc "fils arraches"00
O$9 asc "fils repares"00
O$10 asc "une corde"00
O$11 asc "gants caoutchouc"00
O$12 asc "gants enfiles"00
O$13 asc "pilule K"00
O$14 asc "pilule K avalee"00
O$15 asc "pilule Z"00
O$16 asc "pilule Z avalee"00
O$17 asc "pilule Q"00
O$18 asc "pilule Q avalee"00
O$19 asc "pistolet laser"00
O$20 asc "livre"00
*-----------------------------------
* STRINGS
*-----------------------------------
strILFAITNOIR
asc "It is very dark, perhaps you should"8D
asc "turn on the lights"00
* asc "1234567890123456789012345678901234567890"
strILYA asc 8D"The room contains:"00
strILFAITNOIR
asc "On n"A7"y voit rien, mieux vaudrait allumer"
asc "pour eviter les ennuis."00
strILYA asc 8D"Il y a aussi :"00
strCOMMA asc ","00
strSPACE asc " "00
strRETURN asc 8D00
strCOMMANDE
asc 8D"Command? "00
asc 8D"Que faites-vous ? "00
strJENECOMPRENDS
asc 8D"I do not understand..."00
asc "Pardon ?"8D00
strIMPOSSIBLE
asc 8D"Not possible "00
asc "Impossible "00
strCECHEMIN
asc "to take this path"00
asc "de prendre ce chemin"00
strEXCLAM
asc " !"00

2720
folibus/en/prfolibus.s
View File

File diff suppressed because it is too large Load Diff

33
folibus/en/solution_en.txt Normal file
View File

@ -0,0 +1,33 @@
Solution de la maison du Professeur Folibus
ENTER
WEST
TAKE PAPER
TAKE KEY
W
N
OPEN CLOSET
TAKE TOOLS
REPAIR MACHINERY
S
PUSH RED
N
N
UP
NOTHING
EXIT
N
THIS
PUSH PRESENT
S
E
TAKE GLOVES
WEAR GLOVES
W
N
TAKE K
SWALLOW K
TAKE Z
SWALLOW Z
W
DOWN

2
folibus/fr/_FileInformation.txt
View File

@ -1 +1 @@
prfolibus=Type(00),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
prfolibus=Type(06),AuxType(4000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)

137
folibus/fr/fr.s
View File

@ -41,69 +41,71 @@ strDACCORD
* 7000 - LES REPONSES
*-----------------------------------
str7000 asc "La generatrice vient d"A7"exploser. La"8D
str7010 asc "La generatrice vient d"A7"exploser. La"8D
asc "maison n"A7"existe plus, vous non plus."00
str7010 asc "L"A7"ascenseur ne bouge pas. Il faudrait"8D
str7020 asc "L"A7"ascenseur ne bouge pas. Il faudrait"8D
asc "peut-etre du courant ?"00
str7020 asc "La porte vient de se fermer. Impossible"8D
str7030 asc "La porte vient de se fermer. Impossible"8D
asc "de l"A7"ouvrir..."00
str7030 asc "Vous avez raison. La curiosite est un"8D
str7040 asc "Vous avez raison. La curiosite est un"8D
asc "vilain defaut..."00
str7040 asc "L"A7"odeur que vous sentiez etait celle d"A78D
str7050 asc "L"A7"odeur que vous sentiez etait celle d"A78D
asc "un gaz explosif. Vous etes mort."00
str7050 asc "Il faudrait peut-etre du feu..."00
str7060 asc "Ah, ah... Vous etes prisonnier"00
str7070 asc "Vous avez dit papier ? Quel papier ?"00
str7080 asc "Bravez les interdits."00
str7090 asc "Elle a l"A7"air de s"A7"emballer..."00
str7100 asc "La generatrice se met en marche"00
str7110 asc "Impossible, elle ne veut rien savoir"00
str7120 asc "Bravo, je ne savais pas que vous aviez"8D
str7060 asc "Il faudrait peut-etre du feu..."00
str7070 asc "Ah, ah... Vous etes prisonnier"00
str7080 asc "Vous avez dit papier ? Quel papier ?"00
str7090 asc "Bravez les interdits."00
str7100 asc "Elle a l"A7"air de s"A7"emballer..."00
str7110 asc "La generatrice se met en marche"00
str7120 asc "Impossible, elle ne veut rien savoir"00
str7130 asc "Bravo, je ne savais pas que vous aviez"8D
asc "des dons d"A7"electricien."00
str7130 asc "Votre machine est reparee. Mais elle"8D
str7140 asc "Votre machine est reparee. Mais elle"8D
asc "sent le chaud."00
str7140 asc "La machine est reparee. Dommage qu"A7"il"8D
str7150 asc "La machine est reparee. Dommage qu"A7"il"8D
asc "n"A7"y ait pas de courant."00
str7150 asc "Il faudrait peut-etre des outils."00
str7160 asc "L"A7"ascenseur semble monter..."00
str7170 asc "L"A7"ascenseur ne bouge pas"00
str7180 asc "Le cable vient de casser. Vous vous"8D
str7160 asc "Il faudrait peut-etre des outils."00
str7170 asc "L"A7"ascenseur semble monter..."00
str7180 asc "L"A7"ascenseur ne bouge pas"00
str7190 asc "Le cable vient de casser. Vous vous"8D
asc "ecrasez en bas : mort"00
str7190 asc "Il faut noir. Il faut allumer"00
str7200 asc "Vous vous ecrasez au sol"00
str7210 asc "Il y a une clef."00
str7220 asc "La porte est fermee a clef"00
str7230 asc "Tiens, la porte du placard se referme."00
str7240 asc "La generatrice vient d"A7"exploser,"8D
asc "l"A7"ascenseur est detruit. Vous en echap-"8D
asc "-pez de justesse"8D00
str7250 asc "Vous etes mort electrocute"00
str7260 asc "Vous avez raison, rien ne sert de courir"00
str7270 asc "Dehors il fait noir, on ne voit pas le"8D
str7200 asc "Il faut noir. Il faudrait allumer"00
str7210 asc "Vous vous ecrasez au sol"00
str7220 asc "Il y a une clef."00
str7230 asc "La porte est fermee a clef"00
str7240 asc "Tiens, la porte du placard se referme."8D00
str7250 asc "La generatrice vient d"A7"exploser,"8D
asc "l"A7"ascenseur est detruit. Vous en"8D
asc "rechappez de justesse"8D00
str7260 asc "Vous etes mort electrocute"00
str7270 asc "Vous avez raison, rien ne sert de courir"
asc "Une fumee monte du sol. Il faut sortir"8D
asc "quand meme."00
str7280 asc "Dehors il fait noir, on ne voit pas le"8D
asc "sol."00
str7280 asc "C"A7"est deja fait."00
str7290 asc "Vous etes au bout de la corde."00
str7300 asc "Vraiment pas au point cette machine."8D
str7290 asc "C"A7"est deja fait."00
str7300 asc "Vous etes au bout de la corde."00
str7310 asc "Vraiment pas au point cette machine."8D
asc "Vous etes mort"00
str7310 asc "Il faudrait peut-etre ouvrir la fenetre."00
str7320 asc "Tant pis. On a essaye."00
str7330 asc "Bravo, quel trait de genie."00
str7340 asc "Une trappe s"A7"ouvre sous vos pieds."8D
str7320 asc "Il faudrait peut-etre ouvrir la fenetre."00
str7330 asc "Tant pis. On a essaye."00
str7340 asc "Bravo, quel trait de genie."00
str7350 asc "Une trappe s"A7"ouvre sous vos pieds."8D
asc "Vous etes mort."00
str7350 asc "Sage precaution."00
str7360 asc "C"A7"est du poison. Vous etes mort."00
str7370 asc "Vous apprenez a piloter une soucoupe en"8D
str7360 asc "Sage precaution."00
str7370 asc "C"A7"est du poison. Vous etes mort."00
str7380 asc "Vous apprenez a piloter une soucoupe en"8D
asc "une lecon"00
str7380 asc "Ca ne se pilote pas comme ca"00
str7390 asc "C"A7"est de l"A7"acide. Vous etes mort."00
str7400 asc "Il y a de l"A7"eau. Vous vous noyez"00
str7410 asc "Ouf, vous vous retrouvez dehors.."00
str7420 asc "Sain et sauf..."00
str7430 asc "Ca marche... Mais il n"A7"y avait pas assez"
str7390 asc "Ca ne se pilote pas comme ca"00
str7400 asc "C"A7"est de l"A7"acide. Vous etes mort."00
str7410 asc "Il y a de l"A7"eau. Vous vous noyez"00
str7420 asc "Ouf, vous vous retrouvez dehors.."00
str7430 asc "Sain et sauf..."00
str7440 asc "Ca marche... Mais il n"A7"y avait pas assez"
asc "de carburant"00
str7440 asc "Mais. Vous etes tout bleu, ce doit etre"8D
str7450 asc "Mais. Vous etes tout bleu, ce doit etre"8D
asc "les pilules"00
str7450 asc "Et irradie. Vous mourez au bout de"8D
str7460 asc "Et irradie. Vous mourez au bout de"8D
asc "quelques jours"00
*-----------------------------------
@ -114,39 +116,39 @@ str7450 asc "Et irradie. Vous mourez au bout de"8D
* "0123456789012345678901234567890123456789"
* "----------------------------------------"
str8000 asc "Vous etes devant une maison, la porte"8D
str8010 asc "Vous etes devant une maison, la porte"8D
asc "est ouverte."00
str8010 asc "Vous etes dans un couloir. Il y a une"8D
str8020 asc "Vous etes dans un couloir. Il y a une"8D
asc "porte a l"A7"est et une porte a l"A7"ouest."00
str8020 asc "Vous etes dans un salon. Il y a une"8D
str8030 asc "Vous etes dans un salon. Il y a une"8D
asc "porte a l"A7"ouest."00
str8030 asc "Il y a une drole d"A7"odeur."00
str8040 asc "Il y a une grosse machine qui ressemble"8D
str8040 asc "Il y a une drole d"A7"odeur."00
str8050 asc "Il y a une grosse machine qui ressemble"8D
asc "a 1 generatrice avec un bouton vert, un"8D
asc "bouton rouge. Il y a une porte au nord."00
str8050 asc "Une machinerie d"A7"ascenseur. Une porte"8D
str8060 asc "Une machinerie d"A7"ascenseur. Une porte"8D
asc "au nord."00
str8060 asc "Il y a plein de materiel."00
str8070 asc "Vous etes dans un ascenseur. Il y a un"8D
asc "bouton haut, un bouton bas."00
str8080 asc "L"A7"ascenseur vient de s"A7"arreter."00
str8090 asc "La piece est humide, il y a des fils qui"
str8070 asc "Il y a plein de materiel."00
str8080 asc "Vous etes dans un ascenseur. Il y a un"8D
asc "bouton monter, un bouton descendre."00
str8090 asc "L"A7"ascenseur vient de s"A7"arreter."00
str8100 asc "La piece est humide, il y a des fils qui"
asc "trainent par terre. Il y a une fenetre"8D
asc "et une porte au nord."00
str8100 asc "La porte vient de se refermer. Bonjour.."
str8110 asc "La porte vient de se refermer. Bonjour.."
asc "Comment ecrivez-vous ceci en 4 lettres ?"00
str8110 asc "Vous etes dans une machine a remonter le"
str8120 asc "Vous etes dans une machine a remonter le"
asc "temps. Trois boutons : passe, present et"
asc "avenir."00
str8120 asc "Vous vous retrouvez dans le laboratoire"8D
str8130 asc "Vous vous retrouvez dans le laboratoire"8D
asc "du Professeur. Il y a une porte en fer a"
asc "l"A7"ouest, porte au sud marque danger."00
str8130 asc "Il y a une douche. Un trou dans le sol."00
str8140 asc "Il y a un cube noir d"A7"au moins une"8D
str8140 asc "Il y a une douche. Un trou dans le sol."00
str8150 asc "Il y a un cube noir d"A7"au moins une"8D
asc "tonne, une echelle monte. Une porte a"8D
asc "l"A7"est."00
str8150 asc "Vous etes dans une bibliotheque."00
str8160 asc "Vous etes dans une soucoupe sur une"8D
str8160 asc "Vous etes dans une bibliotheque."00
str8170 asc "Vous etes dans une soucoupe sur une"8D
asc "terrasse."00
strREPLAY asc 8D"Voulez-vous rejouer ? "00
@ -226,7 +228,8 @@ strLEMANOIR
strINTRO1 asc " Version Apple II par "00
strINTRO2 asc " Brutal Deluxe Software "00
strINTRO3 asc " (C) 1982, Alain Bregeon "00
strINTRO3 asc " Merci a XavSnap "00
strINTRO4 asc " (C) 1982, Alain Bregeon "00
*-----------------------------------
* VOCABULAIRE

BIN
folibus/fr/prfolibus
View File

Binary file not shown.

315
folibus/fr/prfolibus.s
View File

@ -124,17 +124,20 @@ REPLAY
:110 ldx #2
lda C,x
bmi :120
beq :120
dec C,x
:120 ldx #3
lda S,x
bne :200
cmp #1
bcs :200
@print #strILFAITNOIR
ldx #3
lda C,x
bmi :150
beq :150
dec C,x
@ -160,12 +163,12 @@ REPLAY
sta H
sta HH ; for comma
lda #1
sta N
sta X
:310 ldx N
:310 ldx X
lda O,x
cmp SALLE
bne :400
bne :500
lda H
bne :350
@ -175,12 +178,12 @@ REPLAY
inc H
:350 lda HH
beq :360
beq :400
@print #strCOMMA
:360 @print #strSPACE
lda N
:400 @print #strSPACE
lda X
asl
tax
ldy tblO$,x
@ -190,8 +193,8 @@ REPLAY
inc HH
:400 inc N
lda N
:500 inc X
lda X
cmp #nbO ; la constante 25
bcc :310
beq :310
@ -204,17 +207,19 @@ REPLAY
:1000 lda #1
sta T
lda #0
sta N
* lda #0
* sta N
jmp :2000
:1100 ldx #1
lda C,x
bmi :1110
beq :1110
dec C,x
:1110 ldx #4
lda C,x
bmi :1120
beq :1120
dec C,x
@ -280,7 +285,7 @@ REPLAY
:1900 lda #0
sta T
sta CORRESP
sta XXO
*-----------------------------------
* 2000 - CONTROLE
@ -317,7 +322,7 @@ REPLAY
bcc :2400
beq :2400
lda CORRESP
lda XXO
beq :2320
jmp :1000
@ -333,8 +338,6 @@ REPLAY
jmp :100
:2400 lda CP
sec
sbc #1
asl
tax
lda tblA,x
@ -352,6 +355,12 @@ REPLAY
:2420 cpy #2
bne :2430
jmp :2100
*:2410 lda tblA+1,x
* beq :2430
* cmp MO$2
* beq :2430
* jmp :2100
:2430 lda tblA$,x
sta LINNUM
@ -409,7 +418,6 @@ REPLAY
lda tbl2900+1,x
sta :2800+2
ldy #1 ; pour OK si condition vŽrifiŽe
:2800 jsr $bdbd
lda OK
@ -431,7 +439,8 @@ tbl2900 da :2900,:2910,:2920,:2930,:2940,:2950,:2960,:2970
:2900 lda N
cmp SALLE
bne :2905
sty OK
lda #1
sta OK
:2905 rts
*-------- B, si l'objet N est present ou transporte
@ -441,7 +450,8 @@ tbl2900 da :2900,:2910,:2920,:2930,:2940,:2950,:2960,:2970
bmi :2915
cmp SALLE
bne :2916
:2915 sty OK
:2915 lda #1
sta OK
:2916 rts
*-------- C, si l'objet N est present ou non transporte
@ -453,7 +463,8 @@ tbl2900 da :2900,:2910,:2920,:2930,:2940,:2950,:2960,:2970
:2925 cmp SALLE
bne :2927
rts
:2927 sty OK
:2927 lda #1
sta OK
rts
*-------- D, si l'objet N est transporte
@ -461,15 +472,17 @@ tbl2900 da :2900,:2910,:2920,:2930,:2940,:2950,:2960,:2970
:2930 ldx N
lda O,x
bpl :2935
sty OK
lda #1
sta OK
:2935 rts
*-------- E, si le pointeur N est active
:2940 ldx N
lda S,x
* beq :2945
sty OK
beq :2945
lda #1
sta OK
:2945 rts
*-------- F, si le pointeur n'est pas active
@ -477,7 +490,8 @@ tbl2900 da :2900,:2910,:2920,:2930,:2940,:2950,:2960,:2970
:2950 ldx N
lda S,x
bne :2955
sty OK
lda #1
sta OK
:2955 rts
*-------- G, si le compteur a atteint la valeur 1
@ -486,7 +500,8 @@ tbl2900 da :2900,:2910,:2920,:2930,:2940,:2950,:2960,:2970
lda C,x
cmp #1
bne :2965
sty OK
lda #1
sta OK
:2965 rts
*-------- H, si le nombre aleatoire (1-99) est inferieur a N
@ -495,18 +510,19 @@ tbl2900 da :2900,:2910,:2920,:2930,:2940,:2950,:2960,:2970
eor VERTCNT
cmp N
bcs :2975
sty OK
lda #1
sta OK
:2975 rts
*-----------------------------------
* 3000 - ACTIONS
*-----------------------------------
:3000 inc E
lda #1
sta CORRESP
:3000 lda #1
sta XXO
inc E
:3100 ldx E
lda E$,x
cmp #"."
@ -515,10 +531,17 @@ tbl2900 da :2900,:2910,:2920,:2930,:2940,:2950,:2960,:2970
:3120 sec
sbc #"A"
asl
cmp #20
bcc :3125
lda #-1 ; erreur de donnŽes
pha
bne :3130
:3125 asl
pha ; TYPE
lda E$+1,x
:3130 lda E$+1,x
cmp #"."
beq :3200
@ -539,6 +562,9 @@ tbl2900 da :2900,:2910,:2920,:2930,:2940,:2950,:2960,:2970
sta BREAK
pla
cmp #-1 ; saute si erreur de donnŽes
beq :3215
tax
lda tbl4000,x
sta :3210+1
@ -547,7 +573,7 @@ tbl2900 da :2900,:2910,:2920,:2930,:2940,:2950,:2960,:2970
:3210 jsr $bdbd
lda BREAK
:3215 lda BREAK
beq :3230
asl
tax
@ -570,15 +596,69 @@ tblBRKA da $bdbd
da :100,:1000,:1100
*-----------------------------------
* 1800
* 1800 - ACTIONS
*-----------------------------------
tbl4000 da :4000,:4100,:4200,:4300,:4400,:4500,:4600,:4700,:4800,:4900
da :5000,:5100,:5200,:5300,:5400,:5500,:5600,:5700,:4100
da :5000,:5100,:5200,:5300,:5400,:5500,:5600,:4000,:4100,:5600
*-------- A, si nous sommes dans la salle N
*-------- A, INVENTAIRE
:4000 rts
:4000 lda #0
sta G
sta HH
sta H ; for comma
:4010 inc G
lda G
tax
lda O,x
cmp #-1
beq :4040
lda G
cmp #nbO
bcc :4010
bcs :4070
:4040 lda HH
bne :4050
@print #strVOUSDETENEZ
:4050 inc HH
lda H
beq :4060
@print #strCOMMA
:4060 lda G
asl
tax
ldy tblO$,x
lda tblO$+1,x
tax
jsr printCSTRING
@print #strSPACE
inc H
lda G
cmp #V
bcc :4010
:4070 lda HH
beq :4080
@print #strPOINT
rts
:4080 @print #strVOUSRIEN
lda #1
sta BREAK
rts
*-------- B, transportes objets N
@ -629,8 +709,7 @@ tbl4000 da :4000,:4100,:4200,:4300,:4400,:4500,:4600,:4700,:4800,:4900
*-------- D, affiche le message en 7000+N*10
:4300
@print #strRETURN
:4300 @print #strRETURN
lda N
asl
@ -658,32 +737,20 @@ tbl4000 da :4000,:4100,:4200,:4300,:4400,:4500,:4600,:4700,:4800,:4900
*-------- G, fixe le compteur N ˆ M
:4600 lda N
:4600 ldx E
lda E$+3,x
sec
sbc #1
asl
tax
lda tblA$,x
sta LINNUM
lda tblA$+1,x
sta LINNUM+1
ldy E ; +2
sbc #"0"
tay
lda tblD2H,y
ldx N
sta C,x
ldy E
lda E$+4,y
iny
iny
sty E
iny ; +3
lda (LINNUM),y
sec
sbc #"0"
tax
lda tblD2H,x
ldx N
sta C,x
iny
lda (LINNUM),y
sec
sbc #"0"
clc
@ -769,7 +836,7 @@ tbl4000 da :4000,:4100,:4200,:4300,:4400,:4500,:4600,:4700,:4800,:4900
:5600 jmp :20000
*-------- R, inventaire
*-------- R, inventaire sans le BREAK
:5700 lda #0
sta G
@ -822,13 +889,8 @@ tbl4000 da :4000,:4100,:4200,:4300,:4400,:4500,:4600,:4700,:4800,:4900
rts
:5780 @print #strVOUSRIEN
lda #1
sta BREAK
rts
*-------- S, prendre un objet => :4100
*-----------------------------------
* 6000 - ANALYSE DU MOT
*-----------------------------------
@ -971,7 +1033,7 @@ tbl4000 da :4000,:4100,:4200,:4300,:4400,:4500,:4600,:4700,:4800,:4900
cmp X$2,x
bne :6350
inx
cpx X$1
cpx X$2
bcc :6325
beq :6325
@ -990,34 +1052,32 @@ tbl4000 da :4000,:4100,:4200,:4300,:4400,:4500,:4600,:4700,:4800,:4900
* 7000 - LES REPONSES
*-----------------------------------
tbl7000 da :7000,:7010,:7020,:7030,:7040,:7050,:7060,:7070,:7080,:7090
da :7100,:7110,:7120,:7130,:7140,:7150,:7160,:7170,:7180,:7190
da :7200,:7210,:7220,:7230,:7240,:7250,:7260,:7270,:7280,:7290
da :7300,:7310,:7320,:7330,:7340,:7350,:7360,:7370,:7380,:7390
da :7400,:7410,:7420,:7430,:7440,:7450
tbl7000 da $bdbd
da :7010,:7020,:7030,:7040,:7050,:7060,:7070,:7080,:7090,:7100
da :7110,:7120,:7130,:7140,:7150,:7160,:7170,:7180,:7190,:7200
da :7210,:7220,:7230,:7240,:7250,:7260,:7270,:7280,:7290,:7300
da :7310,:7320,:7330,:7340,:7350,:7360,:7370,:7380,:7390,:7400
da :7410,:7420,:7430,:7440,:7450,:7460
*--------
:7000 @print #str7000
:7010 @print #str7010
@explode
rts ; jmp :20000
:7010 @print #str7010
rts
:7020 @print #str7020
rts
:7030 @print #str7030
@explode
rts ; jmp :20000
rts
:7040 @print #str7040
@explode
rts ; jmp :20000
:7050 @print #str7050
rts
@explode
rts ; jmp :20000
:7060 @print #str7060
rts
@ -1042,10 +1102,10 @@ tbl7000 da :7000,:7010,:7020,:7030,:7040,:7050,:7060,:7070,:7080,:7090
:7130 @print #str7130
rts
:7140 @print #str7140
rts
:7150 @print #str7150
rts
@ -1056,19 +1116,19 @@ tbl7000 da :7000,:7010,:7020,:7030,:7040,:7050,:7060,:7070,:7080,:7090
rts
:7180 @print #str7180
@explode
rts ; jmp :20000
rts
:7190 @print #str7190
rts
:7200 @print #str7200
@explode
rts ; jmp :20000
:7210 @print #str7210
:7200 @print #str7200
rts
:7210 @print #str7210
@explode
rts ; jmp :20000
:7220 @print #str7220
rts
@ -1079,11 +1139,11 @@ tbl7000 da :7000,:7010,:7020,:7030,:7040,:7050,:7060,:7070,:7080,:7090
rts
:7250 @print #str7250
@explode
rts ; jmp :20000
rts
:7260 @print #str7260
rts
@explode
rts ; jmp :20000
:7270 @print #str7270
rts
@ -1095,11 +1155,11 @@ tbl7000 da :7000,:7010,:7020,:7030,:7040,:7050,:7060,:7070,:7080,:7090
rts
:7300 @print #str7300
@explode
rts ; jmp :20000
rts
:7310 @print #str7310
rts
@explode
rts ; jmp :20000
:7320 @print #str7320
rts
@ -1108,36 +1168,36 @@ tbl7000 da :7000,:7010,:7020,:7030,:7040,:7050,:7060,:7070,:7080,:7090
rts
:7340 @print #str7340
@explode
rts ; jmp :20000
rts
:7350 @print #str7350
rts
:7360 @print #str7360
@explode
rts ; jmp :20000
:7370 @print #str7370
:7360 @print #str7360
rts
:7370 @print #str7370
@explode
rts ; jmp :20000
:7380 @print #str7380
rts
:7390 @print #str7390
rts
:7400 @print #str7400
@explode
rts ; jmp :20000
:7400 @print #str7400
:7410 @print #str7410
rts
:7410 @print #str7410
:7420 @print #str7420
@explode
rts ; jmp :32000
:7420 @print #str7420
rts
:7430 @print #str7430
rts
@ -1145,6 +1205,9 @@ tbl7000 da :7000,:7010,:7020,:7030,:7040,:7050,:7060,:7070,:7080,:7090
rts
:7450 @print #str7450
rts
:7460 @print #str7460
@explode
rts ; jmp :20000
@ -1154,7 +1217,6 @@ tbl7000 da :7000,:7010,:7020,:7030,:7040,:7050,:7060,:7070,:7080,:7090
tbl8000
da $bdbd
da :8000
da :8010
da :8020
da :8030
@ -1171,10 +1233,8 @@ tbl8000
da :8140
da :8150
da :8160
da :8170
:8000 @print #str8000
rts
:8010 @print #str8010
rts
@ -1223,6 +1283,9 @@ tbl8000
:8160 @print #str8160
rts
:8170 @print #str8170
rts
*-----------------------------------
* 8000 - CHARGEMENT VARIABLES
*-----------------------------------
@ -1230,7 +1293,7 @@ tbl8000
initALL
ldx #FIN_DATA-DEBUT_DATA-1
lda #0
]lp sta CORRESP,x
]lp sta XXO,x
dex
bpl ]lp
@ -1290,18 +1353,6 @@ proQUIT dfb 4
sauveCYA ds 1
*-----------------------------------
* 32000 - GAGNE
*-----------------------------------
:32000
@play #zikGAGNE
:32010
jsr HOME
@print #strGAGNE
jmp :20050
*-----------------------------------
* 40000 - LISTE DES INSTRUCTIONS
*-----------------------------------
@ -1363,6 +1414,11 @@ introPIC
@print #strINTRO3
@wait #300
lda #5
sta CH
@print #strINTRO4
@wait #300
@play #zikINTRODUCTION
rts
@ -1581,7 +1637,8 @@ M$17 dfb 06,15,00
AA = 92
tblA$ da A$1,A$2,A$3,A$4,A$5,A$6,A$7,A$8,A$9,A$10
tblA$ da $bdbd
da A$1,A$2,A$3,A$4,A$5,A$6,A$7,A$8,A$9,A$10
da A$11,A$12,A$13,A$14,A$15,A$16,A$17,A$18,A$19,A$20
da A$21,A$22,A$23,A$24,A$25,A$26,A$27,A$28,A$29,A$30
da A$31,A$32,A$33,A$34,A$35,A$36,A$37,A$38,A$39,A$40
@ -1685,7 +1742,8 @@ A$90 str "A14E08E05F06.D42D43D45Q."
A$91 str "A14E08F05E06.D42D46Q."
A$92 str ".N."
tblA dfb 07,00
tblA dfb 0,0
dfb 07,00
dfb 30,00
dfb 15,28
dfb 15,18
@ -1776,7 +1834,7 @@ tblA dfb 07,00
dfb 06,00
dfb 06,00
dfb 06,00
dfb 00,00 ; 93 is ".N."
dfb 00,00 ; 92 is ".N."
*--- On commence ˆ index 0
@ -1804,7 +1862,7 @@ C$13 str ".N."
DEBUT_DATA
CORRESP ds 1
XXO ds 1
BREAK ds 1
E ds 1
F1 ds 1
@ -1820,15 +1878,16 @@ CP ds 1
OK ds 1
SALLE ds 1
T ds 1
X ds 1
W ds 1
Z ds 1
lenSTRING ds 1
C ds 5+1
E$ ds 32 ; the longest string
C ds 10+1
S ds 10+1 ; was P in Le manoir
X$1 ds 4+1 ; premier mot saisi
X$2 ds 4+1 ; second mot saisi
E$ ds 32 ; the longest string
FIN_DATA

6420
folibus/fr/prfolibus_Output.txt
View File

File diff suppressed because it is too large Load Diff

BIN
folibus/lamaisonduprfolibus_fr.po
View File

Binary file not shown.

4
labellezohra/sources/data.s
View File

@ -164,13 +164,13 @@ peche_yy dw 199,199,199,199,199,199,199
*---
bloc_texte ds 2000
bloc_texte ds 2000
mot ds 128
*---
paragraphe ds nombre_paragraphes ; INDEX DE DES DEBUTS DES PARAGRAPHES
pointeur_paragraphes ds 2
pointeur_paragraphes ds 2
paragraphes_lus ds 2
reference_objet ds nombre_paragraphes ; NUMERO DE L'OBJET ASSOCIE A CHAQUE PARAGRAPHE
reference_peche ds nombre_paragraphes ; NUMERO DU PECHE ASSOCIE A CHAQUE PARAGRAPHE

136
labellezohra/sources/game.s
View File

@ -327,6 +327,89 @@ iconToSourceRect
iconToDestPoint
dw 3,0
*-----------------------
* GESTION DES OBJETS
*-----------------------
test_objet
lda #0 ; from 1
]lp pha
asl
asl
asl
tax
lda taskWHERE+2 ; compare le X
cmp objet_x,x
bcc objet_ko
lda objet_xx,x
cmp taskWHERE+2
bcc objet_ko
lda taskWHERE ; et le Y
cmp objet_y,x
bcc objet_ko
lda objet_yy,x
cmp taskWHERE
bcc objet_ko
pla ; on a notre ic™ne
inc
* sta instruction2
rts
objet_ko
pla
inc
cmp #nombre_objets ; et non plus nombre_objets
bcc ]lp
rts
*---
efface_objet ; X is object
cpx #0
beq eo1
jsr set_objet
_HideCursor
PushLong #iconParamPtr
_PaintPixels
_ShowCursor
eo1 rts
*---
affiche_objet ; X is object
cpx #0
beq ao1
jsr set_objet
_HideCursor
PushLong #fondParamPtr
_PaintPixels
_ShowCursor
ao1 rts
*---
set_objet txa
dec
asl
asl
asl ; because we are 16-bit
tax
lda objet_y,x
sta iconToSourceRect
sta iconToDestPoint
lda icon_x,x
sta iconToSourceRect+2
sta iconToDestPoint+2
lda icon_yy,x
sta iconToSourceRect+4
lda icon_xx,x
sta iconToSourceRect+6
rts
*-----------------------
* set_language
*-----------------------
@ -440,10 +523,61 @@ teste_fin lda paragraphes_lus
tf_99 rts
*-----------------------
*
* DEMANDE_OBJET
*-----------------------
demande_objet
ldx #1
]lp lda reference_peche-1,x
and #$ff
cmp #8
beq do_1
lda paragraphe_lu-1,x
and #$ff
cmp #FALSE
bne do_1
lda indicateur_paragraphes_prealables-1,x
and #$ff
tay
lda indicateur-1,y
and #$ff
cmp #TRUE
bne do_1
lda reference_objet-1,x
and #$ff
tay
sep #$20
lda #TRUE
sta icone_objets-1,y
do_1 inx
cpx pointeur_paragraphes
bcc ]lp
beq ]lp
*-------- Affichage des objets
ldx #1
]lp phx
lda icone_objets-1,x
and #$ff
cmp #TRUE
bne do_2
jsr affiche_objet
do_2 plx
inx
cpx #nombre_objets
bcc ]lp
beq ]lp
*-------- Attend un clic
rts
*-----------------------

BIN
lemanoirdudocteurgenius/apple2/en/drgenius
View File

Binary file not shown.

2
lemanoirdudocteurgenius/apple2/en/drgenius.s
View File

@ -1561,7 +1561,7 @@ tbl4000 da :4000,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
cmp X$2,x
bne :6350
inx
cpx X$1
cpx X$2
bcc :6325
beq :6325

6421
lemanoirdudocteurgenius/apple2/en/drgenius_Output.txt
View File

File diff suppressed because it is too large Load Diff

28
lemanoirdudocteurgenius/apple2/en/en.s
View File

@ -95,9 +95,9 @@ str4152 asc 8D"A message inside says: do not"8D
asc "respect the colors of the Highway code?"00
str4156 asc 8D"Hold on, the chest closes"00
str4160 asc "Now you have a lamp full of petrol"00
str4160 asc "Now you have a lamp full of oil"00
str4170 asc "You have nothing to carry the petrol"00
str4170 asc "You have nothing to carry the oil"00
str4180 asc "The fire you left lit exploded"00
str4185 asc 8D"It kills thoughtlessness..."00
@ -116,9 +116,9 @@ str4225 asc 8D"Death on the first page."00
str4230 asc "The book exploded when you opened it..."00
str4240 asc "The paper says: search the keys."00
str4240 asc "The paper says: search the key."00
str4250 asc "The keys will allow you to find the"8D
str4250 asc "The key will allow you to find the"8D
asc "entrance door code."00
str4260 asc "There is, next to the door, a numerical"8D
@ -134,7 +134,7 @@ str4300 asc "It is already done, you funny fool"00
str4310 asc "Maybe you need a fire"00
str4320 asc "The lamp does not contain petrol"00
str4320 asc "The lamp does not contain oil"00
str4330 asc "You do not have it"00
@ -193,8 +193,8 @@ str4530 asc "You should not flee"00
str4540 asc "You are right to use the scissors,"8D
asc "the monster is dead"00
str4550 asc "Inside the closet, number "00
str4552 asc 8D" is registered"00
str4550 asc 8D"Inside the closet, number "00
str4552 asc " is registered"00
str4555 asc 8D"The closet closes."00
str4560 asc "The gun exploded"00
@ -394,16 +394,16 @@ V$41 str "CLOS" ; PLACARD
V$42 str "TORC" ; TORCHE
V$43 str "TELE" ; TELEPORTEUR
V$44 str "MONS" ; MONSTRE
V$45 str "PETR" ; PETROLE (NOT OIL)
V$45 str "OIL" ; PETROLE
V$46 str "POT" ; POT
V$47 str "BED" ; LIT
V$48 str "KEYS" ; CLEF
V$48 str "KEY" ; CLEF
V$49 str "PAPE" ; PAPIER
V$50 str "BOOK" ; LIVRE
V$51 str "FIRE" ; BRIQUET
V$52 str "SUIT" ; COMBINAISON
V$53 str "CHES" ; COFFRE
V$54 str "YELL" ; JAUNE (au lieu de ROUGE)
V$54 str "RED" ; ROUGE
V$55 str "BLUE" ; BLEU
V$56 str "GREE" ; VERT
V$57 str "TITL" ; TITRE
@ -432,15 +432,15 @@ O$1 asc "an electric torch"00
O$2 asc "a tap"00
O$3 asc "scissors"00
O$4 asc "a screwdriver"00
O$5 asc "a petrol lamp"00
O$5 asc "an oil lamp"00
O$6 asc "a full lamp"00
O$7 asc "a lighted lamp"00
O$8 asc "a knife"00
O$9 asc "a paper"00
O$10 asc "a book"00
O$11 asc "petrol in a sink"00
O$12 asc "keys"00
O$13 asc "a yellow button"00
O$11 asc "oil in a sink"00
O$12 asc "a key"00
O$13 asc "a red button"00
O$14 asc "a blue button"00
O$15 asc "a green button"00
O$16 asc "a teleporter"00

BIN
lemanoirdudocteurgenius/apple2/fr/drgenius
View File

Binary file not shown.

56
lemanoirdudocteurgenius/apple2/fr/drgenius.s
View File

@ -521,7 +521,7 @@ REPLAY
tbl1500 da :1500,:1510,:1520,:1530,:1540
da :1550,:1560,:1570,:1580
*--------
*-------- A
:1500
lda N
@ -531,7 +531,7 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
sta OK
:1505 rts
*--------
*-------- B
:1510
ldx N
@ -544,7 +544,7 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
sta OK
:1516 rts
*--------
*-------- C
:1520
ldx N
@ -559,7 +559,7 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
sta OK
rts
*--------
*-------- D
:1530
ldx N
@ -570,7 +570,7 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
sta OK
:1535 rts
*--------
*-------- E
:1540
ldx N
@ -581,7 +581,7 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
sta OK
:1545 rts
*--------
*-------- F
:1550
ldx N
@ -591,7 +591,7 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
sta OK
:1555 rts
*--------
*-------- G
:1560
ldx N
@ -602,7 +602,7 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
sta OK
:1565 rts
*--------
*-------- H
:1570
lda VBL ; LOGO - Use a better RND?
@ -613,7 +613,7 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
sta OK
:1575 rts
*--------
*-------- I
:1580 lda N
cmp SALLE
@ -700,7 +700,7 @@ tbl1800 da :1800,:1900
da :2000,:2100,:2200,:2300,:2400,:2500,:2600,:2700,:2800,:2900
da :3000,:3100,:3200,:3300
*--------
*-------- A
:1800 lda #0
sta G
@ -758,7 +758,7 @@ tbl1800 da :1800,:1900
@wait #200
rts
*--------
*-------- B
:1900 lda S
cmp #5
@ -788,7 +788,7 @@ tbl1800 da :1800,:1900
inc S
rts
*--------
*-------- C
:2000 ldx N
lda O,x
@ -804,13 +804,9 @@ tbl1800 da :1800,:1900
dec S
rts
*-----------------------------------
* 2100
*-----------------------------------
*-------- D
:2100
* jsr HOME
lda N
asl
tax
@ -821,21 +817,21 @@ tbl1800 da :1800,:1900
:2112 jmp $bdbd
*--------
*-------- E
:2200 ldx N
lda #1
sta P,x
rts
*--------
*-------- F
:2300 ldx N
lda #0
sta P,x
rts
*--------
*-------- G
:2400 lda N
sec
@ -870,7 +866,7 @@ tbl1800 da :1800,:1900
sta C,x
rts
*--------
*-------- H
:2500 ldx N
lda O,x
@ -884,13 +880,13 @@ tbl1800 da :1800,:1900
sta O,x
rts
*--------
*-------- I
:2600 lda N
sta SALLE
rts
*--------
*-------- J
:2700 @print #strDACCORD
@wait #150
@ -898,39 +894,39 @@ tbl1800 da :1800,:1900
sta BREAK
rts
*--------
*-------- K
:2800 lda #3
sta BREAK
rts
*--------
*-------- L
:2900 lda #4
sta BREAK
rts
*--------
*-------- M
:3000 lda #1
sta BREAK
rts
*--------
*-------- N
:3100
* pla
* pla
jmp :20000
*--------
*-------- O
:3200 ldx N
lda SALLE
sta O,x
rts
*--------
*-------- P
:3300 lda N ; exchange object
asl ; do it here on pointers
@ -1561,7 +1557,7 @@ tbl4000 da :4000,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
cmp X$2,x
bne :6350
inx
cpx X$1
cpx X$2
bcc :6325
beq :6325

28
lemanoirdudocteurgenius/apple2/fr/drgenius_Output.txt
View File

@ -1874,7 +1874,7 @@
1835 | 1 drgenius.s 1333 | Code | 11 | | 3 | 00/4A88 : 20 1C 51 | jsr printCSTRING
1836 | 1 drgenius.s 1334 | Macro | 11 | | 0 | 00/4A8B | @print #str4552
1837 | 1 drgenius.s 1334 | Code | 11 | | 2 | 00/4A8B : A2 6C | ldx #>#str4552
1838 | 1 drgenius.s 1334 | Code | 11 | | 2 | 00/4A8D : A0 E6 | ldy #<#str4552
1838 | 1 drgenius.s 1334 | Code | 11 | | 2 | 00/4A8D : A0 E7 | ldy #<#str4552
1839 | 1 drgenius.s 1334 | Code | 11 | | 3 | 00/4A8F : 20 1C 51 | jsr printCSTRING
1840 | 1 drgenius.s 1335 | Macro | 11 | | 0 | 00/4A92 | @wait #300
1841 | 1 drgenius.s 1335 | Code | 11 | | 2 | 00/4A92 : A2 01 | ldx #>#300
@ -2191,7 +2191,7 @@
2152 | 1 drgenius.s 1561 | Code | 11 | | 3 | 00/4C46 : DD 3F 5F | cmp X$2,x
2153 | 1 drgenius.s 1562 | Code | 11 | | 2 | 00/4C49 : D0 10 | bne _6350
2154 | 1 drgenius.s 1563 | Code | 11 | | 1 | 00/4C4B : E8 | inx
2155 | 1 drgenius.s 1564 | Code | 11 | | 3 | 00/4C4C : EC 3A 5F | cpx X$1
2155 | 1 drgenius.s 1564 | Code | 11 | | 3 | 00/4C4C : EC 3F 5F | cpx X$2
2156 | 1 drgenius.s 1565 | Code | 11 | | 2 | 00/4C4F : 90 F2 | bcc _6325
2157 | 1 drgenius.s 1566 | Code | 11 | | 2 | 00/4C51 : F0 F0 | beq _6325
2158 | 1 drgenius.s 1567 | Empty | 11 | | 0 | 00/4C53 |
@ -5363,19 +5363,19 @@
| | | | | | F3 F4 A0 ED |
| | | | | | EF F2 F4 00 |
3945 | 2 fr.s 209 | Empty | 11 | | 0 | 00/6CC5 |
3946 | 2 fr.s 210 | Data | 11 | | 33 | 00/6CC5 : C1 A0 EC A7 | str4550 asc "A l"A7"interieur du placard, le No "00
| | | | | | E9 EE F4 E5 |
| | | | | | F2 E9 E5 F5 |
| | | | | | F2 A0 E4 F5 |
| | | | | | A0 F0 EC E1 |
| | | | | | E3 E1 F2 E4 |
| | | | | | AC A0 EC E5 |
| | | | | | A0 CE EF A0 |
3946 | 2 fr.s 210 | Data | 11 | | 34 | 00/6CC5 : 8D C1 A0 EC | str4550 asc 8D"A l"A7"interieur du placard, le No "00
| | | | | | A7 E9 EE F4 |
| | | | | | E5 F2 E9 E5 |
| | | | | | F5 F2 A0 E4 |
| | | | | | F5 A0 F0 EC |
| | | | | | E1 E3 E1 F2 |
| | | | | | E4 AC A0 EC |
| | | | | | E5 A0 CE EF |
| | | | | | A0 00 |
3947 | 2 fr.s 211 | Data | 11 | | 13 | 00/6CE7 : A0 E5 F3 F4 | str4552 asc " est inscrit"00
| | | | | | A0 E9 EE F3 |
| | | | | | E3 F2 E9 F4 |
| | | | | | 00 |
3947 | 2 fr.s 211 | Data | 11 | | 14 | 00/6CE6 : 8D A0 E5 F3 | str4552 asc 8D" est inscrit"00
| | | | | | F4 A0 E9 EE |
| | | | | | F3 E3 F2 E9 |
| | | | | | F4 00 |
3948 | 2 fr.s 212 | Data | 11 | | 24 | 00/6CF4 : 8D CC E5 A0 | str4555 asc 8D"Le placard se referme."00
| | | | | | F0 EC E1 E3 |
| | | | | | E1 F2 E4 A0 |

4
lemanoirdudocteurgenius/apple2/fr/fr.s
View File

@ -207,8 +207,8 @@ str4530 asc "Il ne fallait pas fuir"00
str4540 asc "Vous avez raison d"A7"utiliser le ciseau,"8D
asc "le monstre est mort"00
str4550 asc "A l"A7"interieur du placard, le No "00
str4552 asc 8D" est inscrit"00
str4550 asc 8D"A l"A7"interieur du placard, le No "00
str4552 asc " est inscrit"00
str4555 asc 8D"Le placard se referme."00
str4560 asc "Le pistolet a explose"00

BIN
lemanoirdudocteurgenius/apple2/lemanoirdudrgenius_en.po
View File

Binary file not shown.

BIN
lemanoirdudocteurgenius/apple2/lemanoirdudrgenius_fr.po
View File

Binary file not shown.

68
lemanoirdudocteurgenius/apple2/manuel/Etiquette Le manoir.lsc
View File

@ -6,9 +6,9 @@
"showGrid": true,
"snapToGrid": -1,
"printLabelBackground": false,
"heightMeasure": "25.4",
"widthMeasure": "101.6",
"roundPercent": 0.035,
"heightMeasure": "35",
"widthMeasure": "105",
"roundPercent": 0,
"shape": {
"rotate": false,
"barWidth": null,
@ -17,31 +17,32 @@
"inRadiusPercent": null
},
"backgroundImage": null,
"dpi": "300",
"dpi": "600",
"rotate": false,
"rotate180": false,
"metric": true,
"printerConfig": {
"MOCK_TARGET_PRINTER": "HP_OfficeJet_Pro_9020_series_2",
"SHEET_MARGIN_TOP": "13",
"SHEET_SIZE_HEIGHT": "279.4",
"DPI_MODE": "300",
"SHEET_SIZE_WIDTH": "215.9",
"SHEET_MARGIN_TOP": "8",
"SHEET_SIZE_HEIGHT": "297",
"DPI_MODE": "600",
"SHEET_SIZE_WIDTH": "210",
"SHEET_NAME": "Avery 5261",
"SHEET_SPACING_H": "4",
"SHEET_SPACING_H": null,
"SHEET_SIZE_SCALE": "1",
"SHEET_MARGIN_LEFT": "4",
"SHEET_MARGIN_LEFT": "0",
"PRINTER_COPIES": 4,
"MOCK_MODE": "MOCK_MODE_SHEET",
"SHEET_SPACING_V": "0",
"SHEET_SPACING_V": null,
"COLOR_MODE": "COLOR_MODE_FULL"
},
"ditherKind": "DITHER_KIND_THRESHOLD",
"ditherConfig": {},
"originX": "left",
"originY": "top",
"userContinuous": false,
"autosizeOnPrint": true,
"marginTopMultiplier": 0,
"userContinuous": true,
"autosizeOnPrint": false,
"marginTopMultiplier": 1,
"marginBottomMeasure": "0"
},
"canvasRecord": {
@ -52,7 +53,8 @@
"config": {
"image_width": 722,
"fill": "#000000",
"scale": 1.6608331213056544,
"strokeKey": "ink",
"scale": 3.423275704497925,
"image_height": 177,
"kindId": "DITHER_KIND_THRESHOLD",
"colors": "#3d4c62,#2943a0,#091011,#2e416b",
@ -62,6 +64,7 @@
"fullColor": true,
"invert": false,
"makeWhiteTransparent": false,
"stroke": "#000000",
"hiddenColors": "",
"rotate": false,
"fillKey": "ink"
@ -87,7 +90,7 @@
"width": 722,
"strokeLineCap": "butt",
"crossOrigin": null,
"left": 0,
"left": -4,
"height": 177,
"moveCursor": "move",
"cropX": 0,
@ -107,11 +110,11 @@
},
"flipY": false,
"lockSkewingY": false,
"scaleX": 1.66,
"scaleX": 3.42,
"skewX": 0,
"strokeMiterLimit": 4,
"strokeWidth": 0,
"scaleY": 1.66,
"scaleY": 3.42,
"skewY": 0,
"strokeDashArray": null,
"hasControls": true,
@ -121,7 +124,7 @@
"hoverCursor": "move",
"angle": 0,
"originY": "center",
"top": 0,
"top": -108.04,
"backgroundColor": "",
"selectable": true,
"strokeLineJoin": "miter",
@ -130,7 +133,7 @@
"staticWidth": 722,
"imageSmoothing": true,
"type": "image",
"scaleMax": 1.6608331213056544,
"scaleMax": 3.423275704497925,
"uuid": "bdf1dd62-9413-4f69-b438-6bef4139ae9e",
"filters": [
{
@ -146,7 +149,7 @@
"distance": 0
}
],
"strokeUniform": false,
"strokeUniform": true,
"lockScalingX": false,
"strokeDashOffset": 0,
"lockScalingY": false,
@ -154,14 +157,27 @@
}
]
},
"stateUuid": "e8e59291-6b85-4daf-b84f-89cc0d434085",
"drawing": false,
"stateUuid": "7ed421b2-a2a4-4c5f-85c3-915b36cfed8c",
"drawing": true,
"lockMovement": false,
"fill": "#FEFFFF",
"ink": "#000000",
"variables": [],
"variablesCached": [],
"import": null
"import": {
"editing": false,
"renderUid": null,
"header": [],
"data": [],
"selectedRow": -1,
"source": null,
"dataSource": null,
"timestamp": 0,
"autoImport": true,
"batchPath": null,
"matchFromStart": false,
"caseSensitive": false
}
},
"ui": {
"windowName": "bf043c63-d66e-48eb-803c-54a46a297dac",
@ -186,8 +202,8 @@
"topic": ""
},
"hashes": {
"_labelConfig": "LTQ2MDc4MzYwNw==",
"_canvasRecord": "LTExNTM5ODgxOA==",
"_labelConfig": "Mzg3MDY2ODgw",
"_canvasRecord": "MTAxNzcyODI0NA==",
"_ui": "LTMyMDMwNTkyNQ==",
"_live": "LTYxODIwNDg3NA=="
},

BIN
lemanoirdudocteurgenius/apple2/manuel/Manuel.docx
View File

Binary file not shown.