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:DIMo$(100):P2=PEEK(&9FD3):GOSUB80:POKE&81F6,PEEK(&9FCE):POKE&81F7,PEEK(&9FCF):J=PEEK(&9FCB):hr=PEEK(&9FCC):mn=PEEK(&9FCD):FORb1=1TO5:M(b1)=PEEK(&9FD3+b1):NEXT:FORb1=1TO5: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:GOSUB1560:CALL&8000:GOSUB70:CALL&8326:IFPEEK(63)=6THENCALL&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:WHILENOTEOF:INPUT#9,P0$(fi):fi=fi+1:WEND:CLOSEIN:OPENIN"fo":fi=1:WHILENOTEOF:INPUT#9,o$(fi):fi=fi+1:WEND:CLOSEIN:GOSUB1370:PEN2:PAPER0:LOCATE27,3
90 PRINT"JR":LOCATE32,3:PRINT"HR":LOCATE37,3:PRINT"MN":EVERY249.600000024,1GOSUB100:PEN0:PAPER1:RETURN
100 GOSUB70:mn=mn+1:IFmn=60THENIFhr=23THENJ=J+1:hr=0:mn=0ELSEhr=hr+1:mn=0:GOSUB170
110 rt$=STR$(mn):GOSUB120:mn$=rt$:rt$=STR$(hr):GOSUB120:hr$=rt$:rt$=STR$(J):GOSUB120:J$=rt$:PEN1:PAPER0:LOCATE25,3:PRINT J$:LOCATE30,3:PRINT hr$:LOCATE35,3:PRINT mn$:RETURN
120 IFVAL(rt$)<10THENrt$="0"+RIGHT$(rt$,1):RETURNELSErt$=RIGHT$(rt$,2):RETURN
130 R4=0:FORb1=1TO100:GOSUB1460:IFpr=1THEN140ELSENEXT:RETURN
140 IFN5=0THENPRINT#2:PRINT#2,"vous voyez":PRINT#2,N;N0$:RETURN
150 WHILER4<N5:R4=R4+1
160 CALL&9E00:IFPEEK(&9E07)=18THENPRINT#2:PRINT#2," Il n'y a":PRINT#2," rien...":WEND:PRINT#2:PRINT#2,"il y a":PRINT#2,N;N0$:ch=1:RETURNELSEIFPEEK(&9E07)=30THEN160ELSERETURN
170 IFN4=1THENRETURNELSEFORr1=1TO5:IFpv(r1)=0THEN200ELSEF(r1)=F(r1)-1:M(r1)=M(r1)+1:B(r1)=B(r1)+1:IFM(r1)>48+F(r1)THENF(r1)=F(r1)-4
180 IFB(r1)>10+CINT(F(r1)/2)THENF(r1)=F(r1)-5
190 IFF(r1)<2THENpv(r1)=pv(r1)-INT(RND(1)*10)+1
200 NEXT:GOSUB1480:RETURN
210 ej=1:PAPER#3,0:CLS#3:CLS#2:PEN#3,3:INK3,18:PRINT#3:PRINT#3:PEN#3,1:PRINT#3,"  SANTE DU GROUPE":PRINT#3:PRINT#3:FORr2=1TO5:sa$="":sb$="":sc$="":IFpv(r2)=0THEN260ELSEIFM(r2)>10+CINT(F(r2)/2)THENsa$="faim"
220 IFB(r2)>5+CINT(F(r2)/4)THENsb$="soif"
230 IFF(r2)<6-CINT(F(r2)/4)THENsc$="sommeil"
240 PEN#3,2:IFsa$=""ANDsb$=""ANDsc$=""THENPRINT#3," ";UPPER$(ps$(r2));:PEN#3,3:PRINT#3," va bien":GOTO260
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 IFP1$="boit"ANDB3=0ORP1$="mange"ANDM=0THENGOSUB840:GOTO770ELSECLS#2:PRINT#2," Qui ";P1$:GOSUB420
280 CALL&9E00:IFPEEK(&9E07)<6THENt%=PEEK(&9E07):GOTO290ELSE280
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 IFP1$="mange"THENM=M-1:M(t%)=0ELSEB3=B3-1:B(t%)=0
310 IFP1$="mange"ANDM>0THEN440ELSEIFP1$="boit"ANDB3>0THEN440
320 IFP1$="mange"THENa1=22:a2=40:a3=78:a4=81:a5=98:a6=101ELSEIFP1$="boit"THENa1=15:a2=19:a3=39:a4=45:a5=81:a6=84
330 fi=0:OPENIN"fcob":WHILENOTEOF:fi=fi+1:INPUT#9,k$:IFfi>a1ANDfi<a2ORfi>a3ANDfi<a4ORfi>a5ANDfi<a6THENo$(fi)=k$
340 WEND:CLOSEIN:IFI0=1THENRETURNELSEGOSUB500:GOTO770
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 RESTORE640:FORw0=1TOv0:READk$:NEXT:FORw0=1TOv1:READk$: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:IFPEEK(&9E07)<v1+1THENt%=PEEK(&9E07):RETURNELSE380
390 CLS#2:PRINT#2:PRINT#2,"Vous parlez :":v0=5:v1=5:GOSUB370:RETURN
400 CLS#2:PRINT#2:PRINT#2,"Vous  :":v0=15:v1=4:GOSUB370:RETURN
410 CLS#2:PRINT#2:PRINT#2,"Nous sommes :":v0=10:v1=5:GOSUB370:RETURN
420 PRINT#2:FORr1=1TO5:IFpv(r1)=0THEN430ELSEPEN#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:PEN1:PAPER0:CALL&81FE:GOSUB880:ONPEEK(&81F4)GOTO450,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 SOUND1,478,10,15:GOTO440
460 CLS#2:PRINT#2:PRINT#2," Il n'y a":PRINT#2," rien...":GOSUB130:GOTO440
470 CLS#2:GOSUB840:GOTO440
480 IFb1>100THEN470ELSECLS#2:FORb1=1TO100:GOSUB1460:IFpr=1THENIFch=1THENPRINT#2,"Qui prend ?":GOSUB420ELSE470ELSENEXT:GOTO470
490 CALL&9E00:IFPEEK(&9E07)<6THENt%=PEEK(&9E07):IFP(t%)>P2+F(t%)THEN470ELSEde=t%:GOSUB1280:o$(b1)=LEFT$(o$(b1),5)+"p"+RIGHT$(STR$(t%),1):P(t%)=P(t%)+(P^2+0.5):ch=0:GOSUB500:GOTO440ELSE490
500 CLS#2:PEN2:PAPER0:LOCATE24,21:PRINT"OK":SOUND1,478,10,15:FORt=1TO500:NEXT:LOCATE24,21:PRINT"  ":RETURN
510 CLS#2:PRINT#2,"Qui laisse ?":GOSUB420
520 CALL&9E00:IFPEEK(&9E07)<6THENFORb1=1TO100:IFMID$(o$(b1),6,1)="p"ANDVAL(MID$(o$(b1),7,1))=PEEK(&9E07)THEN530ELSENEXT:GOTO470ELSE520
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:FORb1=1TO100:IFMID$(o$(b1),6,1)="p"ANDVAL(MID$(o$(b1),7,1))=PEEK(&9E07)THENGOSUB1470:PRINT#3,N0$ELSE550
540 CALL&9E00:IFPEEK(&9E07)=20THEN570ELSEIFPEEK(&9E07)=30THEN540
550 NEXT:PRINT#3,"Rien d'autre..."
560 CALL&9E00:IFPEEK(&9E07)=30THEN560ELSE770
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):IFPEEK(63)<10THENV2$="0"+RIGHT$(STR$(PEEK(63)),1)ELSEV2$=RIGHT$(STR$(PEEK(63)),2)
580 de=VAL(MID$(o$(b1),7,1)):GOSUB1330:o$(b1)=LEFT$(o$(b1),5)+"i"+V2$+bl$+RIGHT$(STR$(PEEK(&81F7)),1):GOSUB500:IFR0=1THENRETURNELSE770
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:INK3,2:GOSUB830: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):FORn1=1TO5:LOCATE#3,10,14+n1:PRINT#3,STRING$(10," "):NEXT:IFpv(tr)<1THENCLS#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)):IFpv(tr)<1THEN750ELSELOCATE#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 FORn2=1TO5:READs2$:IFs1$=LEFT$(s2$,1)THENLOCATE#3,12,15+n2:PRINT#3,UPPER$(s2$)
740 NEXT:NEXT
750 CALL&9E00:IFPEEK(&9E07)<>30THENtr=tr+1ELSE750
760 IFps$(tr)=""THEN770ELSE660
770 ej=0:CLS#3:GOSUB70:PAPER#3,3:CLS#3:GOTO40
780 ej=1:I0=0:PAPER#3,0:CLS#3:tr=0:PEN#3,3:INK3,20:FORr1=1TO5:IFpv(r1)=0THEN820ELSEPEN#3,1:PRINT#3:PRINT#3,UPPER$(ps$(r1));:PEN#3,3:PRINT#3," porte :"
790 PEN#3,2:FORr2=1TO100:O$="p"+RIGHT$(STR$(r1),1):IFMID$(o$(r2),6,2)=O$THENcd=VAL(LEFT$(o$(r2),2)):RESTORE620:I0=1:FORr3=1TOcd:READN0$:NEXT:PRINT#3,N0$
800 NEXT:IFI0=0THENPRINT#3,"rien"
810 CALL&9E00:IFPEEK(&9E07)<>30THEN820ELSE810
820 I0=0:NEXT:GOTO770
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 FORb1=1TO2:FORb2=1TO400:NEXT:PEN1:PAPER2:LOCATE24,21:PRINT" impossible ":FORb2=1TO400:NEXT:PEN1:PAPER0:LOCATE24,21:PRINT"            ":NEXT:CLS#2:RETURN
850 GOTO50
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 IFPEEK(63)=6ANDPEEK(&81F6)=3ANDPEEK(&81F7)=6ANDhr=12ANDRIGHT$(o$(3),5)="i0636"ANDRIGHT$(o$(4),5)="i0636"THEN900ELSEPOKE&80AE,0:R=0
890 IFPEEK(63)=6ANDPEEK(&81F6)=3ANDPEEK(&81F7)=8ANDRIGHT$(o$(1),5)<>"i0638"THENCALL&88A0:RETURNELSERETURN
900 IFR=1THEN920ELSER=1:CLS#2:PRINT#2:PRINT#2,"Trois rayons":PRINT#2,"de  lumiere ":PRINT#2,"jaillissent":PRINT#2,"du baton...":GOSUB1540:SOUND1,10,30,15,1,1,1:INK0,24:FORtp=1TO50:NEXT:INK0,0:GOSUB1540
910 PRINT#2,"Une porte":PRINT#2,"s'entrouve"
920 CALL&8886:POKE&80AE,70:CALL&8000:RETURN
930 IFP0=0ORB0=0THEN470ELSECLS#2:PRINT#2:PRINT#2,"Qui paye ?":GOSUB420
940 CALL&9E00:t%=PEEK(&9E07):IFt%<6THENIFpv(t%)<1ORmn(t%)-B0<0THEN470ELSEmn(t%)=mn(t%)-B0:B0=0:CLS#2:GOSUB500:GOTO440ELSE940
950 IFPEEK(63)=11ORPEEK(63)=12THENIFB0=0THEN860ELSECLS#2:PRINT#2:PRINT#2,"Vous n'avez  pas regler lanote...":GOSUB1540:GOTO440ELSE860
960 GOSUB1540:PRINT#2:PRINT#2:PRINT#2:PRINT#2:IFPEEK(63)=10THEN980ELSEIFPEEK(63)=13THEN1020ELSEIFPEEK(63)=7THEN1070ELSEIFPEEK(63)=9THEN1130ELSEIFPEEK(63)=8THEN1180
970 IF PEEK(63)=11 THEN 1230 ELSE IF PEEK(63)=12 THEN 1250 ELSE RETURN 
980 IFPEEK(&81F7)<>2THENRETURNELSEPRINT#2,"Il demande    50 p.o pour ses services.":GOSUB1550
990 PRINT#2,"Qui paye ?":GOSUB420: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):IFt%<6THENIFpv(t%)<1ORmn(t%)-50<0THENGOSUB840:GOTO990ELSEmn(t%)=mn(t%)-50ELSEIFt%=6THENCLS#2:RETURNELSE1000
1010 CLS#2:POKE&8607,14+INT(RND(1)*4):PEN0:PAPER1:CALL&8603:GOSUB1550:CLS#2:GOTO980
1020 IFPEEK(&81F7)<>4THENRETURN
1030 IF RIGHT$(o$(100),5)<>"i1314" OR T0=1 THEN 1050 
1040 PRINT#2,"Quel beau ca-deau !":GOSUB1550:PRINT#2,"j'adore la   musique.":GOSUB1550:PRINT#2,"recevez mon  aide  en  re-compense.":GOSUB1550:CLS#2:FORb1=1TO5:POKE&8607,30+b1:PEN0:PAPER1:CALL&8603:GOSUB1550:NEXT:RETURN
1050 GOSUB390:IFt%=5THENRETURNELSEIFt%=1ORt%=2ORt%=3THENPRINT#2,"Il ne dit    rien...":GOSUB1540:GOTO1050
1060 GOSUB410:PRINT#2,"Il bougonne":GOSUB1540:GOTO1050
1070 P3=INT(RND(1)*100):IFP3>50THENRETURNELSEPOKE&8606,3:CALL&8600
1080 GOSUB390:IFt%=1THENPOKE&8607,1+INT(RND(1)*5)ELSEIFt%=3THENPOKE&8607,5+INT(RND(1)*5)ELSEIFt%=5THENRETURNELSEIFt%=2THEN1100ELSEIFt%=4THEN1110
1090 CLS#2:PEN0:PAPER1:CALL&8603:GOSUB1550:GOTO1080
1100 GOSUB400:IFt%=1THENPOKE&8607,5:GOTO1090ELSEIFt%=2THENPOKE&8607,11:GOTO1090ELSEIFt%=3THENPOKE&8607,12:GOTO1090ELSERETURN
1110 GOSUB410:IFt%=1THENPOKE&8607,2:GOTO1090ELSEIFt%=2THENPOKE&8607,4:GOTO1090ELSEIFt%=3THENPOKE&8607,3:GOTO1090ELSEIFt%=4THENPOKE&8607,7:GOTO1090
1120 POKE&8607,13:CLS#2:PEN0:PAPER1:CALL&8603:GOSUB1550:POKE&85DF,25:POKE&85E0,194:CALL&8519:GOSUB830:CALL&BB18:GOTO50
1130 IFN3=1THENRETURNELSEP3=INT(RND(1)*100):IFP3>50THENRETURNELSEPOKE&8606,5:CALL&8600
1140 GOSUB390:IFt%=1THENPOKE&8607,1+INT(RND(1)*5)ELSEIFt%=3THENPOKE&8607,35+INT(RND(1)*5)ELSEIFt%=5THENRETURNELSEIFt%=2THEN1160ELSEIFt%=4THEN1170
1150 CLS#2:PEN0:PAPER1:CALL&8603:GOSUB1550:GOTO1140
1160 GOSUB400:IFt%=1THENPOKE&8607,46:GOTO1150ELSEIFt%=2THENPOKE&8607,47:GOTO1150ELSEIFt%=3THENPOKE&8607,48:GOTO1150ELSECLS#2:PEN0:PAPER1:POKE&8607,49:CALL&8603:GOSUB1550:N3=1:GOTO50
1170 GOSUB410:IFt%=1THENPOKE&8607,41:GOTO1150ELSEIFt%=2THENPOKE&8607,42:GOTO1150ELSEIFt%=3THENPOKE&8607,43:GOTO1150ELSEIFt%=4THENPOKE&8607,44:GOTO1150ELSEPOKE&8607,45:GOTO1150
1180 P3=INT(RND(1)*100):IFP3>50THENRETURNELSEPOKE&8606,4:CALL&8600
1190 GOSUB390:IFt%=1THENPOKE&8607,1+INT(RND(1)*5)ELSEIFt%=3THENPOKE&8607,17+INT(RND(1)*5)ELSEIFt%=5THENRETURNELSEIFt%=2THEN1210ELSEIFt%=4THEN1220
1200 CLS#2:PEN0:PAPER1:CALL&8603:GOSUB1550:GOTO1190
1210 GOSUB400:IFt%=1THENPOKE&8607,27:GOTO1200ELSEIFt%=2THENPOKE&8607,28:GOTO1200ELSEIFt%=3THENPOKE&8607,29:GOTO1200ELSECLS#2:PEN0:PAPER1:POKE&8607,30:CALL&8603:GOTO1200
1220 GOSUB410:IFt%=1THENPOKE&8607,23:GOTO1200ELSEIFt%=2THENPOKE&8607,24:GOTO1200ELSEIFt%=3THENPOKE&8607,25:GOTO1200ELSEIFt%=4THENPOKE&8607,26:GOTO1200ELSEPOKE&8607,2:GOTO1200
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:IFB0=0THENRETURNELSEPRINT#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 GOSUB1640:PRINT CHR$(7):PRINT#2,"ok":EI:CALL&BB18:RUN
1280 IFb1>15ANDb1<19ORb1>39ANDb1<45ORb1>80ANDb1<84THENB3=B3+1ELSEIFb1>20ANDb1<40ORb1=99THENM=M+1ELSEIFb1=16THENpv(de)=pv(de)-(100*INT(RND(1)*6)+1)ELSEIFb1>16ANDb1<19THENF(de)=F(de)+4
1290 IFb1>85ANDb1<88THENF(de)=F(de)-3:pv(de)=pv(de)-50ELSEIFb1>44ANDb1<48THEND(de)=D(de)+2:F(de)=F(de)+2ELSEIFb1>47ANDb1<51THENF(de)=F(de)+3ELSEIFb1>50ANDb1<55THENE(de)=E(de)-3
1300 IFb1>54ANDb1<57THENF(de)=F(de)+4ELSEIFb1>56ANDb1<59THENF(de)=F(de)+1:D(de)=D(de)+3ELSEIFb1>58ANDb1<64THENF(de)=F(de)+2:E(de)=E(de)-3ELSEIFb1>63ANDb1<67THENP2=P2+25
1310 IFb1>66ANDb1<69THENF(de)=F(de)+1ELSEIFb1>68ANDb1<75THENE(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:IFPEEK(63)=11ORPEEK(63)=12THENB0=B0+PEEK(63):RETURNELSERETURN
1330 IFb1>15ANDb1<19ORb1>39ANDb1<45ORb1>80ANDb1<84THENB3=B3-1ELSEIFb1>20ANDb1<40ORb1=99THENM=M-1ELSEIFb1>44ANDb1<48THEND(de)=D(de)-2:F(de)=F(de)-2ELSEIFb1>47ANDb1<51THENF(de)=F(de)-3
1340 IFb1>50ANDb1<55THENE(de)=E(de)+3ELSEIFb1>54ANDb1<57THENF(de)=F(de)-4ELSEIFb1>56ANDb1<59THENF(de)=F(de)-1:D(de)=D(de)-3ELSEIFb1>58ANDb1<64THENF(de)=F(de)-2:E(de)=E(de)+3
1350 IFb1>63ANDb1<67THENP2=P2-25ELSEIFb1>66ANDb1<69THENF(de)=F(de)-1ELSEIFb1>68ANDb1<75THENE(de)=E(de)+1
1360 RETURN
1370 FORnp=1TO5:IFP0$(np)=""THEN1390
1380 IFASC(LEFT$(P0$(np),1))<57THENGOSUB1400ELSEps$(np)=ps$(np)+LEFT$(P0$(np),1):P0$(np)=RIGHT$(P0$(np),LEN(P0$(np))-1):GOTO1380
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 IFC$(np)="G"THENC$(np)="Guerrier":C(np)=1ELSEIFC$(np)="M"THENC$(np)="Magicien":C(np)=3ELSEIFC$(np)="E"THENC$(np)="Elfe":C(np)=2ELSEIFC$(np)="C"THENC$(np)="Clerc":C(np)=3
1430 IFC$(np)="H"THENC$(np)="Chevalier":C(np)=2ELSEIFC$(np)="V"THENC$(np)="Voleur":C(np)=2ELSEIFC$(np)="N"THENC$(np)="Nain":C(np)=4ELSEIFC$(np)="T"THENC$(np)="Tinigen":C(np)=4
1440 IFI(np)<9ORS(np)<9THENst$(np)=""
1450 RETURN
1460 pr=0:IFMID$(o$(b1),6,1)="i"ANDVAL(MID$(o$(b1),7,2))=PEEK(63)THENIFVAL(MID$(o$(b1),9,1))=PEEK(&81F6)ANDVAL(MID$(o$(b1),10,1))=PEEK(&81F7)THEN1470ELSERETURNELSERETURN
1470 pr=1:RESTORE620:cd=VAL(LEFT$(o$(b1),2)):FORb2=1TOcd:READN0$: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 FORC=1TO5:vt=F(C):GOSUB1530:F(C)=vt:vt=I(C):GOSUB1530:I(C)=vt:vt=S(C):GOSUB1530:S(C)=vt:vt=D(C):GOSUB1530:D(C)=vt:vt=E(C):GOSUB1530:E(C)=vt
1490 IFpv(C)<1THENpv(C)=0ELSEIFpv(C)>1000THENpv(C)=1000
1500 IFmn(C)<1THENmn(C)=0ELSEIFmn(C)>9999THENmn(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.0
1520 NEXT:RETURN
1530 IF vt<1 THEN vt=0:RETURN ELSE IF vt>20 THEN vt=20:RETURN ELSE RETURN 
1540 FORw=1TO1000:NEXT:RETURN
1550 FORw=1TO3000:NEXT:RETURN
1560 M0=0:FORH=1TO5:IFpv(H)>1THENM0=1
1570 NEXT:IFM0=0THENCLEAR:MEMORY&9FFF:RUN"f&f3"ELSERETURN
1580 POKE&9FCB,J:POKE&9FCC,hr:POKE&9FCD,mn:POKE&9FD3,P2:FORb1=1TO5:POKE&9FD3+b1,M(b1):NEXT:FORb1=1TO5:POKE&9FD8+b1,B(b1):NEXT:POKE&9FDE,M:POKE&9FDF,B3:POKE&9FCE,PEEK(&81F6):POKE&9FCF,PEEK(&81F7):RETURN
1590 v$="":IFv<10THENv$="0":RETURNELSERETURN
1600 v$="":IFv<100THENGOSUB1590:v$=v$+"0":RETURNELSERETURN
1610 v$="":IFv<1000THENGOSUB1600:v$=v$+"0":RETURNELSERETURN
1620 v$="":IFv<10000THENGOSUB1610:v$=v$+"0":RETURNELSERETURN
1630 v$=v$+RIGHT$(STR$(v),LEN(STR$(v))-1):RETURN
1640 FORb1=1TO5:IFP0$(b1)=""THEN1690ELSEv=x:GOSUB1590:GOSUB1630:x$=v$:v=y:GOSUB1590:GOSUB1630:y$=v$:v=ca:GOSUB1590:GOSUB1630:ca$=v$
1650 v=F(b1):GOSUB1590:GOSUB1630:f$=v$:v=I(b1):GOSUB1590:GOSUB1630:i$=v$:v=S(b1):GOSUB1590:GOSUB1630:s$=v$:v=D(b1):GOSUB1590:GOSUB1630:d$=v$:v=E(b1):GOSUB1590:GOSUB1630:e$=v$:v=pv(b1):GOSUB1610:GOSUB1630:pv$=v$
1660 IFC$(b1)="Chevalier"THENC$(b1)="H"ELSEC$(b1)=UPPER$(LEFT$(C$(b1),1))
1670 IFca$="100"THENca$="00"
1680 v=mn(b1):GOSUB1610:GOSUB1630:mn$=v$:v=ex(b1):GOSUB1620:GOSUB1630: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":FORb1=1TO5:IFP0$(b1)=""THEN1700ELSEPRINT#9,P0$(b1)
1700 NEXT:CLOSEOUT:OPENOUT"fo":FORb1=1TO100:PRINT#9,o$(b1):NEXT:CLOSEOUT:RETURN
1710 a$="fcps":b$="fo":|ERA,@a$:|ERA,@b$:GOSUB1640:RETURN
