TE

DENG PRUG

avis

n a roam! da i dr 2111111) g

Rédacteur: Réal Gagnon, 4870 Henri-Julien Montréal P.B. H2T 1 (314) 845-5494 Collaboration: Yves Gagnon, Simon Rioux Ce bulletin est conçu avec l'aide du traitement de texte QUILL (PSION), de TASPRINT (TASMAN SOFTWARE) et de QDRAW (PSION). L'impression se fait sur une imprimante STAR NX-10.

CR

de me pose de petites questions ces tenps-çi. Est-ce qu'un

lecteur pourra me renseigner, mystère... Est-ce que quelqu'un sait si l'hebdomadaire POPULAR COMPUTING WEEKLY existe toujours? TIME DESIGN, TS HORIZONS, SYNCWARE NEWS sont-ils toujours en vie?

Aussi, il y a sürement des lecteurs liens qui sont membres de QUANTA. J'aimerais savoir si ils ont réussi à obtenir la fameuse librairie de logiciels. Sinon je sais que le libraire-QUANTA aux Etats-Unis est DAVE ROTHMAN, 10156 Little Pond Place, Gaithersburg MD 20879, USA. Alors voilà, le seul moyen pratique est à mon avis de commander la librairie au complet d'un coup! Cela représente plus de 8 Mega-octets de logiciels, i.e. 8000 K ou 80 ydrives. Autant dire tout de suite que les pdrives sont à rejetés pour ce genre de transaction à cause des frais de transports élevés, J'ai appris qu'il en coute $110 US pour la librairie complète sur disquettes, Cela représente un bon montant pour une seule personne mais si on pouvait se regrouper cela abaisserait les coûts sensiblement, alors si vous êtes un membra QUANTA et que la librairie vous intéresse, communiquez avec moi, car plus on sera à partager les frais, plus on pourra profiter de notre "membership" à QUANTA. Merci,

NOUVEAU SPECTRUM. ssnunsanssesueununs

AMSTRAD annonce un nouveau modèle SPECTRUM nommée cette fois-çi, SPECTRUM +3, Ce qui caractérise celui-ci est qu'il y a un lecteur de disque 3" intégré. Il possède également 128K de RAM, 2 ports JOYSTICK, un semblant de port MIDI, et une sortie R5232, Le prix équivaut à environ $300 US,

COMPUTER FEST... . ess see ae ھ‎ ٢ seen ..

C'est au mois de mai dernier qu'a eu lieu le TS COMPUTER FEST 87, Cette année le tout s'est tenu à CINCINNATI. Le H tenait une place importante, mais le 2068 et le 1181 étaient toujours présents en force.

Voici les faits saillants:

ZEBRA SYSTEMS offrait un TRACKBALL compatible 2088/üL.

: NOVELSOFT (Toronto), auteur de TIMACHINE (compilateur 2068/5P), de ARTWORK (logiciel graphique 2068/5P), ont présenté leur dernier produit, ZXpert qui permet de créer un système expert,

LEMKE SOFTWARE DEVELOPPEMENT, auteur de PIXEL SKETCH AND GRAPHIC EDITOR, présente PIXEL PRINT qui amène le 2068 à l'ère du DESKTOP PUBLISHING.

ARCHIVE est un logiciel avec beaucoup de possibilités, RMG ENTERPRISE ont produit un bouquin sur les "Ins and Outs" d'ARCHIVE. Cette même compagnie a également congu des programmes (pour affaires) "ready to use" pour ARCHIVE toujours.

; NOVELSOFT 106 7th Street, Toronto Canada MOV 384 (415) 259-8582 . LEMKE SOFTWARE DEV, 2144 White Oak, Witchita KS 67207 U.S.A.

; RMG ENTERPRISE 1419 1/2 7th Street Oregon City OR 97045 U.S.A.

