Le. POSEZ IAE Fr $ i eoi dd dc, E ade

PROG : QL- SUBSTITUTION, SURFACE

PROG : GROSSES LETTRES FACILES(C466)

INFOS : Utilisation des routines ROM du 2468.

INFOS : Un lecteur nous dit son opinion

sur le UL.

INFOS : La liste des BBS de la region de QUEBEC.

INFOS : Une unite de disquette pour le TS52B68.

PROG : Hero” ciue pour iii AS

TR EE A A AAA SQ 11 ,0,.8L i |

[SINCLAIR NERS]

MODEM 2088....,..

$99526291219203555122959520222535827821531385990135123115

Savez-vous que vous pouvez vous procurer un modea WESTRIDGE T8-2050 pour seulement 29,95$? C’est le nodem original pour le 78-2048, Il est complet et prêt à utiliser, mais il nanque seulement le boitier. J'en ai commandé un par téléphone et l'ai reçu en aoins de deux semaines. Je peux vous dire aujourd'hui que c'est très intéressant de communiquer avec les babillards et aussi les amis, Si vous êtes interressé vous pouvez en coamander un chez:

SUNSET ELECTRONICS 2284 Taraval Street, San Francisco, Ca 94116 i Pour commander, vous pouvez aussi téléphoner à | 415-855-6161, |

Yvon Lavoie MEMOIRE STATIQUE POUR LE FAUX RP I En cU wn

E, ARTHUR BROWN CO, offre - une cartouche de mémoire statique pour le 2068, Vous insérez la cartouche, vous écrivez des données dans celle-gi, vous éteignez le 2068, et les données | sont toujours présente dans la cartouche car elle contient une pile qui garde les informations a&me lorsque l'ordinateur est fermée, Pour plus d'informations écrire: |

E.A. Brown Company, 3404 Pawnee Drive, Alexandria, MN 56308, USA

UPGRADE MTERM, sesassssosneasusesosnsooenonsasnansoscsessososasono

MTERM est le logiciel de communication qui vient avec le MODEM 782050, LOADER V est une collection de 5 programmes qui comble les lacunes de MTERM. LOADER V vous permet d'ajouter 20 nuaéros au "directory" de MTERM, Augnente la vitesse pour la composition de nuséros et permet la reconposition du numéros lorsque celui-çi est engagé. Il ajoute le protocole XMODEM qui est trés utilisé lors de transfert de fichier par MODEM.

KURT CASBY, 25 Battle Creek Court, St. Paul, MN 55119, USA i

Une version de MTERM en &4 colonnes est disponible (en cartouche) 2 chez ZEBRA SYSTEMS,

LOGICIEL SPECTRUM DIRECTEMENT DE GRANDE BRETAGNE...,,,,,,,,,,,,,,

Voici une adresse fiable pour commander vos SOFTS du SPECTRUM d'Angleterre et ce, aux aeilleurs prix:

CUT PRICE SOFTHARE (Dept,&)

Unit & , Stuart House

Riverway , Harlow Essex CM20 2DW ENGLAND

Voici la procédure à suivre, Envoyez une enveloppe adressée et non timbrée et ' 1,00 pour les frais postaux,

Siaon Rioux, KIT AL : PRIX INCROYABLE,.......,

Le QL est maintenant disponible en kit au prix de $139 US, Pour infos: QUANTUM COMPUTING, POB 1280-C5, DOVER, NJ 07801, USA A+ COMPUTER RESPONSE, 68-B ISLAND ST., KEENE, NH 03431, USA ( Si vous voulez voir une annonce d'un cosmercant enthousiaste au sujet du AL, regardez COMPUTER SHOPPER ,Décenbre 86,p.272 )

Pour ce dernier numéro de l'année 1986, SIN vous offre quelques pages de plus. Ceci a été possible grace à la collaboration de lecteurs, comme vous, qui ont décidé de communiquer leurs expériences à leur semblable.

Simon Rioux, de Hull, devient un collaborateur fidèle à SIN avec ses programmes exploitant la commande SOUND du 2068, Dans ce numéro, il vous offre une "toune" de circonstance, Jean-Claude Touzin, de La Sarre, nous donne ses impressions sur son SINCLAIR AL tandis que Yvon Lavoie, de Québec, nous parle de son unité de disquette pour le 2048,

Merci à tous pour vos articles et programmes, ils sont grandement appréciés. Vos commentaires le sont aussi, alors n'hésitez à ne

contacter à aa nouvelle adresse indiquée à la dernière page de ce SIN,

je souhaite à tous une année 1987 pleine d'octets dodus...

Réal Gagnon.

| AL : Mon opinion...

Coane j'ai un OL depuis quelques sois, j'ai pensé vous faire parvenir nes premières iapressions, Mes commentaires ne font qu'effleurer le sujet car le OL est une machine très complexe (on apprend vite l'usage du bouton RESET sur le Bl...)

