Cette catégorie traite de développements récents destinés à nos vieilles machines, applications, jeux ou démos... Amis programmeurs, c'est ici que vous pourrez enfin devenir célèbres!
J'ai récupéré un exemplaire du HS 65 de "L'ordinateur individuel" et me demande sur quel micro le programme "Louisiane" a été programmé.
La revue indique que les listings Basic sont générique, mais c'est faux. Le modèle de micro utilisé pour la programmation de chaque listing n'est pas toujours indiqué et c'est le cas pour ce programme.
Sur Louisiane, les caractéristiques propres du Basic sont les suivantes :
- Fonte de caractères avec majuscules et minuscules (cela dégage d'office pas mal de "vieux" micros 8 bits)
- la commande PRINT accepte la syntaxe suivante : PRINT @<valeur>
- commande SET(X,Y) pour le placement d'un pixel ?
- le listing POKE des données entre 15360 et 16323
- le listing commence par un CLEAR 150 (réservation d'espace pour les variables de type chaîne ?)
La machine aurait une touche <NEW LINE> sur son clavier.
Un scan du listing est disponible ici (page 63 et suivantes).
Je n'ai pas trouvé la source du listing sur le net et ne sait pas sur quelle machine il a été créé. L'idée serait de retrouver cette information pour voir à quoi correspondent ces fameuses lignes de datas. Il y a sur cpc-power une adaptation CPC publiée dans une revue (sans citer évidemment la source OI... ), mais elle dégage opportunément ce bout de code.
C'est un programme basic pour TRS 80 Model 1,
tapé certainement sur un vidéogenie EG 3003 qui a une touche NEW Line a la place de la touche ENTER.
Les pokes tape dans la mémoire vidéo de l'écran.
Bon, je ne dois pas être bien doué car je n'arrive pas à trouver un émulateur capable de "traiter" le listing.
J'ai choisi TRS-80GP en mode TRS-80 modèle 1. Le hic, c'est que l'émulateur boote sur un disquette, et ne donne pas la main au Basic quand on la retire. Il faut charger une ROM ?
En modèle III, j'arrive à avoir un prompt Basic en lançant l'émulateur avec l'option -l1, mais le basic ne semble pas reconnaître certaines commandes (genre CLEAR).
[Edit] En lançant l'émulateur en modèle 1 avec la commande "trs80gp -m1 -dx", c'est mieux mais les poke en mémoire vidéo ne donnent que des @.
[/Edit]
Voici le bout de listing qui m'intéresse (potentiellement buggué) :
10 REM 'PROGRAMME LOUISIANE'
20 CLEAR 150
30 GOSUB 4070:'TITRE
40 END
4070 REM 'TITRE'
4080 CLS
4090 FOR Y0=11 TO 0 STEP-1:SET(0,Y0):NEXT
4100 FOR X0=0 TO 127:SET(X0,0):NEXT
4110 FOR Y0=0 TO 47:SET(127,Y0):NEXT
4120 FOR X0=127 TO 36 STEP-1:SET(X0,47):NEXT
4130 FOR NB=15360 TO 16383
4160 POKE NB,A
4170 NEXT NB
4180 DATA 12,176,140,131,131,131,140,144,45
4190 DATA 11,158,129,51
4200 DATA 10,154,26,136,26
4210 DATA 9,154,9,176,140,131,131,141,144,2,160,183,134
4220 DATA 128,160,134,2,160,134,3,152,165,22
4230 DATA 128,152,131,131,131,131,140,176,150,4,139,131,137
4240 DATA 144,160,134,130,140,176,176,184,177,140,134,153
4250 DATA 129,128,152,151,2,184,133,2,169,134,128,139,148
4260 DATA 2,140,140,140,140,140,140,13
4270 DATA 130,164,176,176,176,140,131,128,130,131,140,176
4280 DATA 176,176,176,140,129,138,180,176,176,140,129,3
4290 DATA 170,176,176,134,166,176,176,134,138,176,176
4300 DATA 140,177,176,176,152,133,21
4310 DATA 31,136,32
4320 DATA 128,137,191,134,10,137,181,134,13,152,129,3,176
4330 DATA 140,131,131,141,144,3,152,134,131,131,172,152
4340 DATA 131,131,137,148,128,176,140,131,131,131,172,3
4350 DATA 2,191,5,160,144,5,191,3,140,140,140,140,140,140
4360 DATA 3,160,158,3,160,134,3,160,152,129,128,160,134
4370 DATA 3,160,134,3,152,161,150,141,176,176,152,142
4380 DATA 129,3
4390 DATA 2,191,3,160,140,131,131,140,144,3,191,9,176,176
4400 DATA 140,129,141,176,176,140,139,180,176,176,140
4410 DATA 129,173,176,140,129,3,152,129,3,166,176,142
4420 DATA 176,176,176,132,6
4430 DATA 2,191,2,176,148,160,190,189,144,170
4440 DATA 176,2,191,48
4500 DATA 140,140,140,140,140,144,170,46
4510 DATA 149,150,178,179,179,179,179,179,179,179,179
4520 DATA 179,179,179,179,177,169,170,46
4530 DATA 130,140,140,140,140,140,140,140,140,140,140
4540 DATA 140,140,140,140,140,140,129,46
4550 PRINT@ 856,"Pressez <NEW LINE> pour commencer ?";
4560 FOR TPS=1 TO 150:NEXT
4570 PRINT@ 856," ";
4580 FOR TPS=1 TO 150:NEXT
4590 IF INKEY$<>"" THEN RETURN ELSE 4550
4600 '------------------------------------------------
4610 REM 'MESSAGES DIVERS'
4620 PRINT:PRINT "Pressez <NEW LINE> pour continuer ?"
4630 IF INKEY$<>"" THEN RETURN ELSE 4630
C'est exactement ça. Maintenant je vois bien des graphismes.
Manque de bol, le listing est incomplet dans la revue (il manque les lignes 4450 à 4490). J'ai rapidement cherché un correctif dans les OI suivant la publication du HS 65 sans succès pour l'instant .
En voyant le dessin, même incomplet, il doit être possible de recréer les lignes manquantes, dans les DATAS les chiffres inférieurs à 64 correspondent à des espaces, les autres à des caractères graphiques.
Voir ici la liste des caractères graphiques : https://www.trs-80.com/wordpress/zaps-p ... /graphics/
[Edit]
Je viens d'essayer la partie du programme qui te pose problème, et effectivement, il en manque un morceau et je ne vois pas à quoi peut bien ressembler le dessin terminé.
A priori, cela doit représenter le bas d'une maison de maître typique du sud des Etats-unis. je vais voir ce que je peux faire même si ça risque de ne pas être merveilleux . Le gars s'était pas mal débrouillé avec le titre utilisant une fonte cursive.
Je dirais plutôt pompage qu'adaptation, car le listing est à peu de choses près identique à la version publiée dans l'OI (et évidemment, ce n'est pas le même "auteur"). La version CPC n'a pas de page de présentation.
Le programme est en théorie identique au listing, avec ses défauts. Les quelques lignes manquantes dans l'impression du programme dans l'Ordinateur Individuel ont été rajoutées sans que je ne sois sûr qu'elles soient identiques à ce que l'auteur avait fait. Mais au moins, le programme est maintenant fonctionnel.
Bonne gestion d'une plantation de coton (ça ne l'est pas vraiment ).
Merci bien pour le travail accompli
Je vais essayer ça.
Comme émulateur de TRS80, j'utilise TRS32 de Matthew Reed,
mais je préfère utiliser un de mes quatre TRS80 (Ma vie n'est pas fichue)
.
.
(Ma vie n'est pas fichue) 