` ZEBRA SYSTEMS 78-05 Jamaica Ave., Woodhaven NY 11421 U,S,A,

' NOUVEAUX ITEMS QLiens............

CURRY COMPUTER offre un EPROM qui peut remplacer les 2 ROMs du ' GL. Ceci a pour effet de diminuer la consommation du courant. Ils

peuvent également installer ICE, TOOLKIT IT ou GFLASH sur la ; tarte si vous leur envoyer l'original. Mais le plus intéressant ' est qu'ils peuvent vous mettre soit le ROM JSU (US) ou JS . (Angleterre), cette dernière corrige les petits problèmes : d'images avec certains logiciels britanniques, Prix -( $49.95 US

| Egalement CURRY COMPUTER annonce une carte, la TRUMP CARD, elle | donne un interface pour disquette, 768K de RAM (au lieu du 640K i Standard), TOOLKIT II intégré et d'autres logiciels en prime. | Tout ça pour moins de $300 US ( probablement $299,95), Cette . carte est fabriquée par MIRACLE SYSTEMS.

| COMPUTER SHOPPER `

| Fait assez rare de nos jours, le magazine américain COMPUTER . SHOPPER augmente sa couverture des ordinateurs SINCLAIR. En | effet, il semble que MARK L, FENDRICK, l'auteur de SINCLAIR | SURVIVAL COLUMN, se spécialise sur le QL tandis qu'une nouvelle . colonne, MORE TIMEX-SINCLAIR, traitera plus spécifiquement du i 2058 et du SPECTRUM,

لد

QL compatible CF/M...... مور‎ sasan.

CURRY COMPUTER (encore...) annonce un EMULATEUR CP/M pour le 8L, Cela consiste à un ROM et un logiciel, Les lecteurs de disquette sont essentiels car les logiciels CP/M ( ex. HORDSTAR, TURBO PASCAL,etc...) se présente toujours sous la forme de disquettes 9.25", Ce qui est intéressant avec ceci, est que avec un logiciel du genre BRAM, vous pouvez fonctionner avec les 2 systèmes d'exploitation en même temps, i.e. CP/M et 0108 car je vous rappelle que le QL est multi-táche.

Si vous ne pouvez pas lire un programme sur votre microdrive, et que vous ne possédez pas le logiciel 'Doctor' ou 'üDoctor' pour recupérer le programme qui est corrompu, voici un petit programme utilitaire qui peut-&tre vous rendra service. Ce programme pourra aussi récuperer un fichier ‘Archive’ qui se solde avec le message 'Wong file’ .

I] suffit de comparer avec un bon programme afin de faire la correction nécessaire.

Yves bagnon,

120 REMark == Yves Gagnon 04/06/87 ==

140 REMark szzzzzzzzzzzzzzzzzzzzzzz2zz22zz

US 1۶ 9 9 9 191111111

170 71 ( Fi ) MODE MONITEUR

180 13٢٣٢ 7171

190 :

200 INIT

210 DEPART

220 :

240 DEFine PRüCedure INIT

250 1۳٢٥ 051

260 CLS:CLS#0:CLS#2:DRV$=" ۷۹0۷۱: MODE 4

270 INPUT\ ENTREZ LE NOM DU PROGRAMME CORROMPU :'Vnon$ 280 INPUTV'ENTREZ LA LONGUEUR DE CE PROGRAMME :'\long 290 a=RESPR(Iong)

300 LBYTES DRV$4" "knomt,a

310 END DEFine INIT

mm

320 REMark tf: 330 DEFine PRÜCedure DEPART 340 REMark 0 9 9 91 350 92 360 PRINT#2,\' < Fi > POUR LA CORRECTION DU BYTE’ ` ` 370 PRINT#2,\ < F2 > REVENIR AU DEBUT DU PROGRAMME” ' 380 PRINT#2,\ < F3 > SAUVEGARDE DU PROGRAMME CORRIGE? (390 PRINT#2,\' < F4 > RETOUR AU BASIC’ 1400 PRINT#2,\" € F5 > CHARGEMENT D'UN PROGRAMME" (410 881172,۱١۱ ADRESSE ==)’ 420 PRINT#2,\ — CODE ==)’ 1430 PRINT#2,\ N/BYTES =->' | 440 FOR x=0 TD long 450 PRINT CHR$(PEEK(atx)); ` 460 AT#2,12,1S:PRINTHZ,atx;" ° . 470 ATR2, 14, IB: PRINTEZ,PEEK(aé4);! ° : 480 ATE2, KIHM TM ` 490 CLE-CODE (INKEYS (71)) | 500 IF CLE=232 THEN cor | 510 IF CLE=236 THEN DEPART | 520 IF CLE=240 THEN SAUVE | 830 IF CLE=244 THEN STOP | 540 IF CLE-248 THEN RUN | 550 IF x=long THEN GO TO 490 . 560 END FOR x | 570 END DEFine DEPART | 580 REMark (DIER n | 990 DEFine PRüCedure cor | 600 REMark (DEED ' 610 AT#2,18,0: INPUT#2, "ENTREZ LE NOUVEAU CARACTERE: Vcod$

