10 MODE1:MEMORY&85FF:LOAD"f&f4",&8600:INK0,0:PAPER0:CLS:BORDER0:INK1,18,19:INK3,14:INK2,6,0:SPEEDINK30,30:GOSUB920:MODE1:p=0:DIMv$(20),vt$(20),C(20),M(20),r$(20):FORf=1TO5:fp$(f)="":NEXT:PEN3:LOCATE1,1:PRINT STRING$(39,CHR$(95))
20 CALL &BB48:LOCATE 1,24:PRINT STRING$(39,CHR$(95)):FOR a=1 TO 24:LOCATE 40,a:PRINT CHR$(95):LOCATE 1,a:PRINT CHR$(95):NEXT:PEN 2:LOCATE 9,3:PRINT"CREATION DES PERSONNAGES":LOCATE 4,6:PEN 1:PRINT"Avez vous deja cree un fichier de":LOCATE 4,8
30 PRINT"          personnages ?"
40 i$=INKEY$:IFi$=""THEN40
50 IFi$="o"ORi$="O"THEN1430
60 IFi$="n"ORi$="N"THEN80
70 GOTO40:SOUND1,100,10:GOSUB130
80 SOUND1,800,10:N0=40:CLS:PEN3:LOCATE1,1:PRINT STRING$(39,CHR$(95)):LOCATE1,24:PRINT STRING$(39,CHR$(95)):FORa=1TO24:LOCATE40,a:PRINT CHR$(95):LOCATE1,a:PRINT CHR$(95):NEXT:N=1:INK1,14,20:INK2,20,14:INK3,6:PEN1:LOCATE6,3
90 PRINT"VOUS VOICI DONC AU DEPART DE L'":PEN2:LOCATE6,5:PRINT"AVENTURE ET BIEN ENTENDU AU NI-":PEN1:LOCATE6,7:PRINT"VEAU  NO 1. LE NOMBRE DE  POINT":PEN2:LOCATE6,9:PRINT"QUI VOUS EST ATTRIBUE EST ";N0;".":PEN1:LOCATE6,11
100 PRINT"VOUS DEVREZ LES REPARTIR  DANS":PEN2:LOCATE6,13:PRINT"LES QUATRE COMPETENCES  DE VOS":PEN1:LOCATE6,15:PRINT"PERSONNAGES  SANS DEPASSER  20":PEN2:LOCATE6,17:PRINT"PAR QUALITE.CEPENDANT UN BONUS":PEN1:LOCATE6,19
110 PRINT"POURRA  ETRE  ACCORDE ET  CELA":PEN2:LOCATE6,21:PRINT"GRATUITEMENT, AFIN D'AMELIORER":PEN1:LOCATE6,23:PRINT"VOTRE PERSONNAGE JOUEUR.";CHR$(151);CHR$(154);CHR$(154);CHR$(154);CHR$(154);CHR$(243)
120 i$=INKEY$:IFi$=""THEN120
130 GOTO170
140 f=0:OPENINF0$:WHILENOTEOF:f=f+1:INPUT#9,fp$(f):WEND:CLOSEIN:RETURN
150 OPENOUTD$:FORf=1TO5:PRINT#9,fp$(f):NEXT:CLOSEOUT:RETURN
160 SOUND1,500,18:SOUND2,505,18:SOUND1,0,1:SOUND1,500,18:SOUND2,505,18:SOUND1,0,1:SOUND1,500,18:SOUND2,505,18:SOUND1,0,1:SOUND1,365,50:SOUND2,363,50:SOUND1,0,3:SOUND1,365,20:SOUND2,363,20:SOUND1,320,50:SOUND2,318,50:RETURN
170 INK0,0:INK1,0:INK2,0:INK3,0:BORDER0:CALL&8600:INK1,25:INK2,3:INK3,9:WINDOW#2,4,31,5,21:PAPER#2,1
180 B2=500:p=p+1:IFp>5THEN1290ELSEv=CINT(RND(500)*100)
190 IFv>60THENb=1
200 IFv>70THENb=2
210 IFv<60THENb=0
220 N0=N0+b:mn(p)=600:FORR=1TO5:ca(R)=20:NEXT:PEN2:PAPER1:LOCATE26,21:PRINT"BONUS :"b:PEN0:PAPER1:LOCATE4,6:PRINT"Nombre de points disponibles ";N0:LOCATE4,8:PRINT"Personnage No ";p:LOCATE4,9:PRINT"Force       :":LOCATE4,10
230 PRINT"Intelligence:":LOCATE4,11:PRINT"Sagesse     :":LOCATE4,12:PRINT"Dexterite   :":LOCATE4,14:PRINT"Point de vie:1000":LOCATE4,16:PRINT"Pieces D'Or :"mn(p):LOCATE4,17:PRINT"Point D'Experience :000000":LOCATE4,19:PRINT"Classe  :":LOCATE4,20
240 PRINT"Nom     :":GOTO320
250 PEN3:LOCATEx,y:PRINT STRING$(N2,"."):LOCATEx,y:P0=0:PEN2
260 l$=INKEY$:IFl$=""THEN260ELSEIFASC(l$)>47ANDASC(l$)<58ORASC(l$)>64ANDASC(l$)<91ORASC(l$)>95ANDASC(l$)<123ORASC(l$)=127ORASC(l$)=13THEN270ELSE260
270 P0=P0+1:B2=B2-8:SOUND1,B2,10:IFB2<10THENB2=500
280 IFl$=CHR$(127)THENm$="":GOTO250
290 IFl$=CHR$(13)THENRETURN
300 IFP0>N2THENRETURN
310 PRINT l$;:m$=m$+l$:GOTO260
320 N2=2:x=18:y=9:GOSUB250:F(p)=VAL(m$):m$="":IFF(p)>20ORF(p)>N0ORF(p)<1THEN320
330 N0=N0-F(p):LOCATE4,6:PRINT"Nombre de points disponible ";N0
340 x=18:y=10:GOSUB250:I(p)=VAL(m$):m$="":IFI(p)>20ORI(p)>N0ORI(p)<1THEN340
350 N0=N0-I(p):LOCATE4,6:PRINT"Nombre de points disponible ";N0
360 x=18:y=11:GOSUB250:sa(p)=VAL(m$):m$="":IFsa(p)>20ORsa(p)>N0ORsa(p)<1THEN360
370 N0=N0-sa(p):LOCATE4,6:PRINT"Nombre de points disponible ";N0
380 x=18:y=12:GOSUB250:D(p)=VAL(m$):m$="":IFD(p)>20ORD(p)>N0ORD(p)<1THEN380
390 N0=N0-D(p):LOCATE4,6:PRINT"Nombre de points disponible ";N0:IFN0>0THEN400ELSE410
400 N0=40+b:GOTO320
410 x=14:y=19:N2=9:GOSUB250:cl$(p)=m$:RESTORE960:FORR=1TO8:READm1$:IFm1$=m$THENm$="":GOTO420ELSENEXT:m$="":GOTO410
420 x=14:y=20:N2=8:GOSUB250:IFm$=""ORASC(m$)=32THEN420ELSEnm$(p)=m$:m$=""
430 LOCATE4,21:PRINT"Ok o/n"
440 i$=INKEY$:IFi$=""THEN440
450 IFi$="O"ORi$="o"THEN470
460 N0=40:p=p-1:CLS#2:GOTO180
470 IFLEFT$(cl$(p),2)="ma"ORLEFT$(cl$(p),2)="MA"ORLEFT$(cl$(p),2)="cl"ORLEFT$(cl$(p),2)="CL"ORLEFT$(cl$(p),2)="el"ORLEFT$(cl$(p),2)="EL"THENGOSUB700
480 LOCATE4,21:PRINT"Desirez vous acheter?"
490 i$=INKEY$:IFi$=""THEN490
500 IFi$="O"ORi$="o"THEN1080
510 GOSUB160:IFp=5THEN560ELSELOCATE4,21:PRINT"Un autre personnage ?"
520 i$=INKEY$:IFi$=""THEN520
530 IF i$="O"OR i$="o"THEN GOSUB 570:GOTO 550
540 GOSUB570:GOTO1290
550 N0=40:CLS#2:IFst=1THENst=0:GOTO170ELSE180
560 GOSUB570:GOTO1290
570 IFcl$(p)="CHEVALIER"ORcl$(p)="chevalier"THEN590
580 SOUND1,200,20:L1$=UPPER$(LEFT$(cl$(p),1)):GOTO600
590 L1$="H"
600 IFLEN(STR$(F(p)))<3THENa1$="0"+RIGHT$(STR$(F(p)),1)ELSEa1$=RIGHT$(STR$(F(p)),2)
610 IFLEN(STR$(I(p)))<3THENa2$="0"+RIGHT$(STR$(I(p)),1)ELSEa2$=RIGHT$(STR$(I(p)),2)
620 IFLEN(STR$(sa(p)))<3THENa3$="0"+RIGHT$(STR$(sa(p)),1)ELSEa3$=RIGHT$(STR$(sa(p)),2)
630 IFLEN(STR$(D(p)))<3THENa4$="0"+RIGHT$(STR$(D(p)),1)ELSEa4$=RIGHT$(STR$(D(p)),2)
640 IFLEN(STR$(ca(p)))<3THENa5$="0"+RIGHT$(STR$(ca(p)),1)ELSEa5$=RIGHT$(STR$(ca(p)),2)
650 IFLEN(STR$(mn(p)))<5THEN660ELSEa6$=RIGHT$(STR$(mn(p)),4)
660 n1=LEN(STR$(mn(p)))-1:IFn1=3THENab$="0":ab=3ELSEIFn1=2THENab$="00":ab=2ELSEIFn1=1THENab$="000":ab=1
670 a6$=ab$+RIGHT$(STR$(mn(p)),ab):fp$(p)=nm$(p)+a1$+a2$+a3$+a4$+a5$+"1000"+a6$+"000000"+L1$+"100556":fp$(p)=fp$(p)+"1":IFL1$="E"ORL1$="M"ORL1$="C"THEN680ELSE690
680 FORV0=1TOns:fp$(p)=fp$(p)+L$(V0):NEXT
690 RETURN
700 BORDER25:CLS:PEN3:LOCATE1,1:PRINT STRING$(39,CHR$(95)):LOCATE1,24:PRINT STRING$(39,CHR$(95)):FORa=1TO24:LOCATE40,a:PRINT CHR$(95):LOCATE1,a:PRINT CHR$(95):NEXT:PEN2:LOCATE5,3:PRINT"       Sort du niveau ";N:mj$=UPPER$(cl$(p))
710 IFLEFT$(mj$,2)="MA"THENS0=1
720 IFLEFT$(mj$,2)="CL"THENS0=2
730 IFLEFT$(mj$,2)="EL"THENS0=3
740 IFN=1THEN770
750 IFN=2THEN790
760 IFN=3THEN810
770 IFS0=1THENv$="1145"ELSEIFS0=2THENv$="0"ELSEIFS0=3THENv$="123"
780 GOTO820
790 IFS0=1THENv$="2125"ELSEIFS0=2THENv$="114"ELSEIFS0=3THENv$="2345"
800 GOTO820
810 IFS0=1THENv$="32345"ELSEIFS0=2THENv$="2125"ELSEIFS0=3THENv$="2123"
820 FORb=1TO5:PEN0:LOCATE2,b+8:PRINT b:PEN2:LOCATE4,b+8:PRINT sr$(N,b);" ";N$(b+(5*(N-1))):NEXT:ns=VAL(LEFT$(v$,1)):v$=RIGHT$(v$,LEN(v$)-1):su(1)=VAL(LEFT$(v$,1)):pl=1:IFLEN(v$)<2THEN860ELSEv$=RIGHT$(v$,LEN(v$)-1)
830 su(2)=VAL(LEFT$(v$,1)):pl=2:IFLEN(v$)<2THEN860ELSEv$=RIGHT$(v$,LEN(v$)-1)
840 su(3)=VAL(LEFT$(v$,1)):pl=3:IFLEN(v$)<2THEN860ELSEv$=RIGHT$(v$,LEN(v$)-1)
850 su(4)=VAL(LEFT$(v$,1)):pl=4:IFLEN(v$)<2THEN860ELSEv$=RIGHT$(v$,LEN(v$)-1)
860 IFpl=2THENcp$=STR$(su(1))+STR$(su(2))ELSEIFpl=3THENcp$=STR$(su(1))+STR$(su(2))+STR$(su(3))ELSEIFpl=4THENcp$=cp$=STR$(su(1))+STR$(su(2))+STR$(su(3))+S$(su(4))
870 PEN0:LOCATE5,18:PRINT ns;" sort(s),parmis ";cp$:PEN2:LOCATE7,20:INPUT"entrez votre choix ex(34)";cx$:L0=LEN(cx$):IFL0>nsTHEN700
880 FORo=1TOL0:sc(o)=VAL(MID$(cx$,o,1)):NEXT:FORB0=1TOL0:FORB1=1TOpl:IFsc(B0)=su(B1)THENC=0ELSEC=1:NEXT:IFC=0THENNEXTELSE900
890 GOTO910
900 SOUND1,200,10:LOCATE6,16:PRINT" Choix impossible":FORT0=1TO300:NEXT:GOTO700
910 FORls=1TOns:L$(ls)=LEFT$(N$(sc(ls+(5*(N-1)))),1):NEXT:st=1:RETURN
920 FORnv=1TO3:FORS=1TO5:READa$:sr$(nv,S)=a$:NEXT:NEXT:DATA"Enchantement de personnes :","Sort de sommeil           :","Sort de lumiere           :","Champ de force            :","Sort frappeur             :"
930 DATA"Guerison blessures legeres:","Force fantasmagorique     :","Invisibilite              :","Lumiere continue          :","Boule de feu              :"
940 DATA"Guerison blessures        :","Champ de force            :","Sort frapeur              :","Sort de vent              :","Polyglotte                :"
950 DIMN$(15):FORns=1TO15:READns$:N$(ns)=ns$:NEXT:DATA"unvitri","hypno","emera","fusis","tanaris","ishtar","belgora","granhalf","emera","dormahot","ishtar","fusis","tanaris","zephir","polyg"
960 DATAguerrier,clerc,elfe,magicien,voleur,chevalier,nain,tinigen
970 DATAtunique simple1001100010040,manteau1111111110050,robe de magicien0001000010050,soutane0100000020050,vetement ordinaire0001101120080
980 DATAculotte de peau1000001110100,vetement de peau1000001120200,vetement de fourrure1000101130200,saie de fourrure1000101120100,fourrure1010001130300
990 DATAcotte (torsade cuir)1100001140300,maille simple1000001130200,maille plaquee0010001140500,maille (quinconque)0010010040300,maille (+pourpoint)1110010050500
1000 DATAarmure de type A0110011140400,armure de type B0110010050800,armure de type C0110010060900,armure de type D0110010071000,armure de type E0110010081500
1010 DATAmarteau d'arme1010010020100,masse d'arme1010011130200,fleau d'arme1010010040400,massue1110101130150,gourdin1111101120100
1020 DATAarc classique0000100040300,grand arc0000100050500,arbalete a tour0000101130400,poignard0001100020200,couteau0011101110050
1030 DATAepee simple0010111120100,epee en fer1010111120150,epee d'alliage1010011130300,epee a 2 mains1000010040600,gde epee a 2 mains1000000040600
1040 DATAhache1010011130200,double hache1010001140300,hallebarde0000100030200,guisarme0000001120100,grosse hache1000001150500
1050 DATAbouclier rond (bois)1000001110100,bouclier rond (metl)1110011120200,pavois simple0110011020200,grand pavois0110010030300,grand bouclier ovale0000010040400
1060 DATAgrand chapeau0001100010050,casque simple1110011120100,casque a nasal1110011130300,bacinet0000010030200,heaume0000010030200
1070 RETURN
1080 INK0,0:PAPER0:CLS:INK1,20:INK2,15,24:SPEEDINK1,1:INK3,6:BORDER0:WINDOW#1,3,38,8,20:tr=1:CLS:PEN2:LOCATE1,1:PRINT STRING$(39,CHR$(95)):LOCATE1,24:PRINT STRING$(39,CHR$(95)):FORa=1TO24:LOCATE40,a:PRINT CHR$(95):LOCATE1,a:PRINT CHR$(95)
1090 NEXT:LOCATE2,6:PRINT" Designation          ClAm   Prix  No"
1100 IFcl$(p)="guerrier"THENc1=1ELSEIFcl$(p)="clerc"THENc1=2ELSEIFcl$(p)="elfe"THENc1=3ELSEIFcl$(p)="magicien"THENc1=4ELSEIFcl$(p)="voleur"THENc1=5ELSEIFcl$(p)="chevalier"THENc1=6
1110 IFcl$(p)="nain"THENc1=7ELSEIFcl$(p)="tinigen"THENc1=8
1120 IFtr>4THEN1250ELSEFORa1=1TO20:v$(a1)="":vt$(a1)="":C(a1)=0:M(a1)=0:NEXT:IFtr=1THENRESTORE970:nf=20ELSEIFtr=2THENRESTORE1010:nf=20ELSEIFtr=3THENRESTORE1050:nf=5ELSERESTORE1060:nf=5
1130 FORR=1TOnf:READv$(R):vt$(R)=RIGHT$(v$(R),13):v$(R)=LEFT$(v$(R),LEN(v$(R))-LEN(vt$(R))):NEXT:PEN1:PLOT20,330:DRAWR600,0,1:DRAWR0,-34:DRAWR-600,0:DRAWR0,34:r2=0:LOCATE6,3:PRINT"         MONNAIE :       CA : ":LOCATE3,3:PEN3
1140 IFtr=1THENPRINT"ARMURES"ELSEIFtr=2THENPRINT"ARMES"ELSEIFtr=3THENPRINT"BOUCLIERS"ELSEPRINT"CASQUES"
1150 LOCATE3,21:PEN3:PRINT"'SPACE' : Valider le choix ":LOCATE3,22:PRINT"'ENTER' : Passer au choix suivant":LOCATE3,23:PRINT"' ";CHR$(240);" ";CHR$(241);" ' : Choisir":PEN1:FORR=1TOnf
1160 IFVAL(MID$(vt$(R),c1,1))=0THEN1180ELSEr2=r2+1:C(r2)=VAL(MID$(vt$(R),9,1)):M(r2)=VAL(RIGHT$(vt$(R),4)):LOCATE3,8+r2:PRINT UPPER$(v$(R));STRING$(20-LEN(v$(R)),".");" -";C(r2);" ";CHR$(95);" ";M(r2):r$(r2)=v$(R)
1170 LOCATE36,8+r2:PRINT r2
1180 NEXT:j=9:cx=0
1190 LOCATE24,3:PEN3:PRINT mn(p):LOCATE35,3:PRINT ca(p):PEN1
1200 LOCATE36,j:PEN3:PRINT CHR$(243):t$=INKEY$:IFt$=CHR$(240)THENSOUND1,500,10:GOSUB1210:j=j-1:GOTO1200ELSEIFt$=CHR$(241)THENSOUND1,500,10:GOSUB1210:j=j+1:GOTO1200ELSEIFt$=" "THEN1220ELSEIFt$=CHR$(13)THEN1240ELSE1200
1210 IFj=9ANDt$=CHR$(240)THEN1200ELSEIFj=r2+8ANDt$=CHR$(241)THEN1200ELSELOCATE36,j:PRINT" ":RETURN
1220 IFcx>0THEN1240ELSEk=j-8:IFca(p)-C(k)<0THEN1230ELSEIFmn(p)-M(k)<0THEN1230ELSEca(p)=ca(p)-C(k):mn(p)=mn(p)-M(k):ch$(tr)=r$(k):cx=cx+1:GOTO1190
1230 FORrr=1TO4:LOCATE3,8:PAPER3:PEN2:PRINT"impossible":FORw=1TO200:NEXT:LOCATE3,8:PAPER0:PRINT"           ":FORrw=1TO200:NEXT:NEXT:GOTO1200
1240 GOSUB160:tr=tr+1:CLS#1:IFc1=4ANDtr=3ORc1=5ANDtr=3THENtr=4:GOTO1120ELSE1120
1250 PEN2:LOCATE5,10:PRINT UPPER$(nm$(p)):LOCATE5,12:PEN3:PRINT UPPER$(cl$(p)):PEN1:LOCATE5,14:PRINT"Clss Am :";ca(p):LOCATE5,16:PRINT"MONNAIE :";mn(p):FORR=1TO4:LOCATE19,8+R:PRINT UPPER$(ch$(R)):NEXT:LOCATE5,18:PEN3:PRINT"ok (o/n)"
1260 t$=INKEY$:IFt$="o"ORt$="O"THENGOSUB570:GOTO1270ELSEIFt$="n"ORt$="N"THENca(p)=20:mn(p)=600:GOTO1080ELSE1260
1270 LOCATE5,18:PRINT"un autre personnage ?"
1280 t$=INKEY$:IFt$="o"ORt$="O"THENst=1:GOTO550ELSEIFt$="n"ORt$="N"THEN1290ELSE1280
1290 MODE1:INK0,0:INK1,0:INK2,0:INK3,0:BORDER0:CALL&9190:INK1,6:INK2,14:INK3,26:WINDOW#3,1,19,1,19:PEN3:PAPER1:LOCATE2,22:PRINT"UTILISEZ UNE DISQUETTE DIFFERENTE POUR":LOCATE2,23:PRINT"LA SAUVEGARDE  DU  FICHIER  PERSONNAGE":LOCATE2,24
1300 PRINT"              MERCI.":PAPER#3,0:PEN#3,1:PRINT#3:PRINT#3:PRINT#3,"  Pour sauvegarder ":PRINT#3," vos  personnages ":PRINT#3:PRINT#3:PRINT#3," 1 :changer de dis-":PRINT#3,"    quette":PRINT#3:PRINT#3," 2 :donnez un nom a"
1310 PRINT#3,"    votre fichier":PRINT#3:PRINT#3," 3 :appuyez sur 'S'":PRINT#3:PEN#3,3:PRINT#3,"  Appuyez sur une ":PRINT#3,"    touche pour":PRINT#3,"     continuer"
1320 t$=INKEY$:IFt$=""THEN1320ELSEPRINT#3:PRINT#3:PRINT#3:PRINT#3:PRINT#3
1330 CLS#3:PEN#3,2:LOCATE#3,1,17:PRINT#3,"Nom du fichier ":LOCATE#3,1,18:PRINT#3,"(Max = 8 lettres)":LOCATE#3,1,19:PRINT#3,"> ";
1340 t$=INKEY$:IFt$=CHR$(13)THEN1370ELSEIFt$=CHR$(127)THEN1360
1350 IFLEN(D$)<8THENPRINT#3,t$;:D$=D$+t$:GOTO1340ELSE1340
1360 D$="":LOCATE#3,1,19:PRINT#3,">            ":GOTO1330
1370 PRINT#3:PRINT#3:PEN#3,3:PRINT#3,"  Appuyer sur 'S'":PRINT#3," pour  sauvegarder"
1380 t$=INKEY$:IFt$="s"ORt$="S"THEN1390ELSE1380
1390 GOSUB570:GOSUB150:CLS#3:PEN#3,2:PRINT#3:PRINT#3:PRINT#3:PRINT#3,"Voulez-vous jouer":PRINT#3,"au jeu (o/n) ?"
1400 t$=INKEY$:IFt$="o"ORt$="O"THEN1410ELSEIFt$="n"ORt$="N"THENCALL0ELSE1400
1410 CLS#3:PRINT#3," INSERER LA FACE 1":PRINT#3,"  ET APPUYER SUR":PRINT#3,"    UNE TOUCHE":PRINT#3:PEN#3,3:PRINT#3,"     ATTENTION":PRINT#3,"Vous jouerez avec":PRINT#3,"l'equipe qui est":PRINT#3,"deja sauvegardee"
1412 PRINT#3,"sur la FACE 1 .":PRINT#3:PRINT#3," Si vous voulez":PRINT#3,"jouer avec celle":PRINT#3,"que vous venez de":PRINT#3,"creer,vous devrez":PRINT#3,"repasser par":PRINT#3,"l'option <1> du":PRINT#3,"MENU ."   
1413 t$=INKEY$:IF t$="" THEN 1413
1414 POKE 63,1:RUN"F&F"
1420 LOCATE5,10:PRINT"Entrez le nom de votre equipe ":LOCATE5,12:PRINT"a transferer  sur  ce  support":RETURN
1430 GOSUB1420:LOCATE10,17:PRINT"Nom du fichier ":LOCATE10,18:PRINT"(Max = 8 lettres)":LOCATE10,19:PRINT"> ";:PEN3
1440 t$=INKEY$:IFt$=CHR$(13)THEN1470ELSEIFt$=CHR$(127)THEN1460
1450 IFLEN(D$)<8THENPRINT t$;:D$=D$+t$:GOTO1440ELSE1440
1460 D$="":LOCATE10,19:PRINT">            ":GOTO1430
1470 IFD$=""THENF0$="fcps"ELSEF0$=D$
1480 PEN 3:LOCATE 5,22:PRINT"METTEZ la disquette";:PEN 1:PRINT" de L'EQUIPE":PEN 2:LOCATE 5,23:PRINT"APPUYER sur 'S' pour le TRANSFERT" 
1490 t$=INKEY$:IFt$="s"ORt$="S"THEN1500ELSE1490
1500 GOSUB 140:PEN 3:PRINT CHR$(7):LOCATE 5,22:PRINT"METTEZ la disquette";:PEN 2:PRINT" MASTER (face1)":PEN 2:LOCATE 5,23:PRINT"APPUYER sur 'S' pour le TRANSFERT"
1510 t$=INKEY$:IF t$="s"OR t$="S"THEN 1520 ELSE 1510
1520 a$="fcp1":|ERA,@a$:D$="fcp1":GOSUB 150:GOTO 1414