Preaiérement, pour ceux qui seraient tentés de se procurer un OL sais qui hésitent, je dois dire que je ne suis pas déçu, Le AL est un ordinateur très rapide et très souple, Et il vient avec 4 logiciels qui permettent d'eaployer l'ordinateur dés qu'on en fait l'acquisition, Ces nênes logiciels ont été adaptés pour 1'IBM PC sous le non de XCHANGE et se vendent environ $800 US... Les 2 aicrodrives de 100K sont égaleaent un atout quoiqu'en dise une certaine publicité. Cette publicité, d'ailleurs, je l'avoue, p? avait rendu néfiant à leur endroit. Je n'ai eu eu qu'une seule erreur de lecture à date (que j'ai pu récupérer) et je crois que je n'avait pas inséré la cartouche correctement.

Mais si vous aisez programaer, alors là le SUPERBASIC est une merveille. Placez-le en mode auto et le OL insère AUTOnatiquenent un no au début de vos lignes de programme. Avec EDIT et les 4 touches fléchées vous pouvez corriger à loisir. RENUM renuaérote vos lignes (jusqu'à 32767,..). Vous avez des commandes spécialisées comae RAD et DEB qui peraettent de passer des radians aux degrés et vice-versa, ou DATE qui retourne le noabre de secondes depuis le ler janvier 1941 Oh, jusqu'à la date courante (intéressant pour les amateurs d’astrononie),

Le Superbasic possède égalenent d'autres caractéristiques étranges pour un prograsaeur habitué aux anciennes versions de BASIC, Par ex, on peut écrire:

10 nombre=200

20 alpha$=nombre

Notez bien à la ligne 20, nombre n'est pas entre guillemets...Autre exemple, lors du déroulement d'un programe, si vous devez entrer une variable numérique, disons 0, aais que par erreur vous tapez 0,0 le üL s'en accoaaodera et en déduira que vous vous vouliez taper 0 sans afficher de message d'erreur, La caractéristique principale du BL senble être de nous siaplifier la tâche,

Mais la marque de commerce du SUPERBASIC est sans contredit la structuration des programmes à l'aide des procédures, qui permettent d'appeler des routines sans “spécifier de nos de lignes, seulement leur noa. Avant de prendre contact avec le @L je ne m'étais pas tellement intéressé à ce que l'on appelle dans les revues d'informatiques la "programmation structurée", Cette possibilité de créer un programme par bloc, sans avoir à se préoccuper des variables sur lesquelles la routine devra effecter des opérations, ni du no de ligne où la procédure sera iaplantée libère grandement le programseur. Je n'ai pas encore réalisé d'applications complexes sur le GL, mais je me suis déjà rendu compte d'un autre avantage des procédures: étant donné que le nom des variables sur lesquelles travaillent les procédures n'a pas à être le nême ailleurs dans le progranane, il devient trés facile de se créer une banque de procédures qu'on peut employer d'un prograane à l'autre suivant les besoins. Encore une fois le @L nous sinplifie la vie.

Il y aurait encore beaucoup à dire sur le sujet, mais j'aimerais maintenant vous parler de na première expérience avec une iapriaante 80 col. J'ai reçu il y a peu de temps aon imprimante QL avec interface série directement connectable au 8L. Sans avoir à changer les codes ASCII etc., on peut faire sortir les lettre françaises avec accent et une multitude de syaboles. Cette imprimante a également un mode NLA (NDLR: NLG = Near Letter Quality) trés performant, en fait on dirait presqu'une —iaprisante à aarguerites, En mode NLA, les caractères italiques sont parmi les plus lisibles que j'ai vus sur une imprimante à matrices de points de ce prix ($400 can), En passant, contraireaent à ce qui est rapporté dans SUM (avril 86), je n'éprouve aucune difficulté à charger ni

le papier ordinaire ni le papier avec des bretelles perforées,

Jean-Claude TOUZIN C.P.41 La Sarre, P.O, J92 2X4

Voici 2 programaes pour le OL. Le premier sert à calculer une surface quelconque et le deuxiéae et fort utile si vous avez un coupole et que voulez l'orienter le aieux possible, Ces 2 programmes sont un envoi de Jean-Claude Touzin, E

DL A E e 145,30)

-

Hated lez unites sont en

ARE pieds, les resultats seront des en pieds, $ ce sont dez P Metros ils seront en metres.

V3 Faites 1,9 0 CENTER) 0 (ENTER: [20,01 Lu NO ij. oen e E pe

UNE

1,41 ARE des Y

51 0,0 est le premier point, 30,0 est le deuxiene et 15,30 est le troisieme (sens contraire d'une montre).

10 REMark surface

20 REMark par JC TOUZIN

39 :

1900 CLS#h:CLS#1 : CLSH2

1019 INPUT "Combien de sonsets y-a-t-il? "¡ver

1020 sb=ver+1

1039 DIM x(sb),y(sb)

1949 DIM px(ver),pylver)

1050 DIM nx(ver),ny(ver)

1060 PRINT"Choisissez un sommet quelconque pour

débuter et indiquez les coordonnées x,y de chaque

somaet dans le sens contraire des aiguilles d'une

nontre."

1970 FOR i=1 TO ver 1210 PRINT "La surface mesure "iprd

1980 INPUT "x, y "¡x(i),y(1) 1229 PRINT "Le périaétre mesure "¡pe

1090 pxlid=x(i):py(i)=y(i) 1239 PRINT "Le rapport surface/périaètrez "¡rd 1190 END FOR i 1240 graphique

1110 y(ver+1)=y(1)3x (vers) zx (1). 1250 STOP

1120 pi=0:p2=0 1260 DEFine PROCedure graphique

1139 FOR ¿=1 TO ver 1270 naximua:ainisua

1149 j=i+1 1289 regr_lineaire

1200 pi=pl+x(1)8y(j) 1290 n=ver

1169 p2=p2+x(j)8y(1) 1308 FOR i=1 TO n

1170 END FOR i 1310 nxlid=(mpx8px(1))+0x+2:3ny(1)=(apy8py(1))+by+2 1189 perisetre 1320 END FOR i

1199 prdz, 5t (p1-p2) 1339 FOR i={ TO (n-1)

1208 rapport 1340 LINER2, nx (2) ny(i). TO mx (i1) ny(i 1)

1350 END FOR i 1369 LINER2, nx (1), ny(1). TO mx (0) ny (n) 1379 END DEFine graphique 1389 DEFine PROCedure perimetre 1399 pe=0 6 1400 FOR i=1 TO ver-1

1419 pespe+SORT((x(1)-x (1+1))%2+(y(1)-y(1+1))2) 1420 END FOR i

1439 pespe+S0RT((x(1)-x(ver))*2+1y(1) -y (ver) ) ^2) 1449 END DEFine perinetre

1450 DEFine PROCedure rapport

1460 rd=prd/pe

1470 END DEFine rapport 1620 DEFine PROCedure regr lineaire

1480 DEFine PROCedure maximua 1639 sx=ax+ainxisy=ay+ainy:sxg=75:5yg=85 1499 ax=px(1)smy=py(1) 1640 sx2zax^2eninx^2:sy2zny^2*niny^2 1508 FOR i=2 TO ver 1650 sxxyzaxisxgrsxyysnylsyg

1510 IF px(ilomx THEN ex=px li) 1660 apxs(sxxy-(sx1sxg/2)] / [sx2- (sx^2/21) 1520 IF py(i)»ay THEN ayspyli) Abxz(5xq- (apx 1x2] /2

1530 END FOR i 1679 apyz (sxyy- (syt15yg/2)) / (y2- (sy^2/2)) 1549 END DEFine aaximum tbys (syg- (apytsy))/2.-

1550 DEFine PROCedure siniaua 1689 END DEFine regr lineaire

1560 ainxspx (1) rainyspy(1)

1579 FOR i22 TO ver

1580 IF pxli}Cainx THEN ninx= px(í) 1599 IF py(i)<miny THEN ainyspy(i) 1508 END FOR i

1610 END DEFine ainiaum

DEUXIEME PROGRAMME:

10 REMark satellite

20 REMark JC TOUZIN

30 :

1000 WINDOW#9,512, 50, 0, 206: INK40, 4: PAPERE, Y 19104INDOW#1,256, 202, 257 , 01 INK#1,7:PAPER#1, 2: BORDERE1, 1,255 1020 HINDON#2,256, 202,9, 0: INK#2, 2:PAPER#2, 7: BORDERE2, 1, 255 1030 CLS +0:CLS #1:CLS #2

1049 instruction: datas: calcul

1958 PRINT \\'Ez= encore F= fin"

1960 LET ink$zINKEYS (-1)

1970 IF ink$z"e' OR ink$="E" THEN RUN

1980 CLS#9:CLS#1:CLS#2:LIST 1099: STOP

1999 REMark programme en sénoire:satellite

1100 DEFine PROCedure calcul

1119 long_sat=RAD(long_sat):lat=RAD(lat):long=RAD (long) 1120 diff longzlong sat-long

1139 t=1,821379E9-5,373748E83 (COS (1at) $COS (di £4. long)) 1149 hauteur

1150 azinut

1160 PRINT V Hauteur z^; elevation; "|"

1170 PRINT V Aziauthz"; az i auth; "["

1189 IF elevation (0 THEN PRINT "Ce satellite est plus bas que

l'horizon." M L>

1199 END DEFine calcul

1208 DEFine PROCedure hauteur

1219 t1:RADIt-1,740391E9)

1220 t2=RAD(12734450RT(t))

1230 t3=ti/t2

1249 elevationzACOS (t3)

1250 elevation=DEblelevation)-9

1269 END DEFine hauteur

1270 DEFine PROCedure azimut

1289 azisuthzATAN(TAN(diff long)/SIN(lat))

1290 aziauth=DEG (aziguth) +188

1309 END DEFine aziaut

1319 DEFine PROCedure instruction

1320 CSIZE 3,8:PRINT\"SATELLITE"

1330 CSIZE 0,0:PRINTA!"Ce programae indique consent orienter une antenne pour capter un satellite de votre choix.L'azimuth donne le nombre de degrés en partant du nord vers l'est.La hauteur est l'élévation au-dessus de l'horizon en degrés,"

1340 END DEFine instruction

1359 DEFine PROCedure datas

1369 PRINT#2 ,V* Choisissez le satellite que vous voulez capter (numéro 1 à 18);"

1370 DIM sat$(18,13)

1389 DATA "Aurora", "Satcos FIR", "Galaxy 1","Satcon F3"

1390 DATA "Comstar D4","Westar 5","Spacenet 1","Anik B"

1498 DATA "Anik D1”,"Nestar 4","Telstar 301","Nestar 3"

1410 DATA 'Constar D3",'Satcos F4","Westar 2","Constar

01/02" ,*Galaxy 2", "Satcon F2R”.

1420 RESTORE : FOR i=1 TO 18:READ sat$(i):NEXT i

1430 FOR iz1 T0 9

1440 ATRZ,1+3,0:PRINTHZ ,ij" -"ssat$(i): ATE2, 143, 20: PRINTE2 1*8" -isat (i 9)

1450 END FOR i

1469 INPUT 42, V Votre nuaéro? ";no

1470 SELect ON no 1569 ON noz?:long sat=194,5 1489 ON no=i:long sat=i4s 1579 ON no=10:long_sat=99 1499 ON noz2:1ong sat=139 1589 ON nozii:long sat=96 1594 ON no=3:long_sat=134 1599 — QN no=12:10ng_sat=91 1519 ON nos4:long sat=131 1609 ON no=i3:long sat=87 1529 ON no=5:long_sat=127 1619 ON no=14:long_sat=83 1539 ON no=b:long _sat=123 1629 ON no=15:long_sat=79 1549 ON no=7:long_sat=120 1639 ON no=16:long_sat=76 1559 ON no-B:long satz10? 1649 ON no=i7:long satz74

1659 ON no=1B:long sat=72 1669 ON no=REMAINDER :RUN

1670 END SELect

1689 INPUT 42,1" Votre latitude (nord=positive) en deg. et déc.: *ilat

1690 INPUT #2," Votre longitude (ouestzpositive) en deg. et déc.: "¡long

1700 END DEFine

1710 REMark SELect ON remplace une ligne de ce genre sur le 781009 ou le 2068 :LET

long satz(1431(noz11) (1391 (no22) ) * (1341 (no0=3))+(1313(no0=4))+(12- 7t (nos51)* (1231 (n020)) * (1201 (1027) * (1091 (no=8) ) 4 (104, 5% (n0=9))+- (991 (n0219)) * (961 (n0211)) * (911 (n0212) ) * (87$ (n0213) ) 4 (831 (no=14))- *(791(n02151)*(76£(n0216)) * (743 (n0217))* (721 (n0218)) ou une série de IF... THEN

es u

(source SINC-LINK, newsletter du T/S TORONTO USER GROUP, téléchargé de COMPUSERVE DATA LIBRARY AUGUST 1984)

NOTE: Toutes les adresses sont HEXADECIMALS.

CALL 436 --- BEEP Pour faire un BEEP X,Y il faut que X,Y se retrouve sur le pile arithnétique, exemple: pour BEEP 1,30 -> LD A,1 CALL SOEó6jplace le contenu

LD 4,30 ¡de A sur la pile

CALL 30E6 CALL 435 ¡BEEP CALL BAA --- CLS CALL BA? --- CLS DU BAS DE L'ECRAN CALL 939 --- SCROLL L'ECRAN D'UNE LIGNE CALL 93B --- SCROLL À PARTIR DE "B" LIGNE,

On charge le registre B avec le nunéro de la ligne du haut et on 'CALL 938". Les lignes au-dessus de la ligne B seront laissées intactes.

CALL 97F --- CLS À PARTIR DE "B* LIGNE, Siailaire à ci-dessus sauf qu'on CLS au lieu de SCROLL.

CALL 802 --- COPY D'ECRAN SUR ZX PRINTER

CALL DID --- NEW

CALL 1788 --- PRINT NOMBRE Inprise le nombre contenu dans BC.

CALL 1FF2 --- PAUSE

On charge BC avec le "temps" de la PAUSE, y +

18

CALL 26EE --- DRAW X,Y,Z Les paranètres doivent présent sur la pile arithmétique. Nous devons sauvegarder le registre PL’ car il est corrompu par la routine. exeaple : EXX PUSH HL EXX

s .FOutine DRAW

RET

CALL 2813 --- DRAW X,Y Ün aet ABS X dans C, ABS Y dans B, SEN X dans E et SEN Y dans D. On doit sauvegarder H'L' (voir plus

haut). CALL 3044 --- TEST ALPHANUMERIQUE Retourne CARRY si À contient une lettre ou un chiffre, CALL 3048 --- TEST ALPHA Retourne CARRY si À contient un lettre, CALL 3009 --- TEST NUMERIQUE Retourne NO CARRY si CODE "0" <= À >= CODE "9" CALL 30E --- CONVERSION DE À EN VIRGULE FLOTTANTE

Conversion du contenu de À en virgule flottante et le place sur la pile arithaétique. -

CALL 30E8 --- CONVERSION DE BC EN VIRGULE FLOTTANTE Conversion du contenu de BC en virgule flottante et le place sur la pile arithaétique,

CALL 3160 --- TRANSFERT LE DESSUS DE LA PILE ARITH. DANS BC CALL 3141 --- PRINT UN NOMBRE EN VIRGULE FLOTTANTE

Imprime le dessus de la pile arithaétique. CALL 1541 --- PRINT UNE LIGNE DE PROGRAMME

Imprime une ligne de programme donc l'adresse est contenu dans HL.

CALL 1606 --- ADRESSE D'UNE LIGNE BASIC On charge le nunéro de ligne dans HL. On appelle la routine et au retour HL contient l'adresse de cette ligne.

CALL 2503 --- CALCUL DE POSITION DE L'ECRAN On charge C avec la coordonnée X et B avec la coordonnée Y, Au retour HL contient l'adresse correspondante dans la mémoire écran et À contient la position correspondante dans l'octet,

CALL 263E --- PLOT X,Y

On charge C avec X et B avec Y, CALL 284] --- DESSUS DE LA PILE ARITH, DANS A CALL 2585 --- CIRCLE Y,Y,1

On doit placer sur la pile arithnétique les trois paranètres, On doit sauvegarder le registre H'L' qui sera corrompu par la routine. exemple: EXX jsauvegarde H'L'

PUSH HL

EXX

LD A,coordx

CALL 30Eé

LD A,coordy

CALL 30E4

LD A,rayon

CALL 30E6 CALL 2686 ¡CIRCLE x,y,rayon EXX jretrouve H”L* POP HL EXX

CALL 21DB --- PRINT CHAINE DE CARACTERE

Inprise une chaine de caractère de longueur BC, partant à l'adresse DE,

des BBa de la region de QUEBEC |

(Cette liste est "downloadee" du BBS CAR qui est le BBS du Club Atari Quebec)

> 647-2616 TROC 64

428-2222.

BBS du 200 872-4298,

CFLS 833-2157, — (18h a 9h +FdS 24/24)

Babillard Rive-Sud (BRS) 835-3294, — (18h a 23h +FdS 24/24)

BBS ST-DAVID 833-4117, — (21h a 12h)

FORUM -ancien TFS

557-4887, L 11

lc

COCO-BABILLARD -club d'informatique du CEGEP de LIMOILOU 647-6613, — (Lundi-Jeudi 17h a 8h A.M, Vendredi 17h a Lundi Bh A.M)

MICRO-BABILLARD QUEBEC 687-4869, — (24h.)

DATAPAC -Service offert par Telecom Canada, 547-4690, (24h,) Code 9210 0085,F

TELCOM-64 927-2007. (24h.)

Universite du Quebec -Acces a des services divers Infopug, Platon... 657-2708, (24h) Taper AIDE et/ou LISTE

BBS du Club Macintosh -Ancien Tele-Foyer 558-5424,

TELESTAQ 845-1019. — (24h.)

LAB 548-9601. — (24h)

P.C. BEAUPORT 833-7136, — (24h.)

BBS Micro Info -pour ATARI 626-5616,

JE SIGNALE QUE LES TARIFS DE DATAPAC PASSENT DE $3{US) À $12(U5)/HEURE, AVIS AUX INTERESSES! LES MANIAQUES DE COMPUSERVE OÙ DELPHI ATTENTION À VOTRE PORTEFEUILLE! (suite page 24,,,)

Sinclair

ARACTERE DOUBLE HAUTEUR p db

Voici une petite routine qui est bien utile pour le 2058, Cette routine sert à écrire avec des caractères double hauteur, Elle se situe à partir de la ligne 1909. Avant d'appeler celle-çi nous devons spécifier les variables suivantes:

ligne --) nunéro de ]a ligne colonne --) numéro de la colonne a$ --) le texte

Cette routine est tirée du ZX COMPUTING du mois Octobre 1986,

19 REM DEMO DU PROGRAMME DOUBLE HAUTEUR 20 : 39 LET LIGNE=ÿ: LET COLONNE=0 40 LET A$="Ceci est un test" 30 6OSUB 1000 50 LET LIGNE=LIGNE+2 79 LET COLONNE=0 80 LET A$="de la routine qui imprime" 90 B0SUB 1999 190 LET LIGNE=LIGNE+2 110 LET COLONNE=0 120 LET A$z'EN DOUBLE HAUTEUR" 139 GOSUB 1000 140 STOP 999 | 1008 FOR A=1 TO LEN AS:LET C=15616 * (BE (CODE A$(A)-32): FOR B=0 TO 7: LET D=(USR "a'*(b12)): POKE d,PEEK (c+b):POKE (del), PEEK (C+B): NEXT B: PRINT AT LIGNE,COLONNE; "A" ;AT LIGNE+1, COLONNE; "B*:LET COLONNE=COLONNE +1: NEXT As RETURN

