m
:
|
|
ЗӘЗӘНВӘВНӘВӘВӘНӘВӘНӘВӘӘӘӘӘЗӘВӘНӘНӘВӘВӘНӘВӘНӘНӘНӘВӘНӘНӘНӘНӘНӘВНӘНӘНӘНӘНВӘНӘӘӘС
Z-Appeal
Mar. '86 Newsletter of the == i. SC
VANCOUVER SINCLAIR USERS GROUP
ANNI HASSE SAAS AI AAA AAAS E I LANA AA NHH NNN NHH
ak ak k k ək ok ək ok ək ke ote ok
Next Meeting
Killarny Community Centre
6260 Killarny st. Vanc.
In this issue:
Mar. 14 7 PM
An Editors last Hurrah.
Harvey bares his ROM
Robots secret meeting exposed
Other guys stuff,
and Hob,s, too.
ELECTION NIGHT
COME AND VOTE!!!
* HE He ök ok ök ək ək Ha ote ək
ZXAppeal is a monthly
newsletter put out by the
Vancouver Sinclair Users Group. ACT əəə
For more information on the ə å —
club and ZXAppeal see the backcover. ር. ENIGMA. 2
Cu LAD
In order to ‘beat the deadline’
material for ZXAppeal may be
send directly to the editor
2308 Marine Drive
West Vancouver. B.C.
V7V 1K8.
Marcio Vieira “the Pres.”
can be reached at 984-8893
Who.. What.. Where...
EDITORS PREAMBLE.
Well here it is, my last Hurrah.
It is fitting that this is the
March 786 issue, March '85 was my
first one.
It has been fun, you bet, and I
do hope the new editor allows me
to publish a small piece every
once in a while just to keep in
practice.
Reasons? Well I went and brought
this OTHER computer and I will be
busy with it for a while, which
reminds me.
I have one of only three Aerco
diskdrive interfaces in
Vancouver.
I have also 3 years worth of
accumulated softvare, vith
manuals, on disk. The interface
plus drive cost me $ 500.-. I
will look at any serious offer on
the drive and software package. I
have talked to one interested
party sofar, if you are
interested you know where to
reach me.
Note by the vay that I am not
selling my computer or my 64K
RAMpack. It is not my intention
to get out of the ZX world.
Sometime in the future I vill rig
my nev computer and the ZX
together and have some fun.
Oh by the vay if you buy the
drive unit and wish to run the
much celebrated R.DOS on it you
must have, at the least, memory
ın the 8 to 12K area.
Lets get on with it. The first
thing one noticed, upon entering
the Feb. 14 meeting, vas, not
one, but TWO QL,s. Ve vere
looking forvard to a demo of the
vaunted QL netvork capability but
alas the softvare to make it tick
vas left at home. As it vas,
Harvey Taylor vas able to shov us
his Mandelbrot set graphics
program.
Yes you may vell ask.
All I can tell you is
Creating graphics using this
Mandelbrot thing entails some
heavy, heavy math and it is the
hottest thing in computer
qJraphics right now.
this.
(2)
The reason for this is the
amazing graphics capabilities of
the nev generation of micro
computers.
To give you some idea of the math
involved in draving a Mandelbrot
display. It took Harvey,s
machinelanguage program 6 hours
to fill the screen vith a pattern
which looks for all the world
like a negative photograph of the
sun in a active sunspot phase.
I knov of a computer that can do
a 320 by 200 display in half an
hour mind you, but I promised not
to rub it in.
The treasurers report is nova
definite maybe for the next
nevsletter. The meeting got a
verbal report vhich mainly told
us that the balance had shrunk a
little between 785 and 186 but
the nev dues structure should
take care of this.
Well. This is it, March is
elections month. The very air is
charged with the excitement of it
all. Who will be in charge of the
Vancouver Sinclair Users Group
this time next month. What power
structure will “put its indelible
stamp on our club, whose election
machine will carry its triumphant
drivers to the very pinnacle of
VSUG power.
Come in and vote on March l4th.
Also bring your nominations and
or volunteer yourself. Yes you
2068/spectrum and QL owners that
means you, too.
Ken Abramson claims that his
robot parlez francais. Sure Ken
snickeur snickeur. Why don't you
bring Bert in, next meeting, and
let him parlez for himself?
By the way the only confirmed
volunteer for a VSUG office is
Ian Mclean as librarian and it
vas decided at the meeting that,
for nov, only P.D. softvare
should made available. Bring some
March 14th.
Cont Paqe 12
PLAYING WITH ELECTRICITY {#x+2} by Harvey Taylor
This month 1 am presenting a simple little Basic program
that takes you into the heart of the QL ROM. Superbasic is
extensible. You can add machine language Procedures and
Functions which act just. like they were in ROM. The way the
machine handles this is to create a list of the Functions &
Procedures and update it. Because the machine is multitasking
we have to find the Basic Job, (which is always Job#@.) The
pointer to this area of memory is kept in the System Variable
SV_Basic.
SV BASIC -> BASIC JOB HEADER ($68 BYTES)
$900 BV START POINTER BASE
$10 d DV PFBAZ PROGRAM FILE
$14 BV PFEP TOP OF PROG F!LE
$15 BV NBAS NAME TABLE
$1C BV NTP TOP NAME TABLE
$20 BV NLA NAMF LIST
$24 BV NLP TOP NAME LIST
$28 BV_VVRAS VARIABLE VALUES
$2C BV VVP TOP VAR. VALUES
$100 ይሃ END TOP OF BASIC VARS.
Once ve know how this section is set up we can write a
simple basic program which will pull these names,vajues &
addresses from the tables. 1 particular, the basie listing
given will print the name ይየ each Procedure, Function and its
address in MOM, the name of each variable and its value, if
it has one. Note that. the size of the Basic area changes
while the program runs & so it sometimes fenerates farbare.
What. happens is that the name will come out as two or three
lines of garbage &/or other names. One way around this would
be to rewrite the procedures as functions, so that cach time
the values of offsets used are dynamically updated rather
than what they were when the program firt started running. 1
believe the classic cop out is, this is left as an exercise
for the student.
NOTE: Adrian Dickens incorrectly says (Page 330) that
SV basic is 8 pointer to the base of the Basic stack. Also
while involved in other work 1 noticed that he has(page 329)
RI SUB as TOS-NOS, when it is NOS-TOS. This is the kind of
thing that gives you grey hairs if you don’t catch it.
If this should happen into the hands of any QL’er out of
Vancouver, why don’t. you drop me a line. I’d like to hear
from you.
Cont
(3)
page 13
VANCOUVER ROBOT CLUB
February 13th., 1986.
ላ
Our next mecting vill be on March 3rd., 1986 at 630 PM.
Normal location, mecting open to anyone, admission free.
Phone 681 9531 during the day for Information, ask for Al.
At our last meeting on February 3rd., 1986. Ken demonstrated
his Turle designed Robot, vhich has a expanded 2K (Fat Bert)
and it gave qulte a talk and a govd demonstration of its features.
Ken İs using İt at his school as a teaching ald. Well done
Ken.
Kar] has his I/R sensors working along with a nice program
that has slight pauses then goes forward, If it encounters a
object [t says " excuse me" and moves a 45 degree angle or so
then continues to move forvard cte., In all this ts a nice
feature and really enhances herti.
Karls night school Robot class will now commence around
March or April, you should phone VVI for further information.
Bob and myself have been working on a small keyboard to be
mounted on Bert and we hope to have It working, and to offer
İt to you all soon.
A fev of us have had quite a few requests to show off our
Robots, would any other Bert owners want to 101ክ፻ us ?
Please let us know.
Karl fs working on all kind of new things for Robots, so
| why not come to the next meet and find out whats new.
PS: If anyone has general type questions feel free to
home me during the day (681 9531 )
AL.
e 5 —“——.....M06cMNM.MMMC-(——
FASSHORD PROTECTION FOR THE 10868
From T-S HORIZONS 818 Es Mather bhite
It's fun to have I on “Gü Program. This i
ሠ
ሠ
n
pa
=
3
«fr
1 PORKE 1658 189
2 SAVE "PROGRAM HAME"
3 FRINT "РАЗЗЫОЕОТ"
4 IHPUT I$ :
5 IF I$0> "YOUR FRSSHORD" THEN STi
HEH the d oram will be denied. NEAT
TIMEX TIFS
By
Chuck Dawson
This iz intended to be a collection of useful tips and
techniques either not mentioned in the manual or not fulls
exPlained. I welcome any TIMEX TIFS that sou mas have discovered
and would like to share with others. After all, that is why ህድ
form user organizations - to share knowledge and Pick uF ideas
fram others.
xd xXx
CUESTION: In the back "“Frogramming Your TS 1000", it says you
must name a Program with a REM statement. then enter the command
SAVE and the name in quotes. TS USER says include the name in 3
REM etatement and later in the Program include a line with SAVE
and the name. I thought REM statements were ignored, so how can
thes have ans effect in the matter?
ANSWER: ‘You are right! The computer 1990res all FEM statements.
Thes are there for sou. It is Possible, with the TS 1000, to
SAVE a Program and then forget the name sou used. That is the
reason for the FEM which shows the name ዕኖ the Frosram. If: on
the other hand, you want the Program to auto run after loading.
then «ou include the SAVE "NAME" as a line in the Program. In
that case, sou can always look at the listing ta get the name 50
the REM is really not needed. However. some People like the name
near the beuinnine of a Program so thes don't have to look for
it. This is Probably the reason it was suagested you add a REM
near the beainnine of the listing.
xkxxxxxxxxx
Here is a tip for TS 2068 users. Include the following as
the firet line of a Program: 1 REM SAVE "name" LINE 10. This
shows the name and also makes for an eass way to save the
Program to auto run at line 18 Cor whatever 2. Just Pull the REM
line don to the bottom of the screen using EDIT (CAPS SHIFT 1»,
delete the FEM and line number, and Press ENTER. The Frog9ram
will save. and it will verify Froperly. This is wot the case
when usina a SAVE command down in the Froeram somewhere. To
enter təc keawords on the same line, sou enter the second
keunard (SAVE), then move the cursor to the left using the CAPS
SHIFT 5. and ture the first keyword (REM).
#፳#ቶፋችችፋፋፋፋ
QUEST ICH: I have several Programs which use mans PRINT
statements thrauvahout teo send data to the screen. 15 there a vas
I can send the data to the 2648 Printer without rewriting all
AES.
the PRINT statement: to LFFINT'=7 I have a TS 26
ANSWER: Yes, it iust so harPens there is. This is Possible
because of the vers flexible way the 2068 operating system iz
designed. Before runnine the Froeram, do this: OFEN € 2, "P".
This sends all data normally destined for the screen to the
printer buffer. You can return things to normal bs entering:
CLOSE # 2. I hore this is useful to sou.
ቹፋፏፏፏፋፏፏፋፋፏ
CUESTION: Hou can I Print a message on the bottom line of the
2068 screen without usina INPUT?
ANSHER: Just add the sumbols "$1;" after the FRINT. For examPle,
PRINT 41; "Hi there!" will Print on the bottom Line. You must add
a PAUSE A if it is near the end of the Program, or the "Hi
there!" will be overuritten bu the "OK" showing that the Program
has successfully been confleted. i
118
JAAP E C Cio fae ә
quin c £ HNO ሬርበ በነ ርዕፒሂባ -AN
X
“1” 1 вә ba at рә bə ba pə e bə pz pə p bə ә рә
[2
N Y Gh
rs x
а-ја
ፍሠ
Pope
ҹ
[+e PMP Tin.
To o fia fia
-
-
Cat) aoo əhə
fi Ci ቓ3)ኒበ лад
OO ANON -AN
Cita
“üzə Gi a
PR
DHE
mm narr
FE
"
TE ፲ኑ4-4ኑ4
Mme mn T m
ҹаг m
га
THA
ኻር
ነነ
"mn
“un
I
Hn-
44
MZ
ፎር
In PI
un
4 mi
ADAPTED FROM 51 GAME
FOR THE Т/5 10090,1200
PROGRAM WILL ALSO RUN
2063
Bs110,10!
Б5(1)="ИИ125455672И"
Esiziz"IXBXBXHÁXMIC
ES (3) -"2EHXHEXHXMHX2”
Bs(43-"3XNXüXNUXHO"
ES(S)="4% M HM Ha"
6s(6)="S B NB as"
Bs(7) -"GBOMHOHOHOG”
B$ (8) =" 700208037"
ይፍ (9) =" 8ОДСДОЖОЗ -
ES (101 ="ጄ122452575ቹ”
HS =5
C3=3
55:12,12)
A=1 Tü 10
ርኗ=5‹፡)
B=1 то 10
SeiA, 81 2ር8 (2 TO ) (1)
8
n
ND>.S THEN GO TO 183
58፪(5,5) ="X"
sita 2122. ”
UB 1120
T
3212 THEM PRINT “I 4
T AT 15.0, "FROM?"
IT MOVE
ar ифалар" TRBMOUET:
A=INT (MOVE/LA)
S=MOVE-10*A
T MOVE
MATIAS
C=INT iMOUE^/19!
C=MOUE-108C
ES (A-21<>1 ÜR ABS
20 Tü 160
$iC«1! (D+1) "XU THEN
S$giA+1) (B41! ="
S5(0+1) (O41) ="0
ЈВ 1130
5232 THEN PRINT “YOu
as="0"
WB 10090
L=1 THEN GÜ To 200
መቋ” ^
UB 1000
55 (El (F) ="
SiE+G: (Елмә =" О" THEN
Ss (E+G) (F+H) =
О 159
Rules for Playing
(6)
ON You move only diag3enly.no multis
=12 jumps.
You capture an opponent by Land-
ing on top.
In this version you move first.
This can be changed too let the
computer go first,I prefer the
human move first.
In this version you have 12 move
5 to win the gamé this can be ch
angad to.anu amount of moves you
prefer.
In order to make moves „numbers
from Left to bottom or your firs
1 coordnates,your second entry w
itl be the square your moving to
o, lexample(from-52-to051).
I nope uou enjoy tnis game of ch
eckers.
Rick Shope
1020 LET E=2
1091 LET F=2
4222 LET GzÓO
1003 LET H=0Q
oa 1010 LET FL=Q
v 1020 IF SSiE!])iF)«»"X" THEN GO Tü
1102
1040 IF =5(፳+13፤ (F+113A5 OR 55(2-
1) (2Е-11=АвФ THEN LET G=1
TO 1050 IF 5ኗ(፳+2) (ቻዎ+2) 288 OR 55(Е-
4] (F +1) =A$ THEN LET H=1
1050 IF S$(E-1) (F+1)=AS OR 55(Е-
1) (F-11=A$%$ THEN LET 2=-1
1070 IF S5$(E+1) (F-1)=A$5 OR 55(2Е-
11 (F-1:=AS THEN LET H=-1
1030 IF G<>0 AND H<>Q THEN LET F
1.21 :
1085 IF FL=1 THEN RETURN
18-9 1100 LET E=E+1
ve bigl IF ር: 2. ርን THEN LET F=F+1
LE 1102 IF E>10 THEN LET Е=г
1110 IF F:10 THEN RETURN
1130 Ga TO 1610
1128 STae
+ 1150 FRINT AT 2,0;
Vi 1132 FOR A=1 Tü 10
113S PRINT
1140 FOR 6=1 TO 10
1150 NET E
1155 NEXT, A
1150 FEINT
- 2155 PRINT
LE 1170 PRINT "ME: "; CS,” You:
HS
1130 RETUEN
3000 SAVE “BATTLE
TIMEX TIPS
Ey Chuck Dawson
QUESTIOH: What is the STRØ function used for?
ANSWER: The argument (the exFrezsion following the keyword) of
STRS must be a (number or 8 variable that stands for a number
¿like X5. The STRS takes that number and chansez it to 3 string
SEOROEOK^S and assi9ns it to a string variable (like $ It can no be
E122:56728 sliced or maniPulated as a string. This would be a good way to
look for the decimal and line it up for Proper Printind.
ME: ዌ vou e QUESTION: Hou do you use the Commands "IN" and "OUT"?
DE ANSWER: These are usually esed in machine code but Sinclair
FROM? added them to the keyboard as Part of the BASIC. Thes are used
to send and receive data on one of the 256 "FORTS" which are
awailable. Usually, these Ports are wired to external devices
like MODEMs and Printers. As an example, the RERCO Printer
interface is wired to Port 127. Data can be sent from a Program
to the Printer by the command GUT 127, data, To keer things
running smoothlu, we follow with an IN 127. This can take the
form LET B = IN 127 or if sou don't need the IN data, simPly
FANOOMIZE IN 127. Try the following Program without loading the
Printer driver Proaram. Line 6@ sende the carriage return.
12 INPUT LINE AS
20 FOR I 1 TO LEN AS
20 LET A = CODE R$CI?
48 OUT 127,A : PANDOMIZE IH 127
SA НЕХТ I
ба OUT 127.13: PANDOMIZE IN 127
та GO TO 16
ormalls. «e would need to check a "buss line" before sending
another letter, but BASIC is so slow compared to M/C that this
is not needed in this case.
QUESTION: Can I delete a variable once it has been assigned?
AHSHEF: Cf course. CLEAR deletes all the variables, but I assume
vou meant just one variable at a time. This can be done with
variables that mere created by the DIMension function. Let's say
«ou entered DIM X(35^. Later vou vant to delete the X variable
and recover the memory space. Just enter DIM 009, This results
in an error message because you cannot DIMension for zero but
before the comPuter Gets around to checkina for that, it hes
alreada miPed out the old X variable. Within a Program, you
could handle the error with an OH ERR CONTINUE before the DIM
==2=2=22222222222222222222225 22 22722 22 22:22 222
======= есесетссскедетаык
|
15: home
to pri tone mi
addresses and important
vn deberent
V an ዘ: “ታ we c
rim 9 zn
UC Mn
m "m
mu
ce | 2
ел
ül 22. 22
mek w
Ves UTD a a
Да l r dt
ait d.a
UE -. ህገ
-— የህ . ።
Qr C 2 cı ‹ህ nuo
2 ete) ሂቨ.ር. ሮ3
H- m” ithe Cu
vat un a ac
ад."
R 2 "m ሂጋ nt
ül E AZ ки e oo
ጄፎ:ክ oom mo әллә :ክ AL
- с US gts 1ፎዢዝ daga
- m ar c Cr osa ፤... coke a
e» in 3. dt KOLU dem ፦ሥ ran rn (moe
ә ፻= m a Qu Cu ül .»< wee Lo О." =“ ከገ
gle e ha me DO ә тр UE
ck ) ሂህ ር5 yn e gm ce የህ Wa ән си xg c
63 wt) D Iee .ሮ cas Mu Hm te
“кы al üB Oo Фә Zeesnü d ea amo Ҹә
63: EE ብ ዢ) ሂህ un ርነ =ኑ- 1.4 ssn
ҹә qu e ән We am ml iz man ርፎ (ህገ)
Сәда nc i ә få +” We ሂኒ “ cH m nt m ር2 ር)
ጄፎ ጻ o məsa m EN ርነ
lə И Мән 4 ቲኒ. .ር ካበ ፻/4 ፎ m (4 CH
Eo Амд ды дн ә Еллән up ten “ተ” CTI си
(ህ Qr za Ch ፎጠ፦ ፎ ሯፎርፎ cms! Chee әс ви
zu ül QC JZ C Urs Qu us ሂጋ +”* Jl
Ver tut
(2 6]! uu uc “44 NI Ge Tin qe sel О, Ji
MÅ tU EI vet ። ርፎ: ፻፲ məs +* 2ክ ር: ቲነ
әҹ (İLAN = EUME (Mee azn cromo rara gr
4በ ün itl A can በገ ኒ) vest cont የ1] ”"ሜ የህ] Cal oe! Cae ce.
Cea ። mea Zu “ኢዳ. ቢጄጀጠ uo
Cem OLEM ሂባ ас E CI += ር3+*-” :ክ +
WE IT +M dcc OM ርዕ - ፒክ ኣባ. WE «
m ዝዝ oxdu ፎ ron ül ar dac onm
T mani bk à *guon Foo s zə ርር)
ül ርነ ql əni) ee m (2 ac ርጋ rå ҹә әр et Ci S
a cn cun С 73 art oe О ~ Er Zə
ül se E (rts C C un ql .ኀ 48 23. +*" quare
ድ የ3 mM ርክ ጠ b ርኃ (ОЗ ኒ. 0) — .ሮ ОЛ .ር. ፤.. O
ef mf) Dae c o О, a sz İL e! e! Н ат ат Ы ሷኑ-
‹ባርቫ | mül m.
De ES o m
АД ff SP +* e (ә вә
Los drin
“3 03 ne .
6: ና4+* n m 8 --* am c
(m 5] o nrc
os set At b urn Qul ac qz
әјә Гә "
mə 13. (ህ-! rt. ሂህ
FK t әд x.
Tha ሂህ--”ፆ usen
ዛባ cnm gm e E ኪ.
A A UM en "m
ül ህባ +* mca
ә Ас atu ፌ.
pet ዚ.. ሂህ dons
Ge nen Qe eat
Ы ch EDO E
ei 111 t. m
mv Est me
>=. €t (ዘ E 23 ር c an
moa £ Oy Maye Je cn
aac 1 сә ии
onur Qaem gu ro
ee MO A e О o (Li (m
፦” ጩርቡ- ሷየህፎ eoa
Az. 1 Civ munu rz
n ела ein Cast MO mu
...ə E Ea tn — ül
e
(8)
t
in Den
- Cap
Clip
ANUFACTUR E
N EXPOSITION
vedk ammer
Iw
ሥቱ መውሁ am nə silə awi doaya.
Arts Building
bal 1 —һһ. ә Һи
መ boy ән cnt енә
vr set mama መ፦ she
the
Founta
Мән.
whem vim СА
Н.
a
dde
əəə.
så i
Dad ыы
24፻ pity -
iss 5 Pa ü
515. zi :
2" 2 == 101 zə
ii enm ut
Eit 4 “Hü ut
* из m
2
урал
D
да
2 2
vü mn ә ки
ርክ mld - an
mu
PE
ды әс gti om acc
Ct p eet et T A 23
፦ (dmn тә
адан Chun et = ки
od ui
Qr. a nm m
MER met
un ut (ጋ си
"(m 2 A
с e
hae ሂባ ቺ3 +”
ገ3 ባ a
Сохи ፤ህ
DES DE
ed
wy “ 1
m də - e.
Az Ma E
ÜR) ıı
"аг
BC)
“at
C C6
TE
m
"er ፍህ ር
- (qmod VA
Mp om a Kl] nn
Zola coram
ጠጠ - mr o.
ሂካ ር: ሮ3 er
Tiedt rı ә иј
ni m 4
DIput-adu (በ
al ሂካ + +
ZI rn mn
ET rn ay t.
1 3 (ህ Ca 6.
mu
vi
C ፪ሑ1--*
Von m
(C ፤፤
Ia 5.. ህዝ ገገ
m ün cc
Azn
аб ር
Come
ZU]
e: un
ән EL
(9)
1:42 ' ጊን ጩ a
ETE " Tü ant ül
uy ul úl mn ^ 18 ... te ፒክ ር LA
ES Zs ala 8 ə Cet 1 ሂጋ eet CH it
"mo "gt Coa ቀ” RM sən agp ee id 8ክ
[o CE ጠ 6 дә EL о Ha ce E xn ከነ፦
m ED en İL t n ve” ay mim ዚዜ Cz ላ. Кәс oT,
ዕፎ፦ ህህ. tut roet Be [EOS De on
ሏ. m ዚህ "gung = 2210 C ur n ሂ3 ዚቫ СС
h & mcn ə m nün wA M GT r... —
“mn elim sun um ህ)4ባ ane ül abe
wed ül o eo [IS] m xi - Jm E SE ma Ea
CAE ut ፲% ህ m Chas v) ዚህ 40 2 Sp nns n.
vü ul +* ሂዝ +” ተ ብ ul Адад ә ә ас (bes abe 23 ኒባ ዚህ]
2 un C un cn ርህ сы |. ፍ. ጪ ባህ]. > -
ኣዛ. (18. tup em cau ә ә =3 -. 114
EFE uh “ህር : =
E " 1. t በ1: in
ük sə ዚህ ül Fio : ^
NUN TH 416 1 i ። müd c "c ህገ
ር C ህዝ-፦ MA dz m “እህ
€ - ai * Pedy 0e 9090 a m C . ተ Cd
üs фа ка о * әдән ән =" ОЛ) “ቬ-”6ቤ
ህገ üb ላ... - İL hee 4 e e! nz ra Ы ren Fou
i c.c “с VEA qı ән To xL " ህ1 ር) tot met
a a e ሷል= “əb “man ር34. ua mi
፦ «o0 c srmo me udun Tri илас
дә (Ue e Ели die e zə a =ት- a алан CE er oum v] C cg zm
мә .፦ ür, kəl É ሼኑ- e
ሣፎ ሥ – ክው = = ти 2 "Çun
ቲ — «d nı ርነ «+ ሀ) = edee i
Sub ዓቐ id d መ mo ed a TE
1 . ки 1
. zn AT Cı d :ጋ be ul.
+ I! ተ” ac Y a^
ül Me
at ሠ am =
å да Cor "d e
E ae (mou FO: gu
ha. un TN UL
x дж reddet ted
ду "4 Çil YU uy i ğ
+ eu à ci E
ul x i 72 Ea donde dl
x və İL el n ' ded me
ላሳ 2 ane] b i 2) ፻= 'ጊ1 5 ul
ou LEVEL := ሺ: te
mn o al сас or О о (2025, Tü
. әз e ኣባ.ሯጀጻዒ
5 ፲ [. e. wi C 1
(3 ut dü QUE ። ሂክ*- ሊባ
дә ül ә A. € ATTE
“ә бә aon “ bor iu. с ül ül бәни 22
ኣባ +” mün *ፎር dd ce Eda ün Joe ኒባ gn å met
manı SO LINER ፎ oe ኒበ Eh Coe be ፻[ 11.
x met +" ኢኪ. ቲባ ü o ики ки Бән LII dl
E Qe! ecce Ci [ቨር - QU apüluta cac
aa > ጄፎ. በዕ. ር: ላባ ana - Qe ህ!ትኀ45= = ኑ-
te deo A ሺህ ህ uu FH e Gg dz ህህ]:
mü rr ጠሮር3- ኢፌ. ኒቫባ Us ts Eo ጻ*ጻፌ..፡ኑ፡ La “
ar ФД “ M — ህፎ ክህ кии ur но . n en ›› 40 mz
4.. un ኢፌ. “41 dU ሠ” e (CZ ሯፎ CHE ru cn
au “ ül za El m ın "m vü EA Can c
a5 +A OL varie TEE He OY oz ር;
(10)
b
ci
Oh
at
ve
ac
ke
ce
Ker Tn
ru nü ow
et ID
vu
|
an ccm ur x
ar c num
га Ол unt nA om
ኔህሪ ee D Гә)
ጋዚ። mco
mu
=
SL
с
n
GOOD NEWS!
ates, 419 N.
ic 458180 is
41.5.5255 in
ry goad pric
cept Credit
ер the price
pi cheques 5
They ais
iectio ar
e GL 3D Ch
1223, eg
n a
r
5 ህ) "
mn
m
“о
ፓ
(c 1
m, .፤ ሄ3 3 ፦ “ብ
ə.
с
ta
et mağ a
፤ ኢህ OD e ር).
WD “ኀ የነ
=3 በ) + zocnm
im
ino “ብ
ር)
"cu.
“ፋ
å å
r+
ü zr
Һәр ከነ ፲23 am
ол
ሠ
ሠ ጋ
very
a one.
51181 Fr
Higham H
d has pr
5 SUPERC
Compiler
with 256
vements,
puterized
cope type
a- Last af
here does
f new mat
cene for
to make p
purchazi
er. TILI
CORNER |
r
c
n
in
፦
'
on
“ieee
* tos
ro
pt
ጨ
х
mio
in 3
5)
mob [7a
ен ዜ]
=
”*
IN ሁ፦-. zr
ouo
uğ en ብ ዝጦ
m
a
c
eet
<
Cu.
et (1
W c
ma
m-
ne
E m
“(ик
m
Aat an E
4
Cy. C
Ы
+
t
ә
nes]
E CY e pd
TAO ə
m3
ee ye epa
Li
ee orc
“ə:
mon m qum m
3 “ኀ YMO e erm
enc Oo 0 “ኀ 1” lu un
846 መ “ኋ fn tes = d “ዣ, IL
mu
^"
tu f£
et TE er
nam
r^
X onem qm
ፒ፤ በነ bee ር)
Bae :3 ሆነ =3
DN nn
bəl
ent a əl
2ሂ የቶ ሥ
–
aoc eoa
m
— qm
tru o
zm.
о
m
gəl
rtu
m
Ti
was
"Ho esu
ma x.
in TU
ME
eu
2E
4 “ኀ C ap
mm
ciet
ul et
Ch. “46. ር)
moogoo
Eo ue
m «eo
“ “ነ A Re 7)
* Y
m
1
İn eam m dn ues
ho
. ረ: %3
=3“ኀ ር
ar miz
m in በ) ኑ ሀክ
zə
сә
1,
በጤ ተር ነ፦
Ac oru or
TMV
m
ә
=
ኤ
e qnm
"ә
mv, Ел er
T O
C.
C t ә
“ከ
ሆቶ ዮ” on
О
[በ a cien -4
m” 1
- würde
m ame ር)
ır”
2
፦ Ld
ዉጨ፦።“ m
3 qme
m"
2u
ar
Ee
em am ane ርጋ
m”
———————— ——— — — — ———.
JORDI
vt am e
ፓ ፓ ርነ,
mo
ወ
T
c C) coco
2 UG
e ከ)
3 © 065
бә
“03 ፲) ++ 3) ፳ on
m”) ie [T] «
mün Rp
64 ሮህ
си с) ርዕ
bə bə kə ba ኑ። OG 03
“4ርክሂቨ ቱ Ca for es
ə C) бә бә бә
38) 00.1
63:03 ҜӘ бә ርሀ 63
ə 5 UD ርዕ
Dü ርህ Cà Cà Có Cà Có Có ci co ca co co co ርዕ
pa
GGG
AMO FU E Fə рә es p
240 7 py
mam in ee
He bef a сл
VH u ኸ፦ር
H TS
"n
m
Er Fr 68 ork pm
HU rm
m
mri
ei
"XM mo r
RAP
da
Cif
ter
"op
Xu pu
2 prn mr
ጋ4ጹ [ቨ
ዘየገዝ”“ኽ HK 6
ፌ.. ታህ m ዐዐ cO
Tas
Hr ҝә ሂበ
me z t-
ND ~
END
z
ጋ
von] A 14
d ust hh
mı ሠ
a) ሥ1]ሽ፦ ጋ “ግ።ዳ "e ግጫ ጫጣ ር
ዘሯ m = r^
uw n
in
x
D
X,
mn
ri
nu
s
i
2ና pe
TI
ot
-— | 6
F
E
EJ =. A
(et T
ba.
лә
1
а
5
mn
m.
—
ur “ተ ራሙ
m.
Jus
me
From Page 2
If possible, make up a list of
all the softvare you are able to
contribute to the library, this
vay Ian can check for duplication
of effort and nip it in the butt
tr
uz
n
"
r
c
in
in
፦
"m
vi
Ел
Les
ጭ
x
m
из
J
Load
20568 is 5 while the nipping is good.
Parts, th
Program ሠ The question of repair support
CNN PME was brought up again and again I
R-HEA must point at D Ross. He has
thout io access to all the parts.
4 con Apparently parts for the Spectrum
25. | are also available but hov vell
fiiprogram type (Betic.,code.ana they fit in the 2068 I don't
Eg — LE: know. Maybe parts from the Silver
ei! ame EU - RA Lora Avenger can be used, also, there
(3]Leng th With å Without varis- must be parts from Timex still
. 27.” RUR nc. floating around North America,
d C LU-multi LE 3 1 1
(፳5)5ህ1ፎኗ Ori maybe Bob Lussier can find out.
Tupe in If you ever have any trouble with
it before RU you 2X81 keyboard talk to Ken
fo LLOW ins Ала Abramson he has got the thing
will List co pru d d
i ncounte i
42 F Anyhow folks this vas, for the
last time.
1 REM RA 2066 Paul (the editor) Ruiterman.
2 CLEAR 5 z
5 BORDER @: PAPER @: BRIGHT I
INK 5: CLS
10 GÜ SUB 1222 =
58 CLS : GO SUB 500: BEEF .21 172 nəş
10: PRINT AT 18.9, INK 0; PAPER 183 THER
5: FLASH 1; "START CASSETTE" 123 THEN
50 RANDOMIZE USR 32000 Ga 5
55 BEEP .Ø1,45 SER be ር ረው
58 CLS : GO SUB 500 ያው RSE
70 LET ix-32258 ድዳ ይስ ove
80 LET type=PEEK ix 175 PI TE
96 PRINT INVERSE 1'/i"Program:" "13585" par —
AND tyupesBieit Numeric Array: A met JER
ND typesii¢ ("String Array: " AND — aR
type=21+1"Bytes Block: " AND type ey = i
=31; ራን
100 PRINT INVERSE 0:7 ";: FOR n 2257 S a. need os
siket TO 1x410: PRINT CHAS PEEK o Os nu ss B. ህከስ
n;: NEXT n ÓBTNT 25”
110 PRINT INVERSE 3' "+1"Pros.+u p Sasal *'SazNOÓN-
ariable " AND type=Ø:+("Code " R "sia RET 2200
ND tupel;" Lengih:", 1000 REM å UE
20 PRINT INVERSE @:" “¡PEER (i 2558 DƏT 5 426 425 17,17
x*11)! +256+PEEK (ix+12) Www 2505 153.186.2668,
130 IF type=1 OR type=2 THE 22557 BA e ри
INT INVERSE 1:"Uariable:":: 5224. fee En
T INVERSE 8;" ";CHR$ (PEEK 1030 FOR =o 45050. READ
41 -32-644 (PEER fix+141 :192 a. BORE : UM 2850 READ
=2): GO TO 175-" 1030 RET >
RINT INVERS 39913 = AR" |} TNE 1
AND type =O) rev “lec er, ә ə UE
ነ type=3! * 4: 1 Lot
፦
tə
—
(
100 REMark sys_var Dec/85 by H. Taylor
129 layout
149 printer
160 SV_BASE= HEX(* 28200’ )
182 HDR=1Ø4
592. PRINT 'SYSTEM VARIABLES : ”;HEXS(SV BASE, 24)
220° BAS_AREA=PEEK_L(SV_BASE + 16)
24Ø PRINT 'BASIC AREA BASE: *;HEX$(BAS AREA, 24)
26Ø.REMark
280 BAS END-PEEK L(SV BASE + 20)
3ØØ PRINT ” END: ';HEX$(BAS END, 24)
328 PNTR BAS=BAS AREA + HDR
342 PRINT *POINTERS BASE: ” ;HEX$(PNTR_BAS, 24)
362 REMark
380 BV TOP-PNTR.BAS + 256
409 PRINT 'BASIC VARIABLES END: ” 5HEX$(BV. TOP, 24)
420 REMark ;
440 PROG FILE-PNTR BAS+ 16
460 OFFSET-PEEK L(PROG FILE)
482 PF START-PNTR BAS « OFFSET
500 PRINTN “PROGRAM FILE BASE: ';HEXS(PF STALT,24)
529 REMark
549. FILE END=PNTR BAS - 22
568 OFFSET=PEEK L(FILE END)
582 PF END-PNTR BAS + OFFSET
6ØØ. PRINT ” END. ';HEX$(PF END, 24)
62Ø REMark
64Ø NAM TABL=PNTR. BAS + 24
66Ø OFFSET=PEEK L(NAM TABL)
689 NT START=PNTR BAS« OFFSET
700 PRINT 'NAME TABLE BASE: ”;HEX$(NT START, 24)
72Ø REMark ;
749 NAMTABL END=PNTR BAS + 28
760 OFFSET-PEEK L(NAMTABL END)
780 NT_END=PNTR_ BAS + OFFSET
820 PRINT ” END: ';HEX$(NT END, 24)
820 REMark
849 NAM LIST=PNTR BAS+ 32
860 OFFSET-PEEK L(NAM LIST)
889 NL START-PNTR BAS« OFFSET
909 PRINT 'NAME LIST BASE: ”;HEXS(NL START, 24)
92% REMark
942 NAMLIST END-PNTR BAS + 36
960 OFFSET=PEEK L(NAMLIST END)
98Ø NL END-PNTR BAS + OFFSET
1009 PRINT ' END: ';HEX$(NLLEND, 24)
1220 REMark
1240 VAR VALUES-PNTR BAS« 40
1280 OFFSET=PEEK L(VAR VALUES)
1989 vv start-PNTR BAS« OFFSET
1190 PRINT ' VARIABLE VALUES BASE: ';HEX$(vv.start,24)
1129 REMark
1149 VARVAL END-PNTR BAS + 44
1189 OFFSET=PEEK L(VARVAL END)
1180 VV END-PNTR BAS + OFFSET
1209 PRINT ' END: ';HEX$(VV END,24)
1220 test$-'this is a test example”
1240 REMark
1260 PRINTSO,”HIT ANY KEY TO CONTINUE’ : PAUSE : С1,580
1285 SHOW TABLE 1
1328 IF pre:
1329 CLS : CLSsO : FRINTRO, "Hit any key when Printer ready'
1349 PAUSE : SHOW_TABLE 3 : |
1362 ELSE
1389 STOP
1422 END IF (13)
1420
1449
1469
1489
1500
1529
1549
1562
1580
1609
1629
1649
1660
1689
1702
1720
1749
1769
1780
1899
1820
1840
1869.
1880
1999
1820
1940:
DEFine PROCedure layout
BORDER #9, 8, 8
WINDOW #5, 515, 2916, ወ9,ወ : BORDER #5, 5,6
WINDOW $1,512,216,0,0 : BORDER €1,5,0
PAPER 82,0 : INK #2,4
PAPER Ø : INK 6
PAPER*Ø,Ø : INK#@,2 : MODE 4
END DEFine layout
-DEFine PROCedure SHOW_TABLE (chan)
LOCal addr,fin,off,ch
addr=NT START
fin=NT END
ch=chan
PRINT&ch, N
FOR a=addr TO fin STEP 8
type=PEEK W(a)
PRINT#ch, *Code:”;HEXS(type, 16);
SELect ON type
=1 : a$=’Unset string”
=2 : a$-'Unset fp. #’
=3 : a$="Unset Integer’
=257: a$=’Str.expr.’
=258: a$z”FP expr.”
=259: a$c” Integer expr.’
=513: a$-'String'
=514: a$=’F. Point Number”
=515: a$-'Integer'
=768: a$=’Substring’
=769: a$="String array”
=77Ø: a$="FP array”
=771: a$=" Integer array?
=1Ø24: a$-'Super Basic Proc’
=1026: a$=’Super Basic Proc’
21281: a$="SupBas Str Func’
=1282: a$-'SupBas FP Func’
=1283: a$-'SupBas Int Func’
=1538: a$="Rep Loop Index’
=1794: a$-'For Loop Index’
=2Ø48: a$-'Mach Code Proc’
22304: a$-'Mach Code Func’
=REMAINDER : a$=’Type error’
END SELect
PRINT&ch, '.'; a$;' 753
off=PEEK W(a+2)
flag=Ø
SELect ON off 2
=-1 : сф=” Мо Name *: flag=1
= 0 TO 32767 : c$-'Name Pntr
=-2 TO -32767 : c$=’Copy í
END SELect
PRINT€ch, TO 28
PRINT#ch, c$:HEX$(off,16),
nam addr=NL START + off
Nam len=PEEK(nam addr;
PRINT#ch, TO 42
IF flag : GO TO 2680
FOR cz1 TO Nam len
dat= PEEK(nam addr *c)
SELect ON dat
=32 TO 126 : PRINT#ch, CHR$(dat):
-KEMAINDER : PRINTHch. HEXS$(dat,8);”
፡ END SELect
END FOR c
(14)
2682 flag=Ø
2799 SELect ON type
272Ø =1 TO 3,513 TO 515,769 TO 771, 1538, 1794 : b$="Value pntr”
2740 =257 TO 259,768 : b$="RI Stk pner’
2769 =1Ø24,1Ø26,1281 TO 1282 ፡ b$="Line Number” :rlag-t
2780 =2Ø48, 2504 b$="Abs Addr’ > fiag-2
2800 END SELect
2829 PRINTSch, TO 60
2842 PRINT&ch, b$;
2860: val=PEEK L(a+4)
2889 val flag=Ø
2900 SELect ON flag
2929 =Ø:IF val=-1
2949 d$=’ Undefined’
2969 ELSE val addr= =vv Start + val
2989 d$=val
3000 VS=HEXS(PEEK_L(val_addr),32) & HEXS(PEEK L(val adår+4), 32)
3220 val flag=1
3949 END IF
3069 =f: d$=PEEK W(a+4)
3282 =2: d$-HEX$(val,2 IF val>786432 INK 2
3199 -=REMAINDER : d$=’Flag Error”
3129 END SELect
3149 PRINT#ch, TO 70
3189 PRINT#ch, d$
3180 IF val flag :
3209 PRINTSch, "Value Table shows : ';
3229 SELect = type
3242 =513 str len=PEEK Wi(val addr)
3260 FOR ezval -adér+2 TO val addr+str len«1 : PRINT#ch, CHRS (PEE
K(e));
3280 PRINTSch,
3309 7514 : PRINTüch,v$,” = *;: conv. fp
3329 =515 : PRINT#ch, HEXS(FEEK W(val PO 16)
3349 REMAINDER : PRINTttch, v$
3369. END SELsct:
3382 END IF
3409 INK 6
3420 END FOR a
3449 END DEFine SHOW TABLE
3460 DEFine PROCedure printer
modi fy as required
N'Else hit any key
3480 pre
3509 REMark sets up a printer at 9620 Baud on SERİhr :
3529 PRINT42,'If you wish printer outrut toggle «CTRL><P>,
354Ø a$zINKEY$(-1) e=CODE( at) CLSaQ
3569 IF c=16 :
3580 pr=1
36ØØ OPENS3,serihr
3619 PRINTS0, "Printer channel opened. SERihr at 9600 Baud”
3629 BAUD 9609
3642 END IF
3662 END DEFine printer
3680 DEFine PROCedure conv _fp( rps)
3700. LOCal fp, expon, man
3728 expon=HEX(fp$(2 TO 4))
3742 man-HEX(fp$(5 TO 12 ))
3769 fp = man * (2^(expon- 2048 -31))
3780 PRINT fp
3800 END DEFine
(15)
—
"38
' 19ISUTUISIM: MON
"884 xod'O'd
"82b TEA
¿dn019 siasn ATE[DUTS 2ƏADOƏUPA
OL 'IIVW
The Vancouver Sinclair Users Group has been
in existence since 1982. We are a support
group for the owners and users of the,
Microace, ZX 80, ZX 81, T/S 1000, T/S 1500,
Spectrum, Spectrum+ T/S 2066 and QL
computers.
Our 1985 executive consists of,
President Marcio Vieira
V.P/Coordinator Erik Sakara
Treasurer ARBie Fru
Our Membership dues are only $15.-/year and
may be send tc our Treasurer.
ARBie Fru
7220 Blundel1 Rd
Richmond. B.C.
VEY 134.
Membership includes a subscription to
ZXAppeal our monthly newsletter. zXAppeal
accepts advertising, our =PREPAID= rates
are,
$ 40.- per page.
$ 20.- per 1/2 page.
$ 10.- per 1/4 page.
We charge one dollar extra for billing.
zXAppeal has a print run of 100 copies per
month and is distributed to our members
together vith approx. 75 other Sinclair
usergroups throughout North America who
receive a photocopy, via The Netvork.
Our North American netvork coordinator is,
Rod Humphreys,
2006 Highviev Place,
Port Moody B.C. V3H 1N5
Our International netvork coordinator is,
Bob Lussier,
7937 Elvell Street,
Burnaby B.C. V5E 1M3
