10 CALL &BB48:MEMORY &7B3F:LOAD"b4",&7B40:LOAD"b1",&8000:IF PEEK(63)=6 THEN LOAD"b2",&8700 ELSE LOAD"b3",&8600 
20 CALL &9F65:DIM o$(100):P2=PEEK(&9FD3):GOSUB 80:POKE &81F6,PEEK(&9FCE):POKE &81F7,PEEK(&9FCF):J=PEEK(&9FCB):hr=PEEK(&9FCC):mn=PEEK(&9FCD):FOR b1=1 TO 5:M(b1)=PEEK(&9FD3+b1):NEXT:FOR b1=1 TO 5:B(b1)=PEEK(&9FD8+b1):NEXT:M=PEEK(&9FDE):B3=PEEK(&9FDF)
30 IF RIGHT$(o$(100),5)="i1314" THEN T0=1 
40 ej=0:CLS#2:CLS#3
50 CLS#2:GOSUB 1560:CALL &8000:GOSUB 70:CALL &8326:IF PEEK(63)=6 THEN CALL &8700
60 GOSUB 1540:CLS#2:PEN 0:PAPER 1:CALL &7B70:GOSUB 960:GOSUB 1480:GOTO 440 
70 RETURN
80 WINDOW#2,25,37,7,17:WINDOW#3,2,21,2,21:PEN#2,0:PAPER#2,1:CLS#2:PAPER#3,3:OPENIN"fcps":fi=1:WHILE NOT EOF:INPUT#9,P0$(fi):fi=fi+1:WEND:CLOSEIN:OPENIN"fo":fi=1:WHILE NOT EOF:INPUT#9,o$(fi):fi=fi+1:WEND:CLOSEIN:GOSUB 1370:PEN 2:PAPER 0:LOCATE 27,3
90 PRINT"JR":LOCATE 32,3:PRINT"HR":LOCATE 37,3:PRINT"MN":EVERY 249.6,1 GOSUB 100:PEN 0:PAPER 1:RETURN
100 GOSUB 70:mn=mn+1:IF mn=60 THEN IF hr=23 THEN J=J+1:hr=0:mn=0 ELSE hr=hr+1:mn=0:GOSUB 170
110 rt$=STR$(mn):GOSUB 120:mn$=rt$:rt$=STR$(hr):GOSUB 120:hr$=rt$:rt$=STR$(J):GOSUB 120:J$=rt$:PEN 1:PAPER 0:LOCATE 25,3:PRINT J$:LOCATE 30,3:PRINT hr$:LOCATE 35,3:PRINT mn$:RETURN
120 IF VAL(rt$)<10 THEN rt$="0"+RIGHT$(rt$,1):RETURN ELSE rt$=RIGHT$(rt$,2):RETURN
130 R4=0:FOR b1=1 TO 100:GOSUB 1460:IF pr=1 THEN 140 ELSE NEXT:RETURN
140 IF N5=0 THEN PRINT#2:PRINT#2,"vous voyez":PRINT#2,N;N0$:RETURN
150 WHILE R4<N5:R4=R4+1
160 CALL &9E00:IF PEEK(&9E07)=18 THEN PRINT#2:PRINT#2," Il n'y a":PRINT#2," rien...":WEND:PRINT#2:PRINT#2,"il y a":PRINT#2,N;N0$:ch=1:RETURN ELSE IF PEEK(&9E07)=30 THEN 160 ELSE RETURN
170 IF N4=1 THEN RETURN ELSE FOR r1=1 TO 5:IF pv(r1)=0 THEN 200 ELSE F(r1)=F(r1)-1:M(r1)=M(r1)+1:B(r1)=B(r1)+1:IF M(r1)>48+F(r1)THEN F(r1)=F(r1)-4
180 IF B(r1)>10+CINT(F(r1)/2)THEN F(r1)=F(r1)-5
190 IF F(r1)<2 THEN pv(r1)=pv(r1)-INT(RND(1)*10)+1
200 NEXT:GOSUB 1480:RETURN
210 ej=1:PAPER#3,0:CLS#3:CLS#2:PEN#3,3:INK 3,18:PRINT#3:PRINT#3:PEN#3,1:PRINT#3,"  SANTE DU GROUPE":PRINT#3:PRINT#3:FOR r2=1 TO 5:sa$="":sb$="":sc$="":IF pv(r2)=0 THEN 260 ELSE IF M(r2)>10+CINT(F(r2)/2)THEN sa$="faim"
220 IF B(r2)>5+CINT(F(r2)/4)THEN sb$="soif"
230 IF F(r2)<6-CINT(F(r2)/4)THEN sc$="sommeil"
240 PEN#3,2:IF sa$=""AND sb$=""AND sc$=""THEN PRINT#3," ";UPPER$(ps$(r2));:PEN#3,3:PRINT#3," va bien":GOTO 260
250 PEN#3,2:PRINT#3," ";UPPER$(ps$(r2));:PEN#3,3:PRINT#3," a ";sa$:PRINT#3,STRING$(LEN(ps$(r2))+3," ");sb$:PRINT#3,STRING$(LEN(ps$(r2))+3," ");sc$
260 NEXT:v0=1:v1=4:GOSUB 370:IF t%=1 THEN P1$="mange"ELSE IF t%=2 THEN P1$="boit"ELSE IF t%=3 THEN P1$="dort"ELSE IF t%=4 THEN 770
270 IF P1$="boit"AND B3=0 OR P1$="mange"AND M=0 THEN GOSUB 840:GOTO 770 ELSE CLS#2:PRINT#2," Qui ";P1$:GOSUB 420
280 CALL &9E00:IF PEEK(&9E07)<6 THEN t%=PEEK(&9E07):GOTO 290 ELSE 280
290 IF P1$="dort"THEN 350 ELSE IF P1$="boit"THEN pv(t%)=pv(t%)+(50*INT(RND(1)*6)):F(t%)=F(t%)+2
300 IF P1$="mange"THEN M=M-1:M(t%)=0 ELSE B3=B3-1:B(t%)=0
310 IF P1$="mange"AND M>0 THEN 440 ELSE IF P1$="boit"AND B3>0 THEN 440
320 IF P1$="mange"THEN a1=22:a2=40:a3=78:a4=81:a5=98:a6=101 ELSE IF P1$="boit"THEN a1=15:a2=19:a3=39:a4=45:a5=81:a6=84
330 fi=0:OPENIN"fcob":WHILE NOT EOF:fi=fi+1:INPUT#9,k$:IF fi>a1 AND fi<a2 OR fi>a3 AND fi<a4 OR fi>a5 AND fi<a6 THEN o$(fi)=k$
340 WEND:CLOSEIN:IF I0=1 THEN RETURN ELSE GOSUB 500:GOTO 770
350 drm=0:CLS #2:PRINT#2:PRINT#2:PEN#2,1:PAPER#2,2:PRINT#2,"             ":PRINT#2," TIR ou COPY ":PRINT#2,"   pour le   ":PRINT#2,"  reveiller  ":N4=1:PEN#2,0:PAPER#2,1 
360 CALL &9E00:IF PEEK(&9E07)<>30 THEN F(t%)=F(t%)+INT(drm):N4=0:GOTO 770 ELSE IF drm>5 OR F(t%)+INT(drm)>19 THEN 360 ELSE drm=drm+0.01:GOTO 360
370 RESTORE 640:FOR w0=1 TO v0:READ k$:NEXT:FOR w0=1 TO v1:READ k$:PEN#2,0:PAPER#2,1:PRINT#2,k$;STRING$(9-LEN(k$),".");:PEN#2,1:PAPER#2,2:PRINT#2,w0:NEXT:PEN#2,0:PAPER#2,1
380 CALL &9E00:IF PEEK(&9E07)<v1+1 THEN t%=PEEK(&9E07):RETURN ELSE 380
390 CLS#2:PRINT#2:PRINT#2,"Vous parlez :":v0=5:v1=5:GOSUB 370:RETURN
400 CLS#2:PRINT#2:PRINT#2,"Vous  :":v0=15:v1=4:GOSUB 370:RETURN
410 CLS#2:PRINT#2:PRINT#2,"Nous sommes :":v0=10:v1=5:GOSUB 370:RETURN
420 PRINT#2:FOR r1=1 TO 5:IF pv(r1)=0 THEN 430 ELSE PEN#2,0:PAPER#2,1:PRINT#2,UPPER$(ps$(r1));STRING$(9-LEN(ps$(r1)),".");:PEN#2,1:PAPER#2,2:PRINT#2,r1
430 NEXT:PEN#2,0:PAPER#2,1:RETURN
440 EI:CALL &9E00:PEN 1:PAPER 0:CALL &81FE:GOSUB 880:ON PEEK(&81F4)GOTO 450,450,450,450,450,850,850,850,850,850,850,450,450,650,780,210,450,460,480,510,450,450,450,450,930,450,450,1260,450,440,950,950
450 SOUND 1,478,10,15:GOTO 440
460 CLS#2:PRINT#2:PRINT#2," Il n'y a":PRINT#2," rien...":GOSUB 130:GOTO 440
470 CLS#2:GOSUB 840:GOTO 440
480 IF b1>100 THEN 470 ELSE CLS#2:FOR b1=1 TO 100:GOSUB 1460:IF pr=1 THEN IF ch=1 THEN PRINT#2,"Qui prend ?":GOSUB 420 ELSE 470 ELSE NEXT:GOTO 470
490 CALL &9E00:IF PEEK(&9E07)<6 THEN t%=PEEK(&9E07):IF P(t%)>P2+F(t%)THEN 470 ELSE de=t%:GOSUB 1280:o$(b1)=LEFT$(o$(b1),5)+"p"+RIGHT$(STR$(t%),1):P(t%)=P(t%)+(P^2+0.5):ch=0:GOSUB 500:GOTO 440 ELSE 490
500 CLS#2:PEN 2:PAPER 0:LOCATE 24,21:PRINT"OK":SOUND 1,478,10,15:FOR t=1 TO 500:NEXT:LOCATE 24,21:PRINT"  ":RETURN
510 CLS#2:PRINT#2,"Qui laisse ?":GOSUB 420
520 CALL &9E00:IF PEEK(&9E07)<6 THEN FOR b1=1 TO 100:IF MID$(o$(b1),6,1)="p"AND VAL(MID$(o$(b1),7,1))=PEEK(&9E07)THEN 530 ELSE NEXT:GOTO 470 ELSE 520
530 PAPER#3,0:CLS#3:PRINT#3:PEN#3,1:PRINT#3,UPPER$(ps$(PEEK(&9E07)));:PEN#3,3:PRINT#3," peut laisser:":PEN#3,2:FOR b1=1 TO 100:IF MID$(o$(b1),6,1)="p"AND VAL(MID$(o$(b1),7,1))=PEEK(&9E07)THEN GOSUB 1470:PRINT#3,N0$ELSE 550
540 CALL &9E00:IF PEEK(&9E07)=20 THEN 570 ELSE IF PEEK(&9E07)=30 THEN 540
550 NEXT:PRINT#3,"Rien d'autre..."
560 CALL &9E00:IF PEEK(&9E07)=30 THEN 560 ELSE 770
570 P(VAL(MID$(o$(b1),7,1)))=P(VAL(MID$(o$(b1),7,1)))-(P^2+0.5):bl$=RIGHT$(STR$(PEEK(&81F6)),1):IF PEEK(63)<10 THEN V2$="0"+RIGHT$(STR$(PEEK(63)),1)ELSE V2$=RIGHT$(STR$(PEEK(63)),2)
580 de=VAL(MID$(o$(b1),7,1)):GOSUB 1330:o$(b1)=LEFT$(o$(b1),5)+"i"+V2$+bl$+RIGHT$(STR$(PEEK(&81F7)),1):GOSUB 500:IF R0=1 THEN RETURN ELSE 770
590 DATA unvitri,hypno,emera,fusis,tanaris  
600 DATA ishtar,belgora,granhalf,emera,dormahot 
610 DATA ishtar,fusis,tanaris,zephir,polyg  
620 DATA epee DEINOS,collier eternel,baton de GOLANUR,cristal noir,medaillon de CALAAN,rubis de TANARIS,potion,fiole,parchemin,rouleau de papier,sac,jambon,poulet,cochon,cerf,sanglier,champignon,fruit,poisson,eau,vin,liqueur,couteau 
630 DATA epee,bouclier,heaume,hache,masse,arc,lance,hussite,pointe,musette,sandale,etoffe,cape,draperie,pain,vin,eau,bibelot,antidote,pepites,lampe,torche,allumeur,legumes,luth 
640 DATA rien,MANGER,BOIRE,DORMIR,FIN,BONJOUR,ACTION,TOI,MOI,RIEN,MARCHANDS,PELERINS,GUERRIERS,VOLEURS,DES AMIS,FLATTEZ,MENACEZ,INJURIEZ,ATTENDEZ   
650 ej=1:PAPER#3,0:CLS#3:PEN#3,1:INK 3,2:GOSUB 830:tr=1
660 PEN#3,3:LOCATE#3,1,6:PRINT#3,"Force       :":LOCATE#3,1,7:PRINT#3,"Intelligence:":LOCATE#3,1,4:PRINT#3,"Niveau      :":LOCATE#3,1,15:PRINT#3,"Sort(s):":LOCATE#3,1,8:PRINT#3,"Sagesse     :":LOCATE#3,1,9:PRINT#3,"Dexterite   :":LOCATE#3,1,10
670 PRINT#3,"Clsse armure:":LOCATE#3,1,11:PRINT#3,"Pts de vie  :":LOCATE#3,1,12:PRINT#3,"Monnaie     :":LOCATE#3,1,13:PRINT#3,"Experience  :":PEN#3,3:LOCATE#3,16,11:PRINT#3,"0000":LOCATE#3,16,12:PRINT#3,"0000":LOCATE#3,14,13:PRINT#3,"000000":PEN#3,1
680 LOCATE#3,17,4:PRINT#3,N(tr):FOR n1=1 TO 5:LOCATE#3,10,14+n1:PRINT#3,STRING$(10," "):NEXT:IF pv(tr)<1 THEN CLS#3:LOCATE#3,8,8:PRINT#3,"MORT"
690 PEN#3,2:LOCATE#3,1,2:PRINT#3,STRING$(19," "):LOCATE#3,10-(LEN(ps$(tr))/2),2:PRINT#3,UPPER$(ps$(tr)):IF pv(tr)<1 THEN 750 ELSE LOCATE#3,1,5:PRINT#3,C$(tr);"     ":PEN#3,1:LOCATE#3,17,6:PRINT#3,F(tr)
700 LOCATE#3,17,7:PRINT#3,I(tr):LOCATE#3,17,8:PRINT#3,S(tr):LOCATE#3,17,9:PRINT#3,D(tr):LOCATE#3,17,10:PRINT#3,E(tr):LOCATE#3,20-(LEN(STR$(pv(tr)))-1),11:PRINT#3,RIGHT$(STR$(pv(tr)),LEN(STR$(pv(tr)))-1):LOCATE#3,20-(LEN(STR$(mn(tr)))-1),12
710 PRINT#3,RIGHT$(STR$(mn(tr)),LEN(STR$(mn(tr)))-1):LOCATE#3,20-(LEN(STR$(ex(tr)))-1),13:PRINT#3,RIGHT$(STR$(ex(tr)),LEN(STR$(ex(tr)))-1)
720 IF st$(tr)="" OR st$(tr)=" " THEN LOCATE#3,10,15:PRINT#3,"AUCUN SORT":GOTO 750 ELSE FOR n1=1 TO LEN(st$(tr)):s1$=MID$(st$(tr),n1,1):IF N(tr)=1 THEN RESTORE 590 ELSE IF N(tr)=2 THEN RESTORE 600 ELSE RESTORE 610 
730 FOR n2=1 TO 5:READ s2$:IF s1$=LEFT$(s2$,1)THEN LOCATE#3,12,15+n2:PRINT#3,UPPER$(s2$)
740 NEXT:NEXT
750 CALL &9E00:IF PEEK(&9E07)<>30 THEN tr=tr+1 ELSE 750
760 IF ps$(tr)=""THEN 770 ELSE 660
770 ej=0:CLS#3:GOSUB 70:PAPER#3,3:CLS#3:GOTO 40
780 ej=1:I0=0:PAPER#3,0:CLS#3:tr=0:PEN#3,3:INK 3,20:FOR r1=1 TO 5:IF pv(r1)=0 THEN 820 ELSE PEN#3,1:PRINT#3:PRINT#3,UPPER$(ps$(r1));:PEN#3,3:PRINT#3," porte :"
790 PEN#3,2:FOR r2=1 TO 100:O$="p"+RIGHT$(STR$(r1),1):IF MID$(o$(r2),6,2)=O$THEN cd=VAL(LEFT$(o$(r2),2)):RESTORE 620:I0=1:FOR r3=1 TO cd:READ N0$:NEXT:PRINT#3,N0$
800 NEXT:IF I0=0 THEN PRINT#3,"rien"
810 CALL &9E00:IF PEEK(&9E07)<>30 THEN 820 ELSE 810
820 I0=0:NEXT:GOTO 770
830 CLS#2:PAPER#2,1:PEN#2,2:PRINT#2,"APPUYER sur ":PRINT#2,"TIR ou COPY ":PRINT#2,"pour passer":PAPER#2,1:PEN#2,0:RETURN
840 FOR b1=1 TO 2:FOR b2=1 TO 400:NEXT:PEN 1:PAPER 2:LOCATE 24,21:PRINT" impossible ":FOR b2=1 TO 400:NEXT:PEN 1:PAPER 0:LOCATE 24,21:PRINT"            ":NEXT:CLS#2:RETURN
850 GOTO 50
860 INK 3,24,0:SPEED INK 20,20:PAPER#3,0:CLS#3:PEN#3,3:PRINT#3:PRINT#3:PRINT#3:PRINT#3,"       METTEZ":PRINT#3:PEN#3,2:PRINT#3,"         LA":PRINT#3:PEN#3,3:PRINT#3,"       FACE 1":PRINT#3:PEN#3,2:PRINT#3," et appuyer sur une ":PRINT#3
870 PRINT#3,"       touche":CALL &BB18:CALL &7B40:MEMORY &96FF:GOSUB 1580:MEMORY &96FF:GOSUB 1710:RUN"w86" 
880 IF PEEK(63)=6 AND PEEK(&81F6)=3 AND PEEK(&81F7)=6 AND hr=12 AND RIGHT$(o$(3),5)="i0636"AND RIGHT$(o$(4),5)="i0636"THEN 900 ELSE POKE &80AE,0:R=0
890 IF PEEK(63)=6 AND PEEK(&81F6)=3 AND PEEK(&81F7)=8 AND RIGHT$(o$(1),5)<>"i0638"THEN CALL &88A0:RETURN ELSE RETURN
900 IF R=1 THEN 920 ELSE R=1:CLS#2:PRINT#2:PRINT#2,"Trois rayons":PRINT#2,"de  lumiere ":PRINT#2,"jaillissent":PRINT#2,"du baton...":GOSUB 1540:SOUND 1,10,30,15,1,1,1:INK 0,24:FOR tp=1 TO 50:NEXT:INK 0,0:GOSUB 1540
910 PRINT#2,"Une porte":PRINT#2,"s'entrouve"
920 CALL &8886:POKE &80AE,70:CALL &8000:RETURN
930 IF P0=0 OR B0=0 THEN 470 ELSE CLS#2:PRINT#2:PRINT#2,"Qui paye ?":GOSUB 420
940 CALL &9E00:t%=PEEK(&9E07):IF t%<6 THEN IF pv(t%)<1 OR mn(t%)-B0<0 THEN 470 ELSE mn(t%)=mn(t%)-B0:B0=0:CLS#2:GOSUB 500:GOTO 440 ELSE 940
950 IF PEEK(63)=11 OR PEEK(63)=12 THEN IF B0=0 THEN 860 ELSE CLS#2:PRINT#2:PRINT#2,"Vous n'avez  pas regler lanote...":GOSUB 1540:GOTO 440 ELSE 860
960 GOSUB 1540:PRINT#2:PRINT#2:PRINT#2:PRINT#2:IF PEEK(63)=10 THEN 980 ELSE IF PEEK(63)=13 THEN 1020 ELSE IF PEEK(63)=7 THEN 1070 ELSE IF PEEK(63)=9 THEN 1130 ELSE IF PEEK(63)=8 THEN 1180
970 IF PEEK(63)=11 THEN 1230 ELSE IF PEEK(63)=12 THEN 1250 ELSE RETURN 
980 IF PEEK(&81F7)<>2 THEN RETURN ELSE PRINT#2,"Il demande    50 p.o pour ses services.":GOSUB 1550
990 PRINT#2,"Qui paye ?":GOSUB 420:PEN#2,0:PAPER#2,1:PRINT#2,"PARTIR...";:PEN#2,1:PAPER#2,2:PRINT#2,"  ":PEN#2,0:PAPER#2,1:PRINT#2:PRINT#2
1000 CALL &9E00:t%=PEEK(&9E07):IF t%<6 THEN IF pv(t%)<1 OR mn(t%)-50<0 THEN GOSUB 840:GOTO 990 ELSE mn(t%)=mn(t%)-50 ELSE IF t%=6 THEN CLS#2:RETURN ELSE 1000
1010 CLS#2:POKE &8607,14+INT(RND(1)*4):PEN 0:PAPER 1:CALL &8603:GOSUB 1550:CLS#2:GOTO 980
1020 IF PEEK(&81F7)<>4 THEN RETURN
1030 IF RIGHT$(o$(100),5)<>"i1314" OR T0=1 THEN 1050 
1040 PRINT#2,"Quel beau ca-deau !":GOSUB 1550:PRINT#2,"j'adore la   musique.":GOSUB 1550:PRINT#2,"recevez mon  aide  en  re-compense.":GOSUB 1550:CLS#2:FOR b1=1 TO 5:POKE &8607,30+b1:PEN 0:PAPER 1:CALL &8603:GOSUB 1550:NEXT:RETURN
1050 GOSUB 390:IF t%=5 THEN RETURN ELSE IF t%=1 OR t%=2 OR t%=3 THEN PRINT#2,"Il ne dit    rien...":GOSUB 1540:GOTO 1050
1060 GOSUB 410:PRINT#2,"Il bougonne":GOSUB 1540:GOTO 1050
1070 P3=INT(RND(1)*100):IF P3>50 THEN RETURN ELSE POKE &8606,3:CALL &8600
1080 GOSUB 390:IF t%=1 THEN POKE &8607,1+INT(RND(1)*5)ELSE IF t%=3 THEN POKE &8607,5+INT(RND(1)*5)ELSE IF t%=5 THEN RETURN ELSE IF t%=2 THEN 1100 ELSE IF t%=4 THEN 1110
1090 CLS#2:PEN 0:PAPER 1:CALL &8603:GOSUB 1550:GOTO 1080
1100 GOSUB 400:IF t%=1 THEN POKE &8607,5:GOTO 1090 ELSE IF t%=2 THEN POKE &8607,11:GOTO 1090 ELSE IF t%=3 THEN POKE &8607,12:GOTO 1090 ELSE RETURN
1110 GOSUB 410:IF t%=1 THEN POKE &8607,2:GOTO 1090 ELSE IF t%=2 THEN POKE &8607,4:GOTO 1090 ELSE IF t%=3 THEN POKE &8607,3:GOTO 1090 ELSE IF t%=4 THEN POKE &8607,7:GOTO 1090
1120 POKE &8607,13:CLS#2:PEN 0:PAPER 1:CALL &8603:GOSUB 1550:POKE &85DF,25:POKE &85E0,194:CALL &8519:GOSUB 830:CALL &BB18:GOTO 50
1130 IF N3=1 THEN RETURN ELSE P3=INT(RND(1)*100):IF P3>50 THEN RETURN ELSE POKE &8606,5:CALL &8600
1140 GOSUB 390:IF t%=1 THEN POKE &8607,1+INT(RND(1)*5)ELSE IF t%=3 THEN POKE &8607,35+INT(RND(1)*5)ELSE IF t%=5 THEN RETURN ELSE IF t%=2 THEN 1160 ELSE IF t%=4 THEN 1170
1150 CLS#2:PEN 0:PAPER 1:CALL &8603:GOSUB 1550:GOTO 1140
1160 GOSUB 400:IF t%=1 THEN POKE &8607,46:GOTO 1150 ELSE IF t%=2 THEN POKE &8607,47:GOTO 1150 ELSE IF t%=3 THEN POKE &8607,48:GOTO 1150 ELSE CLS#2:PEN 0:PAPER 1:POKE &8607,49:CALL &8603:GOSUB 1550:N3=1:GOTO 50
1170 GOSUB 410:IF t%=1 THEN POKE &8607,41:GOTO 1150 ELSE IF t%=2 THEN POKE &8607,42:GOTO 1150 ELSE IF t%=3 THEN POKE &8607,43:GOTO 1150 ELSE IF t%=4 THEN POKE &8607,44:GOTO 1150 ELSE POKE &8607,45:GOTO 1150
1180 P3=INT(RND(1)*100):IF P3>50 THEN RETURN ELSE POKE &8606,4:CALL &8600
1190 GOSUB 390:IF t%=1 THEN POKE &8607,1+INT(RND(1)*5)ELSE IF t%=3 THEN POKE &8607,17+INT(RND(1)*5)ELSE IF t%=5 THEN RETURN ELSE IF t%=2 THEN 1210 ELSE IF t%=4 THEN 1220
1200 CLS#2:PEN 0:PAPER 1:CALL &8603:GOSUB 1550:GOTO 1190
1210 GOSUB 400:IF t%=1 THEN POKE &8607,27:GOTO 1200 ELSE IF t%=2 THEN POKE &8607,28:GOTO 1200 ELSE IF t%=3 THEN POKE &8607,29:GOTO 1200 ELSE CLS#2:PEN 0:PAPER 1:POKE &8607,30:CALL &8603:GOTO 1200
1220 GOSUB 410:IF t%=1 THEN POKE &8607,23:GOTO 1200 ELSE IF t%=2 THEN POKE &8607,24:GOTO 1200 ELSE IF t%=3 THEN POKE &8607,25:GOTO 1200 ELSE IF t%=4 THEN POKE &8607,26:GOTO 1200 ELSE POKE &8607,2:GOTO 1200
1230 IF PEEK(&81F7)=2 THEN P3=INT(RND(1)*100):IF P3>50 THEN P0=0:RETURN ELSE POKE &8606,1:CALL &8600 ELSE RETURN 
1240 PRINT#2:PRINT#2,"Bonjour...":P0=1:IF B0=0 THEN RETURN ELSE PRINT#2:PRINT#2,"Votre note :":PRINT#2,"  ";B0;" p.o":RETURN
1250 IF PEEK(&81F7)=2 THEN P3=INT(RND(1)*100):IF P3>50 THEN P0=0:RETURN ELSE POKE &8606,2:CALL &8600:GOTO 1240 ELSE RETURN 
1260 CLS #2:PRINT #2,"ok (o/n) ?"
1262 t$=INKEY$:IF t$="o" THEN 1265 ELSE IF t$="n" THEN 440 ELSE 1262 
1265 GOSUB 1580:FOR S0=0 TO 21:POKE &9FE0+S0,PEEK(110+S0):NEXT:POKE &9FF8,PEEK(63):GOSUB 1710:CLS#2:PRINT CHR$(7):PRINT#2," METTEZ une":PRINT#2," DISQUETTE":PRINT#2," et pressez":PRINT#2," une touche":DI:CALL &BB18:MEMORY &96FF:SAVE"f&fb",b,&9FCB,48 
1270 GOSUB 1640:PRINT CHR$(7):PRINT#2,"ok":EI:CALL &BB18:RUN
1280 IF b1>15 AND b1<19 OR b1>39 AND b1<45 OR b1>80 AND b1<84 THEN B3=B3+1 ELSE IF b1>20 AND b1<40 OR b1=99 THEN M=M+1 ELSE IF b1=16 THEN pv(de)=pv(de)-(100*INT(RND(1)*6)+1)ELSE IF b1>16 AND b1<19 THEN F(de)=F(de)+4
1290 IF b1>85 AND b1<88 THEN F(de)=F(de)-3:pv(de)=pv(de)-50 ELSE IF b1>44 AND b1<48 THEN D(de)=D(de)+2:F(de)=F(de)+2 ELSE IF b1>47 AND b1<51 THEN F(de)=F(de)+3 ELSE IF b1>50 AND b1<55 THEN E(de)=E(de)-3
1300 IF b1>54 AND b1<57 THEN F(de)=F(de)+4 ELSE IF b1>56 AND b1<59 THEN F(de)=F(de)+1:D(de)=D(de)+3 ELSE IF b1>58 AND b1<64 THEN F(de)=F(de)+2:E(de)=E(de)-3 ELSE IF b1>63 AND b1<67 THEN P2=P2+25
1310 IF b1>66 AND b1<69 THEN F(de)=F(de)+1 ELSE IF b1>68 AND b1<75 THEN E(de)=E(de)-1
1315 xx$="":IF b1=20 AND PEEK(63)=9 THEN IF C(de)=2 THEN xx$="d" ELSE IF C(de)=3 THEN xx$="b" ELSE 1320 
1316 IF xx$="" THEN 1320 ELSE FOR xyz=1 TO LEN(st$(de)):xy$(xyz)=MID$(st$(de),xyz,1):NEXT:xyz=1:st$(de)="" 
1317 IF xy$(xyz)="" OR xy$(xyz)=" " THEN 1318 ELSE st$(de)=st$(de)+xy$(xyz):xyz=xyz+1:GOTO 1317 
1318 st$(de)=st$(de)+xx$:IF LEN(st$(de))>3 THEN st$(de)=RIGHT$(st$(de),3)
1320 ex(de)=ex(de)+INT(RND(1)*10)+1:IF PEEK(63)=11 OR PEEK(63)=12 THEN B0=B0+PEEK(63):RETURN ELSE RETURN
1330 IF b1>15 AND b1<19 OR b1>39 AND b1<45 OR b1>80 AND b1<84 THEN B3=B3-1 ELSE IF b1>20 AND b1<40 OR b1=99 THEN M=M-1 ELSE IF b1>44 AND b1<48 THEN D(de)=D(de)-2:F(de)=F(de)-2 ELSE IF b1>47 AND b1<51 THEN F(de)=F(de)-3
1340 IF b1>50 AND b1<55 THEN E(de)=E(de)+3 ELSE IF b1>54 AND b1<57 THEN F(de)=F(de)-4 ELSE IF b1>56 AND b1<59 THEN F(de)=F(de)-1:D(de)=D(de)-3 ELSE IF b1>58 AND b1<64 THEN F(de)=F(de)-2:E(de)=E(de)+3
1350 IF b1>63 AND b1<67 THEN P2=P2-25 ELSE IF b1>66 AND b1<69 THEN F(de)=F(de)-1 ELSE IF b1>68 AND b1<75 THEN E(de)=E(de)+1
1360 RETURN
1370 FOR np=1 TO 5:IF P0$(np)=""THEN 1390
1380 IF ASC(LEFT$(P0$(np),1))<57 THEN GOSUB 1400 ELSE ps$(np)=ps$(np)+LEFT$(P0$(np),1):P0$(np)=RIGHT$(P0$(np),LEN(P0$(np))-1):GOTO 1380
1390 NEXT:RETURN
1400 F(np)=VAL(LEFT$(P0$(np),2)):I(np)=VAL(MID$(P0$(np),3,2)):S(np)=VAL(MID$(P0$(np),5,2)):D(np)=VAL(MID$(P0$(np),7,2)):E(np)=VAL(MID$(P0$(np),9,2)):pv(np)=VAL(MID$(P0$(np),11,4)):mn(np)=VAL(MID$(P0$(np),15,4))
1410 ex(np)=VAL(MID$(P0$(np),19,6)):C$(np)=MID$(P0$(np),25,1):x=VAL(MID$(P0$(np),26,2)):y=VAL(MID$(P0$(np),28,2)):ca=VAL(MID$(P0$(np),30,2)):st$(np)=MID$(P0$(np),33,3):N(np)=VAL(MID$(P0$(np),32,1)) 
1420 IF C$(np)="G"THEN C$(np)="Guerrier":C(np)=1 ELSE IF C$(np)="M"THEN C$(np)="Magicien":C(np)=3 ELSE IF C$(np)="E"THEN C$(np)="Elfe":C(np)=2 ELSE IF C$(np)="C"THEN C$(np)="Clerc":C(np)=3
1430 IF C$(np)="H"THEN C$(np)="Chevalier":C(np)=2 ELSE IF C$(np)="V"THEN C$(np)="Voleur":C(np)=2 ELSE IF C$(np)="N"THEN C$(np)="Nain":C(np)=4 ELSE IF C$(np)="T"THEN C$(np)="Tinigen":C(np)=4
1440 IF I(np)<9 OR S(np)<9 THEN st$(np)=""
1450 RETURN
1460 pr=0:IF MID$(o$(b1),6,1)="i"AND VAL(MID$(o$(b1),7,2))=PEEK(63)THEN IF VAL(MID$(o$(b1),9,1))=PEEK(&81F6)AND VAL(MID$(o$(b1),10,1))=PEEK(&81F7)THEN 1470 ELSE RETURN ELSE RETURN
1470 pr=1:RESTORE 620:cd=VAL(LEFT$(o$(b1),2)):FOR b2=1 TO cd:READ N0$:NEXT:P=VAL(MID$(o$(b1),3,1)):N5=VAL(MID$(o$(b1),4,1)):N5=N5+CINT(RND(1)*10):N=VAL(MID$(o$(b1),5,1)):RETURN
1480 FOR C=1 TO 5:vt=F(C):GOSUB 1530:F(C)=vt:vt=I(C):GOSUB 1530:I(C)=vt:vt=S(C):GOSUB 1530:S(C)=vt:vt=D(C):GOSUB 1530:D(C)=vt:vt=E(C):GOSUB 1530:E(C)=vt
1490 IF pv(C)<1 THEN pv(C)=0 ELSE IF pv(C)>1000 THEN pv(C)=1000
1500 IF mn(C)<1 THEN mn(C)=0 ELSE IF mn(C)>9999 THEN mn(C)=9999
1510 IF ex(C)<0 THEN ex(C)=0 ELSE IF ex(C)>(30000*N(C)) THEN N(C)=N(C)+1
1515 IF N(C)>3 THEN N(C)=3:ex(C)=90000
1520 NEXT:RETURN
1530 IF vt<1 THEN vt=0:RETURN ELSE IF vt>20 THEN vt=20:RETURN ELSE RETURN 
1540 FOR w=1 TO 1000:NEXT:RETURN
1550 FOR w=1 TO 3000:NEXT:RETURN
1560 M0=0:FOR H=1 TO 5:IF pv(H)>1 THEN M0=1
1570 NEXT:IF M0=0 THEN CLEAR:MEMORY &9FFF:RUN"f&f3"ELSE RETURN
1580 POKE &9FCB,J:POKE &9FCC,hr:POKE &9FCD,mn:POKE &9FD3,P2:FOR b1=1 TO 5:POKE &9FD3+b1,M(b1):NEXT:FOR b1=1 TO 5:POKE &9FD8+b1,B(b1):NEXT:POKE &9FDE,M:POKE &9FDF,B3:POKE &9FCE,PEEK(&81F6):POKE &9FCF,PEEK(&81F7):RETURN
1590 v$="":IF v<10 THEN v$="0":RETURN ELSE RETURN
1600 v$="":IF v<100 THEN GOSUB 1590:v$=v$+"0":RETURN ELSE RETURN
1610 v$="":IF v<1000 THEN GOSUB 1600:v$=v$+"0":RETURN ELSE RETURN
1620 v$="":IF v<10000 THEN GOSUB 1610:v$=v$+"0":RETURN ELSE RETURN
1630 v$=v$+RIGHT$(STR$(v),LEN(STR$(v))-1):RETURN
1640 FOR b1=1 TO 5:IF P0$(b1)=""THEN 1690 ELSE v=x:GOSUB 1590:GOSUB 1630:x$=v$:v=y:GOSUB 1590:GOSUB 1630:y$=v$:v=ca:GOSUB 1590:GOSUB 1630:ca$=v$
1650 v=F(b1):GOSUB 1590:GOSUB 1630:f$=v$:v=I(b1):GOSUB 1590:GOSUB 1630:i$=v$:v=S(b1):GOSUB 1590:GOSUB 1630:s$=v$:v=D(b1):GOSUB 1590:GOSUB 1630:d$=v$:v=E(b1):GOSUB 1590:GOSUB 1630:e$=v$:v=pv(b1):GOSUB 1610:GOSUB 1630:pv$=v$
1660 IF C$(b1)="Chevalier"THEN C$(b1)="H"ELSE C$(b1)=UPPER$(LEFT$(C$(b1),1))
1670 IF ca$="100"THEN ca$="00"
1680 v=mn(b1):GOSUB 1610:GOSUB 1630:mn$=v$:v=ex(b1):GOSUB 1620:GOSUB 1630:ex$="0"+v$:P0$(b1)=ps$(b1)+f$+i$+s$+d$+e$+pv$+mn$+ex$+C$(b1)+x$+y$+ca$+RIGHT$(STR$(N(b1)),1)+st$(b1)
1690 NEXT:OPENOUT"fcps":FOR b1=1 TO 5:IF P0$(b1)=""THEN 1700 ELSE PRINT#9,P0$(b1)
1700 NEXT:CLOSEOUT:OPENOUT"fo":FOR b1=1 TO 100:PRINT#9,o$(b1):NEXT:CLOSEOUT:RETURN
1710 a$="fcps":b$="fo":|ERA,@a$:|ERA,@b$:GOSUB 1640:RETURN