NOTE : --) Caractère "A" en node GRAPHIQUE

À B --> Caractère "B" en mode GRAPHIQUE

13

14

L QL-SUBSTTTUTTO |

DESCRIPTION

Voici un prograsae qui a une fonction très utile qui peut vous Sauvez plusieurs minutes de travail acharné, Il prend un fichier quelconque (BASIC, texte...) et recherche un item que nous lui spécifions et le remplace par un autre, Voici un exemple, Supposons que vous venez d'acquérir un lecteur de disquette et que vous voulez changer tous les MDVs pour des FLPs alors le programme que voici le fera en un rien de temps...

MARCHE & SUIVRE

Le programme vous demande en premier lieu le non du fichier à aoditier, exemple -> Le noa du fichier à aodifier : advi test bas

Puis vous donnez le non du nouveau fichier modifié. exempel -> Le nouveau fichier iflpi_test2 bas

Ensuite vous donnez l'ites à changer et avec quoi on le remplace, exemple -> L'iten à renplacer + ndy et on le remplace par : flp

Les 2 WINDOWS du centre vous montre le fichier original et le nouveau fichier au cours du traitement. Un autre petit WINDOW nous donne le nombre de lignes traitées et combien de aodifications ont été effectuées,

IMPORTANT: Si le prograane est interrompu à cause d'un message d'erreur, il est important de taper CLEAN afin de fermer les fichiers.

