Les Cahiers du Logiciel Micro V.O (1985-1986)

Les bouquins, les scans, les pdf ou les liens qui vont bien... ici c'est la bibliothèque.

Modérateurs : Papy.G, fneck, Carl

Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par Daniel »

Chaque mois le magazine MICRO V.O publiait, comme Hebdogiciel, des programmes envoyés par ses lecteurs.
Ils ont été scannés par un de mes correspondant et je les héberge à la page Documentation/Revues du site dcmoto :
http://dcmoto.free.fr/documentation/revues.html

Image ____ Image ____ Image ____ Image ____ Image

Image ____ Image ____ Image ____ Image

C'est une mine d'or pour les membres du forum avides de programmes à taper (devinez à qui je pense...).
Si vous préférez le format pdf ils sont ici : http://dl.free.fr/r9gLth69R (hébergement temporaire 30 jours).
Daniel
L'obstacle augmente mon ardeur.
Avatar de l’utilisateur
Dominique
Messages : 828
Inscription : 09 mars 2010 13:37
Localisation : Limoges
Contact :

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par Dominique »

Merci beaucoup Daniel et à ton correspondant pour tout ce travail de sauvegarde de la mémoire informatique de nos jeunes années !
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par Daniel »

Le site Abandonware Magazines propose déjà un certain nombre de numéros de Micro V.O, mais pas tous. Mon correspondant (Sébastien) leur a proposé ses scans des Cahiers du Logiciel, mais ce ne sont pas les magazines complets alors ils ne les ont pas publiés. C'est pourquoi je les héberge sur le site dcmoto, bien qu'ils concernent tous les micro-ordinateurs de l'époque, pas seulement les Thomson.

Je vais bientôt compléter les neuf premiers numéros par les quatre suivants et la collection sera complète.
Daniel
L'obstacle augmente mon ardeur.
Avatar de l’utilisateur
Mokona
Messages : 1040
Inscription : 17 déc. 2016 22:01
Localisation : Nord Est des Yvelines
Contact :

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par Mokona »

Merci !
Xavier_AL

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par Xavier_AL »

Salut à tous,

J'ai effectivement remarqué que ce forum possède de nombreux volontaires et beaucoup de listings ont été finalisés avec un 'professionnalisme' collégial.

Même si le premier programme tapé est long et fastidieux, certains ont joué le jeux à leurs mesures.

Je me propose pour entrer (sauver) un ou deux programmes pour le grand bonheur des thomsonistes du futur.

Y a-t-il une liste, des programmes déjà tapés?
Je déposerai mes 'œuvres' (honteusement copiées) sur ce fil...
:D

Encore merci aux contributeurs des listings "hebdogiciel-Tilt", qui compte le plus grand nombre de contributeurs fans de ce forum !
Dernière modification par Xavier_AL le 19 oct. 2018 18:54, modifié 1 fois.
__sam__
Messages : 7923
Inscription : 18 sept. 2010 12:08
Localisation : Brest et parfois les Flandres

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par __sam__ »

Attention avec la recopie, je viens de survoler le numéro 3 et il me semble que le code source de "GEO-TEST" pour Thomson se coupe en plein milieu des data et passe de la page 64 à la 77 sans prévenir. :?
Samuel.
A500 Vampire V2+ ^8^, A1200 (030@50mhz/fpu/64mb/cf 8go),
A500 GVP530(MMU/FPU) h.s., R-Pi, TO9, TO8D, TO8.Démos
Xavier_AL

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par Xavier_AL »

Un grand classique...
Une erreur de "tourne".
:lol:

Comme il n'y a pas que du Thomson (qui reste prioritaire sur ce forum), je fais la liste et une page pour l'ensemble des listings.

En tout cas, j'aime la mise en avant des auteurs, car à l'époque, cela semblait être facultatif (cf.Tilt).
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par Daniel »

Ajout des numéros 10 à 13 (ils proviennent d'une source différente), ils complètent la collection :

Image Image Image Image
Daniel
L'obstacle augmente mon ardeur.
jasz
Messages : 1313
Inscription : 05 oct. 2016 20:05
Localisation : Quelque part dans le 31

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par jasz »

Et, le format pdf est disponible aussi? Mon ordinateur (il a douze ans) n'a JAMAIS supporté le djvu (même sous XP) et pourtant j'ai tout essayé... Les plugs firefox ne donnent rien et même avec starter (W7), c'est assez galère (ou alors c'est moi qui ne sais pas le faire fonctionner correctement ...). :(

En tout cas merci pour tout ce travail... De mémoire :)

[edit]A ce propos j'en profite pour faire une parenthèse. Les ordinateurs sont tous différents. Tout comme la médecine, l'informatique n'est pas une science. Ce qui peux expliquer des soucis selon les machines...
Dernière modification par jasz le 20 oct. 2018 05:43, modifié 1 fois.
Xavier_AL

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par Xavier_AL »

Bon...
Il y a du travail !

les numéros de 10 à 13 en JPG sont dispo ici: http://www.abandonware-magazines.org/af ... =79&page=1


Amstrad:
[1] YAMSTRAD (Pascal LACHAISE)
[2] Cahier des as ()
[3] Tronny()
[4] Morpho()
[5] Astrologie()
[6] Envahisseurs ()
[7] Make it easy()
[8] SOS RSX ()
[9] Amsfile ()
[10] Tir ()
[10] S.B.A. ()
[11] Wall ()
[12] Peinture ()
[13] Tridim ()

Atari:
[11] La fuite de Thesee ()
[12] Prospection ()
[13] Multicolor ()

MO5/TO7:
[1] Serpent (Michel MAJETTE)
[2] Kim ()
[3] Geo-Test()
[4] Paye()
[5] Calibre()
[6] Thomave()
[7] Texto7()
[8] Enigme ()
[9] Monopoly ()
[10] J.O. 92 ()
[11] Maxormad ()
[12] Jeu de société ()
[12] Camembar ()
[13] Maternelle ()

MSX:
[1] Cahier des AS (Michel LEGAGNEUR)
[2] Boum ()
[3] DAO()
[4] Berger()
[5] Ecumeurs()
[6] MSX-3D ()
[6] Lem-SX ()
[7] Packy()
[8] Synthe ()
[9] Krypton ()
[10] Divination ()
[11] Tico ()
[12] Master and servant ()
[13] Circuit ()

Ti99:
[1] Coupable (Pierre HAYOTTE)
[2] L'héritage ()
[3] Le temple d'Amon()
[4] Conquête spatiale()
[5] Evasion()
[6] Micro-Morse ()
[7] Anubis (Yannick GALLOIS)
[9] Lapin pressé ()
[10] Hippopadpo ()
[12] Fort apocalypse ()

Spectrum:
[1] Mineur (Eric DUCHATEAU)
[2] L'arche perdu ()
[3] Robinet()
[4] Ensembles()
[5] Phantasia()
[6] Softaid ()
[7] Massacre (César MARTINEZ-BARBOSA)
[8] Kobe ()

C64/128:
[1] MAC64 (Henri FALL)
[2] PSY CAUSE ()
[3] Chenille()
[4] Discordinateur()
[5] Ergos()
[6] Commus ()
[6] Bong ()
[7] Robo (Emmanuel KELLER)
[8] Varigaudon ()
[9] Tracker ()
[9] B.C.S. ()
[10] Super Basic ()
[11] Duel aerien ()
[12] Snowbots ()
[13] Boules ()

