cosmétique
BIN
leretour.zip
@ -12,12 +12,12 @@
|
||||
*-----------------------------------
|
||||
|
||||
tblIMAGES da $0000
|
||||
da L786F,L7974,L4F61,L4E95,L7CC8,L6BDC,L5EFA,L7DE2,L7F38,L62EF
|
||||
da L57EA,L5925,L63F6,L47C3,L5A21,L5021,L4DFF,L64EF,L4700,L5D77
|
||||
da L52CA,L4E41,L6AF2,L81EA,L827B,L61DF,L497F,L4C16,L4A8D,L4CEE
|
||||
da L5B40,L6FDD,L6F05,L65FF,L8088,L7A40,L774C,L7B63,L5CC6,L5BEE
|
||||
da L50F6,L6D58,L6C6E,L74D2,L70F6,L487A,L71E0,L4DAB,L55C8,L72CA
|
||||
da L6958,$0000,L5F6B,L60EB,L6812,L6E33,L8367
|
||||
da L786F,L7974,L4F61,L4E95,L7CC8,L6BDC,L5EFA,L7DE2,L7F38,L62EF ; 1
|
||||
da L57EA,L5925,L63F6,L47C3,L5A21,L5021,L4DFF,L64EF,L4700,L5D77 ; 11
|
||||
da L52CA,L4E41,L6AF2,L81EA,L827B,L61DF,L497F,L4C16,L4A8D,L4CEE ; 21
|
||||
da L5B40,L6FDD,L6F05,L65FF,L8088,L7A40,L774C,L7B63,L5CC6,L5BEE ; 31
|
||||
da L50F6,L6D58,L6C6E,L74D2,L70F6,L487A,L71E0,L4DAB,L55C8,L72CA ; 41
|
||||
da L6958,$0000,L5F6B,L60EB,L6812,L6E33,L8367 ; 51
|
||||
|
||||
*-----------------------------------
|
||||
* DONNEES DES IMAGES
|
||||
@ -1339,7 +1339,7 @@ L4A8D DB $41
|
||||
DB $4A
|
||||
DB $06
|
||||
DB $00
|
||||
L4C16 DB $41
|
||||
L4C16 DB $41 ; SALLE 28
|
||||
DB $0D
|
||||
DB $A6
|
||||
DB $44
|
||||
@ -1552,6 +1552,13 @@ L4C16 DB $41
|
||||
DB $43
|
||||
DB $29
|
||||
DB $1E
|
||||
asc 'A'
|
||||
dfb 40
|
||||
dfb 40
|
||||
asc 'L'
|
||||
dfb 1
|
||||
dfb 1
|
||||
dfb 2
|
||||
DB $4A
|
||||
DB $02
|
||||
DB $00
|
||||
@ -4297,7 +4304,7 @@ L55C8 DB $41
|
||||
DB $4A
|
||||
DB $06
|
||||
DB $00
|
||||
L57EA DB $41
|
||||
L57EA DB $41 ; SALLE 11
|
||||
DB $0E
|
||||
DB $9B
|
||||
DB $44
|
||||
@ -4609,6 +4616,20 @@ L57EA DB $41
|
||||
DB $42
|
||||
DB $03
|
||||
DB $05
|
||||
asc 'A'
|
||||
dfb 120
|
||||
dfb 20
|
||||
asc 'L'
|
||||
dfb 1
|
||||
dfb 1
|
||||
dfb 2
|
||||
asc 'A'
|
||||
dfb 120
|
||||
dfb 40
|
||||
asc 'L'
|
||||
dfb 1
|
||||
dfb 1
|
||||
dfb 2
|
||||
DB $4A
|
||||
DB $02
|
||||
DB $00
|
||||
@ -6834,7 +6855,7 @@ L60EB DB $41
|
||||
DB $4A
|
||||
DB $03
|
||||
DB $00
|
||||
L61DF DB $41
|
||||
L61DF DB $41 ; SALLE 26
|
||||
DB $0D
|
||||
DB $A6
|
||||
DB $44
|
||||
@ -7089,20 +7110,37 @@ L61DF DB $41
|
||||
DB $44
|
||||
DB $1A
|
||||
DB $0F
|
||||
DB $41
|
||||
DB $8A
|
||||
DB $53
|
||||
* DB $4C ; fill bleu retirŽ
|
||||
|
||||
asc 'A'
|
||||
dfb 30
|
||||
dfb 60
|
||||
asc 'L'
|
||||
dfb 1
|
||||
dfb 1
|
||||
dfb 6
|
||||
asc 'A'
|
||||
dfb 210
|
||||
dfb 60
|
||||
asc 'L'
|
||||
dfb 1
|
||||
dfb 1
|
||||
dfb 6
|
||||
|
||||
* DB $41
|
||||
* DB $8A
|
||||
* DB $53
|
||||
* DB $4C
|
||||
* DB $14
|
||||
* DB $01
|
||||
* DB $06
|
||||
DB $41
|
||||
DB 125 ; $66 102
|
||||
DB 95 ; $53 83
|
||||
DB $4C
|
||||
DB $14
|
||||
DB $01
|
||||
DB $02
|
||||
* DB $41
|
||||
* DB $66
|
||||
* DB $53
|
||||
* DB $4C
|
||||
* DB $14
|
||||
* DB $01
|
||||
* DB $02
|
||||
|
||||
DB $4A
|
||||
DB $06
|
||||
DB $00
|
||||
@ -7369,7 +7407,7 @@ L62EF DB $41
|
||||
DB $4A
|
||||
DB $02
|
||||
DB $00
|
||||
L63F6 DB $41
|
||||
L63F6 DB $41 ; SALLE 13
|
||||
DB $46
|
||||
DB $21
|
||||
DB $43
|
||||
@ -7615,6 +7653,20 @@ L63F6 DB $41
|
||||
DB $43
|
||||
DB $04
|
||||
DB $12
|
||||
asc 'A'
|
||||
dfb 40
|
||||
dfb 20
|
||||
asc 'L'
|
||||
dfb 1
|
||||
dfb 1
|
||||
dfb 3
|
||||
asc 'A'
|
||||
dfb 200
|
||||
dfb 20
|
||||
asc 'L'
|
||||
dfb 1
|
||||
dfb 1
|
||||
dfb 3
|
||||
DB $4A
|
||||
DB $03
|
||||
DB $00
|
||||
|
@ -107,7 +107,7 @@ eraseLINES sta pointerRECT
|
||||
|
||||
pointerRECT adrl bottomRECT
|
||||
|
||||
bottomRECT dw 170,0,199,319
|
||||
bottomRECT dw 160,0,199,319
|
||||
lastlineRECT dw 190,0,199,319
|
||||
cursorRECT dw 0,0,0,0 ; y2 and x2 are y1+7 and x1+7
|
||||
|
||||
@ -307,11 +307,29 @@ COUT2 rep #$20
|
||||
adc #160*10
|
||||
pha
|
||||
PushLong ptrTEXT ; destination en haut
|
||||
PushLong #160*170 ; on copie 170 lignes
|
||||
PushLong #160*150 ; on copie 150 lignes
|
||||
_BlockMove
|
||||
|
||||
*----------- Etape 2
|
||||
|
||||
lda ptrSCREEN+2 ; source commence ligne 160
|
||||
pha
|
||||
lda ptrSCREEN
|
||||
clc
|
||||
adc #160*160
|
||||
pha
|
||||
|
||||
lda ptrTEXT+2 ; destination commence ligne 150
|
||||
pha
|
||||
lda ptrTEXT
|
||||
clc
|
||||
adc #160*150
|
||||
pha
|
||||
PushLong #160*10 ; on copie 10 lignes
|
||||
_BlockMove
|
||||
|
||||
*----------- Etape 3
|
||||
|
||||
lda ptrSCREEN+2 ; source commence ligne 170
|
||||
pha
|
||||
lda ptrSCREEN
|
||||
@ -319,32 +337,14 @@ COUT2 rep #$20
|
||||
adc #160*170
|
||||
pha
|
||||
|
||||
lda ptrTEXT+2 ; destination commence ligne 160
|
||||
lda ptrSCREEN+2 ; destination commence ligne 160
|
||||
pha
|
||||
lda ptrTEXT
|
||||
lda ptrSCREEN
|
||||
clc
|
||||
adc #160*160
|
||||
pha
|
||||
PushLong #160*10 ; on copie 10 lignes
|
||||
_BlockMove
|
||||
|
||||
*----------- Etape 3
|
||||
|
||||
lda ptrSCREEN+2 ; source commence ligne 180
|
||||
pha
|
||||
lda ptrSCREEN
|
||||
clc
|
||||
adc #160*180
|
||||
pha
|
||||
|
||||
lda ptrSCREEN+2 ; destination commence ligne 170
|
||||
pha
|
||||
lda ptrSCREEN
|
||||
clc
|
||||
adc #160*170
|
||||
pha
|
||||
|
||||
PushLong #160*20 ; on copie 20 lignes
|
||||
PushLong #160*30 ; on copie 30 lignes
|
||||
_BlockMove
|
||||
|
||||
*----------- Etape 3
|
||||
@ -359,9 +359,29 @@ COUT2 rep #$20
|
||||
rts
|
||||
|
||||
*----------- Exit
|
||||
*
|
||||
* De 160 ˆ 199, ce sont les lignes de texte
|
||||
|
||||
text2shr dw 9,19,29,39,49,59,69,79,89,99
|
||||
dw 109,119,129,139,149,159,169,179,189,199
|
||||
text2shr dw 9 ; 0
|
||||
dw 19 ; 1
|
||||
dw 29 ; 2
|
||||
dw 39 ; 3
|
||||
dw 49 ; 4
|
||||
dw 59 ; 5
|
||||
dw 69 ; 6
|
||||
dw 79 ; 7
|
||||
dw 89 ; 8
|
||||
dw 99 ; 9
|
||||
dw 109 ; 10
|
||||
dw 119 ; 11
|
||||
dw 129 ; 12
|
||||
dw 139 ; 13
|
||||
dw 149 ; 14
|
||||
dw 159 ; 15
|
||||
dw 169 ; 16
|
||||
dw 179 ; 17
|
||||
dw 189 ; 18
|
||||
dw 199 ; 19
|
||||
|
||||
*-----------------------------------
|
||||
|
||||
@ -383,6 +403,8 @@ VBLCounter0 ds 2
|
||||
* LES SONS DE L'ORIC
|
||||
*-----------------------------------
|
||||
|
||||
mx %11
|
||||
|
||||
ext sndEXPLODE
|
||||
ext sndZAP
|
||||
|
||||
@ -589,6 +611,7 @@ BFF0 ds 16
|
||||
|
||||
showPIC rep #$30
|
||||
and #$00ff
|
||||
stal $300 ; LOGO - LA SALLE
|
||||
asl
|
||||
tax
|
||||
lda tblIMAGES,x
|
||||
@ -1074,7 +1097,7 @@ srcLocInfoPtr
|
||||
dw mode320 ; mode 320
|
||||
adrl ptr012000
|
||||
dw 160
|
||||
dw 0,0,199,239
|
||||
dw 0,0,179,239
|
||||
|
||||
srcRect dw 0,0,179,239
|
||||
|
||||
|
@ -91,11 +91,6 @@ ICI phk
|
||||
tdc
|
||||
sta myDP
|
||||
|
||||
lda #fgMIDI
|
||||
stal $300
|
||||
lda #^fgMIDI
|
||||
stal $302
|
||||
|
||||
_TLStartUp
|
||||
pha
|
||||
_MMStartUp
|
||||
|
@ -1670,12 +1670,12 @@ setMIXEDOFF ; FULL HGR
|
||||
lda ptrTEXT+2
|
||||
sta dpTHREE+2
|
||||
|
||||
ldy #170*160-2
|
||||
ldy #160*160-2
|
||||
]lp lda [dpTHREE],y
|
||||
pha
|
||||
tax
|
||||
lda [dpTO],y
|
||||
sta [dpTHREE],y
|
||||
pla
|
||||
txa
|
||||
sta [dpTO],y
|
||||
dey
|
||||
dey
|
||||
|
Before Width: | Height: | Size: 498 KiB After Width: | Height: | Size: 498 KiB |
Before Width: | Height: | Size: 576 KiB After Width: | Height: | Size: 576 KiB |
Before Width: | Height: | Size: 590 KiB After Width: | Height: | Size: 590 KiB |
Before Width: | Height: | Size: 500 KiB After Width: | Height: | Size: 500 KiB |
BIN
leretour/oric/Image_memoire.SNA
Normal file
BIN
leretour/oric/Pres_Journal_ASM.bin
Normal file
@ -0,0 +1,188 @@
|
||||
## BASIC ORIC FILE.
|
||||
## NAME: GENIUS
|
||||
##
|
||||
10 REM COPYRIGHT LORICIELS NOV. 84
|
||||
11 REM
|
||||
90 TEXT:CALL #2400:DOKE998,10000
|
||||
95 FOR N=1 TO 10:PING:WAIT 5:NEXT
|
||||
99 POKE 48036,0
|
||||
100 POKE #26A,10:CLS:PAPER 0:INK 7
|
||||
105 Z=PEEK(#D000)
|
||||
107 IF Z=169 THEN GOSUB 11000
|
||||
110 IF Z=169 THEN A$=CHR$(27)+"Q"+CHR$(27)+"J":PRINT CHR$(4):GOTO 125
|
||||
120 A$=CHR$(27)+"Q"+CHR$(27)+"@"+CHR$(27)+"J":PRINT CHR$(4):GOTO 130
|
||||
125 PRINT A$;"Une heure du matin (heure francaise)";:GOTO 140
|
||||
130 PRINT A$;" Une heure du matin (heure francaise)";
|
||||
135 PRINT:PRINT A$;"sur tous les telex du monde apparait":GOTO 150
|
||||
140 PRINT:PRINT:PRINT A$;"sur tous les telex du monde apparait":PRINT
|
||||
145 IF Z=169 THEN PRINT A$;"ce message angoissant...";CHR$(4):GOTO 160
|
||||
150 PRINT:PRINT A$;"ce message angoissant...";CHR$(4):GOTO 160
|
||||
160 WAIT 550
|
||||
200 CLS:PAPER 0:INK 6:POKE 48036,0
|
||||
210 A$(1)=" Moi, GENIUS, je defie le monde.J'ai"
|
||||
220 A$(2)="invente une nouvelle arme capable de"
|
||||
230 A$(3)="raser la terre, ce que je ferais dans"
|
||||
240 A$(4)="deux semaines...Mais, comme je ne suis "
|
||||
250 A$(5)="pas un monstre, je vous laisse une"
|
||||
260 A$(6)="chance. J'accepte que des hommes de"
|
||||
270 A$(7)="tout pays se rendent sur mon vaisseau"
|
||||
280 A$(8)="en orbite autour de la terre afin de"
|
||||
290 A$(9)="tenter de desamorcer mes armes. Mais,"
|
||||
300 A$(10)="jamais plus d'un homme a la fois...."
|
||||
310 FOR N=1 TO 10:FOR I=1 TO LEN(A$(N)):CALL #2440:PRINT MID$(A$(N),I,1);
|
||||
315 WAIT 5:NEXT I
|
||||
320 IF LEN(A$(N))<38 THEN PRINT
|
||||
330 PRINT:NEXT N:WAIT 100
|
||||
400 CLS:PAPER 0:INK 3:POKE #30E,64:A=254:S=420
|
||||
405 PLAY 1,0,0,0:FOR K=0 TO 7 STEP 2
|
||||
410 FOR N=1+K TO 38-K:PLOT N,K,A:SOUND 1,S,10:S=S-1:NEXT N
|
||||
420 FOR N=1+K TO 26-K:PLOT 38-K,N,A:SOUND 1,S,10:S=S-1:NEXT N
|
||||
430 FOR N=37-K TO 1+K STEP -1:PLOT N,26-K,A:SOUND 1,S,10:S=S-1:NEXT N
|
||||
440 FOR N=25-K TO 2+K STEP -1:PLOT 1+K,N,A:SOUND 1,S,10:S=S-1:NEXT N
|
||||
450 IF K<>6 THEN PLOT K+2,2+K,254
|
||||
460 NEXT K:POKE #30E,192:PING
|
||||
470 PLOT 24,9,8:PLOT 24,10,8:PLOT 25,9,3:PLOT 25,10,3:PLOT 13,9,14:PLOT 13,10,14
|
||||
480 PLOT 14,9,1:PLOT 14,10,1:PLOT 15,9,"LORICIELS":PLOT 15,10,"LORICIELS"
|
||||
490 PLOT 11,13,"Vous propose ce que":PLOT 13,15,"vous redoutiez"
|
||||
500 PLOT 12,17,"depuis longtemps"
|
||||
510 WAIT 700
|
||||
600 CLS:INK 0:PAPER 3:HIRES:POKE #26A,10:PAPER 3:INK 0:CURSET 12,100,0:FILL 25,1,0
|
||||
605 DOKE998,40000
|
||||
610 FILL 25,1,5:FILL 25,1,4:FILL 25,1,1:CALL #51BB:CALL #5200:CALL #528A
|
||||
630 POKE #21A,145:FOR N=35 TO 210 STEP 5:POKE #219,N:CIRCLE 4,1:NEXT
|
||||
640 FOR N=145 TO 195 STEP 5:POKE #21A,N:CIRCLE 4,1:NEXT
|
||||
650 FOR N=210 TO 35 STEP -5:POKE #219,N:CIRCLE 4,1:NEXT
|
||||
660 FOR N=195 TO 145 STEP -5:POKE #21A,N:CIRCLE 4,1:NEXT
|
||||
670 A$="Ecrit par Laurent Benes"
|
||||
680 B$="Assiste de Karine Le Pors"
|
||||
690 FOR N=1 TO LEN(A$):CURSET 48+N*6,155,0:CHAR ASC(MID$(A$,N,1)),0,1:NEXT
|
||||
700 FOR N=1 TO LEN(B$):CURSET 42+N*6,167,0:CHAR ASC(MID$(B$,N,1)),0,1:NEXT
|
||||
710 CURSET 108,155,0:FILL 20,1,12:CURSET 198,155,0:FILL 20,1,8
|
||||
720 A$="`: LORICIELS AOUT 1984"
|
||||
730 FOR N=1 TO LEN(A$):CURSET 42+N*6,179,0:CHAR ASC(MID$(A$,N,1)),0,1:NEXT
|
||||
740 WAIT 20:GOSUB 10000
|
||||
750 CALL #529C:PRINT:PRINT CHR$(4)CHR$(27)"T"CHR$(27)"F"CHR$(27)"J";
|
||||
760 PRINT "3 jours plus tard dans les journaux";
|
||||
770 DOKE998,10000:WAIT 300:CLS:CALL #3000
|
||||
780 PRINT CHR$(4):WAIT 1000:A=0:X$=KEY$
|
||||
790 A=A+1:IF A=1000 THEN 810
|
||||
800 IF KEY$<>"" THEN 810 ELSE 790
|
||||
810 TEXT:PAPER 0:INK 3:POKE #26A,10:PRINT:PRINT:POKE 48036,0
|
||||
820 PRINT " C'est ainsi que vous decidez de"
|
||||
830 PRINT "vous rendre aux autorites pour combat-";
|
||||
840 PRINT "tre a nouveau le Dr Genius."
|
||||
850 PRINT "Le lendemain , on vous emmene au vais-";
|
||||
860 PRINT "seau ou vous allez maintenant tenter"
|
||||
870 PRINT "de vaincre le Dr Genius afin de sauver";
|
||||
880 PRINT "la terre."
|
||||
890 PRINT:PRINT:PRINT SPC(10)"BON COURAGE..."
|
||||
900 PRINT:PRINT:PRINT "Vous en aurez besoin !"
|
||||
910 GOSUB 8000
|
||||
920 CLS:PRINT:PRINT "Voici quelques explications";
|
||||
930 PRINT:PRINT "Le jeu est en temps reel,un chronome-"
|
||||
940 PRINT "tre sera affiche en permanence."
|
||||
950 PRINT "D'autre part, vous devrez prendre"
|
||||
960 PRINT "garde a votre energie qui diminuera au";
|
||||
970 PRINT "fil de la partie."
|
||||
980 PRINT "Attention, plus vous transportez"
|
||||
990 PRINT "d'objets, plus votre force decroit."
|
||||
1000 PRINT:PRINT "Pour converser avec l'ordinateur,vous"
|
||||
1010 PRINT "pouvez utiliser un vocabulaire choisi"
|
||||
1020 PRINT "parmi pres de 150 mots que vous allez"
|
||||
1030 PRINT "donc decouvrir au fur et a mesure..."
|
||||
1040 PRINT "et oui, c'est ca l'aventure."
|
||||
1050 PRINT:PRINT "D'autre part, l'ordinateur ne prendra"
|
||||
1060 PRINT "en compte que les 4 premieres lettres"
|
||||
1070 PRINT "de chaque mot, ainsi: PRENDS CARTON"
|
||||
1080 PRINT "sera compris comme: PREN CART"
|
||||
1090 GOSUB 8000:CLS:INK 6
|
||||
1100 PRINT:PRINT "L'ordinateur ne prend en compte en"
|
||||
1110 PRINT "general que deux mots, exemple:"
|
||||
1120 PRINT "- ALLUME SALLE":PRINT "- EST ou E ou AVANCE EST"
|
||||
1130 PRINT:PRINT "Dans certains cas,l'ordinateur prendra";
|
||||
1140 PRINT "en compte trois mots. Il s'agit de cas";
|
||||
1150 PRINT "ou un qualificatif est necessaire, ou"
|
||||
1160 PRINT "lorsque l'on veut mettre une chose"
|
||||
1180 PRINT "dans une autre. Exemple:"
|
||||
1190 PRINT:PRINT "PRENDS LIVRE VERT"
|
||||
1200 PRINT "PRENDS MOUCHOIR PAPIER"
|
||||
1210 PRINT " ou"
|
||||
1220 PRINT "CRAYON DANS BOITE"
|
||||
1230 PRINT:PRINT "Ce dernier cas indiquera qu'il faut"
|
||||
1240 PRINT "mettre le crayon dans la boite."
|
||||
1250 PRINT "a condition que vous possediez crayon"
|
||||
1260 PRINT "et boite, evidemment."
|
||||
1270 GOSUB 8000:CLS:INK 1
|
||||
1280 PRINT:PRINT "Une derniere chose, il est possible de";
|
||||
1290 PRINT "sauver une partie en cours, et de la"
|
||||
1300 PRINT "recharger, mais a vous de trouver le"
|
||||
1310 PRINT "vocabulaire adequat..."
|
||||
1320 PRINT:PRINT:PRINT:PRINT "Et maintenant, tres bonne aventure..."
|
||||
1330 PRINT:PRINT "et prenez garde a vous !"
|
||||
1340 PRINT:PRINT:PRINT "Tapez une touche pour charger le"
|
||||
1350 PRINT "programme de jeu."
|
||||
1380 X$="":GET A$:HIRES:PAPER 1:INK 0:CALL #5100
|
||||
1390 PRINT:PRINT " voulez-vous revoir la presentation (O/N)"
|
||||
1400 GET F$
|
||||
1500 IF F$="O" THEN RUN
|
||||
1600 CLS:NEW
|
||||
8000 X$=KEY$:PLOT 7,24,"Appuyez sur une touche.":GET A$:RETURN
|
||||
10000 REM
|
||||
10010 REM ***************************
|
||||
10020 REM * *
|
||||
10030 REM * TOCCATA ET FUGUE *
|
||||
10040 REM * *
|
||||
10050 REM * J.S BACH *
|
||||
10060 REM * *
|
||||
10070 REM ***************************
|
||||
10080 REM
|
||||
10100 FOR N=1 TO 168:READ A1,A2,A3,A4,A5,A6
|
||||
10110 MUSIC 1,A1,A2,10:MUSIC 2,A3,A4,10:PLAY A5,0,0,0:WAIT A6*.4:NEXT
|
||||
10120 FOR N=10 TO 1 STEP -1:MUSIC 1,2,3,N:MUSIC 2,3,3,N:PLAY 3,0,0,0:WAIT 6:NEXT
|
||||
10130 PLAY 0,0,0,0:RETURN
|
||||
10200 DATA 4,10,3,10,3,48,1,1,1,1,0,12,4,8,3,8,3,6,4,6,3,6,3,6
|
||||
10210 DATA 4,5,3,5,3,6,4,3,3,3,3,6,4,2,3,2,3,12,4,3,3,3,3,24
|
||||
10220 DATA 1,1,1,1,0,72,3,10,2,10,3,48,1,1,1,1,0,12,3,5,2,5,3,12
|
||||
10230 DATA 3,6,2,6,3,12,3,2,2,2,3,12,3,3,2,3,3,24,1,1,1,1,0,72
|
||||
10240 DATA 2,10,1,10,3,48,1,1,1,1,0,12,2,8,1,8,3,6,2,6,1,6,3,6
|
||||
10250 DATA 2,5,1,5,3,6,2,3,1,3,3,6,2,2,1,2,3,12,2,3,1,3,3,24
|
||||
10260 DATA 1,1,1,1,0,48,3,10,1,1,1,8,3,8,1,1,1,8,3,10,1,1,1,8
|
||||
10270 DATA 3,6,1,1,1,8,3,10,1,1,1,8,3,5,1,1,1,8,3,10,1,1,1,8
|
||||
10280 DATA 3,3,1,1,1,8,3,10,1,1,1,8,3,2,1,1,1,8,3,10,1,1,1,8
|
||||
10290 DATA 3,3,1,1,1,8,3,10,1,1,1,8,3,5,1,1,1,8,3,10,1,1,1,8
|
||||
10300 DATA 3,6,1,1,1,8,3,10,1,1,1,8,2,10,1,1,1,8,3,10,1,1,1,8
|
||||
10310 DATA 2,12,1,1,1,8,3,10,1,1,1,8,3,2,1,1,1,8,3,10,1,1,1,8
|
||||
10320 DATA 3,3,1,1,1,8,3,10,1,1,1,8,3,2,1,1,1,8,3,10,1,1,1,8
|
||||
10330 DATA 3,3,1,1,1,8,3,10,1,1,1,8,3,5,1,1,1,8,3,10,1,1,1,8
|
||||
10340 DATA 3,6,1,1,1,8,3,6,4,3,3,8,3,7,4,1,3,8,3,7,4,3,3,8
|
||||
10350 DATA 3,8,3,11,3,8,3,8,4,3,3,8,3,1,3,10,3,8,3,1,4,3,3,8
|
||||
10360 DATA 2,11,3,8,3,8,2,11,4,3,3,8,2,10,3,7,3,8,2,10,4,3,3,8
|
||||
10370 DATA 2,11,3,8,3,8,2,11,4,3,3,8,3,1,3,10,3,8,3,1,4,3,3,8
|
||||
10380 DATA 3,3,3,11,3,8,3,3,4,3,3,8,2,7,3,3,3,8,2,7,4,3,3,8
|
||||
10390 DATA 2,8,3,5,3,8,2,8,4,3,3,8,2,10,3,7,3,8,2,10,4,3,3,8
|
||||
10400 DATA 2,11,3,8,3,8,2,11,4,3,3,8,2,10,3,7,3,8,2,10,4,3,3,8
|
||||
10410 DATA 2,11,3,8,3,8,2,11,4,3,3,8,2,7,3,10,3,8,2,7,4,3,3,8
|
||||
10420 DATA 2,8,3,11,3,8,1,1,3,8,2,8,2,8,4,3,3,8,1,1,3,8,2,8
|
||||
10430 DATA 3,3,3,11,3,8,1,1,3,8,2,8,3,3,4,3,3,8,1,1,3,8,2,8
|
||||
10440 DATA 3,1,4,4,3,8,1,1,3,4,2,8,3,1,3,8,3,8,1,1,3,8,2,8
|
||||
10450 DATA 3,1,4,4,3,8,1,1,3,4,2,8,3,1,3,8,3,8,1,1,3,4,2,8
|
||||
10460 DATA 3,1,4,1,3,8,1,1,3,6,2,8,3,1,3,10,3,8,1,1,3,6,2,8
|
||||
10470 DATA 3,1,4,1,3,8,1,1,3,6,2,8,3,1,3,10,3,8,1,1,3,6,2,8
|
||||
10480 DATA 2,11,4,3,3,8,1,1,3,3,2,8,2,11,3,6,3,8,1,1,3,3,2,8
|
||||
10490 DATA 2,11,4,3,3,8,1,1,3,3,2,8,2,11,3,6,3,8,1,1,3,3,2,8
|
||||
10500 DATA 2,11,3,11,3,8,1,1,3,5,2,8,2,11,3,8,3,8,1,1,3,5,2,8
|
||||
10510 DATA 2,11,3,11,3,8,1,1,3,5,2,8,2,11,3,8,3,8,1,1,3,5,2,8
|
||||
10520 DATA 2,10,4,2,3,8,1,1,3,2,2,8,2,10,3,5,3,8,1,1,3,2,2,8
|
||||
10530 DATA 2,10,4,2,3,8,1,1,3,2,2,8,2,10,3,5,3,8,1,1,3,2,2,8
|
||||
10540 DATA 2,6,3,10,3,8,1,1,3,3,2,8,2,6,3,6,3,8,1,1,3,3,2,8
|
||||
10550 DATA 2,6,3,10,3,8,1,1,3,3,2,8,2,6,3,6,3,8,1,1,3,3,2,8
|
||||
10560 DATA 2,5,3,8,3,8,1,1,2,11,2,8,2,5,3,2,3,8,1,1,2,11,2,8
|
||||
10570 DATA 2,5,3,8,3,8,1,1,2,11,2,8,2,5,3,2,3,8,1,1,2,11,2,8
|
||||
10580 DATA 2,3,3,6,3,8,1,1,2,10,2,8,2,3,3,3,3,8,1,1,2,10,2,8
|
||||
10590 DATA 2,3,3,6,3,8,1,1,2,10,2,8,2,3,3,3,3,8,1,1,2,10,2,8
|
||||
10600 DATA 2,5,3,5,3,8,1,1,2,8,2,8,2,5,2,11,3,8,1,1,2,8,2,8
|
||||
10610 DATA 2,5,3,5,3,8,1,1,2,8,2,8,2,5,2,11,3,8,1,1,2,8,2,8
|
||||
11000 DOKE#2445,#FA86:DOKE#524E,#EE22:DOKE#5295,#246:DOKE#5298,#245
|
||||
11100 POKE #529E,#EE:POKE #52A0,#22:DOKE#52A2,#246:DOKE#52A5,#245
|
||||
11200 RETURN
|
||||
|
BIN
leretour/oric/UDGPres.bin
Normal file
BIN
leretour/oric/UDG_LORICIELS.bin
Normal file
@ -110,3 +110,13 @@ TICK := $FB14
|
||||
TICK1 := $FAFA
|
||||
TOCK := $FB2A
|
||||
TOCK1 := $FB10
|
||||
|
||||
--------------------------- INTRODUCTION
|
||||
|
||||
UDG_Loriciel= Logo chat
|
||||
|
||||
UDG_pres= fonte caract<63>res de ' ˆ z
|
||||
|
||||
Pres_journal = code binaire t<>te et "le Monde" ?
|
||||
|
||||
Image mŽmoire= mŽmoire de l'Oric figŽe sur la prŽsentation.
|