PROGRAMME GL:

100 REMark GL-SUBSTITUTION gag-0 octobre 8b 119 :

128 :

280 MODE 4

299 WINDOW 512,256,0,0:PAPER O:CLS

399 WINDONRO, 400, 44,50, 9: BORDERKO, 1,7

310 PAPERRO, 0: INK#8,7:CLS#Q

320 WINDOWEI, 512,100, 8, 4S: BORDERH1,1,7

330 PAPEREL, 9: INK#1,7:CLS#1

349 WINDONE2, 512, 100,0, 146: BORDER#2, 1,7

350 PAPERY2,0:INK#2,4:CLS42

369 :

370 INPUTRO, "le noa de programae (ex, advi progl) :";prog$ 3809 INPUTRO, "le nouveau programme (ex. advi prog?) :"iprogi$ 399 INPUTHO, "L'itea ou le aot à changer 3"jitea$ 400 INPUTEO, "et on remplace le not ou litem par — :"jchange$ 40:

420 :

439 WINDONRO, 133,24, 370, 15: PAPERKO, SB: BORDERHO, 1, 7:CLSHO 440 OPEN $6,prog$

450 OPEN_NEW#7,progi$

460 :

470 :

480 IF items INSTR change$:PRINTHO, * SUBSTITUTION” V ILLEGALE LIEU PAUSE: cl ean: RUN

490 ligne=ismodification=0

500 PRINT#9,’#ligne courante: V #aodifications 1”

910 : |

929 :

334 REPeat loop

549 IF EOF 5) :EXIT loop

559 ATED, O, Lbs PRINTED, ligne

360 ATO, 1, 16: PRINTEO, modification

570 INPUTHE, ligne$

980 PRINTH, lignes

390 verification ligne

500 PRINT#2, Ligne$

619 PRINT#7, lignes

620 lignezligne*i

539 END REPeat loop

540 clean

659 WINDOWED, 200, 43,100,120: BORDER+O, 1,7: CLSHO

669 PRINTHB,TO 5,' SUBSTITUTION TERMINEE,”

679 PRINT#Ø, TO 3,'APPUYER SUR UNE TOUCHE POUR '

589 PRINT$O,TO 11,' CONTINUER'

699 PRINTO, TO 5,'0U <8) POUR TERMINER.

709 REPeat loopri$=INKEYS: IF 1$O "EXIT loop

719 IF i$szz'q'

729 PRINTéQ,'Retour au SUPERBASIC.':STOP

730 ELSE

749 RUN

759 END IF

760 : L »

15

16

774 :

780 DEFine PROCedure verification ligne 790 positionzitens INSTR lignes

890 IF position

810 aodification=nodificationt!