ORIC:
[1] L'artilleur (Etienne MOIZAN)
[2] Et puis les psy ()
[3] Météor()
[4] Super clavier()
[5] Tante Agatha()
[6] Util 1 ()
[7] Dessin 3D (Emmanuel ROSSI)
[8] Calcment ()
[9] Othello ()
[10] Chimie ()
[11] Kryptonia ()
[12] Le tombeur ()

Apple:
[1] Mots croisés (Yves HUITRIC -François DUPIN)
[2] Attar ()
[3] Cotations()
[3] Tarots()
[5] ComptApple()
[7] Créatif (Frédéric LIZOT)
[8] Psycho-Test ()
[9] Concept ()
[11] MAC IIe ()
[12] Mini-toolkit ()
[13] Tragi ()

IBMPC:
[8] Jeu de vie ()
[13] Réseau ()

Yamaha:

[1] FM Voicing 1 (Colette et Berthe MAVALET)
[2] FM Voicing 2
[5] FM Voicing 4
FM Voicing 6
FM Voicing 8
FM Voicing 10

Divers:
[1] Hasard (François DUPIN)
[2] ça date ()
[4] Parlons francs()
[9] Bingoroscope()
[10] Tribulation ()
[11] Tir Patrouille ()
[13] Incert à quoi ()
http://abandonlistings.free.fr/microvo/
Pour télécharger les programmes déjà tapés...

Merci Daniel pour les listings manquants.
:D
Markerror
Messages : 2121
Inscription : 31 oct. 2011 19:21
Localisation : Orléans
Contact :

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par Markerror »

Concernant les listings CPC, une bonne partie est disponible sur CPC-Power (et normalement, ils sont fonctionnels, Bruno les teste tous).

Reste Envahisseurs, Amsfile et S.B.A. à trouver/ taper. Je regarde la tête des listings avant d'en faire un, histoire de lancer la machine :-).

[Edit] Bon, Envahisseur ayant l'air d'être un peu chiant à saisir, on va commencer en douceur avec Amsfile. Il me semble que l'auteur (Hervé COUPPE) a publié au moins un autre listing, un shoot'em'up dans le numéro HS Amstrad Hebdogiciel. Le programme était de qualité, donc, je prends Amsfile !
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par Daniel »

__sam__ a écrit : 19 oct. 2018 17:39 Attention avec la recopie, je viens de survoler le numéro 3 et il me semble que le code source de "GEO-TEST" pour Thomson se coupe en plein milieu des data et passe de la page 64 à la 77 sans prévenir. :?
Autre problème : Les pages ayant été scannées deux par deux, dans les fichiers pdf elles ne sont pas dans l'ordre. Hier les fichiers DjVu avaient toutes les pages dans le désordre. Je m'en suis aperçu aujourd'hui et j'ai tout refait. Ca doit être bon maintenant.

@jasz : Le format DjVu est encore plus vieux que ton ordinateur, il est parfaitement supporté. Il suffit de télécharger les fichiers DjVu au format groupé. Par contre il y a un réel problème aujourd'hui avec le format DjVu séparé (pour la consultation en ligne). Beaucoup de navigateurs (en particulier Firefox) ont complètement changé leur système de plugin et sont devenus incompatibles. On peut chercher un navigateur compatible (par exemple Internet Explorer, Palemoon, Chrome, les vieilles versions de Firefox, etc.). Il y a aussi une solution indépendante des navigateurs : djview4. Tout est expliqué à la page Documentation du site dcmoto.
Daniel
L'obstacle augmente mon ardeur.
Xavier_AL

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par Xavier_AL »

Salut Markerror,

Je prends "Envahisseur"... pour Amstrad.

J'ai déjà des outils de vérification pour l'Apple2 dans le même format de saisie... :lol:

Et j'ai préparé "Monopoly" en OCR relu une fois... rapidos...
Donc, si un courageux peut prendre un peu de temps pour la fin de week-end !

Code : Tout sélectionner

