Je chercher à retrouver l'auteur du programme ci-dessous. J'ai retrouvé ce programme sur une cassette perso, et je me crois me souvenir l'avoir tapé avec mes frères depuis un magazine. Je pensais le retrouver dans Micr'Oric, mais non.

La raison pour laquelle je voudrais retrouver le nom de l'auteur: je trouve plein de variations de ce programme sur des K7 perso (Musepat semble même en avoir transféré une lui aussi), et donc je voudrais créditer l'auteur d'origine.

A l'aide !

100 CLS
110 WA=60:BF=50:MU=100:CH=4:CA=50:EF=100:EC=100:MA=100
112 X=3.456:Y=4.345:AR=50
200 REM
210 CLS
215 J=J+1:PRINT"JOUR "J;:PRINT" - KILOMETRE " INT(KM)
216 IFKM=>1820 THENPRINT"VOUS ETES ARRIVES A BON PORT,BRAVO !":END
221 H=6:K=K+2:FR=K*1.5
222 PRINT"IL EST "H" HEURES":PRINT
225 FS=INT(RND(1)*100)+30
230 IFFS>100THENFS=100
235 PRINT"-ENSOLEILLEMENT...."FS;" %"
237 GOSUB1000
240 PRINT"-ETAT DU FOURGON..."EF;" %"
245 PRINT"-NOMBRE DE CHEVAUX."CH
247 PRINT"-ETAT DES CHEVAUX.."INT(EC);" %"
250 PRINT"-NOURRITURE........"BF" K"
260 PRINT"-EAU..............."WA" L"
262 PRINT"-MATERIEL.........."MA" %"
263 PRINT"-ARGENT............"AR" $"
265 PRINT:PRINT"LEVER LE CAMP ? (O/N)"
270 INPUT">";R$
275 IFR$="O"THEN350
280 PRINT"VOULEZ-VOUS:"
285 PRINT"-(R)EPARER LE CHARIOT ?"
290 PRINT"-(S)OIGNER LES CHEVAUX ?"
295 PRINT"-(M)ANGER/BOIRE ?"
300 PRINT"-(C)HASSER ?"
315 INPUT">";R$
320 IFR$="R"THENEF=EF+15:MA=MA-5:H=H+1
325 IFR$="S"THENWA=WA-6:EC=EC+18:H=H+1
330 IFR$="M"THENBF=BF-2:H=H+1
335 IFR$="M"THENM=0:WA=WA-4:BF=BF-1
340 IFR$="C"THENGOSUB900
342 IFTH=1THENTH=0:GOTO450
345 GOTO222
350 PRINT"COMBIEN DE CHEVAUX ATTELES ?";
355 INPUT">";NC
360 IFNC>CHORNC<1THEN350
370 PRINT"IL EST "H" HEURES":PRINT
400 PRINT:PRINT"YOHUUUUUUU!!"
405 FORI=1TO20:PRINT:NEXTI
410 FORT=HTO20STEP1
411 IFT<>14THEN450
415 PRINT"-(H)ALTE ? (O/N)";
420 INPUT">";R$
425 IFR$="O"THENTH=1:T=T+1:GOTO280
450 Z=(EF*EC*NC*X*Y)/(FS*4*MA)
452 IFZ<0THENZ=0
455 EF=EF-2
456 EC=EC-(FS*NC/150)
460 PRINTT" HEURES  "INT(Z)"KM"
462 KJ=KJ+Z
465 KM=KM+Z
470 NEXTT
472 PRINT"AUJOURD'HUI : "INT(KJ)" KM":KJ=0:EC=EC+5
475 PRINT"TOTAL PARCOURU : "INT(KM):M=M+2
480 INPUTA$
510 PR=INT(RND(1)*100)
520 IFPR>FRTHENGOTO800
521 PRINT"IL Y A UN FORT A "PR*J" METRES !"
530 PRINT"ALLEZ-VOUS AU FORT ? (O/N)"
535 INPUT">";R$
540 IFR$<>"O"THEN800
545 PRINT"VOUS ETES DANS LE FORT."
550 WA=60:M=0:FR=0:K=0:J=J+1:
555 IFAR=OTHEN700
560 PRINT"QUE VOULEZ-VOUS ACHETER ?"
565 PRINT"(C)ARTOUCHES...5 $"
570 PRINT"(CH)EVAL.......20$"
575 PRINT"(M)ATERIEL.....10$"
580 PRINT"(N)OURRITURE...2 $"
585 INPUT">";R$
590 IFR$="C"THENAR=AR-5:MU=MU+20
595 IFR$="CH"THENAR=AR-20:CH=CH+1
600 IFR$="M"THENAR=AR-10:MA=MA+20
605 IFR$="N"THENAR=AR-2:BF=BF+20
700 PRINT"VOULEZ-VOUS QUITTER LE FORT ? (O/N)"
710 INPUT">";R$
715 IFR$="O"THEN800
720 GOTO545
800 GOTO210
900 PC=INT(RND(1)*100)
905 T=T+1
910 IFPC<30ANDPC>20THENPRINT"UN VOL DE ANARD":G=1
915 IFPC<20ANDPC>10THENPRINT"UN LOUP":G=2
920 IFPC<10ANDPC>1THENPRINT"UN BISON":G=3
925 IFG=0THENPRINT"RIEN ! CONTINUEZ-VOUS L'AFFUT ?":GOTO930
926 RC=INT(RND(1)*100)
927 PRINT"PAN!!"
928 IFRC<50THENPRINT"REUSSI !":BF=INT(BF+(G*10)*(RC/10)):GOTO925
929 PRINT"RATE":G=0:GOTO925
930 INPUT">";R$
932 IFR$="O"THEN900
960 RETURN
1000 REM
1002 IFM>2THENPRINT"VOUS VOUS SENTEZ MAL" 
1005 IFM>10THENCLS:PRINT"BONJOUR LES VAUTOURS ! VOUS ETES MORT":END
1010 IFEF<0THENEF=0:PRINT"LE FOURGON NE ROULE PLUS"
1012 IFEF=0ANDMA=0THENPRINT"LES VAUTOURS TOURNENT DANS LE CIEL IMMACULE...":M=M+1
1020 IFCH<0THENCH=0
1030 IFBF<0THENBF=0:PRINT"PEUT-ETRE FAUDRAIT-IL CHASSER !":M=M+1
1040 IFWA<0THENWA=0:M=M+2:PRINT"SOIF...SOIF"
1050 IFMA<0THENMA=0:PRINT"HUMMM!!!"
1060 IFAR<0THENAR=0:PRINT"VOUS N'AVEZ PLUS D'ARGENT"
1065 IFAR=0ANDFR=1THENPRINT"VOUS TRAVAILLEZ PENDANT 2 SEMAINES...":J=J+15:AR=30
1070 IFEC<0THENEC=0
1100 RETURN