DR х-- — Мо, 15 Burii | -Ма d. зі [55 ;

1. SINCLAIR NEWS 2 EN ТЕ E goe | 3. РРО

сл om

Rédacteur: Réal Gagnon, 4870 Henri-dulien Montréal Р.0, H2T JE (814) 845-5494 Collaboration: Yves Gagnon, J.C. Touzin, Simon Rioux Ce bulletin est congu avec l'aide du traitement de texte QUILL (PSION), de TASPRINT (TASMAN SOFTWARE) et de ОКАН (PSION). L'impression se fait sur une imprimante STAR NX-10.

Nous voici déjà rendu au quinzième numéro de SIN, Vous allez peut-être remarquer que le BL occupe une place de plus en plus importante, ceci grace aux utilisateurs qui m'envoie des articles pour publication. Pour le 2068/SPECTRUM, Simon Rioux m'informe qu'il va écrire régulièrement 2 rubriques appelées: SPECTROCRAMME pour les nouveaux logiciels pour le SPECTRUM/2068 et ZONE INTERDITE qui va vous dévoiler les secrets nécessaires pour réaliser des scores fabuleux. f

Egalement Simon ma fait parvenir des en-têtes pour ses MICRÜ-MUSIQUE. Mais malheureusement, trop tard. J'ai pensé vous en faire part quand même quand ils sont três biens!

Et enfin, voici 2 images digitalisées réalisées sur le SPECTRUM. Pas mal, n'est-ce pas?

2... BHRISTIE...

LOGICIELS OL

MICRODEAL de sortir un jeu qui fera plaisir a bien des He, Il s'agit ici d'une version de BOULDER DASH. Le logiciel s'appelle STONE RAIDER II. Il y a 32 caves differentes a visiter. Cout: £7.95

I] est a noter que MICRODEAL offre une panoplie complete de jeux pour le OL. 1- THE KING £7.50 clone de DONKEY KONG, plusieurs ecrans 2- AQUANAUT 471 £14 aventure graphique dans un sous-marin 3- LANDS OF HAVOC £10.00 arcade-aventure avec 2000 ecrans 4- CUTHBERT IN SPACE £7.50 arcade, plusieurs ecrans 5- CRAZY PAINTER #5 arcade 8- HOPPER #5 clone de FROGGER

MICROÜDEAL Box 68, St Austell, Cornwall Р125 4YB, ENGLAND SELLASOFT offre un logiciel de jeux appelle TANK BUSTER, simulation d'attaque avec char d'assaut, Cout: £14.95

SELLASOFT 23 LOVERIDGE AVENUE, KEMPSTON, BEDFORD, MK42 ВЕ, ENGLAND

LOGICIELS SPECTRUM

Km

Simon Rioux m'envoie un

disponible chez son vendeur fà noter que tous les prix sont inclure £0.75 par cassette pour

e liste des logiciels pour le SPECTRUM vori, CUT PRICE SOFTWARE. П est à

en LIVRES STERLING et il faut

également spécifier “for the SPECTRUM".

Dragon's Lair 5,75 Heavy on the Magick 5,95 Superbowl 2,95 1942 5.50 Jack the Ripper 5.30 шул 5,90 Bomb jack 5,50 Revolution 5,50 Lightforce 8,75 Price of Magick 7.25 Infiltrator 7.23 Konani's Golf 5,50 The Planets 5,05

Sold a million 2 5.95 Ghost k Gobblins 5.50

Mag Max 5,50 Sam Fox Strip Poker 5.50 Movie 5,50

Vier Аге Kung Fu 5.50 Crah Smash's 2 5,95

Batman 5.50 Durrell's Big 4 5.93 Uchi Marta 6. 30 Jewels Darkness 11.95 Highlander 5.50 TT Racer 1.25 Laser Basic 11.00 Stainless Steel 5,50 Pyracuse 5. 98 Scooby Doo 5,80 Paperboy 3,90 Dark Sceptre 10,95 Mikie 5,50 Ninja Master 1.90

Big Cave Adventure 5.50

balvan 5,50 Elite 10,95 Enpire 5,08 Nexus 6,95 Great Escape 5.40 Equinox 6,95

Sold aillion 3 5.25 Laser Conpiler 5,95

Its a KO 5.90 Uridium 5.50 Trap door 5,50 Hardball 5.30 Dynanite Dan 2 5.50 Bobby Bearing 5.30 Theatre Europe 7.95 Асе 7.25 Graph Adv Creator 18.00 Green Beret 5.50 . Nightmare rally 5,50 Miami Vice 5,50 Cauldron 2 5.50 Тһе Boggit 5.50 Fist 2 5,50 Knight Rider 5,50 Dan Dare 5,25 Heartland 6,93 WAR 5,50 Laser Genius 10,95 Parallax 5.50

Best of Beyond 7.25 Trivial Pursuit 11.95 Space Harrier 5.50 Konani Tennis 5,50

--5 £i donne environ $2.12 CAN.

б.

les frais d'envoi.

11 faut

CUT PRICE SOFTWARE

(DEPT 6)

Unit 6

STORT HOUSE, RIVERWAY

HARLOW, ESSEX ENGLAND

CW20 2DW

4

INTRODUCTION

Nous allons entreprendre une série sur la programmation en langage machine sur le 2068. Ces articles seront publiés avec dans l'idée que le lecteur posséde déjà quelques bases élémentaires en programmation du 780,

Cette série s'interessera à la programmation aachine spécifique au 2068, laissant aux ouvrages spécialisés la description et l'apprentissage des instructions du 180. Nous étudieront l'utilisation des routines graphiques présentes dans la ROM, le calcul en virgules flottantes, les routine entrées-sorties, etc...

Les 2 premiers articles seront consacrés à un aspect très important en prograamation, l'interface BASIC-MACHINE.

INTERFACE BASIC €-) MACHINE (1474 partie)

En SINCLAIR BASIC, on appelle une routine machine avec 1а fonction USR suivi de l'adresse oü débute celle-gi. USR étant une fonction, nous devons utiliser une commande pour que la fonction puisse être utilisée, Au retour en BASIC, la fonction USR retourne toujours le contenu du régistre BC.

EXEMPLE1 Bi nous utilisons LET А=0БЯ 50000. Lorsque que la routine qui se trouve à l'adresse 50000 жега terminé, la variable À contiendra le contenu de BC.

Par contre, PRINT USR 50000 affichera à l'écran le contenu de BC.

La plupart du temps, le programmeur utilisara

RANDOMIZE USR car cela à peut d'effet sur le program-

me BASIC et c'est plus rapide à taper...

Ceci est DK si nous voulons que le langage machine passe de l'information au BASIC, Mais si nous voulons que le BASIC donne de l'information à la routine machine, que faire?

La plus simple méthode, et par conséquent la moins intéressante à utiliser consiste à passer l'information via la commande POKE.

г»

GE

EXEMPLE: BASIC-) 10 CLEAR 49999 с.м.-> ORG 50000 20 РОКЕ 50000,0 VAL1 DEER 00 ЗО РОКЕ 50001,1 VAL2 DEER O0 40 PRINT USR 50000 LD ВС, ({VAL1) RET

Notre programme BASIC passe les paramètres О et 1 dans les adresses correspondantes à VALI et VAL2. Remarquez qu'en langage machine, on parie wn HEXADECIMAL wt l'octwt le moins mignificatif

vient toujours en premier.

Voici quelques méthodes qui sont plus faciles d'utilisation.

Si nous avons 2 paramètres à passer, nous pouvons faire | INPUT USR айгевве,рагат&Їге1‚,рагат&їге2 |

et, au tout début de notre routine, appeler les 2 routines de la

ROM situées à 7132 (1BBCh) et 9824 (2660h). Ces routines

évalueront les 2 paramètres, ce qui signifie que ces paramètres

peuvent être des variables, des fonctions, ou des chiffres.

EXEMPLE: INPUT USR 50000,1,2 INPUT USR $0000,CODE "A",S INPUT USR $0000,4,B INPUT USR 50000,ҒМ B(2),X1

INPUT USR 50000,4(2,2),B(1,2)

En pratique, cela pourrait se passer ainsi. Supposons que nous avons une routine qui simule la commande PLOT à l'adresse 50000,

En BASIC -> LET А=20: LET B=50 INPUT USR 50000,A,B: REM PLOT 20,50

En ASSEMBLEUR -) 0А6 50000

CALL 7132 } registre C=20

CALL 9824 | registre Ве50 ; maintenant ВС contient ; nos paramètres,

CALL PLOT | PLOT est la routine ; principale.

RET

Cette méthode а ses limitations. Elle ne peut accepter plus de 2 paramètres à la fois. Et on doit ABSOLUMENT avoir 2 paramètres, sinon le 2068 se retrouveras dans l'espace sidéral d’où aucun ordinateur ne revient sans avoir perdu complètement la mémoire!

B EM

L'autre méthode prend la forme suivante: IF USR adresse THEN REM parl,...

Cette méthode a l'avantage de pouvoir prendre plusieurs paramètre mais demande un plus grand effort de 1а part du programmeur саг celui-gi doit entièrement décoder les paramètres, Une application de cette méthode est apparue dans SIN#8 alors qu'une routine nous permettait d'utiliser 10 polices de caractères différentes, EXEMPLE1 IF UBR 64000 THEN REM 81 -> caractère gras

IF МЕН 54000 THEN REM 84 -> caractère italique

Mais pourquoi "B1" et non "1" tout simplement. Cela а été fait dans le but de simplifier le plus possible le programme. Sans "B", le "I" se serait retrouvé en virgule flottante ce qui est plus compliqué à traiter que "1" en АСИ.

Dans notre routine nous devons vérifier si 1а routine a été appellé de fagon correcte, i.e. de la forme vue gi-haut. Nous vérifions si il y а "ТНЕМ", "ЕМ" et puis "8", Si oui, on interprete la suite. Si non, on arrete avec un message d'erreur.

BASIC : exenple-> IF USR adresse THEN REM 61 ASSEMBLEUR ; RST 18h interprete BASIC

CP CBh code ASCII "THEN"

JR NZ,erreur sinon saut à erreur

RST 20h sinterprete prochaine scommande BASIC

CP EAh scode ASCII "E*

JR NZ,erreur білеп saut à erreur

LD HL,SCSDh svariable-systène ;CHADD

INC (HL)

RST 18h jinterprete BASIC

CP 40h ;code ASCII "REM"

JR NZ,erreur ;sinon saut à erreur

RST 20h sinterprete prochaine commande BASIC

CP 30h code ASCII "0"

JP I,routinel {51 oui saut à routinel *

CP 31h code ASCII "1"

JP l,routine2 si oui saut à routine? !

CP 32h code ASCII "2"

JP 1,rautines {51 oui saut à routine? !

[> dg

grresr 555,25 PENRISSIIT I. Biiiili БЕР 2 Variable rz: 42252) sortie LD HL,SCSDh jnaintenant on rege: DEC (HL) }1а variable système DEC (HL) ;CHADD pour qu'au retour DEC (HL) jle BASIC recommence à RET ipartir de "THEN"

1- А la fin de ces routines on doit retrouver JP sortis

Cette méthode а cependant quelques désavantages, Les paranètres (80,81,etc,..) ne peuvent pas être des variables, Par exemple, on ne peut pas dire LET a$="@0":IF USR 50000 THEN REM a$, Aucune Commande пе peut suivent sur la même ligne le IF USR...

Dans le prochain SIN, nous verrons d'autres méthodes pour faciliter l'utilisation de routine machine en BASIC.

ІНШІ

Voici quelques combinaisons de touches qui peuvent tre utile dans le logiciels EASEL.

SHIFT F4 -) Permet de choisir la couleur de fond de l'écran. SHIFT F3 -> Efface la ligne de commande. SHIFT F5 -) Redessine l'écran.

Cette dernière combinaison fonctionne également sur les autres logiciels PSION. Elle est utile si on "MULTITASK" (avec une extension mémoire) par exemple GUILL avec ARCHIVE, Lorsque vous passez d'une application à l'autre, vous n'avez qu'à faire SHIFT F8 pour "rafraichir" l'écran.

UNTER ЕТГІ Neige ұла қайнай ке Pet кені Voici un petit programme amusant pour le SPECTRUM, je ne vous dit pas ce qu'il fait, essayez-le!

10 REM source 2X COMPUTING

20 REM Jan, 87

30 CLEAR 45345: FOR nz65346 Т0 85547: READ a: POKE npa: NEXT n 40 PRINT $0;" 1982 Sinclair Research Linited"

50 PAUSE 0: CLS : PRINT AT 10,9; FLASH 1;" SECURITY ALERT "

80 RANDOMIZE USR 55344

70 DATA 58,72,92,15,15,15,30,0 :255,211,254, 238, 16,67, 16, 254, 23 ,32,245,251,24,234

е Ф ql: expansion ram Cine оп le sait tous, une des caractéristiques importantes du is. est sa possibilité de faire tourner plusieurs programmes en тізе tenps, i.e. faire du MULTI-TASKING. Cependant le GL en „sesion de base possède 128K de mémoire. Cette mémoire se révèle itte insuffisante pour permettre à 2 programmes où plus de

---abiter dans le OL. Pour remédier à cette situation, une extension de mémoire serait le bienvenue.

"eet dans cette optique que је me suis procuré l'extension de нілсіге de SANDY. Elle offre 512K de RAM et se nomne THRU-CON RAM 43D, Elle a 1 connecteur à chaque extrémité ceci est pour cernettre l'ajout d'un controlleur de disques. L'installation est «rès simple. On installe la carte dans la fente gauche du HL et -'est tout! Nous voilà avec 840К de RAM. Cependant de trés rare arogranne ont de la difficulté à fonctionner avec l'extension de sénoire (ex. PSION CHESS) pour remédier à cette situation il faut ur petit utilitaire appelé SHRINK qui fait croire au GL qu'il n'a zue 128K, si ce programme vous intéresse écrivez-noi!

11 existe 2 sortes d'extension mémoire pour le Hr externe ou interne, La méthode interne consiste à faire du "PIGGY BACK", e, installer de la mémoire supplémentaire directement sur la aënoire déjà existante, de couper des traces, de mettre des setite fils et de changer le PROM de décodage. Cette méthode nous oblige à ouvrir la GL et par conséquent réservé au esprit aventureux. La méthode externe permet une execution un peu plus rapide des programmes car la mémoire supplémentaire et le circuit ie décodage est totalement isolé des 128K interne du AL, ceci implique que le rafraichissement de la nénoire vidéo (32K) ne "alentit en rien l'exécution d'un programme,

:| existe plusieurs programmes qui permettre de faire du *"LTI-TASKING, celui que j'utilise c'est CHüice. Ce n'est pas le seilleur mais c'est le seul que je possède...

24Dice demande que L'EPROM ICE soit en place. Il permet de faire tourner jusqu'à 4 programmes en nême tenps. Il suffit taut sinoienent d'indiquer combien de mémoire nous affectons à chacun et si nous voulons que l'écran soit sauvegarder. Pour passer d'une application à l'autre, on fait ALT F3 et nous sélectionnons le programme. Pour ma part, j'ai installer QUILL, ARCHIVE et un srogranne pour faire des étiquettes à l'imprimante, Ce programme 3ASIC a été compilé avec SUPERCHARGE car seuls les programmes qui geuvent Être EXEC peuvent Etre "MULTI TASKer".

d

Bech:

Tout ceci démontre encore une fois que le H est une machine qui n'a rien à envier aux autres, Car essayez de faire la même chose sur PC! Difficile et dispendieux.

Les articles décrit dans cet article sont disponible chez:

GAGNON ELECTRONIQUE, 390 Bl. Central Nord, Duberger Québec, БІР 3Р9

Si vous faites face à un projet d'une certaine anpleur (construction d'une maison, d'un garage, mise au point d'un logiciel, ouverture d'un commerce, etc.) Project Planner peut vous aider.

Précisons en premier lieu, car il semble que ces programmes soient assez mal connus, que OL Decision Maker viendrait avant Project Planner dans l'élaboration d'un projet. Si on prend l'exemple d'une maison, avec Decision Maker, en fixant certains critéres dont le critére économique est le plus évident, vous pourriez décider si vous faites construire, si vous construisez vous-même ou si vous achetez "clé en main", Ensuite Project Planner peut vous aider à planifier le projet que vous aurez choisi,

Bref historique:

C’est vers la fin des années 50 que l'ampleur de certains projets (navette, station orbitale...) place les ingénieurs devant des problèmes de planification excessivement complexes, Pour résoudre ces problèmes les ingénieurs ont recours cela va de soit à la simulation sur ordinateur, Des algorithmes sont ainsi créés qui vont aider à maitriser la complexité des projets spatiaux: Critical Path Analysis, Program Evaluation and Review Technic, Program Evaluation Research Task, Comme il arrive souvent en ce domaine, ces algorithmes ont été adaptés ` au nicro-ordinateurs,

Application:

Méme si les projets d'un individu sont moins complexes que ceux de la NASA, il n’en demeure pas moins que la puissance d'analyse que permet ce genre de programmes peut nous Être trés utile. Il est évident que l'estimation de la date de fin des travaux et des opérations critiques d'un projet individuel n'entraine pas des différences économiques se chiffrant en millions de dollars. Mais l'analyse de notre projet que nous force à faire Project Planner entraine de multiples effets bénéfiques: elle nous aide à cerner les différentes étapes, à les définir, à énumérer les prérequis de chacune, etc. Indépendanment donc des résultats que nous livre le H (aprés environ 15 secondes...), et qui s'avérent déjà essentiels à la planification d'un projet, le fait d'en étudier ainsi le cheminement en détail entraine une meilleure connaissance des tâches à accomplir,ce qui, en bout de compte, rend le projet moins ardu qu'il apparaissait au début...

Exenple:

Le listing qui suit concerne les premiéres étapes de la construction d'une maison (fondation et charpente}, Il a été produit par l'option "Charte" de Project Planner. Noter que les nos d'activités servent de pointeurs pour PP et non pas à identifier l'ordre dans lequel vont se dérouler les activités, Cet ordre dépend de la position de l'activité dans

la liste, Le fait que les nos ne ве suivent pas en ordre de grandeur démontre que PP nous a obligé à mieux planifier certaines activités,

Pour employer PP, on commence par entrer les activités inpliquées, ainsi que leur durée et l'activité prérequise à l'activité qu'on est en train d'éditer, ainsi que le coût s'il y a lieu. On peut définir combien de jours par semaine on travaillera au dit projet, le nombre de fêtes chônées dans l'année, et certaines dates repères où l’on voudrait que certaines activités soient terminées... А partir de ces données, PP peut nous fournir les différents rapports suivants, à l'écran ou sur papier: Une liste des activités telles qu'on les a entrées et qu'on peut remanier à volonté suivant les résultats de l'analyse précédente; une charte identifiant le cheminement critique sur une échelle de tenps avec le temps libre total (temps en "surplus") de certaines activités, le temps libre conflictuel (temps libre qui, si employé, diminuera le temps libre de d'autres activités) et les activités secondaires; une autre charte telle que la

il

dernière mais en chiffres plutôt que graphique; une liste des dates de début et de fin au plus tôt et au plus tard pour

chaque activité,

Voilà, Noter que les activités critiques sont celles

identifiées раг un rectangle, les асі, secondaires par un À,

le temps libre par :::: et le temps conflictuel par des gros

points.

na

ИИ]

об 1-О11УЧ8

ос

миен

H H° "n

ot oz от о (-О11УЧ

S331LLln0D 114405

HANLIOL TIVLSNI SNONAHHO TIVISNI ІХЯ 5ҸПИ TIVISNI INSA4MNVHO TIVISNI чанонула TIVISNI

^'SfloTo 'SIOS ^V ANIAYA ячүа NV'Id SLNSAMVHO NV NOSITX HODDVA ЯО AOYSSITANAN

"HSSVONOD TIVILSNI ог Sid TIVISNI 42 NIVNG TIVISNI S 855601 TIVISNI l1nO53 TIVISNI 49V10S 1061 Ad SANYO NSAS'INS

Y1704 NSHOSS 49v10S 4471109 "'SsNvass TIVISNI SSWHOJ "IIVISNI SAMOA 33001 MNHHOSS N17104 хянонула иялпОО WSHONV'id Ad TOSI чянонула SSI'IVOS DNI1O0d3 HAHIAS DNILOOS 4471009 DNILOOS TOSI Ad NIVUG TIVLENT KÉEN KREESSER NIVAG'AL geng SAVO HHSü3HD 80X2Vd язлол a8sSsVvoNOO СУ

82 LüO03'LVW'V "1455 SSSOS'V ""HASSHTS VAR CV SAYO NOILIVTOSI'V BIAVHO LNSMIO'V ONGAH LOSNNOO 19314 ünValOd ‘19474 SINNSd LONHLSNOD SIKHAA

-- тос

SIIAPIOY

Project Planner vient avec 2 cartouches d'exenples, mais elles ne fonctionnent pas sur un GL américain (JSU ROM). Mais avec le manuel de 70 pages qui vient avec ce programme on peut très bien se débrouiller sans les exemples sur cartouches,

Noter en terminant que si le cheminement apparait évident sur cette charte, il ne l'était pas quand j'ai commencé à planifier ce projet...

Abréviations: A.=acheter І, ou INSTALL-installer

ISüLzisolation PV=pare-vapeur etc.

Jebs C.P.41 La Sarre P.O. 4192 234

MUTO PAULS | 3 CAVE) |

Voici un programme qui transforme votre HL en générateur de MOTS CACHES. Premièrement, vous dites combien de mots vous voulez avoir de cachés de votre grille vous avez droit à un maximum de 15 mots. Il est également possible de faire sortir votre grille sur votre imprimante qui est reliée à SERI,

Auteur: Yves Gagnon

100 REMark ИИН 110 REMark 1$ Yves Gagnon --- 15/01/87 11 120 REMark ИИН 130 :

140 REMark ` //// MOTS CACHES \\\\

130 :

160 REMark 22)? MODE MONITEUR ( Fi ) << 170 :

180 :

190 INIT

200 INSTRUCTIONS

210 MOTS 1

220 HOTS 2

230 MOTS 3

240 SELECTIONS

250 GRILLE

260 SOLUTION

270: 13

14

280 DEFine PRüCedure INIT

290 MODE 4

300 DIM H$(15,15):DIM 6820, 2 РОКЕ W 153975,236

310 B$="

320 FOR 1=1 ТО 20:6$(I)=B#:END FOR I

330 OPEN#4,scr 512x23600X0: PAPERIM , O1 CLE I4

340 HINDOH#2,512,30,0,0:PAPER#2, 1: BORDER#2, 2, 7: CLS42

350 CS12E42,2,1,:PRINT#2, [III MOTS CACHES NN? 350 SCROLL#2, 4

370 WINDOW#1,270,212,0,30:PAPER#1, 1: BORDER#1, 2, 7: INK#1,7:CLGH1 280 WINDOREO, 235, 25, 270, 217 : PAPER&O, 1: BORDER#O, 2, 7: CLS&0

390 QPENES,SCR _240K188A270K30: PAPER#S, 1: BORDERES, 2, 7: INK45, 7: CLSR3 400 QPENES, бегі

410 END DEFine

420 : |

430 DEFine PRüCedure INSTRUCTIONS

40 PRINTH,! | ---------------------------------- ;

430 PRINT," Hit INSTRUCTIONS SH.

40 PRINTH,? | ----------------------------------

470 PRINTE,’ TAPEZ UNE LISTE DE (5 А 15 MOTS) DE '; 480 РКІМТЕІ, °15 LETTRES AU MAXIMUM."

490 РАІМТЕІ: РАІМТЕІ, ' LES MOTS SE TROUVENT CACHES DANS UNE 500 PRINTKI,'GRILLE DE (20x20) DE LETTRES.”

510 PRINTHIPRINTH ,? LES MOTS CACHES PEUVENT AVOIR PRIS 320 PRINT#{,' DIVERSES DIRECTIONS.”

330 PRINTEIIPRINTRI,' POUR OBTENIR LA SOLUTION APPUYER SUR 540 PRINT#I,'UNE TOUCHE ET VOUS VERREZ LES MOTS ';

850 PRINT#{, "VONT DEVENIR ROUGE, ?

360 PRINT#I: PRINTH , ' IL EST POSSIBLE DE FAIRE COPIE DE LA 370 PRINT#1, GRILLE SUR UNE IMPRIMANTE,’

380 PRINT#I:PRINT#I,* Ht BONNE CHANCE un 990 END DEFine

600 :

510 DEFine PRüCedure MOTS 1

820 CLSRO:PRINT&O;' ENTREZ LE NOMBRE DE MOTS ?':INPUTEO;MOTSS 630 IF MOTS$z"" THEN GO TO 520

640 NH=HOTS$

650 IF NMCS OR NM>15 THEN

550 CLE#0

670 ВЕЕР 5000,1

880 PRINT$0," ATTENTION IL Y A ERREUR. ! HOY ‹ 5 ЕТ 13 MOTS.’ 590 PAUSE 150

700 MOTS |

710 END IF

720 END DEFine

730 :

H

,

~.

-—

740 DEFine PROCedure MOTS 2

750 CLS83:CBI2E5, 2, Ot PRINTES

70 PRINTS,” LES WOCH MOTS SONT: '

770 PRINTS, % zzzzzzzzzzzzzzzz!

780 END Біле

790 :

800 DEFine PROCedure MOT 3

810 FOR 151 TO NM

820 CLS#0:PRINT#0; 'ENTREZ LE MOT Nd: '; s I: INPUT#0: M$ (Т 830 IF LEN(M$(I))218 OR M$(I)z?? THEN

840 ВЕЕР 5000,1

850 CLS#O:PRINTHO, "ATTENTION 111 13 LETTRES MAXIMUM, ' 860 PAUSE 150:CLG80

870 50 TO 820

880 END IF

890 CSITER#S,1,0:PRINT#S," ": М1)

900 END FOR I

910 ВЕЕР 5000,1

920 CLSRO:PRINTRO UN INSTANT S,V,P,

930 END DEFine

940 :

930 DEFine PROCedure SELECTIONS

900 FOR 1=1 TO NM

970 FOR J={ TO 15:IF WI, isen *eLaJ:60 TO 990 — 980 END FOR J

990 S=-INT(RND+.5):IF Bet Bei

1000 DzINT(RNDI14)1

1010 XsINT(RND120) 41

1020 Y21INT (RND120)41

1030 SELect ON D

1040 z1:HÜRIZONTAL

1080 =2: VERTICAL

1080 =3:7=-1:HAUT BAS

1070 =4:72=1:HAUT BAS

1080 END SELect

1090 END DEFine

1100 :

1110 DEFine PROCedure HORIZONTAL

1120 PzX* (L-1)48: IF PX1 OR P220:60 TO 990

1130 IF P}:A=X:60 TO 1150

1140 А=р

1150 IF 8$(Y,8 TO 4Ң-1) <) B$(1 TO L):60 TQ 990 1180 C=1:FOR dei TO P STEP 8; G$(V,J)=M$(1,C):C=C+1 1170 END FOR J

1180 END FOR I

1190 END DEFine

1200 :

,

15

6.

1210 DEFine PROCedure VERTICAL

1220 Р=Ү+ (1-1) 5: IF P<i OR P>20:60 TQ 990 1230 FOR JzY TO P STEP 5

1240 IF 6$(,X) O " ":60 TO 990

1250 END FOR J

1250 fei POR J=Y TO P STEP 8:6$(7, X) =М%(1,С):С=С+1 1270 END FOR J

1280 END FOR I

1290 END DEFine

1300 :

1310 DEFine PROCedure HAUT BAS

1330 PzX*(L-1) 48: IF P<1 OR P220:60 TQ 990 1340 IF YsLt241 OR Y4L12520:60 TO 990 1350 С=Ү:А=1:Е08 Ј=Х TO P STEP 5 1360 IF 6$(0,J) O " ":60 TO 990 1370 C=C+Z:A=A+A:END FÜR J

1380 С=Ү: А=1:РОК JzX TO P STEP 5 1390 8$(C,0) :M$ (I,A)

1400 CzC*2:820*1:END FOR d

1410 END FOR I

1420 END DEFine

1430 :

1440 :

1450 DEFine PRÜCedure GRILLE

1460 INK#1,0:PAPER#I, 2: BÜRDERÉT, 6: CLSH

1470 FOR 1=1 Т0 20

1480 PRINT," "Ss:PRINTES," 5

1490 FOR 1-1 TQ 20-

1500 IF 6$(1,J)=" " THEN 60 Т0 1530

1510 PRINTEL,6$(I,J) 5". "REPRINTES, КІ, 3

1520 60 TO 1540

1530 CARS=CHRS (RND125*55) : PRINT, CARS; " "j:PRINTES,CARS;" "; 1540 END FOR J

1950 PRINT41: PRINTES

1560 END FOR I

1570 PRINTEZ: PRINTES, " IL Y A ";NM;” MOTS А TROUVER" 1880 PRINTES

1390 (0-0

1400 FOR М0=1 TO NM

1510 С0=С0+1

1820 PRINTES, M$ (MD)? ?;

1630 IF CO=5:PRINT#3:C0=0

1640 END FOR М0

1050 PRINTES: PRINTES: PRINTES

15650 END DEFine

1670 :

1680 DEFine PRüCedure SOLUTION

1590 CLS#0:PRINT#0, " IL Y A "NH;" MOTS A TROUVER" 1700 PRINT#0,' TAPEZ UNE TOUCHE POUR LA SOLUTION’ :PAUSE-1 1710 CLS#0:PRINT#0 VOICI LA SOLUTION 1720 AT 0,0;

1730 FOR 1=1 TO 20

1740 FOR 1-1 TO 20

1750 IF 68(1,J) <) " ЧАТ 1-1, (012) -15 : INK. 22РКІНТІН,6% 1,1; 1780 END FOR 4

1770 END FOR I

1780 CLS&O:PRINT&O,'TAPEZ UNE TOUCHE POUR UNE AUTRE GRILLE” 1790 PAUSE-1:RUN

1800 END DEFine

Voici un programme qui produit le calendrier de l'année et du mois que l'on veut. Le programme а besoin du fichier GPRINT РАТ du logiciel EASEL, donc assurez-vous que GPRINT PRT soit présent sur le même médium que le générateur de calendrier.

Auteur: Jean-Claude Touzin

10 REMark G&n&rateur de calendrier 20 REMark par J.C. Touzin

30 :

100 а-КЕЗРЕ(812)

110 LBYTES mdvi oprint ргі,а

120 WINDOW 512,202,0,0:015

130 CSIZE 2,1:PAPER 0

140 CLS: INPUTV, "Mois (1-12)? "imois 150 INPUT\, "Аппае (аага)? "jan 150 CLS

170 tizan-INT(,6+(1/nois))

180 t2-nois*123 (INT(.6*(1/nois))) 190 tSzINTGSE (C241) /3)

200 t4zINT(S1t1/4)

210 tSzINT(t1/100)

220 tazINT(£ 1/400)

230 tst3st4st&-t5

240 p, jourzt-71INT (£771 41

280 SELect DN nois

260 z1:moisss"Janvier":d jourz3i 270 z2:mois$s"Füvrier":d jourz28:1F INT(an/4)=an/4 THEN d_jour=29

280 z5:mois$z"Mars":d jourz3i

290 z4inois$z"Avril":d jourz30

300 -3:mois$z"Mai":d jour-3l

310 z&:nois$z"Juin":d jourz30

320 =7:mois$="Juillet":d jourz3i

330 z8:mois$z"Aott":d jours3i

340 =9:nois$="Septenbre":d_jour=30

250 =10:nois$="Octobre":d_jour=3i

360 =il:nois$="Novenbre":d jourz30

370 =12:nois$="Décembre":d_jour=31

380 END SELect

390 mois an$zmois$ & " * kan

400 АТ 1, (20-LEN (mois an$)/2): PRINT mois an$ 410 PRINT " Dim Lun Mar Mer Jeu Ven бап! 420 lignez3

430 colz2*((p jourtà)-5]

440 FOR jourzi TO d jour

450 IF col>40 THEN col=2:ligne=ligneti

460 AT ligne,col:PRINT jour

470 col=col+é

480 END FOR jour

490 grille

500 REMark

510 (15#0:1=0

520 PRINTAD,,, "1 Afficher un mois"

530 PRINT&O,,,,, "2 Imprimante"

540 PRINTEO,,,,, "S Quitter le programme"

850 PRINTEO, V,,,, "Taper 1, 2 ou 3"

960 c$z INKEYS (71)

970 IF c$O "1" AND c$0"2" AND c$O "3" THEN 60 TO 540 580 IF c$z1 THEN RUN14O

590 IF c$22 THEN imprimante

600 IF i THEN 60 TO 510

510 STOP

520 DEFine PROCedure imprimante

630 OPENS, ser: PRINT#3, CHR (27) ; "O":CLOSE#S:REMark 1/8" interligne М0 Lei: 0150

650 CALL a:REMark GPRINT РАТ

660 END DEFine

870 DEFine PROCedure grille

880 POINT 7,92

690 LINE TO 154,92 TO 154,21 TO 7,21 TO 7,92 700 y=Bi

710 FOR c= 1 TO &:POINT 7,y:LINE TO 184, ysyzy-10 720 x=2b

730 FOR c=i TO &:POINT x,21:LINE TO x,81:x2x422 740 END DEFine

bientôt

dans SIN...

H d

iJ ГЕ | е

AC на металы

EE KEEN

UN

Eesen

ENEE

par: Simon Rioux

(annonce)

LE CLUB DES UTILISATEURS QL.

390 Boul. Central М,

Québec, СІР ЗР9

Canada

Band me

51 vous êtes abonné

` OJN i à SIN et que vous avez

1 i ie retour

du courrier un programme écrit Sous

ARCHIVE pour classer vos sommaires de SIN!

Pour toute correspondance écrire à:

Réal Gagnon

4818 Henri-Julien Montréal Québec HET АИ!

ы MEM TE $ e D (tous disponibles) poste -» .98

8Oto: 30 X зо аз ғаз алата тоз 3 4 3 3 кс тоз 9 3 кок $ 3 т ө v

4804 аса к ва аза з X 3 3 Y * 0 E X3 3 3 3 3 3 P 3 3 5 0 T 5 t 3 t

ORDINATEUR: 2881 _ 2868 UL AUTRE