KQMIN. siridaii- SPECIALIST KOMIN COMPUTERSYSTEMEN NEDERLANDSGROOTSTE IMPORTEUR VAN CST THOR EN SANDY DE OFFICIELE VOOR HOBBYIST. komen SANDY Q-XT640

KQMIN

EindelijkookinNederland leverbaai De capacileiten van de SmciairOL komen nu pas echl goed Joi hun rechl.De CSTTHORisleverDaar

In3 uitvoeringenjnclusief X -change-software,

KOMINIS DE OFFICIELE IMPORTEUR VAN CST

THOR

EN

SANDY

VOORHOBBYIST ENPROFESSIONAL

SANDYQ-XT640 VERKRIJGBAAR ALSBOUWKITOF

ALSKOMPLEET WERKEND SYSTEEM

MET1OF 2DISKDRIVES

KOMIN COMPUTERSYSTEMEN

VerzendingN rembours ol bij vooruitbetaling.

Wljzigingen voorbehouden.

NEDERLANDSGROOTSTE siridaii-

SPECIALIST

:elelonisch tussen nie.OOuur 140 •456660

9.00TOT17.00UUR

COU.OR'OON DeSINCLAIR GIDS is sen uitgawe van:

Poatbua111,5110ACBaarle Naasau.

DeSINCLAIR GIDS verachijnt 8n pec ja;

Hoofdcedaktie:P.Pauwela

J.C.Deering E.Ragaa

A.Pis tori US A.v.d.Wijdeven

A-Plomp E.Zwact

ABONHEHENTEN:

NEDCRLAHD:fl.44.00 per jaar(e nummer ftbonnementsqeldtevoldoen door fl 44, overtemaken op GIRO;5109074tnv.

GIDS,Baacle Maasau.

belg: E:860BFpecjaac(anumroeca) .

ementsgeld te voldoen doocB60 teaehcijven op POSTcehening: 592677-34 tnv.De Sinclair Gida, EHENTEH vrordentot wederopzegginc gaan.OpzeggingItanuitaluitt

wan detoegezonden acceptgii ADRESHIJZIGIKGEN3wekenvi

.ijdsctiriftentiandelaren.

iinHedecland en Belgii

PROGRAMWA'S

'rij«aartdeSINCLAIR GIDS en uitgeverij terminalSoftware Publicatiea voor enige 'andeabetreffende pcogr.

;endingvaneenpcoqcamroi copyright

clak jogte

dervoorafgaandeSCHRIftblijketoestem- ming van de uitgever.Pcogranma'siqogen uitaluitend vooreigengebruikworden Distributie Nederland:

Betapreaa.Bucg.Krollaan14,Gilie Distributie Belgig:

Persagentschap Vecvoer en Distributie KleinEilandstcaaC1.1070Bruasel.

Illlllllll cab

IMMOUD

MEW:DOSvoordeSpectrum ExitOpusDiscovery. IPUT:vragen ent

ZXal:eennieuu begin 7

PEEK{,POKEdeei3enaloC 12 TASWORC 2:save/load graphica,...44

;ST:deMusicMachinevanHAM 13

.1ST 1.Spectrum SchaaCaen met deSpectrum -.15

LuxeLListec 21

Hexnaardecimaal en vice veraa...26

2.QL

IIGINGENENCLUBS 39

:EL!Data-Skip uit Gouda 40

.BOEKEtJSERVICE 42

VERIFY:The great Escape 43

IN/OUT:gezoehtenaangeboden 46

KI-ELJF^ENMaiMX-raR ZZEBI_ADZYI>E

A

Sinclair

aloA

NUMMER

3/Februari 1987 PRIJStI 6,50/130BF

ONAFHANKELIJK BLAD VOOR SINCLAIR GEBRUIKERS

COMPACTERVOOROL(sMJ) LISTINGSVOOR SPECTRUM8.QL

llllllllllll

ED

Itor:IAAI_

Sinclair gldatypogcafiach wat verzacqen.Vandaar dat deteksl metsen margcietwiel-pcicitt afgedrukC.DatleeatieCsi

k.ampioenschappenalles netjestivolg^r Pet€ra ultAlmelopreciea goed get imed.

ErisweinigZX-nieuwstemelderiidezE Iceer.De +2blijlttinBngeland pcimatc lopeti;maar deBeneluxloopt zqtezier

Delijat met de gebruifceragroepent aardigtegcoelen.Sinclair biijkt

axai°waatbijnijaandehand

mogeli jkhedenvan deAHX-muia,datue eenprogtamtneerwedatci jdteotganiaeten.

Vecdecop in diCbladleesjealleaovet deprijzendieecaanvecbondenzijn.

Beginalvaatte uatettanden:«iezouet nietgraageenkleurenroonitochebben? DekleineIn/Outjeablijken ookaants slaan.ZotezienisdeSinclaic-raackt volopinbeuBging.Wiezijn/haatrteksl niatCecugvindt,hecinnerenweaandt spelcegela:geen coinmecciSleadverten- tieaengeen gecopieerd apul

.

Veelleeapleziec1

lllllllll new

DOS

4-

O

system (DOS) ontwikkelddat datvanOpuaatBetaDisk.

focmattecen:van35tot80tracks, enkelzijdigo£dubbelzi jdig,enkeleoE

Spec oyat*

mita een paarkleineinqceepjesgedaan worden.DoormiddelvaneensimpelePOKE

enormhandigom bijvootbeeld alle microdciwe-programma 'aop scnijf te zetten,zonder delangdurigeomwegvia

LOAD'tieeftalle mogeli jkheden

bepaaldebelangcijke filetweekeecop

~

laadteenprogrammaofeencode-blok van eenadresdatinlietcommando«ordt

megegeven. In de vorm :

RUN*-naam"CODE, adres.

:omiiiando.

.IST*ageeft de

LLIST*doethetzelEde ala LIST*,maar nu uordt deinfocmatie naarZX-pcinterof ERASE* wisteenbepaaldefilevande

Illlllllll new

ilEdedr;

COPY-lag ofwelnaa eei\andec LEN*gee£C devrije geheuqer

foi ;ondBr

;hij£op40traclcaiSSDD.Met lingvandelettecaao£dvooc ofdubbelzijdigenenKeleo£

Ischrijfdichtheidipluseenqetal

letaantalsporen(35 ,40 ,45,SO]

zel£bepalendoedeschijfwoirdc itteecd.

flITR-kaneetibepaaldefilebeveilu Cegelijkonzichtbaacindecatalogus.

rdezelfde drive o£naar

demogelijkheden betceft.

St.-Katelijneveat16-la,2000Antwecpen Tel.03/231 0103 Pcija;999Q fc/ca.f.549.-

OPUS hee£tbeHend gemaalttdatdeOpus DiscoveryNIETmeet;gepcoduceecdzal Kocden.Derecentepcijadaling(£1.495) zeecpopulairdiac-dt ivesyateem uoorde

De ze bekendmakinqvanOPUS heeftdirac deveckLoopspcijadoenstijgentot£1.595 Reden liiervaniadatdeEicmaOPUSzelf geenvoorraad raeer hee£t(enkrijgt)en datkLleinepactijenhierendaarinBu- capamoeten worden opgefcocht.Dituitec- aacd tegen een hogere pcija.

Oorzaak van dezepcodukcieatopianiet geheel duidelijk.OPUS zelfzegtdatna annulecingvaneenocdec van 6000 atuka.

beaterodvoorItalic,menmeteenenorm om deDiscoveries uitteveckopen.

Andece raedewerkeca van OPUS echCer meld- den,datdemackfvoocdeDiaoovecy vet- zadigdraakte.("eeniedecdiegelnte- teaaeerdiaheeft-minmiddelaall|-).

Ook iabekenddatOPUSdeDiscovery noolt ergaerieus hee£t genomen:DeDio- covecy vooc deSpectrum deden ze,naaat hunbeataande activiteiten,ala"grapje"

erbij.

Acnteraf mogeduidelijk zijn dat het on- mogelijkiaomvoor£1.495eencompleet diBk-aysteem, iticluaiefdrive,printer- pooct envoedingteproducecen.(Tec vergelijking:een diskdirivemetintecEa- cevoor de QLkoatnogaltijd£1.895.) PUS-bezitterahoeven,Hoedanook,niet ongeruatCe wordsn.ErzijninmiddelsLn Nederland en Belgie,honderdengebrui- fcers.Endezekunnen altijdeenberoep zaleeniedergraagmetraadendaad bijstaan.Tachishetjammerdateen diaUdcivesysteem voor de ZX Spectrum(in 'tbegin£1.995)binnenkortnietmeer («...!

ZXSPECTRUM(i-)SOFTWARE BOEK Aiiteuca:P.Pauwela,H.de Chaffoy Dit192pagina'adikkeprogram- bevat velenuttigeprograroraa'a, zoals:A4COPH,COPY RS232,VAL- raaker, SCHEENCOMPRESSIE en -BXPftNSIE,FINDenREPLACE enz.

Verschijnt medio£ebruari1987.

ISBN90-6383-027-9 £1.34,90 Verkrijgbaarindegoedeboek- handel,SinclairSpeciaalzaken enCotnputercollectief, TERMINAL SOFTWARE PUBLICATIES

vanlezere.di<

ookandereSinclair-fans CeJtunnen intereaseren.Eencedendaacvoocis.dat we uillenpcoberen onvia dit tijdachrifceendialoogopgang te Eenanderecedenis,daCwijnietopelk gebied deskundigkunnen zijnendaarom bepaaldevragen niet zelf kunnen beancwoorden.Hijbeschikkennileenmaal datvoor deSpectrum bedoeld ia ofecop rubciefcworden ook bcieven gepubliceerd

1.T.Witam wilwetenofdesoftware voorVidieligeschiktvooc deSpectrum 4BK)ooltpde128Ktegebcuikenisen 232-pooctdanookdoordie softwarenwerking wocdtgesteld.

Baaicode,depcinter-aof twarespoor]

verdwenenia.Diverseload-volgoi werden geprobeerd.metsteedahetzeJ

corobinatieMasterfile+MFPi InterfaceIaandeptaatkj handleidingbijdeMFPrintv.

langepastkanworden'

IRS23; .Kan dit

1]

rungen-vanSchuessler (uitg.

>oker).Weetiemand ofdie

5,De Spectrum 128 K vanI.Caaulauit Deventer heeftfcekwentreset-neigingen:

op demeeatonvooiapelbacetijdaCippsn, maar welaltijdwanneereenpcogcamm;

loopt.Wiskentoorzaak enremedie 7 e.VROUWEH EH

randapparai allangacl

nhebben om met dezeappacatnurc innengaan.Mendenkt datzeailee gegevens maginvoecen(datatypiats jeooitalvaneendata-typi£

lllilllll

input

endanalleenals

"opleiding"geliadheeftvaneeni BAASkentalleenhetwachtwoocd hijziekismagzeerniet aankon Voorzoverbekendi opgebouud als dal duiken.Dat

op dezelfdemani enkelebelemmeringvc

rug, 2-eennogdiepergewortelde indoctrina-

tie,datzetochmaar fouten maakt en aelfa een programroanaardeblikaer helpt;

gesproken;

1- conaecvatiame[typmachineszijnvoor

flandelaatotetweepunteni

middelbareschoolmeteei

hecdinglooptteajouuen,

?". Oe rijgtdie

boudt,heeftzevolgens dereat uereld minstenseenintelligent

3-PrografnraeerietaleukainflflSIC.En doebetalleen(dusgeen potte- kijkera).

4-Sluit aan bijeengebruikarsgroep.

gevcaagdehulpkrijgt.

(leeaverder op biz.42)

DE F-RUZEM

dezewedatrijdzijnde

leprijs 3epcijs 5epcija

Kleuremnon Videoface KOmxJoys 6et/m1 ZXSpect

epcijs:

UD1Software 275, 149, 39, fl 39,

twv.£1,34,91 lepcija en 6et/mlOepcijsbeachikbaar geateld door de SINCLAIR GIDS.Zet/m5e p[ij3 beschikbaac gesteld dooc OATASKIP,

mill MET DE

MLJI@

pcogcammeecuedstci jd condom deAMX-Muis.

Waacom deze progcaroraeeruedatci jd ? DeAMX-tnuisiseennieuw mediumvootrde Spectrum,datgeheelnieuwemogelijkheden aanUwSpectrum geeft.Omdat erinEeite ueiniginfocmatie enpcogcamma's speciaal voocdeAMX-Muia«ordengepubliceecdis dezeuedaCrijd geocgciniseecd Depcogcammeecwedotci jdloopt van1 Eebruarit/m30april19S7.Deuitalag deSinclair Gids no.7.

Kl_ELJREtMMOMI

TOR

F*F*OGR«M«-IEEF<WEDSTRUD

ingezondenprogrammadienteigen

;tezijti.Dedeelnemecvrijwaact iinclaicGids /UitgevecijTerminal vandeed n op deingeondenprogam- vanDATASK Jitgev Terminal ftuacPubl Bzijn

Xmusnde!t3pe ctcurr.

.Deinienri =.nmoete uit ^r april1987 1decedakti

Sinclair hi

Big lieden cassette dsk(OPUS).De sin

Tasword-i eof

getypt

best T.Vei

enalsexti gas,die de g ebruikeca vciendelihe dvande progi De ocigi i.i|-enkjalite itzu vandooc:l de be

:jlicee

dfl mer7 ndien

leninc le

1 3laq13J« oieaponentiemogel3k

1jUbtM.BEI_Ar4(5RUK 1

Belagcijk om te uetenisdatmetingang stcidgaatlopen.Dezewedatcijdzalbe- specinghebbenoptoepassingvande ruininhetondecwijsalaleechulp- dkunnen dua methuninzendingtege- lijKrtijd deelnemen aan denieuwe«ed- d,uitecaard moet het dan een educa- tiefprograramazijn.

sne:i_

em f-recies REKENEN

MET-

DE

ZXSI

;CftLCULATOR

lermederiiomdat

Fl

5-32 3PRINT3:"

WKEURIGHBID VAN '•

:2-2-2'2*2-32,2

,4 4PRINT 4:"

•*5-1024 5PRINT 5:">;5*5«5*5-5-3125 6PRINT 6.";5*5'6'5'6-7776

7, 8, 9,

7PRINT 7!"

7*. 5-16807 8'*5-32768' 9PRINT 9;' 9"5-59049

'!7'7*7-7*7-16BQ ';B*8'B*8'S-3276

;9*9"9*9*9-5904

3 4 5 6 7 e

5.9604645E-7 1.90734B6E-6 -1.9073486B-6 -7.6293945E-6

llllllllll zxBl

.ijr,cweooplo;

1 .UeALGEHENE

IFABS[X-AXl.

gebcuikA*A*A'A'Aipv.A»*5.

Hetblijlctechbec ook dat"5veelmeer tijdkoBtdan5-ma3lvecmenigvuldigen zoalstimingvandebeide progratnma'sin fig,2laatzien.Detueede Qploasingis dusduidelijKpcefecent.

Deoplossing dieikvanhetHCC-pcobleero gcaoinierenenocmetijdwinsCkanopleve- ren.Terug naac onapcobleem.Ditkan meteenBASIC-pcagcamma «ocden opgelost.

Deopgave was:

vindtallsgeCallenvan5cijEecaabcde tuaaen9,999 en 100.000,waacvoor geldt

10FOR X-1D300 20LETY=X' 30NEKT X 40STOP 50FORX=l 60LETi=X*

70NEXTX RESULTAAT:

Tijdmet•* 35Sec

Tijdmet * 5Sec

ZX81-taal.Daa ling

',zieregel40.Na15uucen48minu- .eninFAST-mode(I)wordendedcie loedeantwoorden geprint.Ditprogcamma Loatzouoeltijd,omdatalle90.000

Fig.3HCCPHOBLEEM BSe ""5"

RECHTTOE RECHTAAN-PHOGR.

10F DRN=l£4 TO 99999 20L=TNS=STR5 N 30L:ts=valns(i)**5+val (js[2 l"5tVALNS[3)*«54.VA[,NS14J**5^-V 40*1FABS[S-N)<,1THEN PRINT N 50NEXT N

oplossing met'amge^ceetdek vocm allewezenlijHve^achi]

binaties van5cij£eC3 0...9 zoEk at<3esom Vvan de5-de diecijfeta gelij de5-demachten v Danbehoevenslechta2002: worden geteat.Sovendienuocde-zoals ceeda beaprolten- ueeltijdbeapaacd dooc

\gvuldigeni.p,v."'te :ijfe.

I534

Igoede oplo!

jken

SNELLEOPLOSSIHG

20FOR B-ft TO9 30POH C=B TO 9 40FORD-C TO 9 50FORE-DTO 9 60LETV=A-'fl*A*A'A+B'B'S'B'fltC 70IP V<1E-1ORV>99999 THEN GO aOLETVS=STRS V 90LET X-0 100FORN=lTO5 110LETW^VAL VS(H) 120LET>:=X+W'W"W*WW 130NEXT N 140IFX=VTHEN PRINT V 150 NEXTE

190NEXT A

labeiwocdt gevocradindeKegels10 JOwanfig.5.

)aarVtO)bigde2XB1niet beataat lenalle grootheden1hogerworden^

lien:A=lTO10i.p.v. TO9.,enz.

regela30en160lorgenecvooc dati :ochopz'npoatjeatacechtkomt

.

Illlllllll zxBl

Fig5.HCCPROBLEEM 336 " • •5

"

OPLOSSINGE MET TABEL 10DIMV(10) 30LET W-N-1 40LETV(N)=W-H'W-WH 60FOR A=lTO10 70FORB=A TO10 100FOR E-DTO10 noLET V=V(A)tV(B)i-V(C)t-V(D) + V (E)

120IFV<1E4ORV>99999 THEN GO TO 200

130LETV5=STH5 V 140LET X-0 ISOLET W=VALVS(N)+1 170LETX-X+V(W) 180NEXT N

240NEXT A

PROBLEEM VAN DEC 1986, Alstueedeondecuerp nog eencijfecpuz- zle.DitkeecbehandelikeenQplosaing inBASICeneenr.seiveelsnellece HACHINECODE routine.Inbeideprogram- ijandece

luidde:

Schcijf de getallen 2,3,., R.83

getallen.Deqepubl iceerde oploasiny

zitookintnijnprogcamraa 'a:

(hetreaultaatR)eenvandecijfeca2 t/m 9is,mostdeN(QemeF)uit4cijfera beataan en de Tlellec)uit5cijfera.

Pllp r5cicamaak Metdiewaarde pqin :ener.«teedsT=R*Nen

rdor nt 1fea1t/ro9

r .ZonieC dan

Nd jelijk

of Ife

.kande

.kel,z ingvandepcogcamma a zal blijken.

ZKai tJal,

mogelijkladanhetgepubl IceecJe.

Hit lal^.

logd.

el;

-vetrvolgeria«ocdt dl« T van5cljEeca behandeld ala carder de N an alaiijiip beliandel.ing5-inaalovecleeEt-du3Kondec naar cegel40teiijntarugyeatuurd- liebbenweeenoplosainggevonderiidie upcdtLiiLgepcinC.

-da waardevanRwardtvechoegdenwe beijinnenopnleuu;rjitgaatdooctotdac R=10,

Pig.6Hccb>m)Bi,F>:Maa&"grc OPLOS.SINli«liTBASICe ROG

10LE'R'Z 20LEIDS-"5133341??5I32134

;i<133ia53123-l"

30LETNS=D$(4'R~7ro 4'R-4) NS = STIt5{VflLN$H) 70IFN5(B)="0"THENUOTO 4 SOIFXS(VAL W5(n)) =" THb.

OTO 40 90LETXS(VAI,NS(M))=""

100NB PS-STM5(R-VALMS) 120FOH=lTO5

T5[M)="0"THENGOTO 4 XS(VftLTS(M))=""THfc 150LBXS(VALTS{M>)=""

160NB laoLE

NTT5;"/":NSi"="'*

190IPR{10 THENGOTO 30

13458 /6729=2 17469/5823=3 15768/3942=4 13485/2597=5 17658 / 15758/2394 = 7 25495 / 3187=8 57429/6381=9

llllllllll zxBl

OinJ.il.LitJatLocllwel«eeltijdvond

joorditiicoDlsenihebIkookeenMACHI- WCCOUB-pcogrdmma gemadkt.OatgeeCbme dugelegenheid enkalefundamenCelecou-

voockoraen.Vooca£hec>cesultaat:het

-DATSishetequivalentvanD$nit ce.jel20van£ig.6;deplaatainRAHia orodaar deuaardenvann[=R-l)uitaEte laiden.

-deSTARTisopadceaSOUmet RAND USR 20497ennainitiatievolgthetSETten 08!daeersCeMlNinuH VALVE die daac bij nooFtia1234.

-devoQcbereLdingvoorhetvecraenigvul- n^engebeurt door de 4 digits (cijfeca) vandenoemec14uithet[HL]-gebled ovet:

tebcengen naac'tteller-gebied T-STORE volgens del-ste[-HI)aiGvanT te beucL dU'ir N = DES-maaidecimaal(l}cn)met carry optetellen(ftDC |bijwatiichIn T-STOrtEbevindt;deinatcuctie DAA zocgt etrvoardatditindecdaad DCHgebeurt.

ocden de5+4digit

Ngel .tin(

3IG-T0-aiTS diedigitsinbi al3die 9digits de BITS-STORE ED=0000 oaolllll1111hebbengemaaktzijnde bijdewaarde vanRbehorendewaairden vanTen14gevondenidie aandeopgave voldoen.

TNfl-TABLEover,welkevanrechCsonder naarlinksregelvoor regelwordt gevuld metvanlinkanaarrechts de teller,de noemec en hetuesultaat;voordeleea- baarheldvandietabelzijndeT-N-en R-ST0HE3 steeda dooreenNOP-bytege- acheiden:adreaaen 4046 en 4049.

-2olanggeengoedantwoocdisgevonden

progcamtna,omdaC de8antuoocdentoch ca2end3nelbekend zijniiaweleengoed antwDord gevonden dan wocdtmetdenaaat lagece RviaNXT-Rhetzoekenvooctgezet.

Hoe,dataalikineenvandevolgende artikelenindejeserie behandelen.

Illllllll HCCPSOBLEI

zxfll

i) I

DiG(r T(ELLER) N(OEnER) SI R(ESULTS)31 DATA THR-TABLE

ADRE3/MHEMOf)ICSZ80-INSTRUC TlE INITIATIE 5011

—

CDE702 CALL 02B7 5014—21DF50 LDHL,50DF 5017

—

224140 LD (4041), HI SOIA—211050 LDHL,5010 SETB+TRFR N TO T + CLEARDK

50ZA-- 502B-- 302C—

502E

—

ED5B4440 LD DE,(4044) 5032

—

214540 5035~7A

5036~aS A,(HL)

5037—27 1HL),A

5a3ft—7B LD A,E

503B—BE ADCA,(HL) 503C—27 DAA

503D—77 (HL),A

503E—3002 NC,5a42

5041—34 (HL)

DJtJZ TEST DIG T AtlD N tINCREMBBT N 5044—ED534740 LD (4047), DE 5048—2E42 LDL,42 5Q4A—llOOOO

504D—OE06 C,06

504P

—

CDe550 CALL5065

5052

—

OD DECC

*2BYTES N JIG-TO-BITS

II

S053

—

20FA

III nil illlilll

5035—2101FF LH=000O 000

ED=8ITS TEN HETRIEVE B S05C

—

280P

505E

—

ai48'50 HL,4043 3./4.DIG-N 5061—E5

5063—3601 A,01

5064—86 A.IHL)

5065—27 DAA

5066—77 [HL),A + 1DCM

5067—2D

5068

—

3BFa JR C,5062 INC1./2.DI

zxfll

TRftMSFBRRNTTOTNR-TAai,E 506D—214A40 LDHL,404A B-STQRE

5070

—

ED5B4140 PTR-TABLE

5074—04 HAKE B=R

STORE B

5O7e--OlO8O0 BCOOOB

5079—EDBS LOOR THPK(40'1A

507B—ED534i40 LD (4041), DE 507P—El POPHL

5080—2D DEC1. )

5081—20 DECL )'

5082—2099 JR NZ.501D

5084—C9 RET TOBASIC

CONVURT DIGITSINTOBITS 5085

—

23 INCHI.

50S6—7E AMHL)

5037

—

CD3F50 508F

508A—7E A,(Ht,)

50BB

—

IF )

1

50ea

—

IF 1

S08E—IF BRA ] RIGHT