1 '
2 ' MONOPOLY
3 '
5 SCREEN 2,0,0:GOSUB 15000
10 CLS : SCREEN 2,0,0: CLEAR100,,1
11 LOCATE 10,10:PRINT"APPUIE SUR UNE TOUCHE": A$=INKEY$
12 A$=INKEY$ : A=RND
13 IF A$="" THEN 12
15 LOCATE 10,10 :PRINT"                         ":NRE=0:TRE=0: NPR=0:NPR2=0: PRI=0: PRI2=0:ARGE=150000 :ARGE2=150000 :DOU=0 :VA=0:COUP=0:C3=0:C31=0:C32=0:G1A=0:GA1=0:GA2=0:NCA2=1:NCA=1:CP1=33:LP1=22:CP2=34:LP2=22
20 DIM CAS$(41),CAS2$(41)
22 CAS$(1)="DEPART"
23 CAS2$(1)="1.1"
24 CAS$(2)="B. DE BELLEVILLE"
25 CAS2$(2)="6000"
26 CAS$(3)="CAISSE DE COMMUNAUTE"
27 CAS2$(3)="1.1"
28 CAS$(4)="RUE LECOURBE"
29 CAS2$(4)="6000"
30 CAS$(5)="IMPOTS SUR LE REVENU"
31 CAS2$(5)="1.1"
32 CAS$(6)="GARE MONPARNASSE"
33 CAS2$(6)="20000"
34 CAS$(7)="RUE DE VAUGIRARD"
35 CAS2$(7)="10000"
36 CAS$(8)="CHANCE"
37 CAS2$(8)="1.1"
38 CAS$(9)="RUE DE COURCELLES"
39 CAS2$(9)="10000"
40 CAS$(10)="A. DE LA REPUBLIQUE"
41 CAS2$(10)="2000"
42 CAS$(11)="EN PRISON"
43 CAS2$(11)="1.1"
44 CAS$(12)=". DE LA VILLETTE"
45 CAS2$(12)="14000"
46 CAS$(13)="Cie DE DISTRIBUTION"
47 CAS2$(13)="15000"
48 CAS$(14)="A. DE NEUILLY"
49 CAS2$(14)="14000"
50 CAS$(15)="RUE DE PARADIS"
51 CAS2$(15)="16000"
52 CAS$(16)="GARE DE LYON"
53 CAS2$(16)="20000"
54 CAS$(17)="A. DE MOZART"
55 CAS2$(17)="18000"
56 CAS$(18)="CAISSE DE COMMUNAUTE"
57 CAS2$(18)="1.1"
58 CAS$(19)="B. St MICHEL"
59 CAS2$(19)="18000"
60 CAS$(20)="PLACE PIGALLE"
61 CAS2$(20)="20000"
62 CAS$(21)="PARC GRATUIT"
63 CAS2$(21)="1.1"
64 CAS$(22)="A. DE MATIGNON"
65 CAS2$(22)="22000"
66 CAS$(23)="CHANCE"
67 CAS2$(23)="1.1"
68 CAS$(24)="B. DE MALESHERBE"
69 CAS2$(24)="22000"
70 CAS$(25)="A. HENRI MARTIN"
71 CAS2$(25)="24000"
72 CAS$(26)="GARE DU NORD"
73 CAS2$(26)="20000"
74 CAS$(27)="F. St HONORE"
75 CAS2$(27)="26000"
76 CAS$(28)="PLACE DE LE BOURSE"
77 CAS2$(28)="26000"
78 CAS$(29)="Cie DE DISTRIBUTION"
79 CAS2$(29)="15000"
80 CAS$(30)="RUE LAFAYETTE"
81 CAS2$(30)="28000"
82 CAS$(31)="ALLEZ EN PRISON"
83 CAS2$(31)="1.1"
84 CAS$(32)="A. DE BRETEUIL"
85 CAS2$(32)="30000"
86 CAS$(33)="A. FOCH"
87 CAS2$(33)="30000"
88 CAS$(34)="CAISSE DE COMMUNAUTE"
89 CAS2$(34)="1.1"
90 CAS$(35)="4. DES CAPUCINES"
91 CAS2$(35)="32000"
92 CAS$(36)="GARE St LAZARE"
93 CAS2$(36)="20000"
94 CAS$(37)="CHANCE"
95 CAS2$(37)="1.1 "
96 CAS$(38)="A. DES CHAMPS ELYSES"
97 CAS2$(38)="35000"
98 CAS$(39)="TAXE DE LUXE"
99 CAS2$(39)="1.1"
100 CAS$(40)="RUE DE LA PAIX"
101 CAS2$(40)="40000"
103 GOSUB 20000
105 DEFGR$(0)=60,60,24,24,24,60,126,255
110 LOCATE 0,0,0
115 A=8
150 FOR I=16 TO 256 STEP 24
160 BOX (I,A)-(I+24,A+16)
170 NEXT I
172 IF A=168 THEN 180
175 A=168 : GOTO 150
180 B=I6
181 FOR I=8 TO 168 STEP 16
190 BOX (BJ1-48+24,1+161
200 NEXT I
205 IF B=256 THEN 230
210 B=256 : GOTO 181
230 '
240 LOCATE CP1,LP1 : COLOR 1 : ATTRB 0,0 :PRINT GR$(0) : LOCATE CP2,LP2 : COLOR 3: PRINT GR$(0)
250 GOSUB 5000
252 GOSUB 2500
253 IF HA=HA2 AND VA=0 AND PRI=2 THEN PRI=0
254 IF HA=HA2 AND VA=1 AND PRI2=2 THEN PRI2=0
255 IF HA=HA2 AND DOU=0 THEN DOU=1
256 IF DOU=1 THEN DOU=2 : GOTO 260
257 IF DOU=2 AND VA=0 THEN VA=1 : DOU=0:GOTO 260
258 IF DOU=2 AND VA=1 THEN VA=0 : DOU=0:GOTO 260
260 IF VA=0 AND PRI=2 THEN GOTO 280
262 IF VA=1 AND PRI2=2 THEN GOTO 282
266 IF VA=0 THEN VA=1 :LOCATE 0,0:COLOR 1:PRINT"ROUGE": GOTO 310
270 IF VA=1 THEN VA=0 :LOCATE 0,0:COLOR 3 :PRINT"JAUNE": GOTO 1310
280 NPR=NPR+1 :IF NPR=3 THEN GOSUB 25500 :GOTO 255 ELSE VA=1 :GOTO 250
282 NPR2=NPR2+1 :IF NPR2=3 THEN GOSUB 25500:GOTO 255 ELSE VA=0:GOTO 250
308 '
309 ' DEPLACEMENT PIONS
310 '
311 IF LP1=22 THEN 317
312 IF CP1=3 THEN 480
313 IF LP1=2 THEN 580
314 IF CP1=33 THEN 710
317 AV=HA+HA2
330 FOR I=1 TO AV
332 IF CP1<=3 THEN 400
335 COUL=0 : GOSUB 2000
340 CP1=CP1-3
350 COUL=1 : GOSUB 2000
355 NCA=NCA+1
357 FOR Z=1 TO 30 : NEXT Z
370 NEXT I
380 PLAY "DO":SOTO 250
400 DIF=AV-I+1
410 FOR I=1 TO DIF
412 IF LP1<=2 THEN 500
420 COUL=0 : GOSUB 2000
430 LP1=LP1-2
440 COUL=1 : GOSUB 2000
441 NCA=NCA+1
442 FOR Z=1 TO 30 : NEXT Z
460 NEXT I
470 PLAY"DODO":GOTO 250
480 DIF=HA+HA2 : GOTO 410
500 DAF=DIF-I+1
510 FOR I=1 TO DAF
512 IF CP1>=33 THEN 600
520 COUL=0 : GOSUB 2000
530 CP1=CP1+3
540 COUL=1 : GOSUB 2000
542 NCA=NCA+1
545 FOR Z=1 TO 30 : NEXT Z
560 NEXT I
570 PLAY "SISI" :GOTO 250
580 DAF=HA+HA2 : GOTO 510
600 DUF=DAF-I+1
610 FOR I=1 TO DUF
612 IF LP1>=22 THEN 800
620 COUL=0 : GOSUB 2000
630 LP1=LP1+2
640 COUL=I: GOSUB 2000
645 NCA=NCA+1
650 FOR Z=1 TO 30 : NEXT Z
695 NEXT I
700 PLAY"SIDO":GOTO 250
710 DUF=HA+HA2 : GOTO 610
800 AV=DUF-I+1: GOTO330
1310 ' LLI
1311 IF LP2=22 THEN 1317
1312 IF CP2=4 THEN 1480
1313 IF LP2=2 THEN 1580
1314 IF CP2=34 THEN 1710
1317 AV=HA+HA2
1330 FOR I=1 TO AV
1332 IF CP2<=4 THEN 1400
1335 COUL2-0 : GOSUB 2100
1340 CP2=CP2-3
1350 COUL2=3 : GOSUB 2100
1355 NCA2=NCA2+1
1357 FOR Z=1 TO 30 : NEXT Z
1370 NEXT I
1380 PLAY "SI": GOTO 250
1400 DIF=AV-I+1
1410 FOR I=1 TO DIF
1412 IF LP2<=2 THEN 1500
1420 COUL2=0 : GOSUB 2100
1430 LP2=LP2-2
1440 COUL2=3 : GOSUB 2100
1441 NCA2=NCA2+1
1442 FOR Z=1 TO 30 : NEXT Z
1460 NEXT I
1470 PLAY"MI":GOTO 250
1480 DIF=HA+HA2 : GOTO 1410
1500 DAF=DIF-I+1
1510 FOR I=1 TO DAF
1512 IF CP2>=33 THEN 1600
1520 COUL2=0 : GOSUB 2100
1530 CP2=CP2+3
1540 COUL2=3 : GOSUB 2100
1542 NCA2=NCA2+1
1545 FOR Z=1 TO 30 : NEXT Z
1560 NEXT I
1570 PLAY"SO":GOTO 250
1580 DAF=HA+HA2 : GOTO 1510
1600 DUF=DAF-I+1
1610 FOR I=1 TO DUF
1612 IF LP2>=22 THEN 1800
1620 COUL2=0 : GOSUB 2100
1630 LP2=LP2+2
1640 COUL2=3: GOSUB 2100
1645 NCA2=NCA2+1
1650 FOR Z=1 TO 30 : NEXT Z
1695 NEXT I
1700 PLAY "LA" : GOTO 250
1710 DUF=HA+HA2 : GOTO 1610
1800 AV=DUF-I+1:GOTO1330
2000 '
2003 ' PIONS
2005 '
2010 LOCATE CP1,LP1,0: COLOR COUL : ATTRB 0,0 : PRINT GR$(0) : RETURN
2100 LOCATE CP2,LP2,0: COLOR COUL2 : ATTRB 0,0 : PRINT GR$(0): RETURN
2490 '
2494 ' DES
2497 '
2500 HA$=INKEY$:BOX(11,7)-(11,12)"*",6
2510 BOX(19,7)-(25,12)"*",6
2520 LOCATE 11,6 : PRINT"DE No 1": LOCATE 19,6 : PRINT "DE NO 2" : LOCATE 6,15 : COLOR 1 : PRINT "-POUR ARRETER LES DES" : LOCATE 6,16 : PRINT"APPUIE SUR ESPACE"
2530 HA=INT(RND*6)+1 : HA2=INT(RND*6)+1
2540 LOCATE 13,10 : COLOR 4 : PRINT HA : LOCATE 21,10 : PRINT HA2
2550 HA$=INKEY$
2560 IF HA$=" " THEN LOCATE 6,15 : PRINT"                     ":LOCATE 6,16 : PRINT "                     ": RETURN
2570 GOTO 2530
5000 '
5003 ' CASE ADRANDIE
5005 '
5010 BOXF(41,25)-(248,167),-1
5020 BOX(7,4)-(29,11)"*",1
5025 IF VA=1 THEN 5028 ELSE 5048
5028 IF NCA>40 THEN NCA=NCA-40:ARGE=ARGE+20000: GOTO 5028
5030 LOCATE 8,6:COLOR 6:ATTRB0,1:PRINT CAS$(NCA):IF CAS2$(NCA1="1.1" THEN5032
5031 LOCATE 12,8:ATTRB0,0: COLOR 2:PRINT CAS2$(NCA)" F": IF LEFT$(CAS$(NCA),41= "GARE" THEN G1A=2 ELSE G1A=0:COLOR 3 : LOCATE 11,10 : PRINT "FAMILLE ":FA$(NCA): IF LEFT$(CASUNCA),3)="Cie" THEN C3=2 ELSE C3=0
5032 I=NCA:GOSUB 32000: ATTRB 0,0:IF CAS2$(NCA)="1.1" THEN GOSUB 22000 : GOTO 5036
5033 GOSUB 29000:GOSUB55000:1F CAS2$(NCA)="1" THEN 5200: GOTO 5036
5034 IF CAS2CNCA)="2" THEN 5250:GOTO 5036
5035 GOSUB 5100
5036 FOR I=1 TO 500 : NEXT I : BOXF(41,25)-(248,167),-1
5040 RETURN
5048 IF NCA2>40 THEN NCA2=NCA2-40:ARGE2=ARGE2+20000:GOTO 5048
5050 LOCATE 8,6:COLOR 6:ATTRB 0,1:PRINT CAS$(NCA2):IF CAS2$(NCA2)="1.1" THEN 5052
5051 LOCATE 12,8:ATTRB 0,0:COLOR 2:PRINT CAS2$(NCA2)" F":IF LEFT$(CAS$(NCA2),4 )="GARE" THEN 6IA=2ELSE 61A=0:COLOR 3 :LOCATE 11,10 : PRINT "FAMILLE ";FACNCA21 :IF LEFTCCASCNCA21,31="Cie" THEN C3=2 ELSE C3=0
5052 I=NCA2:GOSUB 32000:ATTRB 0,0:IF CAS2$(NCA2)="1.1" THEN GOSUB 22000 : GOTO 5 056
5053 GOSUB 29050:GOSUB 55100:IF CAS2$(NCA2)="2" THEN 5200: GOTO 5056
5054 IF CAS2$(NCA2)="1" THEN 5250: GOTO 5056
5055 GOSUB 5100
5056 FOR I=1 TO 500 : NEXT I : BOXF(41,25)-(248,167),-1
5060 RETURN
5100 '
5103 ' ACHETER TERRAIN
5105 '
5110 BOXF(6,12)-(29,15)" ": LOCATE 7,13 : COLOR 0,2 : PRINT "VEUX-TU ACHETER ?"
5120 D$=INKEY$
5130 IF D$="O" THEN 5150
5140 IF D$="N" THEN COLOR 2,0:GOSUB 6000:RETURN
5145 GOTO 5120
5150 IF VA:1 THEN 5160 ELSE 5180
5160 ARGE=ARGE-VAL(CAS2$(NCA)):CAS2$(NCA)="1":IF G1A=2 THEN GA1=GA1+1
5163 IF C3=2 THEN C31=C31+1
5170 COLOR 2,0:GOSUB 6000:RETURN
5180 ARGE2=ARGE2-VAL(CAS2$(NCA2)):CAS2$(NCA2)="2":IF G1A=2 THEN GA2=GA2+1
5183 IF C3=2 THEN C32=C32+1
5190 COLOR 2,0:GOSUB 6000:RETURN
5200 LOCATE 12,7:PRINT "     ":LOCATE 6,13:COLOR 1:PRINT "CE TERRAIN T' ":LOCATE 6,14:PRINT "APPARTIENT":FOR I=1 TO 850:NEXT I:GOTO 6000
5250 LOCATE 12,7:PRINT "     ":LOCATE 6,13:COLOR 1: PRINT "CE TERRAIN APPARTIENT ": LOCATE 6,14 : PRINT "A TON ADVERSAIRE "
5260 IF VA=1 THEN GOSUB 31000:GOSUB 50000:ARGE=ARGE-TERINCA):ARGE2=ARGE2+TERINCA ) ELSE GOSUB31500:GOSUB 50500:ARGE2=ARGE2-TERINCA21 : ARGE=ARGE+TER(NCA2)
5270 FOR I=1 TO 850:NEXT I:GOTO6000
5990 '
5992 ' VOIR PROPRIETES
5997 '
6000 BOX(48,135)-(248,162),1 :LINE(48,145)-(248,1451,1: LINE (18,17)-(18,191),r,1
6005 IF ARGE<=0 THEN PE$="JAUNE":GOTO 40000
6006 IF ARGE2<=0 THEN PE$="ROUGE":GOTO 40000
6010 LOCATE9,17: COLOR 6 : PRINT "JOUEUR 1":LOCATE 21,17: PRINT "JOUEUR 2":LOCATE 7,19:COLOR 7: PRINT ARGE"F" :LOCATE 19 ,19 : PRINT ARGE2"F"
6030 BOXF(50,25)-(248,133),-I:COLOR 3,0 :LOCATE 8,5 :PRINT"CHOISIS ENTRE" : LOCATE 7,7 : PRINT "(V)oir proprietes": LOCATE 7,8 : PRINT "(C)onstruire" LOCATE 7,9 : PRINT "(H)ypothequer / vendre":LOCATE 7,10:PRINT"(T)ransaction":LOCATE 7,11
6035 PRINT"(A)utre joueur"
6050 A$=INPUT$(1)
6060 IF A$="A" THEN BOXF (41,25)-(248,16 71,-1, : RETURN
6070 IF A$="V" AND VA=1 THEN 6200
6080 IF A$="V" AND VA=0 THEN 6260
6082 IF A$="C" THEN 21000
6085 IF A$="H" THEN 28000
6087 IF A$="T" THEN 30000
6090 GOTO 6050
6200 '
6205 KO=6 : OK=4 : BOXF(41,25)-(248,162),-1
6210 FOR PR=I TO 40
6220 IF CAS2f(PR$="1" THEN GOSUB 6300
6230 NEXT PR
6250 BOXF(41,25)-(248,167),-1 : GOTO 6000
6260 KO=6 : OK=4 : BOXF(41,25)-(248,162)
6265 FOR PR=1 TO 40
6270 IF CAS2$(PR)="2" THEN GOSUB 6300
6280 NEXT PR
6290 BOXF(41,25)-(248,167),-1 : GOTO 6000
6300 '
6305 BOXF(KO,OK)-(KO+22,OK+6)"*".3
6310 LOCATE KO+1,OK+3 : COLOR 1 :PRINT CAS$(PR)
6320 IF OK=4 THEN OK=12 ELSE OK=4
6330 FOR I=1 TO 100 : NEXT I : RETURN
15000 '
15003 ' PRESENTATION
15005 '
15010 CLS : K=45
15030 A=1550 : B=1550
15040 PI=6.7
15050 PSET (160,55),2
15060 FOR T=0 TO 2*PI+0.5 STEP 0.1
15070 X=K*SIN(A*T)
15080 Y=K*COS(B*T)
15090 C=X+160
15100 L=100-Y
15110 LINE -(C,L),2
15120 NEXT T
15130 LOCATE 12,13 : COLOR 1: ATTRB 1,1 : PRINT "MONOPOLY"
15150 ATTRB 0,0:LOCATE 3,22 : PRINT "PAR O.ROBLIN"
15160 FOR I=1 TO 1300 : NEXT I:RETURN
20000 '
20003 ' SUITE TABLEAU
20005 '
20010 DIM TER1(40),TER(40),FA$(40),CHAN$(17),CHAN(17),COMM$(17),COMM(17)
20020 TER1(2)=200
20021 TER1(4)=400
20022 TER1(7)=600
20023 TER1(9)=600
20024 TER1(10)=800
20025 TER1(12)=1000
20026 TER1(14)=1000
20027 TER1(15)=1200
20028 TER1(17)=1400
20030 TER1(19)=1400
20031 TER1(20)=1600
20032 TER1(22)=1800
20033 TER1(24)=1800
20034 TER1(25)=2000
20035 TER1(27)=2200
20036 TER1(28)=2200
20037 TER1(30)=2400
20038 TER1(32)=2600
20039 TER1(33)=2600
20040 TER1(35)=2800
20041 TER1(38)=3500
20042 TER1(40)=5000
20043 FA$(2)="A"
20044 FA$(4)="A"
20045 FA$(7)="B"
20046 FA$(9)="B"
20047 FA$(10)="B"
20048 FA$(12)="C"
20049 FA$(14)="C"
20050 FA$(15)="C"
20051 FA$(17)="D"
20052 FA$(19)="D"
20053 FA$(20)="D"
20054 FA$(22)="E"
20055 FA$(24)="E"
20056 FA$(25)="E"
20057 FA$(27)="F"
20058 FA$(28)="F"
20059 FA$(30)="F"
20060 FA$(32)="G"
20061 FA$(33)="G"
20062 FA$(35)="G"
20063 FA$(38)="H"
20064 FA$(40)="H"
20066 FOR I=1 TO 40
20067 TER(I)=TER1(I)
20068 NEXT I
20100 CHAN$(1)="AVANCER DEPART":CHAN(1)= 1
20102 CHAN$(2)="AVANCER HENRI-MARTIN":CHAN(2)=25
20103 CHAN$(3)="PRIX MOTS CROISES":CHAN(3)=10000
20104 CHAN$(4)="LIBERES PRISON ":CHAN(4)=5000
20105 CHAN$(5)="BANQUE ":CHAN(5)=5000
20106 CHAN$(6)="EXES DE VITESSE":CHAN(6)=-1500
20107 CHAN$(7)="FRAIS DE SCOLARITE":CHAN(7)=-15000
20108 CHAN$(8)="PREPARATIONS":CHAN(8)=25000
20109 CHAN$(9)="AVANCEZ Bv LA VILLETTE":CHAN(9)=12
20110 CHAN$(10)="1VRESSE":CHAN(10)=-2000
20111 CHAN$(11)="REPARATION":CHAN(11)=4000
20112 CHAN$(12)="RECULER 3 CASES":CHAN(12)=3
20113 CHAN$(13)="IMMEUBLE / PRET":CHAN(13)=15000
20114 CHAN$(14)="PRISON ":CHAN(14)=11
20115 CHAN$(15)="AVANCER GARE DE LYON":C HAN(15)=16
20116 CHAN$(16)="AVANCER RUE DE LA PAIX" :CHAN(16)=40
20151 COMM$(1)="CONTRIBUTION":COMM(1)=2000
20152 COMM$(2)="HOPITAU":COMM(2)=-10000
20153 COMM$(3)="ERREUR BANGUE":COMM(3)=2 0000
20154 COMM$(4)="POLICE ASSURANCE":COMM(4)=-5000
20155 COMM$(5)="RETOURNER BELLVILLE":COMM(5)=2
20156 COMM$(6)="INTERET SUR UN EMPRUN":COMM(6)=2500
20157 COMM$(7)="PRISON !":COMM(7)=11
20158 COMM$(8)="ANNIVERSAIRE":COMM(8)=1000
20159 COMM$(9)="HER1TAGE":COMM(9)=10000
20160 COMM$(10)="AMENDE ou CHANCE":COMM(10)=1000
20161 COMM$(11)="LIBERE PRISON":COMM(11)=5000
20162 COMM$(12)="AVANCER DEPART":COMM(12
20163 COMM$(13)="PRIX DE BEAUTE":COMM(13)=1000
20164 COMM$(14)="REVENU ANNUEL":COMM(14) =10000
20165 COMM$(15)="VENTE STOCK":COMM(15)=5 000
20166 COMM$(16)="MEDECIW":COMM(16)=-5000
20300 RETURN
20490 '
20494 ' CONSTRUIRE
20497 '
21000 BOXF(41,25)-(248,167),-1 : N=0 : I =1 : IF VA=1 THEN X1$="1" ELSE X1$="2"
21002 X$="A" : X1=2 : GOSUB 21020
21004 X$="B" : X1=3 : GOSUB 21020
21006 X$="C" : X1=3 : GOSUB 21020
21008 X$="D" : X1=3 : GOSUB 21020
21010 X$="E" : X1=3 : GOSUB 21020
21012 X$="F" : X1=3 : GOSUB 21020
21014 X$="G" : X1=3 : GOSUB 21020
21016 X$="H" : X1=2 : GOSUB 21020
21018 BOXF(41,25)-(248,167),-1:GOTO 6000
21020 FOR G=1 TO 40
21030 IF CAS2$(G)=X1$ AND FA$(G)=X$ THEN N=N+1
21040 IF N=X1 THEN 21100
21050 NEXT G
21060 N=0:BOXF(41,25)-(248,167),-1:RETURN
21100 '
21110 LOCATE 6,10 : COLOR 6 : PRINT "TU PEUX CONSTRUIRE": LOCATE 6,11:PRINT "DANS LA FAMILLE "X$
21112 LOCATE 6,12:PRINT "VEUX-TU ?":R$=INPUT$(1)
21114 IF R$="O" THEN 21200
21120 N=0 : GOTO 21050
21200 '
21210 FOR I=1 TO 40
21220 IF FA$(I)=X$ THEN 21300
21230 NEXT I
21240 BOXF(41,25)-(248,167),-1:GOTO 21050
21300 LOCATE 6,14:COLOR 1: PRINT "VEUX-TU CONSTRUIRE":LOCATE 6,15:PRINT "A "CAS$(I):R$=INPUT$(1):COLOR 2
21310 IF R$="O" THEN 21400
21320 GOTO 21490
21400 LOCATE 6,16:PRINT "COMBIEN DE MAISON ":R$=INPUT$(1)
21402 IF VAL(R$)>5 OR VAL(R$) THEN 214 00
21405 IF I<11 AND I>1 THEN PM=5000
21410 IF I<21 AND I>11 THEN PM=10000
21415 IF I<31 AND I>21 THEN PM=15000
21418 IF I<41 AND I>31 THEN PM=20000
21420 FOR I4=1 TO VAL(R$)
21430 IF VA=1 THEN ARGE=ARGE-PM ELSE ARGE2=ARGE2-PM
21445 IF TER(I)=TER1(I) THEN TER(I)=TER1(I)*5 :GOTO 21480
21450 IF TER(I)=TER1(I)*5 THEN TER(I)=TER1(I)*15:GOTO 21480
21455 IF TER(I)=TER1(I)*5 THEN TER(I)=TER1(I)*45:GOTO 21480
21460 IF TER(I)=TER1(I)*45 THEN TER(I)=TER1(I)*62:GOTO 21480
21465 IF TER(I)=TER1(I)*62 THEN TER(I)=TER1(I)*75 :GOTO 21480
21470 IF TER(I)=TER1(I)*75 THEN TER(I)=TER1(I)*75
21480 NEXT I4
21490 LOCATE 6,16:PRINT" ":LOCATE 6,15 :PRINT " ":GOTO 21230
22000 GOSUB 26000: IF Vel AND NCA=3I OR VA=0 AND NCA2=31 THEN GOTO 25000 ' tt CHANCE / COMMUNAUTE Itt
22002 IF VA=1 THEN 22004 ELSE 22006
22004 IF NCA=8 OR NCA=23 OR NCA=37 THEN C8=INT(RND*16)+1:TE$=CHAN$(C8):TE=CHAN(C8):GOTO 22010
22005 IF NCA=3 OR NCA=18 OR NCA=34 THEN C8=INT(RND*16)+1 :TE$=COMM$(C8):TE=COMM(C8): GOTO 22010 ELSE RETURN
22006 IF NCA2=8 OR NCA2=23 OR NCA2=37 THEN C8=INT(RND*16)+1: TE$=CHAN$(C8):TE=CHAN(C8):GOTO 22010
22001 IF NCA2=3 OR NCA2=18 OR NCA2=34 THEN C8=INT(RND*16)+1 :TE$=COMM$(C8):TE=COMM(C8): GOTO 22010 ELSE RETURN
22010 BOXF (41,25)-(248,167),-1
22020 GOSUB 22500 : FOR I=1 TO 500 : NEXT I
22100 '
22110 TR$=LEFT$(TE$,5)
22120 IF TR$="AVANC" THEN 22130 ELSE 22150
22130 IF VA=1 THEN 22132 ELSE 22140
22132 IF TE<NCA THEN HA=(40-(NCA-TE))/2:HA2=HA: GOTO 311
22134 IF TE>NCA THEN HA=(TE-NCA)/2:HA2=HA:GOTO 311
22135 IF NCA=TE THEN RETURN
22140 IF TE<NCA2 THEN HA=(40-(NCA2-TE))/2:HA2=HA: GOTO 1311
22143 IF TE>NCA2 THEN HA=(TE-NCA2)/2:HA2=HA:GOTO 1311
22145 IF NCA2=TE THEN RETURN
22150 IF TR$="RETOU" THEN 22160 ELSE 22190
22160 IF VA=1 THEN 22170 ELSE 22180
22170 IF TE=NCA THEN RETURN
22174 IF TE<NCA THEN HA=(40-(NCA-TE))/2: HA2=HA :ARGE=ARGE-20000:GOTO 311
22176 IF TE>NCA THEN HA=(TE-NCA)/2:HA2=H A: GOTO 311
22180 IF TE=NCA2 THEN RETURN
22184 IF TE<NCA2 THEN HA=(40-(NCA2-TE))/2:HA2=HA :ARGE2=ARGE2-20000:GOTO 1311
22186 IF TE>NCA2 THEN HA=(TE-NCA2)/2:HA2=HA:GOTO 1311
22190 IF TR$="REPAR" THEN 22200 ELSE 22250
22200 GOSUB 27000 :RETURN
22250 IF TR$="PRISO" THEN 22260 ELSE 22300
22260 GOTO 25000
22300 IF TR$="ANNIV" THEN 22310 ELSE 22330
22310 IF VA=1 THEN ARGE=ARGE+1000 :ARGE2 =ARGE2-1000:RETURN ELSE ARGE2=ARGE2+1000 :ARGE=ARGE-1000: RETURN
22330 IF TR$="AMEND" THEN 22340 ELSE 22360
22340 RIKNPUT$(1)
22345 IF R1$="P" AND VA:1 THEN ARGE=ARGE -1000:GOTO 22355
22348 IF RI$="P" AND VA=O THEN ARGE2=ARGE2-1000:GOTO 22355
22350 IF R1$="C" THEN C8=INT(RND*16)+1:TE$=CHANCC81:TE=CHAN(C81:GOTO 22010
22355 RETURN
22360 IF TR$="RECUL" THEN 22370 ELSE 22400
22370 IF VA:1 THEN 22372 ELSE 22382
22372 IF NCA)3 THEN ARGE=ARGE-20000
22375 HA=37/2:HA2=HA:GOTO 311
22382 IF NCA2)3 THEN ARGE2=ARGE2-20000
22385 HA=37/2:HA2=HA:GOTO 1311
22400 IF VA=1 THEN ARGE=ARGE+TE :RETURN ELSE ARGE2=ARGE2+TE:RETURN
22500 '
22510 ' PRESENTATION CHANCE/COMMU.
22520 '
22530 BOX(7,4)-(29,10)"?",1
22535 LOCATE 8,6 :ATTRB 0,1 : COLOR 3:PRINT"CHANCE/COMMUNAUTE": ATTRB 0,0 : COLOR 2
22540 TR$=LEFTETE$.5)
22550 IF TR$="AVANC" THEN LOCATE 12,7:PRINT "AVANCER A":LOCATE 8,8:PRINT CAS$(TE):RETURN
22560 IF TR$="RETOU" THEN LOCATE 12,7:PRINT "RECULER A":LOCATE 8,8:PRINT CAS$(TE):RETURN
22570 IF TR$="REPAR" THEN LOCATE 11,7:PRINT "REPARATIONS":RETURN
22580 IF TR$="PRISP" THEN LOCATE 11,7:PRINT "PRISON": RETURN
22590 IF TR$="ANNIV" THEN LOCATE 8,7 :PRINT "ANNIVERSAIRE CHAQUE":LOCATE 8,8:PRINT"DOIT VOUS DONNER":LOCATE 8,9 :PRINT "1000 F": RETURN
22600 IF TR$="AMENDE" THEN LOCATE 8,7:PRINT "(P)AYEZ 1000 OU TIREZ":LOCATE 8,8:PRINT"UNE (C)ARTE CHANCE":LOCATE 8,9:PRINT "tapez P ou C":RETURN
22610 IF TR$="RECUL" THEN LOCATE 8,7:PRINT "RECULER DE 3 CASES":RETURN
22620 IF TE>0 THEN LOCATE 8,7:PRINT TE$:LOCATE 8,8:PRINT "RECEVEZ ";TE
22630 IF TE<0 THEN LOCATE 8,7:PRINT TE$:LOCATE 8,8:PRINT "PAYEZ ";ABS(TE)
22640 RETURN
25000 '
25003 ' PRISON
25005 '
25010 IF VA=1 THEN 25020 ELSE 25050
25020 NPR=0 : IF NCA)11 THEN HA=(40-(NCe-11))/2:HA2=HA:ARGE=ARGE-20000:PRI=2:GOTO 311
25030 IF NCA<11 THEN HA=111-NCA1/2 :HA2=HA:PRI=2:GOTO 311
25050 NPR2=0: IF NCA2)11 THEN HA=(40-(NCA2-11)1/2:HA2=HA:ARGE2=ARGE2-20000:PRI2=2:GOTO 1311
25060 IF NCA2<11 THEN HA=(11-NCA2)/2:HA2=HA:PRI2=2:GOTO 1311
25100 PLAY"DOSIRE": END
25500 IF VA=0 THEN ARGE=ARGE-5000:PRI=0: RETURN
25510 IF VA=1 THEN ARGE2=ARGE2-5000:PRI2=0: RETURN
26000 '
26003 ' PARC GRATUIT
26005 '
26010 IF VA=1 AND NCA=39 THEN 26050
26020 IF VA=0 AND NCA2=39 THEN 26100
26025 IF VA=1 AND NCA=5 THEN 26150
26030 IF VA=0 AND NCA2=5 THEN 26200
26035 IF VA=1 AND NCA=21 THEN 26250
26040 IF VA=0 AND NCA2=21 THEN 26300 ELSE RETURN
26050 ARGE=ARGE-10000:PG=PG+10000:RETURN
26100 ARGE2=ARGE2-10000:PG=PG+10000:RETURN
26150 ARGE=ARGE-20000:PG=PG+20000:RETURN
26200 ARGE2=ARGE2-20000:PG=PG+20000:RETURN
26250 ARGE=ARGE+PG:PG=0:RETURN
26300 ARGE2=ARGE2+PG:PG=0:RETURN
27000 '
27003 ' REPARATIONS
27005 '
27010 LOCATE 6,11 :COLOR 1:ATTRB 0,0 :PRINT "OPPERATION EN COURS"
27015 IF VA=1 THEN J$="1" ELSE J$="2"
27020 FOR I=1 TO 40
27030 IF CAS2$(I)=J$ AND TER(I)<)TER1(I) THEN 27200
27040 NEXT I
27050 TRE=NREtTE
27060 IF VA=1 THEN ARGE=ARGE-TRE ELSE ARGE2=ARGE2-TRE
27070 RETURN
27200 IF TER(I)=TER1(I)*5 THEN NRE=NRE+1
27210 IF TER(I)=TER1(I)*15 THEN NRE=NRE+2
27220 IF TER(I)=TER1(I)*45 THEN NRE=NRE+3
27230 IF TER(I)=TER1(I)*62.5 THEN NRE=NRE+4
27240 IF TER(I)=TER1(I)*75 THEN NRE=NRE+5
27250 GOTO 27040 
28000 '
28003 ' HYPOTHEQUES 
28005 '
28010 BOXF(41,25)-(248,167),-1 
28020 LOCATE 6,6:COLOR 1:PRINT "VEUX-TU:":LOCATE 6,7:PRINT "(H)YPOTHEQUER ":LOCATE 6,8:PRINT "(V)ENDRE DES MAISONS":R$=INPUTS(1):LOCATE 6,9:PRINT R$ 
28030 IF Rt="H" THEN 28100
28040 IF R$="V" THEN 28500 ELSE 28020
28100 LOCATE 7,11 : PRINT "DANS QUELLE FAMILLE ?":R$=INPUT$(1)
28110 IF ASC(U)<65 OR ASC(R$)>72 THEN 28100 
28115 IF VA=1 THEN DQ$="1" ELSE DQ$="2"
28120 FOR I=1 TO 40 
28130 IF FA$(I)=R$ AND CAS2$(I)=DQ$ AND TER(I)=TER1(I) THEN 28150
28140 NEXT I
28145 GOTO 6000
28150 BOXF(41,25)-(248,167),-1
28160 LOCATE 6,10 :COLOR 3: PRINT "VEUX-TU HYPOTHEQUER":LOCATE 6,11:PRINT CAS$(I):S$=INPUT$(1)
28170 IF S$="O" THEN 28180 ELSE 28140
28180 IF R$="A" OR R$="B" THEN FS=4000
28182 IF R$="C" OR R$="D" THEN FS=8000
28184 IF R$="E" OR R$="F" THEN FS=12000
28186 IF R$="G" OR R$="H" THEN FS=18000
28200 IF VA:1 THEN ARGE=ARGE+FS:CAS2$(I)="3" ELSE ARGE2=ARGE2+FS:CAS2CI)="4"
28210 GOTO 28140
28500 LOACTE 7,11:PRINT "DANS QUELLE FAMILLE ?":R$=INPUT$(1)
28510 IF ASC(R$)<65 OR ASC(R$))72 THEN 28500
28515 IF VA=1 THEN DQ$="1" ELSE 1108="2" 
28520 FOR I=1 TO 40
28530 IF FA$(I)=R$ AND TERMOTER1(I) AND CAS2$(I)=DQ$ THEN 28550
28540 NEXT I 
28545 RETURN
28550 BOXF(41,25)-(248,167),-1
28560 LOCATE 6,10 :COLOR 3: PRINT "VEUX- TU VENDRE A":LOCATE 6,11:PRINT CAS$(I):R$=INPUT$(1)
28570 IF R$="0" THEN 28600 ELSE 28540
28600 LOCATE 6,13 : INPUT "COMBIEN DE MAISONS ?";R$ 
28610 IF I>31 THEN PIT=VAL(R$)*20:GOTO 28700 
28612 IF I>21 THEN PIT=VAL(RM15:GOTO 28700 
28614 IF I>11 THEN PIT=VAL(R$)*10:GOTO 28700
28616 IF I>1 THEN PIT=VAL(R$)*5:GOTO 28700
28700 IF VA=1 THEN ARGE=ARGE+PIT ELSE ARGE2=ARGE2+PIT
28710 FOR J=1 TO VAL(R$) 
28712 IF TER(I)=TER1(I)*5 THEN TER(I)=TER1(I) 
28714 IF TER(I)=TER1(I)*15 THEN TER(I)=TER1(I)*5
28716 IF TER(I)=TER1(I)*45 THEN TER(I)=TER1(I)*15
28718 IF TER(I)=TER1(I)*62.5 THEN TER(I)=TER1(I)*45
28720 IF TER(I)=TER1(I)*75 THEN TER(I)=TER1(I)*68.5
28730 NEXT J 
28750 GOTO 28540
29000 '
29005 IF CAS2$(NCA)="3" THEN 29010 ELSE RETURN
29010 LOCATE 12,7:PRINT "      ":LOCATE 6,13:COLOR 1:PRINT "VEUX TU RACHETER LE ":LOCATE 6,14:PRINT"TERRAIN ? (O/N)":R$=INPUT$(1)
29015 IF R$="N"THEN 5036 
29017 IF Rt="O" THEN 29020 ELSE 29010
29020 ECA=NCA:GOSUB 29200
29025 ARGE=ARGE-FS:CAS2$(NCA)="1":GOTO 5036
29050 IF CAS2$(NCA2)="4" THEN 29060 ELSE RETURN
29060 LOCATE 12,7:PRINT "    ":LOCATE 6,13:COLOR 1:PRINT "VEUX TU RACHETER LE":LOCATE 6,14:PRINT"TERRAIN ? (O/N)":R$=INPUT$(1)
29065 IF Rt="N"THEN 5056
29067 IF R$="0" THEN 29080 ELSE 29060
29080 ECA=NCA2:GOSUB 29200
29085 ARGE2=ARGE2-FS:CAS2$(NCA2)="2":GOTO 5056
29200 IF FA$(ECA)="A" OR FA$(NCA)="B" THEN FS=4400
29202 IF FA$(ECA)="C" OR FA$(NCA)="D" THEN FS=8800
29204 IF FA$(ECA)="E" OR FA$(NCA)="F" THEN FS=13200
29205 IF FAt(ECA)="G" OR FA$(NCA)="H" THEN FS=19800
29210 RETURN
30000 '
30002 ' TRANSACTION
30005 '  
30010 BOXF(41,25)-(248,167),-1
30020 LOCATE6,7:COLOR 1:PRINT "QUEL JOUEUR VEUT VENDRE?";:R$=INPUT$(1):PRINT R$
30030 IF R$<>"1" AND R$<>"2" THEN 30020
30040 LOCATE 6,11:PRINT"   ":LOCATE6,12:PRINT" ":LOCATE 6,9:COLOR 2 :PRINT"QUEL TERRAIN ":LOCATE 6,10:INPUT RN$
30050 FOR I=1 TO 40
30060 IF CAS$(I)=RN$ THEN 30100
30070 NEXT I
30080 LOCATE 9,11 :PRINT "ERREUR ":FOR E=1 TO 1000:NEXT E:GOTO30040
30100 IF CAS2$(I)<>R$ THEN LOCATE 6,11:PRINT"CE TERRAIN N'APPARTIENT":LOCATE 6,12:PRINT"PAS AU JOUEUR "R$:FORE=1 TO 700:NEXT E:GOTO 30040
30105 IF TER(I)<>TERI(I) THEN LOCATE 6,11:PRINT"TERRAIN CONSTRUIT":FOR E=1 TO 700 :NEXT E: GOTO 30040
30110 LOCATE 6,12:COLOR 6:INPUT "A QUEL PRIX ";PT 
30120 IF R$="1" THEN ARGE=ARGE+PT:ARGE2=ARGE2-PT:CAS2$(I)="2" 
30130 IF R$="2" THEN ARGE2=ARGE2+PT:ARGE=ARGE-PT:CAS2$(I)="1"
30140 GOTO 6000
31000 '
31003 ' GARES
31005 '
31010 IF NCA=6 OR NCA=16 OR NCA=26 OR NCA=36 THEN 31020 ELSE RETURN
31020 TER(NCA)=2^(GA2-1)*2500:RETURN
31500 IF NCA2=6 OR NCA2=16 OR NCA2=26 OR NCA2=36 THEN 31520 ELSE RETURN
31520 TER(NCA2)=2^(GA1-1)*2500:RETURN
32000 '
32010 IF TER(I)=TER1(I) THEN RETURN
32020 IF TER(I)=TER1(I)*5 THEN SF=1
32030 IF TER(I)=TER1(I)*15 THEN SF=2
32040 IF TER(I)=TER1(I)*62.5 THEN SF=4
32050 IF TER(I)=TER1(I)*75 THEN SF=5
32060 LOCATE 12,8:COLOR 4:PRINT SF" MAISON(S)":RETURN
40000 '
40003 ' PERDU
40005 ' 
40010 CLS :ATTRB 0,1:LOCATE 5,11:COLOR2:PRINT "LE JOUEUR "PEI" A GAGNE"
40020 PLAY"A3L15O4DOREFADOFASIDOREMIDOREFASIDORELAFAMIMIDO":END
50000 '
50003 ' Cie
50005 '
50006 IF NCA=13 OR NCA=29 THEN 50010 ELSE RETURN
50010 IF C32=2 THEN TER(NCA)=1000*(HA+HA2):RETURN
50020 IF C32=1 THEN TER(NCA)=400*(HA+HA2):RETURN
50500 IF NCA2=29 OR NCA2=13 THEN 50510 ELSE RETURN
50510 IF C31=2 THEN TER(NCA2)=1000*(HA+HA2):RETURN
50520 IF C31=1 THEN TER(NCA2)=400*(HA+HA2):RETURN 
55000 IF CAS2$(NCA)="1" AND TER(NCA)=TER1(NCA) OR CAS2$(NCA)="2" AND TER(NCA)=TER1(NCA) THEN LOCATE 12,8:PRINT"   "
55010 RETURN
55100 IF CAS2ENCA2)="2" AND TER(NCA2)=TER1(NCA2) OR CAS2$(NCA2)="1" AND TER(NCA2)=TER1(NCA2) THEN LOCATE 12,8:PRINT"   "
55110 RETURN 
Markerror
Messages : 2121
Inscription : 31 oct. 2011 19:21
Localisation : Orléans
Contact :

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par Markerror »