820 IF position+LEN(iten$) >LEN(lignes)

821 ligne$=ligne$(1 TO position-i)kchange$:RETurn 840 ELSE 859 ligne$=ligne$(1 TO

position-1)kchanges$klignes (position+LEN(item$)TO LEN (ligne$)) 960 END IF 878 ELSE 8860 RETurn 899 END IF 960 verification ligne 919 END DEFine 920 : 930 : 949 DEFine PROCedure clean:CLOSE#b:CLOSE#7:END DEFine

"TERI de DISQU |

Tout le monde sait qu'un des gros problèmes du 2X-81 et du 18-1000 était de sauver et de charger les programmes. On sait aussi que le 15-2068 est une nette amélioration pour la rapidité et la fiabilité aais les progrannes sont généralement beaucoup plus longs.

Après environ 4 ans d'utilisation de mon bon vieux magnétophone, je croyais qu'il était temps de passer à autre chose de mieux. Depuis 1 an et demi à 2 ans, plusieurs interfaces pour le TS-2068 existent, Après avoir pris connaissance de plusieurs annonces dans des magazines, j'ai communiqué avec 4 ou 3 compagnies, J'ai alors reçu d'excellentes documentations et j'ai eu à faire un choix. C'était très difficile de choisir parce qu'il était pratiquement impossible de trouver quelque chose de complet à moins de 300,00$. Je n'était pas intéressé par les micro drives qui étaient pour aoi un genre de système à cassette aodifié, Pour le prix, c'était celui de Larken en Ontario qui était le moins cher. D'autres étaient beaucoup trop cher ou avaient des faiblesses qui les rendaient moins intéressants. Mon choix s'est arreté sur celui de John Oliger. Les principales raisons qui ont justifiées ce choix étaient les suivantes:

l- 11 contient un EPROM de 8k pour le Dos ainsi qu'un 8k de aéaoire statique. C'est donc dire que la aéaoire standard de l'ordinateur n'est jamais réduite ou touchée par l'interface,

2- 11 fonctionne en TS2068 et en SPECTRUM comme pour la cassette,

3- Il peut accepter des unités de disquettes de 3", 3 et demi ou 5" et quart,

4- 11 peut accepter 4 unités de disquettes en nêse temps et chacunes peut avoir des spécifications différentes (on peut utiliser des unités de disquettes de 3" avec d'autres de 5" et quart),

3- On peut l'acheter non assesblé afin de payer aoins cher. C'est ce que j'ai fait et il est très facile à assembler.

b- Il contient un interrupteur qui permet, lorsqu'un programe est en aésoire, de le sauver sur disquette en appuyant seuleaent une touche. C’est très facile et on peut sauver tous les programmes, aêne les aieux protégés.

7- Il est extréaenent rapide et fiable, Le temps pour sauver ou charger un prograame est de 4 secondes,

8- Il est extrénenent facile d'utilisation. (n se sert des sots clés du clavier coame : SAVE, LOAD, FORMAT, MOVE, VERIFY COPY et CAT. Je pourrais continuer à nomaer beaucoup d'autres qualités mais cet interface a quand a&me des défauts, Les principaux sont les suivants:

l- Lorsqu'on charge ou sauve un programme, le travail se fait sur la aénoire compléte. C'est 50k à chaque fois. Il est alors iapossihle de se servir de l'instruction MERGE,

2- On doit créer nous-aéne le directory mais il y a dans la docuaentation un programme qui nous pernet de le créer très tacilement.