| 420 POKE atx, CODE (cod$) | 630 DEPART | 440 END DEFine cor | 650 ٣٣٢٤٢ 1 ' 660 DEFine PROÜCedure SAUVE . 670 ١٣٠٢٢ 1 ۵٨80 AT#2,18,0:PRINT#2, METTRE UNE CARTOUCHE FORMATTEE DANS 0۷1 V TAPEZ UNE TOUCHE POUR CONTINUER’ 690 PAUSE 700 AT#2,18,0:PRINT#2, 7

710 AT#2,18,0:INPUT#2, ENTREZ LE NOM DU PROGRAMME: "noe ` — 720 SBYTES DRV$&' _’&non$,a,long 3000 ٧٣٤٤٣٢٢ 1 730 DEPART 5010 DEFine PROCedure enr 740 END DEFine SAUVE 3020 ٧٣٣3٢٢ 51 3030 DELETE 'ndvi REC BAS’ 3040 SAVE — 'mdvi REC BAS' 9090 END DEFine

Lët `

nu

P]

BEE "Zéi d DI, KC "L i dor jm FIC b s

ut

MIT MU Ree,

KR A

۸ ^, mm ` jp

m n n Ú

m D

WÉI

٨

n om

Z pl illut

AE

a

ID,

e a Pi

ZE

hh, h, t,

m

it in

pont

A, hl KP Kime 1 A. dir, D» "hs SE WE pure

Mi be

WIN NES q

iil a

٣ ند‎

Dal

m

n".

n

0 4 HX

ud

H

GC Li

DW] "y

e Sb gr :

pit

: KI ٠!

Es

1

l

n" MCE

pel

7 d

df ! 3: ` 3 KR و1‎

LR

Le 1

" ۸

en qmm

P ۳

tls) ER

= 7

ch ] «M Din s n TU Ind np ne oft À

DN "0

Hi 4 U 1

qub eh

h nien k

Em

goe

GE ien i Lu

OI hin

ud

VE d

rm

D

gx og BET, o

mu À ne M Za mi js DEREN: gn LI In

ial Lt, Cd

= [hre À q | e ode tat, Hä ID, Hit, 20 um mg L a

n AT) ٠)" h i‏ مر

wo nw ۸ M

ats ud D

AN wd D um LI bera ml W H II

MI ET Wu dE " D RE MK ۷ "

Kc ji

۷

PE

W 13) ۱ i i ni

t dp 0 l HN!

KE

Voici non premier programme en assenbleur 68000, Cet utilitaire

ajoute 2 nouvelles commandes au SUPERBASIC qui mettent le clavier soit en minuscule soit en majuscule, Ces commandes ont pour nom:

CAPSON -> Clavier Majuscule CAPSOFF -> Clavier Minuscule

Tapez le programme basic, et les codes seront sauvés automatiquement soit sur disquette ou sur pdrive, On spécifie le nom du fichier dans la variable fichier$, Ex. fichier$z"ndvi CAPS bin" fichier$z'flpl CAPS bin"

Voyons un peu la méthode à suivre pour définir des extensions au : SUPERBASIC,

, 1° Nous devons initialiser nos nouvelles commandes, Pour ce , faire, nous chargeons Al avec l'adresse de la table qui contient l'information nécessaire à cette initialisation, Puis dans A2, ! nous mettons l'adresse du vecteur qui contient l'adresse de la routine de QDÜS qui se charge de valider nos nouvelles commandes. Ce vecteur est à l'adresse 1108. Lorsque la validation est | terminée, nous mettons "0" dans DO pour permettre un retour au

29 Notre table de définition commence avec le nombre de commandes que nous voulons définir, Dans notre cas, c'est 2, Puis on donne

' l'adresse relative de la 1er= commande, le nombre de lettres puis ' la syntaxe de la commande. Ün recommence avec la 2:*^* commande,

| Après les commandes, nous disons que nous définissons aucune : fonction.

: 39 La routine CAPSOFF consiste à mettre "0" dans la variable

systeme à 28088h,

4? La routine CAPSON consiste à mettre "255" dans la variable système à 28088h.

à Commandes SUPERBASIC pour mettre le clavier

1 soit en majuscule, soit en minuscule,

CAPSOFF -)

1

1 SYNTAXE: CAPSON — -> 1

1

1 Auteur: Réal Gagnon

i

1

1 DDOS routine

BPINIT EQU 40

t

CAPS EQU — $28088 OFF ERU 0

DN EaU -i

t

1 -initialisation des commandes CAPSOFF et CAPSON

i LEA CAPUDMM A MOVE.H — BPINIT, A2

JSR (A2) MOVEG 0 RTS

1

1 Les commandes

1

CAPCOMM 1 DC. W DC.B DC. W DC. B DC.W DC.W DC.W

1

CAPSOFF MOVEG 7۴

MOVE.W DO,

RTS 1

CAPSON MOVED #ON, MOVE.W DO,

MOVER #0, RTS

END

i

2 CAPSUFF-1 7, 'CAPSOFF' CAPSON-+

5, CAPSON' 0

0

0

F, DO (CAPS)

10 (CAPS) DO

Initialisë nouvelles connandes BASIC

Variable-système par CAPS LOCK |

Clavier majuscule Clavier minuscule

janvier 87

Pointe les noms des commandes Routine DDOS pour les mettre en fonction | m"

Retour sans probléme... «aU SUPERBASIC

Nombre de commandes

Adresse de la routine CAPSOFF Nbre de lettre et syntaxe Adresse de la routine CAPSON Nbre de lettre et syntaxe

Fin des procédures E Aucune fonction i Fin des fonctions i

Met 0 dans la variable-systène pour tomber en minuscule. Retour au SuperBasic.

Met 255 (en binaire signé) dans lai var,-sys. pour tomber en majusc. ` D0=0 pour le retour sans erreur au SuperBasic,