Bon, ça a pris beaucoup plus de temps que prévu pour corriger mes erreurs de saisie et comprendre comment fonctionne ce programme (finalement, le shoot'em'up est probablement moins galère à traiter :-) ).

Vous trouverez sur le lien suivant Amsfile.

http://tj.gpa.free.fr/temp/amsfile.zip

Je jette un oeil sur le troisième soft CPC, S.B.A. pour voir ce que c'est...
Xavier_AL

Re: Les Cahiers du Logiciel Micro V.O (1985-1986)

Message par Xavier_AL »

Salut à tous,

Merci Markerror pour ce travail, toujours de qualité.

J'ai demandé à Kukulcan (CPC-Power.com), l'autorisation de diffuser ses programmes... et j'en profite pour te la demander aussi!
:D

De mon côté, j'avance... mais, comme rien n'est simple chez moi, je peux annoncer fièrement que ...
"Envahisseur" n'est toujours pas prêt !!!

Mais, l'utilitaire' pour la saisie... OUI !
Capture.JPG
Capture.JPG (76.05 Kio) Consulté 4360 fois
C'est clairement 4 heures de travail pour en gagner une... mais, ça donne l'impression que la saisie sera plus simple...
:D

J'attends l'accord de Bruno pour mettre la page à jour !
Le travail de Bruno est remarquable, et chaque logiciel est testé et corrigé par ses soins...
Enfin, avec monsieur Markerror, il faut dire qu'il n'y a pas grand chose à corriger.
Répondre