ÿ2U ƒ EXP.BA.LER]S   íU¼ ñ  ¶
D
 “ Ler}s .................. D „ D ‹ Q$ KD(  Q$Õ"*" Ê ‰ "Tob}bb (RETURN)"    ; A$ :  20 \D2  Q$Õ"" Ê € eD< ² Q$ nDF  30 ŒDd ˆ "               Ler}s" ’Df ˆ ÄDh ˆ "E progrUñ¶  am c`lja bemutatni egy olyan  m[d-" óDj ˆ "szert, amely segts`g`vel programjaink" %El ˆ "ler}s}t kazett}n elk~ldhetj~k egym}snak." SEr ˆ "El{nye egyszer~s`g`n kiv~l az, hogy a" ƒEt ˆ "nyomtat[val rendelkez{ PRIMO-felhaszn}-" ²Ev ˆ "l[k a 'PRINT' utast}sTUñ¶ t 'LPRINT' utas- äEx ˆ "t}sra }trva, a sz|veget kinyomtathatj}k." êEz ˆ F| ˆ "K`rem, haszn}lja `s terjessze." F€ ˆ AF‚ ˆ "                     Tisztelettel" GF„ ˆ rF† ˆ "                    Somogyi Gy|rgy" |Fˆ ˆ "*" ¤F‰ ˆ"  EXPANDED BASIC ler}sa"," ",!Uñ¶ " " bGŠ ˆ"  A program 30 _j sz[t defini}l az ere-","deti BASIC szavak mell`, h}rom kihasz-","n}latlan funkci[t felhaszn}lhat[v} tesz","`s kijavtja a LIST,EDIT,DELETE utasit}-","sok 'bogarait'. oG‹ ˆ" ","*" HŒ ˆ"A LIST,EDIT `s DELETE utast}sok hib}i:"," úUñ¶ "," 1. Ha egy sorba a 'lenyil' segts`g`vel","128 feletti k[d_ karaktert vitt~nk be","akkor azok helyett edit}l}skor `s lis-" ÄH ˆ"t}z}skor az ilyen k[d_ utast}sok jelen-","tek meg."," 2. Ha 0. sorsz}m_ sort javtottuk a sor-","sz}m nem jelent meg."," 3.´Uñ¶  Ha edit}l}skor BRK-t nyomtunk, az" bIŽ ˆ"edit}l}sb[l ugyan kil`pt~nk, de soreme-","l`s nem t|rt`nt."," 4. Ha a DELETE utast}sban nem l`tez{ ","sorra hivatkoztunk hibajelz`st kaptunk."," ","*" J ˆ"Ezent_l a DELETE ut. szintaxisa megegye-","zik a LIST utkUñ¶ ast}s`val, azzal a k~l|nb-","s`ggel, hogy ha csak DELETE-t irunk _gy","a program nem t|rl{dik, hanem hiba~zene-" ÇJ ˆ"tet kapunk."," 5. Ha 210 karaktern`l hosszabb","sort javtottunk, a g`p nem korl}tozta a","sor hosszt `s elsz}llt. Ezent_l a g`p ","nem Uñ¶ enged`lyez besz_r}st, mg a sorhosszt" öJ‘ ˆ"210 byte al} nem cs|kkentett~k."," ","*" ˜K’ ˆ"  A program tov}bbi szolg}ltat}sa hogy ","teljes sz|veg hiba~zenetet ad."," A tokeniz}l}s m[dost}sa miatt   ","?LINE TOO LONG ERROR jelz`st kapunk ha a " XL“ ˆ"toŸUñ	¶ keniz}l}s sor}n a sor hosszabb lett","mint 255 byte",""," A be`ptett [r}t b}rmely  file kezel{ ","utast}s haszn}latakor ki kell kapcsolni.","Ez automatikusan megt|rt`nik, ha azokat" M” ˆ"EXPANDED BASIC SYSTEM-ben g`gelt~k be."," ","*","Ha BASIC-ben elke©Uñ¶ zdett programot folyta","tunk `s [r}t is akarunk haszn}lni, akkor","az |sszes file-kezel{ utast}st tartal" µM• ˆ"maz[ sort EDIT-ben lehvjuk `s javit}s","n`lk~l SIFT+'lenyil-lal elk~ldj~k.Kiv`-","telt k`peznek azok a sorok, amelyekben","csak PRINT# vagy InUñ¶	 NPUT# ut. szerepel." vN– ˆ"Ha file-kezel{ utast}st haszn}lunk,","mik|zben az [ra kijelz`sre van kapcsolva","a file visszaolvashstatlan lesz.","EXPANDED BASIC-ben rt programot ne ja-","vtsunk BASIC-ben!"," ","*" ;O— ˆ"Az EXPANDED BASIC uj szavainak ler}>Uñ¶
 sa"," "," A./  PARANCSOK"," ","  REN a,b  ]tsorsz}mozza a programot ","a-t[l kezdve b l`p`sk|zzel. Az elhagyott","param`ter `rt`ke 10 lesz. A programban " ÏO˜ ˆ"szerpl{ GOTO,GOSUB,THEN,ELSE,RUN,RESTORE,","RESUME,ERL=,ERL<,ERL>,ERL<>,ERL=>,`s","ERL=< utastÉUñ¶ }sok m|g|tti sorsz}mokat is","}trja."," ","*" xP™ ˆ"  FIND sz|veg    A BASIC program olyan","sorait, amelyben el{ford_l a sz|veg, ","kilist}zza a k`perny{re. Folyamatos lis-","t}z}shoz egy billentyt (kiv`tel:BRK)" #Qš ˆ"}lland[an nyomi kell. A BRK hat}s}Uñ¶ ra a ","g`p visszaker~l parancs ~zemm[dba.","Ha egy parancsot akarunk megkeresni,akkor","a teljes parancsot kell a sz|vegbe irni." {Q› ˆ"P`ld}ul nem el`g a NEXT utast}sok megke-","res`s`hez FIND NEXT beir}sa."," ","*" 'Rœ ˆ" CMCT     (compact) T|m|rti a ìUñ¶ BASIC ","programot. A programban tal}lhat[ feles-","leges kett{spontokat, sz[k|z|ket `s REM ","utast}sokat kiszedi majd a programot " ØR ˆ"1-t{l kezdve egyes`vel }tsorsz}mozza"," "," VARS    Ez a parancs kilist}zza a prog-","ram v}ltoz[it, `s ezek `rt`keSUñ¶ it a k`per-","ny{re. A folyamatos list}z}shoz egy bil-" —Sž ˆ"lentyt (BRK kiv`tel`vel) kell folyamato-","san `rinteni. A BRK meg`rint`s`re ag`p","parancs ~zemm[dba ker~l."," ","*"," ARRS   T|mb|k. L}sd VARS, csak a t|mb|-","ket list}zza ki."," " TŸ ˆ" TYðUñ¶ PS   Tipusok. A v}ltoz[k alap`rtelme-","z`s tipus}t kilist}zza a k`perny{re. ","Ezek a tipusok v}ltoztathat[k meg a  ¯T  ˆ"DEFINT,DEFSTR,DEFSNG,DEFDBL utast}sok","segts`g`vel."," "," OLD     A NEW utast`ssal t|r|lt progra-","mot }lltja vissza, ha id{krUñ¶ |zben m`g nem" ÖT¡ ˆ"vett~nk fel v}ltoz[kat."," ","*" [U¢ ˆ" APPEND ''filen`v''   A memori}ban lev{-","program ut}n t|lti a filen`v nev file-t","a magn[szalagr[l.Ha nem adunk meg nevet" 
V£ ˆ"az els{ utj}ba ker~l{ file-t t|lti be.","A nembet|lt|tt blokkokNUñ¶ at, melyekben k`p-","erny{ vagy assembler blokkok tal}lhat[k,","a g`p inverz blokksz}m kijelz`ssel jelzi" ¸V¤ ˆ" Az auto startok `ppen ez`rt nem hatnak.","Ha az eredeti programban szerepel egy ","10-es sor, `s a kazett}n is van egy10-es","sor, a program mi¯Uñ ¶ ndkett{t fogja tartal-" þV¥ ˆ"mazni`s a g`p megzavarodik.(L}sd a MERGE","parancsot!)"," ","*" ¨W¦ ˆ" MERGE ''filen`v''   A mem[ri}ban lev{","programhoz hozz}fzi a szalagon lev{ ","programot, majd az eredetileg g`pben ","lev{ programot 1-t{l kezdve egyes`vîUñ!¶ el }t-" YX¨ ˆ"sorsz}mozza, ezut}n a keletkezett utols[","sorsz}m+1-t{l kezdve egyes`vel }tsorsz}-","mozza a kazett}r[l bet|lt|tt programot,","`s v`g~l az eg`szb{l egyet csin}l. A file" ˜Xª ˆ"bet|lt`sre igaz az APPEND parancs file","bet|lt`se."," " ¥X« ˆ" "êUñ"¶ ,"*" ?Y¬ ˆ" HELP    Kilist}zza az utols[ hib}s sort,","inverzen a hib}s utast}ssal. Ha ez nem","t|rt`nik meg, akkor a hib}t m}r valahogy","t|r|lt~k."," ","*" òY® ˆ"  B./  UTAST]SOK"," "," WRITE ''filen`v''.......","A megadott n`vvel file gener}lhat[. ","XUñ#¶ A file tartalmazhat k`perny{ darabokat,","assembler vagy BASIC programot. A file" ŠZ° ˆ"lehet autostartos BASIC vagy assembler ","file is. Az egyes blokkokat k~l|n-k~l|n","kell a n`v ut}n egym}st[l vessz{vel elv}-","lasztva azokat. " 
[² ˆ" K`perny{ blokk ZUñ$¶ megad}sa:WRITE ''n`v'',S,","az els{nek kimentend{ k`psor sz}ma, az ","utols[nak kimentend{ k`psor sz}ma." [³ ˆ" " Ø[´ ˆ"*"," Assembler blokk megad}sa:","WRITE''n`v'',A, az els{nek kimentend{"," byte cime,! ahov} az els{nek kimentend{","byte bet|lt{dik, az%Uñ%¶  utols[nak kimen tend{","byte cime,AUTO, indit}si cm." ^\¶ ˆ"A m}sodik cm elhagy}sa eset`n, a file ","oda t|lt{dik ahonnan kimentett~k.Az AUTO","`s az ut}na k|vetkez{cm elhagy}sa eset`n" £\¸ ˆ"a file nem lesz autostartos `s tov}bbi","blokkok adhat[k megmUñ&¶ ." °\¹ ˆ" ","*" 2]º ˆ" BASIC blokk megad}sa:","WRITE''n`v'',B,az els{nek kimentend{ sor","sorsz}ma, az utols[nak kimentend{ sor ","sorsz}ma,RUN." ”]¼ ˆ"Ha elhagyjuk a RUN-t, a program nem lesz"," autostartos,`s tov}bbi blokkok adhat[k","meg ." ]Ç ˆ" " K^ÈJUñ'¶  ˆ"*","Ha BASIC `s assembler programot is kimen-","t~nk `s assembler autostartot rendel~nk","el, a g`pi k[d_ programnak gondoskodnia","kell a BASIC mutat[k }llt}s}r[l !" Î^Ê ˆ"Legegyszer~bb, ha gy kezd{dik a program:","CALL 1AF8H;INC HL;LD(40F9H),HL;CALLUñ(¶  1B61H","`s, ezek ut}n a stack ~res."," ","*" ^_Ì ˆ"  CLOCK ON   [ra bekapcsol}sa. Az [ra","m}sodpercenk`nt egyet l`p, `s ak`perny{","jobb fels{ sark}ban l}that[, [[::PP:MM","form}ban."," " Ú_Î ˆ"  CLOCK OFF  [rajelz`s letilt}sa. Az [ra","elt~nik a jobb fegUñ)¶ ls{ sarokb[l, ha ott ","volt de a g`pben j}r tov}bb."," " ã_Ï ˆ"*" N`Ð ˆ"  CLOCK STOP   [ra meg}llt}sa.Az[ra ","elt~nik a jobb fels{ sarokb[l,ha ott","volt, `s meg}ll."," " Ä`Ò ˆ"CLOCK START    [ra indt}sa. Az [ra el-","indul, ha }llt, egy`bk`nt j}r tov}Uñ0¶ bb, DE","nem ker~l kijelz`sre."," " Í`Ó ˆ"*" xaÔ ˆ"  CLOCK SET ''[[:PP:MM''  [ra be}llt}sa","Az [ra a string kifejez`sben megadott","`rt`ket veszi fel.A stringkifejez`s ","form}tuma a fentiek szerint 8 karakteres." @bÖ ˆ" DPOKE CM,..,...   A memoria }trÅUñ1¶ }sa ","k`tbyte-os sz}mokkal. A megadott cmt{l","kezdve elhelyezi az ut}na }ll[ sz}mokat.","A felsorolt sz}mok -32768-t[l 32767-ig","terjed{ eg`szek lehetnek." óbØ ˆ"A sz}m alacsonyabb byte-ja ker~l a cmre,","majd a cm n{ egyel, ahov} a fels{ byte","ker~;Uñ2¶ l `s cm ism`t n{ egyel.Ide ker~l a ","k|vetkez{ sz}m als[ byte-ja... ...eg`szen"  $cÚ ˆ"addig mg alist}nak v`ge nincsen."," ","*" òcÜ ˆ"  SPOKE cm, string, string,","A memoria }tr}sa a stringekben lev{ ka-","rakterek `rt`keivel . A cmt{l kezdve be-","‘Uñ3¶ rja a memori}ba a stingekben lev{ karak-","terek k[djait, minden egyes karakter" PdÞ ˆ"ut}n n|velve a egyel a cmet, mgnem a"," stringek list}j}nak a v`g`re nem `r."," ","*" ødà ˆ"   C./   F^GGV@NYEK"," "," "," XOR(A,B)        Az A `s B eg`sz kifeje-","zÒUñ4¶  `st, bitenk`nt, egy m}ssal kiz}r[ vagy","kapcsolatba hozza `s ezt adja eredm`ny~l."," " reâ ˆ" DPEEK(cm)       A cmen lev{ byte `rt`-","k`hez hozz}adja a cm+1-en lev{ byte","`rt`k`nek 256 szoros}t."," ","*" !fä ˆ" BIN$(eg`sz kif.)      A f~ggv`ny `rt`k ÛUñ5¶!   egy 16 karakter hossz_ bin}ris karakter-  sorozat, mely csak 0 `s 1 karaktereket    tartalmaz , `s melynek a bin}ris `rt`ke a" fæ ˆ"z}r[jelek k|zti kifejez`s `rt`ke. A kife- jez`s `rt`ke -32768-t[l 32767-ig terjed-  het." Žfç ˆ" ","*" <gè ˆ" BIN(string ¥Uñ6¶" kif.)     A f~ggv`ny `rt`k    egy eg`sz sz}m -32768 `s 32767 k|z|tt,    melynek `rt`ke a z}r[jelek k|z|tti string-kifejez`s bin}ris `rt`k`vel egyezik meg." çgê ˆ" CFP(eg`sz kif.)   A z}r[jelek k|zti     eg`sz kifejez`st lebeg{pontoss} konvert}l-ja, `s ha aaUñ7¶# z kisebb volt 0-n}l, hozz}ad   65536-ot. Igy a f~ggv`ny`rt`k egy 0 `s" hì ˆ"65535 k|z|tti egyszeres pontoss}g_ sz}m   " "hí ˆ"*" Ðhî ˆ" CTI(kifejez`s)   Cnvert to integer.      Ha a kifejez`s string, ekkor azt mint     hexadecim}lis karakter sorozatot `rtéUñ8¶$ `keli ki. Ha norm}lis egyszeres vagy k`tszeres" ið ˆ"pontoss}g_ sz}m, akkor eg`ssz` alaktja,  de ha nagyobb volt a kifejez`s `rt`ke,    mint 32767, akkor levon bel{le 65536-ot,  igy a f~ggv`ny`rt`k -32768 `s 32767 k|z` " £iò ˆ"es{ eg`sz sz}m lesz."," ","—Uñ9¶% *" ljô ˆ" ADDR$(eg`sz kif.)      A f~ggv`ny `rt`k","egy olyan 4 karakter hossz_ string, ","mely hexadecim}liss} alaktva tartalmazza","az eg`sz kifejez`s `rt`k`t, ami-32768-t[l","32767-ig terjedhet."," " ójö ˆ" BYTE$(egybyte-os kif.)  A f~ggv`ny `r-","t`k  Uñ@¶& egy olyan k`t karakter hossz_ string,","mely hexadecim}liss} alaktva tartalmazza" >kø ˆ"az egybyte-os kifejez`st, mely `rt`ke","0-t[l 255-ig terjedhet."," " Gkù ˆ"*" Ékú ˆ" HEXA$(eg`sz kif.)      A f~ggv`ny `rt`k","hexadecim}liss} alaktva tartalmazza,","fUñA¶' string form}j}ban, az eg`sz kifejez`st " 9lü ˆ"(`rt`ke -32768-t[l 32767-ig terjedhet),","de _gy, hogy a felesleges null}k nem je-","lennek meg."," ","*" ¾lþ ˆ" PEEK$(cm,hossz,maszk)  A f~ggv`ny egy ","olyan stringet ad eredm`ny~l, melyben a","megadott cm!UñB¶( t{l megadott darabsz}m_ byte" om ˆ"van falhozva egyes`vel bitenk`nti logikai","@S kapcsolatba hozva a maszkkal. Ha masz-","kot nem adunk meg, `rt`ke automatikusan ","255 lesz. A hossz `rt`ke 1-t{l 255-ig " ãmˆ"terjedhet. Nulla hossz eset`n ~res strin-",´UñC¶) "get kapunk, de a t|bbi stringv}ltoz[ ","`rt`ke megzavarodik."," " –nˆ"*"," VALUE(string kif.)    A f~ggv`ny `rt`k","tipusa f~gg a megadott stringt{l. A f~gg-","v`ny ugyanis a megadott stringet mint ","aritmetikai kifejez`st tekinti, `s kisz}- @oˆ"mtjÏUñD¶* a a helyettest`si `rt`k`t, att[l","f~ggetlen~l, hogy az stringet, vagy sz}m-","v}ltoz[t eredm`nyez-e.(Pl.:A$=''5*6''"," VALUE(A$)=30 , `s tipusa sz}mv}ltoz[." ìo
ˆ"Ha B$=''CHR$(42)'', VALUE(B$)=''*''","`s ez term`szetesen string.) Ha a VALUE","f~ggv`nyreÑUñE¶+  ?SYNTAX ERROR-t kapunk, `s a ","f~ggv`ny form}tuma t|k`letes, lehet, hogy" pˆ"a f~ggetlen v}ltoz[ban van a hiba."," ","*" Ípˆ" TOKEN(string kif.)   A megadott stringet","tokeniz}lja, `s ezt adja eredm`ny~l.","A visszaadott stringben a mveleti jelek"UñF¶, ,"`s f~ggv`nyek, valamint az utast}sok he-" Sqˆ"lyet tokenj~k lesz l}that[. A f~ggv`nyre","az`rt van sz~ks`g, mert ha a VALUE-t so-","rozatosan ugyanazzal a stringel haszn}l-" rˆ"juk, azt minden alkalommal tokeniz}lja,","ami hosszadalmas. Teh}t, ha esUñG¶- gy stringet","sokszor kell f~ggv`nyk`nt v`gigsz}molni,","akkor gyorsabb, ha az elej`n tokeniz}ljuk" 9rˆ"`s ezt a stringet sz}moltatjuk v`gig."," ","*" çrˆ" FUNC(string kif.)    A TOKEN$-ral toke-","niz}lt stringek helyettest`si `rt`k`t","sz}mtja ki.(UñH¶. Mint a VALUE, csak ennek ","m}r tokeniz}lt stringet kell }tadni.)"," " Usˆ" TIME$       Az [ra aktu}lis `rt`k`t kap-","juk meg 8 karakteres stringben, ","[[:pp:mm  form}ban."," " ^sˆ"*" tˆ" & hexadecim}lis sz}msor","Hexadecim}lis sz}mmegad}st tesz lUñI¶/ ehet{v`.","Pl.:PRINT&56CE hat}s}ra az 56CE hexadeci-","m}lis sz}m decim}lis `rt`ke jelenik meg." #tˆ" ","       V @ G E"," ","*" -tçˆ "" Rt'“ R|gzt`s ..................... kt'² "SAVE k|vetkezik"  €t'­ "Exp.b.ler}s" ˜t'² "TEST k|vetkezik" žt'©   Ãª ±PP