APPLICATIONSDIVERS ★ ROUTARD (c) MICHEL LA ROSA ★

Routard: Itinéraires en France|CPC Infos)Applications Divers

Vous allez partir en vacances sur les routes de France métropolitaine? ROUTARD va vous aider à choisir votre Itinéraire, simplifier les calculs de distance sur la carte. Et pourquoi ne pas en faire profiter vos amis?

Routard a retenu 80 villes en fonction de leur taille, de leur intérêt touristique, ou comme étapes possibles. Affichez votre point de départ et votre destination, et il vous proposera un trajet, avec les principales étapes, les distances entre elles et la distance totale à parcourir. Il vous simplifie même l'affichage, en vous Interrompant dès qu'il est sûr d'avoir compris le nom de la ville,... ou dès qu'il est certain que vous vous êtes trompél Et vous verrez comment II s'y prend pour les deux CHALON(S), ou pour les noms de ville commençant par SAINT. Ceci dit, l'itinéraire qu'il trace n'est qu'une proposition: à vous de trouver, si vous le souhaitez, un trajet plus court (sans prendre l'autoroute, par exemple) ou plus sinueux. Pour cela, indiquez l'étape par laquelle vous voulez passer au lieu de la destination; une fois le trajet affiché, tapez S pour tracer la suite de votre itinéraire. C'est ça le tourisme à la carte!

Si vous êtes un peu effrayé par la masse des DATA des lignes 2710-4300, commencez par ne taper pour chaque ligne que DATA suivi de 39 virgules; vous compléterez au fur et à mesure de vos besoins. S'il lui manque des données, votre CPC vous le fera savoir! Vous avez en effet certainement compris qu'il a besoin de 80 nombres-codes (deux lignes de 40) pour chacune des 80 villes de sa liste, répartis dans une sorte de tableau à double entrée: chaque code représente soit la distance qui sépare votre point de départ de votre destination, soit l'étape suivante sur le trajet correspondant. Quant à la liste impressionnante de RESTORE (lignes 1210-2000), elle permet d'accélérer le programme, en évitant d'avoir à lire l'intégralité des codes précédant celui recherché.

Si votre ville ne figure pas dans la liste, pourquoi ne pas l'y rajouter? Il suffit qu'elle soit à plus de 31 km (impératifl) de la ville la plus proche de la liste. Voici comment vous allez procéder:

Repérage sur la carte

Déterminez l'emplacement de la ville sur la carte: vous repérerez son abscisse et son ordonnée en vous aidant de celles des villes de la liste (lignes 2480-2670) situées sur la même verticale, et de celles situées sur la même horizontale sur une carte de France. Complétez alors ainsi la ligne 190 de DESSFRAN.BAS: 190 NEXT I: PLOT (abscisse), (ordonnée), 3: GRAPHICS PEN 1
Vérifiez le résultat, corrigez au besoin, sauvez votre programme modifié et recréez ROUTES.SCR. Puis complétez la ligne 2670 de ROUTARD ainsi: 2670 DATA VANNES,68,244, VERDUN, 306, 3 1 4,(nom-ville),(abscisse),(ordon-ée),RETOUR,0,0

Introduction d'une 81ème ville dans le programme

lignes 170 et 310(...):FOR 1=1 TO 82:(...) 80 IF D1110 ON P GOTO 1120,1130, 1 140,1150,1160,1170,1 180, 1190,1200
1200 ON Q GOTO 2000,2005 2005 RESTORE 4310:RETURN 2190 INPUT #2,"ï",NV$:LN= LEN(NVS): RETURN
Supprimez les lignes 2200-2380 qui offrent plus de sécurité dans la saisie des noms de villes, mais qui risquent de ne pas accepter un nom nouveau.

Pour que l'Itinéraire puisse partir de votre ville, ajoutez deux lignes de DATA (4310-4320) en fin de programme, pour loger les 80 codes correspondant aux 80 villes déjà sur la liste, et ajoutez le code 0 (distance de votre ville à elle-même!) à la ligne 4320. Comment calculer chaque code? C'est facile!

S'il n'y a pas de ville intermédiaire, notez simplement la distance entre les deux villes, augmentée de 50 (votre CPC lira tous les nombres inférieurs à 82 comme des codes renvoyant à la ville correspondante sur la liste, et les autres comme des distances après leur avoir oté 50).