3- Sur un disque [BM compatible de 40 tracks DS/DD, on peut sauver B programmes quelqu'en soit la grosseur, Celui que j'utilise présenteaent en a 80 DS/DD et je peut sauver 16 programmes. C'est quand aéne très bien, J'ai commandé cette unité de disquette chez B.6. Micro aux Etats-Unis et l'ai payé 39,95$ US. Ca fonctionne très bien. 7

ler

17

18

Apres avoir utilisé ce système pendant 4 à 5 mois, je peux dire que c'est une petite merveille, I1 est très fiable, très facile d'utilisation et très rapide. Si vous avez déjà reçu une documentation de John Oliger, vous pouvez avoir confiance parce que tout est vrai.

Vous êtes probablement intéressé à savoir coabien peut couter un système conne ca! Voici:

1- L'interface: 220.00$ canadiens non asseablé incluant le cable qui vaut environ 20,00$ (John Oliger s'organise pour qu'on ne paie pas de douane).

2- Un power supply de Pro Technique à 20.00$,

3- Une unité de disquette de 50.00$ à 150.00$ dépendant ou vous l’achetez,

DERNIERE HEURE: Je viens de recevoir ce soir une lettre de John Oliger qui annonce la disponibilité d'un nouveau DOS. Ce dernier crée lui a&ae son directory, il peraet de sauver seulement une partie de la mémoire, il donne un aoa à là disquette au nonent du FORMAT, Il continue à supporter les consandes de l'ancien DOS ainsi que les disquettes écrites par cet ancien DOS,

pec Yuon Lavo tE

MICRO- AUSTU

Siaon Rioux vous propose d'autres programmes de Micro-Musique pour votre 2068. Ses programmes ont le nérite d'exploiter efficacement la aystérieuse commande SOUND qui exploite le "chips de son" qui réside au coeur de votre 2068 au lieu du ridicule BEEP des programmes "spectrumesque". Il est vrai que le nouveau SPECTRUM 128K +2 possède maintenant le ngne circuit, alors si ce sacré Alain Sucre peut se décider nous l'ofírir à nous pauvres Nord-Anéricains qui sommes surmergés par l'infgme COMME-ON-DORT bhas

> cu E sl x Oo ^ [DODU EA M bb gU mt DL Uri ed Po m SU UE f ut ovs pc Fe cO E ATTE 03 -Ügpnni

«eg Un dud cubo irm 4 rati nur. ia m : PU Pu. o i eur. EIL rd. nup. nang sun E "d rmi

"T

P

e an

4n [D T [T ni Fur

pe a ne

P fe cu

^ rl Cu CE Ur cC Uo ee xr n

1 e E

SO CC C CE VL Cad

EET

"M EE c CE e CE CE. t- d n ES |- LL «+ d GI CE

Lu CE MEL ICE

DE

E DU EG If 3 P» ua

en

ng wi

Wim

riu

al.

FE EL alf] EL. gae CL ga TIA

V LE guy sime! Ta Hr ra uoa a ra A ie r m

nn

nns

pe mp gp ccm

OA

Ll

zl

nj WM. MM

Li [TT

esce EE e

n (cu

"m LEA] Pere EE

vA DNO H EL [Li

EL ul It

mieu --

del

"n "ng cà

mu

hiec nnd od ec Er E IE 4 CL i

Sa |

Vr ! ce

DO uu i l i| JE c LEE

ZH FACE LE

a raln

TOT 44 np npe ey eu ni

Wa uua np np en

Qe» LM ETS

E cp DJ 3M EE

AE IL. CE CL

3 ia eu e P E z Fr i3 et 1] " DES pem eaim mai

EI Ww un rar v

el

NOTES SUR "2068 + UNITE de DISQUETTE" (p.16)

ec

Dans cet article, M. Yvon Lavoie nous parle de l'achat de son controlleur de disquette pour le 2068. Voici quelques détails supplémentaires, qui seront intéressé le lecteur,

Preniérenent voici l'adresse de John Oliger :

The John Oliger Co. 11501 Whidbay Dr. Cumberland, IN 45229 USA

Si vous voulez un catalogue, écrivez-lui et inclure $1 pour les frais de poste. Oliger propose également un programmeur d'EPROM (2754/27128), un interface parallèle un port Joystick compatible KEMPSTON et bien d’autres... Tout ça est offert soit tout monté, en pièce détachées ( donc soudure requise ) ou bien seulement sous la forme de circuit imprimé., Oliger offre un service de prenière classe tant par le délai de livraison que par la qualité de la documentation fournie avec ses interfaces,

Pour nos lecteurs de l'extérieur de Québec, mentionnons que Pro-Technique est un aagasin de pièces électroniques de la région, Leur adresse est :

PRO TECHNIQUE 383 la Canadière Québec Tél.: 529-5774

En ce qui concerne B.G. MICRO on peut les rejoindre à l'adresse suivante:

B.6. MICRO

P.0, BOX 280298

DALLAS TEXAS 75228 USA

Tél.: (241) 271-3546

Regardez dans COMPUTER SHOPPER pour plus d'inforaations sur leurs prix.

SIN parait au deux mois et un abonnement E

comprend 6 numeros. Si vous desirez une liste des sommaires des anciens numeros, envoyez 1$ a l'adresse cues

Si vous êtes abonné a SIN et que vous possédez un ÜL,envouez-moi un microdrive formatté plus $1 et recevez par le retour du courrier un programme écrit sous ARCHIVE pour classer vos sommaires de SIN! Pour toutes correspondances écrire à:

Real Gagnon 4874 Henri Julien

Montreal P.Q. HeT 2E1

Abonnement UB nos2........ esses ,. $15.80 Liste des SOM Fes $ 1.88 féètens Numéros er. losses $c.ü08

(tous disponibles? + .5Ü pour poste

nor FESSER ADR UA AA114404040040240444404139449040415410390+04040994044+040 RSR OO 444 444304 9*9 9999»*9€9*99?*9699299*999*99)9*999669*55À).9À79*9529^228 ORDINATEUR TS1808/7X81 S52068-S3PECTRUN

SINCLAIR GL 2.

ANE

AUTRES

(suite de la page 12) C 665...)

BBS signifie Bulletin Board Service ou BaBillardS si on veut. Même si ils sont souvent gratuits et il faut néanmoins s'inscrire officiellement au SYSOP, qui se trouve à être le SYStem OPerator, Pour ce faire, on lui laisse habituellement un message personel lui indiquant votre noa, le noa de votre ordinateur ainsi que votre no, de téléphone. Pour des raisons assez aystérieuses les gens sont toujours portés à ne pas donner leur vrai nom ou no, de téléphone, ce qui est vraiment dommage car la principale victime se trouve à être cette afae personne qui se verra par la suite refuser les services les plus intéressants du BBS,

Cosme la plupart des BBS sont opérés de façon bénévole, il n'est étonnant qu'ils disparaissent aussi vite qu'ils apparaissent. Ces disparitions sont souvent le résultat du sanque de participation des usagers, En effet pour qu'un BBS soit intéressant il faut non seulement appeler aais égalenent s'en servir soit pour partir des discussions, pour poser des questions ou donner des réponses.

Le aonde de l'informatique étant ce qu'il est, les ordinateurs SINCLAIR sont loin de former la majorité des nembres actifs des BaBillardS. Cette situation pourrait changer avec la baisse de prix du MODEM T52050 (voir SINCLAIR NEWS), Qui sait peut-être qu'un jour nous verrons un BBS québecois avec une section spéciale pour les usagers SINCLAIR,..

Sinclair

Rédacteur: Réal Gagnon, 4870 Henri Julien Montréal P.Q, H2T 2El Collaboration: Yvon Lavoie,Jean-Claude Touzin,Siaon Rioux. Ce bulletin est conçu avec l'aide du traitement de texte QUILL (PSION) et de TASPRINT (TASMAN SOFTWARE), L'impression se fait sur une imprimante STAR NX-10,