Download (7333kb, 52 pages) - The Sharp MZ-Series
Download (7333kb, 52 pages) - The Sharp MZ-Series
Download (7333kb, 52 pages) - The Sharp MZ-Series
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
§ of tLU or f<br />
llhlperu.rare Nr.11 DM 6,- OS 50,SFR 6<br />
1fij u r bw n r r<br />
Allrz fur <br />
SHARP <br />
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••<br />
Das Magazin fUr Soft- und Paperware und Hardware-Erweiterungen<br />
Organ des ~~~~~ -User-Clubs<br />
Ueutschland<br />
• • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • •<br />
• • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • •
I N H A L T S V E R Z E I C H N I S: <br />
Seite:<br />
2 Inhaltsverzeichnis<br />
3 Transdata (Apple/<strong>Sharp</strong>)<br />
4 PC-xxxx: Tools<br />
5 Kleinanzeigen, PC-1500 INTERN, Anzeige<br />
6 PC-1500(A): Knobel-Becker, Buchprojekt<br />
7 PC-01500(A): Spiele, Cassetten-Service, Mapro-Quer-LList<br />
8 PC-1500(A): Mapro-Quer-Llist HEX-Dump<br />
9 PC-1500(A): Eingabe von Daten (mehrstellig) mit Zeitvorgabe<br />
10 PC-1401: Kalenderprogramm (Schaltjahrkorrektur), PC-1251:<br />
Laufschriftprogramm, PC-1245: Programmieraufgabe im Spielkasino, PC-1500A:<br />
Selbstplot<br />
11 PC-1500A: Time-Management (Such-Anfrage), Stundenplanprogramm<br />
12 PC-1500(A): Eieruhr, PC-1251: Hauskaufberechnung<br />
13 PC-1500(A): Erstellung eines Zeichens<br />
14 PC-1500A: Ausschalten bei beliebigen Tastendruck<br />
15 PC-1500A: Nachtrag zum Programm ttScrollen eines Textes tt , DATAGRAM mit<br />
externer Drucker, z.B. CE-515P/516P<br />
16 PC-1500A: Operative Bauleistungskontrolle (Branchen-Software), PC-1421:<br />
kompl. Zeichen- und Befehls-Satz, Die Adressen der Standardvariablen<br />
17 PC-1500(A): supertape, Neues zur PC-1500 Hardware<br />
18 PC-1401/02: kl. Fehler, Der <strong>Sharp</strong> in deiner Hand, Komponieren mit dem<br />
PC-1401/02<br />
19 PC~1500: Mathematik<br />
20 PC-1500(A): Linke Halfte der LCD-Anzeige; <strong>The</strong>rmometer Scala Plot, PC-1350:<br />
Formeln eingeben durch Input<br />
21 PC-1260/51: AWELE Strategiespiel<br />
22 PC-1260: Eisenbahnfahrt<br />
23 PC-1500(A): Ende der Welt<br />
24 PC-1247/45/51/1401: Ruhezeit nach FernflUgen<br />
25 PC-1500(A): Grafische 3-D Balkendiagramme<br />
26 PC-1245/51/60/61 Acht Damen auf dem Schachbrett<br />
27 PC-1260/61: bewegliche Feiertage, PC-1500: Gute-Tips<br />
28 PC-1401: betrifft Submariner und Super-Mathe, PC-1260/61: Kalenderprogramm<br />
29 PC-1500(A): <strong>The</strong>rmometer Scala- und Grafikplotporgramm<br />
30 PC-1500(A): Elektrotechnik, Hardcopydemo, Labyrinth, Golf-Spiel<br />
31 PC-1260/61: geandertes Soundprogramm, Renumber<br />
32 PC-1401: Textverarbeitung: PC-1500 Plots<br />
33 PC-1401: Senso, Telefon-Uhr mit Grafik, PC-1251: Geometrie-Berechnung<br />
34 PC-1245/51: Grafik-Spielprogramm SKY BREAKER, Laufschriftprogramm<br />
35 PC-1500: AWARI-Spiel<br />
36 PC-1251: Lottozahlen<br />
37 <strong>MZ</strong>-80B: RAM-Floppy, neue Software<br />
38 <strong>MZ</strong>-80B: Aktienverwaltungsprogramm (kommerzielles Soffwarepaket)<br />
39 <strong>MZ</strong>-80K/A: Auswertung der Fragebogenaktion, PC-5000: Text5000,<br />
Software-Angebot<br />
40-44 <strong>MZ</strong>-700/800: professionelle Programme<br />
45 <strong>MZ</strong>-700: Hardware-Angebot, <strong>MZ</strong>-800: Hardcopyprogramm mit 200x320 Grafik<br />
46 <strong>MZ</strong>-700/800: PreisUbersicht, Digit Drum 700, BUcher: Schachprogrammierung,<br />
BASIC<br />
47 PC-1500(A),-1350,-2500, <strong>MZ</strong>-700/800 groBes Anwender-Software-Angebot<br />
50 BASIC-Lehrbuch fUr <strong>Sharp</strong> Computer, Infothek<br />
51 Bestellschein-Abonnement, IMPRESSUM<br />
<strong>52</strong> Neue Literatur fUr Computer-Anwender<br />
- Bitte richten Sie nur schriftliche Anfragen oder Bestellungen<br />
an die Fischel GmbH.<br />
- Bitte geben Sie immer die Bezugsguelle (Heftnummer und Seite)<br />
mit an, sonst ist kaum eine einwandfrei Bearbeitung mbglich.<br />
- Wenn bei Produktbesprechungen die Anschrift des Lieferanten<br />
fehlt, dann richten Sie Bestellungen an die Fischel GmbH.<br />
Seite 2 Alles fUr <strong>Sharp</strong> Computer Heft 11
Nie mehr <strong>The</strong>a.ter durch <br />
Jetzt ist es IYIOQ1ich: Geben Sie Ihre SHARP<br />
SoftloJare auf deri1 APPLE komfortabel ein,<br />
speichet-n Sie schne11 und sicher auf Disk,<br />
und Ubertragen Sie dann Ihr Prograrrlrrl in<br />
Ihren SHARP PocketcoMPuter. . . .<br />
Nie nlehr Arger mit derll Cassettenrekordet-,<br />
kein langes UMspulen und Suchen !<br />
- TRAHSOATA ist einfach und prob1erl110s in<br />
del'" Bedienung, da vo11standig menueqesteuert<br />
geqen Feh lbedienung abgesichert<br />
- del'" GA~lE- I/O Port b 1eibt unbenutzt, daher<br />
kein dauerndes Urllstecken von .JOystick<br />
oder Koala-Pad und dem Rechnet-<br />
interface.<br />
- Erzeugen von Standat-t DOS 3.3 Textfiles<br />
und damit vol1e KOlYlpatibilit..§t mit a llen<br />
APPLE Utility-ProgralYllYlen<br />
- Problel'l11oses Ausdrucken ~}on 80-Zeichen<br />
Prowal'l11Y11istin.9..s auf IhreM Centronics<br />
Drucker am APPLE<br />
- Disassembler XDIS fur SHARP- bzw. PKS<br />
Code wird mit.geliefet-t<br />
- l'I'Iit RENUMBER-Pr09ralYll'I'I fur SHARP-BASIC<br />
Programme und Belspie lsoftware<br />
- Sehr ausfuhrliches. bebildertes Handbuch<br />
in Deutsch! .<br />
- 100% sichere Datenubet-tt-agung vom und<br />
ZUI'I'I SHARP-Rechner<br />
- Interface l'I'Iit ver901detet- Steckerleiste,<br />
daher keine Kontaktschwierigkeiten!<br />
- Auch mit nul'" einem Laufwerk ist ein be<br />
. quemes Arbeiten ohne I.)ie1 DiskettenwechseIn<br />
m091ich!<br />
- Lauft auch auf APPLE l'I1it nut- 48 K RAM<br />
und speichert und U~dt Files bis 16 KB<br />
- Kein Pt-ogra~lMteil iM SHARP, daher 1\1it<br />
a ller SHARP Software vertr.§glich !<br />
- DirektL4berspielung VOIYI Casset.tenrekordel'"<br />
in den APPLE moglich<br />
- aut.orqatische Erkennung ob BASIC oder<br />
t1aschinenspr achept-ogr amm <br />
- Totalgarantie 6 Monate auf alle Teila <br />
von TRAHSDATA <br />
rllit. einel\l odetzwei<br />
Lauf"werken !<br />
Speichern Sie schne11 und be~ue,",l die Pro<br />
91'"aMMe und Oaten Ihras SHARP Pockat.coMput.et-s<br />
auf del\l APPLE ab. Abso lut f eh lerf'reie<br />
Abspeicherunct durch .3utomat.ische<br />
Feh leret-kennun9 urid Kot-rekt.ur !<br />
Kein zusatzliches PrOQral'l1M il'l1 SHARP PC. so<br />
dan die vo lle Speicherkapazit.at. erhaIt.e·n<br />
bleibt! Sanlt liche fur die SHARP PC's et-ha 1<br />
t licha PrOgraMMa konnen<br />
lYIit TRAHSDATA ab-'<br />
I<strong>Sharp</strong> I ~I 9~speichert. und wieder<br />
elnge laden loJet-den !<br />
Naturlich auch fur<br />
Maschinenspr ache geei:~ne~<br />
!<br />
Fur die TyDEm PC 1401,<br />
SHARP PC PC 1402, Pt 1260,<br />
PC 1261, PC 1350 und<br />
als Sonderversion auch PC 2500.<br />
BEVOR SIE DER<br />
CASSETTEN-REKORDER<br />
ZUR RASEREI<br />
BRINGT+++++<br />
Kennen auch Sie das Pt-ObleM<br />
mit del'" PrograIYlMSUche<br />
auf det- Cassett.e ?<br />
Lan9wieriges UM~ulen lmd<br />
Suchen Mit deM Zahler.<br />
Und dann zum X-ten Male<br />
del'" verflixte ERROR 8 weil die Casset. t.e<br />
nicht mehr einwandfrei ist...<br />
Oeshalb: Steigen Sie UI'l1 auf TRANSOATA das<br />
PrograMM Mit del'" 100%igen Sichet-heit ,jut-ch<br />
autoMatische Fehlererkennung beiM Abspeichern<br />
und Laden von Prograrttmen und<br />
Daten l'I1it IhreM SHARP Pocketcomputer !<br />
Komfortables Eingeben<br />
und<br />
Editieren<br />
),l=~!1!:Y:::::::::::::::~:~:<br />
~~Z~~HHm~~<br />
~!iiiiiililii!!!!I!;I!~illll~!II!I!I!<br />
i~:~~g~~I~!~!~<br />
PrograMMen !<br />
TRAHSDATA enl'loglicht den Einsatz eines<br />
norl'l'la len T exteditors auf del'l'l APPLE ZUI'l'l<br />
bequemen Eingeben ~)on BASIC-PrograMl'I1en<br />
mit groJ3er T astatur fur Ihren SHARP PC !<br />
******************** <br />
TRANSDATA<br />
Auch die an fl~r<br />
sich gute Tastatur<br />
des SHARP<br />
hat. ihre Grenzen<br />
bei der Ein-<br />
kamplett<br />
mit:<br />
Progt-aMl"ll TRANSDATA, Disassembler XDIS,<br />
RE~~UMBER und· Beispie lpt-ogrammen<br />
ausfl~hrlicherq Handbuch rl'lIt. Beispie len<br />
und Intet-face APPLE-SHARP<br />
- 6 ~lonate Gal'"antie <br />
nur · DM 89.00 incl. 14%<br />
******************** <br />
Ein Qua.litatsprodukt van<br />
YELLOW-COMPUTING ! <br />
MADE IN GER~lANY<br />
MwsT.<br />
Seite 3
fJ<br />
(!)<br />
»»»»»»»««««««««««<<br />
.....<br />
rt<br />
(!)<br />
So-t'"t""2!!!I.re -rUr SHARP - Pocket - Computer<br />
~ »»»»»»»»>«««««««««<br />
:P<br />
I--'<br />
MMMMMMM Di e Ravo ~ ut i on Too ~ MMMMMMM<br />
I--' <br />
(!) Endlich kann .an .it den SHARP - Taschenco.putern vernUnftig arbeiten, <br />
fJJ denn sie werden jetzt ko.fortabler als .ancher Personalco.puter!!! <br />
Wie? Ganz einfach durch Too ~ (auf deutsch -Werkzeug-). <br />
"'i;<br />
C: Too ~ .ist ein Progra••paket das .an wirklich als ·Werkzeug- bezeich<br />
'1 nen darf, ohne da.it zu Ubertreiben. Too ~ ist kinderleicht zu<br />
bedienen, sowohl vo. blutigen Anfanger als auch vo. Profi.<br />
rfJ Too ~ ist MenUgesteuert, dadurch kann .an das ausfUhrliche Handbuch<br />
~<br />
schon nach ganz kurzer Zeit zur Seite legen.<br />
~<br />
I. Folgenden wird nun eine Obersicht der Moglichkeiten von Too ~<br />
'1<br />
'0 dargestellt:<br />
(1 1) Die Progra••verwaltung (PGV)<br />
o<br />
a<br />
Die Progra••verwaltunger.oglicht de. Anwender, bis zu 255 Progra••e<br />
'0 unabhangig voneinander i. Rechner zu verwalten!! Die Progra••e durfen<br />
C beliebige Zeilennu••ern haben, d.h. jedes Progra•• kann beispielswei~e<br />
rt die Zeilennu••er 10 usw. enthalten, trotzde. kann jedes Progra••<br />
(!)<br />
unabhangig von den anderen editiert und bearb~itet werden!!<br />
'1 Weiterhin kann jedes Progra•• einzeln abgespeichert, zugeladen oder<br />
geloscht werden!<br />
::r:<br />
(!) <br />
"'i; 2) Renu.ber (REN) <br />
rt Renu.ber er.oglicht ein beliebiges U.nu••erieren der einzelnen <br />
Progra••e die i. Rechner enthalten sind. Die Progra••e konnen natur<br />
I-'<br />
I-'<br />
lich unabhangig voneinander u.nu••eriert werden. AuBerde. kann der<br />
Bereich der u.nu••eriert werden solI frei ausgewahlt werden. Das<br />
heiBt, daB nicht i ••er das ko.plette Progra•• u.nu••eriert werden .uB.<br />
Achtung: Renu.ber nu••eriert natUrlich auch a. ~ ~ e Sp rUn g e<br />
hinter GOTO, GOSUB, Restore usw.•it!r Renu.ber ist auBerde.<br />
b 1 i tzschne11.<br />
3) Zeilen-Save-Delete (ZSD) .it Link und Split<br />
ZSD ist i. Prinzip noch eine Erweiterung zu. oben genannten PGV. Hit<br />
ZSD kann .an innerhalb eines bellebigen Progra••s beliebige Zellen<br />
abspeichern. D.h .•an kann belsplelswelse ein Unterprogra•• aus eine.<br />
BASIC-Progra•• heraus einzeln abspelchern und in ein anderes wleder<br />
einbinden. Genauso einfach ist es, .ehrere Zeilen auf ein.al zu<br />
loschen. Endlich entfallt d~s lastige Elngeben der einzelnen<br />
Zeilennu••ern .it anschlieBende. DrUcken der ENTER-Taste. Mit Delete<br />
kann .an beispielsweise 30 Progra••zel1en in Sekundenschnelle BUS<br />
eine. Basicprogra•• herausloschen!<br />
Allein .it den drei oben beschriebenen Progra••en eroffnen sich de.<br />
Progra••ierer schon ungeahnte Moglichkeiten, zu. Belspiel:<br />
Man hat viel1eicht 17 Basicprogra••e i. Rechner. Jetzt kann .an z.Bsp.<br />
Progra•• Nr.5 herausloschen, Progra•• Nr.8 u.nu••erieren, Progra••<br />
Nr.15 durch Zusatze erweitern, i. Progra•• Nr.2 die Zeilen 113 bis 275<br />
abs peichern, das Progra•• Nr.10 bei der Progra••zeile 350 in zwei<br />
unabhangige Progra••e aufsplitten, Progra•• Nr.13 und 14 zu eine.<br />
groBen Progra•• verbinden und und und ...<br />
Allerdings ist In To 0 ~ noch .ehr enthalten:<br />
Z.Bsp. die Schutzfunktion (SCH) .it der .an al1e Passworter auBerkraftsetzen<br />
kann, oder der OLD-Befehl (OLD), der Ihnen versehentlich<br />
geloschte Progra••e so fort wieder zurUckholt. Ihr Progra•• ist danach<br />
wieder voll list-, lauf-, save-, und editierfahig. Oder das Progra••<br />
NAME (NAM), .it de. er.oglicht wird, den Na.en der auf Cassette<br />
abgespeicherten Progra••e zu lesen. Und nicht zuletzt noch ein<br />
Hex.onitor (MON), der de. Maschinenspracheprogra••ierer eine groBe<br />
Hilfe sein wird. Je nach Rechner wir entweder der Micro.onitor oder<br />
der BIG-Monitor (Hextool) .itgeliefert.<br />
Das Erstaunliche:· Alle oben beschriebenen Funktionen sind in eine.<br />
einzigen Maschinenprogra•••it ca. 3-4 KB Lange enthalten und werden<br />
nur ein.al in den Rechner eingeladen.<br />
To 0 ~ ist fUr folgende Rechner sofort lieferbar:<br />
PC 1 260 PC 1 350<br />
PC 1 421 PC 1 450<br />
PC 1 401 PC 1 402<br />
PC 2500<br />
Too ~ lauft auf den Rechnern PC 1350 und PC 2500 ohne eine<br />
spezielle Speichererweiterung, al1erdings ware es sinnvoll, wenn .an<br />
eine 8 KB oder 16 KB Ra. Karte verwendet, da Too ~ den ko.pletten<br />
internen Speicher von 3070 bzw. 3102 Bytes belegt.<br />
FUr die anderen Rechner.odelle (1260,1401/1402/1421/1450) ist Too ~<br />
nur in einer speziellen Speichererweiterung lauffahig. Das hat den <br />
Vorteil, daB Too 1 von den nor.alen Basic- und Maschinenprogra••en <br />
Uberhaupt nicht beeinfluBt wird, selbst bei ALL-RESET wird Too ~ <br />
nicht geloscht!!! <br />
Die Speichererweiterungen fUr diese Rechner kosten je 98. -D~_ <br />
Und nun zu. Preis von To 0 ~<br />
Too 1 kostet inc ~ _ Handbuch 98 .. -D~_<br />
In der Ko.bination Too~ -+ Er""eiterung sparen Sie volle<br />
47, -OM. Der Ko.plettpreis betragt de.nach noch 1 49 • -D~ -<br />
-----------------------------------<br />
Handleranfragen erwUnscht.<br />
Anfragen richten Sie bitte an die FISCHEL-G.bH.<br />
Und hier noch eine kleine Preissensation<br />
1 6 K BRa.m - K a. r t e fUr PC 1350, PC 1450 un d PC 2500 jetz t<br />
fUr nur 249. -D~ inel.Mwst. so fort lieferbar.<br />
Speichererweiterung fUr P~ 1 000 Schreib.aschine auf 9400 freie<br />
Stel1en fUr 59. -D~ lieferbar, Erweiterung bis ca. 17000<br />
Speicherplatze auf Anfrage!!!<br />
i ne 1 _ 14% MwsT_<br />
Die Moglichkeiten sind ohne Obertreibung Uberwaltigend.
~----------'i<br />
* <strong>MZ</strong> 700 * univers.32-Bit-TTL<br />
EIN-/AUSGABE-INTERFACE,z.Steuern<br />
vielf.Hardware (Relais,AD/<br />
DA-Wandler) mit Netzteil DM 198<br />
Dazu:EPROMER 2716-128,2516-64,<br />
incl.Betriebssyst.kompl.DU 178<br />
M&L-Maximini&Lichter,Hauptstr.<br />
la,5511 Mannebach,T.06581/3535<br />
~ 11' iuanzr igrn <br />
<strong>MZ</strong>-73 1 + Monitor + 3,5" Floppy fUr 1350, - DM, lA Zustand<br />
Josef Baum, Bahnhofstr.57; 4040 Neuss 22<br />
CE-155 u . erteines 26 KB-Modul fUr PC-1500(A) gegen Gebot<br />
zu verkaufen Tel . : 02361/43245 Nachm.<br />
PC-15mm: z.B. Speichererweiterung<br />
I...tfTl :>A k E: (..'lb I C> " f~ Pd 'il + :'~':~,(H:::<br />
1·'1 C[)DE ....·P (::j r·/I Dtv1 ::::; Cl' El n . .. i r "i k :l. .. Fin 1:) a 1..1.<br />
Te l.: 046 1 /338 3 1 o d . 2 6943<br />
INHALTSVERZEICHNIS<br />
1. E1nfUhrunl e ••••<br />
2. PC-l500 Ra4-l1st1nl •<br />
3. Unterprotlra_ des PC-1SOO<br />
3. 1. Syntaxprilfungen • • • • • •<br />
3. 2. Loschen von Spe1cherberelchen<br />
3. 3. Transfer von Spe1cherbere1chen<br />
3. 4. Tastatur<br />
3. 5. LCD ••••••<br />
3. 6. Pr1nt ••••<br />
3. 7. Interpreter ••<br />
3. 8. Editor ...<br />
3. 9. Proaralllllspefcher<br />
3.10. Reservespelcher<br />
3.11. Variablen •<br />
3.1.2. Arithmetik '<br />
3.13. Sonst1ae<br />
4. lCurzlibers1chten der UnterprOlra_ nach<br />
.uhte1,enden E1nsprungudrenen sort1ert •<br />
5. Der Ed1 tor des PC-1SOO ............. <br />
5. 1. lbleftung der Efngaberoutlne - Progralllllbelspfele<br />
6. Das Display-ProsrlUlll des PC-1SOO ......<br />
7. Arbeltswefse des PC-1S00 Basle-Interpreters ••<br />
8. I..,le.entferuns von Baslc-Erweiterungen ••<br />
8. 1. Erwelterung fm Beretch (0000 - 6800)<br />
8. 2. Erwelterung lm Bereich (8000 - FFFF) ••<br />
9. Der USER-Interrupt des PC-1SOO ....<br />
10. EXTENDED-BASIC - Des PC-1SOO Software-Projekt •<br />
8<br />
15<br />
253<br />
255<br />
259<br />
262<br />
269<br />
271<br />
274<br />
278<br />
283<br />
286<br />
288<br />
291<br />
294<br />
295<br />
299<br />
309<br />
312<br />
318<br />
322<br />
326<br />
332<br />
339<br />
342<br />
346<br />
A)<br />
1.<br />
1. 1.<br />
1. 2.<br />
2.<br />
2. 1.<br />
2.2.<br />
3.<br />
FUr das Buch PC-1500 Intern gelten<br />
folgende Preiskonditionen:<br />
Bestellungen Inland<br />
Bestellung mit Vorauskasse:<br />
Verrechnungs- oder Euro-Scheck:<br />
Bestellung per Nachnahme<br />
Bestellungen Ausland<br />
Bestellung mit Vorauskasse:<br />
Euro-Scheck (in OM)<br />
Verrechnungs-Scheck<br />
Bestellung per Nachnahme<br />
gebundener Ladenverkaufspreis<br />
SCHUEKER<br />
PC-1S00<br />
INTERN <br />
Kommentlertea<br />
Betrtebuyatem<br />
Unterprogrammbeachrelbungen<br />
Baalc-<br />
Erwefterungen<br />
Editor-<br />
ErweItenmgen<br />
61,-- OM<br />
64,-- OM<br />
62,-- ~<br />
69,-- DfII<br />
(nach Aufwand)<br />
59.-- OM<br />
incl. 7 % MwsT.<br />
SPORTSCHUHE & BEKLEIDUNG<br />
.............~·F...--<br />
s~J>.fl.~<br />
,~ _~ ~ (\ t!.,<br />
pfalzburger str. 79<br />
1000 berlin 15<br />
~030/8823301<br />
uwe<br />
jackisch -.q<br />
ohlrogge ......<br />
®<br />
Alles fUr <strong>Sharp</strong> Computer Heft 11 Seite 5
SHARP PC 1500(A)<br />
C/J xxx fur SHARP PC 1500(A) XXX<br />
BUCHPROJEKT<br />
(J'J bei wieviel Gewinnspielen das Prg. beendet werden solI. (ENTER)<br />
CD<br />
...., Nachdem Sie das Listing eingegeben haben, konnen Sie das Prg••it<br />
It OEF A oder RUN starten. Nach .der Vorspannzeremonie erscheint die<br />
CD<br />
Frage "Ihr Vorname 1" eingeben (ENTER). Oanach konnen Sie bestimmen<br />
Nun erscheint das Spielfeld. (siehe Hard-Copy) Oer Sinn des Spieles<br />
liegt nun darin mit den beiden Wurfeln eine hohere Summe zu<br />
:l> erzielen wie die des Computers. Hit den Tasten 1-9 konnen Sie die<br />
f-'<br />
f-'<br />
Anzahl der Wurfeldurchgange bestimmen. (INKEY$-Funktion) Haben<br />
CD Sie oder Computer die Zahl der Gewinnspiele erreicht, so ist das<br />
(fJ Prg. beendet. Viel SpaS beim tippen und spielen. (c) S.N. 85<br />
Hard-Copy Knobel-Becher fur SHARP PC 1500(A)<br />
'"1)<br />
..., c: 1.st Buchstabe Vorname<br />
Punkte Spieler Wurfel Spieler Computer<br />
C/J<br />
::r<br />
Q.l<br />
...,<br />
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx<br />
Haben Sie Anregunsen oder Probleme, so schreiben Sie an Fischel GmbH<br />
~------- ------- .. -.- --..--. -----_.-<br />
~~<br />
tu<br />
[ID~0g]~ C<br />
B <br />
(') <br />
:t'<br />
~ §<br />
~<br />
~<br />
o<br />
...<br />
CIl<br />
o Betrifft:Buchprojekt fur SHARP PC<br />
I-' Sehr geehrte Damen und Herren, <br />
~<br />
It sehr geehrte PC 1500(A) Besitzer ! <br />
::s<br />
Es ist geplant ein Buch fUr den<br />
CIl<br />
.... SHARP PC 1500 zu Veroffentlichen.<br />
(I<br />
Folgende <strong>The</strong>men sind geplant:<br />
::s unter Vorbehalt<br />
....<br />
n<br />
:t LCD-Grafik<br />
t+<br />
Aufbau LCD Grafik<br />
....<br />
a LCD-Figuren entwerfen<br />
~ bewegte Grafik<br />
H<br />
:t Menue-Steuerung und Tasten<br />
~<br />
It ubersichtliche Henue's<br />
a<br />
div. Prg.-Beispiele<br />
6 8El<br />
~ ~<br />
~ BB I=<br />
'0 17a:WAIT a:BEEP 1: 280: "EIN"A=ASC 430:IF P=GWCLS :<br />
1Ia: "A"CLEAR : DIM PRINT "Ihr UOr' INKEY$<br />
~<br />
BEEP 3: WAIT 20<br />
W$(5): P$="1a<br />
name ": CURSOR 1 290:IF ~)48AND An<br />
;UN$jCHR$ g.7F; PRINT X$<br />
1I1i'<br />
INKEY$<br />
8El§JElITl o deutscher Zeichensatz selbst gemacht<br />
112:W$(S)="7F41555<br />
"P." ; P$ 370:GCURSOR 54: 480:IF A=78CLS<br />
~=-<br />
~ g<br />
555417F"<br />
Listing dt. Zeichensatz<br />
220.: GCURSOR 4B: GPR INT W$ (Wl ),<br />
GOTO "ENDE"<br />
~I It<br />
12~:WAIT 0:FOR 1=1 PRINT CHR$ g.7F W$(W2)<br />
0B88 nn GroB- und Kleinschreibung automatisch<br />
4913: IF A=74CLS :<br />
o ::s<br />
55TO 1STEP -1: j :GPRINT W$(Wl 380:GCURSOR 124:<br />
BEEP<br />
GOTO "A"<br />
... a BEEP-Effekte<br />
1, I, 10: ), W$(W2) GPRINT W$(Cl),<br />
Vl'tJ<br />
GCURSOR<br />
500: GOTO "EN 1"<br />
ElITJ~(S]E1 III<br />
oc<br />
I:<br />
231a:GCURSOR 70: W$(C2)<br />
o allgemeines zu BEEP<br />
o~<br />
GPRINT W$(0),W<br />
510: "ENDE"FOR 1=15<br />
>It<br />
PRINT CHR$ g.7F 390:NEXT I III Sound-Effekte<br />
$ ( 1 ), W$ (2), W$ (<br />
STD 24STEP -1:<br />
; ''C'' j CHR$ g.7F j 400: IF (Wl+W2»=(C<br />
[!l~[£][2JOO<br />
~ (')<br />
3), W$(4), W$(5)<br />
BEEP 1, I, sa<br />
:t<br />
Listing Sound-Maker zum Erstellen von<br />
"P. " ; PC$ j CHR$ I+C2)LET P=P+l <br />
~<br />
<strong>52</strong>0:GCURSOR<br />
Melodien (viele Funktionen)<br />
I:<br />
CD<br />
, "0e7F" g.7F :P$=STR$ p: <br />
PRINT .' (c) Sve<br />
....<br />
:32:NC::XT I 241a:GCURSOR 124: BEEP 1,25,255<br />
0<br />
Tips und Tricks<br />
142:A$="Knobel-Bee<br />
n Ni mS9arn":<br />
lD<br />
GPRINT W$(Cl), 410: IF (Cl+C2»(Wl<br />
her"<br />
NEXT I<br />
::s Zeile ~ implizieren<br />
W$(C2) +W2) LET PC=PC+<br />
150:WAIT 15:FOR B=<br />
53a:WAIT 10:FOR 1=<br />
III<br />
List-Schutz 1/11<br />
250:GCURSOR 140: l:PC$=STR$ PC: ITO 10:GCURSOR<br />
::s PaBwort-Prg.-Schutz<br />
1TO 13:BEEP 1, PRINT CHR$ g.7F BEEP 1,50,255<br />
8+20,10:<br />
3a:PRINT "e":<br />
/ ·-·--· C--- <br />
'Z:I NEW programmgesteuert<br />
:GCURSOR 146: 420:GCURSOR 30:<br />
BEEP 1,25, 10<br />
H<br />
GC URSOR 50: CIl<br />
RESERVE-Ebene als Prg.-Speicher<br />
PRINT X$ PRINT Ps;:<br />
PRINT LEFT$ CA<br />
540:WAIT 10:<br />
4i~l-!J~ ~;3~ {~ (') ON ERROR GOTO 111<br />
260:GCURSOR 1<strong>52</strong>: GCURSOR 100:<br />
$, 8 ):NEXT B<br />
GCURSOR 30:<br />
PRINT CHR$ g.7F PRINT PC$<br />
'tl·r.ijD, .ot! r\)j ~" lt ) J == tz:I<br />
PRINT ., ": BEEP<br />
160:WAIT 10: FOR 1=<br />
~ ,,5 1 ~ Ic./i.'~ ~<br />
r< !!!i!!:!!<br />
270: "COMP"RANDOM<br />
1TO 2a:BEEP 1,<br />
1,15,10<br />
ROM Info<br />
RND 255, 10:BW=<br />
550:NEXT I<br />
~<br />
0<br />
INT CRND (0)*6 STATUS 1 <br />
560:END<br />
Drucker<br />
==<br />
):CURSOR 23: 1682 <br />
Breitdruck,Telefonnotiz••••••••••••••<br />
GPR.INT W$(BW):<br />
NEXT I (c) S.N. 85
:I;><br />
~<br />
~<br />
SHARP PC 1500(A) <br />
Betrifft: SHARP PC 1500(A) LCD-Grafik-Spiele<br />
Sehr geehrte PC 1500(A) Besitzer I<br />
Die drei nachfolgenden Prg. (siehe Hard-Copy) sind hervorragende<br />
LCD-Grafik-Spiele mit ausgetliftelten Sound- und bewegten Figurentechniken.<br />
Die bewegte Grafik begeistert jeden PC 1500(A)<br />
Besitzer. Jedes Prg. hat mindestens J Spielstufen mit unterschiedlichen<br />
Grafiken. Der Spielwert ist ala fantastisch zu<br />
bezeichnen. Die drei Prg. "PCs CAR CRASH","SKY-FIGHTER" und<br />
"DROLLY-JUMPER" zeigen Ihnen, was wirklich in Ihrem SHARP PC 1500(A)<br />
steckt.<br />
Hard-Copy der drei Programme<br />
IAI Jt.•-1 ••••• .=. : ~I[ t=-I..IP I: I.,. 1 ~ ·t I<br />
m I....·......· ..:p-+ ............·1HI.) .111IE· ..:-t[]<br />
rjJ<br />
"i'l<br />
., c:<br />
CJ).<br />
::r<br />
i IY I CD ~ l m • '«dUll (1 I<br />
.,<br />
'0<br />
() Die drei LCD-Grafik-Spiele Clir den SHARP PC 1500(A) konnen Sie<br />
o komplett mit Anleitung,Porto und Verpackung auC einer Markencassette<br />
3 per Nachnahme oder Vorkasse (z.B. Verrechnungsscheck) zum Preis<br />
'0<br />
C von ~ J5.-DM bei der FISCHEL ,GmbH.Kaiser-Friedrich-Str.54a , S N (8 )<br />
M 1000 Berlin 12 bestellen. 1 ne 1. 14% MwsT. •• 5<br />
Clir Hexmonitor und<br />
ṃ,<br />
::r:<br />
-· , - - •• t t - t- ' .-. - t- 1 1 ·1 - <br />
1 w· t .:::. :::. 1;; · .. J::I 1-.:. J;:I ••• 1_.1:."<br />
MAPRO-Quer-LLIST<br />
m Sehr geehrte SHARP PC 1500(A) Besitzer I<br />
"i'l<br />
M Mochten Sie nicht die ellenlangen Dumps der Prg. MAPRO-Hexmonitor<br />
und -Quer-LLIST eingeben, so konnen Sie die Prg. flir verschiedene <br />
I--' Speicherbereiche (PC 1500A &7XXX u.a.) bei der FISCHEL GmbH auC <br />
I--' Cassette mit InCos zum Preis von 25.-DM bestellen. S.N.(85)<br />
CJ).<br />
m<br />
~.<br />
M<br />
m<br />
...-.J<br />
~IJet F I ~:;I::HEL nicht kennt,<br />
(:let- 1-1 IJ. t. (:I i e Welt verpennta<br />
SHARP PC 1500'A) <br />
MAPRO-(Jue~-LLIST<br />
BetriCCt: MAPRO-Quer-LLISTer aus HeCt 4/85 Seite 28<br />
Die Redaktion erhielt viele LeseranCragen zu diesem Programme<br />
Ich habe mich nun dieses <strong>The</strong>mas angenommen und das Programm<br />
in einen Speicherbereich umgeschrieben, so daB es auC alIen<br />
Rechnern lauCCahig ist. (&J8c5-&4~~~ Standart-RAM beim PC 1500)<br />
Das Programm belegt folgende Adressen &JCF~-&JFF8. Das untenstehende<br />
Programm wurde mit dem Quer-LLISTer ausgedruckt. Der Druck<br />
erColgt bidirektional.<br />
Das untenstehende Programm untersttitzt die Eingabe von Maschinen<br />
Programmen. Der Start erfolgt mit DEF A. Danach erColgt die<br />
Abfrage nach der ersten Adresse:? Sie konnen diese in Hexoder<br />
dezimaler Form eingeben. Danach sehen Sie wie HARD-COPY<br />
die Colgende Anzeige. Folgende Funktionen stehen Ihnen noch<br />
zur Verfligung. (-) eine Adresse zurlick, (+) eine Adresse weiter,<br />
(E) Programm beenden. (ENTER)<br />
Hard-Copy MAPRO-Eingabe<br />
_y lID ....<br />
~ ~ .o~n~~ (~<br />
IAUr eJs • .;x=-O.....J . ~<br />
derzeitige Adresse Speicherinhalt der Eingabe wird in<br />
Adresse hex. Form erwartet<br />
Wenn Sie die entsprechende Speicherstelle nicht verandern wollen, <br />
so drlicken Sie einCach ENTER und Sie gelangen zur Nachsten. <br />
Programmlisting MAPRO-Eingabe<br />
HI "A"CLS :WAIT lS0:BEEP 3:CURSOR S:PRJNT CHR$ &7Fj"MAPRO-Eingabe"iCHR$ &7F<br />
20 WAll 0:BEEP 1:PR1NT "er'ste Adr'esse:"i:1NPUT 11:1=11<br />
30 B=PEEK l:A=JNT 9LET A=A+7<br />
50 IF 8>9LET B=8+7<br />
60 A$=CHR$ (A+48)+CHR$ 9LET A=A-? <br />
200 IF 8)9LET 8=8-7 <br />
210 POKE 11, A*16+B<br />
220 Il=11+1:I=J1:GOTO 30<br />
230 REM SVEN NIMSGARN<br />
240 REM FINKENR1ED 4d<br />
250 REM 2000 NOROERSTEDT<br />
D08<br />
Prg. MAPRQ_911ftr_LLIST wird mit CALL &1CF!!1 gestartet<br />
S.N.85
MAPRO-Quer-LLIST HEX-DUMP<br />
Hex-Dump Cur SHARP PC 1500(A)-HAPRO-LLIST<br />
Abspeichern mit CSAVE M"LLIST"j&1CFiS,&1FF8<br />
3E70 6A 48 9E 0E FO lA A5 77 += 13391<br />
3£78 73 28 EO 77 58 131 8B 04 += 02F7<br />
3£80 B5 08 A2 28 EO 77 65 131 +=<br />
3CF0 BE 00 80 B5 01 AE 79 F2 += 0400<br />
0351<br />
3E88 88 07 85 01 AE 77 69 6A +=<br />
3CF8 DD AE 79 F4 BE 3F 50 CO += 051F<br />
0340<br />
3E90 4F 24 FO OA FO 98 56 FD +=<br />
3000 12 58 77 5A 50 45 28 45 += 0230<br />
0532<br />
3E98 A8 A4 26 81 04 8B 46 83 +=<br />
3008 2A 44 FO 88 CO 10 40 B5 += 03C5<br />
e34B<br />
3EA0 50 EO 77 68 01 8B 37 A5 +=<br />
3010 55 10 2A 58 78 5A C0 85 += a32E<br />
0384<br />
3EA8 77 73 B7 47 81 28 60 FB +=<br />
3018 20 6E FF 8B 03 51 88 03 += 02F7<br />
e3EC<br />
3E80 24 A0 B7 28 81 2C A4 EO +=<br />
3020 48 77 4A 50 F5 5E C5 99 += 040A<br />
03El<br />
3E88 77 68 01 8B 137 EO 77 62 +=<br />
3028 05 B5 20 51 B5 3A 51 B5 += 0320<br />
13338<br />
3£C0 FF 8B 01 OF BE 3F 08 FO +=<br />
3030 20 51 FO 0A 45 B7 E0 81 += 13305<br />
e53C<br />
3038 0E 28 05 2A 44 FO 88 CD += a2F8<br />
3EC8 2A FO lA 24 56 OF 99 04 += 13337<br />
3040 1 C 02 B5 20 51 9E 15 B7 += 02AE 3E00 AE 77 69 BA 3D 9B EO 77 += 13484<br />
3048 00 51 99 18 6A 00 56 60 += 022F 3£08 <strong>52</strong> FF 99 2£ 9£ 2F B5 4F += 03F9<br />
3050 56 5C 78 99 06 5E C0 99 += 0380<br />
3EE0 9E 33 BE 3F B7 Fo 2A FO += 04AS<br />
3058 0A 24 62 AE 77 61 Fo 88 += 0398<br />
3E£8 lA FD 98 64 BE 3F 70 9E += 0428<br />
3060 E9 77 62 00 FO 98 B7 51 += 045F<br />
3EF0 88 ED 7) 68 01 8B 06 EO += 0303<br />
3068 81 14 81 50 AE 77 62 B5 += 0302<br />
3EF8 77 62 FF 99 18 FB 20 BE += 0462<br />
3070 01 AE 77 67 AE 77 65 B5 += 03CC<br />
3F00 3F 08 9E IF A5 77 65 AE += 04133<br />
3078 4F AE 77 61 8E 08 85 00 += 0320<br />
3F08 77 68 B5 eo A7 77 90 89 += 0308<br />
3080 AE 77 65 AE 77 57 EO 77 += 047A<br />
3F10 47 £9 77 90 00 B5 51 £0 += 042A<br />
3088 66 FF 8B 02 8E E5 EO 77 += a4CA<br />
3F18 77 66 FF 8B 15 EO 77 68 += 13448<br />
3090 58 01 8B 05 B5 08 8E 3F += 02B3<br />
3F20 131 8B 08 A5 77 73 83 06 += 02DC<br />
3098 08 FO lA A5 77 61 2A A£ += 0444<br />
3F28 AE 77 73 85 51 Ai 77 73 += 0429<br />
30A0 77 73 BE '3F AB B5 FF A£ += a4F4 3F30 8E 08 EO 77 62 FF 8B 132 += e3E8<br />
30A8 77 66 Fo 98 A5 77 90 DD += a4FB_ 3F38 B5 49 BE 3F B7 85 00 AE += 0415<br />
3F40 77 66 AE 77 58 BE 3F 50 +=<br />
3080 AE 77 90 B5 00 A7 77 57<br />
03C4<br />
+= 03EF 3F48 FO lA FO 0A B5 FF 137 88 +=<br />
30B8 88 07 85 0] A7 77 67 88<br />
0464<br />
+= 13358 3F50 133 BA 3D 131 BE De 80 9A +=<br />
30C0 03 8A 3F 04 A5 77 62 87<br />
e3A3<br />
+= 0335 3F58 B£ 3F 97 9E 15 85 FF AE +=<br />
30C8 49 81 0C 81 48 AE 77 62<br />
B4A9<br />
+= 0356<br />
3F60 79 E9 48 79 4A E3 85 00 +=<br />
3000 B5 01 AE 77 57 8E 08 OF<br />
0405<br />
+= 13387<br />
3F68 43 B5 CC 43 B5 00 43 0E +=<br />
3008 2A E9 77 67 00 8£ 02 5A<br />
13300<br />
+= 02E8<br />
3F70 BE A8 DD E9 79 E9 00 85 +=<br />
30E0 47 24 AE 77 73 FO A8 85<br />
0543<br />
+= 13450 3F78 04 BE 3F 87 9A 48 78 4A +=<br />
30E8 00 A7 77 90 89 34 EO 77<br />
035F<br />
+= 030C<br />
3F80 7F 57 0E BE A7 81 62 6E +=<br />
30F0 66 FF 88 04 B5 02 8E 0A<br />
e39A<br />
+= 0343<br />
3F88 00 89 01 9A FO A8 B5 132 +=<br />
30F8 B5 51 EO 77 69 FF 89 02<br />
03813<br />
+= 0450<br />
3E00 B5 49 8E 3F B7 8E 3F 50 += 040C 3F90 BE 3F 08 FO 2A 9E lA 48 += 03FC<br />
3E08 85 00 AE 77 90 AE 77 69 += 03F8 3F98 7S 4A E3 85 0C 43 85 EF += e44E<br />
3£10 85 0'8 BE 3F 3FA0 43 B5 00 43 B5 FF 0E 8E +=<br />
87 FD 2A FO<br />
03BB<br />
+= 0495<br />
3E18 lA EO 77 66 3FA8 A8 DD 9A 48 7B 4A 7F 55 +=<br />
FF 89 23 54<br />
04013<br />
+= 03E3<br />
3E20 8E 20 BE 3F 3F80 eE BE A7 81 88 08 9A FD +=<br />
97 EO 77 66<br />
041£<br />
+= 040C<br />
3E28 FF 88 02 8E IF EO 77 69<br />
3F88 C8 48 79 4A E5 85 01 43 += 0381<br />
+= 0406<br />
3E30 01 88 05 85 3FC0 43 85 F4 43 B5 013 43 85 +=<br />
08 8E 3F B7<br />
03DC<br />
+= 0302<br />
3E38 E9 77 69 00 3FC8 FF 43 B5 013 0E 8E AB DD +=<br />
Fo 2A FO lA<br />
0448<br />
+= 0407<br />
3E40 3F00 FD 8A DF B7 01 93 20 9A +=<br />
24 54 8E 3F A8 B5 FF AE<br />
0468<br />
+= 0482<br />
3E48 3F08 FO 98 FO C8 48 79 4A E5 +=<br />
77 66 9E A2 FO 2A FO lA<br />
e54A<br />
+= 0458<br />
3E50 24 FO OA FO 3FE0 B5 1313 43 43 B5 0C 43 85 +=<br />
98 55 B7 47<br />
e2F4<br />
+= 04E4<br />
3E58 83 15 85 48 3FE8 00 43 43 0£ BE A8 DD FO +=<br />
20 Fo A8 8E<br />
0304<br />
+= 0418<br />
3£60 3F 08 FO 2A 54 64 BE 3F += a3F3<br />
3FF0 8A OF B7 01 93 lC FO lA += 133£7<br />
3E58 70 E9 77 66 00 9E C3 54 += e3F8<br />
3FF8 9A += e09A S.N.85<br />
SHARP PC 39E5 59 74 6F 72 7E 32 7F B5 ito!". 2 ••<br />
39EO 00 AE 78 75 BA 01 FD A8 · .xuj .. 39F5 BE 3A 13 FO 2A 88 09 EF ,;<br />
38C5<br />
-.~.. .<br />
8£ 39 AF 6A El 68 39 4A .9. j. h9J 39FO 78 75 05 6A 07 FD A8 BE xu. j ... .<br />
38CD 0B 8E EO 38 BE E4 2C 9B ••• j •• ,.<br />
3AB5 3A 13 EF 78 75 02 FO 2A : .. xu •. ~<br />
3805 05 87 53 8B 09 B7 4C 8B •• 5••• L. 3A00 88 00 EF 78 75 03 55 BE •.. xu.U.<br />
3800 C8 B.7 20 99 11 9A B£ 3A .............. 3A15 EO 4D 55 BA ED 4D FO C8 .MU •• M••<br />
38E5 lB 8E 39 87 8E 3A A8 B5 ,.9 •. : .. 3AI0 B5 01 AE 78 FA 8E 02 FO ••. x••••<br />
38EO DA F9 A3 78 F.7 lA 58 78 .. . x •• Xx 3A25 C8 B5 48 AE 78 75 FO 8A · .H. xu •.<br />
38F5 85 7F lE 5A 06 E9 78 F8 .•• Z, .x. 3A20 BE EO 40 B5 20 B£ EO 40 .. M•••M<br />
38FO 00 BE 39 EC 6A E0 FO A8 · . S. j ... 3A35 B5 25 BE EO 40 5A C0 58 .& .. <strong>MZ</strong>.X<br />
3905 BE E4 2C FO 2A 8B 40 B.7 .. , . *,a, 3A30 78 FO 98 BE E2 43 BE 3A )(•••• C:. :<br />
3900 IF 8B 50 B.7 08 88 .76 8.7 · .P.•. v. <br />
3915 0A 8B 53 B7 0B 88 74 8.7 · . 5 ••• t. 3A45 E3 93 08 51 BE EO 4D 5E • •• Q•• M" <br />
3910 ec 88 45 8E 3A E3 83 2A • .E.l •.* 3A40 C4 99 10 BE E4 2C BE 3A ........ ,. ,. <br />
3A55 E3 B7 eD 99 eA FD0A 5A , ;,.,. , ,', Z<br />
3925 A7 78 F9 8B 25 AE 7B F9 .x,. %.x. 3A5D EC BE ED 95 51 BE EO 95 ~ '<br />
3920 ••'. Q•••<br />
FO C8 F9 B5 C4 A3 7B F? · .... ,' x. 3A55 FD C8 89 FR 51 FO 8A FB .-.... Q•••<br />
3935 lA 58 78 FO BA lE E8 .78 .Xx•.'•. x<br />
3930 FB 01 SA F7 SF 131 85 02<br />
3A60 Al 18 EO 09 AE 78 F7 9A • x ••• x••<br />
3945 5F FF 8E 3A<br />
• .Z. '" 3A75 4A C4 48 78 5A EC 58 78<br />
75 9E 63 AE<br />
J.HxZ.Xx<br />
'., :u.c.<br />
3940 3A70 6A 07 FO 98 54 54 FO A8 j ...<br />
78 F9 88 4E<br />
TT..<br />
A5 78 Fa 99 x •• N.x••<br />
3955 3A85 BE EO 95 51 FO 2A 88 a~<br />
BA 5A C0 58 78 EB 78 F8<br />
.'.. Q.,* ..<br />
jZ. Xx. x. 3ABO FD eA 45 18 45 lA A5 78 •• E. £ •• x<br />
3950 01 9E 62 BE 3A 75 9E A0 · .b. :u•.<br />
3965 3A95 FA 8B 12 A5 78 FB BB 00 -,', • , x •••<br />
EF 78 F.7 el 85 13 BE 3A • x ••••• :<br />
3960 3ASD FO 98 6A 07 F5 8B 133 FO .• j •••..<br />
.75 £9 .78 F.7 B0 B5 08 FO l..I.x., , ','<br />
3975 DA 94 AE 78 EC 14 AE 78 ••• x••. x 3AA5 lA E9 78 FB 00 9A 5A EC , . x, .. Z. <br />
39.70 EO 5A 7F FO A8 88 02 FO -' j " •• '" •<br />
3AAO 58 78 FO 98 55 08 55 eA Xx, .U.U.<br />
3985 2A 88 08 9E Al EF 78 F7 3AB5 6A 137 F5 88 133 FD lA FD j .....'.'.<br />
... x.<br />
• T<br />
3980 FF 93 12 E9<br />
*. ~<br />
78 F.7 013 B7 3ABO 98 B5 1313 5A e9F9 13 54 - _. J ••• ,<br />
· ... x. , ,<br />
3995 BB 8B 04 EF 3AC5 88 05 lE4A C0 48 78 FO ~<br />
78 F7 0F BE .. J. Hx.<br />
: • " •'x ....<br />
3990 3A .75 5A 0.7 56 88 133 9£ ,uJ.V•• ,<br />
3ACD lA 6A 01 FO 9B FD A8 6A · j ..... j<br />
39A5 30 E9 78 FA 130 BE 3A 24 B. x., 3AD5 eA 55 BE 39 C7 88 136 FD .u. S••••<br />
.;~<br />
39AO SE CS E9 78 7E 013 £9 .78 .. • X.,.x 3AOD 2A FD lA 88 12 9A B7 IF ~...... .<br />
39B5 7F 00 58 7.7 6A 40 B5 1313 •• hwjM •• 3AE5 89-09 FO 0A FD 0A FD 0A<br />
.. ............ ..<br />
39BO 2E 88 03 FO 62 6C 75 99 3AEO BA 38 C5 B7 BE 89 07 FO .B••••..<br />
... . blu.<br />
39C5 00 9A FD C8 Fl BE 39 CF 3AF5 E9 F0 0B FO FB 9A 4A DB ...... J.<br />
I ••• , ,9.<br />
39CO FO 8A 89 0F B7 0A 81 132<br />
3AFD 48 39 68 40 FO 613 F7 BB H9ha; ••<br />
3905 83 06 83 30 41 9A 2F 2A :: :eA:~i: 3B05 13 4E El 99 09 B7 313 91 .N..... EL<br />
3900 20 2B 3D 2E 7F 40 6F 6E -+=,.Mon 3B00 15 87 3A 91 18 87 41 91 , •• :, •• A.<br />
3B15 ID B7 47 9A A4 F9 SA • .G ••••<br />
MAPRO-HeXOlQnitQt! BetriCCt: Hexmonitor HEFT 7/85 Seite 17<br />
Der Hexmonitor wurde nun so umgeschrieben, daB er auC alIen Rechnern lauCt. Die Eingabe des HEX<br />
DUMPS erColgt zweckmaBiger Weise lI1it dem Prg. MAPRO-Eingabe. Abspeichern mit CSAVE M"Monitor V.2'" <br />
&J8C5,&JB1B der Start erf'olgtmit CALL &J8C5-. Funktionen Monitor: (~),(.),(' ),( ~) editieren, ' <br />
(S)-Taste schreiben, (L)-Taste lesen, MODE-Taste zuruck zum MENUE dann (SPACE)-Taste cUr Prg. <br />
ENDE. Zur erleichteren Eingabe haben die Tasten (/).(*).(-),(+),(=) und (.) die Buchstaben S.N.(85)<br />
A-F ala Belegung.<br />
Seite 8 Alles fUr <strong>Sharp</strong> Computer Heft 11
==:HAF-:P PC 15121121·:: A:)<br />
:-; H'"<br />
~IFI Ff: 1~ ~1 ~ ( H'" ')<br />
Betrifft: Einsabe von Daten (mehrstellig) mit Zeitvorgabe<br />
• F-. • - _.. .<br />
Sehr geehrte PC 1500(A) Besitzer Itl <br />
Das nachfolgende Programm kann mebrere<br />
MeBzi~~ern zu einem <br />
Betrifft: Eingabe von Daten mit Zeitvorgabe<br />
MeBwert zusammensetzen. Wenn Sie in eine Zeile nocb OUTSTAT ~ <br />
eingeben urid die Funktionen INKEY noch in RINKEY andern, so<br />
Sehr geehrte PC 1500(A) Besitzer 111<br />
kHnnen Sie auch tiber die RS 2J2C MeBzif~ern einlesen. Viele von Ihnen warden sich schon einmal gefragt haben, ob man<br />
die Eingabe von Parametern nicht zeitlich begrenzen kann. Hat<br />
man zum Beispiel ein Programm gestartet, das eine Eingabe<br />
113 "A"CLEAR :BEEP l:WAlT 150:PRJNT CHR$ &7Fj" Zahleneingabe RS-232C "jCHR$<br />
durch das Drticken einer Taste erwartet, (INKEY/$-Funktion)<br />
&.7F:WAJT 13<br />
so ist der SHARP PC 1500(A) bis zur Eingabe "BUSY". Somit<br />
213 B$="ON"<br />
313 "BE"BEEP l:PRJNT "BEEP ("jB$j")? "j:GCURSOR 10f21:PR1NT CHR$ &7Fj"ON"jCHR schaltet er sieh auch nach ca. 8 Minuten nicht automatisch<br />
$ &7Fj"OFF"jCHR$ &7F aus. Wenn man nun zwiscbenzeitlicb einen z:a:-Anru~ erhalt,<br />
413 "BE1"B=ASC lNKEY$ -213 <br />
und daraufhin die INKEY/S-Scbleife nicht mit BREAK unterbricht,<br />
513 IF B=lLET B$="ON":BEEP ON :GOTO "ZUE" <br />
so kann es vorkommen, daB auf Grund von Vergesslichkeit<br />
613 IF B=2LET B$="OFF":BEEP OFF :GOTO "ZUE" <br />
713 GOTO "BEl" der SHARP PC 1500(A) solange Angescbaltet bleibt, bis die<br />
813 "ZUE"WAlT 0:BEEP 1:PR1NT "Zeitvol"g. (10-36130): "j:CURSOR 20:1NPUT ZV:CLS Batterien erschHpft sind. Das untenstehende Prg. verhindert dies.<br />
913 IF ZU360f21BEEP 3:WAlT 15f21:CURSOR 3:PR1NT CHR$ &7Fj" Falsch Einga<br />
be !!!" j CHR$ &7F: GOTO "ZUE"<br />
1013 ZIJ=ZU/lf210f21f21 113 "A"BEEP l:WAlT 15e:PR1NT CHR$ &7Fj"Eingabe mit Zeitvol"gabe"jCHR$ &7F<br />
1113 US1NG "~#####.It###":T1=TlME :WAlT 5 20 US1NG "f:I##It#IL#f:I##":T1=T1ME :WAlT 13 <br />
]213 BEEP l:PRINT "Eing.-1.1 Messwert
(fJ<br />
CD<br />
~"<br />
rt<br />
CD<br />
das Kalenderprogramm aus dem Anwendungshandbuch fUr PC-1401<br />
I-'<br />
o<br />
ist aUf unserem PC-1261 fehlerhaft (siehe Beispiel).<br />
Die Berechnung der Variablen D im Programm des PC-1401 ist<br />
nicht korrekt. Zu bestimmten Schaltjahren erfolgt eine falsche<br />
:l> Zuornung des Wochentages zum Kalendertag.<br />
I--'<br />
I--'<br />
CD<br />
C/J<br />
-I{h/u/"~ff<br />
Dezuber 1799<br />
'""h 1'10 ® rlI DO FR SA SO<br />
c::: 48: 1<br />
')<br />
49: 2 3 4 5 6 7 8<br />
w<br />
58: 9 19 11 12 13 14 15<br />
::r<br />
51: 16 17 18 19 28 21 22<br />
Cl) <strong>52</strong>: 23 24 25 26 27 28· 29<br />
') '0<br />
53: 390)<br />
Cl JQnUQr 1899<br />
o<br />
3<br />
1'10 ~''II DO FR SA SO<br />
'0<br />
1 1 234 5 6<br />
C<br />
2 7 9 19 11 12 13<br />
rt<br />
3 14 15 16 17 18 19 29<br />
CD 4 21 22 23 24 25 26 27<br />
')<br />
5 28 29 39 31<br />
ItO«(llt't<br />
<strong>Sharp</strong>-Basic-Team<br />
c/o It"eVSt 861<br />
Dezellber 1799 Uhlandstr. 85<br />
1'10 ® MI DO FR SA SO<br />
48: 1<br />
49: 2 3 4 5 6 7 8<br />
50: 9 19 11 12 13 14 15<br />
51: 16 17 18 19 29 21 22<br />
<strong>52</strong>: 23 24 25 26 27 28 29<br />
53:39@<br />
Januar 1888<br />
1'10 DI ~DO FR SA SO<br />
1: 1 2 3 4 5<br />
2: 6 7 9 19 11 12 205:1F JA/100=lNT<br />
3: 13 14 15 16 17 18 19
~......,.......,......,<br />
ST<br />
1.<br />
,2.<br />
3.<br />
Das neue SchuIjahr hat fUr die Schuler in alIen Bundealandern wieder<br />
begonnen. Urn eine bessere tlbersicht Uber die eigenen Schulstunden zu<br />
bekommen, habe ich das Programm "STUNDENPLAN" geschrieben. Es druckt<br />
auf dem CE-150 den gesamten Wochenplan aus.<br />
Hier ein Eeispielausdrucks<br />
Dominik A. MUller<br />
Elankeneser HauptstraBe 1~<br />
STUNDENPLAN<br />
2000 Hamburg 55<br />
Tel.: 040 / 86 09 72<br />
UHRZEJT MONTAG DJENSTAG MJTTI.IOCH<br />
8 118 - 84~ UHR DEUTSCH ~EIN ~TE""IC'4T B1OLOG1E<br />
8~- 9J~ UHR MATHEMATIK LATEIN CHEMIE<br />
9~8-10J~ UHR KUNS"r GRIECHlSCH GR1ECH1SCH<br />
DONNERSTAG FREJTAG<br />
GEMEINSCH. ENGLlSCH<br />
GEMEINSCH. ENGLlSCH<br />
PHILOSOPHIE PHYSIK<br />
4. 10~8- 1 p~ UHR KUNST GRIECHlSCH ENGLISCH PHILOSOPHIE PHYSIK<br />
5.1 P8-12 3s UHR BIOLOGIE GESCHICHTE DEUTSCH MATHEMATIK LATEIN<br />
5. 1248-132~ UHR CHEMIE GESCHICHTE DEUTSCH MATHEMATIK LATEIN<br />
"} 134~-142~ UHR MAT"HEMA T 1 K ~EIN UNTE""ICHT ~EIN l.t4TERRICHT ~EIN l.t4TE""ICHT ~EIN ~TU~ICHT<br />
"- ---.- . ..- ~.. -.-<br />
8. 142~-158~ UHR MATHEMATIK ~EIN ~TEIIRIC'4T ..EIN l.t4TE""ICHT )(EIN ~TE""ICHT<br />
9.151~-15~~ UHR ~Elt< ~TE~~ICHT<br />
ENGLISCH SPORT )(Elt< ~T[""ICHT<br />
10. 15~~-15J~ UHR )(Elt< UNTE~R'C"T ENGLISCH SPORT ..Elt< UNTE"",CHT<br />
Bei der Eingabe zeigt der Computer den jeweiligen Wochentag an. Da<br />
rauf muS dann das jeweilige SchuIfach eingegeben werden. Wenn man in <br />
einem FeId "KErn UNTERRICHT" abgedruckt haben will, muS man ein Mi<br />
nuazeichen e1ngeben. <br />
Da die Uhrzeiten fUr die Schulstunden nicht immer mit denen Uberein<br />
atimmen mUssen, die im Programm (Zeile 900-990) abgespeichert sind, <br />
hier ein Hinweis s <br />
Die Uhrzeiten sind in folgender Form abgespeicherts <br />
~ 9xxI DATA "Schulstunde", "Stunde", "Minute", "Stunde" ,"Minute". <br />
'"-' <br />
'"-' Sie mUssen also bei der Eingabe des Programmes lediglich die eigenen <br />
CD Uhrzeiten eingeben und erhalten dann einen vollkommenen individuel<br />
C/J len Stundenplan.<br />
"'i)<br />
~:<br />
10:GRAPH :CSIZE 2<br />
'1<br />
:ROTATE 1:<br />
RESTORE<br />
m 20:D1M A$(5, 10)<br />
::r 21: A$ (1, 0 )=" MON<br />
Q)<br />
TAG"<br />
'1<br />
'0<br />
22:A$(2,0)=" D1EN<br />
STAG"<br />
23:A$(3,0)=" MITT<br />
o !.lOCH"<br />
3 24:A$(4,0)="DONNE<br />
'0 RSTAG"<br />
~ 25:A$(5,0)=" FRE<br />
rt lTAG"<br />
CD 30:FOR I=lTO 5<br />
'1<br />
35:CLS :WAlT 0:<br />
::r:<br />
PR 1NT A$ :LPRINT Ut;"~. STEP 38<br />
..EIN UNTE~RIC"T<br />
)(EIN UNTER~IC"T<br />
"Elt< UNTERRIC..T<br />
, "50"," 9", "35<br />
920: DATA " 3"," 9"<br />
, "50", "10", "35<br />
930: DATA " 4"," 10"<br />
, "50", "11", "35<br />
940:DATA" 5", "11"<br />
, ,. 50 ", " 12", "35<br />
950:DATA '" 6", "12"<br />
, "40", "13", "25<br />
960:DATA" 7","13"<br />
, "45", "14", "25<br />
"<br />
970:DATA" 8","14"<br />
, "25", "15", "05<br />
"<br />
980: DATA" 9"," 15"<br />
, "15", "15", "55<br />
990: DATA "10"," 15"<br />
, "55", "16", "35<br />
STATUS 1<br />
350:LINE (K+19,-14<br />
3)-(K+19,0)<br />
360:NEXT K<br />
365:COLOR 1<br />
370:FOR K=1TO 3:<br />
GLCURSOR (193,<br />
-10-K):LPRINT<br />
A$(I,0):NEXT K<br />
380:GLCURSOR (193,<br />
-7):SORGN<br />
400: FOR J=ITO 10<br />
410:GLCURSOR (-19,<br />
0):SORGN<br />
415: 1F A$ ( 1, J ) =" -"<br />
CSIZE I:RLINE<br />
-(3,0),9:<br />
LPRINT" KE<br />
IN UNTERRICHT"<br />
:RLlNE -(-3,0)<br />
,9: CSIZE 2:<br />
GOTO 430<br />
420:LPR1NT A$(I,J)<br />
430:NEXT J<br />
440:GLCURSOR (O,-1<br />
37):SORGN<br />
450:GRAPH :ROTATE<br />
1<br />
1-'. 80 NEXT J<br />
rt 90 NEXT 1 340:LINE (K,0)-(K, 460:NEXT I<br />
CD 100 LINE (0,32)-(2 -143) 900: DATA" 1"," 8"<br />
09,-143),0,0,B , "00"," 8", "45<br />
~<br />
~<br />
910: DATA" 2"," 8"<br />
11<br />
1376<br />
f-It-' <br />
--<br />
----<br />
H t-' 0 \,() (X) -.l a.. \J1~VoII\l ........ H <br />
t:r<br />
Ii<br />
~ ~8~enCltf
3486- MEM 4BB:INPUT "BARMITTEL= '; 862:RETURN<br />
Ferner filge ich einen Vorsch!aG bri, wir man dBn PC 1500 (~)<br />
2313. IHe) 869:LPRINT '*••••••*.*.1<br />
~~~~*<br />
Cl)<br />
••**.*•••** ••••*••• 2:REM "C/P.HARRY TOMS* 418:IHPUT ·BAUSPARGUTH.= •••••••••••• Y 0LET SK=SK<br />
:3 BETRAG (.2*) VERGLICHEN. 129:INPUT ·SONST.EINNAHM '; HO): INPUT 'ZINS D=';N(s) 320: INPUT "W i ev i e I 16:GOTO 380<br />
"d DAZU DIE DARAUS ZU ERWAR EN= ';S EN %= ';Z(1): INPUT 89B:RETURN harte Eier?"; <strong>52</strong>0:END<br />
... TENDE MOHATL.BELASTUNG 12S:E=N+S 'TILGUNG %= 9;T(1) 891:LPRINT •••*••••••••3 HE:HE=ABS HE:H<br />
rt MIT DEN VERF.MITTELN.1* 139: INPUT 'KOST.LEDENSMI 68B:INPUT ·OEFFEHTL.NITT ............' E=INT HE<br />
..,<br />
ro VERGLICHEN UND DIE DIF<br />
T.= ';Kon EL= '; H(2): INPUT 'Z 892:IF A(3 THEN LPRINT •<br />
FEREHZ AUFGEZEIGT. 325:IF WE+HE=0GOTO<br />
13S:INPUT 'KFZ-KOSTEN= • INSEN %= ";Z(2): ZU FINANZIER.=·;N(S)<br />
STEUERERLEICHTERUNGEN/~~~<br />
'310<br />
::r: ;K( 1) INPUT "TILGUNG %= '; 893:LPRINT 'FINANZIERBAR<br />
WURDEH NICHT BEDACHT,DASIC<br />
330:MT=3+(HE>0)*4:<br />
It 149: INPUT 'VERSICHERUNGE T(2) =';F<br />
ZWAR IMMER ANGEPRIESEN<br />
SK=60<br />
'"1) N" ';K(2) 690:INPUT "ARBEITGEBERDA 894:LPRINT 'DIFFERENZ<br />
WERDEN,ABER NICHT JEDER<br />
340:0=(TIME -lNT (<br />
rt 14S:IHPUT ·SONST.KOSTEHa RL.= ';H(3): INPUT • =';D<br />
HAT ANSPRUCH DARAUF !!! TIME /100>*100<br />
AD;,<br />
'; KG) ZINSEH %= ';Z(3): 89S:LPRINT "MONATSBELAST<br />
DIE AUSGABE ERFOLGT AUF<br />
>*10000<br />
'-' 15B:K(4)=K(B)+K(1)+K(2)+ INPUT 'TILGUNG %= '; • ="; Y<br />
I-' DRUCKER(CE-125/CE-126P). 350:N=(T1ME -INT (<br />
,'t\<br />
K(3) T(3) 896:LPRINT ·NONATL.MITTE<br />
LAESST SICH ABER DURCH 16B:K(S)=K(4)/1BB.29 7B9:INPUT 'SONSTIGE MITT TIME /100)*100<br />
L=';M<br />
AEHDERH VOH( LPRIHT IN 17B:INPUT ·HEIZ./STROM/W EL= "nH4): INPUT 'Z<br />
>*10000<br />
897:LPRINT ·MON.DIFFEREN<br />
PRIHT(~69-898).DIE AUS ASSER= ";K(6) INSEN 360:IF N=OGOTO 350<br />
%~ ';Z(4): ZZ:';U<br />
GABE 1ST NUN IM DISPLAY. 189:INPUT ·INSTANDHALT.- INPUT 'TILGUHG %= '; 898zRETURH<br />
370;IF (MT=4)+(WE)<br />
HDCH EIN TIP : DIE EIH ';K(7) T(4) 0)+(SK=0)=3<br />
n~n~nnn~n~nnnnnnnnnnnnnn<br />
GABEH KOEHHEH Z.B.: SO 198:K(S)=K(S)+K(6)+K(7) 719:FOR Q=9 TO 4 •••• PROBEAUSDRUCK •••• GOTO 410<br />
\ ~-;<br />
ERFOLGEH: EHTER \ r'<br />
RECHNUNG WERDEN IM DIS GO TO 83B 76B:IF A.~ "2. \ . /<br />
GESCHRIEBEN. To~ = ';B(B) *': END GES.KOST.HAUS= e.ee<br />
T=0)<br />
~c;.'\ ._1 J<br />
\ .,. \<br />
%%%%%%%%%%%% Omptedas tr. 27c<br />
____________. 3000 Hannover 1 32B:INPUT "ERSCHLISSUNG= 8SB:BEEP 1: WAIT 2B8: - EIGENMITTEL= e.eB 420:IF WW=1PRINT W<br />
"; B( 1) PRINT "BITTE DIE AHG BEN.FREMDGELD= e.BB<br />
W;~$(MT+1+(HE=<br />
•••••••• * •••••••••••• * •• 33B:INPUT 'HAUSKOSTEN= • EFORDERTEN": BEEP 1: ·**··*.·*·.3••••••*••••• 0)*4);"s Ei is<br />
;B(2) PRINT 'DATEN EINGEBE ZU FINANZIER.= 8.88 t fer- t i 9 ! ,. :<br />
34B:INPUT ·KELLERKOST.= N ! • FINANZIERBAR = B.8B GOTO 440<br />
'jB(3) 86B:BEEP 1: PRINT 'DIE E DIFFERENZ B.BB 430:PRINT WW;(ii$(MT<br />
3SB:INPUT "GEBUEHREN= " IN- UND AUSGABE ": MONATSBELAST.= B.BB +1+(HE=0)l4)j"<br />
B(4) BEEP 2: PRINT 'ERFOL MOHATL.MITTEL= B.Be Eier " fer-t i<br />
360:INPUT 'AUSSEHAHLAGEN GT IN *MONATLICHEN.· MON.DIFFERENZ= 8.8B 9 ! "<br />
= ';B(S) : BEEP 1 440:FOR '(=1TO 5<br />
370:B(6)=B(9)+BC1)+BC2)+ 861:PRINT "BETRAEGEHCAUS ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ <br />
B(3)+B(4)+B(S) SER IN .3.)': WAIT %%%%%%%%%%%%%%%%%%%%%%%% <br />
'\ .<br />
cs. .<br />
~)
Programme fuer <strong>Sharp</strong> Pc 15~~ A Die beiden ersten Spalten erhalten das Muster der beiden<br />
(~) SPACE.<br />
keine<br />
NOT:
"• o<br />
a<br />
•<br />
[JJ<br />
ro<br />
~.<br />
LETA$ Befehl Letter<br />
rt<br />
ro<br />
Parameter: A$= neues Zeichen oder dez. ASCII-Code<br />
Es kann ein neues Zeichen eingegeben und damit editiert <br />
1-1. werden. <br />
~ OLD Befehl : OLD LETTER Parameter: keine <br />
Das am Anfang oder unter LET eingegebene Zeichen wird auf<br />
die Editierstelle gebracht.<br />
:l><br />
I-' DTA Befehl : DATA Parameter: keine<br />
I-' Der Hex-Code des GPRINT-Musters eines auf der Editierstelle<br />
ro vorhandenen Zeichens wird ausgegeben. Nach Druck auf Enter<br />
rJl faehrt das Programm fort.<br />
'"'h<br />
c:<br />
Listing:<br />
"1<br />
10:"="CLEAR :CLS :DIM P(254):INPUT "Zeichen ":I$:IF LEN I$lLET 1$<br />
[JJ =CHR$ VAL 1$ .,<br />
::r 11:" "WAIT I2I:CLS :PRINT I$:GCURSOR 84:PRINT CHR$ 124;I$;CHR$ 124:<br />
Cl)<br />
"1<br />
ON ERROR GOTO "12I1":DA$="12I123456789ABCDEF"<br />
'0 12 "01"GOSUB "CLR":CURSOR 19:INPUT IP$<br />
13 Il$=LEFT$ (IP$,3): I2$=MID$ 9AND 11< 51> :<br />
I"$=MID$(I2$,3,1):IF I2$=""LET I2$="N"<br />
30 FOR E=0TO 4:GOTO "RCL"+I2$<br />
31 "RCLN"GPRINT P(5*I1+E);:NEXT E:RETURN<br />
32 "RCLO"GPRINT P(5*I1+E)OR POINT E;:NEXT E:RETURN<br />
33 "RCLA"GPRINT P(5*I1+E)AND POINT E;:NEXT E:RETURN<br />
34 "TLO"I"=VAL I2$+1:I2=I2*(I2(9):CURSOR 0:FOR E=I2ITO 4:GPRINT POINT<br />
E OR P(5*I2+E);:NEXT E:RETURN<br />
35 "TLA"I"=VAL 12$+1: 12=12*02
::r>.<br />
Cl<br />
:::x::<br />
--i<br />
c<br />
Z<br />
G)<br />
,-... <br />
Vl rn 3<br />
-0 X 3:<br />
--i <<br />
........ rn rn<br />
::u ;0<br />
Cl Z (/')<br />
rn rn<br />
I :;:0 0<br />
V1 :z<br />
~<br />
en t::::I ;0 rn<br />
-0 c ;0<br />
"'--" Cl r<br />
r;: l><br />
rn c<br />
;0 tt1<br />
-I<br />
t:l<br />
rn<br />
:t><br />
I-'<br />
Nachtrag zum Programm 'Scrollen einez Textes' aus Heft 9'85 S. 16<br />
In der Soubroutine hat sich bei mir in Zeile 30 leider ein Fehler<br />
eingeschlichen.<br />
Es muss naemlich dort heissen: PRINT LEFT$ (A$(0),26)<br />
Weiterhin moechte ich noch eine Ergaenzung bekannt geben, die es<br />
erlaubt, den Text Punktweise nach links zu verschieben.<br />
Aendern Sie dazu Zeile 40 in der Soubroutine folgendermassen ab:<br />
40:FOR T=1TO LEN A$(0)-25:FOR Y=6TO 0STEP -1:GCURSOR Y:PRINT<br />
MID$ (A$(0);T,26):NEXT Y<br />
Das Scrollen erfolgt jetzt Punktweise, jedoch etwas langsamer.<br />
Anmerkung zum Programm Quickkey aus Heft 9'85 Seite 15<br />
Das Programm Quickkey ist meiner Meinung nach eine grosse Hilfe<br />
fuer den Anwender, jedoch stoert der Ton auf die Dauer ein wenig.<br />
Abhilfe schafft folgende Aenderung des Hex-Listings:<br />
7C3D:20 BA 7C 41<br />
Bei Bedarf kann man ja in dann die entsprechenden Werte in die<br />
Adressen POKEn, so dass ein Ton erzeugt wird oder nicht.<br />
I-'<br />
CD<br />
Listing: Zahlenraten<br />
rJl<br />
Bei dem Spiel Zahlenraten werden nacheinander eine bestimmte Anzahl<br />
"'"h von Zahlen, Anzahl und Level werden vorher festgelegt, angezeigt.<br />
C: 1st der Vorgang abgeschlossen, so muss man die Zahlen in ihrer<br />
"1 richtigen Reihenfolge ueber die Tastatur eingeben, webei bei einer<br />
Runde, also ven Level zu Level, 3 Fehler erlaubt sind.<br />
UJ.<br />
::r<br />
Beendet wird das Spiel bei erreichen der heechsten Level-Stufe oder<br />
Po) bei mehr als 3 Fehlern. Viel Glueck<br />
"1<br />
'0 10: "A"CLEAR : WAIT 0: CLS : W= rH<br />
11:L=-1:INPUT "Laenge 3-20 ";L<br />
(1<br />
o<br />
12:IF L200R L< >INT L GOTO 11<br />
:3 14:LE=I:INPUT "Level 2-9 ";LE<br />
'0 15:IF LELGOTO "NL"<br />
CD 18:X=RND LE:A$(0)=A$(0)+STR$ X:FOR Y=1TO T:WAIT W:CURSOR Y-1<br />
"1<br />
19:PRINT MID$ (A$(0),Y,1):WAIT 0:CURSOR Y-1:PRINT " ":NEXT Y<br />
~ 20: "NM"FOR Y=lTO T:CURSOR 22:PRINT "?"<br />
CD 21:A$=INKEY$ :IF A$("0"OR A$>"9"THEN 21<br />
"'"h 22:AA$=INKEY$ :IF AA$""GOTO 22<br />
("'i'"<br />
23:CURSOR 22:PRINT A$:IF A$MID$ (A$(0),Y,1)GOTO "ER"<br />
..... 24:BEEP 1,10,80:BEEP 1,100,20:SC=SC+l:NEXT Y:GOTO "NE"<br />
..... 25:"ER"BEEP 1,100,500:F=F+l:CLS :PAUSE F;" Fehler !! !":CLS :IF F)3<br />
GOTO "OF"<br />
26: GOTO"NM"<br />
UJ. 27:"NL"CLS :PAUSE "Naechster Level !":CLS :IF W
I 55<br />
Kompl~ Zeichen- und Befehls-Satz des PC-1421<br />
P Printer CE-126P<br />
(fJ (ausgedruckt auf dem Printer u. Rechner-Display)<br />
CD C Computer PC-1421<br />
.... t:l o.t'l ..... O'M;3: 11011 '"1:1<br />
...... .ASCII-CODE-TABELLE. III ~ ~ .... (tJ ~ CD<br />
.... 1"1<br />
III~<br />
> 0"00<br />
Q Q<br />
:I: 0.. U Q :I: 0..<br />
:I:<br />
U<br />
0..<br />
Q :I:<br />
CJ<br />
..., c:<br />
..... '1 It) It) 1"1 .... rt It) ::>-'l::<br />
0..<br />
III III n 0. .... c: :3 IIHII It)<br />
0"<br />
01 CJ<br />
"!!<br />
::r'"l:l(tJC:::l Ul<br />
t"'<br />
9 e9 69 3C < < 129 78<br />
~§ (tJ '1 =' =' 00<br />
%<br />
'"1:1<br />
189 14 UST<br />
::0.<br />
243 F3 PRH PRH<br />
~§?~>~ I:>:: c:<br />
to-' 0; (tJ ttI 1 0. 0; 13 IICII ::I<br />
~<br />
4 94 P 64 .c9 a a 124 7C I ' I 184 J8 Ace ACC 244 F4 IHTE<br />
0"'1<br />
IHTE<br />
a t:l 0" 00<br />
CD (tJ rt 90<br />
hi' '<br />
5 95 E 65 41 A A 125 7D 185 B9 AI1RT<br />
,.;<br />
6 96 66 42 ) J 126 7E 186 JA CO"P<br />
-<br />
0.1t)~ ::t""::<br />
..J<br />
~ ::-;" m~~<br />
(j) A"RT 245 F5 BAL BAl<br />
><br />
IItrlll<br />
c;)<br />
M en en c: '1 M 0;<br />
COI1P 246 F6 SPRH SPRH<br />
I'l<br />
It) ~ (tJ 9 m 0. ::H::<br />
,J<br />
:z: =' n ::r~ 11 en 11<br />
>-t)<br />
7 97 ; 67 43 C C 127 7F ,., 187 JB ftDF "DF 247 F7 SIHTE SIHTE<br />
..<br />
>13<br />
::r 0; =' '1~0.<br />
rt o"rtlt) ::>-'l::<br />
C 8 98 68 -'l::<br />
'0 n (tJ en III /I) 0. It) .... III II:X:II<br />
(tJ::r'11-tlMo" c: ~ ..... c:<br />
255 FF £<br />
0) =' o ~ en =' (tJ trlrtHl ::0::<br />
() SQU SOU 196 C4 BEEP<br />
0. .... w<br />
BEEP<br />
;§~~§g. 1It""1I<br />
.... > ::s P<br />
o<br />
'"1:1<br />
17 11 - 77 4D "<br />
137 89 CUR CUR 197 C5 WAIT IIAIT<br />
I MOO '1 (tJ c: ='<br />
0;0 0. III 0.00 M ::rM .... M<br />
'0 "<br />
~c: ::r 9 It) ::..::<br />
18 l2 x 78 4E H H 138 8A HSH HSH 198 C6 GOTO GOTO<br />
DIE ADRESSEH IER<br />
>;0;- ::r::s ::l ~<br />
a<br />
n HI 11> ~<br />
t""<br />
0; IItrlll<br />
0" en (tJ ::s (tJ Mo /I) r-t t:Il<br />
~Ml1o. N (tJ ~ c: 0. III<br />
C 19 13 ... 79 4F 0 0 139 8B HCS HCS 199 C7 TROH<br />
STAHDARDYARIABLEH<br />
HI<br />
TROH<br />
~It) m "Cl ~ =' .... =' /I) c:<br />
M ::I t:;I:I =' c: .... .. c: 00 El Ul<br />
rt 29 14= 89 5e P P 149 8C HTH 1ft<br />
HTH 299 C8 TROFF TROFF<br />
PC-1421<br />
.,<br />
c:<br />
en en o.en ..... HttI rt ..... oo t:'''O t:lN =' It) 00 t:l'1 0 > 1 1 Ul 11> (tJ ::l Ul ::l rt<br />
It) rt III 9 0" 11> It) III It) c: ~ It) CIl (tJ ~<br />
CD<br />
It) (tJ c: I-tloo "Cl U.<br />
21 15 0 81 51 Q g , 141 8D AHS AHS 291 C9 CLEAR CLEAR<br />
c: =' ::-;" n 00 0. N It)<br />
enc:o; .... 0<br />
rt~O"'1::1It)t'l CIl ..... It) n ~ HI 0; (tJ '1 It) 00 ~::r<br />
?- ~<br />
(tJ c: ""'"l 22 16 l 82 <strong>52</strong> R R 142 8E AHC<br />
YON ADR. YAR. BIS<br />
AHC 292 CA USIHG USIHG<br />
ADR.<br />
~ It) CIl ::r (tJ 00 C::"O 0 (tJ t:Il (tJ It) ~ 0;<br />
, ~5-~'?;~<br />
.... + '"1:1<br />
~ : ~ (tJ ~~:> 0<br />
24 18 ( 84 54 T T 144 99 FACT<br />
17792 Z .. A(26) 17799<br />
trl.<br />
FACT 294 CC CALL CALL<br />
0.0. 0: rt M 00 ;0;- (tJ 11> '1 ~ 0; It) 0 I V1<br />
M<br />
CD<br />
~ tn '1 ..... 11> ~::l =' =' '1 ..... (tJ (tJ t:l C ~ OO/I)~(tJ/I)~o;<br />
(tJ 00 e ~<br />
MO. c::sn 0"(tJ1t)0c: =' ~ III N /I) Co ..... V10<br />
17888 X OK A(24) 1<br />
> 11 M '1 ;o;-~c: > /I) It)<br />
rt 26 lA t 86 56 Y Y 146 92 LOG<br />
7815<br />
.... ><br />
LOG 2e6 CE BGHOH BGHOH 17816 W = A(23) 1 ;ti 2- 0. en::r =' 0 < III m 11> t:Il ::s M '1 en Cl 0" eIl:;O;- It) M .....<br />
11 0" ..... 0.<br />
27 IB + 87 57 W W 147 93 EXP<br />
823<br />
+<br />
EXP 297 CF BGHOFF BGHOFF<br />
(tJ"00. .... O'N(tJ ..... 0. 00 11> (tJ HI/I) I-tlmM (tJ (tJ 0" (tJ ~<br />
17824 V .. A(22) I =' ~ /I)<br />
m '1 11 m > c: c: 0; 0"::-;"111 '1 c: a: =' o '1 ell ~ M ....<br />
/I) ::l (tJ 0;<br />
I--' 28 lC • 88 58 X X 148 94 SQR<br />
831<br />
(")<br />
SQR 288 D9 TO TO<br />
...... 0 c: '1 =';0;- 9 < 11> en '1 ::sM ...... .. ~ ~ (tJ 0"<br />
17832 U .. A(21) 1 839 t:Il<br />
trl<br />
o"Nnll> I-tlM oo.::s i 0"'10) ttI It) o.t:' 00 en X C M ::s~t:Il 1<br />
I--' 29 ID t 89 59 Y Y 149 95 SIH SIH 289 J1 STEP STEP<br />
e.~. N Cl) ::-;" =' ell ~:> en IllI (tJ ~<br />
(tJ =' "0 ~<br />
It) M _<br />
III c:: 0 en (")<br />
(IQ It)::l ..... ~ 1<br />
33 21 ! ~ ~ c: ......... It) 0. =' (tJ =' 00 ~ o.Moo~(tJ ~ m M 9 t:Ilo. '1 ~.~ 0. ='<br />
! 93 5D 1 1 153 99 ABS<br />
trl<br />
ABS 213 J5 FOR FOR 17872 P '"' A(16) 1 879<br />
/I)<br />
I<br />
I-tl......... mlt)Mr-t9Ul n~o. ..... 11> 0. '-" '1 9 ::-;"C:'"I:I<br />
34 22 • 94 5E ,.. 11 V1<br />
154 9A SGH SGH ~ c: C/l c: 1 /I) 0. C '1 Ul ::r::lo;~ c: I-tl o u. 11> o =' 11<br />
·<br />
214 J6 LET<br />
=' HI c: n N c:: t:;I:I(tJ > n ::s ;0;- 0<br />
35 23 I I 95 5F _ LET 17888 o .. A(15) 1 887<br />
....<br />
-<br />
IS5 9B DEG lEG 215 J7 REI'! REtI<br />
a<br />
17888 H '"' A(14) 1 895 ;ti 5- :-'~c:~ ~c:::ig~~Pi It) 0 n ::r It) '1 11> 11 ::r r-tMo.<br />
o =,=,nHl~::I rt'1::-;"(tJ ~ c: t:Il 0"<br />
(tJ 0; '"1:1<br />
36 24 $<br />
c:<br />
$ 96 69 156 9C Jl'IS II'IS 216 18 EHD EHD 17896 ::: H CHrt t:Ilo. ::ror-to. e M rt u. 00 11> m<br />
Cl 0 ::-;"<br />
::l en 11> III 00 .... I It) HI It) (tJ c: ~<br />
37 25 % % 97 61 ....<br />
Cl I<br />
i 157 9D ASH ASH 217 D9 HEXT HEXT<br />
~ ~ o.rto" c:o.(tJtI:Ioo Ul It) c: (tJ III 0. a: (IQ rt<br />
1<br />
"..<br />
A
1Il+.rt"H III a.< 0.. DO rt"::l+'(/) :>::- ~ I It, I: N<br />
::lID ~o..""tII"" (j)<br />
f1) f1) 7\ f1) n .......... ID t: f1) c: f1) 3 n !\J ro ............. ID It) 0 1J r;:r /to .... ::! c:<br />
:J ., :r ::l ., f1) ~ ID ::J rt"::J III "< .... '1:) Q<br />
erer ...... ::l Ill" rT ',) -.. It><br />
III !lJ !lJ: A ., 3 III<br />
.... (j) .... ::J III I m ro It) ::J r"io Q<br />
::J ID N IJ:I::J .. ft\ r::;,::!U)rt><br />
::l t: ::J er.... !lJ (/) a. f1) n :E ID ::J<br />
er rT ID III<br />
a. ..... :r. !lJ 111'''10''10.<br />
l~ 1J D to 10 III C<br />
ItI ItI ro ., ..... " .... ::l ::J a. ID ro ..... IJ:I::J !\J " ..... "10.I t-.I 0. .... ft\<br />
n , U1 ro ro t: .... rt" rt" .... +. h"' .... 'to::! ~ III ::J::J • ID ::J N ro 333Dr1"!lI ::J<br />
o<br />
~0..!lJ:!\J C'"III ~<br />
:r 10 U) ::J ::i: ft\<br />
10 .... 111<br />
ID III 10 III 1Il::J ID III ID 10 < ro 10 c t: ....<br />
........ 03"'"<br />
........ 1J Or+r: Ul l: ID m ro +. ::J < [: ::J :r lit> ""b<br />
::J(j)ICO::O::J1tI1C ::J .... n ro , III t: .... 10 0 ::J 3 1"T't!lr;:rIll()<br />
., It> t-.I 0,()<br />
ro ID ._, 0 0.. ::J 111 I<br />
Do.!lI ID :r ., !lI: ID !lJ 0: -- .... to < ID<br />
::J , .- rt" er ItI .... .... ID eN, !lIrTr+ ::l ::l III rt ID ro ., ~ " :t It> .... I<br />
Ill: .... 0, III III'+.IDID .... ID ItI a. t: .... :I ::J ., ::J It, );-. (.'1<br />
, 10 ...· ...· er .... 1: 'oC) ~ :D<br />
Ulr+UlIDr+IDr»ro<br />
rTrt~ ::J ItI ::J ::J ID<br />
.... to ........ I r"io::!t:lIt>~<br />
rt" 0, ItI !\J::J 3 ItI rt" 10 < 0: rt"<br />
ON .... ::l o t: :J rt" ..... o..ro ::l ::l 'to '1:) ... '11<br />
:1J<br />
1tI0001Crt"'NCO" (/). ....,<br />
., !\J !lJ • r: m III !lJ !\J ID ........ , f1) ::J 0..0.. "' It> '1:) "I<br />
10 [: I: ::! .... It> c:: C<br />
ItI ::J' .. III !\J: :r crT ...·nm ., f1) 1J ~J 10 ::J fD III<br />
!lI Ul m...· .. .... ::J III ::! r"io .... ::!<br />
o ~ t: Ill: rt"::J mIDn:rm !lJ: a. ::J<br />
::J f1) ::l 0 r1" ::JtO 'l:J I: III .......<br />
<<br />
E<br />
ro III rt" N I 1C::J:r1D1D<br />
ID :E' r: N ID ro~::J :J 10 ::J a. ::l 1I!lJ m ro m ::! .... "I- 'C<br />
.... er f1) ID .... CIt)N ..... O 3 3 ..... 0" Q "It> :D<br />
'ro!llo..+'1D 0<br />
III .... ,<br />
.... :J<br />
f1) 0.. 0: ItI rt" Dill C ro ::J ::J l~ It) .... "<br />
O"rt"a. 'to :1J<br />
rt"::J::J::J 0..111< f1) III m er .... !lJ ::l to rt" 0- !lJ I,) I :c: '"<br />
.... III III<br />
!lJ: ro m f1) rT 0 , rT 0 t: m IJl ca.::I Ut III Ne III<br />
., m ...· 3 ItI ::J :J ID rt" m ro C 1J !lJ n l/l to 3: I'l " l::. ',) .... IT1<br />
0.., Ill: NDU) ::J., :r :r rT It) .... I: :;,<br />
~ 1C~ C III<br />
rt .... .... .... I'D A ::l::IlIQ~<br />
m ItI ::J!lJ ID :J l:IDa.::JIII C ::J 1:<br />
, .... !lJ :J 0.. ., 0.. a. ID , ID o..!: ........ 1tI ItI n It) <br />
3 .... , ... ..... Ib It><br />
,:r to<br />
~::!::;::!~<br />
m ::J .... :J m :J ID ItI , m :J ID n 0 : !\J ., ::l 3 0<br />
I 111'" ., • ., I I ::l :r I U) I I rt" .. 3 1 I 1 ~ I '-Cl::! I<br />
D r:r ...·o 0.. U1rt" A'1Dt:l 0:crt"o..z<br />
[: C ::J !lJ ID n m .- !lJ r3 .... !lJ III<br />
1}1 ::J 3 1 :r .- A 0" m!lJ: 0 III [:<br />
-loo 0.. m ...· 1 A .- m H::J ::J<br />
c:: ID "1Jrt" ~ID!lJ +0 .... za.m :J<br />
(l.Sl'\W %"'71 • {:Ill!) WO 09
'"%j<br />
It)<br />
~<br />
....<br />
It)<br />
....<br />
/-'-<br />
g<br />
t-'<br />
El<br />
tIl<br />
'<<br />
en<br />
r-t<br />
It)<br />
a<br />
::r<br />
III<br />
::l<br />
Q.<br />
er<br />
c<br />
0<br />
~<br />
....,<br />
c:<br />
....<br />
Q.<br />
It)<br />
::l<br />
tIl<br />
~<br />
'"tI<br />
'"tI<br />
n<br />
I<br />
....<br />
~<br />
.....<br />
0....<br />
0<br />
N<br />
+<br />
'"tI<br />
n<br />
I<br />
....<br />
~<br />
o<br />
.....<br />
o<br />
N<br />
+<br />
'"tI<br />
n<br />
I<br />
....<br />
~<br />
o<br />
..... ....<br />
o<br />
N<br />
+ '"tI<br />
n<br />
I<br />
....<br />
~<br />
o<br />
.....<br />
....<br />
o<br />
N<br />
+ +<br />
+<br />
'"tI<br />
n<br />
I<br />
....<br />
~<br />
o<br />
.....<br />
o<br />
N<br />
+<br />
'"tI<br />
n<br />
I<br />
....<br />
~<br />
....<br />
o<br />
....... <br />
o<br />
N<br />
+<br />
+<br />
'"d<br />
n<br />
I<br />
.....<br />
~<br />
o<br />
.....<br />
.....<br />
o<br />
N<br />
+ '"d<br />
n<br />
I<br />
.....<br />
~<br />
.....<br />
o<br />
....... <br />
o<br />
N<br />
(fJ<br />
(1)<br />
1-'- I. [ ~ g 7~<br />
co
Numerische Losung_gewohnlicher Difrerentialgleichungen mit<br />
Anrangswerten aur dem PC 1500<br />
Dieses Programm lost gewohn1iche Oifferentia1g1eichungen 1., 2.<br />
und 4. Ordnung sowie Systeme von zwei gekoppelten Oiffgln. 1. und<br />
2. Ordnung nach dem Runge-Kutta Verfahren. Ourch eine einfache<br />
Fehlerabsch§tzung wlrd eine Korrektur der Ergcbnisse und eine automat1sche<br />
Schrittweitensteuerung ermoglicht.<br />
Man kann sich so einen Uberblick verschaffen ilber den Verlauf der<br />
Losungskurve von Problemen, deren analytische Losung man nicht<br />
kennt.<br />
Die Diffg1. muG a1s Unterprogramm eingegeben werden. Es werden die<br />
Variablen X,Y,Z,Y1 (erste Ab1eitung von Y nach X),Z1,Y2 und Z2<br />
verwendet. Die Zeilen 1 bis 6 entha1ten drei 8eispie1e dazu. Sie<br />
gehoren nicht zum Programm und so11en nicht mit abgetippt werden.<br />
Man gibt dann einen Satz von Anfangswerten eln. Daraus werden<br />
schrittweise neue Wertetupel errcchnet, wobei die Variable X<br />
jcdesmal um die Schrittweite H erhoht wird. Die alten Werte werden<br />
dabei von den neuen ilberschrieben. Nach der Berechnung stehen die<br />
Ergebnisse in Zeile 670 zur VerfUgung. Im Listing werden hier X<br />
und Y angezeigt. Indem man die Zeile durch eine geeignete ersetzt<br />
kann man die Ergebnisse weiter auswerten, beispielsweise drucken<br />
oder in einem Feld'abspeichern. Niltzlich ist es auch in ein Pro<br />
:l> gramm zur graphischen Darstel1ung der Losungskurve zu verzweigen.<br />
....... A1s Beispie1 habe ich<br />
__~ ....... ...I Onlll... <br />
"- _. 1'01 00.111.,.<br />
...... 1'....,........ ...,., Amplitudenverlauf und<br />
""...........' ....1\ <br />
CD<br />
Phasenportrait der Van<br />
rJl<br />
der Pol'schen D1ffgl.<br />
""t)<br />
(y"=-y+(O,B-y_y)_y'),<br />
C: mit der man se1bsterreg<br />
'"1 te Schwingungen beschreiben<br />
kann p10tten lassen.<br />
m<br />
:::r<br />
Die Anfangsbedingungen<br />
CD<br />
waren Xo=0,Yo=-0,2,Yo=0.<br />
'"1<br />
Als Schrittweite habe ich<br />
'0<br />
H=0;1 gewahlt. Die Plotroutine<br />
1st n1cht 1m Lis<br />
o<br />
ting entha1ten, jeder<br />
a<br />
kann jedoch eine eigene<br />
'0<br />
in Zei1e 670 anschlieGen.<br />
c::<br />
rt<br />
ro<br />
'"1<br />
"...... 1"... .10..,<br />
-J..... I .•<br />
::r:<br />
-1•••2<br />
ro<br />
,..hlt<br />
ytS.u:...If'ldI......<br />
••••Zl<br />
""t)<br />
-1."...2."<br />
rt<br />
I-"<br />
I-" Die Leistung des AIgorithmus ist in hohem MaGe von der gew~hlten<br />
Schrittweite abhangig. Um einen Eindruck van der Genauigkeit der<br />
Rechnung bel verschledencn Schrittweiten zu erhalten kann man<br />
eine Oiffg1. mit bekannter Losung (Sei5pie1e 1 bis 3~ durchrech<br />
1-" nen und in Zeile 670 die Ergebnisse ~it den crwarteten Werten <br />
rt vergleichen.<br />
ro Das Programm belegt ungefahr 2K. Ich habe mich um Obersichtlich<br />
I-" keit bemuht, auf Kosten von Speicherplatz und Geschwindigkcit. <br />
\0 Wer will kann das ja tindern. <br />
m<br />
ro<br />
Zur Bedienung : <br />
Zunachst muG die Oiffgl. als Unterprogramm mit dem Namen "DGL" <br />
geschrieben werden. Es sind drei Falle moglich<br />
01ffgl. 1. Ordnung :<br />
Eine o~ffgl. 1. Urdnung kann in der Form y'=f(x,y) geschrieben •<br />
•<br />
werden. Sie w1rd entsprechend e1ngegeben Y1=f(X,Y).<br />
Beispie1 1 : y'=2xy. ~it den Anfangsbedingungen Xo=O und Yo=1 ist<br />
y=exp(x.x) die L6sung. Die karrekte Eingabe ist Y1=2.X.Y wie in <br />
Programmzei1e 1. <br />
o1ffg1. 2. Ordnung hzw. System zweier Oiff~ln. 1. Ordnung : <br />
Eine Oiffg1. 2. Ordnung 1autet y"=f(x,y,y ). Sie ist aquiva1ent <br />
zu einem System van ~wei Oiffg1n. 1. Ordnung. Zur Berechnung muG <br />
die Oiffg1. erst in ein s01ches System zer1egt werden. Das ge<br />
schieht so : Man substituiert y'als z und erhalt y'=z und <br />
z'=y"=f(x,y,z)., Das wird eingegeb~n als Y1=Z:Z1=f(X,Y,Z). <br />
So11en zwei gekoppelte Oiffgln. ge16st werden, dann konnen sie <br />
natilrlich gleich eingegcben werden. <br />
Beispiel 2 : y"=-y. roit der Umwandlung z=y', z'=-y folgt Zeile 3. <br />
Wahlt man Xo=0,Yo=0,Zo=Y10=1 erh~lt man die Losung y=sin(x). <br />
Oiff91. 4. Ordnung bzw. System zweier Diffgln. 2. Ordnung : <br />
.,<br />
~'=f(x,y,y' ,y" ,y"') wird wie oben in ein System von zwei <br />
Oiffgln. 2. Ordnung zerlegt : y"=z , z"=f(x,y,y' ,z,z'). <br />
Zwei gekoppelta Oiffg1n. kHnnen direkt eingegeben werden. <br />
Beispiel 3 : y"=-8y-2z', z"=-8z+2y'. Oiese beiden Gleichungen <br />
filhren mit Xo=0,Yo=1,Zo=O Y10=0 und Z10=1 auf die Rosette<br />
y=cos(x)cos(3x) , z=sin(x~cos(3x). Die richtige Programmierung<br />
steht in Zeile 5 •<br />
Oer Aufruf des Programms.erf01gt mit "OEF" "0". Vor Beginn der<br />
Rechnung werden folgende Parameter abgefragt :<br />
ordnung : 1, 2 oder 4.<br />
Zahl der Ausgaben : so oft wird Zeile 670 e·rreicht.<br />
Schrittwcite : Abstand von einem X-Wcrt zum nachsten.<br />
Zahl der Zwischenwerte : Will man zur Erh5hung der Genauigkeit<br />
die Schrittweite klein machen und trotzdem bis zum Erreichen eines<br />
Endwertes rechnen, dann kann die Zahl der Ausgaben sehr groG<br />
werden. Um dies zu verhindern kann hier die Anzahl der Wertetupel<br />
festgelegt werdcn, die zwischen zwei Ausgaben zwar berechnet,<br />
aber nicht ausgegeben werden.<br />
•<br />
Korrektur : r'~i t Hilfe ciner Fehlerabschatzung konnen die errechneten<br />
Wcrte karrigiert werden. Das erhoht die Genauigkeit, verdreifacht<br />
aber die Rechenzeit. Eingabe einer 1 schaltet die Korrektur<br />
ein, n schaltct sic aus.<br />
Schrittsteucrung : Nach Vergleich der Fehlerabschatzung mit einer 4<br />
Genauigkeitsschranke wird die Schrittweite halbiert, gleich belas<br />
sen oder vcrdoppclt. Die Schrittwpite wird also der gewilnschten <br />
Genauigkeit in ctwa angcpaOt. Die Schrittsteuerung funktioniert <br />
nur in Verbindung mit ~er Korrektur. 1=ein , o=aus. •<br />
Genauig~ : filr Schrittsteuerung (z.O. 1e-4). <br />
Anfangswerte : Xc, Yo, Zo, Y10, Z10. 8ei eincr Oiffgl. 2. Ordnung <br />
hat Zo-are-ITedeutung von y'.
en<br />
CD<br />
......<br />
rt<br />
CD<br />
N<br />
0<br />
:I><br />
I--'<br />
I--'<br />
CD<br />
(J)<br />
""'h<br />
C:<br />
"""l<br />
en<br />
::r<br />
0)<br />
"""l<br />
'0<br />
n<br />
0<br />
3<br />
'0<br />
C<br />
rt<br />
CD<br />
"""l<br />
::r:<br />
ro<br />
""'h<br />
rt<br />
I--'<br />
I--'<br />
1<br />
2<br />
3<br />
4<br />
5<br />
6<br />
le<br />
213<br />
313<br />
413<br />
513<br />
613<br />
713<br />
813<br />
913<br />
11313<br />
1113<br />
1213<br />
1313<br />
1413<br />
1513<br />
1613<br />
1713<br />
1813<br />
1913<br />
21313<br />
2113<br />
2213<br />
2313<br />
2413.<br />
2513<br />
2613<br />
2713<br />
2813<br />
2913<br />
31313<br />
3113<br />
3213<br />
3313<br />
3413<br />
3513<br />
3613<br />
3713<br />
3813<br />
3913<br />
41313<br />
4113<br />
4213<br />
4313<br />
4413<br />
4513<br />
4613<br />
4713<br />
4813<br />
4913<br />
51313<br />
5113<br />
<strong>52</strong>13<br />
5313<br />
5413<br />
5513<br />
5613<br />
5713<br />
~8a<br />
5913<br />
61313<br />
6113<br />
6213<br />
6313<br />
6413<br />
6513<br />
6613<br />
6713<br />
6813<br />
"DGl"V 1=2*X*V: REM<br />
RETURN<br />
"DGl"Vl=~Zl=-V:REM<br />
RETURN<br />
"DGl"V2-;-S*V-2*Zl, Z2=-S*Z+2*V 1: REM<br />
RETURN<br />
"01" <br />
X=A,V=B:GOSUB "DGL":Kl=H*Vl <br />
X=X+H,V=B+Kl:GOSUB "DGl":K2=H*Vl <br />
V=B+K2:GOSUB "DGl":K3=H*Vl <br />
X=X+H, V=B+2*K3: GOSUB "OGL": K4=H*Vl <br />
V=B+(Kl+2*(K2+K3)+K4)/3<br />
RETURN <br />
"02" <br />
Be isp i e I<br />
Beispiel<br />
Be isp i e I<br />
X=A,V=B,Z=C:GOSUB "DGL":Kl=H*Vl,Ll=H*Zl<br />
X=X+H, V=B+Kl, Z=C+Ll: GOSUB "OGL": K2=H*V 1, L2=H*Zl<br />
V=B+K2,Z=C+L2:GOSUB "DGL":K3=H*Vl,L3=H*Zl<br />
X=X+H,V=B+2*K3,Z=C+2*L3:GOSUB "DGL":K4=H*Vl,L4=H*Zl<br />
V=B+(K1+2*(K2+K3)+K4)/3,Z=C+(Ll+2*(L2+L3)+L4)/3<br />
RETURN<br />
"04"<br />
X=A,V=B,Z=C, Vl=O,Zl=E:GOSUB "DGL":Kl=H*V2,Ll=H*Z2<br />
X=X+H,V=B+H*(D+Kl/2),Z=C+H*(E+Ll/2),Vl=D+Kl,Zl=E+Ll:GOSUB "OGL":K2=H*V2,<br />
L2=H*Z2<br />
VI =D+K2, Z 1 =E+L2: GOSUB I' DGL " : K3=H*V2, L3=H*Z2<br />
X=X+H,V=B+2*H*:t:>::oco<br />
r-r:t:>c.n :t:><br />
r-r ::I:_<br />
Roe .....<br />
RoeR- :t:>~Ul<br />
fT'IM (])Ul<br />
OfT'l ~<br />
fT'In Ul<br />
~fT'I<br />
-:t:><br />
::ou<br />
fT'I::OO"l:J<br />
-1 fT'IO<br />
nn"O<br />
-r:t:>:t:><br />
:t:> <br />
ID <br />
fT'I <br />
r-<br />
N Cl -l<br />
0' 0<br />
01"'1<br />
o :t (fJ<br />
o,)~<br />
;€"'1(O<br />
(O~;:J<br />
0. 3<br />
(00,)(')<br />
...... ;:J"'1<br />
;:JC<br />
......<br />
(j) ......<br />
~<br />
"'1<br />
--.J<br />
....<br />
Q)ooOCIIoonc:CD<br />
OlHN ..... fT'IlJ1~CII 01 a. ~<br />
"' •••••• •···:r~cn I<br />
"O"O:t:>CC1=.., ..,<br />
:t:>oo 11 ...·O:t:> ·to'-tJ<br />
CII rlfT'lc.nQ.oe::C+:J "" .., -1 =..., "'~-'g'x I 10 CD<br />
CD c+ :t:>. , "0 CD<br />
g.:? ~ g- ~ ~ ~ ~ ~ ~_I-:r<br />
......... Roec+.., ID:rOCIO<br />
CD ..... alQ)n OCDCD--1'"<br />
..,. UlQ.-:r ...... :t:>fT'I~<br />
.... Roe-.., "OCII c:-::o<br />
~ ~ ~. ~ ~~fi~I'~~' CD<br />
c+-<br />
Roeal<br />
10<br />
....<br />
-1 Z ....<br />
CD<br />
CII 3 ""t<br />
....<br />
:J<br />
10<br />
••<br />
rl Roe-CD ""0 a.~ <br />
O:t:>C":J = CD CDi <br />
- rl CD 0. c.n .... :J -rr ~......<br />
Roe. .... CD ::I: n 7\ CD CII<br />
MRoe ...·'" :t:> :J'"~c+.., n<br />
~ ~ CD ::0 CD 01 O::J'"<br />
- lDC"al "l:J .., 7\0...., CD<br />
Roe. ....:t:> : en c+ .... ..., ....<br />
~RoeIOc.n "0 0 CD CD <br />
o ~-..... n 01.., :J<br />
- Ul n :t:> .., .... c+<br />
Roe- I r CD N .... ....<br />
Q)Roe "l:J r :JC:J ... •<br />
:t:>~'" Co CD "n<br />
- 0 0 CD ...·CD:r<br />
~~ ~ ~ E: :I: § ~<br />
~ n Cl) 01 CD M 01:10 0.<br />
_ Q) 3 .., .... en .... CD<br />
Roe" 3 c+ en ...,........<br />
\ORoe 01 CD CD c+:J ..<br />
lHO CD 0. ..,CD<br />
.. Ul"'·'" CD3 =a..<br />
R-..:J .... 0: a.:t:> CD<br />
..... Roe 10 :JIOCDr:J<br />
..... al CD CD .... enr<br />
.. fT'IlO - .... fT'I.-<br />
Roe" CD 10 al n r- c.n Q)<br />
\oR- C" .... ..,-:rn<br />
:t:>rl CD CD CDC+O~ 0<br />
fT'I:J........ ..c: ID <br />
n c+Cllen::o.<br />
Roe :J'" I 0 ID<br />
n Ul<br />
rl :t:>
20:"TRI"B(0)=B(I):C=8<br />
22:IF B(1)+1(=10 LET A=<br />
I+t:B=B(l)+1: GOTO •<br />
AV1"<br />
24:1F 1=10 RND B(1)(=10<br />
LET A=l:B=B(I): GOTO<br />
·AV1'<br />
26:1F 1=10 AND B(I»10<br />
LET A=l:B=le:C=l:<br />
GOSuB "AV1":A=1:B=B(<br />
e)-le: GOfu "Av2"<br />
28:1F B«()+i>10 LET A=I<br />
+l:B=l~:C=l: GOSUB "<br />
AV1"<br />
29:1F B(0)-10+I(=10 LET<br />
A=1:B=B(IiI)-10+1:<br />
GOTO "A\I2'<br />
30:IF B(0)-10+1(=20 LET<br />
A=1:B=10:C=1: GOSUB<br />
"AY2":A=1:B=B(0)-20+<br />
I: GOTO "An'<br />
40: "AY1"B
\<br />
\ ~ \<br />
~<br />
~<br />
".(')<br />
J ~<br />
~' .,<br />
~ :<br />
..<br />
~<br />
~ ~~ ~e<br />
"'*' <br />
~~ ~f<br />
~ %> ~<br />
~ .<br />
~<br />
~<br />
~ . '""" I<br />
~<br />
t1 ~<br />
\ ~ /<br />
~~ ~:y<br />
(S~<br />
~ ~<br />
~ :4<br />
tr ~<br />
r.n<br />
ro<br />
1-'.<br />
M"<br />
ro<br />
t'J<br />
t'J<br />
:I><br />
I-'<br />
I-'<br />
ro<br />
rJJ<br />
"1"l<br />
C<br />
....,<br />
r.n<br />
::r<br />
....,<br />
Ol<br />
'0<br />
o<br />
3<br />
'0<br />
C<br />
M"<br />
ro<br />
....,<br />
::r:<br />
ro<br />
"1"l<br />
M"<br />
I-" <br />
I-" <br />
188:"iOU"<br />
~82:E=E+1<br />
183:S=(E/2- INT (E/2»<br />
i84:IF S.5 LET S=1:<br />
GO TO "JOU"<br />
186:5=6<br />
288:IF B(1)=8 AND B(2)=8<br />
AND B(3)=8 AND B(4)=<br />
o AND B(5)=8 BEEP 1:<br />
GOTO ¥TOU"<br />
281:CURSOR 24: PAUSE "Ic<br />
h bin dran."<br />
202:D=8:G=0<br />
204:FOR 0=6 TO 10<br />
286:FOR P=5 TO 1 STEP -1<br />
208:IF B(O)=l AND B(P)+P<br />
=0 LET G=P<br />
210:IF B(P)=l AND B(O)+O<br />
-18=P LET D=P<br />
212:NEXT P: NEXT 0<br />
213:IF G8 THEN 'SI8"<br />
214:IF D8 LET leD:<br />
GOTO "TRI"<br />
382:K=8:L=8:f'I=8<br />
304:FOR P=1 TO 5<br />
306:IF B(P)+P>9 LET ~=P<br />
308:IF B(P)=l AND K9<br />
LET L=P<br />
310:IF B(P)=l AND K=0<br />
LET K=P<br />
312:NEXT P<br />
313:IF ~0 LET I=M:<br />
GOTO "TRIO<br />
314:IF K8 AND B(K+l)=8<br />
AND K5 THEN "SI2"<br />
316:IF K0 LET I=K:<br />
GOTO "TRI"<br />
408:IF E=l LET 1= RND 3:<br />
GO TO "TRI"<br />
508: "DPN"S=0<br />
502:FOR K=l TO 5<br />
584:IF B(K)8 THEN "SIl<br />
505 IF B(K)=8 L~T S=S+l<br />
586 NEXT K<br />
508 IF Y=8 THEN "TRIO<br />
518 IF Y0 AND U=0 AND<br />
S
" J a.!! I ch bin<br />
a.bgel"utscht."<br />
5135 BEEP 5,255,255<br />
5113 H=H+l<br />
<strong>52</strong>0 GOTO 151313<br />
550 WAIT 10e:BEEP<br />
5: PRl NT "HeIJ!"<br />
;B;" MeteI' sin<br />
d naehel""<br />
555:PRINT "a.ls"jAj<br />
" Me t e I" • I ch h<br />
abe"<br />
56e:PRINT "die Run<br />
de gewonnen !"<br />
565:BEEP 20,1,50:C<br />
=C+1:GOTO 15130<br />
5/'0:WAIT 1013:PRINT<br />
"Gut, 5 i eht a.u<br />
s als wael"e"<br />
5/'5: PRINT "d i es e i<br />
n Pat t !": BEEP<br />
5, 100, 1013<br />
5813: H=H+ 1: C=C+ 1 : <br />
GOTO 15013 <br />
8e0:FOR I=ZZTO 96:<br />
GOsUB 21300:<br />
NEXT I<br />
80S:WAIT 5:BEEP 1,<br />
2,2<br />
810:GCURSOR 9/':<br />
GPRINT 96;122;<br />
103;127;18<br />
815: BEEP 1,3, 3<br />
820:GCURSOR 98:<br />
GPRINT 96;122;<br />
119;/; 26<br />
825:BEEP 1,4,4<br />
83e:GCURSOR 99:<br />
GPRINT 96;122;<br />
/';31;18<br />
83S:BEEP 1,5,5<br />
840:GCURSOR 100:<br />
GPRINT 96;26;2<br />
3;/';26<br />
845:BEEP 1,6,6<br />
850:GCURSOR 101:<br />
GPRINT 0;<strong>52</strong>;14<br />
;62;36<br />
855:BEEP 1,7,/'<br />
86B:GCURSOR 1132:<br />
GPRINT 13;104;9<br />
2;28;104<br />
865:BEEP 1,8,8<br />
870:GCURSOR 103:<br />
GPRINT 13;80;56<br />
;56;813<br />
875:BEEP 1,9,9<br />
88e:GCURSOR 1133:<br />
GPRINT 13;32;11<br />
2; 112; 32<br />
885:BEEP 1, 1~ le<br />
890:GCURSOR 1133:<br />
ill <br />
r= <br />
rim <br />
51 <br />
re <br />
[iMJ<br />
&I <br />
[G] <br />
[8 <br />
rml <br />
re <br />
;l><br />
I--'<br />
I--'<br />
DominikA. MUller<br />
ENDE DER WELT. Blankeneser Ha.uptstre.Be 13<br />
2000 Hamburg 55<br />
Ea ist eine Misohung a.us Spiel -und Denkprogramm. AutdieSp1elregeln<br />
bra.uehe 1eh nieht naher einzugehen, weil aie a.us dem Spiel selbat hervorgehen.<br />
Sta.ttdessen tUhre ich hier ein pa.ar Ha.rdeopies vor, die Beispiele von<br />
moglichen Spielszenen zeigen.<br />
Displa.y!nhalt zu Beginn einer Rundes<br />
1 ? 80 **<br />
a. b e<br />
a. - Hier wird die Einga.betorm (1-4) a.ngeze1gt. <br />
b _ An dieser Stelle wird die Meter-Za.hl a.ngezeigt, die man noeh vom <br />
Abgrund entfernt ist.<br />
e - Hier wird die letzte zurUckgelegte Meter-Za.hl a.ngezeigt.<br />
Beispiela.usdruckc<br />
:!I;<br />
1 56 24<br />
:!I;<br />
2 31 16<br />
;t<br />
3 8 6<br />
;t<br />
3 0 7<br />
ro<br />
[fJ. it '7'<br />
-'<br />
'"'t Der na.chfolgende Beispielauadruck zeigt die Meter-Za.hlen an, die der<br />
c: Computer zurUcklegt.<br />
'1<br />
ComPlft. et- V: 36m ....'. A.: 44m<br />
UJ<br />
a. b<br />
::r<br />
Cl) <br />
'1 a. - Hier wird die letzte vom Computer zurtiekgelegte Meter-Za.hl a.nge<br />
"d zeigt (V - Versueh)<br />
b Ea wird angezeigt, wieviele Meter aich der Computer vam Abgrund<br />
n<br />
a<br />
o<br />
3<br />
"d<br />
C<br />
rt<br />
ro<br />
'1<br />
::r:<br />
ro<br />
'"'t<br />
rt<br />
I--" <br />
I--" <br />
UJ<br />
ro<br />
~.<br />
rt <br />
ro <br />
N<br />
W<br />
entfernt befindet.<br />
l:REM DOMINIK A.<br />
MUELLER<br />
2:REM BLANKENESE<br />
R HAUPTSTR.13<br />
3:REM 2131313 HAMBU<br />
RG 55<br />
5:BEEP 5:PAUSE "<br />
ENDE DER<br />
WELT"<br />
10:CLEAR :RANDOM<br />
:WAIT 100<br />
11: INPUT "El" I Qe t e<br />
I"ung? (J/N) ";<br />
ER.<br />
12:IF ER.="N"BEEP<br />
1, 255, 255: GOTO<br />
813<br />
13:WAIT 150:BEEP<br />
5,50,25: PRINT<br />
"Sinn des Spie<br />
I es ist, nQe-"<br />
14:PRINT "hel" Qn5<br />
Ende del" Welt<br />
zu"<br />
15: PRINT "kommen,<br />
QI s de I" PC-15<br />
00."<br />
16:PRINT "lee Met<br />
el" VOI" dem Abg<br />
I"und"<br />
17:PRINT "wil"d ge<br />
stal"tet. Fuel"<br />
jeden"<br />
18:PRINT "Uel"such<br />
9 ibt eS vie I" "<br />
19: PRINT "Moes I i c<br />
hkeiten:"<br />
20:PRINT "- 1 - L<br />
Qnge Bewegung"<br />
21 : PR I NT 11 zw i s ch e<br />
n 0 und 40 Met<br />
el"."<br />
22:PRINT "- 2 - M<br />
it t I el"e Bewegu<br />
ng"<br />
23:PRINT "zwische<br />
n 0 und 20 Met<br />
el"o"<br />
24:PRINT "- 3 - K<br />
ul"ze Bewegung"<br />
25: PRINT "zw i sche<br />
n 0 und le Met<br />
el"."<br />
26:PRINT "- 4 - K<br />
e i ne Bewegung"<br />
27:PRINT IIJetzt m<br />
uss del" Comput<br />
el'"<br />
28:PRINT "Dein El"<br />
gebn i s uebel"b i<br />
e~en! "<br />
8e:WAIT 100:BEEP<br />
2:PRINT "Wievi<br />
ele Runden sol<br />
len"<br />
81:INPUT "gespiel<br />
t wel"den7 "; R<br />
82:IF R(=eGOTO 80<br />
85:PRINT "HQllo,<br />
ich bin del" PC<br />
-15130"<br />
86:POKE &7e4E,75:<br />
INPUT "und wie<br />
heisst du7 ";<br />
NA$<br />
87:POKE &7e4E,65<br />
88:PRINT "Also gu<br />
t, ";NA$<br />
89:PRINT "dann sp<br />
ielen wil" jetz<br />
t ,.<br />
ge:PRINT "gegene i<br />
nQndel". LOS GE<br />
HTS !"<br />
91:BEEP 5,513,513<br />
1ee:N=N+1<br />
11e:A$="6e7A677F72<br />
":B$="6e/,A/'/'6/'<br />
/,A"<br />
12e:A=8e:B=Be:ZZ=1<br />
5:GZ=15:L=1<br />
13e:WAIT 1ee:PRINT<br />
"Runde NI".";N:<br />
BEEP N<br />
14e:WAIT 0:CLS<br />
15e:FOR I=eTO 213:<br />
BEEP 1, 1, 1<br />
16e:GCURSOR I:<br />
GPRINT 96:NEXT<br />
I<br />
17e:FOR I=2eTO lee<br />
: BEEP 1, 1, 1<br />
18e:GCURSOR I:<br />
GPRINT 32:NEXT<br />
I<br />
1ge:FOR I=2eTO lee<br />
STEP le:<br />
GCURSOR I:<br />
GPRINT 96:NEXT<br />
I<br />
2ee:GCURSOR 15:<br />
GPRINT A$:<br />
CURSOR 18:<br />
PRINT "7"<br />
210:CURSOR 23:<br />
PRINT "**"<br />
22e:CURSOR 19:<br />
PRINT A<br />
23e:IN=ASC INKEY$<br />
24e:IF IN(490R IN><br />
<strong>52</strong>GOTO 2313<br />
25e:BEEP l:CURSOR<br />
17: PRINT (l~-4<br />
B):GOTO 31313 <br />
260:GOTO 230 <br />
300:0N (IN-48) <br />
GOSUB 10130, 102<br />
13, 11340,41313<br />
310:A=A-Z<br />
320: IF A
16:IF A)=22 AND A(24.59<br />
THEN LET D=4<br />
17:IF"A)=1 AHD A
lIlfi<br />
?ilcl',<br />
· ~'cJ ~<br />
r J.'l~~ -.. I<br />
.-:. !<br />
Cl)<br />
~ ~:\ ~~<br />
~ ~ ~ ~<br />
~~\~ tJ<br />
'l:. , ~<br />
~~t \. ~ ~ ~.<br />
~ t> ca4 m ~<br />
~ ~ ~~<br />
~ '><br />
~ ~<br />
275:L1NE (W,0)-(W, 440:LPRINT " oer- 0<br />
Progranun "Grafische Darstellung" -15) ur-chschnittswe<br />
(Diagranun) 280:L1NE (W,-15)-( r-t betr-ae9t"<br />
0,-15) 445:GLCURSOR (60,<br />
Wie hinlKnglich bekannt 1st, sagen Grafiken sehr viel mehr Uber ~h 285:L1NE (0,-15)-( 200) <br />
len aus als Zahlen selbst. Dieses Programm fUr den PC-1500 kann fUr 0,0) 450:LPRINT (N/J);" <br />
jede Darstellung von Zahlen genutzt werden; es berUcksichtigt ebenso 29ra:lINE (0,0)-(8, <br />
die Darstellung von negativen Zahlen. Die Zahlen werden in Form von -8) 455:GLCURSOR (0,-4 <br />
dreidimensionalen Balken zu Papier gebracht. 295:L1NE (0,-15)-( 80):SORGN <br />
Das Programm stellt quasi eine Erweiterung zu den beiden im SHARP · 8, -23) 46ra:CLS :WAIT 1.3: <br />
Anwender-Handbuch befindlichen Programmen GRAF1SCHE DARSTELLUNG I 300:GLCURSOR (0,-2 PRINT "Kopie ( <br />
und II dar. 6):SORGN<br />
J/N) "<br />
Und hier no oh einige Hinweise zur Bedienung des Programmesl Nach dem 305:NEXT I 465:IF 1NKEY$ =I'J"<br />
Start mi t RUN wird bei "Posten x I" die Postenbezeichnung und bei 310: WAIT 0: PRINT " GRAPH :ROTATE <br />
"Wert x I" der Postenwert eingegeben. Es kennen maximal bia zu acht Schr- i ft I .oar-st I:CSIZE l:GOTO<br />
zehn Posten e1ngegeben werden. Wenn man allerdinge schon vorher die e I I un9 (J/N)" 125<br />
Eingabe beenden will, muG man bei "Posten x 315:IF INKEY$ ="J" 470:IF 1NKEYS ="N"<br />
I" einen Klammeraffen<br />
(0) eingeben.<br />
GOTO 330 END<br />
Nach Beenden des Eingabeteiles kann man dann die Farben fUr die Bal 320:IF 1NKEYS ="N" 475:GOTO 455<br />
ken aU9wB.hlen. Es folgt der AllSdruck des Diag:re.mmes. Danach kann man GOTD 460<br />
325:GOTD 315<br />
STATUS 1<br />
sich noch eine schriftliche Darstellungsform &usdrucken lassen und<br />
zu guter Letzt besteht die<br />
330:BEEP 1,99,200 2000<br />
M~glichkeit, sich alle grafischen und<br />
schriftlichen Darstellungen beliebig oft kopieren<br />
335:1NPUT "Uebersc<br />
zu lassen.<br />
1ch hoffe, daG Sie das Programm verwenden kennen und verbleibe<br />
hr-ift: ";US PROGRAMMAUFBAU s<br />
340:CLS :GRAPH :<br />
COlOR 1:CSIZE Zeilen Erkli:i.rung<br />
85:IF 12>=0GOTO 1 155:RLINE -(0,4): 2:ROTATE 1:<br />
DIAGRAMM<br />
00 GLCURSOR (208, GLCURSOR C0,-1 5 - 15 Dimensionierung, Titel<br />
90:INPUT "Far-be d 13*5+9):LPRINT 00):SORGN 20 - 45 Eingabeteil<br />
.Balken (ne9) 11 345:GLCURSOR (204, 50 - 70 Errechnung der Y-Achse<br />
5: CLEAR : WAIT 0:<br />
:l> : ";CN 170:GLCURSOR (F+8,<br />
0):LPRINT US 75 - 95 Eingabe: Farbe f. Balken<br />
........<br />
GRAPH :ROTATE<br />
95:1F CN3 0):SORGN<br />
350:CS1ZE 1:FO=196 100 - 120 Errechnung des Nullpunktes<br />
........ 1:CS1ZE 1 <br />
OR CNINT CN 175:L=J*25+15<br />
/J:G=190 125 - 170 Zeichnen der Y-Achse<br />
CD 10:oIM A$(18),A(1<br />
BEEP 2:GOTO 90 180:L1NE (0,0)-(0, 355:FOR 1=ITO J 175 - 195 Zeichnen der X-Achse<br />
rJJ 8)<br />
100:ol=Il-12:1F 12 -l) 350:GLCURSOR (G,0)<br />
15 : PAUSE ,.<br />
200 - 305 Zeichnen der Balken<br />
0<br />
)=0LET F=0:ol= 185:LINE (0,-L)-(8 :IF J>9ANO 1 370:GLCURSOR CG,-3 460 - 475 Kopie J/N<br />
r.n 110:IF F
lforzrqung + 1£nturirklung <br />
[JJ<br />
ro<br />
B E r S PIE L A U S D RUC K E : PC-1245/1251/1260/1261 + CE-125<br />
=~=~=~=~==~=~=m=~=~==~~=~~~=~~~~~~gr~~~=M~g~grg~~=<br />
~.<br />
rt UERKAUF JanC4ar- 8. Damen e..ollen so aufs Schachbrett geetellt werden, daJ3 keine<br />
I. fI"",llhd.rhllltcl" 2.<br />
ro 2. K",.1Cct-rCiDeI'" J~<br />
von ihnen bedroht 1st. Das Programm berechnet die'92 Losungen,<br />
3. Bun." I ft, -3<br />
die dieses Problem hat. Die 8 Ziffern jeder Losungezahl zeigen<br />
N ;: ~:~!:~:::: ~2 AUSWERTUNG<br />
e. 11...1........... 11 S<br />
die Stellungen der Damen auf den 8 Zeilen. Das Diagramm der er<br />
0"\ 7. ,.",.,1\'1'1." -I IJOf"I 18l-1..,.'tn clncl HlI po'''I ....,<br />
eo Sc:fI,.cibtlCUI .. le<br />
sten Losung 15863724 wurde mit den Ze11en 40-44 gedruckt. Die<br />
8. A't.ti'I.~.". " 2 11, Poc'irV'lcn 28<br />
'nt~Cl.tlvund".!.i(;P\l'1Ull.<br />
nt.,. 8 Losungsziffern mtissen, wie nach Zeile 36, vorher in den Spei<br />
11. ICv\c IIrV'lIIn J' o....rcf"er-r"IIU'IIIt... t bctr"'ac"t<br />
:t> 12. TIm..,..a.,,.Dn4n -0<br />
chern A bis H seine<br />
J3. F.rtH-in," ... IIJ ~.e.eCftoe6e].<br />
i-"<br />
14. ,.1 ooft\ If ftGpl e" -J<br />
Zu jeder Losung wird sogleich das Sp1egelbild berechnet, be1 dem<br />
i-" JlII. ....,. fpQfPIU' -8<br />
le. 5ctt,.,.ttpo.ph,. 12<br />
jede Ziffer z durch 9 - z ersetzt 1st. Die 92.Loeung ist dae<br />
ro I'. ~C"fIt... <br />
.l8<br />
Spiegelbild der ersten, die 91-te das der zweiten usw. Man kann<br />
-I I•• Sctt.. I~""I,..n .:\<br />
C/J die Berechnung daher nach der 46.Losung, wenn die erste Ziffer<br />
o-n 1) Reispielausdruck I Beispielausdruck 11 Beispielausdrlck III groSer ala 4 wird, abbrechen. So spart man die halbe Zeit.<br />
C: In der L1ate aind hier nur die beiden ersten und letzten Lo<br />
"1 sungspaare abgedruckt.<br />
(omputerzubehoer Mit PC-1245/1251 dauert die ganze Berechnung mit Druck 93 Minu<br />
[JJ<br />
I. c""""" •• PC-.:!88 .88<br />
::r<br />
ten. In "Bild der Wiseenschaft" 10/1978, 1/1979, 6/1979 wurden<br />
7. PlO",,, C'[-I!58 68<br />
DJ AUSWERTUNG<br />
noch Zeiten von 12-14 Stunden fUr Losungen mit Rechnern SR <strong>52</strong>,<br />
"1 2J<br />
HP-25 , HP-67 genannt. Der dagegen erreichte groSe Zeitgewinn<br />
3. CE-I:5:5 .0
F[ 1 ............. (........ :1699)+(J)1899)+ <br />
(J>2199)+(J)2299)+28 LET S=t:BS="Juni·<br />
.::J<br />
- ~ <br />
Ostern laesst sich 2 497:~$= STR$ S: GOSUB S9 ~<br />
•..... 10 FOR 1=010 10 ERGE9NJS:<br />
nach fQI,ender For.el be 335:D=(J>1699)+(J>1799)+ 9:S$=W$: PRINT "Pfin<br />
20 M=( 1+ UAND 3 1 232 1 232 1 2 3 Ai <br />
rechnen:~an dividiert (J)1899)+(J>2899)+(J ,st.onta, :·;S$;B$ I<br />
25 PRINT M<br />
I' +<br />
die Jahreszahl(J) durch >2199)+(J)2299)+18 498:INPUT ·Weitere Berec<br />
30 NEXT 1 f1 it die se. r Ze i le is tuns <br />
4,wobei ein etwaj,er 348:X=(~-11*A)/38 hnun,en? J/N ·1K$: e i ne e I<br />
:z><br />
e9 ant e Loes un9 fue.r<br />
Rest unberuecksichti't 358:Z=( IHT X):B=("-11.A IF K$=·N· END<br />
I--' eine Zae~lkette gegeben,die<br />
bleibt,und erhaelt so )-38·Z: IF B=29 OR B 499:GOTO 319 1:1<br />
I--' 1 2 3 0 als Ergebnis aus9ibt.<br />
die Zahl Q;dann tei It<br />
=28 IF "=292 OR "=28 599:PRINT ·Keine Berechn I<br />
ro L-<br />
rJJ .an J/19,bleibt Rest A; 4 OR "=285 LET B=B-l un, dieser Jahreszah J •<br />
fl<br />
(~-11.A)/38,bleibt Rest 368:X=(J+Q+B-D)/7<br />
I .oe, I ich·: GOTO 31<br />
'""h B;(J+Q+B-D)/7,bleibt 379:Z=( IHl X):C=(J+Q+B 9 .:-+ "..~ ...!..~ ..<br />
!I~<br />
-~ ,.<br />
~: Rest C;so ist der(28+B<br />
D)-7*Z 688:U=T-18 r~l:::: 1 ~1+ (: F::::<br />
..<br />
l~<br />
388:0=28+B-C: IF 0)31 ,,"""T"k<br />
'lUlL<br />
'""'l C)te "aerz bzw.Apri 1- 681:IF U>=1 LET C$=B$: ! III<br />
LET 0=O-31:AS=·Apri I GOTO 684<br />
1'[1<br />
fuer Zahlen ueber 31 (28<br />
W .: GOTO 385<br />
ER6£BNJS:<br />
+B-C-31)-Ostersonnta,.D 692:IF U'*5 ERGEBN1S: ~<br />
1268/61 errechnet dann J/H? "jKS: IF KS="J :3 * S H A R P * kleine Listin9s eirgeco.ut,d:J.mit ~<br />
ro ten .it B=27 weiterrech 394:W$= STR$ 0: GOSUB 88 Karfreita, :28."aerz<br />
'""h nen. 25 PRINT M 9 14 14 14 i4 14<br />
rt 8:0$=W$: PRINT ·Oste Osterso"nta, :38.Maerz 30 NEXT H<br />
rsonnta, :·;O$jA$ Oster.onta, :31./'Iaerz •<br />
,eht die Berechnun, ein Kla.mmer 91eich 0, ist H)2,also<br />
f--' GOTO 398 Pfin,stsonnta,:IS./'Iai<br />
facher und schnel ler!! 396:W$= STR$ ( YAL 0$+1)<br />
H=1 ,H=2 ,usw.,so ist der Wert<br />
Pfin,st.onta, :19./'Iai in der Hoffnun9 vielen SHARP<br />
: GOSUB 8e9:p$=W$: •••••*•• 1987 •••••••••<br />
der Klammer immer glejch 1.<br />
f. C~mputer-Besitzern eine<br />
~it unsere. Pro,ra•• •. I Wenn H=2 ist,so ist der Wert der<br />
f--' 395:P= YAL OS+I: IF P=32 Hi ••elfahrt : 8./'Iai '.. ~<br />
W InUllIlIlI1I PRINT "Oster.onta, Karfreita, :17.Apri I ;:- k le ine Hi I fe gegeber'1 zu huber, ~<br />
ro • co~Yri'ht I<br />
...,. :·;P$;A$: GO TO 499 Ostersonnta, :19.Apri I wuenschen wir viel Spass beim<br />
11985·bY*1985. 398:P=1:A$=·April·:W$=<br />
rt Oster.onta9 :29.Apri I ':J!.<br />
.SHARP ..<br />
Pr09rammieren mit den drei<br />
ro STR$ P: GOSUB 8ge:p$ Hi ••el(ahrt :28./'Iai "f • Ze i I<br />
• Basic-Tea. •<br />
en.<br />
=W$: PRINT ·Oster.on Pfin,stsonnta,: 7.Juni<br />
11111111111111 tu :";P';A$<br />
;:<br />
N Pfin,st.onta, : 8.Juni<br />
~
16B:DATA 31,(28+S),31,38 S18:DATA • 13"," 14"," 1 •• ):1):1):1):1 E CD o E ):I:..., N ~ E ~ ........ CD<br />
,31,38,31,31,38,31,3 5·," 16·,· 17",· 18" [;)O'C~c"l»m ):III)~mm. mC3:::1 10<br />
r.n c:rnE:r~~ -4":10.:r~ :J ...... c+<br />
ro 8,31 ," 19",· 2e·," 21"," -4~:rm ..... a.3 ):I m"i .... "'1~C"tlo. "-:I<br />
* PC-1260/61 * KALENDERPROGRAMM * c.... ..... ..... -!S<br />
IV<br />
~.<br />
18B:RESTORE 288 22"," 23",· 24· ""fImen""fl"i"tl k~~~m~EI.CI~~ ...,<br />
-1J<br />
:lm"icmm"i II)m~<br />
rt 190:FOR K=l TO 12: READ <strong>52</strong>8:DATA " 2S",· 26"," 2 <br />
...... :::I .... mlO<br />
.::- ~:::1 ..... 0 "i 10 E ...... m .":1 I.CI "i 0<br />
ro :1111 mlQ Ill. 10 n-C mm":l mOlC"<br />
Ich druck mir einenKalender I'IN$(K): NEXT K 7·," 28·," 29·," 38"<br />
n ~. n "i<br />
-"T'I<br />
20B:DATA "Januar","Febru ," 31"<br />
:r:::l :rODl -1J~:5 af'1O ~g-~ ~ :J:m<br />
N CDl:Jm ~ID::J 10 m:r<br />
ar",·"a.rz",·Apri I", ;~n- ~t;~ -!S ....<br />
CXJ I. Anwendun,shandbuch n-!Sa. -!S<br />
~;.. ...... ~~~~m~~ C't"IV<br />
"I'Iai","Juni",·Jul i", 0'0I ........... "i o CD 01 "-:I<br />
tuer PC-1481 der Fischel BEl S PIE L E<br />
:rn-~ n-~~<br />
"Au,ust· CD<br />
.. ~<br />
G.bH tanden wir a. 0. o. ..... "tl :;~\O~0~~~$5<br />
ein Ka ml»::tI 1»3fT1 cn~~.):I<br />
:J> BEDIEHUNGSHINWEISE 218:DATA "S.~te.b.r·,"Ok<br />
):I;OC't" tn:::l<br />
Jender~ro'ra•• ,das uns<br />
"illlm enN::C mOIDC-I"'Oo.l .... 111 m<br />
I--' RUN startet das Pro,ra••• tober","Nove.ber","D n Dl 1 ~n" ):I"iro):l:2:J ~ 0.<br />
tn :r ...... IO~~f"I c+m<br />
I--' in eini,en Punkten noch Jahreszahl ein,eben,louo eze.ber" :.~ ~~5 ~~$ n-CL ...JEC" E::C"'O m ~<br />
, VI<br />
ro nicht betriedi9te, Wochenzaehlun, bis 1976 letzten Monat,bzwo bei 228:).I=B Vlt! "tl~m ~m-l roro ....... m .... oro ":I<br />
1:1. (SI<br />
c: N "i -!S:::I:J: .... ":ICO"iro):l ......... O CD "0<br />
rj) besonders die Wochen Ausdruck von nur eine. 239:FOR K=1 TO 12: PRINT ", ...<br />
~~ -IC Cl fTI .... 1..I):IC't"3-1enenlO • "-:I<br />
.. ~<br />
zaehlun,.Hach DIH1355, I-!So. ION m,. -t ro):lCC't"":I \00<br />
Deze.be;' 1948 <br />
'"1). l'Ionat,2. den selben = PRINT : WAIT 8 ~ =- r -0; .... 'TI, .alTll..- :::In):l ...... 1:::1 ID • 10<br />
~ •• · _~:z:.,.,o ):10 ..... m·-!S<br />
die aut einer von der ~:t<br />
1'10 DI "I DO FR SA SO <br />
... Cl c...... ::;0 -0 ~ :::I1.C1 m ~ 1..1 C o IC3EIOro3 ...... "i<br />
l'Ionat ein,eben. 2SB:IF K>"A AND K _ w wUl<br />
NEXT U ~:r m m ro :r:::l I 01 -1 ..... 10<br />
4 der ersten 7 Januar 1'10 DI "I DO FR SA SO 9B:INPUT "n-ter Monat " ;:":"'!1';:"~~DI> .... ~<br />
rt<br />
0.":1:::1 .... mE::tI<br />
ta,e tallen.Dabei ,i It 211) m ~<br />
49: 1 2 3 4 5 6 :I c ~~5'~:r:::l~ crol»<br />
;I1E:I1E=I1E+l<br />
3S8:GOSUB 488: NEXT I <br />
§ ::;;::~!1':"';:..:"~ f"I~ "i Dl en ...,:rE Eo.n CD ........ <br />
I-' ~on\a, als IoTa, der 59: 7 8 9 10 11 12 13 190:IF J)1976 LET F=I:<br />
368:IF R=8 GO TO 388 it~-.Jw-,,--cI'>!:lo ~ :::I ~ C't" C't'ri'ma.mm:r 0' 3 ...,<br />
~a:I __ Ulw u.-..I "'I "Oil) CD:::I~<br />
378:FOR 1=1 TO (I+Y): .... m"i"i .... 01<br />
~<br />
i--A Kalenderwoche,de.nach 51: 14 15 16 17 18 19 29 .. ......... -..D"'''<br />
GOTO 118 ;0 fTln-n ::C":lN<br />
......... f'1. :r ~ S;2-~":I~Nh .... 111<br />
ist also Donnersta, READ H$:A$(8)=A$(8)+ i-' :;!1'~:f~~ m<br />
<strong>52</strong>: 21 22 23 24 25 26 27 191:F=9 <br />
;Zlll "tl n- :::I ro"i~:::J:. ro:r fTI"i .... <br />
Wochen.itte. N$: NEXT I: GOSUB 48 ! ~::~~~ Nn m nlODl ~m<br />
!S3: 28 29 38 31 o C't'<br />
118:FOR Y=1 TO 9 STEP -1 <br />
):I. N m :::I :r , "i .... :::1 tn::tl:::l<br />
8:W=W-l<br />
~<br />
I a. C't' m. -I~III<br />
129:H= INT «J-Y)/lee):G f' :::I,<br />
IV IV ):I:::I"i<br />
SCHALTJAHRREGEL: Januar 1988 =(J-Y)-H.IB9-1<br />
388:D(8)=Y+l: IF D(8)=7 "i 010<br />
-I<br />
Schaltjahr:Zei\abschnitt 1'10 DI I'll DO FR SA SO 139:Z=35+ INT (1.2S.G)+<br />
LET D(8)=8<br />
von 366 Ta,en.Es wird , 53 m 0'<br />
1 2 ~ INT (H/4)-2*H:D(Y)=Z<br />
3S5:NEXT K <br />
zeitwei li' tuer das Son 1 4 5 6 7 8 9 18 - INT (2/7).7 <br />
398:EHD<br />
nenjahr ,esetzt,u. die 2 11 12 13 14 15 16 17 132:IF (J-Y)/190= INT «<br />
498:W=W+l:E$= STR$ (W): <br />
Uebere-insti ••un, 3 18 19 28 21 22 23 24 J-Y)/180) IF (J-Y)/4 IF W
Friedrich Koellen<br />
Geschw.Scholl-Str. 3<br />
5024 Pulheim 2<br />
:> ~<br />
~ ;<br />
~ i<br />
~ "<br />
:> .• <<br />
~.- - --------<br />
::J I ',<br />
~ i .<br />
~ ~ <br />
:: !s ~ : "', <br />
c,<br />
:<br />
g! ! I _ ~"~ .....<br />
.. . .<br />
:: ~ : ~ ~ ~ : '" .. <br />
:><br />
u<br />
:><br />
5:REM Ladekurve<br />
eines Kondensat<br />
ors<br />
6: REM COPY.:<br />
8: REM F r i edr i ch<br />
»<br />
....... Koe I I en OG2KW<br />
....... 10:"A"CLEAR:<br />
ro GRAPH :ROTATE<br />
(fJ l:CSIZE 1<br />
lS:GLCURSOR (10,<br />
>-t)<br />
50): SORGN<br />
c:<br />
.., 20:LINE (0,0)-(20<br />
5,0)-(200,-3)<br />
(Jj (200,3)-(205,0<br />
)<br />
::J"<br />
rD 25:FOR 1=0TO 200<br />
..,<br />
STEP 20<br />
'0 313:GLCURSOR (1,-2<br />
) : GOSUB "1"<br />
(1<br />
o<br />
34:A=I/2:A$=STR$<br />
a A:1F LEN A$=2<br />
'd LET A$=" "+A$<br />
c 35:1F LEN A$=lLET<br />
rt A$=" "+A$<br />
.., ro 37:GLCURSOR (1-2,<br />
30):LPRINT A$<br />
::r:: 40:NEXT 1<br />
ro 45:GLCURSOR (195,<br />
>-t) 55):LPR1NT "U"<br />
rt 50:GLCURSOR (190,<br />
48):LPRINT "C(<br />
f--" U)"<br />
f--"<br />
5e:LINE (0,0)-(0,<br />
-450)-(-2, -445<br />
)-(2, -445)-(13,<br />
(Jj<br />
ro -450)<br />
""",.<br />
55:GLCURSOR (-]0,<br />
rt -42e):LPR1NT "<br />
ro t(sec)"<br />
70:US1NG "##"<br />
N<br />
I.D<br />
75:FOR J=0TO 300<br />
STEP 1013<br />
80:GLCURSOR (-2,<br />
J): GOSU8 "3" THERMOMETER SCALA 7e:GLCURSOR (-15,<br />
85:0=J/100: J):GOSUB "2"<br />
GLCURSOR (-le, [0 75:NEXT J<br />
-(J-8»:LPR]NT 80:NEXT 1<br />
o 85:GLCURSOR (-33,<br />
90:A=J+2e:B=J+80: 1 ) : GOSUB "3"<br />
C=2e 95:FOR 1=25eTO 413<br />
95:FOR K=ATO B eSTEP 50<br />
STEP C 100: GL CURSOR (5, 1)<br />
1e0:GLCURSOR (-2, :GOSUB "3"<br />
K); GOSUB "2" le5:A=1+5:B=1+2e:c<br />
110 NEXT K =1+25<br />
120 NEXT J l1e:FOR J=ATO B<br />
150 USING '!l###.##<br />
STEP 5<br />
115:6LCURSOR (5,J)<br />
1513: INPUT "U: (U)=" : GDSUB "2"<br />
;U: IF U>10eLET 12e:NEXT J<br />
U=100 125:GLCURSOR (5,C)<br />
165:FOR J=2eTO 4130 :GDSUB "I"<br />
STEP 213 130:A=I+30:B=I+15:<br />
1713:T=J/lee C=1+25<br />
175:UC=U*(1-(]/EXP 135:FDR J=ATO B<br />
T» STEP 5<br />
1813:Y=UC*2:X=T*10e 14e:GLCURSOR (5,J)<br />
190:Xl=X-20:Yl=2*( :GOSUB "2"<br />
U*U-(l/EXP (T 145:NEXT J<br />
-.2»» 15e:NEXT ]<br />
195:L1NE (Y1,-X1) 155:GLCURSOR (5,1)<br />
(Y,-X),1,3 : GDSUB "3"<br />
2ee:NEXT J 150:L]NE (13,370)-(<br />
2e2:LINE (Y,-X)-( 2, -2), 13, 3, B<br />
2, -X), 13,3: 151 : L ] NE (1, 370) - (<br />
COL OR 0 1, - 2 ), 0, 3, B<br />
2e3:GLCURSOR (-10, 155:CS]ZE 3:<br />
-397):LPR]NT "<br />
5:REM COPY.OG2KW<br />
GL CURSDR (-le,<br />
4"<br />
5:REM FRIEOR.KOE 480):LPRINT "C<br />
2135:GLCURSOR (200,<br />
- HD: LPR]NT "U<br />
LLEN<br />
le: "A":CLEAR : 17e:CS]ZE 1:<br />
C=" ; UC;" U : "<br />
PAUSE "THERMOM GLCURSOR (113,4<br />
;" U=" ;U;" U"<br />
ETER SCALA": 91):LPR1NT "D"<br />
205:GLCURSOR (185,<br />
COLOR 13 175:GLCURSOR (28,4<br />
-10):LPRINT "L<br />
12:LPRINT " THERM 53):LPR1NT "40<br />
adekurve eines<br />
Kondensators"<br />
OMETER SCALA"<br />
13:LF 5<br />
18e:GLCURSOR (28,4<br />
2138: GLCURSOR (170,<br />
14:GRAPH<br />
03):LPR]NT "313<br />
-HD:LPR]NT "U<br />
C=U*(1-e<br />
15:GLCURSOR (115,<br />
A -Ct/R<br />
-4ee):SORGN 185:GLCURSDR (28,3<br />
*C»" 2e:LlNE (-3,15)-( 53):LPR1NT "213<br />
210:UC=U*(1-(1/EXP<br />
1»<br />
5,470),13,1, B<br />
22:LINE (-4,15)-( 1ge:CS]ZE 3:<br />
215:Y=UC*2:X=lee<br />
7,471),e,I,B<br />
GLCURSDR (-35,<br />
22e:LINE (Y,5)-(Y,<br />
25:FOR 1=50TO 21313 34e):LPR]NT "+<br />
-X)-C-3, -X), 3,<br />
2<br />
STEP 50<br />
30:GLCURSOR (-33, 195:CS]ZE 1:<br />
225:GLCURSOR (Y+le<br />
I):GOSUB "3" GLCURSDR (28,3<br />
, -10):LPRINT "<br />
35:A=]+5:B=]+2e:c 03):LPR1NT "10<br />
t= 53 % van U"<br />
230:TEXT :US1NG :<br />
=]+25<br />
4e:FOR J=ATO B 2ee:GLCURSDR (31,2<br />
LF 24:COLOR 0:<br />
STEP 5<br />
53):LPR1NT "13"<br />
END<br />
45:GLCURSOR (-15, 2e5:GLCURSDR (-29,<br />
235:"1"RLINE (0,0)<br />
J):GOSUB "2"<br />
253):lPR]NT "0<br />
-(0,5):RETURN<br />
240: "2"RLlNE (0,0)<br />
50:NEXT J<br />
55:GLCURSOR (-22, 210:GLCURSOR (-35,<br />
-
111 ···..·_··<br />
r--1<br />
92:GLCURSOR (98,<br />
Matthias Raik<br />
----<br />
196):GOSU8 "P" Lennershofstr. 31<br />
en<br />
- (11313, -lee)<br />
94:GLCURSOR (44,<br />
ro 44:GLCURSOR (29, 4630 Bochum 1<br />
196): GOSU8 "P" erweitert nach Heft 6/6<br />
-<br />
f-l. lel):GOSU8 "P"<br />
rt 46:LINE (313,-11313) 96:LINE (45,-195)<br />
BY M.STEeK Kol lostr.31<br />
ro -(45,-2813)<br />
..<br />
- (313, -18(3)<br />
48:LINE (213,-1813) 98:LINE (413,-2813) HOLE 46 1:<br />
w : : ..<br />
-(se, -282), 13, 13 4800 Bielefeld 14 von<br />
-(413, -179), 13, 13<br />
o ,8<br />
I\.!;<br />
,8 F.Koel len 5024 Pulheim 2<br />
I 513:LINE (313,-]813) lee:LINE (40,-281)<br />
GOLF<br />
-(45,-]95)-(613 -(513,-281) 10: "A"'ClEAR :CLS<br />
:l> 10:REM GOLF<br />
1~2:LINE (40,-285) : WAlT 0<br />
l-l<br />
~ , -195) 20:REM by M.Raik "--'<br />
..<br />
~ -(5~,-287),e,e<br />
<strong>52</strong>:LINE (613,-192) FISCHEL Gmbh<br />
15:PAUSE "GRAF1K<br />
ro -(813, -198), 0, ,8 QUADRAT,I<br />
0<br />
Kaiser-Friedrich-Str.54a<br />
30:"GOLF"CLEAR :0<br />
f/J le4:LlNE (40,-286) 20:GRAPH :<br />
rE<br />
,8 =50: S$="1004e3F<br />
54:LINE (813,-195) -(5l1,-28o) GlCURSOR (10,<br />
"'1)<br />
2B48ee":F$="JF<br />
-SLET 2=5<br />
(1 ROTATE 1 (-213, -198), 13, 13 ~0:N£XT X 713: GCURSOR 51: ~<br />
-34e):LPRINT 11 le: "A"CLEAR : CLS 16:DIM B$(2)*26<br />
o 1e:GLCURSOR (-2,13 ,8<br />
60:TEXT ZL.F 151 GPRINT S$:<br />
3 Ua"jCHR$ 126 : GRAPH : WAIT 0 18: FOR K= ITO 2<br />
) : GOSU8 11 P 1 11 : 62:LINE (-213,-195 2e:GLCURSOR (X,Y) COlOR 0:END GCURSOR 1136:<br />
'0<br />
GL CURSOR (- le, )-(-613,-195) 114:LINE (-35,-3513 :X=18e:y=e<br />
C<br />
)-(-913,-3513),6 12: INPUT "Wievie I :SORGN GPRINT F$ ~<br />
STATUS 1<br />
2):GQSU8 "F2" 64:LINE (-613,-192 ge:A$=]NKEY$ :IF<br />
rt<br />
12:LINE (-15,2)-( )-(-813,-198),13 ,13 Ze i I en : 11; 2 22: INPUT B$(K): 160<br />
A$(>"="GOTO 913 cq]<br />
CD 116:GlCURSOR (-913, 14:IF 2>5LET 2=5<br />
PRINT B$(K)<br />
'"1 -45,2) ,13, B 110:CURSOR e:PRINT<br />
-35e):GOSU8 "F 16:0IM 8$(Z)*26 24:X=-413 10:"A"CL.EAR sCL.S<br />
14:GLCURSOR (-55, 66:LINE (-813,-195 26:FOR S=0TO 155: : WAIT Os INPUT "SHOT! ": A=e<br />
::r:: 5):LPRINT IIUe 'l )-(-11313,-195) 1" 18: FOR K= lTO 2:<br />
120:A=A+l:A$= S<br />
ro 12e:GLCURSOR (-75, INPUT "Colo!"=( P=POINT S:lF P "ART?";B.<br />
jCHR$ 126 68:GLCURSOR (-41, INKEY$ : IF A$=<br />
"'1) -11e):LPRINT " 13-3) ";F:IFF> =0THEN "E" 15sPAUSE "GRAFJK<br />
16:LINE (-65,2)-( -196): GOSU8 "P "="GOTO 1213<br />
rt Re 1" 3L.ET F=3 28:A=64:FOR l=eTO QUADRAT"' ~<br />
-913,2) 13e:B=B+1:C=C+l<br />
122:GLCURSOR (713,- 2e:GLCURSOR 0GOSUB 21<br />
-16)-(5, -18),13 72:LINE (-43,-175 cl" 22: INPUT B$(K):<br />
o<br />
124:GLCURSOR (-le, PRINT B$(K) 2, -2), , , B 25:C=0 ~<br />
,13,8 )-(-37,-155),13 30:A=A/2:NEXT J 30:FOR 1=ITO 91J 145:GOTO 2713<br />
2e:LINE (-5,-17) ,13,8<br />
-21e):LPRINT " 24:X=-4e<br />
Re 2" 25:FOR S=eTO 155: 32: "E"NEXT S: NEXT 2*I:K-3*1 150:REM<br />
(5,-17) 74:LINE (-413,-155 35sC=C+!: IF CE4 160:FOR I=KTO K-A ~<br />
126:GLCURSOR (-713, P=POINT S:IF P K<br />
22:LINE (-5,-21) )-(-413,-513)-(13<br />
lET c=e STEP -1<br />
-21e):LPRINT " =eTHEN "E" 34:TExT :LF 8:END<br />
(5, -23),13,13,8 , -5(3) 4e:CSIZE I: 170: GCURSOR I: r;i]<br />
Re, 2"<br />
24:LINE (-5,-22) 76:GLCURSOR (-1,- 28:A=64:FOR 1=eTO<br />
GLCURSOR (10-J GPRINT 54<br />
(5,-22) 5] ) : GOSU8 " P " 128:GLCURSOR (713,- 6:IF PAND A<br />
,-Hi-K): LPRINT 180:NEXT 1<br />
2-10):LPRINT "R GLCURSOR
'S~<br />
.,;:\~<br />
~.~ ~ ~<br />
~ ~~<br />
\.1.+- ~ ~p<br />
~'" ~,C-c:)! \<br />
~ s. ~ ~<br />
~~ ~~<br />
\ ~. ~ ~<br />
~ \ .<br />
os , ~<br />
~ ~.1c..<br />
i:.. ~ ~<br />
1.... ~ ~<br />
fi! \<br />
..<br />
~<br />
'i~<br />
~ den 1260/61 g~llndertes SoundprograJlll1l<br />
-----SOU~D--MACMIN£----<br />
Hiereine kurze Beschreibung des Programms. ---SHARP*PC*1260/1261--<br />
Rach Eingabe von RUN wird nach dem Programm'~getragt. (MenU)<br />
1.) Klarlertastatur A bis - und Z bis M. Bei SPC zurUck zum MenU.<br />
2.) Demomonstration Tondauer und To~he<br />
,. ) • Tonhtshe<br />
4.) Zut'alllllllUs1k<br />
5.) Demonstration "Alle meine Entchen- 'x dann zurU.ck zum MenU.<br />
Han kann das gesamte Anwendungsbuch des ~401, venn man die Speicheradressen<br />
Kndert, fUr den 1260/61 (von kleinen Xnderrungen bezUglich<br />
10:CLEAR :X=25000:V=X+l<br />
:Z=X+l1: POKE X,2,25<br />
5,<strong>52</strong>,18,95,89,101,16<br />
,219,223,78,1,47,5,5<br />
5<br />
20:WAIT 8: PRINT "----<br />
SOUND--MACHINE----<br />
40:Q=96:W=112:E=63:R=2:<br />
T=12: FOR 1=0 TO 11:<br />
POKE 8256+I*5,Q,W,E,<br />
R,T: POKE 18359-1*5,<br />
T,R,E,W,Q: NEXT I<br />
5e:FOR 1=1 TO 3013: NEXT<br />
I<br />
6e:INPUT "Pro9ramM 1/2/<br />
3/4/5 Y;O: GOTO 0*10<br />
o<br />
10e:WAIT : CALL XI POKE<br />
8253,64: PRINT W"<br />
105:"A" POKE Z,196: POKE<br />
V,151: GOTO 1130<br />
lle:"Z" POKE Z,184: POKE<br />
V,155: GO TO 180<br />
115: Y S" POKE Z,172: POKE<br />
V,159: GOTO 1130<br />
120:"X" POKE 2,161: POKE<br />
V,163: GOTO lee<br />
125:"D" POKE 2,151: POKE<br />
V,167: GOTO 190<br />
13e:"C" POKE 2,141: POKE<br />
V,171: GOTO lee<br />
135:"Y" POKE Z,132: POKE<br />
des Displa7s abgesehen) benutzen.<br />
Bei der Gelegenheit m6chte ich auf zwei intereBsante BUcher fUr den<br />
1260/61 aufmerksam machen.<br />
1.) System und Trickbuch tur den 1260/61<br />
2.) Mascbinensprache fUr den 1260/61<br />
Beide BUcber sind_bei Becker; Karasch und KUllmann Verlag + Datentecbnik<br />
erschienen.<br />
Hier noch ein paar SpeicheradreBsen:<br />
-Call 5' schaltet den 1260/61 aus (einacbalten durch ON)<br />
-Poke 26329,1 schaltet daB Passwort aus<br />
~<br />
I--'<br />
-Poke 26329,50 schaltet das Passwort wieder ein<br />
I--'<br />
(!) -Poke 16513,0 Renew (1260 - 22657,o)<br />
Ul -Poke 82<strong>52</strong>,150 bei Shift und SML = japanischer Zeichensatz.<br />
"'1'l Diese kann man einer Variablen zuweisen und auch ausdrucken lassen. Vd75: GOTO 1013<br />
~:<br />
137:"F" POKE Z,128: POKE<br />
') -Poke 8253,64 ~ DEF siehe Soundprogramm Zeile 100<br />
V, 177: GOTO 100<br />
140:<br />
U) -Poke 26337,0 und NEW ~ Speichererweiterung urn 128 Bytes (ESP-<br />
Y GY POKE Z,123: POKE<br />
V,179: GOTO 1013<br />
::r<br />
0) Speicher zurn ProgrammBpeicher (Nach Eingabe von MEM erscheint 145:"B" POKE 2,115: POKE<br />
V,183: GO TO 180<br />
'1<br />
'0 9470)<br />
150:"H" POKE 2,107: POKE<br />
Wenn man den ESP-Speicher erh6ht (nach Eingabe von NEW Enter EQU#<br />
V,187: GOTO 190<br />
(1<br />
155:"N· POKE 2,99: POKE<br />
o 1 oder 20der 3 usw.) beginnt der Programmspeicher urn jeweils 128<br />
V,191: GOTO 180<br />
3<br />
160:"J" POKE 2,91: POKE<br />
'0 Bytes sp~ter. Wichtig bei der Eingabe des Renew. Z.B. im ESP sind<br />
V, 195: GOTO 1813<br />
~<br />
rt<br />
EQU# 2, d.h. hier stehen 3x128 Bytes zur Vertugung. Will man nun 165:"M Y POKE 2,84: POKE<br />
V,293: GOTO lee<br />
ro nach der Eingabe von NEW das Programm zurUckholen, darf man n~cht 167:"K" POKE 2,77: POKE<br />
')<br />
V, 211: GOTO 198<br />
eingeben: Poke 16513,0 (1260 • 22657,0) , sondern Poke 16769,0<br />
168:"~" POKE 2,713: POKE<br />
::r:<br />
(!) (16513+2x128) rur den 1260 - 22913,0.<br />
V,219: GOTO 100<br />
"'1'l<br />
169:"=" POKE 2,63: POKE<br />
DaB gilt auch rur daB nachtolgende Renurnberprogramm (Auszug aus<br />
rt<br />
V,225: GOTO lee<br />
dem Sy&tem und Trickbuch).<br />
1713:" • GOTO 613<br />
I--'<br />
2ee:WAIT 0: PRINT "D~~o<br />
I--' S = Startadresse des ProgrammspeicherB. Bei normalem ESP-~peicher Tondauer 255-1":<br />
(128 Bytes) ist S - 16512, rur den 1260 - 22656.<br />
POKE Z,88: FOR I z 255<br />
TO 1 STEP -4: POKE V<br />
U)<br />
Wenn das Renumberpr'ogramm durch MERGE zu dem Programm welcheB ge ,I: CALL X: NEXT I:<br />
(!)<br />
WAIT<br />
1-" ~dert werden soIl, geladen 1st: DEF - und der Rechner fragt nach<br />
rt<br />
300:IoIAIT 0: PRINT "De~o-<br />
(!) Zeilenanfang (1. Ze1lennummer die gewUnscht wird) und nach der<br />
Tonhoehe 1-255·:<br />
POKE V,255: FOR 1=1<br />
W Zeilenwe1te (AbBtand der Ze1lennummern). Durch Beep zeigt der Rechner TO 255 STEP 4: POKE<br />
I--'<br />
die DurcbtUhrung an. Jetzt muE man das Renumberprogramm zeilen<br />
Z, I: CALL X: NEXT I:<br />
WAIT : GOTO 613<br />
weise aus dem Spe1cher l6schen.<br />
409:WAIT 59: PRINT "Zut'a<br />
I I s-Me I od i e<br />
410:RANDOM :P= RND 255:0<br />
= RND 255:P= INT (p/<br />
2)*2+1<br />
420:POKE V,P: POKE Z,O:<br />
CALL X<br />
430:GOTO 410<br />
508:WAIT 8: PRINT Y al<br />
le meine Entchen":<br />
FOR 1=8 TO 11: POKE<br />
8256+1*5,24,56,62,62<br />
,<strong>52</strong><br />
510:POKE 113359-1*5,<strong>52</strong>,62<br />
,62,56,24: NEXT I<br />
55e:FOR K=l TO 3:<br />
RESTORE<br />
56e:FOR 1=1 TO 27: READ<br />
A,B: POKE Z,A: POKE<br />
V,B: CALL X: NEXT I:<br />
NEXT K: GO TO 60<br />
60e:DATA 184,115,161,123<br />
,141,131,132,135,115<br />
,255,115,255<br />
618:DATA 99,151,99,151,9<br />
9,151,99,151,115,255<br />
62e:DATA 99,151,99,151,9<br />
9,151,99,151,115,255<br />
63e:DATA 132,135,132,135<br />
,132,135,132,135,141<br />
,249,141.249<br />
64e:DATA 161,127,161,127<br />
,161,127,161,127,184<br />
,255<br />
Fahrschule<br />
Uwe SchrOer<br />
Ta 08103/88800 - 28604<br />
Feldbetgstra8e 1<br />
6070langen<br />
flt:!N{Jn'xeR.,<br />
50009: "=Y INPUT "Ze i I ena<br />
nfang = • Z:<br />
CURSOR 24 INPUT·<br />
Ze i I enwe i e =" ; A<br />
5081e:S=16512:IoI=Z<br />
50020: Y V Y GOSUB YHEX":W=<br />
W+A: IF PEEK (S+l)<br />
=255 THEN Yg.Y<br />
50030:POKE (S+1),C: POKE<br />
(S+2),D:S=(S+3)+<br />
PEEK (S+3)<br />
5004e:GOTO YV"<br />
50eS0: w HEX":C= INT (W/25<br />
6):D=W-C*256:<br />
RETURN<br />
50955: Y &" BEEP 1: END
--' ---<br />
..<br />
: :. .<br />
~.<br />
:<br />
I - -,~ -<br />
STATUS 1<br />
1969<br />
CC=>TRANSISTOR<<br />
. \<br />
:> ;<br />
;;<br />
if<br />
!" \"<br />
:><br />
; i<br />
~~---<br />
Ii '\ I'<br />
~ ;<br />
: ; ~ \ ..<br />
~ .. , ..<br />
Cl • \<br />
~! ! : \\.~<br />
~~I • ~ I ~ , • ~ ~ •<br />
STATUS<br />
1094<br />
CC=>LADEKURUE(<br />
li<br />
Dies ist ain neues Textverarbei tungsprooraam fu.... den PC-1401 und den<br />
(fJ<br />
Drucker CE-126P. Das besendere an di.... Programm ist, da.s man die Texte<br />
CD<br />
"""', auch in Kleinschrift drucken kann. Oeutsch. Umlaut. Bind auch .oeglich.<br />
r+ Aufl.den und Absp.ichern ven Texten kann man .benfalls, sowi. rechter<br />
CD Randau.oleich ist aoeolich !<br />
Wenn man nun z.B. di ••en Satz druck.n willl Ich •••• • in. Banan••<br />
W muss man ihn so eingaben I AICH ESSE EINE ABANANE.<br />
N Das Zeichen bedeutet, dass der naechste Buchstabe gross-geschrieben<br />
werden solI. <br />
:l> Gibt man CSAVE ein, wird der Text auf Band abORSpeichert. Mit CLOAO ladet<br />
to- man ihn wiader in d.n Rechner. BLOCK bewirkt, da.. die folgendan Saetze<br />
to-- .it rechtem Randausgleich (Blocksatz) gedruckt werden. 1st dies nicht<br />
CD erwuenscht, gibt man NO BLOCK ein. Es kDennen max. 30 Saetze eingegeben<br />
W warden. Vcr dem 29. erfolgt ein Warn-Beep, das jetzt der letzte Satz<br />
kommt. Die 30. Eingabe kann nicht mehr zum Brief gehoeren, sie ist<br />
'""1")<br />
C: reserviert fuer die Eingabe VDn CLOAO / CSAVE oder fuer PRINT, welches<br />
"1 bewirkt, dass der Brief ausgedruckt wird.<br />
Fuer den Ausdruck braucht man etwas Geduld. Wird versucht, bei der Eingabe<br />
(fj mehr als 23 leichen (Die leichen A werden nicht angerechnet) einzugeben,<br />
::r erfolgt ein Beep und man kann die leile noch einmal eingeben (kuerzer<br />
0)<br />
natuerlich). Wie man deutsche Umlaute oder Spezialzeichen auf daB Papier<br />
"1<br />
'0<br />
bringt, entnehmen Sie der Tabelle 1.<br />
(1 ---Es folgt nun die Beschreibung maines neuesten Progra.... PAC-SON--<br />
o<br />
3 Wie man schon dem Namen entnimmt, hat as etwas mit PAC-MAN zu tun. Der<br />
'0 Spieler lenkt sein Moenst....chen durch ein Labyrinth. liel das Spieles ist<br />
C<br />
r+ mit moeglichst wenig Bewegungen alle Punkte "aufzufressen-.<br />
CD .rfolgt ueber die Zehnertastaturl rBJ<br />
aufwaerts<br />
"1<br />
::t Thomas Jeger<br />
[6J rechts<br />
CO Hauptstrasse 142<br />
'""1")<br />
[4] links<br />
r+ CH-32B6 Muntelier Cfrb.)<br />
[2J abwaerts<br />
~ <br />
~ <br />
C!)<br />
~~ ~ ~-.<br />
~ . ~ 1- -'<br />
1; ~<br />
c.:;' r<br />
~ "'or ~~<br />
~~ ~<br />
~ c-.' s:> '"'<br />
~ ... ~<br />
~ -e.<br />
,~ ......<br />
Steuerung<br />
~ <br />
0 , <br />
12S:IF B'(I)="CLOAD"<br />
~<br />
~ <br />
0<br />
~<br />
----TEXTVERARBEITUNG---<br />
1: REM ........•.••.••. <br />
IB:PRINT "TEXTVERARBEIT<br />
UNG"<br />
2B:PRINT "KLEINSCHRIFT<br />
VON"<br />
30:PRINT YHERRN DIETZEY<br />
40:PRINT "SYSTEMHANDBUC<br />
H"<br />
S0:PRINT YSEITE 76/77"<br />
60:PRINT YFUER GR. LETT<br />
ER"<br />
7B:PRINT YEIN ~ EINGEBE<br />
N: "<br />
80:PRINT YBSP. DAS ~HAU<br />
SY<br />
90:PRINT "H=GR. REST KL<br />
EIN·<br />
100:CLEAR :DIM B'(3e)*48<br />
:DIM L1I(1)*24,L2S(1<br />
>*24,LA(24)<br />
110:POKE &380S,16,70,21S<br />
,214,36,40,3,235,2139<br />
,16,96,186,132,27,12<br />
1,128,69<br />
111:POKE &3816,2,32,121,<br />
167, 2se, 13,0<br />
115: 1=1<br />
120:INPUT BS(I):IF LEN B<br />
'(1)(23 THEN 12S<br />
121:HO=0:FOR H=l TO LEN<br />
U( I)<br />
122:IF MIDS (B'(I),H,l)=<br />
.~" THEN LET HO=HO+l<br />
123:NEXT H<br />
124:1F LEN BS(I)-HO>23<br />
THEN BEEP l:GOTO 1213<br />
THEN INPUT IB,(*):<br />
GOTO 120<br />
130:IF B'(I)="CSAVE·<br />
THEN PRINT IBS(*):<br />
GOTO 1213<br />
13S:IF BS(I)=YPRINT·<br />
THEN LET P=I:GOTO IS<br />
o<br />
14e:IF 1=29 THEN BEEP 1<br />
141:IF 1=30 THEN BEEP 2:<br />
GOTO 1213<br />
145:I=I+l:GOTO 1213<br />
lse:C-l<br />
160:1F B'(C)="BLOCK·<br />
THEN LET BL=1:C=C+1:<br />
GOTO 160<br />
17e:IF BI(C)="NO BLOCK"<br />
THEN LET BL=e:C=C+l:<br />
GOTO 160<br />
1se:IF C=P THEN GOTO le<br />
1ge:HO=0:FOR H=l TO LEN<br />
BS(C)<br />
192:IF MIDI (BI(C),H,l)=<br />
Y~" THEN ~£T HO=HO+1<br />
193:NEXT H<br />
2213: IF BL=1 THEN GOSUB 3<br />
90<br />
230:CALL &3805<br />
240:J=B:I=1:GOTO 260<br />
2S0:A=ASC (MIDI (BS(C),I<br />
, 1) ) : RETURN<br />
26B:GOSUB 2S0<br />
270:IF A=94 THEN LET IzI<br />
+1:GOSUB 250:POKE &3<br />
817,A:CALL &3816:J=J<br />
+l:GOTO 350<br />
28B:IF A=36 THEN POKE &3<br />
817,224:CALL &3816:<br />
GO TO 350<br />
290:IF A=37 THEN POKE &3<br />
817,228:CALL &3816:<br />
GO TO 3se<br />
30e:IF A=38 THEN POKE &3<br />
817,226:CALL &3816:<br />
GOTO 3S0<br />
3135: IF A=35 THEN POKE &3<br />
817,239:CALL &3816:<br />
GOTO 3se<br />
31e:IF A=2<strong>52</strong> THEN POKE &<br />
3817, 127:CALL &3816:<br />
GOTO 3S0<br />
320:IF A=64 THEN POKE &3<br />
817,141:CALL &3816:<br />
GOTO 3se<br />
3313: IF A)=32 AND A(64<br />
THEN POKE &3817,A:<br />
CALL &3816:GOTO 3se<br />
34e:POKE &3817,A+32:CALL<br />
&3816<br />
3se:IF I()LEN BS(C) THEN<br />
LET I=I+l:GOTO 260<br />
36e:FOR K=I TO 23+J:POKE<br />
&3817,32:CALL &3816:<br />
NEXT K<br />
37e:CALL &A984<br />
38B:C=C+I:GOTO 160<br />
3ge:Y=1:FOR ' Z=1 TO LEN B<br />
S(C)<br />
4ee:IF MIDS (B'(C),Z,l)=<br />
" • THEN LET LA(V)=Z<br />
:Y=V+l<br />
410:NEXT Z<br />
420:IF Y=l THEN RETURN<br />
430:X=1:Y=V-l<br />
440:IF LEN BI(C»=23+HO<br />
THEN RETURN<br />
4se:LlS(1)=LEFTS (BS(C),<br />
LA(X»:L2S(1)-RIGHTS<br />
(BS(C),LEN BS(C)-LA(<br />
X»<br />
4613: IF V-I THEN 4813<br />
47e:FOR QaX TO V:LA(Q)=L<br />
A(Q)+t:NEXT Q<br />
48e:BS(C)=L1S(1)+" "+L2'<br />
(1)<br />
4ge:IF X=V THEN LET X=l:<br />
GOTO 440<br />
see:X=X+l:GOTO 4413<br />
----TEXTVERARBEITUNG---<br />
TABELLE<br />
A ,<br />
0 %<br />
, U &<br />
1%<br />
I' = 41<br />
I =or <br />
f =,....;' <br />
4' =,,-.
PC-1401 ............................................................... +++++ PC-1401 +++++ PC-1401 +++++ PC-1401 +++++ PC-1401 <br />
*** S ENS 0 *** <br />
Nach DEF S wird zuerst eine Zu 1~~ : " S" :P..AN DOM :CLEAR: WA I T ~<br />
1.01 :DIM Z(14) , yt~14) * 1 : USING "~UUttUUUUt"<br />
fallszahl (1-9) angezeigt. Geben<br />
1~2:PAUSE "DAS SENSO-SPIEL:II<br />
Sie diese Zahl ein (INKEY$). 1~3:FOR I=~ TO 14:Z(I)=RND 9<br />
1~4:FOR J=~<br />
Haben Sie richtig gedrlickt, wird<br />
TO I:PAUSE" ";Z(J):NE:M J<br />
1.05:FOR K=.0 TO I:PRINT K+1;".ZAHL ?":CALL 1442<br />
wieder die erste und eine nachs 1~6:Y~(K)=INKEY.3:0N Y$(K)=1I11 GOTO 1.06<br />
te Zufallszahl angezeigt. Geben 1.07:IF VAL Y$(K)Z(K) THEN BEEP1:USING:WAIT 15.0:<br />
PRINT "FEHLER! (" Z(K);")":END<br />
Sie beide Zahlen der Reihe nacb '1.08 :NEXT K:NEXT I :WAIT BEEP 1:CALL 1444 :BEEP 1:<br />
ein. PRINT "* GEWONNEN! *" : END<br />
Es kommt jedesmal eine Zahl hin<br />
(266 BYTES)<br />
zu, bis 15 Zahlen erreicht sind. <br />
Haben Sie immer in richtiger Reihenfolge die wachsende Zahlenkombi<br />
nation eingegeben, haben Sie gewonnen.Wenn nicht, wird Ihnen die <br />
richtige Zahl angegeben. In beiden Fallen ist das Spiel beendet. <br />
+++FELIX SCHMIDT-KOEHL++IM KONIGSFELD 6++6604 SAARBRUCKEN <br />
GODINGEN +++ <br />
*** TELEFON - UHR MIT GRAPHIK ***<br />
• i • •• • i<br />
Mein zweites Programm wird mit 5:"A II : REM TELEFONUHR * FELIX SCHMI.uT - KOEHL<br />
DEF A gestartet Drlickt man l,0:WAIT ~:PRINT "":CLEAR:POKE 21~,0.0,2,1,229,164,55<br />
• ':USING "tUUt"<br />
sobald das Gesprach begonnen 2,0:PRINT".0d .0.0":POKE 24665 9<br />
99.123,121 9<br />
79,73,73,<br />
hat)'eine beliebige Taste<br />
79,121,123,99:CALL 21.0.0.0:FOR I=l TO 2.0:NEXT I<br />
(INKEY,3), so lauft die Zei t ~~:~g~I~!~Yg~o~ ~~i;"-~~~gR 2~=59 TO .0 STEP -1:<br />
.(8 Minuten) ab. Die Sekunden PRINT IjJ:POKE 24662,99,127,.0,96,12.0,12.0,78,72,<br />
. d k" t d Q h 72,78,12.0,12.0,96<br />
Sl.n so ver urz, aJill noc 35:CALL 21.0.0.0:FOR K=1 TO 51 :NEXT K:NEXT J:NEXT I:<br />
Zei t fur eine ca. 10 seklindi- BEEP 1<br />
' h d k t' h 4.0:PRIN'I' "AUFLEGEN !!!":FOR 1=1 TO 6<br />
ge op t lSC e un, a us lSC e 45:POKE 24659,.0,~,.0,99,127,.0t96,12.0,12.0,78,72,72,78,<br />
Endwarnung blelbt. 12.0,12~,96:CALL 21.0.0~:FOR J=l TO 3.0:NEXT J<br />
********** ** ****************** 5.0 :POKE 2466.0,28,127,62,28,8,99,123,121,79,73,73,79,<br />
: F I' S h 'dt K hI : 121,123,99:CALL 21.0.0.0:FOR J=1 TO 3.0':NEXT J:NEXT I<br />
e IX c ml. - oe 6.0:.aEEP 2:CALL 1444:BEEP 2:GOTO 1.0<br />
* Im Konigsfeld 6 * I 7.0:END<br />
: 6604 Saarbrlicken - Glidingen!~--~(~5~~i~B~Y~TE~S~)__________________________~<br />
******************************<br />
fq;1491 .ttttt.~q:1~9J.ttttt.?q:J491 ............................ +++++ PC-1401 +++++ PC-1401 <br />
Harry Toms<br />
Oft1ptedastr. 27c<br />
3000 Hannover 1<br />
PC-1251<br />
E • Z ~ ~ • UJ 11<br />
a: UJ 11.... Z 11 UJ "~j:IQ~ ~ N 11 UJ~<br />
~<br />
Z ~<br />
~ ~ ~ UJ ~ ~ .... UJ ~ a: UJ a: :z: •••• N '-" UJ ~Z :z: 11 ~<br />
E> >- ...... :z: > >- a: •• a: :z: E ~ UJ :z: ~ ~ ........... a: :z: ~ ~ Z U ~ <br />
Cl. UJ. U NUJ. Cl. U •• > ~ en U Cl. .« + U Z UJ a: UJ<br />
••• CS)Q: .. UJ" .~(I) LIJ ..... .. U'J" W"" 11 n ~<br />
.11 " LJJ .. L&J ~Cl. ~<br />
1111 ~j:IQ". a: 11 CSlen 11 •• a: 11. UJ ~ a: 11 If ~~ - a: If ~ UJ ~N<br />
E * UJUJZ* 0 •• Cl.<br />
~~ ~~Z ~ ~ ~~UJ ~ ~ ~~ ~ ~ ~ ~CSI ~ ~ ~<br />
UJ~ Z UJ ~ ~ Z E UJ~ ~ UJ~ ZCSI:Z: ~ ~ ~ ZCSlUJ~~ ~ .... a: ~ ~ ~.<br />
~<br />
~o UJ~ <br />
.<br />
~a: .... j:IQ~ :Z:ZE a: a: .... j:lQU :z:* ~ ~a: .... CSlU * ~ a: .... ~:z: .... %~1f + a: a: UJ UJ~ ~ <br />
z:z: a:~ .... UJ .... +~UJ :z: a:~~ UJ~ UJ z:z: a:~a: ~ UJ r a: UJUJUJCl.~ ~ UJ :z: ~ ~ ~Cl.~O<br />
a:z Cl.enUJ Qa:.*j:IQ Z Cl.en~ o~ ~ a:z Cl. ~ ...... ~~ Z Cl.~oa:a: _ ~ Z Z .... Z UJ •• ~~<br />
E .... ~ Qen :Z:Cl.*EO .... CSI O~ :z:* o E .... CSI ~~ *.~O .... CSI ~:z:~~" ...... ~ 0 .... CSlUJ.~ .... Z. ~<br />
.... N •• C)>> .. ->~~z .... a:a: UJzo. ~~Qa:N~ ~~oa: a: Na:~ ~ ~ a:*~E ~ ~ oUJ-~ <br />
o·a:·~ ~~~~~~~N~ClUJ _0 ~UJ~CSI enx~'~CSI ~:z:~ j:IQ '~~CSI ~~ ~~~~~ ~~ :z:ena:N *~ ~o <br />
L&J ::Z.. ('loo W z: .... z:.. .. .. .. .. .. .. .. .. .... .. E 0 &I") •• 0.. .. .......... N •• (J)"" .. ........ .. N.. ==* .. V" .. N.. => .. .... 0.." <br />
~UJ ~UJ~ :z: N a:l!). ~ r ~ 0 U •• ~ en •• , ~ en 1=1 t
Graphic-Programm SKY BREAKER<br />
Versetzen Sie eich in die Lage eines Hubschrauberpiloten. <br />
Sie werden zu einem Ensatz gegen Ufo~ eingesetzt. Aber <br />
vorsicht wenn lie nicht Feuern oder den Schutzschirm aktivieren <br />
wenn ein Ufo angreift explodieren Sie. Falls TrUmmer Ubrig <br />
bleiben sollten, storen diese das Spiel in keiner Weise. <br />
Um in dell Spiel "SKY-BREAKER" einen zUsstzlichen ton zu BEEP <br />
harEm zu konnen muB de.r PC-1245(PC-1251) auserhalb der Option <br />
CE-125 sein, er eollte auch an sonstiege Hardware nicht <br />
angeschlossen sein. Der Ton wlrd mit CALL &11E7 (Motorgereusch) <br />
erzeugt. <br />
Bedienungsanleitung: <br />
Sie mUBen in diesem Programm eine rnogllchst hohe Punktezahl <br />
erreichen und zwar indem Sie die Gegner mit Ihrem Hubschrauber <br />
abschieBen.Wenn am rechten Rand der Anzeige(schuBstand) alles <br />
schwarz ist haben sie nur ein~n SchuB (noch) zur verfUgung. <br />
Wenn 8ie ein Ufo getroffen haben. geht der Strich nicht weiter <br />
das heiBt, daB desto mehr SchUBe Sie verschieBen desto schneller <br />
ist das Spiel zu Ende.Das Programm wird mit RUN gestartet, <br />
dann muB zun~chet vom Boden abgehoben werden(Taste 8). Urn <br />
sdhieBen zu konnen muB das Ufo allerdings nahegenug am <br />
Hubschrauber seine Da die Raketen nur eine geringe Reichweite <br />
haben. Die punktezahl wird zum SchluB des Spieles angezeigt. <br />
Tastaturbelegung: <br />
8 hoch (starten) / 4 links / 6 rechts / 5 schieBen (Schutzschirrn) <br />
B&SCC (Blietlersdorfer und Schragenberger Computer Club)<br />
Erstellt von: Sascha Milke .und HAJtcel Vogt<br />
Bliedersdorf<br />
Sehr ~eehrter Herr Fischel, <br />
vielen Dank fUr Ihre Zeltsehrift.Endlich rinden die klelnen <br />
Recnner Beachtun6. <br />
Beilie~end einibe kleine Pro~ramme.Es handelt sich um das <br />
Laufschrlftprobramm von ,eter La~utsch,welches ich fUr den <br />
PC-1251 um6eschrieben habe.Wenn in-Zeile 5 die Zahl 2~ durch <br />
1b erset~t wUrde,mUsste es auch auf dem 1245 laufen. <br />
Ausserdem lie~en bei:Vektorkr.euzprodukt,Jakultaet,Polarxoor<br />
dinaten. <br />
leIPAUS~ "YEKTORKREUZPR 181PAUSE 'PO~ARE IN REC<br />
ODUKP HTWINKLIG~"z PAUSE •<br />
281PAUSE ·ERSTER YEKTOR<br />
KOORDINATEN'z PAUSE<br />
(AlIA2,A3)'<br />
'EIHGABE POLAR'<br />
38IlNP\JT 'A1-"; AI lloIPUi 281IHPUT 'WINKEL 1101 GRA <br />
·A2-·.JI INPUT "A!-' D-";SzW-(S.3.141S9)/<br />
Je<br />
"188z INPUT "GRDESSE<br />
4ez~AUSE 'ZWEITE~ YEKTO R-·;R:X-R. cos (S):Y<br />
R(Blt32, B3)<br />
-R* SIH (S)<br />
S8nNPuT 'Bl·" i DI IIIlPUT 38:PAUSE "RECHTW. KOORD<br />
'B2-'iEI INPUT ·B3.. ' INATEN': PRINT ·X=·;<br />
iF<br />
X: PRINT "Y-"iY:<br />
60:X-(J*F)-(C*E):Y-(C*D<br />
GOTD le<br />
)-(A*F)zZ-(A*E)-(B.D 48:EHD<br />
)<br />
781PAUSE 'YEKTORKREUZPR Gernot Spelsber6<br />
ODUKi-' Peter-Hille-we 5 11/W<strong>52</strong>3<br />
a81PRINT 'X-'iX: PRINT <br />
·Y·"iYI PRINT "Zg';Z 4790 Paderborn <br />
1 GOTO 38 <br />
98zEND<br />
101~AUS~ '~A~ULTAET VON<br />
X'z INPUT 'X"";X:Z<br />
11 ~O~ 1-1 TO XIZ-Z. <br />
11 N~)(i I <br />
28IP~INT "Xl--JZ: GO;O <br />
18 <br />
30IEI-;!)<br />
1 Z=0<br />
2 G=3:P=0 <br />
3 RANDOM <br />
5 USING : WAIT 160: <br />
BEEP 3:K=9<br />
19:PRINT '. SKY-BRAEKER<br />
.': BEEP 3<br />
20:PRINT ": CALL &llEB<br />
22:GOSUB 210<br />
25:POKE &F814,12,3B,127<br />
,39,12<br />
39:POKE &FB29,4,126,127<br />
,193,103,193,103,127<br />
,7,23,126,4: POKE &F<br />
S32,12,38,127,39,12<br />
4B:GOSUB 3ee<br />
S9:GOSUB 21313<br />
S1:IF AI="S' THEN 55<br />
S4:GOTO 30<br />
55:PO~E &FS14,24,69,126<br />
,6B,24<br />
56:POKE &FS2e,B,124,126<br />
,7S,78,7S,78,126,14,<br />
46,124,B: POKE &FS32<br />
,24,69,126,613,24<br />
~9ICALL &l1E?<br />
621GOSUB 2913<br />
63:IF Alz'S' THEN BB<br />
79:GOTO 55<br />
B0:POKE &F814,4S,12B,12<br />
4,1213,48<br />
82:POKE &F82B,16,12B,12<br />
4,28,28,28,2S,124,28<br />
,92,129,16: POKE &F8<br />
32,48,12B,124,12B,48<br />
99:GOSUB 2139<br />
92:IF AI='8' THEN I1B<br />
1BB:GOTO aB<br />
11e:POKE &F814,64,96,112<br />
,96,64<br />
112:POKE &F82B,64,96,112<br />
,112,112,112,112,112<br />
,112,112,96,64<br />
114:PORE &F832,64,96,112<br />
,96,64<br />
12e:GOSUB 298<br />
122:IF AS="8' THEN 149<br />
139: GOTO 119<br />
148:POKE &F814,0,8,8,8,9<br />
142:POKE &FB20,B,8,9,9,e<br />
,9,B,9,9,9,e,8<br />
144:POKE &F832,9,e,e,B,9<br />
,9<br />
155:Q= RND 3B<br />
169:IF 892+K(8ge LET K=K<br />
+39: POKE &F8ee,e,e,<br />
e,B,B,B,B,9,B,B,e,9,<br />
13,9,13<br />
Marcel vogt<br />
Hauptstr. 4<br />
21<strong>52</strong> Bliedersdorf<br />
165:IF 8B2+K)83B LET K=K<br />
-3B: POKE &FB25,9,B,<br />
B,B,e,B,B,B,B,9,9,e,<br />
9d!<br />
167:GOSUB 300<br />
169:GOSUB 210<br />
170:AI= INKEYS<br />
171:IF AS='6' LET K=K+2<br />
172:IF AS='4" LET K=K-2<br />
173:IF AS='S' POKE &F80B<br />
+(K+14),16,16,16,16,<br />
16,16,16,16,16,16,16<br />
,16: LET G=G+1: GOTO<br />
175<br />
174:GOTO 176<br />
175:IF (89B+Q(825+K) AND<br />
(BBB+Q)8B9+K) THEN 4<br />
a9<br />
176:IF G=29 THEN 559<br />
177:POKE &F8B9+Q,16,56,4<br />
a,S6,16,9,a,B,9,9<br />
178:Q=Q-U<br />
179:U= RND 5<br />
1B9:1F Q(9 LET 0=0+38<br />
1B2:IF (SBB+Q(B9S+K) AND<br />
(S92+Q)89B+K) THEN 5<br />
5e<br />
199:GOTO 1613<br />
299:AS" INKEYS<br />
291:IF (A$s"4') OR (AS:'<br />
2') OR (AS-'6') THEN<br />
559<br />
2e2:RETURH<br />
21BcPOKE &FSeB+K,e,B,4,1<br />
4,4,5,5,13,93,127,93<br />
,21,21,25,17,e',B,9,8<br />
,9,9,e,9,9,9,8<br />
211:RETURN<br />
39B:POKE &FS39,127,127:<br />
POKE &FS68+G,127<br />
395:RETURN<br />
4B9:POKE &FSee+Q,S4,4e,4<br />
,S9,18B:pzp+1e:G-u-l<br />
: GOTO 155<br />
55B:POKE &F8BS+K,18,77,2<br />
2,35,29,73,36<br />
5SS:POKE &FSB1+K,68,8e,4<br />
1,99,09,34,9,65,9,34<br />
,73,8,74<br />
6013: IF P)Z LET Z=P:<br />
PRINT 'HIGH-SCORE:';<br />
Z: BEEP 1: GOT0909<br />
61B:PRINT 'SCORE:';P<br />
62B:PRINT 'HIGH-SCORE:';<br />
Z<br />
9BB:PRINT ' •• GAME-OYER<br />
••": BEEP 4<br />
96e:I~PUT 'REPLAY (Y/H)?<br />
fiRS<br />
97~:IF R$="Y' THEN 2<br />
Seite. 34 Alles fUr <strong>Sharp</strong> Computer Heft 11
Betr.: Listing HA WAR I" -- Ein LCD-Spiel fur den SHARP<br />
PC 1500 mit mindestens 4k-RAM Erweiterung<br />
a) A1lgemeines <br />
Fur eine ubersichtliche Computerversion des AWARI-Spieles, <br />
auch KALAHA genannt, werden stets mindestens zwei Zeilen be<br />
notigt. Das vorliegende Programm verwendet daher zur zwei<br />
zeiligen Darstellung in der 7 x 156 Punkte Anzeigenmatrix <br />
eine leicht erlernbare 3 x 3 Matrix Schrift. <br />
b) Die 3 x 3 Matrix Schrift <br />
Die Zehlen von 0 bis 9 werden in der oberen Zeile der Anzeige <br />
,z<br />
durch folgende GPRINT Anweisungen erzeugt: <br />
al1.:l1p1<br />
GPRINT<br />
;l><br />
7;5;7 0:7;0 1:7;4 0:5:7 3:6:2 4:7:1 0:7;6 0:1:7 5:7:5 0:3:7<br />
~<br />
~<br />
CD Die Werte der GPRINT Anweisung fur die Darstellung der Zahlen<br />
U'J<br />
von 0 bis 9 in der unteren Zeile ergeben sich durch die Mul~i<br />
>-t)<br />
c: plikation mit 16 mit den o.g. Werten. In der LCO-AnzeiQe <br />
'""'l <br />
[JJ<br />
werden immer Zahlenpaare aus oberer und unterer Zeile ausgegeben.<br />
Oiese ergeben sich durch die Addition der GPRINT Werte<br />
::r<br />
Q) fur die Zeichen in der oberen und der unteren Zeile. Des<br />
'""'l<br />
'0 Zahlenpeer 2 (oben) und 3 (unten) berechnet sich z.8. folgender<br />
(1 maSen: 2 GPRINT 1:7:4 = 1: 7; 4<br />
o 3 GPRINT (0:5:7) x 16 c 0:80:112<br />
a<br />
'0<br />
C r+<br />
GPRINT 1: 87: 116 .<br />
CD Die V..erte dieser GPRINT Anweisungen werden in A( 1) bis A( 12)<br />
'""'l<br />
gespeichert. Die Berechnung der Anzeige erfolgt in den Pro<br />
::c grammzeilen 500 - 599. Die GPRINT Werte fur die Oarstellung<br />
CD<br />
>-t) der Zehlen 0 bis 9 (obere Zeile) befinden sich in den Zeilen<br />
r+<br />
1000 bis 1090.<br />
~<br />
~<br />
c) Hinweise zur Programmbedienung<br />
[JJ Das Programm wird mit RUN gestartet und lauft solange bis es<br />
CD<br />
~.<br />
mit BREAK beendet wird. Angezeigt wird die Situation nach jer+<br />
CD dem Spieler- und Computerzug. Bei DoppelzOgen des Computers<br />
wird nur die Situation nech dem zweiten Zug engezeigt. Die<br />
w<br />
Ul<br />
Aufforderung des Spielers zu einem Wiederholungszug erfolgt <br />
mit "WZ". "WZ" erscheint ebenfalls zur Eingabe eines neuen <br />
Zuges nach einer fehlerheften Eingabe. <br />
d) Spielregeln <br />
Die Spielregeln fOr AWARI sind zwar weithin bekannt. der Vo!l<br />
standigkeit halber seien sie hier noch einmal aufgezahlt: <br />
Spielbrett: <br />
Dieses enthalt zweimal 6 Spielgruben sowie en jedem Ende eine <br />
Heimgrube. Die unteren Spielgruben sowie die untere Heimgrube <br />
gehoren dem Spieler, die oberen Gruben gehoren dem Rechner. <br />
Die unteren Gruben sind von links nach rechts nummeriert. Die <br />
Gruben des Computers sind umgekehrt nummeriert, daher seine <br />
Grube No. 1 liegt rechts oben. Am Anfang sind alle Spielgruben <br />
mit 3 Punkten (=Kugeln) "gefullt". <br />
Spielzug: <br />
Der Spieler fuhrt einen Zug aus, indem er eine seiner Spiel<br />
gruben vollstandig leert und den Inhalt in Einerportionen <br />
gegen den Uhrzeiger in die angrenzenden Spiel- bzw. Heimgruben <br />
fOllt o Die Heimgruben durfen nicht geleert werden. <br />
Wiederholungs- und Kaperzug: <br />
Fallt bei einem Spielzug die letzte "Kugel" in die eigene <br />
Heimgrube, so erfolgt ein weiterer Zug. Oer Wiederholungszug <br />
fuhrt auf keinen Fall zu einer erneuten Zugwiederholung. <br />
Fallt jedoch die letzte Kugel in eine leere Grube (egal auf <br />
welcher Seite) und die gegenuber liegende Grube 1st gefOllt, <br />
so werden beide Gruben geleert und 1n die Heimgrube desjenigen <br />
uberfOhrt, der den Zug ausgefDhrt hat. <br />
Spielende und Gewinner: <br />
Das Spiel ist beendet wenn eiher der Spieler n1cht mehr ziehen <br />
kann, das heiSt wenn sich auf seiner Seite keine Kugeln mehr <br />
befinden. Sieger der Partie ist der, in dessen Heimgrube sich <br />
am meisten Kugeln befinden. <br />
e) Einladen der Compactcassette: <br />
Das Programm ist zuerst dreimal mittels des TRAMsoft Tools 2 <br />
abgespeichert und wird mit FL."AWARI" eingeladen. Dahinter <br />
befindet sich eine ohne Tool 2 abgespeicherte Version die mit <br />
CLOAD "AWARI" eingeladen wird. Die Zahlwerkangeben beziehen <br />
sich auf den Rekorder CE 1<strong>52</strong>.
5S6:GOSUB 1000+18* 858:0=B(13)-B(6)-0<br />
HARD COPY<br />
14e H=6:GOSUB 200 A<br />
(JJ.<br />
:IF C)8THEN S7<br />
LISTING<br />
CD 150 GOTO 500 5SS:FOR 11=ITO 6:A 5<br />
1-'- 20e K=M:GOSUB 6013 THEN<br />
al ~I ~I ~I ~I ;1 ~I I L·JZ? <br />
"A WAR I" 2l5:FOR 1=0TO 5:1F 592:NEXT 1 LET 0=Q-2<br />
B(I)(>0THEN 23 593:1F B(6)(10LET 870:NEXT 1 al ~I ~I ~I ~I el ;1 1<br />
:I> 7:CLS<br />
L·JZ 1_<br />
I-' o A(7)=0:A(8)=0: 875:FOR ]=0TO 13:8<br />
I-'<br />
15:01M A(12),B(13 228:NEXT I A(9)=e:GOTO 59 (l)=G(]): NEXT<br />
I'D ), G(13), F(5a): 225: RETURN 6 1<br />
V'J REAO N<br />
238:FOR 1=7TO 12: 594:1F B(6)(20LET 8S0:1F Q>=OTHEN<br />
10<br />
1 ~I ~I ~I ~J ;1 ;1 10 l~Z5_<br />
20:WA1T 0:E=0<br />
IF B0*
~ ~ . <br />
~<br />
~.<br />
~<br />
~ <br />
~ ~<br />
Q<br />
w~ <br />
t1 Q<br />
Q S <br />
~<br />
l::~<br />
~t:<br />
~ ~<br />
~<br />
~<br />
~<br />
:I><br />
I-'<br />
M M zzzzzzz 88888 00000 B8B888<br />
MM MM z 8 8 0 B B<br />
MMMM z 8 8 0 B B<br />
M M H z 88888 o 0 B8B88B<br />
z 8 8 a 0 B B<br />
z 8 8 o 0 B B<br />
" M " M ZZZZZZZ 88888 00000 B8888S<br />
VOrankindigung I Vorankindlgun9 I Vorankindiguft9 I Vorankindigung<br />
R A M - F LOP P Y 512 KBYTE 1.5 HBIT/S<br />
Diese Hardware~Erweiterung maeht Schlu~ mit d~ Wartezeiten bei Programmen<br />
mit hiufigem Dis~ettenzugriff. Die RAH-Floppy bietet eine Kapazitit<br />
von 512 KByte und wird wie eine ganz normale Dis~ettenstation angesprochen.<br />
Die Datenubertragungsrate liegt all.rdings um den Fa~tor 6<br />
iber der mechaniseher Dis~ettenstationen und betrigt 1.5 HBit/s. Wartezeiten,<br />
die sonst bei der Positionierung der Lesek6pfe und beiM Hoehlaufen<br />
des Antriebes entstehen, entfallen vOllig. Oadureh I~~t sich bei<br />
Programmen, die stindig auf weit aufeinanderliegende SeKtoren der Dis<br />
V-ette zugreifen, wie z. B. DBase unter CPIM beia Durehsuchen einer<br />
indizierten DatenbanK, sogar eine Verzehnfachung der AusfuhrungsgeschwindigKeit<br />
erreiehen! So ",er den der mechanischen DisKettenstation<br />
solch extreme Belastungen erspart, diese und die DisKetten leben linger.<br />
Au~erdem entstehen keinerlei nervende Geriusche mehr.<br />
I-' Programme mit vielen Overlays, wie Compiler, Wordstar, DBase u. a.<br />
ro I aufen wennt I ich sehnell er. Nur wihrend des Progf'uml auh· zur Zwi sehen<br />
C/J speicherung angelegte Dateien finden in der RAM-Floppy Platz. Oas Naehladen<br />
du eetriebuystems litst sieh von Laufwerk A auf die RAM-Floppy<br />
""1i<br />
c: umsehalten, so daJ dies genauso wie das Naehladen van Hilfsprogrammen<br />
"1 (Micro-Shell, Power) V-aum noch Zeit in Anspruch niMmt. Die Ausfuhrung<br />
von Submit-Oateien wird beschleunigt. Programme .it sehr viel.n Oaten,<br />
UJ wie Z. B. Sortierprogramme, aufwendige mathematische Berechnungen usw.,<br />
::r fur die der Speicher bisher zu Klein und die OisKettenstation zu langsam<br />
~<br />
"1 war, Konnen Jetzt unter Benutzung der RAM-Floppy realisiert werden.<br />
'0<br />
Die RAM-Floppy ist in erster Linie fur den Einsatz unter CP/H 2.2 ge<br />
(1 dacht. Die dazu notige Software wird mitgeliefert. Eventuell wird aueh<br />
o eine Erweiterung fur BASIC SB-6510 erstellt, das h~ngt unter anderem von<br />
a<br />
'0 der Anwenderresonanz ab. uber kleine Hasehinenprogramme (Beispiele wer<br />
C den geliefert) li~t sich die RAM-Floppy aber aus praktisch jeder Prort<br />
grammiersprache ansprechen, auch ~hnlich .ines virtuellen Hauptspeichers<br />
ro (ger~de nicht im RAM benotigte Teile werden au~gelagert und dureh ~ndere<br />
"1 von der P .... udofloppy ersetzt) •<br />
::r:<br />
ro Die RAM-Floppy besteht aus drei Teilen, einem separatem Netzgerit, einer<br />
""1i Anschlu~Karte und der RAM-Floppy selbst. Die eigentliche RAM-Floppyrt<br />
Karte ist zu gr~, um in den Interfaee-Rahmen M2-80EU zu pas~en, so d~<br />
sie ein eigenes flaches Gehiu~e (ca. 110 x 180 x 40 mm) besitzt, das<br />
f-'<br />
direKt hinter oder auf dem HZ-80B aufgest.llt werden mu~. Die hohe<br />
f-'<br />
ubertragung~rate I~tst narnlieh Keine langen Kabel zu. Ein Kurze~ FlaehbandKabel<br />
verbindet at~o die RAM-Floppy mit der Anschlu~Karte, die in<br />
UJ einen der vier oberen Einschdbe des Interfaee-Rahmen HZ-80EU gesteekt<br />
ro wird. Ein anderes ca. 2 rn langes Kabel fuhrt zum el.Ktronisch geregelten<br />
.... "<br />
und gesieherten Netzgerit (ca. 110 x 190 x 10 mm. Die P~eudofloppy<br />
rt<br />
ro selbst hat V-eine Bedienungselemente, die erreichbar bleiben mu~sen, nur<br />
eine LED zur Anzeige der Betrieb~spannung 1st vorhanden. Oas Netztel1<br />
W besitzt die~e ebenfall~ scwie den Netzsehalter und den Sicherungshalter.<br />
....J<br />
D1e Ansehlu~karte stetlt nicht nur die Verbindung zwischen dem HZ-80B<br />
und der RAM-Floppy her, sondern besitzt auch noch ein. aKKugepufferte<br />
HardWare-Uhr mit Kat~der und ein80 8-Bit-Parallel-Port. Oazu steht<br />
unten noch mehr.<br />
Die RAM-Floppy Nurde komplett in Deutschland entwiekelt und gebaut und<br />
hat nichts mit der 1984 anget.andigten RAM-Floppy aus Japan zu tun. 2um<br />
ZeitpunKt der Erstellung dieses Berichts (12. 9. 85) waren die Arbeiten<br />
noeh nicht abge.ehlossen, so daJ an den hier geschilderten Eigensehaften<br />
noch ~nderungen vork~ konnen. Auch der Preis litst sich noeh<br />
nicht endgultig feststelJen, er wird bel etwa 1400 OH incl. 14% HWst.<br />
liegen. Wenn Si. die.en Berieht lesen, Nird die EntwieKlung wohl abge<br />
.ehlo~sen seine Fordern Sie deshalb ausfuhrliches Informationsmaterial<br />
mitsamt der Bedienungsanleitung an.<br />
REA L T I H E - C l 0 C K 8 - BIT - P 0 R T<br />
Diese Karte fur den Interface-Rahmen HZ-80EU beinhaltet eine aKKugepufferte<br />
Hardware-Uhr und einen 8-Bit-Parallel-Port. Die HardWare-Uhr besitzt<br />
einen eigenen Quartz und liuft damit unabhingig vom H2-80B. Wenn<br />
dieser eingeschaltet 1st, werd80 d1e AkKus aufgeladen, i~t er ausgesehaltet,<br />
wird die Uhr aus den A~kus versorgt. Die Uhr mu~ somit nurein<br />
einzige. Hal gesetzt werden und stellt dann i~er quartzgenau die Uhrzeit<br />
mit Stunden, Hinut~ und SeKun~ und da. Datum mit Tag, Honat,<br />
Jahr, Schaltjahr und Hochentag zur Verfugung. Treibersoftware zum Setzen<br />
und Auslesen der Uhr wird ~itgeliefert. Oesweiteren 1st ein 8 Bit breiter<br />
Parallelport mit zNei Hand-ShaKe-Leitungen zur Ein- und Ausgabe<br />
vorhanden, der frei proQr&mMiert werden kann (realisiert mit Z-80A-PIO).<br />
Die Karte wird in dieser Form auch bei der Pseudofloppy mitgeliefert,<br />
nur da» dann noch zusatzlieh der Ansehlu~ zu die5er vorhanden 1st. Aueh<br />
fur die~e Hardware-Erweiterung gilt das oben gesagte, ~nderung.n sind<br />
also noch moglieh, Informationsmaterial V-ann angefordert warden, dar<br />
Preis betrigt etwa 200 OH incl. 14X Mwst.<br />
G RAP H - T E X T<br />
Hit diesem neuen Textverarbeitungsprogramm besteht endlieh die Hogliehkeit,<br />
sich auch bei der Texterstellung die graphischen Fihigkeiten des<br />
H2-808 und des Oruckers zunutze zu machen. So 1st es moglich, den<br />
Zeichensatz fur den OrucV-er umzudefinieren, urn auf dem Druc~er Umlaute<br />
(softwaremi~ig!) auszugeben, ja selbst ganze Zeichnungen Konnen gleiehzeitig<br />
mit dem Text erstellt und ausgedruekt werden. Hit diesem Programm<br />
wurden schon ganze Diplomarbeiten einschlie~lich von Zeichnungen,<br />
Schaltpl~nen und Gr.afiKan druckreif geschrieben. Eine ausfuhrliche Beschreibung<br />
folgt im nichsten Heft.<br />
§ of tlU a r f
Idl bile rur neiral KlB)..B ein u.f~ 11kt:l.enuewd~<br />
(J) ~ in cBI extnm scbJellin '1\rlx>-PaBcal ~.<br />
ro /lqp..trlr grafische ~ \.Dl -IBxip1latl.aB1 Bind ntiglich •<br />
f--'o<br />
rt so Tn!nIlinim. Glei1Bde IUdB:b1itlle. ~ Klrwm •<br />
ro gleic.tmeitige ~ cB- tlIaIltD a1s ~. tber~<br />
JIEtrer'er Ilrva1 in ~ JIh!n u.a.<br />
w nrch die extraa ecmene Paacal-8eelbeibq 1st ea EnbIBls aiSglidl<br />
rJ)<br />
~. kJIpliziertle ~ aJf cB- (Nd]sge vm Ktra<br />
\.Dl tlllllltzverial:b!n Zl emt2llm. <br />
:I> Sallit wird ~ neben cm ~ \Pi cm ~<br />
I--' a1s neue Metmde die IIBthmlti.sche IrBl,yse Sl die Herd ~<br />
I--'<br />
incl. 14% MwsT.<br />
Gera.Jeres ist cB- Bedi..EnqJ!mleibq Zl EI'Itn!DEn. ~:5lDL<br />
ro<br />
[fJ TURBO PASCAL Program Lister, Cop~right 1983 Barland International<br />
'"t)<br />
Listing of: B:ACTIA.DOC<br />
C:<br />
'"1<br />
Beschreibung des Aktien-Verwaltungprogramms<br />
[fJ Dieses Programm benoetigt als Hardware-Vorraussetzung den <strong>MZ</strong> 80 B <br />
::r Computer von <strong>Sharp</strong>, Drucker P5 sowie Floppy mit 2 Laufwerken.<br />
DJ<br />
'"1<br />
'0 Die Programmiersprache ist Turbo-Pascal/ Cp/M, daher e>:trem schnelle<br />
Bearbeitung.<br />
Cl Diese Beschreibung ist in 'actia.doc" auf Discette geschrieben und kann<br />
o durch Turbo-Pascal ausgedruckt werden.<br />
3 Bestartet wird nach der A) Meldung mit 'actia' •<br />
'0<br />
C<br />
rt Die Programmdiskette muss in .Lauiwerk I, die Datendiskette in Laufwerk 11<br />
ro eingelegt werden. Beim ersten Programmstart muss die 2.Discette initiiert<br />
'"1 werden. AIs Anzahl zu verwaltender Aktien werden 100 Aktien eingegeben;<br />
::c<br />
ro Bei (pro Discette) 100 angelegter Aktien sind pro Aktie etwa 300<br />
'"t) Kurseingaben moeglich. Der Kurs ist als ganze Zahl ohne Komma einzurt<br />
geben. Groessere Zahlen als ~ 30000 werden nicht angenommen (Integerzahlen).<br />
Sind groessere Zahlen zu verarbeiten (z.B. Umsaetze) , so muessen diese<br />
~<br />
entsprechend gekuerzt werden:<br />
~<br />
Aus dem kg-Goldpreis von 31115 wird so<br />
bleibt hiervon unberuehrt.<br />
z.B. 3111. Die Kurvendarstellung<br />
Die Actien sollen auf der Discette so angelegt werden, dass nach jeder<br />
Aktie der dazugehoerende Umsatz iolgt. Entsprechend arbeitet die<br />
grafische Anzeige: DieUmsaetze werden unten als Histiogramm dargestellt.<br />
£ifl Z - g 01a<br />
N) Norm: <br />
Normale Darstellung ohne Manipulationen <br />
G) Glatt: <br />
glaettet die Normalkurve. Geeignete Glaettfaktoren sind <br />
3 .• 5 .. 7 .• 9<br />
B) Balken= <br />
Balkengrafik (Histiogramm) in der linken unteren <br />
Ecke.Empfehlenswert fuer di~ Umsatzzahlen. <br />
A) AlleK: Darstellung aller Aktienkurven in schneller Folge. <br />
T) Trend:Darstellung einer allgemeinen Trendlinie fuer den <br />
Gesamtkurvenverlauf oder fuer Teilabschnitte. Hierzu muessen <br />
Anfang und Ende eingegeben werden. Das Eingabeende wird <br />
.ngezeigt. <br />
L) GlattK:Darstellung in gleitenden Durchschnitten in <br />
beliebigen Indices. <br />
0) Loeschen Bildschirm <br />
Z) Zurueck zum Menue <br />
D) Ausdruck <br />
Beliebige Ueberlagerungen von Kurven bei gleichzeitiger beliebiger <br />
Verschiebung auf der Y-Achse nach oben oder unten ist moeglich. <br />
Korrecturmoeglichkeiten: <br />
Die eingegebenen Werte koennen bei 'Kurskorrektur' eingesehen werden. <br />
Weitere umfangreiche Korrectureingriffe in den Datenbestand siehe <br />
Menue. <br />
Rechenoperationen: <br />
Gewinn/Verlustrechnung mit Angabe der Boersenumsatzsteuer und Courtage. <br />
'l. - Rechnung. <br />
Renditeberechnung einschl. Koerperschaftssteuer - Beruecksichtigung. <br />
Marktanalysen: <br />
Dateneingabe= Korrekturmoeglichkeit durch Eingabe einer '1'<br />
Nach der Dateneingabe werden die eingegebenen Werte nach procentualer<br />
Veraenderung sowie nach den sog. Marktdruckkonstanten (s.u.) sortiert<br />
ausgedruckt.<br />
Die letzte Datei (die 100.) erfasst den Durschnitt aller<br />
Umsaetze, genauer jeder Datei mit geradzahligem Index,also 2,4,6•••<br />
Die zweitletzte (die 99.) beinhaltet die Fortschritt-Rueckschrittkurve.<br />
Die 97. Datei erfasst den allgemeinen Marktdruck als Durchschnitt<br />
.ller eingegebenen Werte.<br />
Die Fuehrung durch das Programm uebernimmt das Menue; bei der graphischen<br />
Darstellung bedeuten die Abkuerzungen:<br />
S) Stand: <br />
Standartdarstellung Unten werden die Umsaetze <br />
als Balkendiagramm angegeben. Oben kammt der letzte Teil <br />
'gezoomt' zur Darstellung. Im Fenster letzte Kurse~ <br />
in der entsprechenden Menueauswahl laesst sich eine statistische Ueber<br />
sicht sowohl des Gesamtmarktes als auch einzelner Aktien gewinnen. <br />
So koennen z.B. Werte, die in der letzten Zeit die hoechsten Umsatz<br />
bzw. Kurssteigerungen erzielten, der Gewinn/Verlustpraportion ent<br />
sprechend aufgeschluesselt werden. <br />
Der "Marktdruck' (KursjUmsatz-Kennziffer) fuer einzelne Aktien wie auch <br />
fuer den Gesamtmarkt wird aufgeschluesselt. <br />
Festgehalten wird ferner das Gesamtumsatzverhalten des Marktes wie <br />
auch die sog. Fortschritt-Rueckschritt-Linie. <br />
Eine absolute Neuheit ist ferner ein vom Programm berechneter Indikator,<br />
der anzeigt,inwieweit eine· Aktie ueberverkauft oder uebergekauft ist. <br />
(H/Z-Faktor) - von "Hartgessotten-Zittrig'. <br />
Ein weiterer Indikator fasst Marktdruckverhalten und Verkauf zu<br />
ssammen. Je hoeher dieser Indikator, umso kaufenswerter erscheint die <br />
Aktie und umgekehrt. - Aufruf durch 'Kaufsignal". <br />
Hierbei liegt 2ugrunde der Gedankengang, dass nach einer laengeren Ver<br />
k.ufsph.se das Kaeuferinteresse ploetzlich wiedererwacht und der Markt<br />
druck, also Umsatz und Kurs, sprunghaft zunimmt.
w.,1D'I 11 EJgJ!it<br />
292 ~ 189 III,ID'I<br />
amr 1nl ..<br />
B<br />
lID: 273 llin: 217 ItIIq l stlll IR9IIlImI 11 lID: 176 llin: 147 stili,<br />
11 EIIT,ID'I 199 stili.<br />
m<br />
:13<br />
m H,..<br />
& • .ID'I<br />
B<br />
lE<br />
~ I~<br />
m<br />
m<br />
I lie"<br />
11<br />
U.t1~~<br />
~ II i" J.u 1'-7-,. .~~<br />
~ fo·I..''(<br />
I~ ~1Y i<br />
D ~<br />
m<br />
1~<br />
Ii<br />
1,1 ;: _"<br />
. • 1&<br />
~4~~ ~<br />
~-s~=<br />
-~.f·'tr<br />
amr III .. lID: &IS llin: 51<br />
684 a1J.lr.85 6IsDIII5 :j:',•J' ,1;"';"lj;:: ' i.<br />
673<br />
bJ<br />
m<br />
fi2II<br />
I •617<br />
V(JIAc p~<br />
m<br />
a.'''rtl,lt<br />
II/d."t (oL~ ii_ J.ce.<br />
It<br />
51 ~'(e-t.c ~t.lli/olr.1-<br />
k" a.- Ju4,.'.lJc... ..-,v:;..~~<br />
m<br />
11<br />
51'<br />
15<br />
494<br />
IS<br />
~: V.1c~"",<br />
~.,--<br />
S3C<br />
$M<br />
SI<br />
m<br />
m<br />
I 11<br />
m SI<br />
F=n 'I 11 12 14 • Ul!itscdl I 2 ,<br />
....<br />
I U 12 14 *IllfitscIJ,<br />
~u4~<br />
• IIm 1<strong>52</strong> Iinl2851 I. Sil.,tldt<br />
12 Ir. Z9f<br />
..,:15 tilsl2llllS __.:.:._M-=- 3. P1dia'i<br />
r..!L~.r ::. ..:;. ~.:~:: :<br />
• B<br />
B ut . rmlilit 21<br />
~<br />
I<br />
-fL-.~'4 I ~ 2D<br />
'f~~~<br />
':'oGt. i4"f~" ~,..,e..<br />
I~ ~tue.<br />
U.L"'~<br />
11<br />
M<br />
2B<br />
29ft<br />
ZM7<br />
2B<br />
m<br />
"~<br />
• D =fI <br />
I''''~<br />
B<br />
21<br />
ZI<br />
I <br />
111<br />
21<br />
11<br />
299<br />
1111214<br />
aII!IRT" .. lID: B lin: 215<br />
t lIltitsall<br />
m,JIII<br />
268 1IfER,m<br />
2S6<br />
m,..<br />
253 IIIIB,.<br />
2S8<br />
1MEI,m<br />
246 t1rit <br />
243<br />
2.<br />
a<br />
233<br />
~~~t<br />
2'J ~<br />
./ It':.:.nbottk.....<br />
21<br />
m<br />
221<br />
217<br />
213<br />
211<br />
21'1 <br />
283 <br />
m<br />
\ _~-T'" ~.:nt.,......fJ .P
(f).<br />
ro<br />
~.<br />
rt<br />
1IDlZ-80~<br />
ro Auswertunq der<br />
+' Zu unserer Fr?gebogenaktion fUr die Computer <strong>MZ</strong>-80 K und <strong>MZ</strong>-80 A<br />
o<br />
sind insgesamt nur 13 RUckmeldungen bei uns eingetroffen, obwohl<br />
sicherlich noch mehr K/A-Besitzer unter unseren Lesern sind.<br />
:t> Darunter waren 3 Antworten zum <strong>MZ</strong>-80 k und 10 zum <strong>MZ</strong>-80 A.<br />
~<br />
Doppelfloppy und Drucker gehoren bei fast alIen zur Standardaus<br />
~<br />
rGstung und bei vielen sind sogar noch andere Erweiterungen<br />
ro<br />
vorhanden. Interessant waren fUr uns die WUnsche, bei denen wir<br />
U"1<br />
feststellen konnten, daB sich unsere eigenen Ideen sich oft mit<br />
"'"h denen der Kunden decken.<br />
c: Die Anfragen beziehen sich Uberwiegend auf Hardwareerweiterungen<br />
"""S und Tips und Tricks fUr die Computer. In be~den F~llen haben wir<br />
schon erste Schritte unternommen, z.B. die neue Reihe der "Interrn<br />
::r nen", zu denen es nun schon das zweite Exemplar gibt (siehe<br />
CD unten). Einige WUnsche sind jedoch so speziell, daB nicht einmal<br />
'"'l wir dabei helfen konnen. So etwa die Algorithmen fUr die Festle<br />
'd gung neuer Basic-Befehle oder den Anschlu8 des <strong>MZ</strong>-80 A an eine<br />
o<br />
Atomuhr oder an BTX, was unserer Meinung nach unmoglich ist,<br />
schon aufgrund der mangelnden Moglichkeiten der 8ildschirmgra<br />
o<br />
:3 phik. Sollte einer unserer Leser hier vielleicht eine Losung<br />
'd wissen, so werden wir seine Antwort gerne weiterleiten. Wir<br />
C werden trotzdem versuchen, auf alle Probleme eine Losung zu<br />
rt<br />
CD<br />
finden und diese entweder direkt mitteilen oder, falls sie von<br />
'"'l allgemeinem Interesse sind, in einer der n~chste Ausgaben der<br />
Zeitung behandeln.<br />
::r: Wir danken alIen Einsendern fUr Ihre Mithilfe.<br />
CD<br />
"'"h<br />
rt Ne-Lite- Pa.peor\Ncaref-£<br />
f-£<br />
In vielen Computerzeitschriften werden immer wieder kurze<br />
Programme abgedruckt, die angeblich die neuste und schnellste<br />
Sortierroutine darstellen. Nur wie diese Routinengenau arbeiten<br />
und wo man sie im Vergleich zu anderen Routinen am effektivsten<br />
einsetzt, daB erf~hrt man nie.<br />
Deshalb gibt es jetzt das <strong>MZ</strong>-80 Intern 2, in dem folgende Verfaherkl~rt,<br />
und mit alIen ihren Vor- und Nachteilen<br />
ren ausfUhrlich<br />
gezeigt werden.<br />
Bubblesort<br />
Shellsort<br />
Duicksort<br />
Shakersort<br />
:maZ-80A <br />
Fraqebo~n~ktLon<br />
Au8e~dem gibt es Tips, wie und wo man sie anwendet und kleine<br />
Verbesserungen, die den Sortiervorgang noch einmal verschnellern.<br />
Da alle Erklarungen ganz allgemein gehalten wurden, sind hier<br />
keine verschiedenen Versionen fUr die einzelnen Rechner notwendig,<br />
ja sogar 8esitzer von <strong>MZ</strong>-700/800 und anderen konnen hier<br />
wertvolle Erkl~rungen finden.<br />
Das <strong>MZ</strong>-80 Intern 2 kostet 20 DM inkl. 7% MwSt. Der Preis<br />
beinhaltet die Kosten fUr Portd/Verpackung und Vers~nd per<br />
Nachnahme. Bestellungen sind schriftlich an die Fischel GmbH zu<br />
richten.<br />
T. oX 't" :st/lU:tJ ID<br />
Etn Textverarbettung.programm fUr den <strong>Sharp</strong> PC-5000<br />
Fur den tragbaren 16-Bit-Coaputer SHARP PC-~'" Mird jetzt<br />
ein ko.fortables, Zeilenorientiertes Textv@rlrbeitungsprogra••<br />
in Basic vorgestellt, das auf die Eigenheiten und Vorzuge dieses<br />
6erates eingeht, insbesondere das 8zeilig. Display ait ee Zeichen<br />
Br.ite und den Bubble-Speicher.<br />
Ein@ Flopp~-Disk ist nicht not.endig, daait ist - zusaa.en<br />
.it de. eingebluten Drucker und eine. Akustik-Koppler - echte<br />
Port.bilitit .oglich.<br />
Der Text kann ohne Beachtung yon spiter notMendigen Zeilenbreiten<br />
eingeg@ben Merden. Jederzeit kann der Text auf eine frei<br />
wihlbare Zeilenbreite fora.tiert .erden und .uf einea beliebigen<br />
Ausg.begerit (.uch i. Blocksatz) ausgegeben Merden.<br />
Die Ausgab. kann auf de. Displ.y, RS232, internea Drucker oder<br />
Akustik-Koppler erfolgen.<br />
Oer T@xt k,nn nach besti ••ten Zeichenfolgen durchsucht .erden.<br />
Jederzeit ist der Sprung ins Hauptaenu a6g1ich. Alle Funktionen<br />
(For.atierung, Spelcherung, Druck us•• ) sind luf einen bestia.ten<br />
Zeilenbereich begrenzt Merden.<br />
Eine Help-Funktion ist fur Neulinge, die .it diesea Progra••<br />
arbeiten, hilfreich.<br />
T.xt5'" unterstutzt auch einen Cassettenrecorder (z.B. als<br />
Altablage) •<br />
Tut5'" Mird auf Cassette geliehrt und Kostet DI'1 185 incl.14%<br />
MwsT.<br />
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••<br />
• Koafortabler Zeileneditor fur den Sbarp PC 5000G •<br />
Menuegesteuert. daher sehr lelcht zu bedienen. Foraatlerungs- • et<br />
• aoglichkeiten wle Randeinstellung etc. Volle Ausnutzung des •<br />
• Displays bei der Texteingabe und -anzeige. •<br />
~<br />
Besonderheit: Displayanzeige des Textes wahlwelse In Fett- • .......<br />
druck, daher auch unter ungtinstigen Lichtverhiltnlssen sehr •<br />
• gut lesbar. Diskette Preis 98.--DM inkl. 14% Mwtst. •<br />
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• E<br />
• Lernprogra•• fur den <strong>Sharp</strong> PC 5000: Englisch/Deutsch - Deutsch/·<br />
• Englisch: Vokabeln aus dea Mikroco.puterbereicb; der Lernstoff • ~<br />
• ist elngeteilt in Gebiete wle Hardware. Software etc. IBM-PC •<br />
• Version ebf. lieferbar. Diskette Preis 98.-- DM inkl. 14~ Mwtst· +-;<br />
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••<br />
• Trainingskurse In Berlin: MSODS uDd Easy Irlter 11 auf de. • ~<br />
• <strong>Sharp</strong> PC 500OG. Zeit. Ort. Preis auf Anfrage. •<br />
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••<br />
§t@Ai~W-t@arnb lrr<br />
fPca-50oom<br />
l!J
Hi~r ~ind ~i~=Di~ pr~~~~~i~n~11~n Pr~Qr~~~~ ~Ur<br />
d~n SHARP <strong>MZ</strong> 700 / <strong>MZ</strong> BOO<br />
THE NOTE TEXTVERARBEITUNG<br />
Editieren, Redigieran und Gestalten von Texten und Tabellan. FUr Briefe,<br />
Listen, Liafarscheine, Rechnungen, Aufsatze, Berichte, Protokolle<br />
und alles andere, wozu Sie bisher Ihre Schreibmaschine benutzt haben.<br />
* Vollstandige Programmsteuerung mit Hilfe der Cursortasten. Kein Auswendiglernen<br />
von Befehlen, keine Textzerstuckelung durch Steuerzeichen.<br />
Standig verfugbares komfortables Menu.<br />
* Lange der Textzeilen bis 240 Zeichen durch horizontale Zeilenverschiebung.<br />
Der Text erscheint auf dam Bildschirm so, wie er spater<br />
ausgedruckt wird.<br />
* Schnelle und einfache Texteingabe. Kleinschreibung I 6rbBschreibung<br />
umschaltbar~ X,o,U,a,o,u und B. Abschaltbare Zeilenendewarnung. Abschaltbare<br />
automatische Zeilenschaltung. FuBnotenverwaltung wahrend<br />
der Texteingabe. Unbegrenzte Zahl ven getrennt abspeicherbaren ~<br />
bausteinen (Erstellung einer Bausteinbibliothek).<br />
* Schnelles nachtragliches Korrigieren _it Formatanpassung.<br />
* Ka.fortable Tabellenerstellung. 6etrenntes Suchen und Sortieren in<br />
jedea beliebigen Tabellenfeld.<br />
* Schnelle Routin@ zu~ Suchen und Ersetzen van Textteilen.<br />
:l> * Alphabetisches Sortieren ven Dateien im Text. §eschachteltcs Sortie<br />
....... <br />
....... ren nach -.hreren Kriterien moglich• <br />
ro<br />
fJJ * Nachtragliche Sestaltung von Texten und Textteilen: Linksbilndig,<br />
rechtsbilndig, Tabulieren, Zentrieren, Blocksatz, Flattersatz.<br />
>""t)<br />
c:<br />
* Druckersteuerung vam Progra.. aus: Zeilenabstand, Schriftart, R~d<br />
'"1<br />
einstellung, Perforatianssprung, Zeilenvorschub, SeitenvDrschub.<br />
CJJ Schriftartwechsel .itten in der Textzeile. Unterstreichung auch<br />
::r einzelner Worte. Hervorhebung ven FuBnoten 12) durch Superscript.<br />
0)<br />
'"1<br />
'0<br />
* Loschen ven Textzeilen .it oder ohne Aufrucken der nachfolgenden<br />
Zeilen. Einfugen von Zeilen durch einfachen Tastendruck. 8eliebiges<br />
n KOPieren von Textzeilen und Tauschen von Textblocken.<br />
o<br />
a * Frei definierbare BriefkoDfe nach einprogra..ierte~ Muster incl.<br />
'0 Kopfzeile fur Fenster~hlage.<br />
C<br />
rt<br />
ro * Abspeichern von Texten und Textbausteinen wahlweise auf Disketten<br />
'"1 und Kassetten. Speicherbefehle auf Textteile begrenzbar. Mischen und<br />
Anfugen van Textteilen van Kassette oder Diskette. Loschung und Um<br />
::r: benennung von Diskettenfiles. AuszuQ aus Diskettendatei zur schnelro<br />
>""t) len Orientierung uber die gespeicherten Texte.<br />
rt<br />
* BASIC-Prograam _it Kaschinenspracheroutinen. Kompatibel .it ~-Basic,<br />
f-' 6ischel-Basic, sds- (Schafer-) Basic und verwandten Dialekten. Frei<br />
f-'<br />
listbares und frei kopierbares Programma<br />
CJJ * ~angreiches, leicht verstandliches, deutschsprachiges Handbuch.<br />
ro Vorkenntnisse Herden nicht vorausgesetzt.<br />
......<br />
rt * Vollstandige Datenkompatibilitat mit FILE DATENVERWALTUN6.<br />
ro<br />
f:' Kostenlose telefonische Beratung nach dem Kauf bei Anwendungsfragen.<br />
,f-' Kostenlose Anpassung an spatere Programmversionen bei Xnderungen.<br />
FILE DATENVERWALTUNG<br />
Schnelles Datenverwaltungsprogramm in Karteikartenfor•• Universalprogramm<br />
fijr jede Art der Datenverwaltung - nicht nur flir Adressen oder<br />
Schallplattensammlungen. Zu~ Beispiel Kunden, Patienten, Lagerbestand,<br />
Literatur, Akten, Lexikon. Fur jede Anwendung konnen Sie eine eigene<br />
Maske erstellen und abspeichern. Keine zwingende Aufteilung der Karten<br />
in Felder, daher auch lange Eintrage bis 240 Zeichen moglich.<br />
* Frei listbares und frei kopierbares BASIC-Programm mit Maschinenspracheroutinen.<br />
Geringer Speicherplatzbedarf durch Verwendung von<br />
Pseudo-Arrays. Kompatibel mit S-Basic, 6ischel-Basic, sds- (Schafer-)<br />
Basic und verwandten Dialekten.<br />
* Abspeichern von Dateien und Teildataien auf Disketten und Kassetten.<br />
Mischen von Dateien moglich.<br />
* Frei definierbare Kartenstruktur_ Maska getrennt auf Kassette oder<br />
Diskette abspeicherbar. Keine Begrenzung der Kartenfelder.<br />
* Schnelles und langsa~es Blattern in der Datei _it den Cursortasten.<br />
* Vollstandige Progra.msteuerung durch Wahl.-nu: Die Befehle er.cheinen<br />
nacheinander auf Tastendruck in ain.. Fenfiter und brauchen .it der<br />
eR-Taste nur noch aufgerufen zu warden. Menubefehle ausschlie81ich in<br />
deutscher Sprache•<br />
* Koefortables Beschreiben der Karteikarten .it Sofortkorrektur, Loschen<br />
einzelner Zeichen oder Felder, Tabulatorfunktion. Durchgangiges<br />
Beschreiben der Karteikarten ohne aufwendiges Weiterblattern.<br />
* Jade beliebige Aufteilung der Karteikarte .oglich. Bis zu zehn Felder<br />
getrennt ansteuerbar. Suchen und alphabetisches Sortieren getrennt<br />
nach einzelnen Feldern moglich.<br />
* Komfortable Druckersteuerung: Beliebiges Druckforaat. Schriftart und<br />
Zeilenlange vam Progra~m aus steuerbar. Randstellung, Zeilenabstand<br />
und Perforationssprung fur Endlospapier i~lementiert. Ausdrucken<br />
einzelner Karten, van Teildateien oder der ganzen Datel. Ausdruck nur<br />
ainzelner Teile der Karte (z.B. nur der Adressenfelder) .oglich. Anpassung<br />
an Drucker durch einfache XnderUngen.<br />
* Deutsche Umlaute und B. Kleinschreibung als Regeleingabe .oglich.<br />
* Bequemes Korrigieren und Xndern van Karteikarten. Verwendung van<br />
Graphiken moglich.<br />
* Loschen von Karten .it und ohne Aufrucken nachfolgender Karten.<br />
* Schnelles Suchen von Eintragen wahlweise .it und Ohne Ausgabe auf dem<br />
Drucker.<br />
* Ausflihrliche, leicht verstandliche, deutschsprachige Anleitung•<br />
Kostenlose telefonische Beratung nach de~ Kauf bei Anwendungsfragen.<br />
Kostenlose Anpassung an spatere Progra..versionen bei Xnderungen.
PLUSPUNKT DATENVERARBEITUNG<br />
r.J'J<br />
(l)<br />
1-'. Im 6egensatz zum Programm FILE DATENVERWALTUNG ermoglicht PLUSPUNKT<br />
rt die Verarbeitung auch schwierigster Datenstrukturen sowie die Ausfuh<br />
(l)<br />
rung jeder beliebigen Rechenoperation in Form der Tabellenkalkulation.<br />
.j:' Es wendet sich an alle, die ihre Daten nicht lediglich verwalten, san<br />
N dern im Zusammenhang mit verschiedenen Fragestellungen immer wieder<br />
neu zusammenstellen und einsetzen mussen. Anwendungsbeispiele dafur<br />
:> sind Buchhaltung, textunterstutzte Kalkulation und detaillierte Kata<br />
,...., logisierung von Daten aller Art.<br />
,....,<br />
(l)<br />
* Frei wahlbare Datenstruktur mit bis zu 16 Unterebenen. Jedes Feld<br />
r./J<br />
kann bis zu 2SS Zeichen enthalten, jeder Datensatz somit uber 4000<br />
""t) Zeichen. Einfaches Nachladen Ihrer Daten von Kassette oder Diskette,<br />
C:: wodurch auch die Bearbeitung umfangreicher Dateien mHglich wird.<br />
"1<br />
r.J'J * Schneller Datenzugriff durch die Pluspunkt-Struktur, eine schemati<br />
::r sche Anzeige der belegten und freien Felder. Kein Raten oder um<br />
0)<br />
standliches Suchen, wo die Daten abgelegt sein k6nnten. Anwahlen<br />
"1<br />
'0 der Daten mit de. Cursor. Abruf der Befehle ven der Tastatur .it<br />
Hilfe van Ein-Zeichen-Befehlen (keine Menufuhrung).<br />
n<br />
o<br />
a * Komfortable -Report"-Funktion .it zweifacher Suchroutine, logischen<br />
'0 Verknupfungen (Und, Oder, Gleich, Ungleich, Kleiner, GraBer). Sumc:<br />
menbildung. Frei wahlbare Anzeigenstruktur (also auch Anzeigen und<br />
rt Ausdrucken der Oaten in ganz anderer Reihenfolge als eingegeben, An<br />
(l)<br />
"1<br />
::r:<br />
zeige und Ausdruck nur einzelner Datenfelder). Blattern in der Datei.<br />
Formatiertes Ausdrucken der Daten.<br />
I'D<br />
""t) * Leistungsfahige Rechenroutinen .it Brundrechenarten, Speicherarithrt<br />
metik, Reihen- und Spaltenrechnung, Von-Hundert-Rechung, Auf-Hundert-Rechung<br />
(MWSt-Anteil), frei definierbare USt- und sonstige Prof-l<br />
f-l<br />
zentsatze. Dazu frei programmierbare Matrixarithmetik in BASIC, also<br />
Jede beliebige Felderbeziehung her$tellbar (Tabellenkalkul.tion .it<br />
Texten).<br />
* Schnelles aufsteigendes und absteigendes Sortieren und Indizieren<br />
der Dateien nach der SHELL-METZNER-Methode. Mehrfaches (geschachteltes)<br />
Sortieren nach jedem Feld aaglich. Indizieren .uch nach -nicht<br />
existenten N , frei definierbaren Kriterien.<br />
* Autamatische Kalenderroutine bis ZUM Jahr 2100.<br />
* Deutsche Umlaute und B. Kleinschreibung als Regeleingabe m6g1ich.<br />
* Detailliertes, 80-seitiges deutschsprachiges Handbuch im DIN-A-4<br />
Format.<br />
Achtung: Im Gegensatz zu unseren anderen Programmen erfordert die Arbeit<br />
mit PLUSPUNKT eine gewisse Einarbeitungszeit. Diese Einarbeitung<br />
gelingt mit dem Handbuch aber muhelos, so daB Sie nach einigen Tagen<br />
das Programm beherrschen. Bitte beachten Sie auch, daB bei der Verarbeitung<br />
graBer Datenmengen die Verwendung eines Diskettenlaufwerks<br />
ratsam ist.<br />
Kostenlose telefonische Beratung bei Anwendungsfragen nach dem Kauf.<br />
CALC TABELLEN
Pascal-System<br />
AlIgemeines: <br />
Das K & P Pascal-System ist eine leistungsfahige Implementierung der <br />
Sprache "Pascal" aut Ihrem <strong>MZ</strong>-700/800. <br />
Neben RECORD's und ARRAY's kann dieses System auch Zeiger<br />
variablen verarbeiten. Der Datentyp FILE wurde hingegen nicht in das <br />
System integriert. Ansonsten bringt das K & P Pascal-System optimale <br />
Voraussetzungen zur strukturierten Pascalprogrammierung. <br />
Neben den Pascal-Standard-Funktionen und -Prozeduren bietet das <br />
System eine Reihe weiterer Funktionen/Prozeduren an, die die M6glich<br />
keiten des <strong>MZ</strong>-800 bezuglich des Musik- und Farbgenerators ausnut<br />
zen. Urn bei diesem System nicht ganz aut die Externe Speicherung von <br />
Daten verzichten zu mussen, konnen mit den zwei Prozeduren (SAVE-, <br />
LOADDATA), festgelegte Speicherbereiche auf Diskette beziehungs<br />
weise Kassette (je nach Version) abgelegt werden. <br />
Das K & P Pascal-System ist in ~ei Versionen erhaltlich:<br />
a) Kassetten-Version<strong>MZ</strong>700+<strong>MZ</strong>800<br />
hier dient die Kassette als externes Speichermedium<br />
b) Disketten-Version <strong>MZ</strong> 700 + <strong>MZ</strong> 800<br />
hier dient die Diskette als externes Speichermedium.<br />
Die Vorteile der Disketten-Version liegen nicht nur bei den kurzen ladeund<br />
Schreibzeiten, sondern auch beim integrierten FDOS (Disketten<br />
Verarbeitungs-System), mit dessen Hilfe Arbeitsdisketten kopiert, Rles<br />
von Disketten auf Kassette Obertragen (und umgekehrt) werden kronen,<br />
etc.<br />
Aufbau des Pascal-Systems<br />
Das "K & P Pascal-System" ist in drei Unterprogramme aufgeteilt:<br />
a) der Editor<br />
b) der Compiler<br />
c) der Filer (Diskette)<br />
das CMT (Kassette)<br />
a) Der Editor gestattet dem Benutzer, auf einfache Art und Weise<br />
Pascal-Quelltexte zu erstellen.<br />
b) Der Compiler erm6glicht das Austesten der zuvor editierten Pascal<br />
Programme (Quelltexte) und das ErsteUen von Objekt-Files (Maschinenprogramme),<br />
die letztlich das Endprodukt eines Obersetzungslaufs<br />
darstellen.<br />
c) Der Filer erm6glicht dem Anwender den direkten Zugriff auf den externen<br />
Datenspeicher.<br />
Da das Pascal-System ca. 30 KByte benotigt, steht dem Anwender ein<br />
Arbeitsspreicher von ca. 34 KByte (fUr Quell- und Objektfiles) zur Verfugung.<br />
Assembler..System<br />
Dieses Programmist eine leistungsfahige Implementierung der Assembler-Sprache.<br />
Der Name Assembler-System weist darauf hin, daB es<br />
sich nicht nur urn einen Assembler handelt, sondern darOberhinaus noch<br />
eine Maschinensprache und einen "Singel-Stepper" (Trace-Modus)<br />
beinhaltet.<br />
Durch die MenOtechnik wird die Bedienung des Programms denkbar ein..,<br />
fach gehalten. Sie konnen nach Belieben den Assemblermodus verlassen<br />
und z.B. zur Maschinensprache wechseln ohne daB hierdurch Ihr<br />
Assemblertext geloscht wird.<br />
Zeitraubendes Zwischenspeichern auf externe Speichermedien (insbesondere<br />
bei C-Version) entfaJlt also!<br />
Das program m ist in sich abgeschlossen, d.h. Sie benotigen fUr den<br />
Assembliervorgang keine weiteren Hilfsprogramme (z.B. "Relocate-loader"<br />
oder "Symbolic Debugger"), wie Sie es vielleicht von anderen<br />
gleichnamigen Program men her kennen! Durch diese Art der Anwendung<br />
und des Aufbaus wird die Erstellung eines lauffahigen Maschinenprogramms<br />
sehr beschleunigt.<br />
Das Programm liegt z.Z. in drei AusfUhrungen vor, die an dieser Stelle<br />
zwecks Oberblick genannt werden sollen:<br />
a) Assembler-System 800/CX fUr den <strong>MZ</strong>-8oo mit CMT-Betrieb<br />
b) Assembler-System 800/DX fUr den <strong>MZ</strong>-800 mit Disk-Betrieb<br />
c) Assembler-System 7oo/DX fUrden <strong>MZ</strong>-700 mit Disk-Betrieb<br />
d) Assembler-System 700/CX fUr den <strong>MZ</strong>-700 mit CMT-Betrieb<br />
"X" steht fUr die Versionsnummer<br />
Samtliche Versionen nutzen den vollen 64 K-Speicherbereich des <strong>MZ</strong><br />
700/800 aus. Fur Anwender ergibt sich hieraus der groBe Textbereich<br />
von 44500 Bytes.<br />
Aufbau des Programms:<br />
Der Assembler ist in 5 Unterprogramme aufgeteilt.<br />
a) Dis-Assembler<br />
b) Assembler<br />
c) Search-Adress<br />
d) Hexmonitor<br />
e) FDOS bzw. CMT<br />
zu a) Mit dem Dis-Assembler konnen beliebige Maschinenprogramme<br />
disassembliert werden.<br />
zu b) Der Assembler beinhaltet seinerseits einen ;,full screen-Editor"<br />
und natUrlich den Assembler selbst.<br />
zu c) Mit diesem Programmteil konnen Sie beliebige Adressen im<br />
gesamten Speicherberelch suchen.<br />
zu d) Der Hexmonitor stellt eine kleine Maschinensprache dar und<br />
gestattet in der Hauptsache das Austesten und Verbessern noch<br />
nicht lauffahiger Maschinenprogramme, da solche Programme<br />
unter frei wahlbaren Anfangsbedingungen (Register-Inhalte)<br />
gestartet werden konnen. Hierbei ist auch JJTrace" und "Breakpoint"<br />
-Betrieb mOglich!<br />
zu e) Mit FDOS (Disk-Operating System) stehen Ihnen zahlreiche Kommandos<br />
zum Arbeiten mit Disketten zur Verfugung, die Sie in<br />
dieser AusfUhrung selten irgendwo finden!<br />
Mit "CMT" konnen .fertige Maschinenprogramme auf Band gespeichert<br />
werden.<br />
Lieferbar als Kassetten- und Diskettenversion 5 1/4; 3,5 Zoll fUr <strong>MZ</strong> 700<br />
+ <strong>MZ</strong>800<br />
Fortran Compiler:<br />
1st in der Lage sowohllnteger - als auch Realwerte zu verarbeiten. Die<br />
Kassetten-Versionen benotigen die gesamte 64-K-Byte. Davon belegt<br />
das System insgesamt 25-K-Byte des Speichers, also stehen dem Anwender<br />
44-K-Byte zur Verfiigung. Ebenso wie der Assembler beinhaltet<br />
der Fortran Compiler noch eine Maschinensprache und einen Single<br />
Stepper. Durch die Meniitechnik entfallt das Zwischenspeichern auf<br />
externe Speichermedien. Es werden keine weiteren Hilfsprogramme benotigt.<br />
Lieferbar als Kassetten- und Diskettenversion 5 1/4; 3,5 Zoll fUr<br />
<strong>MZ</strong> 700 + <strong>MZ</strong> 800.<br />
Maschinensprache:<br />
Hilfsprogramm zur Eingabe und zur Anderung von Programmen in<br />
Maschinensprache incl. Disassembler. Es lassen sich folgende Gerate<br />
ansprechen: Quick-Disc, Kassette, SFD 800 und RAM-Datei. Lieferbar<br />
als Kassetten- und Diskettenversion 51 /4; 3,5 Zoll fUr <strong>MZ</strong>8oo.<br />
Business Basic:<br />
Basic Interpreter der dem Anwender 30 KB zur Verfiigung stellt, urn eigene<br />
Programme zu schreiben. (Inhalt dieser Programme z.B. Rechnungen,<br />
Lagerhaltung usw.) Mit dem Business Basic lassen sich die SFD,<br />
MFD und die Kassette ansprechen. Die Quick-Disc wird nicht unterstUzt.<br />
Ueferbar als Diskettenversion 51 /4,3,5 Zoll fUr <strong>MZ</strong> 800.<br />
<strong>MZ</strong> 700 Disk Basic fur den <strong>MZ</strong> 800<br />
Das von den Floppysystemen MFD 700 (3,5 Zoll) und SFD 700 (5,25 Zoll)<br />
bekannte Basic wurde an den <strong>MZ</strong> 800 angepaBt. Mit diesem Basic sind<br />
Ihre S-6asic Programme auf dem <strong>MZ</strong> 800 lauffahig. Lieferbar als Diskettenversion<br />
5,25 und 3,5 Zoll.<br />
Disk Basic <strong>MZ</strong> 800<br />
Das Disk Basic, <strong>MZ</strong>-B-8oo ist 100% <strong>Sharp</strong> kompatibel. Es hat jedoch<br />
einige weitere Vorteile zu bieten. Zum Beispiel deutsche Umlaute von der<br />
Tastatur und die MOglichkeit die Hintergrundfarbe zu verandem. Die<br />
Speicherkapazitat aut einer Diskette wurde von 280 KB aut insgesamt<br />
320 KB erhoht. Bei Directory wird die DateigroBe in Bytes ausgegeben.<br />
Ferner werden alle Gerate von Disk-Basic aus angesprochen (z.B. QD,<br />
CMT, RAM etc.). Das Disk Basic belegt ca. 44 KB. (5,25+3,5Zoll)<br />
Datenbank:<br />
Adresskarteien, Mitgliederlisten, Schallplattenverzeichnisse, Lagerbestande<br />
und Artikeldateien werden mit diesem Programm aufgebaut und<br />
verwaltet. 500 Adressen oder 1000 Artikellassen sich so in einer Kartei<br />
speichern und bearbeiten. Alle Funktionen werden Ober zwei Bildschirmmenues<br />
angewahlt. Lieferbar als Kassetten- und Diskettenversion 51 /4;<br />
3,5 Zoll fOr <strong>MZ</strong> 700 + <strong>MZ</strong> BOO.<br />
Alles fUr <strong>Sharp</strong> Computer Heft 11 Seite 43
Lager + Rechnung:<br />
Programm zur Verwaltung von Lagerbestanden von 2000 Artikeln,<br />
(Umsatzstatistik, Angebot, Rechnungen, Lieferschein, Gutschriften). Da<br />
es menuegesteuert arbeitet, ist die Bedienungeinfach. Lieferbar als Diskettenversion<br />
5 1/4 Zoll fUr <strong>MZ</strong> 700 + <strong>MZ</strong> 800.<br />
Textwriter<br />
Das Programm "Textwriter" von K & P ist ein leistungsfahiges Hilfsmittel<br />
zur Bearbeitung eines Textes. Eine Schreibmaschine wird in jeglicher<br />
Weise ersetzt und durch die vielfaltigen M5glichkeiten dieses Programmes<br />
in der Leistungsfahigkeit und im Schreibkomfort in jeder Weise<br />
ubertroffen. Einschrankend muB gesagt werden, daB das Programm keinen<br />
Anspruch aut absolute Professionalitat stellt. Die Eigenschaften der<br />
groBen bekannten Textverarbeitungssysteme wie z.B. ·WordStar werden<br />
nicht in alien Punkten erreicht - die bestehenden Einschrankungen<br />
fallen jedoch bei der praktischen Arbeit kaum ins Gewicht. Durch seine<br />
einfachere Handhabung durfte" Textwriter" in einigen Punkten sogar angenehmen<br />
zu benutzen sein.<br />
Textwriter arbeitet im 80 Zeichen Bildschirmmodus des <strong>MZ</strong> 800 und ist<br />
deshalb alien bekannten TextverarbEiitungen, die fUr den <strong>MZ</strong> 700 erstellt<br />
wurden, uberlegen. Das Programm verfugt uber einen Helpmodus, der<br />
zu jeder Zeit aufgerufen werden kann. So kann sich auch der Anfanger<br />
schnell in das Programm einarbeiten. Der Helpmodus ist menuegesteuert.<br />
Textwriter bietet folgende Moglichkeiten:<br />
Deutsche Schreibmaschinentastatur, EinfUgen/Loschen einer Zeile,<br />
Zeilenweise/Seitenweise Scrolten, Cursorpositionierung, Statuszeile,<br />
Linken/Rechten Textrand setzen, Setzen/L6schen/ Anspringen des<br />
Tabulators, Zeilenumbruch, Automatischer/Manueller Randausgleich,<br />
Suchen einer Textstelle, Druckerformat mit Kontrollcodes, DruckeranschluB<br />
durch K & P Centronicsinterface.<br />
Textwriter belegt ca. 30-34 KB im Speicher.<br />
"Textwriter" wird in zwei Versionen angeboten:<br />
1. Diskettenversion <strong>MZ</strong>-800/D<br />
2. Kassettenversion <strong>MZ</strong> -800/0<br />
·Eingetragenes Markenzeichen der Firma Micropro-International<br />
Kassettensoftware:<br />
Funktion Plott:<br />
Mit diesem Programm k6nnen Sie alle Funktionen einer Veranderlichen<br />
in einem cartesischen Koordinaten-System darstellen. Es k6nnen bis zu<br />
3 Funktionen parallel gezeichnet werden. Die Oarstellung geschieht auf<br />
dem Bildschirm, die ausgabe ist auf einem graphikfahigen Matrix-Drukker<br />
m5glich. Oas Bildschirm-Format, (40- oder 80-Zeichen) ist hierbei<br />
frei wahlbar. Die eigentliche Berechnung erfolgt automatisch nach Eingabe<br />
der x/y Intervaltgrenzen und der Funktionen. Die Kompatibiltat zu<br />
folgenden Geraten ist gewahrleistet:<br />
Epson (+ Kompatibel<br />
MX, FX, RX)<br />
ITOH 8510, Serien<br />
NEC PC 80 XX<br />
Centronics GLP<br />
Brother 1009 (ML + Basic)<br />
Hardcopy:<br />
Ausgabe des Bildschirminhalts aut einem graphikfahigen Matrix-Drukker.<br />
auch der 80-Zeichen Modus wird komplett auf dem Orucker ausgegeben.<br />
Die Kompatibilitat zu folgenen Geraten ist gewahrleistet:<br />
Epson (+Kompatibel ITOH 8510, Serien Centronics GLP <br />
MX, FX, RX) NEC PC 80 XX Brother 1009 (ML +Basic) <br />
Taschenrechner:<br />
Oer <strong>MZ</strong> 800 ist bedienbar wie ein wissenschaftlicher Taschenrechner.<br />
Genauigkeit 9 Stellen, 10 Speicher, Fest- und FlieBkomma. (BaSiC)<br />
Mathe Paket:<br />
Matrizen, Statistik, Kubische Gleichungen, Polynom-Interpolation,<br />
Lineare G1eichungen, Integration nach Simpson und nach Nystrom. (Basic)<br />
Biorhythmus:<br />
Die vier Biorhythmen (inteltektuell, emotionell, Fitness, Ourchschnitt) in<br />
Tages- und Monatsform auf Bildschirm und/oder Printer/Plotter. (Basic)<br />
Color Spiele in Maschinensprache:<br />
Building-Hopper Kassettensoftware Mazeland Kassettensoftware<br />
Blizzard Kassettensoftware Punktejagd Kassettensoftware<br />
Reversi Kassettensoftware<br />
Kurzbeschreibung <strong>MZ</strong> 700 Software<br />
Kassettensoftware <strong>MZ</strong>700 <br />
Pascal 700: siehe Software <strong>MZ</strong> 800 <br />
Basic'Compiler700: <br />
Unser Compiler Obersetzt Ihre Basic-Programme direkt in Maschinen<br />
sprache. Er verarbeitet ganze Zahlen und belegt nur 18 K im Speicher. <br />
Durch eingebauten Interpreter konnen Sie Ihre Programme austesten; <br />
dann compilieren Sie, und Ihr Programm lauft bis zu 10mal schneller. <br />
Anmerkung: nicht S-Basic kompatibel! <br />
Erweitertes Basic 700: <br />
E-Basic bietet Ihnen einen hohen Grad "strukturierten" Programmie~ <br />
rens. Von PASCAL her bekannte"WHILE. ..WEND, REPEAT... UNTIL", <br />
und das unverzichtbare IF...THEN...ELSE wurden ebenso hinzugefOhrt <br />
wie GOTO...LABEL und GOSUB...LABEL. <br />
Somit durften viele Leute nach einiger Obung fahig sein, effizientere und <br />
besser strukturierte Programme zu schreiben; Programme, die auch <br />
"Iesbar" sind. <br />
FOr die Freunde von Videospiel-Gerauschen gibt es TONE und QUIETE, <br />
wahrend das einfach BEEP das umstandliche USR (62) ersetzt. AuBer<br />
dem gibt es endlich einen Bildschirm-Komplettausdruck mit COPY. <br />
MS-700 Maschinensprache: <br />
Oisassembler. ASCII- und Displaycode-Listing. Programmeingabe mit <br />
Prufsumme. Programm verschieben. Hexadezimal rechnen. Direkte <br />
Texteingabe in den Speicher. <br />
Datenbank DBP-701+: siehe Software <strong>MZ</strong> 800<br />
700-Tortengraflk: <br />
Oer Printer/Plotter erzeugt die von Bundestagswahlen her bekannte <br />
Kreis- oder Tortengrafik. <br />
Plotter-700: <br />
Zeichnet Funktionsgraphen oder Einzelpunkte in ein Koordinations<br />
kreuz. Automatische Achsenbeschreibung. Listing der Funktion. <br />
700-Mathe Paket: <br />
Matrizen. Statistik. Kubische Gleichungen. Polynom-Interpolation (aus <br />
Werkpaaren ein Polynom( n-1 )ten Grades). Lineare Gleichungen. Trans<br />
zendante Gleichungen. Integration nach Simpson und nach Nystrom. <br />
TR-700-Taschenrechner: <br />
Der <strong>MZ</strong>-700 ist bedienbar wie ein wissenschaftlicher Taschenrechner. <br />
Genauigkeit 9 Stellen. 10 Speicher. Fest- und FlieBkomma. <br />
Seite 44 Alles fUr <strong>Sharp</strong> Computer Heft 11<br />
700-Kurvendiskussion: <br />
Errechnet von ganz- oder gebrochenen rationalen Funktionen wie z.B. <br />
x 2 + 1 :)(3 - x + 5, Nullstellen, Extrempunkte, Wendepunkte und Polstel<br />
len. <br />
700-Biorhythmus: <br />
Die vier Biorhythmen (intellektuell, emotionell, Fitness, Durchschnitt) in <br />
Tages- und Monatsform aut Bildschirm und/oder Printer/Plotter <br />
Wecke....700: <br />
Die Zeiger aut den Bildschirm zeigen die Zeit Quarzgenau. Ihr <strong>MZ</strong>-700 <br />
weckt Sie morgens punktlich mit einer angenehmen Melodie. <br />
WDPRO-Textverarbeitung <br />
Eine komfortable Textverarbeitung in Maschinensprache. <br />
Spiele <br />
Mission Galactica: <br />
Bekampfen Sie die Zylonen und deren Mutterschiffe, aber Vorsicht, sie <br />
schieBen zurOck! Landen Sie nach geglOckter Mission auf der Erde. <br />
TausendfUBler: <br />
Wertausend FOBe hat, derfalltso leicht nicht urn; doch umso schwieriger <br />
ist es, nicht uber seine eigenen FOBe zu stolpern. Sehr schneltes Spiel. <br />
Geisterfahrer: <br />
Oas Spiel mit Alkoholtest! . Sie sind ein Geisterfahrer, der m5glichst <br />
schnell und ohne Kollisionen das Ziel erreichen soll.lhr Pech: Sie sind aut <br />
der A 46 in Richtung DOsseldorf und geraten mitten in die Rush-hour! <br />
Affenpanik: <br />
Wie weit kommen Sie? Werden Sie nicht panisch beim Jagen von Mon<br />
stern, Oberstreichen von Bracken, Ausweichen vor Fassern u.a. Hinder<br />
nissen, sondern behalten Sie die Obersicht! Sehr abwechslungsreich! <br />
ApfelschieBen: <br />
Um Schweizer Burger zu werden, mussen Sie mit Pfeil und Bogen umge<br />
hen konnen. Trainieren Sie dies am <strong>MZ</strong>-700. <br />
Diskettensoftware <strong>MZ</strong> 700 <br />
Datenbank DBP-701-D: siehe Software <strong>MZ</strong> 800 <br />
Lager und Rechnung: siehe Software <strong>MZ</strong> 800 <br />
Fortran Complier: siehe Software <strong>MZ</strong> 800 <br />
Assembler: siehe Software <strong>MZ</strong> 800 <br />
Pascal Compiler: siehe Software <strong>MZ</strong> 800
DFD 700 Doppel Floppy Station 560 KB<br />
l'ioppystat1on w1e die SFD '7OO,jedoch mltzwe1 La.ufwerken..<br />
80 Ze1chen Ka.rte<br />
DIe 80Ze1chenKart.ewtrdlnememseparatenGebAusegel1etert..<br />
Del'AnscbluBerfolgtdlrektam<strong>MZ</strong> '700 Bus,welcherzurVerbtndung<br />
m1t der SFD oder DP'D 700 an der Karte w1.eder herausg&<br />
ttihrt w1rd. DIe StromversorgungerfoJgtilber den Joystkkport.<br />
des <strong>MZ</strong> 700. Als B1ldsch1rm sollt.e em handelsU.bl1cher MoIl1tor<br />
verwendet. werden. Die Ansteu8I'l.lIlgderKarte eIfolgtUber CP/<br />
)( 2.2 oder das 80 Ze1chen B-Ba.s:le aufKaasette oder DIskette.<br />
DaszumLleferumranggeh6rende80Ze1chenS-BaBlc1st,b1sauf<br />
eln1ge Be!ehle zur Steuerungdes 40/80 Ze1chenmodus, kompa.<br />
Ubel zum <strong>Sharp</strong> Basle.<br />
Das zusAtzUch erbAltJ1che CP/M 2.2 bes1tztfolgende Merkma18:<br />
8pe1cherkapazltAt (SFD '7(0) unter CP/M: 360 KB<br />
Format: KZ ao A/B kompaHbel..<br />
AIle \.IIlf&' CP/K aut den KZ ao A/B-8yBtemen erstellten<br />
Programme stnd laufrahlg.<br />
'I8rm1DBJsmn1ation· ADlI3 A<br />
Frs1er 8pelcber: ca.. 60 k<br />
Besond.emettAm: Kopleren m1t nur fIInem Laufwerk<br />
D8tentnnsf'ervon Diskette autKsBsette und<br />
umgekebrt<br />
Deutscher7A!eb enBAtz oder Standard ASCII<br />
Dstprwlstausch zw1scben dam <strong>Sharp</strong><br />
KZ 3500 unt.er damBetrtebssystemEOS 3.0<br />
tmKZaoB<br />
lIbrmat1stml5gIlch.<br />
CP/M 2.2: ~ 'Wanmzelcben van Ilgttalllesearch<br />
SFD700<br />
Slngle Floppy Station 280 KB<br />
MFD700<br />
~ ..<br />
3,5 ZOLL SINGLE FLOPPY<br />
STATION 180 KB<br />
Die MFD 700 1st eine pre1sgUnstIge 3,5<br />
Zell Floppystat1on m1t e1ngebautem<br />
Controller und NetzteU. Die Stat10n <br />
wtrd m1t S-Disk-Ba.sic und einem deut<br />
schen Handbuch gel1efert. Der <br />
AnschluQ, erfoIgt direkt am <strong>MZ</strong> 700 I/O<br />
Bus. Die Einheit 1st in einem sol1den<br />
Sta.hlblechgeha.use untergebra.cht.<br />
SF» 800 - SIO BB<br />
B 1/4" rr.oPPr SU!IOI rh DD 8JIW KI 800<br />
Die SFD 800 ist ein pre1sgi1nstiges, 61/4 Zoll Floppysystem<br />
fUr den SHARP <strong>MZ</strong> 800. Das System besteht<br />
aus drei Komponenten: Der Diskettene1nhelt, dem<br />
Controller und dem Disk Basic.<br />
DlIkluic<br />
Das Disk BasIc, <strong>MZ</strong>-B-800 1st 100% <strong>Sharp</strong> kompatlbel.<br />
Es hat jedoch e1n1ge weltere Vortefle Z\l bleten. Zum<br />
BeispleI deutsche UmIaute von der Tastatur und die<br />
Moglichkelt die Hintergrundfarbe Z\l verAndern. Die<br />
Speicherkapa.z1t1J.t auf einer Diskette wurde von<br />
280 KB auf 1nsgesamt 320 KB erhOht. Bel Directory<br />
wtrd die Date1grO~e in Bytes ausgegeben. Ferner werden<br />
alIe Gerate von Disk-BasIc a.us angesprochen (z.B.<br />
QD, CMT, RAM etc.). Das Disk BasIc belegt ca. 44 KB.<br />
Hardware:<br />
Die Disketteneinhelt SFD 800 und der dazu n6ttge<br />
Controller roe 800 sind 100% <strong>Sharp</strong> komp&tIbel. DIe<br />
Kompatiblitti.t zu ii.lteren Shar.lrSystemen 1st gedhrleistet.<br />
<br />
Software:<br />
FUr den Floppybetrleb sind zahlrelche Progr9Jnme verfiigbar.<br />
So zum Betspell: Pascal, Fortran, Assembler,<br />
Maschinenspra.che, Datenb&nk, Textverarbeltu.ng etc.<br />
!eclmischt Datea: <br />
S-Disk Basic rur die<br />
Laufwerk: SFD 800 51/4 Zoll; DS/DD 40 Spuren <br />
J\IJFD 700<br />
Stromversorgung: 220 V50/60 Hz <br />
Dieses Disk Basic 1st voll kompattbel Abmessungen: 335 :x 175 :x 75 mm <br />
zwn <strong>Sharp</strong> Band S-Baslc. Es wurde Kapa.z1t1J.t: 320 KB <br />
led1g11ch durch e1.n1ge Diskbefehle Anschli1sss: Controller 1m <strong>MZ</strong> 800 I/O Slot.<br />
erweitert. Es besltzt ferner ein Utillty Erwelterungen: M6gl1ch
Preisliste<br />
Alle Preise incl. 14% MwsT.<br />
Software ftir die <strong>Sharp</strong> Computer der <strong>MZ</strong> 700 und der <br />
<strong>MZ</strong> 800 Serie !! <br />
Stand: September ]985<br />
Software ftir den <strong>Sharp</strong> Computer HZ 800 <br />
Pascal-Compilcr-System••••••••••••••••••••• DM 98. Disc/Tape Version <br />
Assembler-System ••••••••••••••••••••••••••• DM 98. Disc/Tape Version <br />
Fortran Compiler .•••••••••••••.••••••••.••• DM 98. Disc/Tope Version <br />
Maschincnsprache.•••••••••••••••••••••••••• DM 98, Disc/Tape Version <br />
Business Basic ••••••••••••••••••••••••••••• DM 98.- Disc/Tape Version <br />
M2 700 Disk Bm·lic fUr den <strong>MZ</strong> 800...........DM 98,- Disc Version <br />
Disk Baslc NZ 800•••••••••••••••••••••••••• DM 98.- Disc Version <br />
Dc:tel1hank •••••••..••••••••••••••••••••••••• DH 98,- Disc/Tape Version <br />
Lager und Rt.'chnllng •••..•••••••••••••••••••• DM 148. Disc Version <br />
Textwriter ••••••••••••••••••••••••••••••••• DM ]48,- Disc/Tape Version <br />
Functi.on Plot. •••••.•••.•••••••••••••••••••• DM 38. Tape Version <br />
lIurdcopy •••••••••••••••••••••••••••••••••••nM 38, Tape Version <br />
Ta~chenrechner •.••••••••••••••••••••••••••• DM 38, Tape Version <br />
Mathe Paket •••••••••••.•••••••••••••••••••• DM 38, Tape Version <br />
Biorhythmus••••••••.•••••••••••••••••••••••DM 38. Tape Version <br />
Spie]e ••••••••••••••••••••••••••••••••••••• OM 38.- Tape Version <br />
Software fiir den <strong>Sharp</strong> Computer <strong>MZ</strong> 700<br />
Basic ComJ1iler 700 ••••••••••••••••••••••••• DM 80. Tape Version <br />
Erweitertes Basic 700•••••••••••••••••••••• DM 80.- Tape Version <br />
700-Tortengrafik••••••••••••••••••••••••••• DM 38, Tape Version <br />
Plott.er-7oo•••••••••••••,•••••••••••••••••••DM 38.- Tape Version <br />
700 Huthe-Paket •••.••••••••••••••••••••••••DM 38.- Tape Version <br />
TR-700-Taschenrechner •••••••••••••••••••••• DM 38.- Tape Version <br />
700-Kurvendlskussion ••••••••••••••••••••••• ~1 38,- Tape Version <br />
.:<br />
700 Biorhythmus ••.••••••••••••••••••••••••• DM 38. Tape Versi.on <br />
-.4<br />
Wecker-700•••••••.••••••••••••••••••••••••• DM 38. Tape Version <br />
.:<br />
Spiele•••••••••••••.••••••••••••••••••••••• DM 38.- Tape Ve-rsi.on <br />
•<br />
'"•.,<br />
DotenhAnk ••••••••••••••••••••••••••••••••••DM 98. Disc/Tape Version<br />
,.<br />
Fortran Compiler •••••••••••••••••••••••••••DM 98, Disc Version k<br />
o<br />
Assembler •••••••••••••••••••'•••••••••••••••DM 98. Disc/Tape Version <br />
co<br />
Pascal Compiler••••••••••••••••••••••••••••DM 98.- Disc/Tape Version <br />
Lager uncI Re-chnung •••••••••••••••••••••••••DM ]48.- Disc Version<br />
'"<br />
o •k<br />
:s<br />
Ill:<br />
Di.e Preise »erstehen sich wahlwcise fUr die Disc. o. Tape Version.<br />
Disc VPTsion 5 1/4 Zoll fur SFD700/800 oder <strong>MZ</strong> I-F-19<br />
SFD 700 5 1/4 • 320KB inkl. Basic. 998.<br />
DFD 700 5 1/4 • 2 x 320lB inkl.Basic 1.798.<br />
HFD 700 3 • 5 • 180KS inkl. Basic 798.<br />
SFD 800 5 1/4 • 320KH inkl. F'DC+Basic 798.<br />
SFD 800-1 320KB Erweiterungslaufwerk 648.<br />
CE 700 Centronicsinterface HZ 700 198.<br />
CB 800 Centronicsinterface HZ 800 198.<br />
80 ZI 80 Zeichenkarte KZ 700 inkl.Basic 325.<br />
CP/H 2.2 fur 80 ZK<br />
a.A.<br />
AD<br />
Adapterplatine fur SFD 700 zum<br />
AnschluB an <strong>MZ</strong> 800 inkl. Basic 99.<br />
Alle Floppysystemewerden aoschlu8fertig inkl. Controller,<br />
label, Discbasic und deutscbem Handbuch geliefert •<br />
-.4<br />
'" • N<br />
..: '"<br />
o<br />
w<br />
I I I I<br />
I I I I I<br />
G. O. Hamsnn J.•J. Eden<br />
SCHACH·,<br />
PROGRAMMlERUNG<br />
IN BASIC<br />
MIT<br />
SHARP <strong>MZ</strong>·800<br />
SHARP <strong>MZ</strong>·700<br />
Schachprogrammie:rung<br />
in BASIC<br />
rnit SHARP <strong>MZ</strong> 800<br />
SHARP <strong>MZ</strong> 700<br />
192 Seiten, SnoIn broechIeft<br />
ISBN: 3-88640-029-8<br />
DM 29,80<br />
incl. 7% MwsT.<br />
Gunter O. Hamanr.<br />
BASIC<br />
Schritt fUr SchrtH mit<br />
IttMP.MJ:".~<br />
Seite 46 Alles fUr <strong>Sharp</strong> Computer Heft 11
€<br />
........~........ ~~~~ ~ ........................................................................................................................ <br />
.... ....<br />
.... A N WEN D E R S 0 F T WAR E LIEEEBUMEANG<br />
~ ....<br />
PC-15CZJCZJ S H A R P pc- 1 300 A auf<br />
.... PC-135CZJ S H A R P PC-:2:5CZUZ.<br />
.... <strong>MZ</strong>-7CZJCZJ S H A R P <strong>MZ</strong>-8mm .... Zur bess.ren ub,rlicht und ,vtl. Elg,nlnpallung od,r Erwtit.rung<br />
....<br />
gehort 'in A4-Progra.mlilting ZUI Lief,rulflng •<br />
-------------------------------- Alle Progr •••• w,rden sit Anl.itung COlpactcall,ttl gllitflrt.<br />
'* Di, PrograAm. 11nd nlcht Kopl,rg'lchutzt und 11nd fr,1 IUlliltblr!<br />
'*<br />
~ ............ ~ ........'*..........................................................................................................................<br />
WASSERWIRTSCHAFT/HYDRAULIK STATIK<br />
W1 Ittr.tivt Spi.gtllini,nbtr,chnung nlch ".nnin;/Strickler b.l beli,b.<br />
Gerinn.form.Eingab. des Proflls all Qu.rschnitt,polygonzug.<br />
PREISI (PC-l~00/1350/2500) 40,- DM<br />
(<strong>MZ</strong>-700/800) 70,- DM<br />
W2 Rohrnetzberechnung nach H.rdy/Crosl.Aus Knot,nkoordinaten(x,y) ,Knotenhohtnlm+NN}',Strangling.n,N,nnw,lt,n,Ringd,finition.n,FlieBrichtung.n<br />
werd.n AbfluS IQ) in jed•• Str.ng und all' Druckhdh.nv.rlust.<br />
,rreehn.t.<br />
PREISI (PC-1500/1350/2300) 60,- DM<br />
(<strong>MZ</strong>-700/800) 90,- DM<br />
~3 Serecnnung der Norsilabfluatl,f' 1n btll.Dlg g.for.ttn &~rlnn.n b.i<br />
be~annt'~ AbfluB Q.Da, G.rinn. wird als Polygonzug eing.g.oln.<br />
Dal Gerl~n. k.nn unt.rttilt wtrd,n,z.B. fur Vorlandprofil ••<br />
PREIS. (PC-1500/1350/2500) 30,- DM<br />
(<strong>MZ</strong>-700/800) 50,- DM<br />
W4 Iterative 8erechnung der Leistung ,ines Wtnr.s im Traplzg,rlnnl<br />
bei b.Kinnt.n AbfluB,Rauhigkeit,Sohlgefill"Sohlbrlit.,B6schungsneigunQ<br />
und Wlhrkron.nbl1wert .UI.<br />
:;I> PREISI (PC-1500/1350/2500) 20,- DM<br />
I--'<br />
(<strong>MZ</strong>-700/800) 40,- DM<br />
I--'<br />
~5 Hvdraul15ch. Berlchnung von Rohr.n nach Prandl-Coltbrook als Ersatz<br />
CD<br />
[JJ<br />
~~~ dj~ ~!kannttn Tlb.lltnwlrkt d,r Stlinzeug- und B,tonrohrindustri,.<br />
Er~lttelt passtnd.1 G'+~lle lU kb,NW,Q,oder V iterativ,Teilftillun9<br />
"'1) von Rohren (Q-tlil/V-teil) ,Be!iBt Kr,isrohr, nleh<br />
C: Standardn.nnweitenr,ihe,Prax15trprobt und fl.xlbtl!<br />
'""'l PREIS. (PC-1500/1350/2500) 40,- DM<br />
(<strong>MZ</strong>-700/800) 60,- DM<br />
en<br />
::r<br />
CD<br />
'""'l<br />
Alle Preise incl. 14% MwsT.<br />
"d<br />
(1<br />
o<br />
LIEFEHUNG<br />
:3<br />
"d<br />
C VORKASSE durch Ub,rwlllung<br />
rt<br />
CD<br />
'""'l<br />
od,r durch<br />
V.rr,ehnungslch,ck.<br />
~<br />
CD <br />
NACHNAH"E zuztiglich ~,-D" (8,-0" AUlllnd)<br />
"'1)<br />
rt<br />
Kindeltb'ltelllum~e bitte nicht unt.r 20,- D~.<br />
f-"<br />
f-" HINWEISE<br />
,All. Progrl••• sind lorgfiltig ausget,stet und nach beste. Wissen<br />
en fehl.rfr.i - Fur .vtl. tntstehende Schidtn klnn j.doch nicht g,haft,t<br />
CD<br />
f-J. w.rd.n.<br />
rt All. Progr •••1 llufln lufl PC-l~a0 und e-kB-Zulltz5pelch.r oder ••hr<br />
CD PC-13~e und 8-kB-Zulltzspeich,r oder .,hr<br />
PC-2~00 und B-kB-Zusatzspeicher odlr .ehr<br />
+:' ~Z-708 bzw. ~Z-800<br />
.....j<br />
Sind ZUI Ablauf der Progralml .ehr Sp.ieher oder spezi.ll.s Zubeh6r<br />
n6tlg,wird dies in dlr Progrl~.b'lchreibung ,rwihnt.<br />
~<br />
Q<br />
~<br />
~<br />
tJ<br />
SI Durchlauftriger.F,ld- und Laltanzlhl nur Speich.rabhinglg.<br />
LIstarttnl Einzel-,81Iichltr.ckln-,Traptz-,T'ilgl'ichlalt.n und<br />
Ei nul ~o"'lntt.<br />
Ausgabenl Sttitzmosent"Qu.rkrifteIQ-links/Q-r,ehts),<br />
Schnittgr6Ben("/Q),.ax."/lin.",.ax.Q/.in.Q.<br />
Qu,rkraft und "o~'ntenlinl' wlrd,n luf CE-1~e odtr "Z-Sa8 f.ldwl!se<br />
graphi5ch darg.st.llt!<br />
BYltl.einglben bllib,n fur ••her.rl Lastfill, Irhalt,n und brauchen<br />
nir.ht j.des.al wi.derholt werden.<br />
PREIS. (PC-1500/13~0/2~00) 80,- DM<br />
(<strong>MZ</strong>-700/800) 110,- DM<br />
S2 QUlrlchnittlw,rte polygonal begr.nzt.r Fllchen.<br />
Eingabll Anzlhl d,r Eckpunkte un d,rln Koordinaten (x/y)<br />
AUlgabl1 Fllchl,Trigh,ltslo.,ntl,Schwlrpunktlagl,Flich.ntrigh.lts<br />
.o••nt.,Zlntr!fugallolent,Sch"lrlchs.nrichtung. <br />
Z,1chn,t auf CE-15a,PC-13~a/2~00 und "Z-S8a Profil/Achsen. <br />
PREIS. (PC-l~00/13~/2500) 40,- OM<br />
(<strong>MZ</strong>-700/800) 60,- DM<br />
S3 Durchbiegung und Schnlttgr68.n von Reeht,ckplattln unt.r Tlilfliehenbllastung<br />
bli Navi,rl.glrung (fr,il Auflage).<br />
PREIS. (PC-1500/13~0/2~0,) 40,- OM<br />
(<strong>MZ</strong>-700/800) 60,- DM<br />
S4 Beuls1eherheitsnachw'ls ftir, unverstllftl Platten nach<br />
DIN 4112 und/od,r DAST-Rlehtlini, 012.<br />
PREIS. (PC-l~00/13~0/2500) 40,- DM<br />
(<strong>MZ</strong>-700/800) ~0,- DM<br />
S~ Bemes5ung von Btahlb.tonqu.rschnitt.n nlch DIN le4~<br />
PREIS. (PC-l~00/13~0/2500) 30,- DM<br />
(<strong>MZ</strong>-700/800) 40,- DM<br />
Sb Allg,••1ne eben, Fachwlrkl nach d•• WeggrdB,nv,rfahrtn.<br />
Berechnet belti ••t. und unb'lti ••t. Fachw,rk,.<br />
~ Oil!' Version 1st ,in, Sparv,rlion VDn S13,da k,in, Auflaglrreaktionen<br />
b,r.chn,t w,rd,n!<br />
PREIS. (PC-l~00/1350/2500) 40,- DM<br />
~ S7 Rechttckqu.rschnittlber.ehnung be! zu vtrnachl~s!ig'nd'r<br />
Zugkraftaufnah.,. (~auerw.rk,Fund ••'ntt, •••• )<br />
PREIS. (PC-1500/13S0/2500) 2B,- DM<br />
(<strong>MZ</strong>-700/800) 30,- DM<br />
S8 StabwRrksberechnung naeh dn Dreh"ink.lverfahr,n. (z.B.Rahun, ••• )<br />
EingablnIKnotenzlhl,St.bzahl,Knot,nkoordinattn,Auflagerb.dingungen,<br />
Einspannungtn,Anfangs-und Endknot,n der Stibe,[ ftir jed.n<br />
Stab,Knot,nao.entt und Stabgrund.os,ntt.<br />
AusgabenIStablingln,Stabendmo••nte <br />
Praxilnlhe Arb.itswlist,da nacheinand.r fUr .1n Syst,••ehr,r, <br />
Laltfall. 11ng'9.b,n "erdln k5nnen,ohn. dj, Syst'.'ingab, zu <br />
"i tdlrhol en! <br />
PREISI (PC-1500/13~0/2500) 40,- OM<br />
(<strong>MZ</strong>-700/800) 60,- DM<br />
S9 Kehlbllkendach(unsY••ltrischl.Ko.biniert selbltitig IB-LI,tfllle,<br />
und ,r.itt,lt die ungunltiglttn.Winddruckb,iwlrtl nach DIN 1a~~.<br />
PREIS. (PC-1500/1350/2500) 70,- DM<br />
(<strong>MZ</strong>-700/800) 90.- DM
en<br />
ro<br />
1-'<br />
rt<br />
S18 Durehlauftrlg@r Ila Alt~rnltivversion zu Sl.Sp'ieherplatzsplrend!<br />
VERMESSUNG<br />
CD<br />
Trapezllsten aueh III Teilgleiehllsten sOMi. Or.ieekllllten .6g1ich.<br />
~<br />
Jedes Feld ~ird in H-Sektoren eingeteilt und ber.ehnet Feldmo.ente Vi Grldlentenbereehnung nleh RAL-Li iq73 (entspricht RAS)<br />
en und QUlrkrlft. ~-.Il 1. Abltlnd L/~ pro FIld. Sp.iehert bis zu 70-hngenten!5eheitelpunkte od,r lI.hr. (Sp.icher !)<br />
~uflager und Stutzmoaente.<br />
Ausrundung stltionsMlise lit Kontroll. und Korrekturll~glichkeit!<br />
Feld~o~ente konnen ub,r die gesa.te Systelllnge Ibg,frlgt _.rden!<br />
Zugriffs~6g1iehkeit luf alle Kleinpunkt. z_ilehen dee 1.-n.TS<br />
:l><br />
011 ganze Syst•• klnn schlieBlieh .uf CE-1~B lingl und laBstiblich<br />
in der Forlll )C(I),y(IIII,S('7,I,T(II),f(II),AA(e),AE(lIl,lowie<br />
I--'<br />
I--'<br />
lit M-Lini. oder Q-Linie gezelchnet _erden!<br />
Lingsneigungsnullpunkt (fills yorhlndenl.<br />
ro PREIS. (PC-l~00) 80,- DM Das Program. 1st abgesiehert und berechnet lueh Icheinbare<br />
rJJ 512 Beceslung eines 1-Feld-Stahltragers. (z,B. Tur-oderFlnsterlturz, ••• ) Kuppen und Wlnnen.<br />
Quersehnitts~erte f~r IPB,IPBL und IPE - Triger lind gespeiehert!<br />
"it .llgeleinem Spannunglnlchweis,Auflagerpr.slung und Durchbiegung.<br />
""'h<br />
C:<br />
"""S<br />
en<br />
::r<br />
DJ<br />
"""S<br />
'0<br />
Cl<br />
o<br />
3<br />
'0<br />
C<br />
rt<br />
ro<br />
"""S<br />
::c<br />
ro<br />
""'h<br />
rt<br />
I-'<br />
I-'-<br />
PREISJ (PC-l~00/13~0/2500) 30,- OM<br />
(<strong>MZ</strong>-700/800) 50,- OM<br />
S13 Fachwerkbereehnung fur allge.tin"ebene Flehw,rke.<br />
Funktion entspricht Sb,nur Mer den lueh Auflagerrelktionen berechnet!<br />
Wesentlich groBerer Spei~herbedlrf,dlher 16-kB-"odul fur die<br />
Pocketeomputerreihe erfoder11eh!<br />
EingabenIKnotenzahl,Stabzahl,E-"oOul des verMendet.n Blustoffes,<br />
x/y-Koorainaten aer Knoten,Auflagerbedingungen,Bellstungen,<br />
Anfangs-und Endknotennummern der Stib"Stabqu.rsehnitte<br />
AusgabenlAuflagerrelktionen (nieht bei S6!l,<br />
Stabkrafte und Knotenversehiebungen.<br />
Beide Ve~sionen zeiehnen aas Faehwerk auf CE-1~B od er "Z-SBB!<br />
PREISJ (PC-l~00/13~0/2~00) 50,- DM<br />
(<strong>MZ</strong>-700/800) 80,- OM<br />
STATISTIK<br />
Tt<br />
T2<br />
T3<br />
Chi-Quadrat Verteilungstest.Untersueht,ob elne vorlieg@nde Stiehprobe<br />
_it lusreichend,r Genauigkeit durch line beliebige Verteilung<br />
be'chrle~en werden klnn.Eine ZUBameenfislung niehtreprilentativer<br />
KIlls.n ~ird lutol.tilch vorgeno.l.n.<br />
PREISI (PC-1500/13~0/2500)20,- OM<br />
(<strong>MZ</strong>-700i800) 40,- OM<br />
Linear, Mehrflehr'gression od er MuItipl. Linearregreslion.<br />
Das Progra~. ermitteIt die Koeffizient'n .inlr MehrTlehlin'lrglei:hung<br />
naeh der Method, der kIein5ten Quadrate<br />
(6auBche Mini~umb.dingungl<br />
PREISI (PC-1500/13~0/2500) 20,- OM<br />
(<strong>MZ</strong>-700/8~0) 40,- OM<br />
Student5eher T-Verteilungstest.E5 wird ein Anplssungst.5t<br />
~<br />
Q<br />
~<br />
~<br />
E<br />
durchgefUhrt,ob ~ine gegeben. Stichprobe lit d.r T-VerteiIung<br />
~<br />
Vergieichbar und beschreibblr ilt,err.chnet den T-Verteilung!M.rt<br />
und den Freiheitsgrad.<br />
PREIS. (PC-1500/1350/2500) 20,- OM<br />
(<strong>MZ</strong>-700/800) 40,- OM<br />
T4 Mitt,iwert,Varianz,und Standardabw.iehung<br />
PREISI (PC-1500/1350/2500) 20,- OM<br />
(<strong>MZ</strong>-700/800) 40,- OM<br />
T~ P'r~utltionen,Ko.binltionen und Fakultit,n<br />
PREIS. (PC-1500/1350/2500) 20,- OM<br />
(<strong>MZ</strong>-700/800) 40,- DM<br />
Tb Eepiriseh. Vert.ilung.Bei d.r Erfallung yon Stiehproben und der<br />
Zuordnung zu definiert.n Kllllen ilt dll Progrll••in. Hilf ••<br />
PREISI (PC-1500/1350/2500) 10,- OM<br />
(<strong>MZ</strong>-700/800) 20,- DM<br />
~<br />
~<br />
PREIS. (PC-1500/1350/2~00) ~0,- OM<br />
(<strong>MZ</strong>-700/800) 70,~ OM<br />
Y2 Mlslenerlllittlung nleh GluB/Elling mit Kontroll. der )C/y-Einglbedaten.<br />
Mit gute. B@di.nungsKollfort Mird hohe Prlxistaugliehkeit err.icht.<br />
Zur Kontro11e Mird luf CE-i~0fPC-13~0/2~00 und <strong>MZ</strong>-888 dl' Profi1<br />
gezeiehnet,u~ Eingabefehl.r fruhzeitig zu trk.nnen und zu<br />
korrigieren.<br />
PREISa (PC-l~00/1350/2500) 30,- OM<br />
(<strong>MZ</strong>-700/800) 50,- OM<br />
Y3 Klotoidenabsteekung (so~ohl Haupt- III lueh Kl.inpunkt.)<br />
PREIS. (PC-1500/1350/2500) 20,- OM<br />
(<strong>MZ</strong>-700/800) 40,- DM<br />
Y4 Kr.i5bogenab!5teekung in 2-Vlrilnten.<br />
Ablteckung von aer Tangent. und von der Kr,issthn. IU! 16g11eh.<br />
PREIS. (PC-l~00/1350/2500) 20,- OM<br />
(<strong>MZ</strong>-700/800) 30,- OM<br />
V~ Seometrisehes Nive1lement lIit Feh1erausg1eichlr,chnung.<br />
PREIS. (PC-1500/1350/2500) 20,- DM<br />
(<strong>MZ</strong>-700/800) 40,- DM<br />
Vb Polygonzugberechnung.Berechnet a11e gangig.n Varianten,wiel<br />
VS<br />
Ringpolygon.ein-/beidseitiger Riehtungsanseh1uBfEi~reehnung!zug,<br />
Anfangspunkt lIit beiden AnschluBrichtung.n(z.B.Verknotungen).<br />
Fehler wird erlitte1t und,wenn zuli5!5ig,ausgegliehen.<br />
PREISJ (PC-1500/13~0/2500) 50,- DM<br />
(<strong>MZ</strong>-700/800) 70,- DM<br />
Verllessungspak.tl 16-Program.e<br />
LotfuBpunkt,Bogenschnitt,VorMirtslchnitt ait Dreieeks und Riehtungswinkein,RtiekMartsschnitt,Polaraufnlhme,Kl.inpunktb.r.chnung,Linieneleelnte,Kreisbogenelelente,Kr.isbogenkl'inpunkte(3-Verfahrenl,<br />
KlotoideneleRentelHoh. und HohenfuBpunkt eines DreieckslRiehtungs<br />
Minkel und Entfernungen und 6eradensehnitt.<br />
Pocketcomputer benatigen dll Ib-kB-"odul!<br />
PREISI (PC-l~00/13~0/25m0) 90,- OM<br />
(<strong>MZ</strong>-700/800) 100,- OM<br />
GRUNDBAU/BODENMECHANIK<br />
61 Spinnungserlittlung unter sehlaff.r Rechteekllst naeh<br />
PREIS. (PC-1500/1350/2500) 20,- DM<br />
(<strong>MZ</strong>-700/800) 40,- DM<br />
82 Ber,chnung der 6rundbruehl1cherheit nleh DIN 4017<br />
PREIS. (PC-l~00/1350/2500) 30,- OM<br />
(<strong>MZ</strong>-700/800) 50,- OM<br />
BAUPHYSIK<br />
Pt K-Wert-Ber.chnung nleh DIN 4881/4781 (1.1.84)<br />
PREIS. (PC-1~0/1350/2500) 40,- DM<br />
(<strong>MZ</strong>-7m0/800) 60,- OM<br />
Steinbrtnn.r
MATHEMATIK UTILITY<br />
Ml Liste.Zahlen,Buchstaben oder wartlr "erden lortiert,eingeordnet, U1 Llboruhr.Mit dem Programm klnn Arbei5zykluI zlitlicher Abliufe "ie<br />
herausgesucht und auch lusgedruckt. z.B. im Fotolabor mit ArbeitshinMeisen gllellen und optilch und<br />
PREIS. (PC-1500/1350/2500) 20,- OM Ikustisch gelteuert "erden.<br />
(<strong>MZ</strong>-700/800) 30,- OM PREIS. (PC-'1~00) 10,- OM<br />
~2 Lineare Gleichungslystele nlch GauB.Hohe Unempfindlichkeit gegen (<strong>MZ</strong>-700/800) 20,- OM<br />
Runoungsfehler durch P1vosplltenluche- und Tlulch. U2 Klrteiprogrlm~.Datensatze "erden eingegeben.Dlrlufhin klnn die Klrtei<br />
PREIS~ (PC-1300/1350/2500) 30,- OM nach Begriffen dur~h!ucht,lrwlitert,geloscht und lusgedruckt werden.<br />
(<strong>MZ</strong>-700/800) 40,- OM Der Daten!atz klnn luf Kilsette gehalten .erden.<br />
M3 Lineare Optimlerung nlch der Sl~pleM.ethode. PREISI (PC-l~00/1350/2500) 30,- OM<br />
PREIS2 (PC-1500/1350/2~00) 30,- OM (<strong>MZ</strong>-700/800) 50,- OM<br />
(<strong>MZ</strong>-700/800) 40,- OM U3 Plorslausglbeprogra.l.ubersetzt einl Einglbezeile in "orsesignI11.<br />
M~ MItrixoperatlonen.Addltlon,Subtraktion,Produkt und Sklllrprodukt An der RE"l-Buchse kann ein. "orletllt. Ing.lchlollen ",rden.<br />
belleblger Matri:en. PREIS. (PC-l~00) 20,- OM<br />
PREIS. (PC-1500/1350/2500) 40,- OM U~ 3-D-Plot.Nach Eingabe der Eckpunkte und der Verbindungsliniln wird<br />
(<strong>MZ</strong>-700/800) 50,- OM der Korper gezeichn,t und kann frei gedreht "erden.<br />
Mb Funktionsanalys,.Eine beliebige Funktion,die III Unterprogrl•• PREIS. (PC-1500) 20,- OM<br />
oder a15 Tastaturei~gabe eingegeben Murde,"ird luf del CE-15m in U~ Bri.f.ditor.ln Verbindung lit CE-l~8 und EPSON RX-BI klnn ein Brief<br />
beliebigen Grenzen gezeichnet.Das Darltellungsfeld "ird unterteilt Irltellt,korrigiert und gedruckt "erden.Ein Briefkopf ist yorgesehen!<br />
(Mie luf Milllmeterpapier).Dle Unterteilung klnn linear oder Dlr Tlxt klnn luf Calsett, gespeichert "erden.Bitt. Adresl.,Telefon<br />
loglrthmisch,automatisch oder Ilnuell vorgenomDen "erden. und Kontonu~.lr fur Briefkopf korrekt angeb.n.<br />
D!! p~O~~!~~ ~:t ~~~~;2:t~u~~t.f:~: ,~ii :.~bleitung 50"ie der Graph FREIS. (PC-1500) 30,- OM<br />
der Integration konnen gezeichn,t ",rden.Extra.I,lo"ie beltilDt. Ub KBnig.Ein 81lulltionllpiel.Sie sind fur IB-Jlhre Kanig und hlben<br />
Stutzliellen werden auf Wun!ch erAlttelt. Entscheidungen zu trlffln,"i. Llnd klufen und verklufen,Getreide<br />
PREIS. (PC-1500,CE-150) 50,- OM ankluf und verkluf,Ernlhrung.Doch Vorsicht! - Hungerkltastrophen<br />
M7 Kluf~anni!ehe Ber,chnungen.Progrl.~la~.lung .it 39-ProgrID.,n,"ies ~ konnln den Erfolg Ichnlll zlrlt6rln und lin unzufriedenes Yolk<br />
Bestandlveranderungen,Kllkulationen,Deckungsbeitrlglr.chnungen,<br />
o<br />
revotliert und setzt Si. Ib.AuOlrde_ wlrden in diesel Llnd K8nige<br />
Zin5bereehr.ungen,Finanzen,Investitlonen,Betriebserfolg, ••• fUr 10-Jahre glwahlt!<br />
:l> PREIS, (PC-1300/1350/2500) 40,- OM PREIS. (PC-1300/1350/2~00) 20,- OM<br />
I--'<br />
M8 Ulrechnungen von DezimaI in Binar und uMg,kehrt. (<strong>MZ</strong>-700/800) 40,- OM<br />
I--'<br />
CD PREIS, (PC-1500/1350/2500) 10,- OM U7 Drehkorper.eine beliebige Funktion wird UI die Y-Achle gedreht und<br />
~<br />
rJl (<strong>MZ</strong>-700/800) 10,- OM bildet ein.n r.izyollen Korp.r,der luf CE-l~B glzeichnet wird.<br />
M9 Netz~lantechnik.Zeitlich und logistisch Yoneinlnder Ibhangige PREISI (PC-1500) 20,- OM<br />
'"1)<br />
vorga~ge werden pllnbar und kontroIlierblr! ( Ilx.40 ) ~<br />
U8 LH-~B01 Dislssembler.ubers.tzt Maschinencod. der PC-l~0~-CPU in<br />
c:<br />
Na~"o~~ die Vorginge ZUIII.en lit Ihren Zeitbedlrf und Ihren ~nIDonic5.Ausgabl luf CE-150!<br />
'""'l<br />
Vorgangern und Nlchfolgern ( jl .ax.~ ) ,d.h.die Abhingiokeit in der PREIS. (PC-l~00) 20,- OM<br />
rJJ Reihenfolgf des Ablaufes der Vorglnge ( Fundament yor "Iuer"erk ), U9 ~ini-Editor.Hilfsprogrl•• zur Eingabl,Uberprufung, ••• von Speicher<br />
::r wird flne Abhangikkeitstabelle zuslm.en lit e1ne. Zeitplan erltellt.<br />
S<br />
bereichen,auch zur Einglbe von ~llchinenprograllen.<br />
CD PREIS. (PC-l~00/13~0/2~00) 40,- OM PREIS. (PC-1300) 20,- OM<br />
'""'l (<strong>MZ</strong>-700/800) 60,- OM U10 Telefonregister.T.ilnehmer lit Tellfonnul.er wlrd.n glspeichert.<br />
"d ~<br />
M10 Polvno~.usglfi~h.Erste11t naeh Eingabe von n-Stutzstellen (x,y) Uber die REMI-Buchle dls CE-l~0 klnn das Tllefon Ingelchlol!en<br />
ein Ersatzpolynom,d.h. eine Ersltzfunktion,lit dlr z.B. Tlbellln werden,worauf dlr PC-l~00/CE-l~0 dll Wihlen ubernillt~Auch<br />
n<br />
Wahl<br />
0 ersetzt werd'n konnen,dlren Funktion nicht beklnnt ist. ~<br />
"iederholung ilt luf Tlstendruck loglich.Keine Zula5!ung der OSP!<br />
:3 Yerwendet .ird das Verfahren von Lagrange lit Opt1.ierung durch PREIS. (PC-l~00) 30,- OM<br />
"d FenlerquadrltluDlenbildung und Vlroleich. Uti Angebot-Leistung5verz,ichnis.Polition,Bezeichnung und Preile ",rden<br />
C PREIS2 (PC-1500/13~0/2500) 30,- OM ~ in DATA-Ililen i. Rechner gthalten.Aulwahl der glwunschten Position<br />
rT<br />
(<strong>MZ</strong>-700/800) 50,- OM erfolgt ohnl Suchzeityerz6gerung.~ittll"'rtbildung<br />
CD<br />
der Preis,<br />
'""'l<br />
M12 Nullstellensuche nlch dll Bislktionlvlrfahren.Nlch Anglbl dlr Yer!chiedlner Anbieter und deren Auflu••ierung luf Wunsch!<br />
Funktion und X-Start,X-En~e und dX find.t dll Progrl.1 Ille Ausdruck auf CE-l~0 in 2-For~lt.n,luch .thrflrbig!<br />
::r: Nullstellen.Bei PC-l~00,~1-700/800 "Irden Unltetigkeiten erklnnt PREISI (PC-1300) 30,- OM<br />
CD<br />
'"1)<br />
und ubergingen,lowie undefinierte Funktion5stellen ubersprungen. U13 PC-l~00 lIs Schrlibti!chuhr lit Sek~nd'nlklll und Stund.nlignll.<br />
PREIS. (PC-1500/1330/2~00) 30,- OM<br />
rT<br />
PREIS. (PC-1300) 10,- OM<br />
(<strong>MZ</strong>-700/800) 50,- OM Ul~ StichwortYerzlichnil.Nlchlchllgverztichnis fur PC-1500. Zu eine.<br />
~ Ublrb'griff (mlx.16-Zlichen) wird ein KOlllntlr .rlt.11t.<br />
~<br />
BlTTE ANGEBEN W1rd der Uberbegriff eingegebln,wird dtr zuglhorige KO.lentlr ohn.<br />
,<br />
Ilrkliche Suchzeltyerz6g.rung Ingez.igt.Anzeige rollt 1n beide<br />
Richtung.n.<br />
rJJ<br />
CD<br />
PREIS. (PC-1300) 20,- OM<br />
'-.D<br />
PREISa (PC-l~00/1330/2500) 60,- OM<br />
t-J-<br />
GERATEKONFISURATIONI U16 El.ktot.chnik-Plket.Yiele nutzlich. Proorl••• Miel KonltlntstrolrT<br />
qu.lle,Sleblchlltung,unltlb.N,tztlil,E.itter/Koll.ktorIchlltung lin'l<br />
CD Trlnsistorl,IC-~~~-Berlchnung(Rtcht,ckgtnerltor),Splnnunglrlg.lung<br />
PC-l~00 () PC-15mB A () PC-135B () PC-25mm ( ) mit lenerdiode,RC/LC HchpIII/Ti.fplllb.r.chnung,Llutsprlch.rM,icht<br />
~ Spticherlusbauz ____________________ -kB RAM (Sp,1cherer"eiterun05.odul) lis 2/3-Wlgw,ich.,... lit Originllbuch III AnIlitung.<br />
PlZ-70B ( ) 1'11-801 ( ) KUNDe;NANSCHRIFTI<br />
t +
.n<br />
I'D<br />
~.<br />
rt<br />
I'D<br />
U1<br />
o<br />
lfnfoiqrk<br />
:z><br />
I-'<br />
. 1-:-' Gegen Einsendung eines Schecks oder einer entsprechende Menge<br />
I'D Briefmarken kOnnen die in der Tabelle aufgefUhrten BeltrAge bei<br />
f/1 der Fischel GmbH. Kaiser-Friedrich-Str. 54a. 1000 Berlin 12 <br />
o-n angefordert werden. Die Aussendung erfolgt umgehend. die Tabelle <br />
c: wlrd in den nachsten Ausgaben stAndig fortgeschrieben. (Alle <br />
"""S Preise In DM incl. 7% Mwst.> <br />
r.n Nr. DM GerAt .Beschreibung<br />
::r<br />
0) <br />
"""S 90 10 PC-1260 Listing Kathetrainer<br />
'0 91 10 PC-1260 Listing Plotter<br />
92 5 PC-1260/61 Beschreibung Universell Umwandeln und Rechnen<br />
(1 in zahlensYstemen<br />
o<br />
3<br />
93 5 PC-xxxx Umwandlung Klammeraffen in AnfUhrungszeichen<br />
'0 94 10 PC-1350 Listing Zimmerbelegung<br />
C 95 10 PC-1350 Listing Grafik<br />
rt 96 10 PC-1500 Listing Beschriften von Etiketten fUr BUcher und Cassetten<br />
I'D 97 10 PC-1401 Listing Lottozahlenvergleiche<br />
"""S 98 10 PC-1260/61 Listing Kniffel <br />
99 10 PC-1245/51 Listing Mastermind<br />
::r:<br />
I'D 100 10 PC-1260/61 Listing Einarmiger Bandit <br />
""h 101 10 PC-1260/61 Listing Einkommensteuerberechnung <br />
rt 102 10 PC-1260/61 Listing 17+4. Spielschreiber <br />
~<br />
~<br />
103 10 PC-1260/61. Listing Kfz-technische Progr8lDle <br />
104 10 PC-1260/6t Listing Lottozahlen <br />
105 5 PC-1350 Listing Linare R~gression <br />
106 5 PC-1260/61 Listing Bundesbahn <br />
107 10 PC-1260/61 Listing Spiel 17+4 <br />
108 10 PC-1260/61 Listing Rechenaufgaben fUr erste Schuljahre <br />
109 10 PC-1260/61 Info Akkuladezeit. Wahrungsumrechnung <br />
Einzelpunktansteuerung <br />
110 10 <strong>MZ</strong>-700 Info Umwandlung von Klein-und GroBbuchstaben <br />
111 5 <strong>MZ</strong>-80 A/K Erganzung von Aladin und die Toterumaske <br />
......taOberIIc:M<br />
1a a z i r I 2._~ <br />
Sc:hnlttatellen unci Perlpherle<br />
ill h r bur q1'._ Von der Hardware aur Software<br />
f ~K~~<br />
SHARP<br />
• 1.~lt" EINE MASCHINE STELL T SICH VOR<br />
[)er Mlkrocomputer unci -_Ine Komponenten<br />
DER RECHNER SUCHT KONTAKJ<br />
HARTE SCHALE WElCHER KERN<br />
I AUSSEN ZWERG UNO INNEN ADAM RIESE<br />
[)er Mlkrocomputer all TaechenrlChner<br />
f nr I 5. KaplteI WOVON ER BESONDERS SCHWARMT, WENN ES WIEDER<br />
AUFGEWARMT<br />
D....e Program m<br />
KEIN GRAUS VOR GAUSS<br />
mum put f r I:::<br />
Die mathematllChen -Funktlonen<br />
Fi.ch,1 ~<br />
laaN 3-9a4337-09-3<br />
~ ILK~t~<br />
Wle<br />
".<br />
.~ 1<br />
YOII Bernbarcl "'rt_..1I uacl ..ar........D..r-...rt.eaa<br />
160 Seiten; Preis: 49, -DM<br />
incl. 7% MwsT.<br />
BRINGEN SIE IHR PROGRAMM ZUM ROTIEREN<br />
Von Schlelfen unci welteren Befehlen<br />
VOM PROBLEM ZUM PROGRAMM<br />
Sle IIYItemaUech programmleren<br />
I t. KlPltel AUS GUTEM GRUND IM UNTERGRUND<br />
Unterprogram me<br />
\) ~-:~ I 10. Kepltel FAAULEIN, ZUM DIKTATI<br />
_~ e<br />
Die String - Varleblen<br />
11. KlPltel DIE GEHEIMSPRACHE DER COMPUTER<br />
[)er ASCII - CodI<br />
12. Kepltel WORTSPALTEREIEN<br />
Die Strlno - Funktlonen<br />
13. Kapltel EIN FELD WIRD BESTELL T<br />
Indlzlerte Variable unci Varleblenfelder<br />
14. KaplteI DIE ERNTE WIRD EINGEFAHREN<br />
DATA - Lllten und READ - Befenle<br />
15. K~tel DER KALKULIERn SEITENSPRUNG<br />
Beredlnete SprOnge, Menotechnlk<br />
liS. KlPltel SO RICHTIG NETT ISTS BEIM ROULETTE<br />
Der Computer will eplelen<br />
lJe44ermit<br />
SHARP..Neduurn!<br />
115 10 PC-1500(A) Listing Komplexe Zahlen<br />
112 5 PC-1500(A) Listing Seelenleben des PC-1500/A<br />
113 10 PC.-1260/61 Listing Hauptstadquiz<br />
114 10 PC -1401 Listing Textverarbeitung<br />
116 10 PC-1350 Listing 'Morselehrp<br />
117 10 .PC-1260/61 Listing Spiel Rallye<br />
118 10 PC-1260/61 Listing Geheimnis von Taryn<br />
119 10 PC-1260/61 Listing Der einarmige Bandit<br />
120 5 PC-1500 Produktbeschreibung Gleichungsanalyse<br />
121 10 PC-1350 Listing Mwst-Berechnung mit Aufstellung<br />
122 IQ PC-1500 Listing Geschenketiketten<br />
123 10 PC-1401/02 Listing Numerische Integration mit Anleitung<br />
124 10 PC-1500 Listing Black Jack<br />
125 10 PC-1350 Listing Black Jack<br />
126 10 PC-1500(A) Listing Hardcopy fUr CE-158<br />
'i':r-'<br />
~ ;<br />
~ It<br />
~~E<br />
;~~<br />
~ !'i<br />
~ ~ ~<br />
e~ !I·<br />
! ~ ~ 1:\<br />
l.~~.... <br />
FISCHEL GMBH<br />
KAISER-FRIEDRa-STRa54A<br />
1eee BERLIN 12<br />
Tela030-32360 29
ABO N N E MEN T<br />
Wenn cs Ihnen SpaB gemacht hat, diese Ausgabe von "AlIas ~Ur<br />
<strong>Sharp</strong> Computer" zu lesen, und Sie sich auch in Zukun~t durch<br />
unsere interessante Zeitschrift liber alles Wissenswerte zum<br />
<strong>The</strong>ma <strong>Sharp</strong> Computer informieren woll&n, dann sollten Sie nicht<br />
langer zogern, "AlIas fUr <strong>Sharp</strong> Computer" jetzt im regelmaBigen<br />
Bezug per Post zu bestellen. Sichern Sie sich eine IUckenlose<br />
Information und schiclcen Sie den Bestellabschnitt am besten noch<br />
heute ab. "Alles ~Ur <strong>Sharp</strong> Computer" kommt dann regelmaBig jeden<br />
~lonat ins Haus, ohne daB Ihnen zusatzlic'he Kosten entstehen.<br />
Allrz fur<br />
SHARP.<br />
...QJ....prlli...pr. ..~....t...f....r........... <br />
~<br />
~<br />
Bestellschein Bitte vollstandig und lesbar aus~llen,<br />
unterschreiben und einsenden an Fischal GDbH,<br />
Kaiser-Friedrich-Str. 54a, D-1000 Berlin 12 t>1<br />
o Ich abonniere die Zeitschrift "Alles ~Ur <strong>Sharp</strong> Computer"von ~<br />
der nachsten erreiehbaren Ausgabe an (Preie pro Jahr 72 DM,<br />
Ausland 84 ml, Luftpostzuschlag 12 DM).<br />
~ ~<br />
t-'<br />
o Ieh abonniere die Zeitschrift "Alles ~Ur <strong>Sharp</strong> Computer"von<br />
t-'<br />
CD<br />
der Auegabe ••• (Honat) ••• (Jahr) an (Preis pro Jahr 72 DH, ~<br />
rJJ.<br />
Ausland 84 DM, Luftpostzuschlag 12 DM).<br />
Das Abonnement verlangert sieh urn ein Jahr zu den dann jeweils ......<br />
'"i)<br />
gUltigen Bedingungen, wenn es nicht 2 Honate vor Ablauf schri~t<br />
C:<br />
'1 Iich gekUndigt wird.<br />
~<br />
Ich bestelle folgende schon erschienene Exemplare von "AlIas<br />
UJ o<br />
::r<br />
fUr <strong>Sharp</strong> Computer" (Sttickpreis 6 ml, Ausland 7 DM): ~<br />
~ Heftnr.: ••• , ••• , ••• , ••• , •••<br />
'1 Alle Preise incl. 7 ; Mwst.<br />
'0<br />
r!:r<br />
Der Gesamtbetrag von •••••• DH<br />
n o liegt bar bei<br />
o<br />
~<br />
a o liegt als Verrechnungsscheck bei (schnellste Erledigung)<br />
'0 .......<br />
C c wurde am •••••••• auf das Postgirokonto der Fischel GmbH,<br />
rt Kontonr. 461533-103, BLZ 10010010, Postgiroamt Berlin Uber<br />
CD wiesen (Bearbeitung nach Zahlungseingang) ~<br />
'1<br />
D liegt (nur bei kleineren Betragen) in Briefmarken oder<br />
internationalen Antwortscheinen bei.<br />
::r::<br />
CD<br />
'"i) Name t Vorname •••••••••••••••••••••••••••••••••••••••••••••<br />
rt<br />
StraBe •••••••••••••••••••••••••.•••.•••••••••••••••••••••<br />
f-'<br />
f-'<br />
PLZ/Ort ••••••••••••••••••••••••••••••••••••••••••••••••••<br />
UJ Datum,Unter8chri~t •••••••••••••••••••••••••••••••••••••••<br />
CD<br />
~.<br />
.Iir ist bekannt, daB ich diese Bestellung innerhalb von 8 Tagen<br />
rt bei der Bostelladresse widerrufen kann. Zur Wahrung der Frist<br />
CD<br />
genUgt die rechtzeitige Absendung. Ich bestKtige dies durch meine<br />
zweite Unterschrift.<br />
(Jl<br />
f-'<br />
Datum,Unterschrift ••.•••. ,•..••••.•.•.•.••••••••••••••••••<br />
I MPRESSUM<br />
A •• ~s ~tir mIMN~ Co_put~r<br />
Die Zeitschrift fUr alle Anwender und Freunde von SHARP-Co.putern<br />
Organ des SHARP-User-Clubs Oeutschland<br />
Oer Sitz des Clubs ist Berl in. Kontaktadresse ist die FISCHEL C.bH<br />
·Alles fUr ~-Co.puter· ist eine Clubzeitschrift. in der Software. lIardware<br />
und Hardware-Erweiterungen fur SHARP-Computer vorgestel It werden.<br />
Die vorgestellten Produkte konnen sowohl von privat als auch aus dem GClllerbe<br />
sta.llen:<br />
'Alles fUr ~-Co.puter' wird herausgegeben von der <br />
Redaktion: Bernd Fischel <br />
Chefredakteur: Dr. Roger-Dorsch <br />
FISCHEL G.bH<br />
Kaiser-Friedrich-StraBe 54a<br />
0-1000 Ber I in 12<br />
Bestel lungen ni~lIt die FISCHEL GllbH. Berl in entgegen.<br />
Bezu,sprelse: (Auslandspreise Luftpostzuschlag Einzelheft OM 1.-. ill Abonnement DM 12.<br />
Bestellschein am Ende der Zeitschrift<br />
Sol Ite die Zeltschrlft aus Grunden. die nicht VOII Verlag zu vertreten sind.<br />
nicht gellefert werden tonnen. besteht kein Anspruch auf Naehlieferung oder<br />
Erstattung vorausbezahlter Bezugsgelder.<br />
In den Preisen 1st die gesetzl lehe Mehrwertsteuer in Hohe von 1% enthaltcn.<br />
in den Abonnellentsprelsen aueh die Versandkosten.<br />
Einielheft OM 6.- (O~ 1.-): JahresabonneMent DM 12.- (OM 84.-).<br />
in Klallllern) kUndbar 8 Woe hen vor Ablauf des Abonnementzeitraumes.<br />
Die in -Alles fUr IDIII-Collputer' veroffentl iehten Beitrage sind urheberrechtlich<br />
geschUtzt. AI le Reehle. insbesondere das der Ubersetzung in fre~de Sprachen.<br />
vorbehalten. Keln Tei I dieser Zeitschrift darf ohne schriftl iche GcnehlIigung<br />
des Herausgebers in irgendeiner Form - durch Fotokopie. Mikrofi la oder<br />
andere Verfahren - reproduziert oder In elne von ~aschinen. insbesondere Datenverarbeitunganlagen.<br />
ver.endbare Sprache Ubertragen werden. Aueh die Rechte<br />
der ~iedergabe durch Vortrag. Funk- oder Fernsehsendung, im Magnettonverfahren<br />
oder ahnl ichell Wege bleiben vorbehalten. Fotokokpien fur den person I ichen ode'r<br />
sonstigen eigenen Bedarf durfen nur von einzelnen Beitragen oder Tei len daraus<br />
als Einzelkopien hergestellt werden. Jede im Bereich elnes gewerbl ichcn<br />
Unternehllens hergestel Ite oder benutzte Kopie dient gewerbl ichen Zwecken gem.<br />
§54 (2) UrhG und verpf I i chtet zur Gebuhrenzah I ung an die F I SCHEL GmbH.<br />
von der die einzelnen Zahlungsllodal itaten zu erfragen sind.<br />
Salltliche Veroffentl ichungen in ·Alles fUr ~-Co.puter· erfolgen ohne BerUeksichtigung<br />
eines eventuellen Patentschutzes. auch werden Warennamen oh ne<br />
Gewahrleistung einer freien Verwendung benutzt.<br />
Vertrieb: IPV Inland Presse vertrieb GmbH<br />
WendenstraBe 27-29<br />
2000- Hamburg 1<br />
Tel.: 040/237110<br />
FS: 2174829<br />
Wirqtig<br />
FUr unaufgeforderte eingesandte Beitrage tibernimmit die Fischel GmbH keine<br />
Haftung und Gewahrleistung. Die von der Fischel GmbH honorierte Beitrage<br />
gehen zur freien Verwendung im Miteigentum der Fischel GmbH Uber; Eigenttimer<br />
ist ebenfalls der oder die Urheber. Ausnahmen bedtirfen der Schriftform;<br />
mtindliche Abmachungen sind unwirksam.
~<br />
U~t~~n~h~~~~b~~~t~ng -FU~ Mik~~c~~p~t~~<br />
Fi~c:hE:'l GlTIbH<br />
Di pl _ -I-::-F~_ B_ Fis.c:he:ol<br />
K~is.~~-F~i~d~ich-St~_ 54~<br />
(~~ St~ttg~~tE:'~ Pl~tz)<br />
1 C)(:)O BE:!'~ 1 i ~ 1:2 • T~l _ = (C>3(:» 29<br />
ill i i.rt:n tur <br />
SOFTWARE-RECHT<br />
Die Bestl ••uncen des Urheber- und<br />
lellbeaerbsrechts fur CO.Duter-Procr••••<br />
1[1 •• Pfllc~tl.H~... I~r .11 •. ~I. Saft-.... ~...<br />
,tell••• k••f ......r ••rk••f •• ,<br />
Berlin 198-4<br />
Dr. Rocer Oorsch<br />
Bernd Flschel<br />
lSB~ 3-924327-03-3<br />
IBP""-"""<br />
·t@azir<br />
illrhrburq <br />
ffir SHARP<br />
QI·omp.u t r r<br />
(i ~t. <br />
1r<br />
BASIC-Lehrbuch fUr <strong>Sharp</strong> Computer<br />
160 Seiten; Preis: 49.-DM<br />
incl. 7% MwsT .<br />
• .,1••"<br />
'.p,r.."<br />
••r ••"<br />
IN .......<br />
.,.mtb~dJ"•••<br />
••••dldllidl.dla ••<br />
".III!IIIIIIIIIIIII •• III<br />
1I111111111111101iiJ" III e<br />
.<br />
Wb ............. ___ ................... _<br />
....... _IANI·.-....c............... <br />
~_ ........."""-..........c,.......... , ... <br />
ALLE VERGANGENEN HEFTE SIND NOCH <br />
Bitte siehe Bestellschein fUr ein Abonnement. <br />
t r <br />
qELBSTVERSTANDLICH VERKAUFEN WIR AUCH ORIGINAL SHARP-HARDWARE !<br />
Preise bitte telefonisch erkunden;<br />
Seite <strong>52</strong> Alles fUr <strong>Sharp</strong> Computer Heft 11<br />
geliefert wird dann umgehend.<br />
MfG. B.Fischel