Sinon, notez le numéro de code de la ville-étape la plus proche (1-80) par où passer pour commencer le trajet. Par exemple, c'est AUCH que vous voulez rajouter. Tapez alors:
4310 DATA 122,1,1,1,etc..
En effet AGEN-AUCH=72 km, donc le code no 1=72+50=122. Ensuite c'est par AGEN qu'il faut passer pour aller à ALENCON (code no 2=1), à AMIENS (code no 3=1) et à ANGERS (code no 4=1), etc..

Pour que l'itinéraire puisse arriver à votre ville,  il faut procéder de même en fin des lignes de DATA 2720,2740, 2760,2780,etc... Toujours dans l'exemple de AUCH, rajoutez avant le nom de la ville précédé du signe ' :
122 (72+50) en fin de ligne 2720,
38 (code de LE MANS, 1ère étape d'ALENCON à AUCH) en fin de 2740,
59 (code de PARIS, 1ère étape d'AMIENS et AUCH) en fin de 2760, etc...

Enfin pour que l'Itinéraire puisse passer par votre ville,  assurez-vous d'abord que vous en aurez besoin, car c'est un peu plus compliqué. Sinon ne soyez pas surpris que votre CPC traverse votre ville sans s'y arrêter. Reprenons notre bonne ville d'AUCH. Faisons l'Inventaire des villes reliées directement par route: AGEN déjà nommée, BORDEAUX, CAHORS, MONT DE MARSAN, PAU, RODEZ et TOULOUSE. Le seul itinéraire traversant AUCH est la route MONT DE MARSAN-TOULOUSE. Toutes les autres routes s'arrêtent à AUCH.

Il faut donc remplacer dans les lignes 3630-3640 tous les codes 75 (TOULOUSE) par le code 81 (AUCH). De même en sens inverse. Il faut remplacer dans les lignes 4190-4200 tous les codes 67 (RODEZ) par le code 81 (AUCH).

Ainsi ferez pour tous les Itinéraires passant par votre ville. Après quoi, tracez votre route, en voiture, et bonnes vacances! Vous les avez bien méritées! Le premier listing DESSFRAN.BAS est destiné créer la carte de France ROUTES.SCR. Si vous travaillez sur cassette. ROUTES.SCR devra trouver place après le listing ROUTARD.BAS.

CPCINFOS n°51

★ EDITEUR: CPCINFOS
★ ANNÉE: 1993
★ CONFIG: 64K (BASIC 1.1) + AMSDOS
★ LANGAGE:
★ LICENCE: LISTING
★ AUTEUR: Michel LA ROSA

★ AMSTRAD CPC ★ DOWNLOAD ★

Type-in/Listing:
» Routard-Itineraires  en  France    (CPCINFOS)    FRENCHDATE: 2019-03-02
DL: 48 fois
TYPE: ZIP
SIZE: 51Ko
NOTE: Uploaded by Nicholas CAMPBELL ; 40 Cyls
.HFE: OUI

★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser...

Lien(s):
» Applications » Character Set Designer
» Applications » Rsx - X - Basic - Graphikerweiterung (CPC Amstrad International)
» Applications » Hardcopy et Fenetre
» Applications » Biorythm Graphing and Prediction
» Applications » Teldir (Amstrad Computer User)
» Applications » 90 colunas no ecrã (Amstrad Magazine)

QUE DIT LA LOI FRANÇAISE:

L'alinéa 8 de l'article L122-5 du Code de la propriété intellectuelle explique que « Lorsque l'œuvre a été divulguée, l'auteur ne peut interdire la reproduction d'une œuvre et sa représentation effectuées à des fins de conservation ou destinées à préserver les conditions de sa consultation à des fins de recherche ou détudes privées par des particuliers, dans les locaux de l'établissement et sur des terminaux dédiés par des bibliothèques accessibles au public, par des musées ou par des services d'archives, sous réserve que ceux-ci ne recherchent aucun avantage économique ou commercial ». Pas de problème donc pour nous!

CPCrulez[Content Management System] v8.7-desktop/cache
Page créée en 927 millisecondes et consultée 944 fois

L'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent  du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko.