Download (6045kb, 52 pages) - The Sharp MZ-Series

§ 0 f fur a r .r
Wuprrunl):r
Nr.10 DM6,-OS50,SFR6
~ tt r bur tt r r
Allrz fur
SHARP
... . ...... ..· ..
- • •••• ........ • •• .•••.. ...
·• ••.. .... .... .• ..
..... . • ...
•• • •• 1.
.. .. . ..- .. · ....... .
• .••••
... ..
- ••• ••• "... • In ...... __ • ••• • •••• I • ...
ON DEL INS
[BRK J [DEF I ITJ DJ w [!]
rn
THEN GOTO FOR TO STEP NEXT LIST
IT] []J []J QJ [RJ (I
GOSUB RETURN DIM END CSAVE CLOAD P ...
IT] IT] rn [[] []] ISPC I ~
ISBN 3-924327-08-4
FISCHEL GmbH
Peter Lawatsch
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
Das Magazin fUr Soft- und Paperware und Hardware-Erweiterungen
Organ des ~~~flfJ -User-Clubs Oeutschland
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

_A_ll_es_fU_r_ S HAR P Computer
2 Inhaltsverzeichnis
3 PC-126x,1350,140x: Renumberprogramm
3 PC-1260: Tool 60
3 Promille-Test fur alle Sharp Rechner ausser PC-1211
4 PC-xxxx: UVO (Universal-Verbindungsorgan)
5 PC-xxxx: Radrennen (Listing)
6-7 PC-1401: Master Karteiverwaltung (Listing)
8 PC-140x: Abfangjager (Listing)
9 PC-1500A: DIM Variablenzuweisung
10-11 PC-1500A: Datenubertragung mit CE-158
12 PC-1500A: Datenubertragung mit 2 PC-1500A und CE-158
13 PC-1500A: Spezielle Anwendung mit Brother EP-44 ,
14 PC-1401: Anwendungshandbuch(Inhaltsverzeichnis)
14 PC-12xx,PC-14xx: Apple-Sharp-Interface und Apple-Sharp-Emulator
15 PC-140x: Deskriptive Statistik
16 PC-1261: Buchstabiertafel (Listing)
16 PC-1401: Lottovergleichsprogramm (Listing);' PC-1500: Macro-Assembler
17 PC-1500A: Display-Sonderzeichen, Mathe-Funktionen (Listings)
18 PC-1500A: Regula Falsi (Nullstellensuche), 2.Zeichensatz (Listings)
19 PC-1500A: Bildkonstruktionsprogramm
20 PC-1500A: neue Hardware (Vorankundigung)
21 Aktuell: PC-1401: Positionsberechnung des Halleyschen Kometen (Listing)
22 PC-1245: Hexmonitor
23 PC-1500A,-1350,MZ-xxx: ,Verbindung CE-515P; Grafikhandbuch (Inhalt)
24 PC-1500A: Befehle fur CE-515P (Antwort)
25 PC-1245: Notizblock (Listing)
25 PC-1401: Zeichensatz des CE-126P
26 PC-1500A: Zerlegte Kugel (Listing)
27 PC-1401: Buchbesprechung des Anwendungshandbuches von P.Lawatsch
28 PC-1245/51: U-Boot-Jagd (Listing)
29 PC-1500A: Statik-Berechnungsprogramme; Vermesungsprorarne
30 PC-1401: Append Programm (Listing); Renew (Listing)
31 PC-1500: Kalenderausdruck (Listing)
32-33 NEU: PC-1350 Maschinensprachenhandbuch (Inhalt und Einleiung)
34 PC-1500A: Wortratespiel (Listing)
34 PC-1251: Autokostenberechnungen (Listing)
35 PC-126x: Graphische Funktionen (Listing); PC-1500: Kegativ-Display
36 PC-1500:Prufprogramm fur Eisenbahn-Nummern (Listing)
36 PC-1350: Hubschrauberflug; CE-126P Reservespeicher (Listing)
37-38 PC-1401,-1245: MeBwerte speichern und auswerten (Listing)
38 PC-1245/51 Rollo-Spiel (Listing)
39-40 MZ-700: U-boot (Listing); PC-1241,1~6x,1500A: Ver- und EntschluBeln
41 PC-xxxx: Basic Lehrbuch fur Sharp Computer
42 MZ-80A/K: Hard- und Paperware
43 MZ-xxx: SIO-Karte; KLEINANZEIGEK
44 MZ-xxx Versicherungsprogramme
44 MZ-80A/K: 16K Byte Erweiterung
45 MZ-700: Textsystem Text-700 V2.0
46-47 MZ-700/800: Frosch-Spiel (Listing)
48 MZ-700/S00: MZ-7 Pascal QD-Version
49 MZ-800: Softwareangebot
50 MZ-80B: Softwareangebot
51 Impressum, Abonnement-Bestellschein
52 Unternehmensberatung fur Sharp Computer!
Q a a aa a a a aa
lraDa aaaaaClGaaaD )
.. aaa _all Clcr aDaDQ
· ..·.·····a.a...
• 1I.c::::a••~••a ••
seite 2 Alles fur Sharp Computer Heft 10

»»» jOftluart «««
.......~~....... .......~.............. ..............~.............. ..............
~ ~~ ~ ~
futr J,Jfg(It,-4t:omputtr
tXtlt16iu
---------------------------------------
RENUl1BERPROGRal1M fuer SHaRP
Ab sofort ist fuer die COl\puter
PC 1260-81 PC 1350 und Pc 1401-02
ail} Renu..~rprog'raxtl' lieferbar,
welches alfe-Spruenge USR...it uan
um.m.eriert ! r
Das Renumberprogra..m ist voll in
MaschinenSpr4che geschrieben und
daher sehr schnelL
.Qusserdem. laesst das Prog-ramm
auch ein teilM,-i~s ultnum.meri~n
zu, z.Bsp. von Zeile X bis Zeile Y ait
dem. AbStand Z ! !
Das Programm ist ca. 820 Byte$lang
und Mirii auf Kassette mit .Qnleitunq
gelief'ert.
Der Preis betraegt 25,-DK incl.Mwst
Mit Promille-Test
Maeredas nicht
passiert ! ! !
lflll!
PROl1ILLE-TEST progra... fuer alle
Sha.rp Rechner a usser PC 1211 .
Diesas Pr09'ramm fragt den Beputzer
nach seinem ICoer'pergewicht ,
nach verschied~nen Getraenken
und der Menge der Getraenke (z.Bsp
wieviele 'hal.6e' Bier?)
Dana.ch eraittelt das Program. auf-
9'rund des eingeqebenen Koerpergewichts
der Test~rson und aer
.alkoholm.enge wie.viel Promille m.an
hat. Ein netter Party-Gag .it
durchaus ernstzunehmendem Hinter
gTund!! I
!las Pr09ramm lrird auf Kassette
geliefert und kostet 10,-DM incl.Mwst
Prograflllllbeispielheft. fuer PC 1401-X-02
Berichtigyng ZYr 5Peichererweiterungstabel1e
aus Heft Hr. 8 ----------------------------------­
In der Tabelle fehlen folgende Ausbau­ Fuer al1e Besitzer der oben ~nannten
Ploeglic:hkeiten :
Corqputer ist das PrograMf'/Iheft :
PC 1245 erweiterbar auf 18 fi Basic: ! !
Der SHARP in deiner Hand
PC 1251 erweiterbar auf 18 Basic ! ! Tip~ Tricks unci ca. 30 Progratr1P1e
PC 1421 erweiterbar auf 10 Basic
und 2 KB Masch. oder Oaten.. jetzt zu .eMpfeh~ denn es enthaelt
PC 1430 erweiterbar auf 4 KB Basic. wertvo11e Hinweise, gute Prograftll'l'Ie und
PC 1260 erweiterbar auf 10 KB Basic ist zudeM fast geschenkt I r!
und 6 KB Masch. oder Oaten,
ausserdePl gibt es jetzt auch TOOL 60 Oas Hef"t hat 75 Seiten Din A5 unci kos­
(wie TOOL 14 aus Heft 8) fuer PC 1260 . tet our 15,- OM ! ! !
TOOL 60 ist noch kOPlfortab1er als
Eine Beg1eitkassette rnit al1en PrograMMen
TOOL 14. kostet 20.- OM ! ! !
Oer Preis ist gleich (98l'-DM)
all e Pre i se i nc 1. 14% MWST.
Bestellungen und schriftliche Anfragen an:
Fischel GmbH
Kaiser-Friedrich Str. 54a
1000 Berlin-12
Alles fUr Sharp Computer Heft 10 Seite 3

~gQ~~~Qn~ID~l~D~_LLL
Uie Rir soeben erfahren haben, gibt
es tatsaechlich ein echtes UVO.
Lesen Sie in unserem. Bericht, woher
es kOIQ.mt und was m:a~ dalYJjt m:achen
kann ·
~ **
*
**
*
Das UUO ist endlich gelandet ! ! ! ! ! !
UUO (Universal-Uerbindungs-Organ)
- - -
passt an folgende SHARP-Computer:
~ 1~1~ar:llcf.1:l,m~1~~1:l1~-~~8~
Das UUO verbindet Ihre...n Taschencomputer
mit dem SHARP-Din A4 Plotter
CE 515 P oder Cl 518 P ! ! !
Dal\it wir_d Ihnen wirklich ayf einfachste
·Weise er..~lich~ z.Bs~. eine
Graphik auf NORMALPAPI£R ill. Din A4
Foraat (oder kleiner) 4-farbig zu
zeic:hnen
Hie e~·nfaC:h das geht zeigen wir in eine.
ispiel. Dabei benutzen 'Air nul'
einen C 1401, einen Plotter CE 518 P
und natuerhc:h ein UUO ! ! !
Sehen wir uns einma1 nebenstehende Gra­
Fhik etwas genauer an:
Sj~ besteht aus einem schraffierten Kreis
!lilt einem Schraegstrich. Viel1eicht haben
Sie schon einPJtJ versucht, Mit einem HeimcomJ)Yter
wie VC-64 so etwas zu 'Plalen'
und deoken jetzt ~Q9Qttogott. . .' , aber
es geht ~t e~em SHARP-Pocket-Computer
vie1 einfacher als Man glaubt. ZUfIl Beweis
hier das PrograMlVllisting:
10 : LPRlNT CHR$ 92 ; CHR$ 39
20 : LPRlNT IC2QCh-200JOO"
30 : LPRINT "T"·7
40 : LPRlNT "0100,-100,300,-300"
Was dabei herauSkOMMt sehen Sie Ja auf
der rechten Seite ------------------->
Einfacher geht's nicht!!
Hier eine kurze Progr.merklaerung:
---------------------------------
Vorweg: Oas obenstehende Prograrqrq
wuerde ohne Aenderung auch
~ofort auf delVl PC 1245 usw.
laufen.
In Zei1e Zehn wird der Plotter in den
GrtPhik-Modus UMgeschaltet.
In Zene Zwanzig wiCd Mit dem Kreisbefehl C
eift Kreis fIlit den Mittelpynktskoordinaten
200,-200 und deP1 Radius 100 gezeichnet.
In Zeile Dreisig wird Mit delYl Schraf'furbef'ehl
T un der Schraf'f'urart Hr.? der
Kreis schraf'fiert.
In Zei1e Vterzig. wird dann noch eine Linie
~wi~chef) den Koordinaten 100,-100 und
;;ruu,-300 gezogen.
Das war schon alles ! ! t t ! ! ! t ! ! ! ! ! ! t !
seite 4 Alles fUr Sharp Complter Heft 10
alle Soft- und Hardware 14% MWST
Paperware (BUcher) 7 %MWST.
Ei9'entlich soUte dieser Bericht ja
schon im Juni '85 erscheinen, aber
zu diese. Zeitpunkt Mar das UVO
leider wetier ia Weltall l"loch sonst
ir~endwo zu sehen.
.Q erdin-g-s hat sich das warten a uf
U 0 ~tzt auch ~elohnt, denn es
erQElffnet fast JedelQ. Besitzer eines
SHARP-Taschen~mputers neue ungeahnte
Moeglichkeiten:
Text-u. Grafikausdrucke
in 4 Farben im Din A4­
Format!
Endlich koennen Sie Ihre errechneten.
Tabellen. Kurven und Dia~ralQ.­
.e elnd.rUCksvOl1 zu Fap}er Drln9'~n.
BUNOESREBUBL!K­
DEUTSCHLANO
Oie:!Se neben­
Itehende
SRD-Graehik
wurde z.Bsp.
"it efnem SHARP
PC 1260 l,IDd
einem CE 515 P
Plotter sowie
einem WO -
Interface erstellt.
Sie ist
iP1 orgina1 DinA4
gross und in
drei Farben
gaplottet. Eine
Uariierl..An9 der .
Schrif'tgroesse
ist ebenfalls
P1oeg1ich ! ! ! !
Erstellt m.it PC 1401 + CE 516 + UUO
Kreis mit 45 0 Schraffur und Stric:h
An dieser Ste11e wollen wir a llerdings einen
k1einen Schwachpunkt nicht verheimlichen:
Obwohl eine Textaus9ab~ !'lit 80 Zeichen
auT DiD A4 Moe91ich 1St, kann Man ein PrograMMlisting
rnit dem Befehl LLlST nur in
einer 24-Zeichep Breite ausgeben. Wir hoT
fen allerdin9$, In absahbarer 2eit dies••
Problem softwarer.1aesig loesen zu koennen.
Und nun das wichtlgste:
Oas WO kostet lS8,-DM inclMwst.
unci incl. Anleitung + 6 Monate Garantie
Bestellungen richten Sie bitte an :

.. o~e

1248:IHPUT "KI'I(ABFAHRT)
?";KD
1258:IHPUT "KIHAHKUHFT)
?"jKA
1268:IHPUT "ZEIT(ABF.)?
";HD
1270:IHPUT "ZEIT(AHK.)?
";HA
1280:H1=DEG (HD/108)
1298:H2=DEG (HA/10e)
1300:H5=H2-Hl
1320:MO=(KA-KD)/H5
1330:PRIHT "DURCHSCHHIT
T •• ":PRIHT ~O;" KM
/H"
1340:IHPUT "PAUSE/AHF.?
";DP
1350:IF DP=0 GO TO "CM
1368:IHPUT "PAUSE/EHDE?
1370:H3=DEG (DP/100)
1380:H4=DEG (FP/100)
1390:H6=H5+H3-H4
1400:DP=0:FP=0
1410:GOTO 1340
1440:"CM"
1445:IF H6=0 LET H6=H5
1450:1'I0=(KA-KD)/H6
1468:PRIHT "DURCHSCHNIT
T:":PRIHT 1'10;" KM/
H"
1470:PRIHT "EHTFERNUHG:
":PRIHT KA-KD;" KM
"
1480:PRIHT "ZEIT(BRUTTO
):":PRIHT DI'IS H5;"
"
1485:PRINT "ZEIT(HETTO)
:":PRIHT DMS H6;"
"
1498:GOTO "AV
1508: 9 ----------------­
1510: 9 S 9
1528:PRIHT 9*ZEITBERECH
HUNG*9
1530:IHPUT 9K~.(ABFAHRT
)?9;KD
1540:INPUT 9KI'I.(AHKUHFT
)?9;KA
1550:IHPUT 9GESCHWIHDIG
K.?¥;V
1560:T=(KA-KD)/V
1565:USIHG 91111.119
1570:PRIHT 9ZEIT: 9 ;DI'IS
T
1580:GOTO "S9
1680: 9 ----------------­
1610:"D 9
1620:PRIHT "*EHTFERHUNG
S-9:PRIHT 9-BERECH
HUNG*9
1630:CLEAR
1650:INPUT 9KI'I.? ¥;KP
1668:KT=KT+KP
1670:KP=0
1680:PRINT 9GES.KM: 9 ;KT
1690:GOTO 1650
1700: 9 ----------------­
1710:"G9
1715:PRIHT "*HOEHENUNTE
R-"~PRINT "-SCHIED
1720: CLEAR
1730:IHPUT 9HOEHE/ABFAH
RT?¥;A0
1740:IHPUT 9HOEHE/AHKUN
FT? ¥jAl
1745:IF Al=0 GOTO 1760
1750:A2=A1-A0
1755:A3=A3+A2
1760:PRIHT 9HOEHEHUHTER
-9:PRIHT 9-SCHIED=
9;A2
1765:PRIHT 9GES.HOEHEHU
HTER- 9 :PRIHT 9-SCH
IED=";A3
1770:A0=A1:A1=0
1780:GOTO 1740
1800:"----------------­
1810:"H9
1820:PRIHT 9*GEFAELLE-B
ER.*
1838:CLEAR
1840:IHPUT 9HOEHE/ABFAH
RT?9;AD
1850:INPUT 9HOEHE/AHKUH
FT?9;AA
1860:IHPUT 9EHTFERHUHG?
9;DI
1870:PE=(AA-AD)/DI*.1
1875:USIHG 91111.19
1880:PRIHT 9GEFAELLE 'I;
PE;9%9
1890:GOTO 1830
1980:9------------~---~
19H1: 9 J9
1920:PRIHT 9*MASSSTAB- 9
:PRIHT 9UI'IRECHHUHG
1930: 9
1940:IHPUT "I'I.ST.KARTE
? l/";EC
1950:IHPUT 9EHTFERHUHG(
I'Itl)? 9; DI'I
1960:DR=DI'I*EC*lE-6
1970:USIHG 91111.11
1980:PRIHT "EHTF.(KI'I):9
;DR
1990:GOTO 1950
2080: 9 ----------------­
2810:"K 9
2020: "II'IPR.I'IEHUE
2030:PRIHT = LPRIHT
2040:GOTO 30
M A S T E R \
3000: 9=================
=========== ~_____________________________________________=_=_9_:_E_HD__________________
Dieses nUtzliche Prograrnm erlaubt das Verwalten kurzerListen (Karteien) mit Begriffen
von hochstens 16 Zeichen und bis zu 145 Begriffen.
Hinweis:Oben Genanntes gilt nur fUr den PC-1401.
Bei den Rechnern mit mehr als 3,5 kByte RAM, al·so PC-1402 o.a., kann die
Anzahl auf ca.500 erhoht werden. Gleiches gilt auch fUr die Anzahl der
Zeichen je Zeile. Sie richten sich nach der jeweiligen Display-Lange.
Hierzu sind die Zeilen 5 und 10 ggf. abzuandern!
Hier nun die verschiedenen Bedienungskommandos:
RUN
:INITIALISATION (Achtung, dieser Befehl lBscht die
im Rechner befindliche Liste!)
Der PC verlangt nach der Anzahl der Begriffe, die
benotigt werden (beim PC-1401 bis zu 145 -also
max.2320 Zeichen).
DEF A:EINGABE
Der PC erwartet zunachst die Angabe der Anfangszeile
(Anfangsbegriff).
FUr den Kartei-Anfang tippt man hierfUr eine 1
ein. Andernfalls tippt man die Nr. des verwendeten
Begriffs ein.
***9
28:PRIHT "*INITIALISATI
ON*"
30:PRIHT 9MAX.145 BEGRI
FFE 9
40:CLEAR :PRIHT 9GROESS
E DER":IHPUT "LISTE
? 9;K:IF K(l OR K}14
5 BEEP 2:GOTO 40
50:DII'I Z$(K+l)*16,E$(0)
*16
68:EHD
Seite 6 Alles fur Sharp Computer Heft 10

Nach der letzten Eingabe tippt man ein "F" ein.
Tippt man ein "R" ein, wird der Rest (freie Be­
griffe) bekanntgegeben.
Die Anzahl der benutzten Begriffe wird anschlie­
Bend vom Rechner angegeben.
DEF L:LISTE
Nach Eingabe der Anfangszeile werden die Begriffe
in der Reihenfolge der Eingabe ausgegeben.
(Vorzeitiges Beenden mittels BRK.)
DEF C:KORREKTUR
Zunachst muB die Nr. des zu korrigierenden Begriffes
eingegeben werden. Hierauf gibt der Rechner
den Begriff aus. Nach ENTER kann der korrigierte
Begriff eingegeben werden.
DEF X:SUCHE (schnell)
nach Begriffen aufgrund der Eingabe einer Zeichenfolge,
die jeweils dem linken Teil der gesuchten
Zeile entsprechen.
DEF F:SUCHE (allgemein)
nach einem Begriff durch Eingabe einer be1iebigen
Gruppe von Zeichen (auch einzelne Zeichen~
Da der Rechner die gesamte Liste mit dieser Zeichenfolge
vergleicht, ist diese Suche langsamer.
DEF K:SAVE/LOAD
Hiermit kann nun die erstellte Liste auf Kassette
gespeichert werden. Dazu muB ein "s" eingegeben
werden. Nach der Meldung "DRUECKE (ENTER)"
erfolgt der Speichervorgang. Die Stelle, auf der
die Daten auf der Kassette gespeichert sind,
sollte man sich gut notieren.
SolI diese Liste wieder in den Rechner geladen
werden, so muB hierzu ein "L" eingegeben werden.
Mit diesem Programm konnen nun Notizblicher, Telefonverzeichnisse
usw. erstellt und abgespeichert werden.
70: 9 A 9 INPUT YANFANGSZE
ILE?Y;C:IF C(l OR C)
K BEEP l:GOTO 70
80:INPUT Z$(C):IF Z$(C)
=9R 9 PRINT K-C:GOTO
80
90:IF Z$(C)=YF Y THEN
PRINT C;Y BEGRIFFE.Y
:PRINT YIN GEBRAUCH 9
:EHD
100:C=C+1:IF C=K+1 PRIHT
YLISTE ERSCHOEPFT 9 :
PRINT 9.Y:Z$(C)=9F9:
END
110:GOTO 80
120: Y C Y INPUT 9KORREKTUR
(HR):9;0:IF 0

++++ PC-1401/02 ++++++++ PC-1401/02 ++++++++~~401/02 ++++++++ P~19J/02 ++++
r~ '~~11~~
A B FAN G JAG E R
=====================
5:~(C) BY A.OZANNE
10:PRINT 9**ABFANGJAEGE
R*Y
15:CLEAR :WAIT 0:PRINT
Y Y:CALL 1442
20:X=&6060:Y=2:Z=X+l
25:POKE &6063,65,99,119
,127:POKE &6040,127,
119,99,65
30:POKE &604F,60,6B,6B,
60:FOR 1=1 TO 15B:
NEXT I:BEEP 2:CALL 1
442:POKE &6B4F,0,0,0
,0, B
35:GOTO 99
40:POKE Z,W:W=PEEK X
45:GOTO INKEY$
50: 99 POKE INT X,(PEEK
INT X) OR (21'1 INT Y)
55:T=T+2:IF T>=200 GOTO
10B
60:Z=X:X=X+(RND 2-1.5):
X=X+(X

112l: "A J! WA I T 150 :
PRINT (I DIM-UA
RIABLEN-ZUWEIS
UNG"~WAIT 0
20~ !' Ml J!CLS : BEEP
.l~PRINT 11 ME
NUE -»SUC El
~I ENO II
30 ~ l' M2" WA IT 0: A=
ASC INKEY$ -19
40:0N AGOTO IIMSUC
", "MEIN':, "MEND
~ !
50:GOTO 11M2"
50: "MSUC"BEEP 1:
INPUT I'Suchbeg
r i f f : fI ; S$
70: IF S$==IIMI'GOTO
"Mll1
80: IF S$()II:' GOTO
150
90~ !'MEIN"CLEAR :
OIM A$(2)*10,O
$(2)*10,P$(2)*
10
100:FOR I=0TO 2
110:CLS :BEEP 1:
PR I N T I ot-1 ; " » AR
TIKEL;:I';:INPUT
A$(I)
120:CLS :BEEP 1=
PRINT 1+1;". OA
TUM==I',:INPUT 0
$(1)
130:CLS :BEEP 1:
PR I N T I ot- 1-; " a PR
EIS;:"; : INPUT P
$(1)
140:NEXT I
150:GOTO I'M111
150:FOR 1=0TO 2
170:IF S$=A$(I)OR
S$=D$(I)OR S$=
P$(I)GOSUB IISU
CuPI'
180:NEXT I
.l90:GOTO I'Mll'
200: "MENDI'ENO
210: "SUCuP"WAIT 15
0: BEEP 1, 50, 10
0:PRINT lot-I,".
Art. : If ; A$ ( I )
220: BEEP 1, 75, 100:
PR I N T I ot- 1 ; I ' • 0 Q
t . : I' ; 0$ ( I ) :
BEEP 1, 100, 100
: PR I NT 1+1; I' • P
r. : l' , P$ ( I )
230:WAIT 0:RETURN
240:REM SUEN NIMSG
ARN
250:REM FINKENRIEO
4d
260:REM 2000 NORDE
RSTEDT
270:REM PRG. FUER
ALFONS JEDAMOW
SKI
DIM-VARIABLEN-Zuweisung fur SHARP PC 1500(A)
von Sven Nimsgarn
Diese Leseranfrage kommt von Herrn Jedamowski.
Ich mochte nun einige Programmierhinweise auf
die Dimemsonierung von Variablen und deren
Zuordnung geben.
DIM: mit diesem Befehl kann man Variablen
in Felder einfassen und eine bestimmte
Lange zuweisen. Dies ist von Vorteil,
wenn man groBe Datenmengen braucht z.B.
fur eine AdreB-Verwalt~ng. Da die normalen
Variablen nur von A-Z operieren, kann
man sich vorstellen, daB eine Zuordnung
etwas schwierig ist.
DIM-Beispiel: CLEAR: DIM A$(2)*18
Bedeutung: erste Variable A$(~) a 18 Zeichen
zweite Variable A$(1) a 18 Zeichen
dritte Variable A$(2) a 18 Zeichen
Die Variable A$ bekommt eine Zahl in Klammern
angehangt, diese bestimmt nun die Anzahl der
Variablen A$ angefangen mit der Zahl ~.
.Variablen-Zahl-Beispiel:
A$(5) entspricht 6*A$ (~,1,2,J,4,5)
Steht hinter der Klammer bei der Dimensonierung
"*" und eine Zahl, so bedeutet dies die
Anzahl der Zeichen, die eine Variable max.
besitzen darf. Bei keiner besonderen Angabe
ist die Anzahl auf 16 max. begrenzt.
Zeichenanzahl-Beispiel
=maximal 16 Zeichen Variable
20 Zeichen Variable
A$(~)·8 =maximal 8 Zeichen a Variable
A$(~)
A$(~)*2~=maximal
Programmierung von Variablen-Zuweisungen
Beispiel-falsche Programmierung
1~:B$=""
2~:INPUT IfVariable:If;A$(~)
J~:A$(-0)::a$(~)
.. der
richtige Programmierung
falsche Zuweisung
Rechner wurde A$ den Inhalt
von B$ zuweisen
2~:B$(~)=A$(~) jetzt wird der Inhalt von A$
.. B$ zugewiesen
Programm-Beispiel (siehe links)
Das Prg. wird mit DEF A gestartet. SUC=suchen,
EIN=Neueingabe, END=Prg.-ende. Entsprechende
RESERVE-Taste drucken. Das nebenstehende Prg.
kann eingegebene Begriffe nach der Eingabe
eines Suchwortes durchsuchen. Routine Zeile
160-18~ und Unterprg. Zeile 21~-2J~.
Alles fUr Sharp Computer Heft 10 Seite 9

Datentibertragung mit SHARP PC 1500(A)
und Schnittstelle CE 158 von SHARP
von Sven Nimsgarn
Ich mochte mit diesem Bericht diejenigen SHARP PC 1500(A) Besitzer
ansprechen, die eine Schnittstelle CE 158 Ihr Eigen nennen. Ich
werde einige Moglichkeiten der Datenubertragung im seriellen Betrieb
dalegen. Ich hoffe Sie bekommen einige Anregungen und versuchen selbst
etwas zu Experimentieren mit der CE 158. Ich wunsche viel Erfolg.
AIIgemeines zur Datenubertragung
Serielles Signal
Stop-Bit Start-Bit Oaten-Bits
ParitEit
0 I 1 I 2 I 3 I 4 I (5,6,7) Bit
Ubertragungsrichtung ...---­
Stop
Bit
So sieht ein ubertragenes Byte z.B. aus. Seriell bedeutet, daB Byte
fur Byte hintereinander ubertragen werden. 1 Byte = 8Bit
Baud-Rate: (dt.Dbertragungsgeschwindigkeit) Die Baud-Rate steht fur
die Anzahl der pro Sekunde ubertragenen Bits, einschlieBlich
Start-,Daten-,Paritats-, und Stop-Bit.
Zeichenlange: Anzahl de,r Bits zum Ubertragen eines Zeichens. ASCII
zum Beispiel braucht 8 Bits fur ein Zeichen.
Paritats-Bit: Ein Bit wird an das letzte Oaten-Bit angehangt. Zur
Uberprufung der Oaten kann gleicher/ungleicher oder
nichtparitatischer Betrieb gewahlt werden.
Stop-Bites): Ans Oaten-Bit bzw. ParitEits-Bit angehEingte (s) Bit.
Die ublichen Langen sind 1 oder 2 Stop-Bits.
Programmieren der CE 158 Schnittstelle
SETCOM Anweisung kann manuel oder im Programm verwendet werden.
folgende Parameter sind beirn Einschalten der CE 158 vorgegeben
SETCOM 300,8,N'i
I 1 ~l------Stop-Bit = 1
------ =
.. ParitEit Nicht-Paritat
Wortlange = 8 Oaten-Bit z.B. ASCII
I ......--------Baud-Rate = 300 Bit in der Sekunde
Eingabe-Moglichkeiten bei SETCOM
Baud-Rate: 50,100,110,200,300,600,1200,2400 je hoher die Baud-Rate desto
schneller geht die Ubertragung von statten
Wortlange: 5,6,7,8 Oaten-Bits fur ASCII braucbt man 8 Oaten-Bits um
ein Zeichen zu Ubertragen.
Paritat: N=Nicht, E=Gleich, O=Ungleich
Stop-Bites): 1 oder 2 je nach Schnittstelle verschieden. Die Stop-Bites)
dienen dazu damit die Schnittstelle weiB wann ein Zeichen
zuende ist.
Wollen Sie nun wissen was in der Anweisung steht, so konnen Sie dieses
mit der Anweisung COM$ abfragen.
Beispiel Rechner und Schnittstelle neu eingeschaltet. COM$ "ENTER"
auf dem Display erscheint 300,8,N,1. geben Sie nun
SETCOM 1200,7,N,2 "ENTER" ein und wollen nun die Werte
abfragen mit COM$ "ENTER" so erscheint 1200,7,N,2 versuchen
Sie es einmal.
Seite 10 Alles fUr Sharp Computer Heft 10

SETDEV: dieses Kommando kann manuell oder Programmgesteuert eingesetzt
werden. SETDEV legt die INPUT/OUTPUT Anweisung der CE 158 fest.
Das heiBt, es wird festgelegt ob eine Eingabe oder Ausgabe
auf der Schnittstelle erfolgen solI.
zuweisungl Eingabe/Ausgabe IRechnerbefehll Anwendung
KI Eingabe INPUT eine/mehrere Variable~
konnen liber die Schnitt~
stelle in den Rechner
eingelesen werden
DO Ausgabe PRINT es werden Variablen liber
die Schnittstelle ausgegeben
PO Ausgabe LPRINT,
LLIST
Cl Eingabe CLOAD,
INPUT #,
MERGE,
CLOAD M
CO Ausgabe CSAVE,
PRINT #,
CSAVE M
es konnen Zeichenfolgen
oder ganze Programme aus
der Schnittstelle ausgegeben
werden z.B. auf
einen externen Drucker
oder GroBrechner wo diese'
dann auf dem Monitor
erscheinen
es konnen ganze Prg. von
einem SHARP PC 1500(A)
zu einem ANDEREM tibertragen
werden. (siehe
Beispielprogramm) was
nicht im CE 158 Handbuch
steht, ist das man auch
Maschinenprogramme tibertragen
kann
es werden Prg. tiber die
Schnittstelle ausgegeben
WICHTIG !!!
Die SETDEV-Anweisung muB immer programmiert werden. Das bedeutet, daB
die Anweisung beim Einschalten des Rechners und Schnittstelle immer
gleich "flS" b.z.w leer ist. Also bevor Sie etwas tibertragen wollen
immer SETDEV KI,DO,PO,CI oder COentsprechend zuweisen.
DEV$: mit DEV$ konnen Sie die Funktion SETDEV abfragen. (siehe auch
-- COM$)
OUTSTAT: dient zur Verstandigung zwischen zwei Rechnern. Ich habe
herrausgefunden, daB immer nur der Empfanger OUTSTAT flS
haben muB wenn man Programme oder Variablen zwischen zwei
SHARP PC 1500(A) hin- und her transferieren will. (siehe
auch Beispiel-Prg.)
ACHTUNG !!! BEACHTEN !!! XXXXXXXXXXXXXXXXX:XXX:XXXXXXXXXXXXXXXXXXXXX
Wollen Sie Daten b.z.w. Programme durch die Schnittstelle ubertragen,
so muB darauf geachtet werden, daB immer die Empfangsstation zuerst
gestartet werden sollte.
Denn auf Grund von Installationen braucht der Sender eine gewisse
Zeit um betriebsbereit zu seine Also erst Emfpanger-Prg. starten
und dann senden.
AIIes fUr Sharp Computer Heft 10 Seite 11

Daten ubertragen mit zwei
SHARP PC 1500(A) und CE 158
Ich habe zwei SHARP PC 1500(A) mit CE 158 Schnittstelle einfach
mit einem Kabel uber die seriellen Schnittstellen miteinander
verbunden. Es ist nur darauf zu achten, daB die Sende- und
Empfangsleitungen gekreuzt werden.
Variablen ubertragen von SHARP PC 1500(A) zu SHARP PC 1500(A)
Senderprogramm-Listing
Erklarung-Senderlisting
to: ItA"REM **SENDE-------Start mit DEF A
R PC-1500-»PC
1500**
20:REM
~ SETCOM 300 Baud, 8 Daten-Bits,
30: SETCOM 300, 8, N ~ Nicht-Paritat., 1 Stop-Bit
, 1
40:REM
es wird eine Variable gesendet
50:SETDEU DO------------------mit PRINT darum DO (siehe Tabelle)
50: REM .
70: BEEP 1: INPUT I1 ___---- Eingabe der Variablen in A$
Ua.r i a.b.! e: Jt; A$,
80:REM
an dieser Stelle wird nun durch die
90:PRINT A$ ---------­ Anweisung PRINT die Variable A$
100:REM
durch die CE 158 Schnittstelle an
110:END
den zweiten Rechner gesendet
Empfanger-Listing
Erklarung-Empfangerlisting
l0: JtBIIREM **EMPFA----­ Start mit DEF B
ENGER PC 1500­
>)PC 1500*'*
die S c hni t t s telle w i rd zum Daten­
20: REM __------------ empfang vorbereitet (engl. Handshake)
30~ OUTSTAT 0­
40:REM
Ubertragungsparameter wie Sender,
50:SETCOM 300,8,N---­
sonst kein ordnungsgemaBer Empfang
, 1
50:REM
70: SETDEU KI ___________ es solI eine Variable empfangen
80:REM
werden mit INPUT darum KI (siehe
90:INPUT "Ua.rio.bl
Tabelle)
e:I';A$ -----.
100:REM
_________ an dieser Stelle wird nun die empfang­
110: SETDEU ...... ene Variable in A$ geladen
120:REM
130:LPRINT IIUa.ria.b
-SETDEV wird zuruckgesetzt (siehe unten)
I e ( A$ ) : 11 ; A$
140:REM ~ hier wird nun die empfangene Variable
150:END
auf dem CE 150 ausgedruckt
Zeile 11~
diese Zeile bedarf noch einer besonderen Aufmerksamkeit.
Mit der Anweisung SETDEV werden die Parameter fur
SETDEV auf Null gesetzt. Sonst konnte kein Ausdruck
auf dem CE 150 erfolgen, da der Rechner noch im
Schnittstellenbetrieb arbeitet.
Seite 12 Alles fUr Sharp Computer Heft 10

Programme vollstandig von SHARP PC 1500(A)
zu SHARP PC 1500(A) mit CE 158 ubertragen
Es ist moglich mit der CE 158 von SHARP gesamte Programme von
einem zum anderem Rechner zu Ubertragen. Demnach ist es sehr
einfach auch Programme mit einem Akustikkoppler uber das Telefonnetz
einem Computerkollegen zuzusenden. Einen AnschluBplan fur
den richtigen "DRAHT" liegen den meisten Akustikkopplern bei.
Darum mochte ich hier nicht weiter auf die AnschluBbelegung
eingehen.
Zur Software fur Datenfernubertragung (kurz DFU) mit SHARP PC 1500(A)
Fur die Ubertragung von Programmen von SHARP PC 1500(A) nach SHARP
PC 1500(A) benotigt man keine spezielle Software wie zum Beispiel
beim Ubertragen von Variablen.
Sendereingabe
Erklarung
SETCOM 3~~,8,N,1 fur eine schneller tibertragung eVe hoher Baud-Rate
SETDEV CO
siehe Tabelle unter CO
CSAVEa
Programm ohne Namen ubertragen
CSAVE "Programmname" -Programm mit spezifischen Programmnamen ubertragen
CSAVE M"Programmname";Startadresse,Endadresse-MAPROs iibertragen
Emfpangereingabe
Erklarung
SETCOM 3~~,8,N,1 gleiche Parameter wie Sender
OUTSTAT ~
Handshake vorbereiten
SETDEV Cl
siehe Tabelle unter Cl
CLOADa
Programm ohne Namen empfangen
CLOAD "Programmname" - Programm mit spezifischen Namen empf'angen
MERGEa
Programm zu dem im Speicher dazuMERGEN
MERGE "Programmnameu.Programm mit Namen dazuMERGEN
CLOAD M"Programmname"-MAPRO-empfangen (MAPRO-Maschinenprogramm)
Spezielle Anwendung mit EP 44(BROTHER)
Mit dem kleinem untenstehenden Programm im SHARP PC 1500(A) konnen
Sie auf dem EP 44 (Tastatur) Daten (Variablen) eingeben, die dann
auf dem LCD-Display zu Sehen sind.
Programmlisting EP 44 --- SHARP PC 1500(A)
Erklarung
10: "8I'REM **EMPFA
ENGER EP 44-» -----------------_____
PC 1500**
Start mit DEF B
20:REM
30:0UTSTAT 0
Rechner wird fur Daten-
40:REM
empfang vorbereitet
50:;~TCOM 110,8, N - SETCOM mit 11~ Baud geht es
60:REM
am Besten
.70:WAIT 0
80:REM
90:A$=RINKEY$ _
die empfangen Daten werden
100:REM
sofort vom PC 1500(A) in
110:IF A$=CHR$ 13
AS geladen SETDEV nicht
THEN 150
notig
120:REM
130:PRINT A$;:GOTO
wenn Sie RETURN auf der EP 44
70 endet das Programm
140:REM
150:SETDEUJ
• Normalzustand herstellen
160:ENO
Alles fur Sharp Computer Heft 10 Seite 13

INHALTSUER~EICHNIS
ISIIM 3-924n7-00I-6
--
-~
T i \e I
UORWORT ••••••••••••••••••••••••••• _•• _•• ___ • __ 4
1.1 OER UNTERSCHIEO••••••••••••••••••••• • •••••• _. _ 5
1.2 LI TERATUR-H I NLJE I SE. ••••••••••••••••••••••• _••• 5
1.3 UARUM El NEN PROGRAMM I ERBAREN POCKET -COMPUTER? J
1 • 4 PROGRAMME SCHRE I BEN ••••••••••••••••••••••••••• 8
1_5 WIE WIRO EIN PROGRAM 1f1 RECHNER GESPEICHERT?9
1.15 BITS .. BYTES UNO OIE UERSCH.~AHLENSTSTEME.... 19
1 • 7 AUSLESEN OER E I N~ELNEH SPE I CHERS TELLEH ••••••• 12
1.8 OAS ERSTE PROGRAMf1 ••••••••••••••••••••••••••• 1 S
1.9 OER SPEICHER IM PC-149100 8lL.l. 1492 ...... _.19
1.113 ERROR ••••••••••• : •••••••••••••••••••••••••••• 22
2_1 ~U DEN lEILEN•••••••••••••••••••••••••••••••• 24
2.2 FORMAT I ERTE AUSGA8£. ••••••••••••••• _•••• _ • _•• 24
2.3 RUNOUNGEN UON OE~IMAL~AHLEN • • •••••••••••••••• 26
2.4 FOR ••• NE)(T••••••••••••••••••••••••••• • ••••••• 27
2.5 GOSUB ••• RETURN••••••••••••••••••••••••••••••• 2J
2.15 RESTORE •••••••••••••••••••••••••••••••••••••• 28
2.J UARIABLE MIT LAUFENOEN INOIZES............... 29
2.8 BEFEHLE-ABKUERZUNGEN••••••••••••••••••• _••• __ 31
2.9 MENUE ••••••••••••••••••••••••••••••• _•••••••• 32
2. la DIE UERSCHIEOENEN PR I NT-ANL.lEI SUNGEN •••••••••• 33
2.11 OAS DISPLAT (ODER DIE AN~EIGEl ••••••••••••••• 315
2.12 SELBSTOEFINIERTE lEICHEN.....................3J
2. 13 TELEFON-GEBUEHREN-lAEHLER••••••••• • •••••••••• 38
2.14 E INARMIGER BANOI T •••••••••• • •••••••••••••••• • 39
2. IS SORT IEREN-EINFACH-ALPHABET ISCH ••••••••••••••• 41
2.115 SORTIEREN - PRAKTISCHES BEISPIEL............ ,42
2.IJ MEHR ALS NUR EIN BEEP........................ 44
2.18 ZEICHENSATZ DES PC-1491"92••••••••••••••••••• 48
3. , DER KASSETTENREKOROER---OAS INTERFACE•••••••• 51
3.2 ORONUNG IM 8I'1NOSALAT. ~ ••••••••••••••••••••••• 53
3.3 CSAUE f1 " CLOAO M............................53
3.4 THERMOPRINTER .. CASSETTE-INTERFACE CE-120P... 54
3.5 MINI-EOU-ANLAGE IN EINEM AKTENKOFFER......... 54
3.15 BATTERIE-SCHONUNG•••••••••••••••••••••••••••• 55
3.7 NETlGERAET ••••••••••••••••••••••••••••••••••• 58
3.8 OATENUEBERTRAGUNGSKABEL UNO SELBSTGEBAUTER
I I -POL I GER STECKER •••••••••••••••••••••••••• • • 1513
3.9 CE-1215P ALS SCHAL TINTERFACE..................152
3.10 PROGRAMMIERTER EIN- U. AUSSCHALTER ••••••••••• 03
3.11 ALTER PC-1491 " NEUER PC-1491 111•••••••••••. 153
3.12 ASC II-CODE-TABELLE •• • •••••••••••••••••••••••• 154
3.13 KOMPLETTER ~EICHENSATl DES CE-1215P ........... 1515
3.14 KALENDER (AUSDRUCK f1ITTELS CE-120Pl. ••••••••• ea
3.15 DISPLAT-COPY •• • •••••••••••••••••••••••••••••• 79
3.115 LAENGS-GROSS-SCHRIFT (PC-14a1 L CE-126Pl. •••• 73
4. I KETTENBERECHNUNGEN••••••••••••••••••••••••••• '5
4.2 ZERLEGEN EINER lAHL IN PRIMZRHLFAKTOREN...... 715
4.3 INTEGRATION..................................J7
4.4 RAM-AORESSEN-SUCHPROGRAMM•••••••••••••••••••• 79
4.5 INTERPOLATION MITTELS OER FORMEL UON LAGRANGEJ9
4.15 SCHUERPUNKTSBESTIMl'tJNG ••••••••••••••••••••••• 82
4.7 FLAECHENTRAEGHEITSMOMENT" I..IIOERSTANOSMQMENT 85
4.8 MOTOR-PRUEFSTAHO•••••••••••• , •••••••••••••••• 89
4.9 AUFBAU EINFACHER PLOT-PROGRAMME. (4 BEISP. l ... 92
4.19 UML./ANDLUNG.ROEf1ISCHER IAHLEN IN ARABISCHE Z. 915
4.11 TIP EINER ZAHlENUETTEI ••• AUS... .. .......... 98
5 ERL./EI TERUNGEN•••••••••••••••••••••••••••••••• 99
TAFEL I (ASCII-CODE-TABELLE:PC-14•• "CE-120pl. ••• lal
TAFEL 2 (~EICHENSAT~ CE-12ep)................... 194
Sharp Microcomputer ••••••
••••••••••••• Flschel GmbH
Kaiser-Frtedrlch-Str. 54 a
0- 1000 Berl in 12 •• 0.0.00
.•••••• lei. 030 I 3236029
Mo-Fr 10-18 ..00, Sa -14h
THEV ARE CDNNECTED ! ! !
APPLE II
EMULIERT SHARP-PDCKETCDMPUTER
Wer zu Hause einen Apple 11 oder kompatiblen Computet- und
einen Sharp-Pocketco~puter der Serien 12xx oder 14):x besi tz t
kann aufatmen! - Wir sind nunmehr in der la~e 1hnen zwei
erstkl?5Si~e Soft~arean~ebote zu machen=
I_Apple-Sharp-Inter.a~e
Ihr Apple ~ird zur Sharpperipherie: Sie k~nnen Sharppro9ramme vom 'kleinen' Pocket
ellPfanCJen und allch dorthin sencen, die ShiH-PPt"09t-amme auf Bi Idschinn odet- Drltcker
listen und selbstverstindlich auf Diskette sichern.
Hit Beispielpro9ramrnen und Bauanleitun~ fUr die Verbindun9selektronik auf 5 1/4
Zoll-Disk nur 79,OODM
II.Apple-Sharp-Emulator
Proc.n- ammet"stellllnCJ und -test Ihrer Shat-PPt"09t-arnme auf der App 1 emaschi ne!
Durch Verwendun9 des '&'-Kommandos des Apples k~nnen simtliche Sharpkommandos in
lhren Programmen v~rwandt werden. Automatische Textoptimierun9 (Remarkentfernun9)
und Anpassun~ der verschiedenen Klammersyntax (z.B.: Apple: SIN(A) (=) Sharp:SIN
A) beim Uberspielen zwischen den Rechnern. Dabei ist das Pro9ramm extrem schnell:
3,5KByte Pro~rammtext werden in nur lSekunde konvertiert!!
Mit Anleitun9~ Beispielprogrammen und Bauanleitun9 fUr die Verbindun9selektronik
auf 5 1/4-Zol1-Disk nur 129,OODt1.
Aufprei se: Bausatz Vet-bindun~selel:troni k: 39,00 DM
Fet-t i 9raet"at - 11 - 69, 00 OM
(Alle Preise incl. 14% HwSt. Lieferun~ per Nachnahme oder Vorkasse (V-S~heck) ~)
Ihre Bestellun~
richten. Sie bitte an die Fischel-G~bH.
seite 14 Alles fUr Sharp Computer Heft 10

Deskriptive Statistik .Ur 1401/1402
(von Klaus Schmidt)
Nachfol~endes Pr09ramm 'STAT3' enstand 9eNissermaAen als 'Mitschrift' der Vorlesun9
"Deskriptive Statistik". 9ehalten von Prof.Dr.Heinz Renn (Institut fur
Soziolo9ie, Universitat Ha.bur~) i. Sa.aersemester 1985 an der Uni Hambur~.
Der recht umfan~reiche Vorlesun9sstoff le9te es nahe, die aathematischen Ansatze
zu al~orithmesieren, um sich sodann auf den wichti~eren Teil der Statistik, nam­
lich der 'Deskription', also der Beschreibun9 und Deutun9 der er.ittelten Werte,
konzentrieren zu konnen.
Zeile 5 bis 580: UNIVARIATE STATISTIK:
Nach Ein~abe der unteren(U) und oberen(D) Merk~alauspra~un~s~renzen, der
Klassenbreite(H) und des Modus (H) (haufi9ster Nert) werden
Merkmalauspra9un~(Z(I» und Haufi~keit(Y(I» der jeweili9en Klasse abgefra~t.
Sodann erfol~t die Berechnun9 und Aus~abe der fur eine univariate Verteilun9
relevanten Daten:Variationsbreite oder Range(R), Anzahl(N) der Untersuchun9s­
einheiten, 1.,2. (Median) und 3.Quartil(Q(I•• 3,0» .it den zU9ehori~en kumu­
lierten Haufi~keiten(Q(1 •• 3.1» und dem absoluten(Q(O,O» und mittleren(Q(O,I»
Quartilabstand, Summe fi * xi (P), dem arith.etrischen Mittel(J) und dem gewo­
~enen arithmetrischen Mittel(l) .it Su••e fi*abs(xi-M). DurchschnittsabHei­
chun~(A), Varianz(V) und Standardabweichun9(S).
letztlich wird· anhand des arithaetrischen Mittels und des Median ab~eschatzt. ob
es sich u. eine rechtsschiefe«

MACRO-ASSEMBLER-MONITOR
W1e ASSEMBLER-MONITOR, jedoch um mehrere Funkt10nen erwe1tert,
z.B. Macros (de!inieren, au!ru!en, listen,
l~schen).
PC-1500: m1ndest 8K~Speichererwe1terung er!orderlich
PC-1500A: m1ndest 4K-Speichererweiterung er!order11ch
Aut Cassette mit Bedienungsanleitung
etwa 6 KByte, relokaUbel, 1ncl. 14% MwsTDM 98,-­
f-I
(J'I
- - - -
(fJ
SIERRA HOTEL ALPHA ROMEO PAPA
CD
~.
rt
CD
PAPA CHARLIE
- -
*** Buchstabiertafeln *** vom
:I> AUT meinen letzten Toern
~
in der KQribik,~usste
~
CD
ich ueber SABA-RQdio ein
{f; Teleron,espraech anmelden.Bei.
laesti,en
"""h Buchstabieren wurde mir
c:: dabei von eeine. PC-1261
'1 geholfen.Wer oefters
buchstabieren .ussjposta­
(fJ
I isch, international oder
::r
zwischen Preussen und
~
'1
Ba~ernjfuer den ist
'0 unser Pro9ra•• eine
9rosse>Hotel India Lima
o Foztrot EchoDeutsch
'0 (Post)< Tehlen die UMc:
rt IQute sowie CH u. SCH.
CD
...., Pr09ra~.start .it RUN
oder DEF A,
::r:
CD Das Pro,ra•• benoeti't
"""h ca.3,4kB~te Speicherpl.
rt Es sol Ite .it gerin9­
f-I
o
fue9igen Aenderungen
aucQ aUT anderen PCs
laufen.
3: Y A" CLEAR: DIM A$(1
3B)*18,B$(8)*24,D$(B
)*24
4: U(8)="
S:FOR 1=1 TO 138: READ
AS( 1): NEXT I
S:PAUSE "BUCHSTABIERTA
FEU~"
18:PAUSE "UEBERSICHT"
11:WAIT 128: PRINT "DEU
TSCH(POST) •• 1"
12:PRINT "INTERNATIONAL
(POSD •• 2·
13:PRINT ·SPRECHFUNK(IN
T) •• 3"
14:PRINT ·ENGlISCH •. 4·
15:PRINT "FRANZOESISCH.
.5·
28:INPUT ·Bitte,die gew
uenschte Zitfer ei
ngeben? "jH
25:Q=(H>1)*26+(H)2)*26+
(H)3)*26+(H)4)*26
31:DATA "ANTON","BERTHA
·,·CAESAR","DORA·,·E
MIL","FRIEDRICH·,·GU
STAY·
32:DATA ·HEINRICH·,"IDA
",·JULIUS·,·KAUF~AHN
"'·LUDWIG",·~ARTHA",
"NORDPOL"
33:DATA "OTTO·,"PAULA",
"QUELLE·,"RICHARD·,·
SAI'lUEL"
34:DATA ·THEODOR·,"ULRI
CH","YIKTOR·,"WILHEL
M",·XANTHIPPE","YPSI
LON",·ZACHARIAS·
41:DATA "A~STERDAM","BA
LTI"'ORE",~CASABLANCA
", "DANEMARK", "EDISON
", "FLORIDA'"
42:DATA "GALLIPOLI","HA
YANA","ITALIA",·JERU
SALE"'·, "KILOGRAM"'E",
"LIYERPOOL"
43:DATA "MADAGASKAR","N
EW YORK",·OSLO","PAR
IS", "QUEBEC·, "ROl'lA",
"SANTIAGO·
44:DATA "TRIPOLI","UPPS
ALA","YALEHCIA","WAS
HINGTOH"
4S:DATA "XANTHIPPE·,·YO
KOHAI'lA·,"ZUERICH"
S1:DATA "ALPHA","BRAYO"
,"CHARLIE","DELTA·,"
ECHO", "FOXTROT"
S2:DATA "GOLF", "HOTEL",
"IHDIA","JULIETT","K
ILO" ,
S3:DATA "LIMA","MIKE","
NOYEMBER","OSCAR","P
APA","QUEBEC"
S4:DATA "RO~EO","SIERRA
·,·TAHGO","UNIFOR"'",
"VICTOR·
SS:DATA "WHISKY·,"X-RAY
","YANKEE","ZULU·
61:DATA "ALFRED·,"BENJA
MIH","CHARLES·,"DAYI
n","EDWARD","FREDERI
CK"
62:DATA "GEORGE","HARRY
·,"ISAAC","JACK","KI
HG","LONDON","MARY"
63:DATA "NELLIE","OLIYI
ER","PETER·,"~UEEN·,
·ROBERT","SAMUEL·,"T
OM"',("
64:DATA "UHCLE","VICTOR
",·WILLIA~",·XRAY",·
YELLOW·, "ZEBRA"
126 1 (PC-1261)
5HRRP-Easir-Team
71:DATA "ANATOLE",·BERT
HE","CELESTIN","DESI
RE","EUGEHE","FRANCO
IS·
72:DATA "GASTON","HENRI
·,"IR"'A","JOSEPH","K
LEBER·, "LOUIS", "MARC
EL"
73:DATA "NICOLAS·,·OSCA
R","PIERRE","QUINTAL
·,"RAOUL","SUZANHE"
74:DATA ·THERESE","URSU
LE","YICTOR","WILLIA
"'","XAYIER·,"YYONNE"
,·ZOE"
118:WAIT 8: PRINT "Wort
eingeben": ~URSOR 24
: INPUT U(13)
11S:CLS : PRIHT BS(S)
12B:K=8: FOR X=1 TO LEN
BS(8)
12S:C$= MIDS (B$(S),X,l)
138:IF C$=" " LET K=K+1:
GOTO 158
13S:IF ASC CS

Ralph SChall 29.1217.1985
Amselweg 9
516121 Dueren
Ralph Schall 29.1217.85
Amselweg 9
516121 Dueren
Programm 1: Einschalten van Display-Sonderzeichen
In der der Anzeige des Pc 15121121 A koennen mit den Speicherstellen
~764E und &764F folg~nde Symbole einzeln oder in Kombinatian ein­
geschaltet werden:
~(764E: Busy (1) ,Shi ft (2) ,ht (4) ,Small (8) , I I I (16) , I 1(32) , 1(64) ,
Def (128)
~-:764F: De(1) ,G(2) ,Rad(4) ,--(8) ,Reserve(16) ,Pro(32) ,Run(64)
Die Zahle innnerhalb der Klammer entspricht der Wertigkeit der
Symbole, Kombinationen lassen sich also aus der Summe dieser Zahlen
errechnen.
Um die Rechnenzeit zu verkuerzen, habe ich folgende Tabellen
erstellt:
1) Speicherstelle &764F:
121 1
Run 64 65
Pro 32 33
Res. 16 17
;J>
Run+Pro! 96 97
t--'
t--' Run+Res! 8121 81
ro Pro+Res! 48 49
(J). R+P+R. 112 113
DE G DEG RAD GRAD DERAD DEGRAD
2 3 4
66 67 68
34 35 36
18 19 2121
98 99 1121121
82 83 84
5121 51 52
114 115 116
6 5 7
7121 69 71
38 37 39
22 21 23
11212 11211 11213
86 85 87
54 53 55
118 117 119
"'"t)
2.Speicherstelle &764E
C:
.., A=weg:B=Busy:C=Shift:D=ht:E=Sml:F=Def:X=I:Y=II:Z=III
(fJ A B C B D ! B C ! B ! E· B C ! B ! D ! B ! C !B C
::r C ! ·D D !C D! E E !C E! E !D E!D E!D E
DJ
..,
'd
A 121! 1 ! 2! :\1 4! 5! 6! 7! 8! 9! 1121! 11! 12! 13! 14! 15
X 64! 65! 66! 67! 68! 69! 7121! 71 ! 72! 73! 74! 75! 76! 77! 78! 79
n Y 32! 33! 34! 35! 36! 37! 38! 39! 4121! 41! 42! 43! 44! 45! 46! 47
o Z 16! 17! l8! 19! 2121! 21! 22! 23! 24! 25! 26! 27! 28! 29! 3121! 31
a XY 96! 97! 98! 99 ! 1121121! 11211 ! 11212 ! 11213 ! 11214 ! 105 ! 11216 ! 11217 ! 11218 ! 11219 ! n 121 ! 111
'd
XZ 8121! 81! 82! 83! 84! 85! 86! 87! 88! 89! 9121! 91 ! 92! 93! 94! 95
C
rt
YZ 48! 49! 5121! 51 ! 52! 53! 54! 55! 56! 57! 58! 59! 6121! 61 ! 62! 63
ro XYZ!112!113!114!115!116!117!118!119!12121!121!122!123!124!125!126!127
..,
::r: F B C ! B ! D ! B ! C !B C! E ! B ! C !B C! D !B D!C D!BCD
ro
F F !C F! F !D F!D F!D F! F !E F!E F!E F!E F!E F!E F!E F
"'"t)
rt
A ! 128! 129! 13121! 131! 132! 133! 134! 135! 136! 137! 138! 139! 14121! 141! 142! 143
I-' X !192!193!194!195!196!197!198!199!2121121!21211!21212!21213!21Z14!21215 ! 21216 ! 21217
o Y ! 16121 ! 161 ! 162 ! 163 ! 164 ! 165 ! 166 ! 167 ! 168 ! 169 ! 17121 ! 171 ! 172 ! 173 ! 174 ! 175
Z ! 144 ! 145 ! 146 ! 147 ! 148 ! 149 ! 15121 ! 151 ! 152 ! 153 ! 154 ! 155 ! 156 ! 157 ! 158 ! 159
(fJ XY !224!225!226!227!228!229!23121!231!232!233!234!235!236!237!238!239
ro XZ !21218!21219!21121!211!212!213!214!215!216!217!218!219!221Z1!221!222!223
r--" Y Z ! 176 ! 177! 178 ! 179 ! 18121 ! 181 ! 182 ! 183 ! 184 ! 185 ! 186 ! 187 ! 188 ! 189 ! 19121 ! 191
rt XYZ!24121!241 !242!243!244!245!246!247!248!249!25121!251 !252!253!254!255
ro
I-'
----J
Programm 2:Mathe-Funktionen
Da beim Pc 15121121 (A) Funktionen wie Sinh,Rec/Pol,x! etc. nicht
varhanden ~ind, aber ueber Basic berechenbar sind, kann man kleine
Programme erstellen, die diese Aufgabe uebernehmen. Um auch
Anzeigen-Werte uebernehmen zu koennen, startet man diese Programme
ueber z.B. DEF A,DEF B. Diese Art hat jedoch zwei Nachteile:
1. Es kaennen nur max. 18 Funktionsprogramme gestartet werden und
2. ist es nicht leicht, bei 18 Funktionen sofort die richtige herauszufinden.
Deshalb habe ich-ein Programm entwickelt, das beliebig erweiterbar
ist (nur be~renzt durch Speicherplatz) und die Funktionen werden
mit den entsprechenden Werten einfach in die Anzeige geschrieben.
Danach wird das Programm mit DEF Space gestartet.
Beisp~el:
1)Berechnet werden solI die Fakultaet von 2121 (2121!):
Tasten: (falls die Anzeige noch nicht geloescht ist)
In der Anzeige erscheint dann nach kurzer Zeit:
! 2121 = 2.43291212121121E 18.
2)Es solI die 4. Wurzel aus 625 berechnet werden:
Tasten:
Anzeige: {3,4 = 5.I21I21I21I21I21I21I21I21E 121121.
Bei Funktionen mit 2 Werten werden die Werte durch ein .,. getrennt.
Programm:
2121: "SINH"XX=(EXP (1-SGN F2) *
VAL MID$ (F2$, 26:"{"XX=FI A (1/F2 35: "DMS"XX=DMS X:
1121:" "AREAD Fl$: GOSUB F1$ 27: "REC"X=F1*COS 36:"DEG"XX=
FOR F=1 TO 15: "OUT"WAIT F2:Y=Fl*SIN F2 DEG X:
LEN Fl:t:F$ = USING" 4t.##### :PRINT "xy";X; RETURN
MID$ (Fl:t,F, 1) ##,*V": PRINT F 1 Y:END
:IF F$

Nach dem Aus- und wieder Einschalten de~ Rechners ist der
Zeichensatz des~ktiviert. Er muss dann mit POKE &785D,X wiede~
aktiviert werden.
C/l
Ra1 ph Scha'11
(D Amselweg 9
1-" rt
(D
5160 Dueren
29.1217.1985
Ralph Schall 29.1217.1985
Amselweg 9
5160 Dueren
f--'
rJ)
Programm 3:Regula Falsi
J> Mit diesem Prog~amm wi~d eine NuIlstelle eine~ beliebigen Funktion
~
mit Hilfe der 'Regula Falsi' im Naeherungsverve~fahren berechnet.
~
(D Die Funktion f (>:) wi~d in einer seperaten Zeile mit dem Label "fk"
fJ'J geschrieben. Diese Zeile wi~d auch von dem Prog~amm 'Zentraler
Differenzenquotient' und ~We~tetabelle' angesp~ungen.
'""h
C:
')
50:"fk"Y=X
51:RETURN
C/l
::r 100:"A"WAIT
CD INPUT "xl ";Xl
')
,"Genaui gk. ";
'0
M:CLS :E=.5/10
"M:X=Xl:GOSUB
o "fk":Yl=Y:X=Xl
:3 +.1
'0
C
rt
101:GOSUB "fk":X2=
X-(XI-X)*Y/(Yl
-V) : P=ABS « X­
X2)/(X2+E»:IF
P

Bildkonstruktionsprogramme fOr PC 1500
J. J t".", J.'"." J".""" J""",".
Bildkonstruktion und Bildzeichner
Zwei Programme die zusammen verwendet werden. Sie ermoglichen es die
F~higkeiten des Plotters besser und vor allem problemloser zu nutzen.
Die Programme sind geteiIt, um nicht jedesmal, wenn man ein Bild
zeichnen will, ein 6 K langes Programm laden zu mOssen. Um eine
vernunftige Menge von Oaten speichern zu konnen, sollten 5.5 KByte
RAM zur UerfOgung stehen
Bildkonstruktion
L~nge : ca ~~OO Byte
Das Programm dient dazu Silder zu entwerfen, zu ver~ndern und abzuspeichern.
Ein auf Millimeterpapier oder kariertes Papier Obertragenes (Kopie
oder Zeichnung) Sild kann direkt durch Eingabe der Koordinaten in den
Rechner Obernommen werden. Die Oaten werden im Rechner in einem
geschOtzten Teil abgelegt, und zwar so kompakt, daB ein X-Y­
Wertepaar nur 2 Byte Platz benotigt. Ein Abspeichern der Oaten in
DATA-Zeilen wOrde wesentlich mehr Speicherplatz benotigen und eine
Abspeicherung in dieser Form ist kaum editierbar. Die verwendete Art
der Speicherung im Maschinenbereich macht sich beim speichern der
Oaten auf Cassette durch geringen Zeitbedarf positiv bemerkbar. Als
» Benutz8r selbst hat man mit dieser Uerwaltung der Speicherpl~tze
nichts zu tun.
I--'
I--'
ro
rj'J Das Programm wird Ober ein Menue gesteuert. Folgende
Menuefunktionen sind vorhanden :
'"i')
C: INPUT Eingabe von Oaten als X-Y-Koordinaten, sowie Beendigung
"1
eines Streckenzuges und Festlegung der Farbe.
m
::r CHANGE Auswechseln fehlerhafter Oaten.
QJ
"1 DELETE L~schung fehlerhafter oder OberflOssiger Oaten.
"d
o
INSERT EinfOgen vcn Oaten
:3 SHIFT Uerschiebung kompletter oder einzelner Teile des Bildes
"d in alle Richtungen.
C
rt
ro
SCROll Anzeige der Oaten auf der LCD~~nzeige. (Ober Pfeiltasten
"1 verschiebbar)
::r: LIST Auflisten einzelner oder aller Oaten auf dem Drucker.
ro
'"i')
rt PRINT Probedruck des Sildes. Zur Fehlersuche sind folgende
M~glichkeiten vorhanden :
~ 1. Druck d~s kompletten Sildes, oder nur e1nes Teilbildes
o 2. Angabe eines UergroBerungsmaBstabes in X-und Y-Richtung
( auch unterschiedlich )
m
3. Druck mit und ohne Farbe.
({) ~. Druck eines Fensterausschnittes des Sildes.
1-'-
5 ..Einzelschrittsteuerung mit ~nzeige der Datennummer.
rt
({)
LOAD Laden von Oaten vom Band.
Bildzeichner ca 1.6 KByte
Das Ober die Bildkontruktion erstellte Bild wird gedruckt. Das
Programm verfOgt Ober ainige M~glichkeiten, das Bild zu ver~ndern
1. Druck des Bildes mit und ohne Text ( z.B. als AdreBaufkleber )
2. Druck des BiIdes seitenverkehrt.
3. Druck des Bilder mit und ohneFarbe.
~. Drehung des Textes um 90 Grad.
5. Drehung des Sildes um 90 Grad.
6. Automatische Wahl des Ma8stabes oder Angabe unterschiedlicher
MaBst~be in X und Y-Richtung, um eine Zerrung oder Stauchung zu
erreichen. ~~;-- ..,,-~;:
.~/'
v

(fJ
Vorankundigung von neuer Hardware fur PC 1500 (A) ~. Eine Platine fur eine Speichererweiterung von entweder 6~K oder
CD
sogBr 128K zusatzlich zum im Rechner bef1ndlichen Speicher.
~.
rt Durch den Erfolg des in Heft 3 angebotenen A-D-Wandlers bin ich Ich hBbe 1ange uberlegt, ob es s1nnv011 1st, den PC 1500 dermaBen
CD ermutigt worden, das System neu zu uberdenken, und nach den Wunschen BufzublBsen, und ob dies nicht nutzlose Spielerei ist. Meiner
der Benutzer auszulegen. Die Forderungen an das neue Gerat sind Ansicht nach ist dies ein 2usatz, der es erlaubt, den Rechner viel
N allerdings derma8en unterschiedlich, daB nicht alles auf einer vie1 besser zu nutzen. Es gibt namlich viele kleine Programme, die
o Platine zu realisieren ware. Dies ist auch nicht sinnvoll, da die e1gentlich sehr nutzlich sind (z.B. Telefonprogramme mit Computer­
Palette der Kaufer der derzeitig angebotenen Platine vom Hobbyelek­ wah1, Notitzblock, Terminkalender, Adressenliste). Nur werden
:l> troniker bis zur Uni geht. Die Anwendungsgebiete reichen demnach auch diese Programme nicht benutzt, weil sie sich nicht im Rechner
I-' von Hobbybasteleien bis eben zu ernsthaften Kleinklimamessungen. befinden, und sich das AnschlieBen des Recorders fur die Wahl
I-'
Nicht daB Hobbybasteleien nicht ernsthaft waren aber die Anforderun­ einer Telefonnummer nicht lohnt. Dies wird anders, wenn sich die
CD gen an das Gerat sind sehr unterschiedlich, und reichen von der Programme schon im Rechner befinden, und nur ein Tastendruck fur
rJ)
Forderung nach einem Gerat, welches dem Benutzer mehr M~glichkeiten die Inbetriebnahme notwendig ist.
'""h zum experimentieren bietet bis zu einem Gerat, das eine hbhere
C: Auflbsung und mehr Kanale hat, sowie eine AnschluBmbglichkeit fur Alle Erweiterungen sollen mit der entsprechenden fur den Betrieb
..,
einen externen Plotter. notwendigen Software geliefert werden, wie auch schon der bisherige
Im einzelnen kristallisieren sich folgende Forderungen heraus : AD-Wandler mit vielen Betriebsprogrammen geliefert wurde (naturlich
(fJ
::r
ohne Aufpreis)
C) 1. Mehr Kanale
.., 2. Hohere Auflbsung Wenn Sie fur dieses System noch Uorschlage oder Ideen haben,
'd 3. Schnittstelle fur Centronics und/oder RS 232 schreiben Sie einfach mal an fa. Fischel, die die Uorschlage an mich
~. Anschlu8 des Gerates uber ein Kabel weitergibt. Ich habe fur derartige Uorschlage ein offenes Ohr, da das
()
o 5. 2usatzlicher Speicherplatz fur Daten oder Programme System moglichst benutzergerecht seln solI.
3 6. Durchschleifung von Daten/Adressbus fur eigene Experimente
'd 7. Nicht nur einen AD, sondern auch einen DA-Wandler fur Stellglieder
C 8. Eingange und Ausgange (Ports) fur digitale Signale.
rt 9. Moglichkeit fUr den AnschluB eigener ~ntwicklungen.
CD
..,
Eine Platine die dies alles zusammen und obendrein billig erfullt hat
::r: vie1 gemein mit einer eierlegenden Wollmilchsau. Der Anwender wurde
CD Baugruppen mitbezahlen mussen, die er uberhauptnicht benotigt.
'""h Unter Berucksichtigung der oben genannten Bedingungen ist ein System
rt
in Planung/Vorbereitung und bei Ueroffentlichung des Artikels evtl. cl »
I--' zumindest teilweise fertiggestellt, welches folgendermaBen aussehen \0 0\ la
o ~
'1 '"'
'd 'd en ~ 1-3 I-' < :z: t! t::I M 0
»
:-I ;Y '" I ::s "" .. 01 '1 0 c: o ::s .... .... '1 ...
01
en
Otl ; '" '1 01 '"
~
'" '1 t
Basic-Befehle erlaubt. Dieses RAM ist als >; ::s ::s ::s ..
0
ROM schaltbar und ....
'1
~ b:I
M
Otl I-'
2usatze werden uber Flachbandkabel verbunden.
c+ '" ~ .... ."
rJ) '1 '"' 0
~ "" ....
~ '1
'"
t:l ... '" ::s '"
Centronics, sowie Ein
'1
und Ausgabemoglichkeiten, und Schaltmbglich- .... p. c::: I-'
t::I
et
0 I .. ·
~
keiten fur Netzspannung. 5 '" 3:
;Y ..
Otl I-' ." tl :::
.\0 ~
ID ....
0
Otl to
(l) .. ::s
I I
0 .... ..

~m-1401
Positionsberechnungen des HaUeyscben KOlneten
Bei seinem 76-jahrigen Umlauf urn die Sonne nahert sich der Komet
Halley Ende November 1985 bzw. Mitt~ April 1986 wieder der Erde.
Das abgebildete Ephemeriden - Programm berechnet die Position des
Kometen an der Himmelssphare von einem bestimmten Standort aus
und die Koordinaten fUr die Sternverzeichnisse (Sternkarten) der
Standard-Epoche 1950. - Nach Eingabe des Datums, der Uhrzeit, der
geografischen Lange und Breite" (als Dezimalwerte) druckt das Programm
nach einer Rechenzeit von 40 Sekunden folgende Werte aus:
Rektaszension ­
REKT:
Deklination DEKL:
Stundenwinkel ST-WINK:
Azimut AZIMUT:
Hohe HOEHE:
Maximale Hohe MAX.HOEHE: Kulmination KULM. :
Entf. Erde - Komet DISTANZ:
~ Scheinb. Heiligkeit HELLIGK. :
I--'
I--'
Std.-Winkel Celestron - SW-CEL:
(1)
H (Std) M (Min)/dez.
GRD (Grad)/dezimal
GRD (Grad)/dezimal
GRD (Grad)/dezimal
GRD (Grad)/dezimal
GRD (Grad)/dezimal
Std. Min Sek
AE CAstronom. Einheit)
MAG (Groaenklasse)/dez_
H (Std) T (Striche)
(fJ Die Uhrzeit wird in Weltzeit (GMT) nach Stunden, Minuten,Sekunden
'""t) eingegeben;z.B. bedeutet: 21.4530: 21 Uhr,45 Minuten,30 Sekunden.
c:
'""'J
Mit Hilfe der aquatorialen Koordinaten Rektaszension und Deklination
kann man die Position des Kometen auf Sternkarten ablesen.
(fJ
::r Der Stundenwinkel und das Azimut zahlen von Norden Uber Osten und
PJ
'""'J SUden nach Westen. SUden hat somit einen Stundenwinkel und ein
'0
Azimut von 180 Grad.Die Hohe drUckt den jeweili~en Winkel des Ko­
o meten Uber dem Horizont aus. Negative Werte bedeuten,daB sich der
a Komet unter dem Horizont befindet. Die maximale Hohe und die Kul­
'0
C minationszeit geben an,zu welcher Uhrzeit (Ortszeit) ungefahr der
rt
CD Komet die groate Hohe Uber dem Horizont erreicht. Die Entfernung
'""'J
Erde - Komet wird in Astronomischen Einheiten (AE) ausgedrlickt.
:r::
(1) Um den Abstand in Kilometern zu erhalten, mul3 der AE - Wert mit
'""t)
149.6 Mill. multipliziert werden.
rt
Die 8cheinbare Helligkeit des Halleyschen Kometen laBt sich IDit
I--'
o der in Zeile 1050 angegebenen Formel nur in etwa vorausberechnen.
An Hand des Stundenwinkels und der Deklination ist es moglich,den
(fJ
CD Kometen bei parallaktisch montierten Fernrohren mittels der Teil­
1-'­
rt kreise direkt an der Himmelssphare aufzusuchen. Der Wert SW - CEL
CD beinhaltet die Umrechnung des Stundenwinkels in analoge Werte des
N sich am Spiegelteleskop "Celestron" befindlichen Rekt-Teilkreises.
I--'
KOMET HALLEY
19:PRIHT -KOMET HALLEY·
29:IHPUT -JAHR:·jJA
3IJ:IHPUT -MOHAT:-jMO
48:IHPUT -TAG:-jTA
59:IHPUT -STUHDE:-jSD
69:IHPUT -BREITE:-jBE
70:IHPUT ~LAEH6E:-;LE
89:PD=9.4517
98: GH=17. 9411
199:E2=.967276
U9:BH=162.2393
129:PW=111.84S1
130: Kl=58. 1454
~41J:ZT.DEG SD
159:TS=TA+DEG (SD)/24
169:J!=JA-190IJ
179:S3= IHT «JB-l)/4)
181J:~M=SE+ IHT (38.6*MO+
.53/(MO-l.55)~2-32.3
)+TS-.5
198:D!=365*JE+D"
2e9:DT=DB-PP-31441.5
219:"U=.985608/GH~(3/2)
229:TE=!l!/36S25
239: HE=23. 4411
24a:E)(=.816715
2S9:PE=281.220a+1.7192*T
E
269: "E=-1. 5242-. 2559*J3+
.98S6*DM
279:FOR 1=1 TO S
2S0:EF=EE
298:EE=ME+EX*lS9/X*SIH E
F
30e:HEXT I
318:WE=2*ATH «(1+EX)/(1
-EX»~.5*iAH (EE/2»
329:ES=1-EX*COS EE
338:XS=ES*COS (WE.PE)
349:YS=ES*SIH (WE+?E)*
COS HE
358:ZSzES*SIH (WE+PE)*
SIH HE
369:TS=(Da-18262.423)/36
52~.22
378:A3=-(2229*TS)*1e~-5
3ae:AC=-(9a9*TS)*le~-s
399:XE=XS-A»*YS-AC*ZS
4ge:YE=YS+Ail*XS
419:ZE=ZS+AC*XS
420:FOR J e 1 TO 19
438:EQ=E~
440:E?=EQ+(MU*DT+EZ*lS9/
I*SIH EQ-EQ)/(I-EZ*
COS EQ)
459:HEXT J
llEISPIEL:
JAHR :1985
!'IOHAT n9
TAG : 15
STtJHDE :8.99
BREITE :S9.9
LAENGE :8.3
1985/85 EPHEMERIDENPROGRAMM SHARP PC-1401
469:SK=GH*(I-EZ*COS EP)
470:PX=COS PW*COS KL-SIH
PW*SIH KL*COS EH
4se:QX=-SIH PW*COS KL­
COS PW*SIH KL*COS BH
49B:HK=COS PW*SIH KL+SIH
PW*COS KL*COS ~H
5B9:HL=SIH PW*SIH BH
519:HM=-SIH PW*SIH KL+
COS PW*COS KL*COS BH
52f.l:HH=COS PW*5IH EH
S39:PY=HK*COS NE-HL*SIH
HE
54e:QY=HM*COS HE-HH*SIH
HE
5se:P2=HL*CQS HE+HK*SIH
HE
560:QZ=HH*COS HE+HM*SIH
- HE
57e:GE=GH*(COS CE?)-EZ)
58e:HE=GH*(1-EZ~2)~.S*
SIH EP
S9B:SX=PX*GE+QX*HE+XE
69B:SY=PY*GE+QY*HE+YE
61B:SZ=PZ*GE+QZ*HE+ZE
62e:EC=(SX~2+SY~2+SZ~2)~
.5
63B:~~= IHT (EC*lE3+.5)/
lE3
64Q:DE=ASH CSZ/EC)
65e:DK= IHT (!lE*1El9+.5)/
109
66B:RE=2*(ATH «EC.COS D
E-SX)/SY»
67e:IF RE

PC-1245 OPERATING MANUAL HEX - M 0 N V 2 PC-1251
CfJ
HEX-M ON V2 1st eln polnterorlentierter KonfortlDOnl tor 1111 t 3 Anzelgemodl und 16 Ko_andos.
CD Starten des Monltors:
......
Nach dem La

]n iD rrh inbung nl i t CE-515P
f$(O:-1500 ~Q1-135D ,
i1mZ-731 ~:z-g21 i1mZ-gOf1j/A/~
unb anbrrrn Q!.omputrrn
f$C!!-500D@ ~(!1-2500
Beispiele fur Systemerweiterung
Technische Oaten
Oruck-System
XIY-Achsen-Plotter-System
B
Plottender Farbgrafik-Drucker CE-515P
Oruckbreite
ZeichengrbBe
Zeichen-Druckgeschwindigkeit
Grafik-Oruckgeschwindigkeit
Oruckrichtungen
Papierbreiten
Oruckfarben
Eingebaute Schnittsteilen
Stromversorgung
Betriebstemperatur
Leistungsaufnahme
Abmessungen
Gewicht
Zubehbr
Max. 160 Zeichen
15 GrOBen zwischen 0,8 x 1,2 mm und 12 x 18 mm
Max. 10 Zeichen/Sek., je nach TypengrbBe
Ca. 5,5 bis 8,1 mm/Sek., je nach Vektorwinkel
Aufwarts, abwarts, links und rechts
100 mm bis 216 mm
4 Farben (Schwarz, Blau, GrOn, Rot)
Parallelschnittstelle (Centronics) und RS-232C
Netzadapter (EA-57A)
5 0 -40°C
23W
330 (B) x 160 (T) x 75 (H) mm
Ca. 1,9 kg
Staubschutzhaube, 10 EinzelbliHter Papier, Papierrolle,
4 Farbstifte (schwarz, blau, grOn und rot) x 2, Ne.tzadapter
(EA-57A)
Anderungen von technischen Oaten und auBerer Gestaltung vorbehalten.
I NHALTSVERZE ICHNI S
@rafik
17anbburl1
erlffk-Grundaufgaben
[fnleftung
Dfe Yferflrtlplotter CE-l51. CE-515P und CE-516P 8
2.1 Funktfonswfse efnes Plotters 8
2.2 Ansehlu8 der Plotter In Shlrp-CoIIputer
l'
2.3 Ele.tturt erlffk-Befthll
2.4 EtnfUhrencle Befspflll 111
unci Grlffk-Edftor 23
l1Ur SHARP
3.1 Grlftk-GrvndlufgaMn H
3.1.1 Ylrsehteben des Zltdlenutfftes H
3.1.2 llfe"nen ¥On L fntlnzUgen unci Yflleek", 26
3.1.3 Zete"",n ¥Oft Rechtecken: Tin 1 2\1
ill ompu t f r
3.1.6
Sofort lieferbar 49,-DM incl_ 7% MWST
3.1.4 lwtdflllnlfonall KoordtnatentrlnsfOnllltton
3'
3.1.5 lIteh"," von Rechteclten: Ten 2
leteMIII von Quadr.ten 37"
3.1.7 lefe"nen van Senltrechten ;tu Ltnfen 38
3.1.11 letehnen van Dreteclten 41
3.1.11 letehnen von Krefsen unci Krefsbo9ln: Tin 41
3.1.1' leteh",n von Krehen: Teil 2
3.1.11 letehnen von Krthbogen: Tin
3.1.12 lefehnen von Ellfpsen
3.1.13 letchen von Sonderzetehen
3.2 Dilr Grlftk-Edftor GRADOR
4 Krlfsdllgr_
'Illtendf.gr...
6 llfehntn won Funltttonen
Schr.ffur von Vtlleelten
l'
44
48
51
52
55
•
119
8 CoIIputer.nf..tt on 119
Grundllgen der 3D - erlftlt 131
11.1 Projeltttonsforweln der 3D - erlftk
~lnus ~r.qrtin-tr 11.2 Du Htdden-Lfne-Probl_
if i .s r ~ t 1 @m hfLij
11.2.1 Dilr F'lIchennon111lln-Tut
11.2.2 Der Lfnten-Fllehen-Test
11.3 Efn Htclden-LtM-Progr_
"
IN
131
136
136
1311
141
ISBN 3-924327-04-1
l' Zusa.enflssung 154
Alles fUr Sharp Computer Heft 10 Seite 23

Ul
CD
~.
r+
CD
N
+:'
:I>
f-'
f-'
CD
fJl
'"1i 1: REM ZE:RLEGTE
c: KUGEL
')
2:REM Gl!ENTHER
WIDDERICH
UJ
3:REM HOLZ­
~
Po) KRUGWEG 43
') 4:REM 239 FLENS­
'0 BURG
5: REM 24. JULl
()
1985
o 10:GRAPH :
a
'0
GLCURSOR (1135,
C
- Hl5) : SORGN
r+ 100:GLCURSOR (SIN
CD 0.l3). 5, COS el3
') ).5):FOR A=eTO
90STEP 10:LlNE
::r:: - (SIN Al3). 5,
(!)
'"1i COS A~3).5), 13,
rt 0:NExT A
110:GLCURSOR (SIN
I-' 90l3).5, COS 90
o '.1C12.5):FOR A=9
0TO l~eSTEP le
:LlNE -(SIN Al
3).5, COS Al12.
5), 13, 2:NExT A
120:GLCURSOR

Anfrage von:
Helmut Klasen
"1st es moglieh, selbst eingepokte Daten auf dem CE-126 P
... ?" r·L~., '::'~;'::' : :'-\!~':; :-"
auszudrueken .. ,: ;', ,':'.:-, ',,' 1;'.~. ~~',: .,
Nahlkammer 23
(~~f{j;~t}~~ '~iL~:~;\;(~'ri;{ih: PC-7407/02
5400 Koblenz
M:~·:·::.. ~;
ASCII- des PC-1401 = ASCII des CE-126 P?
(oder Zeiehensatz des PC-1401 = Zeiehensatz ,::6.~i;;?~CE-126 P ?)
r' ",.:' ",,: ~ ~ . 'f
Zwisehen den ASCII-Codes des PC-1401 sowie~d~s~CE-126 P besteht ein kleiner
U· h' d ,.'.-": '.;
nterse le .
;.:;·;.;;~~·,l../.J'·
/,:::/~/~"~ : ,;-!:,;:~):;,,,
Dieser ist aber im "PC-1401-Systemhandbuch',':';:besehrieben (Seite 13,14 u. 51)
1.(,...' ... • .. W••• '4"
und im meinem Beitrag in dieser Zeitschr:(ft "ASCII"
I ',:; ~:: "~:::::r'.::~'~.!·&"·
Selbstdefinierte Zeiehen, die dot-;(~l~~ punkt-) weise in den Display-Spei­
IJ'u" ~.-:\I·""~'
eher gepoket werden, konnen niehtEydm~CE-126 P gedruekt werde~, da dieser
seinen eigenen, f est einprogr ammi~i~t'~~~. Zeiehensat z hat.
'~~r;~~12if
EXTERNE STROMVERSORGUNG FUR DEN CE-l~6f
CE-726 P
Der Thermoprinter/Cassette-Interfaee CE-126 P benotigt eine Spannung von 6 V.
Die Leistungsaufnahme betragt 3 W "}~~P~,~·.\ bedeutet, daB das angesehlossene Netzgerat
gesattigte 6 V und mindesteru~'''':(r;~,;,':A liefern mulL
'~\"'I),,( .\ \"
Bei Einsteeken des NV-Steekers in\die7Adapterbuehse des CE-126 P werden auto­
~z'··..·.. ' ''('..'.'
matiseh die eingesetzten Batterien~abgesehaltet.
Beaehten muB man bei dieser Verbindung, daB der Innenleiter an Masse liegt
(AuBenleiter an + ).
90e:RE~ *.*NOTIZBLOCK.**
***IM PC-124S*.*
9B7:CLEAR 1 DI~ B$(19)*3
3
910:"A":2=1
916: BEEP 2: INPUT "TEXTZ
EILE NR: "j Z: IF Z=9
OR Z)10 THEN 930
917:PAUSE "ZEILE "jZ:
INPUT BS(Z)
918:IF LEN B$(Z»32 THEN
BEEP 3: GOTO 917
9191IF B$(Z)='" THEN 916
929:Z-Z+1
921:IF 219 THEN BEEP 1:
PAUSE "ZEILEN YOLl !
"I GOTO 939
923:·Z·IZ-1
924:INPUT "LESEH Y.ZEILE
:";2: IF Z=0 OR Z>10
THEH 930
925 PRIHT = LPRINT
926 PAUSE Zj"ZEILE
927 PRINT LEFTs (Bs(Z),1
6): PRINT RIGHTS (Br
(Z),16)
928 2::Z+1
929 IF Z(11 THEN 924
930 BEEP 1: HID
*****NOTIlBLOCK*****
im PC-1245
Dies ist ein kleines Textspeicherprogramm
fur den SHARP PC-1245. Der
speicherplatz 1st mit 10 leilen zu je
32 leichen nicht sehr groG, kann jedoch
durch Anderung des DIM-Befehles
und der darauf bezughabenden Ze11en
1eicht den Erfordernissen des Anwenders
angepaGt werden. Als Beispiele
fUr die Anwendung sieht der Autor
z.B. die speicherung von Formeln oder
Vokabeln fur den schuler, Einkaufszettel
fUr die Hausfrau, die Abspeicherung
von Notizen und Oaten
fur den Berufstatigen Bowie die Verwendung
ala Telephonnummernregister
usw. Das Programm wurde bewuOt kurz
gehalten, urn im Rechner noch Platz
fur andere Programme zu lassen. Zu
beachten ist aber jeden~alls, daG
durch programmierte hohere speicherkapazitat
der verbl~ibends Rest im
RAM immer kleiner wird. Der Bytes­
Bsdarf des eigent1ichen Programms
betragt nur rund 330 Bytes.
PROGRAMMBESCHREIBUNGa
Nach Eingabe des Programmes und
Uberprufung erfolgt der Erststart
mib~RUN, wobei der gemaG DIM-8efeh1
festgelegte speicherbereich im Programmspeicher
reserviert wird und
vorhandene Oaten geloscht warden.
Die Folgestarts durfen nur mit DEF A
(Texteingabe) und DEF Z(Text lesen
oder drucken) erfolgen, wobei der
Speicherinhalt erhalten bleibt.
Mi t I DEF A I kann di e Textaing aba arfolgen,
welche auto~~tisch bei Zeile
1 beginnt, wann nicht sine definitive
Zeilannumer gewahlt wird. 1st die
Eingabe zu lang oder wird 6hns Eingabe
die ENTER-Taste gedrUckt, wird
die gleichs Zeilennummer nochma1e angszeigt
und eine Eingabs ·vsrlangt.
Alle Eingaben musssn mit ENTER abgeschlossen
werden. Danach ist, in aufsteigender
Reihenfolge, die naohste
Textzeile zur Eingabe bereit uaf.
sind alle Zeilen bsschrieben, wird
dies Uber das Diaplay, sowie auch
akustiach gemeldetund das Programm
beendet, desglsichen auch, wenn ale
Zeilennummer ~ oder eine hohere, wi.
vereinbart, eingegaben wird.
5011 der Inhalt einer Zal1e geloscht
werden, wird die Zei1e wie bei der
Texteingabe angewahlt und ledigllch
ein Leerzeichen eingegeben, analog
dazu 1st auch bei einar Textanderung
zu verfahren, wobsi aber an Stelle
des Leerzeiohens der neue Text eingegeben
wird.
Mit I DEF Z I kann die gespeicherte Informat~on
ausgelesen werden. Naoh Anwahl
der gewunschtsn Zeilennummer
( sonat automatisch 1"Ze11e ) wird
der gespeicherte Text im Display zuerst
links- und, naoh ENTER, rechtsbundig
angsz8igt. 1st ein Drucker
funktionsfahig angeschlo8sen, wird
die gespeichsrte Information ausgedruckt.
Peter Kien, Andersengasse 58; A-8041 Gratz (Osterreich)
Alles fUr Sharp Computer Heft 10 Seite 25

3SS:A=A+S:ZE=0:YE=
R*SIN A:XE=R*
COS A:GOSUB "3
0": IF X)73LINE
-(X,Y):XL=X:YL
=Y:GOTO 355
357:EX=X:EY=Y:IF E
X*SGN YE
1130:Y=0*COS (PH­
ATN (ZE/YE»
1150:RETURN
BlICKWINKEl: 4SD
(fl
CD
1-'­
rt Betr.: LISTING DES PROGRAMMS DER ZERLEGTEN KUGEL
CD
N
(J'I
);>
I--'
I--'
Sehr geehrte D~men und Herren.
CD
C/J in Bezug auf Ihr Antwortschreiben vom 19.7.85 mochte ich Ihnen
nun das Listing der zerlegten Kugel zur Ver~ffentlichung sen­
"t) den.
~:
Es beleqt 3110 Bytes, benotigt ·also den PC-1500A oder einen PC­
'1
1500 mit lIIindestens 4k-Erweiterung. Nach dem Programmstart mit
(fl RUN wird nach dem gewunschten Blickwinkel (zur Horizontalen ge­
::r messen) gefragt. Danach wird die Kugel geplottet. Dabei berech­
~ net das Programm immer zuerst die Koordinaten eines Kreises im
'1 dreidimension~len Raum und ubertragt diese dann auf die Sicht­
'0 ebene. Auch die Hidden-Lines werden berucksichtigt,was bei diesem
Programm all erdi ngs nur Bli d:wi nkel von 0 bi 5 90· erl aubt.
n
o
a Im AnschluB an das Listing habe ich noch einen Beispielausdruc~:
'0 geploftet.
~
rt
CD ten.
'1
::r:
Es wUrde mich fr-euen,wenn Sie das Programm veroffentlichen kon­
CD
Eckhart Baum
"t)
rt
an der Gierhalde R
I--'
o 7713 HU-f=ingen
iii
i Bi §~ 8- ~ 11 ~~! 11
h
Z E]i B~ El" E1 ;:
! n ... 0 , n n "15
If Iliji; r;;! 121. [;]31:1 *11111:
~
i
~
lERLEGTE KUGEL
5:REM COPYRIGHT
BY ECKHART BA
UM
10:GRAPH
20:GLCURSOR (108,
-108):SORGN
30:COLOR 0
40:EE=1~0/4. 15
50: I NPl.,"I "B lick w i
nke I: "; PH
55: IF PH(00R PH)9
0PAL3E "Bei di
ese m '" i nk e I t I"
eter":PAUSE "Z
e i ch ~ n f eh I e I" 0.
U f !!!": GOTO 5
o
50:S=5
?0:0W=~2:PH=90-PH
80:GLCL~SOR (-100
, 110;:LPRINT "
BL I CKW I NKEL: 11
;STR$ (90-PH)
85:GLCLRSOR (-99,
11l):L..PRINT "B
LI CKl.; I NKEL: ";
STR$ '( 90-PH)
90:LINE (80,125)­
(85,120),0,0, B
95:LINE (81,126)­
(86, 121 ), 0, 0, B
99:REM *** KREISB
OEGEN ***
130:FOR ?=99TO 101
122:YL=R:XL=0
105:FOR A=90TO 360
STEP S:X=R*COS
A:Y=R*SIN A:
LI NE (XL, YU - (
X, Y):XL=X:YL=Y
: NEXT A
105:NEXT R
110:FOR R=74TO 76
112:ZE=0:XL=-R:YL=
o
115:FOR ~=180TO 27
0-m,STEP S: XE=
R*CGS A:YE=R*
SIN ~:GOSUB "3
O":L~NE (XL, YL
)-(X,Y):XL=X:Y
L=Y:t.EXT A
115:NEXT R
120:ZE=0:XE=75*COS
(270-DW):YE=75
*SIN (270-0W):
GOSUB "30":XL=
X:YL=Y
125:FOR A=270-0WTO
360STEP S:XE=7
5*COS A:YE=75*
SIN A:GOSUB "3
O":LlNE (XL, YL
)-(X,Y):XL=X:Y
I =Y: NrXT A
130:ZE=0:XL=-100:Y
,=0
135:FOR A=180TO 36
0STEP S:XE=100
*COS A:YE=100*
SIN A:GOSUB "3
0": LINE (XL, YL
)- (X, y): XL=X: Y
L=Y:NEXT A
140:FOR R=74TO 75
142:YE=0:XL=R:YL=0
145:FOR A=0TO 180
STEP S:XE=R*
COS A:ZE=R*SIN
A: GOSUB ''3~'':
LI NE (XL, YU - (
X,Y):XL=X:YL=Y
:NEXT A
145:NEXT R
150:YE=0:XE=0:ZE=1
00: GOSUB ''3~'':
XL=X:YL=Y
155:FOR A=90TO 180
STEP S:XE=100*
COS A:ZE=100*
SIN A:GOSUB "3
0": Ll NE (XL, YL
)- (X, Y) : XL =X: Y
L=Y:NEXT A
150:FOR R=29TO 31
162:YE=0:XL=R:YL=0
155:FOR A=0TO 90
STEP S:XE=R*
COS A:ZE=R*SIN
A: GOSUB ''3~'':
LINE (XL, YU-(
X, Y):XL=X:YL=Y
:NEXT A
165:NEXT R
170:FOR R=29TO 31
172:ZE=0:XE=RtCOS
(270-0W):YE=Rt
SIN (270-0W):
GOSUB "30":XL=
X:YL=Y
175:FOR A=270-0WTO
.360STEP S:XE=R
*COS A:YE=R*
SIN A:GOSUB "3
0": LINE (XL, YL
)-(X,Y):XL=X:Y
L=Y:NEXT A
176:NEXT R
199:REM *** STREC
KEN ***
200:FOR R=-lTO 1
205:XE=-100:YE=0:Z
E=0:GOSUB ''3~''
:GLCURSOR (X,Y
+R): XE=-75:
GOSUB "30":
LINE -(X, Y+R)
205:NEXT R
210:XE=0:YE=-100:Z
E=0: GOSUB- "30"
:GLCURSOR (X,Y
):YE=-75:GOSUB
"30":LINE -(X,
Y)
220:XE=0:YE=0:ZE=1
00:GOSUB ''3~'':
GLCURSOR (X,Y)
:ZE=75:GOSUB "
3~'': LINE - (X, Y
)
230:FOR R=-lTO 1
235:XE=0:YE=0:ZE=7
5: GOSUB ''3~'':
GLCURSOR (X+R,
Y):ZE=30:GOSUB
"30":LINE -(X+
R,Y)
236:NEXT R
240: FOR R=-lTO 1
245:XE=30:YE=0:ZE=
0: GOSUB ''3~'':
GLCURSOR (X, Y+
R):XE=?5:GOSUB
" 3~'' : L I NE - (X"
Y+R)
246 :.NEXT R
250:FOR R=-lTO 1
252:XE=75*COS (270
-OW):YE=75*SIN
(270-0W):ZE=0:
GOSUB ''3~'':
GLCURSOR (X+R,
Y)
255:XE=30*COS (270
-OW):YE=30*SIN
(270-0W HR:
GOSUB "30":
LINE -(X+R, Y)
25?:NEXT R
285:IF INKEY$ LET
Z$=INKEY$
299:REM *** WEITE
RE KREISBOEGEN
***
300:AA=90:AE=180:R
=75:GOSUB 400
310:FOR R=28TO 32
STEP ·2
315:AA=90:AE=180:
GOSUB 400
316:NEXT R
320:A=90:XE=0:YE=0
:ZE=100:GOSUB
"30":XL=X:YL=Y
322:A=A-S:PY=100*
COS A:XE=PY*
.sIN DW:EX=XE
330:ZE=100~SlN A:Y
E=PY*COS DW
335:GOSUB "30"
340:IF Y)=YLLINE (
XL, YU - (X, Y) : X
L=X:YL=Y:GOTO
322
345:MX=XL:WX=XE:WY
=YE:WZ=ZE:WA=A
+S
350:FOR R=99TO 101
352:A=0:XL=R:YL=0:
GLCURSOR (XL,Y
U

ISBN 3-924327-08-4
pre is: 0 M 39 - (j'r1C/' t % f\1W'5i)
I
Peterl..aV«ltsch
Bernd Fischel
Buchbesprechung: Anwendungs-Handbuch zum PC-1401
------------------------------------
Anwendungshandbuch zum PC-1401. Van Peter Lawatschl 106 Seiten, DIN A5~
Fisehet GmbH, Kaiser-Friedrich-StraSe 54a, D-1000 Berl in 12, 1985, ISBN
3-924327-08-4, 39 OMI
Dieses Handbuch setzt da fort~ wo die BedienungsanIeitung des PC-1401
aufh6rtl Dabei ist es gerade auch far den noeh nieht so erfahrenen
Benutzer sehr zu empfehlen, der sieh noch nicht an Systemhandbacher und
Masehinensprache heranwagen m6chte, aber trotzdem die vielen M6gI ichkeiten
des PC-1401 aussch6pfen m6chte, die zum Teil in der Anl~itung gar
nich erw~hnt sindl Der Text ist nicht in "Computer-Chinesisch" vefaat,
sondern in verst~ndlichem Deutsch, so dae man Kein Computer-FreaK sein
mue, urn es zu verstehenl Dazu tragen auch die vielen Illustrationen,
Bilder, Schal tpline, Listings ~d Tabellen beil Nichts desto ,trotz
findet auch der versierte PC-1401-Programmierer eine FGlle wertvol ier
Tipsl
Grundlage dieses Buches sind hiufig wiederkehrende Fragen van Anwender
nach M6glichkeiten z~r besseren Rechnerausnutzung, nach der grunds§tzlichen
Programmierung, nach dem Einsatz der Optionen USWI SO besch~ftigt
es 5ich sowohl mit der Hardare wie Kassettenrecorder, Drucker, Interfaces
usw. als auch mit der Software wie ProgrammiertechniKen, Speicheraufteilung,
definierbaren Zeiehen, Tonerzeugung UI al ml Eine Reihe
n(ltzl icher' Routinen und Programme sind eben-:.o Best.3.ndtei 1 des Buches tJJie
eine groee Zahl von Anwendungsbeispielen, Anregungen, Tips und TricKs.
Der Inhalt des Anwendungshandbuch zum PC-1401 in der Qbersicht:
- Programme schreiben - CfAVE M, CLOAD H
- Wie wird ein Programm im Rechner gespeichert - Thermoprinter and Cassette-Interface CE-126P
- Bits ~ Bytes, verschiede Zahlensysteme - Hini-EDV-Anlage in einem Aktenkoffer eingebaut
- Auslesen einzelner Speicherstellen - Batterie-Schonung mit Bauanleitung
- Das erste Programm - Netzgerat mit Bauanleitung
- Der Speicher im PC-1401 (mit ubersicht) - Datenubertragungskabel mit 8auanleitung
- ERROR-Meldungen - CE-126P als Schaltinterface mit Bauanleitung
- Formatierte Ausgabe - ASCII-Code-Tabelle
- Rundung von Dezimalzahlen - KompJetter Zeichensatz des CE-126P
- FOR Oil NEXT - was nicht in der Anleitung steht - Kalender (Ausdruck mit CE-126P, Listing)
- GOSLlB I I I RETURN - was nicht I I. - DispJay-Copy (Listing)
- RESTORE - was nicht III - Langs-Gro~-Schrift (Listing)
- Variablen mit laufenden Iodizes - was nicht - Kettenberechnungen (Listing)
- Befehlsabkurzungen - Primzahl-Faktoren (Listing)
- Menu-Techoik - Integration (Listing)
- Die verschiedenen PRINT-Anweisungen - RAH-Adressen-Suchprogramm (Listing)
und was CALls besser machen
- Interpolation nach Lagrange (Listing)
- Das Display - Sch~JerpunktbestinvnlJng (Listing)
- Selbstdefinierte Zeichen - Flachentragheitsmoment (Listing)
- Telefongebuhrenzahler (Listing) - Hotor-Prufstand (Listing)
- £inarmiger Bandit (lIsting) - Plotprogramme
- Sortieren (mit Listings) - UrrMandlung romischer Zahlen (Listing)
- Mehr aIs nur ein BEEP - Musik in Haschinensprache - Lotto-Tip (Listing)
- Der Zeichensatz - Erweiterungen
- Der Kassettenrecorder, das Interface
Alles fUr Sharp Computer Heft 10 seite 27

JJ
CD
...... ­
rt
CD
t'J
rJJ
PC-1251
PC-1245
U-Boot -Jagcl
:I>
......
......
CD
fJJ In diesem Spiel geht es darum, mit einem U-Boot moglichst
'"1) viele Schiffe zu versenken. Das U-Boot wird mit Hilfe
C:
-S folgender Tasten gesteuert:
CJJ
::r
PJ
-S
'0
"_" Bewegung nach rechts
.. ~.. Bewegung nach links
SHIFT Torpedo abfeuern
o HQ" U-Boot wird vor Wasserbomben geschlitzt.
a
'0
C
rt
I'D
-s
Es kann jeweils immer nur eine Taste gedrlickt werden.
Das Abfragen der SHIFT-Taste erledigt ein kurzes Maschinenunterprogramm
(Zeilen 100,110): Wird diese Taste gedrlickt,
::r::
CD so wird K$="Z", andernfalls K$=IIII gesetzt.
'"1)
rt
Der Punktestand wird wahrend des Spiels standig angezeigt.
~,
o Pro Treffer gibt's einen Punkt (Zeile 24); wird das Schiff
dabei versenkt (Zeile 26), gibt es zusatzlich flinf Punkte.
Dieses ist, abhangend van der RND-Funktion, nach vier bis
zehn Treffern der Fall.
Das Schiff selbst verteidigt sich, ebenfa~~s vorn Zufall
bestimmt, mit Wasserbomben (Zeile 27). Hierbei reicht
ein Treffer aus, urn das U-Boot zu zerstoren (Zeile 29).
Das Spiel ist beendet, sobald entweder insgesamt 50 Torpedos
verschossen oder drei U-Boote versenkt worden sind.
Die Rekordpunktzahl ("Hi-Score") wird librigens einschlieBlich
des Namens des Rekordhalters gespeichert. Man darf jedoch
dann das Programm nur noch mit "DEF 'A"' und nicht mit 11 RUN "
aufrufen, da sanst beide Informationen geloscht werden.
1: "***U-ilOOT***
2:·F/18-JUi..-~985
5:CLt:AR
lB:DIM HS(8)*20:Ns(0)="
NIEI'IAriIJEM":B=e:
GOSUB lee
11:"A" PRiNT" SSS U-BO
OT SSS": PR!NT "HI-S
CORE: "; STRS B:
PRINT ·VON "iNS(e):
WAIT 1: PRINT "":KS=
12:F=5,"=0,T=5B,E=3:
RANDOI'I : GOSUB 42:
CALL &11E0: GOSUB "Z
14:L=8,H=e: FOR 1=13 TO
le STEP 5:Q=&F868+I:
GOSUB 60: HEXT I:Q=&
F854: GOSUB 63
16:C=F+&FS8e: POKE C,64
,64,9(,,64,64
lS:POKE D,8,e,e,8,B
20:KS= IHKEYS : IF KS="
13" LET F=F-5:D=C: IF
F55 LET F=5
: GOTO 28
24:CALL &C5tl: IF KS="Z
" GOSUB 36: IF Z=F
LET P=P+ RND 3: BEEP
1: CALL &11Ee: GOSUB
46
26:IF P)10 LET p=e:
BEEP 2: CALL &11Ee:
POKE C,69,74,1e9,71,
85:/'I=M+5:Z=5: GOSUB
46
27:IF ABS (F-Z)

Hierbei handelt es
sich urn eine umfangreiche
Statik-Programm-Sammlung.
Die Programme sind in Basic
geschrieben und sehr anwen­
Gestaltung mit ausfUhrlichen
derfreundlich gestaltet
(Dialogbetrieb).
Prazise Programmbeschreibung
sowie praxisgerechte
Ausdrucken (ggf. mit Momentenverlaufs-Darstellung) sind fUr
Ingenieure und Konstrukteure des Maschinenbaus und Bauwesens sowie
Architekten von groBem Nutzen.
z .B.:
"STATIK 1" Trager auf zwei StUtzen
"z F T" Zweifeldtrager
"D R F" Dreifeldtrager PC - 7500 (AJ
"KIPPEN" Kippsicherheitsnachweis
"T A " Geschraubter TrageranschluB
"PRGM 0130"Querschnittswerte fUr einen Blechtrager
................................................u.v.m.
Anfragen an:
PC-1500(A) VERMESSUNGSPROGRAMME:
PRO G RA" N LIS T E
8 Bogenschnitt 8.- I UN.s:IIlU IJ
D 9 Lotful3punkt 5.- OM ~ IJ 0P'1 +' +'..,.
==x:::
Ul I H Cl.s: 'I- H ~
D 10 Umformung NS 10.- --t ......
IOUoMHUlllJW
D l!) coo.:3Il~::r:~~
11 Fl~chenberechnung 12.­
CD It)
I • ::> :J UlZ
0 12 Koordinatenverz. 8.- 0 0. H C N E IlH
D --J IJ O::::JIlI/)+'H.D
13 Polare Absteckelemente 8.­ N A +' et It- .D +l or! • H 11
0 14
or!
Fluchtlinien- Absteckung 10.- A
::r: IJ .s: E +l IJ C
11 (f)..J or! U
D
X::>.s:
15 Kreisbogen- Kleinpunkte 8.- --t IJ') W H 11 ..... U 0
e
IIlH.s: 'l-Ifl :J C
D 16 Punkte in Winkelhalb. 5.­
~ RI 0. U 11 N H or! .....
D 17 Koordin. einlesen 10.- I
~
O(f) Ull!l ..... "tl IlLll
N
D I 11 N
18 Koordin. archivieren 10.- ~ U Cl C,....
D 19
U
RUckw~rtsschnitt 10.- l!) GJ 0. .D 0 I
::r:
0
ro.s:u
20 Polaraufn n. f. Station. 5.- Q.. -LLO MO 0
I- .~W ...... l!l 0 III
-1

CIl
=r 3 g '"O~'
~
§;; C") '"0 Q..
tn o Ont
3 ::z: 3.!..::2
er t::l ~ ~
::z:
~ ~~
CJ ...
::z::::
W Append fur SHARP PC-1401
ro
~.
Die Append-Funktion wird durch passende Ver~nderung der Zeiger
rt
ro auf Programmanfang und -ende erreicht. Wie das manuell vor sich
geht, wurde schon mehrfach behandelt. Allerdings macht die R~NE' beim Sharp PC_1401
w Rechnerei dabei Schwierigkeiten. Das vorliegende Programm nimmt
o dem Anwender diese Rechnerei ab und springt dann direkt in die
LOAD-Routine des Betriebssystems. Sehr geehrte Daaen, sehr geehrte Merren
»
Die unUbersichtliche Programmierung wurde angewandt, urn die
f--' Anzahl der Zeilen mbglichst gering zu halten.
f--' Der NEW-Befehl rUhrt von allen BASIC-Befehlen am haufigsten
ro zu Tobeuchtsanrallen bei Computerbes1tzern. Durch daB unbe_
(fJ
dachte e1ntippen dieser drei Buchstaben ~+ Return) hat aich
Funktion:
""'h
schon mancher Progr~m1erer ungewollt um die FrUchte harter
c: Arbeit gebracht, we1l er vergessen hatte, daa Programm vor_
'1 In Zeile 1 wird der Zeiger auf das Programmende ermittelt. Die her zu speichern.
Ladeadresse fUr das n~chste Programm ist dann Programmende des Um sich gegen solche Schicksalsschlage zu wappnen, habe lch
W letzten Programmes minus 1. Auf diesen Wert wird der Zeiger fUr
::r
ein Programm geschrieben, das die NEW-Katastrophe wieder
den Programmanfang gesetzt. AIs n~chstes wird in die Laderoutine
!l)
rUckgangig macht.
'1 verzweigt (ohne Filename).
5:A=14339
'0 In Zeile 2 wird nur noch der Zeiger fur den Programmanfang
IB:B=PEEK (A):IF PEEK
zuruckgesetzt. A+B+1)=255 LET C=
() Geben Sie zUerst nebenetehendes
o
INT «A+B+l)/256):
GOTO 30
Programm ein, und speichern Sie
a
29:A=A+B+3:GOTO 19
es aur Kassette ab.
'0
C Listing: 39:POKE 14337,~:POKE 18
rt 145,e,S6,«A+B+l)-25
ro A = PEEK 18147 + (PEEK 18148) * 256 - 1 : POKE 18146, 6*C),C:POKE 18172,20
'1 INT (A/256) : POKE 18145, (A - ~NT (A/256» * 256 : 8,69,3,56
::r
CALL &9EOC
2 POKE 18145,0 : POKE 18146,&38 : END
RENEW: 1. Keine Belehle oder Zeichen 1.m PRO..Modus eingeben,.
ro --- die nichta mit Renew zu tun habenl:
""'h
rt
o
~
"Betriebsanleitung"
geben:
1. RESET-Taste drucken. Nur so kann sichergestellt werden, dae
die Zeiger initialisiert sind.
2. Im PRO..Modus !olgende POKEs ohne Zeilennummer ein_
Poke 18145,208,69,209.,69 (. Enter
Poke 181:72,136,70,211,69 ( Enter
2. APPEND-Programm von Kassette laden.
3. Das obenstehende Programm ganz normal laden und
starten.:
~. Rekorder auf das anzuhingende File spulen. APPEND-Programm
mit RUN starten. Das Daa durch NEW geloschte Programm steht nun wieder zur Ver_
n~chste File auf der Kassette wird gelesen.
Falls noch mehr Files gelesen werden sollen, diesen Schritt
fUgung.
wiederholen. Stefan Kuhlaann
Warr1nghofer Str. 11
4. Gegebenenfalls APPEND-Programm lbschen und die im Speicher 4520 Melle 2
befindlichen Programme "renumbern".
Hinweis: Falls der Ladevorgang mit BREAK abgebrochen wird,
werden die Zeiger nicht gerettet. Die Arbeit mue dann wiederholt
werden.
L. Pi 19rim Meierhofstraee 13 4983 Kirchlengern 1
-< --fen
-n
~
"'":z:
C;; ~>
C") rn :::T::o -n

:t>
~
~
ro
rj)
'"1)
c:
'""'l
w
::r
0)
'""'l
'0
o
S
'0
C
rt
ro
'""'l
::r:
ro
'"1)
rt
I-'
o
W
ro
1-'­
rt
ro
UJ
I-'
,.. ,.. .....
~ PC 1500 Kalenderausdruck
BA5~L Beschreibung und Beispieldruck
,.. ""II1II
Nach dem Programmstart mit RUN wird Monat und Jahr abgefragt
und fur den entsprechenden Monat der Kalender ausgedruckt.
Wird anstelle derc Eingabe 01.JJJJ bis 12.JJJJ
OO.JJJJ eingegeben ( fur JJJJ das Jahr einsetzen ),
so wird ein Kalender fur das ganze Jahr ausgedruckt.
Das Eingabeformat MM.JJJJ 1st unnedingt einzuhalten
( nicht 12.85 fur Dezember 1985 )
JANUAR 84
sa 1'10 01 nl DO FR SA
1231'567
89)01112131
INT (J/10e)
THEN 580
570:IF (J/40e)(>
INT (J/40e)
THEN 585
580:Z=1
585:U=INT «306*M­
324)/10)
590:GOTO 610
500: U=(M-1 H31
610:Z=Z"(J-1)l365"
INT «J-l)/4)
620:Z=Z-INT «J-1)
/ 100)" I N T «J­
1)/400)
630:S=Z"U"l
640:R=S-lNT (5//)*
7
650:RETURN
660:REM ---------­
B00:RESTORE
BI0:FOR A=eTO 6
820:REAO W$(A)
830:NEXT A
840:FOR A=0TO 11
850:REAO M$(A)
850:NEXT A
870: RETURN
880:REM ---------­
1000: DATA "SO", "M
0"', " 0 1"', "'M 1,.
, ''~O"', "FR", I'
SA"
101e:OATA "JANUAR
"', "FEBRUAR",
"MAERZ", "APR
I L ", I' MA I "', ,. J
UNI ", "'JULI "',
"AUGUST"
10213: DATA "'SEPTEM
BER "', "'OKTOBE
R", "NOUEMBER
", "OEZEM8ER I'
(C) Copyright 1981~ by M~rius lleyn,Kapplerb.ere;str. 62a, 7753 Allensbach
.....

Sehr geAhrte Fischel GmbH!
]las folgenct.e Programmlisting stellt ein von mir fUr den PC
1260/61 geschriebenes Rennbahnprogramm dar.Es zeigt sehr sehon
die Moglichkeiten der Anwendung des 2-zeiligen ])isplays.Das
Programm wird iiber IIJ)EF A"gAstartet.Zunachst erseheint die
Uberschrift und die bisherige Bestleistung.Sodann erscheint
die5-spurige Fahrbahn.lm folgenden sollte man den 1angsamer
fahrenden Hennwagen,ctie zuerst in der oberen ~eile
des Displays
auftauchen,durch Drlicken von "4" oder "6" nach links bzw.rechts
ausweichen.Nach 4 Unfallen ist das Spiel beendet.
10: YA Y : WAIT 128: PRINT
"Rennbahnfuehrersche
in": RANDOM: CURSOR
24: PRINT "Bestleist
SHARP PC-1350
un9: Y; STR$ Ki Y Punk Taschencomputer
te Y
15:A=&284F:E=3:P=0:H=3:
M=&2840:N=&2800: CLS
20:POKE &2804,127: POKE
&231E,127: POKE &284
4,127: POKE &285E,12
7
23:IF E=0 GOTO 30
25:FOR W=l TO E: POKE &
281E+(W*5),66,127,11
1,127,66: NEXT W
30:FOR V=1 TO 5:J=M+(5*
Maschlnenspr-ache
-Handbuch
V): IF H=V THEN NEXT
V: GOSUE 165
ISBN 3924327-10-6
32:IF V

~
s
~
~
W
U1
o
EINLEITUNG
;J>
I--'
Nebe,n der Programmieru.ng in Basic" bietet der PC-1350
Pocket Computer auch die Moglichkeit der Programmierung
in Maschinensprache. Daftir enthalt der Basic-Interpreter
die Befehle PEEK, POKE, CALL, CSAVEM und CLOADM, mit
denen Maschinenprogramme im Hexcode eingegeben,-aufgerufen
und auf Cassette gespeichert werden konnen.
Die Benutzung der Maschinensprache gibt auf der einen
Seite die Moglichkeit, Programme oder Programmteile zu
entwickeln, die bis zu tausend mal schneller ablau.:fen
als Basicprogramme. Auf der anderen Seite g1bt sie die
Moglichkeit, sich mit dem Aufbau und der Funktion eines
Mikroprozessors auseinanderzusetzen. Zwar unterscheiden
sich die Befehle verschiedener Mikroprozessortypen im
einzelnen. Der prinzipielle Aufbau eines Befehlssatzes
folgt jedoch stets dem gleichen Schema.
I--' Die ESR-H CPU (Central Processor Unit) des PC-1350 ist
Cl)
ein 8 13it CMOS Mikroprozessor und tragt die Bezeichnung
(/J.
SC 61860. Der Befehlssatz enthalt mehr als hundert Ma­
'""h
C: schinenbefehle, die hier mit der von der Firma Sharp ge­
....,
gebenen Bezeichnung (Mnemonic) im einzelnen beschrieben
(fJ.
::t werden. Als Grundlage diente das SHARP POCKET COMPUTER
Cl)
...., PC-1250/1251(1250A) MACHINE LANGUAGE, REFERENCE MANUAL.
'0
Mit der hier gegebenen Information konnen Maschinenpro­
o gramme aufgebaut werden. Stehen keine Programmierhilfs­
3 mittel zur VerfUgung, so erfolgt die Eingabe der Code am
'0
C besten Uber ein Basicprogramm mit dem POKE-Befehl. FUr
rt
Cl) Anderungen stehen dann die Editiermoglichkeiten des
....,
Basic-Interpreters zur VerfUgung. Im Text sind Beispiele
::r:: fur diese Eingabe mi t POKE gegebe'n. Mit dem im Text be­
CD
'""h schriebenen Disassembler kann die Eingabe in Maschinenrt
sprache gelesen und so kontrolliert werden.
f-l
o Da ein neu entwickeltes Maschinenprogramm, genauso wie
ein Basicprogramm, im allgemeinen nicht sofort das tut,
(fJ.
Cl)
1-'­
rt
CD
W
W
was beabsichtigt war, ist eine Testmoglichkeit mit
Single Step oder Breakpoint nUtzlich. Im Text wird ein
Breakpoint-Monitor beschrieben, mdt dem ein zu testendes
Maschinenprogramm unterbrochen und der Inhalt aller Register
angesehen werden kann.
Der Basic-Interpreter wurde untersucht und die wichtigsten
Unterprogramme fUr die Tastenerkennung, die Anzeige
und den Ausdruck angegeben. SchlieBlich ist im Anhang
das Befehlslisting des gesamten ROM (&0000 bis &1FFF und
&8000 bis &FFFF) gegeben.
[DD DO­
I
SHAQP POcKET COMPVTER PC- ,,350
von Dr. J. stange I rOOOOoo
[!]~0OJOJ
00000
DDDDDDDDDDD
[!][!][!]0UJ
~Fo ODD 0 D D D1fc§
DDDDDDDDO[::=J [~::][:::J G G 0
-
~~:l~22'~
~2~I~~~~_~Y~_~!~.~~!:~~~~U~~.y~~~~~§~ti!~~~~~~2~~~~~~
~EX-EDITOR-MONITOR
!~-~~~~:~~~~!~~~§~~~~~
Eingabe von Hexcode oder Zeichen
Edltieren: EinfUgen oder l~Bchen von einzelnen Byte
AUBteBten mit Anzeige und Anderungsm~glichkeit aller
CPU-Register
Einzelschrltt und Haltepunkt
Xein Speicherzusatz erforderlich
Aut c••••tte mlt B.dlenungsanleitung
1,57 KByte, re1okatlbel, incl. 14% MwsT DM 43,-­

"BEISPIELAUSDRUCK !!!"
BEISPlELAUSDRUCK I! I
*AUTO-JAHRESABRECHNUNG.
BlTTE DIE ANGFORDERTEN
DATEH EINGEBEN I ! !
ElTTE DM- UND LITER ­
BETRAEGE ZUSAMMENZAEHLEN
ABRECHNUNG FUER : 1985.
KM-(NEU)= 55689.
KM-(ALT)= 43256.
YERS.JAEHRL.=1047.23
KFZ.STEUER=356.
REP.JAEHRL.=256.25
PFLEGE-JAEHRL.=145.68
ANSCHAFF.JAEHRL.=165.63
GEFAHRENE KM= 12433.
BENZIN GES.= 1045.89 L.
BENZIH GES.= 1879.56 DM
VERBR.(10eKM) =8.41 L.
KOST.GES.= 3858.35 DM
KOST~MONATL.= 320.86 DM
KOST.PRO KM= 0.31 DM
0-L.PREIS: 1.8 DM
Harry Toms
Omptedastr. 27c
3000 Hannover 1
0000 ..
[JD OOr---1
DODO
DODO v;
-n
n
0000 :::I:
rT1
0000 r­
e:;,
DODO 3
CT
DODO
:::I:
ODD
00006 11
(fJ
ro *1
15:FOR I=0TO 15:
FOR Y=0TO 5:
READ A$(!, Y):
NEXT Y:NEXT I
20:RANDOM :PAUSE
"Wieviel Buchs
t~ben
21: INPUT "8 ••• 16
oder Z(Zu fa I I)
? "; C$: IF C$="
Z"LET B=RNO 8+
8:GOTO 30
PC-1500(A) mit CE-150
» Fi de me Wo «
vom 5HRRP-l3asir:-Tearn
22:B=VAL C$ 100:F=F+l
30:PAUSE "Buchsta 101:IF F=IBEEP 1:
benw~h I": PRINT " NDCH 4
RANDOM MINUTEN":
35:FOR I=0TO 8-1: RETURN
Y=RND 6-1:B$(I 102:IF F=2BEEP 2:
)=A$(I,Y):NEXT PRINT " NOCH 3
1 MINUTEN" :
36:TAB 0:COLOR 1: RETURN
CSIZE 2 103:1F F=3BEEP 3:
40:FOR I=0TO 8-1: PRINT " NOCH 2
LPRINT B$(l)i" MINUTEN":
";: NEXT I RETURN
41:LF 2 104:1F F=4BEEP 4:
44:PRINT "Buchsta PRINT " NO CH 1
ben vorlesen": MINUTE": F=F+1
PR INT "m itENT : RETURN
ER Uhr- starten 190:END
201 : OAT A " A ", "H", "
50:T=TIME :WAIT 0 E", "0", "0", "Q"
:SE=(T*100-INT 202:DATA "K", "B","
n*100) >*1130 U", "5", "R", " T"
52:L=SE 203: DATA "U", "A", "
53:1F L=0LET L=60 C", "5", "E", "M"
55:T=TIME :SE=(T* 204: DATA "N", "E", "
100-1 N T (T * 100 T", "0", "0", "P"
»*100 205:DATA "5", "U","
56:IF (L-l=SE)AND E", "A", "E", "D"
(F=5)GOTO 70 206: DATA "V"," B", "
57: IF L-l=SEWAIT E", "R", "U", "F"
100:GOSUB 100: 207: DATA "U", "W", "
WAIT 0 L", "E", "G", "A"
59:PRINT SE 208:DATA "P", "0", "
60:GOTO 55 X", "H", "E", "S"
70:BEEP 10,100,25 209:DATA "T", "0","
0: WAIT 0 1 " , flCll, 'IA " , IIE'I
72:FOR X=0TO 3: 210: DATA ''C'','' J", "
PRINT" *** A", 11 I 11, 'IN II , PUll
SPIEL AUS ***" 211:DATA "K", "E", "
74:FOR 1=0TO 155: T", "MI', "0" , IISI1
A=PDINT ]:A=12 212:DATA "Y", "L","
7-A:GCURSOR I A", "0", "E", "0"
76:GPRINT ABS A: 213: DA TA" I ", "Z", "
~EXT l:NEXT X M", "E", "R", "U"
79:WAIT 214:DATA "A", "B","
80: INPUT "Neues S 1,.111, IIN", "El', ilL"
pie I Cl/N)? "j 215: DATA "5", "E", "
Ut: IF V$="N"
II
K , "R P , 11'0 " , "u"
GOTO 190 216: DATA "H", "E", "
82: PAUSE "Buch s t a A", !IN", "I ", lip"
benanzahl aend
er-n?": INPUT "
(J/N)? "jV$:IF
U$="N"GOTO 30
84:GOTO 20
"*LISTING---AUTOKOSTENBE
-RECHNUNGEN* ••••********
*Y
*LISTING---AUTOKOSTENBE­
RECHNUNGEN******** ••*.**
3:REM ·C/P*HARRY TOMS­
06.1985"
5:CLEAR : WAIT 150:
BEEP 1
10:PRINT "**AUTOKOSTENB
ERECHNUNG**"
60:PRINT "EINF.-BERECHN
UNG?=( 1>"
70:PRINT "JAHRESABRECHN
UNG=(2)·
72:INPUT • ???=YjV
75:IF V=l GOTO 90
80:IF V=2 GO TO 180
90:INPUT "KM-STAND (NEU
)= "j Q
10e:INPUT "KM-STAND (ALT
) ="j X
IlB:INPUT ·GETANKTE L.-B
ENZIN = "iB
120:K=Q-X
13B:\I=B/(K/lee)
135:Y=( INT «Y*lee)+.5)
)/1ee
139: WAIT
14B:PRINT "GEF. KM = ·iK
15B:PRINT "YERBR.(1e0KM)
= "iY;" L.·
160:END
18e:CLEAR : WAIT 2013:
BEEP 1
190:PRINT "DRUCK JAHRESA
BRECHNUNG?"
191:INPUT ·JA ODER NEIN
? 0/14> ";X$
192:IF ( LEFT$ (X$,1)=·J
") THEN PRINT =
LPRINT
281:PRINT "*AUTO-JAHRESA
BRECHNUNG*
2e5:PRINT ·BITTE DIE ANG
FORDERTEN·
2B6:PRINT ·DATEN ElNGEBE
N ! ! !.
207:PRINT "BlTTE DM- UND
LITER -"
208:PRINT "BETRAEGE ZUSA
MMENZAEHLEN!Y
21B: WAIT
211:INPUT "WELCHES JAHR
? = .; I
212:PRINT "ABRECHNUNG FU
ER : ";r
213:INPUT "GESAMT-JAHRES
L. =.·;B
220:BEEP 1
245: INPUT "GES.JAHR.BENZ
IN DM=·;D
28e:INPUT "KM-(NEU)= .;Q
285: INPUT "KM-(ALT)= ·iX
290:INPUT "YERSlCHERUNG(
DM)= ·iH
295:INPUT ·KFZ.STEUER(DM
)= "j S
PC-1251
3ee:lHPUT "REPARATUREN(D
M)= "jR
3e5:INPUT ·PFLEGE(DM)= "
iW
31e:INPUT "ANSCHAFFUNG(D
M)= "jA
311 PRINT "KM-(NEU)= "jQ
312 PRINT ·KM-(ALT)= ·iX
313 PRINT "YERS.JAEHRL.=
"j H
314:PRINT ·KFZ.STEUER="i
S
315:PRINT YREP.JAEHRL.=·
iR
316:PRINT ·PFLEGE-JAEHRL
•=" j W
317:PRINT "ANSCHAFF.JAEH
RL.=·iA
32B:K=Q-X:Y=B/(K/18e):y=
( INT «V*188)+.5»/
lee
33B:G=D+H+S+R+W+A:G=(
INT «G*lBe)+.5»/1e
8
348:M=G/12:M=( INT «11*1
88)+.5»/1ee
341:J=G/K
342:J=( INT «J*188)+.5)
)/18e
345:PRINT ·GEFAHRENE KM=
"i K
35e:PRINT "BENZIN GES.=
"iBi" L."
355:PRINT "BENZIN GES.=
"iDi" DM"
36e:PRINT "VERBR.(1eeKM)
="i Vi" L.·
365:PRINT "KOST.GES.= ";
Gi" M"
370:PRINT "KOST.MONATL.=
"jMj" DM"
375:PRINT "KOST.PRO KM=
"i Ji" DM"
380:V=D/B
383:V=( INT «Y*1ee)+.5)
)/1ee
385:PRINT "e-L.PREIS: "i
Vi" DM"
48e:END
MEM
2097.

***"p c 1260+++ PC-1261***
GRAPHISCHE FUNKTION
~~**~*~~***~******
~Mit freundl icherl
lGenehm;gung var. *
l CLUB DES l
l SHARPENTIERS *
l 151/153 Avenue l
l Jean-Jaures *
l F-93307 l
l bU3ERUILLIERS *
* Cedex l
lll*l~l*~*l*******
Mit diese. PrOgraM. koennen
Sie einige .Qthe~atische
Funktionen 9raph
isch aur deM Displa~
des PC-1269/61 zeichnen.
;J> Das Listing besteht aus
~ eine. Basic-Tei I und
~
eine. MaschinensprQche­
(l)
Tei I.Da wir keinen HezrJJ
monitor ruer den PC-126el
1261 besitzen,haben wir
>-1)
C :
'""'l
den Maschinensprache-
Tei I in eine ruer jeden
verstaendl iche Fassun9
W geschrieben.Besitzer der
::r OPt ion CE-125 koennen
CD auch den ~aschinenspra­
'""'l
che-Tei I aUT Kassette ab
'0 speichern.Sie speichern
(1
mit de. Be'ehl CSAYE M &
o
5899,&589F ,das Rueckla­
3 den er'olgt eit de. Be­
'0 fehl CLOAD M&58ge.
C
rt Das PrOgraM. wird .it
(l)
RUN oder DEF F gestartet.
'""'l
In Zei le 900 progra•• ie­
::r: ren Sie Ihre Gleichun9
(l) z.B. Y=SIN X
>-1) Nach de. Progra••start
rt fragt Sie der PC nach
nach den Werten X-Mini­
I--'
mu. und X-MaziMu.
o (X=horizontal).
Der PC berechnet nach
der Eingabe der X-Werte
w
(l) die Y-Werte,die Man
1-'" durch Druecken von ENTER
rt ueberneb.en,oder durch
(l) EingQbe aendern kann
W
(Y=vertikal).
U1
Ein9Qbe der X-Werte
I.Beispiel X-.in= 9
X-lIIaz=36e
_~E3
2.Beispiel X-.in= 0
X-.az=S40
o f-r--1r---+--+---1
3.Beispiel X-.in= 0
X-OIaz=720
-I
~ffijt
************************
* *
* ueberarbeitet *
* *
* VOAl
*
* SHARP-Basic-Tea. *
* *
*****.*****.************
POKE &5800,&18,&66,&00,&
57,&67,&08,&3A,&6B
POKE &5808,&67,&78,&2A,&
5B,&67,&3C,&3A,&ID
POKE &5810,&34,&03,&09,&
12,&07,&02,&27,&DB
POKE &5818,&SI,&82,&C3,&
DB,&5B,&14,&34,&12
POKE &5820,&05,&92,&28,&
DB,&51,&92,&03,&DB
POKE &5828,&5B,&14,&2C,&
IB,&34,&B3,&00,&12
POKE &5839,&07,&92,&IF,&
DB,&51,&e2,&FF,&DB
POKE &5838,&5B,&14,&34,&
12,&95,&02,&29,&DB
POKE &5840,&51,&02,&3F,&
DB,&5B,&14,&19,&66
POKE &5848,&01,&57,&42,&
67,&91,&3A,&18,&67
POKE &S850,&9F,&2A,&14,&
67,&98,&3A,&0A,&75
POKE &5858,&07,&01,&01,&
13,&96,&12,&04,&0A
POKE &5860,&03,&07,&12,&
03,&45,&37,&02,&00
POKE &5868,&12,&04,&00,&
01,&IE,&37,&78,&58
POKE &587B,&00,&C2,&02,&
00,&D0,&5A,&C3,&29
POKE &5878,&03,&04,&DA,&
57,&12,&e3,&47,&DA
POKE &5889,&52,&37,&78,&
58,&ee,&C2,&02,&FF
POKE &5888,&Dl,&2C,&02,&
D9,&5A,&C3,&29,&94
POKE &589B,&B4,&DA,&57,&
12,&e3,&46,&DA,&52
POKE &S898,&37,&12,&5F,&
61,&91,&DF,&37,&ee
10:"F" CLS : PAUSE ".*G
rahpische Funkt1on**
***FONCTIONS GRAPHIQ
UES**": GOTO 5ee
15:CO=&6699:SET=&586E
29:INPUT "Laenge der X­
Achse bis 120jEin9Q
be>2,(=12e=·jN
2S:IF N(2 OR N>12e GO TO
2B
30: INPUT "An9abe des Mi
niaues ruer X="jXl
4B:INPUT "An9abe des Ma
zi.ues ruer X="jX2
50:E=(X2-Xl)/N:X=Xl:
GOSUB 90e:Yl=Y:Y2=Y
6e:WAIT B: PRINT "Einen
Mo.ent bitte••. ·:
FOR I=e TO N-l
7B:X=XI+E*I: GOSUB 9BB
*** p C ­
8e:IF V>Y2 LET V2=Y
90:IF V2
55 OR 1(0 OR 1>255
RETURN
260:POKE CO,I,Y: CALL SE
T: RETURN
500:IF PEEK &5800&10
OR PEEK &589E&37
BEEP 2: WAIT : PRINT
"S/R NICHT GELADEN":
END
510:GOTO 15
9a0:Y= SIN X
999:RETVRN
NEGATIV-DISPLAY
Oas Maschinenprog.
er m0 e 9 I i ch t d; e
Invert ierung des
oi s p I a '::j;; I hre;;
PC-1500. Oas Prog.
wird mit CALLt2900
und 2-ma.1 igen
ENTER abgerufen.
Ihr Oispla'::j ist
nun schwarz und
die Einga.ben sind
he I I.
Zur Einga.be des
Programmes
e mp f i eh I t de r
Uebersetzer da.s
HEXMONITOR­
Programm aus
Heft7,Seite 17.
8IJSV 0(6 flU< JJJ
=111 ill*-all=:~:i:l ~~aD[1]hiI:ilii =I :~

Betro der GrdPhikfaehig­ 4 REM ****************
keit des PC-1358 le,e 5 REM· HUBSCHRAUBERFLUG
ich ein kleines Beispiel 6 REM ****************
bei, eventuel I fuer Sie 10 YH Y : WAIT 8: CLEAR
zur Yeroe'fentl ichun9.: CLS :A=59:B=28
20:D$= INKEYS : ; = VAL D
Ein kleiner Hubschrau­ $
ber wird .. it Hi Ife des 30:IF D=2 LET B=B+l:
Zahlenfeldes (als Jo~­ GOTO 129
st i k) ,esteuert. 40:IF D=4 LET A=A-l:
GO TO 130
Ich koennte .ir vorstel­ 50:IF D=6 LET A=A+l:
len, dass-das kleine GOTO 128
Listing einen PC-1358- 6e:IF D=8 LET B=B-l:
Fan dazu brin,t ein GOTO 128
~kleinesw Telespiel da­ 70:IF D=7 LET B=B-l:A=A
raus zu .achen. -1: GOTO 130
Yiel Spass bei. auspro­ 88:IF D=l LET B=B+l:A=A
bieren und viel leicht -1: GOTO 130
finde ich an 91eicher 90:IF D=3 LET B=B+l:A=A
Stel le irgendwann ein +1: GO TO 120
PC-1358-Sp i e I. 100:IF D=9 LET B=B-l:A=A
+1: GOTO 120
cl lichen 110:IF D=5 END
Mit freun Gruessen 120:GCURSOR (A,B):
~
GPRINT ·001C0808081A
lA3A7A3E3A7A2A3A00·:
2. /J/tiI; Re,,", B,,, GOTO 28
130:GCURSOR (A,B):
GPRIHT ·003A2A7A3A3E
7A3A1A1A8B0a881C80·:
GOTO 20
lse:"L" LPRINT "Reserve­ Reserve-Speicher
Speicher": FOR I=1
TO 144 A: CLEAR
110:A$=" ":P= PEEK (I+2B S: CSAVE ·81-1/480"
526): POKE &6CFA,P: K: CLOAD ?·01-1/4SS"
IF P(145 LET A$= L: CLOAD ·Bl-l / 34~Y
CHR$ p: IF P=8 GOTO C: CLS :
lae \I: GOTO 2S@
120: IF P(129 OR P)142 B GOTO 24@
AND P(241 OR P)250 H GOTO 32@
GOTO 160 1'1 GOTO 34@
130:IF P)128 AND P(143
LET A$= CHR$ (P-64) 62 B~tes
148:IF P)241 AND P(251
LET AS= CHRS (P-160)
: IF P=244 LET A$="=
150:LPRINT "": LPRINT AS
; " : ";: NEXT I
16e:LPRIHT A$;: IF P)144
LPRIHT " ";
178:HEXT I
la0:LPRIHT "": LPRINT
: USING "SUS·:
LPRINT 1-1;" B~tes":
END
(j)
m
*** p C - 1 5 e e ***
m
~.
rt
LW PRUEFPROGRAMM
(j'I
:l>
I-'
FUER E1SENBAHNNUMMERN
vom £isenbahnfan des SHARP-Bas ic-Teams
Mit den Proqrammen kann man die Fahrzevq-Nr. von Lokomotiven
I-'
m bzw. Waqen kontroj I ieren.Beide Proqr~mme werden mit RUN £~~£Rqestartet.
[JJ
.l : R£J'1 PWAGENNUMM
'"""h
C:
ERNKONTROLLE"
') 10:CLEAR :01M A$(
0n13, B(10)
r.Jj 20;PAUSE "Gueterw
~ a.gen (G) oder"
PJ : 1 NPUT "Pers on
')
'0
enwu,gen (P) ?
"; 2$
21: IF 2$="G"GOTO
o 30
:3 22: INPUT J·P-W,9.-N
'0 r. =" j C$
C 23:0$=LEFT$ (C$,6
rt
): E$=R 1GHT$ (C
m
') $,7),
24:A$(0)=D$+E$:
::r GOTO 40
ro 30: JNPUT ,I 5-Wug en
'"""h -Nr.=PjA$(0)
rt
40:FOR 1=lTO 11
STEP 2
f-J.
o
41:B$=M1D$ (A$(0)
, 1, 1): U=UAL B$
l2:B$=STR$ U:Q
=21
42:FCR J=ITO LEN
B$
43:Q=Q+UAL MIO$ (
Bs, J, ]):NEXT ]
44: B ( I-I ) =Gl
45:NEXT I
EINGABEBEISPIELE:
~
~
48: FOR 1=2TO 10
STEP 2:8(1-})=
UAL M1D$ (A$C0
) I I, 1): NEX T 1
50:M=0:FOR 1=0TO
J0:M=f1+BCI):
NEXT 1
52:M=J000-M:M$=
STR$ M:O=UAL
R15HT$ CM$,l)
53:F$=R15HT$ (A$(
0), 1)
55:1F UAL F$=D
PRINT "NUMMER
RICH T 1 5 " : GO T0
20
56:PR1NT "NUMMER
FALSCH": GOTO 2
13
1: REM "TR IEBFAHR
ZEUGNUMMERNKON
TROLLEI'
10:CLEAR :DIM B(5
),A$(e)l8,8$(5
>"*2
20: INPUT "Tf2 NR.
.:=";A$(0)
25:FOR 1=2TO 6
STEP 2:B$(1-1)
=MID$ (A$(0), 1
, 1): NEXT I
~ J
I.
F'_i, r-! I.::: _. = -t·i
::, !--
a
=~
._ ""
i C~-:-"·-::'·')-4 7·-::1[.i7-~1
'_I _:~..:- • _'...._. I 0_
8\JSY D(I; iIW J
C=-!,!f1 '=i ~i--i_ki£t- =EA 1 =='~':1~f.-!==:d:::: ~. q_c:::
., :- -: _a. _ _:. 1 • ~• ..!. '_J _ "'_ _, ,_, :- '_'_. _. a_I
8U6Y Dt:i ~ 1
ITfZ NR.=103001-4_1
30:FOR 1=1TO 5
STEP 2:3$(1-1)
=MlD$ (A.$(0),1
, 1): NEXT 1
40:FOR J.:=ITO 5
STEP 2
45:Q=0:B=1JAL B$(]
): 8=8*2: 8$(j)=
STR$ 8
50:FOR 1=1TO LEN
BIt(])
55:Q=Q+1JAL M1D$ (
B$(J), 1, 1)
60:NEXT 1:8$(J)=
STR$ Q
65:NEXT ]
70:FOR 1=0TO 5:B(
1) =UAL 8$ ( 1 ) :
NEXT 1
75;C=0:FOR 1=0TO
5: C;=C+B( 1):
NEXT 1
80:C=100-C:C$=
STR$ C:D=UAL
R1GHT$ (C$,I)
85:E$=RIGHT$ (A$(
0), 1)
S0: IF UAL E$=D
PRINT "NUMMER
RI CHTl 5": 60TO
20
S5:PRINT "NUMMER
FALSCH": GOTO 2
o
1013: END
Reiner Bin"3
3870 Nienbur

I
IIIII~ l>
~!41f\ JJ
11 11 I~ -C
;p.
"""'"
"""'"
CD
ffJ
'"'h
C:
.,
[JJ
::r
CD
.,
'd
Cl
o
a
'd
C
rt
CD
.,
::r:
CD
'"'h
rt
I-'
Me6werte - speichern und vielfach auswerten ========================
========================
AUSSERHALB DER
EIHGEGEBEHE WERTE: TOLERAHZ Ir'OH
1.WERT 10. %
Wer nichtmehr seine Me6werte, Ergebnisse etc. erBt auf­
LIEGEH
12.5 BEIM SOLLWERT YOH 5=12.2
schreiben und dann langwierig auswerten mochte, dem bietet 2.WERT
3.WERT:
12.8 13.8 ========================
dieaea Programm einigen Comfort: 3.WERT 5.WERT:
13.8.
13.72 WERTE SORTIERT:
4. WERT
Die Anzahl der Werte mu6 nicht festgelegt sein (max. 49,
19.WERT:
12.3
13.875
21.WERT:
6 Stellen: s. Zeile 10).
5.WERT
20.WERT:
21.
13.72
14.
2e.IoIERT:
6.WERT
21.WERT:
14.
Die Eingabe erfolgt nach RUN - der Eingabemodus wird mit E
12.85
21.
19.WERT:
7.WERT
beendet. Wird jetzt ~ noch tiber Definable KeYB gestartet,
13.875
12.
3.WERT:
bleiben die Werte auch nach dem Abschalten erhalten:
8.WERT
13.8
DEF A Die Werte werden angezeigt und bei Bedarf
geandert (MeBfehler).
DEF B Berechnung, Anzeige und Auadruck des Durchachnitts,
sowie der Standardabweichung.
DEF C Die Werte werden der GroBe nach sortiert,
angezeigt und / oder ausgedruckt. Die ursprtingliche
Reihenfolge bleibt dabei durch
die entsprechende Numerierung sichtbar.
DEF D Die Werte werden in der Reihenfolge der
Eingabe gedruckt.
DEF H Alle Werte, die auBerhalb einer beliebig
zu wahlenden Toleranz in bezug auf den
Mittelwert liegen, werden angezeigt und /
oder gedruckt. Statt des Mittelwertes kann
auch ein beliebiger Istwert. eingegeben
werden.
DEF G Alle Werte werden als Balkengraphik
gedruckt.
Es empfiehlt sich beirn Arbeiten ohne Drucker, die WAIT -
Befehle vor PRINT wegzulassen, um die Werte beliebig
lange in der Anzeige ablesen zu konnen.
o Das Prograrnm lauft auf dem PC 1401 oder PC 1245 mi t
Speichererweiterung.
[JJ
CD
,...­
rt
CD
W
....J
MANFREO BOHN
Argentinische Allee 5 A
11XXl Berlin 37.
9.WERT
10.IoIERT
11. WERT
12.WERT
13. WERT
14.WERT
15.WERT
16.WERT
17.loIcRT
18.WERT
19.WERT
20.IoIERT
21.IoiERT
22.WERT
23.WERT
24.WERT
2S.WERT
12.
11.8
11.2
12.2
12.
13.1
11.4
11.3
11.
11.8
12.95
13.875
14.
21.
12.
13.
12.9
12.25
=================c======
DURCHSCH~ITT: 12.7898
SiAIoiDARDABW. (H-l): 1.9B8
499891
========================
AUS5ERHALB DER
TOLERAHZ Ir'OH
15. % LIEGEH
BEIM DURCHSCHHITT Ir'OH D=
12.7898
21.WERT:
21.
========================
S.WERT:
13.WERT:
23.IoIERT:
IB.WERT:
24.WERT:
6.IoIERT:
2.IoI~RT:
SUS
1. ij.£RT:
SUU
SSSUU
4.WERT:
SUS
SUSUS
2S.WERT:
UUS
us
l1.IoIERT:
US
US
7.WERT:
S
SUS
8.WERT:
US
UUU
12.IoIERT:
U
U
22.WERT:
S
US
9.WERT:
SUSS
SSSUUS
17.WERT:
SSSSUSS
SSSSSSSSSSSSSSSSSSSS$SS
~4_\oIEPT:
US
SUUS IS.IIIERT:
USU
SUS
========================
IfU'~RT:
16.IO::RT:
13.72
13.1
13.
12.95
12.9
12.85
12.8
12.5
12.3
12. 25
12.2
12.
12.
12.
12.
11.8
11.8
11.4
11.3
11.2
".!.

VOR DEM 1. PROGRAMMSTART
10:DI" WS(SED*6
(JJ 529:1'1=8
HIGH-SCORE SETZEN:
29:',':Z=I: PRINT 'E1NL
CD POKE&C084,13,50
1--'. ESEN BIS H LET H=J:
SCHN1TT: 'iO: LPRINT ARITH.": PRINT "MITT PRINT "NEW RECORD!':
Aussehalten der aktuelle High-Score .eibehalten.
'STANDARDABw.(H-1): ELW. RECHH. ?': IHPUT
J=e: GOSUB S8e: POKE
'; P °SW/l 1'1101/13 ';M Zeile 4~ liest den High-Score ein, in Zeile 2951 wird der
&Ce134, INT (H/ 256),H
140:PRINT 'D= 'iD: WAIT 5e4:IF 1'1=1 THEN IHPUT '5
- lNT (H/256)*256
aktuelle High-Score abgespeiehert.
79: PRINT 'STANDARDA W= '; K: GOTO 519
2eS:WAIT 8:J=e: GOSUB se
BW.(N-1)': PRINT 'S= 585:LET K=O Die Zeilen 595 - 69 dienen dem Aufbau des Displays, in den
o
21e:PRINT Y
"jp: GOTO 65 518:PRINT 'AUSSERHALB DE ONCE MORE?
MANFREO BOHN
R": PRIHT 'TOLERAHZ Argentinische Al1ee 5 A Zeilen 7W -99 wird das eigentliche Spiel abgehandelt, V/ N°: CALL &11Ee
1000 Berlin 37 211:V=1ee
YOH': PRINT H,' %LIE 2w95 - 221 dienen dem Nachspann, d.h. Ausgabe des SCORES, 215:U$= INKEV$ IF U$="
388: "A': GOSUB 79S: GT:
PRINT 'EINGEGEB.WERT SI5:IF 1'1=1 THEN PRINT 'B Frage naeh neuem Spiel usw .• Wird die Frage "ONCE MORE?"
• LET V=.,.-1: ON V
GOTO 221
E: ' EHI SOLLWERT:':
nicht beantwortet, sehaltet sieh der Rechner naeh einiger 216:IF U$=YY' GOTO se
3\l5:IoIAIT 99: PRINT "AEND PRINT "YON S= 'iK:
217:IF U$ ·V· AND US(>"
ERN?':Y=B: INPUT 'JA GOTO 529 Zeit selbst aus, Er ist dann mit BRK/ON wieder anzuschalten.
=1 / NO=9 :'iV 516:PRINT "BElPI DURCHSCH
" GOTO 2213
Die Zeile 79595 enthalt das Maschinenprogramm zur Tonerzeugung, 21S:GOTO 215
319:FOR U=1 TO Z: PRINT N.:': PRINT '',ION D=
, iK
22e:GOSUB sea: END
U, "WERT:': PRINT '= in Zeile 8095 wird dieses aktiviert. Damit ~an die Tone 221:GOSUB 81313: CALL 53
'; "J(t! ) : IF V=1 GOTD S2B:LPRIHT 'AUSSERHALB D
7ee:POKE &CS13e, &83,&FF,&
339 ER': LPRINT 'TOLERAN gut hort sollte der Rechner nicht angesehlossen werden
e2, &61,&FF,&B1,&F1,&
328:NEXT U: GOTO 65 Z ',ION': LPRIHT H,' %
(z.B, an die eE-125). Ee,&4E,&0e,&C3,&29,&
338:PAUSE "AEHDERN ?': LlEGEH'
138, &37
INPUT 'JA=1/NO=9 :'; 52S:IF 1'1=1 THEH LPRIHT •
aee:POKE &CS09,25S: CALL
PI BEII'I SOLLWERT YOH S=
&C5ee: POKE &C5e9,19
33S:IF 1'1=1 THEN PAUSE 'H 'iK: GOTO 530
1: CALL &C5ee: POKE
EUER "'ERT :': INPUT S26:LPRIHT 'BEIM DURCHSC
&C5e9,IS1: CALL &CS13
'=';. ': U): GOSUB 900 H~ITT ','ON D=': 13: RETURN
34e:PI=8: NEXT u: GOTD 65 LPRIHT K
1: ·XXX

..,
:J)
Oas Programm ist.fuer den MZ80 A be~t~mmt~kann aber auch mit kleinen Aenderungen A
der CURSOR AnWelSUngen auf dem MZ8u ~ zum Laufen gebracht werden. -I
C
~
Die Hyperfunktion,die mit der Taste 5 betaetigt wird,bewirkt,dass U-Boot verschw
o
indet und auf einer zufaellig gewaehlten Stelle wieder auftaucht.
~~~~~~§~~~~~~ ~ ~~~~~ :;It!
Das Spiel ist aus,wenn man oberhalb des Wasserspiegels ist,keinen Sauerstoff ode ~ ~fflnco- xmo ~WN-AWN- m mm m
A
.... O:;lt!~-I~AnC~ITl;;U··· - c,··· A .... 1Tl
r Treibstoff mehr hat,die Torpedos das U-Boot streifen oder wenn man die Station -I~_ N~~CZZZ~
~ 0 nmm
-I
en der Torpedos streift.Ziel des Spiel ist Gold ,das manchmal auch als Mine geta ~~~~_ c~~n~ ~m~~~~b:~E~~~Z
C)C)zfflzoz- ~520CEOOZC-IITlU!ceroJ" ~ '='
rnt ist, auf~ulesen.Dieses ist nur moeglich mit dem ausgefuellten mittleren Teil en
~~$co~~~~~~~~~~~~~~~~S~~~g
des U-Boots. Wenn Torpedos ueber dem Gold waren wird es unsichtbar,dann hilft i r:::;::(i)54207 THEN 5~)0 ~
o ~-~ A
:I> 130 PRINT"fahren Sie auch nicht auf ihre Station."
tD~~ F ~~~=
440 IF E=S THEN GOTO 1000 n~~..
I--' ITl :x: ~ -0 ~~ fTI.... fTI ~fTlZfTI
m:J)o Z o-nm~ 140 PRINT"Sie bekommen Punkte ,wenn sie"
~ ITl -I"'~ • F-I-I~
I--' 450 J=J-40:POKE J+40,O:Q=INT(2*RND(1»+1 I--'
145 PRINT"Goldstuecke (*) mit dem mittlerem" ~
CD 460 IF Q=l THEN J=J+l:POKE J-l,O C) ~~~ ~~ ~~~ ~~~~g +:­
150 PRINT"Teil ihres Beotes(-) auflesen'" U! r~tD ~z U!mm • n:;lt!::3:
1 -I 1 • 0 1 r Z _. X -I 1 0\0
rJl 470 IF Q= 2 THEN J=J-l:POKE J+1,0
I
155 PRINT"Der Sucher zeigt ihnen diese Position"
160 PRINT"an.Manches Gold ist als Mine getarnt."
480 IF J(53448 THEN POkE J,O:GOTO 304
'"1) ~
C: 165 PRINT"Falls Sie so eines erwischen werden " 490 POI

PC-12S1 , PC-1260 , PC-1261 , PC-1S00(A) mit CE-150
CfJ
(1) VERSCHLUSSELN und ENTSCHLUSSELN
1-'- 2010 POKE D+40,0:POKE E+40~0:POKE F+40,0
ein Progremm de~
2020 0=0 - 10
SHARP-Basic-Teams
rt
(1) 203'() GDS-Ut:{ 4-6Cicj:'Guii7 -5815 Mit den Programmen konnt Ihr Briefe,Botschaften sowie Tage­
2050 A=A+40:B=B+40:C=C+40:D=D+40:E=E+40:F=F+40 bucher gegen unberechtigtes Lesen sichern.Mit DEf V startet
+:-­ 2055 IF F)54207 THEN A=A-40:e=B-40:C=C-40:D=D-40:E=E-40ZF=F-40IGOT0380
o
Ihr das Verschlusslungsprogramm und mit DEF K das Ent­
2060 POKE A-40~0:POKEB-40~0:POKEC-40,0 schlusselprogramm.Die Programme fUr PC-1251 u. PC-1260/61
2070 0=0-10 konnen bis zu 20 Zeichen,das PC-1500-Progr amm bis zu 16
:J> 2080 GOSUB 4000:GOTO 380 Zeichen aufeinmal umwandeln.lhr muSt naturlich such beim
I--'
2100 A=A-l:B=B-l:C=C-l:D=D-l:E=E-l:F=F-l Entschlusseln die gleiche Geheimzahl eingeben wie beim Ver­
I--'
2110 POKE C+l,O:POKE F+l~O
(1)
schlUsseln,sonst "spuckt" der Computer Unsinn aus.Achtung!
2120 0=0-5
rJ'J
Auch SPACE ist im verschlUsselten Text ein Zeichen.
2130 GOSUB 4000:GOTO 380
"i) 2200 A=A+l:B=B+l:C=C+l:D=D+l:E=E+l:F=F+l 101:REM ·VERSCHLUESSELN 226:PAUSE KS(8): CURSOR
C: 2205 IF F)54207 THENA=A-l:B=B-l:C=C-l:D=D-l:E:E-l:F=F-l:GOTO 380 U. ENTSCHLUESSELN' , 24: PRINT QS(B)
"1 2210 POKE A-l,O:POKE D-l,O
uer PC-126S u. PC-12 227:CLS :QS(S)=""
2220 0=0-5
61 228:IHPUT 'MEHR TEXT (J/
CfJ 102:REM ein
2230 GOSUB 4000:GOTO 380
Pro9ramm des H)? ·jA$: IF A$="J·
::r SHARP-Basic-Tea~s
2300 POKE A~O:POKE 8,0:POKE C,O:POKE D,O:POKE E,O:POKE F,O
GO TO 281
CD 110:"Y" CLEAR: DIM DS(S 229:EHD
"1 2310 L=INTC960*RND(I»+53328
)*28,T$(9)*28,2$(8)*
'0 2320 IF PEEKIL)=O THEN 2340 110:S$(0)=MIO$ (K$
28: IHPUT 'GEHEIMZAH
722:0$=B$
2330 GOTO 2310 L=';Y
1 : REM "UERSCHUE (0), I, 1) 730:PAUSE "lJERSCHL
Cl 2340 IF PEEKIL+l)=O THEN 2360 SSELN UNO ENTS
111:PAUSE "TEXT EINGEBEN
112:Z=ASC (S$(0»­ . TEXT"
o
2350 GOTO 2310 ": CURSOR 24: INPUT
CHLUESSELN"
U 735 LPRINT 0$
a
'0 2360 IF PEEKIL+2)=0 THEN 2380 2:REM FUER SHAR
UOD
114:IF Z98 THEN 128 126: PAUSE "KLARTEX EBEZAHL="jU
rt 126:GOTO 13B *20, Z$(0)*20
2440 A=L:B=A+l:C=B+l:D=A+40:E=B+40:F=C+40
T" 742:A$=0$:GOSUB 90
128:2=Z-59 12:PAUSE "TEXT El
2450 H=H-14:0=O-50:GOSUB 4000:GOTO 380
128:PRINT Q$(0) o
f-I 130:D$(B)=D$(8)+ CHRS (Z N5EBEN"
4000 POKE A,75:POKEB,120:POKE C,76
130:ENO 743:0$=B$
o ) 14: INPUT 1$(0)
4010 POKE D,111:POKE E,122;POKE F,110
750:FOR 1=lTO LEN
132:NEXT I 16:INPUT "COOEZAH (0$)
4020 RETURN
134:PAUSE "YERSCHL. TEXT L="jU
5000 PRINT CHR$(22):USRI71) 500: REM "UERSCHUE 760: Z$=M10$ (0$,1,
18:FOR I=ITO LEN 1 )
5010 PRINT"Sie haben einen Fehler gemacht "" SSELN UNO ENTS
136:PAUSE T$(B): CURSOR (1$(0»
5020 PR I
770:Z=ASC 90THEN 28 810 Q$=Q$+CHR$

aURUM mHFDRFlIlTIDH VDRIt
KASSEt~BUCH (DISK/CASS. ) VKP. 70, - DM i ne 1. 14% Mw sT .
UJ
I:
t ~
~ ~ ~ ~
~ Z-a5~~~
C UJ 1) 0::: ,­
~ 0::: , co a. C
.g «I Cl)z '5 ~
I-'~ I d> UJ
...J~ltO~dCOC
uj > '" « jjj ~ Cl) "*
t:; -g ~ ~ Cl) ~ ~ 'a'
~ ;:, UJ '0 ~ or I- ~
~ ~ § 0::: g> I- j
~ ~ - C ~ '2 ~
§: '~ :!: 2 5 bf '" 2
> ~ :1 ~ Q.) i= a
5 2 z I ;i ~ I E
~ ,~ ffi « ~ '5 ~ 8
Z ,~ UJ ~ 0::: ~ ~
jjj ~ (5 0 ~ ~ g c3
1) 1) 1) 1)
1i 1i 1i 1i
~ ~ ~ ~
. . .•
(") ~ Ii') ~
~
~ Q
01 c
~ ~
~ t:
I
I::J ,~ - ;:, ~ E (!J ~
I E
> fu () f5 u.
UJ C « '0 UJ E co ~ OCl)«3UJ c~ Q.) E N
() 0 Z Q.) I ~ 3: 0 a:: 0::: a: ::J E U> ~ CO ~ ~ ~ I­
g J: >- UJ
- ...J
~ ~ :r: N g UJ :«
Cl) l- ~:i ClUJ = « Cl
« I-. () I-. 3: Q.) ~ .2? Z 2 ~ o -
~ UJ £ :r: () a. ,=
~ :~ UJ Q.)
~ a:: ~ UJ t Z ~ Z UJ ~
~ I- '0
~ '" «3 ~ ~ CL
c. ...J
UJ Cl) Cl) ~
I-. ~
,- 0::: UJ ~ 0 '" U) (!) « h= t)
Q.)
UJ Z E Z ::!
~
u; '"
I-. > U. Q.) Cl)
Z ~ a::
co co co co co co co ~ ~ ~
~ ~ ~ ~ ~ ~ ~ ~ ~
cl .- C\I
Z
UJ
a::
UJ
~
o
0:::
~
~
N
C ~
~ ~
c
Q.)
~
.....
~
~
~
«
a:::
o
Z
C ~
Q.) a:::
a:::
UJ
f­
~
a.
~
o
()
Alles fUr Sharp Computer Heft 10 Seite 41

PAPERWARE
(j)
HARDWARE FUR MZ-80 A/K
CD auf die beiden Hefte MZ-80 A/K Intern
~.
Es solI noch einmal
rt hingewiesen werden. Eine Auswahl der Themen in be{den Heften:
CD Folgende Hardwareerweiterungen k5nnen wir fUr die beiden Computer Tongenerator
anbieten. Alle sind fUr den MZ-80 A entwickelt warden, einige neue Basic-Routinen
~ sind jedoch auch im MZ-80 K einsetzbar. Programmschutz
N
Peek's und Poke's
:l>
t-' Erweiterun~ auf 64kB mit geindertem BASIC Die Hefte kosten jeweils 10 DM inkl. 7% Mehrwertsteuer. Bei Ver­
t-'
fUr A und K sand per Nachnahme zuzugIich 1.50 DM Nachnahmegebuhr.
CD
rJJ
""tI Graphikplatine fUr 2 Bildschirmseiten
C: (2 * 64000 Bildpunkte) Nur ZU5~mmen mit der
'1 Speichererweiterung verwendbar
~
(j)
::r
0) Graphik-Disk-Basic 64kB mit Hardcopy-Routine
'1 fUr Sharp P5 oder EPSON
'd
d'-~k· ~ .·1-~.-}..~/1.i"~-: t,.A"'·~
Cl
o Madem-Platine fertig bestUckt und gepruft
~
3 (ohne Geh~use und H6rerkapseln)
'd ohne FTZ-Nummer
C fOr A und K
to
o
rt
CD
'1
passe~des Interface dazu allf Anfrage
::c
t{J 1984 by G. Gn.:3towski.
CD
""tI Invers-Bausatz, mit dem man einzelne Buchstaben
rt
~
invers darstellen kann (fOr 64kB CP/M)
f-l
o
Zu alIen Erweiterungen erhalten Sie eine genaue EinbauanIeitung,
da einige ~nderungen auf der Hauptplatine unternommen werden
mUssen. Auf Wunsch kann auch eine Anleitung zum Umrusten auf
40/80-Zeichen-Betrieb mitgeliefert werden.
~k ~/~-4p~ 6~",
Da wir die Erweiterungen erst nach Eingang der Bestellungen beim
N
Hersteller anfordern, ist Vorkasse n6tig.
Da die Speichererweiterung zur Zeit vergriffen ist, mussen 15
BestelIungen zusammenkommen, damit eine Neuauflage lohnend w~re
~
(Rabatte beim Einkauf der Bauteile). Einige liegen schon vor.
SolIten nicht genUgend Bestellungen eingehen, erhaIten Sie das im
voraus bezahlte Geld selbstverstindlich zurUck. Wir bitten um ihr
to
Verstindnis.
o
Bei Abnahme mehrerer Erweiterungen sind Preisnachlisse m5glich.
Auskunft auf Anfrage.
Bitte schriftliche Anfragen und PreisauskUnfte an
Fischel GmbH.
N
~
~

510 Karte fuer Sharp Computerl
Die 510 Karte steht fur folgende Computer zur Verfugung.:
- MZ-80 I/O Box (MZ-80K)
- Expansion Unit (MZ-80A)
- MI-80B Computer
- MI-700 und
- MI-800
Die Karte ist mit der 510 825lA ausgerustet. Sie arbeitet in Systemen mit
bis zu 4 MHz Systemtakt. Als Ein- und Ausg8nge stehen folgende Leitungen zur
Verfugung.:
Tx Serieller Datenausgang.
Rx Serieller Dateneingang.
RTS = Ausgang fur Sendeanforderung des angeschlossenen Gerates. Wird dieser
Ausgang nicht fur das Endgerat benotigt, so kann er an Stelle van SI
zur Baudratenumschaltung verwendet werden. 11 muG dann entsprechend
gesteckt seine
CTS = Eingang, der den Datenausgang freigibt. Ober diese leitung sign8lisiert
das Endger.at der SIO. daB es jetzt Daten aufnehmen kann. liefert
das Endgerat dieses Signal nicht, kann der Eingang mit einem Jumper
:I> auf Masse gelegt werden.
I--' DTR Ausgang fur die leitung "Obertragungsleitung anschalten".
I--'
DSR = Eingang. der wahlweise fur die leitung "Betriebsbereitschaft" oder
(D
"Ankammender Ruf".
rJl
""'h
Die Leitungen Tx-Rx und RTS-CTS k5nnen mit Jumpern gekreuzt werden. Dieses
C: ' ist fur den Fall, daB zwei Rechner von verschiedenen Firmen. zwecks Daten­
'1 ubertragung gekoppelt werden. Wird die leitung RTS nicht benotigt. so kenn
sie fur die Baudratenumscha1tung benutzt werden.
(fJ.
Die Baudrate wird aus einer Quarzfrequenz abgeleitet. Dieses bietet eine
::r
CD
groBtmogliche Stabilitat. Es kannen folgende Baudraten gewahlt werden.:
'1
"d 75; 150; 300; 600; 1200; 2400; 4800 und 9600 Baud.
Die SIO-Karte kann sowohl mit TTl-Pegel als such mit +/- Spennungspegel
o
a
wahlweise arbeiten. Die Umrustung zwischen diesen beiden Spannugsnormen ist
"d
innerhalb weniger Minuten muglich.
C
rt Die Adresse der Karte ist CIH fur Daten und COH fur Statusleitungen. Diese
(D
'1 Adresse kann durch Nachrusten eines DIL-Schaltes im Bereich zwischen 80H und o
FFH frei gewahlt werden.
::r:
(D Die Jumper im Einzelnen:
""'h
rt il In der gezeichneten Position wird die ~TS leitung fur die Baudraten­
umschaltung mitbenutzt. Wird der Jumper umgesteckt, so ubernilllllt SI
I-"
o
diese Aufgabe.
i2 Die CTS leitung liegt in der gezelchneten Stel1ung dauernd auf Sende­
(fJ. bereitschaft. Wird z. B. ein Drucker mit seriellem Eingang an die 510
(D
.....
geschaltet. so muO die CTS leitung durch Umstecken von i2 auf den
Stecker geschaltet werden.
rt
(D
i3 Mit diesem Jumper kann man die Leitung Betriebsbereitschaft oder ankommender
gezeichneten Ruf lage wahlweise auf den Eingang DSR der 510 ist die Leitung Betriebsbereitschaft legen. durchgeschaltet.
In der
i4 Die RTS und CTS Leitungen konnen durch Umstecken der Jumper gekreutzt
werden. Dieses kann notig werden, wenn mann z. B. zwei 510 Karten
miteinander verbindet.
i5 Mit diesen Jumpern konnen die leitungen Rx und Tx gekreutzt werden.
~
x6 Diese Brucken dienen zur Umschaltung van TTl Spannungspegel auf die N
Betriebsart mit +/- 12 Volt. Wird die 510 Karte mit TTl Pegel benutzt,
so mussen 74LSOO IC's in den fassungen gesteckt sein und sich die I
Jumper in der gezeichneten lage befinden. Der DC-DC Wandler muG dann ~
nicht vorhanden seine 5011 die Karte mit +/- 5pannungspegel betrieben
werden, so werden die 74LSOO gegen die IC's vom Typ 1489 und 1488 Q
ausgewechselt und beide Jumper i6 umgesteckt.
>
i7 Die Brucke i7 verbindet den DC-DC Wandler mit der Stromversorgung.
Tabelle fur die Einstellung ~ Baudrate:
(il ist auf SI gesteckt).
Schalter Teilungsfaktor in der 510
SI 52 :16 :64
---------------------------
aus aus 300 -- 75 Baud
ein aus 600 -- 150 Baud
aus ein 4800 -- 1200 Baud
ein ein 9600 -- 4800 Baud
~
- 510 - 2 ­
~
~ Ip inanzl' igrn N
~
Verk. CE-151, Tel. 040 / 7017674 ~~
Verk. PC-1500A f. 320,-DM: J. Knobl ~
Amtsstr.31; 4800 Bielefeld 15
Tel. 05206 / 1664 ab 19 Uhr. ~
~
p.. - 510 - 1 ­
W

~~ g~oP
+
~
C
u:>
m
I'i
0
I'i
0..
m
;:j
M
I--'
1-"
()
::Y'
'"C:)
I'i
m
1-"
CIl
~
m
I'i
M
+
C:
cr'
CIl m
~: I'i
S CIl
M 1-"
I--'()
1-" ::Y'
() M
::Y'I--'
m 1-'­
I'i ()
::Y'
;l>m
;:j I'i
()Q
m ;l>
cr'C
0 CIl
Mo..
m I'i
C
0 ()
?'
r--t
1-"
CIl
M
m
;:j
+ +
I--' 1-"
m ::s
1-"
() I'i
::r' m
rt 1-"
;:j
S m
0 S
0..
1-'- td
I-t)
~
1-" CIl
N 1-"
1-" ()
m
I'i ()Q
cr' m
~ CIl
I'i ()
::Y'
I'i
1-"
m
cr'
m
::s
:::o~tc:::O:::O~r:-'-c:::::r::c:::t""'t""'(/)
.......... ~~~Po>~==Po>=(i>ibPo>
~. ~ ~ ~ tij .... ~ 0' .... ~ .... ~ ~ g.
~I Po>~~~~"'e:.~e:.~~Po>
o tc~ ="0 ...·en8 -Po> -en en =
s C:: -g. r:T ~ =-- ~ ~ J.. ~ ~ ~ ~ (Jq
~ g s g- o· ~ ~ 0
Po> c:: :;: (1) ................... _ ...... g.
~ ~ ~ ~ ~ ~
ffi9(Jq1:r+
g.Ǥ c
lo~~~
>a.8(1q~
~ a ~ ;.
g.~7" g.
OIC) ­
->~
...
--c::
r:T
8'" ...
-
(Iq ~
~ I:r
t:'a.*"(1)=C1>~
~ ~::::g-
Po>(1)C::~
8g~~
~... ~
=­
~
Po>
....
c::
g-.
=
+
m
1-"
;:j
I-t)
~
()
::Y'
CIl
M
I'i
C
?'
rt
C
I'i
1-"
m
I'i
M
~ ~
Po>~
Sr:T
~~
~
C".
0
~
+
CIl
rt
~
I'i
?'
;l>
I'i
cr'
m
1-"
M
m
;:j
M
I--'
~
CIl
rt
m
;:j
0..
S Die Karte wird anstelle der Z-BO CPU in deren Sockel gesteckt. Demit halt
I-' sich die zusatzliche Verdrahtung in Grenzen; auf insgesamt 10 zusatzliche
I-'
Leitungen. Der Umbau kann ven einem Bastler mit etwas Loterfahrung vorge­
CD nommen werden. Der Zeitaufwand fur den Umbau liegt zwischen 2-4 Stunden.
(fJ
>-t) Urn die Kosten auf ein geringes Niveau zu halten, wurde fur das zusatzliche
C: RAM eine etwas ungewohnliche Losung gefunden. Auf den mitgelieferten BSt.
.., IC 4116 ist eine 16 pol. IC-Fassung aufgelotet. Diese IC's werden anstelle
der mittleren RAM Reihe eingesetzt. An den herausgenommenen IC's wird nun an
(fJ
::r
Pin 4 ein Stift gelotet. Die so behandelten RAM werden als 'Huckepack' RAM
CD in die freien Fassungen gesteckt und die angeloteten Stifte werden mitein­
.., ander verbunden •
'0
Nach dem Einbau des l6K Aufrustsatz lauft der umgerustete Computer nach
(1
Einschalten der Betriebsspannung zunachst wie ein Originalgerat. Erst
o durch das Laden des 64K Basic wird das Gerat automatisch in den 64K ~~dus
a
geschaltet.
'0
C
rt Fur Software Experten liegt eine Beschreibung des Umschalteport's bei.
..,
CD Unabhangig vom 64K Betrieb ist das Abschalten des Monitor ROM's. An dessen
Stelle kann RAM eingeblendet werden, so dass man Buf einfache Weise einen
anderen Monitor laden kann.
::r::
CD
>-t) Zusammen mit dem 64K Aufrustsatz wird noch ein Toolkit fur das MZ-BOK Disrt
kettenbasic geliefert. In diesem ist dann auch schon der Befehlssatz fur die
ebenfalls lieferbare Feingraphic implementiert.
f-'
o
Fuer CP/M Benutzer: Hierfur konnen wir ein Toolkit fur 60K Betrieb liefern.
Preis auf Anfrage. An der AufrGstkarte befindet sich zusatzlich noch ein 40
pol. Stecker. Dieser ist fur den Anschluss einer Feingraphic Karte vorgesehen.
Bitte schriftl. Anfragen an Fischel GmbH.
0..
td
~
CIl
m
H
H

@@@@@@~@@@@@@~@@@@@@@@@S@@@S@@@@@@@@@@@S@@@@@@$@@@@@@@@~~@@~
TEXTSYSTEM TEXT 7QJI21 V2.B
);­
I--'
@~~~~~@~~@@~@@~@@@@~~~~~re~@mm~@@@@@@@@@@@@@@@@@@@@@@@9@~~@@@@@@
TEXT 700 wurde entwickelt, um dem Besitzer eines MZ-700 in Grundversion,
nur mit Kass~tt~nrekorder und Drucker, ein leistungsf~hlges
Textverarbeitungs- Programm zur VerfUgung zu stellen. TEXT 700 ist
vollst~ndig in Maschinensprache geschrieben, als Drucker 1st jedes
beliebige Fabrikat verw~ndbar, auch der im MZ-731 einqebaute Plotter.
Nach ca. einer Minute Lad~zeit erscheint aUf dem Bildschirm das HauptmenU
mit folgenden Wahlmoglichkeiten:
1) Text erstellen/editieren
2) Text laden (von Kassette)
3) Text abspeichern (auf Kassette)
4) Text ausdrucken
5) Suchen und Ersetzen
6) Arbeitsspeicher loschen
7) Einstellungen ~ndern
Im Modus -Text erstellen- verfUgt man Uber einen vollen Bildschirmvereinfacht.
TEXT 71616 verfUgt
~ditor, der die Eingewohnung besonders
Uber eine Wor"tautomatik, die unvollst~ndige Worte automatisch vom
Zeilenende in die n~chste Zeile koplert und 50 ein besonders flUssiges
Schreiben ermoglicht.
Zwei farblich abgesetzte Statuszeilen informieren w~hrend des Schreibens
st~ndig Uber die aktuelle Schreibzeile und -spalte sowie Uber
T~bulatoren.
Da der MZ-700 Uber kelnen 80 Ze1chen Bildschirm verfUgt, wurde die
I--'
bew~hrte Technik des horizontalen Scrollings gew~hltJ Um Zeilenbreit~n
(D
von mehr als 40 Zeichen bequem und Ubersichtlich darstellen zu konnen.
[j)
Durch diese Technik entspricht die Bildschirmdarstellung rn alien wesentlichen
Punkten dem sp~teren Ausdruck aUf dem Papier.
'"t)
Damlt der Benutzer durch den horizontalen Scrollvorgang mHqllchst
c::
wenig lrritiert wird, scrollt der Text bereits jeweils 10 Zelchen vor
')
Erreichen des linken und rechten Bildschirmrandes immer urn ein einzelnes
Zeichen, also ohne SprUnge. So kann man beim Editieren oder Uber­
CJ)
schreiben genau sehen, was man Uberschrelbt. da rechts bzw. links vom
::r
Q.)
Kursor immer mindestens 10 Zeichen sichtbar sind.
Die Leistungsfahigkelt eines Personalcomputers w1rd so zwa~ nicht er­
')
reicht, aber immerhin bestmoglich angenahert.
'7j
Alle Editierfunktionen sind im Schreibmodus dlrekt Uber Einzeltasten
oder CTRL- Kombinationen abrufbar; aUf EdltiermenUs wurde verzichtet.
(1
Obwohl dies die Einarbeitung etwas erschwert, bewirkt diese Technlk
o
nach einiger Gewohnung jedoch bald eine wesentliche Vereinfachunq und
3 Beschleunigung der Editierarbeit, da der Schrelbmodus nicht fUr jede
'7j
kleine Korrektur verlassen und in MenUs und UntermenUs herumgesucht
C werden mu~.
rt
Unter anderem bietet TEXT 700 folgende Editlerfunktionen:
(D
') - Delete zum Herausnehmen von Zeichen aus elnem Text. Die wortweise
::r: Formatierung wird dabei berUcksichtigt, d.h. es werden nicht
unbeabsichtigt Worte am Zeilenende getrennt. Au~erdem wird ein aUf
(D dem Bildschirm dargestellter" linker Rand erkannt und berUcksichtiqt.
'"t) - Insert- Modus zum aulomatischen EinfUgen von Textteilen und zum
rt EinrUcken von Absatzen. Auch hier bleibt die wortweise Formatierung
und ggf. ein linker Rand erhalten.
f-'­ - Absatzende manuell festlegen
o - Suchfunktion
- L~schen, Herausnehmen und EinfUgen von Zeilen
CJ) - Zentrieren
(D Funktionen
.....
rt
(D
+-­
U1
- Kopieren von Textblbcken
VDn Einzelzeilen, Blocksatz ein- und ausschalten. Beide
sind bereits aUf dem Bildschirm sichtbar.
- Tabulatoren setzen, l6schen, anspringen
- Durchlesemodus, der das horizontale Scrolling abschaltet und durch
vorUbergehende Umformatierung des Textes aUf 40 Zeichen/Zeile ein
bequemes Durchlesen ermogllcht
TEXT 7~e hat eine ASCII- Tastatur mit Wiederholautomatik aUf alien
Tasten; Graflkzeichen sind ebenfalls abrufbar. Die 10 Funktionstasten
sind nach dem Laden des Programms mit Name, Adresse und Telefonnummer
des K~ufers und ein1gen nUtzlichen Floskeln belegt. Diese Belegung
kann w~hrend des Texterstellens beliebig ge~ndert werden; jede Funk­
tionstaste kann maximal 63 Zeichen enthalten.
Umlaute sind von der Tastatur direkt Uber CTRL- Kombinationen abruf­
bar; auEerdem konnen sie auch auf die Funktionstasten qeleqt werden.
FUr Blindschreiber kann die Tastatur aUf DIN 2137 umgeschaltet werden,
sie entspricht dann der deutschen Schre1bmaschinentastatur.
Der Textspeicher betr~gt 47872 Zeichen und ist, im Gegensatz zu ande­
ren Konzepten, nicht seitenorientlert eingeteilt. sondern wird als
Einheit betrachtet. FUr Seit~nenden 5teht"ein spezielles Steuerzeichen
zur VerfUgung.
Als Massenspeicher benotigt TEXT 70e nur einen Kassettenrekorder. Eine
Floppyversion steht nicht zur VerfUgung. Texte lassen 5ich durch Anga­
be von Zeilennummern beliebig plazieren, zuladen, teilweise oder ganz
abspeichern und auch mischen.
Zum Ausdrucken von Texten stellt TEXT 700 drei Druckertypen zur Auswahl:
1) ASCII- Drucker
2) SHARP- Drucker
~) MX/FX/RX/CP-80 und Kompatible
In alIen drei Modi lassen sich die Zeilenabstande und ein linker Rand
einstellen und Codes beim AU5drucken direkt an den Drucker senden.
Durch letzteres lassen sich prlnzipiell al1e beliebigen Drucker mit
ihren s~mtlichen Sonderfunktionen betreiben.
FUr den ASCII- und MX-80 Modus enthalt TEXT 7016 eine Software­
Schnittstelle"mit eigener ASCII- Tabelle. Damit dieser Vorteil ausgenutzt
werden kann, sollte ein nicht konvertierendes oder ein umschaltbares
Interface vorhanden seine Die Schriftart kann mit speziellen
Steuerzeichen fUr SO (Breiischrift) und SI (Schmalschrift) innerhalb
des Textes eingestellt werden.
Im MX-80 Modus stehen zus~tzlich spezielle Steuerzeichen fUr Unterstreichen,
Fettschrift, Hoch- (superscript) und Tiefstellen (subscript)
zur VerfUgung. AuEerdem lassen sich fUr diese Druckertypen bis
zu 10 Zeichen definieren. Mit Hilfe eines eiqenen Editors konnen diese
Zeichen hochst einfach in einem B mal 8 Muster erstellt werden.
Mit der Wahl "Einstellungen andern- im HauptmenU gelangt man In e1n
UnlermenU, in dem man u.a. die Zeilenbrelte umschalten (beliebiq zwischen
40 und 255 Zeichen) und die Farbeinstellunq andern kann.
Infolge seiner hardwarebedingten Einschrankung aUf einen 416 Zeichen
Bildschirm und den Kassettenrekorder als Massenspeicher kann TEXT 7ee
keinen Anspruch aUf absolute Professionalit~t erheben, jedoch enth~lt
das Programm alle wichtigen Funktionen fUr eine leistungsf~hige Textverarbeitung
nicht nur fUr den Hausgebr"auch. Es ist auch durchaus fUr
kommerzielle Anwendungen nutzbar.
Der Preis betr~gt 135 DN inklusive eines umfangreichen Bedienungshandbuchs.
i ne 1. 14% MwsT

inZ-700
Nit Genemlgun9 des
Club des Shnrpentier
151/3,nvenue Jenn-Jnur~s
F-93307 AUBERUILLIERES CEOEX
10 REM FROSCH
20 REM
30 COlOR ,,4,0
40 PG$="FROSCH":NM$="19":GOSUB 1710
50 F=107
60 GOTO 1350
70 P=0:C=9:M=53790:K=M:I=9:J=9
80 Y=0:CC=53390:00=53950:EE=53750:FF=535
50:G=54078
90 COLOR" 2,1 :PRINT"E)" jCHR$(239); :FOR GH
=1 TO 38:PRINTCHR$(195)j :NEXT GH:O=500TE
:X=53287:POKE X+2048,$21 ,$21 :POKE X, 115,
113
100 COLOR,,4,1 :FOR 2=1 TO 16 :X=X+40:POK
E X+2049,$21 :POKE X+l,1 13:POKE X+2048,$2
1 :POKE X, 61 :NEXT ~
110 FOR l=l TO 4 :X=X+40:POKE X+2048,$31
:POKE X,61 :NEXT l
120 A$ =" omllllllllllllmm r1IlIHDr1IllIr1Ir1I 1313138138813131313 " : B$ ="
Dr1IIlIWWWmr1lmmWS8S81313I3S813"
130 C$="8WWGlGlW!1II3I3I3[3[381381313"
140 PRINT:PRINT"OIllWWIDWmr1lIIlIIlWIDIDID" iTAB(34) j
" FO"
150 PRINT TAB(32)jCHR$(253)j" "jCHR$C200
):R$=CHR$C112):FOR GH=l TO 23:R$=R$+CHR$
C1121:NEXT GH
160 PRINT TAB(32)jCHR$C200,32,200,32,253
, 32J.~;53)
17~ft~lNT TAB(32);CHR$(200,32,200,32,200
,32,2(0)
180 PRINT TAB(32)jCHR$C200,32,200,32,200
,32,2(0)
190 PRINH2, ]CHR$(197) j :FOR GH=l TO 13:P
RINT CHR$(196)j:NEXT GH:PRINT SPCC18JjCH
R$C200,32,253,32,200,32,2531
200 PRINT CHR$C88,195)jSPCC11)jCHR$C238,
236)jSPCC17)jCHR$C253,32,253,32,200,32,2
53)
210 PRINT CHR$(224,239,240,229,239,240,2
37,210,239,229,228,239,240,199,32,236);S
PCCI6)jCHR$(253,32,253,32,253,32,253)
220 PRINT CHR$C197,197, 199,32, 197,199,32
,253,197,32,32,197,199,32,199,199) jR$j
230 PRINT CHR$C197,197,32,32,197, 199,32,
253,197,32,32,197,199,32,199,199);R$j
240 PRINT CHR$(l 16,116,32,32,197, 1~9,32,
32,32,32,32, 197, 116, 116, 116, 112) jR$ j
250 PRINT CHR$CI12,112,112,116,116,116,1
16, 116, 116, 116) ; LEFT$ (R$, 20) ; "N i ve au" j T j
CHR$(112)j:POKE 54247T2048,$41 :POKE 5424
7,208
260 IF H=l THEN POKE 55958,$1 :POKE 55883
,$1 :POKE 56047,$1 :POKE 53835,F :POKE 5391
0,F:POKE53999,F
270 PRINT"DIDWWmmmmws
280 PRINT"8
290 PRINT"13
300 PRINT"13
310 PRINT"13 " jCHR$C 196, 207, 217, 2(7);"
320 PRINT"[3 ";CHR$CI20, 112, 112, 112,81,
118) j" "
330 PRINT"13 "jCHR$(120, 112, 112,112,112,
112,112,219)
340 PRINT"13 "jCHR$(120, 112, 112, 112, 112, 1
12,112,112,117)
350 PRINT"I3" jCHR$( 120,112,112,112,112,11
2,112,112,11.7)
360 PR I N T" [3" j CHR$ C 1 12, 112, 1 12, 1 12, 112, 1 1
2,112,112,199)
370 PR I N T" 8" jCHR$ ( 1 18, 1 12, 1 12, 1 1 2, 1 12, 1 1
2,112,112,112,119)
380 PRINT"[3I3";CHR$(195,215,215,215,118,2
37,237,237,119)
390 PRINT TAB(9) jCHR$(195,215) j"O"
400 O=O-(Y+E):IF 0

790 POKE L,F:POKE K,F:POKE M,F:GOTO 420
800 PRINT"O[IHIHIIIII13
810 PRINT"[3
8213 PRINT"[3
830 PRINT"13
840 PRINT"G "jCHR$(196,207,217,207)i"
850 PRINT"13 ":CHR$(120,112,112,112,81,
119) i"
860 PRINT"[3 " :CHR$( 120,112,112,112,112,
112,218) j"
870 PRINT"8 "jCHR$(120, 112, 112, 112, 112, 1
12,112,117) j"
880 PRINT"I3" jCHR$( 120,112,112,112,112,11
2,112,117) j"
890 PRINT"I3" jCHR$CI12, 112,112,112,112,11
2,112) :"
900 PRINT"[3" jCHR$( 118,112,112,112,112,11
2,41,119) j"
910 PRINT"13 11 jCHR$CI85,216, 112, 112, 117) j
" ";CHR$(118, 195) j"
920 PRINT"13 "jCHR$CI20,112,117)j"
930 PRINT"13 "jCHRtCI20,112,117)i"
940 PRINT"l4j "jCHR$(40,39,195,195,195, 195
, 119) jCHR$CI96, 196, 196,196)
950 PRINT"I3[3I3"jCHR$(215,215,215,118,237,
237,237,119) j" U :RETURN
950 PRINT"Olilmmml3 "jCHR$(195,207,.217,2
07):"
970 PRINT"13 "jCHR$(120,112,112,112,81,
119) j" "
9813 PRINT"13 ":CHRt(120, 112, 112, 112, 112,
112,219) :" "
890 PRINT"[3 "jCHR$CI20, 112,112,112,112,1
12,112, 117) :" "
1000 PRINT"I3" :CHR$(120, 112,112,112,112,1
12,112,117) ;" "
1010 PRINT"[3" jCHR$(112, 112,112,112,112,1
12,112) j"
1020 PRINT"[3" jCHR$( 118,112,112,1 i2, 112, 1
12,117) i"
1030 PRINT"13 "jCHRtCI18, 112,,112, 117,41,1
18,119) j"
H:340 PRINT"[3 "jCHR$(118, 112, 119) j"
1050 PRINT"8 "jCHR$CI18,112,119)j"
1060 PRINT"8 " j CHR$ C 1 18, 112) i"
1070 PRINT"8 " i CHR$ ( 1 20, 117) i"
1080 PRINT"8 " iCHR$( 120,117) i"
1090 PRINT"8 " jCHR$C 120, 117) j"
1100 PRINT"8 "jCHRtC40, 44,195,195,195,1
95,119,195)
1110 PRINT"88[3":CHR$C215,215,215,118,237
,237,237,119):" ":RETURN
1 1~0 IF PEEKCAA-40)=107 THEN P=P+l :0=0+4
13
1130 IF PEEK(AA+40)=107 THEN P=P+l :0=0+4
(3
1140 IF PEEKCAA+l )=107 THEN P=P+l :0=0+40
1150 P=P+l :POKE AA+2048,$61 :POKE AA,67:P
OKE AA-40+2048,$51 :POKE AA-40,67:POKE AA
+40+2048,$61 :POKE AA+40,67:POKE AA-l+204
8, $61 :POKE AA-I, 67
1160 POKE An+l+2048,$31 :POKE AA+l,e:POKE
AA-40+2048,$31 :POKE AA-40,0:POKE An+40+
2048,$31 :POKE AA+40,0:POKE AA-l+2048,$31
:POKE AA-l,0
1170 POKE nn+l+2048,$31 :POKE AA+l,0:POKE
AA+2048,$31 :POKE AA,0:G=54076:0=O+40:E=
E+.3
1180 FOR ~=1 TO 200:NEXT:RETURN
1180 COLOR ,,4,0:USR($720): FOR ~=1 TO 2
00:NEXT:POKE K,0:POKE L,0:POKE M,0
121313 PRINT"om" ;TAB(37);"
1210 PRINT"[ll[3 Sie haben" jPj" FI iegen gel'
angen 2 m"
1220 IF P(40 THEN 1260
1230 PRINT"m13Et" 1'1 iegt ,sPt"ingt so hoch
wie ein Haus"
12413 PRINT"[3und se ine lunge ist t"ies ig.E
t" i st GI"
12513 PRINT TAB(9) j"e in Suuupet"ft"osch Hili
":GOTO 1~80
1260 IF p)3e THEN PRINT"llIa Hiet" ist et",d
et" Koenig des Teiches22m":GOTO 13113
1270 IF P)25 THEN PRINT"Gla Ein Laubf,..osc
h mit grossem Hunger 22!1l" :GOTO 1310
1280 IF P)15 THEN PRINT"(IJ[3 Wohl noch ~in
recht junger Fr"osch 2200" :GOTO 1310
1290 IF P)10 THEN PRINT"!Il13 Ein Schwaechl
in92G1" :GOTO 1310
1300 PRINT"UlS 1st er etwa Uegetat"iet"???OO
1310 GET D$:IF D$'"'THEN 1310
1320 PRINT"S Ein neues Spiel ?"j:GOSUB
500
1330 IF LEFT$CINt, 1 )"N" THEN 1350
1340 PRINT"I!:l":ENO
1350 D=0:PRINT"I!:l":GOTO 1440
1350 0=0+.3:S=RNO(I):IF S

aURICH mnF~nMlffttiTWUM vonn
en
ro
1-'- ., ~ 0 : ..... 0 N ..... :3 C ........ 'T]
tD(x)OCDcr-CD:::r(X)~IX)(X) (X):::rCDQ.(X)(X)C'-I'-I~~'-I"'-I~~'-I
rt
CS)U)CI> CDtt '-I Cl> 0). U1~ W". N RI ..... CS) 3 Ul CD '-I GO (J) = U1 ~ W N :::: 0
ro CS)CS)(')CS).,CS)~cs) (5;)CS) cs)'-Ics)" cs) cs) : CS) CS)cs)P CS) CS)CS)CS)(S) CS) '1
-:T
:3
~ rt
"1) ~G)~Al rT'IG)RI"1)~\lQ."1) "'O~ "1) "1)~~~ ~r~ ~ ZOCl>AlCAl Al AlAl AlCDAlP~~ Al"1)~RlAl AlOrT'lrT'\ ;;0 C/J
CfJ SHARP MZ-7 PASCAL - QDiskversion D(/)' 0 RI ~ ~ _:::r -" - -(/)~~
C ' Z -:T Z I Z ZZ Z Z zz z r~z zc: Z ro
OJ -f -f -I -f -f -I(.O-IRI-I-I -f rT'IC-I -ftO
~ rt
Sehr geehrte Damen und Herren, ': : ::::S:: :(;),,:3:
C
~
lEI El El lEIEl lEI El :lEJr ClO-l~ El RI N
l> U1 Q. C'> Cl Cl e 3 e C1) RI /I) (f) ~ 13 ~ cr- a C
", RI RI -- :s :s It> cr- ., C r""\ .,,) IS CS) It> "1)
f-I '-I
nachstehend einige interessante Informotionen z.- unserem neuen MZ-7 PASCAL: CS) ., ~ ., 11> CL. ~ CL. It> to .... :ID CS)"" a:; ::J
f-I (') :s:s "T1 Z •• tt pO
~
(0
It> • ., ..... ~(;):s ")~ CD (0
~ :::r (I) 1Tl3 ~ fA
e E 1) :s 11> (I) OU1~OO cr-") CD
Die MZ-7 PASCAL Disb-ersion ist eine besonders gut gelungene ,...., (I) '-I ..... (I) RI It> P r""\
C/J .., 11>
11)
E :s ., (.Jl :s CRI oCS)~C'" Cl 3
Implementierung des bekonnten HISOFT.PASCAL-Compilers, die den
<
p ID :s ;r A to :- ~ CL.
~ N 0
"1) Hardwareeigenschaften des MZ-700 voll Rechnung trtlgt. :s
0 Cl" : RI
'1
11)
P RI GO N ~ :s : CS) e c :s ~
:s
... '71:" :3 ID '" 0 to :J: o :s (;) o
MZ-7 PASCAL verfUgt Uber einen integrierten Editor, der neben der
ro
", (I)
RI (') to :s ... rT'I '71:" ~
en f'T1 "W 1-'­
... :::r :s ~ Z on n
::1 zeilenorientierten Programmerstellung auch dos bildschirmorientierte :s a.
RI RI N ID ~ rT'\ CL "
11)
r ::I: rt
") :s :3 p") 0 -I(S)(J) RI o ;;0 en
'" ID
Cl) ") ., C 3 P W rT'IRI ... -"1) (D
~
C-:T
~
'1 erloubt.
." o ... o v /l) ." U) rT'I -­
11) (I)
:s G):S CS) ID N ;;0­
'0
", ., .. 11)
-:T
e ~
~ !l. -­
Q. ID It) 11> 0 o J ",
o CL
., (1)"(1
...J
MZ-7 PASCAL erzeugt einen superschnellen Moschinencode. Dos com­ 11) ID ., -:T (')
., RI ID ..... "(1

34,80 DM
19,80 DM
19,80 DM
29,80 DH
29,80 DH
39,80 DM
34,80 OM
29,80 DM
111Z-i/lID (ID
Programm-Kurzbeschreibung
DOUSE OF DOOH
es mussen 4 unruhige Geister mit folgenden Werkzeugen
uberliatet werden: Spritze, Stein, Tuch und Schaufel.
Erat dann kann man nach abraumen von Steinen den nachaten
Raum erreichen.
Ein schnelles, luatiges und vollig neues Spiel!
NABBD
IIIZ-OO(Q)(Q)
Empf.
Fuhren Sie Ihren Wurm durch immer schwieriger angelegte
Labyrinthe. Schnappen Sie sich die Kriatalle, aber knabbern
Sle nicht an den Wanden oder sich selbstl
CONQUER
Es ist nlcht einfach, den automatisch nachfolgenden
(Radargesteuerten) Lenkwaffen der Angreifer auszuweichen
und trotzdem die Bedrohung aus dem All abzuwenden. Schutzen
Sie die Erde vor den Invasorenl
SPACE WAR
Die aus 4 Richtungen auftauchenden Angreifer erscheinen
in immer schnellerer Folge und fordern ganze Aufmerksamkeit
des Verteidigers!
DEADLY CHESS
Wer dieses Spiel uber 10 (in Worten: ZEHN) Schwierigkeitsstufen
durchsteht, ist ein wahrer Meister des Computerspiels.
Wir sind bisher nicht uber Stufe 4 hinauagekomrnen. Oer Spieler
bewegt sich uber bruchigem Grund uber mehrere Etagen und muB
Punkte s&Jmleln, urn in die niichete Spielebene zu gelangen. Aber
huten Sie sich vor den wildgewordenen Schachfigurenl
Ein Spiel der Meisterklaese aue Deutscher Produkt10nl
FANTASY PLANET
Steuern Sie Ihr Raumechiff in einer gefiihrlichen Miesion
durch die uber 15 verschiedenen Sektoren und finden Sie
das Metall Argon. Doch die Planetenbewohner wollen das nicht
und versuchen Sie daran zu hindern. Schaffen Sie es
trotzdem7 Ein weiteres Spitzenspiel aus Deutscher Produktlon!
VK incl. HWSt.
29,80 DM
29,80 DM
24,80 DM
19,80 OM
39,80 DM
39,80 OM
LIEFEUNT
Liefere an acht Hiiuser die richtigen Waren.
Doch nimm Dich vor den Dieben in Acht, die Dir das Leben
achwer machen. Hast Du einen Auftrag erledigt, bekommet Du
einen neuen, achwereren.
BRICK-LAYER
Fresse aoviele Punkte wie maglich, ohne gegen die todliche
Hauer zu prallen. VergiS auch nicht, neue Kraft zu tanken.
nOKO-MA'I'HE
Futtere dae Krokodil mit den richtigen Apfeln.
Ein Mathelernprogramm fur 6-10 jahrige.
IWCBUI.GEI.
GroBe Panik in der Hamburgerfabrik. Irgend jemand hat die
Teile von Hamburgern im Labyrinth versteckt.
Hilf, aie zu Hamburgern zueammenzusetzen.
Ea gibt auch Cheeseburger und Big-Mac's.
SElFENBLASE
Du steuerst eine Seifenblase. Rette sie vor dem Zerplatzen
und entleere die Seifenwasserbehalter. Aber Vorsicht vor
der Siene. Eine vollig neue Spielidee.
JUNIOR-KONG
Rette Deinen Vater aue dem. Affengefangnis. Sammle Schlussel
um ihn zu befreien. Du laufet mit elnem Geist um die
Wette. Ea gibt sechs verachiedene Silder.
GUM-BUT
Es geht darum, alle Punkte aut dem Wurfelturm einzusammeln.
Dich storen Siille, Schlangen und Gesichter.
Mit der Zeit steigt die Schwierigkeit des Spiels.
MISSILE ATTACK
Schutzen Sie funf Stiidte vor der atomaren Vernichtung.
Kalkulieren Sie gut, denn Ihre Munition ist begrenzt.
Wie lange konnen Sle die Stadte scqutzen7
Lieferung der Programme in Softwarebox in Buchforml
O't
--t
Q)
4->
• ....-1
Q)
rJJ
o
.-i
4->
4-<
Q)
::c
~
ill
4->
;:J
0..
E
o
U
0..
~
(1j
..c:
rJJ
~
:;:J
4-<
[f)
Q)
~
~

Neue So~tware ~ar den MZ-BOB
============================
3D Tic Tac Toe BASIC 15 OM
Eines der beKannten mit Papier und 81eistift zu spielenden Spiele. Dabei
geht es normalerweise darum~ in einem drei mal drei Felder gro~en Spiel­
feld drei Steine dureh abweehselndes Einsetzen in eine Reihe zu bekom­
men. Diese Computerversion erh6ht nun den Sehwierigkeitsgrad betr~eht­
J ieh dureh ein vier mal vier mal vier FeJder groSes Spielfeld, es wird
also aueh die dritte Dimension genutzt. Hier mua man sehon sehr aufpas­
sen~ um die NebenwirKungen der Zage im Griff zu behal ten ... Der Gegner
i~t der Computer, der nieht leicht zu schlagen ist, und Ihre Fehler
abersieht er schon gar nicht.
Wilrfel-Poker BASIC, 64K, G1 15 DM
Dieses Spiel wird wie das Kartenspiel Poker gespiel t, man kann es aueh
mit Kniffel vergleichen. Jeder Spieler darf bis ~u drei mal filnf Warfel
werfen und davon einen bel iebigen Teil beseite legen, urn bestimmte
Kombinationen zu erreiehen (Full House, GroBe/Kleine StraSe usw.), die
je nach SehwierigKeit bestimmte PunKtzahlen ergeben. Man kann wahlweise
gegen einen weiteren Mitspieler oder gegen den Computer spielen. Zur
Demonstration abernimmt der Computer auf Wunseh aueh beide Spieler. Der
Bildsehirm zeigt abersichtl ieh den Spielverlauf mit al len WQrfeln, den
sehon erreichten Kombinationen s~mtl ieher Mitspieler, Kommentaren usw.
Ein Unterhaltungsspiel eriter Klasse, das far die gesamte Familie geeig­
net ist.
Kontinente BASIC, 64K~ 81 10 DM
Stel len Sie doeh einmal anstelle der 117. ComputergrafiK die filnf Konti­
nente auf dem BiJdsehirm in hoehauf16sender GrafiK dar. Es wird wahl­
(JJeise .ie(JJei 1s ein t

ABO N N E MEN T
Wenn cs Ihnen SpaO gemacht hat, diese Ausgabe von "Alles ~Ur
Sharp Computer" zu lesen, und Sie sich auch in Zukun~t durch
unsere interessante Zcitschrift liber alles Wissenswerte zum
Thema Sharp Computer informieren woll&n, dann sollten Sie nicht
langer zogern, "Alles fUr Sharp Computer" jetzt im regelmaOigen
Bezug per Post zu bestellen. Sichern Sie sich eine ltickenlose
In~ormation und schiclcen Sie den Bestellabschnitt am besten noch
heute ab. "Alles ~Ur Sharp Computer" komrnt dann regelmaOig jeden
~lonat ins Haus, ohnc daO Ihnen zusatzliche Kosten entstehen.
Allpz ftir
SHARP.
...w....q.m...p. ..~....t...f....r...........
Bestellschein Bitte vollstandig und lesbar aus~Ullen,
unterschreiben und einsenden an Fischel GmbH,
Kaiser-Friedrich-Str. 54a, 0-1000 Berlin 12
o
Ich abonniere die Zeitschrift "Alles ~Ur Sharp Computer"von
der nachsten erreichbaren Ausgabe an (Preis pro Jahr 72 OM,
Ausland 84 mt, Lu~tpostzuschlag 12 OM).
»
I-'
o Ich abonniere die Zeitschri~t "Alles ~Ur Sharp Computer"von
I-'
der Ausgabe ••• (~1onat) ••• (Jahr) an (Preis pro Jahr 72 OH,
m Ausland 84 OM, Luftpostzuschlag 12 OM).
Ul
Das Abonnement verlangert sich urn ein Jahr zu den dann jeweils
"""'h gliltigen Bedingungen, wenn es nicht 2 Honate vor Ablauf schri~t­
C: lich gekUndigt wird.
..,
o
Ich bestelle folgende schon erschienene Exemplare von "Alles
UJ ~Ur Sharp Computer" (Stiickpreis 6 m1, Ausland 7 DM):
::r He~tnr.: ••• , ••• , ••• , ••• , •••
Po)
Alle Preise incl. 7 ~ Mwst.
..,
'0 Oer Gesamtbetrag von •••••• OH
n o liegt bar bei
o
3 o liegt als Verrechnungsscheck bei (schnellste Erledigung)
'0
o wurde am •••••••• auf das Postgirokonto der Fischel GmbH,
C Kontonr. 4615))-10), BLZ 10010010, Postgiroamt Berlin Uber­
r
(D wiesen (Bearbeitung nach Zahlungseingang)
..,
o liegt (nur bei kleineren Betragen) in Briefmarken oder
internationalen Antwortscheinen bei.
::r:
1)
"""'h
rt
f-'
Name, Vorname •••••••••••••••••••••••••••••••••••••••••••••
StraBe •••••••••••••••••••••••••••••••••••••••••••••••••••
o PLZ/Ort ••••••••••••••••••••••••••••••••••••••••••••••••••
UJ
(D
Datum,Unterschrift •••••••••••••••••••••••••••••••••••••••
,,", . Hir ist bekannt, daO ich diese Bestellung innerhalb von 8 Tagen
ri­ bei der Bostelladresse widerrufen kann. Zur Wahrung der Frist
m geniigt die rechtzeitige Absendung. Ich bestatige dies durch meine
zweite Unterschrift.
(Jl
f-'
Datum,Unterschri~t •••••••••••••••••••••••••••••••••••••••
I MPRESSUM
AII~~ rUr ~IMN~ C~_put~r
Die Zeitschrift fur al le An.ender und Freunde von SHARP-Co.putern
Organ des SHARP-User-Clubs Deutschland
Der Sit£ des Clubs ist Berl in, Konta~tadresse ist die FISCHEl G.bH
-Alles fur IIl.iliI,;-Co.puter- ist eine Clubzeitschrift, in der Software. lIardllare
und Hard~are-Erlleiterungen fur SHARP-Co.puter vorgestel It lIerden.
Die vorgestellten Produ~te konnen sOlUohl von privat als auch aus de~ GCllerbe
sta••en.
Redaktion : Bernd Fischel
Chefreda~teur: Dr. Roger-Dorsch
-Alles Fur ~-Co.puter- ~ird herausgegeben von der
FISCHEL G.bH
Kaiser-Friedrich-Stra8e 54a
0-1000 Be r I in 12
Bezugspreise: (Auslandspreise Luftpostzuschlag Einzelheft DM 1.-, i. Abonne.ent OM 12.­
Bestellschein am Ende der Zeitschrift
Sol Ite die Zeitschrift aus Grunden. die nicht vo. Verlag zu vertreten s i nd .
nicht gel iefert werden konnen, besteht ~ein Anspruch auf Nachl ieferung oder
Erstattung vorausbezahlter Bezugsgelder.
In den Preisen ist die gesetzl iche Mehr~ertsteuer in H6he ~on 7% enthaltcn.
in den Abonne.entspreisen auch die Versand~osten.
Bestellungen ni ••t die FlSCHEL G.bH. Berl in entgegen.
Ei nzelheft D~ 6.- (D~ 7.-); Jahresabonne.ent DM 72.- (OM 84.-).
in Kla••ern) kundbar 8 Nochen vor Ablauf des Abonne.entzeitraumes.
Die in ·Alles fiir mIIiD-Co.puter· ver6ffentl ichten Beitrage sind urheberrecht­
I ich geschiitzt. AI le Rechte, insbesondere das der Ubersetzung in fre.de Sprachen.
vorbeha I ten. Ke i r1 le i I d i eser Ze i tschr i ft darf ohne schr i f t I i che Gcneh­
.igun, des Herausgebers in irgendeiner ForM - durch Fotokopie. Mi~rofi I~ oder
andere Verfahren - reproduziert oder in eine von ~aschinen. insbesondere Datenverarbe
i tungan Iagen, ver~endbare Sprache ubertragen ~erden. Auch die Rechte
der ~ieder,abe durch Vortrag. Fun~- oder Fernsehsendung, im Magnettonverrahren
oder ahnl iche. We,e bleiben vorbehalten. Fotokokpien fiir den personl ichen oder
sonstigen eigenen Bedarf durfen nur von einzelnen Beitragen oder lei len daraus
als Einzelkopien hergestellt ~erden. Jede i. Bereich eines ge~erbl ichcn
Unterneh.ens hergestel Ite oder beniitzte Kopie dient ge~erbl ichen Z~ecken ge•.
§54 (2) UrhG und verpf I i ch tet zur Geb·iihrenzah I ung an die F I SCHEL Gin bH.
von der die einzelnen Zahlungs.odal itaten zu erfragen sind.
Sa.tliche Ver6ffentl ichungen in -Alles Fur ~-Co.puter- erfolgen ohne Beriicksichtigung
eines eventuellen Patentschutzes. auch werden Warenna.en ohne
Ge~ahrleistung einer freien Verwendung benufzt.
Vertrieb : IPV Inland Presse Vertrieb GmbH
WendenstraOe 27-29
200

PISCHEL
BETRIEBSWIRTSCHAFTlICHER 8ERATUNGS- UNO PROGRAMMIERDIENST
6MBH
~if
~ntfrnf~mfnsbfrtttun9
SOFTWARE-RECHT
Q cc cc c 0 Cl ca
ac:a Q g Q g ClCClQOaCDD
D ClIClIg Qaczoc::r OQCOQ
l:acaCla ..... Cll:lt::IaacQQ
aDQr:::::::::::2ocat::::::l tolco oaQ
SHAll'
Die Bestl....ce. d•• Urhe.er- uad
I.ttbe..r'.rechts rur CO.D.ter-~ro.r••••
e[I •• '''lc.t1.HMr. hr all..... S.ft••r. ".rate11...
t ••fa• ....r ••rt••f •• 1
UlIsl'r-ffiluh illl'U isrq lnnb
[[CJJUR~H IDHFlIDURMllFdlTW[(QJJW V'Offi1H
DIPL-KFM. 8.FISCHEl·KAISER-FRIEDRICH-STR.54A·10008ERlIN 12·TEl.(030) 32360 29
Ber 11. 1"4
Dr. Ro..!r Dorscb
8cr.d Flscll.1
1S8!'4 l-!24:J27-0:J-3
.S!'=..",
seite 52 Alles fUr Sharp Computer Heft 10