octo vene

Fin du programme

10 REMark CAPS COM 20 REMark R. GAGNON Montreal 87 30 REMark CAPSON -> Majuscule 40 REMark CASPOFF -)Minuscule 50 REMark LOAD avec a=respr (54) 60 REMark LOAD xxxx vunn ۵8 70 REMark CALL a 80 : 90 depart-RESPR(44) 100 INPUT "Nom :";n$ 110 FOR i=0 TO 63 120 READ a: POKE depart+i,a

130 END FOR i 140 : . 130 DELETE n$ 160 SBYTES n$,depart,64

170 :

1000 DATA 57,250,0,12,52,120,1,16,78,146 10000 : «y es

1001 DATA 112,0,78,117,0,2,0,26,7,67 10005 DEFine PROCedure update 1002 DATA 65,80,83,79,70,70,0,26,4,67 10006 DELETE £1pl caps load 1003 DATA 65,80,83,79,78,0,0,0,0,0 10007 SAVE flpi caps load 1004 DATA 0,0,112,0,21,192,0,2,128, 134 10008 END DEFine

1005 DATA 78,117,112,255,51, 192,0, 2, 128, 136 1006 DATA 112,0,78,117

M ——À MÀ — — À‏ ااا اا ee‏ مهه مههه m ae me oa‏ ورموره مه رورو

: TRUC SPECTRUM/2088, .. TRUC SPECTRUM/2058. . , TRUC SPECTRUM/2088. , , TR : 8i vous possédez une imprimante T82080, voici une routine qui vous pernet d'imprimer soit l’écran entier (24 lignes) ou le : nombre de lignes que vous désirez,

10 RESTORE : INPUT "Adresse de depart: Vide

20 CLEAR dep-1

30 FOR fzdep TO dep+5

40 READ a: POKE f,a

30 NEXT f

60 LOAD ""SCREEN

70 RANDOMIZE USR dep

SPECTRUM +80 DATA 243,4,192,195,175,14 2068 _ 380 DATA 243,6,192,195,5,10

Hs nombre {92 représente le nombre de 11008518 que l'on veut . imprimer, Exemple pour 24 lignes -( 24 042 pour 12 lignes -) 12 576

mv

OUT

OZ Kb H ou m m E h III VEL bent D سا‎ sa imll EE 2 AH rk ru ud

UNE TRAN NT M im le i 7 bi Ut Kai ۸ n ñ 1 nm l RK

vim! ` vm "mE w

de RK sel M H

n .^ bt j : oven | "m Hu SHH ke

١١ D o MN 1 ALU یږ‎ d H q n de di t 11717 É

IL `

W|

٣۸ uh

0 : H SE hn il d p nd den

T TES

"| ۱٨ ٧

Wi MEN » h A

" LTEM JU mm 0 pa j F W^ s Ko n a 1 d » H d " e ad [f] Odd 30

d WM

8

ii a

١ Wi OU j ۳ i 1 `

vul bal BU à

En If‏ سا hI U HY 8,‏

٨. ki us اس‎ لر‎ Old Ë MUD w » W WETE d N LA maj di y ۳ :

YÉ der ul 01 m Ñ d d d METAM M U LT n Mt 1 VUE UI bn bas a ru gt m inu qn MI Dp gi a 2 le Phil quse m d.n s TEEFDISISEEDIMEN.

js. DI

T

IW 11

m.

سیا

E ts, i MO rum "m

n» «nou» »n on»

11 D, HE At H iu

pn I 1 i DA BE

Im ün, ual |

lf : H

l [m LU T

FEE nb t

hw d

di f^

EM

Dw OU H

i d D m n TEM jin "i dm A 9 29 EUM

"i

pam

D Mr m OU uM fim : 2 , hil ۸ Sé wl ' d o m IW d "o e لل‎ "m "ovo P" " ut m DE

i d T 19 d, D ue fim EIN 1 E TUM

h "at

0 Zu. 1 2

d

peii peli

" y m >a m 1 ë n Wull d 0١ 0 m 1 } an, " dch DEA 1 0۸٠ 1 : vilia Wo m ^ "Nei m "DE ۳ 0 d " we Wo ue W M Bg ٧ o, Aug M.E QU m e d "PE Di ki lhe ws T 3 Dau FER TT CURE . o man D: ud d m "m Pas i P M. e i] KE! " nyc, M TL ME GW um di AIT TET: qum s . T 22 dn 3 D 1 A Go Ji ١ wm ۸ WEN "T A ۸ 4 1 MW : : : M d : | KI M JA 1۷ m I VO 2 OM 0 ٨ loft ^ m men "K wm MD 1T H an : HERE Wu? d

UI Wé Wu d

on m ا ا‎ A J s ml

PLC [Üw owl

^t ۷" wv II wën 0, mp (RAI 0 » nh Wall " 1 n " " [6] ME Häll Mo np m " "wr vw Di D T WA ! WM ü d d | L ۸ n pmo web E NI EGET

۷ M rf ss TETTE Di LE dv 1 SCH M14243! Eat E Ge PH xS mc mg qi d) Bh) mm t E t ئ‎ ۷ HY: |

rod

HR f, (H | P ٤١ 1 mi d

gua umn uar peon punt

MERS TES

lu " 1 In WI Eier he rn M 0 1 ٧ h 1 Ké m MI dt Ki UN M Kä Ki "n ara L wi S AA III 8 ال‎ M. ER D, CB 1 eos P o ELM ٢٧ ed ua P G wi dë RULES Û e e Ml he 0 o ٨٠ Lo. od A A de A omen 5^ Di "up KÉ | سه‎ ue wa

M bh Dal Hi n. m d gd gi OI "NED m i Dh

Im JH 1/۸ H m À

TEE T mm em

gu d d main ١۱۱ ۱۹١ E n pn Pn n, o MT d] nd dl, HE

' Ki ۸ m F Ej n d 5 b ek nd D G k, di : ^ LE ! di ۸ HA m m i m Mo ed dE CI یا‎ CET C | he OT 2 Lil D [m m Pl "4 a BERDA E dl PHP 7 1 ٢١ HEP TÉLÉ MD | Bu vr da II wd ر‎ H vi ایا‎ ha M L 3 ^r n qr M l Loi ۳ , a 7 + [bed] ال‎ II un, اا‎ nn 0 [7 vi لآ ابا له‎ (GU Tp un d 1 d LE f 1 j : ma 1 € d: 3 m LI Gi

sd T E‏ سا ل. سا Hai‏

Mm A | OW 1 bil i ch ۱١١ Î ٩۹ ١ Î ih TT ٩١ ۳ à

E " dm : SÉ (3 IO WI hi d LO A À nn Ü YÉ e Ú I m P d À ٨٨٨۷ | $

ER Hle

1 i

E 1

s= = H

= > H

a wΠQa '

Kl viel D 3 i Si ui

E d aos Sm ï

rb Wat "PV ma IX" Sg ui

b, ميا‎ WB lk 1 HN? g H TI (otia ER n}

NE 199 ud T ^ | mn UP USE se > E eR |

rH ۲ CA 1 i J 33452495:

pi Deum Mud wi dl " Dg EE DNE

WI Ce I اس ده سوت‎

J N) b D md PJ š, (OPEM worn Uu d

L ۷ "ETE Ka 1:28 H re BE Sri)

D bh ELE ELE T. = G E R E mu dus mmt i

[^ tb. » d ۷ h d dd 34 ۸» en el AN WW 1 ca Q- va | PE PTE L dt dal D i bv ri. i.t at? : kr ۷ ١ Sun اباب ين‎ f d i. '3 LE ٢ nal : ۷ engt e A | E BA BS = ! WE is PL T EI "as e y 1 ۱ 1 RE Su PNP DUE 159.19) e ۱١۱١١١ A O, f 1) ” i M) kan HE f ! l atum: d TEL ار و ر ا‎ 3 d dh | د‎ winr m | 1: Dun D ma: d md m m mn io” 3845:

J Pp 1 gen. SN D لس‎ Oo لی‎ MEE f Kai Km " UNO Tt "PES L DI À BN EERSTE =! ۱ EL: oul R Ch CEDE 0 vi | | 1 lin ' TE EO | HM n n IMP ١ 153 AE LAN M 18) Ji i 23 !اب کا‎ "| H Oh DU Ob, d ch pau s. OI 1 O G رر د‎ 1

s : m: ^ i g! KH H D TE 8 ۳ IS دت‎ ٥ 10e TS),

wd HE MILD » um d ٧ سم‎ © D

"miu m. M ECKE "M e hdl | cu Ane |

PIX y be, D : jl) Sn md ul ` ` a aah H

THE 5 do ms : d gë H : i "z i

m Ze qj 1 [M 1 ' Ex: pe 1‏ ار

Vu LE î dJ i d e Grieg 3 81 KE d

EE i

Dans cet article, nous allons découvrir comment exploiter les possibilités graphiques du 2068 via le langage machine, en

utlisant la plupart du temps les routine ROM.

Les adresses correspondantes pour le SPECTRUM seront données

entre parenthéses,

Toutes les adresses sont en nombres décimaux. FLOT

Cette routine se trouve à l'adresse 9790 (8933), Avant l'appel, nous chargeons le registre B avec la coordonnée Y (0-175) et le registre Û avec la coordonnée X (0-255),

Si nous voulons faire PLOT 10,50 alors nous aurons LD B,50 ;Y LD C,10 3X JP 9790 ;PLOT & retour en BASIC,

Le prochain exemple trace une droite verticale,

LD B,175 ;Y LD C,10 — 1X

LOOP PUSH BC sauvegarde de B CALL 9790 ;PLOT X,Y POP BC retrouve B DJNZ LOUP ;B=B-1,si B(>0 on

srecommence à LOOP

RET

DRAW

La commande BASIC DRAW X,Y trace Un droite à partir du dernier PLOT avec déplacement vertical et horizontal, positif ou négatif. À l'intérieur de la ROM, la routine se trouve à l'adresse 10259 (9402),

Avant l'appel, nous chargeons B avec le déplacement Y C avec le déplacement X D avec 253 si Y est négatif ou Í si Y est positif E avec 255 si X est négatif ou 1 si 13 Y est positif

Ainsi pour l'équivalent de DRAW 10,-50 —

LD 8,50 LD C,10

LD 5 TEN CALL 10259

IMPORTANT: À cause d'un "BUG" de la ROM, lorsque l'on revient de

routine et que nous retournons au BASIC, nous devons mettre dans le registre H'L' la valeur 11030 (10072) sinon le programme plante ...

Dans l'exemple suivant, nous faisons PLOT 0,175 et DRAW 255,-175 .

PLOT LD 8,175 ;valeur Y LD C,0 "valeur CALL 9790 ;ROM PLOT

DRAW LD B,175 ;déplacement Y LD C,255 ;déplacement X LD 1,255 ;Y négatif LEI $X positif CALL 10259;ROM DRAW

FIN LD HL,11030 EXX ;H*L?=11030 RET

CIRCLE

La routine CIRCLE se trouve à l'adresse 9842 (9005). Cette routine va chercher ses arguments sur la pile arithmétique, Il ` est facile pour le programmeur d'y mettre les valeurs nécessaires en utilisant la routine à l'adresse 12518 (11560) qui copie le

contenu du registre À sur le dessus de la pile.

Pour tracer un cercle, nous mettons dans l'ordre, les arguments suivant sur la pile: centre X, centre Y et le rayon,

Au retour de la routine ROM qui trace le cercle, nous devons charger le registree H'L' avec la valeur 11030 (10072) sinon on

"CRASH" <.

š , | دچ‎ T n...

Dans l'exemple suivant, nous faisons CIRCLE 100,80,75

LD A, 100 position X CALL 12518 ;A sur la pile LD 40 iposition Y CALL 12518

LD A,75 ;rayon

CALL 12518

CALL 9862 ;trace cercle LD HL, 11030

EXX (UL? 211030 RET

BORDER

Pour le charger du BORDER, nous pouvons écrire, dans le port 254, la couleur désirée, mais la couleur ne reste que de façon temporaire,

Pour un BORDER de couleur BLANCHE.

(BASIC) OUT 254,7 (MACHINE) LD 4,7 QUT (254),A

Pour changer de façan permanente, on utilise la routine située à l'adresse 9285 (8859), On charge l'Accumulateur (A) avec la couleur désirée,

LD 4,0 — ;NOIR

CALL 9283 ;ROM BORDER

RET

CLS

Pour un CLS complet de l'écran, la routine se trouve à l'adresse 2282 (3503). On l'appelle avec (BASIC) RANDOMIZE USR 2282 (MACHINE) JP 2282 ou CALL 2282 RET

Egalement, il est facile d'effacer seulement une partie de l'écran. C'est-à-dire seulement B ligne(s) à partir du BAS de l'écran. Cette routine est à l'adresse 2431 (3552). Si nous voulons effacer 10 lignes à partir du bas de l'écran:

-si la couleur du BORDER=couleur du PAPER ——

LD B,10 CALL 2431 RET

-si la couleur du BORDER()couleur du PAPER

LD 4,2 CALL 4454 ; (5633) LD 8,10

CALL 2431

RET

| REM petit prog graphiques

2 REM Personal Conputer#06

H 4 INPUT "Pause (1-50):";pa

10 FOR xz0 TO 14 STEP 2

20 FÜR i=8 TQ 50 STEP 10

30 PLOT 120+x,90+i+x: DRAW i,0: DRAW 0,-i: DRAW -i,0: DRAW O,i 40 PLOT 120-x,90-i-x: DRAW -i,0: DRAW 0,1: DRAW i,0: DRAW 0,-i 50 PLOT 120+x,90-i-x: DRAW i,0: DRAW O,i: DRAW -i,0: DRAW 0,-i 40 PLOT 120-x,90+i+x: DRAW 0,-i: DRAW -i,0: DRAW O,i: DRAW i,0 70 PLOT 119-x,89+i-x: DRAW i,0: DRAW 0,-i: DRAW -i,0: DRAW Oi BO PLOT 1214x,91-i*v: DRAW -i,0: DRAW 0,1: DRAW i O: DRAW 0,-i

100 OVER 1: PAUSE pa: NEXT i: NEXT x: GO TO 10

1 REM petit prog graphiques? 2 REM Personal Conputer#06 3: 10 BORDER 0: PAPER 0: INK 7: CLS : FOR x=0 TO 16 STEP Z 20 FOR i=0 TÜ 65 STEP à 30 PLOT 130+x,90+itx: DRAW i,-i: DRAW -i,-i: DRAW -i,i: DRAW i ,i 40 PLOT 130-x,90-i-x: DRAW -i,i: DRAW i,i: DRAW i,-i: DRAW -i, -i 50 PLOT 130-x,90+itx: DRAW -i,-i: DRAW *i,-i: DRAW i,i: DRAW - ij 60 PLOT 1304x,90-1-x: DRAW i,i: DRAW -i,i: DRAW -i,-i: DRAW i, 2 -i

100 OVER 1: NEXT i: NEXT x: BEEP .2,22: PAUSE 0: 60 TO 10

|! À VENDRE

16-1000; 78-2040; Périphérique MEMOTECH ( Mémoire, Clavier, KRG, I/F Imprimante, etc... ); Imprimante Thermique BROTHER HRS; Moniteur Monochrome 12"; Logiciels et Livres ( liste sur demande)

ñ, LAVIOLETTE 15-1385 Bernard Montréal H2V (Ni (514) 273-4103

TRUCS QL

Voici une fonction qui simule la fonction GEN du 2068. Elle retourne -1 si le nombre est négatif, 1 si le nombre est positif.

` 10 DEFine FuNction SEN (nombre) 20 RETurn (nonmbre?0)- (nombrec0) 30 END DEFine

Voici une procédure qui provoquera un RESET par logiciel.

10 DEFine PRüCedure RESET 20 POKE L 2^17,"1312837232" 30 CALL 2^17

40 END DEFine

Voici 2 procédures pour controler le vidéo,

10 DEFine PRüCedure VIDEO DN 20 POKE 98483,0 30 END DEFine

10 DEFine PROCedure VIDED_DFF 20 POKE 98483,3 30 END DEFine

Et maintenant 2 fonctions qui nous informent sur la mémoire du HL.

eM

La première nous donne la mémoire disponible. On l'utilise de cette façon: PRINT free_mem;" Octets disponibles"

10 DEFine FuNction FREE MEM

20 RETurn PEEK L(153855) -PEEK L | (163852) E

30 END DEFine |

La deuxième nous donne la capacité de l'extension mémoire qui est ! installée, On l'utilise de cette façon: PRINT exp_mem;"Kilo-octets "

10 DEF FuNction EXP MEM | 20 RETurn PEEK_L (143872) /1024-256 30 END DEFine

La mémoire-écran du OL débute à l'adresse 131072 et occupe 32K. | Pour sauver le contenu de l'écran, nous pouvons faire ceci:

SBYTES ndvi screen, 131072, 32758

Mais ces chiffres sont difficile à retenir. Pour nous faciliter la tâche, nous pouvons utiliser cet équivalent:

SBYTES mdvi screen, 2^17,2^15

NOUVEAU NEWSLETTER POUR LE 20468

Vous avez un 2068 et une interface de disque DLIBER? Saviez-vous qu'il y a "newsletter" pour vous! Son nom est "T$-2068 Safe Disk Update" et il parait à tout les 3 mois. Il traite bien entendu du DOS OLIGER mais aussi sur des aspects très techniques du 2068 comme les CARTOUCHES, EXPANSION RAM, et tout ce qui a rapport au HARDWARE. L'abonnement pour Í année est de $12.00 US,

16-2088 SAFE DISK UPDATE, 1317 Stratford Ave, Panama City FL 32404 USA

CARACTERES FRANCAIS avec FRONT PAGE

Vous possèdez le logiciel FRONT PAGE (QL) et vous voulez des caractères français?

SIN vous fait une offre: envoyez-moi un microdrive pu une disquette (5.25") plus 1$ (pour la poste) et par le retour du courrier, vous allez obtenir ces caractères français.

TOUCHE CARACTERE [ Á 1 à í È É ü Pour obtenir des caractères français dans 2 SN FOHT PAGE, charger le Fichier ACCENT FAT, : Le "CHARSET" à utiliser est ALT. : :

CLUB SINCLAIR

CLUB des UTILISATEURS QL 4000 BL. CENTRAL NORD DUBERGER GIP 3P9

CLUB des UTILISATEURS 2048 A/S PIERRE GAUDET

1805 CAMBERT

QUEBEC GIP ٤1

tà

Mn 0108

1 |

[

iaaa Í

kd

AD

Le?

gel‏ مسا =

ki

RE

Wm Le HE WH Um Mët سپ‎

EN د‎ L. asal "Zu سا‎ mg... K=