508F—E60F OF

5091

—

47 LDB.A

5092

—

AF 5093—83 5094—ce 5095—37

5096—17 A^2.*[B-1

5097—lOFD 5096

5099—3001 NCSOSC

509B

—

IC

509C—82 A,D ]

509D—57 LD D-A )

50A0-- 50Aa— 50B0--

345800 6729 0002 746900 5B23 0003 576800 3942 0004 180029430006 .6758002394 0007 50DO—0254960031370008 50D8—0574290063810009

I

SHrie: peek en pake

1"di:coil"

leecdevcaagkat

33675 en2307^:UDG PEBKen van dezesysteemvarlabela,\evei:C vanliet eerstezelt gedefinieerde kaciiltter,betec bekend als:U5R"a".Sc

:23675,0 oEPOKE33676,0.

Alflwemeet dan21UDS's nadighebben;kunnen weet tegeUjkkunnengebruiken.Elkesetkoat 21*6=168bytes,duamoetenweRAMTOP

vanwelkeycoepHewiUengebmiken, P0KE9indeZBaysteemvaciabele.

23677 en 23573:COORDS Dezeayateemvaclabalen bevatten reap,de x-coScdinaat en de y-co&rdinaatvande laatatgeplotte pixel.HetCLS-commando zetzeallebeiopnul.Jekanelkegel- digeKoEy-uaarde fiiecinPOKEn.Daar- door wocdt ec optiatacheno nieta ijewij- zigd.maarhetvolgendeDRAM-conmando ishandlgialsjevaneenptintwilvnc- 23688 en23689:SPOSN(screen

Deze byteabevatteninfocmatieovecile kolom en de cegelvan detiuidiyePrtlNT- poaitie.Devariabeleop23688begint Oij33enEeltaEnaar 1:devaciabele op23689telta£van24naac3.Jekan zePOKEtiam dePHINT-poaitie eenaantal karafctecanaar llnka/rechts o£eenaan- NaarlinkskanookmetPRINTCHB? 8;en metPRINT CHRS11tmaar een Eoutinde

1CLS-( of.

lando.POKgr eEfekt na eenPRINT of een CLS.maarhet 23S93,S6iahetzelEde als PAPER 7:INK 0:BRIGHT :PLASH Qmaacgebruikt11 bytea mindeir enwerktaneller[maar*ftn commandoinplaata van vier), 23694:«ASK_P Deze byl:euordt tjeraadpleegdindiende tea-otateraent.INK8zalBits 0,1en2 setten.PAPER 8 setbits3,4en5.

BRIGHT 3 aet bit 5,PLASH Bsetbit7 vandezesysteemvarlabele.Vlanneerer

datwordtuitgevoecdIBOja,danneemt hijnatukiclijk die)om deattributente bepalen.Oat "'"

eEfekte

I(bv.INK4=

' lloT." Bijeen (bv.INK5)geAHD wotrdei sultaatisnietS,zoali HIM101AMD BIN 010 - 2373Q en 23731:RflHTOP OpdezeplekstaatHethoogateadces Maar Basic nogtoegangheeEC(deUDG'a iiitgeaondecd).Jekandatopelkewille- zijn:maximum 65535,minimum ca.24000, tenzijjevollediginmachineoode uerfct .

RETURN-adcesaenvanGOSUBS,ookalle channel- enmiccodrive-infocmat ie.Alles boven ditadces(niet23730,maarhet adres dat opdeze 2byteastaat!]is veiligvoorNEW en CLEAR.Eenmeervoor dehandliggendemanier om de RAMTOPop

Ml=lCMIME

raicrofot -lijn

log.zodatjedevQedings-stekkei:ecpas innadaCdeMusicHachine

^n(deaudiouitgangisCINCH}

rqeleverdemiccofoon en depret

ID-comma ndohebiKdeI Idingdooctebladecen.

zo-n38Kuordeningeladon.Na:

0[idecassette scaan alachtgeluiden.

die methetprogramma mee uocdaningela- den.Jekuntdusaldlrekt aan de alag.

brouwd ben.isdepiano.Dusdcukikop depian"0".Ophetschecm vecachijnt een octaaf vaneenpiaiioklavier.Opelite ermee oveceenfcomt.HetisduidelijJtuooc deSchteSpectrum toetaenbordenbedoeld (derubbecen,de*,de12Bende+2): delayoutvanSaga1iaandera.zodat

llllllllll bEsb

alleen onkeluoudigencCen.Speeltwel vlot.Deceapons op daCoeCaenisgoed.

Volgende atap ia.hetgeluid"beltijken". atkanmiddela de"sAmple editoc".Die

piakken.koctomjekuntopgenomengoluid kompleet anders doen klinken. Wanneec je yeliild)dankunjeerecht1lettec,of 1ondec- deelvaneenklinkeruitviaaen.

endiegsDcuiken.Mooi.Jekrijgtook

over delengte van het sample daC je aan

Wlff^-

^-''- -- —

^'

Naeenpaar"beweckingen-klinkttiet geluid natuuclijk abaoluut onheckenbaac.

namelijk het gelkiid horen,Koalajehetop datmomenthebt geluideninkoctenjevetlaatdeeditoc.

jehadgesteld,onherroepeli jk kuijt.

dan"Drums".Eensetvanachtdrums,die elfc**nvanderaeegelevecdegeluiden spelen.OokhLecdezelfde opmetkingover

on.senhoocbaareffekcHeptoOueecen.

Daa"dElete",cuecgeluidenwiaaen,en terugnaar"ecHo".Deuettragingisin- aCelbaar.Hetpcogrammaisintelligent: jekunt geengeluidovecsclicijvendoor deechotijdtelangtemaken.

Hetplezierigatevonditthetsanpleo zelf.ObineegelevecdemiccoEoonisniet bepaald deluxe;maar goedgenoegvoor hetexperiment,Deoptie"sampleR"weckc ofmetde

!identnuja...)-

I!PLa 'J IIIj^^^Dlll !-•'q PIf

'.-.^'-=.-'-=4.

'-i,'-1^

^"^=--•-^ n«.,=,.,...,=„,1M.n..,.

Hetgemakkeli jkeis.datjenil

lijk bijhetdB-punttelatenkomer al3jesampelt:danisdeaignaal/ruia- vethoudinghetbeate.Ruiawocdtiiieege-

kenIjnelodieenbegeleiding),ins in£a.Eerstbepaaljehettempoi

mdat :nij

Daarlethetpcogcammalelfop:pcol wordtdevoorlaatateweggehaald zodrajededecde schcijft.

iiiiimii bEBt

uechogen,druk je"b"("shacp"),gaje

moet wocden:dtjk op de"f"("flat")en SPACE.Hetprogramma vet:betei;ttouten: woE-dtereenai(B)gezet.Slim1

ll...r,^=.i,.:,-|1

isc: —

6S'JBRC

—

IfEi..- 1ll' ' '

Ihir'^'-'Nl ![...,.. II

uolgnutnmer.Omhet'opus"satnentestel- len.hoeCjeenkelvia de"tuNeeditor"

