10 CALL &BB48:MEMORY &787F:LOAD"k4",&7880:LOAD"k1",&8000:IF PEEK(63)=4 THEN LOAD"k2",&93C0 ELSE LOAD"k3",&9020  
20 CALL&9F65:DIMo$(100):GOSUB50:POKE&82D6,PEEK(&9FCE):POKE&82D7,PEEK(&9FCF):J=PEEK(&9FCB):hr=PEEK(&9FCC):mn=PEEK(&9FCD):P1=PEEK(&9FD3):FORb1=1TO5:M(b1)=PEEK(&9FD3+b1):NEXT:FORb1=1TO5:B(b1)=PEEK(&9FD8+b1):NEXT:M=PEEK(&9FDE):B0=PEEK(&9FDF)
30 ej=0:CLS#2:CLS#3
40 CLS#2:GOSUB 1880:GOSUB 910:CALL &8000:PEN 0:PAPER 1:CALL &8A79:CALL &8424:CALL &87AE:GOSUB 820:kk=1:GOSUB 1710:GOTO 1350:GOTO 380
50 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,P1$(fi):fi=fi+1:WEND:CLOSEIN:OPENIN"fo":fi=1:WHILENOTEOF:INPUT#9,o$(fi):fi=fi+1:WEND:CLOSEIN:GOSUB1580:PEN2:PAPER0:LOCATE27,3
60 PRINT"JR":LOCATE32,3:PRINT"HR":LOCATE37,3:PRINT"MN":EVERY249.600000024,1GOSUB70:PEN0:PAPER1:RETURN
70 mn=mn+1:IFmn=60THENIFhr=23THENJ=J+1:hr=0:mn=0ELSEhr=hr+1:mn=0:GOSUB140
80 rt$=STR$(mn):GOSUB90:mn$=rt$:rt$=STR$(hr):GOSUB90:hr$=rt$:rt$=STR$(J):GOSUB90:J$=rt$:PEN1:PAPER0:LOCATE25,3:PRINT J$:LOCATE30,3:PRINT hr$:LOCATE35,3:PRINT mn$:RETURN
90 IFVAL(rt$)<10THENrt$="0"+RIGHT$(rt$,1):RETURNELSErt$=RIGHT$(rt$,2):RETURN
100 R0=0:FORb1=1TO100:GOSUB1690:IFpr=1THEN110ELSENEXT:RETURN
110 IFN5=0THENPRINT#2:PRINT#2,"vous voyez":PRINT#2,N0;N3$:RETURN
120 WHILER0<N5:R0=R0+1
130 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,N0;N3$:ch=1:RETURNELSEIFPEEK(&9E07)=30THEN130ELSERETURN
140 IFN4=1THENRETURNELSEFORr1=1TO5:IFpv(r1)=0THEN170ELSEfe(r1)=fe(r1)-1:M(r1)=M(r1)+1:B(r1)=B(r1)+1:IFM(r1)>48+fe(r1)THENfe(r1)=fe(r1)-4
150 IFB(r1)>10+CINT(fe(r1)/2)THENfe(r1)=fe(r1)-5
160 IFfe(r1)<2THENpv(r1)=pv(r1)-INT(RND(1)*10)+1
170 NEXT:GOSUB1710:RETURN
180 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)=0THEN230ELSEIFM(r2)>10+CINT(fe(r2)/2)THENsa$="faim"
190 IFB(r2)>5+CINT(fe(r2)/4)THENsb$="soif"
200 IFfe(r2)<6-CINT(fe(r2)/4)THENsc$="sommeil"
210 PEN#3,2:IFsa$=""ANDsb$=""ANDsc$=""THENPRINT#3," ";UPPER$(ps$(r2));:PEN#3,3:PRINT#3," va bien":GOTO230
220 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$
230 NEXT:v0=1:v1=4:GOSUB 340:IF t%=1 THEN P0$="mange"ELSE IF t%=2 THEN P0$="boit"ELSE IF t%=3 THEN P0$="dort"ELSE IF t%=4 THEN 710
240 IFP0$="boit"ANDB0=0ORP0$="mange"ANDM=0THENGOSUB780:GOTO710ELSECLS#2:PRINT#2," Qui ";P0$:GOSUB360
250 CALL&9E00:IFPEEK(&9E07)<6THENt%=PEEK(&9E07):GOTO260ELSE250
260 IFP0$="dort"THEN320ELSEIFP0$="boit"THENIFMID$(o$(17),6,1)="p"ORMID$(o$(87),6,1)="p"THENpv(t%)=pv(t%)+(50*INT(RND(1)*6)):fe(t%)=fe(t%)+2
270 IFP0$="mange"THENM=M-1:M(t%)=0ELSEB0=B0-1:B(t%)=0
280 IFP0$="mange"ANDM>0THEN380ELSEIFP0$="boit"ANDB0>0THEN380
290 IFP0$="mange"THENa1=22:a2=40:a3=78:a4=81:a5=98:a6=101ELSEIFP0$="boit"THENa1=15:a2=19:a3=39:a4=45:a5=81:a6=84
300 fi=0:OPENIN"fcob":WHILENOTEOF:fi=fi+1:INPUT#9,k$:IFfi>a1ANDfi<a2ORfi>a3ANDfi<a4ORfi>a5ANDfi<a6THENo$(fi)=k$
310 WEND:CLOSEIN:IFI0=1THENRETURNELSEGOSUB440:GOTO710
320 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 
330 CALL &9E00:IF PEEK(&9E07)<>30 THEN fe(t%)=fe(t%)+INT(drm):N4=0:GOTO 710 ELSE IF drm>5 OR fe(t%)+INT(drm)>19 THEN 330 ELSE drm=drm+0.01:GOTO 330
340 RESTORE570:PRINT#2:PRINT#2: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
350 CALL&9E00:IFPEEK(&9E07)<v1+1THENt%=PEEK(&9E07):RETURNELSE350
360 PRINT#2:FORr1=1TO5:IFpv(r1)=0THEN370ELSEPEN#2,0:PAPER#2,1:PRINT#2,UPPER$(ps$(r1));STRING$(9-LEN(ps$(r1)),".");:PEN#2,1:PAPER#2,2:PRINT#2,r1
370 NEXT:PEN#2,0:PAPER#2,1:RETURN
380 EI:CALL&9E00:PEN1:PAPER0:CALL&82DE:ONPEEK(&82D4)GOTO390,390,390,390,390,790,790,790,790,790,790,390,390,590,720,180,390,400,420,450,390,390,390,390,390,970,1170,1470,390,380,800,800
390 SOUND1,478,10,15:GOTO380
400 CLS#2:PRINT#2:PRINT#2," Il n'y a":PRINT#2," rien...":GOSUB100:GOTO380
410 CLS#2:GOSUB780:GOTO380
420 IFb1>100THEN410ELSECLS#2:FORb1=1TO100:GOSUB1690:IFpr=1THENIFch=1THENPRINT#2,"Qui prend ?":GOSUB360ELSE410ELSENEXT:GOTO410
430 CALL&9E00:IFPEEK(&9E07)<6THENt%=PEEK(&9E07):IFP(t%)>P1+fe(t%)THEN410ELSEde=t%:GOSUB1490:o$(b1)=LEFT$(o$(b1),5)+"p"+RIGHT$(STR$(t%),1):P(t%)=P(t%)+(P^2+0.5):ch=0:GOSUB440:IFR=1THENR=0:RETURNELSE380ELSE430
440 CLS#2:PEN2:PAPER0:LOCATE24,21:PRINT"OK":SOUND1,478,10,15:FORt=1TO500:NEXT:LOCATE24,21:PRINT"  ":RETURN
450 CLS#2:PRINT#2,"Qui laisse ?":GOSUB360
460 CALL&9E00:IFPEEK(&9E07)<6THENFORb1=1TO100:IFMID$(o$(b1),6,1)="p"ANDVAL(MID$(o$(b1),7,1))=PEEK(&9E07)THEN470ELSENEXT:GOTO410ELSE460
470 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)THENGOSUB1700:PRINT#3,N3$ELSE490
480 CALL&9E00:IFPEEK(&9E07)=20THEN510ELSEIFPEEK(&9E07)=30THEN480
490 NEXT:PRINT#3,"Rien d'autre..."
500 CALL&9E00:IFPEEK(&9E07)=30THEN500ELSE710
510 P(VAL(MID$(o$(b1),7,1)))=P(VAL(MID$(o$(b1),7,1)))-(P^2+0.5):bl$=RIGHT$(STR$(PEEK(&82D6)),1):de=VAL(MID$(o$(b1),7,1)):GOSUB 1540:o$(b1)=LEFT$(o$(b1),5)+"c"+RIGHT$(STR$(PEEK(63)-3),1)+bl$+RIGHT$(STR$(PEEK(&82D7)),1):GOSUB 440:IF R=1 THEN RETURN ELSE 710
520 DATA unvitri 020806206111201,hypno   020810405001101,emera   0000206102222,fusis   000008602020033,tanaris 0000003  
530 DATA ishtar  0000026,belgora 020807504120001,granhalf040810705220401,emera   000090812220403,dormahot040830810320202 
540 DATA ishtar  0000047,fusis   000008603030035,tanaris 0000004,zephir  020820305220101,polyg 
550 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 
560 DATA poisson,eau,vin,liqueur,couteau,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
570 DATA rien,MANGER,BOIRE,DORMIR,FIN,FLATTEZ,MENACEZ,INJURIEZ,ATTENDEZ   
580 DATA jehungir agha16151405100010000,un yuetshi   15121209100001000,un squelette 19151505100005000,un grok      20051506100001000,golem targor 20151801100010000,khaal        20201801100050000  
590 ej=1:PAPER#3,0:CLS#3:PEN#3,1:INK3,2:GOSUB770:tr=1
600 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
610 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
620 LOCATE#3,17,4:PRINT#3,nv(tr):FORn1=1TO5:LOCATE#3,10,14+n1:PRINT#3,STRING$(10," "):NEXT:IFpv(tr)<1THENCLS#3:LOCATE#3,9,8:PRINT#3,"MORT"
630 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)<1THEN690ELSELOCATE#3,1,5:PRINT#3,cl$(tr);"     ":PEN#3,1:LOCATE#3,17,6:PRINT#3,fe(tr)
640 LOCATE#3,17,7:PRINT#3,it(tr):LOCATE#3,17,8:PRINT#3,S(tr):LOCATE#3,17,9:PRINT#3,dx(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
650 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)
660 IF st$(tr)="" OR st$(tr)=" " THEN LOCATE#3,10,15:PRINT#3,"AUCUN SORT":GOTO 690 ELSE FOR n1=1 TO LEN(st$(tr)):s1$=MID$(st$(tr),n1,1):IF nv(tr)=1 THEN RESTORE 520 ELSE IF nv(tr)=2 THEN RESTORE 530 ELSE RESTORE 540  
670 FORn2=1TO5:READs2$:IFs1$=LEFT$(s2$,1)THENLOCATE#3,12,15+n2:PRINT#3,UPPER$(LEFT$(s2$,8))
680 NEXT:NEXT
690 CALL&9E00:IFPEEK(&9E07)<>30THENtr=tr+1ELSE690
700 IFps$(tr)=""THEN710ELSE600
710 ej=0:CLS#3:PAPER#3,3:CLS#3:GOTO30
720 ej=1:I0=0:PAPER#3,0:CLS#3:tr=0:PEN#3,3:INK3,20:FORr1=1TO5:IFpv(r1)=0THEN760ELSEPEN#3,1:PRINT#3:PRINT#3,UPPER$(ps$(r1));:PEN#3,3:PRINT#3," porte :"
730 PEN#3,2:FORr2=1TO100:O$="p"+RIGHT$(STR$(r1),1):IFMID$(o$(r2),6,2)=O$THENcd=VAL(LEFT$(o$(r2),2)):RESTORE550:I0=1:FORr3=1TOcd:READN3$:NEXT:PRINT#3,N3$
740 NEXT:IFI0=0THENPRINT#3,"rien"
750 CALL&9E00:IFPEEK(&9E07)<>30THEN760ELSE750
760 I0=0:NEXT:GOTO710
770 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
780 FORb1=1TO2:FORb2=1TO400:NEXT:PEN1:PAPER2:LOCATE24,21:PRINT" impossible ":FORb2=1TO400:NEXT:PEN1:PAPER0:LOCATE24,21:PRINT"            ":NEXT:CLS#2:RETURN
790 GOTO40
800 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 
810 PRINT#3,"       touche":CALL &BB18:CALL &8B80:GOSUB 1930:MEMORY &96FF:GOSUB 2060:RUN"w86"  
820 C=0:IFPEEK(63)=5THEN840ELSEIFPEEK(&82D6)=6ANDPEEK(&82D7)=5ANDPEEK(125)=0THENGOSUB900:POKE&85D1,206:POKE&85D2,195:H=72:T0=24:S7=201:np=1:GOTO860
830 IFPEEK(&82D6)=7ANDPEEK(&82D7)=3ANDPEEK(126)=0THENGOSUB900:POKE&85D1,30:POKE&85D2,196:H=64:T0=25:S7=194:np=2:GOTO860ELSERETURN
840 IFPEEK(&82D6)=1ANDPEEK(&82D7)=1ANDPEEK(129)=0THENnp=5:GOTO870ELSEIFPEEK(&82D6)=6ANDPEEK(&82D7)=5THENnp=6:GOTO870
850 IF PEEK(&82D6)=4 AND PEEK(&82D7)=2 AND PEEK(127)=0 THEN POKE &85D1,148:POKE &85D2,193:H=128:T0=25:S7=196:np=3 ELSE IF PEEK(&82D6)=3 AND PEEK(&82D7)=2 AND PEEK(128)=0 THEN POKE &85D1,66:POKE &85D2,193:H=136:T0=26:S7=194:np=4 ELSE RETURN
860 POKE&85D3,H:POKE&86B1,T0:POKE&86B2,S7:CALL&85EB:POKE&85D1,82:POKE&85D2,192:POKE&85D3,160:CLS#2:PRINT#2,"Vous voyez :":PRINT#2,N$(np)
870 C=1:CALL&7880:va=F0(np):l=12:GOSUB880:va=I(np):l=13:GOSUB880:va=D(np):l=14:GOSUB880:va=C(np):l=15:GOSUB880:RETURN
880 IFva<10THENva$="0"+RIGHT$(STR$(va),1)ELSEva$=RIGHT$(STR$(va),2)
890 PEN2:PAPER1:LOCATE31,l:PRINT va$:RETURN
900 POKE&8717,50:POKE&8718,195:POKE&8719,192:POKE&871A,147:POKE&871B,8:POKE&871C,64:CALL&871D:RETURN
910 IFPEEK(63)=5THEN930ELSEIFPEEK(125)=0THENPOKE&8111,6ELSEPOKE&8111,46
920 IFPEEK(126)=0THENPOKE&812D,2:RETURNELSEPOKE&812D,42:RETURN
930 IFPEEK(127)=0THENPOKE&81DA,0ELSEPOKE&81DA,10
940 IFPEEK(128)=0THENPOKE&81BE,9ELSEPOKE&81BE,19
950 IFPEEK(129)=0THENPOKE&8147,9:RETURNELSEPOKE&8147,29:RETURN
960 FORpk=1TO6:V(pk)=PEEK(124+pk):POKE124+pk,1:NEXT:GOSUB910:CALL&8424:FORpk=1TO6:POKE124+pk,V(pk):NEXT:GOSUB910:RETURN
970 IFC=0THEN410ELSECLS#2:PRINT#2:PRINT#2,"Qui combat ?":GOSUB360
980 CALL&9E00:nu=PEEK(&9E07):IFnu<6THENIFpv(nu)>0THEN990ELSE410ELSE980
990 CLS#2:GOSUB1410:GOSUB1710:PRINT#2:PRINT#2,"TIR ou COPY ":PRINT#2," pour FUIR":GOSUB1840
1000 CLS#2:cd=0:cp=0:c1=0:PEN1:PAPER0:CALL&9E00:IFPEEK(&9E07)<>30THENP2=INT(RND(1)*60)+20:ex(nu)=ex(nu)-P2:PRINT#2,ps$(nu):PRINT#2,"perd : ":PRINT#2,P2;"points":PRINT#2,"d'experience":GOSUB1840:GOSUB1710:GOTO380ELSEGOSUB1800:GOSUB1820
1010 IFc1=0THENms$=ps$(nu):GOSUB1860:ms$="attaque":GOSUB1860ELSEms$=N$(np):GOSUB1860:ms$="attaque":GOSUB1860
1020 GOSUB1710:IFc1=0THENcd=(4*fe(nu))+(3*dx(nu))+2*it(nu)+E(nu)+((INT(LOG10(ABS(ex(nu)+1)))*3)*nv(nu))+INT(RND(1)*5)+t3%*nv(nu):cp=(4*(20-C(np)))+(3*F0(np))+(2*D(np))+I(np)+(INT(LOG10(ABS(P0(np)+1)))*3)+INT(RND(1)*5):GOTO1040
1030 cd=(4*F0(np))+(3*D(np))+2*I(np)+C(np)+(INT(LOG10(ABS(P0(np)+1)))*3)+INT(RND(1)*5):cp=(4*(20-E(nu)))+(3*fe(nu))+(2*dx(nu))+it(nu)+((INT(LOG10(ABS(ex(nu)+1)))*3)*nv(nu))+INT(RND(1)*5)+t3%*nv(nu)
1040 IFcd>cpANDc1=0THENGOSUB1900:ms$="et touche...":GOSUB1860:GOTO1080
1050 IFcd>cpANDc1=1THENGOSUB1900:ms$="vous etes":GOSUB1860:ms$="touche...":GOSUB1860:GOTO1090
1060 IFcd<cpANDc1=0THENGOSUB1910:ms$="et rate...":GOSUB1860:GOTO1100
1070 IFcd<cpANDc1=1THENGOSUB1910:ms$="il vous a":GOSUB1860:ms$="rate...":GOSUB1860:GOTO1110ELSE1010
1080 ex(nu)=ex(nu)+(cd-cp):F0(np)=F0(np)-1:P0(np)=P0(np)-(cd-cp):P2(np)=P2(np)-((cd-cp)*5):GOSUB1710:GOTO1120
1090 P0(np)=P0(np)+(cd-cp):fe(nu)=fe(nu)-1:ex(nu)=ex(nu)-(cd-cp):pv(nu)=pv(nu)-((cd-cp)*5):GOSUB1710:GOTO1120
1100 fe(nu)=fe(nu)-1:P0(np)=P0(np)+(cp-cd):GOSUB1710:GOTO1120
1110 F0(np)=F0(np)-1:ex(nu)=ex(nu)+(cp-cd):GOSUB1710
1120 IFP2(np)<1THENIFnp=6THENMEMORY&9FFF:RUN"f&f4"ELSECLS#2:PRINT#2,N$(np):PRINT#2,"est aneanti":POKE124+np,1:GOSUB1840:GOTO40
1130 GOSUB1870:IFpv(nu)<1THEN380
1140 IFc1=0ANDcd>cpAND(cd-cp)>30THENc1=0:GOTO1000
1150 IFc1=1ANDcd>cpAND(cd-cp)>30THENc1=1:GOTO1000
1160 IFc1=0THENc1=1:GOTO1010ELSEc1=0:GOTO1000
1170 IFC=0THEN410ELSECLS#2:PRINT#2,"Qui lance ?":GOSUB360
1180 CALL&9E00:nu=PEEK(&9E07):IFnu<6THENIFpv(nu)>0THEN1190ELSE410ELSE1180
1190 IFst$(nu)=""THEN410ELSEIFnv(nu)=1THENRESTORE520ELSEIFnv(nu)=2THENRESTORE530ELSERESTORE540
1200 CLS#2:PRINT#2," Quel sort : ":FORn%=1TO5:READst$:st$=LEFT$(st$,8):PEN0:PAPER1:LOCATE25,10+n%:PRINT UPPER$(st$);"...":PEN2:PAPER1:LOCATE36,10+n%:PRINT n%:NEXT:PEN0:PAPER1
1210 CALL&9E00:t%=PEEK(&9E07):IFt%=30THEN1210ELSEIFnv(nu)=1THENIFt%=5THEN410ELSE1220ELSEIFnv(nu)=2THENIFt%=1THEN410ELSE1220ELSEIFt%=1ORt%=3ORt%=5THEN410
1220 IFnv(nu)=1THENRESTORE520ELSEIFnv(nu)=2THENRESTORE530ELSERESTORE540
1230 FORn%=1TOt%:READst$:NEXT:FORn1%=1TOLEN(st$(nu)):S8$=MID$(st$(nu),n1%,1):IFLEFT$(st$,1)=S8$THEN1240ELSENEXT:GOTO410
1240 s4$=LEFT$(st$,8):s5$=MID$(st$,9,4):t1%=VAL(MID$(st$,13,2)):t2%=VAL(MID$(st$,15,1)):t3%=VAL(MID$(st$,16,2)):s6$=MID$(st$,18,6):S0$=LEFT$(s4$,1):P2(np)=P2(np)-t1%:pv(nu)=pv(nu)-t2%:CLS#2
1250 PRINT#2,UPPER$(ps$(nu));"lance le sort";s4$:GOSUB1840:t4%=VAL(LEFT$(s5$,2)):t5%=VAL(RIGHT$(s5$,2)):FORi=80TO220STEP12:INK0,25:SOUND1,i,10:INK0,0:NEXT:FORi=220TO80STEP-12:INK0,24:SOUND2,i,5:INK0,0:NEXT
1260 IFnp>t4%ANDnp<t5%THEN1290ELSE1300
1270 IFS0$="u"ORS0$="b"THENIFI(np)>15THEN1290ELSE1300
1280 IFS0$="f"ANDI(np)>16THEN1290ELSE1300
1290 PRINT#2,"le sort est  contre par   le monstre":t3%=0:GOSUB1840:GOTO1330
1300 FORk=1TO6:t5%=VAL(MID$(s6$,k,1))
1310 IFk=1THENfe(nu)=fe(nu)+t5%ELSEIFk=2THENF0(np)=F0(np)-t5%ELSEIFk=3THENdx(nu)=dx(nu)+t5%ELSEIFk=4THEND(np)=D(np)-t5%ELSEIFk=5THENE(nu)=E(nu)-t5%ELSEIFk=6THENC(np)=C(np)+t5%
1320 ex(nu)=ex(nu)+t5%:NEXT:PRINT#2,"et touche le monstre":GOSUB1710
1330 IFLEFT$(st$,1)="d"THEN380ELSEst$="":FORn%=1TOLEN(st$(nu)):IFn%=n1%THEN1340ELSEst$=st$+MID$(st$(nu),n%,1)
1340 NEXT:st$(nu)=st$:GOTO380
1350 IFPEEK(&82D6)<>7ORPEEK(&82D7)<>1THEN380ELSEPRINT#2:PRINT#2:PRINT#2:PRINT#2:PRINT#2,"Vous :":v0=5:v1=4:GOSUB340:IFt%=4THEN380
1360 CLS#2:PRINT#2:PRINT#2,"Il repond :":GOSUB1840:IFt%=1THENPRINT#2,"Les dieux te protege.":GOSUB1840:GOTO1350
1370 IFt%=3THENPRINT#2,"bec de moule.":GOSUB1840:PRINT#2,"Il jette un  sort...":GOSUB1920:CLS#3:POKE&82D6,1:POKE&82D7,2:GOTO40
1380 IFMID$(o$(2),6,1)="p"THEN40
1390 PRINT#2,"Ne me faites pas de mal , je promets   dorenavant devous aidez.  ":GOSUB1850:PRINT#2,"Tenez voici  un gage de mabonne volonte,ce collier  qui une fois lie  au  pou-voir de Tana-ris vous pro-tegera  de   KHAAL":GOSUB1850:CLS#2
1400 PRINT#2,"Il vous donne un collier...":GOSUB 1840:b1=2:ch=1:GOTO 420 
1410 IFnp=5ANDVAL(MID$(o$(1),7,1))=nuANDMID$(o$(1),6,1)="p"THENC(np)=C(np)+10:P0(np)=P0(np)-5000:F0(np)=F0(np)-5:PRINT#2,"L'epee DEINOS affaiblit les golems...":GOSUB1840:RETURN
1420 IFnp=3THEN1430ELSEIFnp=6THEN1440ELSERETURN
1430 FORb1=5TO10:IFVAL(MID$(o$(b1),7,1))=nuANDMID$(o$(b1),6,1)="p"THENRETURNELSENEXT:PRINT#2,"Vous etes af-faiblit par  les pouvoirs magiques du  squelette":fe(nu)=fe(nu)-5:pv(nu)=pv(nu)-100:GOSUB1850:RETURN
1440 PRINT#2,"KHAAL vous en-voi son sort THANDAR...":GOSUB1920:GOSUB1840:FORb1=11TO15:IFVAL(MID$(o$(b1),7,1))=nuANDMID$(o$(b1),6,1)="p"THEN1450ELSENEXT:PRINT#2,"Vous etes    touche...":fe(nu)=fe(nu)-10:pv(nu)=pv(nu)-500:GOSUB1850:RETURN
1450 FOR b1=11 TO 15:IF MID$(o$(b1),6,1)<>"p" OR MID$(o$(2),6,1)<>"p" THEN RETURN ELSE NEXT:PRINT#2,"Vous  rassem-blez la quin-te des rubis de TANARIS" 
1460 PRINT#2,"sur  le  col-lier eternel":GOSUB1850:PRINT#2,"KHAAL faiblit":GOSUB1840:F0(np)=F0(np)-5:P0(np)=P0(np)/5:P2(np)=P2(np)/2:C(np)=C(np)+10:RETURN
1470 CLS #2:PRINT #2,"ok (o/n) ?"
1472 t$=INKEY$:IF t$="o" THEN 1475 ELSE IF t$="n" THEN 380 ELSE 1472 
1475 GOSUB 1930:FOR S3=0 TO 21:POKE &9FE0+S3,PEEK(110+S3):NEXT:POKE &9FF8,PEEK(63):MEMORY &96FF:GOSUB 2060: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 
1480 SAVE"f&fb",b,&9FCB,48:GOSUB1990:PRINT CHR$(7):PRINT#2,"ok":EI:CALL&BB18:RUN
1490 IFb1>15ANDb1<19ORb1>39ANDb1<45ORb1>80ANDb1<84THENB0=B0+1ELSEIFb1>20ANDb1<40ORb1=99THENM=M+1ELSEIFb1=16THENpv(de)=pv(de)-(100*INT(RND(1)*6)+1)ELSEIFb1>16ANDb1<19THENfe(de)=fe(de)+4
1500 IFb1>85ANDb1<88THENfe(de)=fe(de)-3:pv(de)=pv(de)-50ELSEIFb1>44ANDb1<48THENdx(de)=dx(de)+2:fe(de)=fe(de)+2ELSEIFb1>47ANDb1<51THENfe(de)=fe(de)+3ELSEIFb1>50ANDb1<55THENE(de)=E(de)-3
1510 IFb1>54ANDb1<57THENfe(de)=fe(de)+4ELSEIFb1>56ANDb1<59THENfe(de)=fe(de)+1:dx(de)=dx(de)+3ELSEIFb1>58ANDb1<64THENfe(de)=fe(de)+2:E(de)=E(de)-3ELSEIFb1>63ANDb1<67THENP1=P1+25
1520 IFb1>66ANDb1<69THENfe(de)=fe(de)+1ELSEIFb1>68ANDb1<75THENE(de)=E(de)-1
1530 ex(de)=ex(de)+INT(RND(1)*10)+1:RETURN
1540 IFb1>15ANDb1<19ORb1>39ANDb1<45ORb1>80ANDb1<84THENB0=B0-1ELSEIFb1>20ANDb1<40ORb1=99THENM=M-1ELSEIFb1>44ANDb1<48THENdx(de)=dx(de)-2:fe(de)=fe(de)-2ELSEIFb1>47ANDb1<51THENfe(de)=fe(de)-3
1550 IFb1>50ANDb1<55THENE(de)=E(de)+3ELSEIFb1>54ANDb1<57THENfe(de)=fe(de)-4ELSEIFb1>56ANDb1<59THENfe(de)=fe(de)-1:dx(de)=dx(de)-3ELSEIFb1>58ANDb1<64THENfe(de)=fe(de)-2:E(de)=E(de)+3
1560 IFb1>63ANDb1<67THENP1=P1-25ELSEIFb1>66ANDb1<69THENfe(de)=fe(de)-1ELSEIFb1>68ANDb1<75THENE(de)=E(de)+1
1570 RETURN
1580 FORnp=1TO5:IFP1$(np)=""THEN1600
1590 IFASC(LEFT$(P1$(np),1))<57THENGOSUB1630ELSEps$(np)=ps$(np)+LEFT$(P1$(np),1):P1$(np)=RIGHT$(P1$(np),LEN(P1$(np))-1):GOTO1590
1600 NEXT:RESTORE580:FORnp=1TO6:READM1$:IFPEEK(124+np)<>0THEN1620
1610 N$(np)=LEFT$(M1$,13):F0(np)=VAL(MID$(M1$,14,2)):I(np)=VAL(MID$(M1$,16,2)):D(np)=VAL(MID$(M1$,18,2)):C(np)=VAL(MID$(M1$,20,2)):P2(np)=VAL(MID$(M1$,22,4)):P0(np)=VAL(MID$(M1$,26,5))
1620 NEXT:RETURN
1630 fe(np)=VAL(LEFT$(P1$(np),2)):it(np)=VAL(MID$(P1$(np),3,2)):S(np)=VAL(MID$(P1$(np),5,2)):dx(np)=VAL(MID$(P1$(np),7,2)):E(np)=VAL(MID$(P1$(np),9,2)):pv(np)=VAL(MID$(P1$(np),11,4)):mn(np)=VAL(MID$(P1$(np),15,4))
1640 ex(np)=VAL(MID$(P1$(np),19,6)):cl$(np)=MID$(P1$(np),25,1):x=VAL(MID$(P1$(np),26,2)):y=VAL(MID$(P1$(np),28,2)):ca=VAL(MID$(P1$(np),30,2)):st$(np)=MID$(P1$(np),33,3):nv(np)=VAL(MID$(P1$(np),32,1)) 
1650 IFcl$(np)="G"THENcl$(np)="Guerrier":cl(np)=1ELSEIFcl$(np)="M"THENcl$(np)="Magicien":cl(np)=3ELSEIFcl$(np)="E"THENcl$(np)="Elfe":cl(np)=2ELSEIFcl$(np)="C"THENcl$(np)="Clerc":cl(np)=3
1660 IFcl$(np)="H"THENcl$(np)="Chevalier":cl(np)=2ELSEIFcl$(np)="V"THENcl$(np)="Voleur":cl(np)=2ELSEIFcl$(np)="N"THENcl$(np)="Nain":cl(np)=4ELSEIFcl$(np)="T"THENcl$(np)="Tinigen":cl(np)=4
1670 IFit(np)<9ORS(np)<9THENst$(np)=""
1680 RETURN
1690 pr=0:IF MID$(o$(b1),6,1)="c"AND VAL(MID$(o$(b1),7,1))=(PEEK(63)-3) THEN IF VAL(MID$(o$(b1),8,1))=PEEK(&82D6)AND VAL(MID$(o$(b1),9,1))=PEEK(&82D7)THEN 1700 ELSE RETURN ELSE RETURN 
1700 pr=1:RESTORE550:cd=VAL(LEFT$(o$(b1),2)):FORb2=1TOcd:READN3$:NEXT:P=VAL(MID$(o$(b1),3,1)):N5=VAL(MID$(o$(b1),4,1)):N5=N5+CINT(RND(1)*10):N0=VAL(MID$(o$(b1),5,1)):RETURN
1710 FORC2=1TO5:vt=fe(C2):GOSUB1760:fe(C2)=vt:vt=it(C2):GOSUB1760:it(C2)=vt:vt=S(C2):GOSUB1760:S(C2)=vt:vt=dx(C2):GOSUB1760:dx(C2)=vt:vt=E(C2):GOSUB1760:E(C2)=vt
1720 IFpv(C2)<1THENpv(C2)=0ELSEIFpv(C2)>1000THENpv(C2)=1000
1730 IFmn(C2)<1THENmn(C2)=0ELSEIFmn(C2)>9999THENmn(C2)=9999
1740 IF ex(C2)<0 THEN ex(C2)=0 ELSE IF ex(C2)>(30000*nv(c2)) THEN nv(C2)=nv(C2)+1 
1745 IF nv(C2)>3 THEN nv(c2)=3:ex(c2)=90000.0
1750 NEXT:IF kk=1 THEN kk=0:RETURN ELSE 1770
1760 IFvt<1THENvt=0:RETURNELSEIFvt>20THENvt=20:RETURNELSERETURN
1770 vt=F(np):GOSUB1760:F(np)=vt:vt=I(np):GOSUB1760:I(np)=vt:vt=D(np):GOSUB1760:D(np)=vt:vt=C(np):GOSUB1760:C(np)=vt:IFP0(np)<0THENP0(np)=0ELSEIFP0(np)>50000.0THENP0(np)=50000.0
1780 IFP2(np)<0THENP2(np)=0ELSEIFP2(np)>1000THENP2(np)=1000
1790 RETURN
1800 DI:PEN1:PAPER2:LOCATE25,9:PRINT STRING$(13," "):LOCATE25,9:PRINT ps$(nu):LOCATE25,13:PRINT N$(np):PEN0:PAPER1:l=10:GOSUB1810:l=14:GOSUB1810:EI:RETURN
1810 PEN0:PAPER1:LOCATE25,l:PRINT"Force...   00":LOCATE25,l+1:PRINT"Pt Vie.. 0000":LOCATE25,l+2:PRINT"Pt Exp..00000":RETURN
1820 DI:C0=fe(nu):l=10:GOSUB1830:C0=pv(nu):l=11:GOSUB1830:C0=ex(nu):l=12:GOSUB1830:C0=F0(np):l=14:GOSUB1830:C0=P2(np):l=15:GOSUB1830:C0=P0(np):l=16:GOSUB1830:EI:RETURN
1830 C0$=RIGHT$(STR$(C0),LEN(STR$(C0))-1):LOCATE38-LEN(C0$),l:PEN2:PAPER1:PRINT C0$:RETURN
1840 FORw=1TO1000:NEXT:RETURN
1850 FORw=1TO4000:NEXT:RETURN
1860 IFLEN(ms$)<13THENms$=ms$+" ":GOTO1860ELSEPEN1:PAPER3:LOCATE25,8:PRINT ms$:GOSUB1840:LOCATE25,8:PEN0:PAPER1:PRINT STRING$(13," "):RETURN
1870 GOSUB1880:IFpv(nu)<1THENCLS#2:PRINT#2:PRINT#2,UPPER$(ps$(nu)):PRINT#2,"est mort...":pv(nu)=0:GOSUB1840:RETURNELSERETURN
1880 M0=0:FORh0=1TO5:IFpv(h0)>1THENM0=1
1890 NEXT:IFM0=0THENCLEAR:MEMORY&9FFF:RUN"f&f3"ELSERETURN
1900 ENV10,5,-2,1:ENV11,6,1,1,6,-1,1:ENT7,6,-10,1,6,10,1:SOUND1,10,5,15,10,0,1:SOUND1,0,30,0:SOUND1,30,5,15,10,0,1:SOUND1,0,20,0:RETURN
1910 SOUND1,100,12,8,11,7,1:SOUND1,0,100,0:RETURN
1920 ENV12,15,1,1,15,-1,6:SOUND1,0,105,0,12,0,1:SOUND1,0,100,0:RETURN
1930 POKE&9FCB,J:POKE&9FCC,hr:POKE&9FCD,mn:POKE&9FD3,P1:FORb1=1TO5:POKE&9FD3+b1,M(b1):NEXT:FORb1=1TO5:POKE&9FD8+b1,B(b1):NEXT:POKE&9FDE,M:POKE&9FDF,B0:POKE&9FCE,PEEK(&82D6):POKE&9FCF,PEEK(&82D7):RETURN
1940 v$="":IFv<10THENv$="0":RETURNELSERETURN
1950 v$="":IFv<100THENGOSUB1940:v$=v$+"0":RETURNELSERETURN
1960 v$="":IFv<1000THENGOSUB1950:v$=v$+"0":RETURNELSERETURN
1970 v$="":IFv<10000THENGOSUB1960:v$=v$+"0":RETURNELSERETURN
1980 v$=v$+RIGHT$(STR$(v),LEN(STR$(v))-1):RETURN
1990 FORb1=1TO5:IFP1$(b1)=""THEN2040ELSEv=x:GOSUB1940:GOSUB1980:x$=v$:v=y:GOSUB1940:GOSUB1980:y$=v$:v=ca:GOSUB1940:GOSUB1980:ca$=v$
2000 v=fe(b1):GOSUB1940:GOSUB1980:f$=v$:v=it(b1):GOSUB1940:GOSUB1980:i$=v$:v=S(b1):GOSUB1940:GOSUB1980:s$=v$:v=dx(b1):GOSUB1940:GOSUB1980:d$=v$:v=E(b1):GOSUB1940:GOSUB1980:e$=v$:v=pv(b1):GOSUB1960:GOSUB1980:pv$=v$
2010 IFcl$(b1)="Chevalier"THENcl$(b1)="H"ELSEcl$(b1)=UPPER$(LEFT$(cl$(b1),1))
2020 IFca$="100"THENca$="00"
2030 v=mn(b1):GOSUB1960:GOSUB1980:mn$=v$:v=ex(b1):GOSUB1970:GOSUB1980:ex$="0"+v$:P1$(b1)=ps$(b1)+f$+i$+s$+d$+e$+pv$+mn$+ex$+cl$(b1)+x$+y$+ca$+RIGHT$(STR$(nv(b1)),1)+st$(b1)
2040 NEXT:OPENOUT"fcps":FORb1=1TO5:IFP1$(b1)=""THEN2050ELSEPRINT#9,P1$(b1)
2050 NEXT:CLOSEOUT:OPENOUT"fo":FORb1=1TO100:PRINT#9,o$(b1):NEXT:CLOSEOUT:RETURN
2060 a$="fcps":b$="fo":|ERA,@a$:|ERA,@b$:GOSUB1990:RETURN
