555555 IIIII ын ы s I ым ы = І м М М 55555 І М м м

5 i N MON

5 I N ND 5585555 ІРІТІ ы М

-Sinclair Information NMouvelles-—

s Ча. septembre iFa

$ 2.00

Redacteur: Real Gagnon ( 544 Hermine #2 Quebec P.Q. GIN 266 ) Ce uiletin est conçu avec l'aide de traitement de texte TASWORD ТТ de Tasman Software (version TSzO068) ек d'une imprimante SMITH-—-CORONAÀA, Fastest BO.

жж DANS CE NUMERO жж

*PROGRAFNMIME GENERATEUR DE CARACTERE, redefinir complètement le set cde caractères du z068 et maintenant chose

facile

PROGRAMME

LDIR, explorer les possibilités de cette instruction propre au 280.

ЖРБРОаБКАММЕ : TOOLKIT LLTRARES 2058, exploiter 17 "EXTENDED COLOR Si А е cR n S - ^ S MODE" aui etait inaccessible 9 jusau'a ce Jour. *xTECHNMIQUE : Simuler les commandes SOUND et STICK avec 1а ROM du COT OT OI ISA C24 Е Ае та ата Та

—— ———

T ACTUALITE SIN

" *

Ам moment mua disponible Officiel du

scrdtesces lianes жене nord-americain, Le le САМАРА в EDS Electronics d DrivesDownsvicu ONTARIO, MST

ате і сат

CNE

Si VOLLE non-mocdifi

AR PET ДАМ

d

3 logiciels rire a E.

ALBER

er, pm zb

Lëck du сім NIS

Sur un я Pour

n^ un mogha) BANK SHIO

un tour ch

3

APLT OA. touch

эш LUE СИ я d SQ ST

+} пин

Pour;

PAPERI INE

i SL С

GENERATEUR de CAR

Ce programme permet de redéfinir В caractères du TS2068, soit des codes ASCII 5 Pour се іғезіі y à 2 méthodes cimal ou binaire, Le progr eut da type "MENU DRIVEN", jae aue toute l'information пас pour bien utilisé le GEMERATEUR est inclus N’ ау ух аи? а choisir une des options proposeos,

„gmit с

aire

des menus , VOUS

SUR d m дед А Е A з o cv OPTION #1 -Cette option vous permet de complete

к cteres aue vous n'auriez pas eu le temps de ker- miner,

OPTION

Permet une vue d'ensemble du travail accompli.

OPTION £f

ы:

“Crest igi QUE VOUS créez vos propres caract imalsvous donnez une nouvelle vale Lots qui f ele 2T lacer le

lai

chacun 5 binaire, d'une arilles ON INK) met la

laisse a 176 t OFF (PAF td

OPTION Ba»

Sur 5 du travail pour l*'utili эп future

VOUS Seront d в alors,

OPTION #8

option vous permet d'agencer vos caracteres Ou comme bon il vous semble et "ier a — l'ecran A LOOK" de vos carac! ou UDs vous

UD Ga

si le "поцува plait.

OPTION An

= " vom nouwv caracteres et recopie SINCLAIR standards,

"n

OPTION S10-Fin

РА * effectue, a noter d

programme. La commande МЕШ * . : am lr,

Sont toujours en

Votre

l'u-

a

ire pointer Та cett

36060 et PONE це revenir au * жарт e "n т, ën Let MA es ^

Pates: PORE 2025065,0 et PONE 23507,50.

% Ceres

Les de

BE E la ligne 4500 sont une routine en langage mar chine qui copie très rapidement les caractère SINCLAIR dans : RAM. Veuil: noter que à la ligne 9800 il s'agit bien du TO BIN. ecrire BIN lettre par lettre,

GAG E E EEN GENERATEUR de CARACTERES GAG-0 1984 2 CLEAR &3000 10 ай SUR 9500 15 BORDER D: PAPER 0: INK 5: CLS 14 LET 0=0: LET іп=0: LET сөріге UREN ee iain f ed э шй MENU 25 G0 SUR 150 30 CLS : PRINT АТ 0,4; INVERSE L:'GENERATEUR de CARACTERES"? AT 1,9:"GAGNON-a 198 cteres"'" 2-Vue du set de caracteres"'" I-Modificaticn d'un caracteres''" 4-Charge un set d'UDGs" 35 PRINT * 5-Vue des UDGs''" &-Modification d’un Шая!" 7-Sauve caracterez/UDGz" 5 d'essai"? cteres"'"10-Fin du programme" 40 PRINT °’ TAB ze, -UDG- signifie °" USER DEFINED GRAPHIC." 45 INPUT "Votre choix (1-Bji'si 3B IF (012104017100) THEN 60 TO 45 35 ВЕЕР .1,3%1: FOR а=0 TO 7: ВЕЕР a/100,60: PRINT AT із, OVER 1; PAPER aj" 100 IF 1=10 THEN NEW 105 GG SUB 10054110081): GO TO 30 TIO REM o ee Eege CARACTERE SINCLAIR 155 POKE 23507,80: RETUR EE CARACTERE REDEFINI 185 POKE 23507,249: RETURN 200; REM a НИЕ: OPTION #1 205 LET copie= МОТ copie 210 CLS : PRINT АТ 10,15" CHARGE d'un set de CARACTERES” 215 60 SUE 2000: RETURN SO RENE E OPTION #2 385 CLS : PRINT AT 0,3: INVERSE ti VUE du set de CARACTERES ' 310 PRINT '''sDu code ASCII 32 а 127'''Sauf STICK et FREE" >! 315 IF NOT copie THEN 50 SUR 9500 320 GO SUR 140 325 PRINT ° "$: FOR іг! TO 94 STEP à: FOR 4=0 TO 5: LET Ие СН СИИ 330 IF =" STICK " OR Jet FREE " THEN NEXT ji 335 PRINT j$" vr NEXT j: NEXT i 340 GO SUB 150: PRINT АТ 20,0;"Une touche..." : PAUSE O: RETURN pes c ыш з „А Эй сузу г» үл OPTION #3 405 CLS : IF NOT copie THEN GO SUE 9400 410 PRINT AT 0,7; INVERSE 1:* MODIFICATION * 415 INPUT "Quel caractere:": BME cá 420 PRINT ''Le caractere mr: 60 SUB 140: PRINT Crit GO BUR 150: PRINT ***...,. "ы: PRINT Sgr? 425 IF CODE с$=0 THEN ВЕТ URN 430 LET kzi44: GO SUR 2050: LET a=3: LET 11=0 435 FOR х=159 TO 152 STEP -1: LET aza*i: PRINT AT 8,10:: FOR gz112 TO 119 440 GO SUB 2050 343 NEXT уг IF 1=3 THEN PRINT OVER 1; INK I$" "3 INK 8; PEEK (54000 (Әжі CODE С-З) 446 IF 1=6 THEN PRINT OVER 1; INK 1i" sr INK 6: PEEK | USR сені) 447 LET ішін: NEXT x 30 LET kz?2: 60 SUR 2050 453 LET 1-13: 455 FOKE 22458,0: INPUT "Binaire ou Decimal (b/di:"i LINE i$: IF i$="b" THEN 50 TO 2100 IF i$ <> "d" THEN G0 TO 455

auri"; LINE уйі IF v$z'* THEN 60 TO 445

S-Efface vo

4''' INVERSE Di 1-Сһағав un set de

ac

"; NEXT

Cara

Di

470 IF п>255 THEN 60 TO 445 (soie, de le: pe pie cue) 471 IF ізі THEN POKE (6400084 CODE с$-32)+4),л ~ 472 IF 155 THEN POKE USR chyn 475 LET men: PRINT AT 1,103: GO SUB 2080 АВП FOR usi TO 8: 60 SUR 2070: NEXT w: PRINT OVER i; INK Li" ^": INK арт: LET lelel: NEXT а 485 INPUT "': PRINT 8i"Le resultat est [ "it 60 SUB 150: PRINT Шс}: 60 SUE 150: PRINT 80;" 1 pour С "ic; J": PAUSE 32

0: 60 Tû (400 AND 1=3}+0700 AND 1=8}

ОВО НЕМ, ии тз 2-24 2.74.7 р OPTION #4

505 CLS : PRINT AT 10.9; INVERSE 1;" CHARGE UDG:

510 60 SUP 2000: RETURN

580 БЕМ ааа VUE des UDGs

205 CLS : PRINT AT 0,9; INVERSE 1$" VUE des U D Gs "7777?

810 FOR j=144 TO 152 STEP 2: PRINT ' "i CHR$ ji" °; CHR (ізін: NEXT j

515 PRINT : PRINT : FOR ізі TO 152 STEP 2: PRINT * °; CHR$ ij" "3 CHR (air NEXT i: PRINT °°" "¢; CHES 154: PRINT °°?

"Une touche..."': PAUSE 0: RETURN

VOD RENS Ose 7 буы ri MODIFICATION UDG

705 CES : PRINT AT 0,5; INVERSE 1:8 MODIFICATION UDGs "

e POKE 24555,8: INPUT 'Quel T iG (АД: LINE сї: LET о=0: IF CODE c$-D THEN RETURN 5 IF СА" OR с> "0" THEN 60 TO 710

720 PRINT "Le UD G EF SEN ( CODE C$479);" Le Tic" F

725 LET c$- CHAS ( CODE c$472): GO TO 43D

SAUVE UDG/CÀR

2-UDGs"'" J-Caractergs*UD6s*

F pt "n ER 3 THEN 80 TO B15 i : IF с=1 OR c=3 THEN PRINT "Sauve les caractere "ri" INPUT "Le nom"; LINE n$: PRINT nf''Pour utiliser Ces caracte tests dans vos programme:'"''CLEAR 43999:LOAD nom CODE" "POKE Z3505.0:POKE 22507,249": SAVE n$ CODE &4000,758: 60 SUE 850 835 (LS : IF c <> 1 THEN PRINT "Sauve les UDGs:*:: INPUT "Le nomi": LINE пФ: PRINT n$'''"Pour utiliser ces UDGs:'" "LOAD no т CODE": SAVE пф CODE USR "а", 1455: GO SUB 930 ean RETU IM 5 : IF vés'o" THEN PRINT '"Ie verifie "int: VERIFY пф CODE : PRINT U!

А s 1" TABLE

1i ЕСІ GHT UC Ree " AND n=2i+( UDGt(A-U) ° AND n=l)

ER pour Terminer... .": GO SUE 160 4517.2 930 ; LINE пФ 935 50: RETURN LODOSREM С sms = cc а rats кы 1005 PORE 21557,0: CLS : INPUT AT 15,0; АТ 0,0; "ETEE-VOUS SUR in/ni:'i LINE n$ М8 Gë е ^ THEN RANDOMIZE USR 83000: i copies NOT copie

J f

Кеч

ис

BL n

LET QU D. 1 THEN

ГЕТ! nz

RINAIRE

EN 50 SUE 8000: INPUT **

ЧЕЗ: LET әзі: LET bei: PRINT #0i'Allez өн OVER ЫЫ %

ж: Ж "mr 0

єч iub на Ex

2140 GR a$-'U" THEN PRINT INK O; PAPER 7; АТ T bzbel 214] LET acat((a$z'5")&(a(8))- (Cats 7 (3312): LET b=b+{ ( 2145 IF а=8 AND b-9 THEN 60 TO 2500 2148 IF b=9 THEN LET 5=1: LET азан! 2150 60 TO 2116 2308 LET аф" ЫМ

LET 1z13: FOR a-D TO 7

LET х= VAL (абы aH

ENT АТ 1,21: INK 15" rn INK ёр: LET 1-14

HEN POKE (5400048#( CODE c$-32)44),x

HEN POKE USR сї+дүу

LET n$-* NOTE: Modification-2in os touche -1- donne n

naire,vous pouvez vous s et la touche -0- donne PAPER. : PAUSE 4: ВЕЕР .0001,50: PRINT LEN. mt: PAUSE 4: ВЕЕР „DODI é4: IF 22445 NT $0: i RIG GHT Иасы 192 +} À АТ 0,0: NEXT 4 LEN m$-32 TO LEN mé: PAUSE 4: PEEP „0001,40: De ызалы шы smod mnt СОЙ ROUTINE MACHINE 1-0 Tå ) а: POKE T 1: RETURN

n.

41,0

62000+1,а

ederler all

NE 1:

| Е ia

аккан тоза С ЯГЫП BASIC PNE

Е RI [e " 7

Commande C hie М буму Е

AND B&üuiz'D"3):: RETURN

lentement avec le curseur."

аф= 5") 9))- aen pn n E OH)

ervir des touches 5 a B pour vous deplacer

30: BRIGHT 1; ТАВ іп TO 2 LEN m$ THEN 50 TO 8050:

og

Zait AT 0.0:

PRINT #0; PRIG АТ

2068. “„ Т ДЕП

ТУУРА ЕМ [СА ЕМ 2.

пф C АФ» x ы mA x

ав" ОН * AND AE

LET ша, б) =а$

rn

à l'interieur de la gri

0,0:

NEXT а: RETURN

SPECTRUM Вс СИТ

целой А

Dour ie

"len РВОМ. 11 ы S JQUND ou

ne

ВОТ x

T

ыл ПМ АЛ "cpu 75 DATA 6.6

ч " SI

8.16. Уа 16.10, 16

NT 7070

\

Dour plus d'informa rammation ce le 11

SINCLAIR

la pro

Za une pazi ИШ INTE

* xd blie chez Lë

ER

ce | 1 Ch aL э Lio Su n uon u u non o» wo» ü "soon n n n w e n nox on

Mme wO

2068 BASIC + Soo»D x,y;...; х,у

Faires

хі

1 REM 5 PRI

алғы aL Те s

dai cH SS 10:" ©

эн

T "IN Ap

Пісте од

"oc

EN

t mi valeur

forme bins

^ Cha aos

Pour a

ammet L D I R .. permet de démontrer 230 contient. LDIR inztructionsqui occupe incroyable plusieurs opér:

7 ^ D ў realise en un

e

e DONNEES (-4DIR-— par YVES GAGNON

PRINT 'zzzz22z-z2z2-------' 45 PRINT '"Mnemoniaues"," Code Machine" 4} PRINT %----------- .,4------------ ы

+ CH

LET L(7)=1: LET LE10)2237: LET 1{11)=175: LET SSE DU ELOC'''D'OCTETS А TRANSFERRER" "DANS ET Dis INT М: LET LG)zACGO- (LU 8256) 1: 60 EI? | DRESSE DU BLOC''"D'OCTETS8 А RECEVOIR" "DANG LE REGISTRE DE "rä

ET Lt&]

STRE HL ? "Ail?

200 2 210 LET 10 LET 108) зам" Ыт: L(5izA(2)-(L(5)4256): 60 BUB 510 | 300 INPUT " NOMBRE" ' а MBFERER''"DANS LE REGISTRE ВС ? "AII 3iB LET L(3)zA(3)/256: LET 1{9)= INT LE): LET 108) | 3)-(L(2)4255): 60 TO 520 | 500 PRINT LD НАС Ke RU MERI TURN | | 310 PRINT LD DE, HAC NLUD T" NL) "HL: Si

520 PRINT LD EG SAGD LODS SUD "SL OD 30 PRINT "LBIR LEO RET 340 PRINT "'RET",L(12)

iR Mel TO 12: POKE (85520-1)4M, L (M) :. NEXT M |

iT! #05" 455 POUR SAUVEGARDE D'LA ROUTINE" "<D POUR ВЕРИТ DU PROGRAMME"'"ZE* FOUR EXECUTER РОТЕ" o

$ ="5" THEN SAVE ІЗІН" CODE 25520,12: PRINT #0i'Une touche...": PAUSE 0: RUM

$ z'D" THEN RUN

Y$ z'E' THEN RANDOMIZE USR 55520: PRINT #0; пе touche...": PAUSE 0: RUN 0

11540 GO TO | SAVE "LOIR" LINE 10: SAVE "'LDIR" LINE 10: VERIFY "LDIR': VERIFY "ОТВ"

— E деи c

Re

nces qui existent entre 1: ferents modes vidéos impl lantés в

ont pas accessibl

m

rt

jus mo me son nom de la couleur est mul- ons: CIRCLE 123,97,80

H

s'applique à chaque octet.

aucun РОЖЕ pour opérer. Quand nous 5 informations aux а кү ‚Оп

routines x et Y sont des 2 2 па “demande. Aussi inclus dans le le programmeur appreciéstel le que е FILL e SCROLL dans les 4 sens. plus loin la liste complète du TOOLKIT еп ASSEM- 'HERLOADER" qui se charge de TOOLKIT em mémoire et le sauver par la suite.

Vous

ELEUR ainsi qu'un

Ревтіггетелі, fapez le. HEXLOADER puis RUN 500 pour se faire une copie de securité sur cassette,au cas où. Après cela.faites RUN et attendez. Si jamais ilu a une erreur dans les DáTAs,.le numéro de la ligne cu s'est produite l'erreur sera affiché à 1°

est А tou fé ordre.le programme se termine avec le message

2 erreur "OUT OF ВАТА", Alors faites RUN 550 pour sauvez vos codes, Un RANDOMIZE USR 52000 rend actif I'EXTEMDED COLOR МОЕ, un message de bienvenue devrait apparaitre au haul de l'écran, sinon faites PRINT USR 0 et rechargez le HEXLOADER pour vérification. Lors des utilisations futures du TOOLRIT.il est isportant de faire avant toute chose un (CLEAR 61999 pour le protéger de toute "invasion exterieure",

description des possibilités du Ыы ordre d'apparition dans

j| , rend en fonction D_FILET oui est

tion des couleurs.D FILE? débute à l'adresse Р 30719. Le premier CALL met EXROE nice sont les SK du ROM suplémentaire que

ig SPECTRUM. Puis nous appelons dans le t qui se charge de déplacer le "et bes tre chose. Le t le HOMES et renvoie

Ш>» oe ou

; mettre de lac HINK ainsi pour i pour FLA

3-3

+ к

S SIRIGHT D £ LAS FLAT 0,0: ы USR 2057, PAPER 7 et d D avec dias

E 5i vous ament l.le 2055 va

remplis une région avec les attributs qu jusqu'au moment où elle rencontre ur ' e

(BXPAPERTEINK

COMME ve

MIZE USR 22049),

plir notre cerc 81 on examine | е déput zervent

А fonction USR, À la PAPE

E CALL - мы

pelle une routine de andante dans EK DE

1 Ou: E rz:

CETA RT OY V -PRINT AT X.

ша

x et horizontaux ЕРЕК, і.е.

mere еа

Go © FER о INEO RMD LEE GO | ND Келе REM PAPER =] & BC INK} D PLOT ue 45 INPUT USR 52059.papink,D: REM couleur sur le pixel... | 50 NEXT n

‚ 85 ВЕЕР i-l: LET s$="APPUYE | BRIGHT 1;

1 SUR UNE TOUCHE... eee" é0 PRINT АТ 20,0: BRIGH 1

МК Ar CHR USR 62220: REM PRIN

| 70 PAUSE 0: FOR 190 TO 31 | | 80 RANDOMIZE USA 52500: REM scroll -> droite |

t | n |

ti 5 FORDER Q: PAPER 0: INK 1: RANDOMIZE Hes 62048: REM (5 9 REM Dessine la maison

10 PLOT 8,10

20 DRAN 48,0: DRAW 0,48: DRAN -48,0: DRAN 0,-48 |

20 FLOT 58,10: DRAN 70,20: DRAW 0,48: DRAW -70,-2 |

40 PLOT 8,58: DRAN 24.30: DRAH 24,-30 d

50 DRAW 70,20: DRAN -24,30: DRAW -70,-20 |

180 PLOT 0,130: DRAW 175,-10: DRAW 80,10: DEAN 0,45: DRAW -255. 0: DRAH D,-45: REM Le ciel | | 70 PLOT 0,50: DRAW 30,30: DRAW 135,-5: DRAW 90,-25: REM TR be [300 PLOT INVERSE 1,15,15: INPUT USR b2105,5,.0: REM FILL 54 с PAPERD & INK S EUM [310 PLOT INVERSE 1,57,20: INPUT USR 82108,6,0: PLOT INVERSE 1,12259: INPUT USR 67105:6,0

320 PLOT INVERSE 1,32, tl: INPUT USR 52105,2,0 Н p. PLOT INVERSE 1,175,150: INPUT USR 62108,1,0: REM FILL ( d al} f 340 PLOT INVERSE 1,0,116: INPUT USR 52105,4.0: REM FILL (herb

е) [700 CIRCLE INVERSE 1,180,150,10 | 5 REN _ ан EE DEMO3 645-095 10 BORDER 1: BRIGHT 1: PAPER 1: INK 7: RANDOMIZE USR 42046 20 CIRCLE 125,87,28 30 PLOT INVERSE 1.125,87: INPUT USR 42105,14,1: 140 CIRCLE INVERSE 1,110,95,10 EN CIRCLE INVERSE 1,140,95,10 150 PLOT 110,75: Шш INVERSE 1, 30,0, РІ

100 LET a$- INKEY$ : IF a$z'" THEN GO TO 100

110 IF a$z"5* THEN RANDOMIZE USR 62445

120 IF a$-'8" THEN RANDOMIZE USR 62500

130 IF a$="7" THEN RANDOMIZE USR 622

140 IF a$-'5' THEN RANDOMIZE USR 12344 x 150 60 TO 100 Sue. puwara d

amg ms RR ERS o n e e

tO

б, cei = PONES ПЕТ

> H L 00010 LME 00020 i*TOQLKIT ULTRA RES 208% 00030 :* GàG-o JUILLET 854 00049 5+ version 3.5 + 00050 ннен DDOSD ; 00070 ORG 82000 08080 DISP 53535 00090 00100 :Suitch D FILE 2 00110 ;-;520003 point d'entree О0ї2Б______________________ 00130 SW LD 26, 65278 00140 CALL 25733 :EXROM 00150 LD Av? {МОЕ 2 00150 CALL 3725 :CH VID 00170 LD BC 255 00180 CALL 54501 НОМЕ 00190 CALL CLS 00200 MOT LD HL,TEXT imessage 08210 LD B.54 du 00220 LOOP1 LE А, (HL) debut 00230 RST #10 00240 INC HL 00250 DJNZ LOOPi 00260 LD HL, 265400 00270 CALL 500 00280 LD НЬ, 24575 00290 500 1р В,32 1sou- 00300 LD А, 128+? jligne 00310 LOOPZ LD (HL),A ауес 00320 INC HL 3FLASH 00320 DJNZ LOOP? 00340 КЕТ EEA E nn uns eue à 00560 :Effacement d'ecran 00370 1-29208884 point d'entree Не ope. eR e 00290 CLS САП SEA :CLSROM HR go coa so o дыш 00410 1-2520814 point d'entree 00430 E 00430 (LS? LD А, (23593) 00440 LD (24575),А 00450 LD HL, 24575:р FZ 0040 LD DE,24577 00470 LD BC,4144 00480 LDIR 00490 ВЕТ SOD Fo 00510 jAttribut sur PLOT 00520 f-é20é49d point d'entree 00530 ;

00580

ATIR CALL 7132 jevalue

00550 CALL 9824 param, 00560 reg Cink+O*paper 00570 ireg.fflashtbrght 00580 LD А,В

00590 CP 9

00500 JR Г. АТТЕР

00510 iBEODODOQXX C 00520 RR B

00530 RR E

00540 RR E

00591 AND SCH

00480 }8=ХХ000000 0 00570 АТТЕР PUSH EC

00580 LD ВС, (23877)

00590 CALL #2503 :5CRML 00700 НЕ FILE! 00710 LD Қ.8192

00720 ADD HL.RC

00730 1HL-5D. FILE? 00740 POP RC

00750 LE A,B

00780 ADD AC

00770 LD (HL) A icauleur 00780 БЕТ

00790 00800 ; FILL

00810 :-2521050 point d'entree UO EES 00830 FILL CALL 7122 jevalue 10840 CALL 9526 iparam. 00850 CALL &RGU

00820 LD DE, (23577) coord

00870 НЕҮТЕ 00980 00890 00900 00910 00920 RPIX 00930 00940 BEYTE 00950 00950 00970 00980 (0990 BYTE 01000 01010 01020 01038 [1040 01050 01050 BYTE! 01070 01080 01090

CALL BYTE JR NZ,RPIX CALL ТВҮТЕ INC D

JR. HEYTE LD DE, (23877) ВЕС D

CALL ЕҮТЕ RET NZ CALL DEYTE DEC D

JR BBYTE LD ED

LD GE CALL $2503 LD BA

INC E

LD 6:8

LD A, (HL) RLCA

DJNZ BYTE! BIT Oé іріх.17 БЕТ NZ $1 RET

өше iy=y+]

:SCRHL

01100 SET 0,4 10-31 01110 LD B,C

01120 BYTE2 RRCA

01130 DJNZ BYTEZ

01140 (HL) A {РОТ 01150 LE 36,8192

01180 ADD НЕ, ВС

01170 LD А, (ATTPL)

01180 LD (НЕА айт. 01190 RET

01200 DEYTE INC E pex 01218 CALL ЕТЕ — iverif. 01220 JR NZ,RPIXZ

01230 JR DRYTE

01240 RPIX2 LD А, (23677) restor 01250 LE Е.А

01250 БЕТТЕ ПЕС Е x 01270 CALL BYTE neri 01280 - NZ.RPIXS

01270 H GEYTE

01200 ЕРІЗЗ LD Aa (23877)

01210 Е, А

01520 RET

01330 ATTPL DEFE 0 jattri.

01340 ARGU LD A.P SFLASH- 01350 CP D TERGHT? 01350 JR Z ARGI 01370 RR Е 01580 RR F 01390 RR E 01400 AND SCH 01410 ARGI LD AE 01420 ADD А, С 01430 LD CATTPL}, А 01440 RET OEASEL E o oe a tea n 01460 sAttribut avec PRINT 01470 1-2022200 point d'entree BE за ола оа оа з 01490 PR LD HL, ЭВ) VARS 81500 LD BC,CQISCS92 FELINE 01310 U1 PUSH HL 01520 SEC H, BC 01920 JR Z, МЕМ 01550 POP HL 01550 LD А, Н) 01560 CP 83 :CODE" S" 01570 JR Z.VERI 01580 INC HL 01590 JR Ul 01600 MEM RST 8 15% EST 01510 DEFE 1 ;PAS LA 01620 VERI INC HL

Ouen cur GE

———— 0. Е + eO RES (SAM, dela озде ргееетичде,) 01230 - INC HL 01520 LD А, (HL) СРО JR Z.PRS INC HL MS JR Ul 01590 ERR В5Т 8 sretour 01700 DEFP 1 3BASIC 01710 PRS DEC HL 01720 LD R, (CIL) 1LENSS 01730 INC HL 01740 U2 INC HL D1750 PUSH ВС 01750 CALL PRAT 0177 POP EC 01780 LD A, (HL) 01790 RST #10 01800 DJNZ ір 01810 LD 4,8 ur, 01920 RST #10 ЕРТ 01830 LD C (HL) {11840 КЕТ 01850 PRAT PUSH HL 01850 LD HL, (23885) 3DF CC 01870 LD А, 123595) ;ATTT 01880 LD DE,8192 D189n ADD HL,DE ШЕ? 01900 LD 2,8 01919 PRATI LD (НЕ, А jattr, 01920 INC H 10256 0:93 DJNZ FRATI 01940 POF HL 01950 ДЕТ 01350 | ВУИ Е ына sus 01970 :SCROLL vers le HAUT 01980 1-252292d point d'entree 01990 ня 02000 SCRHi CALL 2341 — ;ROMSCR 02010 ;

92020 ;-2522954 02030 $

82040 SCRHE LD HL, #2000 ;D F2

02050 LD ПЕ, #5ЕО BUFFER 02050 Hi PUSH DE 02070 PUSH HL 02080 LD 4,3

2090 LD RC,820 сыза

D HZ PUSH BC

12110 PUSH HL D Р2-> 02120 LDIR :BJFFER 02130 PüP DE 02140 LD C,8ED iscroll 02150 LDIR ІШЕ) 0210 LD 2,7 02170 ADD НЕ, ЕС

02180 DEC А 02190 POP EC 02200 JR NZ, HE

DJNZ H4 POP HL POP DE INC H LD AH CP #58 02310 JR GHI 02320 НЬ k ПЕ, НЕ

02330 H7 LD (HLE

02300

i ОН ЕТТЕР 5D F1 tn. LD ВЕ, ВРЕ ;РОЕРЕН 02430 LD 4,0 mettre 02440 LD EC,VARZ за Û la 02450 LD (EC).4 "Lionel 02450 JR SCRE тез ner e ШЕ ар 03480 :-352350d point d'antres EE oc ааа ма. 02900 SCRR2 ті -o р F2 12510 ; BUFFER 02520 93) mettre 02930 ТАТТ P 05540 HEIM 02550 SCRE PUSH DE зтете

PUSH HL sprinci

Ц 4,3 sque

LD EC,820 PUSH BC

PUSH HL

LDDR

PüP DE 02530 LD C,8ED 03640 LDDR 02550 LD £,8F? 02580 ADD HL.RC

FOF RE

DEC А 02590 JR NZ, EI 02700 B2 LD AC 02710 LD А, (VARZ) 02720 B3 1р Е), А 03730 pe? DE

02740 DINI ВЈ 02750 POP HL 02750 ҒӘР DE 02770 DEC H 0 LD AH PUSH AF jgsi-ce LE &,(VARZHIDFi ou CP D НЕЗ JR МЕ, ВВА POP AF 1Р1. CP $50 ilimite JR NC, SCRE XOR А LD В, #20 LD (DEA DEC DE MNZ B4 JR SCRB2 РОР AF ФЕ? 2 CP #70 ilimite 02940 JR NC, SCRE 02950 XOR À 02921 LD P. #20 02970 RBBá LD (DEl A 02980 DEC ТЕ 02990 DJINZ BER4 52000 БЕТ OM fee as LS КИЕ 23020 SCROLL vers la GAUCHE 03030 }-3524454 point d'entree ОЗОД E co There д, ло лу. 03050 VARI DECH D 03050 VARZ ГЕЕВ û 03070 ; 03080 SCRG1 LD HL, 18985 1D Fi 92090 LD DE, 15384 03100 LD Ай 03110 LD ЕС, VAR 02120 82120 03140 ;

93150 :

03120 03170 03180 03190

(22 EL

03250 03270

SCRG2 LD НЕ, 24577 iD F2 LD DE,24576 LD А, (23593) D PC VARZ LD iBCHA

SCRG

ME

у: с ; tauna deis

03280 03290

си ша ca CH CM CJ GJ E C Cl GG

с

г Cd Cl г Ld : Le са Gd

єз ca д C4 Ca ш че C

cJ +

із جل‎ GJ ва rz

TI CE Eu cl

+ сз ме сэ

с

per]

Kë ca

4. ц бе Cn c

> CO ша CO C3

03410 02520 02520

13440

03550

e A c

£z 11 са =

ere

02710 75 2

B E

WEE ce e)

INC DE

INC HL

LE EC, (VAR!) DEC C

JR М2,61

RET

009 к dantis SCRDI LD'HL.22526 :D F1

LD DE,22527

LD 4,0

LD BC, MAR?

LD (EE) А

CALL SCRD

SCRDZ LD HL, 30718 ШЕ? LD DE, 30719 LD А, (23593) LD FC, MAR? LD (ВС),А

CRD LD EC.192

1 LD (VARII ЕС LD £6,31 LDDR LE А, (0482) LD (DEA DEC DE DEC HL LD ВС, (VARI) DEC C

JR NZ,Di

RET EPE ле се. TEXTE de BIENVENUE ПО TET ТЕР PULTRA HIGH 7

DEEN /COLOR RESOL/ DEF“ /UTION 2058/ ЖЕМ /TOOLKIT/ DEFM / /

ПЕРМ /ЗАб-а /

ULTRA

TOOLKIT |

dressed Bu 25 LET =

60 TO 20 30 PORE 2

S ET ligne];

40 ЗЕЕ м

eztot THEN PRINT "Ligna 'iliange:' 0 net: 50 15

995 І DE 221546540760

Las? 20670087 2210080042 EST T T2310F CCPCDE SOS SABDS C320050210 e

101 DATA Eeer LIA EE ODC RIDE E BESCDCSEDA

27 5703060 2501002008 'COCDDCITECDGOZACDF SF 2EDSR7DSCCDCOFZ200

"ESE 527050156 enenr2enc

FOTO 10207

HE

ODTEFECUZSUBCB IBCBIBCE1SESCOTBS132FBF ELTEFESX2BUSZGIBFZCFO:Z323TEFEDUZBDS2

ЗЕРЕН ЗА СЕ 30218ёП021РЕ7711РЕЕ5ЕЗАБр5б

ESZED үлі 2 І8Е5ЗЕ

QIOEDA3ENF2011FDàE

APERET В Қызды ARE NH CL

020202020474147206 0000000 0000000000000000

.l': PRINT "Je verifie "i VER

Sauve I'HEXLOADER Ї 1: PRINT "Ok,"

Г

CODE А2000, 6201 PRINT "Je verifie "i: VERIFY

PIXEL 37, 118

TYPICAL CHARACTER SPACE (7,4)

PRINT AT LINE#

RESERVED LINES

|

: f c D а; = e “ PRINT АТ OR PRINT TAB COLUMN # оке, ехал do Әсо

01234 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

0 1 168 1 PRINT TAB 10 ON LINE #3 160 : i 152 3 | PLOT 223,136 144 ч | м. ______ 1 138 5 PRINT АТ 7,4 | да 6 ! | 120 Қан те у ка sr мы а ао. a ar 220 اا‎ 112 8 | Kg 9 1 | 96 10 M RE ORDERED RENNES " 88 11 80 12 A 15 PRINT AT 11,16 (LINE#, COLUMN #) 64 14 PLOT 84,36 56 15 (HORIZONTAL, VERTICAL) ps 16 40 17 тетте 32 " 18 24 19 8 20 8 21 0

23 о D © = сч О оо сч о Z*"8289198988527929uü8929SÓ - N 26 о Led CH чо ч бсттозспсаоаеогысохооог ов GG SE wee ot woer о коо со = ост NOR ороо ба ое о о о e осоо чю е-птбсзчасогкссскгасостоееогкеоеачцчавяав

PLOT HORIZONTAL (X)

PLOT VERTICAL (Y)

SINCLAIR QL `

* 32 bits

* Memoire de 128 K

* 2 Microdrives

* Haute resolution couleur * 4 Logiciels inclus

- CONFIGURATION DU SYSTEME

Le systeme de base ($ 799.95) inclus deux microprocesseurs, 128 К de memoire , un systeme d'exploitation, un langage de programmation, un clavier QWERTY de 45 touches, 2 microdrives d'une capacite de 100 К chaque, 4 logiciels sur microdrive, 4 microcassettes vierges, source d'alimentation , les cables et les manuels,

— HARDWARE RAM: 128 К, peut etre augmente a 640 К. 32 К pour memoire- ecran, ROM: 32 К, contient Sinclair SuperPASIC et Sinclair 0005, le systeme d'exploitation. CPU: MOTOROLA 88008, 7.5 Mhz + INTEL 8049 VIDEO: Graphique haute resolution en 2 modes: Made 1- 512x255 pixels (4 couleurs) Mode 2- 255x255 pixels (8 couleurs) De 40 a 85 caracteres par ligne. ALIMENTATION: 120 V, 50 Hz, 9 Vcc a 1.8 А, 15,6 Vac a .2 А du transformateur, (19 watts a l'ordinateur?) DIMENSION: 138 mm x Ab mm x 472 mm POIDS: 1388 а (3.055 1bs.)

IRGN ЛЖ ОУУ

390, BOUL. CENTRAL NORD DUBERGER QUÉBEC СІР 3P9

SINCLAIR QL

LOGICIEL -SYSTEME D'EXPLOITATION 0008: Possibilites de 'MULTI-TASKING" Schedule de priorite d'execution Fenetres (Hindous? AL QILL: Traitement de texte QL ABACUS: Tableur (Spreadsheet) GL ARCHIVE: Base de donnees. QL EASEL: Graphique INTERFACES -Trappe pouvant recevoir jusqu'a 32 К de ROM supplementaire. -2 prises JOYSTICKS. -Trappe pouvant recevoir jusqu'a .5 Mb de RAM supplementaire, -2 R5-232-C ‚бе 75 a 19200 bauds а la transmission et recoit jusqu'a 9600 bauds. -Prise TV -Prise moniteur, RGE et monochrome. -QLAN permet de relier 54 QL ensemble.

tél.: 527: 6103