eenceekavandienameno£volgnumraecs inCegeven.Hetzelfde doejevoorde ritmeaectie:ook de dtruma kanjemaat permaat achriji/en.enlateraamenvoegen toteenvolledige begeleiding,Drukje daarna op de"P"(dan hoorjehethele stuk,Dfwel demuzlek ofwel de drums.

Je ituurli. eluidopband

weep tegen eenlegeglazenflea).Door jenogeenbandbreedtevan9:5kHzover, (leesverdec op biz 451

leaecsweciJeQingezonden,DeauteuF[a) IranellcgepubliceerdprogrammeEulLen

progtamma,ontvangCdeiniendac oen boekenbon van fl.15,fl.asoftl.AO.We prabecenzoveelmageUjkpcaricamma' stc publicecen.Kwaliteitapeeltuicecaarr]

debelangcijkatecol.

HOE

F-RCIC3R:«Mh-t(^ |

ir^IZEMDEN

^bbenomalls protjcamma :uucdkrijgen,ook nog-.

:idgeofOpusdit

'al3 wLal

enduideliiktehouden.Denkecaariidat hetprogramroaallaenvnacuzelCdooc- nietominatciictieategeveninverband metSAVE enLOAD-volgocde,indienhet pcogrammatiiteenaantalCfoderdelGo beaCaat,WatUDG'aen blok-^aphice betreft:onzeprintersvectairSo..^ie 127en155.Gebruik dieindeliacl'ng.

Datisnietzo mooi,maar wel dui'Jelijk.

Hetisprettigvoor ona,datoakdebij- behocendetekst('11tekensbreed getypt]

opdezelfdedrageestaat-Taauordis ondarhand wel?.avecapceid,datiedeceen sreentieeftofkanlenen.Andere datwenietdeheleCekatzelfinoeten

lembler-lii

llllllllll

datereenleosbare afdcukvai kanuorden.Anders krijgen wij

alie g*Snboekwerken jbegrijpen datsomni .uecnmaalnietkorter eengonialettuuk etje mag."" Maar op de ZXBln.

"cLai

•nden.Wij 1daI

van debedoelingvaneenF

Hist

namelljk

El—

KE

F-F^OGF^AMMA*S

WijkunnenonmogelijkzelEcontroleren

eeri.ijkheidvertcouuen.Bedenkevenwel dat"aw"programmawocdtgeziendoor zeervelen,dieook nag welandecetijd- achriEtenleaen-Enerisaltijdwel iemand,dieookhettiidachriftheeft gelezen waarln"uw"progtramiaastond.Al

Vleescerlijk.Gebruik je eenroutine die nietvanjezelfia,vecraelddatetdan bij.Wijkomenhethoedan ookteueten enwebeloven dat we de"dadec"metnaam deel,enterecht.Nietdoen,dU3,

Hill specbrum

SCHAATSeiM

m:resp.500,SOt HOOFDMENU.

Illlllllll

llisb

iOOO:i rain.SO.

9

1500:1min.SS.a WOO:11mir,,58.3 JellevQlgenae a*'

M

DC=lFr>F- R;O<5 F* (^1-1

M^

10REM FORMAT"t";240ei:OPEN#4j"f FEN«S;"b"

20PRINT ATll,£>;"Isereendeelnem lijat?":PRINT AT 12. 3i" Ja/Nee:"! 6D Bb00

30 IFI«="n"ORI»-"N"THENGO TD E 40CLStPRINT AT11,4;'Inleien dee mersiij5t!"iLOADfm")¹¹'"Naamlij«f

'

ADCO

45PRINT AT12,4;"Inleienlandenlij :LOAD«"m"iH"Landlijst" DATA e«O

50BEEP 0.3,20:CLS 60PRINT ATl,2i"VaBrde afstanden ilgorde'iPRINT(:

rAT 7,5; "3-1

90PRINTAT i5,5?"Invoer Juisf:-"!F T AT17,10j"Ja/Nee-!GO SUB£00

100IFI«="n"ORI»="N"THEN GD TO 6 110PRINT AT lS,02j"Welke afstand 15 ndebeurt?"!FRINT AT17,6;'

120DOSUB 600!LETk-WALII k>4THEN GO TO 120 130CLS 140PRINT' ";:FORi=l

<STR«(it(H)>):PRINT"fnNEXTi 150 PRINT'

rdelen^K (k)/5l(10!LET paar^l:LET -0!LETaantal=0 k=4 THEN LET maal=l:GO TO200 20a DIM R« 43,ia>

43).D

=egin uitre NTdSs 230 REM FR NT »4;

2S0 REMPR 260 REMPR 270 REM PR NT N4:

2B0 REM PR 270 REM PR NT #5?

300REM PR NTtt4i CHR« 27iCHR«:

CHR*27;CHR*ISj:REM

310 CLS 320IFk=lTHEN GO TO 370 330LETZ«="tQC*"+STR«(Mlk-D) 340 CLS1PRINT AT 0,2i "Inleien klaaaem ent";x(k-l)i"meter!"

350PRINT AT 2,B;"NalBBn"iLOAD *"m";l!Z

•DATA T*<) T«,Si"Puntan":LOAD "ni"tliZ» DOTATO

370 BEEP0.S,20

4Afstdndsklassenient

2;'>STDtcialkldsaefflE 400 CLS1PRINT*

440PRINT AT B, 2;

4S0PRINT AT10,:

4i0PRINT AT12, 470PRINT ATI4,2|'-6 Resultatenop 4B0PRINT AT li,2i"7 CorrHCtiodm 490PRINT AT 20,2; "Maak sen keuze

"jGOSUB 600:LETI-VALI»:IFKl

>7THEN GO TO 490 500 CLSJ60 TO(1*1(I1000 600 IFINKEVSO-"THEN60 TO 600 610 IFINKEV«=-"'THEN GO TO610 620 LETI»=INKEY«:RETURN 2000 IF rijden=l THEN GO TO 2210 2010PRINT AT2,10i"Rit no:"ik 2020PRINT AT 4, 10("A<stiand !"i>((k)

lllllllllll

2070 INPUT"Nrvan1- 20B0 IF D*(I)="

250 2090 LET M«(l)=Dta>!

2100 INPUT"Nrvan 2 llisb

20LET M»<2>=D«(!

30PRINT OT lS,6("Invt 40PRINT AT 20,Hj-'Ja/t 50IFI»="n"OR 1«="N' 60 LET rijden=l;LETs

THENG

!PRINT AT1

21B0 LETQ«<1)=M«

!PRINT AT 1£

LET0»(n=M»

.PRINT AT 26 2200PRINT #0,"Dri.

CLS:BEEP1 ,5("Druk op toBts 2220

PRINT ATIS.i PUT D«(I).RETURN

THEN GO TO 2000

i" :PRINT BUS 23001LET 1) SUB 23001LET Q iBtei"!PAUSE 0:

PAUSE 0!GO TOi

pRETURN 2300IFk-1THENLETj 2310 LET i-0 2320 LET i=i*liIFi>45THEN GO TO 2350 2330 IF 0«(l)<>T«(i)THEN GO TO 2320 2340LET j=T<i)i RETURN 2350LET J-3B0:RETURN:REMonbokend 2360

3000 IF rijden°0 THEN PRINT AT 11,3; "Tij d15a!ingevDerd":BEEP1,201GOTO400 3010PRINT ATi,Bi"Ritno !";k 3020PRINT AT2,B;"P3ar no:'*;paar 3040PRINT AT 5,4iMi i":PRINT AT 5, IBiMl 3050 PRINT AT 7,S;F 7,21;FLASH 1;"2"

3060 PRINT AT 10,3;"

2??'!GO SUE 600 3070 LETI=VflLI*:1

TO3050

2,23;"Punten- 3090 INPUT"WinnendB tijd:

3100 LET a=INT(ttjdM»!LE 100 3110 LET a-^(Bt60-i-b)/delsn 3120 LET C-I:LETM<C)=INT 1000:LET A(n=-M<C)<-a<C):I

3150 IF1-3 THEN LET 1=1 3160 INPUT"Tijdvan2-o 3170 LET a=INT(tijdy):L

3180LET a=*a faethl/delen LET M(D)-INT(a»100e+0.5 1000:LETfl<2-M(D»*QiD):LETA»(2)'M»

Z2e& PRINT ATli,0i"2"-.PRINT AT16,3,r (DliPRINT AT 16,15[tijdv:PRINT ATIt 3in<D)

3210 PRINT ATIS.Sr'lnVQerjuist?"!PR TAT 20,105"Ja/Nee ":SOSUB 600 3220IFI«="nORU="N-THEN CLB:GO

3000 3230REMPR IN«SlCHR» 27lCHR» S4;

3240 REM PRIN•S;CHR« 27;CHR« 21;

3250

=STR«<aantal-l>:LET V»

!-ETR«(tijd:.1LETW«(1J=STR» M(C)

•4;" 'iF«(l)iM»(C)!

Ifl(l) 3280 LET P»(! =STR«(aantal>!LETV«<

1

STfl«<tijdy):LETW«H)-STR«M(D) 3290 REM PR IN#4i" ',p»ll);M*lD);

;A(2):PRINT M4 3300IFaanta>2THEN GO TO 3370 3310 LET K»ll•M»IC)!LET K(l)'tija«:

3320 LET K*(2 -MSIDIjLET K(2>=tijdv!

3340 IF H(IJ^H(2)THENGO TO 3370 33S0 LET Q«(1)»H»(11:LET a<l)-H{ll H«(l)=H«(2)!LET H<1)»H!21:LET H»

• <1):LET H<2><'a<l}

3360 60 TD 3610 3370PRINT AT14,0;BRIGHT1J "1

"

33B0 LET 1=0 3390LET 1=1+1 3400IFM(C)>i,(i)am 3410 FOR J-lflcintal-ll LET L<J)-L(J-1)JLET K(JI-K(J-n:NEXT J 3420 LET K«<I)=M«(C)l TL(I)=M<CJ 3430 PRINT AT14,0i"l RIGHT1;"2-' 3440 LETI-I+l 3450IFM(D)iLIUAM

<>0THEN GO TO 1»1>STEP -I:

=K«<J-U:LET

JTHEN GO TO 3440

3460 FORJ 1TOISTEP-

1LET K(I)-ti

»IFA(l)i:A(2)THEN GO TO 3500 )LET 0«(l)=A»(l):LETQin^ftdliLET (ll-A»<2)iLET A(ll''0<2)iLETA»121=0

)THEN GO TO

,ISTEP -1:

LETH(J)-H(J-1 J 3550LET HSIIl 3560PRINT AT RIGHTli">'- 3570 LET I-l*;

lllllllll

llisb

1TO1STEP-

3600 LET H -f\*<)!LETH(nA<2>

3610LET r LET D aar-paar*!:BEEP 2^7G

3620

CLS:PRINT AT 0,3s 'Rittsnoverzicht 22*LEN(S LETy

4020 FOPI aantalSTEP 2 4030PRINT

LEIy J]

PRITTAB ,S;Ki^11!PRINT

opt

0.3!Klassement 5010 PRINT FORi-1TOI7+LEN(S

x(kl) PRINT'-"!1NEXTt!PRINT 5020 LET^ 5030 FORi

5OB0 GO TO 50'?0PRINT 5100 PRINT 5110 LETv»

ital<-t5THEN LET y=

5200 LET 5210 FOR 5220 PRIM TAB15;

h

.)i:PRINT TAB 24;1

tt0;"Drukaptaets"if ital--15THENCLSiGO AT0,3;"Klassement'

"HFOR i-lTO 'i;PRINT""IINEXT

=30!IF aantal<=3aTl -16 TO y

I;:PRINTTAB 4;k*ii DjjPRINT TAB 24;1(!

jiFDR i=l TO( ll!PRINT"-"i!NEXT '=45:IFaantal<-45 THEN LET>

6020 PRINT* 6030 PRINT^•

ITHEN LET z«-"(

''STR*(ii(k<

;al^-15THEN LET>

Illllllll

lisb

TABI

'

I;:

TAB;

3NEXTI

iiaaPRINT BBi-Druk op tooto "! PAUSE 9IFadntal>15 THEN CLSiGO TOilSffl 9CO TO400 9PRINTAT 0,3i"Tptflalltla3Seinent"'jkI

bl40PRINT" ";:FDR i'lTO(23*LEN13 FR*<x(k)))l:PRINT=";:NEXT i:PRINT il50PRINT "NrNasm Punten!^«

)LETy=30iIFaantal',=30THEN LET y=

7190REMPRINT«3:CHR« STjCHR* 15i 7195REHPRINTKSiCHRI 27(CHR« SA;

TZB0 REM PRINT (tflC'NrNaam Punton 7210 FOR i-l TO aantal 7Z20LETp«<II-STR»(i)iLETV»<1)=STR»

(INT(<(H<I}-H(11Xmaal)*I000) / 1000) '230 REM PRINT It4;p*(1 )th«<t >(h<>) I

" iy»<i)

7240NEXTi

6220 IF aar b230 GO TO 6240PRINT

62£>0PRIN'

.tal>30THEN CLS !60 TO130

':PRINT AT13,2; "uitorstfrapp*

=RINTATIS, Si "TOT ZIENS!"

5REMCLOSEIt4lCLOSE(tSiSTOP

TAB1

&310 NEXTI 4320PRINT •0;-Druk GO TO 400 6330 6990REM WeqsthrijVE 7000 PRINT ATIpSj"*

Itaten":PRINT AT 7, 7020PRINT AT 4,l;"f

RINT AT14,3;"TptiaalklassE 7060 PRINT ATI6,3i'*Namen":PRir

;"Pun ten- 7070PRINT AT 6,3)BRIGHTlj"Naa l"mater":LETz»-"naam"+STR« «<

l\2* DATAk«0 RINTAT B,3lBRIGHTlt"TiJ Iter"!LET i*="ti jd"«-STR«^

!":PAUSE 0:

7090 PRINT(

:LET)

.BRIGHTIj'Tunten"!

)unf'+STR«m VE«"iii-jl,2»DATA1

iPRINT AT 16, 3i BRIGHT l;"Namt meter"!LETi*»"tot*"+STR« x(l m"mi«DATAh«0 iPRINT AT 18,3;BRIGHTIi"Punl

neter"iLET i«-."tQt "+STR« kU Et"iii";I;z«DATAhO 7120 BEEP1,201PRINT i(0t"Zet prir

B030PRINT ATlS,S;"Maak asnksuia<1-S) 8040 GO SUB f>00:IFVALI«<1OR VALI«>S

THEN GO TO B040 S050 IF VALI»-lTHEN GO TO B4S0 8060IFVALlt=2 OR UALI«-3THEN PRINT AT17, 5{"Evenwachten a.u.b,":GO TOB08

.ETa=a*l:IFa=46THEN GO TO 8120 :Fd«(a)C>q*<I)THEN BO TO BI00 120CLStLET a-a-1 1130 PRINTAT0,3;"DHlneinBraIijat"

IF -15 THENL id«lj);:PRINT TABI6(e«(j):NEXT j

"

'RINT•0i"Drak pp toota": PAUSEi :Fa>15 THENCLS:GOTOB200 8190IFVALla^lTHEN GO TO 8000 8195IFVALI«''3THEN GO TO 8370 8200LET y=30:IF a'C-30THEN LET y-a 8210 FOR J-16 TO VIPRINT j;:PRINT Tf 4id»(j);;PRINT TAB 16;

8220 PRINT (t0j"Dri.k op 8230 IF a>30 THEN CLSiGO TO 8250 B240 IF VALI«=lTHEN GO TO 8000 8245 IF VALI«=3THEN GO TO 8370 8250 LET y=4S:IFa<»45 THEN LET v=a B260 FOR j=31TO y:PRINT j;j PRINT TAB 4;tJ«(j»isPRINT TAB16ie«<jliNEXT j 8270 PRINT l>0;"Druk op toets":PAUSE 8280 IF UALI«»lT^eNSO TO 8008

;PAUSE

8290 IF VALI»=3THEN GO TOeZ"!

B30a LET 3=^*1:IFa-^At,THEN PF tis vol-iBEEP £1.5, 20:PRINT« ptoetB"iPAUSE 0!GO TO a0i»0 B310INPUT"Naam van rij[jEr":cH TLan[f'!e«<a>

B320 PRINT (t0;"NDg meer?"

8330 GO SUB 600!IFI»-"j"DR1 N GO TOB300 S340 CLS!GO TO B000 Q370INPUT•WBlk nr wij

"NieuHS naBn>i"td*(c>>I B390PRINT #01 "Nog maor B390 GO SUB £>00:IF1«- N GO TOB370 B400 CLS:GO TO B000 B402 B405 REM Opbergen op t.

B40B B420 GO£

Stl!

*1NTf

1B435

B430PRINT AT15,10)BRIGHT1 B43E PRINT AT16,10;BRIGHT1 AVE «"in";lj"N»amlijBt"DATAc 'm";li"LandlljsfDATAe»() 9440 GO TO 400 8450 CLS:

:PRINT ATl,3i"=-

B460DIM d*(45,10)iDIM e«<

B470 LETa-0 84 B0 LET a=a+t B490INPUT-Naam van rijder BS00IFi«="KKJi"OR ?«="XXX S120 8510 LET d«(a)-i«:INPUT''L B520 PRINT a;:PRINT TAB 4;

TAG 16;s*<a):GO TO B4B0 8530 STOP 9000 REM PRINT #5!CHF 9010 FOR 1=1TO 43 9020 LET p»(i)-STR«<i) 9030REM PRINTMjpSd)id»(i 1 ;"

9040 NEXTi 9050REM PRINT »(S;CHR» Z7!CHR«1

I27;CHR«1

12400:OPEN (t4|"t' 10REM FORMAT"

PEN BSi "b"

15INPUT"Voor afstaodenin';al, 20DATA al,a2,a3,a4 30DIM a*<l,21iDIM b«ll6,3):Dlh ,7)!DIM d«(l,51iDIMe»U,5>:DIM 2>tDIM 4*11, bitDin g«(l,7)!DIMs )iDIM h»(l,i)iDIM k*<l,7):DIM t>

IDIMl«U,7JiDIM u«(1.2>

40DIM c:<16):DIM d<li)iDIM atli Mr(t6)!DIM *(16)iDIM g(16»!DIM 1DIM h<l<i)iDIM k<l&):DIM (416):

lllllllll

llisb

.puntentotaal":BEEP 0.5,20

B0 PRINT AT14,5;BRIGHT1;FLASH Ij-L tEN":LOAD*"m"j1 ;"tQt»l0000"DATA ;•<!

I":LOAD •"m"sls"tatl0000"DATAzO 85 CLS:PRINT AT 10,4; "Li Jatan cambir 90FOR 1-1TO16 00LET j-0 10LETj-jH 20IF>i«(_i)<;z»li)THEN GO TO 110 30 LETb«(i)-y»(J) 40 NEXTi 50BEEP1,30:CLS 60FDR i=lTOlb 70PRINT TAB 3|i | iPRINTTAB 6|z*(i])i RINT TAB 18ib«(i)t' PRINT TAB Z7|7(i) 80NEXTi 90 BEEP1,201PRINT(10:"Dr-ukoptoots' :PAUSE

210 CLS:READa^stand

"m";l!"tijd"*STR«(afatand!DATA p( 1

23aPRINT AT14,l;-Ladentotalen:"ia fstand;" meter":LOAD »-m"j1;'tot«'-*STR«

(afatandlDATA q«() iPRINT AT' 15,1|"Lad 'm"ji;"tot"i-STR»(a+standlDATAqO:PRl NT AT17,l;"Gegeven5 verwerkon; "iBEEP .5,20:RETURN

240 GO SUB 210:REM Re^ultaat 500 meter

ITHEN GO TO 260

THENGO TO 300 320 LET E(l=qj»

330 NEXTi

?10RECRi»u taa t 5000 350FDR i-TO16

LET j- LETJ-i+1

IFp«( THEN GO TO 370

390 LET f< LET a 400 LET j- 410 LETj''J*l 420IF q»( •(i 430LET g(

440 NEXT1 450 GBSUB 210:REM Resultaatt:

460 FDR i-1 TO16 470 LET j=0 480 LET j=j*l 490 IF p»(jl<>z»(i)THEN GO TO' 500 LET h(iJ=p(J)iLET t<i)=J 510 LET J=0

Illllllll

llisb

570 FOR 1-1 TO16 SBs)LET j=0 590 LET j=j*l

b3a

5REMPRINT »5tCHR« 27jCHR« 21;

t50REMPRINT l(S;CHR« 27;CHR» 23;

6b0FDR i=lTO16 670 LET a»(l)»STR«(i)iLETc«(ll-STR«

(I(i>)jLETd»(l)=STR«(d(i))iLETe»(l)

=STR»(e(iHiLETr«!ICSTR«(rlDtjLET (•(1)-STR«<f(i))iLETg»ll>=STR«(a<l) ):LETa»<i)-STR«(eli))!LETh*(ll-STR*

(h(i>):LETk*(t)'5TR*(k<i)>:LET t«( 1

)-STR»(ta))iLET 1«<I)''STR«(i(i>J:LE 6S0 REMPRINT W4;a«(l)|""}zS(i>j"";bS

l_LJXEl—ISTEFt EBBRT ZWART

Lpragrajnmazorqt

Hi>tneaft ten opzichte

2.Dd carets 4 positiss van si kar ziJngaraaarveerd voor hat regal nan zodatda ragalnumnars goad zlchbAar enernlvtonderhordtdDorgaachraven als deBASIC regalniet op deprintregel

3.UOG'a an gra-flacht

instal leerprogramma bijgsleverd.Da L

tazen danbytesopgegaven

:iamssQvgavan oiag afgedrukt.Dacontr

bepalen,mitsdezemlntnaal32 ikters uit elkaar liggen.Ookkunt u .aatste printregel bepalen.Vaar12

1papiari5daadvisEregel '68 en voor nchpapier 62.

Typede 4BK(d*I6K>loaderinanRUN hetpragr-dmrna.Ala u argana een typf out hebt gemaakt,kr-ijgtueenboodachap gavolgd door"STOPstatement".Uooet netzolangdafauteninuxlisting verbetaran totOat u tijdenadaRUNde boodachap"Out atDATA"krijgt.Save de verkregencodanuoptapeBetSAVE

"LISTER" CODE64312,727 (at I6K.

31744,727)en Bpoeldetape terug.Typ CLEAR 31743 Typ nu hatinstal leerprogramrnainenRUN

dezeBASICliatervervolgens te mengebruiken,hebtutuae kanalan lig. De volgende atateraants itialiaaran deze kanalen. Daze itementa moet u dus loa invoaren.

OPEN #3,"t"!OPENH

31744,IB727bytes lang en ban Hordan aangernspen131744vDor16K>.metRANDQMIZEIndatgevalUSRwordt deM512 tomplete listing van hot BASIC praqranma

inmoeterinhetBASICp

metRANDOMIZE FN A<eer

-ogrammaineenREM

10REMLISTERbbbb<b'spati

1Gecrt ImetHEXLOAD 30

40 DEF FN F<X«)-l6l<CODe )(»U )-4e-39«(

!(«<1)>"9">)+C0DE X«(2)-4B-39«(X«<2>>"9") S0 LETADR-UAL 'fc4512":LET L=1000 60 READ H»tLETSDM=0 70 FOR C=I TO LEN(H«)STEP 2 SB LET WRD-^FN F(H«(C TO C->1>) 90 POKE ADR.WRD 100LET ADR-ADR«-1 110LETSOM=SOM+WRD 120NEXT C 130READ TOTAAL 135IFTOTAALOSDMTHEN PRINT"FOUTECH ECKSOn IN REGEL "iL:STOP

140IFTOTAAL "SON THEN PRINT "Reqel";L i"OK"

145LET L=L+i0 150 50 TO 60 1000DATA "182803 Ib2d01 0000000003 Ib2d000 e4O4400000000002a53Si:232323233Eeabe200b2 311cafe010a00edb018",VAL "2292"

1010DATA "0a21cafe0fi0a363f 2310<b3e-fa322 Bf c a-F3229'r c 2a0b3i: 7i:b 5281ee Sd de!d d 6e0c: d d£>

60d23cdiel92226fcda6B04dcttii05cd6el92b3e0 dlS12211027ed6eI722",UflL"6304"

llllllllll

llisb li320DATA"26fc2a535c2b3B0dtB017ocdbilBf efd2B29fe2030i33231B<UoB03805fea5da0dfdf S060iaAa53a0Beb4'f 06002 td*fd094fiebcd7SfIff ld723iaq-fd723ed5b2t",VAL"7273"

1030 DATA "*ca7ed52200e3e04cd01163«0cd73 e03c001 1tc 9193a2Bf c3c322Bfc4-f3a24+cb9300 3c:da9td46234e232323e5cd2b2dBf 312e38i:d*1 2

b3a22fcci04322Hft91",\

1040DATA "473e20d710fbcde32dBlc3Bafcf3«

53e04cd0116el-fl'Ce90302dlll2'fccd66fd300S3 e3fd7182fd6S032tf

f

90707074f0600eb 2139fe0

"7353" ilfccdifc*

>lcd7Sfd2 '131ad71310+b79a

"7690"

;3c 3228*

101163e0 9Eb06081ad7]310fb:

1050DATA"la*ccd66tdlB0fc ad71 10af ccd66f deS3B03cd01 1

3c3Bafc4*Jaa720033779c947i:

7c93a2SfcB03225fc4f ",UAL^' 1060DATA ~3a23-ftb9d03e0dd73a2:

03225<c4104052a053e20d710fb3a26 c4f3a24fcb9d0H53a29+c:a7280B3p0<

Cd73e03cd01l63a22f c",VAL"6401"

1070DATA"c605473e20d710fb21b9fB7n3c2a0 53cld72318f7ai3e03322Bfc3229*cc9030602030 6080503040505040404040404040403040404040 40503040S0504040405",VAL"3455"

1080DATA"02020206060406080308060707080 70B060B0507070809060S0B0B06060 60906 080 a0 i706070B0605060b0305060

",VAL"1399"

lIBISieiBl

X«<1!>"9"1 )+CODEX»(2>-48-39»(X«(2>>"9">

50LET ADR-VflL"31744":LETL-1000 60READ HS:LETSOK-0 70 FOR C-1 TO LEN(H»)STEP 2 80 LET WRD=FN F<H»<C TO C*l)»

90POKEADR.URD 100LET ADR-ADR+1 110 LET SOK=50fH-URD 130READ TOTAAL 135IFTOTAALOSOMTHENPRINT "FOUTE CH ECK5011INREGEL"jL:STOP

140IFTOTAAL-SOM THEN PRINT "Ragel"|L

5LETL+ 10

150GO1

1000DATA "182B031b2d010000000003lb2d000 84e3e00000000002a535c232323233eeabe200b2 311ta7e010a00ettb01B",yAL"2158"

1010DATA "0a21i:a7e060a363f2310fb3efa322 87ca-f322?7c2a0b5c7cb528lBe5adeldd6e0cad6 60d23cO6eI922267c:dd6B04dd6605c d6sl92b3a0 dlS12211027cd6el922",UAL '5792"

1020DATA267c2a533c2b3o0O180t7BcOb618f B0d2e29'fe20300323tBflfBB03B05faSda0d7d'F 50601d6a5380aeb4f060021de7d0946Bbrd787df ld72318c4d723eiI3b26",VAL"6761"

1B30 DATfi'7ca7e[J52200B3e04cd0114,3eBrd73

«03ca0116c9l73a287c3c322a7c4f3fl347cb9.30B 3cda97d46?34e2323r3e5[:d2h2[Jef 312e3Bc df1 2

b3a227cci.0452257c91",VflL"5749"

1040DflTfl"473e20iI710fbcdB32delc3Ba7cf5B 53e04cd01 16el-f I*o903e2di1127ccd6t7d30053 B3fcl71B2fdie«32f +f90707074* 0fi00eb 21397e0 9ebP4i0aiad71310<bl t'-,VAL"6841"

1«S0Dflrfl'Ia7ccd6i.7dia0td64f l]027ccB6*7

dd7110a7ccdi,67dB53BB3cd0il6elB60tcd7B7d2 3c3Ba7c4f taa720033779t947131ad71310<b79a 7c93a257ca032257c4f ",VAL "t410~

10&0 DATA 3a237cb9d03e0dO73a227cc6054fS 032257c:4104052B053o20d710fh3a2B7c3c322B7 c4t3»247cb9d0o53a297ca72B0a3e04cd0I163e0 cd73»03ca0ili.3a227c",VflL"5377"

1070DATA "c:tp05473e20d710fb21b97e7e3c2S0 53dd723

1

Bi7eI3e03322B7c 3 22 97c =90306020 30 608050 304030:^04040404 04 0404040 30 4 0404040 403^3 04050504 04 04 05 ",VAL '3071"

1080 DATA -02020206060406080508060707000 S0506070807060:

70e07ff8ia:

1090DATA' '050-

f f+f *flc697374696ei 1110DATA "206f662l 000000000000d0d'r-r" ,val

flflfK ffsiaia*fflf

B-fSfSf'»

SfSfBffff+lf fif-f-f-

VAL"13 23"

6 96c65 3200000 000

llllllllll lish

130INPUT'WnimaalI:",^,,fa<lTHEN 60 TO 130

140POKE base.aiPRINT a

^145 PRINT"WatIsu« r»cht«r kantlijn?

150INPUT"minimaal-;(a*311i",-,biIF b<a+31160 POKE baae-i-l.bi PRINT bTHEN GO TO 150 170PRINT "Wat is um laatst* Drinraaal"

'"pnrblfld-?"[ ^ 180INPUT"Mlnimaal5i",(:,IF c<5 THEN

^B0 CLS!PRINT "LiBter is gBistatlaBrd

"^* "ordt nu gssavad metiSAVE""

LISTER"" CODE "jtaasB-34i",727"

205 SAVE "LlSrER"CODE baBS-34, 727 210STOP 500 FOR n-0 TO 6 510 INPUT "AUeofi ENTER ie stopptfni"t

LINE a* '

320IFa«=""TV«N GO TO 550 323PRINT a»("", 530 LET a(n+l)=WAL a*

540 NEXT n 550POKE basB,n 560 FOR m-1 TO n 570 POKE baaB»iii,a<Bil 580NEXT m 390 LET basB-baea*B 595 PRINT"

600 RETURN

HTLEGASSEMBLER LISTING

1REK EbsrtZHart 3REM Llistinstaller 6DEFFN a(*,l)-^USR 64512 10 DIM a<7>1CLS 20 PRINT"Installeerprcjgranima 8AS1C-Ii

32PRINT'"Heeftuaen16K(0)ofsen 48K <UverEies:"j

33 LET fi«"INKEV«iIF A»=""THEN GO TO 33

34IFa«—0"THEN LET base^31746:GD T O40

55IFa«--l-THEN LET baae«64514i GO T 40

36 GO TO 33 40PRINT""LADENiister cnde"iLOAD"

L1BTER"C0DE baaB-2,737 45CLSIPRINT "Wat ^ijn de control ch aractBTfi"' "Qm UDG ts activeren? (ma« 7)

i

50 BO SUB 500 60PRINT -Wat iijn da control characte r5"'"Dm UDG te deacti veren7"

70GO SUB 500 80PRINT "Wat zijn de control cbaracte r5"*-Dm grafischefliodete attiveren?"

90GO sue 500 100PRINT"WatzijndB controlcharacte rE"'''onigra-f.mode te dBactivBren7"

110GO SUB500 120PRINT -Watisuwlinker i^antlijn?"

R10:Voorl&K gebruikers R30-140IDeclaratie ROM

R520-550:

Illlllllll

R940-1000:AIs het eenk delenqte Vein dit keyMor inB gezet.

R 101 0-1050 it,staat oecontrolei

R1070- 11201

R 1290- 1330 J

marUtInBC ga mtackQBplaati

wordt hat gcdupl icesrclc PR_FP.

R1340-15'f0iHet

<tie.Za JB, :inPR_HDR

lelBi

'kanaalwordt geopenrJ

Fhet Bsn UDG is.

;0-i670iPrint d 'gra-ficcho imdE.

-act«r» iijn(Car

llisb

on>dB UDG te

R290«>-3320:Ditzijnde bytes diena;

deprintergeatuurd mocten worOen voc de grafiache karakter-a(Bper-character R3340-3380:De kopregel

.

LD A.MEA

ETMBl-ER-_is-r1IMG

30 DEFMID FOU 40 PROS f-W

m

DP Ct«FtHIt«l60l fiOLN flDFKtil• I9GE

70 HRJH2DE3

NUMBEPtyu

•202B Fill•2BFI iintWPL (131

EQUt2E ENO CbUUttse I4UUOG t«U•SC7B

JR MAIN iDJJDGDEFS 8 iT_U[>6DEFS 8

>D_SRflDEFS e 5T^GRflDEFS 8 3LnARS DEFS1 R_t1ARQDEFSI 3DF_L»4EDEFS1 COUNTDEFS1 3ENOLST DEFS 2 LINEDEFSI aFLAGDEFS1

420 NONflME

480 ENDNM ID HL,NAME II) lit (HL>,-7 IKCHL DJNZ •-3

in (FLAG,A in HL,(DEFADD in

L Z,NO1 HL MJPIX

Illllllli

llisb

670 LD fl,»OD

JR 700 CALL LN_fiDR

710 tENDLST)

720 LDHL.tPRDS

:LD A.I.HL) CALL NUMBER CPtOD JR2,ENTER

JR NXeVTE 360 PRCHflR(

900NO^GRAF SfJB«A5 JR C,NO_TOK EX DE,HL LD C.ft LD B,#00 LD HL,TABLE HDDHL,BC

JB NXBYTE R5TBIO INCHL LO de,(endlst:

CALL DP_CHN 470SPACES LD

GRAPHPU5h

200NO_ENDADDHL.DE

LD C,A LD A,(DF_LME) CP C JR IC .MG_F 290NO_FF

CALL PR HDR LO B,(HL>

INCHL LD C,(HL1 INCHL

PUSH HL CALLSTKBC RST»t2e DEFB OUPL DEFB 3TR 5 DEFB END C CALL STKFCH LD fl.i.L_MORG) ADDA

,

a

mi LD A.iOEl 2460

RSTttio 2470

INCDE DJN2

DE.TBRA PR 5T4 JR ENDGRO

2530 DE.D UDG 2S50 CALL PR^STa

RST 2S70

LD DE,T_UDG 2580

930ENDGRAF

CALL CNTR 2020F 2030 2040 2060 2070 20S0 2090F

_ST4LOC,A

2220 LD

2230 LD

2240 CP

LD 22S0 RET

COLL 2260 LD

POPHL 2270 RST

2280 LD

2290 ADD

2300 LD

2310 ADD

2320 LD

ncTgi 2330 LD

LD 2340 INC

RST 2350 DEC

2360 JR

2370SPACELD RST

RLCA 2400 P_NOSP LD

A,(COUNT 5

n,8 (COUNT) ,

A

C.ft A,iR_T1ARG) C NC 0,#00

A,(DF_LNE)

2450PR_HDR PUSH HL

2640 2650 2660

'.LD A,#03

CALLOP CHN LD fi.lL_MARe)

JRZ,E2

Illllllll llisb

2730 RET

2750TABLEDEFB 3. 6. 2, 3. 6, 8..

5

2760 DEFB 3,4,5,5,4.4.4 2760 DEFB 4',4!4'.4!5!3!fl 2790 OEFB 5.'5!4.'4;4,'5!2

DEFB DEFB 8,6.8.5.7,7,8 2930 DEFB9,6,5.6.B.&,6

2840 DEFB

DEFB DEFB 5,7.6,7,8.6,5

6,11,5.5.6.7

2890 DEFB8,7

2890 2900 TABLEOEFB ttFF.«8l.N8l

DEFB •81

DEFB •FF

2930 DEFBt>81•81•81

2940 DEFB •Fl•Fl•Fl 29S0 DEFB BFF •FF

2960 DEFB •Fl•81

2970 DEFBttei •FF

2960 DEFB #FF

DEFB •Fl

DEFB #Fi•FF

•81• 81 DEFB •8F «8F

3030 #FF

DEFB •FF

•FF •FF 3060 DEFB •FF •Fl•Fl

3070 DEFB NFl

•FF • FF

3090 DEFB •Fl•Fl

3100 •FF

3110 DEFB »FF

3120 •8F • 8F

DEFB •81

3140 DEFB •FF •8F

3150 OEFB

3160 DEFB •FF

3170 DEFB •FF

3)80 DEFB •81• 81

•FF •FF

DEFB •FF •FF •Fl

3210 DEFB MFI •FF

3220 OEFB •FF

3230 DEFB •BF •BF •BF DEFB #FF • FF

3250 «(8F•8F

3260 OEFB •FF •FF

3270 DEFB •FF •FF

3280 DEFB •FF •FF •SF

3290 DEFB

3300 DCTB •FF • FF

3310 DEFB •FF •FF

3320 •FF•FF

MOEFM "Listing of"

3350 DEFM "file;"

3360 NAME OEFS D^B•OD.tOO.ttFF 3380 3390 3400 ZZZ

LJIvIXV^EF«SEt_I

MEX /DEC

J.C.HOLLANDER

7000 GO TO 7001REM*

7025 PftlNl TO7200 7100REM>

DEC."

-<HEX.

PAUSE OiGD

"DECGETAL?:"tZ X=Z:LETW=l*rNr(LNZ/LN1 X(MI:DIM R'<M}

N-W TOISTEP -1 '150FDR N-W '16060SUB '170PAUSE O TO1 -INI

1NEXT

=HEK"(

STEP -1 (Z/lt-l Z=Z-R<N)!RETURN

=X(N>>9 THEN PRINT CMR»<X(Nl+55>

:RETURN

^INTCHR»!X(NI*4B>i""jiRETURN EHtitMENU ttt -S:PRINT"MENU""

"CDD-MAN DECNAAR HEX, CH3 tHEXNAARDEC."'""WERKTONGELIMITE 1ETCAPITALS en Klein door elkaar to I.Et-3Sof,..tot33 HEXfl-GETALLEN,^"

"MAAtCUW KEUZEiDofH"

INKEVS'-h" OR INKEy*="H"THEN GO 7230 IFlNKEY«="d

TO7100 7235 GO TO 7225

1INKE¥»-"D"THENGO

Illlllllll

Ilj5b

LU5T-TJP

llllllll qi llllllll

1=1- F-|_OMF=-

ZniiiBlcptal.3Lincptmatengebruik

vondaFiie dia sup_Bsni heat.DezB file bovat de code zargt dac cot en uncpt een stBlc^anrlal_ld '3taegaujorpen krijgen en zich dusmethoeven bezLg ta hauden met hetepenan van files en matdaarasn vast zit.DitheoFttiijaevnnrilBlen,CanBer- ateladit opanenvanfilaavoar veel JobseenonBeuaar aalijka bazlohaid 20- datauposmvcor vaeipraBramniB'stage- brulkenI3.Tontmeedaishatband 10 en deZB cLida aporttal^cLinnanuorbetaran.

alsLia5up_8em dcorlets batars vervan- ganiijnmetoon alle proaremmo 'a die er

b

huidiaevarsie vanaupasm her- kentEiuaaverachi liandeaanroepenvan eenJob,de"EX.ECproa" variant,uaarbij eanuiindDuigaopand ujordtenariin-an Liitvoerfiles gevraagd luordt,an de"EX proa. Fi lei, Files"variantluaarUijprog uordtlosgalaten op Filelen filee.Da serstBvariant heeft iijnuiiidoujinde

inaFR0CE5 moat alle

aai:nag Bnigo die speciFii

tonjol sprakanzljn

inatru>:tie"bro.sstart",onvaorde 'job.name".Ditzargtervoordotbij sxac-en van de job daaupaamcade ujordt osngeroepan.HeCishethondlgat om da filesupaamdirecthiarna te includen.

HeFiledib3up_aaniaobrijikt zorgt zelFvoor vcldoonde"data area", die mat eanQflTPtCaraomsSI2EJop-

EenvarderBaFspraak13nogdaC spociFlceerdalabela luQrden doorgegeven.

ZoIDU manbiJvnDrbBBldeenoptlain kunnenhnoLJondatalaaup_o3m uiordt go- IncludemotlabelOFT_DELETE -1.dan luordtdamvoerfHonagabruik Qeufist

.

Eonmogalijko ueruanfllng van sup_Bam nontovraaan hat Dphatbeeldschorm lUBBraegevendirectoryte"plukken".

Est!andoremogalijuhaid is het mokan vanaen"apaclal"jobuoor da Toolkit, diason asnroap"EXcpt,fllol,flleS,

"EXcpt,FiiBl,fllol_cpf,"EXcpt.filaa, moB20Uman brhIBen eaotal Files toge-

liJeeroonandare magsliJkhBid la hot

vorbouijianvancptanuncpttotbasic commando's.Ditlauac gecampl iceordor

,

Ds"DOTBxxxx"lou uitdafilesmoBten Uardnr ?au roan PRCCES in supervisor rnods moaten aanroopanoiiidatdieBrgaan

ling )udti

;pointf

llllllllll

liisb

HetIBnatuuriijk mogalijk nog veal moornuttigo uarvangers voor sup asm ta bodonken.Ealang dazaopuergoliJkbBro uiiJZBalaBup asm dat doat mat da PRDCES routins pratsn is het relatlef aonvoudig amcpten uncpt mat die routines uit to rusten.Cis routinos zijndan ook ueor Beachiktvuor alle vclgonde programma' 3

lijkbart danbap PROCES1

mnetan zorgan

.

(OUTPUTS;dO=qdos

bO,Inp.ld(a4)

Illlllllll

lljsb

IFerrorTHEM

>"Qeuootigevc 1luorden.

)THEN

'Zetd3weer

FOR dO:-lengte a3:-[0]^.*n REPEAT

i(a3,dl.ul ,d3 d3=knoopTHEN s3:=b4-r3«d3

.(»=Cd3]*J

adda.l d3,a3 adda.l d3,B3

Illlllllll

llisb

bgt.B mc.nKt 1eegde buffi

bsr tluBh_outp ENDIF:

subq.l tl.dO END FOR dO;

tINPUTS;d3=0,a3=C01.

toutputs:geen.Boomno.

'CEBRUIKT dl ,d2Enal.

tIrd3.w wcrdtdelaatEl IondJBIBgebruikenat;

fINPUTS;alendJ.De.

IFqetblt= THEN

BZVPifiRdS.W leesbyte(d:i KERSTEL d3.u Gtapd2Ina ELSE

tINPUTS:geen [OUTPUTS;d2.bist.

IGBBRUIKT d3.invoei

d_b¥temove.u »7

Iktd4,dS enaS.

FOR d3:=7DOUNTO Q

Illllllllll

llish

•-ROXftenROXL, --sec en BCS.

<DeInvoerfileIsge&ufferdind4,d5enaS.die :dPiesubi-DutincdanaoHnietveranderd mogenwoi- 1INPUTS;geen.

)-d3/a0-al,-l5c Inp1efi,d2 ipbur (a4) ,a5

1.1(9pl*,dO-d; HERSTEL rei

ENDIF; Haallong. wort

*Routine die eenTRAP i3c

«errorindO'end offile

*INPUTS;alsTRAP »3 bed, tOUTPUTS;alsTRftP«3beh;

tRoutine dIede

«INPUTS:dbbev

*OUTPUTSrb6=t

Illlllllllll

Call. at

dO-di/aO BEUAAR regist

*outp_le n.d2 d2.wi=buffe d6,az

IFd2.»<>

a4),B0 Hchrijf.bu ib.s'i

qd3 end' IF;

eoiply

BDve.W •oulp^le n.db d6.w;=bulfe .u.rout, n^5.

*DflTfltypen;

lish

Iflrray[0..255]i

lit.a5ttljslr jaata)svolgl

-Alad4geenI

d5endb.Ind4\

•qItid4litslaat )n9WQrdBdatnogInt

.d5;=0.inochd4,nochhetgeHet

Illllllll llisb

tvoorgestuufd,

EGEHEUGEN GEBRUIf

bB 2Zbi3byli

SUF-F-O R"T

E

R

«Version2.00 (c)A.PlomplfSi>

tZorgt ervonr dat de aanroep'bhprog, I

teenaanroHp vandasubroultne proceen

«INPUT:aO-cnannal_iO fllel,oeoper X a3=channal.idtMe2,geoper t a4=pei-5l»adi-esinvrije di

« aS-laatBtBadre5 vanjnb.

«OUTPUT:dO-errorkode.

Illlllllll

llisb

I;DftTflSPACE:102bytee vt

eerste102byti IB2wardt er gei

ubq.u tt2,d0 IFdO= THEN

GOTOinteractiof IFdO<>7THENRAISEC

nove.1 dO,d3 REPORT ttO.dO FORCE.REMOUE^

Illllllll llisb

Openton_volgen?

INPUTS;d7=

Illlllllllllllll

llisb addq.l

•bufl.len.dS .(»bufferbeginlop

trap

IferrorTHEN

bne RAISE

IFfilenadm*= THEN beq.B Bltit_9f RETURN;(tlero-true,dO-

(]l.(a4) dO,a3

a4.fl0 moveq Hio.open.dO

e[g'' dO.aS io;=cotiBolEId:a3;=filecha IFerror blJopenen THEN

REPORT error up console IfDve.W ut.Brr,j2

br^s 9e?'file ELSE

mov^q fl.dl ZERO.FLAG;=FALSE-RETURN

INPUTIaO=cHannalid.

oaeaOnoveq (tio. close,dO CLOSE aO trap 112

tsl.b dO IF errorTHEN

"LEAqu_inp(PC) .a

'"'-""

'^lll 'inputfie;

• tr,n9nputfMe:

quoutdc.« H tr ing"Outputfile;"

dc.b 'Outputfle:'

«Dbinputbufferlitdirec

P

(b4)Dttkanprobl>mengeveaangeilen

*PHOCES dllookalsgierkqeeugenlaqebrulkon.HetkanvooSUPPORT debufferverlorengaa

*aanroepvanPROCES.Doie3pI'nbertworOtgeachtgeen ge

*maken van -atorinhetwprkgeheuq nslaat.

OObvte.InpuVbuffer

nnE-liner cnmpEhihiE

ONE-LINER COMPETITIe'i

Decompetitie eindigti SINCLAIR GIDS.Dan Mart

De H0DFDPRIJ5 vanOeis competitie Is een REGLEMENT

een aantalrsgels:

l.Allelezers van deSINCLAIR GIDS fflogen

J.Aladeruimte het toelaatZLillPr

!eDNE-LINERS allemaalpublicereni jINCLAIP:-6IDB.

de SIMCLAIRGIOS

*

^-Jf

LJITSI_l=lC5leROr-J

Enkelehadd^r

>e^nRANDOMIZE

ets^e(Belgi^ler.

.utility.

10PAPER 0:BORDER 01ir q-0 TO 39[READa H+q.a:NEKT

:READ a:POKE

:LET d-l5(FO

iijiiiaiLETi=usRzeeaa:

FSCREEN*(10,d)'>"n"THEN PRIN ATltl,d!"V:PRINT AT 20,(ttRND [5-RNDI10;"OO":PRINT!POKE 236

>2,-l:PRINTsLETd-d* (IN*:EY»="

1")-<1NKEY«="1"J!PRINTATe>,lil|- IcorS!'las" mad byHolyaoff NEKT a:DATA Si,6,1 ,197,33,7,0, :'',B',6',229,2e'5,IBl,3,225,17,2«1,ia ,167,237,90, 125,^54,255,32,237, 1

LETg2=PEEK INPUT"Startvana ii"jg:INPUT"Lij it:INPUT-PapBrl1 ifc:LET nl=175:IN 3)")fiCLS1RAND .ETgl=PEEK 236701 3671:LETa«=CHR»

t.CHR*IS+CHR*f->

CHRt16+CHR*inktCHR*17->CHR»pa per*a»:LETi=LEN a«iRANDOMIZE

?tLETil^PEEK 236701LET z2-PEE K 23671:FOR K=gTOg*12jREAD « :POKE K,m:NEXT xtFORM=g+!J T Og*12+LEN a«:POKE ii,CODEa«U- (g*12>):NEXT x:RANDONIZE USR g :PAUSE 0:CLS:LETIsngte'i*!?

:PRINT "Start gte: ;ngte;' NDDMIZEUSR"

LINE s»:PRl ["StartenviaRA INPUTFilonaaii NT'"Saving"j«

G*CDDE OilengtB:

ng"is«|iVERIFY '!S«i"CODE'i9j",";lengto!DAT A205,nl,13,l7,gl,o2, l,zl,z2,205 ,6e>,32,201

1FEM P.Zeiaerlo-- 1S01NI-,u<iBORDEFI'l!Ci^c-Et RIGHT1:CLS!PRINT St(;i,i?-.

groat(P/W^'^";INPUT^,t ,^lflT0,ljLINE j«: POIE 2;i tPSUSE5eiJPRINT AT 0,^'i''hi;

1vergroteti'(»/l(?P)-"';INPL 22-l,PiflT i",!;LINE l»icqk t59,2iPRINT AT ff,27}Vft\. j«i m=ITO(VAL.i«>:PLOTie'0*n m:NEXT miFORm=iiiTO<yALj :FDR n=l TO iVAL i*i!INh

«&):BEEP !S,l,n-:;5!PLOT m-l B-Hn'niNEXT n:NEKT n:PRINl ZI,1B>!"DPUKEEN TOETS":PfiU?

Dne-linEr cnmpEbihiE

FILOSOFT

m

ⁱ

KEZ3£ 19.IP!FOR n-t-TO 44STEP a :PLOC,n!DRAW=4.0'^LOT

DRAW e',64:NEXT njFOFn-9 1POR in*12iCHF«(ir4*"»n =";CHP»a

AT 2.isrxurrer LET=£!

LET y 0!PAUSEL"1FTiS=!hev»!

POKE 23621il,-(ND CHF*

POKE 2-S2lil»*x-32 LET.

*=''5".(i»="B"'>:1FT )*Ii*-"7"):POfE 9:POKE 23&Z4'.:- '

= "A")*22t(i«.' = ""'! POKE 2362«,2S5«.it )«34[PLOT OVER1::-., AT21-y,H;OVEPIjCHPS1 hE2362S,22!FOR n=& TO USR i»*n,PEEX*2lii6ii5+256<

T niPOKE 23620, 1

1REMt

:ii?0!RINT^'

ntoets"sPAUSEI?!LET y=10iBORDER1:PAPER 1:INK: CLS!LET p=2l!LET q=15;FOR e"TO 201PRINT AT n,RND«l»i".

... ...":NEXT n:

Ty=0:LET n=RND*22iFOR-n=0 TO 211LET x=>!*'RND«2)!PRINT AT n,

«jINK4["iLET c=l ANDINKey«=' B"AND q<29:LET q-q+c:LETa=i AND INKEy»="5"IWD q--29!LET q=

q-dlPRINT AT p,q(INK 6;"7":

BEEP 0.S»e7,30AND ATTR(n,^;l-14:

LET o-l AND ATTRIfi,x) =14:LET t=t+eiPRINT AT n.^j LET /=!

-tRND»2HPRINT AT 0,23s"scnrB

"jt:NEXT niLET k=i— llPRINTA"

1»,10)INK2t"EINDE" AND k=e:I ORE 23610.1:POKE 2361", dtPOKE 23ii.20,15AND lotil

L£

Illllllll HEW

EM CLUES

NEDBRLANDSB VERENtGIt

Seer:R.Uictecl Inden 3312AGDordrecht(079-312362) Syatoem GebruilteEa Gcoep Apeldoorn

Postbus1061 7301BHApeldoorn Discoi/ecyUser Club

2725CHZoetecmeei:(079-416360)

HCC68000C

28512LHaaatcecht[0ia21-Z491) HCCSINCLAIR GG Seer:T.A.PHolenaac

Poatbua 76 2260 ABLeidschendamt01570-66a45) SinclairGebrjikerayroep Gconingen

3HGSakkeveen[05169-10161

CheVeceniqing Af d:CoropuCer'lienat

SpectrumGebruikers Groep Hoogei Seer:G-Guchelaar

Neptonus16 7904 GE HoogevQon

.AtIirdstraat65 9902 HK «ppinyei3am(05960-23a901 Laic Gebcuikeragtoep TerAar :Peter Bey

SperuecliQek35 2743GCWaddinKveefH0ia2e-1997S) lait GebruikecaycoepLoouwarden

9254 ECHardegarijp(05110-5340) lirGebcuikeca Gcoep AmHtecdam Poatbua 51289 1005HGAmsterdam(020-SS0126)

Koldakkec34 9407 BH Asaen

mGroep Sinclair J.van derZee Pleladenplantsoen 60 1973BHIJrouiden(0355010002) ir GebruikeraGroep Den AdvanLiempt

16B37)

LairGebruikera Gcoep Aalter :Heibroekdceef 71

9300Aalter(091-742205) icumGebcuikeragroep Antwecpf :Boahovenatraat123

2100Deurne(03-3247294) LairGebruikeraGroep Gent :Zwijnaartaeateenueg148

9000 Gent(091-218785) irumGebruikers Groep tier :BaronCarolylaan 8

2500Lier(03-4803448) LairGroep Limburg :OudeKuringerbaan 65

3500Haaselt(011-251628) 'bcuiftecagroepLimburg

J.DePlancke Aatcidlaan 25 8320 Bru<jgeA!

fanaf(

hardmare

Data-!Skip

°p ii- jtadaplan.

lintitenlopen,enjebenter.Geenceus- ichtigeetalage metglitter enlichtjesi Lendelijkeraamp jeSfvolgQStoawd

all; >dan impu-

roeft liarilwacai vetgt gcol

Lwaredllerlei,boeken races.HetgfoCe deelda:

;DATA-SKIP zel£.

;hendleidtrtiji koninkiijk.Ini Ucollega'3 -'oi

1dehallvanzi'

Izaak.ZijnenCJ

;doelatellingk

delijke pci legen; gering,ende kingmetwatetuitEngelandaankw;

apoelen.Bouendienondecvand DATASKIP; gauu dat softwareuitgeven ergbeuerke lijkia.Jeblijft aan de gang:advei tentiesapmaken,hoeajeaontwerpen<

eigenimport

|.DATA-SKIP begor ontuikkelingvar latus1986kuam d(

Videofacedigiciaer uitgebreidebespcekingvandatappacaat

vanuit AustralisiHongKongrUruguayen Saoedi-Arabie komenreaktieaenwcagen ominformatie,Zelfsinhetanderazo chaavinlat iscrte Good OldEnglandloopt groteploim op de hoed van de producent.

Nederlands bedrijlapdeEngelaemarkt

pataatje zo ieKselatiandigvlnden.heb- ben «ebealoten om inaaraenuacttingmet DATA-SKIP een pcogrammeec-uedstci jd vooc diemuisteorganiaecen.Heardaacovar vindjeeldersinditnummer.Erzijn moQie prijzenteverdienen,ditkunnen uealvectellen1DATA-SKIP weekt momen- teelaaneigennederlandseproducciss ronddeAHX-muia.Ditkunnenwealleen maactoejuiclien:scisveelteweinig goedenedecldndaesoftware op de raarkt.

Daarnaaatataan er nogopstapel:een sideway-ROM(prikdie opdeachterkant

dieROM3taan]eneennieuuinbouu- systeemindeaarJ van de THOa,maar dan voordeSpectrumiE<!cvervangingwande inmiddelsterzielegeganeOpus-Dat laatsteisnoginWetprojekt-atadium, maarDATA-SKIP kennendezullen we er nog

1duidelljkeEilosofit

ijn.

1prettigvoor deklant, )kmeedatdeeigen repa- -aandachtkanbaateden dantochtoutgelopen

uitdatSinclair machinesnietbepaald deduurate computers lijn,dusdatJe ookmetrandapparatuucineenredelijke

Diehelepolitlek heeftecondertussen voorgeiorgd,datDATA-SKIPindeIcorte tijdvanzijnbesCaan,tochaleenruime klantenkcing heefc opgebouwdiaowelin Uederland alsinDelgie.

Hetklinktaiaeenclich&,maartoch;

«ijzijnervanouertuigd dat devciende- lijkeprijzenplushetvrlendeli jke gezicht vanDATA-SKIP hebbenbijgedragen TonVeralJysbliktoverigenametveel vetrtcouwennaardeSinclair-toekomst .

dealers,hobbyiaten,onderateuning VoDC de derde poot zorgen wij alvaat.

Wielichmeteigen ogen wiloverCuigen, l(ant^eehtop inaandagwanaC13.30tot 16.00 uur,entotenmetzaterdagtuasen 10.00 en16.00 uur,oflatecdit jaar op dezxMiccofairinLonden,opdeeigen stand vanDATA-SKIP.

W

---i'~^;

el.01820-20531 0,2B01HCC

IcassBbbe service

:deZX31endeQLi

itQL nu:fl.

Clair QL nu:fl.

J:WocdptTDceasingwith

QL nii:ei,

KDesk-topcomputing wi claic QL nu:fi, i-AbanneesdeaeQL-Boek

12,50/250 BF aingonChe 12.50/250 BF

)ntheSin-

12,50/250 BF 12,50/250 BF :heSinclaic 12,50/250 BF 12,50/250 BF in:fl.10,00 /200BF,

SPECTRUM SPECIALS:

SS-01Special1:TT-SToolldCvootpro- gcammeuraincl.Ned.Handleiding

.

DeGAMMA-TOOLKIT met10extracom- -mando' 3 :TRACE, FIND,RENUMBER, HOVE, RAH-teat-pcogtamma,SCREENteKen- pcogcamma enTAPE-INVESTIGATOR.

5UtiliHesvooc..£1.27,50/550BF BftSIS-ADonnee: fl. 22,50/450 BF SS-02 Special2:ASTROLOGIEPROGRAMHA

vooralechts: £1,15,00/300 BF BftSIS-Abonnee: £1.10,00/200 BF SS-03Special3:Utilities1:

COPY-A4,C0Py HS232,MCOP¥

Screencopy-progavoorCentronics enRE232 eneenH-Dtive copy-prog.

5tiitlitieavooc..,£1.15,00/300BP BASIS-Abonnee: £1.10,00/200 BP

ZS-01 QSAVElaadt/aawettot16xHneller

«oorZXei16K-64K. .£1.25,00/500Bi BASIS-Abonnee: £1.20,00/400 Bi 02MCODERI

BASIS-At FBASICinM/C .£1,15,00/300E

£1.10,00/200E

QL-OlHACRO-flSSEMBLERvan GST systems metscreen editor van Metacomco.

uaa£1.275.00na: f1 ,155,QO/3300BF BASIS-ftbonnee: £1.14O,OO/28O0BF

,rt)op gi 1-1592577-

Opeen gegeven momentmetrfcje,datje eencomputer-Je begcijptook de

speelgoed-dinget je

.jkalel( )'ndir

;engehad,toenzeopdecomputer wegwijs wecden gemaakt.Zozullenhet

{eerderminder)dandetegenwoordige

"speelgoed-coropuEec".Enzewarentoen

Illlllllll veripy

cen.Degevangenenaijnondecjebcacht bacakken op de Olnnenfilaats van hetli teel.Bijhetkasteelt?oan gebiraiiv .degevangenenkjnnencecceren.Daacc

tothet ondecaacdaegangetiKtalsaldat

louden.M-lei

iDemaklceLiikkunnenverdwalsn.HetLsu?l ecnideale plek om allerleinulpmiddelsn Links op t\eC schenn staat eenvlaggesCok Dezeqaat oiiilaag ala]QgepafetwotJti>p iUeqaaiCertain(jebentopUlegasl CerreinalsdevLagcoodkleurt]oE<3l.;

"wocden.OplistlaaCaCisjcmocaalao

nogeenpogingcotontsnappenCeondec- neroen,Hetmannetje op hat scftacra kjnJe danQokniet meerinbewegini)kcijqen.

Alsjecentijdjeniets doettecuijld»i vlaggri3enistgaat het mannetjeophet achecraveecinhetgaceelLopenendoeC pcGciesheCzelfdealadeandecegeuange- nen.Opdeze maniackunjeeenuoudig dooc NIETStedoenachtecde dagindeling denopuelketijdenjeongemecktkunt uegalulpen om Dp ondecsoek uittegaan

.

uit.Jewaantineenechtkaateel.Die

r(4aKSpectcum)

FLUS

S

DeNederlandseeditievanheC iiitgebreidehandboek voat deZX.

130pagina'sdlkkeliaiidleiding voorhetinBASICprogramme ran vandel2liKvarsievandebe- foamde KXSPECTHUM[*).Beuat aliainfonnatiedieU nodig

litlegvan dekeywords enfunc-

SindeLljk wear een standaardwer)c DvareonsinclaicComputermet dllebenodigdeinforraatiezouel overhetwerkeninde4aK-mode alawerkenindelaBK-mode.

Uitgabceidetechniacheinfocma- programmaopalaginhetcompu- tergeheugenenalleSYSTEEH-

ICenonmiabaarhandboak vooresn ieder,diemeteeni2BKSpectrum werkt entotophedendegoede documentatieoverdeze voor- tce££elijke machine moeat ontbe-

Dithandboek zal mediofebcuaci 19B7verachijnenenz^lver- kcijgbaar zijnindegoedeboek-

£1.3a,90/556e

Eeniiitgavei/an:

[ERMINALSOFTWAREPUBLICATIES

jiEuujMI e:lji^

VERiZft-.E,_

I5r;(=*fi-i

XOS

o,=T«,=-=.0«.

ve

definiSren.DieCekena kunjedaninje tekstintypen enTaswocdzorgtecuooc datdeprinter de cocrecte eodeakcljgt

.bladwaarop zeaanhatpcinten

)eenbepaaldpuntinjetekati

Jekunt ookdc-"It blokje)de£iniere

Doordittekencje eenreekslegecec filekwijtkan.

Hetuervelendi grafisoiietekentje

.VERSE8"(hel gcijpei

(ord;

aEdcukken, tekensdieJegedefir

dii3weeropnleUH di

Daaramdachten Miji zouzijn,indienjeeenbepaa!

graphics vooc een bepaaldeteks definiSren ook op tape/diakkonbeuacen.

Danhoefje,indienjeeenbepaalde tekatwiltgaanafdrukken,enkelnog voocaf de set graphics die Oij dietekat hocen,inhet geheugenteladen,enje kuntgaanprinten. Kakkeli jkerkan

vanTasword 2moetgebeuten,isniet eens zo omvangrijk.Drie extra regeltjes BASIC en de zaakisklaar.

Iserie: basiunrdE.B

neyel300berei):je..di

"e ziet.Ge«.onlijk loop!

regal 3moetdufiallesgeb ur

Hevoegen 1 us qe

IV aanmaken.na Ifl aimpele m niec;

301NPUT"LOAD/SA ^E/

gebeuren.Daacoroschrijven we eer 303,waarop we een CAT opvragen dciue,enuer«olgenseenbepaa]

litde"IF"opdie regel,moet di

;ijndat,indienweniet"L"

.ngegevenideandere optie 'olgenderegalwordtuitgevoecJ;

tMd:«5C0DEval"60

Demindecgelukkigen

imvandedefir jelangrijketel eft?qeli