Skip to main content

Full text of "CHIP Sonderheft Atari 600XL/800XL/65XE/130XE"

See other formats


| Computer-Programme 
/130XE 





Die Hauptsache ist der Nutzeffekt 


Atari-Besitzer sind Spielernaturen! Wer das behauptet, 
hat sich schon lange nicht mehr mit diesem beliebten 
Home-Computer befaßt. Grafik gehörte schon immer zu den 
Stärken dieses Rechners. Mit Hilfe von Farben und For- 
men lassen sich nicht nur brillante Adventure-Games 
erstellen, sondern ebenso informative Schaubilder für 
die private und berufliche Nutzung. 


Lag der Schwerpunkt unserer ersten Atari-Ausgabe nach 
Abschluß des Wettbewerbs "Goldene Diskette" bei 
Lernspielen, so zeigt die vorliegende Programm- 
Sammlung auf: Atari-Rechner sind genausogut für Pro- 
gramme mit Nutzeffekt. 


Getestet wurden die hier veröffentlichten Programme, 
die mit Ausnahme eines einzigen Listings noch nirgendwo 
erschienen sind, auf dem Atari 800XL. Soweit von den 
Einsendern angegeben, wurde ein zweiter Durchlauf auf 
dem 600XL vorgenommen. Die älteren Atari-Modelle - wie 
Atari 400 und Atari 800 - haben wir nicht extra ausge- 
wiesen. Besitzer dieser Computer wissen, daß darauf 
600XL-Programme auf jeden Fall laufen und 800XL-Pro- 
gramme zum Großteil. 

Wer sich einen der neuen Atari-Computer anschaffen 
möchte kann sich freuen: Die hier publizierten Program- 
me laufen auf den kompatiblen Modellen der 65XE-Serie. 
Das sind die Ausführungen 65 XE (Grundversion), 65 XEM 
(mit vier weiteren Tongeneratoren), 65 XEP (wie XE, 
jedoch tragbar) und 130 XE (wie 65 XE, jedoch 128 KByte 
Arbeitsspeicher). 


Damit Sie sich beim Abtippen nicht mit schwer zu 
entschlüsselnden Grafikzeichen abgeben müssen, haben wir 
die Listings wieder davon befreit. Wie einfach das Ab- 
und Umschreiben dadurch geworden ist, zeigt ein Blick 
auf unsere Programmierhilfe-Karte. 


Wer sich beim Eintippen Arbeit ersparen möchte, kann 
sämtliche Programme auf Datenträger anfordern. Das 
Astrologie-Programm ist separat erhältlich, zumal es 
für junge Manager - und solche, die es werden wollen - 
von einer der beiden Autorinnen dazu ein weiterführen- 
des Buch gibt. Mehr Nutzen für Ihren Home-Computer 
wünscht Ihnen 


Ihre Redaktion CHIP-Special 


der Sal 


Armin Schwarz 


Eine Publikation von CHIP 


Editorial 


BUCHVERLAG 
WÜRZBURG 


Was der Atari alles 
kann — Band 1 


A. u. J. Peschetz 
236 Seiten, 35,— DM 


Wer ATARI-BASIC kennt, fin- 
det in diesem Buch eine 
Brücke zwischen hoher Theo- 
rie und praxisbezogener An- 
wendung. So wird denn auch 
nichts ausgelassen: Einstieg 
mit Musik, Mathematische 
Grundlagen, Grafikmöglich- 
keiten des Atari, Utilities, 

) Spiele und Organisationshin- 
weise machen dieses Buch 
beim täglichen Umgang mit 
dem Atari-Computer so wert- 
voll. 

Start mit Atari-Logo 
Dietrich Senftleben 

216 Seiten, 30,— DM 

In dieser Einführung wird mit 
Grafik, Text und Musik ge- 
spielt, gearbeitet, experimen- 
tiert. Mittels Schildkrötengra- 
fik wird das kleine Logo- 
Einmaleins in 12 Lektionen 
entwickelt. Bildschirmfotos 
machen die Lernschritte 

- deutlich. Dank des baustein- 
orientierten Konzepts kann 
jeder seine eigenen Teilbau- 
steine erzeugen und sie zu 
neuen, größeren Blöcken zu- 
 sammenfügen. Alle Atari- 
Logo-Vokabeln erleichtern 
den Einstieg. 


Das Atari-Spielebuch 
für 600 XL/800 XL 


James/Gee/Ewbank 

184 Seiten, 30,— DM 
Wollen Sie mit Ihrem Atari 
aktiv und kreativ computern? 
Dann werden Sie diese 21 
Spiele voller Action, Span- 
nung und bewegter Grafik 
faszinieren. Ob Einsteiger 
oder Fortgeschrittener: Mit 
diesem Buch nutzen Sie alle 
Fähigkeiten Ihres Atari 
600/800 XL! 

Aus dem Inhalt: 

Fang den Quark — Pferde- 
rennen — Wortsuchspiel — 
Die Schatzinsel u.a.m. 


' Was der Atari alles 


kann — Band 2 


A. und J. Peschetz 


240 Seiten, 35,— DM 


" Anhand von zehn professio- 


nell ausgearbeiteten Fallstu- 
dien wird der praxisbezogene 
Einsatz des Atari-Computers 
in Hobby, Spiel, und Beruf 
demonstriert. Dabei werden 
in Atari-BASIC die überragen- 
den grafischen und musikali- 
schen Fähigkeiten der Atari- 
Computer zur Gestaltung der 
Programmbeispiele einge- 
setzt um den Anwender in 
professionelle Programmier- 


techniken einzuführen. 


Start mit 
TI N I 


Atari-BASIC 
A. Hettinger, A. Heinz 
184 Seiten, 30,— DM 


Grundlegendes, Tips, Tricks 
und tolle Programme geben 
in diesem Buch einen tiefen 
Einblick in die BASIC-Pro- 
grammierung Ihres Atari- 
Home-Computers. Durch 
handliche Programme und 
Übungen lernen Sie die nur 
scheinbar so komplizierte 


" Sprache Atari-BASIC. Als An- 


regung finden Sie lauffähigen 
Programme zum Eintippen für 
alle Modelle 400, 600 XL, 800 
und 800 XL. 





Fehlermeldungen 





6 Nicht genug DATA-Werte vorhanden 
Es wurde versucht, mit Hilfe des READ-Befehls mehr Werte zu lesen, 
als bei DATA-Anweisungen angegeben wurden. 


7 Wert größer als 32767 
Ein numerischer Wert ist an einer Stelle, wo er es nicht sein dürfte, 
größer als 32767 oder kleiner als 0. 


8 Falscher INPUT-Befehl 
Es wurde versucht, einem Variablentyp einen Wert zuzuweisen, den 
diese Variable nicht annehmen kann. Eine numerische Variable kann 
zum Beispiel keine Buchstaben enthalten. 


9 Dimensionierungsfehler 
Es wurde versucht, auf ein noch nicht dimensioniertes Feld oder auf 
eine noch nicht dimensionierte alphanumerische Variable zuzugreifen. 


10 Zu komplexer Ausdruck 
Ein Ausdruck enthält zu viele Klammern oder zu viele ineinander 
verschachtelte Funktionen. 


11 Zahlenbereich verlassen 
Es wurde entweder versucht, durch O0 zu teilen, oder es ist eine Zahl 
aufgetreten, deren absoluter Wert größer ist als 9,99999999 x 10°”. 


12 Zeilen nicht vorhanden 
Bei einem GOTO-, IF-THEN, On-GOTO, GOSUB- oder ON-GO- 
SUB-Befehl steht eine Zeilennummer, die im Programm nicht vorhan- 
den ist. 


13 Kein passender FOR-Befehl vorhanden 
Im Programm wurde ein NEXT-Befehl gefunden, zu dem der entspre- 
chende FOR-Befehl fehlt, oder es überschneiden sich zwei FOR- 
NEXT-Schleifen. 


14 Zeile zu lang 
Ein Befehl geht über das Ende einer logischen Zeile hinaus, oder er ist 
zu komplex. 


15 Zeile mit FOR- oder GOSUB-Befehl wurde entfernt 
Bei der Ausführung eines NEXT- oder RETURN-Befehls konnte die 
Zeile, in der der entsprechende FOR- oder GOSUB-Befehl stand, 
nicht mehr gefunden werden. 


16 GOSUB-Befehl nicht vorhanden 
Es wurde ein RETURN-Befehl gefunden, obwohl noch kein GOSUB- 
Befehl ausgeführt wurde. 


17 Befehl nicht mehr ausführbar 
Ein Befehl wurde durch einen Fehler im Speicher, einen POKE- 
Befehl oder ein Maschinenprogramm so verändert, daß er nicht mehr 
erkannt und somit nicht mehr ausführbar ist. 


18 Ungültiges Zeichen 
Es wurde versucht, eine alphanumerische Variable mit Hilfe der VAL- 
Funktion in einen numerischen Wert umzuwandeln, obwohl in dieser 
Variablen Zeichen enthalten sind, die nicht umgewandelt werden 
können. 


19 Programm ist zu lang 
Es wurde versucht, ein Programm zu laden, das mehr Speicherplatz 
belegt, als im Computer vorhanden ist. 


20 Unzulässige Kanalnummer 
Es wurde versucht, einen Kanal zu benutzen, der kleiner als 1 oder 
größer als 7 ist. 


21 Laden mit LOAD «C:» nicht möglich 
Es wurde versucht, ein unter Verwendung des CSAVE- oder LIST« 
C:»-Befehls gespeichertes Programm mit Hilfe des LOAD «C:»-Be- 
fehls zu laden. 


128 Abbruch durch die BREAK-Taste 
Während einer Ein- oder Ausgabeoperation wurde die BREAK-Taste 
gedrückt. 


129 Kanal bereits geöffnet 
Es ist nicht möglich, einen Kanal zu öffnen, der bereits offen war. 


130 Gerät nicht bekannt 
Es wurde versucht, auf ein unbekanntes Gerät zuzugreifen. 


Buchauszug aus “Start mit Atari-BASIC“ von Hettinger/Heinz, Vogel- 
Buchverlag Würzburg 1985 


Chip Computer-Programme Atari 600 XU/800 XL/65 XE 


Mini-CAD 
Fußball 
Astrologie 
Geometrie 
Mathematik 


Hochrechnung 
Abrechnung 
Finanzen 

Ordnen, archivieren 
Altersversorgung 
Tips und Tricks 
Wettkampf 
Glücksspiel 
Science Fiction 
Abenteuer 
Geschicklichkeit 


Wissenswertes 


SÄMTLICHE PROGRAMME, die 


Inhaltsverzeichnis 


12 3-D-Grafik 

37 Bundesliga-Tabelle(/ 
24 Im Sternzeichen der Karriere 
38 Bestimmtes Integral 

40 Primfaktoren 

41 Lineare Gleichungssysteme 
45 Aprox 

48 Cash 

56 Lohnbuchhaltung 

60 : Videomaster 

64 Disk-Verwalter 

71 Rentenberechnung 

82 Simple Editor 

83 Kreis L’ 

83 Page-6-Utility 

85 Pferderennen 

89 Memorix 

90 Slot-Machine na 

92 Defending World 3000 

96 Insects 


98 Cave V4 
101 Telet&nnis 


102 Das Lamm ist in Gefahr 
104 Breakout 
3 Editorial 
11 Buchtips 
5 Inhaltsverzeichnis 
6 Programmierhilfe-Karte 
9 Hilfe zum Erstellen eigener 
Programme 
105 Impressum 
106 Anforderungskarten 
106 Wünsche an die Redaktion 
106 Heftinhalt auf Datenträger 


in dieser Ausgabe als 


Listing mit Dokumentation veröffentlicht wurden, 


können Sie auf Datenträger beziehen. 


Anforde- 


rungskarten am Heftende. 


Eine Publikation von CHIP 





Um Ihnen das Entschlüsseln grafischer Symbole und inverser Zeichen 

zu erleichtern, sind in den Listings diese Symbole und Zeichen in 

geschweiften Klammern als Code-Nummer angegeben. Beispielsweise: 
{Code 128} 

Falls Sie diese ATASCII-Codes und -Zeichen nicht ohnehin schon 

auswendig können, schauen Sie in nachfolgender Liste nach. So 

bedeutet zum Beispiel der Code 128: 

1. Taste $] (inverse Video) drücken 

2. CONTROL-Taste festhalten 

3. gleichzeitig Komma-Taste drücken 

Nun erscheint auf dem Bildschirm ein inverses Herz. 


Beachte: Zwischenräume, die vor, zwischen oder nach geschweiften 
Klammern kommen, müssen eingegeben werden. Es können im Listing 
auch Code-Folgen (z.B. winvers geschriebene Wörter) auftauchen. 
Beispiel: 

Code {200/193/204/204/207} 
Vorgehensweis: Wie oben,aber hier sind die Nummern für Folgen der 
einzelnen Codes lediglich durch Schrägstriche getrennt und werden 
als Zeichen umgesetzt. Bitte ohne Zwischenraum eingegeben. 
Spaces: Wenn {10SPACES} im Listing steht, müssen Sie zehn mal 
die Leertaste (Spacebar) drücken. 
Abkürzungen in der Liste: 
CTRL CONTROL-Taste festhalten 
A Inverse Video-Taste drücken (AUF dem Computer =sd-Taste) 
SHIFT SHIFT-Taste festhalten 
(LOWR) CAPS-Taste drücken bzw. bei alten Geräten LOWR-Taste 
drücken. 


Auf dem Bildschirm 


Wenn im Listing 
folgender Code 
auftaucht 

Drücken Sie 
folgende 

Taste (n) 

erscheint dann 
folgendes Zeichen: 


DL LH NZ 


NEE 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 











E .. 
u & 
rd ® 
on Re fe 
So DSD 
A oO n Sr 
+» 0 00 
u u ® Mon 
En] .. Be a) 
Ai Ei a) u „ m+r un 
oc ®— =) 
EDODO EOS EA Oo 
A859 o2— vg 
oo “ ovo© Ocov® 
gs om» v0» [ö55 >, 
Er sHÄau une 
v0o>23 Hom S4uo 
=eu 0 AH H “OH 
19 CTRL-S 
20 CTRL-T [e] 
21 CTRL-U [m] 
22 CTRL-V 1] 
23 CTRL-W fr) 
24 CTRL-X [+] 
25 CTRL-Y M] 
26 CTRL-Z [® 
27 ESC\ESC [E| 
28 ESC\CTRL-- [t) 
29 ESC\CTRL-= (+) 
30 ESC\CTRL-+ [€] 
31 ESCACTRL-» P] 
“ = [) 
96 CTRL-. [®] 
123 CTRL-; (®] 
124 SHIFT- = 1) 
125 oder m] 
126 ESC\BACK S Kl 
127 ESC\TAB 2 
128 (A) CTRL-, + 
129 (A) CTRL-A 
130 (A) CTRL-B Ei] 
131 (A) CTRL-C 4 
132 (A) CTRL-L EI 
133 (A) CTRL-E ei 


Eine Publikation von CHIP 


Serviceteil 


N 









































134 (A) CTRL-F 

135 (A) CTRL-G 
136 (A) CTRL-H 4 
137 (A) crRL.ı F 
138 (A) CTRL-J NS 
139 (A) CTRL-K aM 
100 w erarı en 
141 (A) CTRL-M = 
142 (A) CTRL-N wi 
143 (A) CTRL-O Fi 
144 (A) CTRL-P * 
145 (A) ETRLQ r 
146 (A) CTRL-R BE 
147 (A) CTRL-S 
148 (A) CTRL-T ®| 
149 (A) CTRL-U P] 
150 (A) CTRL-V [H 
151 (A) CTRL-w 
152 (A) CTRL-X + 
153 (A) CTRL-Y [8 
154 (A) CTRL-Z E 
156 Beet 
157 ESC\SHIFT-> 
1 ns 
is: ESOASHIFT- 
160 ws = 
161 (A) SHIFT-I u 
162 (A) SHIFT-2 5 
163 (A) SHIFT-3 SF 
164 (A) SHIFT4 
165 (A) SHIFT-5 er 

166 (A) SHIFTs &) 


SQ 


Serviceteil 


Wenn im Listing 
folgender Code 
auftaucht 


167 


174 


179 


. 
. 


Drücken Sie 
folgende 
Taste (n) 


(A) SHIFT-7 
(A) SHIFT9 
(A) SHIFTO 
(A) * 
(A + 
DW, 
(A - 
(A). 
(a1 
(A) 0 
(v1 
(1) 2 
(A) 3 
(A) 4 


(A) 5 
wnN 6 


(7 
(N 8 
(A) 9 
(AN SHIFT-; 
(A: 
(A) < 
(a) = 


(A) > 


(A) SHIFT-/ 


Auf dem Bildschirm 


erscheint dann 


folgendes Zeichen 


Sin ur; ER 
Sr: a I AR SR EM ._ 


\. 


P2 


y, Eu | ae | PR di: »;17A DH: = de 
3] “= BBES de 2]: = en m 


192 


193 


194 


195 


196 


197 


198 


199 
200 


201 
202 


203 


205 


210 


(A) SHIFTS (a 

(A) A fi 

(WB Ei 
WC 
(WD 1 
(wE IE 
() F BG 
WG 
(A)H 11) 
a1 
N J a 
WK B 
WL ] 
(WM 
(MN 
wo 
WP BU 
DQ 
WR u 
Ws 
#T = 
(AU Ep 
(nV 
(NW la) 

nX 
WY EA 
a 
(A) SHIFT-, A 
(N SHIFT-+ 
(N SHIFT-. = 
(A) SHIFT-+ 
(A) SHIFT- E 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Serviceteil 





236 


237 


238 
239 


(A) CTRL.. 
(A) (LOWR) 
A 
(A) (LOWR) 
B 
(A) (LOWR) 
c 
(A) (LOWR) 
D 
(A) (LOWR) 
E 
(A) (LOWR) 
F 
(A) (LOWR) 
G 
(A) (LOWR) 
H 
(A) (LOWR) 
I 
(A) (LOWR) 
J 
(A) (LOWR) 
K 
(A) (LOWR) 
L 
(N (LOWR) 
M 


(N (LOWR) 
N 


(A) (LOWR) 
o 


= | = 
: Hin: BE 65 


249 


(A) (LOWR) 
P 

(A) (LOWR) 
Q 

(A) Gawn 

(AM) (LOWR) 
s 

(A) (LOWR) 
T 

(A) (LOWR) 
U 

(A) eg: 

(A) (LOWR) 
W 

(A) (LOWR) 
x 

(A) (LOWR) 
Y 

(A) KOM 

(A) CTRL-; 

(A) SHIFT- = 


ESC\CTRL-2 


(A) ESC\ 
CTRL-BACK S 


Wa 
ESC\CTRL-> 


Hilfe zur Erstellung eigener Programme 




















Funktionen auf Erzeugung Folge 
dem Bildschirm 
[t] ESC/CTRL/- Cursor nach oben 
E ® ESC/ESC/ESC/CTRL/- Bildschirmdarstellung 
von 
+) ESC/CTRL/= Cursor nach unten 
E) #) ESC/ESC/ESC/CTRL/= Bildschirmdarstellung 
von 
ESC/CTRL/* Corsor nach rechts 
ESC/ESC/ESC/CTRL/* Bildschirmdarstellung 
[3 
von 
EG ESC/CTRL/ + Cursor nach links 


Eine Publikation von CHIP 


o 











E] & ESC/ESC/ESC/CTRL/ + Bildschirmdarstellung € 
von 
m] ESC/CTRL/< Bildschirm löschen 
E] m] ESC/ESC/ESC/CTRL/< Bildschirmdarstellung m] 
von 
ESC/BACK Cursor nach links, 


e 


das dort befindliche 
Zeichen wird gelöscht 














E) Kl ESC/ESC/ESC/BACK Bildschirmdarstellung 4 
von 
[J ESC/TAB Cursor an den näch- 
sten Tabulator-Stopp 
bewegen 
E] DD ESC/ESC/ESC/TAB Bildschirmdarstellung [] 
von 
ESC/SHIFT/BACK Zeile, in der sich 


er 


der Cursor befindet, 
wird gelöscht 














E] ESC/ESC/ESC/SHIFT/BACK Bildschirmdarstellung 
von 
ESC/SHIFT/> Einfügen einer Zeile 
unterhalb des Cursors 
E) ESC/ESC/ESC/SHIFT/ > Bildschirmdarstellung 
von 
ESC/CTRL/TAB Tabulator-Stopp wird 


& 


dort, wo der Cursor 
steht gelöscht 





[E] ESC/ESC/ESC /CTRL/TAB Bildschirmdarstellung 
von 
ESC/SHIFT/TAB Tabulator-Stopp wird 

an Cursor-Position 
eingefügt 

[E] ESC/ESC/ESC/SHIFT/TAB Bildschirmdarstellung 
von 

ESC/CTRL/2 Lautsprecher des Com- 


puters ertönt 


m] 
SS EEE 


ESC/ESC/ESC/CTRL/2 Bildschirmdarstellung | 
von 
ESC/CTRL/BACK Das rechts vom Cursor 


stehende Zeichen wird 
gelöscht, Rest der 
Zeile rückt nach. 


10 Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Serviceteil 





ESC/ESC/ESC/ CTRL/BACK 


Bildschirmdarstellung 4 


von 





ESC/CTRL/> 


Rechts vom Cursor 
wird ein Leerzeichen 


eingefügt. 
wird 


Zeile 


Rest der 


nach 


rechts verschoben. 





E BD 


ESC/ESC/ESC/ CTRL/> 


Bildschirmdarstellung EI 


von 





PRAXISBEISPIEL: 


10 Print "ESC/CTRL/< Peter" 


RUN 


Dieses Kurzprogramm erzeugt zuerst eine Bildschirmlöschung, 


schreibt der Computer "Peter". 


dann 


Dasselbe läßt sich auch durch den ATASCII-Code erreichen. 


Beispiel: 


10 Print CHRS$S (125) ;"Peter" 


RUN 


Diese Umwandlung in einen Code (CHR$) läßt sich mit jedem Zeichen 
und jeder Funktion nachvollziehen. 


Buchtips 


Görgens, A. 

Utilities in BASIC für 
Atari-Computer 

Wie Ihre Programme laufen 
lernen. Vogel, W. 1985. (Reihe 
HC-Mein Home-Computer) 
Ca. 160 S. Kart. Ca. DM 28,00 
ISBN 3-8023-0854-9 
Görgens, A./K.-H. Koch 
ATARI 

BASIC-Trick- 

kiste 

Birkhäuser, B. 1985, 168 S. 
Brosch. DM 32,00 

ISBN 3-7643-1663-2 
Greenwood-Larsen, S. 
Computer für 

Kinder — Atari 

te-wi, M. 1985. Ca. 100 S., 
zahlr. Abb. Kart. DM 29,80 
ISBN 3-921803-43-8 
Grohmann, BL. Eichler 
Atari intern 


ISBN 3-890110-53-3 
Carlson, E. H. 

Lerne Basic auf dem 
Atari 
Programmiertechniken für 
groß und klein. Markt & 
Technik, M. 1984. 320 S. 
Softcover. DM 38,00 
ISBN 3-890900-07-0 
Glicksman, H. 

Der Atari als Musikbox 
Markt & Technik, M. 1984. 


Voss, W. 

Das Schulbuch zu Atari 
600XL/800XL 

Data Becker, D. 1984, 388 S. 
Kart. DM 49,00 

ISBN 3-890110-45-2 


Eine Publikation von CHIP 


Poole, L./M. McNiff/S. Cook 
Mein Atari Computer 
Der Schlüssel zum Atari-Pri- 
vatcomputer. te-wi, M. 1983. 
496 S., zahlr. Abb., Kart. 
DM 59,00 


59, 
ISBN 3-921803-18-7 


Raabe, G.-P./K.-J. Schmidt 
Spielen, lernen, arbei- 
ten mit dem ATARI 
Sybex, D. 1985. 190 S. Pb. 
DM 28,00 

ISBN 3-88745-082-5 


Reschke, J. 

Atari BASIC Handbuch 
Sybex, D. 1984. 208 S. Pb. 
DM 32,00 

ISBN 3-88745-083-3 


ISBN 3-921803-39-X 


Rowley, T. E. 
Atari Basic spielend 


lernen 
Frech, S. 1983, 68 S., 28 Abb. 


Kart. DM 11,60 
ISBN 3-7724-0603-3 


Inman, D. u. K. 
Der ATARI Assembler 


Idea, P. 1983. 276 S., 82 Abb. 


ca. 100 Progr. Brosch. 
DM 36,00 
ISBN 3-88793-025-8 


Kohl, H. u. a. 

Spiel, Spaß mit dem 
Atari 

Markt & Technik, München 
1984. 338 S. Kart. DM 42,00 
ISBN 3-890900-02-X 


Winter, M. J. 
Lehrspielzeug 
Computer: atari 

Die ersten Schritte in die 
Basic-Welt. Markt & Technik, 
M. 1984. 139 S. Softcover. 
DM 24,80 

ISBN 3-890900-12-7 


Zoschke, H. 
Die Trick-Kiste 
Tips, Tricks und Programme 


ISBN 3-924685-01-0 
Trost, S 
Atari Programm- 


Sammlung 
Spoer D. 1984. 190 S. Pb. 
34,00 


ISEN 3-88745-068-X 


Rugg, T./P. Feldmann/T. Barry 

32 BASIC-Programme 

für den ATARI- 

Computer 

Idea, P. 1985, Ca. 274 S., 

Ca. 20 Abb. Brosch. Ca. DM 34,00 
ISBN 3-88793-032-0 


Schneider W. 
Strategiespiele auf 
dem Atari und wie man 
sie programmiert 

Data er, D. 1984. Ca. 180 
S. Kart. DM 29,00 

ISBN 3-890110-77-0 
Schummy, H. (Hrsg.) 
Ausgewählte BASIC- 
Computerspiele 
(ATARI 800) 

Vieweg, W. 1984. (Pro- 
grammbibl. Mikrokomp. Bd. 


Apps, V. 
Lernen mit Spaß: 40 
ehe rg gr den rise 


ISBN 3-478-09240-X 


Bachmann, U./R. Baumann 
Abenteuer in BASIC 

für ATARI 400 und 600. Klett, 
S. 1984, 96 S. Comic. Geb. 
DM 17,80 

ISBN 3-12-920414-8 

Bridge, T. 
Atari-Abenteuerspiele 
Wege zur Entwicklung und 
Ausführung spannender 


Spielprogramme. Markt & 
Technik, M. 1984. 148 S. Kart. 
DM 


29,80 
ISBN 3-890900-35-6 
Walkowiak, J. 


Adventures - und wie 
man sie auf dem Atari 


PEOGESRREEN: 
ata Becker, D. 1984. Ca. 230 S. 


Kart. DM 39, 
ISBN 3-890110-59-2 


White, J. 

Strategische Computer- 
spiele für Ihren Atari 
Grundlagen und Ergänzungen 
für intelligente Programme. 


Markt & Technik, M. 1984. 148 S. 
32,00 


ISBN 3-890900-04-6 


Das Atari-Buch 

Bd. 2: Spezielle Programmier- 
möglichkeiten und Maschinen- 
programme. Markt & Technik, 
M. 1984. 197 S. Softcover. 
DM 32,00 

ISBN 3-890900-72-0 


Lorenz, C. 

Das große Spielebuch 
für ATARI 600 XL/800 XL 
Hofacker, H. 1984. 155 S. 
Kart. DM 29,80 

ISBN 3-88963-190-8 

Band Il. Hofacker, H. 1984. 
150 S. Kart. DM 29,80 

ISBN 3-88963-205-X 


Koch, K.-H. 

ATARI: Spiele 
programmieren - 
Schritt für Schritt 
Birkhäuser, B. 1984. 240 S. 
Brosch. DM 32,00 

ISBN 3-7643-1659-4 


Lamothe 

Ausgesuchte Atari-Pro- 
iramme mit Listings 

Markt & Technik, M. 1984. 

171 S. Softcover. DM 32,00 

ISBN 3-890900-70-4 


Bunn, P. 

Spiele für Ihren Atari 
Hueber, M. 1984. Software 
Tb., 128 S. Kart. DM 14,80 
ISBN 3-19-008217-0 


Erskine, R./H. Walwyn 

60 Programme für Ihren 
Atari 

Hueber, M. 1984. 240 S. 
Kart. DM 32,80 

ISBN 3-19-008343-6 


Glicksman, H./K. Simon 
Spiele für den Atari 
Eine unterhaltsame Einwei- 
sung in die Atari-Basic-Pro- 
grammierung anhand von 
chen : 


typischen Computerspielen. 
Markt & Technik, M. 1984. 216 S. 


11 





3-D-Graphik 


(Atari 800 und 800XL) 


Das Progrann stellt beliebige 
Gegenstände dreidimensional am 
Bildschirm dar. Zudem bietet es 
vielfältige Möglichkeiten, das ab- 
gebildete Objekt zu manipulieren. 
Der Körper erscheint dabei als 
durchsichtiges "Drahtmodell" entwe- 
der scharz auf weiß oder dreifarbig 
vor schwarzem Hintergrund. 


Einfache Bedienung durch Menü 


Im Textfenster befindet sich das 
Auswahlmenü. Mit den Optionen der 
ersten Zeile erfolgt die Wahl der 
Blickrichtung. Zu Beginn erscheint 
der Gegenstand von schräg oben 
betrachtet. Man kann ihn aber auch 
direkt von vorn, von rechts oder 
genau von oben anschauen. Die 
momentane Blickrichtung wird ange- 
zeigt. In der zweiten Menüzeile 
kann man die Darstellungsart wäh- 
len: perspektivisch oder nicht, 
farbig oder schwarzweiß. Um bei- 
spielsweise den Grundriß zu analy- 
sieren, muß man den Körper nicht- 
perspektivisch von oben betrachten. 
Bei. farbiger Darstellung ist zu 
bemerken, daß die horizontale Auf- 
lösung nur noch halb so hoch ist. 


Viele Möglichkeiten 

Die Optionen der dritten Menüzeile 
dienen zur Manipulation des 
Körpers: Man kann ihn um alle drei 
Raumachsen drehen. Die Eingabe von 
"1" führt zum Untermenü "Drehung". 


Wählt man etwa "Z" für die Z-Achse 
und gibt auf die Frage "Welcher 
Winkel" -30- ein, so erfolgt von 


oben betrachtet eine Drehung um 30 
Grad im Uhrzeigersinn. Die Option 
"2" ermöglicht die Vergößerung des 
Gegenstandes um einen beliebigen 
Faktor. Eine Verkleinerung wird 
erreicht, wenn ein Faktor kleiner 
als eins festgelegt wird. Man kann 
wahlweise den Körper auch nur in 
einer Richtung dehnen oder stau- 
chen, wodurch die Form verändert 
wird. . Die. -Option ="347 Führt Sun 
Untermenü "Spiegelung" und "an 
ermöglicht ein beliebiges Verschie- 


12 


ben des Körpers. Besondere Effekte 
ergeben sich aus der Kombination 
all dieser Möglichkeiten. So erhält 


man durch Nacheinanderausführung 
von Drehung und Dehnung oft inte- 
ressante Verzerrungen. 

Durch Drücken der Taste "T" kann 


Textfenster ausgeblendet wer- 
Trotzdem bleiben alle Funktio- 
nen des Menüs erhalten. Die Betäti- 
gung irgendeiner anderen Taste 
führt wieder zur Darstellung des 
Textfensters. Von den jeweiligen 
Untermenüs gelangt man durch "ESC" 
wieder ins Hauptmenü zurück. Hat 
man beim Herumspielen einmal die 
Orientierung verloren, kann man die 
ursprüngliche Form und lage des 
Körpers durch SHIFT-CLEAR wieder- 
herstellen. 


das 
den. 


Die Eingabe eines Körpers 


Das Programm enthält bereits die 
Daten eines dreidimensionalen Ob- 
jekts in Form eines Wochenend- 


hauses. Es ist aber nicht schwer, 
sich andere Gegenstände selbst zu 
definieren. Um den Körper dreidi- 
mensional darstellen zu können, muß 
man dem Computer allerdings erst 
die Koordinaten der Eckpunkte mit- 
teilen. Das sind jeweils drei 
Zahlen für jeden Punkt, nämlich die 
Entfernungen vom Koordinatenur- 
sprung in Richtung der drei 
aufeinander senkrecht stehenden 
Achsen. Der Ursprung befindet sich 
etwa in der Mitte des Bildschirns. 
Betrachtet man den Gegenstand von 
vorn, so kann man sich die x-Achse 
senkrecht nach vorn aus dem Bild- 
schirm herausragend vorstellen. Die 
y-Achse zeigt dann nach rechts und 
die y-Achse nach oben. Die Koordi- 
naten für die Eckpunkte müssen der 
Reihe nach in die DATA-Zeilen ab 
5000 eingetragen werden. Nun muß 
man noch angeben, welche Punkte 
durch Linien miteinander verbunden 
werden sollen. Dazu denkt man sich 


die eingetragen Punkte durchnumme- 
riert. In die DATA-Zeilen ab 6000 
werden dann einfach die Nummern 


Chip Computer-Programme Atari 600 XL/800 XU/65 XE 


_ werden sollen. 


die verbunden 
Farbspezifikationen 
durch vorangestellte nega- 
tive Zahlen angegeben. Eine Null 
führt zum Neuanfang eines Linien- 
zuges. So bewirken zum Beispiel die 
Zahlen =1,13253,=72,15450,2,9°20ie 
folgenden Zeichenbefehle: Wähle 
Farbe -1 und zeichne zunächst eine 
Linie von Punkt 1 zu Punkt 2 und 
dann weiter zu Punkt 23 Dann 
zeichne mit Farbe -2 eine Linie von 
Punkt eins zu Punkt 4 und schließ- 
lich mit derselben Farbe von Punkt 
2 zu Punkt 5. Insgesamt stehen drei 
Farben zu Verfügung. Eine Null zu 
Beginn wird als Farbe -1 interpre- 
tiert. Die Anzahl der Eckpunkte und 
der Zeichenbefehle müssen noch in 
die Zeile 7000 geschrieben werden. 
Die Veränderung eines einzelnen 
Eckpunktes geschieht am einfach- 
sten, indem man das Programm mit 
BREAK unterbricht, die einsprechen- 
de DATA-Anderung vornimmt und 
schließlich mit GOTO 260 das Pro- 


Kann 


derjenigen Punkte, 


werden 


1 REM -GRAP 

2 REM FUER CHIP-SPECIAL 

3 REM VON S. THALLER 

4 REM =----------------- 

5 REM 

7 REM KHHSRRRKHREERREEERE 

8 REM *{4USPACES}VORBEREITUNGEN{4SPAC 
ES} # 

9 REM KERNERHEEE 


10 GRAPHICS 18:SETCOLOR 4,0, 
20 POSITION 4,5:2 #6 8 {COPE179/ 17371 
96/ 113/ 199/ 21V 193/208/260/201/20%}" 
30 POSITION 3,6:? #6;"{c0oDEY5/95/95/ 
95/95/95/95/95/95/95/95/95/951". 


40 POSITION 1,9:2, #67" {CaDE1d7/2b1/8-.. 


06/ 198/206 / 1604 25 / 21 /265/ 187/206 /2 
12/ 1804 r$u/201/ 2V2/212/ 197/181} " 

100 DIM X(80),Y(80),2(80),U(80),V(80 
),I(200) 
110 DEG 
400 
120 
130 
140 
an REM HERMES unnerreeuee 

198 REM *{3SPACES}LESEN DER DATEN{2S 
PACES} # 

199 REM KERRERERREEELERER RER REN 


200 RESTORE 7000:READ N,M 


:F=1:PERS=1:DARST=1860: ABST= 
A=COS(30):B=SIN(30) 


Cc=C0S(15):D=SIN(15) 
XB=319:YB=191:X0=159:U0=159:VO=7 


Eine Publikation von CHIP 


gramm neu startet. 
Anpassungen 


Besitzer des alten Atari-800 müssen 
auf die Umlaute verzichten. Dazu 
muß in Zeile 1970 der letzte POKE- 
Befehl weggelassen werden. Außerdem 
sollten die Umlaute ausgeschrieben 
werden. Zudem kann auch die farbige 
Darstellung nicht verwendet werden. 
Deshalb sind die Zeilen 570 und 794 
bis 820 wegzulassen. 


Abschließend noch ein Tip: Allen 
Besitzern einer Filmkamera mit Ein- 
zelbildschaltung erschließen sich 
reizvolle Möglichkeiten. Wenn man 
die Kamera sorgfälltig vor dem 
Bildschirm positioniert und zwi- 
schen zwei Aufnahmen den Körper 
jeweils ein kleines Stückchen 
bewegt, entsteht ein "Computerfilm" 
mit tollen Bewegungseffekten. 


Dr. Sigrid Thaller 
210 RESTORE 6000:REM ZEICHENBEFEHLE 
220 FOR J=1 TO M 
230 READ ZB 
240 I(J)=ZB 
250 NEXT J:GOTO 260 
255 IF TF=0_THEN GOSUB 1945 
256 ? "{cödDEI25}":7? :2 u #88 zurt seh 


Ei0}ck in die Anfangslage we. 


260 RESTORE 5000:REM ECKPUNKTE 

270 FOR I=1 TON 

280 READ X,Y,Z 

290 X(I)=X:Y(I)=Y:Z(I)=Z 

300 NEXT I 

390 GOSUB DARST:REM PERSPEKTIV.DARST 


REM KERUEREREEREERUERERUERR 


REM #{7SPACES}MENUE{8SPACES} * 
REM HERRRREREREERERERERENE 

400 GOSUB 19 
405 ? "{cöpEr@5}":? "{CODE214}orne{2 
SPACES}{CODE210 Jechts{2SPACES} I CODE2 


397 
398 
399 


‚07}ben{2SPACES}{CODE211}chr{CODE11}8g 


{2SPACES}"; 
410 IF DARST=1710 THEN ? "{CODE214}, 
me 


’ 
420 IF DARST=1760 THEN ? 


ne 
’ 


430 IF DARST=1810 THEN ? 


440 IF DARST=1860 THEN ? 


"{CODE210}, 
"{CODE207}; 


"{CODE211}, 


13 





450 IF PERS=1 THEN ? " ER 
460 IF PERS=0 THEN ? " {CODE208}-aus 


Be ? "{2SPACES 
{2SPACES} {CODE? 
480 ? "{CODE 
hnen {CODE17 
eben"; 
490 GOSUB 600:REM TASTATURABFRAGE 
500 IF R=ASC("V") THEN GOSUB 1700 
510 IF R=ASC("R") THEN GOSUB 1750 
520 IF R=ASC("O") THEN GOSUB 1800 
530 IF R=ASC("sS") THEN GOSUB 1850 
540 IF R=ASC("1") THEN GOSUB 1400 
550 IF Be THEN GOSUB 1100 

) 

) 


[coDET98}arbe an/aus 
8}erspektive an/aus" 
7}-drehen {CODEA78}-de 
-spieg. a 


555 IF R=ASC("3") THEN GOSUB 1300 
560 IF R=ASC("4") THEN GOSUB 900 
570 IF R=ASC("F") THEN GOSUB 800 
575 IF R=ASC("Pp") THEN GOSUB 770 
580 IF R=ASC("T") THEN GOTO 1930 
585 IF R=125 THEN GOTO 255 

590 GOTO 400 

597 REM KHRRRRURERUREEEEEEEEEN 

598 REM #*{3SPACES}TASTATURABFRAGE{2S 
PACES} # 

599 REM KHUNEKRERSEREERERENEN 

600 TRAP 650:POKE 694,0:POKE 702,64 
610 POKE 764,255 

620 OPEN #1,4,0,"K:":GET #1,R 

630 IF PEEK(753)=3 THEN 630 

640 TRAP 50000: POKE 764,255 

650 CLOSE #1:RETURN 

697 REM HHERERERERRREREREERENK 

698 REM #{3SPACES}TRANSFORMATION{3SP 
ACES} # 

699 REM KHRRRRRREREREREREEENEN 

700 FOR I=1 TO N 

710 X=X(I):Y=Y(I):Z=Z(I) 

720 X(I)=PX#X+PY#Y+PZ#Z+PT 

730 Y(I)=QX#X+QY*Y+QZ#Z+QT 

740 Z(I)=RX#X+RY#Y+RZ#Z+RT 

750 NEXT I 

760 RETURN 

764 REM KHRREREREKERREEERRUNEN 


765 REM * PERSPEKTIVE AN/AUS * 

766 REM KERREERERERERERKERREERRHUR N 

770 IF TF=0.THEN GOSUB 1945 

775 ? n{CODEI }"1:7? WER#&{DSPACES}GI 
eich wird umgeschaltet{2SPACES}####n 
780 IF PERS=0 THEN PERS=1:GOSUB DARS 
T:RETURN 

190 PERS=0:GOSUB DARST:RETURN 

794 REM HERRHuNUEUEEREREEE 

795 REM #{USPACES}FARBE AN/AUS{U4SPAC 


ES}* 
1796 REM HHEHEREREEEEEERE 


14 


800 IF er GOSUB 1945 

805 ? "{c 5}"1:,7? NRREKLDSPACES}GLI 
eich wird umgeschaltet{2SPACES} #*###n 
810 IF F=1 THEN F=2:G0TO 820 

815 F=1 

820 XB=INT(319/F):UO=INT(XO/F) 

825 GOSUB DARST:RETURN 

BUU4 REM HrArHRHAEAE AR EEE AREA 


845 REM #* PARAM. RUECKSETZEN * 

846 REM Mumie 

850 PX=1:PY=0:PZ=0:PT=0 

860 QX=0:QY=1:02=0:Q0T=0 

870 RX=0:RY=0:RZ=1:RT=0 

880 RETURN 

897 REM YRunnu 

St REM #{4USPACES}TRANSLATION{5SPACE 
s}ı# 
899 
900 
5 
910 


REM HRRRRREREREEREREE 
GOSUB rn IF TF=0 THEN GOSUB 194 


? 7 ? ca chiebung: {5 
SPACES} (ESC --> Me cobHlor)" r 

920 ? :? "In {CODE ee (6) 
der {coDE218}-Richtung verschieben?" 


» 
’ 


930 GOSUB 600 

940 IF R=ASC("X") THEN T=1:G0TO 980 
950 IF R=ASC("Y") THEN T=2:G0TO 980 
960 IF R=ASC("Z") THEN T=3:G0TO 980 
965 IF R=27 THEN RETURN 

970 ? LICODES EA: + »00%0 930 

980 TRAP 1030 

985 ? "{CODE ";,? "Verschiebung in 


"SCHR$CR) ;"-Richtung:" 

990 ? :? "Um welche Strecke!";:INPUT 
STR 

995 IF STR=0 THEN RETURN 


1000 TRAP 50 
1010 ? ncoDEfzn:? :? "{3SPACES}## 


URRRRRELDSPACES}sofort !{2SPACES}#### 
wen 

1020 ON T GO 050,1060, 1070 

1030 ? "{coD }":GOTO 980 

1050 PT=STR:GOTO 1080 

1060 QT=STR:GOTO 1080 

1070 RT=STR 

1080 GOSUB 700:GOSUB DARST:RETURN 
1097 REM HHRHReRunuuuunuune 


1098 REM *{6SPACES}DEHNUNG{6SPACES} * 

1099 REM KHRERERRERKERERERENEN 

1100 GOSUB 850:IF TF=0 THEN GOSUB 19 

45 

1105 ? nichDktasıe: 2. Dehnung: ion 

CES}(ESC --> Men{CoDE )":? 

1110 ? "f{ Baca@]?coneN cd 233 
11}ndern oder " 


se ver{ 
1115 ? " dehnen in {CODE216}-,{CODE2 


Chip Computer-Programme Atari 600 XLU/800 XL/65 XE 


oder {CODE2T8}-Richtung?"; 
GOSUB 600:REM TASTATURABFRAGE 
IF R=ASC("G") THEN T=1:G0T0 117 


17}- 
1120 
1130 
5 
1140 R=ASC("xX") THEN T=2:G0T0 
0 
1150 
0 
1155 
0 
1160 


LE 118 


IF R=ASC("y") THEN T=3:G0TO 118 


IF R=ASC("Z") THEN T=4:G0TO 118 
IF R=27-THEN RETURN 

1170 ? "{CODEZ33}"5:G0TO 1120 - ı_ 
1175 ? "{coDET25F":? "Vergr{CoDE12}s 
sern/Verkleinern:":? :GOTO 1190 

1180 ? "{CODETZ5I":? "Dehnen in "5;CH 
R$(R) ;"-Richtung:":? 

1190 TRAP 1230:? "Um welchen Faktor" 
s:INPUT FAK 

1195 IF FAK=1 THEN RETURN 

1200 TRAP 50000 

1210 ? "{CODE125}":? :? "{3SPACES}*#* 
KERRERELDSPACES}sofort!{2SPACES}###% 
LE 2 2 2 21 

1220 ON T GOTQ,A240,1250,1260,1270 
1230 ? "{CODE253}":GOTO 1130 

1240 PX=FAK:QY=PX:RZ=PX:GOTO 1280 
1250 PX=FAK:GOTO 1280 

1260 QY=FAK:GOTO 1280 

1270 RZ=FAK 

1280 GOSUB 700:GOSUB DARST:RETURN 
1297 REM FKEEREERERREREEERRR UNSERE 

I REM #*{5SPACES}SPIEGELUNG{4SPACE 
Ss % 
1299 
1300 
45 >07 
1305 ? "iCODE125}":? "Spiegeiung:{10 
SPACES} (ESC -->. Men{ COD#10})":? 

1310 ? "{3SPACES} {CODE200 }inten/vorn 
e{5SPACES} {CODE204}inks/;rechts" 

1315 ? "{4SPACES} {CODE2 T3}nten/obenf 
USPACES}{CODE19'3}11e Richtungen"; 


REM KRRSHREKEREEESEEEEEnE 
GOSUB 850:IF TF=0 THEN GOSUB 19 


1320 GOSUB 600 

1330 IF R=ASC("H") THEN PX=-1:G0T0 1 
390 

1340 IF R=ASC("L") THEN QY=-1:G0T0 1 
390 

1350 IF R=sASC("U") THEN RZ=-1:G0T0 1 
390 

1360 IF R=ASC("A") THEN GOTO 1380 
1365 IF R=27=THEN RETURN 

1370 ? "{CODE253}"5;:GOTO 1320 

1380 PX=-1:QYsz4:RZ=-1 

1390 ? "{CODET25}":? "E88 {DSPACES} 


Einen Augenblick bitte! #*####u 


1395 GOSUB 700:GOSUB DARST:RETURN 
1397 REM HRHRUnKESuRHuukEeee 


Eine Publikation von CHIP 


REM #*{6SPACES}DREHUNG{6SPACES} * 
REM KRERKREREEREEEREHHER 


GOSUB 850:IF TF=0 THEN GOSUB 19 


1398 
1399 
1400 
45 
1410 ? "{CODE125}":?2 "Drehung: {9SPAC 
ES} (ESC --> Men{Cop#fi0})" 

1415 ? :2 ‚"Um welche. Achse? ({CODE21 
6},{CODE2A7},{CODE2T8} )"; 


1420 GOSUB 600 

1430 IF R=ASC("xX") THEN T=1:G0TO 147 
0 

1440 IF R=ASC("yY") THEN’T=2:G0TO 147 
0 & 

1450 IF R=ASC("Z") THEN T=3:G0TO 147 
0 

1455 IF R=27.-THEN RETURN 

1460 ? "{CODE253}";5:GOTO 1420 

1470 TRAP 1520 

1480 ? "{COoDET25}":? "Drehung um ";C 


HR$(R) ;5"-Achse:" 

1490 ? :? "Welchen Winkel";:INPUT AL 
PHA 

1495 IF ALPHA=0_THEN RETURN 

1500 ? "{coDET25}":? "{3SPACES}###% 
Bitte kurz warten!{2SPACES}####" 
1510 ON T GQTP „1530 ‚1550 , 1570 

1520 ? "{CODE253}":GOTO 1470 

2 PX=1:QY=COS(ALPHA) :QZ=SIN(ALPHA 


1540 
1550 
. 
1560 
1570 
) 


RY=-QZ:RZ=QY:GOTO 1590 
QY=1:PX=COS(ALPHA) :RX=SIN(ALPHA 


PZ=-RX:RZ=PX:GOTO 1590 
RZ=1:PX=COS(ALPHA) :PY=SIN(ALPHA 


QX=-PY:QY=PX 
TRAP 50000:G0SUB 700:G0SUB DARS 
T: RETURN 

REM HERRUERERREREERERERNENR 


REM #{5SPACES}VON VORNE{5SPACHBS 


}# j Y)) 


REM HERREN 


IF DARST=1710 THEN RETURN 
IF TF=0-THEN GOSUB 1945 


? "{CODE1T25}":? "{3SPACES}###*%* 
zn 


1705 
Einen Moment bitte! 
P= 1 

FOR I=1 TON 
IF PERS=1 THEN P=ABST/(ABST-X(I 


UCI)=UO+P#Y(I)/F:V(I)=VO-P#Z(I) 
NEXT I:DARST=1710:G0OTO 2000 
REM KERRRRREEREE 


REM #{3SPACES}VON DER SEITE{3SP 


1749 REM KHuRERKEHEREuREEEunEE 
1750 IF DARST=1760 THEN RETURN 


15 





1754 
1199 


IF TF= 
? "ico 


N GOSUB 1945 
}":? "{6SPACES}####% 


#{2SPACES}Zu Befehl! #Hastsı 


1805 


P=1 
FOR I=1 TON 
IF PERS=1 THEN P=ABST/(ABST-Y(I 


UCI)=UO-P#X(I)/F:V(I)=VO-P#Z(I) 
NEXT I:DARST=1760:G0TO 2000 
REM HKHRSEEREREKEUEEEEEREN 


REM #{5SPACES}VON OBEN{6SPACES} 


REM HERERRRERERRRRERRRRRK 


IF DARST=1810 THEN RETURN 
IF TP=0.ZBEN GOSUB 1945 
? N{CODE125}":? "{4SPACES}#### 


Einen Augenblick! ####n 


1810 
1815 
1820 
)) 

1830 
1840 
1847 
1848 
1849 
1850 
1854 
1855 


P=1 
FOR I=1 TO N 
IF PERS=1 THEN P=ABST/(ABST-Z(I 


UCI)=UO+P#Y(I)/F:V(I)=VO+P#X(I) 
NEXT I:DARST=1810:G0TO 2000 
REM KAREKERHEREEEEEUEEE 


REM *{6SPACES}SCHRAEG{6SPACES} * 
REM HERE EREREERKERERENK 

IF DARST=1860 THEN RETURN 

IF TF=0 N GOSUB 1945 

? "{CODE ";72 n{3SPACES}#### 


Bitte etwas Geduld! ####*n 


1860 
1865 
1870 


P=1 
FOR I=1 TO N 
IF PERS=1 THEN P=ABST/(ABST-C#( 


A®X(I)+B*Y(I))-D*#Z(I)) 


1880 
) 


1890 
1900 
(1))) 


DX=ABST-C#(A#X(I)+B#Y(I))-D*Z(I 


UCI)=UO+P#(A#Y(I)-B#X(I))/F 
V(I)=VO-P#(C#Z(I)-D#(A#X(I)+B#Y 


1920 NEXT I:DARST=1860:G0TO 2000 
1927 REM La 22 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2; 


1928 REM #TEXTFENSTER EIN/AUS# 
1929 REM #HHHHHEHREERUEEEEunER 


1930 IF TF=1 THEN TF=0:GR=7#F+49:G0S 


UB 1950 

1940 GOTO 490 

1944 REM TEXTFENSTER EINBLENDEN 

1945 TF=1:GR=7*#F+33 

1949 REM BILDSCHIRM VORBEREITEN 

1950 GRAPHICS GR 

1960 IF F=1 THEN SETCOLOR 1,0,0:SETC 
OLOR 2,0,10:SETCOLOR 4,0,6 


POKE 752,1:POKE 756,204 


RETURN 
REM HRRREREREREERERUHERER 


1970 
1980 
1997 
1998 
* 


16 


REM #{5SPACES}ZEICHNEN{6SPACES} 


1999 
2000 
2020 
2030 
2040 
2042 
2044 
2050 


REM KR ERE NN 
GR=7#F+17:GOSUB 1950:COLOR 1 
FOR J=1 TO M 

I=I(J) 

IF I>O THEN 2050 

IF I<O AND F=2 THEN COLOR -I 
FALL=0:NEXT J 

IF U(I)<O OR U(I)>XB OR V(I)<O 


OR V(I)>YB THEN FALL=FALL+3 


2060 


ON FALL GOTO 2100,2200,2300,240 


0,2500 


2069 
2070 
2099 
2100 
2199 
2200 
2210 
1) 

2220 
2230 
2240 
2299 
2300 
2399 
2400 
2410 
T) 

2420 
2430 
2440 
2499 
2500 
2510 
I) 

2520 
2530 
AWTO 
2540 
2550 
2596 
2597 
2598 
2600 
2610 
2620 
2630 
2640 
2645 
2650 
2660 
2840 
2670 
2680 


REM #####8% FALL 0 #Kteeee 


PLOT U(I),V(I):FALL=1:G0TO 2550 
REM K#us#&%# FoLL 1] Huenss 


DRAWTO U(I),V(I):GOTO 2550 

REM 2 2 2°2°2 2° FALL :2 ra 
LI=I(J-1) 
UA=U(LI):VA=V(LI):UB=U(I):VB=V( 


GOSUB 2600 

PLOT URA,VRA:DRAWTO UB,VB 
FALL=1:G0OTO 2550 

REM ####s8%# FALL 3 SCHEN 


FALL=2:GOTO 2550 

REM #tk#s#%%& FALL 4 RERKR8 
LI=I(J-1) 
UA=U(I):VA=V(I):UB=U(LI):VB=V(L 


GOSUB 2600 

DRAWTO URA,VRA 

FALL=2:G0TO 2550 

REM 22 2 2 2°2°° FALL 5 KEREER 
LI=I(J-1) 
UA=U(LI):VA=V(LI):UB=U(I):VB=V( 


DURCH=0:GOSUB 2600 

IF DURCH=1 THEN PLOT URA,VRA:DR 
URB,VRB 

FALL=2 

NEXT J:RETURN 

REM KHREuEREREREREuREn« 


REM *BERECHNE RANDPUNKTE* 

REM HERRERERERRERREREREN N 

IF UA<O AND UB<O THEN RETURN 
IF UA>XB AND UB>XB THEN RETURN 
IF VA<O AND VB<O THEN RETURN 
IF VA>YB AND VB>YB THEN RETURN 
IF ABS(UB-UA)<1 THEN 2800 

IF ABS(VB-VA)<1 THEN 2820 
K=(VB-VA)/(UB-UA) :DE=VB-K#UB 
IF DE>=0 AND DE<=YB THEN GOSUB 


:DURCH= 1 


V=K#XB+DE 
IF V>=0 AND V<=YB THEN GOSUB 28 


80 :DURCH= 1 


2690 


U=-DE/K 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


2700 IF U>=0 AND U<=XB THEN GOSUB 29 
20:DURCH= 1 

2710 U=(YB-DE)/K 

2720 IF U>=0 AND U<=XB THEN GOSUB 29 
60:DURCH=1 

2730 RETURN 

2800 DURCH=1:URA=UA:URB=UB 

2805 IF VA<O THEN VRA=0:VRB=YB:RETUR 
N 
2810 
2820 
2825 
N 
2830 
2840 
N 
2850 
2880 
RN 
2890 
2920 


VRA=YB: VRB=0:RETURN 
DURCH=1:VRA=VA:VRB=VB 
IF UA<O THEN URA=0:URB=XB: RETUR 


URA=XB: URB=0:RETURN 
IF UA<O THEN URA=0:VRA=DE:RETUR 


URB=0:VRB=DE:RETURN 
IF UA<XB THEN URB=XB: VRB=V:RETU 


URA=XB: VRA=V: RETURN 
IF VA<O THEN URA=U:VRA=0:RETURN 


URB=U:VRB=0:RETURN 
IF VA<YB THEN URB=U:VRB=YB: RETU 


2930 
2960 
RN 

2970 
4996 
4997 
ES} # 
4998 
4999 
5000 
5030 
5050 
5070 
5090 


URA=U:VRA=YB: RETURN 
REM #HERERSRREREREEERENNN 


REM *{4USPACES}KOORDINATEN{4SPAC 


REM #HERERERERERERUR ER 


REM ROHBAU 

DATA 60,60,-35,-60,60,-35 
DATA -60 ‚-60 ‚-35 ‚60 ‚-60 ‚35 
DATA 60,60,-20,0,60,-20 
DATA 0 „0 ‚-20 ‚60 ‚0 ‚-20 

DATA 60,0,20,0,0,20 


Fußball 


5110 
5130 
5149 
5150 
5170 
5190 
5220 
5239 
5240 
5260 
5279 
5280 
5300 
5319 
5320 
5340 


DATA 0,60 ‚20 ‚„-60 ‚60 ‚20 

DATA -60,-60,20,60,-60,20 

REM DACH 

DATA 65,5,20,5,5,20,5,65,20 
DATA -65,65,20,-65,-65,20 

DATA 65,-65,20,30,-30,55 

DATA -30,-30,55 ,-30,30,55 

REM GELAENDER 

DATA 56,0,-5,56,56,-5 

DATA 0,56,-5,56,56,-20 

REM FENSTER 

DATA 60 ‚-50 ‚-7 ‚60 ‚50 ) 15 

DATA 60,-10,15,60,-10,-7 

REM TUER 

DATA 0,15,-20,0,15,15 

DATA 0,35,155,0,35,-20 

5997 REM KEREERERRREERERERERENR 

5998 REM #{2SPACES}ZEICHENBEFEHLE{3S 
PACES} * 

5999 REM KEREKRERERRKRERKUEREKEN 

6000 DATA -2,1,2,3,4,1,556,7,8,5,0,8 
6010 DATA 9,10,11,12,13,14,9,0,7,10 
6020 DATA 0,6,11,0,2,12,0,3,13,0,4 
6030 DATA 14,-3,24,25,26,0,25,27 
6040 DATA -1,20,15,16,17,18,19,20,21 
6050 DATA 15,0,17,23,18,0,16,22,19 
6060 DATA 0,21,22,23,-3,28,29,30,31 
6070 DATA 28,0,32,33,34,35 

6996 REM #HEREERERERKEREERERRER 

6997 REM * ANZAHL DER PUNKTE * 

6998 REM * U. ZEICHENBEFEHLE # 

6999 REM #HRUSKREREEERUREERUNK N 


7000 DATA 35,75 


READY ! 


Bundesliga-Tabelle / 7 7- Ho 4 en 


(Atari 400, 800, 600XL, 800XL, min. 
48:5, Drucker Disketten- oder 
Kassettenstation) 


Allen Bundesligen ist eines gemein: 
Nach einem Spieltag müssen Tabellen 
und Statistiken auf den neuesten 
Stand gebracht werden. Dabei artet 
das Hantieren mit Punkten und Tref- 
fern schnell zu unübersichtlicher 
Arbeit aus. Dabei kann ein Computer 
gerade hier seine Fähigkeiten aus- 
spielen: er vergißt keine Zahlen, 
kann schnell addieren, Verhält- 


Eine Publikation von CHIP 


nisse berechnen und findet leicht 


die richtigen Reihenfolgen. 
Menügesteuert 


Das vorliegende Programm hilft bei 
der Auswertung eines Spieltages der 
Bundesliga irgendeiner Sportart. 
Nach dem Programmstart meldet sich 
das Menü. 


Spielergebnisse Ändern (A) 
kann der Anwender die 


Hier Ergeb- 


17 





Fußball 


nisse der zuvor eingegebenen Spiele 
ändern. Alle benötigten Daten wer- 
den im Bildschirmdialog angefor- 
dert. Der Änderungsmodus wird durch 
die Eingabe von Null beendet. Im 
Anschluß daran hat man die Wahl, ob 
die Gesamt- oder die Zwischentabel- 
le bearbeitet werden soll. Jedoch 
besteht auch die Möglichkeit, ohne 
Entwicklung einer neuen Tabelle ins 
Hauptmenü zurückzukehren. 


Spiele des Tages (S) 


erstellt 
dieser 


neue Tabelle 

müssen mit 
die Ergebnisse des Spiel- 
tages eingegeben werden. Der Weg 
zurück ins Hauptmenü ist der glei- 
che wie bei Option (A). 


Bevor eine 
werden kann, 
Option 


Diverse Tabellen (T) 


Mit dieser Option können die ver- 
schiedenen Tabellen abgerufen 
werden, die das Programm bearbeitet 
hat. Die Ausgabe kann auch auf 
einem Drucker erfolgen. Dazu muß 
vor der Anwahl der entsprechenden 
Tabelle die P-Taste gedrückt wer- 
den. Aber auch wenn die Tabellen 
auf dem Bildschirm dargestellt 
werden sollen, muß eine beliebige 
Taste gedrückt werden, nur eben 
nicht die P-Taste. 


Initialisierung (I) 


Diese Option muß vor der Erstellung 
ersten Tabelle ausgewählt wer- 


der 





den. Das Programm gibt genaue 
Anweisungen, wie die benötigten 
Daten einzugeben sind. Der Vereins- 
name darf nicht länger als 16 Buch- 
staben sein. 


Korrekturmenü (K) 


Es kann einmal vorkommen, daß 
irgendwann in der laufenden Saison 
einmal ein Punkt oder ein Tor ver- 
gessen wurde. Diese Option korri- 
giert diese Fehler. 

Laden und Abspeichern (L) und (P) 
Hier werden die Daten auf ein 
externes Medium abgespeichert. Bei 
Diskettenbetrieb muß nur der File- 
name ohne Extender angegeben 
werden. Bei Kassettengebrauch muß 
jedoch unbedingt "C:" eingegeben 
werden. Nach dem Laden oder Abspei- 
chern springt das Programm automa- 
tisch ins Hauptmenü zurück. Diese 
Option sollte immer vor dem 
Programmende aufgerufen werden. 


Minidos (M) 


Diese Option ist für Diskettenbe- 
nutzer interessant. Mit ihr können 
alle Files der Tabelle auf der 


jeweiligen Diskette abgerufen wer- 
den. Ebenso stehen alle wichtigen 
Diskettenfunktionen wie Formatie- 
ren, Löschen usw. zur Verfügung. 


Lars Wentorp 





18 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 





ECı sc Couhel .- 
DE Dani Control 


44 OPEN #1,4,0,"K:":GET #1,A:A$=CHR$ 
) 





IF A$="A" THEN 101 
IF A$="I" THEN 54 
IF A$="S" THEN 88 
IF A$="T" THEN 163 
IF A$="L" THEN 190 
IF A$="P" THEN 213 
IF A$="K" THEN 253 
IF A$="M" THEN 309 
53 CLOSE #1:G0TO 44 
54 GOSUB 298:? "{6SPACES}**%* INITIAL 


ISIERUNG ##&n 
558 n{CODE29/29/29 }WENN SIE SICH BE 
IM ERSTEN SPIELTAG" 


56 ? "{CODE29} BEFINDEN, DANN GEBEN S 
IE BITTEn F%* 

57 ? "{CODE29}EINE '!1' 

N" EC“ 


2 "{CoDESS}EINE ANDERE ZAHL Ii" 

59 GET #1,A:IF A=49 THEN NUM=1 zcy 

60 GOSUB 298:? "{CODE2 EIEIETEN 

GEBEN SIE JETZT DIE ANZAHL DER {ODE 

SGF{YSPACES} VEREINE EIN{3SPACES}"; 

NPUT VRe..- 

61 ? "{CODE29}{2SPACES}GEBEN SIE JET 

ZE NACH JEDEM FOLGENDEN{2SPACES}{COD 

E29 }{2SPACES}FRAGEZEICHEN EINEN DER 

VEREINE EIN" 

62 FOR T=0 TO 600:NEXT T 

63 GOSUB 298 

64 FOR I=1 TO VR 

65 ? "{2SPACES}"; 

66 INPUT T$:IF LEN(T$)=16 THEN 71 

67 IF LEN(T$)>16 THEN ? "NAME ZU LAN 

G":GOTO 66 

68 FOR S=LEN(T$)+1 TO 16 

69 T$(LEN(T$)+1)=" " 

70 NEXT S 

71 VER$(LEN(VER$)+1)=T$ 

72 NEXT I 

73 IF NUM=1 THEN 31 

4 FOR I=1 TO VR 

75 B=16%(I-1)+1:E=B+15 ec= 
_GOSUB 298:? VER$(B,E):? "{CODE29/ 

}PLUSPUNKTE HEIM ";:INPUT H:PV(I,0 

=H 


58 


? " {cobE29 }PLUSPUNKTE AUSWAERTS " 


7 

;:INPUT A:PV(I,2)=A 

18 ? "{co 9}MINUSPUNKTE HEIM "35:IN 

PUT el 

19 ? “{CODE29}MINUSPUNKTE AUSWAERTS 
:INPUT AzPV(I,3)=A 


r 3 n{coDES9}PLUSTORE HEIM ";:INPUT 
H:TV(I,0)= 

81 ? "{CODE2YJPLUSTORE AUSWAERTS "; 
INPUT A:TV(I,2)=A 


Eine Publikation von CHIP 


Fußball 


82 ? n {CODE29 }MINUSTORE HEIM "5; :INPU 
T Hr DE 

83 ? "{CODE29 }MINUSTORE AUSWAERTS "; 
:INPUT A:TV(I,3)=A 

84 TV(I,4)=TV(I,0O)+TV(I,2):TV(I,5)=T 
V(I,1)+TV(I,3):PV(I,4)=PV(I,O)+PV(I, 
Sa 

85 ? "{coDE2Y}";VER$(B,E)5" ";TV(I,4 
)5tsnsTVCI,5);5"N{2SPACES}";PV(I,4) 5": 
">PV(1,5):FOR X=1 TO 400:NEXT X 

86 NEXT I 

87 GOSUB 188:G0SUB 132:G0T0 31 

88 SP=INT(VR/2) 

89 FOR I=1 TO VR:C(I)=0:HT(I)=0:GT(I 
)=0:NEXT I 

90 FOR I=1 TO SP:HW(I)=0:SP(I)=0:NEX 


EIN, AnsonsTR 91) cosuB 298:POSITION 2,2:WERT=1:FOR 


1 TO VR:sIF C(I)>O THEN 95 
92 IF I<10 THEN ? " "5; 
93 B= an 1:E=B+15:IF WERT=1 THE 
N ? "{CODEJO Kon; :WERT=O 
94 2 I, ";VERS$(B, E) 
95 NEXT 1:1e0 
96 I=1I+1:B=16%(HW(I)-1)+1:E=B+15 
97 IF I<=SP THEN IF HW(I)<>O THEN ? 
VER$(B,E) ;"-";:B=16%(SP(I)-1)+1:E=B+ 
15:? VER$(B,E):GOTO 96 
98 IF VR>18 THEN IF I<=SP THEN ? "HE 
IM,GAST "5;:INPUT H,G:HW(I)=H:SP(I)=G 
:sCc(HWCI))=1:C(SP(I))=1:IF HW(I)<>0 T 
HEN 91 
99 IF VR<=18 THEN IF I<=SP THEN ? "{ 
CODE29 }HEIM,GAST ";:INPUT H,G:HW(I)= 
H:SP(I)=G: CCHWCI))=1: C(SP(I))=1: IF H 
W(I)<>O THEN 91 
100 SP=I-1:G0T0 31 
101 GOSUB 298:FOR I=1 TO SP 
102 POSITION 0,I+3:? I;" "; 
103 B=16®(HW(I)-1)+1:E=B+15:C=16*(SP 
(I)-1)+1:D=C+15 
104 ? VER$(B,E);"-";VER$(C,D)5 
105 IF HT(HW(I))<10 THEN ? " "5 
106 ? HT(HW(I));5":";GT(SP(I)) 
107 NEXT Ir, — 
108 ? "{coDE29 } ZEILE, HEIMTORE ,GASTTO 
RE "5:INPUT I,HT,GT:IF I<=SP THEN HT 
(HWCI))= HT: GT(SP(I))= GT:IF I=0 THEN 
GOTO 110 
109 GOTO 101 ec- 
110 ? tuonuse ers ; 
ES}ENDERGEBNISSE (1)":? "cones tal, 
ZWISCHENERGEBNISSE (2)":? "{CODE3 
1} ZURUECK ZUM MENUE (3)" 
111 GET #1,ERG:IF ERG<49 OR ERG>51 T 
HEN 111 
112 IF ERG=51 THEN 31 





I ENPRENENENERN T 
EN 14 
142 IF TUCAT(I-1,X),Y)-TUCAT(I-1,X), 
TUCHW(I),1)=TVCHWCI),1)+GT(SPCI) |Y+1)=TUCAT(I,X),Y)-TUCAT(I,X),Y+1) T 
HEN 144 
TU(SP(I),2)=TV(SP(I),2)+GT(SP(I) 143 GOTO 136 
144 IF TUCAT(I-1,X),Y)>=TUCAT(I,X),Y 
TU(SP(I),3)=TV(SP(I),3)+HTCHW(I)|) THEN 146 
145 GOTO 136 
146 NEXT I 


FOR I=1 TO SP 
TUCHW(I),O)=TV(HW(I),O)+HT(HW(I) 


TUCHW(I),4)=TU(HW(I),O)+TU(HW(I) 


/ = | 


TU(HW(I),5)=TUCHW(I),1)+TUCHW(I) 
TU(SP(I),4)=TU(SP(I),O)+TU(SP(I) 


NEXT I 
FOR I=1 TO SP 
IF HT(HW(I))=GT(SP(I)) THEN PUCH 
| W(I),O)=PV(HW(I),0O)+1:PUCHW(I),1)=PV 

(HW(CI),1)+1:PU(SP(I),2)=PV(SP(I),2)+ 
) 1:G0TO 129 
‚125 IF HT(HW(I))<GT(SP(I)) THEN PU(H 
" Ww(I),1)=PV(HW(I),1)+2:PU(SP(I),2)=PV 
\ (SP(I),2)+2:PUCHW(I),O)=PU(HW(I),0): 
U coro 130 

" 126 IF HT(HW(I))>GT(SP(I)) THEN PUCH 


(SP(I),3)+2:PUCHW(I),1)=PV(HW(I),1): 
GOTO 131 

PUCHWCI),4)=PUCHWCI),O)+PUCHW(I) 
:PUCHW(I),5)=PU(HW(I),1)+PU(HW(I) 
:PU(SP(I),4)=PU(SP(I),O)+PU(SP(I) 


PU(SP(I),5)=PU(SP(I),1)+PU(SP(I) 
‚3):NEXT I:GOSUB 132:IF ERG=49 THEN 
.GOSUB 189:G0TO 31 

\129 PU(SP(I),3)=PV(SP(I),3)+1:G0TO 1 
"IE 
K ‚130 
1131 


m 


PU(SP(I),3)=PV(SP(I),3):GOTO 126 

PU(SP(I),2)=PV(SP(I),2):GOTO 127 

X=0 

Y=X#2:FD=2:FI=VR 

134 FL=0:FOR I=FD TO FI:IF PU(AT(I-1 
»X),Y)>PUCAT(I,X),Y) THEN 146 

135 IF PUCAT(I-1,X),Y)=PU(AT(I,X),Y) 
THEN 138 

136 QQ=AT(I-1,X):AT(I-1,X)=AT(I,X):A 

T(I,X)=QQ:FL=1:FI=1 

137 GOTO 146 

'138 IF PUCAT(I-1,X),Y+1)<PU(AT(I,X), 
Y+1) THEN 146 

139 IF PUCAT(I-1,X),Y+1)=PU(AT(I,X), 
Y+1) THEN 141 

140 GOTO 136 


" W(I),O)=PV(HW(I),O)+2:PU(SP(I),3)=PV/ 


147 IF FL=0 THEN 161 
148 FL=0:FOR I=FI TO FD STEP -1:IF P 
UCAT(I-1,X),Y)>PUCAT(I,X),Y) THEN 16 


0 Kunl 


TU(SP(I),5)=TU(SP(I),1)+TU(SP(I) 149 IF PU(AT(I-1,X),Y)=PU(AT(I,X),Y) 


THEN 152 
1150 QQ=AT(I-1,X):AT(I-1,X)=AT(I,X):A 
IT(I,X)=QQ:FL=1:FD=1 
151 GOTO 160 

52 IF PUC(AT(I-1,X),Y+1)<PU(AT(I,X), 
Y+1) THEN 160 

153 IF PUCAT(I-1,X),Y+1)=PU(AT(I,X), 
Y+1) THEN 155 
‚154 GOTO 150 
1155 IF TUCAT(I-1,X),Y)-TUCAT(I-1,X), 
'Y+1)>TU(AT(I,X),Y)-TU(AT(I,X),Y+1) T 


HEN 160 
' 156 IF TUCAT(I-1,X),Y)-TUCAT(I-1,X), 
\Y+T)=TUCATCI,X),Y)-TUCATCI,X),Y+1) T 


HEN 158 

157 GOTO 150 

158 IF TU(AT(I-1,X),Y)>=TU(AT(I,X),Y 
) THEN 160 

159 GOTO 150 

160 NEXT I:IF FL>O THEN 134 

161 X=X+1:IF X<3 THEN 133 

162 RETURN 

163 GOSUB 298:GET #1,A:G0OSUR-300:A$= 

CHR$(A):IF VR>18 THEN ? "{ 28}" 
164 IF A$="A" THEN Y=2:? "{7SPACES}* 

#% AUSWAERTSTABELLE ### 

165 IF A$="H" THEN Y=0:? "{10SPACES} 

%%*% HEIMTABELLE ###n 

166 IF A$="G" THEN Y=4:? "{9SPACES}*# 

#% GESAMTTABELLE ### 

167 X=Y/2 

168 FOR I=1 TO VR 

169 IF VR>18 THEN POSITION 0,I+2:IF 
I<10 THEN ? "m; 

170 IF VR<=18 THEN POSITION 0,I+3:IF 
I<10 THEN ? ı m; 

171 B=16%(AT(I,X)-1)+1:E=B+15:? I;". 

„";VER$(B,E);"{2SPACES}"; 

1172 IF TU(AT(I,X),Y)<100 THEN ? "35 


7173 IF TUCAT(I,X),Y)<10 THEN ? " 9; 


141 IF TUCATCI-1,K) ZYI-TUCATCI- 1,0 „174 ? TUCAT(I,X),Y)5"S";TUCATCI,X),Y 


20 


Chip Computer-Programme Atari 600 XU/800 XU/65 XE 


+1); 
175 IF TUC(AT(I,X),Y+1)<100 THEN ? " 
tt» 


’ 
176 IF TUCAT(I,X),Y+1)<10 THEN ? " 


’ 

177..IF TUCAT(I,X),Y)-TUCAT(I,X),Y+1T) 
>0 THEN ? "+N;5 

178 IF TUCAT(I,X),Y)-TUCAT(I,X),Y+1) 
=( THEN 7 n "; 

179:2 TU(AT(I, X),Y)-TUCAT(I,X),Y+1); 
180 IF TU(AT(I, x), Y)- TU(AT(I, x), Y+1) 
<10 AND TUCAT(L, ‚x ‚Y)-TUCAT(T, x), Y+1 
)>-10 THEN ? "5 

181 ? nn 1° 

182 IF PU(AT(I,X) ,Y)<100 THEN ? vn; 
183 IF PUCAT(I,X),Y)<10 THEN ? "9; 
ns TBUEATLI,Z),Y) 5 SM PUCARTLI,ID SY 
+1 

185 NEXT I:IF PRI=1 THEN POKE 838,16 
3:POKE 839 ,246:PRI=0:G0TO 168 

186 GET #1,A:G0T0 31 

187 GOTO 186 

188 FOR I=1 TO VR:FOR J=0 TO 5:TU(I, 
J)=TV(I,J):PUCI,J)=PV(I,J):NEXT J:NE 
XT I:RETURN 

189 FOR I=1 TO VR:FOR J=0 TO 5:TV(I, 
J)=TU(I,J):PV(I,J)=PU(I,J):NEXT J:NE 
XT I:RETURN 

190 GOSUB 298:? "{12SPACES}###{DSPAC 
ES}LADUNG{2SPACES} ### 

191 ? "{CODE29/2I725}{2SPACES}BITTE 
FILE EINGEBEN "5:INPUT FI$ 

192 IF FI$="C:" THEN 196 

IF FI$(1,2)="D:" THEN 195 
AB1$=FI$:FI$(1,2)="D:":FI$(3)=AB 


FI$(LEN(FI$)+1,LEN(FI$)+4)=".TAB 


CLOSE #2:OPEN #2,4,128,FI$ 

197 INPUT #2,AB1$:INPUT #2,AB2$:INPU 
T #2,AB3$ 

198 VER$(1,128)=AB1$(11,138):VER$(12 
9,256)=AB2$(11,138):VER$(257,320)=AB 
3$(11, 74) 

[199 GET #2,VR:GET #2,SP 

200 FOR I=0 TO AT:FOR P=0 TO 5 

D0O1 GET #2,A:AT(I,P)=A 

602 GET #2,A:TU(I,P)=A 

203 GET #2,A:PU(I,P)=A 

204 GET #2,A:TV(I,P)=A 

205 GET #2,A:PV(I,P)=A 

206 NEXT P:NEXT I 

207 FOR I=0 TO BT:GET #2,A:HW(I)=A:N 
EXT I 

208 FOR I=0 TO BT:GET #2,A:SP(I)=A:N 
BIT I 

209 FOR I=0 TO AT:GET #2,A:HT(I)=A:N 


Eine Publikation von CHIP 


ES3r I 

210 FOR I=0 TO AT:GET #2,A:GT(I)=A:N 
EXT I 

211 FOR I=0 TO AT:GET #2,A:C(I)=A:NE 
irı 

212 CLOSE #2:G0T0 31 

213 GOSUB 298:? "{9SPACES}*##{2SPACE 
S}ABSPEICHERUNG {2SPACES} ###" 

214 ? "{CODE29/29729}{2SPACES}BITTE 
FILE EINGEBEN ";:INPUT FI$ 

215 IF FI$="c;" 'THEN 219 

IF FI$(1,2)="D:" THEN 218 
AB1$=FI$:FI$(1,2)="D:":FI$(3)=AB 


FI$(LEN(FI$)+1,LEN(FI$)+4)=".TAB 


CLOSE #2:0OPEN #2,8,128,FI$ 

220 IF LEN(VER$)<320 THEN FOR T=LEN( 

VER$) TO 320:VER$(T,T)=" ":NEXT T 

221 AB1$=VER$(1,128):AB2$=VER$(129,2 

56):AB3$=VER$(257,320) 

222 PRINT #2,AB1$:PRINT #2,AB2$:PRIN 

T #2,AB3$ 

223 PUT #2,VR:PUT #2,SP 

224 FOR I=0 TO AT:FOR P=0 TO 5 

225 A=AT(I,P):PUT #2,A 

226 A=TU(I,P):PUT #2,A 

227 A=PU(I,P):PUT #2,A 

228 A=TV(I,P):PUT #2,A 

229 A=PV(I,P):PUT #2,4 

230 NEXT P:NEXT I Br 

231 FOR I=0 TO BT:A= IND: PUT #2,A:N 

EXT I 

232 FOR 

EXT I 

233 FOR 

BIT I 

234 FOR 

EXT I 

235 FOR 

ET.I 

236 CLOSE #2:G0TO 31 

237 POKE 82,0:GRAPHICS 0: : POKE 16,64: 

POKE 53774,64 ie 

238 POKE 752,1 u w 
239 DL=PEEK (560)+PEEK (56 1)#256+4 

240 IF{2SPACES}NOT NAME THEN 251 

241 POKE DL-1,70 

242 POKE DL+2,6 

243 POKE DL+25,65 

244 POKE DL+26,PEEK(560) 

245 POKE DL+27,PEEK(561) 

246 SETCOLOR 2,11,5:SETCOLOR 0,1,12: 

POKE 709,79:SETCOLOR 4,11,5:SETCOLOR 
34346 

247 POKE 82,0:POKE 87,1:? #6; NAME$:I 

F NAME$(7,7)<>CHR$(249) OR NAME$(9,9 


I=0 TO BT:A=SP(I):PUT #2,A:N 


I=0 TO AT:A=HT(I):PUT #2,A:N 


I=0 TO AT:A=GT(I):PUT #2,A:N 


I=0 TO AT:A=C(I):PUT #2,A:NE 


21 


Fußball 





er 
248 


249 RETURN 


EN, 


PISH 
/26 
/26/26/26/26}<OH>?MFCA5; 'N; 

251 DIM NAME$(39) ‚GEHEIM$(39) : RESTOR 
E 250:READ GEHEIM$:FOR I=1 TO LEN(GE 
HEIM$):NAME$(I,I)=CHR$(ASC(GEHEIM$(I 
„I))+6):NEXT I 

252 NAME=1:G0TO 240 


253 GOSUB 298 0 
en Ka 4° il Ai 8 d40/ 0/3 
” en 
1 / / 100 
/1 :EBTE 


[=lowy Dops 





2 


B 297:PV(1,3)=TI:PU(I,3)=TI:PU(1,5)= 
0, 1)+PU(I,3):PV(I,5)=PU(I,5):GOTO 


aa GOSUB 289 

275 ? TV(I,0);5"{3SPACES} TORE" :GOSUB 
297:TV(I, 0)= TI:TU(I,0)=TIsTU(I,4)=TU 
(1,0)+TU(I,2): TV(I,4)=TU(1,4):GOTO 3 
1 

276 GOSUB 289 

277 ? TV(I,2);"{3SPACES}TORE" :GOSUB 
297:TV(I,2)=TI:sTU(I,2)=TI:TU(I,4)=TU 
el; O)+TU(I, 2), TVÄI, u)= TU(I,4): GoTo 3 


278 GOSUR 289 D < 

9 ? TV(1,1)5"{3SPACES}TOREN: GosuB 
97:TV(IyT)=TI:TUCI,+)=TI:TU(1,5)=TU 
(1,1)+TU(T,3): —_ 2 TU(1,5):G0TO 3 


255 ? 1 Co 9} Ss} EINSNAMEN | 1 

{13SPACES} a 282 eu. 

256 ? "{co Sol les E 3 LU NKTE H 283. ? «fc neuen NAME" 
EIM{ 10SPA conensb/ 5 284 ? " {CODE29/29}{3SPACES}";:INPUT 
257 ? "tic 29}{6SPACE : „a T$:IF LEN(T$)>16 THEN ? "{USPACES}N 
USWAERTS{ Teer 182), AME ZU LANG":GOTO 284 

258 ? "{c 29}{6S ESaNTpS Era 285 IF LEN(T$)=16 THEN 287 
ee / 180/ 130% " 286 FOR S=LEN(T$)+1 TO 16:T$(LEN(T$) 
259 ? "{c ey ER, +1)=" "NEXT S ( 

a /1 287 VER$(B,E)=T$ sw 

260 ? "{c PLUSTORE HEI 288 GOTO 31 ww LS 


an: ; 
a ee /1 
261 ? "{c 23) (66Pa0gs) f: He AUS 
/ / 130} " 
262: Fine FOL ESBAFERRME TORE HE 
ae / e 

263 ? "{CODEZY}{6SPAC JMIANST „au 
SWAERTS{6SPACES}{ CODE /185/ 

264 GET #1,A:A=A-4U8:IF A>9 OR Ri: I 


au 31 Bund 


265 ON A GOTO 2000665268210 ee 

4,276,278,28 

266 GOSUB 

267 ? PV(I,0);"{3SPACES} PUNKTE" :GOSU 

B 297:PV(I,0O)=TI:PU(I,0)=TI:PU(I,4)= 

PU(I,O)+PU(I,2):PV(I,4)=PU(I,4):GOTO 
31 

268 GOSUB 289 

269 ? PV(I,2);"{3SPACES} PUNKTE" :GOSU 

B 297:PV(I,2)=TI:PU(I,2)=TI:PU(I,4)= 

PU(I,O)+PU(I,2):PV(I,4)=PU(I,4):GOTO 

1 


3 
270 GOSUB 289 
271 ? PV(I,1);5"{3SPACES} PUNKTE" :GOSU 
B 297:PV(I,1)=TI:PU(I,1)=TI:PU(I,5)= 
PU(I,1)+PU(I,3):PV(I,5)=PU(I,5):GOTO 
31 
272 GOSUB 289 
273 ? PV(I,3);"{3SPACES} PUNKTE" :GOSU 


289 GOSUB 298:? "{2SPÄCES}{CODE170/1 
70/ 170/160/203/ 160/207/ 160/210/160/2 
10/ 160/ 197/ 160/203/ 160/212/ 160/213/ 1 
60/210/ 173/ 173/205/ 160/ 197/ 160/206/ 1 
60/213/ 160/ 197/ 160/170/170/170}":? : 
FOR I=1 TO VR:B=16#(I-1)+1:E=B+15 
290 IF I<10 THEN ? " n; 

a ? „{hSPACESI"; 15" {2SPACES}";VER$ 


Er 


a POSITION 27,22:INPUT I:B=16#(I-1 
)+1:E=B+15 

294 POSITION 0,3:FOR W=1 TO 20:? "{3 
9SPACES}":NEXT W 

295 ? "{CODE29/29/29 9/29/29/29}{uS 
EN ‚E):IF A=1 THEN 283 
296 ? "{CODE29}{USPACES}BISHER{2SPAC 
ES}";:RETURN = 

297 ? n{CODE28729} (nsPaces) Jerz7 "5; 
INPUT TI:? "{cCODE29729/29/29}{12SPAC 
ES}VIELEN DANK !!1":RETURN 

298 POSITION 0,2:FOR WEG=1 TO 21:? " 
{39SPACES}":NEXT WEG:POSITION 0,2:RE 
TURN 

299 A$=CHR$(A) 


300 A$=CHR$(A) And! 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


301 IF A$="P" THEN POKE 838,166:POKE 
839,238:PRI=1 

302 GET #1,A:RETURN 

303 AT=50:BT=25:VER=352 

304 POKE BT#23+5,1 

305 DIM T$(AT),AT(AT,5),TU(AT,5),PU( 
AT,5),TV(AT,5),PV(AT,5),HW(BT),SP(BT 
),HT(AT),GT(AT),C(AT),VER$(VER) 

306 DIM FI$(17),A$(1),AB1$(138),AB2$ 
(138),AB3$(74),DIR$(20),OLD$(20),REN 

AME$(50),NEU$(20) 

307. FOR I=1 TO ATsFOR J=0 TO 2:sAT(I, 

J)=IsNEXT: JsNEXT I 


308 RETURN 

2 2 C {CODE1 Ve / $ 
era u) ENNEETIR EIER CE 

. un Le 


V Ir) 
342 7 FEHORESEREER CET TA 
BELLEN-DATEIEN AUF DISK" 
514,.7.+2 " {5SPACES} {CODE150/2'71/ 130} 
DATEI SICHERN" 
314 .2.:32 " {SSPACES} {CODE150/ 107/130} 
DATEI ENTSICHERN" Fi 
415:..12:47 or N OEDERRE: ; PER - 
DISKETTE FORMATIEREN" 
316 ? :? "{5SPACES} {CODE 150/20%/ 130} 
DATEI NEUNENNEN" 2 
317 2? :? "{5SPACES}{CODE150/204/130} 
DATEI LOESCHEN" 
318 ? :? "{SSPACES} {CODE150/ 27% 130} 
ZURUECK ZUM MENUE" 
319 GET #1,A:A$=CHR$(A) 
320 A$="T"t THEN 327 
321 A$="S"t THEN 354 
322 A$="E" THEN 359 
323 A$="F" THEN 364 
324 A$="N" THEN 340 
325 A$="L" THEN 
326 I en THEN 


327 ws EP 


z0}": .? 

328 OPEN #2,6,0,"D:*. TAB" 
329 FOR X=5 TO 12:POSITION 2,X:? "{2 
3SPACES}":NEXT X:POSITION 2,5 

330 FOR NUM=1 TO 8 

331 TRAP 339:INPUT #2,DIR$ 

332 IF DIR$="" THEN 335 

333 IF DIR$(5,9)="freie" THEN ? :? : 
? N{2SPACES}";5 

334 ? W{6SPACES}"; 
335 NEXT NUM 

336 ? :? :? "{NSPACES}{COD 


:? DIR$ 


10}=MENU 


Eine Publikation von CHIP 





Eisspacrs} one ee 


O6}=WEITERE FILES":POKE 764,255:GET 
#1,A:IF A=88 OR A=216 THEN 338 

337 GOTO 329 

338 CLOSE #2:60T0 309 Es BaKk 

339 POSITION 2,15:? "{CODE1567 156} {4 


SPACES}ENDE DES DIRECTORY{ 3SPACES} {C 
ODE }=MENUE":GET #1,A:CLOSE #2:GOT 
0 309 


ee 


342 POSITION 6,6:? " BITTE ALTEN NAM 
EN EINGEBEN "; POSITION 7,8:INPUT OLD 


343 POSITION 6,10:? " JETZT DEN NEUE 
N NAMEN": POSITION 7,12:INPUT NEU$ 
344 RENAM $(1,2)="D:":RENAME$(3)=OLD 
$ KuudA 

345 RENAME$(3+LEN(OLD$),3+LEN(OLD$)) 
=" ‚1; RENAME$(4+LEN(OLD$))=NEU$ 

346 XIO 32,#3,0,0,RENAME$:GOTO 309 
N oe 298 


PACES}{ E D 
en Er 


BE 
349 Ds 6,6:? " BITTE FILENAMEN 
EINGEBEN" : POSITION 7,8:INPUT OLD$ 
350 RENAME$(1,2)="D:":;RENAME$(3)=OLD 


351 POSITION 7,10:? "BIST DU SICHER 
(Y/N) "5:INPUT NEU$ 

352 IF NEUS(1,1)<>nyu THEN 309 

353 XIO 33,#3,0,0,RENAME$:GOTO 2: 
354 GOSUB 298 


7198022 ehe 16 180180 ealıgeee 


= POSITION 6,6:? " BITTE FILENAMEN 
EINGEBEN": POSITION 7,8:INPUT OLD$ 
357 RENAME$(1,2)="D:":RENAME$(3)=OLD 


GOS = nf 
H RR 

A Bi A, / / < 358 XIO 35,#3,0,0,RENAME$:GOTO 309 
95/ /170/ /170/170/1 359 GOSUB 298 


a ya 


361 POSITION 6,6:? " BITTE FILENAMEN 
EINGEBEN": POSITION 7,8:INPUT OLD$ 
362 RENAME$(1,2)="D:":RENAME$(3)=OLD 


363 XIO 36,#3,0,0,RENAME$:GOTO 309 
364 GOSUB 298 


AN N 





Astrologie 








Atari 800XL, 
Druckeranschluß 
1 bis 12 Perso- 


Gerätekonfiguration: 
Diskettenstation, 
möglich.Teilnehmer: 
nen. 


In Zusammenarbeit mit der Astrolo- 
gin Agnes Reimer, Mitglied des 
Deutschen Astrologieverbandes E.V. 
und Autorin des erfolgreichen 
Sachbuchs "Der Manager und seine 
Tierkreiszeichen" entstand dieses 
kurzweilige Programm. 


DIE STERNE BEFRAGEN 


"Astrologie ist durch das gegenwär- 
tige naturwissenschaftliche Welt- 
bild nicht begründbar, andererseits 
läßt sich ihre Grundannahme aber 
auch nicht durch dieses Weltbild 
widerlegen!" sagt Carl Friedrich 
von Weizsäcker. Zweifellos hat die 
Astrologie ihre Anhänger und ihre 
Gegner. Fällen die einen beinahe 
keine Entscheidung ohne vorher die 
Sterne zu befragen, so ist für die 
anderen die Bedeutung der Tier- 
kreiszeichen schon Kaffeesatzlese- 
rei. Mit diesen Worten führt die 
engagierte Astrologin Agnes Reimer 
bereits in ihrem im Vogel-Verlag, 
würzburg, erschienenen Buch ins 
Thema ein. Für Sie steht fest: 
Unterhaltung kann es aber auf jeden 


Fall sein, sich selbst einmal, 
Mitarbeiter oder Vorgesetzte im 
typischen Tierkreiszeichen unter 


Manager-Gesichtspunkten beschrieben 
zu sehen. Vielleicht ist es gele- 
gentlich auch ganz hilfreich. 


24 


Auch wenn man nicht unbedingt ein 
Anhänger der Astrologie ist, so 
ergeben sich beim Studium der ver- 


schiedenen Charaktertypen doch ver- 
blüffende Einsichten in persönliche 
Stärken und Schwächen. 


WIE PERSÖNLICH IST DIESES PROGRAMM? 


Wer sich bereits etwas näher mit 
Astrologie befaßt hat, kennt die 
Problematik: Um ein persönliches 
Horoskop erstellen zu können, muß 
der ernsthafte Astrologe nicht nur 


Ihren Geburtstag, sondern auch noch 
Geburtsstunde - möglichst auf die 
Minute genau - und Ihren Geburtsort 
kennen. Erst dann kann er an die 
Ermittlung des damaligen Sternstan- 
des gehen. Dazu sind exakte astro- 
nomische Berechnungen notwendig. 
Ein derart aufwendiger Einstieg in 


die Astrologie, der zudem einiges 
an Vorkenntnissen erfordert, würde 
den Umfang dieses Partnerver- 


gleichs-Programmes sprengen. 
Um trotzdem zu allgemeinverbind- 


lichen Aussagen zu kommen, hat 
unsere Programm-Autorin, eine 
17jährige Schülerin aus Würzburg, 


diesen Vorgeschmack auf die Geheim- 
nisse moderner Sterndeutung unter 
Anleitung einer geprüften Astrolo- 
gin realisiert. 


PARTNER-VERGLEICH:WER PASST ZU MIR? 


Bevor Sie ans Eintippen gehen, hier 
eine Kurzbeschreibung des Programm- 
ablaufs: Der Computer präsentiert 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Rn ne ee SE SE ee. 


nacheinander die verschiedenen 
Sternzeichen und bittet Sie, die 
Vornamen Ihrer Freunde oder Kolle- 
gen einzugeben. Jedes Sternzeichen 


ist mit lediglich einer Person zu 
belegen. 

Finden sich für einzelne Sternzei- 
chen keine Geburtstagskinder, so 


lassen sich diese mit einem Druck 
auf die Leertaste überspringen. 

Nun fragt der Computer nach Ihrem 
GEBURTSDATUM. Beim Eingeben dürfen 
die Nullstellen nicht unterschlagen 
werden. Beispiel: 07.065196 7; 
Sobald Sie Ihren VORNAMEN genannt 
haben, erscheint am Bildschirm die 
für Ihr Tierkreiszeichen gültige 
Charakteristik. Sie werden dabei 
allerdings nicht geschont. Nicht 
nur Ihre Schokoladenseite, sondern 
auch Ihre negativen Eigenschaften 
deckt die Astrologin auf. 
Gleichzeitig bietet sich Gelegen- 
heit, unter den KOSMOBIOLOGISCHEN 
SCHWACHPUNKTEN Dispositionen für 
Krankheiten zu erfahren, die vor- 
zugsweise auf typische Vertreter 
dieses Tierkreiszeichens zutreffen. 
Ob Sie zu Ihrem Chef oder Ihrer 
Chefin, zu bestimmten Kollegen oder 
Mitarbeiterinnen passen, zeigt der 
anschließende PARTNER-VERGLEICH. 
Dazu ein praktischer Hinweis: 
Menschen, die im gleichen Sternzei- 
chen geboren sind, haben lediglich 
den Sonnenstand gemeinsam. Eine 
Übereinstimmung des gesamten Horos- 
kops ist nur dann gegeben, wenn 
Tag, Jahr, Zeit und Ort identisch 
sind. Mit Druck von ESC wird der 
Bildschirm ausgedruckt. 


BEIM EINTIPPEN ZU BEACHTEN 

Geben sie zuerst das HAUPTPROGRAMM 
ein und speichern Sie es mit SAVE 
"D:ASTROLOG" ab. nun wird das GRA- 
FIKPROGRAMM eingegeben und abge- 
speichert mit SAVE "D:GRAPHIC". 
Jetzt ist das EINGABEPROGRAMM abzu- 
tippen und mit "D:TIPPEN" abzu- 
speichern. Laden Sie das EINGABE- 
PROGRAMM und lassen Sie es aufli- 
sten. Die Texte für die einzelnen 
Sternzeichen sind numeriert mit den 
zahlen von 1 bis 12. Wählen Sie ein 
Tierkreiszeichen aus, mit dem Sie 
beginnen wollen. Den Namen des 
jeweiligen Sternzeichens finden Sie 
stets in der ersten Zeile. Geben 


Eine Publikation von CHIP 


Astrologie 


sie hinter dem DATA in Zeile 2000 
nun den ausgewählten Text ein. 
Jeweils nach etwa drei Zeilen Ein- 
gabe ertönt ein akustisches Signal, 
das sie dazu auffordert, mit einer 
neuen DATA-Zeilennummer zu beginnen 
t2sB:: DATA: 22007). 2:DEer Text Tage 
sich an jeder Stelle unterbrechen, 
vorausgesetzt, Sie schließen die 
Zeile mit einem Komma (,) ab. So- 
bald Sie den ersten Textblock ein- 
gegeben haben, ersetzen Sie in 
Zeile 100 das kleine x in dem Wort 
"D:Ax" durch die Nummer des Stern- 
zeichens, welches Sie eingegegben 
haben (Ziffern 1 bis 12). Nun wird 
RUN eingegeben. Sobald READY er- 
scheint, können Sie bereits das 
HAUPTPROGRAMM laden und das zum 
eingegebenen Sternzeichen gehörende 
Horoskop abrufen. Um Textblöcke für 
weitere Tierkreiszeichen eingeben 
zu können, laden Sie wieder TIPPEN, 
ändern das RESTORE in Zeile 110 auf 
3000 und setzen in Zeile 100 hinter 
dem Buchstaben A die Nummer des nun 
einzutippenden Sternzeichens ein. 


Die Texteingabe wird nun mit 3000 
DATA ... begonnen. Dieser Vorgang 
wird so oft wiederholt, bis alle 
zwölf Sternzeichen eingegeben sind. 
Sind alle Texte eingegeben, so 
können Sie das Programm TIPPEN 
löschen. 


EINSTIEG IN ASTROLOGIE 


Sollten Sie am Ende Lust bekommen 
haben, sich intensiver mit dem 
reizvollen Thema Astrologie zu be- 


fassen, dann bieten sich folgende 

Möglichkeiten: 

1. Im Buch "Der Manager und sein 
Tierkreiszeichen" findet sich 


ein Anhang, der pro Sternzeichen 
genaue Jahreszahlen enthält. Das 
147seitige Buch erschien im Vo- 
gel-Verlag, Würzburg zum Preis 
von 27 Mark. 


2. Unter dem Titel "Einstieg in die 
Astrologie zum Zweck der 
Selbstfindung", will die Auto- 


rin, Agnes Reimer, in Kürze die 
Möglichkeit bieten, die gesamte 
persönliche kosmische Situation 
per Computer aufzuschlüsseln. 
Und nun viel Spaß unter einem 
hoffentlich guten Stern. 
Martina Schwarz 


25 


Astrologie 





1 REM ASTROLOGIE 

2 REM FUER CHIP-SPECIAL 

3 REM VON MARTINA SCHWARZ 

4 REM ------------- ----- - 

53256,3 
0.,108.,170,88.36,16,16.,0 
0,195,36,36,24,36,24,0 
0,255,36,36,36,36,255,0 
0,63,97,150,153,105,134,252 
12,18,49,73,50,4,4,3 
0,170,85,85,86,84,84,0 
0,24,36,231,0,255,0,0 
0,168,84,84,83,85,84,0 
31,135,77,41,56,104,196,2 
255,130,60,74,81,17,14,0 
0,204,51,0,204,51,0,0 
DATA 65,34,20,62,20,34,65,0 
DIM P1$(10),P2$(10),P3$(10) 
DIM P4$(10),P5$(10),P6$(10) 
DIM P7$(10),P8$(10),P9$(10) 
DIM P10$(10),P11$(10),P12$(10) 
DIM NAME$(10),DR$(40) 


85 P1$="STEINBOCK" 
86 P2$="WASSERMANN" 
87 P3$="FISCH" 

88 P4$="WIDDER"" 

89 P5$="STIER" 

90 P6$="ZWILLING" 
91 P7$="KREBS" 

92 P8$="LOEWE" 

93 P9$=" JUNGFRAU" 
94 P10$="WAAGE" 

95 P11$="SKORPION" 


P12$="SCHUETZE" 

DIM GEB$(12),A$(40) 
OPEN #1,4,0,"K:" 
GOSUB 6000 

POKE 53248,0 
GOSUB 7000 

GOTO 500 
P1$=NAME$(1,LES) 
P2$=NAME$(1,LES):RETURN 
P3$=NAME$(1,LES):RETURN 
P4$=NAME$(1,LES):RETURN 
P5$=NAME$(1,LES): RETURN 
P6$=NAME$(1,LES):RETURN 
P7$=NAME$(1,LES):RETURN 
P8$=NAME$(1,LES):RETURN 
P9$=NAME$(1,LES):RETURN 
P10$=NAME$(1,LES):RETURN 
P11$=NAME$(1,LES):RETURN 
P12$=NAME$(1,LES):RETURN 

FOR X=0 TO 23 

FOR Y=0 TO 39 

LOCATE Y,X,Z:DR$(Y+1,Y+1)=CHR$(2 


: RETURN 


26 


430 
500 
510 


520 
" 
530 POSITION 
I{4HSPACES}" 
540 SETCOLOR 2,0,0 

550 ? TAIER EINGEBEN:";:INPUT GEB$ 
560 A=VAL(GEB$(1,2)):B=VAL(GEB$(4,5) 


NEXT Y:LPRINT DR$:NEXT X: RETURN 
GRAPHICS 2:POKE 752,0 
POSITION 2,2:? #6;"GEBEN SIE IHF 


POSITION 2,4:? #6;"GEBURTSDATUM 


2,6:? #6;"{4SPACES}EIN 


580 IF A<1 THEN 5000 
581 GOSUB 590 
582 ? #6;5CHR$(125):? CHR$(125) 
583 POSITION 4,3:? #6;"geben{2SPACES 
}sie" 
584 POSITION 3,5:? #6;"ihren namen" 
585 POSITION 6,7:? #6;"{2SPACES}ein" 
586 ? "MAX.10 BUCHSTABEN EINGEBEN:": 
INPUT NAME$ 
589 GOTO 755 
590 IF A<32 AND A>21 
1 AND B=1 THEN XX=1 
600 IF A<32 AND A>20 
AND B=2 THEN XX=2 
610 IF A<30 AND A>19 
AND B=3 THEN XX=3 
620 IF A<32 AND A>20 
AND B=4 THEN XX=4 
630 IF A<31 AND A>20 
AND B=5 THEN XX=5 
640 IF A<32 AND A>20 
AND B=6 THEN XX=6 
650 IF A<31 AND A>21 
AND B=7 THEN XX=7 
660 IF A<32 AND A>22 
AND B=8 THEN XX=8 
670 IF A<32 AND A>23 
AND B=9 THEN XX=9 
680 IF A<31 AND A>23 
AND B=10 THEN XX=10 
690 IF A<32 AND A>23 
3 AND B=11 THEN XX=11 
700 IF A<31 AND A>22 AND 
3 AND B=12 THEN XX=12 
1750 IF XX=0 THEN POP :GOTO 5000 
193 
755 
756 
757 
758 
759 
760 
761 
762 


AND B=12 OR A<2 


AND B=1 OR A<20 


AND B=2 OR A<21 


AND B=3 OR A<21 


AND B=4 OR A<21 


AND B=5 OR A<22 


AND OR A<23 


AND B=7 OR A<24 


AND B=8 OR A<24 


AND OR A<24 


AND B=10 OR A<2 


B=11 OR A<2 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


P1$=NAME$ 
P2$=NAME$ 
P3$=NAME$ 
P4$=NAME$ 
P5$=NAME$ 
P6$=NAME$ 
P7$=NAME$ 
P8$=NAME$ 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


163 
164 
165 
766 


IF XX=9 THEN PY9$=NAME$ 

IF XX=10 THEN P10$=NAME$ 

IF XX=11 THEN P11$=NAME$ 

IF XX=12 THEN P12$=NAME$ 

790 GRAPHICS 0:POKE 752,1 

795 DR$(1,3)="D:A":DR$(H,3+LEN(STR$( 
XX)))=STR$(XX):A$=DR$(1,3+LEN(STR$(X 
X))):OPEN #2,4,0,A$ 

800 INPUT #2;A$ 


810 IF A$="-1" THEN GOTO 840 

811 IF A$="-10" THEN ? P1$;5:G0TO 800 
812 IF A$="{CODE64}" THEN ? CHR$(155 
):GOTO 800 

813 IF A$="%" THEN ? ","5:G0TO 800 
815 IF A$="-5" THEN GOTO 900 

816 IF A$="-11" THEN ? P2$;5:G0TO 800 
817 IF A$="-12" THEN ? P3$5:G0TO 800 
818 IF A$="-13" THEN ? P4$;:GOTO 800 
819 IF A$="-14" THEN ? P5$;:GOTO 800 
820 IF A$="-15" THEN ? P6$;5:GOTO 800 
821 IF A$="-16" THEN ? P7$;:GOTO 800 
822 IF A$="-17" THEN ? P8$;:G0OTO 800 
823 IF A$="-18" THEN ? P9$;:GOTO 800 
824 IF A$="-19" THEN ? P10$;5:GOTO 80 
0 

825 IF A$="-20" THEN ? P11$5:G0TO 80 
0 

826 IF A$="-21" THEN ? P12$;5:G0TO 80 
0 

827 IF A$="%*1" THEN SETCOLOR 2,3,6:S 


ETCOLOR 1,3,0:SETCOLOR 4,12,10:GO0TO 
800 

828 IF A$="*2" THEN SETCOLOR 2,0,0:5 
ETCOLOR 1,0,6:SETCOLOR 4,8,0:GOTO 80 


0 
829 IF A$="#3" THEN SETCOLOR 2,0,8:S 
ETCOLOR 1,0,1:SETCOLOR 4,8,8:G0TO 80 


0 
830 IF A$="*y"m THEN SETCOLOR 2,3,8:S 
ETCOLOR 1,0,1:SETCOLOR 4,8,8:GOTO 80 
0 
831 IF A$="#5" THEN SETCOLOR 2,3,7:S 
ETCOLOR 1,0,0:SETCOLOR 4,0,5:GOTO 80 
0 
832 IF A$="*6" THEN SETCOLOR 2,0,5:S 
ETCOLOR 1,0,1:SETCOLOR 4,8,8:GOTO 80 


0 
833 IF A$="%#7" THEN SETCOLOR 2,8,6:S 
ETCOLOR 1,0,0:SETCOLOR 4,3,8:G0TO 80 


0 

834 IF A$="*8" THEN SETCOLOR 2,1,0:S 
ETCOLOR 1,9,11:SETCOLOR 4,0,8:G0TO 8 
00 

835 IF A$="*g" THEN SETCOLOR 2,0,0:5 
ETCOLOR 1,0, 15:SETCOLOR 4,12,6:GO0TO 
800 


Eine Publikation von CHIP 


Astrologie 


836 IF A$="%*%10" THEN SETCOLOR 2,8,8: 
SETCOLOR 1,0,4:SETCOLOR 4,8, 12:GOTO 
800 

837 IF A$="#11" THEN SETCOLOR 2,1,0: 
SETCOLOR 1,0,8:SETCOLOR 4,8,0:G0TO 8 
00 

838 IF A$="#*12" THEN SETCOLOR 2,3,15 
:SETCOLOR 1,0,0:SETCOLOR 4,3,10:GO0TO 
800 
839 
840 
845 
0 
900 
905 


? A$;:GOTO 800 
GET #1,T:IF T=27 THEN GOSUB 400 
POSITION 0,0:? CHR$(125):GOTO 80 


GET #1,T:POKE 1536,XX 

IF T=27 THEN GOSUB 400 

POKE 1537 ,LEN(NAME$) 

FOR X=1 TO PEEK(1537) 

POKE 1540+X,ASC(NAME$(X,X)) 
NEXT X 

RUN "D:GRAPHIC" 

POKE 752,1:? " FALSCHE EINGABE" 
FOR X=0 TO 500:NEXT X 

? CHR$(125):POKE 752,0:G0TO 540 
POKE 53248,0 

GRAPHICS 2+16 

SETCOLOR 0,8, 10:SETCOLOR 1,3,10 
:SETCOLOR 2,14,15 

6020 DIM ASTRO$(279) 

6030 ASTRO$(1,91)="{19SPACES}im ster 
nzeichen der karriere *#*#** mein tierk 
reiszeichen und mein beruf ##" 

6040 ASTRO$(92,174)="% wer passt zu 
mir ? zu wem passe ich ? %%% nach de 
m sachbuch von {CODE193/199/206/197/ 
211/160/210/ 197/201/205/ 197/210}{2SP 
ACES} “re. 

6045 ASTRO$(175,256)=" text programm 
iert von {CODE205/ 193/210/212/201/20 
6/ 193/ 160/211/ 195/200/215/193/210/21 
8} #*%* grafik und sound von {CODE211 
/212/197/198/193/206/ 160/211/ 195/200 
/215/193/210/218} ###n 

6050 ASTRO$(257,277)="{20SPACES}i" 
6060 POSITION 1,1:? #6;"{CODE195/ 160 
/200/ 160/201/ 160/208/ 160/ 173/ 160/211 
/160/207/ 160/ 198/ 160/212}" 

6070 POSITION 1,3:? #6;"{CODE226/233 
/2uu/244/229/160/160/247/225/242/244 
/229/238/ 160/174/ 174/17 4}* 

6080 POSITION 1,7:? #65" COPYRIGHT{2 
SPACES} 1985" 

6090 POSITION 1,9:? #65" BY {CODE214 
/207/ 199/ 197/204/ 173/214/ 197/210/204 
/193/199}* 

6095 POKE 54277;,1 

6100 PM=PEEK(106)-8:POKE 54279,PM 


27 


mm ll u bl er A Fre =: 5 > Sl EEE En 


Astrologie 





6110 
6120 


PM=PM#256 
POKE 559,46:FARB=15:SER=1:POS=3 


FOR X=512 TO 640 

6130 POKE X+PM,O:NEXT X 

6132 POKE 53277,3:POKE 704, (SER-1)#1 
6+FARB 

6133 RESTORE 50+SER 

6135 FOR X=570 TO 577:READ Y:POKE X+ 
PM,Y:NEXT X 

6140 POKE 53248,35 

6150 FOR X=1 TO 256 

6160 FARB=FARB-2:IF FARB<3 THEN FARB 
=15 
6165 
6170 
6180 
) 
6185 


5 
6125 


IF PEEK(53279)=6 THEN RETURN 
SETCOLOR 2,11,FARB 
POSITION 0,3:? #6; ASTRO$(X,X+19 


IF J=1 THEN RETURN 

6190 POS=POS+3:IF POS>217 THEN 6500 
6200 POKE 53248,POS:POKE 704,(SER-1) 
#*16+FARB 

6205 TONO=RND(0)%*256 

6206 SOUND 0,TONO, 10,8 

6207 SOUND 1,TON1,10,6 

6208 SOUND 2,TON2, 10,4 

6209 SOUND 3,TON3, 10,2 

6210 TON3=TON2:TON2=TON1:TON1=TONO 
6215 FOR K=1 TO 6:NEXT K:NEXT X 

6220 GOTO 6150 

6500 J=1:SER=SER+1:IF SER=13 THEN PO 
KE 77,0:SER=1 

6510 RESTORE 50+SER 

6520 FOR 2=570 TO 577 

6530 READ Y:POKE Z+PM,Y 

6535 IF X>254 THEN GOSUB 6150 

6540 IF Z=572 OR Z=575 THEN X=X+1:G0 
SUB 6160 

6550 NEXT Z:POS=35:J=0:NEXT X 

1000 FOR X=0 TO 3:SOUND X,0,0,0:NEXT 


X 
7002 GRAPHICS 17:SETCOLOR 4,4,0 
7010 SETCOLOR 0,0,15:SETCOLOR 1,8,8 
7020 SETCOLOR 2,14,15 
7030 POSITION 2,2:? #6;"ES KOENNEN M 
AXIMAL" 
7040 POSITION 3,4:? #6;"zwoelf perso 
nen! 
7050 POSITION 2,6:? #6;"IHREN NAMEN 
FUER'" 
7060 POSITION 2,8:? #6;"{6SPACES}DEN 
" 
7070 POSITION 2,10:? #6;"partnerverg 
leich" 
7080 POSITION 2,12:? #6;"{4SPACES}EI 
NGEBEN !" 
17090 POSITION 2,22:? #6;" {CODE229/2 


33/238/231/225/226/229/226/229/229/2 
38/228/245/238/231}" 

7100 POSITION 2,23:? #6;"DURCH {CODE 
229/243/227} - TASTE" 

7110 FOR X=1 TO 12 

7120 ON X GOSUB 7500,7501,7502,7503, 
7504 ,7505,7506,7507,7508,7509,7510,7 
511,7512 

7125 LES=LEN(NAME$):IF LES<10 THEN N 
AME$(LES+1,10)="{9SPACES}" 

7127 GEB$=NAME$ 

7130 FOR Y=1 TO 10 

ib; POSITION 20-Y,15:? #6;5NAME$(1,Y 
7150 FOR Z=1 TO 4:NEXT Z:NEXT Y 

7160 FOR Y=11 TO 18 

2. POSITION 20-Y,15:? #65;NAME$(1,1 
0 sun 

7180 FOR Z=1 TO 4:NEXT Z:NEXT Y 

7190 GET #1,TTD 

7200 IF TTD=27 THEN RETURN 

7210 IF TTD=155 THEN 7300 

7220 IF TTD=126 THEN 7250 

7225 IF TTD>122 THEN 7190 

7227 TTZ=TTZ+1:IF TTZ=11 THEN TTZ=TT 
Z-1:G0TO 7190 

7230 GOSUB 7400 

7240 GOTO 7190 

7250 IF TTZ=0 THEN 7190 

7260 FOR Y=1+TTZ TO 18 

7270 POSITION Y,18:? #65" ";CHR$(ASC 
(NAME$(TTZ,TTZ))+128) 

7280 NEXT Y:POSITION 19,18:? #6;" " 
7285 NAME$(TTZ,TTZ)=" ";TTZ=TTZ-1 
7290 GOTO 7190 

7300 IF TTZ=0 THEN NAME$=GEB$ 

7305 LES=LEN(NAME$) 

7310 IF NAME$(LES,LES)=" " THEN LES= 
LES-1:GOTO 7310 

7320 ON X GOSUB 300,301,302,303,304, 
305,306,307,308,309,310,311,312 

17330 TTZ=0:POSITION 1,18:? #6;"{12SP 
ACES}":FOR Z=12 TO 2 STEP -1:POSITIO 
N 2,15:? #65" ":FOR Y=1 TO 4:NEXT Y 
7340 NEXT Z:NEXT X:GEB$="" 

7350 RETURN 

7400 IF TTD<>32 AND TTZ=1 THEN NAME$ 
zum 

7405 FOR Y=1 TO 19-TTZ 

7410 POSITION 20-Y,18:? #6;CHR$(TTD+ 
128) ;" n 

7420 NEXT Y 

7430 NAME$(TTZ,TTZ)=CHR$(TTD) 

7440 RETURN 

7499 GOTO 8000 

7500 NAME$=P1$:RETURN 

7501 NAME$=P2$:RETURN 


Chip Computer-Programme Atari 600 XLU/800 XL/65 XE 


7502 
7503 
7504 
7505 
7506 
1507 
7508 


NAME$=P3$: 
NAME$=PU4$: 
NAME$=P5$: 
NAME$=P6$: 
NAME$=P7$:RETURN 
NAME$=P8$: RETURN 
NAME$=P9$: RETURN 


RETURN 
RETURN 
RETURN 
RETURN 


REM GRAPHIC 

REM FUER CHIP-SPECIAL 
REM VON MARTINA SCHWARZ 
REM 
REM 
DIM NAME$(10),X$(40) 

STERN=PEEK (1536) 

GOSUB 420 

DATA 255,130,60,78,81,17, 1850 
DATA 0,204,51,0,204,51,0,0 

DATA 65,34,20,62,20,34,65,0 

DATA 0,108,170,84,16,16,16,0 

DATA 0,195,36,36,24,36,24,0 

DATA 0,255,36,36,36,36,255,0 

DATA 12,18,49,73,50,4,4,3 

DATA 0,170,85,85,86,84,84,0 

DATA 0;,24,36,231,0,255,0,0 

DATA 0,168,84,84,83,85,84,0 

100 GRAPHICS 7:SETCOLOR 0,3,6:SETCOL 
OR 1,3,14:SETCOLOR 2,8,7 

110 COLOR 1:FOR X=1 TO 100 

120 PLOT INT(RND(0)%159),INT(RND(O)* 
79):NEXT X 

130 COLOR 2:FOR X=1 TO 30 

140 X1=INT(RND(0)#157)+1 

150 X2=INT(RND(0)#77)+1 

160 PLOT X1,X2+1:DRAWTO X1,X2-1 


170 PLOT X1-1,X2:PLOT X1+1,X2 

180 NEXT X 

200 P=3.14159 

210 COLOR 3:FOR X=0 TO 2%P STEP P/54 


220 PLOT COS(X)#17+79,SIN(X)#17+39 
230 DRAWTO COS(0)%*%17+79,SIN(0)*17+39 
:NEXT X 

240 PM=PEEK(106)-24:POKE 54279,PM 
250 PM=PM#256:POKE 559,46 

255 POKE 704,STERN#16+4 

260 FOR X=512+PM TO 640+PM:POKE X,0: 
NEXT X 

270 RESTORE 50+STERN 

280 FOR X=562+PM TO 569+PM:READ Y:PO 
KE X,Y:NEXT X 

290 POKE 53248,60 


Eine Publikation von CHIP 


Astrologie 


7509 NAME$=P10$:RETURN 
7510 NAME$=P11$:RETURN 
7511 NAME$=P12$:RETURN 
8000 GOTO 8000 


READY ! 


GOSUB 442 
RESTORE 2000:TON2=1 


295 
297 


300 POKE 53277,3 

310 POKE 53256 ,3 

350 POKE 623,1:POKE 764,255 

360 FOR X=60 TO 180 STEP 2 

365 IF PEEK(764)<>255 THEN 600 

367 GOSUB 5000 

370 POKE 53248,X:NEXT X:POKE 623,4:P 
OKE 53248,182 

375 POKE 53256,1:FOR X=1 TO 20:G0SUB 


5000:NEXT X:POKE 53256,0:FOR X=1 TO 
20:GOSUB 5000:NEXT X 

380 FOR X=180 TO 60 STEP -2 

385 IF PEEK(764)<>255 THEN 600 

387 TO=1:G0SUB 5000 

390 POKE 53248,X:NEXT X 

395 POKE 53256,1:FOR X=1 TO 20:G0SUB 
5000:NEXT X:POKE 53256,3:FOR X=1 TO 


15:GOSUB 5000:NEXT X 
400 GOTO 350 
420 FOR X=1 TO PEEK( 1537) 
430 NAME$(X,X)=CHR$(PEEK(1540+X)) 
440 NEXT X 
441 RETURN 
442 RESTORE 1000+STERN- 1 
445 POKE 752,1 
450 READ X$ 
460 IF X$="%" THEN ? ","3:GOTO 450 
470 IF X$="{CODE64}" THEN ? CHR$(155 
):GOTO 450 
480 IF X$="-1" THEN RETURN 


490 IF X$="#" THEN ? NAME$;:GOTO 450 
500 ? X$;:G0TO 450 

600 RUN "D:ASTROLOG" 

1000 DATA VIEL GLUECK ,‚#,%,DEM,{CODE 
64} ,FLEISSIGEN STEINBOCK! ,-1 

1001 DATA VIEL GLUECK DEM/R PHANTASI 
EVOLLEN,{CODE64} ,#,1,-1 

1002 DATA VIEL GLUECK DEM/R VERTRAEU 
MTEN,{CODE64} ,#,!1,-1 

1003 DATA VIEL GLUECK DEM/R KAEMPFER 
ISCHEN,{CODE64} ,#,!,-1 

1004 DATA VIEL GLUECK DEM/R GENUSSHA 
FT-,{CODE64} ,GEMUETLICHEN ‚#,!,-1 


Astrologie 





1005 DATA VIEL GLUECK DEM/R BEWEGLIC 
HEN,{CODE64} ,#,1,-1 

1006 DATA WIR WUENSCHEN ,‚#,%,DEM/R,{ 
CODE64} ,LIEBEVOLLEN KREBS ALLES GUTE 
I,-1 

1007 DATA VIEL GLUECK DEM STARKEN ‚{ 
CODE64} ,LOEWEN ‚#,!,-1 

1008 DATA DER GRUENDLICHEN JUNGFRAU, 
{CODE64} ‚#, VIEL SPASS!,-1 

1009 DATA {CODE64},VIEL GLUECK SENSI 
BLE/R ‚#,!,-1 

1010 DATA VIEL GLUECK DEM FURCHTLOSE 
N,{CODE64} ,RITTER ‚#,!,-1 

1011 DATA VIEL GLUECK DEM/R GROSSZUE 


REM TIPPEN 
REM FUER CHIP-SPECIAL 
REM VON MARTINA SCHWARZ 


Zwmnd — 


5 

90 DIM A$(40) 

100 OPEN #1,8,0,"D:;Ax" 
110 RESTORE 2000 


1 Steinbock 3 

*1,@,SIE SIND STEINBOCK! ,@,An ,‚-10,' 
'!s Geburtstag stand,@,die Sonne im Z 
Zeichen Steinbock. ,‚@,@,Positive Eige 
enschaften :,@,Konzentration,%,Pflic 
chtbewusstsein,%,@,Fleiss,%,Zaehigke 
eit,%,Ernst.,@,@,Negative Eigenschaf 
ften :,@,Hemmung,%,Verschlossenheit, 
‚%,@,Misstrauen,%,Starrsinn.,-1,@,-1 
10, merken Sie ‚sich: ,@,@,-10, ist z 
zuverlaessig,%,@,fleissig,%,diszipli 
iniert,%,gruend-,@,lich und gewissen 
nhaft.Unter Be-,@,lastung,%,aber auc 
ch misstrauisch,@,und introvertiert. 
.Sie bauen Ihre,@,berufliche Positio 
on mit Ernst,@,und Konsequenz aus.Ei 
in Partner,@,mit einem Schuss Dynami 
ik ist,@,-10, eine Hilfe.,-1,@,@,Die 
e kosmobiologischen Schwachpunkte,@, 
‚von ‚-10, sind: ,@,@, Skelett 
und Haut,@,@, ‚Bei TASTENDR 
RUCK ,@, geht's weiter!,-1,@ 
@,Beruehmte Persoenlichkeiten im,@,S 
Sternzeichen von ‚-10,:,@,@,Konrad A 
Adenauer,%,Heinrich Nordhoff,%,@,Alb 
bert Schweitzer,%,Martin Niemoeller, 
‚3,@,Helmut Horten,%,Conrad Hilton,% 


30 


GIGEN,{CODE64} ,#,1,-1 

5000 YU=YU+1 

5015 IF YU THEN YA=1:G0TO 5030 
5020 SO=INT(RND(0)#256) 

5030 SOUND 0,50,10,8 

5040 SOUND 1,501,10,6 

5050 SOUND 2,502,10,4 

5055 SOUND 3,S03,10,2:IF YU=10.THEN 
YU=-1 

5056 IF YA THEN YA=0:RETURN 

5070 SO3=S02:S02=S01:SO1=SO:RETURN 


READY ! 


120 READ A$ 

130 PRINT #1;A$ 

140 IF A$="-5" THEN END 
150 GOTO 120 

2000 DATA 


READY ! 


%,@,Marlene Dietrich,%,Hilde,gard Kn 
nef.,@,@, TASTE DRUECKEN!,- 
-1,@,-10, und andere Sternzeichen: ,@ 
@,@,-10, & ‚„-11,:,@,Konzentration un 
nd Hemmung,@,verbinden sich mit,@,Si 
inn fuer Reform und Freiheitsdrang., 
‚@e,@,-10, & ‚„-12,:,@,Konzentration u 
und Hemmung,@,verbinden sich mit,@,S 
Sensibilitaet und Beeinfiussbarkeit. 
.,-1,@,-10, & ‚„-13,:,@,Konzentration 
n und Hemmung,@,verbinden sich mit,@ 
@,Dynamik und Impulsivitaet.,@,@,-10 
0, & ‚„-14,:,@,Konzentration und Hemm 
mung,@,verbinden sich mit,@,Beharrli 
ichkeit und Materialismus.,-1,@,-10, 
»‚& „-15,:,@,Konzentration und Hemmu 
ung,@,verbinden sich mit,@,Flexibili 
itaet und Ruhelosigkeit.,@,@,-10, & 
‚-16,:,@,Konzentration und Hemmung, 
‚@,verbinden sich mit Fuer-,@,sorgli 
ichkeit und Verschlossenheit,.,-1,@, 
‚10, & ‚„-17,:,@,Konzentration und H 
Hemmung,@,verbinden sich mit Selbst- 
-,@,sicherheit und Selbstueb,erschae 
etzung.,@,@,-10, & ‚-18,:,@,Konzentr 
ration und Hemmung,@,verbinden sich 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Astrologie 





mit,@,Korrektheit und Pedan,terie., 
„-1,@,-10, & ‚„-19,:,@,Konzentration 

und Hemmung,@,verbinden sich mit,®@, 
‚Diplomatie und Opportunismu,s.,@,@, 
‚10, & ‚„-20,:,@,Konzentration und H 
Hemmung,@,verbinden sich mit,@,Wille 
enskraft und Fanatismus.,-1,@,-10, & 
& „-21,:,@,Konzentration und Hemmung 
g,@,verbinden sich mit,@,Idealismus 

und Tendenz,@,ueber's Ziel, hinausz 
zuschiessen. ,‚@,@,-10, & STEINBOCK: ,@ 
@,Konzentration und Hemmung,@,verbin 
nden sich.,-5;, 


2 Wassermann == 
%#2,@,SIE SIND WASSERMANN!,@,An ‚-11, 
‚'s Geburtstag stand,@,die Sonne im 
Zeichen Wassermann. ,@,@,Positive Ei 
igenschaften: ,@,Reformerisches Denke 
en,%,soziales,@,und humanitaeres Eng 
gagement,%,@,Menschenk,enntnis.,@,@, 
‚Negative Eigenschaften: ‚@,Auflehnun 
ng gegen Bevormundung ,%,@,Freiheitsd 
drang bis -manie.,-1,@,-11, merken S 
@,ver,binden sich mit ‚@,Konzentrati 
ion und, Hemmung.,@,@,-11, & WASSERM 
MANN: ,‚@,Sinn fuer Reform und Freihei 
its,drang,@,verbinden sich.,-5, 
Sie sich:,@,@,Sie sind dynamisch und 
d zukunfts-,‚,@,orientiert.Es faszinie 
ert Sie,%,@,ungewoehnliche Aufgaben 
zu ueber-,@,nehmen,%,Unmoegliches m 
moeglich zu,@,machen.Sie sind nicht 
frei, von,@,Ungeduld und selten ste 
etig.,@,-11,%,Sie sollten einen,@,ko 
onzentrierten,%,ruhigen Partner,@,an 
n, Ihrer Seite haben,%,dem Sie,@,ein 
n guter Freund sind.,-1,@,@,Die kosm 
mobiologischen Schwachpunkte,@,fuer, 
» »=11, sind: ,@,@,Kreislauf und Vene 
en,@,@, Bei Tastendruck,@, 
geht's weiter!,-1,@,Berueh 
hnmte Persoenlichkeiten,@,im Sternzei 
ichen von ‚-11,:,@,@,Friedrich der G 
Grosse,%,Abraham,@,Lincoln,%,Theodor 
r Heuss,%,Ludwig,@,Ehrhard,%,Kardina 
al Frings,%,@,Herrmann Kahn,%,Juliet 
tte Greco,%,@,Nas,tasja Kinski,%,Joh 
hn Travolta.,@,@, TASTE DR 
RUECKEN!,-1,@,-11, und andere Sternz 
zeichen: ,@,@,-11, & ‚-12,:,@,Sinn fu 
uer Reform und Freiheitsdrang,@,verb 
binden, sich mit,@,Sensibilitaet und 
d Vertraeumtheit.,@,@,-11, & ‚-13,:, 
‚@,Sinn fuer Reform und Freiheits,dr 
rang,@,verbinden sich mit,@,Dynamik 
und Impulsivitaet.,-1,@,-11, & ‚-14 
4,:,@,Sinn fuer Reform und ‚Freiheit 


Eine Publikation von CHIP 


tsdrang,@,verbinden sich mit,@,Behar 
rrlichkeit und Materialismus.,@,@,-1 
11, & „-15,:,@,Sinn, fuer Reform und 
d Freiheitsdrang,@,verbinden sich mi 
it,@,Flexibilitaet und Ruhelosigkeit 
t.,-1,@,-11, & ‚-16,:,@,Sinn fuer Re 
eform und Freiheitsdrang,@,verbinden 
n sich mit,@,Fuersorglichkeit und, V 
Verschlossenheit.,@,@,-11, & ‚-17,:; 
‚e,Sinn fuer Reform und Freiheitsdra 
ang,@,verbinden sich mit Selbst-,@,s 
sicherheit und Selbstueberschaetzung 
8-.,-71,@,-11, & ‚„-18,:,@,Sinn fuer Re 
eform und Freiheitsdrang,@,verbinden 
n sich mit,@,Korrektheit und Pedante 
erie.,@,@,-11, & ‚„-19,:,@,Sinn fuer 
Reform und Freiheitsdr,ang,@,verbin 
nden sich mit,@,Diplomatie und Oppor 
rtunismus.,‚-1,@,-11, & ‚„-20,:,@,Sinn 
n fuer Reform und ‚Freiheitsdrang,@, 
‚verbinden sich mit,@,Willenskraft u 
und Fanatismus.,‚@,@,-11, & ‚-21,:,@, 
‚Sinn fuer Re,form und Freiheitsdran 
ng,@,verbinden sich mit,@,Idealismus 
s und Tendenz,@,ueber's Ziel hinausz 
zuschiessen. ,‚-1,@,-11, & ‚„-10,:,@,Si 
inn fuer Reform und Freiheitsdrang,@ 
3 Fische % 
#3,@,SIE SIND FISCH!,@,An ‚-12,'s Ge 
eburtstag stand,@,die Sonne im Zeich 
hen Fisch.,@,@,Positive Eigensch,aft 
ten: ,‚@,Sensibilitaet,%,Aufnahmefaehi 
igkeit,%,@,Geduld,%,Naechstenliebe., 
‚@,@,Negative Eigenschaften: ,@,Beein 
nflussbarkeit,%,Stimmungswechsel,%,@ 
@,Nachlaessigkeit,%,Bequemlichkeit., 
‚-1,@,-12, merken Sie sich: ,@,@,-12, 
‚ ist ein sehr empfindsamer,@,Mensch 
h,%,der haeufig in die Welt der,@,Tr 
raeume und des Scheins flieht.Sie,@, 
‚moechten allen Menschen helfen,%,do 
och,@,bleibt es oft beim Wunsch. ‚Sie 
e,@,sind kein Kaempfer und resignier 
ren,@,sehr schnell.,-12, braucht,@,e 
einen mutigen und kampfesfreu,digen, 
‚@,Partner an der Seite.,-1,@,@,Die 
kosmobiologischen Schwachpunkte,@,v 


von ‚-12, sind:,@,@,Fuesse und das L 
Lymphsystem,@,@, Bei TASTEN 
NDRUCK,@, geht's weiter!,-1 


1,@,Beruehmte Persovenlichkeiten im,@ 
@,Sternzeichen von ‚-12,:,@,@,Galile 
eo Galilei,%,Albert Einstein,%,@,Kar 
rlheinz Boehm,%,Heinz Ruehmann,%,@,G 
Grete Weiser,%,Michele Morgan,%,@,Ro 
osa Luxemburg,%,Karl May,%,@,Nadja T 
Tiller,%,Rudolf Steiner.,@,@, 


31 


Astrologie 


TASTE DRUECKEN!,-1,@,-12, und an 
ndere Sternzeichen: ,‚@,@,-12, & ‚-13, 
‚:,@,Sensibilitaet und Vertraeumthei 
it,@,verbinden sich mit,@,Dynamik un 
nd Impulsivitaet.,@,@,-12, & ‚-i4,:, 
‚@,Sensibilitaet und Vertraeumtheit, 
‚@,verbinden sich mit,@,Beharrlichke 
eit und Materi,alismus.,‚-1,@,-12, & 

‚-15,:,@,Sensibilitaet und Vertraeu 
umtheit,@,verbinden sich mit,@,Flexi 
ibilitaet und Ruhelos,igkeit.,@,@,-1 
12, & ‚„-16,:,@,Sensibilitaet und Ver 
rtraeumtheit,@,verbinden sich mit Fu 
uer-,@,sorglichkeit und Versch, losse 
enheit.,-1,@,-12, & ‚„-17,:,@,Sensibi 
ilitaet und Vertraeumtheit,@,verbind 
den sich mit Selbst-,@,sicherheit un 
nd Selbst,ueberschaetzung.,@,@,-12, 

& „-18,:,@,Sensibilitaet und Vertra 
aeumtheit,@,verbinden sich mit,@,Kor 
rrektheit und Pedanterie.,-1,@,-12, 

& „-19,:,@,Sensibilitaet und Vertra 
aeumtheit,@,verbinden sich mit,@,Dip 
plomatie und Opportunis,mus.,@,@,-12 
2, & ,„-20,:,@,Sensibilitaet und Vert 
traeumtheit,@,verbinden sich mit,@,W 
Willenskraft und Fanatismus.,-1,@,-1 
12, & „-21,:,@,Sensibilitaet und Ver 
rtraeumtheit,@,verbinden sich mit,@, 
‚Idealismus und Tendenz uebers,@,Zie 
el hinauszuschiessen.,‚@,@,-12, & ,-1 
10,:,@,Sensibilitaet und Vertraeumth 
heit,@,verbinden sich mit,@,Konzentr 
ration und Hemmung. ,‚-1,@,-12, & ,-11 
1,:,@,Sensibilitaet und Vertraeumthe 
eit,@,verbinden sich mit,@,Sinn fuer 
r Reform und Freiheit,sdrang.,@,@,-1 
12, & FISCH: ,‚@,Sensibilitaet und Ver 
rtraeumtheit,@,verbinden sich.,-5, 


4 Widder YP 


*4,@,SIE SIND WIDDER!,@,An ‚„-13,'s G 
Geburtstag stand,@,die Sonne im Zeic 
chen Widder. ,@,@,Positive Eigenschaf 
ften: ,‚@,Dynamik,%,Tatkraft,%,Mut,%,@ 
@,Zielbewusstsein,%,Kuehnheit.,@,@,N 
Negative Eigenschaften: ,@,Herrschsuc 
cht,%,Streitlust,%,@,Aggressivitaet. 
.,-1,@,-13, merken Sie sich: ,@,@,Sie 
e verfuegen ueber eine grosse Dyna-, 
‚@,mik und starke Vitalitaet.Im ‚Ber 
rufs-,@,leben versuchen Sie sich erf 
folgreich,@,durchzusetzen,%,wennglei 
ich nicht immer,@,mit ‚feinen Mittel 
In. ,‚-13, ist,@,lebhaft und impulsiv, 
‚),weiss gut zu,@,formulieren,%,ist 
schlagfertig, in der,@,Diskussion u 


32 


und allzeit gespraechsbe-,‚@,reit.Ihr 
r Partner sollte kritischdis-,‚,@,tanz 
zierte, Vernunft mitbringen. ,-1,@,@, 
‚Die kosmobiologischen Schwachpunkt, 
‚@,fuer ‚-13, sind: ,@,@,Kopf und Hyp 
pertonie,@,@, ‚Bei TASTENDR 
RUCK ,@, geht's weiter!,-1,@ 
@,Beruehte Persoenlichkeiten im,@,St 
ternzeichen von ,‚-13,:,@,@,Nikita Ch 
hruchtschow,%,Wilhelm Bunsen, %,@,Vin 
ncent van Gough,%,Werner v.Braun,%,@ 
@,Herbert v. Karajan,%,Anna Magnani, 
‚%,@,Wilhelm Conrad Roentgen,%,Casan 
nova,%,@,Jean Paul Belmondo,%,Rudi D 
Dutschke.,@,@, TASTE DRUECK 
KEN!,-1,@,-13, und andere Sternzeich 
hen: ,‚@,@,-13, & ‚-14,:,@,Dynamik und 
d Impulsivitaet,@,verbinden sich mit 
t,@,Beharriichkeit und Materialismus 
s.,@,@,-13, & ‚„-15,:,@,Dynamik und Ik 
Impulsivitaet,@,verbinden sich mit,@ 
@,Flexibilitaet und Ruhelosigkeit.,- 
-1,@8,-13, & ‚„-16,:,@,Dynamik und Imp 
pulsivitaet,@,verbinden sich mit Fue 
er-,@,sorglichkeit und Verschlossenh 
heit,.,@,@,-13, & ‚„-17,:,@,Dynamik u 
und Impulsivitaet,@,verbinden sich m 
mit Selbst-,@,sicherheit und Selbst, 
‚ueberschaetzung. ,‚-1,@,-13, & ‚„-18,: 
:,@,Dynamik und Impulsivitaet,@,verb 
binden sich mit,@,Korrektheit und Pe 
edanterie.,@,@,-13, & ‚„-19,:,@,Dynam 
mik und Impulsivitaet,@,verbinden si 
ich mit,@,Diplomatie und Opportunism 
mus.,-1,@,-13, & ‚-20,:,@,Dynamik un 
nd Impulsivitaet,@,verbinden sich mi 
it,@,Willenskraft und Fanatismus.,@, 
‚@,-13, & ‚„-21,:,@,Dynamik und Impul 
lsivitaet,@,verbinden sich mit,@,lIde 
ealismus und Tendenz,@,ueber's ‚Ziel 
l hinauszuschiessen. ,‚-1,@,-13, & ,-1 
10,:,@,Dynamik und Impulsivitaet,@,v 
verbinden sich mit,@,Konzentration u 
und Hemmung.,‚@,@,-13, & ‚-11,:,@,Dyn 
namik und Impulsivitaet,@,verbinden 
sich mit,@,Sinn fuer Reform und Fre 
eiheitsdrang.,‚-1,@,-13, & ‚-12,:,@,D 
Dynamik und Impulsivitaet,@,verbinde 
en sich mit,@,Sensibilitaet und Beei 
influssbar,keit.,@,@,-13, & WIDDER:, 
‚@,Dynamik und Impulsivitaet,@,ver,b 
binden sich.,-5, 
5 Ste % 

%*#5,@,SIE SIND STIER!,@,An ‚-14,'s Ge 
eburtstag stand,@,die Sonne im Zeich 
hen Stier.,@,@,Positive Eigen,schaft 
ten: ,@,Beharrlichkeit,%,Verinnerlich 


Chip Computer-Programme Atari 600 XLU/800 XU/65 XE 


Astrologie 





hung ,%,@,Formensinn,%,Kunstverstaend 
dnis.,‚@,@,Negative Eigen,schaften:,@ 
@,Materialismus,%,Bequemlichkeit,%,@ 
@,Genuss-Sucht. ,‚-1,@,-14, merken Sie 
e sich: ,@,@,Sie sind ein langmuetige 
er und fuer-,@,sorglicher Mensch,%,t 
treffen keine Ent-,@,scheidung ohne 
reif,lich zu ueberle-,@,gen und str 
reben nach Sicherheit und ‚@,Stabili 
itaet.Riskante Aktionen sind,@,Ihnen 
n, suspekt.Ihre Geduld ist sehr,@,gr 
ross,%,wird sie ueberstrapaziert,%,e 
ent-,@,laedt sich die gestaute, Aggr 
ression,@,eruptiv.Vom Partner erwart 
tet,@,-14, Solidaritaet und Treue.,- 
-1,@,@,Der kosmobiologische Schwachp 
punkt,@,von ‚-1i4, ist:,@,@, 
der Hals,@,@, Bei ‚TASTENDR 
RUCK ,@, geht's weiter!,-1,@, 
‚Beruehmte Persoenlichkeiten,@,im St 
ternzeichen von ‚-14,:,@,@,Koenigin, 
‚Elisabeth von England,%,@,Juliane 
von Holland,%,Golda Meir,%,@,Evita 
Peron,%,Maria Theresia,%,Paul,%,@,H 
Hoerbiger,%,Hildegard Hamm-Bruecher, 
‚%,@,Sigmund Freud,%,Sebastian Kneip 
pp,%,@,Bernhard Grzimek,%,Fritz, Kor 
rtner.,@, ‚TASTE DRUECKEN!,- 
-1,@,-14, und andere Sternzeichen: ,@ 
@,@,-14, & ‚-15,:,@,Beharrlichkeit M 
Materialismus,@,verbinden sich mit,@ 
@,Flexibilitaet und Ruhelosigkeit.,@ 
@,@,-14, & ‚„-16,:,@,Beharrlichkeit u 
und Materialismus,@,verbinden sich m 
mit Fuer-,@,sorglichkeit und ‚Versch 
hlossenheit.,-1,@,-14, & ‚„-17,:,@,Be 
eharrlichkeit und Materialismus,@,ve 
erbinden sich mit Selbst-,@,sicherhe 
eit und ‚Selbstueberschaetzung.,@,@, 
‚14, & ‚18 ;: ‚@,Beharrlichkeit und 
Materialismus,@,verbinden sich mit, 
‚@,Korrektheit und Pedanterie.,-1,@, 
‚„-ı4, & ‚-19,: ‚@e,Beharrlichkeit und 
Materialismus,@,verbinden sich mit, 
‚@,Diplomatie und Opportunismus.,@,@ 
@,-14, & ‚„-20,:,@,Beharrlichkeit und 
d Materialismus,@,verbinden sich mit 
t,@,Willenskraft und Fanatismus.,-1, 
‚@,-14, & ‚„-21,:,@,Beharrlichkeit un 
nd Materialismus,@,verbinden sich mi 
it,@,Idealismus und Tendenz,@,ueber'! 
's Ziel hinauszuschiessen. ,‚@,@,-14, 
& „-10,:,@,Beharrlichkeit und Mater 
rialismus,@,verbinden sich mit,@,Kon 
nzentration und Hemmung. ,‚-1,@,-14, & 
& „-11,:,@,Beharrlichkeit und Materi 
jialismus,@,verbinden sich mit,@,Sinn 


Eine Publikation von CHIP 


n fuer Reform und Frei,heitsdrang.,@ 
@,@,-14, & ‚„-12,:,@,Beharrlichkeit u 
und Materialismus,@,verbinden sich m 
mit,@,Sensibilitaet und Beeinfluss,b 
barkeit.,-1,@,-14, & ‚„-13,:,@,Beharr 
rlichkeit und Materialismus,@,verbin 
nden sich mit,@,Dynamik und Impulsiv 
vitaet.,@,@,-14, & STIER :,@,Beharrl 
lichkeit und Materialismus,@,verbind 
den sich.,-5, 


6 Zwillinge I 


*6,@,SIE SIND ZWILLING!,@,An ‚-15,'s 
s Geburtstag stand,@,die Sonne im Ze 
eichen Zwilling.,@,@,Positive ‚Eigen 
nschaften: ,‚@,Flexibilitaet,%,Vielsei 
itigkeit,%,@,Handlungsbereitschaft,% 
%,Sprach-,@,und Redebegabung.,‚@,@,Ne 
egative Eigenschaften: ,‚@,Ruhelosigke 
eit,%,Wankelmuetigkeit,%,@,Oberflaec 
chlichkeit.,-1,@,-15, merken Sie sic 
ch:,@,@,Sie sind ein sehr schnell re 
eagieren-,@,der Mensch mit einem bew 
weglichen und,@,wachen Verstand .Eind 
druecke werden so-,@,fort aufgenomme 
en,%, verarbeitet und,@,der Umgebung 
mitge,teilt.Ihre Liebe,@,zur Abwech 
hslung laesst haeufig das,@,Ausreife 
en eines Gedankens vermissen. ,‚@,-15, 
‚ sollte sich um einen ruhi-,@,gen P 
Partner bemuehen,%,der bei Ideen-,@, 
‚Fluten die Spreu vom Weizen, trennt 
t.,-1,@,@,Die kosmobiologischen Schw 
wachpunkte,@,von ‚-15, sind: ,@,@, 
Bronchien und Nerven,@,@, 
Bei TASTENDRUCK,@, geht 
t's weiter!,-1,@,Beruehmte Persoenli 
ichkeiten im,@,Sternzeichen von ,‚-15 
5,:,@,@,J.F.Kennedy,%,Thomas Mann,%, 
‚Charles,%,@,Aznavour,%,Konstantin W 
Wecker ,%,@,Peter Frankenfeld,%,0livi 
ia Pascal,%,@,Francoise Saga,%,Judy 
Garland,%,@,Marilyn Monroe,%,Josepf 
fine Baker.,@,@, TASTE DRUE 
ECKEN!,-1,-15, und andere Sternzeich 
hen: ,‚@,@,-15, & ‚-16,:,@,Flexibilita 
aet und Ruhelosigkeit,@,verbinden si 
ich mit Fuer-,@,sorglichkeit und Ver 
rschlossenheit.,@,@,-15, & ‚-17,:,@, 
‚Flexibilitaet und Ruhelosigkeit,@,v 
verbinden sich mit Selbst-,@,sicherh 
heit und Selbstueberschaetzung. ,-1,@ 
@,-15, & ‚„-18,:,@,Flexibilitaet und 
Ruhelosigkeit,@,verbinden sich mit, 
‚@e,Korrektheit und Pedanterie.,@,@,- 
-15, & ‚„-19,:,@,Flexibilitaet und Ru 
uhelosigkeit,@,verbinden sich mit,@, 


33 


Astrologie 


‚Diplomatie und Opportunismus.,-1,@, 
‚15, & ‚-20,:,@,Flexibilitaet und R 
Ruhelosigkeit,@,verbinden sich mit,@ 
@,Willenskraft und Fanatismus.,@,@,- 
-15, & ‚„-21,:,@,Flexibilitaet und Ru 
uhelosigkeit,@,verbinden sich mit,@, 
‚Idealismus und Tendenz,@,ueber's Zi 
iel hinauszuschiessen.,‚-1,@,-15, & , 
‚-10,:,@,Flexibilitaet und Ruhelosig 
gkeit,@,verbinden sich mit,@,Konzent 
tration und Hemmung. ,‚@,@,-15, & ‚-11 
1,:,@,Flexibilitaet und Ruhelosigkei 
it,@,verbinden sich mit,@,Sinn fuer 

Reform und Freiheitsdrang.,-1,@,-15 
5, & ‚„-12,:,@,Flexibilitaet und Ruhe 
elosigkeit,@,verbinden sich mit,@,Se 
ensibilitaet und Beeinflussbarkeit., 
‚e,@,-15, & ‚-13,:,@,Flexibilitaet u 
und Ruhelosigkeit,@,verbinden sich m 
mit,@,Dynamik und Impulsivitaet.,-1, 
‚@e,-15, & ‚„-14,@,Flexibilitaet und R 
Ruhelosigkeit,@,verbinden sich mit,@ 
@,Beharrlichkeit und Materialismus., 
‚e,@,-15, & ZWILLING:,@,Flexibilitae 
et und Ruhelosigkeit,@,verbinden sic 
ch.,-5, 


T Krebs & 


%*7,@,SIE SIND KREBS!,@,@,An ‚-16,'s 
Geburtstag stand die,@,Sonne im Zei 
ichen Krebs.,@,@,Positive Eigenschaf 
ften: ,‚@,Fuersorglichkeit,%,Gefuehlsr 
reichtum,%,@,Haeuslichkeit und Guete 
e.,@,@,Negative Eigenschaften:,@,Ver 
rschlossenheit,%,Zurueckhaltung,3,®@, 
‚Empfindlichkeit.,-1,@,-16, merken S 
Sie sich: ,‚@,@,Sie sind sensibel und 
haben Gespuer,@,fuer Menschliches.H 
Hinter Ihrer ha,rten,@,Schale verbir 
rgt sich ein weiches,@,Innenleben.Im 
m Team und in der Familie,@,sind Sie 
e fuersorg,lich und erkennen,@,als e 
erster Fehlentwicklungen und,@,Spann 
nungen. ,‚-16, ist um Har-,@,monie bem 
mueht,%,oft um jeden Preis.Fuer,@,da 
as innerbetriebliche Klima sind,@,Si 
ie eine Garantie.,-1,@0,@,Die kosmobi 
iologischen Schwachpunkte,@,von ,‚-16 
6, sind: ,@,@,Magen,%,Leber und Galle 
e,@,@, Bei TASTENDRUCK,@, 
geht's weiter!,-1,@,Beruehm 
mte Persoenlichkeiten im,@,Sternzeic 
chen von ‚-16,:,@,@,Franz Kaffka,%,J 
Jean-Jacques Rousseau,%,@,Hermann He 
esse,%,Jean, Anouilh,%,@,Kaethe Koll 
lwitz,%,Louis Armstrong ,%,@,Gina Lol 
llobrigida,%,Natalie Wood,%,@,Friedr 


rich, Flick,%,0.E.Flick.,@,@, 

TASTE DRUECKEN!,-1,@,-16, und and 
dere Sternzeichen: ,@,@,-16, & ,-17;: 
:,@,Fuersorglichkeit und Verschlosse 
en-,@,heit verbinden sich mit Selbst 
t-,@,sicherheit und Selbstueberschae 
etzung. ‚@,@,-16, & ‚-18,:,@,Fuersorg 
glichkeit und Verschlossen-,@,heit v 
verbinden sich mit,@,Korrektheit und 
d Pedanterie.,-1,@,-16, & ‚-19,:,@,F 
Fuersorglichkeit und Verschlossen-,@ 
@,heit verbinden sich mit,@,Diplomat 
tie und Opportunismus.,‚@,@,-16, & ,‚- 
-20,:,@,Fuersorglichkeit und Verschi 
lossen-,@,heit verbinden sich mit,@, 
‚Willenskraft und Fanatismus.,-1,@,- 
-16, & ‚„-21,:,@,Fuersorglichkeit und 
d Verschliossen-,@,heit verbinden sic 
ch mit,@,Idealismus und Tendenz uebe 
er's,@,Ziel hinauszuschiessen.,@,@,- 
-16, & ‚„-10,:,@,Fuersorglichkeit und 
d Verschlossen-,@,heit verbinden sic 
ch mit,@,Konzentration und Hemmung.;, 
‚-1,@,-16, & ‚„-11,:,@,Fuersorglichke 
eit und Verschlossen-,‚,@,heit verbind 
den sich mit,@,Sinn fuer Reform und 

Freiheitsdrag.,@,@,-16, & „-12,:,@, 
‚Fuersorglichkeit und Verschlossen-, 
‚@,heit verbinden sich mit,@,Sensibi 
ilitaet und Beeinfiussbarkeit.,-1,@, 
„16, & ‚„-13,:,@,Fuersorglichkeit un 
nd Verschlossen-,‚,@,heit verbinden si 
ich mit,@,Dynamik und Impulsivitaet. 
.,‚@,@,-16, & ‚„-14,:,@,Fuersorglichke 
eit und Verschilossen-,@,heit verbind 
den sich mit,@,Beharriichkeit und Ma 
aterialismus.,‚-1,@,-16, & ‚„-15,:,@,F 
Fuersorglichkeit und Verschlossen-,@ 
@,heit verbinden sich mit,@,Flexibil 
litaet und Ruhelosigkeit.,@,@,-16, & 
& KREBS: ,‚@,Fuersorglichkeit und Vers 
schlossen-,@,heit verbinden sich.,-5 
55 


8 Löwe N 


%*#8,@,SIE SIND LOEWE!,@,An ‚-17,'s Ge 
eburtstag stand,@,die Sonne im Zeich 
hen Loewe.,@,@,Positive Eigenschafte 
en: ,@,Selbstsicherheit,%,0Organsation 
ns-,@,talent,%,Fuehrungseigenschaft, 
‚%,@,Grosszuegigkeit.,@,@,Negative E 
Eigenschaften: ‚@,Selbstueberschaetzu 
ung,%,Egoismus,%,@,Neigung zur Despo 
otie.,-1,@,-17, merken Sie sich: ,@,@ 
@,Sie verfuegen ueber eine erstaunli 
iche,@,Seibstsicherheit,%,sind volle 
er, Lebens-,@,kraft und vertrauen au 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


uf das eigene,@,Koennen und den ents 
sprechenden Er-,@,folg.,-17, versteh 
ht zu organi-,@,sieren,%,ist grosszu 
uegig und einsatz-,@,freudig.Zollt m 
man Ihnen nicht ‚genug,@,Beachtung,% 
%,reagieren Sie manchmal,@,mit Arrog 
ganz und Rechthaberei.Ihren,@,Freund 
den sind ‚Sie ein guter Freund.,-1,@ 
@,@,Die kosmobiologischen Schwachpun 
nkte,@,von ‚,-17, sind:,@,@, Herz un 
nd Kreislauf.,@,@, Bei TAST 
TENDRUCK,@, geht's weiter!, 
‚„-1,@,Beruehmte Persoenlichkeiten im 
m,@,Sternzeichen von ,‚-17,:,@,@,Napo 
oleon I.,%,Benito Mussolini,%,@,Hail 
le Selassie,%,Makarios III.,%,@,Habi 
ib Burgiba,%,Jaqueline ‚Kennedy,%,@, 
‚Fidel Castro,%,Prinzessin Margerete 
e,%,@,Henry Ford,%,Kaiser Franz Jose 
ef I.v.0.,%,@,Aifried Krupp v.Bohlen 
n-Halbach.,@,@, TASTE DRUEC 
CKEN!,-1,-17, und andere Sternzeiche 
en: ,‚@,@,-17, & ‚„-18,:,@,Selbstsicher 
rheit und Selbstueber-,@,schaetzung 
verbinden sich mit,@,Korrektheit un 
nd Pedanterie.,@,@,-17, & ‚-19,:,@,5 
Selbstsicherheit und Selbstueber-,@, 
‚schaetzung verbinden sich mit,@,Dip 
plomatie und Opportunismus.,-1,@,-17 
7, & ‚„-20,:,@,Selbstsicherheit und S 
Selbstueber-,@,schaetzung verbinden 
sich mit,@,Willenskraft und Fanatis 
smus.,‚@,@,-17, & ‚„-21,:,@,Selbstsich 
herheit und Selbstueber-,@,schaetzun 
ng verbinden sich mit,@,Idealismus u 
und Tendenz uebers,@,Ziel hinauszusc 
chiessen. ,‚-1,@,-17, & ‚„-10,:,@,Selbs 
stsicherheit und Selbstueber-,@,scha 
aetzung verbinden sich mit,@,Konzent 
tration und Hemmung. ,@,@,-17, & ,-11 
1,:,@,Selbstsicherheit und Selbstueb 
ber-,@,schaetzung verbinden sich mit 
t,@,Sinn fuer Reform und Freiheitsdr 
rang. ,‚-1,@,-17, & ‚-12,:,@,Selbstsic 
cherheit und Selbstueber-,@,schaetzu 
ung verbinden sich mit,@,Sensibilita 
aet und Beeinflussbarkeit.,@,@,-17, 
& „-13,:,@,Selbstsicherleit und Sel 
lbstueber-,@,schaetzung verbinden si 
ich mit,@,Dynamik und Impulsivitaet. 
.,-1,@,-17, & ‚-14,:,@,Selbstsicherh 
heit und Selbstueber-,@,schaetzung v 
verbinden sich mit,@,Beharrlichkeit 
und Materialismus. ,‚@,@,-17, & ‚„-15, 
‚:,@,Selbstsicherheit und Selbstuebe 
er-,@,schaetzung verbinden sich mit, 
‚@,Flexibilitaet und Ruhelosigkeit., 


Eine Publikation von CHIP 


Astrologie 


‚-1,@,-17, & ‚„-16,:,@,Selbstsicherhe 
eit und Selbstueber-,@,schaetzung ve 
erbinden sich mit Fuer-,@,sorglichke 
eit und Verschlossenheit.,@,@,-17, & 
& „LOEWE ,:,@,Selbstsicherheit und 
Selbstueber-,@,schaetzung verbinden 
n sich. ,-5;, 


9 Jungfrau MP 


*9,@,SIE SIND JUNGFRAU! ,@,An ‚-18,'s 
s Geburtstag stand,@,die Sonne im Ze 
eichen Jungfrau. ,@,@,Positive Eigens 
schaften: ,@,Korrektheit,%,analytisch 
hes Denken, %,@,Ordnungssinn,%,Method 
dik.,@,@,Negative Eigenschaften:,@,P 
Pedanterie,%,kritisches Denken,%,@,N 
Noergelei.,-1,@,-18, merken Sie sich 
h:,@,@,Ordnung ist fuer Sie das halb 
be Leben.,@,Sie sind kein Senkrechts 
starter,%,son-,@,dern arbeiten sich 
systematisch nach,@,oben.Wenn an de 
er Basis nicht jede ‚@,Kleinigkeit s 
stimmt,%,geraten Sie in,@,Gefahr ped 
dantisch zu reagieren.Der,@,Partner 
von ‚„-18, ‚sollte die,@,grosse Lini 
ie vertreten,%,waehrend,@,-18, dem H 
Hang zur Praezision,@,und der Liebe 
zum ‚Detail froent.,-1,@,@,Kosmobio 
ologischer Schwachpunkt,@,von ,-18,;: 
:,@,@, Der Verdaungstrakt,@,@, 
Bei TA,STENDRUCK,@, 
geht's weiter!,-1,@,Beruehnmte Pe 
ersoenlichkeiten im,@,Sternzeichen v 
von ,‚-18,:,@,@,Ingrid Bergmann,%,Gre 
eta Garbo,%,@,Romy Schneider,%,Agath 
ha Christie,%,@,Franz Beckenbauer,%, 
‚Eduard Moerike,%,@,Johann W.v.Goeth 
he,%,Carl Zeiss,%,@,Theodor Storm,%, 
‚Claus v.Amsberg.,@,@, TAST 
TE DRUECKEN!,-1,@,-18, und andere St 
ternzeichen: ,‚@,@,-18, & ‚-19,:,@,Kor 
rrektheit und Pedanterie,@,verbinden 
n sich mit,@,Diplomatie und Opportun 
nismus.,‚@,@,-18, & ‚„-20,:,@,Korrekth 
heit und Pedanterie,@,verbinden sich 
h mit,@,Wiiienskraft und Fanatismus. 
.,-1,@,-18, & ‚-21,:,@,Korrektheit u 
und Pedanterie,@,verbinden sich mit, 
‚@,Idealismus und Tendenz,@,uebers Z 
Ziel hinauszuschiessen.,‚@,@,-18, & , 
‚-10,:,@,Korrektheit und Pedanterie, 
‚@,‚verbinden sich mit,@,Konzentratio 
on und Hemmung. ‚-1,@,-18, & ‚-11,:,@ 
@,Korrektheit und Pedanterie,@,verbi 
inden sich mit,@,Sinn fuer Reform un 


Astrologie 


nd Freiheitsdrang.,‚@,@,-18, & ‚-12,: 
:,@,Korrektheit und Pedanterie,@,ver 
rbinden sich mit,@,Sensibilitaet und 
d Beeinflussbarkeit.,-1,@,-18, & ,-1 
13,:,@,Korrektheit und Pedanterie,@, 
‚verbinden sich mit,@,Dynamik und Im 
mpulsivitaet.,@,@,-18, & ‚-14,:,@,Ko 
orrektheit und Pedanterie,@,verbinde 
en sich mit,@,Beharrlichkeit und Mat 
terialismus.,‚-1,@,-18, & ‚„-15,:,@,Ko 
orrektheit und Pedanterie,@,verbinde 
en sich mit,@,Flexibilitaet und Ruhe 
elosigkeit.,@,@,-18, & ‚„-16,:,@,Korr 
rektheit und Pedanterie,@,verbinden 

sich mit Fuer-,@,sorglichkeit und V 
Verschiossenheit.,-1,@,-18, & ‚-17;: 
:,@,Korrektheit und Pedanterie,@,ver 
rbinden sich mit Selbst-,@,sicherhei 
it und Selbstueberschaetzung. ,@,@,-1 
18, & JUNGFRAU: ,‚@,Korrektheit und Pe 
edanterie,@,verbinden sich.,-5, 


10 Waage = 


%*10,@,SIE SIND WAAGEI!,@,An ‚-19,'s G 
Geburtstag stand,@,die Sonne im Zeic 
chen Waage.,@,@,Positive Eigenschaft 
ten: ,‚@,Diplomatie,%,Ausgleichungsbes 
streben, %,@,Gemeinschaftssinn,%,Kuns 
stver,staendnis.,‚@,@,Negative Eigens 
schaften: ‚@,0Opportunismus,%,Konflikt 
tscheu,%,@,Beeinflussbarkeit,%,Wanke 
elmuetigkeit.,-1,@,-19, merken Sie s 
sich: ,@,@,Sie sind friedliebend und 
immer um,@,Ausgleich bemueht.Gutes 
Aussehen ‚und,@,gute Umgangsformen 
sind fuer Sie sehr,@,wichtig.Sie in 
nteressieren sich fuer,@,Kunst und M 
Musik.Eine regelrechte Ab-,@,scheu e 
empfinden Sie vor Gewalt, .In,@,Ihrer 
r konzillianten Art sind Sie ein,@,G 
Gewinn fuer jede Gemein,schaft,%,mue 
essen,@, jedoch lernen,%,Konflikte of 
ffen auszu-,@,tragen.,‚-1,@,@,Kosmobi 
iologische Schwachpunkte,@,von ,‚-19, 


‚:,0,0@, Nieren-,%,Blasen-,%,Harnt 
trakt.,@,@, Bei TASTENDRUCK 
K,@, geht's weiter!,-1,@,Be 


eruehmte Persoenlichkeiten im,@,Ster 
rnzeichen von ,‚-19,:,@,@,Freiherr v. 
«Knigge ,%,Mahatma Gandhi,%,@,David B 
Ben Gurion,%,Heinrich Luebke,%,@,Her 
rrmann Abs,%,Alfred Nobel,%,@,Konsta 
antin Tschernenko,%,Elly Ney,%,@,Bri 
igitte Bardot,%,Rita Hayworth.,@,@, 
TASTE DRUECKEN!,-1,@,-19, un 
nd andere Sternzeichen: ,‚@,@,-19, & , 


‚-20,:,@,Diplomatie und Opportunismu 
us,@,verbinden sich mit,@,Willenskra 
aft und Fanatismus.,@,@,-19, & ,-21, 
‚:,@,Diplomatie und Opportunismus,®@, 
‚verbinden sich mit,@,Idealismus und 
d Tendenz,@,uebers Ziel hinauszuschi 
iessen. ,‚-1,@,-19, & ‚-10,:,@,Diploma 
atie und Opportunismus,@,verbinden s 
sich mit,@,Konzentration und Hemmung 
8-.,8,@,-19, & ‚„-11,:,@,Diplomatie un 
nd Opportunismus,@,verbinden sich mi 
it,@,Sinn fuer Reform und Freiheitsd 
drang. ,‚-1,@,-19, & ‚-12,:,@,Diplomat 
tie und Opportunismus,@,verbinden si 
ich mit,@,Sensibilitaet und Beeinflu 
ussbarkeit.,@,@,-19, & ‚„-13,:,@,Dipi 
lomatie und Opportunismus,@,verbinde 
en sich mit,@,Dynamik und Impulsivit 
taet.,-1,@,-19, & ‚-14,:,@,Diplomati 
ie und Opportunismus,@,verbinden sic 
ch mit,@,Beharrlichkeit und Material 
lismus.,@,@,-19, & ‚-15,:,@,Diplomat 
tie und Opportunismus,@,verbinden si 
ich mit,@,Flexibilitaet und Ruhelosi 
igkeit.,-1,@,-19, & ‚-16,:,@,Diploma 
atie und Opportunismus,@,verbinden s 
sich mit Fuer-,@,sorglichkeit und Ve 
erschlossenheit.,@,@,-19, & ‚„-17,:; 
@,Diplomatie und Opportunismus,@,ver 
rbinden sich mit Selbst-,@,sicherhei 
it und Selbstueberschaetzung. ‚-1,@,- 
-19, & ‚„-18,:,@,Diplomatie und Oppor 
rtunismus,@,verbinden sich mit,@,Kor 
rrektheit und Pedanterie.,@,@,-19, & 
& WAAGE:,@,Diplomatie und Opportunis 
smus,@,verbinden sich.,-5, 


TI Skorpion ML, 


*11,@,SIE SIND SKORPION!,@,An ,‚-20,' 
'!s Geburtstag stand,@,die Sonne im Z 
Zeichen Waage.,@,@,Positi,ve Eigensc 
chaften: ‚@,Willenskraft,%,Zaehigkeit 
t,%,@,Furchtlosigkeit,%,Kampfesmut., 
‚@e,@,Negative Eigenschaften: ,@,Fanat 
tismus,%,uebertriebener Ehrgeiz,%,@, 
‚Eifersucht,%,Ruecksichtslosigkeit,. 
.,-1,@,-20, merken Sie sich: ,‚@,@,Sie 
e sind sensibel,%,signalisieren aber 
r,@,Kampfbereitschaft.Deshalb, leben 
n Sie,@,oft in einer disharmonischen 
n Umwelt.,@,Sie streben nach Fuehrun 
ng.,-20,%,@,Sie sind nur ruhig,%,wen 
nn Sie alles,@,selbst im Griff ‚habe 
en.Die Menschen,@,in Ihrer Naehe fue 
ehlen sich deshalb,@,oft dominiert.S 
Steckt jedoch die ‚Karre,@,im Dreck, 
‚3,ist Ihre Kampflust und Ihre,@,Zae 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


ehigkeit sehr gefragt.,-1,@,@,Die ko 
osmobiologischen Schwachpunkte,@,von 
n ‚-20, sind: ,@,@, Genitalberei 
ich und Enddarm,@,@, Bei Ta 
astendruck ,@, geht's weiter 
r!,-1,@,Beruehmte Persoenlichkeiten 
im,@,Sternzeichen von ‚-20,:,@,@,Ma 
artin Luther,%,Indira Gandhi,%,@,Pan 
ndit Nehru,%,Pablo Picasso,%,@,Rudol 
lf Augstein,%,Woif Biermann,%,@,Grac 
ce Kelly,%,Barbara Hutton,%,@,Cather 
rin Hepburn,%,Marie Curie.,@,@, 
TASTE DRUECKEN!,-1,-20, und and 
dere Sternzeichen: ‚@,@,-20, & ‚-21,: 
:,@,Willenskraft und Fanatismus,@,ve 
erbinden sich mit,@,Idealismus und T 
Tendenz ueber's,@,Ziel hinauszuschie 
essen. ,‚@,@,-20, & ‚-10,:,@,Willenskr 
raft und Fanatismus,@,verbinden sich 
h mit,@,Konzentration und Hemmung.,- 
-1,@,-20, & ‚„-11,:,@,Willenskraft un 
nd Fanatismus,@,verbinden sich mit,@ 
@,Sinn fuer Reform und Freiheitsdran 
ng.,@,@,-20, & ‚„-12,:,@,Willenskraft 
t und Fanatismus,@,verbinden sich mi 
it,@,Sensibilitaet und Beeinflussbar 
rkeit.,-1,@,-20, & ‚-13,:,@,Willensk 
kraft und Fanatismus,@,verbinden sic 
ch mit,@,Dynamik und Impulsivitaet., 
‚@,@,-20, & ‚„-14,:,@,Willenskraft un 
nd Fanatismus,@,verbinden sich mit,@ 
@,Beharrlichkeit und Materialismus., 
‚-1,@,-20, & ‚-15,:,@,Willenskraft u 
und Fanatismus,@,verbinden sich mit, 
‚@,Flexibilitaet und Ruhelosigkeit., 
‚@,@,-20, & ‚-16,:,@,Willenskraft un 
nd Fanatismus,@,verbinden sich mit F 
Fuer-,@,sorglichkeit und Verschlosse 
enheit.,-1,@,-20, & ‚„-17,:,@,Willens 
skraft und Fanatismus,@,verbinden si 
ich mit Selbst-,@,sicherheit und Sel 
lbstueberschaetzung. ,@,@,-20, & ‚-18 
8,:,@,Willenskraft und Fanatismus,@, 
‚verbinden sich mit,@,Korrektheit un 
nd Pedanterie.,-1,@,-20, & ‚-19,:,@, 
‚Willenskraft und Fanatismus,@,verbi 
inden sich mit,@,Diplomatie und Oppo 
ortunismus. ,@,@,-20, & SKORPION: ,@,W 
Willenskraft und Fanatismus,@,verbin 
nden sich.,-5, 
12 Schütze x' 

#*12,@,SIE SIND SCHUETZE!,@,@,An ,‚-21 
1,'s Geburtstag stand die,@,Sonne im 
m Zeichen Schuetze.,@,@,Positive Eig 
genschaften: ,@,Idealismus,%,Begeiste 
erungsfaehigkeit,%,@,Mut,%,starker G 
Gerechtigkeitssinn,.‚@,@,Negative Ei 


Eine Publikation von CHIP 


Astrologie 


igenschaften: ,‚@,Tendenz uebers Ziel 

hinauszuschiessen,@,und schonungsio 
os zu kri,tisieren.,‚-1,@,-21, merken 
n Sie sich: ,@,@,Sie lassen sich in k 
keine Schabione,@,zwaengen,%,beharre 
en auf Selbstaen,dig-,@,keit und Una 
abhaengigkeit.Sie sind auf,@,Expansi 
ion eingestellt.,‚Deshalb ist das,@,A 
Ausland fuer Sie von grossem Reiz.,@ 
@,Ihren Standpunkt vertreten Sie mit 
t,@,Vehemenz, und kuemmern sich weni 
ig um,@,die Meinung anderer.Der Part 
tner von,@,-21, sollte Ruhe und Erdv 
ver-,@,bundenheit in das Leben bring 
gen. ,‚-1,@,@,Die kosmobiologischen Sc 
chwachpunkte,@,von ‚-21, sind:,@,@,H 
Hueften und Lunge,@,®@, Bei 

TASTENDRUCK,@, geht's weit 
ter!,-1,@,Beruehmte Persoenlichkeite 
en im,@,Sternzeichen von ,‚-21,:,0@,@, 
‚Frank Sinatra,%,Ludwig v.Beethoven, 
‚%3,@,Hector Berlioz,%,Winston Church 
hill,%,@,Curd Juergens,%,Willy Brand 
dt,%,@,Carlo Schmitt,%,Maria Callas, 
‚%,@,Alice Schwarzer,%,Barbara Valen 
ntin.,@,@, TASTE DRUECKEN!, 
„-1,-21, und andere Sternzeichen: ,@, 
‚@,-21, & ‚-10,:,@,Idealismus und Te 
endenz uebers Ziel,@,hinauszuschiess 
sen verbinden sich mit,@,Konzentrati 
ion und Hemmung. ,@,@,-21, & ‚-11,:,@ 
@,Idealismus und Tendenz uebers Ziel 
l,@,hinauszuschiessen verbinden sich 
h mit,@,Sinn fuer Reform und Freihei 
itsdrang.,‚-1,@,-21, & ‚-12,:,@,Ideal 
lismus und Tendenz uebers Ziel,@,hin 
nauszuschiessen verbinden sich mit,@ 
@,Sensibilitaet und Beeinflussbarkei 
it.,@,@,-21, & ‚-13,:,@,Idealismus u 
und Tendenz uebers Ziel,@,hinauszusc 
chiessen verbinden sich mit,@,Dynami 
ik und Impulsivitaet.,-1,@,-21, & ‚- 
-14,:,@,Idealismus und Tendenz ueber 
rs Ziel,@,hinauszuschiessen verbinde 
en sich mit,@,Beharrlichkeit und Mat 
terialismus.,@,@,-21, & ‚„-15,:,@,Ide 
ealismus und Tendenz uebers Ziel,@,h 
hinauszuschiessen verbinden sich mit 
t,@,Flexibilitaet und Ruheiosigkeit. 
.,-1,@,-21, & ‚-16,:,@,Idealismus un 
nd Tendenz uebers,@,Ziel hinauszusch 
hiessen,@,verbinden sich mit Fuer-,@ 
@,sorglichkeit und Verschlossenheit. 
.,‚@,@,-21, & ‚-17,:,@,Idealismus und 
d Tendenz uebers,@,Ziel hinauszuschi 
iessen,@,verbinden sich mit Selbst-, 
‚@,sicherheit und Selbstueberschaetz 


37 


zung. ,‚-1,@,-21, & ‚-18,:,@,Idealismu 
us und Tendenz uebers Ziel,@,hinausz 
zuschiessen verbinden sich mit,@,Kor 
rrektheit und Pedanterie.,@,@,-21, & 
& ‚„-19,:,@,Idealismus und Tendenz ue 
ebers Ziel,@,hinauszuschiessen verbi 
inden sich mit,@,Diplomatie und Oppo 


Bestimmites Integral 


(Atari 600XL/800XL) 


Das bestimmte Integral einer gege- 
benen Funktion zwischen zwei 
Grenzen berechnet dieses Programm. 
Angenommen, eine Funktion ist durch 
eine Gleichung bestimmt, also etwa 
y=sin(x). Stellt man diese Funktion 
in einem Koordinatensystem dar, so 
ist das bestimmte Integral dieser 
Funktion zwischen zwei Grenzen die 
Fläche zwischen Kurve und x-Achse 
von der einen Grenze bis zur ande- 
ren. Zur Berechnung des Integrals 
wird diese Fläche in kleine Trapeze 
zerteilt. Je feiner diese Untertei- 
lung ist, desto genauer wird die 
Fläche unter der Kurve angenähert. 


Zwei Möglichkeiten 


Am Beginn des Programms hat man die 
Wahl, wie die Funktion dem Computer 
mitgeteilt wird. Falls nur einzelne 
Punkte bekannt sind, etwa die Meß- 


10 REM BESTIMMTES INTEGRAL 
20 REM FUER CHIP-SPECIAL 


30 REM VON S. THALLER 

40 REM ------------- - - -- -- 
50 REM 

10 ? "{CODE125}":? "Dieses Programm 

berechnet das{9SPACES}bestimmte Inte 
gral einer Funktion. " 

80 ? :? "Dabei werden zwei Faelle " 

90 ? "unterschieden: "!" 

100 ? :? "Fali {CODE177}: 
r einzeıne Funktion-werte 
ie Genauigkeit des"! 

110 ? "Ergebnisses haengt 
zahi{5SPACES}dieser Werte 


Es sind nu 
bekannt. D 


von der An 
ab." 


ortunismus.,-1,@,-21, & ‚-20,:,@,Ide 
ealismus und Tendenz uebers Ziel,@,h 
hinauszuschiessen verbinden sich mit 
t,@,Willenskraft und Fanatismus.,@,@ 
@,-21, & SCHUETZE:,@,Idealismus und 

Tendenz uebers Ziel,@,hinauszuschie 
essen verbinden sich.,-5, 


werte eines Experiments, so müssen 
diese der Reihe nach eingebenen 
werden, also vom kleinsten x-Wert 
zum größten. Die einzelnen Punkte 
brauchen voneinander nicht densel- 
ben Abstand zu haben. Je mehr 
Punkte eingebenen werden, desto 
genauer ist die Rechnung. 


Ist hingegen die Funktionsgleichung 
bekannt, so kann diese nach einer 
automatischen Unterbrechnung des 
Programms in Zeile 2000 geschrieben 
werden. Anschließend muß das Pro- 
gramm mit CONT fortgesetzt werden. 
Dann erfolgt die Frage nach der 
Anzahl der Teilintervalle. Wenn 
diese zu groß gewählt werden, kann 
der Speicherbedarf zu groß sein. 


Nach Ausgabe der Lösung kann man 
eine neue Berechnung mit höherer 
Genauigkeit anfordern. 


Dr.Sigrid Thaller 


:? "Fall {CODE178}: Die Funkti 
z.B. F( 


120 ? 
on ist als Gleichunggegeben, 
x)=sin(x). Hier haengt"; 

130 ? "die Genauigkeit des Ergebniss 
es von{3SPACES}der Anzahi der Teilin 
tervaıle ab." 

140 7 :? :? "Bitte geben Sie an, in 
weicher Form{3SPACES}die Funktion ge 
geben ist." 

150 TRAP 200:INPUT Z:TRAP 50000 

160 IF Z=1 THEN GOTO 3000 

170 IF Z=2 THEN GOTO 1000 

200 ? "{CODE253}":GOTO 140 

999 REM #{3SPACES}FUNKTION EINGEBEN{ 
5SPACES} * 


Chip Computer-Programme Atari 600 XL/800 XU/65 XE 


1000 ? "{CODE125}":? "Bitte geben Si 
e die Funktion in Zeile 2000 ein, 2. 
B." 

1010 ? :? "2000 FX=SIN(X)+X"2{10SPAC 
ES}{ CODE2 10/ 197/212/213/210/206}* 
1020 ? :? "Dann geben Sie bitte CONT 
ein und{5SPACES}druecken {CODE210/1 
97/212/213/210/206}“ 

1050 STOP 

1060 ? :? "Zwischen weichen Grenzen 
A und B soli das Integral berechnet 

werden?" 

1070 TRAP 1100:? "A = "s:INPUT A:? “ 
B = “"ssINPUT B:TRAP 50000 

IF A>B iHEN ? "{CODEZ253}":GOTO 


GOTO 1110 

? "{CODE253}":GOTO 1070 

1110 ? :? "In wievieie Teilintervali 
e solı das{3SPACES}Intervail [A,B] z 
erlegt werden?" 

1120 TRAP 1160:INPUT N:TRAP 50000 
1130 IF INT(N)<>N OR N<1 THEN ? "{co 
DE253}":GOTO 1120 

1140 GOTO 1160 

1150 ? "{CODE253}":GOTO 1120 

1160 DIM F(N),A$(1) 

1170 FOR I=0 TO N 

1180 X=A+I#(B-A)/N 

1190 GOSUB 1990 

1200 F(I)=FX 

1210 NEXT I 

1215 F=0 

1220 FOR I=1 TON 

1230 F=F+(F(I-1)+F(I))*(B-A)/(2#N) 
1240 NEXT I 

1250 GOSUB 5000 

1260 ? :? "Wollen Sie den Wert des I 
ntegrais{5SPACES}genauer oder zwisch 
en zwei anderen{4SPACES}Grenzen bere 
chnen? J/N"; 


1270 TRAP 1300:INPUT A$:TRAP 50000 
1280 IF A$="J" THEN CLR :GOTO 1060 
1290 IF A$="N" THEN END 

1300 ? "{CODE253}":GOTO 1270 

1990 TRAP 2005 

2000 FX=1/X 

2003 TRAP 50000:G0OTO 2010 


2005 ? :? "Die Funktion ist an der S 
teile " 

2006 ? "X = #;X 

2007 ? "nicht berechenbar." 


2008 END 

2010 RETURN 

3000 ? "{CODE125}":? "Wieviele Werte 
wolien Sie eingeben!; 

3010 TRAP 3020:INPUT N:TRAP 50000:G0 


Eine Publikation von CHIP 


To 3030 

3020 ? "{CODE253}":GOTO 3000 

3030 IF INT(N)<>N OR N<=1 THEN ? "{C 

ODE253}";"Bitte geben Sie eine ganze 
Zahl{7SPACES}groesser als 1 ein":GO 

TO 3010 

3040 DIM A(N),B(N),C(N),A$(1) 

3050 ? :? "Geben Sie bitte die Werte 
der Groesse nach (in der 1. Kompone 

nte) geordnet{2SPACES}ein." 

3060 FOR I=1 TO N 

3070 TRAP 3130 
3080 7 :7 15". 
A,B 
3090 


Wert: X,Y = ";:INPUT 
TRAP 50000 

3100 C(I)=A:B(I)=B 

3110 IF I>1 AND C(I)<C(I-1) THEN ? : 
? "Der X-Wert ist kleiner als der X- 
Wert des vorigen Punktes. Bitte ande 
ren " 
3115 
Wert 
3120 


IF I>1 AND C(I)<C(I-1) THEN ? " 
eingeben.":GOTO 3080 

GOiO 3140 

3130 ? "{CODE253}":GOTO 3080 

3140 NEXT I 

3150 ? :? “Zwischen welchen Grenzen 
soli das{5SPACES}Integrai berechnet 
werden?" 

3155 FOR I=1 TO N:sA(I)=C(I):NEXT I 
3160 ? "Groesster zulaessiger Bereic 
h ist von A = ";A(1); 

3170 ? " bis B = "5A(N) 

3180 TRAP 3240 


3190 ? :? "Bitte geben Sie die Grenz 
en ein:!" 
3200 ? :? "A = ";ssINPUT A:? ıB = 1; 


INPUT B:TRAP 50000 
3220 IF A<A(1) OR B>A(N) OR A>B THEN 
? "{CODE253}":GOTO 3190 


3230 GOTO 3250 

3240 ? "{CODE253}":GOTO 3190 

3249 REM #*BERECHNUNG DER RANDPUNKTE* 
3250 IF A=A(1) THEN J=1:G0T0O 3350 
3260 FOR I=2 TO N 

3270 IF A<=A(I) THEN GOTO 3290 

3280 NEXT I 

3290 IF A=A(I) THEN J=1:G0TO 3350 
3300 IF A<A(ıI) THEN AB=B(I-1)+(B(I)- 


BILI-1)) Bl A-ALI-1I)I/CATEI=AT=T)) 
3320 A(I-1)=A:B(I-1)=AB:J=I-1 

3350 IF B=A(N) THEN K=N:GOTO 3450 
3360 FOR I=N-1 TO 1 STEP -1 

3370 IF B>=A(I) THEN GOTO 3390 

3380 NEXT I 

3390 IF B=A(I) THEN K=I:G0TO 3450 
3400 IF B>A(I) THEN BB=B(I)+iB(I+1)- 
B(I))#(B-A(I))/(ACI+1)-A(I)) 


A(I+1)=B:B(I+1)=BB:K=I+1 
REM % BERECHNUNG DES INTEGRALS 


F=0 
FOR I=J TO K-1 
F=F+(B(I+1)+B(I))®(ACI+I)-A(I)) 


NEXT I 

GOSUB 5000 

3510 ? :? "Wollen Sie den Wert des I 
ntegrals{5SPACES}zwischen zwei ander 
en Grenzeni9SPACES}berechnen? JıN";5 


3520 TRAP 3560:iNPUT A$:TRAP 50000 
3530 IF A$="J" THEN GOTO 3150 

3540 IF A$="N" THEN END 

3560 ? "{CODE253}":GOTO 3510 

4499 REM #{5SPACES}AUSGABE{YSPACES} * 
5000 ? :? :? "Das: Integral von "1:7? 4 


;" bis #;B:?7 "betraegt:" 
5010 ? :? F 
5100 RETURN 


READY ! 


Primfaktoren \ \} 


(Atari 600XL/800XL) 


Primfaktorenzerlegung 'zu Fuß' ist 
eine mühsame und zeitaufwendige 
Angelegenheit. Dabei werden solche 
Zerlegungen häufig gebraucht, etwa 
bei der Berechnung vom größten 
gemeinsamen Teiler und dem klein- 
sten gemeinsamen Vielfachen zweier 
Zahlen oder beim Brüche-Kürzen. 


1 REM PRIMFAKTOREN 

2 REM FUER CHIP-SPECIAL 
3 REM VON S. THALLER 

4 REM ----------- 
5 REM 


10 DIM A(28) 

15 ? CHR$(125) 

17 SETCOLOR 1,0,0:SETCOLOR 2,0,10:SE 
TCOLOR 4,0,10 

20 ? :? :? "WELCHE POSITIVE GANZE ZA 
HL SOLL IN{4SPACES}PRIMFAKTOREN ZERL 
EGT WERDEN"; 

30 TRAP 240:INPUT A:TRAP 50000 

40 ? 

50 IF (INT(A)<>A) OR (A=0) OR (ABS(A 
)<>A) THEN GOTO 250 

60 IF A>200000000 THEN GOTO 270 

90 B=A 

100 N=1:1=1 

105 IF A=1 THEN A(1)=1:G0T0 200 

110 I=I+1 

115 IF I>SQR(A) THEN A(N)=A:GOTO 200 
120 IF I=A THEN A(N)=A:GOTO 200 

130 IF A/I=INT(A/I) THEN A(N)=I:A=A/ 


Mit diesem Programm können Sie nun 
ganz schnell feststellen, ob eine 
beliebige natürliche Zahl bis 
200000000 eine Primzahl ist bzw. in 
welche Primzahlen sie sich zerlegen 
läßt. 


Dr. Sigrid Thaller 


I:N=N+1:GOTO 120 

135 IF A=1 THEN GOTO 200 

140 GOTO 110 

200 ? B;"t = nsa(1); 

205 IF (N=1) AND (B<>1) THEN ? "{3SP 
ACES}DAS IST EINE PRIMZAHL":GOTO 20 


207 IF N=1 THEN GOTO 20 
210 FOR J=2 TO N 

220 ? m ns; a(J); 

230 NEXT J 

235 GOTO 20 

240 ? er 

250 ? "(CODE2S3}";nFaLse 


260 3-"BITTE EINE ER 3120648 
184197), Uun- _{CODE2 ae: 


01721 } a A encrocnt 


:GOTO 
370 ? a cdprgshn; 


280 ? :? "DIESE ZAHL IST ZU GROSS. B 
ITTE EINE{3SPACES}NEUE ZAHL EINGEBEN 
":GOTO 30 


READY ! 


Chip Computer-Programme Atari 600 XL/800 XU/65 XE 




















(Atari 600XL/800XL) 


Die folgenden beiden Programme 
lösen Gleichungssysteme mit zwei 
oder drei Unbekannten. Solche 
Systeme kommen sehr häufig bei 
praktischen Berechnungen vor. Die 
Programme eignen sich auch zur 


Überprüfung von Hausaufgaben für 
der Schule. 


Gleichungssysteme mit zwei 
diese 


Lineare 
Unbekannten können immer in 
Form gebracht werden: 

Ax + By. =C 

Dx +Ey=F 
Die Buchstaben A,B ... F sind die 
gegebenen Zahlen, x und y die ge- 
suchten Variablen. Das Gleichungs- 
system besitzt genau dann eine 
Lösung, wenn die Determinante AE-BD 
nicht Null ist. Dann erhält man die 
Lösung durch die Formeln: 

x = (CE-BF)/(AE-BD) 

y = (AF-CD)/(AE-BD). 


Faßt man nun die Werte x und y als 


Koordinaten eines Punktes in der 
Ebene auf, so stellen die beiden 
Gleichungen zwei Geraden dar. Die 
Lösungsmenge ist die Menge der 
gemeinsamen Punkte dieser Geraden. 
Dabei unterscheidet man drei 
Möglichkeiten. 


1. Die Geraden schneiden sich; der 
Schnittpunkt ist die 
Lösung. 


eindeutige 





Eine Publikation von CHIP 


2. Die Geraden sind identisch; alle 
Punkte auf dieser Geraden sind 
Lösungen des Systens. 

3. Die Geraden sind parallel und 
nicht identisch; sie haben also 
keine gemeinsamen Punkte und damit 
das Gleichungssystem auch keine 
Lösung. 


Gleichungen mit drei Unbekannten 


Die Grundform eines Gleichungssys- 


tems mit drei Unbekannten lautet: 
Ax +By+Cz=D 
Ex +fy+Gz=H 
Ix+dy+Kz=1L 

Für ein solches Gleichungssystenm 


gilt das oben gesagte, nur daß die 
einzelnen Zeilen nun als Ebenen im 
Raum aufgefaßt werden können. Die 
Lösungsmenge ist wiederum durch die 
gemeinsamen Punkte aller drei Ebe- 
nen bestimmt. Hierbei gibt es nun 
acht verschiedene Fälle, die im 
Programm erklärt werden. Der ein- 
fachste ist dann gegeben, wenn sich 
die Ebenen in einem Punkt schnei- 
den. Dann hat auch das dazugehörige 


Gleichungssystem genau eine Lösung. 


Das Programm entscheidet, welche 
geometrische Situation vorliegt, 
gibt eine kurze Erklärung aus und 
berechnet die Lösung, falls sie 
existiert. 


Dr. Sigrid Thaller 








230 ? "so definieren die zwei Gleich 
ungen" 

240 ? "zwei Geraden in der Ebene und 
die" 

250 ? "gesuchte Loesung ist der Schn 
itt-" 

260 ? "punkt dieser Geraden." 

265 ? :? :? 

270 ? :? "Bitte {CODE211/208/ 193/195 
/197}-Taste druecken" 

280 IF PEEK(753)<>3 THEN GOTO 280 
290 POKE 764,255 

300 REM KUH 
Bi 


310 REM *{10SPACES}EINGABE{ 10SPACES} 
* 


320 REM KUN 
* 

330 ? :? "Eingebe der 1. Gleichung A 
X+BY=C:" 

340 TRAP 400 

350 7 2? "A,B,C = "5:INPUT A,B,C:TRA 
P 50000 


360 IF ABS(A)+ABS(B)<>0 THEN GOTO 43 


0 

370 ? :? "{CODE253}":? "Das ist kein 
e sinnvolle Eingabe." 

380 ? "Mindestens eine der Zahlen A 
und B" 

390 ? "sollte von 
ein.":GOTO 330 


null verschieden s 


400 ? "{CODE253}":GOTO 330 

430 ? :? "Eingabe der 2. Gleichung D 
X+EY=F;" 

440 TRAP 500 
450 ? :? "D,E,F = "5:INPUT D,E,F:TRA 
P 50000 


460 IF ABS(D)+ABS(E)<>0 THEN GOTO 54 
0 


REM LINEARE GLEICHUNGSSYSTEME 
REM MIT DREI UNBEKANNTEN 


REM FUER CHIP-SPECIAL 
REM VON S. THALLER 
REM 


REM 
100 REM HRHHERREREEEEEEEEE EEE 
* 


a\Vu Fwm-—_ 


120 REM *{4SPACES} PROBLEMSTELLUNG {8S 


PACES}*# 
140 REM FHRHSRSEREREEREUEERURERENEN 


* 

145 GRAPHICS 0:SETCOLOR 1,0,0:SETCOL 
OR 2,0,10:SETCOLOR 4,0,10 

146 POKE 756,204 


42 


470 ? :? "{CODE253}":? 
e sinnvolle Eingabe." 
480 ? "Mindestens eine 
und E" 

490 ? "sollte von null 
ein.":GOTO 430 


500 ? "{CODE253}":GOTO 430 
510 REM KERERRERRRRREER FRE NERERERUERR 


N"Das’ ist kein 
der Zahlen D 


verschieden Ss 


520 REM #{2SPACES}BERECHNUNG DER LOE 


SUNG{3SPACES}* 
530 REM KuRunukEmn 
* 


DET=A#E-B#D 
DETX=C#E-B#F 
DETY=A#F-C#D 
REM MH 


540 
550 
590 
600 
* 

610 
620 
%* 


REM #{9SPACES}AUSGABE{ 11SPACES}* 
REM HHRRRERERERERERRKEREEEEERERE 


630 IF DET=0 THEN GOTO 700 

640 ? :? "Es existiert eine eindeuti 
ge Loesung{2SPACES} (die Geraden habe 
n genau einen " 

650 ? "Schnittpunkt):" 

660 ? :? :? "{9SPACES}X = "5DETX/DET 
670 ? :? "{9SPACES}Y = ";DETY/DET 
680 END 

700 IF DETX=0 AND DETY=0 THEN ? :? “" 
Es existieren unendlich viele Loesun 
- gen (die Geraden sind identisch) ." 
:END 


710 ? :? "Es existiert keine Loesung 
(die{7SPACES}Geraden sind parallel) 
" 

720 END 

READY |! 


147 DIM A$(4),B$(4),C$(4),D$C4),E$(4 
),F$(4),G$C4),H$CH),I$CU),J$CH),K$CH 
),L$(4) 

150 ? "Es sind drei Gleichungen der 
Form" 


160: 737 

170 2? "{6SPACES}Ax + By + Cz = D" 
180 ? 

190 ? "{6SPACES}Ex + Fy + Gz = H" 
200 ? 

210 ? "{6SPACES}Ix + Jy + Kz = L" 
220’7-37 

230 ? "gegeben, wobei die Buchstaben 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 





240 ? "A,B,...L Zahlen und x,y,z die 
" 

250 ? 
260 ? 
270 ? "Fasst man x,y und z als Koord 
inaten! 

280 ? "eines Punktes im 3-dimensiona 
len! 

290 ? "Raum auf, 
rei" 

300 ? "Gleichungen drei Ebenen im Ra 
um und" 

310 ? "die gesuchte L{CODE15}sung is 
t der" 

320 ? "Schnittpunkt (bzw. die Schnit 
tgerade)" 

330 ? "dieser Ebenen." 

340 ? :? "Bitte {CODE211/208/ 193/195 
/197}-Taste dr{CODE10}cken" 

345 IF PEEK(753)<>3 THEN GOTO 345 


350 POKE 764,255 
380 REM MEkmuuuunn 
* 


400 
420 
“ 


"gesuchten Variablen sind." 


so definieren die d 


REM #{9SPACES}EINGABE{11SPACES}* 
REM HRRRRRRRUUREEREEER EEE 


430 ? :? "Eingabe der 1. Gleichung A 

x+By+Cz=D:" 

440 TRAP 495 

450 2? :? "A,B,C,D = ";:INPUT A,B,C,D 
:TRAP 50000 

452 A$="{2SPACES}":IF A<O THEN A$="- 
" 


454 B$="x + ":IF B<O THEN B$="x - 
456 C$="y + ":IF C<O THEN C$="y — " 
458 D$="z = 

460 IF ABS(A)+ABS(B)+ABS(C)<>0 THEN 
GOTO 510 

470 2? :? "{CODE253}":? "Das ist kein 
e sinnvolle Eingabe." 


480 ? "Mindestens eine der Zahlen A, 
B und C" 
490 2? "sollte von null verschieden s 


ein.":GOTO 430 


495 ? "{CODE253}":GOTO 430 
500 REM 
510 ? :? "Eingabe der 2. Gleichung E 


x+Fy+Gz=H:" 

515 TRAP 570 

520 ? :? "E,F,G,H = "5:INPUT E,F,G,H 
:TRAP 50000 

522 E$="{2SPACES}":IF E<O THEN E$="- 
n 


524 F$="x + ":IF F<O THEN F$=e"tx - 
526 G$="y + ":IF G<O THEN G$="y - " 
528 H$="z - ı 

530 IF ABS(E)+ABS(F)+ABS(G)<>O0 THEN 
GOTO 610 


Eine Publikation von CHIP 


540 ? :? "{CODE253}":? "Das ist kein 
e sinnvolle Eingabe" 
550 ? "Mindestens eine 
F und G" 

560 ? "sollte von null 


ein.":GOTO 510 


der Zahlen E, 


verschieden Ss 


570 ? "{CODE253}":GOTO 510 
600 REM 
610 ? :? "Eingabe der 3. Gleichung I 


x+Jy+Kz=L:" 

615 TRAP 670 

620 TER "I,J,K,L = "s:INPUT I,J,K,L 
:TRAP 50000 

622 I$="{2SPACES}":IF I<O THEN I$="- 


J$="x + "EIF J<O THEN J$="x - 
K$="y + ":IF K<O THEN K$="y — " 
628 L$ 
630 IF ABS(I)+ABS(J)+ABS(K)<>0 THEN 

GOTO 750 

640 ? :? "{CODE253}":? "Das ist kein 
e sinnvolle Eingabe." 

650 ? "Mindestens eine der Zahlen I, 
J und K" 

660 ? "sollte von null verschieden s 
ein.":GOTO 610 


670 ? "{CODE253}":GOTO 610 
700 REM Kirk 
& 


=\!z z ı 


720 REM *{2SPACES}BERECHNUNG DER LOE 


SUNG{3SPACES}* 
740 REM FKEERERERREREREREERRERRERERHURURR N 


% 

750 DET=A#F#K+B#G#I+C#E*J-CHFRI-ARGE 
J-B#E#K 

160 IF DET=0 THEN GOTO 1060 

170 DETX=D#F#K+B#G#L+C#H#J-C#F#L-DEG 
# J- B#H#K 

180 DETY=A#H®K+D*G#I+C#E®L-CHH#I-A®G 
#L-D#ERK 

190 DETZ=A#F&L+B#H®I+D#EHJ-DEFEI-A®H 
*J-B*E#L 

800 X=DETX/DET:Y=DETY/DET:Z=DETZ/DET 


810 GOTO 3800 
1010 REM Mikmukmun 


1030 REM #® PARALLEL ODER IDENTISCH? 
% 


1050 REM #HHHRRRERERREER RER EN 
% 


1055 L12=0:L13=0:L23=0 

1060 IF A=0 THEN GOTO 1200 

1070 IF B*E/A=F AND C#E/A=G AND D#E/ 
A=H THEN L12=2 

1080 IF B#E/A=F AND C#E/A=G AND D*E/ 
A<>H THEN L12=1 

1090 IF B#I/A=J AND C#I/A=K AND D#I/ 





A=L THEN L13=2 


1100 IF B#I/A=J AND C#I/A=K AND D*I/ 
A<>L THEN L13=1 

1110 GOTO 1500 

1200 IF B=0 THEN GOTO 1300 

1210 IF A#*F/B=E AND C#®F/B=G AND D*#F/ 
B=H THEN L12=2 

1220 IF A*F/B=E AND C#F/B=G AND D#F/ 
B<>H THEN L12=1 

1230 IF A#J/B=I AND C#J/B=K AND D#J/ 
B=L THEN L13=2 

1240 IF A#J/B=I AND C#J/B=K AND D#J/ 
B<>L THEN L13=1 

1250 GOTO 1500 

1300 IF A#®G/C=E AND B#*G/C=F AND D*G/ 
C=H THEN L12=2 

1320 IF A*G/C=E AND B#G/C=F AND D*G/ 
C<>H THEN L12=1 

1330 IF A#K/C=I AND B*K/C=J AND D#K/ 
C=L THEN L13=2 

1340 IF A#®K/C=I AND B#K/C=J AND D#K/ 
C<>L THEN L13=1 

1500 IF E=0 THEN GOTO 1600 

1510 IF F*I/E=J AND G*#I/E=K AND H#1/ 
E=L THEN L23=2 

1520 IF F*1I/E=J AND G#I/E=K AND H#1/ 
E<>L THEN L23=1 

1600 IF F=0 THEN GOTO 1700 

1610 IF E*J/F=I AND G#J/F=K AND H#J/ 
F=L THEN L23=2 

1620 IF E*J/F=I AND G*#J/F=K AND H*J/ 
F<>L THEN L23=1 

1630 IF G=0 THEN GOTO 1805 

1700 IF E#K/G=I AND F#K/G=J AND H#K/ 
G=L THEN L23=2 

1710 IF E#K/G=I AND F#K/G=J AND H#K/ 


G<>L THEN L23=1 
1800 REM HHHHERRREREREEEEEERENEEENEN 
* 


1802 REM *{5SPACES}EBENENBUESCHEL?{6 


SPACES}*# 
1804 REM KERERZEREERER REEL RERER ER ER ER 


1805 FALL=L12+L13+L23:IF FALL<>O THE 
N GOTO 2150 

1810 IF A#*F-B*E=0 THEN GOTO 1900 
1820 ALPHA=(I#*F-E#*J)/(A#*F-B*E) 

1830 BETA=(A*J-I#B)/(A*F-B*#E) 

1840 IF ALPHA*C+BETA#*G=K AND ALPHA*D 
+BETA#*H=L THEN FALL=5:G0TO 2150 

1850 IF ALPHA#*C+BETA#G=K AND ALPHA*D 
+BETA#*H<>L THEN FALL=7:G0TO 2150 
1900 IF A*G-C*E=0 THEN GOTO 2000 
1910 ALPHA=(I#G-E#K)/(A#G-C#E) 

1920 BETA=(A#K-I®C)/(A*G-C#E) 

1930 IF ALPHA#*B+BETA#F=J AND ALPHA*D 
+BETA#*H=L THEN FALL=5:G0TO 2150 


44 


1940 IF ALPHA#®B+BETA#F=J AND ALPHA#D 
+BETA#*H<>L THEN FALL=7:G0TO 2150 
2000 ALPHA=(J*G-F*K)/(B*G-C#F) 

2020 BETA=(B*K-F#J)/(B*G-C#F) 

2030 IF ALPHA®*A+BETA#®E=I AND ALPHA*®D 
+BETA#*H=L THEN FALL=5:GOTO 2150 

2040 IF ALPHA#*A+BETA#E=I AND ALPHA*D 


+BETA#®H<>L THEN FALL=7:GOTO 2150 
2100 REM HHRHHRRKEREHEEEEE RE 
* 


2120 REM #{9SPACES}AUSGABE{ 10SPACES} 
* 


2140 REM HHREKESERHREREEREREREER ENTE 
# 


2150 
2160 
2170 


IF L12>L13 THEN E1=1:E2=2:E3=3 
IF L13>L23 THEN E1=1:E2=3:E3=2 
IF L23>L12 THEN E1=2:E2=3:E3=1 
2180 ? "{CODE125}" 

2200 ON FALL GOTO 3100,3200,3300,340 
0,3500,3600,3700 

2497 REM KERRRREE 
2498 REM * AUSGABE DES GL.SYSTEMS{2S 
PACES} * 

2499 REM KiHHEHEEHRUE 
250077 

2510 ? :? A$;ABS(A);B$;ABS(B);C$; ABS 
(C)sD$;D 

2520 ? :? E$;ABS(E);F$;ABS(F);G$; ABS 
(G);H$;H 

2530 ? :? I$;ABS(I);J$;ABS(J);K$;ABS 
(K)SL$5L 

2590: 7772 

2600 RETURN 

3100 ? "Die Ebenen der "5;E1;". 
;E2;". Gleichung" 

3110 ? "sind parallel. 
bene liegt" 

3120 ? "schief dazu." 
3130 ? :? "Das Gleichungssystem" 
3140 GOSUB 2500 

3150 ? "hat daher keine L{CODE15}sun 
g." . 

3160 END 

3200 ? "Die Ebenen der ";E1;5". und " 
‚E2;". Gleichung" 

3210 ? "sind identisch, 
Ebene! 

3220 ? "schneidet sie in einer Schni 
ttgeraden." 

3230 ? :? "Es existieren daher unend 
lich viele! 

3240 ? "L{CODE15}sungen des Gleichun 
gssystems!" 

3250 GOSUB 2500 

3260 END 

3300 ? "Die drei Ebenen sind paralle 
l und" 


und " 


Die ";E3;". E 


die "5E3;%. 


Chip Computer-Programme Atari 600 XU/800 XU/65 XE 


Hochrechnung 





3310 ? "haben keine gemeinsamen Punk 
te." 


3320 2? #72 

3330 ? "Das Gleichungssystem" 

3340 GOSUB 2500 

3350 ? "hat daher keine L{CODE15}sun 
g." 

3360 END 

3400 ? "Die Ebenen der ";5E1;". und " 


sE2;". Gleichung" 

3410 ? "sind identisch, 
Ebene liegt" 

3420 ? "parallel dazu. 


die ";E3;". 
es gibt keine 
3430 ? "gemeinsamen Schnittpunkte." 


3440 ? :? :? "Das Gleichungssystem" 
3450 GOSUB 2500 


3460 ? "besitzt keine L{CODE15}sung. 
" 

3470 END 

3500 ? "Die drei Ebenen haben eine g 


emeinsame Schnittgerade." 

3510 ? :? "Jeder Punkt dieser Gerade 
n ist eine!" 

3520 ? "L{CODE15}sung des Gleichungs 
systems" 

3530 GOSUB 2500 

3540 END 

3600 ? "Die drei Ebenen sind identis 
ch." 

3610 ? "Alle Punkte dieser Ebene sin 


Aprox 


(Atari 400, 800, 600XL, 800XL, 
Disketten- oder Kassettenstation) 


Wie oft kommt es vor, daß man nur 
einige Meßwerte zur Verfügung hat, 
trotzdem aber auch andere Werte 
wissen möchte. Beispiele dafür sind 
Preisentwicklungen, Wahlhochrech- 
nungen oder physikalische Zusammen- 
hänge. 

Das vorliegende Programm ermittelt 
eine Funktion, die eingebene 
Stützwerte mit möglichst großer 
Annäherung beinhaltet. Dabei sind 
vier Kurventypen möglich: 


A* X’B 
A + B*LOG(X) 


4 
R& 


Eine Publikation von CHIP 


ad" 
3620 ? "L{CODE15}sungspunkte des Gle 
ichungssystems" 

3630 GOSUB 2500 

3640 END 

3700 ? "Je zwei Ebenen schneiden ein 
ander in" 

3710 ? "einer Geraden. 
hnitt-" 

3720 ? "geraden sind parallel und ve 
rschieden." 

3730 ? :? "Es existiert daher keine 
L{CODE15}sung des" 

3740 ? "Gleichungssystems" 

3750 GOSUB 2500 

3760 END 

3800 ? "{CODE125}":? "Die Ebenen hab 
en genau einen " 

3810 ? "Schnittpunkt" 

3820 7.3? 

3830 ? "Das Gleichungssystem" 

3840 GOSUB 2500 

3850 ? "hat die eindeutige L{CODE15} 
sung: " 
3860 ? 


Diese drei Sc 


:? "{12SPACESIX = "5X 
3870 ? "{12SPACES}Y "rl 
3880 ? "{12SPACES}z "2 
3890 END 


READY |! 


3 
T 


A * e”(B*X) 
A + B’X 


Mit dem Determinationskoeffizienten 
wird die Zuverlässigkeit der gefun- 
denen Kurve ausgedrückt. Je näher 
dieser an 1 ist, desto genauer 


stimmen die berechneten Werte mit 
den tatsächlichen überein. 

Ein kleines Beispiel 

Es soll eine Hochrechnung für die 
Preisentwicklung auf dem Home- 


Computer-Markt vorgenommen werden. 
Zunächst werden einige Preise der 
letzten Jahre eingegeben: 

1979 2500.- 

1981 1900.- 


Hochrechnung 


1982 1500.- 

1983 1400.- 

1984 1150.- 
APROX findet hierfür folgende 
Formel: 


REMAPROX 
REM FUER CHIP-SPECIAL 
REM VON FRANK PFEFFER 
REM 
REM 
10 SETCOLOR 2,14,2 

20 ? "{CODE125}" 

30 ? "DIESES PROGRAMM ERMITTELT AUS 
EINER{3SPACES}ANZAHL VON X, UND Y-WE 
RTEN DEN OPTI-{2SPACES}MALEN FUNKTIO 
NSTYP.":? 

40 2? " Y= a#X”b{8SPACES} (A>0 !1) TYP 
E ıg'n,? 

50?" Y= a+b#1log(X){12SPACES}TYPE ' 
L'!"N:.? 

60 ? " Y= ate”(b#X){USPACES}(A>) I!) 
TYPE 'E'!"M:? 

70?" Y= a+b#X{17SPACES}TYPE 'p'"n:? 


V Fwmnm_o 


80 ? "WIE IN FOLGENDER TABELLE ERST 

ALLE{4SPACES}X-WERTE ‚DANN ALLE Y-WE 

RTE EINGEBEN.":? 

90 ? "{2SPACES}X-WERTE {CODE124/216/ 
177} {CODE216/ 178} {CODE216/179} bis 
{CODE216/206}{2SPACES}" 

100 ? "{2SPACES}----------------- --- 

| 

110 ? "{2SPACES}Y-WERTE {CODE124/217 

/177}3 {CODE2 17/178} {CODE217/179} bi 

s {CODE217/206} " 

120 ? :? "ANZAHL DER WERTEPAARE ??": 

POSITION 25,20:INPUT XN 

130 IF XN<2 THEN ? " N>=2 !1":G0TO 1 

20 

140 ? "DATEN VON HAND >{CODE211/212/ 
193/210/212}<{16SPACES}DATEN AUS DAT 

A >{CODE211/ 197/20%/ 197/ 195/212}<am 

Prg.-Ende" 

150 IF PEEK(53279)=6 THEN DATEN=1:G0 

TO 180 

160 IF PEEK(53279)=5 THEN DATEN=2:G0 

TO 180 

170 GOTO 150 

180 YN=XN 

190 DIM A(2,XN) 

200 FOR X=1 TO 2 

210 FOR Y=1 TO XN 

220 IF DATEN=2 THEN 280 

230 IF X=1 THEN ? Yz;3".{CODE216/173/2 
15/197/210/212}{2SPACES}??":INPUT A: 


46 


Y=5019E0O5*EXP (-0.155*X) 
Determ.-koef.=0.987 
Somit ist für 1985 ein Preisniveau 
von 952.37 zu erwarten. 
Frank Pfeffer 


A=A+1E-20:A(X,Y)=A:A=0:G0TO 250 

240 ? Y5".{CODE217/173/215/197/210/2 

12}{2SPACES}??":INPUT A:A=A+1E-20:A( 

X,Y)=A:A=0 

250 NEXT Y 

260 ? :? 

270 NEXT X:GOTO 330 

280 IF X=1 THEN ? Y;".{CODE216/173/2 

15/ 197/210/212}{2SPACES}??":READ A:A 

=A+1E-20:A(X,Y)=A:A=0:G0TO 300 

290 ? Y;5".{COoDE217/ 173/215/ 197/210/2 

12}{2SPACES}??":READ A:A=A+1E-20:A(X 

‚Y)=A:A=0 

300 NEXT Y 

310 2 :? 

320 NEXT X 

330 ? "{CODE125} ALLE WERTE SIND EIN 

GELESEN !" 

340 REM {CODE194/197/210/197/ 195/200 

/206/213/206/ 199/ 160/ 196/ 197/210/ 160 

/ 197/201/206/218/ 197/204/ 199/204/201 

/ 197/ 196/ 197/210} 

350 FOR Q=1 TO XN 

360 ? " LAUFENDE BERECHNUNG" 

370 A=A+A(1,Q) 

B=B+A(2,Q) 

C=C+(A(1,Q))”2 

D=D+(A(2,Q))”2 

TRAP 420:G=G+LOG(A(1,Q 
430:H=H+LOG(A(2,Q 

440:I=I+(LOG(A(1, 

450:J=J+(LOG(A(2, 

460: 

470: 


) 
) 
Q 
Q 
M=M+A(1,Q)*LOG 
N=N+(LOG(A(1,Q) 


) 
) 
33) 2 
3-2 
(A(2,Q)) 
LOG(A( 


480:0=0+(A(2,Q)*LOG(A(1,Q)) 
P=P+(A(1,Q)*A(2,Q)) 

XM=XM+A(1,Q) 

YM=YM+A(2,Q) 


SA=(1/(XN-1))*(P-A#B/XN) 
SB=SQR((C-E/XN)/(XN-1)) 
SC=SQR( (D-F/XN)/(XN-1)) 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Hochrechnung 





610 BE=(M- 1/XN#A*H)/(C-1/XN#E) 

620 AE=EXP(H/XN-BE#A/XN) 
u vs 
/XN 

640 BL=(0-1/XN#G#B)/(I-1/XN#K) 

650 AL=1/XN#(B-BL#G) 

660 RL=(0-1/XN#GC#B)"2/((I-1/XN#K)*(D 
-1/XN#F)) 

670 BQ=(N-G#H/XN)/(I-K/XN) 

680 AQ=EXP(H/XN-BQ#G/XN) 
RENNEN 
/XN 

700 BP=((P)-(XN#QI#R))/L(C)-(XN*(QI” 
2))) 
710 
120 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 


AP=R-BP#QI 
RP=(SA/(SB*SC))“2 
IF RE>RL THEN GOTO 
IF RL>RQ THEN GOTO 
IF RQ>RP THEN GOTO 
GOTO 890 
IF RE>RQ 
GOTO 740 
IF RE>RP 
GOTO 750 
IF RL>RP 
GOTO 750 
RK=RE: AK=AE:BK=BE 

GOSUB 910:G0TO 960 

RK=RL:AK=AL :BK=BL 

GOSUB 910:G0TO 1190 

RK=RQ: AK=AQ: BK=BQ 

GOSUB 910:G0TO 1410 
RK=RP:AK=AP:BK=BP 

GOSUB 910:G0TO 1630 
BK=(INT(BK*1000+0.5))/ 1000 

IF AK<1.0E-03 THEN GOTO 940 
AK=(INT(AK#1000+0.5))/ 1000 
RK=(INT(RK#1000+0.5))/ 1000 
RETURN 

? "{CODE125}":? :? 

GOSUB 1850 

? "yzn sAK;"#EXP(" ;BK;"#x)n;? mm 
? "DETERMINATIONSKOEFFIZIENT ="; 


770 
810 
870 
THEN 


GOTO 790 


THEN GOTO 830 


THEN GOTO 850 


1000 ? "DET.-K. RQ=";RQ 
1010 ? "{8SPACES}RL=";RL 


1020 ? "{8SPACES}RP=";RP 

1030 ? :? :? "FUER WELCHE X-WERTE ?" 
52 

1040 GOSUB 1860:G0SUB 1870:G0OSUB 188 
0 

1050 ? "{CODE125} ":? 

1060 ? "{7SPACES}Y=";AK;"#EXP(";BK;" 
xy) 

1070 7 N HRRÄRERREEREU EEE EUER 


LET 222 22 2 77 
1080 ? 


Eine Publikation von CHIP 


1090 Z=0:FOR Q=XA TO XE STEP S 

1100 Y=AK#EXP(Q#BK) 

1110 Z=Z+1 

1120 IF Z/11-INT(Z/11)=0 THEN ? "WEI 
TER MIT {CODE211/212/ 193/210/212}":G 
OTO 1140 

1130 GOTO 1160 

1135 REM {CODE20 1/206/ 160/218/ 197/20 
1/204/ 197/ 160/ 177/ 177/ 180/ 176/ 160/ 19 
4/20 1/212/212/ 197/ 160/ 177/ 179/237/22 
5/236/ 160/ 197/211/ 195/ 173/211/200/20 
1/ 198/212/ 173/ 196/ 197/204/ 197/212/ 19 
7/ 160/ 197/201/206/ 199/ 197/ 194/ 197/20 
6/ 174/ 168/20 1/206/ 160/200/207/ 195/20 
0/203/207/205/205/ 193/169} 

1140 IF PEEK(53279)=6 THEN POSITION 
0,4:? "{CODE156/ 156/ 156/ 156/ 156/ 156 / 
156/ 156/ 156/ 156/ 156/ 156/ 156 }":GOTO 1 
160 
1150 
1160 
1170 
1180 
1190 
1200 
1210 ? 
1220 ? 
;RK 
1230 ? 
1240 ? 
1250 ? 
1260 ? 
:ı? 
1270 
0 


GOTO 1140 

? "{2SPACES}X=";5Q,"y=";y 
NEXT Q 

GOSUB 1890:G0TO 1040 

? "{CODE125}":? :? 

GOSUB 1850 
NyzmsaK;"t+(msBK;"TELOG(X))" 
"DETERMINATIONSKOEFFIZIENT =" 
"DET.-K. RE=";RE 
"{8SPACES}RQ=";RQ 
"{8SPACES}RP=";RP 

:? :? "FUER WELCHE X-WERTE ?" 


GOSUB 1860:G0SUB 1870:G0OSUB 188 


1280 ? "{cCODE125} ":? 

1290 ? "{7SPACES}Y=";AK;"+(";BK;"#LO 
G(x))" 

1300 2 NEREREKERKEEREERE RER EUER RER ER RRK 
2 2 2 2 2 2 2 2 2 777 


1310 Z=0:FOR Q=XA TO XE STEP S 

1320 Y=AK+(BK#LOG(Q)) 

1330 Z=Z+1 

1340 IF Z/11-INT(Z/11)=0 THEN ? "WEI 
TER MIT {CODE211/212/ 193/210/212}":G 
OTO 1360 

1350 GOTO 1380 

1360 IF PEEK(53279)=6 THEN POSITION 

0,4:? "{CODE156/ 156/ 156/ 156/ 156/ 156 / 
a a 1 
1370 GOTO 1360 

1380 ? "{2SPACES}X=";Q,"y=";y 

1390 NEXT Q 

1400 GOSUB 1890:G0TO 1270 

1410 ? "{CODE125}":? :? 

1420 GOSUB 1850 


47 


Abrechnung 





1430 ? "Y="5;aKz"&lxt(n;BK;"))" 

1440 ? "DETERMINATIONSKOEFFIZIENT =" 
;RK 

1450 ? "DET.-K. RE=";RE 

1460 ? "{8SPACES}RL=";RL 

1470 ? "{8SPACES}RP=";RP 

1480 ? :? :? "FUER WELCHE X-WERTE ?" 
:? 

1490 GOSUB 1860:G0SUB 1870:G0SUB 188 
0 


1500 ? "{CODE125} ":? 

1510 ? "{7SPACES}Y="zAK;"#(x"(nsBK;n 
))" 

1520 7 N HRERERRERERERUNERERUNERRUNKH 
KERRERERR EN 


1530 Z=0:FOR Q=XA TO XE STEP S 

1540 Y=AK#(Q”(BK)) 

1550 Z=Z+1 

1560 IF Z/11-INT(Z/11)=0 THEN ? "WEI 
TER MIT {CODE211/212/ 193/210/212}":G 
OTO 1580 

1570 GOTO 1600 

1580 IF PEEK(53279)=6 THEN POSITION 

0,4:? "{CODE156/ 156/ 156/ 156/ 156/ 156 / 
156/ 156/ 156/ 156/ 156/ 156/ 156 }":GOTO 1 
600 


1590 GOTO 1580 

1600 ? "{2SPACES}X=";Q,"y=";Y 
1610 NEXT Q 

1620 GOSUB 1890:G0TO 1490 


1630 ? "{cODE125}":? :? 

1640 GOSUB 1850 

1650 ? "Y=nzaKzt+(n;BKznax)" 

1660 ? "DETERMINATIONSKOEFFIZIENT =" 


;RK 

1670 ? "DET.-K. RE=";RE 

1680 ? "{8SPACES}RL=";RL 

1690 ? "{8SPACES}RQ=";RQ 

1700 ? :? :? "FUER WELCHE X-WERTE ?" 
L 

1710 GOSUB 1860:G0OSUB 1870:G0SUB 188 
0 

1720 ? "{CODE125} ":? 


(Atari 800XL, Epson-Drucker) 


Das Schreiben von Rechnungen ist 
eine wichtige Handlungen im öffent- 
lichen Leben. Dabei kommt es 
durchaus auf die Form an. Nicht nur 


das Finanzamt hat Einwände gegen 
schlampige und unklare Rechnungen, 
48 


1730 ? W{7SPACES}Y=";AK;"+ (Mm; BK;"H&X) 
„ 

1740 Pan E22 2 2 2 72 2 272 272 2202 2722 2 227222 220225 
KERERRERREN 


1750 Z=0:FOR Q=XA TO XE STEP S 

1760 Y=AK+BK*Q 

1770 Z=2+1 

1780 IF Z/11-INT(Z/11)=0 THEN ? "WEI 
TER MIT {CODE211/212/ 193/210/212}":G 
OTO 1800 

1790 GOTO 1820 

1800 IF PEEK(53279)=6 THEN POSITION 
0,4:? "{CODE156/ 156/ 156/ 156/ 156/ 156 / 
156/ 156/ 156/ 156/ 156/ 156/ 156 }":GOTO 1 
820 

1810 GOTO 1800 

1820 ? "{2SPACES}X=";Q,"yY=";y 

1830 NEXT Q 

1840 GOSUB 1890:G0TO 1710 

1850 ? "DIE EINGEGEBENEN WERTEPAARE 
ENT-{6SPACES}SPRECHEN EINER FUNKTION 
:":?2 :RETURN 
1860 POSITION 
ON 8,20:INPUT 
1870 POSITION 
ON 8,21:INPUT XE:RETURN 

1880 POSITION 3,22:? "SCHRITTWEITE=" 
:POSITION 14,22:INPUT S:RETURN 

1890 ? :? "NEUBERECHNUNG MIT {CODE21 
1/212/193/210/212}{15SPACES}DURCHREC 
a MIT {CODE2 11/ 197/204/ 197/ 195/2 
12}":? 

1900 IF PEEK(53279)=6 THEN POP :RUN 
1910 IF PEEK(53279)=5 THEN RETURN 
1920 GOTO 1900 

1930 REM {CODE193/204/204/197/ 160/21 
6/ 173/215/ 197/210/212/ 197} 

1940 DATA 1,2,3 

1950 REM {CODE193/204/204/ 197/ 160/21 
7/ 173/215/ 197/210/212/ 197} 

1960 DATA 2,4,6 


READY I 


3,20:? "VON X=":POSITI 
XA:RETURN 
3,21:? "BIS X=":POSITI 


auch Geschäftspartner und Kunden 
beurteilen ein Unternehmen nach 
äußeren Erscheinungsformen. 

Sichere Handhabung 


Das Programm CASH bringt Rechnungen 
aller Art sauber zu Papier. Die 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Abrechnung 





benötigten Daten wie Adresse und 
Bankverbindung des Ausstellers, 
Anschrift des Empfängers, aktueller 
Mehrwertsteuersatz und Datum werden 
im Bildschirmdialog angefordert. 


Pro Blatt können bis zu zehn 
Rechnungsposten eingegeben werden. 
Zusätzlich sind verschiedene 
1 REM CASH 

£ REM FUER CHIP-SPECIAL 

3 REM VON HOLGER TIEDEMANN 

4 REM -------------------- 

5 REM 


100 POKE 16,64:POKE 53774,64 

200 DIM B$(22),B1$(22),B2$(22),B3$(2 
2) ,B4$(30) ,B5$122) ,B6$(22) ,Bi$(22),C 
$(15),C1$(20),C2$(20),C3$(20),C4$(10 


) 

290 DIM C5$(10):? CHR$(125) :SETCOLOR 
2,0,0:SETCOLOR 1,0,10 

295 POKE 752,1:POKE 764,225:G0OSUB 13 
000 

300 POSITION 10,7:? "iCODE208}rogram 
mstart":POSITION 10,11:? "{CODE193}b 
sender eingeben! 

305 POSITION 10,15:? "{CODE206}euein 
gabe d.Absenders" 

310 FOR X=1 TO 180:NEXT X:POKE 755,0 
PEEK(753)=3 THEN GOTO 330 

FOR X=1 TO 180:NEXT X:POKE 755,2 
IF PEEK(753)=3 THEN GOTO 330 
GOTO 310 

330 POKE 755,2:POKE 752,0:IF PEEK(76 
4)=10 THEN GOTO 800 

331 IF PEEK(764)=63 THEN GOTO 488 
332 IF PEEK(764)=35 THEN GOTO 480 
333 GOTO 310 

480 POKE 755,2:POKE 764,225:TRAP 999 
8:0OPEN #2,8,0,"D:ABS.DAT":CLOSE #2 
481 XIO 36,#2,0,0,"D:ABS.DAT":XIO 33 
‚#2,0,0,"D:ABS.DAT" 

488 POKE 764,225 

489 POKE 755,2:POKE 764,225:POKE 752 
‚0:TRAP 9998:0PEN #2,8,0,"D:ABS.DAT" 
:POKE 702,0 

490 ? CHR$(125):? :POSITION 9,1:? "A 
bsender-Dateneingabe":POSITION 9,2:? 
"{CODE95/95/95/95/95/95/95/95/95/95 
/95/ 95/ 95/ 95/ 95/ 95/ 95/ 95/ 95/95/95 }": 
77%2 


500 ? :? “"Firmai5SPACES}:":? :? "Nam 
e{6SPACES}:":? ;? "Strasse Nr:":? :? 
"PLZ,Orti3SPACES} :":? :? "Bank{6SPA 
CES;:;" 
510 ? 


:? “Bankleitz.:":? :? "Konto-N 


Eine Publikation von CHIP 


Rabattsätze und Zahlungsarten vor- 
gesehen. Alle Fehleingaben werden 
abgefangen, soweit das irgendwie 
möglich ist. Aufgrund der einfachen 
Bedienung und sicheren Handhabung 
ist das Programm für den täglichen 
Einsatz bestens geeignet. 

Holger Tiedemann 


r. :"1:? :7 NTeiefon-Nr:":? :? "{CODE 
95/95/95/95/95/95/95/95/95/95/95/95/ 
95/95/ 95/ 95/ 95/95/ 95/ 95/ 95/ 95/ 95/ 95/ 
95/95/95/95/95/95/95/95/95/95/95/95} 
Il 

520 POSITION 13,6:INPUT B$:POSITION 
13,8:INPUT B1$:POSITION 13,10:INPUT 
B2$:POSITION 13,12:INPUT B3$:POSITIO 
N 13,14:INPUT B4$:POSITION 13,16:INP 
UT B5$ 

530 POSITION 13,18:INPUT B6$:POSITIO 
N 13,20:INPUT B7$:POKE 755,1 

541 ? #25B$:? #25B1$:? #2;5B2$:? #2;B 
3$:? #2;5B4$:? #2;5B5$:? #2;5B6$:? 4#2;5B 
7$:CLOSE #2 

800 POKE 764,225:POKE 755,2 

801 TRAP 11000:OPEN #2,4,0,"D:ABS.DA 
TH 

802 INPUT #2;5B$:INPUT #2;B1$:INPUT # 
2;B2$:INPUT #2;5B3$:INPUT #2;B4$:INPU 
T #2;5B5$:INPUT #2;5B6$:INPUT #2;B7$ 
803 CLOSE #2 

804 ? CHR$(125):GOSUB 13000 

805 POKE 752,1:POSITION 8,4:? "Empfa 
enger-Dateneingabe":;POSITION 8,5:? " 
{CcoDE95/95/95/95/95/95/95/95/95/95/9 
a 
5 „ 

806 POSITION 2,9:? "Anrede{5SPACES}: 
; POSITION 2,11:? “"NameiT7SPACES}:":P 
OSITION 2,13:? "Strasse Nr.:" 

804 POSITION 2,15:7 “PLZ. Ort{3SPACE 
S}:":POSITION 6,17:? "Datum{6SPACES} 
:": POSITION 6,20:? "Rechn.-Nr. :" 
808 POSITION 2,22:? "{iCODE9Y5/95/95/9 
5/95/95/95/95/95/95/95/95/95/95/95/9 
5/95/95/95/95/95/95/95/95/95/95/95/9 
5/95/95/95/95/95/95/95/95/95}" 

809 POKE 702,0:POKE 752,0 

810 POSITION 14,9:INPUT C$:POSITION 
14,11sINPUT C1$:POSITION 14,13:INPUT 
Cc2$:POSITION 14,15:INPUT C3$ 

811 POSITION 18,17:INPUT C4$:POSITIO 
N 18,20:INPUT C5$ 

1000 DIM Ii0$(40),NIL$(1),CLS$(40),P1 
$(26),P2$(9),P3$(5),P4$(9),P5$(26),P 
6$(9),P1r$15),P8$19),P9$(26,,P10$1\9) 


49 


Abrechnung 





1020 DIM P11$(5),P12$(9) ,P13$(26),P1 
4$(9),P15$(5),P16$(9),P17$(26),P18$( 
9),P19$(5),P20$(9),P21$(26),P22$(9) 
1040 DIM P23$(5),P24$(9),P25$(26),P2 
6$(9),P27$(5),P28$(9),P29$(26) ,P30$( 
9),P31$(5),P32$(9),P33$(26) ,P34$(9) 
1060 DIM P35$\5),P36$(9),P37$(26) ,P3 
8$(9),P39$(5),P40$(9) 

1080 DIM DR1$(4),DR2$(1),DR3$(6),DR4Y 
$(6),DR5$(16),DR6$(1),DR7$(3),DR8$(3 
),0$(3),G1$(9),G2$(9),G3$(9),G4$(9) 
1090 DIM G5$(9),G6$(9),G7$(9),G8$(9) 
»G9$(9),G10$(9),GCG$(11) 

1100 ? CHR$( 125) :SETCOLOR 2,0,0:SETC 
OLOR 1,0,10:2=0:POKE 752,1:POKE 702, 
0:REM {CODE197/201/206/ 199/ 193/ 194/ 1 
97/194/201/204/ 196/211/ 195/200/201/2 
10/205} 

1120 GOSUB 13000 

1140 REM 

1160 REM 

1180 POSITION 1,6:? "Position :[000] 
n 


1200 POSITION 1,9:? "Artikel{2SPALES 
}:L{coDE95/95/95/95/95/95/95/95/95/9 
5/95/95/95/ 95/95/95/ 95/95/95/95/ 95/9 
5/95/95/95/95} ]" 

1220 POSITION 1,12:? "Art.-Nr. 

DE95, 95, 95/ 95, 95/ 95, 95, 95/95, ]* 
1240 POSITION 1,15:? "Anzahi{ 3SPACES 
}:L{CODEY5/ 95/95/95/95} 1" 

1260 POSITION 1,18:? "E.-Preis :[{CO 
DE95/95/95/95/95/95/95/95/95} 1" 

1270 POSITION 3,22:? "{CODE197/211/1 
95/193/208/197} --> Rechnungsausdruc 
kt 


:[{co 


1280 NIL$="{CODEY5}":IO$=" ":Z=Z+1:R 
EM {CODE203/207/206/211/212/ 193/206, 
212/ 198/ 197/ 204/ 196/ 193/ 194 / 198/210/ 
193/ 199/ 191 / 160/208/2071/211/ 174/ 173/ 
218/ 193/ 197/200/204/ 197/210} 


1300 IF Z<10 THEN POSITION 14,6:? Z 

1320 IF Z=10 THEN POSITION 13,6:? Z 

1340 XPOS=12:POKE 752,0:X=0 

1360 YPOS=9:SIZE=26:MODE=1:GOSUB 148 
0 

1380 YPOS=12:SIZE=9:MODE=2:GOSUB 148 
0 

1400 YPOS=15:S1ZE=5:MODE=2:GOSUB 148 
0 

1420 YPOS=18:S1ZE=9:MODE=4:GOSUB 148 
0 

1440 IF Z=10 THEN GOTO 3780 

1460 GOSUB 2480:IF Z=10 THEN GOTO 37 
80 

1470 GOTO 1280 

1480 X=X+1:GOSUB 1540:REM {CODE216/1 
50 


73/218/ 193/ 1971/200/204/ 197/210/160/1 
97/201/206/211/208/210/213/206/ 199/11 
73/212/197/211/212} 

1500 ON Z GOSUB 2780,2880,2980,3080, 
3180,3280,3380,3480 ,3580 ,3680 

1520 IO$="";RETURN 

1540 OPEN #1,4,0,"K:" 

1560 DP=1 

1600 POSITION XPOS,YPOS 

1620 PRINT IO$; 

1640 POSITION XPOS,YPOS 

1660 PRINT "{CODE30/31}"; 

1680 L=1 

1700 GET #1,A 

1720 IF A=27 THEN GOTO 3785:REM {COD 
E197/211/ 195/ 193/208/ 197/ 173/193/ 194 
/198/210/ 193/ 199/ 1971/ 160/211/208,210 
/213/206/ 199/ 160/ 179/ 183/ 184/176} 
1740 FLAG=O 

1760 ON MODE GOSUB 2300,2340,2380,24 
20 

1780 IF FLAG=1 THEN 1920 

1800 IF A=126 AND L>LEN(IO$) AND L>1 
THEN 2040 

1820 IF A=155 THEN 2280 

1840 IF A=125 THEN GOSUB 2580:G0T0 1 
640 

1860 IF A=ASC("{CODE30}") AND L>1 TH 
EN 2140 

1880 IF A=ASC("{CODE31}“) AND L<LEN( 
IOo$)+1 THEN 2200 

1900 PRINT "{CODE253}";:GOTO 1700 
1920 IF L>SIZE THEN PRINT "{CODE253} 
">:GOTO 1700 

1940 PRINT CHR$(A); 

1960 IF LEN(IO$)>L THEN IF IO$(L,Lj= 
"u THEN DP=1 

1980 IO$(L,L)=CHR$(A) 

2000 L=L+1 

2020 GOTO 1700 

2040 L=L-1 

2060 PRINT "{CODE30 }";NIL$;"iCODE30} 
. 

1 
2080 
2100 
2120 
2140 
2160 
2180 
2200 
2220 
2240 
"; 
2260 
2280 
2300 
2320 


IF IO$(L,L)="." THEN DP=1 
IO$(L)="" 

GOTO 1700 

L=L-1 

PRINT "{CODE30}"; 

GOTO 1700 

L=L+1 

PRINT "{CODE31}"; 

IF L>SIZE THEN PRINT "{CODE253} 


GOiTO 1700 
LLOSE #1:RETURN 


IF A>31 AND A<124 THEN FLAG=1 
RETURN 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


2340 IF A>4Y7 
2360 RETURN 
2380 IF A=74 OR A=106 OR A=78 OR A=1 
10 THEN FLAG=1 

2400 RETURN 

2420 IF A>47 AND A<58 THEN FLAG=1 
2440 IF A=46 AND DP THEN FLAG=1:DP=0 
460 RETURN 

2480 POKE 7152,1:XPOS=12:YPOS=9:MODE= 
1:SIZE=26:GOSUB 2580:REM {CODE195/20 
4/197/ 193/210/ 160/210/207/213/212/20 
1/206/ 197} 

2500 YPOS=12:MODE=2:SIZE=9:GOSUB 258 
0 
2520 
0 
2540 
0 
2560 


AND A<58 THEN FLAG=1 


YPOS=15:MODE=2:SIZE=5:GOSUB 258 
YPOS=18:MODE=4:SIZE=9:GOSUB 258 


RETURN 
2580 POSITION XPOS,YPOS 

2600 FOR LOOP=1 TO SIZE:REM {CODE195 
/204/ 197/ 193/210/ 173/218/ 197/201/204 
/197} 
2620 
2640 
2660 
2680 
2700 
2720 


CLS$(LOOP)=NIL$ 

NEXT LOOP 

PRINT CLS$; 

log" 

DP=1 

POSITION XPOS,YPOS 

2740 RETURN 

2760 REM {CODE214/193/210/20 1/ 193, 19 
4/204/ 197,206/ 173/213/ 197/ 194/ 197/21 
0,206, 193/200/205, 197} 

2780 IF X=1 THEN P1$=10$ 

2800 IF X=2 THEN P2$=I0$ 

2820 IF X=3 THEN P3$=I0$ 

2840 IF X=4 THEN P4$=10$ 

2860 RETURN 
2880 IF X=1 
2900 IF X=2 
2920 IF X=3 
<940 IF X=4 
2960 RETURN 
2980 IF X=1 
3000 IF X=2 
3020 IF X=3 
3040 IF X=4 
3060 RETURN 
3080 IF X=1 
3100 IF X=2 
3120 IF X=3 
3140 IF X=4 
3160 RETURN 
3180 IF X=1 
3200 IF X=2 
3220 IF X=3 
3240 IF X=4 


THEN 
THEN 
THEN 
THEN 


P5$=10$ 
P6$=10$ 
P7$=I0$ 
P8$=10$ 


THEN 
THEN 
THEN 
THEN 


P9$=10$ 

P10$=10$ 
P11$=10$ 
P12$=10$ 


THEN 
THEN 
THEN 
THEN 


P13$=10$ 
P14$=10$ 
P15$=10$ 
P16$=10$ 


THEN 
THEN 
THEN 
THEN 


P17$=10$ 
P18$=10$ 
P19$=10$ 
P20$=10$ 


Eine Publikation von CHIP 


RETURN 
Ir x=1 
IP. %=2 
IF X=3 
IF X=4 
RETURN 
IF X=1 
IF X=2 
IE X=3 
IF X=4 
RETURN 
IF X=1 
IF X=2 
IF X=3 
IF -X=4 
RETURN 
IF X=1 
IF X=2 
IF X=3 
IF X=ı 
RETURN 
IF X=1 
IF X=2 
IF X=3 
IF X=4 
RETURN 
OPEN #1,4,0,"K:" 

IF A=27 THEN Q=1i-Z 

3790 POKE 702,64 

3800 ? CHR$(125):GOSUB 6000:REM {COD 
E211/208/210/213/206/ 199/ 160/214/207 
/206/ 160/ 197/211/ 195/ 193/208/ 197} 
3810 G1$="0" :G2$="0" :G3$="0" :G4$="0" 
:G5$="0" :G6$="0" :G7$="0" :G8$="0" :G9$ 
zug" :G10$="0" 

3820 DR1$="{CODE27}1{CODE6}":REM {CO 
DE204/ 197/ 198/212/ 160/205/ 193/210/ 19 
9/201/206/ 160/182} 

3825 DR2$="{CODE14}":REM {CODE197/20 
6/204/ 193/210/ 199/ 197/ 196/ 160/ 198/21 
3/197/210/ 160/ 197/201/206/ 197/ 160/21 
8/ 197/201/204/ 197} 

3860 DR3$="{CODE27}D8S{CODEO}":REM {C 
ODE200/212/ 193/ 194/ 160/ 182/ 184/ 198/ \ 
74/193/194/211/197/206/ 174} 

3880 DR4$="{CODE27}D2{CODEO}":REM {C 
ODE200/212/193/ 194/ 160/ 182/ 176/ 198 / 1 
74/210/197/195/200/206/ 174} 

3890 DR5$="{CODE27}D3{CODEO}":REM {C 
a a de a 
10, 174 

3900 DR7$="{CODE27}-{CODE1}":DRE$="{ 
CODE27}-{CODEO}":REM {CODE213/206/ 19 
6/ 197/210/204/ 174} 

3920 DR6$="{CODEYF":REM {CODE212/193 
/ 194/ 160/ 194/ 197/ 198/ 197/200/204} 
3940 POKE 755,2:POKE 764,225:TRAP 12 


3260 
3280 
3300 
3320 
3340 
3360 
3380 
3400 
3420 
3440 
3460 
3480 
3500 
3520 
3540 
3560 
3580 
3600 
3620 
3640 
3660 
3680 
3700 
3720 
3740 
3760 
3780 
3785 


THEN 
THEN 
THEN 
THEN 


P21$=10$ 
Pp22$=10$ 
P23$=10$ 
P24$=10$ 


THEN 
THEN 
THEN 
THEN 


P2z5$=10$ 
P26$=10$ 
P27$=10$ 
P28$=10$ 


THEN 
THEN 
THEN 
THEN 


P29$=10$ 
P30$=10$ 
P31$=10$ 
P32$=10$ 


THEN 
THEN 
THEN 
THEN 


P33$=10$ 
P34$=10$ 
P35$=10$ 
P36$=10$ 


THEN 
THEN 
THEN 
THEN 


P37$=10$ 
P38$=10$ 
P39$=10$ 
P40$=10$ 


51 








Abrechnung 





000:OPEN #3,8,0,"P:":REM {CODE214/20 
7/210/204/193/213/197/198/ 174/ 160/20 
17/208, 19 /206/ 173/ 194/ 197/ 198/ 197/20 
0/204} 

3941 ? #35 DR1$;CHR$(27) ;"4";DR2$;B$; 
CHR$(27);5"5":REM {CODE193/ 194/211/19 
7/206/ 196/ 197/210/ 198/193} 

3942 ? #3:? #35DR3$;DR6$;CHR$(15);5B1 
$:? #3;5DR6$;5B2$:? #3;DR6$;5B3$:? #3;5D 
R6$;"Tei.:"5B7$:? #35CHR$(18):REM {C 
ODE193/ 194/211/ 197/206/ 196/ 197/210} 
3943 PRINT #3;CHR$(15);CHR$(27);"5"; 
CHR$(0);B$;" ,"5B2$;" ,"5B3$;CHR$(27); 
"TUsCHR$(18):REM {CODE 193/ 194/211, 17 
4/198/ 197/206/211/212/ 197/210} 

3944 2? #3:? #3:?2 #35C$:? #35C1$:? #3 
‚c2$:? #3503$:? #3:? #3:? #3;DR4$;DR 
6$;DR2$;DR7$;"Rechnung";DR8$ 

3945 ? #3:? #35; DR5$;DR6$;"Nr.:"5C5$: 
? #3 j 

3950 DR5$="{CODE27}DO{CODEO}":REM {C 
ODE200/212/ 193/ 194/ 160/ 196/ 193/212/2 
13/205} 

3951 ? #3; DR5$;DR6$;,"Datum :";C4h$:7 
#3:? #3:? #3:? #3 

3979 PRINT #3;CHR$(27);"M";DR1$ 

3980 PRINT #3; CHR$(27) ;"D";CHR$(10); 
CHR$(40);CHR$(52);CHR$(60);CHR$(74); 
CHR$(0);DR7$; 

4000 ? #3;"Pos{7SPACES}Artikel-Bezei 
chnung{ 11SPACES}Art..-Nr.{4SPACES}Men 
ge{4SPACES}E.-Preis{i6SPALES:G.-Preis 
!:DR8$ 

4050 GOTO 4200 

4100 REM ZEEEKERRRERFER RER KEN FH RER EN 


KERERERERRERE 

4150 T=83-2:T1=69-S | 
4151 PRINT #3; CHR$(27);"D";CHR$(10); 
CHR$(40) ;CHR$(52) 5CHR$(T1)5CHRECT) 5C 
HR$(0) 5; : RETURN 


4200 FOR N=1 TO LEN(P4$)-2:REM *##%# 
IE 2 2 22 2722 2 2 2 2 2/2 2:2 202 2 2 2 202 2 2 2 2/2 2 2 2 203 


4201 IF P4$(N,N)="." THEN 4350 

4202 NEXT N 

4.05 FOR N=1 TO LEN(P4$)-1 

4206 IF P4$(N,N)="." THEN 4300 

4207 NEXT N 

4250 Q$=".00":P4$(LEN(P4$)+1)=Q$:GOT 
0 4350 


4300 Q$="0":PU$(LEN(P4$)+1)=Q$ 
4350 M=VAL(P3$):E=VAL(P4$):G1=M#E:G1 
$=STR$(G1) 


4360 FOR N=1 TO LEN(G1$)-2 
4361 IF G1$(N,N)="." THEN 4400 
4362 NEXT N 

4363 FOR N=1 TO LEN(G1$)-1 
4364 IF G1$(N,N)="." THEN 4370 
52 


4365 NEXT N 

4366 Q$=".00":G1$(LEN(G1$)+1)-Q$:GOT 
O 4400 

4370 G$="04:G1$(LEN(G1$)+1)=Q$ 

4400 S=LEN(P4$):Z=LEN(G1$):GOSUB 415 


0 

4415 Z=1:? #3525DR6$;P1$;DR6$;P2$;DR 
6$;P3$;DR6$;PuU$;" DM"S;DR6$5G1$;" DM" 
4420 IF Q+Z=10 THEN GOTO 5300 

4425 GOSUB 5680 

4500 FOR N=1 TO LEN(P8$)-2:REM ###*% 
ERERERERERTRURUER ER RERERE RR E RUN 
4501 IF P8$(N,N)="." THEN 4508 

4502 NEXT N 

4503 FOR N=1 TO LEN(P8$)-1 

4504 IF P8$(N,N)="." THEN 4507 

4505 NEXT N 

4506 Q$=".00":P8$1LEN(P8$)+1)=Q$:GOT 
0 4508 

4507 Q$="O"N:P8$(LEN(P8$)+1)=Q$ 

4508 M=VAL(P7$):E=VAL(P8$) :G1=M*E:G2 
$=STR$(G1) 

4510 FOR N=1 TO LEN(G2$)-2 

4511 IF G2$(N,N)="." THEN 4518 


4512 NEXT N 

4513 FOR N=1 TO LEN(G2$)-1 
4514 IF G2$(N,N)="." THEN 4517 
4515 NEXT N 


4516 Q$=".00":G2$(LEN(G2$)+1)=Q$:GOT 
0 4518 

4517 Q$="0":G2$(LEN(G2$)+1)=Q$ 

4518 S=LEN(P8$):Z=LEN(G2$):GOSUB 415 


0 

4519 Z=2:? #352;5DR6$;P5$;DR6$;P6$;DR 
6$;P7$;DR6$;P8$;" DM"SDR6$5G2$;5" DM" 
4530 IF Q+Z=10 THEN GOTO 5300 

4535 GOSUB 5680 

4550 FOR N=1 TO LEN(P12$)-2:REM #%*#% 
ZEEERERRERERERRERUEK ERKENNEN KR 
4551 IF P12$(N,N)="." THEN 4558 

4552 NEXT N 

4553 FOR N=1 TO LEN(P12$)-1 

4554 IF P12$(N,N)="." THEN 4557 

4555 NEXT N 

4556 Q$=".00":P12$(LEN(P12$)+1)=Q$:G 
OTO 4558 

4557 Q$="0":P12$(LEN(P12$)+1)=Q$ 
4558 M=VAL(P11$):E=VAL(P12$):G1=M#E: 
G3$=STR$(G1) 

4560 FOR N=1 TO LEN(G3$)-2 

4561 IF G3$(N,N)="." THEN 4568 


4562 NEXT N 

4563 FOR N=1 TO LEN(G3$)-1 
4564 IF G3$(N,N)="." THEN 4567 
4565 NEXT N 


4566 Q$=".00":G3$(LEN(G3$)+1)=Q$:GOT 
0 4568 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


4567 Q$="0":G3$(LEN(G3$)+1)=Q$ 

4568 S=LEN(P12$):Z=LEN(G3$):GOSUB 41 
50 

4569 Z=3:? #352;DR6$;P9$;DR6$;P10$;D 
R6$;P11$;DR6$;P12$;" DM";DR6$;G3K;" 
DM" 

4580 IF Q+Z=10 THEN GOTO 5300 

4585 GOSUB 5680 

4600 FOR N=1 TO LEN(P16$)-2:REM ###% 
CE IE 22 22 2 2 2 2 22 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 07 
4601 IF P16$(N,N)="." THEN 4608 

4602 NEXT N 

4603 FOR N=1 TO LEN(P16$)-1 

4604 IF P16$(N,N)="." THEN 4607 

4605 NEXT N 

4606 Q$=".00":P16$(LEN(P16$)+1)=Q$:G 
OTO 4608 

4607 Q$="0":P16$(LEN(P16$)+1)=Q$ 
4608 M=VAL(P15$) :E=VAL(P16$):G1=M#E: 
G4U$=STR$(G1) 


4610 FOR N=1 TO LEN(G4$)-2 

4611 IF G4Y$(N,N)="." THEN 4618 

4612 NEXT N 

4613 FOR N=1 TO LEN(G4$)-1 

4614 IF G4U$(N,N)="." THEN 4617 

4615 NEXT N 

4616 Q$=".00":G4$(LEN(G4$)+1)=Q$:GOT 


0 4618 

4617 Q$="0":G4$(LEN(G4$)+1)=Q$ 

4618 S=LEN(P16$):Z=LEN(G4$):GOSUB 41 
50 

4619 Z=4:? #352;DR6$;P13$;DR6$;P14$; 
DR6$;P15$;DR6$;P16$;" DM"SDR6$;GAK 5" 
DM" 

4630 IF Q+Z=10 THEN GOTO 5300 

4635 GOSUB 5680 


4700 FOR N=1 TO LEN(P20$)-2:REM ##%% 
EURER EEE RREERERENE 


4701 IF P20$(N,N)="." THEN 4708 

4702 NEXT N 

4703 FOR N=1 TO LEN(P20$)-1 

4704 IF P20$(N,N)="." THEN 4706 

4705 NEXT N 

4706 Q$=".00":P20$(LEN(P20$)+1)=0$:G 


OTO 4708 

4707 Q$="0":P20$(LEN(P20$)+1)=Q$ 
4708 M=VAL(P19$):E=VAL(P20$):G1=M#E: 
G5$=STR$(G1) 


4710 FOR N=1 TO LEN(G5$)-2 
4711 IF G5S$(N,N)="." THEN 4718 
4712 NEXT N 


4713 
y47ıl 


FOR N=1 TO LEN(G5$)-1 

IF G5$(N,N)="." THEN 4717 

4715 NEXT N 

4716 Q$=".00":G5$(LEN(G5$)+1)=Q$:GOT 
0 4718 

4717 Q$="0":G5$(LEN(G5$)+1)=Q$ 


Eine Publikation von CHIP 


Abrechnung 


4718 S=LEN(P20$):Z=LEN(G5$):GOSUB 41 
50 

4719 Z=5:? #352;5DR6$;P17$;DR6$;P18$; 
DR6$;P19$;DR6$;P20$;" DM";DR6$;GS5S 5" 
DM" 

4730 IF Q+Z=10 THEN GOTO 5300 

4735 GOSUB 5680 

4800 FOR N=1 TO LEN(P24$)-2:REM ####* 
EKEEREEKERERERERE EHER EEE EHER ERRRN 
4801 IF P24U$(N,N)="." THEN 4808 

4802 NEXT N 

4803 FOR N=1 TO LEN(P24$)-1 

4804 IF P24U$(N,N)="." THEN 4806 

4805 NEXT N 

4806 Q$=".00":P24$(LEN(P24$)+1)=Q$:G 
OTO 4808 

4807 Q$="O":P24U$(LEN(P24$)+1)=Q$ 
4808 M=VAL(P23$) :E=VAL(P24$):G1=M#E: 
G6$=STR$(G1) 


4810 FOR N=1 TO LEN(G6$)-2 

4811 IF G6$(N,N)="." THEN 4818 

4812 NEXT N 

4813 FOR N=1 TO LEN(G6$)-1 

4814 IF G6$(N,N)="." THEN 4817 

4815 NEXT N 

4816 Q$=".00":G6$(LEN(G6$)+1)=Q$:GOT 


0 4818 

4817 Q$="O"N:G6$(LEN(G6$)+1)=Q$ 

4818 S=LEN(P24$):Z=LEN(G6$):GOSUB 41 
50 

4819. 2=6:? #352; DR6$;P21$;DR6$;P22$; 
DR6$;P23$;DR6$;P24$;" DM"SDR6$5GHS 5" 
DM" 

4830 IF Q+Z=10 THEN GOTO 5300 

4835 GOSUB 5680 

4900 FOR N=1 TO LEN(P28$)-2:REM *##% 
KRERERRRRERKEREKEREK ER KH RN KR KR 
4901 IF P28$(iN,N)="." THEN 4908 

4902 NEXT N 

4903 FOR N=1 TO LEN(P28$)-1 


4904 IF P28$(N,N)="." THEN 4906 

4905 NEXT N 

4906 Q$=".00":P28$(LEN(P28$)+1)=Q$:G 
OTO 4908 


4907 Q$="O":PZ8$(LEN(P28$)+1)=Q$ 
4908 M=VAL(PZ27$) :E=VAL(P28$) :G1=M#E;: 
G7$=STR$(G1) 

4910 FOR N=1 TO LEN(G7$)-2 

4911 IF G7$(N,N)="." THEN 4918 

4912 NEXT N 

4913 FOR N=1 TO LEN(G7$)-1 

4914 IF G7$(N,N)="." THEN 4917 

4915 NEXT N 

41916 Q$=".00":G7$(LEN(G7$)+1)=0$:GOT 
0 4918 

4917 Q$="0":G7$(LEN(G7$)+1)=Q$ 

4918 S=LEN(P28$) :Z=LEN(G7$):GOSUB 41 





Abrechnung 


50 

4919 Z=7:? #352;DR6$;P25$;DR6$;P26$; 
DR6$;P27$;DR6$;P28$;" DM"SDR6$SGTK 5" 
DM" 

4930 IF Q+Z=10 THEN GOTO 5300 

4935 GOSUB 5680 

5000 FOR N=1 TO LEN(P32$)-2:REM *##% 

EKRERKEREEREEEREER EEE ER EEE ER ER 
5001 IF P32$(N,N)="." THEN 5008 

5002 NEXT N 

5003 FOR N=1 TO LEN(P32$)-1 

5004 IF P32$(N,N)="." THEN 5006 

5005 NEXT N 

5006 Q$=".00":P32$(LEN(P32$)+1)=Q$:G 

OTO 5008 

5007 Q$="0":P32$(LEN(P32$)+1)=Q$ 
5008 M=VAL(P31$) :E=VAL(P32$):G1=M#E: 

G8$=STR$(G1) 


5010 FOR N=1 TO LEN(G8$)-2 

5011 IF G8$(N,N)="." THEN 5018 

5012 NEXT N 

5013 FOR N=1 TO LEN(G8$)-1 

5014 IF G8$(N,N)="." THEN 5017 

5015 NEXT N 

5016 Q$=".00":G8$(LEN(G8$)+1)=Q$:GOT 


0 5018 

5017 Q$="0O":G8$(LEN(G8$)+1)=Q$ 

5018 S=LEN(P32$):Z=LEN(G8$):GOSUB 41 
50 

5019 Z=8:? #3;52;DR6$;P29$;DR6$;P30$; 

DR6$;P31$;DR6$;P32$;" DM";DR6$5GBF5" 
DM" 

5030 IF Q+Z=10 THEN GOTO 5300 

5035 GOSUB 5680 


5100 FOR N=1 TO LEN(P36$)-2:REM ###% 
BEER EHER RUNE 


5101 IF P36$(N,N)="." THEN 5108 

5102 NEXT N 

5103 FOR N=1 TO LEN(P36$)-1 

5104 IF P36$(N,N)="." THEN 5106 

5105 NEXT N 

5106 Q$=".00":P36$(LEN(P36$)+1)=Q$:G 


OTO 5108 

5101 Q$="0":P36$(LEN(P36$)+1)=Q$ 
5108 M=VAL(P35$):E=VAL(P36$) :G1=M#E: 
G9$=STR$(GI) 

5110 FOR N=1 TO LEN(G9$)-2 

5111 IF GY$(N,N)="." THEN 5118 

5112 NEXT N 

5113 FOR N=1 TO LEN(G9$)-1 

5114 IF G9$(N,N)="." THEN 5117 

5115 NEXT N 

5116 Q$=".00":G9$(LEN(GIY$)+1)=Q$:GOT 
0 5118 

5117 Q$="0":G9Y9$(LEN(GY$)+1)=Q$ 

5118 S=LEN(P36$):Z=LEN(G9$):GOSUB 41 
50 


5119 Z=9:? #3;52;DR6$;P33$;DR6$;P3u$; 
DR6$;P35$;DR6$; P36$;" DM" ;DR6$5G9$ 5" 
DM" 

5130 IF Q+Z=10 THEN GOTO 5300 

5135 GOSUB 5680 


5200 FOR N=1 TO LEN(P4O$)-2:REM ###%# 
KEREEEERRURHREEERUHERRREHERREHEREN 


5201 IF P4O$(N,N)="." THEN 5208 

5202 NEXT N 

5203 FOR N=1 TO LEN(P4O$)-1 

5204 IF P4O$(N,N)="." THEN 5206 

5205 NEXT N 

5206 Q$=".00":P4O$(LEN(P4O$)+1)=Q$:G 
OTO 5208 


5207 Q$="0":PLHO$(LEN(P4O$)+1)=Q$ 
5208 M=VAL(P39$) :E=VAL(P4O0$):G1=M#E: 
G10$=STR$(G1) 


5210 FOR N=1 TO LEN(G10$)-2 

5211 IF G10$(N,N)="." THEN 5218 

5212 NEXT N 

5213 FOR N=1 TO LEN(G10$)-1 

5214 IF G10$(N,N)="." THEN 5217 

5215 NEXT N 

5216 Q$=".00":G10$(LEN(G10$)+1)=Q$:G 
OTO 5218 


5217 Q$="0":G10$(LEN(G10$)+1)=Q$ 
5218 S=LEN(P4O$):Z=LEN(G10$):GOSUB 4 
150 

5219 Z=10:? #35Z;5DR6$;P37$;DR6$;P38$ 
:DR6$;P39$;DR6$;P4O$;" DM";DR6$5G10$ 
;" DM! 

5300 A=VAL(G1$)+VAL(G2$)+VAL(G3$)+VA 
L(GU$)+VAL(G5S$)+VAL(G6KH)+VAL(GTK)+VA 
L(G8$)+VAL(GY$)+VAL(G10$) 

5320 GG$=STR$(A) 

5330 FOR N=1 TO LEN(GG$)-2:REM ##k%# 
KRRRRFHKERTRE HER HEHE ER ER NR RE ER 


5340 IF GG$(N,N)="." THEN 5400 

5345 NEXT N 

5350 FOR N=1 TO LEN(GG$)-1 

5360 IF GG$(N,N)="." THEN 5390 

5370 NEXT N 

5380 Q$=".00":GG$(LEN(GG$)+1)=Q$:GOT 
0 5400 


5390 Q$="0":GG$(LEN(GG$)+1)=Q$ 
5400 S=LEN(GG$) :T=83-S:? #3;CHR$(27) 
;UD"sCHR$(64) ;CHR$(T);5 CHR$ (84); CHR$( 


0); 
54140 ? #35;DR6$;"{8SPACES} {CODEJY5/95/ 
95/95/95/95/95/95/95/95/95}" 
5450 ? #3; DR6$;"Summe";DR6$;GG$;DR6$ 
;UpMN 
5460 G1=A/ 100% 14:G1=INT(G1#100)/100: 
G1$=STR$(G1) 
5461 FOR N=1 TO LEN(G1$)-2 
5462 IF GI$(N,N)="." THEN 5470 
5463 NEXT N 


Chip Computer-Programme Atari 600 XL/800 XU/65 XE 


5464 FOR N=1 TO LEN(G1$)-1 

5465 IF G1$(N,N)="." THEN 5469 

5466 NEXT N 

5467 Q$=".00":G1$(LEN(G1$)+1)=Q$:GOT 
0 5470 

5469 Q$="0":G1$(LEN(G1$)+1)=Q$ 

5470 S=LEN(G1$):T=83-S 

5510 ? #35 CHR$(27);"D";CHR$(55) ;CHR$ 
(T);5CHR$(84);CHR$(O); 

5520 ? #3;DR6$ ;"Mehrwertsteuer";DR6$ 
;G1$;DR6$ ; "DM" 

5525 IF P<>0 THEN GOTO 5710 

5530 IF FLAG=1 THEN GOSUB 5790 

5531 IF FLAG=0 THEN GOSUB 5800 

5540 S=LEN(GG$) :T=83-S:? #3;CHR$(27) 
;"DNsCHR$(38) ;CHR$(T);CHR$(84) ;CHR$( 
033 

5545 ? #35 DR6$;"{34SPACES} {CODEY5/95 
/95/95/95/95/95/95/95/ 95/95/95} * 
5550 ? #3;DR6$;"Rechnungsbetrag incl 
. 14% MwSt.";DR6$;GG$;DR6$ ;" DM" 

5560 7 #3; DR6$;"==>==>===22 2522222 > 


3:7 73:72 #332 #3 

5561 FOR S=0 TO Q#2:? #3:NEXT S 

5562 GOSUB 14000 

5570 IF B=1 THEN ? #3;"Zahlung inner 
halb von 30 Tagen ohne Abzug" 

5571 IF B=2 THEN ? #3;"Zahlung inner 
halb von 30 Tagen abzuegiich ";NIL$; 
" % Skonto{2SPACES}= ";G1$;" DM" 
5572 IF B=3 THEN ? #3;"Zahlung inner 
haib von 14 Tagen ohne Abzug" 

5573 IF B=4 THEN ? #3;"Zahlung inner 
halb von 14 Tagen abzuegiich ";NIL$; 
"% Skonto{2SPACES}= ";G1$;" DM" 
5574 IF B=5 THEN ? #3;"Rechnungsbetr 
ag wurde per Nachname erhoben" 

5575 GOTO 5681 

5680 ? #3; "------------------------- 
-=---- - ---------------- "RETURN 

5681 ? #3:? #3:? #3:? #3:? #3:? #35" 
Bankverbindung{2SPACES}: ";B4$;"{2SP 
ACES}BLZ. "5B5$;"{2SPACES}Konto-Nr." 
;B6$ 
5699 
5700 
5710 
5741 
57.12 
57113 
5714 
5715 


? #3;5CHR$(12) 

END 

P1$=STR$(P) 

FOR N=1 TO LEN(P1$)-2 

IF PiI$(N,N)="." THEN 5719 
NEXT N 

FOR N=1 TO LEN(PI1$)-1 

IF P1$(N,N)="." THEN 5718 
5716 NEXT N 

5717 Q$=".00":P1$(LEN(P1$)+1)=Q$:GOT 
0 5719 


Eine Publikation von CHIP 





Abrechnung 


57118 Q$="0":P1$(LEN(P1$)+1)=Q$ 

5719 S=LEN(P1$):T=83-S 

5720 ? #35 CHR$(27);"D";CHR$(49);CHR$ 
(T);CHR$(84);CHR$(O); 

5721 ? #3;5DR6$;"Porto und Verpackung 
":DR6$;P1$;DR6$ 5; "DM" 

5722 GOTO 5530 

5790 G2=G1+A+P:GG$=STR$(G2) :GOTO 580 
1 
5800 
5801 
5802 
5803 
5804 
5805 
5806 
5807 
5809 
5810 


G2=A+P:GG$=STR$(G2) 

FOR N=1 TO LEN(GG$)-2 

IF GG$(N,N)="." THEN 5810 

NEXT N 

FOR N=1 TO LEN(GG$)-1 

IF GG$(N,N)="." THEN 5809 

NEXT N 

Q$=" .00":GG$ (LEN(GG$)+1)=Q$ 

Q$="0":GG$(LEN(GG$)+1)=Q$ 
RETURN 

6000 GOSUB 13000:POSITION 2,5:? "Rec 

hnungsbetrag :" 

6010 POSITION 10,12:? "{CODE229}insc 

h1.Mehrwertsteuer ?" 

6020 POSITION 10,15:? "{CODE250 }uzue 

gl.Mehrwertsteuer ?" 

6030 POSITION 9,20:? " "W5:GET #1,A:F 

LAG=0 

6040 IF A=90 THEN FLAG=1:G0TO 6051 
6050 IF A<>69 THEN GOTO 6030 

6051 POSITION 10,12:? CHR$(156) :POSI 
TION 10,14:? CHR$(156) 

6052 POSITION 2,8:? "Porto und Verpa 
ckung : "5;:INPUT IO$:POSITION 30,8:? 
"{2SPACES}DM":IF IO$="" THEN P=0:G0 

TO 6054 

6053 P=VAL(IO$) 

6054 POSITION 2,10:? "Skonto{ 15SPACE 

S}: "5:INPUT NIL$:POSITION 30,10:? “ 
{2SPACES}% " 
6055 POSITION 

rhalb 30 Tage 

6056 POSITION 

rhalb 30 Tage 

6057 POSITION 

rhaib 14 Tage 

6058 POSITION 


2,12:? "1 Zahlung inne 
ohne Abzug" 

2,14:? "2 Zahlung inne 
mit{2SPACES} Abzug" 
2,16:? "3 Zahlung inne 
ohne Abzug" 

2,18:? "4 Zahiung inne 
rhalb 14 Tage miti2SPACES} Abzug" 
6059 POSITION 2,20:? “5 Rechnungsbet 
rag per Nachname" 

6060 POSITION 6,22:? "Zahlungsart 
";:INPUT B 

6061 RETURN 

9998 TRAP 40000:CLOSE #2 

9999 X=0:? CHR$(125):GOSUB 13000:POK 
E 752,1:POSITION 10,9:? "{CODE160/19 
6/233/243/235/229/244/244/229/ 160/23 
1/229/243/233/227/232/229/242/244/16 


Finanznen 


0/160/191/160}":POKE 764,225 
10000 POSITION 10,13:? "Druecken Sie 
eine 1aste" 
10001 FOR X=1 TO 
0:IF PEEK(753)=3 
10002 FOR X=1 TO 
2:IF PEEK(753)=3 
10003 GOTO 10001 
11000 TRAP 40000:CLOSE #2:X=0:? CHR$ 
(125):GOSUB 13000:POKE 752,1:POSITIO 
N 8,9:? "{CODE160/ 193/226/243/229/23 
8/228/229/242/ 160/238/233/2271/232/24 
4/160/229/233/238/231/229/231/229/22 
6/229/238/160}" 
11001 POSITION 10,13:? "Druecken Sie 
eine Taste!" 
11002 FOR X=1 TO 
0:IF PEEK(753)=3 
11003 FOR X=1 TO 
2:IF PEEK(753)=3 
11004 GOTO 11001 
12000 TRAP 40000:CLOSE #3:X=0:? CHR$ 
(125):GOSUB 13000:POKE 752,1:POSITIO 
N 6,8:? "{CODE160/ 196/242/245/227/23 
5/229/242/160/238/233/227/232/244/16 
0/229/233/238/231/229/243/227/232/22 
5/236/2u4/229/244/160}" 
12001 POSITION 9,13:? "Druecken Sie 


30:NEXT X:POKE 755; 
THEN GOTO 480 
30:NEXT X:POKE 755, 
THEN GOTO 480 


2e5:NEXT X:POKE 755; 
THEN GOTO 489 
25:NEXT X:POKE 755; 
THEN GOTO 489 


Lohnbuchhaltung 


(Atari 800, Drucker: Star DP 510) 


Dieses Programm errechnet Lohn- und 
Lohnnebenkosten nach BAT. 


Die Ausgabe der Lohnabrechnung ge- 
schieht auf zwei Blättern. Das 
erste davon ist für den Arbeitneh- 
mer. Das zweite Blatt ist für den 
Arbeitgeber und enthält zusätzlich 
noch die Lohnsteuerpauschalbeträge 
und die gesamten Lohnsteuerkosten. 


Diese Daten werden werden am Ende 
des Programms auf Band oder Disket- 
te abgespeichert. Bei Bandbetrieb 
müssen nur die entsprechenden Para- 
meter geändert werden. Die errech- 
neten Daten werden für jeden Ar- 


beitnehmer gesammelt und aufad- 
diert, so daß die kumulierten Jah- 
resdaten jederzeit abrufbereit 
sind. 
56 


eine Taste! 
12002 FOR X=1 TO 
0:IF PEEK(753)=3 
12003 FOR X=1 TO 
2:IF PEEK(753)=3 
12004 GOTO 12002 
13000 POSITION 26,0:? "{CODE17/18/18 
/ 18/ 18/ 18/ 18/ 18/ 18/ 18/ 18/ 18/5} " 
13001 POSITION 26,1:? "{CODE124}{2SP 
ACES}C A S H{2SPACES}{CODE124}" 
13002 POSITION 26,2:? "{CODE26/ 18/18 
/ 18/ 18/ 18/ 18/ 18/ 18/ 18/ 18/ 18/33" 
13003 RETURN 

14000 Z=0:X=0:Z=VAL(NIL$):X=VAL(GG$) 


25:NEXT X:POKE 755; 
THEN GOTO 3940 
2e5:NEXT X:POKE 755; 
THEN GOTO 3940 


14001 T=X/ 100%Z:T=INT(T#100)/ 100 
14002 G1$=STR$(T) 

14003 FOR N=1 TO LEN(G1$)-2 

14004 IF G1$(N,N)="." THEN 14020 
14005 NEXT N 

14006 FOR N=1 TO LEN(GI1$)-1 

14007 IF G1$(N,N)="." THEN 14019 
14008 NEXT N 

14009 Q$=".00":G1$(LEN(G1$)+1)=Q$:G0 
TO 14020 


14019 Q$="0":G1$(LEN(G1$)+1)=Q$ 
14020 RETURN 


READY ! 


Das Programm 


Am Beginn des Programms werden die 
benötigten Variablen aufbereitet. 
Um die Daten monatsweise abspei- 
chern zu können, muß der Dateiname 
jedesmal aktualisiert werden. Dazu 
muß zunächst das Programm unterbro- 
chen werden. Dann erfolgt eine 
Änderung der Zeilen 3010 und 12010. 
Anschließend wird das Programm neu 
gestartet. Die Aktualisierung kann 
aber auch schon vor dem Programn- 
start erfolgen. 


In den Zeilen 39 bis 55 wird abge- 
fragt, ob schon Daten vorhanden 
sind. Bei positiver Antwort wird 


der vorhandene Datensatz vom exter- 
nen Speicher in den Arbeitsspeicher 


übertragen. In den Zeilen 100 bis 
500 findet dann die Dateneingabe 
statt. 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Finanzen 





Die Kennzahlen werden in den Zeilen 
von 1000 bis 1200 berechnet. Die 
Beitragsbemessungsgrenze der Ren- 


ten- bzw. der Arbeitslosenversiche- 
rung muß jährlich aktualisiert 
werden (Zeilen 1025 und 1027). Auch 
die Beitragsbemessungsgrenze der 
Krankenversicherung muß bei jeder 
Anderung korrigiert werden, also 
meist am Jahresanfang (Zeilen 1041 
und 1043). 

In den Zeilen von 1400 bis 1700 


werden die kumulierten Jahresbe- 
träge berechnet. Anschließen folgt 
die Ausgabe der Lohnabrechnung für 


1_REM LOHNBUCHHALTUNG NACH BAT 


2 REM FUER CHIP-SPECIAL 

3 REM VON DIETER KOLSCH 

4 REM ---------- -- --- - - -- - - - 
5 REM 

9 CLR 


10 DIM NA$(30),DAT$(10),M$(10),A$(5) 
‚B$(5) ,c$(5),EOL$(1) 

20 EOL$=CHR$(155) 

30 ? "{CODE125}" 

35 ? "{CODE193/235/244/245/225/236/2 
33/243/233/229/242/229/238} Sie bitt 
e den Buchungs- namen in den Zeilen: 
"22 N{3SPACES}{CODE179/ 176/ 177/176 }{ 
3SPACES}NAME und ZAHLUNGSMONAT (###% 

XEMM)" 

36 ? "{3SPACES}{CODE177/178/ 176/ 177/ 
176}{2SPACES}NAME und ZAHLUNGSMONAT 

MINUS 1 (##EE&#MM(-1))" 

37 2? :?2 :? :? :? “Wenn erledigt {COD 

E160/210/ 197/212/213/210/206/160}"3;: 

INPUT c$ 

39 ? "{CODE125}" 

15 2? :? :? :? :? "Werden aufaddierte 
{CODE202/225/232/242/229/243/228/22 
5/244/229/238}{8SPACES}benoetigt":? 

"Oder ist schon auf {CODE228/233/229 

/243/229/237} {CODE206/225/237/229/2 

38} {CODE228/233/229/243/229/243/202 

/225/232/242}"; 

46 ? "gebucht worden (J/N):";:INPUT 

C$:IF C$="J" THEN GOSUB 12000 

55 TRAP 40000 

100 ? "{cODE125}" 

105 2? :? :? :? :? "Geben Sie bitte d 

as Buchungsdatum ein";:TRAP 105:INPU 

T DAT$ 

110 2? :? 2? :? :? "Geben Sie bitte Z 

ahlungszeitraum ein{2SPACES} (MM.JJ)" 
;:TRAP 110:INPUT M$ 


Eine Publikation von CHIP 


Arbeitnehmer und Arbeitgeber sowie 
die Abspeicherung der kumulierten 
Jahresdaten, die auf Wunsch auch 
auf dem Drucker ausgegeben werden. 


Da die Beiträge der Krankenkassen 
verschieden sind, müssen diese 
gesondert berechnet werden. Andere, 
als die in den Zeilen von 10000 bis 
10100 aufgeführten Krankenkassen, 
müssen noch eingefügt werden. Zu 
beachten ist außerden, daß bei 
Beitragsänderungen auch der Bei- 
tragssatz korrigiert wird. 


Dieter Kolsch 


120 7 :? :? :? .:? “Geben Sie bitte d 

en Namen des Arbeit- nehmers ein";5:T 

RAP 120:INPUT NA$ 

130 7? :? :? :? :? "Geben Sie bitte d 

en Verguetungsbetrag ein";:TRAP 130: 
INPUT VG 

140 ? :? :?2 :? :? “Geben Sie bitte d 

ie Hoehe der Zulage{2SPACES}ein";:TR 
AP 140:INPUT Z 

150 2? :?7 :7 :? :?7 “Geben»sie-bitte d 
ie Hoehe des gezahl- ten Vorschusses 
ein";:TRAP 150:INPUT VS 

160 ? :? :? :? :? "Geben Sie bitte d 
ie Hoehe des Arbeit- geberanteils de 
r VWL"5:TRAP 160:INPUT VWLA 

170 ? :? :? :?2 :? “Geben Sie bitte d 
ie gesamte Hoehe der VWL ein";:TRAP 
170:INPUT VWL 

180 7? :? :? :? :? "Geben Sie bitte d 
ie Kennzahl der Kran- kenkassenzugeh 

oerigkeit ein" 

181 2 "<i> AOK":? "<2> BEK":? 

AK n 

184 2? "<4> KKH":? "<5> TKK" 
189 TRAP 180:INPUT KRK 

500 TRAP 40000 

1000 VBL=(INT(VG+Z)#4)/100:REM VERSO 

RGUNGSKASSE 

1010 VBLS=((INT(VG+2)#2.5)/100)-26:R 

EM SOZIALVERSICHERUNGSPFLICHTIGER TE 
IL DER VERSORGUNGSKASSE 

1020 VGS=VG+Z+VWLA+VBLS:REM SOZIALVE 

RSICHERUNGSPFLICHTIGE VERGUETUNG 
1025 IF VGS<5200 THEN H=VGS:GOTO 103 
5 

1026 ? :? :? :? :?. "{CODE214/229/242 
/231/245/229/244/245/238/231} {CODE2 

45/229/226/229/242} {CODE228/229/242 
} {CODE210/214/ 175/ 193/214/ 173/ 194/2 


"<3>2-D 


87. 


Finanznen 


29/237/229/243/243/245/238/231/243/1 
13/231/242/229/238/250/229/174} Einm 
albezug (J/N)"5:TRAP 1026:INPUT B$ 
1027 IF B$="N" THEN H=5200:G0T0O 1035 
1028 ? :? "Tabelle der anteiligen Ja 
hresbemes-{3SPACES}sungsgrenze nachs 
chauen.Hoehe der Be- mesungsgrundlag 
e eingeben"; 

1029 TRAP 1028:INPUT HH:IF HH>=VGS T 
HEN H=VGS:G0OTO 1035 

1030 H=HH 

1035 RV=(INT(H#18.5))/100:REM RENTEN 

VERSICHERUNG 

1040 AV=(INT(H*4.6))/100:REM ARBEITS 
LOSENVERSICHERUNG 

1041 IF VGS<3900 THEN H=VGS:GOTO 105 
0 

1042 ? :? :? :? :? "{CODE214/229/242 
/231/245/229/244/245/238/231} {CODE2 
45/229/226/229/242} {CODE228/229/242 
} {CODE203/214/ 173/ 194/229/237/229/2 

43/243/245/238/231/243/173}{3SPACES} 
{CODE231/242/229/238/250/229/174} Ei 

nmalbezug (J/N)"5:TRAP 1042:INPUT B$ 
1043 IF B$="N" THEN H=3900:G0TO 1050 
1044 ? :? "Tabelle der anteiligen Ja 

hresbemes-{3SPACES}sungsgrenze nachs 
chauen.Hoehe der Be- mesungsgrundlag 
e eingeben"; 

1045 TRAP 1044:INPUT HH:IF HH>=VGS T 
HEN H=VGS:GOTO 1050 

1046 H=HH 

1050 ON KRK GOSUB 10010,10020,10030, 
10040,10050:REM KRANKENVERSICHERUNG 
1060 SV=RV+KV+AV:REM GESAMTSOZIALVER 
SICHERUNG 

1070 SVA=(INT(SV*%5))/10:REM SOZIALVE 
RSICHERUNG ARBEITGEBERANTEIL 

1080 GVG=VG+VWLA+SVA+VBL+Z:REM GESAM 

TVERGUETUNG 

1090 LSTB=VG+VWLA+Z:REM LOHNSTEUERPF 
LICHTIGER BETRAG 

1100 2? :? 32 222387 “Geben. Sie;bitte 
den Lohnsteuerbetrag{2SPACES}fuer DM 
"SLSTB5" ein"5;:TRAP 1100:INPUT LST 
1110 LSTP=(INT((VBL-26)#10))/100:REM 
LOHNSTEUERPAUSCHALE VBL 

1120:27 324 2043222 "Besteht Kirchens 
teuerpflicht(J/N)"5:TRAP 1120:INPUT 
A$:IF A$="N" THEN 1130:TRAP 40000 
1122 KST=(INT(LST#8))/100:REM KIRCHE 
NSTEUER 

1130 KSTP=(INT(LSTP*7))/100:REM KIRC 

HENSTEUERPAUSCHALE VBL 

1140 LSTG=LST+KST:REM GESAMT LOHNSTE 
UERABZUG 

1150 GA=LSTG+SV+VWL+VS+VBL:REM GESAM 


TABZUEGE 

1160 SPZL=(INT(VWL#®23))/100:REM SPAR 
ZULAGE 

1170 AB=GVG+SPZL-GA:REM AUSZAHLUNGSB 
ETRAG 
1180 
1190 
1400 
EGE 
1405 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 


NV=GVG-GA 
LK=LST-SPZL+LSTP+KSTP 
REM KUMULATION FUER JAHRESBETRA 


VGJ=VGJ+VG 
ZJ=2J+tZ 
VWLAJ=VWLAJ+VWLA 
LSTBJ=LSTBJ+LSTB 
SVAJ=SVAJ+SVA 
VBLJ=VBLJ+VBL 
VBLSJ=VBLSJ+VBLS 
GVGJ=GVGJ+GVG 
LSTJ=LSTJ+LST 
KSTJ=KSTJ+KST 
RVJ=RVJ+RV 
KVJ=KVJ+KV 
AVJ=AVJ+AV 
VWLJ=VWLJI+VWL 
VSJ=VSJ+VS 
GAJ=GAJ+GA 
NVJ=NVJ+NV 
SPZLJ=SPZLJ+SPZL 
ABJ=ABJ+AB 
KSTPJ=KSTPJ+KSTP 
LSTPJ=LSTPJ+LSTP 
1610 LKJ=LKJ+LK 

2000 REM AUSGABE LOHNABRECHNUNG ARBE 
ITNEHMER 

2030 LPRINT "Datum: 
2040 LPRINT "Zahlungszeitraum: 


"sDAT$:LPRINT 
"MS; 


"{10SPACES}NAME: ";NA$:LPRINT 
2050 LPRINT "Verguetung: ";VG 
2060 LPRINT "Zulagen: ";Z 


2070 LPRINT "Arbeitgeberanteil VWL: 


"SVWLA 

2080 LPRINT "Brutto-Verguetung: ";5LS 
TB 

2090 LPRINT "Sozialversicherung AG-A 
nteil: "5SVA 


2100 LPRINT "Versorgungskasse(VBL): 

"sVBL;"{5SPACES}SV-pflichtiger Antei 
I; ®sVBLS 

2110 LPRINT 
2120 LPRINT 
2130 LPRINT 
2140 LPRINT 


NGesamtausgabe: ";GVG 
"Lohnsteuer: ";LST 
"Kirchensteuer: "5KST 
"Rentenversicherung: ";R 


V 

2150 LPRINT "Krankenversicherung: "5; 
KV 

2160 LPRINT "Arbeitslosenversicherun 
g: ";AV 


2170 LPRINT "Vermoegenswirksame Anla 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Finanzen 





ge: ";VWL 
2180 LPRINT 
2190 LPRINT 
2200 LPRINT 
2210 LPRINT 
".SPZL 
2220 LPRINT 
2500 LPRINT 


"Vorschuss: ";VS 
NGesamtabzuege: "5;GA 
"Nettoverguetung: ";NV 
"Arbeitnehmersparzulage: 


"Auszahlungsbetrag: ";AB 
CHR$(12):REM AUSGABE LOH 


NABRECHNUNG ARBEITGEBER 
2530 LPRINT "Datum: "5;5DAT$:LPRINT 
2540 LPRINT "Zahlungszeitraum: ";M$; 


"{10SPACES}NAME: ";NA$:LPRINT 
2550 LPRINT "Verguetung: "3;VG 
2560 LPRINT "Zulagen: ";5Z 


2570 LPRINT "Arbeitgeberanteil VWL: 


"sVWLA 

2580 LPRINT "Brutto-Verguetung: "5LS 
TB 

2590 LPRINT "Soziaiversicherung AG-A 
nteil: ";SVA 


2600 LPRINT "Versorgungskasse(VBL): 
"SVBL;"{5SPACES}SV-pflichtiger Antei 


Is’ WSVBLS 

2610 LPRINT "Gesamtausgabe: ";GVG 
2620 LPRINT "Lohnsteuer: ";LST 
2630 LPRINT "Kirchensteuer: ";KST 


2640 LPRINT "Rentenversicherung: ";R 


V 

2650 LPRINT "Krankenversicherung: "; 
KV 

2660 LPRINT "Arbeitslosenversicherun 
g: "5AV 

2670 LPRINT "Vermoegenswirksame Anla 
ge: ";VWL 


2680 LPRINT 
2690 LPRINT 
2700 LPRINT 
2710 LPRINT 
WSPZL 
2720 LPRINT 
2750--EPRINT 
27160 LPRINT 
SST 

2770 LPRINT 
-1,SPZL 
2780 LPRINT "Lohnsteuerpauschale:{4S 
PACES}+";LSTP 

2790 LPRINT "Kirchensteuerpauschale:; 


"Vorschuss: "5VS 
"Gesamtabzuege: ";GA 
!Nettoverguetung: "3;NV 
"Arbeitnehmersparzulage: 


"Auszahlungsbetrag: 
:LPRINT 
"Lohnsteuer:{13SPACES} +" 


";AB 


"Arbeitnehmersparzulage: 


+2sKSIr 
2800 LPRINT "LOHNSTEUERKOSTEN:{7SPAC 
ES}=";LK 
3000 REM SPEICHERUNG DER JAHRESDATEN 


3010 OPEN #1,8,0,"D:XXXXXX00" 

3020 ? #15 VGJ;5EOL$;ZJ5EOL$;VWLAJ;EOL 
$;LSTBJ;5EOL$;SVAJ5EOL$;VBLJSEOL$;VBL 
SJ;EOL$; 

3030 ? #1;GVGJ;EOL$;LSTJ;EOL$;KSTJ5E 


Eine Publikation von CHIP 


OL$;RVJ5EOL$;5KVJ5EOL$;AVJ5EOL$; 

3040 ? #15 VWLJ5EOL$;VSJ;5EOL$;GAJ;EOL 
$;NVJ5EOL$;SPZLJ;5EOL$;ABJ;EOL$; 

3050 ? #15 LSTPJ;5EOL$;KSTPJ;EOL$;LKJ; 
EOL$ 

3060 CLOSE #1 

4000 END 

10000 REM KRANKENKASSENBEITRAEGE 
10010 KV=H#12.7:G0OTO 10100:REM AOK 
10020 KV=H#*11.6:GOTO 10100:REM BEK 
10030 KV=H#11.7:G0TO 10100:REM DAK 
10040 KV=H%11.5:GOTO 10100:REM KKH 
10050 KV=H*10.4:GOTO 10100:REM TKK 
10100 KV=(INT(KV))/100:RETURN 

12000 LPRINT CHR$(12):REM JAHRESDATE 
N AUSDRUCKEN ARBEITNEHMER 

12010 OPEN #1,4,0,"D:XXXXXX00" 

12030 INPUT #1,VGJ,ZJ,VWLAJ,LSTBJ,SV 
AJ,VBLJ,VBLSJ,GVGJ,LSTJ,KSTJ,RVJ,KVJ 
„AVJ,VWLJ,VSJ,GAJ,NVJ,SPZLJ,ABJ 
12031 INPUT #1,LSTPJ,KSTPJ,LKJ 

12035 CLOSE #1 

12036 ? :? :? :? :? "{CODE196/ 193/21 
2/197/206} {CODE193/213/211/196/210/ 
213/195/203/197/206} (J/N)"5;:INPUT C 
$:IF C$="N" THEN RETURN 

12040 ? "Geben Sie bitte Datum ein"; 
«INPUT DAT$:? "Geben Sie bitte Name 
ein"; INPUT NA$ 

12045 LPRINT "AUFGELAUFENE JAHRESDAT 
EN" :LPRINT 


12046 LPRINT "Datum: ";DAT$;"{10SPAC 


ES}NAME: ";NA$:LPRINT 
12050 LPRINT "Verguetung: ";5VGJ 
12060 LPRINT "Zulagen: "352J 


12070 LPRINT 
"SVWLAJ 
12080 LPRINT 
STBJ 

12090 LPRINT "Sozialversicherung AG- 
Anteil: "5SVAdJ 

12100 LPRINT "Versorgungskasse(VBL): 
";VBLJ;"{5SPACES}SV-pflichtiger Ant 


"Arbeitgeberanteil VWL: 


"Brutto-Verguetung: "; 


eil: ";VBLSJ 

12110 LPRINT "Gesamtausgabe: ";GVGJ 

12120 LPRINT "Lohnsteuer: "5;LSTJ 

12130 LPRINT "Kirchensteuer: ";KSTJ 

12140 LPRINT "Rentenversicherung: "; 

RVJ 

12150 LPRINT "Krankenversicherung: " 

sKVJ 

12160 LPRINT "Arbeitslosenversicheru 

ng: "5AVJ 

12170 LPRINT "Vermoegenswirksame Ani 

age: ";VWLJ 

12180 LPRINT "Vorschuss: "5;VSJ 

12190 LPRINT "Gesamtabzuege: "5GAJ 
59 


Ordnen, Archivieren 





12200 LPRINT "Nettoverguetung: ";NVJ 
12210 LPRINT "Arbeitnehmersparzulage 
s 15SPZLJ 

12220 LPRINT "Auszahlungsbetrag: 
BJ 

12250 LPRINT :LPRINT :LPRINT "Lohnst 
euer: {13SPACES}+";5LSTJ 

12260 LPRINT "Arbeitnehmersparzulage 
; -15SPZLJ 


"A 


Videomaster 


(Atari 800XL, Epson- oder Gemini- 
Drucker) 
Ordnung in die private Videothek 


Die Bedie- 
Zunächst 


bringt dieses Programn. 
nung ist äußerst einfach. 


sind die Titel der Filme oder Sen- 
dungen einzugeben, die auf der 
Kassette sind. Dazu kommt die 
jeweilige Bandstelle, an der die 
Aufnahme beginnt, schließlich noch 
die Aufnahmelänge in Minuten und 
der Sender. Jetzt kann ein Blatt 


ausgedruckt werden, das sich in die 
Hülle der Videokassette einschieben 
läßt und jederzeit Auskunft gibt: 
Wo finde ich was! 


Das Programm ändert sich selbst 


Die Daten der Aufnahmen werden mit 
der Methode des 'Dynamic Keyboards" 
in Zeilen ab 25000 in DATAs abge- 
legt. Die Druckroutine liest dann 
diese Daten aus und löscht nach 
ihrer Beendigung die Zeilen wieder. 


REM VIDEO-MASTER 
REM FUER CHIP-SPECIAL 


1 
2 
3 REM VON BERND MOSER 
m 
> 


90 REM =={7SPACES}VIDEO-MASTER{T7SPAC 
ES == 


100 REM ={3SPACES}FUER ATARI COMPUTE 


R{4SPACES}== 
110 REM = UND GEMINI/EPSON DRUCKER = 


60 


12270 LPRINT "Lohnsteuerpauschale:{4 
SPACES} +"; LSTPJ 

12280 LPRINT "Kirchensteuerpauschale 
: +"sKSTPJ 

12290 LPRINT "LOHNSTEUERKOSTEN:{7SPA 
CES}=";LKJ 

12300 RETURN 


READY ! 


Schließlich wird das Programm wie- 
der neu gestartet. 


Sicherung gegen Fehleingaben 


Bei der Eingabe der Titel und 
Untertitel darf kein Komma verwen- 
det werden, da sonst die DATA- 
Zeilen nicht richtig geschrieben 
werden. Ansonsten ist das Programm 
durch eine Fehler-Routine und meh- 
rere TRAPs gegen Fehlbedienungen 
durch den Anwender weitgehend abge- 
sichert. Die Steuerzeichen für 
Epson- oder Gemini-Drucker sind in 
REM-Zeilen erläutert. Somit kann 
das Programm ohne Schwierigkeiten 
auch an andere Drucker angepaßt 
werden. 


Nach dem Start präsentiert sich das 
Programm genauso chaotisch wie man- 
che Videosammlung: Der Titel steht 
auf dem Kopf! Aber VIDEOMASTER 
bringt auch das in Ordnung. 

Bernd Moser 


120 REM 
MOSER 
130 


(C) 09/1984{2SPACES}BERND 


140 
150 


160 


170 


REM 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


180 FOR W=1 TO 100:NEXT W:POKE 752,0 
190 FOR A=0 TO 10 STEP 0.1:SETCOLOR 

1,0,A:NEXT A 

200 ? CHR$(125):SETCOLOR 1,0,0 

210 FOR A=10 TO 0 STEP -0.1:SETCOLOR 
4,0,A:NEXT A:? 

220 POKE 82,2 


230 ? "{8SPACES}V I D E O{2SPACES}M 

ASTER" 

240 ? "{6SPACES}==================== 
zii 

250 ? 

260 ? "Dieses Programm ermoeglicht I 
hnen, " 


270 ? "Ordnung in Ihre Video-Cassett 

en zu" 

280 ? "bringen." 

290 ? "Sie geben die Titel an, die a 

uf einer" 

300 ? "Cassette sind, 
telle an!" 

310 ? "der eine bestimmte Aufnahme z 
u finden!" 

320 ? "ist.® 

330 ? "Danach lassen Sie sich von Ih 
rem" 

340 ? "Drucker ein Blatt ausdrucken, 
dass" 


dazu die Bands 


350 ? "sich in die Cassettenhuelle e 
360 ? "schieben laesst und Ihnen imm 
S70 ? "Auskunft gibt:":? 

380 ? "{6SPACES} 'Wo finde ich was ?' 
390 POKE 764,255 


400 ? :? :? :? "Bitte druecken Sie e 
ine Taste...." 

410 IF PEEK(764)=255 THEN 410 

420 ? CHR$(125) 

4130 7? :? 

40 2-37 

450 ? "1. Spieldauer der Cassette in 


Minuten!" 
460 TRAP 420:INPUT CAS:TRAP 40000 
470 ? CHR$(28);CAS;" Minuten Cassett 
e" 

4180 7 :? 

490 ? "2. Archivnummer der Cassette" 
500 TRAP 420:INPUT CASNR:TRAP 40000 

510 ? CHR$(28) ;"{3SPACES}Archivnumme 
r : "sSCASNR 

520 ? :? "Alles richtig (J/N) ";:INP 
UT ANT$ 

530 IF ANT$(1,1)="N" THEN 420 

540 REM 
550 REM = 


Eine Publikation von CHIP 


REM 
CHR$( 125) 
? :? "E ING AB E{2SPACES}IR O 
UTIN EN" 
2 
2 


u 
3 
oO 

a) 


:? "Bitte geben Sie die Haupt- 
610 ? "ueberschrift der Cassette ein 
? "(max. 16 Buchstaben!)" 
POSITION 4,11:? !I--------------- 
-"1;POSITION 3,10 

640 INPUT TITEL$:IF LEN(TITEL$)>16 T 
HEN GOSUB 2300:G0TO 540 

650 FOR A=1 TO LEN(TITEL$):STRICH$(A 
‚„A)="=":NEXT A 

660 ? CHR$(125) 

670 POKE 82,10:? 

680 ? STRICH$:? TITEL$:? STRICH$ 

690 ? :? CAS;" Minuten Cassette":? " 
Archivnr .";CASNR 

700 POKE 82,2:? 

710 ? "Eingabe ";FLAG;". Aufnahmetit 
el:" 

720 ? “(max. 32 Buchstaben)" 
730 ? "->KEINE KOMMAS VERWENDEN 
xt 

740 POSITION 3,14:? "!--------------- 
una "POSITION 2,13 

750 INPUT AUFN1$:IF LEN(AUFN1$)>32 T 
HEN GOSUB 2300:G0TO 660 

760 ? :? :? "Eingabe ";FLAG;". Aufna 
hmetitel:" 

770 ? "Erweiterung" 

1780 ? "(max. 32 Buchstaben)" 

790 ? "-»>KEINE KOMMAS VERWENDEN I!!! 
1x1 

800 POSITION 3,21:? "--------------- 
-=-------- 22 ";POSITION 2,20 
INPUT AUFN2$:IF LEN(AUFN2$)>32 T 
GOSUB 2300:G0TO 660 

? CHR$(125) 

? AUFNI1$ 

? AUFN2$:FOR A=1 TO 37:? "-"5:NE 
XT A:? :? 

850 ? "Anfangsbandstelle ";FLAG;". T 
itel:;:" 

860 ? "(Form : xxxx -> 4 Zahlen)";:? 
870 INPUT VON$:IF LEN(VON$)<4 OR LEN 
(VON$)>4 THEN GOSUB 2300:G0TO 820 
880 ? :? "Endbandstelle ";FLAG5". Ti 
tel:" 

890 ? "(Form : xxxx -> 4 Zahlen)":? 
900 INPUT BIS$:IF LEN(BIS$)<4 OR LEN 
(BIS$)>4 THEN GOSUB 2300:G0TO 820 
910 ? CHR$(125) 

920 ? AUFNI$ 


61 


Ordnen, Archivieren 


930 ? AUFN2$:FOR A=1 TO 37:? "=-"5:NE 
RT A:% 
940 ? FLAG5".Aufnahme geht von " 
950 ? "Bandnummer ";VON$;" bis ";BIS 
.:1 m 
;“, 
960 ? :? :? "Wieviel Minuten geht Ti 
tel Nr."; FLAG; 2 
970 ? "(Form xxx -> 3 Zahlen)" 
980 INPUT MIN$:IF LEN(MIN$)<3 OR LEN 
(MIN$)>3 THEN GOSUB 2300:G0TO 910 
990 ? CHR$(125) 


1000 ? :? :? "Auf welchem Sender kam 
Titel Nr.";FLAG;" 7" 

1010.72 37 

1020 ? " 1. ARD{17SPACES}2. ZDF" 
1030 ? " 3. SUEDWEST FUNK{7SPACES}4. 
BAYERN" 

1040 ? " 5. WDR{17SPACES}6. HESSEN" 
1050 ? " 7. KABEL{15SPACES}8. SCHWEI 
z" 

1060 ? " 9. OESTERREICH 1{6SPACES} 10 
. HOLLAND" 

1070 ? "11. OESTERREICH 2{6SPACES} 12 
. ENGLAND" 

1080 ? "13. FRANKREICH{9SPACES} 14. S 

ONSTIGE" 

1090 ? :? "Geben Sie die entsprechen 
de Zahl ein." 

1100 ? :? :TRAP 990:INPUT AA:RESTORE 


1130:TRAP 40000 
1110 IF AA<1 OR AA>14 THEN GOSUB 230 
0:GOTO 990 
1120 FOR A=1 TO AA:READ SEND$:NEXT A 
1130 DATA ARD,ZDF,SWE,BAY,WDR,HES,KA 
B,SCH,OE1,HOL,OE2,ENG,FRA,SON 
1140 IF SEND$="SON" THEN 1160 
1150 GOTO 1190 
1160 ? CHR$(125) 
1170 ? :? "Welcher Sender ?" 
1180 ? :? :INPUT SEND$ 
1190 REM =============2=2=====2=2=2==2=2=== 


1200 REM = 


1210 


1220 ? CHR$(125) 
1230 ? 
1240 ? FLAG5".TITEL:" 
1250 ? :? STRICH$ 
1260 ? TITEL$:? STRICH$ 
? :? CAS;" Minuten Cassette!" 
? "Archivnummer "sCASNR 
? :? AUFN1$:? AUFN2$ 
7 


:? "Bandstellen 


1270 
1280 
1290 
1300 
BIS$ 
1310 7 


n ;VON$;"-";5 


:? "Titel geht ";MIN$;" Minut 


62 


en ij 

1320 ? :? "Aufgenommen auf Sender 
";SEND$ 

1330 ? :? :? "Alles richtig (J/N) "; 


1340 INPUT ANT$:IF ANT$(1,1)="N" THE 
N GOTO 540 

1350 FLAG=FLAG+ 1 

1360 REM 


1370 REM = 
ES} = 
1380 REM 
ACES}= 
1390 REM 
SPACES} = 


1400 REM 


ABLAGE DER TITEL AB{6SPAC 


ZEILE 25000 MIT HILFE{4SP 


DES 'DYNAMIC KEYBOARDS'{2 


1410 ? CHR$(125) 

1420 POKE 752,0 

1430 POSITION 2,7:? ZEILE5" DATA ";5V 
ON$;","5BIS$;" WS AUFN1$5"," 5; AUFN2$5" 
»";MIN$5",";SEND$ 

1440 POSITION 0,0:POKE 842,13 

1450 POSITION 2,10:? "CONT" 

1460 POSITION 2,11:? "CONT" 

1470 POSITION 2,12:? "CONT" 

1480 POSITION 2,5:STOP 

1490 POKE 842,12 

1500 ? CHR$(125):? :? FLAG-1;5". TITE 
L LIEGT IN ZEILE ";ZEILE 

1510 ZEILE=ZEILE+10 

1520 ? :? :? :? "NOCH EIN TITEL ??? 

(J/N)" 

1530 INPUT ANT$ 

1540 IF FLAG>10 THEN ? :? "MEHR ALS 

10 TITEL SIND NICHT":? "ERLAUBT": 
FOR W=1 TO 200:NEXT W:FLAG=FLAG-1:G0 
TO 310 

1550 IF ANT$(1,1)="J" OR ANT$(1,1)=" 
j" THEN 660 

1560 GOTO 1680 

1570 REM 


1580 REM = LOESCHEN DER DATA ZEILEN 


1590 
1600 ? CHR$(125):POKE 752,0 

1610 POSITION 2,7 

1620 FOR A=25000 TO 25100 STEP 10:? 
A:NEXT A 

1630 POSITION 0,0:POKE 842,13 

1640 POSITION 2,18:? "CONT":POSITION 
2,19:? "CONT":POSITION 2,20:? "CONT 
1 

1650 POSITION 2,5:STOP 

1660 POKE 842,12 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


1670 RUN 

1680 REM ESzs233E 23323535 BEI Ey 5 EEE EZ 
1690 REM = DRUCKROUTINE{8SPACES}==== 
1700 REM = (EPSON ODER GEMINI) ===== 
1720 RESTORE 25000 


1730 ? CHR$(125) 
1740 ? :? "{3SPACES}D R U C K{2SPACE 
S}-{2SPACES}R OUT IN E" 


1760 ? :? "Versichern Sie sich, 
Ihr Drucker" 

1770 ? "(Epson oder Gemini) eingesch 

altet!" 

1780 ? "ist und auf "on-line! steht. 
n 


dass 


1790 ? "Legen Sie das Papier ein und 
richten" 

1800 ? "Sie es auf den linken oberen 
" 


1810 ? "Rand aus." 

1820 ? :? "Nach dem Druck schneiden 
Sie das"! 

1830 ? "Einlegeblatt entlang der aeu 
sseren! 

1840 ? "Linien aus." 


1850 ? :? "Sollten Sie nun eine best 
immte!" 

1860 ? "Aufnahme suchen, duerfte es 
keine" 


1870 ? "Probleme mehr geben." 

1880 ? :? :? "RETURN druecken fuer D 
ruck.o..."5sINPUT ANT$ 

1890 CLOSE #3:OPEN #3,8,0,"P;" 

1900 REM -> DRUCKER BEDINGUNGEN <- 
1910 REM ->{3SPACES}AUF NULL SETZEN{ 
3SPACES}<- 

1920 ? #35 CHR$(27);CHR$(64); 

1930 REM -> EMPHASIZED PRINTING AN < 


1940 ? #35CHR$(27);CHR$(69); 
1950 
1960 ? #3;5"Nr."5CASNR;"{UHSPACES}";CA 
S;" Minuten Cassette" 

1970 ? #3 

1980 REM -> ENLARGED PRINTING AN <- 

1990 ? #35CHR$(27);CHR$(87);CHR$(1); 
2000 ? #3; STRICH$ 

2010 ? #3; TITEL$ 

2020 ? #3;STRICH$:? #3 

2030 REM -> ENLARGED PRINTING AUS <- 
2040 ? #3;CHR$(27);5CHR$(87);CHR$(0); 
2050 REM -> CONDENSED PRINTING AN <- 
2060 ? #3; CHR$(27);CHR$(15); 


Eine Publikation von CHIP 


Ordnen, Archivieren 


2070 ? #35"BANDNR.{4SPACES}TITEL{31S 
PACES}MIN{2SPACES}SENDER I" 
2080 ? #35"------------------------- 


:? #3 
2090 FOR A=1 TO FLAG-1 
2100 READ VON$,BIS$,AUFN1$,AUFN2$,MI 


N$,SEND$ 

2110 ? #3; VON$;"-";BIS$;"{2SPACES}"; 
AUFN1$; 

2120 FOR W=1 TO 36-LEN(AUFN1$):? #3; 
"";2NEXT W 


2130 ? #35MIN$;"{3SPACES}";SEND$5"{3 
SPACES}I" 

2140 ? #35"{11SPACES}";AUFN2$ 

2150 ? #3 

2160 NEXT A 

2170 FOR A=1 TO 33-(3#(FLAG-1)):? #3 
:NEXT A 

2180 ? #35 "1------------------------- 


:? #3 
2190 REM -> DRUCKER BEDINGUNGEN <- 
2200 REM ->{3SPACES}AUF NULL SETZEN{ 
3SPACES}<- 

2210 ? #3;5CHR$(27);CHR$(64); 

2220 CLOSE #3 

2230 ? CHR$(125) 

2240 ? :? :? "NOCHMAL DRUCKEN (J/N)" 


’ 

2250 INPUT ANT$:IF ANT$(1,1)="J" OR 
ANT$(1,1)="j" THEN 1680 

2260 ? :? "Dann loesche ich jetzt di 
e DATA" 

2270 ? "Zeilen und starte neu...." 


2280 FOR W=1 TO 200:NEXT W 

2290 GOTO 1570 

2300 REM ========2====2=2=====2======5=5= 
2310 REM = FEHLERROUTINE =========== 
2320 REM =========2===2=2============== 
2330 ? :? "FALSCHE EINGABE !!!":FOR 


A=1 TO 3:? CHR$(253):NEXT A:FOR W=1 
TO 50:NEXT W:RETURN 

2340 REM 
2350 REM = 
2360 REM 
2370 GRAPHICS 0:SETCOLOR 1,0,0:SETCO 
LOR 2,0,10:SETCOLOR 4,0,10 

2380 DIM TITEL$(30),STRICH$(30),AUFN 
SE u a nl 
N$(5 

2390 DIM SEND$(3),ANT$(1):FLAG=1:ZEI 
LE=25000 

2400 POKE 752,1:POKE 82,0:POKE 755,4 
2410 FOR A=1 TO 20 STEP 3 

2420 POSITION 1,A:? CHR$(17):POSITIO 
N 29,A:? CHR$(17) 


Ordnen, Archivieren 


2430 NEXT A 

P44O FOR A=1 TO 20 STEP 3 

2450 POSITION 10,A:? CHR$(5):POSITIO 
N 38,A:? CHR$(5) 

2460 NEXT A 

2470 FOR A=3 TO 23 STEP 3 

2480 POSITION 1,A:? CHR$(26): POSITIO 
N 29,A:? CHR$(26) 

2490 NEXT A 

2500 FOR A=3 TO 23 STEP 3 

2510 POSITION 10,A:? CHR$(3):POSITIO 
N 38,A:? CHR$(3) 

2520 NEXT A 

2530 FOR A=2 TO 22 STEP 3 

2540 POSITION 1,A:? CHR$(124):POSITI 
ON 10,A:? CHR$(124) 

2550 POSITION 29,A:? CHR$(124):POSIT 
ION 38,A 

2560 ? CHR$(124):NEXT A 

2570 FOR A=1 TO 21 STEP 3:FOR B=2 TO 


9 
2580 POSITION B,A:? CHR$(18):POSITIO 
N B+28,A:? CHR$(18) 
2590 NEXT B:NEXT A 
2600 FOR A=3 TO 23 STEP 3:FOR B=2 TO 


9 

2610 POSITION B,A:? CHR$(18):POSITIO 
N B+28,A:? CHR$(18) 

2620 NEXT B:NEXT A 

2630 B=3 

2640 FOR A=2 TO 22 STEP 3:C=INT(RND( 
0)*2)+1:IF C=1 THEN C=180 

2650 IF C=2 THEN C=240 

2660 POSITION 3,A:? B;"{CODE124} C"; 
C:POSITION 30,A:? B+7;"{CODE124} C"; 
C:B=B+1:NEXT A 

2670 POSITION 12,1:? CHR$(17):POSITI 
ON 27,1:? CHR$(5) 

2680 POSITION 12,21:? CHR$(26):POSIT 
ION 27,21:? CHR$(3) 

2690 FOR A=13 TO 26:POSITION A,1:? C 
HR$(18):POSITION A,21:? CHR$(18):NEX 
TA 

2700 FOR A=2 TO 20:POSITION 12,A:? C 
HR$(124): POSITION 27,A:? CHR$(124):N 


Disk-Verwalter 


(Atari 800XL, Diskettenstation) 


Selbst der größten Ordnungsliebha- 
ber verliert mit der Zeit den Über- 
blick über seine Disketten und 
deren Inhalt. Dabei ist doch gerade 


64 


EXT A 
2710 B=10:C=20 

2720 FOR A=7 TO 19 STEP 2:POSITION 1 
3,A:? B;"-"5C:B=B+10:C=C+10:NEXT A 
2730 DIM TI$(14):RESTORE 2740 

2740 DATA 13,3, =7=============,14,14,V 
IDEO MASTER, 13,5 ,============== 

2750 DATA 19,7,VON,19,9,BERND,19,11, 
MOSER, 19,13,UND, 19,15 

2760 DATA CLAUDIA,19,17,HASCHEK, 19,1 
2770 READ X,Y,TI$ 

2780 IF TI$="ENDE" THEN FOR A=0 TO 1 
00:SOUND 0,A,10,10:NEXT A 

2790 IF TI$="ENDE" THEN SOUND 0,0,0, 
0:POKE 755,2:FOR W=1 TO 500:NEXT W:R 
ETURN 

2800 POSITION X,Y 

2810 FOR A=1 TO LEN(TI$):? TI$(A,A); 
2820 SOUND 0,15,10,10:FOR W=1 TO 5:N 
EXT W:SOUND 0,0,0,0 

2830 FOR W=1 TO 5:NEXT W:NEXT A 

2840 GOTO 2770 

24995 REM 


24996 REM HIER WERDEN DIE DATAS{2S 
PACES} == 


24997 REM 
24998 


ABGELEGT UND GELOESCHT = 


25000 
25010 
25020 
25030 
25040 
25050 
25060 
25070 
25080 
25090 
25100 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


READY ! 


das ordentliche Verwalten von Daten 


eine der Hauptaufgaben des Compu- 
ters. 
Der DISK-VERWALTER kann beliebig 


viele Programme und deren spezifi- 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 











sche Daten verwalten. Darunter 
fallen: 

- Programmname 

- File-Name (auf Disk) 

- Disk-Nummer 

- Eigentümer der Diskette 

- DOS-Art 

- Programm-Art (Game, Utility) 

- Programmiersprache 


—- Sonstiges/Bemerkungen. 


Nach dem Start des Programms meldet 
sich ein Menü, von dem aus alle 
Funktionen ausgewählt werden. 


1 - Programmdaten Eingabe 


Hier werden die obengenannten Daten 
eingegeben. Falls der File-Name 
nicht mehr bekannt ist, kann durch 
Eingabe eines Fragezeichens auf die 
entsprechende Frage das Inhaltsver- 
zeichnis der Diskette angezeigt 
werden. Um Speicherplatz zu sparen, 
werden DOS-Art, Programmierspra- 


che und Eigentümer in jeweils 
einem Byte verschlüsselt. Der Com- 
puter listet hierbei eine Auswahl 


mit den entsprechenden Kürzeln auf. 
Die dazugehörigen Daten können ab 
Zeile 4000 an die eigenen Anforde- 
rungen angepaßt werden. In jeder 
DATA-Zeile 
einer Frage gehörenden Auswahlfel- 
der und deren Kürzel. Sind alle 
Daten eingegeben, werden sie auf 
Diskette abgespeichert. Ein Tasten- 
druck führt ins Menü zurück. 


2 - Directory listen 


Das Inhaltsverzeichnis der im Lauf- 
werk £1 befindlichen Diskette wird 
aufgelistet. 


3 - Datei ändern 


Um die Daten zu einem Programm zu 
ändern, muß zunächst dessen Name 
eingegeben werden. Dann werden wie- 
der die Fragen wie unter -1- 
gestellt. Hier müssen allerdings 
nur die zu ändernden Daten eingege- 
ben werden, ansonsten ist nur die 


steht die Anzahl der zu 
» der 


än 





Ordnen, Archivieren 


RETURN-Taste zu drücken. Dann wer- 
den alle Daten nocheinmal aufge- 
listet und schließlich wieder abge- 
speichert. 


4 - Alle Programmnamen auflisten 


Alle zur Zeit gespeicherten Pro- 
grammnamen werden in alphabetischer 
Reihenfolge ausgegeben. Zusätzlich 
wird auch noch der jeweils dazuge- 
hörige File-Name und die Disk- 
Nummer angezeigt. 


[3 


5 - Suchen 


Hier werden Programme nach bestimn- 
ten Spezifikationen gesucht, bei- 
spielsweise alle in BASIC geschrie- 
benen Hilfsprogramme. Alle nichtre- 
levanten Spezifikationen können mu 
-RETURN- übergangen werden. 


6 - Daten zu Programm-Namen 


Nach Eingabe eines vollständigen 
Programmnamens werden alle A 4 
hörigen Daten ausgegeben. 


7 - Programm-Name löschen ; 
& ; 
Hiermit kann ein Programm-Name mit 
all seinen dazugehörigen Daten aus 
Datei gelöscht werden. Aller- 
dings wird der Eintrag nicht wirk- 
lich gelöscht, er erhält nur einen 
entsprechenden Vernerk. 


8 - Datei neu anlegen/löschen 


Diese Option muß beim ersten Start 
unbedingt ausgewählt werden. Falls 
die Datei gelöscht werden soll, 
verlangt der Computer eine aus- 
drückliche Bestätigung, da eine 
gelöschte Datei unwiederbringlich 
verloren ist. 

9 - Ende 

Das Programm wird beendet. Es 


erfolgt ein Rücksprung ins BASIC. 
Wolfgang Schmidt 





Eine Publikation von CHIP 


Ordnen, Archivieren 


$(1),PART$(1),LANG$(1),SONST$(16),BD 

A 
60 

130 DIM VORF$(60) 

140 GCHAR=910:LET IFORM=920:SETPNT=9 
40:CONV=960:ERR=5200:EOR=40000 

200 REM * MENUE # 


210 MAX=9 
220 POKE 752,1:POKE 82,0:PRINT CHR$( 
125); Zx/b& 








230 PRINT "{CODE127L{2SPACES}* # = M 
ENUE # # « copn2e vet 23 

[EN ER TR TU 
250 PRINT "{CODE29/ 153/ 178/25} 12SPAC 


ES}DIRECTORY AUFLISTEN" 
PRINT "iC 









270 PRINT "{COD 277 25}1{2SPAC 
ES}ALLE P-NAMEN AUFLISTE 








‘290 PRINT "{CODE29/ 153 1EPVZERLSSPAC 
ES}DATEN ZU P-NAMEN" 

" /25}{2SPAC 
ES 
1310 PRINT "{CODE29/ 153/ 184/25}{2SPAC 
ES}DATEI NEU ANLEGEN/LOESCHEN" 
PRINT PACODESIISSI ESTER: 

n 


N 
360 POKE 752,0 
370 POSITION 0 22: ERHIT, © < IHRE WAHL 
:{2SPACES}>{CODE30730/30}";:GOSUB G 
CHAR:IF X<ASC("1") OR X-48>MAX THEN 
GOSUB 7010:G0T0 370 
1% ON = GOSUB VERRER. 2200 SEB 240 
0,3000, 3600, 2 
390 GOTO 2 er 
900 END 
905 PRINT CHR$(125);:POP :END 
910 TRAP 911:GOSUB 7100:POKE 764,255 
:OPEN #1,4,0,"K:":GET #1,X: PRINT CHR 


$(X); 
911 TRAP EOR:CLOSE #1:RETURN 
920 PRINT " "3:FOR I=1 TO X:PRINT "{ 


CODE95}";:NEXT I:POKE 85,0:RETURN 
940 TRAP ERR:OPEN #2,4,0,"D:DISKVBEG 
.DAT":TRAP EOR 
950 INPUT #2;5SEKP:INPUT #2;BYTEP:CLO 
SE #2 
955 SEKA=SEKP:BYTEA=BYTEP:RETURN 
Mm {coDE96/96 JÖSETP {CODE96/96} 
960 GN$="";FOR I=1 TO LEN(KN$):IF KN 
ae THEN GN$(I,I)=KN$ 
T,L) S u. 
970 NEXT I:RETURN :REM {CODE96/96/96 
} CONV {CODE96/96/96} e 


:RE 


a esrac 


990 END Fe (© 

991 PRINT "{CODE125}DISKVERW.DAT NEU 
":TRAP ERR:OPEN #2,8,0,"D:DISKVERW.D 
AT":TRAP EOR 

992 NOTE #2,SEKP,BYTEP:CLOSE #2 

993 OPEN #2,8,0,"D:DISKVBEG.DAT":PRI 
NT #25SEKP:PRINT #2;5BYTEP:CLOSE #2 
994 END 

995 TRAP 999:0OPEN #2,4,0,"D:DISKVERW 
.DAT" 

996 INPUT #2;5DAT$: PRINT DAT$:GOTO 99 
6 


997 OPEN #2,12,0,"D:DISKVERW.DAT":PO 
INT #2,SEKM,BYTEM: INPUT #2;DAT$:? DA 
T$:CLOSE #2:END 

999 CLOSE #2:END 

1000 REM ep PROGR. EING. {CODE 


o <.04 
1100 PRINT "{CODE125}® 1 - PROGRAMMN 
AME EING. *{COD Ne 


1110 GOSUB 1120:G0T0 1600 

1120 PRINT "Wie heisst das Programm 
Fall 

1130 X=20:G0OSUB IFORM:INPUT NAME$ 
1140 PRINT :PRINT "Wie heisst es im 
Directory ?{12SPACES}(? = DIR.)" 
1150 X=8:GOSUB IFORM:INPUT ND$:IF ND 
$(1,1)="?" THEN SD=-1:LESEN$=DAT$:GO 
SUB 2220:SD=0:DAT$=LESEN$:GOTO 1140 


1160 PRINT :PRINT "Auf welcher Disk 
on 








OSUB IFORM:INPUT DNO$ ,/_ 
SEK>=0 AND DNO$(1,1)="{CODEY 
' THEN GOSUB 7010:G0TO 1160 

1174 PRINT :PRINT "Von wem ist die D 
isk ?" 

1176 RESTORE 4100:READ SEKA:FOR X=1 
TO SEKA:READ GN$,KN$: PRINT GN$;"t - 
;KN$:NEXT X 

1177 X=1:GOSUB IFORM:INPUT BD$:IF BD 
SIE TSODEISI" AND SEK<O THEN 118 
0 Sr 


1178 RESTORE 4100:READ SEKA:FOR X=1 
TO SEKA+1:READ GN$,KN$:IF GN$=BD$ TH 
EN POP :GOTO 1180 


1179 NEXT X:IF SEK>=0. THEN P T, "ic 
211/239/236/236/ 244/229 / 233/2 
Ey / /233/2 2 /285/229/2 
/238/ d29/288/ 160/ 191/ 191/ 1$1}":G0S 


UB 7010:G0TO 1174 

1180 PRINT :PRINT "Mit welchem DOS g 
espeichert ?" 

1190 RESTORE 4120:READ SEKA:FOR X=1 
TO SEKA:READ KN$: PRINT CHR$(ASC(STR$ 
(X))+128)5" "5KN$:NEXT X 

1200 X=1:GOSUB IFORM:INPUT DSA$:IF D 


— 


: ® ee: AND SEK<O THEN 1 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


270 
1210 RESTORE 4120 


u eh DSA$S>STR$( 
205 / 123 /2 

ER 
2 9 2 2 
2 EEE y/ 


160/1 


:READ 
EKAM THEN ?2Ht 
/239/ 160/229/ r 
/248/2 EEE 
SITES FIRE VEREN. 
1}":GOSUB 7010:GOT 
0 1180 
1270 PRINT :PRINT 
rt ?" 
1280 RESTORE 4140:READ SEKA:FOR X=1 
TO SEKA:READ GN$,KN$: PRINT GN$;" ";K 
N$:NEXT X 
1290 X=1:GOSUB IFORM:INPUT PART$:IF 
SEK<O AND PART$(1,1)="{CODEY5}" THEN 
1370 
1300 RESTORE 4140:READ SEKA:FOR X=1 
TO SEKA:READ GN$,KN$:IF GN$=PART$ TH 
EN POP :GOTO 1370 


(7 ® he hl 
1310 NEXT X:PBINT W{CODE174/ 174/ 174/ 
WWebse ieh 1g612 1 dasız 2/ 180/ 
238/229 / ul / 180/ %6 1}":GOSUB 7010:G0T 


0 1270 

1370 PRINT :PRINT "In welcher Sprach 

e geschrieben ?" 

1380 RESTORE 4160:READ SEKA:FOR X=1 

TO SEKA:READ KN$:PRINT CHR$(ASC(STR$ 
(X))+128);5" "5KN$SNEXT X 

1390 X=1:G0OSUB IFORM:INPUT LANG$:IF 

SEK<O AND a THEN 
1500 BY 

1395 RESTORE 4160:READ SEKA 


1400 IF LANG$<"1" OR LANG >STRE( A 
)_-THRN, ?art{c / 227J 232 / 166/ 235/ 2 
28 / BET 1281289 /237/238/ 2 
437 2hb/ 212/286 / 287/238) 259 / 28 / 160 /2 
12 /2 Bert 4/ 160/236/329/233/2 

Q 


"Welche Programm-A 


229/238/ 161}":GOSUB 7010:GO0TO 
1370 
1500 PRINT "Sonstiges / Bemerkungen 
zu 
1510 X=16:G0OSUB IFORM:INPUT SONST$ 
1540 RETURN 
1600 DAT$(1,1)="#",DAT$(2,20)=NAMES$: 


DAT$(21,28)=ND 
DAT$ DNO$:DAT$(34,34)=BD 
:DAT$(35,35)=DSA$ 


Kr DAT$(36,36)=PART$:DAT$(37,37)=L 

NG 
1630 DAT$(38,53)=SONST$:DAT$(54,59)= 
"000000" 

"1650 REM * RICHTIGE POS. SUCHEN * 
1660 GOSUB SETPNT:TRAP ERR:OPEN #2,4 
‚O,"D:DISKVERW.DAT":POINT #2,SEKP,BY 
TEP:TRAP 5100 
1662 SEKV=SEKA:BYTEV=BYTEA:GN$="???? 
22272222222??? ?":VORF$="M 


Eine Publikation von CHIP 


1664 REM 


EN$:IF LESEN$(2,20)<NAME$ THEN VORF$ 

=LESEN$:SEKVO=SEKV: BYTEVO=BYTEV 

1670 IF LESEN$(1,1)="{CODEY6}" THEN 

GN$=LESEN$(2,20):G0OTO 1685 

1675 SEKP=VAL(LESEN$(54,56)):BYTEP=V 

AL(LESEN$(57,59)):POINT #2,SEKP,BYTE 

P 

1680 IF LESEN$(2,20)<NAME$ THEN 1664 
1685 IF LESEN$(1,1)="{CODE96}" AND L 

ESEN$(2,20)<NAME$ THEN DAT$C1,19="{C 

ODEI6}" 

1690 TRAP 40000:CLOSE #2:IF DAT$(1,1 

ER THEN 1720 

1695 ORF$="" AND DAT$(1,1)<>"{cO 

DE96}" THEN SEKV=SEKA:BYTEV=BYTEA 

1700 REM #* DAT$ SCHREIBEN # 

1710 DAT$(57-LEN(STR$(SEKV)),56)=STR 

$(SEKV):DAT$(60-LEN(STR$(BYTEV)),59) 

=STR$(BYTEV):REM #* NAECHSTES FIELD #* © 
1720 OPEN #2,9,0,"D:DISKVERW.DAT" 

1725 NOTE #2,SEKO,BYTEO:REM ANFANG 
1730 PRINT #2;DAT$ 

1732 CLOSE #2 

1770 IF VORF$="" THEN GOSUB 2000:RET 

URN 

1820 OPEN #2,12,0,"D:DISKVERW.DAT" 
1830 POINT #2,SEKVO,BYTEVO:REM * VOR 

. FIELD * 

1840 IF VORF$(1, 

ORF$(1,1)="#" 
1850 VORF$(54,56)="000":VORF$(57-LEN 
(STR$(SEKO)) ,56)=STR$(SEKO) 

1860 VORF$(57,59)="000":VORF$(60-LEN 
(STR$(BYTEO)),59)=STR$(BYTEO) 

1865 REM * POINTER NEU SETZEN # 

1870 POINT #2,SEKVO ‚BYTEVO 

1880 PRINT #2; VORF$ 

1900 CLOSE #2:RETURN % 

2000 REM * NEUES DAT$ AN 1.STELLE # © 

2040 OPEN #2,8,0 ,"D:DISKVBEG.DAT" 

2050 PRINT #2;SEKO:PRINT #2;BYTEO:CL 

OSE #2:SEKA=SEKO:BYTEA=BYTEO:RETURN 

2200 REM {copE36} DIRECTORY LIST. {Ce 

ODE96} ” 

2210 PRINT "{CODE125}* 2{2SPACES}-{2 
SPACES}DIRECTORY LISTEN *{CODE29/29} 

1 & un Rokı_ 
2220 TRAP ERR:OPEN #2,6,0,"D:*.*"; TR 

AP EOR 

2230 INPUT #25;DAT$:PRINT DAT$ 

2240 X=LEN(DAT$):IF DAT$(X,X)<>".m A 

ND DAT$(X,X)<>"S" THEN 2230 N 
2245 IF SD<O THEN CLOSE #2:RETURN 

2250 CLOSE #2:POSITION 0,22:PRINT "< 
Eine Taste druecken WIESE 


SEKA:IF pp aus: NOTE #2,SEKV,BYTEV:INPUT #2;LES 
2 


1)="{CODEI6}" THEN V 
lo eo 


x 


77 To 





Ordnen, Archivieren 





GOSUB GCHAR: RETURN 3162 KN$=LANG$:GOSUB CONV:LANG$=GN$ 
2400 REM {CODE96} ALLE DATEN AUFLIST ” KN$=SONST$:GOSUB CONV:SONST$=GN 
EN # 

2420 PRINT "{CODE125}* 4{2SPpacEs}-{2 3190 PRINT "{CODE125}<<< GEFUNDEN 
SPACES}GESAMTE DATEI AUFLISTEN *{cop >>>>{CODE29/29}" 


E29/29}" 3200 GOSUB SETPNT:X=1:0PEN #2,4,0,"D 
2440 GOSUB SETPNT:TRAP 2510:X=1 :DISKVERW.DAT" 

2460 OPEN #2,4,0,"D:DISKVERW.DAT" 3210 POINT #2,SEKP,BYTEP 

2470 POINT #2,SEKP,BYTEP 3220 INPUT #2;DAT$ 


2480 INPUT #2;5DAT$:PRINT X;".";Dar$( 3240 IF NAME$<>"" THEN IF DAT$(2,1+L 
2,20);" (";5DAT$(21,28);"): ";Dargizgn EN(NAME$))<>NAME$ THEN 3500 


ä 3250 IF ND$<>"" THEN IF DAT$(21,20+L 
90 SEKP=VAL(DAT$(54,56)):BYTEP=VAL E $))<>ND$ THEN 3500 
(DAT$(57,59)):X=X+1:IF X<=10 THEN PR ! F DNO$<>"" THEN IF DAT$(29,28+ 
INT LEN(DNO$))<>DNO$ THEN 3500 
2500 IF DAT$(1,1)<>"{CODEY6}" THEN 2 3270 IF BD$<>"" THEN IF DAT$(34,34)< 
470 >BD$ THEN 3500 
2510 CLOSE #2:TRAP 40000:PRINT :PRIN 3280 IF DSA$<>"" THEN IF DAT$(35,35) 
T "Das war's." <>DSA$ THEN 3500 
2520 GOSUB GCHAR: RETURN 3290 IF PART$<>"" THEN IF DAT$(36,36 
12600 REM * INIT DISKVERW.DAT ® )<>PART$ THEN 3500 


2601 PRINT "{CODE125}* 8{2SPACES}-{2 3300 IF LANG$<>"" THEN IF DAT$(37,37 


SPACES}DISKVERW.DAT NEU *{CODE29/29} )<>LANG$ THEN 3500 
" 3310 IF SONST$<>"" THEN IF DAT$(38,3 


2605 PRINT "Soll WIRKLICH die Datei 7+LEN(SONST$))<>SONST$ THEN 3500 
NEU me damit {CODE 3400 PRINT X;5". ";DAT$(2,20);": "5DA 


193/20#/ 20 F211} in der Datei GE T$(29,33):X=X+1 
LOESCHT{2SPACES}werden "; 3500 REM #* NICHT AUSDRUCKEN # 

2607 INPUT BD$:IF BD$<>"J"m AND BD$<> 3570 SEKP=VAL(DAT$(54,56)):BYTEP=VAL 
"y" THEN RETURN (DAT$(57,59)) 


2608 PRINT :PRINT "O.K. Ich mach's, 3580 IF DAT$(1,1)<>"{CODEY96}" THEN 3 
aber ich lehne jeglicheVerantwortung 210 


ab !" 3590 PRINT :PRINT "Das war's.":GOSUB 
2615 CLOSE #2:0PEN #2,8,0,"D:DISKVER GCHAR:CLOSE #2:RETURN 
W.DAT" 3600 REM * DATEN ANZEIGEN # 

2620 NOTE #2,SEKP,BYTEP:CLOSE #2 3610 PRINT "{CODE125}* 6 - DATEN ZU 


2630 OPEN #2,8,0,"D:DISKVBEG.DAT":PR P-NAMEN *{CODE29/29}" 
INT #2;5SEKP:PRINT #2;BYTEP:CLOSE #2: 3620 PRINT "Wie heisst das Programm 


RETURN zn 
| 3000 REM {CODE96} NACH SPEZ. KRIT. S 3630 X=19:GOSUB IFORM:INPUT NAME$:PR 
' UCHEN {CODEY6} INT :PRINT 


3100 PRINT "{CODE125}* 5{2SPACES}-{2 3700 GOSUB SETPNT:VORF$="" 
SPACES}SUCHE NACH SPEZ. KRIT{2SPACES 3720 OPEN #2,4,0,"D:DISKVERW.DAT" 
}#*{CODE29/29}" 3730 POINT #2,SEKA,BYTEA 

3120 PRINT "Die Suchkriterien eingeb 3740 INPUT #2;DAT$:SEKP=VAL(DAT$(54, 
en. Falls ein{3SPACES}bestimmtes Kri 56)):BYTEP=VAL(DAT$(57,59)):IF SEKP> 
terium unwichtig ist,"nj po 7° THEN POINT #2,SEKP,BYTEP 

3130 PRINT "einfach {cobEı8 / YWig 3745 IF DAT$(1,1)="{CODEY96}" THEN X= 
/212/213/210/206/190} druecken.{CODE -1:GO0TO 3770 





29}" 3760 IF DAT$(2,20)<NAME$ THEN 3740 
3140 SEK=-1:G0SUB 1120:SEK=0 3770 IF DAT$(2,20)=NAME$ THEN PRINT 
3150 KN$=NAME$:GOSUB CONV:NAME$=GN$ "{CODE125}*%%* GEFUNDEN ##%*{CODE29}": 
3152 KN$=ND$:GOSUB CONV:ND$=GN$ GOTO 3800 

3154 KN$=DNO$:GOSUB CONV:DNO$=GN$ 3780 PRINT "--- NAME NICHT IM BESTAN 
3156 KN$=BD$:GOSUB CONV:BD$=GN$ D ---":GOTO 3990 


3158 KN$=DSA$:GOSUB CONV:DSA$=GN$ 3800 REM * GEFUNDEN # 
3160 KN$=PART$:GOSUB CONV:PART$=GN$ 3810 PRINT "Daten zu ";NAME$;":{CODE 


68 Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Esc/ CHrl/= 


29 
= Rs — a / < Bu Ordnen, Archivieren 


29 }" 

3820 PRINT "{CODE29}Im Directory: "; 

DAT$(21,28) 

3830 PRINT "{CODE29}Disk No.{4SPACES 
}: ";DAT$(29,33) 

3840 PRINT "{CODE29}von{9SPACES}: "3; 

3842 RESTORE 4100:READ SEKA:FOR X=1 

TO SEKA+1:READ GN$,KN$:IF GN$=DAT$(3 

4,34) THEN PRINT KN$:POP :GOTO 3850 

3844 NEXT X:PRINT "???{2SPACES}<";5DA 

T$(34 , 34) ;">" 

3850 PRINT "{CODE29}DOS Art{5SPACES} 
. Ne 

. ’ 

3852 RESTORE 4120:READ X:FOR X=1 TO 

VAL(DAT$(35,35)):READ GN$:NEXT X:PRI 

NT GN$ 

3860 PRINT "{CODE29}Programm-Art: "; 
3865 RESTORE 4140:BD$=DAT$(36,36):RE 

AD SEKA 

3866 FOR X=1 TO SEKA:READ GN$,KN$:IF 
BD$=GN$ THEN PRINT KN$:GOTO 3870 
3868 NEXT X: PRINT "???{2SPACES}<" 

$;t>" 

3870 PRINT "{CODE29}Sprache{5SPACES} 
: "5 s:RESTORE 4160 

3872 READ SEKA:FOR X=1 TO VAL(DAT$(3 

7,37)):READ KN$:NEXT X: PRINT KN$ 
3890 PRINT "{CODE29}Bem./Sonst. : "; 

DAT$(38,53) 

3990 CLOSE #2:POSITION 0,22:PRINT "< 
Eine Taste druecken {CODE190/30}"35: 

GOSUB GCHAR: RETURN 

4000 REM === DATEN 
4100 DATA 4,T,THOMAS PETZ,W,WOLFGANG 
SCHMIDT,K,KAI-UWE WAHL,H,KAI HERRGE 
N 

4105 DATA B,BULLY 

4120 DATA 3,DOS2/OSA+,DOS 2.6f "schw 
arzes DOS',DOS 3 

4140 DATA 4,G,GAME,U,UTILITY,C,COPY- 
PROGRAMM, A,ANWENDUNGSPROGRAMM 

4160 DATA 4,MASCHINENSPRACHE/OBJ,BAS 
IC (SAVE) ,BASIC (LIST) ,ASSEMBLER-LIS 
TING 

4500 REM * DAT. LOESCHEN # 

4510 PRINT "{CODE125}# 7{2SPACES}-{2 
SPACES}PROGRAMMNAMEN LOESCHEN *{CODE 
29/29}" 

4520 PRINT "Wie heisst das Programm 
on 
4530 

INT 

4600 
4620 

4630 

V=0 

4635 


;BD 


X=19:GOSUB IFORM:INPUT NAME$:PR 
PRINT 

GOSUB SETPNT: VORF$="" 

OPEN #2,12,0,"D:DISKVERW.DAT" 
POINT #2,SEKA,BYTEA:SEKV=0:BYTE 


SEKM=SEKV:BYTEM=BYTEV 


Eine Publikation von CHIP 


4640 INPUT #2;5DAT$:SEKV=SEKP:BYTEV=B 
YTEP:SEKP=VAL(DAT$(54,56)):BYTEP=VAL 
(DAT$(57,59)):IF SEKP>O THEN POINT # 
2,SEKP,BYTEP 

4645 IF DAT$(1,1)="{CODEIYG6}" THEN X= 
-1:G0OTO 4670 

4660 IF DAT$(2,20)<NAME$ THEN VORF$= 
DAT$:GOTO 4635 

4670 IF DAT$(2,20)=NAME$ THEN PRINT 
"{CODE125}%%*% GEFUNDEN ###{CODE29}": 
GOTO 4700 

4680 PRINT "--- NAME NICHT IM BESTAN 
D ---":G0TO 4990 

4700 REM %* GEFUNDEN *# 

4710 PRINT "Name: ";NAME$ 

4720 PRINT "{CODE29}Datenformat: 
AT$ 

4740 PRINT "{CODE29/29}Soll diese Ei 
ntragung geloescht werden ?"5;:INPUT 
BD$ 

4750 IF BD$<>"J" AND BD$<>"y" THEN P 
RINT "O.K. Nicht loeschen.":GOTO 499 
0 

4800 PRINT "{CODE29/29}<<< {CODE204/ 
207/ 197/211/ 195/200/ 197/206} >>>" 
4805 IF VORF$="" THEN 4840 

4810 VORF$(54,59)=DAT$(54,59):IF SEK 
P=0 THEN VORF$(1,1)="{CODEYG6}" 

4820 POINT #2,SEKM,BYTEM: PRINT #2;VO 
RF$:GOTO 4990 

4840 REM #* DAT$ AN 1. STELLE *# 

4845 IF DAT$(1,1)="{CODEI96}" THEN GO 
SUB 2615:PRINT "GESAMTE DATEI GELOES 
CHT":GOTO 4990 

4850 CLOSE #2:OPEN #2,8,0,"D:DISKVBE 
G.DAT" 

4860 PRINT #2;5SEKP:PRINT #2;BYTEP 
4990 CLOSE #2:POSITION 0,22:PRINT "< 
Eine Taste druecken {CODE190/30}"3;: 
GOSUB GCHAR: RETURN 

5000 REM * ERROR-VERARBEITUNG # 

5010 PRINT :PRINT "{CODE197/210/210/ 
207/210} - ";PEEK(195):END 

5100 REM {CODE64} VON ZEILE 1661 {co 

DE64} 
5110 
5120 
: REM 
" 
5130 CLOSE #2:DAT$(1,1)="{CODEI6}":T 
RAP 40000 

5140 OPEN #2,8,0,"D:DISKVERW.DAT":GO 

TO 1725 

5200 REM #* ALLG. FEHLERABFAENGER # 
5210 PRINT :SD=PEEK(195):PRINT "{cCOD 
E198/ 197/200/204/ 197/210/ 160/ 163}"35S 

D 


"sD 


IF PEEK(195)<>136 THEN 5010 
PRINT :PRINT "ERSTE EINTRAGUNG" 
=> NOCH KEINE DATEN VORHANDEN |! 


69 


Ordnen, Archivieren 


5220 IF SD=144 THEN PRINT "I/O-DEVIC 


E-ERROR": PRINT "Bitte Diskette pruef 
en." 

5230 IF SD=162 THEN PRINT "Diskette 
voll." 

5240 IF SD=166 THEN PRINT "(POINT-Fe 
hler)" 


5250 IF SD=167 THEN PRINT "DATEI GES 
CHUETZT.":PRINT "{CODE211/227/232/24 
2/229/233/220/243/227/232/245/244/25 
MU HeNe ee - 
eh 4 eat, A 
».S E08 un 
5260 ar In m THEN PRINT "DATEI ine 
HT GEFUNDEN.":PRINT "Liegt die richt 
ige Disk (seite) im Drive ?" 

5270 IF SD=171 THEN PRINT "(Unguelti 
ger POINT-Befehl)" 

5280 IF SD=128 THEN PRINT "ABBRUCH D 
URCH BREAK.":PRINT "Sie haben waehre 
nd der I/O-Operation aufBREAK gedrue 
ckt !" 

5290 IF SD=133 THEN PRINT "File nich 
t offen." 

5400 GOSUB 7200:PRINT 
aste druecken." 

5410 GOSUB GCHAR:RUN 
6000 REM #* DATEI AENDERN # 

6010 PRINT "{CODE125}* 3{2SPACES}-{2 
SPACES}DATEI AENDERN *{CODE29/29}" 
6040 PRINT "Welche Eintragung ist zu 
aendern ?" 

6050 PRINT "Wie heisst das Programm 
zu 

6060 X=19:GOSUB IFORM:INPUT NAME$ 
6070 WK=20:G0OSUB 6600:X=0: PRINT 

6100 GOSUB SETPNT:OPEN #2,4,0,"D:DIS 
KVERW.DAT" 

6110 POINT #2,SEKA,BYTEA 

6120 INPUT #25DAT$:SEKM=SEKP:BYTEM=B 

YTEP:SEKP=VAL(DAT$(54,56)):BYTEP=VAL 
(DAT$(57,59)):IF SEKP>O THEN POINT # 
2,SEKP,BYTEP 

6130 IF DAT$(1,1)="{CODEY6}" THEN 61 
70 

6140 IF DAT$(2,WK)<NAME$ THEN 6120 
6170 IF DAT$(2,WK)=NAME$ THEN PRINT 
"GEFUNDEN: "5DAT$(2,20):X=1:G0TO 612 
0+80%*(DAT$(1,1)="{CODEY6}" OR WK=20) 
6175 IF DAT$(2,WK)>NAME$ OR DAT$(1,1 
a De THEN GOTO 6180+20%(WK<2 
o)#xX 

6180 IF X=0 THEN PRINT "--- NAME NIC 

HT IM BESTAND ---":GOTO 6490 

6200 REM %* GEFUNDEN # 


sPRINT "Eine T 


6204 PRINT :PRINT :PRINT 
druecken";:GOSUB GCHAR 
6210 PRINT "{CODE125/29/29}Nun die { 
CODE238/229/245/229/238} Daten einge 
ben. Falls in{2SPACES}bestimmten Pun 

kten nichts geaendert" 

6220 PRINT "werden soll, <{CODE210/1 
97/212/213/210/206}> druecken.{CODE2 
9/29/29}" 

6230 SEK=-1:GOSUB 1140 

6240 PRINT :PRINT "Aenderungen:":PRI 


NT 
6300 IF ND$<>DAT$(21,28) AND ND$(1,1 
)<>"{CODE95}" THEN PRINT DAT$(21,28) 
st => M>ND$:DAT$(21,28)=ND$ 
DNO$<>DAT$( AND DNO$(1 
‚1)<>"{CODEI5}" THEN DAT 
;t => N5>DNO$:DAT$ NO 
20 IF BD$<>DAT$(34,34) AND BD$<>"{ 
CODE95}" THEN PRINT DAT$(34,34);5" => 
";BD$:DAT$(34,34)=BD$ 
6330 IF DSA$<>DAT$(35,35) AND DSA$<> 
"{CODE95}" THEN PRINT DAT$(35,35)5" 
=> N>DSA$:DAT$(35,35)=DSA$ 
6340 IF PART$<>DAT$(36,36) AND PART$ 
<>"{CODEY5}" THEN PRINT DAT$(36,36); 
" => NSPART$:DAT$(36,36)=PART$ 
6350 IF LANG$<>DAT$(37,37) AND LANG$ 
<>" {CODEY95}" THEN PRINT DAT$(37,37);5 
" => "SLANG$:DAT$(37,37)=LANG$ 
6360 IF SONST$<>DAT$(38,53) AND SONS 
T$(1,1)<>"{CODE9Y5}" THEN PRINT DAT$( 
38,53);5" => "5SONST$:DAT$(38,53)=SON 
ST$ 
6400 OPEN #2,12,0,"D:DISKVERW.DAT" 
6410 POINT #2,SEKM,BYTEM 
6420 PRINT #2;DAT$ 
6490 CLOSE #2:PRINT :PRINT :POSITION 
0,22:PRINT "< Eine Taste druecken { 
CODE190/30}"; :GOSUB GCHAR: RETURN 
6600 REM * WILDCARDS EXTRAHIEREN # 
6620 FOR SD=1 TO LEN(NAME$) 
6630 IF NAME$(SD,SD)<>"#" THEN NEXT 
SD: RETURN 
6640 PRINT :PRINT "WILDCARD" :WK=SD- 1 
:NAME$=NAME$(1,WK) :WK=WK+ 1:RETURN 


"Eine Taste 






a BEN *## {DSPACES}SOUNDS{2SPACES} 
*% 


7010 REM # FALSCHE EINGABE # 

7020 FOR SD=50 TO 150 STEP 5 

7030 SOUND 0,SD,10,6:SOUND 1,SD,12,6 
:NEXT SD:SOUND 0,0,0,0:SOUND 1,0,0,0 
:RETURN 

7100 REM % ERWARTE EINGABE # 

7110 FOR SD=80 TO 50 STEP -4:SOUND O0 


6202 CLOSE #2:IF WK<20 THEN PRINT 10,8:NEXT SD:SOUND 0,0,0,0:RETUR 


RINT :GOTO 6040 


EREN 


70 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 



























(Atari 800XL, 48 K, Drucker) 


Für die Berechnung der Rente per 
Hand ist ein hohes Maß an Vorkennt- 
nissen notwendig. Das vorliegende 
Programm ermöglicht aber eine ein- 
fach Durchführung der Rentenberech- 
nung. Alle Eingaben werden über den 
Bildschirm angefordert, so daß die 
Fehlerquellen minimal sind. 


Die Schwierigkeiten bei der Renten- 
berechnung beruhen darauf, daß die 
Rente für jeden Versicherten indi- 
viduell berechnet werden muß. Zwar 
wird jeder Berechnungsfall nach 
einer allgemeinen Formel behandelt, 
aber unter ausdrücklicher Berück- 
sichtigung der persönlichen Daten. 


Das Programm kann 
Rentenarten bearbeiten: 
- Rente wegen Berufsunfähigkeit 

-— Rente wegen Erwerbsunfähigkeit 
Altersruhegeld 

- Witwenrente 

- Waisenrente 

Alle berechneten Daten 
automatisch ausgedruckt. 


folgende 


werden 


Programm-Ablauf 


Nach dem Titelbild erscheint die 
Aufforderung, den Namen des Versi- 
cherten einzugeben. Dann folgt die 
Frage, ob die einzelnen Elemente 
der Rentenformeln auf dem Monitor 
ausgegeben werden sollen, ob Infor- 
mationen zu den Elementen geliefert 
werden sollen oder ob die Formeln 
selbst benötigt werden. 


Jetzt muß zwischen Angestelltenren- 


Eine Publikation von CHIP 














(AR) 


te (AG) und Arbeiterrente 
entschieden werden. 


Da es verschiedene Beitragszah- 
lungsweisen gibt - Marken kleben in 
der Zeit von 1924 bis 1976, Abzug 
vom Bruttogehalt von 1924 bis 
heute, Abbuchungsverfahren für u.a. 
freiwillige Beiträge von 1977 bis 
heute - ,„ muß bei dieser Abfrage 
eine Kennzahl von 1 bis 4 eingege- 
ben werden. Keine DvHS-Daten bedeu- 
tet, daß alle Daten zur DvHS- 
Berechnung eingegeben worden sind. 


Beschreitet man den Weg der Marken, 
so muß man als nächstes die Frage 
nach Einzahlungsjahr, -klasse und 
eingezahlten Wochen bzw. Monaten 
beantworten. Da sich in den Jahren 
1942, 1949 und 1957 die Beiträge im 
Jahr ändern und nicht am Jahresen- 
de, muß in diesen drei Jahren nach 
der zweistelligen Jahreszahl - 
durch Dezimalpunkt getrennt - noch 
der Monat eingegeben werden, für 
den der Beitrag entrichtet worden 
ist. Für die Monate Oktober, Noven- 
ber und Dezember wird anstatt der 
entsprechenden Monatszahl eine 9 
eingegeben. Bei den anderen Jahren 
wird der Monat weggelassen. Aber 
nicht verwechseln: Die Anzahl der 
gezahlten Beitragsmonate bezie- 
hungsweise -wochen müssen immer 
nach der Einkommens-(Lohn-)Klasse 
eingegeben werden. Anschließend 
erscheinen dann die DvHS-Werte für 
den gezahlten Betrag. Sollen 
weitere DvHS-Daten eingegeben 
werden, muß die RETURN-Taste 
gedrückt werden, ansonsten die N- 
Taste. Jetzt erscheint die Gesant- 


® 





71 


















































Altersversorgung 


ausgabe der DvHS-Daten. 


Beschreitet man den Weg der Abbu- 
chung oder der Bruttoentgeldzah- 
lung, dann muß man im folgenden nur 
die zweistellige Jahreszahl, den 
Bruttoverdienst bzw. Abbuchungsbe- 
trag und die Anzahl der gearbeite- 
ten Monate in dem Jahr eingeben. 
Bei Abbuchung bitte beachten, daß 
die Jahreszahl nicht kleiner als 77 


Sind alle DvHS-Daten einegegeben 
worden, so müssen die Fragen nach 
der Zurechnungszeit, Ausfallzeit 
und Ersatzzeit beantwortet werden. 
Die genaue Fragestellung ergibt 


sich aus dem Bildschirmdialog. 


Jetzt folgt die Frage nach Stei- 
gerungssatz, Rentenfaktor, Höher- 
versicherungsbetrag und Anspruch 
auf Kinderzuschuß. Eine wichtige 


sein darf, da es vorher noch kein Zahl muß noch bestätigt oder neu 
Abbuchungsverfahren gab. Falls eingegeben werden: die Allgemeine 
keine weiteren Daten eingegeben Bemessungsgrundlage. Abschließend 
werden, erscheint wiederum die wird die Jahresrente errechnet und 
gesamte DvHS-Tabelle. ausgegeben. Dieter Kolsch 

Beispiel Rentenberechnung 

Names Egal, Otto 

Geb.:s 1945 

Arbeitsverhältnis: Angestellter 

Kinder: zwei Kinder 


Lehre: v. 4/196C bis 3/1963 = 36 Monate 
Berechnung der Altersrente, Gehalt bis zum 31.12.1984 


Keire Krankheiten, Keine Bundeswehr 
Rente vom Arbeitgchber gezahlt, also Bruttoarbeitsentgelt 


Jahr DM gearbeitete Monate 
TE 26000 12 
Ir 21900 12 
78 28000 12 
72 28700 12 
80 29300 12 
81 30100 12 
82 31500 12 
83 33000 12 
84 34500 12 


10/2Monate Arbeitslos 


Gehalt: 

Jahr DM sgeerbeitete Monate 
63 EICO =. 

64 8400 12 

65 9400 12 

GE 10100 12 

67 10900 12 

68 11300 12 

&e9 11500 12 

70 13300 12 

13 13950 12 

72 4500 3/9Monate Arbeitslos 
3 15000 

172 21000 12 

75 23000 12 


72 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Altersversorgung 





OTTO 


aa 
2.laAl.u 


DyvHS-kiochenmarken = ü 
DyH5-Monatsmarken = 0 








mm = 3.351106 
WE Er MONATE 
NE=-Monatsdurchschnitt zu 
DvHS 102. 64083 
WE-Summe = summe dem 
WE=-Monate = Anzahl dem 
= = NO 
Er: | = 0 
Ausfallzeit = 47 


Zwrechnangszeit se 
Versicherungsjahre = 35 
Steigerungssabz = 1.ü 
Rentenfaktor = 1 
Hoeherversicherunmg #0 
Kinderzuschuss = Ia6sF.& 
ALlc 
Fers, 


lJahresrente = 












13796. 4051 


1 "Druttbentgelt/AsHuchting ‚m 


Benessungsgmumelage 
EFenessungsgrundlage = 37004,8034 


Beispiel Rentenberechnung 


102.4 


3, 55240442 


Frorentzahlen 
Beitragsgeleisteten Monate 


zer 
2510 


De 


REM 
REM 
REM 
REM 
REM 
CLR :DIM NA$(20) 

10 REM TITELBILD 

20 GRAPHICS 18:SETCOLOR 4,13,2 

25 POSITION 1,1:? #6;"RENTERENTERENT 
EREN!" 

27 POSITION 1,2:? 
30 POSITION 1,3:? 
EN-{4HSPACES}E" 

35 POSITION 1,45;? 
CHNUNG{ 3SPACES}N" 
40 POSITION 1,5:? 
7SPACES}T" 

45 POSITION 1,6:? 
LSCH{4SPACES}E" 
50 POSITION 1,7:? 
URING{4USPACES}R" 
55. POSITION 1,853? 
84{5SPACES}E" 

57 POSITION 1,9:? 
ER.N" 

60 POSITION 1,10:? #6;"TERENTERENTER 
ENTET" 

70 FOR L=1 TO 1500:NEXT L 

82 ? "{CODE125}":? :? :? :? :? "Gebe 
n Sie bitte Name des Versicherten ei 
n.(NAME.VORNAME)"5:TRAP 82:INPUT NA$ 


RENTENBERECHNUNG 
FUER CHIP-SPECIAL 
VON DIETER KOLSCH 


ON Fwm —_ 


#6; "RÜ16SPACES}R" 
#6; "E{SSPACES}RENT 


#6;"N{3SPACES}BERE 
#6;"T{i6SPACES}VON{ 
#6;"E{4SPACES}D.KO 
#6; "Ri3SPACES}SCHE 
#6; "EiSSPACES}9Y/1Y 


#6;"N WIRTSCHAFTSB 


Eine Publikation von CHIP 


83 LPRINT NA$;"{CODE10}" 

90 DIM A$(5), 0$(5), DJ(31) 

99 REM ABFRAGEN NACH INFORMATIONEN 
100 ? «{CODE125}"3?7 32 17: 177,77 77 
Benoetigen sie d. Elemente der Rente 
n-formeln (J/N) "5;:INPUT A$:IF A$="N 
" THEN 110 

101 IF A$<>"J" THEN 100 

102 GOTO 10000 

110 2? "{CODE125)9:7 st iur 
Benoetigen Sie Informationen zu dent 
.—n der Rentenformel ( 
J/N "> 

111 INPUT A$:IF A$="N" THEN 
112 IF A$<>"J" THEN 110 

113 ? :?2 :? :? :? “Geben Sie bitte e 
ine Zeilennummer ein":? :? "{3SPACES 
}<1> DvHS":? "{3SPACES}<2> Ba":? "{3 
SPACES}<3> Bp":? "{3SPACES}<4> VJ" 
114 ? "{3SPACES}<5> StS":? "{3SPACES 
}<6> JR":? W{3SPACES}<7> RF":? "{3SP 
ACES}<8> Hv ":? "{3SPACES}<9> KiZ{6S 
PACES}"; 

115 INPUT A:ON A GOTO 10010,10020,10 
030,10040,10050,10060,10070,10080,10 
090 

0 ? “ICODE125)"1:7 3:7 47 57 32 so u 
Benoetigen Sie die Rentenformein(J/N 
)":INPUT A$:IF A$="N" THEN 130 

121 IF A$<>"J" THEN 130 

122 ar", 


konserÄ 


120 


73 


Altersversorgung 





130 ? "{CODE125}":? :? :? :? "Weiche 
Berechnung moechten sie anstel-ien, 
Arbeiterrenten-oder Angestellten- ve 
rsicheruNG(AR/AG)"; 

131 TRAP 131:INPUT O$:IF O$<>"AR" AN 
D O$<>"AG" THEN 130 

133 GOTO 2150 

2149 REM ABBUCHUNG ‚MARKEN, BRUTTOARBE 
ITSENTGELT 

2150 2? WICODE1255":72 27 22 12 32 #2? 
Geben Sie Kennzahi ein: Marken <I>, 
{3SPACES}Bruttoarbeitsentgeid <2>, A 
bbuchung(ab1977) "; 

2151 2? "<3>, Keine DvHS-Daten <4> ei 
n";:INPUT ABC 

2152 IF ABC=1 THEN 2200 

2153 IF ABC=2 THEN 2380 

2154 IF ABC=3 THEN 2380 

2155 IF ABC<1 AND ABC>4 THEN 2150 
2156 LPRINT "DvHS-Wochenmarken = ";D 
VHSW:LPRINT "DvHS-Monatsmarken = ";D 


VHSM:LPRINT "DvHS-Beuttogntgeit/Abbu 

chung = ";DVHSB  , 

2157 LPRINT "WE-Sum 2SPÄCES}= "5G: 

LPRINT "WE-MONATE = ";T 

2158 LPRINT "WE-Monatsdurchschnitt = 
1" DVHSDURCH 

2159 LPRINT "DvHS = ";DVHS 

2160 LPRINT "WE-Summe = summe der Pr 

ozentzahlen":LPRINT "WE-Monate = Anz 

ahl der Beitragsgeleisteten Monate" 

2161 GOTO 5000 

2200 REM BERECHNUNG DvHS-MARKEN 

2201 ? "CODEI25 WE? 32.32 82 22 ı?2 

NGeben Sie bitte Einzahiungsjahr und 

-{2SPACES}Monat(J.M), Einkommen-(Loh 

n)steuer-{3SPACES;klasse"; 

2202 ? "(K) und Anzahl der Wochen(W) 
{4SPACES}ein. Die Jahres-zahl ohne H 

underter-{2SPACES}steilien! Fuer die 

Monate 10,11,"; 

2203 ? "12 an{2SPACES}deren Stelle e 

ine 9 eingeben!{CODE196/233/229/243} 
{CODE231/233/236/244/238/245/242} { 

CODE230/245/229/242} {CODE228/233/22 

9} iCODE202/225/232/242/229} {CODE18 
0/ 178/ 172/ 180/185/ 172/181/183}. Sons 

t oh-ne Monatseingabe"! 

2204 ? “Fuer die Zeiten der Monatsma 

rken, an- stelie der Wochen- die Mon 

atsanzahl{3SPACES}eingeben. M fuer W 

1) 


2205 ? Wi3SPACES}(JJ.M,KK,WW/MM) 15; 
TRAP 2205:INPUT J,K,W 

2207 IF J<24 OR K>31 OR W>54 THEN 22 
05 

2208 P=0:IF O$="AG" THEN P=2000 


74 


2210 IF J>=24 AND J<34 THEN GOTO P+2 
300 

2211 IF J>=34 AND J<42.7 THEN GOTO P 

+2302 

2212 IF J>=42.7 AND J<49.6 THEN GOTO 
P+2304 


2213 IF J>=49.6 AND J<55 THEN GOTO P 
+2306 

2214 IF J=55 THEN GOTO P+2308 

J=56 THEN GOTO P+2310 
J>=57.1 AND J<57.3 THEN GOTO 


J=517 
J=58 
J=59 
J=60 
J=61 
J=62 
J=63 
J=64 
J=65 
J=66 
J=67 
J=68 
J=69 
J=70 
J=71 
J=72 
J=73 
J=74 


THEN 2314 

THEN 2317 

THEN 2320 

THEN 2323 

THEN 2326 

THEN 2329 

THEN 2332 

THEN 2335 

THEN 2339 

THEN 2343 

THEN 2347 

THEN 2352 

THEN 2355 

THEN 2358 

THEN 2361 

THEN 2364 

THEN 2367 

THEN 2370 

J=75 THEN 2373 

J=76 THEN 2376 

2300 REM MARKENBEIITRAEGE ARBEITERRE 
NTE 1924 BIS HEUTE - ANGESTELLTENREN 
TE 1957 - HEUTE 

2301 DJ(1)=0.29:DJ(2)=0.55:DJ(3)=0.8 
9:DJ(4)=1.22:DJ(5)=1.64:DJ(6)=2.23:D 
J(7)=2.67:G0TO 2800 

2302 DI(1)=0.26:DJ(2)=0:45:DJ (3)=0.7 
6:DJ(4)=1.08:DJ(5)=1.38:DJ(6)=1.69:D 
3lT)=2:DIl8)=e2. 

2303 DJ(9)=2.76:DJ(10)=2.92:G0TO 280 
0 

2304 DJ(1)=0.24:DJ(2)=0.43:DJ(3)=0.7 
1:DJ(4)=1:DJ(5)=1.28:DJ (6)=1.57:DJ (7 
)=1.85:DJ(8)=2.14 

2305 DJ(9)=2.44:DJ(10)=2.71:G0TO 280 
0 

2306 DJ(1)=0.14:DJ(2)=0.24:DJ(3)=0.4 
1:DJ(4)=0.57:DJ(5)=0.82:DJ (6)=1.14:D 
d(7)=1.063:DJ18)=2,28 

2307 DJ(9)=2.94:DJ(10)=3.59:DJ(11)=4 
.24:DJ(12)=5.34:G0OTO 2800 

2308 DJ(1)=0.11:DJ(2)=0.2:DJ(3)=0.33 
:DJ(4)=0.46:DJ(5)=0.66:DJ(6)=0.92:DJ 
(7)=1.32:DJ(8)=1.85 

2309 DJ(9)=2.37:DJ(10)=2.9:DJ(11)=3. 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 





43:GOTO 2800 

2310 DJ(1)=0.1:DJ(2)=0.19:DJ(3)=0.31 

:DJ(4)=0.43:DJ(5)=0.62:DJ(6)=0.87:DJ 

(7)=1524:DJ(8)=1.73 

2311.DI(9)=2.23:DJ( 10)=2.73:DJ( 11)=3 

.22:G0OTO 2800 

2312 DJ(1)=0.1:DJ(2)=0.18:DJ(3)=0.3: 

DJ(4)=0.42:DJ(5)=0.59:DJ(6)=0.83:DJ ( 

7)=1.19:DJ(8)=1.67 

2313 DJ(9)=2.14:DJ(10)=2.62:DJ(11)=3 

.09:G0TO 2800 

2314 DJ(1)=0.25:DJ(2)=0.99:DJ(3)=1.9 

8:DJ(4)=2.97:DJ(5)=3.97:DJ(6)=4.96:D 

J(7)=5.95:DJ(8)=6.94 

2315 DJ(9)=7.93:DJ(10)=8.92:DJ(11)=9 

.91:DJ(12)=10.91:DJ(13)=11.9:DJ (14) = 

12.89:DJ(15)=13.88 

2316 DJ(16)=14.87:G0OTO 2850 

2317 DJ(1)=0.23:DJ (2)=0.94:DJ(3)=1.8 

8:DJ(4)=2.81:DJ(5)=3.75:DJ (6)=4.69:D 

J(7)=5.63:DJ(8)=6.57 

2318 DJ(9)=7.5:DJ(10)=8.44:DJ (11) 

38:DJ(12)=10.32:DJ(13)=11.26:DJ (1 

12.23DJ(15)=13.13 

2319 DJ(16)=14.07:G0TO 2850 

2320 DJ(1)=0.22:DJ(2)=0.89: re “7 

9:DJ(4)=2.68:DJ(5)=3.57:DJ(6)=4.46:D 
8 


=9, 
u)= 


JtT)=5.36:DJ(8)=6..25 

2321 DJ(9)=7.14:DJ(10)=8.03:DJ(11)= 
-93:DJ(12)=9.82:DJ(13)=10.71:DJ( 14) 
11.6:DJ(15)=12,5 

2322 DJ(16)=13.39:DJ(17)=14.28:G0TO 
2850 

2323 DI(1)=0.2:DJ(2)=0.82:DJ(3)=1.64 
:DJ(4)=2.46:DJ(5)=3.28:DJ(6)=4.1:DJ( 
7)=4.92:DJ(8)=5.74 

2324 DJ(9)=6.56:DJ(10)=7.38:DJ(11)=8 
.2:DI(12)=9.01:DJ(13)=9.83:DJ( 14)=10 
.65:DJ(15)=11.47 

2325 DJ(16)=12.29:DJ(17)=13.11:DI( 18 
)=13.93:G0T0 2850 

2326 DJ(1)=0.19:DJ(2)=0.74:DJ(3)=1.4 
9:DJ(4)=2.23:DJ(5)=2.97:DJ (6)=3.72:D 
J(7)=4.46:DJ(8)=5.21 

2327 DJ(9)=5.95:DJ (10)=6.69:DJ (11)=7 
.44:DJ(12)=8.18:DJ(13)=8.92:DJ(14)=9 
.67:DJ(15)=10.41 

2328 DJ(16)=11.16:DI(17)=11%9:5DJ (18) 
=12.64:DJ(19)=13.39:G0TO 2850 

2329 DJ(1)=0.17:DJ(2)=0.68:DJ(3)=1.3 
6:DJ(4)=2.05:DJ(5)=2.73:DJ(6)=3.41:D 
J(7)=4.09:DJ(8)=4.78 

2330 DJ(9)=5.46:DJ(10)=6.14:DJ (11 
.82:DJ(12)=7.51:DJ(13)=8.19:DJ( 14 
.87:DJ(15)=9.55 

2331 DJ( 16)=10.23:DJ( 17)=10.92:DJ( 18 
)=11.6:DJ(19)=12.28:DJ (20)=12.96 :C0T 


1)=6 
)=8 


Eine Publikation von CHIP 


0 2850 

2332 DJ(1)=0.16:DJ(2)=0.64:DJ(3)=1.2 
9:DJ(4)=1.93:DJ (5)=2.57:DJ(6)=3.22 
J(7)=3.86:DJ(8)=4.5 

2333 DJ(9)=5.14:DJ(10)=5.79:DJ(11)=6 
.43:DJ(12)=7.07:DJ(13)=7.72:DI (14) =8 
36:DJ(15)= s 

2334 DJ(16)=9.65:DJ(17)=10.29:DJ(18) 
=10.93: De 58:DJ(20)=12.22:DJ( 
21)=12.86:G60T0 2850 

2335 DJ(1)=0.15:DJ(2)=0.59:DJ (3)=1.1 
8:DJ(4)=1.77:DJ(5)=2.36:DJ(6)=2.95:D 
3(7)=3,5u3DJ(8)=4.13 

2336 DJ(9)=4.72:DJ(10)=5.31:DJ(11)=5 
.91:DJ(12)=6.5:DJ (13)=7.09:DJ(14)=7. 
68:DJ(15)=8.27 

2337 DJ(16)=8.86:DJ(17)=9.45:DJ (18) = 
10.04:DJ(19)=10.63:DJ (20)=11.22:DJ(2 
1)=11:81:DJ(22)=12.48 

2338 DJ(23)=12.99:G0T0O 2850 

2339 DJ(1)=0.14:DJ(2)=0.54:DJ(3)=1.0 
8:DJ(4)=1.63:DJ(5)=2.17:DJ(6)=2.71:D 

J(7)=3.25:DJ(8)=3.79 

2340 DJ(9)=4.33:DJ (10)=4.88:DJ(11)=5 
.42:DJ(12)=5.96:DJ(13)=6.5:DJ(14)=7. 

04:DJ(15)=7 .58 

2341 DI(16)=8.13:DJ(17)=8.67:DJ(18)= 

9.21:DJ(19)=9.75:DJ(20)=10.29:DJ (21) 

=10.84:DJ(22)=11.38 

2342 DJ(23)=11.92:DJ(24)=12.46:DJ (25 
)=13:G0T0 2850 

2343 DJ(1)=0.13:DJ(2)=0.51:DJ(3) 
1:DJ(4)=1.52:DJ (5)=2.02:DJ (6)=2. 

J(7)=3.03:DJ(8)=3.54 

2344 DJ(9)=4.04:DJ(10)=4.55:DJ (11) 
.05:DJ (12)=5.56:DJ(13)=6.06:DJ (14) 
.57:DJ(15)=7.08 

2345 DJ(16)=7.58:DJ(17)=8.09:DJ( 18) 
8.59:DJ(19)=9.1:DJ (20)=9.6:DJ (21)=1 
11:53(22)=10,61 

2346 DJ(23)=11.12:DJ(24)=11.62:DJ (25 
)=12.13:DJ (26)=12.64:DJ (27)=13.14:G0 

TO 2850 

2347 DJ(1)=0.12:DJ(2)=0.49:DJ(3)=0.9 

8:DJ(4)=1.47:DJ(5)=1.96:DJ(6)=2.45:D 

J(7)=2.94:DJ(8)=3.42 

2348 DJ(9)=3.91:DJ(10)=4.4:DJ(11) 

89:DJ(12)=5.38:DJ(13)=5.87:DJ( 14) 
36:DJ(15)=6 .85 

2349 DJ(16)=7.34:DJ(17)=7.83:DJ(18)= 
8.32:DJ(19)=8.81:DJ(20)=9.3:DJ(21)=9 
+79:DJ(22)=10.27 

2350 DJ(23)=10.76:DJ(24)=11.25:DJ (25 
)=11.74:DJ (26)=12.23:DJ (27)=12.72:DJ 
(28)=13.21:DJ(29)=13.7 

2351 GOTO 2850 

2352. DJ(1)=0.92:DJ(2)=1.84:DJ(3)=2.7 


=1 
53:D 


0 


75 


Altersversorgung 


7:DJ(4)=3.69:DJ(5)=4.61:DJ(6)=5.53:D 
J(7)=6.46:DJ(8)=7.38 

2353 DJ(9)=8.3:DJ(10)=9.22:DJ(11)=10 
.15:DJ(12)=11.07:DJ(13)=11.99:DJI( 14) 
=12.91:DJ(15)=13.84 

2354 DJ(16)=14.76:G0TO 2850 

2355 DJ(1)=0.84:DJ (2)=1.69:DJ (3)=2.5 
3:DJ(4)=3.38:DJ (5)=4.22:DJ(6)=5.07:D 
3(7)=5.91:DJI(8)=6..76 

2356 DJ(9)=7.6:DJ(10)=8.45:DJ (11) 
29:DJ(12)=10.14:DJ(13)=10.98:DJ (1 
11.833DJ( 15)=12.67 

2357 DJ(16)=13.51:DJ (17)=14.36:GOTO 
2850 

2358 DJ(1)=0.75:DJ(2)=1.5:DJ (3)=2.25 
:DJ(4)=3:DJ (5)=3.75:DJ (6)=4.5:DJ (7)= 
5.25:DJ(8)=6 

2359 DJ(9)=6.75:DJ(10)=7.49:DJ (11) 
.24:DJ(12)=8.99:DJ(13)=9.74:DJ (14) 
0.49:DJ(16)=11.99 
2360 DJ(18)=13.49:G0TO 2850 

2361 DJ(1)=0.67:DJ(2)=1.34:DJ(3)=2.0 
1:DJ(4)=2.68:DJ(5)=3.35:DJ(6)=4.02:D 
J(7)=4.69:DJ(8)=5.36 

2362 DJ(9)=6.03:DJ (10)=6.7:DJ (1 
04:DJ(13)=8.71:DJ(14)=9.38:DJ (1 
.72:DJ(18)=12.06 

2363 DJ(19)=12.73:G0T0 2850 
2364 DJ(1)=0.61:DJ(2)=1.22:DJ(3)=1.8 
4:DJ(4)=2.45:DJ (5)=3.06:DJ(6)=3.67:D 
J(7)=4.29:DJ(8)=4.9 

2365 DJ(10)=6.12:DJ(12)=7.35:DJ (13) 
7.96:DJ(14)=8.57:DJ (16)=9.79:DJ( 18) 
11.02:DJ(19)=11.63 

2366 DJ(20)=12.24:DJ(21)=12.86:G0TO 
2850 

2367 DJ(1)=0.55:DJ(2)=1.09:DJ(3)=1.6 
4:DJ(4)=2.19:DJ(5)=2.73:DJ(6)=3.28:D 
J(7)=3.83:DJ(8)=4 

2368 DJ(10)=5.47:DJ(12)=6.56:DJ(13)= 
7.11:DJ( 14)=7.65:DJ(16)=8.75:DJ (18) = 
9.84:DJ(19)=10.39 

2369 DJ(20)=10.93:DJ (22)=12.03:DJ (23 
)=12.57:G0TO 285 

2370 DJ(1)=0.49:DJ(2)=0.98:DJ(3)=1.4 
7:DJ(4)=1.96:DJ(6)=2.94:DJ(7)=3.43:D 
3(8)=3.93:DJ(10)=4.91 

2371 DJ(12)=5.89:DJ(13)=6.38:DJ (14) = 
6.87:DJ(16)=7.85:DJ(18)=8.83:DJ (19) = 
9.32:DJ(20)=9.81 

2372 DJ(22)=10.79:DJ (24)=11.78:DJ (25 
)=12.27:G0T0O 2850 

2373 DJ(1)=0.46:DJ(2)=0.92:DJ(4)=1.8 
3:DJ(6)=2.75:DJ(7)=3.21:DJ(8)=3.67:D 
J(10)=4.59:DJ( 12)=5.5 

2374 DJ(13)=5.96:DJ(14)=6.42:DJ (16) = 
7.34:DJ(18)=8.25:DJ(19)=8.71:DJ (20)= 


9. 
)= 


M 
)= =8 
)= = 
6) 
8) 


2)=8 
6)=10 


76 


9.17:DJ(22)=10.09 

2375 DJ(24)=11.01:DJ(25)=11.46:DJ (26 
)=11.92:DJ(28)=12.94:G0OTO 2850 

2376 DJ(1)=0.43:DI(4)=1.71:DJ(7)=3: 

J(10)=4.29:DJ(13)=5.57:DJ(16)=6.86:D 
J(19)=8.14:DJ(22)=9.43 

2377 DJ(25)=10.71:DJ(28)=12:DJ (31)=1 
3.28:G0TO 2850 

2380 REM DVHS-BRUTTOENTGELT/ABBUCHUN 
G 

2381 2; #ICODE12514:7 :2 #2 .:2 42:1? 

"Geben Sie bitte Jahreszahl(JJ),Brut 
to-arbeitsentgelt bzw. Kubuchungabet 
rag" 
2382 ? "und die gearbeiteten Monate 

des{2SPACES}Jahres ein." 

TRAP 2383:INPUT J,B,M 

IF ABC=2 THEN 2405 

IF J<77 THEN 2381 

IF J<81 OR J=82 OR J=83 THEN 23 


IF J=81 OR J>83 THEN 2400 
B=B#100/18:G0TO 2405 
B=B#100/18.5:G0TO 2405 

IF J>82 THEN 2468 
GOTO J+2386 

BS=B/ 1233%#100:G0TO 
BS=B/ 1469%100:G0TO 
BS=B/ 1642%100:GO0TO 
BS=B/ 1742%100:GO0TO 
BS=B/ 1983*100:GO0TO 
BS=B/2110%100:G0TO 
BS=B/2074%100:G0TO 
BS=B/ 1924%100:G0TO 
BS=B/ 1651%100:G0TO 
BS=B/ 1583#100:G0TO 
BS=B/ 1605%100:G0TO 
BS=B/ 1692%100:G0TO 
BS=B/ 1783*100:GO0TO 
BS=B/ 1856*100:GO0TO 
BS=B/ 1947%100:GOTO 
BS=B/2092%100:G0TO 
BS=B/2156%100:GO0TO 
BS=B/2297%100:G0TO 
BS=B/2310#100:G0TO 
BS=B/2324%100:G0TO 
BS=B/2292%100:GO0TO 
BS=B/ 1778%100:GO0TO 
BS=B/ 1778*100:GOTO 
BS=B/ 1833#100:GO0TO 
BS=B/2219%100:G0TO 
BS=B/2838*100:GO0TO 
BS=B/3161%#100:G0TO 
BS=B/3579#100:GOTO 
BS=B/ 3852%#100:GOTO 
BS=B/4061%100:G0TO 
BS=B/4234%100:G0TO 


2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 


Chip Computer-Programme Atari 600 XU/800 XU/65 XE 


BS=B/4548*100:GOTO 
BS=B/4844%100:GOTO 
BS=B/5043#100:GOTO 
BS=B/5330*100:GOTO 
BS=B/5602%*100:GOTO 
BS=B/6101%100:GOTO 
BS=B/6723%100:GOTO 
BS=B/7328*%100:GOTO 
BS=B/7775#100:GOTO 
BS=B/8467*100:GOTO 
BS=B/9229*100:GOTO 
BS=B/9893#100:GOTO 
BS=B/ 10219%100:GOTO 
BS=B/ 10842*100:GOTO 
BS=B/ 11839%100:GOTO 
BS=B/ 1334 3*#100:GOTO 
BS=B/ 14931%*100:GOTO 
BS=B/ 16335%#100:GOTO 
BS=B/ 18295%#100:GOTO 
BS=B/20381%*#100:GOTO 
BS=B/21808*100: 
BS=B/23335*100: 
BS=B/24945%#100: 
BS=B/26242%#100: 
BS=B/27685#100: 
BS=B/29485%#100: 
BS=B/30900%100: 
BS=B/32198*100: 
BSJ=BSJ+BS 
MB=MB+M 
DVHSB=BSJ#12/MB 
? "BS = "5:BS:? "MB = 
= 1sBSJ 
2505 ? :? "Noch Daten der gleichen A 
rt vorhanden (J={CODE210/197/212/213 
/210/206}/N) "5:TRAP 2505:INPUT A$:I 
F A$="N" THEN 2875 
2510 GOTO 2383 
2799 REM BERECHNUNG DVHS-WOCHEN 
2800 DW=DJ(K)#W 
2801 WS=WS+W 
2805 DWS=DWS+DW 
2806 DVHSW=DWS#52/WS 
2810 ? "DJ = "5DJ(K):? "DW = "5DW:? 
"DWS= ";DWS:? "WS = ";WS 
2815 ? :? "Noch Daten der gleichen A 
rt vorhanden (J={CODE210/197/212/213 
/210/206}/N) "5:TRAP 2815:INPUT A$:I 
F A$="N" THEN 2875 
2820 GOTO 2205 
2849 REM BERECHNUNG DVHS-MONATE 
2850 DM=DJ(K)#W 
2851 MS=MS+W 
2852 DMS=DMS+DM 
2853 DVHSM=DMS#12/MS 
2860 ? "DJ = ";DJ(K):? "DM = 
"DMS= "5;DMS:? "MS = 15MS 


2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 
2500 


"sMB:? "BS 


";DM:? 


Eine Publikation von CHIP 


Altersversorgung 


2865 ? :? "Noch Daten der gleichen A 
rt vorhanden (J={CODE210/197/212/213 
/210/206}/N) "5:INPUT A$:IF A$="N" T 
HEN 2875 

2870 GOTO 2205 

2874 REM BERECHNUNG DER MONATE AUS D 
EN BEITRAGSWOCHEN UND DVHS-RECHNUNG 
2875 Z=WS#7/30:WS=INT(Z+0.5):? "WE-S 
UMME = ";DWS+DMS 

2876 T=WS+MS+MB:DVHSDURCH=(DWS+DMS+B 
SJ) / (WS+MS+MB) :DVHS=DVHSDURCH#12:G=D 
WS+DMS+BSJ 

2877 TRAP 40000 

2878 REM AUSGABE DER DVHS-KENNZAHLEN 
2879 ? "{CODE125}":? :? :? :?2 :? 
2880 ? "DvHS-Wochenmarken = ";DVHSW: 
? “DvHS-Monatsmarken = ";DVHSM:? "Dv 
HS-Bruttoarbeitsentgelt/Abbuchung = 
";DVHSB 

2881 ? "WE-Summe {2SPACES}= 
2882 ? "WE-Monate = "35T 
2883 ? "WE-Monatsdurchschnitt = 
HSDURCH 

2884 ? "DvHS = ";DVHS 

2885 ? "WE-Summe = summe der Prozent 
zahlen":? "WE-Monate = Anzahl der Be 
itragsgeleisteten Monate!" 

2897 ? :? "{2SPACES}Wenn gelesen dru 
ecke {CODE211/212/193/210/212}" 

2898 IF PEEK(53279)=6 THEN 2150 

2899 GOTO 2898 

4299 REM TABELLE ANGESTELLTENVERSICH 
ERUNG 1924 BIS 1957 

4300 DJ(1)=1.51:DJ (2)=4.21:DJ(3)=8.3 
5:DJ(4)=13.8:DJ (5)=19.75:DJ (6)=24.41 
:DJ(7)=29.96 

4301 DJ(8)=35.75:DJ(9)=39.82:DJ(10)= 
45.13:G0TO 2850 

4302 DJ(1)=1.36:DJ(2)=3.89:DJ(3)=7 

1:DJ (4)=12.65:DJ(5)=17.76:DJ(6)=22 
1:DJ(7)=28.16:DJ(8)=33.32 

4303 DJ(9)=38.44:DJ(10)=43.57:G0T0O 2 
850 

4304 DJ(1)=1.19:DJ(2)=3.6:DJ(3)=7.16 
:DJ(4)=11.88:DJ (5)=16.63:DJ (6)=21.43 
:DJ(7)=26.17:DJ(8)=30.87 

4305 DJ(9)=35.62:DJ(10)=40.37:G0TO 2 
850 

4306 DJ(1)=0.34:DJ(2)=1.02:DJ(3)=1.7 
:DJ(4)=2.38:DJ(5)=3.4:DJ (6)=4.76:DJ 
7)=6.79:DJ(8)=9.51 

4307 DJ(9)=12.23:DJ(10)=15.09:DJ(11) 
=18.09:DJ(12)=22.23:G0T0 2850 

4308 DJ(1)=0.27:DJ(2)=0.82:DJ(3)=1.3 
7:DJ(4)=1.92:DJ(5)=2.75:DJ(6)=3.85:D 
3(7)=5.5:DJ(8)=7.7 

4309 DJ(9)=9.89:DJ(10)=12.37:DJ(11)= 


NG 


"DV 


Altersversorgung 





15.12:G0TO 2850 

4310 DJ(1)=0.26:DJ(2)=0.77:DJ (3)=1.2 
9:DJ(4)=1.81:DJ (5)=2.58:DJ(6)=3.61:D 
317)=5.16+DJ9(8)=7,23 

4311 DJ(9)=9.29:DJ(10)=11.61:DJ(11)= 
14.19:G0TO 2850 

4312 DJ(1)=0.25:DJ(2)=0.74:DJ (3)=1.2 
4:DJ(4)=1.74:DJ(5)=2.48:DJ (6)=3.47:D 
J(7)=4.96:DJ(8)=6.94 

4313 DJ(9)=8.92:DJ(10)=11.15:DJ(11)= 
13.63:G0TO 2850 

4314 DJ(9)=8.92:DJ(10)=11.15:DJ(11)= 
13.63:G0TO 2850 

5000 REM BERECHNUNG VERSICHERUNGSJAH 
RE 

5001 ? "{CODE125}":? :? :? :?2 :72 :? 
"{CODE204/233/229/231/244} {CODE235/ 
229/233/238/229} {CODE218/229/233/24 
4} {CODE246/239/242} {CODE228/225/23 
8/238} {CODE176} {CODE229/233/238/23 
1/229/226/229/238}" 

5002 REM BEITRAGSZEITEN 

5003 BEITRAGSZEIT=T 

5006 REM ERSATZZEITEN 

5007 ? :? :? "Ersatzzeiten werden in 
der Regei als{2SPACES}Beitragszeite 
n nur dann anerkannt, ,{4USPACES}wenn:" 
5008 ? "1. vorher eine Versicherung 
bestanden hat oder innerhalb von dre 
i Jahren da-nach eine versicherungs!" 


’ 
5009 ? "pflichtige Be- schaeftigung 
oder Taetigkeit aufgenom-men wurde; 
2. die Halbbelegung gegebenist." 
5010 ? "Moechten Sie Informationen u 
eber Halb-belegung (J/N)"5:TRAP 5010 
sINPUT A$:IF A$<>"g" AND A$<>"N" THE 
N 5009 
5011 IF A$="J" THEN GOSUB 10200 
5012 REM RECHNUNG ERSATZZEIT 
5013 ? :? :? "Kriegs- oder Militaerd 
ienst, Kriegsge-fangenschaft "3;:TRAP 
5013:INPUT EK 
5014 ? :? :? "Internierung oder Vers 
chleppung von{3SPACES}Heimkehrern "; 
:TRAP 5014:INPUT EH 
5015 ? :? :? "Kriegs- oder Nachkrieg 
szeiten, in de- nen es Zivilisten du 
rch feindliche{4SPACES}Massnahmen ve 
rwehrt war,"; 
5016 ? " aus dem Aus- land oder aus 
d. unter fremder Verwal-tung stehend 
en Ostgebieten in das Bun-desgebiet 
ie. 

’ 
5017 ? "zurueckzukehren.";:TRAP 5015 
:INPUT EA 
5018 ? :? :? "Freiheitsbeschraenkung 


78 


u. bis 31.12.49der Auslandsaufentha 
lt eines durch dasNS-Regime Verfolgt 
en."; 

5019 TRAP 5018:INPUT EV 

5020 ? :? :? "Zeit politischer Haft 

in der DDR, Ost-Berlin oder osteurop 
aeischen Staaten";:TRAP 5020:INPUT E 


(eo) 


5021 ? :? :? "Fuer Fluechtlinge und 
Vertriebene die Zeit vom 1.1.1945 bi 
s 31.12.1946 sowiedie andere Zeit ei 
ner "5; 

5022 ? “Vertreibung ,{4SPACES}Flucht, 
Umsiedlung oder Aussiedlung."5;:TRAP 
5021:INPUT EU 

5030 REM RECHNUNG ERSATZZEIT 

5031 ERSATZZEIT=EK+EH+EA+EV+EO+EU 

5045 REM AUSFALLZEITEN 

5048 ? "Die Anrechnung der Ausfallze 

iten setztim allgemeinen die Haibbel 

egung voraus" 

5049 ? "Moechten Sie Informationen u 

eber Halbbelegung (J/N)";:INPUT A$:I 

F A$<>"gm AND A$<>"N" THEN 5049 

5050 IF A$="J" THEN GOSUB 10200 

5051 ? :? :? "Geben Sie die folgende 

n Ausfalizeiten in Monaten ein:!" 

5052 ? :? "Durch Krankheit bedingte 

Arbeitsunfae-higkeit oder durch Mass 

nahme zur Reha-bilitation";:TRAP 505 

2:INPUT AK 

5053 ? :? :? "Schwangerschaft, Woche 

nbett, Schutz-{2SPACES}fristen nach 

Mutterschutzgesetz(Ent-{2SPACES}bind 

ung)";:TRAP 5053:INPUT AS 

5054 ? :? :? "Mutterschaftsurlaub ab 
1.1.84"5:TRAP 5054:INPUT AM 

5055 ? :? :? "Schlechtwettergeld (Ba 

ugewerbe) bis{3SPACES}31.12.1978."5: 

TRAP 5055:INPUT AB 

5056 ? :? :? "Arbeitsiosigkeit eines 
arbeitswilligenund arbeitsfaehigen 

Versicherten, so- weit diese Zeit mi 

n n ; 

5057 ? "dest. ein Monat an-gedauert 

hat und i.d. Zeit{2SPACES}keine Ver. 

sicherungspflicht bestand.";:TRAP 50 

56:INPUT AA 

5058 ? :? :? "Bezugzeit v.Arblosenge 

ld,-hilfe,Unter-halts-,Uebergangsgel 

d v.Arbeits-amt(ab1.1.1983)"5;:TRAP 5 

058:INPUT AU 

5059 ? :? :? "Nach Vollendung des 16 
. Lebensjahres{2SPACES}liegende Zeit 

en d. allg. Schulausbil- dung oder d 

er abgeschlos"; 

5060 ? "senen Fach-{3SPACES}oder Hoc 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Altersversorgung 





hschulausbildung, mit d.zeit- lichen 
Begrenzung, dass die Schul- o. abge 

schlossene "; 

5061 ? "Fachschulausbildung nurbis z 

ur Hoechstdauer v.je vier Jah-{3SPAC 
ES}ren, die abgeschlossene{2SPACES}H 
ochschulaus-"; 

5062 ? "bildung bis zu fuenf Jahren 

Dauer be- ruecksichtigt wird."5;:TRAP 
5059:INPUT AH 

5063 ? :? :? "Nach Vollendung des 16 
.Lebenjahres ab-geschlossene nicht v 
ersicherungpflich-tige oder Versiche 
rungs!"; 

5064 ? "freie Lehraus- bildung.";:TR 
AP 5063:INPUT AL 

5065 ? :? :? "Zeiten des Bezuges ein 
er Rente unter{2SPACES}den folgenden 
Voraussetzungen: 1. Wenneine Berufs 
- oder Er"; 

5066 ? "werbsunfaehig-{4SPACES}keits 
rente mit Zurechnungszeit wegge- fal 
len ist und erneut{2SPACES}eine Rent 
e zu{2SPACES}gewaehren "; 

5067 ? "ist; als Ausfalizeit gewer- 
tet wird die Zeit des Rentenbezuges, 
{2SPACES}die vor Vollendung des 55. 
Lebens"; 

5068 ? "jah- res liegt. 2.Wenn eine 
Invaliedenren- te vor Vollendung des 
55.Lebensjahres-bezogen wurde, vor 

dem "5 

5069 ? "1.1.1957 wegge-falien ist un 
d erneut ein Rentenan-{3SPACES}spruc 
h besteht; Ausfallzeit ist hier{2SPA 
CES}die Renten"; 

5070 ? "bezugszeit, laengstens bis{2 
SPACES}zur Vollendung des 55. Lebens 
jahres.";:TRAP 5065:INPUT AR 

5071 ? :? :? "Fuer nicht belegbare A 
usfallzeiten bis31.12.56 geben Sie b 
itte: 1. die Mo-{2SPACES}natsanzahl 
zwischen dem !"; 

5072 ? "1.Pflichtbei- trag bzw. vom 
16. Lebensjahr wenn die-ser danach 1 
iegt und dem letzten{6SPACES}Pflicht 
beitrag "; 

5073 ? "vor dem 1.1.57 ein und 2. di 
e nicht belegbaren Monate ein{4SPACE 
S}(ges.Zeit,nicht bel.Zeit)";5:TRAP 5 
071:INPUT I1,I2 

5074 IF I1=0 OR I2=0 THEN 5076:REM B 
ERECHNUNG PAUSCHALZEIT 

5075 I3=11-I2:I=INT((I13/I1-I2)+1) 
5076 REM BERECHNUNG AUSFALLZEIT 

5077 AUSFALLZEIT=AK+AM+AS+AB+AA+AU+A 
H+AL+AR+I 


Eine Publikation von CHIP 


5100 REM ZURECHNUNGSZEIT 

5101 2: M{CODE125}":? 19 37 2247 ı? 

"Geben Sie bitte die Zurechnungszeit 
inMonaten ein." 

5102 ? "Zurechnungszeit ist die Zeit 
zwischen dem Eintritt des Versicher 

ungsfalles{2SPACES}und dem 55. Leben 

sjahres.!" 

5103 ? :? "Die Zurechnungszeit wird 

anerkannt,{3SPACES}wenn innerhalb de 

r letzten 60Kalender-monate vor Eint 

ritt des"; 

5104 ? " Versicherungs-falles fuer m 
indestens 36 Kalendermo- nate Beitra 
ege fuer eine rentenversi- cherungsp 
Flich"; 

5105 ? "tige Beschaeftigung oderselb 
staendige Erwerbstaetigkeit ent-{2SP 
ACES}richtet worden sind, oder" 

5106 ? "die Halbbelegung erfuellt is 
t. Eine{3SPACES}Mindestzahl von 60 M 
onaten ist aber{3SPACES}hier nicht e 
rforderlich."; 

5107 TRAP 5101:INPUT ZURECHNUNGSZEIT 
5110 VJ=INT(((BEITRAGSZEIT+ERSATZZEI 
een 
5 

5111 ? "Beitragszeit{7SPACES}= ";BEI 
TRAGSZEIT:? "Ersatzzeit{9SPACES}= "; 
ERSATZZEIT 

5112 ? "Ausfailzeit{8SPACES}= ";AUSF 
ALLZEIT 

5113 ? "Zurechnungszeit{4SPACES}= "5; 
ZURECHNUNGSZEIT 

5114 ? "Versicherungsjahre = ";VJ 
5115 LPRINT "Beitragszeit{7SPACES}= 
"sBEITRAGSZEIT:LPRINT "Ersatzzeit{9S 
PACES}= ";ERSATZZEIT 

5116 LPRINT "Ausfailzeit{8SPACES}= " 
;AUSFALLZEIT 

5117 LPRINT "Zurechnungszeit{4SPACES 
= "Ms ZURECHNUNGSZEIT 

5118 LPRINT "Versicherungsjahre = 
VJ 

5200 REM STEIGERUNGSSATZ 

5201 ? :? :? :? "Geben sie bitte Ste 
igerungssatz ein.{2SPACES}Berufs- = 
1%, Erwerbsunfaehigkeits- u.Altersre 
nte = 1.5%. "5 

5202 TRAP 5201:INPUT STS:? 
ngssatz = "5STS 

5203 LPRINT "Steigerungssatz = "5STS 
5210 REM RENTENFAKTOR 


ne 
’ 


"Steigeru 


5211 ? :? :? “Geben- Sie bitte Renten 
faktor ein. Hin-terbliebenen- = 0.6 
Vollwaisen - = 0.2Halbwaisenrenten = 


O1; 


79 


Altersversorgung 


5212 ? "Altersrente = 1"5:TRAP 5211: 
INPUT RF:? "Rentenfaktor = ";RF 

5213 LPRINT "Rentenfaktor = ";RF 
5220 REM HOEHERVERSICHERUNG 

5221 ? :? :? "Hoeherversicherung erg 
ibt sich aus derGesamtsumme Und der 
Anzahl der gezahl-ten Jahre (Summe/J 
ahre)' 

5222 TRAP 5221:INPUT S,J:HV=S#J/ 100 
5223 ? "Hoeherversicherung = "5;HV 
5224 LPRINT "Hoeherversicherung = "; 
HV 

5229 REM KINDERZUSCHUSSESSUNGSGRUNDL 


5230 7 :? 

rgeld." 
5231 ? "Bestand d.Anspruch schon vor 
1.1.1984?Kinder unter 18 bzw 25 Jah 

re, Wehr-{3SPACES}dienst (Kinderzahl 
)";:INPUT A 

5233 IF A=0 THEN 5300 

5234 KIZ=152.9#12# A 

5235 ? "Kinderzuschuss = ";KIZ 

5236 LPRINT "Kinderzuschuss = ";KIZ 
5300 REM ALLGEMEINE BEMESSUNGSGRUNDL 
AGE 

5301 ? :? :? "Allgemeine Bemessungsg 

rundlage(BA) aufdem neuesten Stand - 
bis 30.6.1985 ={2SPACES}26310 ,--DM( 
J/N)."5 INPUT A$ 


:? "Beanspruchen Sie Kinde 


5302 IF A$<>"J"m AND A$<>"N" THEN 530 
’ 

5303 IF A$="J" THEN BA=26310:G0T0 55 
00 

5304 IF A$="N" THEN INPUT BA 

5500 REM JAHRESRENTE 

5501 BP=DVHS/ 100*BA 

5502 JR=BP#VJ#STS/ 100*RF+HV+KIZ 

5510 ? "Allg. Bemesungsgrundlage = 
;BA 

5511 LPRINT "Allg. Bemessungsgrundla 
ge = "5BA 

5512 ? “Pers. Bemessungsgrundlage = 

n ‚BP 

5513 LPRINT "Pers. Bemessungsgrundla 
ge = ";BP 

5514 ? "Jahresrente = ";JR 

5515 LPRINT "Jahresrente = ";JR 

5600 ? :? :? :? "Soll noch eine Rent 


enberechnung durch-gefuehrt werden, 
dann druecke {CODE211/212/193/210/21 
2} 

5601 IF PEEK(53279)<>6 THEN GOTO 560 


s 
5602 CLR 
5603 RUN 
9999 REM ELEMENTE DER RENTENFORMELN 


10000 ? "{CODE125}":? :? "DvHS = Dur 
chschn.Prs.Vomhundertsatz":? "Ba = A 
l1g.Bemessungsgrundlage":? “Bp = Per 
s.Rentenbemessungs"!"; 

10001 ? "grundlage":? “VJ = Versiche 
runsjahre":? "StS=Steigerungsrate":? 


"JR = Jahresrente":? "RF = Rentenfa 
ktor" 
10002 ? "Hv = SteigerungSbetr.a.d.Ho 


ehervers.":? "KiZ= Kinderzuschuss! 
10003 ? :? "{2SPACES}Wenn gelesen dr 
uecke {CODE211/212/ 193/210/212}" 
10004 IF PEEK(53279)=6 THEN 110 
10005 GOTO 10004 

10009 REM INFORMATIONEN {CODE218}U D 
EN ELEMENTEN DER RENTENFORMELN 

10010 ? "{CODE125}":? :? :? “Der dur 
chschnittliche persoenliche{4SPACES} 
Vomhundertsatz zeigt an, zu wievielf 
3SPACES}Prozent das ver"; 

10011 ? "sicherungspflichtige{3SPACE 
S}Brutto-Einkommen eines Versicherte 
n{3SPACES}uebereinstimmt mit dem Dur 
chschnitts{2SPACES}ver"; 

10012 ? "dienst aller Rentenversiche 
rten im gleichen Zeiraum" 

10013 ? :? "{2SPACES}Wenn gelesen dr 
uecke {CODE211/212/193/210/212}" 
10014 IF PEEK(53279)=6 THEN 110 
10015 GOTO 10014 

10020 ? "{CODE125}":? :? :? "Die all 
gemeine Bemessungsgrundlage{4SPACES} 
wird fuer jedes Kalenderjahr neu fes 
t-gelegt. Bei RenteN"; 

10021 ? "berechnungen fuer{3SPACES}R 
entenfaelle des ersten Halbjahres de 
slaufenden Jahres ist noch die Ba de 
s " 
10022 
10023 
uecke 
10024 


? "Vorjahres anzusetzen." 

? :? "{2SPACES}Wenn gelesen dr 
{CODE2 11/212/ 193/210/212}" 

IF PEEK(53279)=6 THEN 110 


10025 GOTO 10024 
10030 ? "{CODE125}":? :? :? "Die fue 
r den Versicherten massgebende 'pers 


oenliche!'! Rentenbemessungsgrund- lag 
e ergibt sich"; 

10031 ? " durch Multiplikation von d 
urchschnittlichem persoenlichen{2SPA 
CES}Vomhundertsatz und allg. Bemessu 
ngs-{2SPACES}grundlage" 

10032 ? :? "{2SPACES}Wenn gelesen dr 
uecke {CODE211/212/193/210/212}" 
10033 IF PEEK(53279)=6 THEN 110 
10034 GOTO 10033 

10040 ? "{CODE125}":? :? :? "Die Ver 
sicherungsjahre ergeben sich{3SPACES 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Altersversorgung 





}aus den anrechenbaren Beitragszeite 
n{2SPACES}zuzueglich der"; 
10041 ? " anrechenbaren beitrags-los 
en (Ersatz-,Ausfall- u.Zurechnungs-z 
eiten) Zeiten" 
10042 ? :? "{2SPACES}Wenn gelesen dr 
uecke {CODE211/212/193/210/212}" 
10043 IF PEEK(53279)=6 THEN 110 
10044 GOTO 10043 
10050 ? "{CODE125}":? :? :? "Fuer je 
des anrechenbare Versicherungs-jahr 
gibt es eine Rentensteigerung von1% 
bzw. 1,5% "5; 
10051 ? "der persoenlichen Bemes- su 
ngsgrundlage:":? "{2SPACES} 1% STS = 
Berufsunfaehigkeitsrenten" 
10052 ? "{2SPACES}1,5%StS = Erwerbsu 
nfaehigkeitsrente":? "{2SPACES} 1,5% 
StS = Altersruhegelder" 
10053 ? :? "Erziehungsrenten werden 
in Hoehe{2SPACES}von Berufsunfaehigk 
eitsrenten gewaehrt.Er-zieht der fru 
ehere Ehe!; 
10054 ? "gatte jedoch{4SPACES}mindes 
tens 3 waisenrentenberechtigte{2SPAC 
ES}Kinder oder 2 waisenberechtigte K 
inderunter 6 Jah"; 
10055 ? "ren, steht ihm bei Erfuel- 
lung der uebrigen Voraussetzungen di 
e Erziehungsrente in Hoehe der Erwer 
bs-" 
10056 ? "unfaehigkeitsrente zu (gros 
se Er-{6SPACES}ziehungsrente) ." 
10057 ? :? "{2SPACES}Wenn gelesen dr 
uecke {CODE211/212/ 193/210/212}" 
10058 IF PEEK(53279)=6 THEN 110 
10059 GOTO 10058 
10060 ? "{CODE125}":? :? :? “Die Jah 
resrente ist stets das Egebnis der R 
entenberechnung. Sie ist die fuer! J 
ahr zustehende"; 
10061 ? " Rente." 
10062 ? :? "{2SPACES}Wenn gelesen dr 
uecke {CODE211/212/193/210/212}" 
10063 IF PEEK(53279)=6 THEN 110 
10064 GOTO 10063 
10070 ? "{cCODE125}":? :? :? "Hinterb 
liebenenrenten betragen nur{4SPACES} 
einen %-Satz der Versichertenrente.t{ 
3SPACES}Die Rentenfaktore" 
10071 ? "{2SPACES}O,6 = Witwen-,Hint 
erbliebenenrenten":? "{2SPACES}O,2 
Vollwaisenrenten":? "{2SPACES}O,1 
Halbwaisenrenten" 
10072 ? "Die Hinterbliebenenrente er 
rechnet{4SPACES}sich aus einer Erwer 
bsunfaehigkeits-{2SPACES}rente an fr 


u 


Eine Publikation von CHIP 


ueher Ehegatten, "; 
10073 ? "wenn der{2SPACES} (die) Bere 
chtigte das 45. Lebensjahr{2SPACES}v 
ollendet hat, berufs-/erwerbsunfaehi 
gist oder ein "; 
10074 ? "waisenrentenberechtigtes Ki 
nd erzieht. Sonst errechnet sie sich 
aus der Berufsunfaehigkeitsrente." 
10075 ? :? "{2SPACES}Wenn gelesen dr 
uecke {CODE211/212/ 193/210/212}" 
10076 IF PEEK(53279)=6 THEN 110 
10077 GOTO 10076 
10080 ? "{CODE125}":? :? :? "Ein Ste 
igerungsbetrag aus d.Hoeherver-siche 
rung wird besonderer Bestandteil der 
Rentenberech!"; 
10081 ? "nung, und zwar: ":? "Es wur 
den neben Pflicht- o. freiwilli-gen 
noch zusaetzliche Beitraege zur{3SPA 
CES}Hoeher"; 
10082 ? "versicherung entrichtet.":? 
"Es wurden Pflicht- oder freiwillig 
e{3SPACES}Beitraege entrichtet, die 
als Beitrae-"; 
10083 ? "ge der Hoeherversicherung g 
elten koen-nen(z.B.:Ausfall-,Zurechn 
ungs- ‚Ersatz-zeit)" 
10084 ? "Es wurden freiwillige Beitr 
aege in zu niedriger Hoehe entrichte 
t. (Neue Re- gelung 1.1.79" 
10085 ? :? "{2SPACES}Wenn gelesen dr 
uecke {CODE211/212/ 193/210/212}" 
10086 IF PEEK(53279)=6 THEN 110 
10087 GOTO 10086 
10090 ? "{CODE125}":? :? :? "Kinderz 
uschuss erhoeht die Versicher- tenre 
nte fuer jedes anspruchsberech-{2SPA 
CES}tigte Kind deS "; 
10091 ? "Rentenberechtigten und die 
Waisenrente. Kinderzuschuss wird{2SP 
ACES}ab{2SPACES}.1.84 nur noch gezah 
it, wenn dar- auf"; 
10092 ? W auch schon vor dem 1.1.84 
Anspruchbestanden hat." 
10093 ? :? "{2SPACES}Wenn gelesen dr 
uecke {CODE211/212/ 193/210/212}" 
10094 IF PEEK(53279)=6 THEN 110 
10095 GOTO 10094 
10099 REM RENTENFORMELN 
10100 ? "{CODE125}"1:? :? :? :? "{3SP 
ACES} 1.Versichertenrente":? "{3SPACE 


S}JR = DvHS=Ba*VJ#StS oder":? "{3SPA 

CES}JR = Bp#VJ#Sts" 

10101 ? :? "{3SPACES}2.Hinterblieben 

enrente":? "{3SPACES}JR = DvHS*Ba*VJ 

ESTS#REN 

10102 ? :? "{3SPACES}3. Umfass. Form 
81 


Tips und Tricks 


mit Hv u. KiZ":? "{3SPACES}JR = DvH 
StBatVJ#StS®RF+HV+Kiz" 

10103 ? "(RF nur fuer Hinterbiiebene 
nrenten.{3SPACES}Hv u. KiZ nur unter 
gegebenen Voraus- setzungen)" 

10104 ? :? "{2SPACES}Wenn gelesen dr 
uecke {CODE211/212/ 193/210/212}" 
10105 IF PEEK(53279)=6 THEN 130 
10106 GOTO 10105 

10200 REM ERKLAERUNG HALBBELEGUNG 
10201 ? "ICODE1253*":2 7:37 17 32.32 
"Halbbelegung bedeutet: Die Zeit vo 

m{3SPACES}Eintritt in die Versicheru 


Simple Editor 


(Atari 800XL, Disketten- oder 
Kassettenstation) 

Dieses Programm simuliert einen 
Editor, der die eingegebenen Daten 


oder Texte auf ein beliebiges Gerät 
ausgibt. 


Die Daten können sofort nach dem 
Start des Programms eingegeben wer- 
den. Bevor das letzte Zeichen ein- 
getippt wird, muß die START-Taste 
gedrückt werden. Nachfolgend fragt 


REM SIMPLE EDITOR 
REM FUER CHIP-SPECIAL 
REM VON WOLFGANG SCHMIDT 


NFwm— 


110 POKE 82,0:G0SUB 300 

120 DIM E$(120),DT$(1000):DT$="" 

130 OPEN #1,4,0,"K:":L=1 

140 GET #1,X:PRINT CHR$(X); 

144 IF X=ASC("{CODE28}") OR X=ASC("f{ 
CODE29}") OR X=ASC("{CODE30}") OR X= 
ASC("{CODE31}") OR X=ASC("{CODE156}" 
) OR X=ASC("{CODE255}") THEN 140 

145 IF X=ASC("{CODE126}") THEN L=L-1 
:GOTO 140 

150 DT$(L)=CHR$(X):L=L+1 

152 IF PEEK(53279)=6 THEN 200 

160 GOTO 140 

200 CLOSE #1:PRINT :PRINT "Ausgabe-D 
evice & -File: ";:INPUT E$:L=LEN(DT$ 
):IF DT$(L)<>CHR$(155) THEN DT$(L+1) 


82 


ng bzw.{5SPACES} 1.1.1973 "5 

10202 ? "bis zum Versicherungsfall i 
stunter Ausklammerung der Ersatz- un 
d{3SPACES}Ausfalizeiten sowie Renten 
bezugszeiten!" 

10203 ? " aus eigener Versicherung z 
ur Haelfte, jedoch mindestens mit 60 
Monaten mit{2SPACES}Pflichtbeitraeg 
en belegt." 

10204 RETURN 


READY } 


der Computer nach dem Ausgabegerät. 
Falls es sich hierbei um Diskette 
oder Band handelt, wird auch noch 
ein Datei-Name verlangt. 


Mit diesem Hilfsprogramm können auf 
einfache Weise Textfiles erzeugt 
werden. Auch List-Files für BASIC 
lassen sich leicht erstellen, die 
dann ohne Zeilennummern arbeiten, 
also nach dem ENTER sofort ausge- 
führt werden. 

Wolfgang Schmidt 


=CHR$(155) 

210 OPEN #2,8,0,E$ 

220 PRINT #2;DT$ 

230 CLOSE #2 

240 END 

300 PRINT "{CODE29}Dies ist ein Edit 
or-Simulator, der{6SPACES}alle Ihre 
Eingaben an ein! 

310 PRINT "spaeter angegebenes Gerae 
t ausgegeben{3SPACES}wird." 

320 PRINT "Schliessen Sie jede Anwei 
sung mit{7SPACES}<RETURN> ab." 

325 PRINT "Die Control-Tasten werden 
nicht gespei- chert - falsch eingeg 
ebene Zeichen mit{2SPACES}DEL/BACKS 
loeschen." 

330 PRINT "Wenn Sie fertig sind und 

die letzte{5SPACES}Eingabe 'steht', 

vor dem <RETURN> die! 

340 PRINT "{CODE211/212/193/210/212} 

-Taste gedrueckt halten." 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


350 PRINT "Dann den Ausgabe-Device u 
nd -File{7SPACES}eingeben. (Dev:File 
name .Ext)" 


Kreis 


(Atari 800XL) 


Zst y4 


Der Befehl "FILL" des Atari-BASIC 
funtioniert leider dann nicht, 
wenn die auszufüllende Figur ein 
1 REM KREIS 

2 REM FUER CHIP-SPECIAL 

3 REM VON ULRICH SCHMITZ 

4 REM -------.-.-.-----..-- 

5 REM 


10 GRAPHICS 24:COLOR 1:POKE 765,1 

20 DEG :S=10:R=85:MX=160:MY=96 

30 FOR W=270 TO 440 STEP S:V=540-W 
100 PLOT MX+R#COS(W) ,MY-R#SIN(W):DRA 


Page-6-Utility 


Page-6-Utility 
(Atatri 800XL, Diskettenstation) 


Das Atari-BASIC bietet wenige 
Möglichkeiten zur direkten Disket- 
tenmanipulation. Dabei sind unmit- 
telbare Zugriffe auf beliebige 
Sektoren die wichtigste Voraus- 
setzung für effektive Dateiprogran- 


me. Page-6-Utility behebt diesen 
Mangel und bietet darüber hinaus 
dem Programmierer noch einige 


arbeitserleichterne Features. 
Das Programm hat seinen Kern in 
einer Maschinensprachroutine. Es 
gibt dem Benutzer die Möglichkeit, 
blitzschnell irgendwelche Begriffe 


1 REM PAGE-6-UTILITY 
2 REM FUER CHIP-SPECIAL 


3 REM VON ULRICH SCHMITZ 
4 REM 
100 GRAPHICS 0:GOSUB 32000:REM PAGE6 


Eine Publikation von CHIP 


Tips und Tricks 


360 PRINT :PRINT :RETURN 


READY ! 


Kreis ist. Mit einem kleinen Trick 
funktioniert es aber doch, wie 
dieses Programm zeigt. 


Ulrich Schmitz 


WTO MX+R#COS(W+S) ,MY-R#SIN(W+S) 

110 DRAWTO MX+R#COS(V-S) ,MY-R#SIN(W+ 
S):POSITION MX+R#COS(V) ,MY-R#SIN(W) 
120 XIO 18,#6,0,0,"S;" 

130 NEXT W 

140 GOTO 140 


READY ! 


innerhalb von Dateien zu finden. 
Zusätzlich kann es direkt Sektoren 
von der Diskette lesen und gesuchte 
Ausdrücke im Speicher finden. Zur 
maschinennahen Programmierung 
stellt es die Befehle DPEEK und 
DPOKE sowie die MOVE-Funktion zur 
Verfügung. Die Syntax der einzelnen 


Erweiterungen wird durch eine 
Demonstration erklärt, die unnmit- 
telbar nach dem Programnmstart 


abläuft. 


Mit diesem Werkzeug kann nun jeder 
BASIC-Programmierer einen wesent- 


lich höheren Grad an Effizienz 
erreichen. 
Ulrich Schmitz 
INITIALISIEREN 


110 DIM A$(120),A2$(20),B$(20):POKE 
82,2:POKE 710,146:POKE 712,146 

120 ? "Gib einen Satz ein.":? "15 
130 INPUT #2,A$:REM Input vom Editor 


83 





Tips und Tricks 


-- daher kein Fragezeichen 
140 ? "Gib eine Sequenz von Buchstab 
en ein." 
150 ? "»"5:INPUT #2,B$ 
160 A=USR(FIND,ADR(A$),ADR(B$),LEN(A 
$),LEN(B$)):REM STATEMENT ZUM SUCHEN 
VON B$ IN A$ 
165 IF A=0 THEN ? "Die Sequenz kommt 
in dem Satz nicht{3SPACES}vor.":GOT 
0 180 
170 ? "Die Sequenz kommt an der "5A; 
". Stelle":? "des Satzes vor." 
180 ? :? " MOVE DEMO":? " {CODE13/13 
/ 13/ 13/ 13/ 13/ 13/13/13} 
190 ? "Gib eine Speicheradresse ein. 
n 


200 ? ">"5:INPUT #2,AD 

210 ? "{CODE28/28/28/ 156/ 156/ 156}";: 
? "Der Inhalt der Adressen von" 

220 ? AD;"-"5;AD+79;5" wird jetzt oben 
",7 Neingeblendet." 

230 A=USR(DPEEK,88):REM A=PEEK(88)+2 
56#PEEK(89). Entspricht Bildschirman 
fang im Speicher 

240 X=USR(MOVE,AD,A,80):GOSUB 800 
250 ? " IO DEMO{3SPACES} (Input/Outpu 
t)":? " {CODE13/ 13/ 13/ 13/ 13/13/13 }" 
260 ? "Gib einen existierenden Filen 
amen ein":? ">";;INPUT #2,A$:IF A$(1 
‚„2)<>"D:" THEN A2$=A$:A$="D:"zA$(LEN 
(A$)+1)=A2$ 

270 ? "{CODE28/28/ 156/156}";:? "Der 
Anfang des Files erscheint jetzt{2SP 
ACES}oben.":OPEN #1,4,0,A$ 

280 X=USR(IO,A,80,4):REM FORMAT IST 
USR(IO,SPEICHERANFANG, LAENGE, LADEN 
ODER SPEICHERN (4 ODER 8)) 

281 REM IO FUNKTIONIERT NUR BEI KANA 

L 111 8 {4USPACES} {CODE 13/ 13/ 13/13/ 13/1 
3/ 13/ 13/ 13/ 13/ 13/ 13/ 13/ 13/ 13/ 13/ 13/1 
3/13/ 13/13/13/13/13/13/13/13/13/13/1 
3/13/ 13/13/13} 

290 CLOSE #1:GOSUB 800:? "DPEEK UND 
DPOKE":? "{CODE13/ 13/ 13/ 13/ 13/ 13/ 13/ 
13/13/13/13/13/13/13/13}* 

300 ? "X=USR(DPEEK,A) ENTSPRICHT DER 
ZEILE{3SPACES}X=PEEK(A)+256#PEEK(A+ 
1), WAS BEI" 

310 ? "FORTGESCHRITTENER PROGRAMMIER 
UNG{6SPACES}RELATIV HAEUFIG VORKOMMT 
" 


320 ? "PARALLEL DAZU GIBT ES DIE DPO 
KE{7SPACES}ANWEISUNG : X=USR(DPOKE,A 
N 9 

330 ? "UM EINE 16-BIT ZAHL AN BESTIM 
MTE{6SPACES}SPEICHERSTELLEN ZU POKEN 


350 ? "VST UND HST":? "{CODE13/13/13 
/ 13/ 13/ 13/ 13/ 13/ 13/13/13 }* 

360 ? "V=USR(VST,0)-2 ERGIBT EINEN D 
IREKT{4SPACES}AUF DEN BILDSCHIRM UEB 
ERTRAGBAREN" 
370 ? "WERT FUER DIE VERTIKALE POSIT 
ION VON{2SPACES}STICK 0. V KANN HIER 
DIE WERTE -1, 0{2SPACES}ODER 1 ANNE 

HMEN." 

380 ? "ENTSPRECHENDES GILT FUER DIE{ 
10SPACES}HORIZONTALE POSITION DES ST 
ICKS UND{3SPACES}HST." 

390 GOSUB 800 

400 ? "SEC":? "{CODE13/13/13}" 

410 ? "Das Format von SEC sieht so a 

us;" 

420 ? "X=USR(SEC,STARTSEKTOR,BUFFER, 

RES SEKTOREN, KOMMAND 

oO)" 

430 ? "KOMMANDO IST ENTWEDER ASC('W' 
) FUER{3SPACES}SCHREIBEN ODER ASC('R 
') FUER LESEN." 

440 ? "BUFFER IST DIE SPEICHERADRESS 

E, WO DIESEKTOREN HINGELADEN BZW. WE 

LCHER" 

450 ? "SPEICHERBEREICH ABGESPEICHERT 
WERDEN{2SPACES}SOLL." 

460 END 

800 REM WARTEN AUF DEN USER 

810 ? "Bitte eine Taste druecken..." 


’ 

820 IF PEEK(764)=255 THEN 820 

830 POKE 764,255:? "{CODE253}":RETUR 
N 

31997 REM ### PAGE-6 Utility # (C) 1 
985 by #### 

31998 REM #%*# Unabh{CODE123}ngiger A 
tari USER-CLUB ###% 

31999 REM ###{4SPACES}H{2SPACES}A{2S 
PACES}N{2SPACES}N{2SPACES}O{2SPACES} 
V{2SPACES}E{2SPACES}R{4SPACES}##*#%* 
32000 FIND=1536:MOVE=1617:10=1670:DP 
EEK=1700:DPOKE=1719:VST=1736:HST=176 


7 

32010 DIM Y$(246):Y$="hh{CODE133/3}h 
{CODE133/2}n{CODE133/1}h{CODE133/0}h 
{CODE 141/255/6}h{CODE141/254/6}hh{cCo 
DE170/202/ 160/0/ 132/213/200/132/212/ 
138/ 168/ 177/2/209/0/208/6/ 136/ 16/247 
/24/ 144} X{CODE206/254/6/208/8/ 173/25 
5/6/240/18/206/255/6/230/212/208/2/2 
30/213/230/2/208/2/230/3/24/144/214/ 
169/0/133/212/133/213/96}h" 

32020 Y$(83)="h{CODE133/3}h{CODE133/ 
2}h{CODE133/1}h{CODE133/0}h{CODE141/ 
254/6}h{CODE170/ 160/0/224/0/208/8/ 17 
3/254/6/240/225/206/254/6/202/ 177/2/ 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Wettkampf 





(Atari 600XL - 64 K) 


Die Spannung erreicht ihren Höhe- 
punkt: Auf den letzten Metern vor 
dem Ziel wird der Favorit noch vom 


Aussenseiter überholt - aus der 
Traum vom großen Geld! Aber der 
Nachbar jubelt, denn er hat auf des 


richtige Pferd gesetzt. 


Und trotzdem wird niemand wirklich 
arm oder reich. Der Computer bringt 
die Rennbahn-Atmosphäre direkt ins 
Wohnzimmer, den Pferderennen ist 
ein Spiel für alle Atari-Rechner. 


Maximal fünf Spieler können an 
diesem spannenden Spiel teilnehmen. 
Sie alle starten mit einem Vermögen 
von 200 Mark und können dies durch 
eine gehörige Portion Glück und 
gutes Tippen erheblich vergrößern. 


Die Wetten 


Nachdem man durch Drücken der 
START-Taste das Titelbild verlassen 
hat, fragt der Computer nach Anzahl 
und Namen der Mitspieler. Im An- 
schluß an die Eingabe wir die Renn- 
statistik angezeigt, die nach jedem 
Rennen aktualisiert wird. Hier kann 
man ablesen, wie oft die fünf Pfer- 
de im Zieleinlauf einen der ersten 
drei Plätze erreicht haben. Dieser 
Anzeige folgt nun die Tipproutine. 
Hier wird jeder Spieler gefragt, 


Eine Publikation von CHIP 


auf welches Pferd er setzen möchte. 
Hat er sich für eines der Pferde 
entschieden, so muß er jetzt dir 
Plazierung des ! 


Pferdes (1 bis 3) 
angeben. PARLAY (4) ist ein spe- 
zieller Tip, bei dem der Spieler 
angibt, welche beiden Pferde zuerst 
ins Ziel kommen. Wählt man diesen 
Tip, so wird man nach einem weite- 
ren Pferd gefragt, das dann auf den 
zweiten Platz gesetzt wird. Selbst- 
verständlich kann man bei PARLAY 
nur dann gewinnen, wenn beide Pfer- 


de in der getippten Reihenfolge 
ankommen. Schließlich müssen alle 
Mitspieler noch ihren jeweiligen 
Wetteinsatz eingeben. Hier sind, 
falls man noch reich genug ist, 


maximal 200 Mark zulässig. 
Das Rennen 


Jetzt kann das Rennen beginnen. Im 
Computer spielt sich dabei folgen- 
des ab. Das Programm läuft in einer 
Schleife, in der immer wieder eine 
Zufallszahl ermittelt wird, die 
darüber entscheidet, welches Pferd 
eine Position weiterrückt. Hat ein 
Pferd die horizontale Position 17 
erreicht, so ist es am Ziel. In den 
Zeilen 5110 bis 5150 kann man das 
Rennen manipulieren, indem man die 
"Bewegungswahrscheinlichkeiten" der 
einzelnen Pferde verändert. In der 
Originalversion ist diese Wahr- 
scheinlichkeit gleich 0,2. 


Wettkampf 


Wenn drei Pferde das Ziel erreicht 
haben, ist das Rennen zu Ende. Der 
Zieleinlauf wird dokumentiert, die 
Gewinne und Verluste der einzelnen 
Spieler angezeigt. Jetzt können 
wieder neue Einsätze gemacht werden 


- neues Spiel, neues Glück! 
Trickreich 
In den Zeilen 1000 bis 1130 befin- 


det sich eine interessante Routine. 
Während die Spieler das Titelbild 
betrachten, wird der Zeichensatz 
des Atari geändert. Dabei werden 
die Buchstaben "Q" und "Y" in die 
Pferdezeichen umgewandelt. Dies 
geschieht folgendermaßen: Zunächst 
wird der Zeichensatz vom ROM in den 
RAM-Bereich geladen. Das besorgt 
das kleine Maschinenprogramm in den 


REM PFERDERENNEN 

REM FUER CHIP-SPECIAL 
REM VON MICHAEL SCHUETZ 
REM 
REM 
10 DIM 1$(10),P$(50),H(5),W(5),P(5), 
B(5),M(5),Z2(5),U(4),X(10),V(10),P1(5 
),P2(5),P3(5) 

15 FOR I=1 TO 5:P1(I)=0:P2(I)=0:P3(I 
)=0:NEXT I:RA=1 

20 GOSUB 1000 

35 GRAPHICS 0:POKE 709,10:POKE 710,1 
14 

37 POSITION 10,1:? "KENTUCKY DERBY": 
POSITION 10,2:? "{CODE13/ 13/ 13/13/13 
/ 13/ 13/ 13/ 13/ 13/ 13/ 13/13/13 }" 

38 POSITION 2,7:TRAP 40 

40 ? "Wieviele Spieler";:INPUT D:? 
FOR I=1 TO D:M(I)=200:NEXT I 

FOR I=1 TO D:TRAP 60 

60 ? :? "Name Spieler #";I;:INPUT I$ 
P$(1*10-9,1#10)=I$ 

FOR J=I#10-9+LEN(I$) TO I#10:P$(J 
‚J)=" "NEXT J:NEXT I 

90 GRAPHICS 17:POKE 756,204:? #6;"{4 
SPACES}{CODE242/229/238/238/243/244/ 
225/244/233/243/244/233/2353":? #65" 
{HSPACES} 
95 ? #65 " {CODE208/198/ 197/210/196} p 
latsierungen"; ? #6 

100 ? #6;"{2SPACES}{CODE163} {4SPACES 
}i{3SPACES}ii{3SPACES}iii":? #6 

110 FOR I=1 TO 5:? #6;5"{7SPACES}";P1 
(I) ;"{4HSPACES}";P2(I) ;"{4SPACES}";P3 
(1):? #6:NEXT I 


UV FWm_ 


in 
Die 


Zeilen von 1030 bis 1040, das 
dem String MC abgelegt wird. 
Anfangsadresse des neuen Zeichen- 
satzes wurde in der Zeile 1010 
berechnet. Von die Adresse ausge- 
hend kann man nun die Zeichen 
bestimmen, die geändert werden sol- 
len. 


Ein zweites Maschinenprogramm be- 
sorgt das Farb-Scrolling des Titel- 
bildes. Es befindet sich in den 
Zeilen von 1090 bis 1095 und wird 
in den String A eingelesen. Diese 
Routine kann nur durch das Drücken 
der START-Taste unterbrochen wer- 
den. Diese beiden kleinen Routinen 
können sicher in viele Programme 
eingebaut werden. 


Michael Schütz 


120 POSITION 2,7:? #6;"{CODE177}":? 

#6:? #6;"{2SPACES}{CODE178}":? #6:? 

#6;"{2SPACES}{CODE179}":? #6:? #6;"{ 
2SPACES}{CODE180}":? #6:? #6;"{2SPAC 
ES}{CODE181}":? #6 

160 ? #6:? #6:? #6;"{6SPACES}{CODE22 
6/233/244/244/229/ 160/229/233/238/22 
9}":?2 #6;"{4SPACES} {CODE244/225/243/ 
244/229/160/228/242/245/229/227/235/ 
229/238} " 


170 POKE 764,255 

180 IF PEEK(764)=255 THEN 180 

181 POKE 764,255 

182 FOR I=1 TO 4:U(I)=0:NEXT I 

185 FOR I=1 TO D:GRAPHICS 0:POKE 709 
‚10:POKE 710,114 

187 POSITION 14,1:? EDEN #";RA:PO 


SITION 0,5: POSITION 13,2 
Pe, 

190 TRAP 190:? "Auf welches Pferd (1 
-5) wollen Sie{4SPACES}setzen ";P$(I 
*10-9,1%10):INPUT H:H(I)=H 

200 IF H>5 OR H<1 THEN 190 


210 ? :? "{TSPACES}{CODE177}{3SPACES 
}1.PLATZ" 
220 ? :? "{7SPACES}{CODE178}{3SPACES 
}2.PLATZ" 
230 ? :? "{7SPACES}{CODE179}{3SPACES 
}3.PLATZ" 
240 ? :? "{7SPACES}{CODE180}{3SPACES 


}PARLAY" :? 

245 ? “Welchen Platz soll Pferd #";H 
;t erreichen":TRAP 250 

250 INPUT W:IF W>4 OR W<1 THEN 250 
255 W(I)=W 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Wettkampf 





260 IF W=4 THEN ? "Weiches Pferd sol 
l zweiter werden":TRAP 260:INPUT P:P 
(I)=P:W(I)=1:U(I)=-1:IF P=H THEN 260 

270 ? :? :? :IF M(I)<O THEN ? "Ich h 

offe Ihr Kredit ist gut!":? "Sie sch 

ulden der Bank ";ABS(M(I));" DM":GOT 

0 285 

280 ? "Sie besitzen ";5M(I);" DM ";P$ 
(I*10-9,1#10) 

285 TRAP 285:? "Wieviel DM wollen Si 

e setzen";:INPUT B:B(I)=B 

290 IF B>200 OR B<=0 THEN 280 

295 M(I)=M(I)-B(I) 

300 NEXT I 

310 GOSUB 5000:GOSUB 7000 

315 GRAPHICS 0:POKE 709,20:POKE 710, 
140 

317 ? "{7SPACES}WETTERGEBNIS RENNEN 
#"sRAS:RA=RA+1 

IE RISSE cn 

-.-.- "sPOSITION 0,3 

320 FOR I=1 TO D:IF U(I)=-1 THEN GOS 
UB 550:GOTO 340 

330 FOR J=1 TO 4 

340 IF J=4 THEN ? :? "Pech gehabt, " 
;P$(I*%10-9,1#10):? "Sie haben ";B(I) 
;" DM verioren.":GOTO 370 

350 IF H(I)=Z(J) AND W(I)=J THEN GOT 

0 500+J*#10 

360 NEXT J 

370 NEXT I 

390 POKE 764,255:POKE 752,2 

400 POSITION 8,22:? “BITTE EINE TAST 
E DRUECKEN!" 

410 IF PEEK(764)=255 THEN 410 

420 GOTO 90 

510 ? :? "Gratuliere ";P$(I*#10-9,1#1 
0):? "Sie haben ";6%B(I);" DM gewonn 
en!":M(I)=M(I)+6#B(I):GOTO 370 

520 ? :? "Gratuliere ";P$(I*10-9,1#1 
0):? "Sie haben ";4#B(I);" DM gewonn 
en!":M(I)=M(I)+4#B(I):GOTO 370 

530 ? :? "Gratuliere ";P$(I%10-9,1#1 
0):? "Sie haben "52.5%B(I);" DM gewo 

nnen!":M(I)=M(I)+4*B(I):GOTO 370 

550 IF H(I)<>Z(1) OR P(I)<>Z(2) THEN 
J=4:RETURN 

551 M(I)=M(I)+15*#B(I) 

555 ? "Gratuliere ";P$(I#10-9,1#10): 
? "Sie haben ";15%B(I);" DM gewonnen 
I"; RETURN 

1000 POKE 106,PEEK(106)-5:GRAPHICS 1 
8 

1001 POSITION 4,5:? #6;"KeNtUcKy DeR 
by" 

1010 CS=(PEEK(106)+1)#256 

1020 DIM MC$(32),A$(30):FOR I=1 TO 3 


Eine Publikation von CHIP 


2:READ A 
1024 SETCOLOR 1,J,K:SETCOLOR 0,J+1,K 
:J=J+1:K=K+1:IF J=15 THEN J=0 
1025 IF K=14 THEN K=0 
1026 SOUND 0,100-J,10,K 
1027 FOR Q=1 TO 5:NEXT Q 
1028 MC$(I,I)=CHR$(A):NEXT I:A=USR(A 
DR(MC$) ,57344,CS) 
1030 DATA 104,104,133,204,104,133,20 
3,104,133,206,104,133,205,162,4 
1040 DATA 160,0,177,203,145,205,136, 
208,249,230,204,230,206,202,208,240, 
96 
1050 RESTORE 1070:FOR T=1 TO 2 
1060 READ A:FOR J=0 TO T7T:READ B:POKE 
CS+A#®8+J,B:NEXT J:NEXT T:SOUND 0,0, 
0,0 
1070 DATA 49,0,4,131,124,124,68,40,0 
1080 DATA 57,0,4,131,124,124,68,130, 
0 
1090 DATA 104,173,11,212,229,20,10,1 
0, 1841,26,208, 151, 10,212, 108,2,1241526 
208, 141,10;212,173,314208,201,6,208 
1095 DATA 228,96 
1100 FOR I=1 TO 30:READ A:A$(I,I)=CH 
R$(A):NEXT I 
1110 POSITION 5,8:? #6;"PRESS START" 
1120 A=USR(ADR(A$)) 
RETURN 
5000 ? CHR$(125):POKE 752, 1:GRAPHICS 
17:SETCOLOR 4,12,5:SETCOLOR 2,8,0:8 
ETCOLOR 0,0,1:SETCOLOR 3,2,0:SETCOLO 
R 1,0;12 
5001 DL=PEEK(560)+PEEK(561)*#256+4 
5002 FOR I=3 TO 13:POKE DL+I,7:NEXT 
I 
5003 POKE DL+14,65 
5004 POKE DL+15,PEEK(560):POKE DL+16 
‚PEEK(561) 
5005 ? #6;"{6SPACES}{CODE242/229/238 
/238/229/238} #";RA 
5010 POKE 756,CS/256 
5017 POKE 87,2:TP=PEEK(88)+PEEK(89)* 
256:TP=TP+41:POKE 88,TP-(INT(TP/256) 
*256):POKE 89,INT(TP/256) 
5020 FOR I=1 TO 9 STEP 4 
5030 POSITION 0,1:? #6;"q" 
5040 NEXT I 
FOR I=3 TO 7 STEP 4 


5060 POSITION 0,1:? #6;"Q":POSITION 
18,1 

5070 NEXT 1 

30T- FOR I=0 TO 10 STEP 2:POSITION O 


#6 ;"{CODE173/ 173/ 173/ 173/ 173/17 
3/1734 1713/1734 173/173/ 1737 173/173/ 17 
3/173/173/ 173/ 17339 2NEXT I 

5075 POSITION 18,1:? #6;"{CODE177}": 


87 


Wettkampf 


POSITION 18,3:? #6;"{CODE178}":POSIT 
ION 18,5:? #6;5"{CODE179}":POSITION 1 
8,7:? #6;"{CODE180}":POSITION 18,9:? 
#6;5"{CODE181}" 

5080 FOR I=1 TO 5:X(I)=0:V(I)=0:NEXT 
I:L=1 

5090 FOR J=10 TO 60 STEP 10:SOUND 0, 
J,8,14:NEXT J:SOUND 0,0,0,0 

5100 R=RND(0):FOR I=0 TO 3:SOUND I,2 
55,0,4:NEXT I:FOR I=0 TO 3:SOUND I,0 
‚0,0:NEXT I 


5110 IF R<=0.2 THEN I=1:G0TO 5160 
5120 IF R>0.2 AND R<=0.4 THEN I=2:G0 

TO 5160 

5130 IF R>0.4 AND R<=0.6 THEN I=3:G0 

TO 5160 

5140 IF R>0.6 AND R<=0.8 THEN I=4:G0 

TO 5160 

5150 IF R>0.8 AND R<=1 THEN I=s5 

n ON I GOTO 6000,6100,6200,6300,6 
00 


5170 FOR J=1 TO 5:IF X(J)=17 AND V(J 
)<>-1 THEN 5200 

5180 NEXT J:GOTO 5100 

5200 Z(L)=J:V(J)=-1 

5220 L=L+1 

5230 IF L<4 THEN 5100 

5240 FOR J=0 TO 8:SOUND 0,120+J,4,J: 

SOUND 1,30+J,8,J:SOUND 2,10+J,8,J:FO 
R I=10 TO 70:NEXT I:NEXT J 

5245 SOUND 0,0,0,0:SOUND 1,0,0,0:SOU 

ND 2,0,0,0: RETURN 

6000 IF V(I)=-1 THEN 5100 

a POSITION X(I),1:? #65" ":X(I)=X 
I)+1 


6010 IF X(I)/2=INT(X(I)/2) THEN POSI 
TION X(I),1:? #6;5"y":GOTO 5170 

6020 POSITION X(I),1:? #6;"q":GOTO 5 
170 

6100 IF V(I)=-1 THEN 5100 

u POSITION X(I),3:? #65" ":X(I)=X 
2)+7 

6110 IF X(I)/2=INT(X(I)/2) THEN POSI 

TION X(I),3:? #6;"yY":GOTO 5170 


6120 POSITION X(I),3:? #6;"Q":GOTO 5 
170 

6200 IF V(I)=-1 THEN 5100 

6205 POSITION X(I),5:? #6;5" ":X(I)=X 
(I)+1 

6210 IF X(I)/2=INT(X(I)/2) THEN POSI 
TION X(I),5:? #6;5"y":GOTO 5170 


6220 POSITION X(I),5:? #6;"q":GOTO 5 
170 

6300 IF V(I)=-1 THEN 5100 

6305 POSITION X(I),7:? #65" ":X(I)=X 
(I)+1 


6310 IF X(I)/2=INT(X(I)/2) THEN POSI 


TION X(I),7:? #6;"Y":GOTO 5170 

6320 POSITION X(I),7:? #6;"Q":GOTO 5 
170 

6400 IF V(I)=-1 THEN 5100 

en POSITION X(I),9:? #65" ":X(I)=X 
(I)+1 

6410 IF X(I)/2=INT(X(I)/2) THEN POSI 
TION X(I),9:? #6;5"y":GOTO 5170 

6420 POSITION X(I),9:? #6;5"qg":GOTO 5 
170 

7000 GRAPHICS 17:POKE 712,90:POKE 70 
9,100:POKE 710,116:POKE 708,255 

7010 POSITION 4,2:? #6;"zieleinlauf" 
7020 POSITION 5,4:? #65;"RENNEN #";RA 
1030 POSITION 1,8:? #6;5"iCODE177/174 
/160/208/204/193/212/218/186} pferd 
#">2Z(1) 

7040 POSITION 1,10:? #65"{CODE178/17 
4/160/208/204/ 193/212/218/186} pferd 
#"32(2) 

7050 POSITION 1,12:? #6;5"{CODE179/ 17 
4/160/208/204/193/212/218/186} pferd 
#";2z(3) 

7060 POSITION 5,18:? #6;"{CODE226/23 
3/244/244/229/160/229/233/238/229}" 
7070 POSITION 3,19:? #6;"{CODE244/22 
5/243/244/229/160/228/242/245/229/22 
1/235/229/238}" 

7080 Z1=2(1):P1(Z1)=P1(Z1)+1 

7090 Z2=Z2(2):P2(Z2)=P2(Z2)+1 

7100 23=2(3) :P3(23)=P3(23)+1 

7110 POKE 764,255 

171120 IF PEEK(764)=255 THEN 7120 

17130 POKE 764,255:RETURN 


READY |! 


WENN IHR LISTING aus einer 
Fotokopie besteht, läuft dieses 
Programm beim Abtippen nicht! 


2 2 Eee 222222 2202 22 2 222 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2, 


BEIM ABTIPPEN ARBEIT SPAREN 
können Sie sich, wenn Sie mit 
der Anforderungskarte am Heft- 
ende die Programme auf Daten- 
träger anfordern. 

Anwenden und auf Ihre Belange 
abändern lassen sich diese 
Programme allerdings nur mit 
Hilfe dieser CHIP-SPECIAL- 
Ausgabe. 


2 a a zz ze ze 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 20; 


22 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 
DZ 2 2 2 2 2 2 2 2 2 2 7 2 2 2 2 2 2 2 2 2 2 2.2 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 





Glücksspiel 





(Atari 400, 800, 600XL, 800XL) 
Die Fähigkeit, sich viele Dinge 
merken zu können, spielt in Schule 
und Beruf eine nicht zu unter- 
schätzende Rolle. Das Spiel Memorix 
ist eine Computer-Fassung des 
berühmten Memory-Kartenspiels. Zwei 
Spieler können dabei mitspielen. 


Die Karten werden dabei auf dem 
Bildschirm verdeckt dargestellt. 
1 REM MEMORIX 

2 REM FUER CHIP-SPECIAL 

3 REM VON FRANK PFEFFER 

4 REM ---------- ---- --- 

5 REM 


10 GRAPHICS 2:POSITION 4,4:? #65;'MOM 
ENT BITTE!" 

20 ? #65" MISCHEN DER KARTEN ":FOR W 
=1 TO 1000:NEXT W:GRAPHICS 2 

DIM A(9,9),HK(45),K(9,5) 

GRAPHICS 50:SPIELER=1 

POSITION 1,9:? #6;5"spieler 1:" 
POSITION 1,10:? #6;5"spieler 2:" 
70 POSITION 12,9:? #6;">":POSITION 1 
5,9:? #6;5SPIEL1:POSITION 15,10:? #6; 
SPIEL2 

80 DATA 1,2,3,4,5,6,7,8,9,10,11,12,1 
3,14,15,16,17,18,19,20,21,22,23 

90 REM {CODE194/197/210/197/195/200/ 
206/ 174/160/203/207/207/210/ 196/174 / 
160/ 193/ 168/210/ 172/211/ 169} 

100 FOR A=40560 TO 40720 STEP 4O:R=R 
+1:FOR S=1 TO 9:A(R,S)=A+2%*S-1:NEXT 
S:NEXT A 

110 REM {CODE208/207/203/197/206/ 160 
/196/ 197/210/ 160/211/212/ 197/210/206 
/ 195/200/ 197/206} 

120 FOR R=1 TO 5:FOR S=1 TO 9:POKE A 
(R,S),138:NEXT S:NEXT R:POKE A(3,5), 
109 

130 REM {CODE205/201/211/195/200/197 
/206/ 160/ 196/ 197/210/ 160/203/ 193/210 
/212/197/206} 


140 FOR Q=1 TO 44:HK(Q)=222:NEXT Q 
150 X=INT(43#RND(PEEK(20))+1.5) 
160 IF HK(X)<>222 THEN 150 

170 Z=Z+1:IF Z=23 THEN RESTORE 80 
180 READ HK:HK(X)=HK+32 

190 IF Z=44 THEN 210 

200 GOTO 150 


Eine Publikation von CHIP 


Sie können mit dem Joystick ausge- 


wählt und mit dem roten Knopf 
"umgedreht" werden. Ist ein Paar 
gefunden, zeigt der Zähler den 


neuen Punktestand und den nächsten 
Spieler an. Der Inhalt der Karten 
besteht aus Buchstaben. Deshalb ist 
das Spiel nicht nur für Erwachsene, 
sondern auch für Kinder besonders 
geeignet. 


Frank Pfeffer 


210 Q=0:FOR R=1 TO 5:FOR S=1 TO 9:Q= 

Q+1:K(S,R)=HK(Q):NEXT S:NEXT R 

220 K(9,5)=K(5,3) 

230 REM {CODE202/213/216/203/206/213 
/197/208/208/ 197/204/ 193/ 194/ 198/210 
/193/199/ 197/206} 

240 IF SPIEL1+SPIEL2<22 THEN R=3:S=5 
:GOTO 260 

250 GOTO 760 

260 IF STRIG(SPIELER-1)=0 THEN GOTO 

600 

270 REM 

280 IF STICK(SPIELER-1)=7 THEN GOSUB 
550:S=S+1:G0OSUB 370:G0OSUB 520:IF FE 

HLPOS=1 THEN S=S-1:G0T0O 160 

290 IF STICK(SPIELER-1)=11 THEN GOSU 

B 550:S=S-1:G0SUB 370:GOSUB 520:IF F 

EHLPOS=1 THEN S=S+1:G0TO 160 

300 IF STICK(SPIELER-1)=13 THEN GOSU 

B 550:R=R+1:GOSUB 370:GOSUB 520:IF F 

EHLPOS=1 THEN R=R-1:G0T0 330 

310 IF STICK(SPIELER-1)=14 THEN GOSU 

B 550:R=R-1:GOSUB 370:G0SUB 520:IF F 

EHLPOS=1 THEN R=R+1:G0TO 330 

320 GOTO 330 

330 PEK=PEEK(A(R,S)):IF PEK<55 AND P 

EK>32 OR PEK=109 OR PEK=202 THEN 260 
340 IF PEK=0 THEN M1=1 

350 REM {CODE208/207/203/197/206/ 160 

/ 196/ 197/211/ 160/213/206/212/ 197/210 

/204/197/199/ 174/160/211/212/ 197/210 

/206/ 195/200/ 197/206} 

360 POKE A(R,S),202:G0T0O 260 

370 REM {CODE212/207/197/206/ 197} {C 

ODE177} 

380 SOUND 0,123,10,14 

390 GOSUB 800 

400 SOUND 0,123,10,0 

410 RETURN 

420 REM {CODE212/207/197/206/197} {C 


Glücksspiel 





ODE178} 

SOUND 0,255,10,14 

GOSUB 800 

SOUND 0,123,10,0 

RETURN 

REM {CODE212/207/197/206/197} {cC 
ODE179} 

480 FOR Q=255 TO 0 STEP -3:SOUND 0,Q 
‚10,14:NEXT Q 

490 GOSUB 800 

500 SOUND 0,123,10,0 

510 RETURN 

520 REM {CODE208/207/211/201/212/201 
/207/206/ 197/206/208/210/213/ 197/198 
/213/206/ 199} 

530 FEHLPOS=0:IF R=0 OR R>5 OR S=0 0 
R S>9 THEN FEHLPOS=1:G0SUB 420 

540 RETURN 

550 REM {CODE215/197/199/208/207/203 
/ 197/206/ 160/ 196/ 197/211/ 160/ 197/210 
/211/212/197/206/ 160/218/197/201/ 195 
/200/ 197/206/211} 

560 IF M1=1 THEN POKE A(R,S),0:GOTO 
590 

570 PEK=PEEK(A(R,S)):IF PEK<55 AND P 
EK>32 OR PEK=109 OR PEK=0 THEN 590 
580 POKE A(R,S),138 

590 M1=0:RETURN 

600 REM {CODE208/207/203/197/206/ 160 
BaROX IOTVE1DITOOAEOBFAR KEIN SIR /389 
20 

610 PEK=PEEK(A(R,S)):IF PEK<55 AND P 

EK>32 OR PEK=109 OR PEK=0 OR M1=1 TH 

EN GOSUB 420:G0TO 260 

620 IF KA1>0 THEN 670 

630 KA1=A(R,S) 


Slot-Machine 


(Atari 800XL, 600XL) 


Schauplatz Las Vegas: eine total 
verrauchte Spielhalle; es riecht 
nach einem Gemisch von Whisky, 


Schweiß und kalter Zigarettenasche. 
Die Countrymusik, die blechern aus 
den Lautsprechern klingt, wird fast 
völlig übertönt von Stimmengewirr 
und dem Klacken, Surren und Piepsen 
der Glücksspielautomaten. Joe 
Gambler kramt gerade den aller- 
letzten Nickel aus der Tasche sei- 
ner abgewetzten Jacke. Einen Moment 


90 


Ds 


640 
650 
660 


POKE A(R,S),K(S,R):GOSUB 470 

IF KA2>0 THEN 680 

GOTO 260 

670 KA2=A(R,S):GOTO 640 

680 REM {CODE208/213/206/203/212/ 197 

ae SANS OEBETENSISUHE 131208 
199 

690 IF PEEK(KA1)=PEEK(KA2) THEN GOSU 

B 800:POKE KA1,0:POKE KA2,0:KA1=0:KA 

2=0:G0TO 710 

700 GOTO 730 

710 IF SPIELER=1 THEN SPIEL1=SPIEL1+ 

1:POSITION 15,9:? #6;SPIEL1:GOTO 230 

1720 SPIEL2=SPIEL2+1:POSITION 15,10:? 
#6; SPIEL2:GOTO 230 

1730 GOSUB 800:POKE KA1,138:POKE KA2, 

138:KA1=0:KA2=0 

740 IF SPIELER=1 THEN POSITION 12,10 

:? #6;5">"sPOSITION 12,9:? #65" "sSPI 

ELER=2:G0TO 230 

750 POSITION 12,9:? #6;">":POSITION 

12,10:? #65" ":SPIELER=1:G0TO 230 

760 REM {CODE160/211/208/201/ 197/204 

a ee he 


770 POSITION 4,3:? #6;5"GRATULATION": 
POSITION 4,5:? #6;"WEITER MIT:":POSI 
TION 7,7:? #6;"start" 
780 IF PEEK(53279)=6 THEN GRAPHICS 2 
:RUN 
790 GOTO 780 
800 REM {CODE208/ 193/213/211/ 197/206 
} TO 50:NEXT WAIT 
810 FOR WAIT=1 TO 50:NEXT WAIT 
820 RETURN 

READY ! 


ik 


zögert er noch, ob die Münze nicht 
doch besser in einem Drink angelegt 
ist, dann wirft er sie doch in den 
gefräßigen Schlund des einarmigen 
Banditen. Die drei Walzen beginnen 
sich zu drehen. Nach wenigen Augen- 


blicken stoppt das erste Rad: 
Apfel. Joe drückt die rote Taste, 
das zweite Bild steht fest: wieder 


Apfel. Jetzt hält Joe Gambler das 
Fenster für die mittlere Walze zu. 
Die Maschine macht einen fast un- 
merklichen Ruck. Joe weiß, das nun 
auch das dritte, das entscheidende 


Chip Computer-Programme Atari 600 XL/800 XU/65 XE 


Glücksspiel 





Bild feststeht. In einer Mischung 
von vorzeitiger Resignation und 
Hoffnung auf ein Wunder schiebt er 
seine Hand beiseite. Noch ein Apfel 
-— Jackpot! 

Slot-Machine Atari 


macht den zu 


REM SLOT MACHINE 

REM FUER CHIP-SPECIAL 

REM VON KNUT SENF 

REM 

REM 

30 DIM FRUCHT(4) 

40 GELD=0:EINSATZ=1:ZEICHNEN=1000:LO 

ESCHEN= 1200 :MELODIE=2000 

100 REM P/M GRAFIK SETZEN 

110 GRAPHICS 0:SETCOLOR 2,7,1:POKE 5 

59,46: PMBASIS=PEEK(106)-8 

140 POKE 54279,PMBASIS:POKE 53277 ,3: 

POKE 623,1 

200 REM TEXT 

210 POSITION 8,1:? "S L O T{2SPACES} 

MACHINE" 

220 io? 23 een ARE 

uni /208/212/201/ 6;": 
Hrn en nn /204/ 

1 1 


NFwWm —_ 


an ss 
}tope2fi2 2}" 8 
es ein (2sracns) (cd E1 
VELVET 


2":? o[236/EN0) -Lastaggs) RYANIER: 


} ={2SPACES}10 X EINSATZ" ı 

235 ? n{13SPACES} LCODE2167216/246/01 
6} = 100 X EINSATZ" 

240 POSITION 2,2:? "MUENZSPEICHER{ 10 
SPACES}EINSATZ" 

300 REM ANZEIGE 

305 POKE 752,1:REM CURSOR AUS 

310 POSITION 6,3:? "{8SPACES}" 

320 POSITION 6,3:? GELD 

330 POSITION 28,3:? EINSATZ 

340 SOUND 0,0,0,0 

400 REM AUSWAHL 

410 IF PEEK(53279)=7 THEN 
OTO 410 

420 IF PEEK(53279)=3 THEN 
1 

430 IF PEEK(53279)=5 THEN 
NSATZ+1:IF EINSATZ>5 THEN 
440 IF PEEK(53279)=6 THEN 
445 SOUND 0,33,10,8 

450 IF PEEK(53279)<>7 THEN 450 

460 GOTO 310 

470 IF EINSATZ>GELD THEN EINSATZ=1:G 
0oTO 310 

480 GELD=GELD-EINSATZ 

485 POKE 77,0 


Z=RND(1):G 
GELD=GELD+ 
EINSATZ=EI 


EINSATZ=1 
470 


Eine Publikation von CHIP 


dem legendären Glücksspielautoma- 
ten. Seinen letzten Groschen muß 
man nicht opfern, aber deswegen ist 
das Spiel nicht minder spannend. 


Knut Senf 


490 GOSUB LOESCHEN 

500 REM SPIEL 

510 FOR PM=1 TO 4:FRUCHT(PM)=INT(RND 
(1)%6)+1:GOSUB ZEICHNEN:SOUND PM-1,0 
‚0,0:NEXT PM 

520 IF FRUCHT(1)=FRUCHT(2) AND FRUCH 
T(2)=FRUCHT(3) AND FRUCHT(3)=FRUCHT( 
4) THEN 600 

530 IF FRUCHT(2)=FRUCHT(3) AND FRUCH 
T(3)=FRUCHT(4) THEN 620 

540 IF FRUCHT(3)=FRUCHT(4) THEN 640 
550 GOTO 310 

590 REM GEWINN ERMITTELN 

600 GELD=GELD+100*EINSATZ:GOSUB MELO 
DIE 

610 GOTO 310 

620 GELD=GELD+10#EINSATZ:GOSUB MELOD 
IE:GOTO 310 

640 GELD=GELD+2*EINSATZ:GOSUB MELODI 
E:GOTO 310 

1000 REM ZEICHNEN 

1010 POKE 53247+PM,PM#*40+15 

1020 POKE 53255+PM, 1 

1030 J=PMBASIS#256+512+((PM-1)*128) 
1040 LINE=FRUCHT(PM)+1500 

1050 RESTORE LINE 

1060 READ FARBE 

1070 POKE 703+PM,FARBE 

1075 SOUND PM-1,4#PM+80,10,8 

1080 FOR Q=50 TO 70 

1090 READ SHAPE 

1100 IF SHAPE=999 THEN POP :RETURN 
1110 POKE J+Q,SHAPE 

1120 NEXT Q 

1200 REM LOESCHEN 

1205 SOUND 0,200,10,8 

1210 FOR M=0 TO 384 STEP 128 

1220 FOR Q=50 TO 70:POKE (PEEK(106)- 
8)*256+512+M+Q,0:NEXT Q 

1225 SOUND 0,0,0,0 

1230 NEXT M 

1250 RETURN 

1500 REM DATEN FUER FARBE UND SHAPE 
1501 DATA 234,24,24,60,60,126, 126,25 
5,255,255,255,126,126,60,60,24,24,99 
9 


1502 DATA 4,24,24,24,24,60,60,231,23 
1,231,231,60,60,24,24,24,24,999 

1503 DATA 54,255,255,195,195, 165,165 
‚153,153,153,153,165,165,195,195,255 


91 


6 0000000000000 


Science Fiction 





‚255,999 

1504 DATA 199 ‚0 ‚0,24 ‚24 ‚2u ‚60 ‚60,60, 
126,126, 126,255,255,255,999 

1505 DATA 228,60,60,102,102,195,195, 

EN STIER N 
’ 

1506 DATA 24,195,195,189,189,66,66,9 

0,90,90,90,66,66,189,189,195,195,999 

2000 REM MELODIE 

2010 P=60 


2020 FOR J=10 TO 0 STEP -0.2 

2030 FOR V=1 TO J:SOUND 0,P,10,V:NEX 
TUE 

2040 FOR V=2%J TO 1 STEP -1:SOUND 0, 
P,10,V:NEXT V 

2050 NEXT J 

2060 SOUND 0,0,0,0 

2070 RETURN 


READY |! 


Defending World 3000 


(Atari 
12635 


Beschreibung des Programmes 
600-%%,.:.800. = XL, - Joystick, 
Bytes) 

wir schreiben das Jahr 3000. Die 
Stadt, in der Sie leben, wird von 
herabfallenden Kometen bedroht. 
Retten Sie Ihren Lebensraum. 


Zur Verfügung steht Ihnen eine 
Laserstation. Sobald ein Komet auf- 
taucht, kann dieser durch Bestrah- 
lung bereits im All zur Explosion 
gebracht werden. Die Richtung, in 
welcher Sie den Strahl lenken, wird 
von einem weißen, lenkbaren Punkt 
am oberen Bildschirmrand qgekenn- 
zeichnet. Fällt ein Komet auf ein 
bebautes Grundstück, so sinkt Ihr 
Energievorrat um acht Punkte. Fällt 
er auf ein unbebautes Grundstück, 
dann werden vier Punkte abgezogen. 

Für Kometen 


jeden abgefangenen 


1 REM DEFENDING WORLD 
2 REM FUER CHIP-SPECIAL 


3 REM VON STEFAN SCHWARZ 
U REM ----- nun 
5 REM 

90 S1=7Y 


92 HSC=PEEK(1537)#256+PEEK( 1536) 


100 GRAPHICS 2:SETCOLOR 2,0,0 

110 POSITION 2,2:? #6;"DEFENDING WOR 
LD" 

120 POSITION 2,5:? #6;"{2SPACES}waeh 
len sie" 

130 POSITION 2,6:? #6;" zwischen stu 
92 


erhöht sich Ihr Punktekonto um 10. 
Falls Ihr Energievorrat erschöpft 
ist, verlieren Sie ein Leben und 


bekommen dafür neue Energie. 


Je höher der Schwierigkeitsgrad, 
desto schwieriger sind die Kometen 
zu treffen. Stufe 1 ist für das 
Alter ab 6 Jahre, die Stufe 8 ist 
für ausgefuchste Computer-Freaks. 

Wer längere 
kommt als 


Zeit durchhält, be- 
Bonus ein zusäzliches 
Leben. Bei schwereren Stufen kann 
es vorkommen, daß Kometen, die nur 
Streifschüsse abbekamen, nicht ex- 
plodieren. Der High Score (die 
Höchstleistung) ist nach Abbruch 
des fertig gespielten Durchlaufes 
nicht gelöscht; auch nicht wenn 
Sie die BREAK-Taste drücken und 
einen erneuten Start mit RUN 
einleiten. 

Stefan Schwarz 


fe!" 
140 
BIS 
150 


oo 2,7:? #6;5"{3SPACES}( 1 
gg)" 

? " {CODE207/208/212/201/207/206 
} = STUFE AENDERN" 

160 ? " {CODE211/212/193/210/212}{2S 
PACES}= SPIELBEGINN" 

170 STU=1:G0OSUB 180:G0TO 200 

180 IF STU=9 THEN STU=1 

182 POSITION 2,9:? #6;"SPIELSTUFE:"; 


STU 


185 
186 
190 


FOR X=1 TO 100 STEP 4 
SOUND 0,X,10,8:NEXT X 
SOUND 0,0,0,0 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Science Fiction 





195 
200 


RETURN 
IF PEEK(53279)=3 THEN STU=STU+1: 


GOSUB 180 


210 
220 
250 
280 
300 
301 
302 
303 


IF PEEK(53279)=6 THEN GOTO 250 
GOTO 200 

GOSUB 4500 

GOTO 1000 

POKE 77,0:POKE 752,1:? CHR$(125) 
IF SC<>EE THEN 310 

EE=EE+T1:? CHR$(125) 

? "{2SPACES} {CODE160/160/ 160/160 


/ 160/ 160/ 160/ 160/ 160/ 160/ 160/ 160} " 


304 


? "{2SPACES}{CODE160 }BONUSLEBEN{ 


CODE160}#*#<<SCORE>> ";5Sc;" ###n 


305 ? "{2SPACES} {CODE 160/ 160/ 160/160 


/ 160/ 160/ 160/ 160/ 160/ 160/ 160/160} " 


306 
310 


GOSUB 2000 
7 NERREREE DEFENDING WORLD 3000 


320 ? "{5SPACES}SCORE:"5SC;"{7SPACES 
}HI- 
330 ? "{5SPACES}LIVES:";LI;"{8SPACES 


SCORE:";HSC 


}ENERGY:";EN 


340 
X=1 


IF EN<1 THEN EN=EN1:LI=LI-1:FOR 
TO 255:SOUND 3,X,10,14:SOUND 3,0 


‚0,0:NEXT X:GOTO 310 


345 
350 
400 
410 
420 
20 
430 
440 
450 
490 
500 
800 
805 
810 
820 
830 
840 
850 
890 
0 
900 
0 
910 


IF LI<O THEN 5010 

RETURN 

COLOR 1:PLOT 0,78:DRAWTO 159,78 
RESTORE 3000 

READ A:IF A=-1 THEN B=B+1:G0TO 4 


IF B=19 THEN 490 

COLOR 3:PLOT A,77-B 

GOTO 420 

RETURN 

GOTO 1000 

S=STICK(0):K1=S1 

STRIG(O)=1 THEN LX=0 

S>8 AND S<12 THEN S1=S1-IP 
S>4 AND S<8 THEN S1=S1+IP 
S>13 THEN 900 

S1<1 THEN S1=1 

S1>158 THEN S1=158 

COLOR 0:PLOT K1-1,0:DRAWTO K1+1, 


COLOR 2:PLOT S1-1,0:DRAWTO S1+1, 


IF KX=0 AND STRIG(0)=0 AND LX=0 


THEN KX=1:LX=1:COLOR 2:PLOT 79,58:DR 


AWTO 
990 

1000 
1010 
1040 
1050 
1090 


S1,1:SOUND 0,3,8,12 
RETURN 

GRAPHICS 7 

SETCOLOR 1,0,13 
SETCOLOR 0,3,9 
GOSUB 300 

GOSUB 400 


Eine Publikation von CHIP 





1100 
1103 
1104 
1195 


GOSUB 800 
SO1=INT(RND(0)#200+50) 

SO2=S0 1-20 
T11=INT((RND(O0)#WM)+(159-WM)/2) 


:KOM2=T11:X1=1 


1150 


FOR X=4 TO 79 STEP PP7 
S03=S03+1:IF SO3=5 THEN SO3=1 
IF SO3=1 THEN SO4=S02 

IF SO3=3 THEN SO4=SO 1 

SOUND 2,504,10,10 

KOM1=KOM2:IF STRIG(O)=1 THEN LX 


T2=INT(RND(0)#3) 

IF T2=0 THEN KOM2=KOM2-Y7 

IF T2=1 THEN KOM2=KOM2+Y7 
Q6Q=(159-WM)/2:IF KOM2<Q6Q OR K 


OM2>159-Q06Q THEN KOM2=KOM1:GOTO 1120 


1195 
1160 
1170 
1180 
1190 
1200 
1210 
1250 
1260 
1270 
+1 

1280 
1290 
1300 
X1+1 
1310 
1330 


IF STRIG(0O)=1 THEN LX=0 

LOCATE KOM2-1,X-1,0Q1 

LOCATE KOM2+1,X+1,Q2 

LOCATE KOM2+1,X-1,Q3 

LOCATE KOM2-1,X+1,Q4 

LOCATE KOM2,X,Q5 

IF Q1+Q2+Q3+Q4+Q5<>0 THEN 3050 
COLOR 1:PLOT KOM2-1,X-1 

DRAWTO KOM2+1,X+1 

PLOT KOM2+1,X-1:DRAWTO KOM2-1,X 


COLOR 0:PLOT KOM1-1,X1-1 
DRAWTO KOM1+1,X1+1 
PLOT KOM1+1,X1-1:DRAWTO KOMI1-1, 


X1=X 
IF KX=1 THEN COLOR 0:PLOT 79,58 


:DRAWTO S1,1:KX=0:SOUND 0,0,0,0 


1340 
1350 
1355 
1360 
2000 
2001 
2002 
2005 
2010 
2020 
2030 
2035 
2040 
3000 
3001 
1 

3002 
1 

3003 
1 

3004 


IF STRIG(0O)=1 THEN LX=0 
GOSUB 800 

NEXT X 

GOTO 1100 

SOUND 1,0,0,0 

SOUND 2,0,0,0 

SOUND 3,0,0,0 

FOR K1=1 TO 3 

FOR K2=1 TO 255 STEP 5 
SOUND 0,K2,10,12/K1 
NEXT K2:NEXT Ki 

SOUND 0,0,0,0 
LI=LI+1:RETURN 

REM 

DATA 55,65,68,69,89,90,92,101,- 


DATA 56,64,68,69,89,90,92,101,- 
DATA 57,63,68,69,89,90,92,101,- 
DATA 58,62,69,70,88,89,92,94,95 


‚96,97,98,99,101,-1 


93 











nn. . 59,61,70,71,87,88,92,94,99 
’ > 
3006 DATA 60,70,71,86,87,92,94,95,96 
‚97,98,99,101,-1 
aaa DATA 72,73,74,84,85,86,87,92,10 
- 1 
’ 
3008 DATA 73,74,75,76,82,83,84,85,93 
‚94,100,101,-1 
3009 DATA 75,76,77,81,82,83,95,96,98 
‚99,-1 


3010 DATA 77,78,80,81,97;-1 

3011 DATA 78,79,80,-1,78,79,80,-1 
3012 DATA 77,79,81,-1,76,79,82,-1 
3013 DATA 75,76,79,83,84,-1 

3014 DATA 74,78,80,85,-1 

3015 DATA 74,77,81,85,-1 

3016 DATA 75,78,80,84,-1,79,-1,0,-1 
3050 REM ##ASTEROID ABGESCHOSSEN## 
3060 COLOR 0:PLOT 79,58:DRAWTO S1,1: 
KX=0:SOUND 0,0,0,0 


3100 IF Q1=3 OR Q2=3 OR Q3=3 OR Q4=3 
OR Q5=3 THEN 3500 

3110 IF Q1=2 OR Q2=2 OR Q3=2 OR Q4=2 
OR Q5=2 THEN 3150 

3120 GOTO 3300 

3150 FF=1:COLOR 0:PLOT KOM1,X1 

3153 FF=FF+4 

3155 SOUND 2,FF,6,8 

3157 IF U1=1 THEN 3165 

3160 LOCATE KOM1-FF,X1-FF,I1 

3165 IF U2=1 THEN 3175 

3170 LOCATE KOMI+FF,X1-FF,I2 

3175 IF U3=1 THEN 3185 

3180 LOCATE KOMI+FF,X1+FF,I3 

3185 IF U4=1 THEN 3200 

3190 LOCATE KOM1-FF,X1+FF,I} 

3200 IF I1<>0 THEN IT1=1 

3202 I2<>0 THEN IT2=1 

3204 I3<>0 THEN IT3=1 

3206 I4<>0 THEN IT4=1 

3210 IT1=1 OR KOMI1-FF<4 OR X1-FF< 
4 THEN U1=1:G0SUB 3230:G0 TO 3212 
3211 COLOR 0:PLOT KOM1-FF+4,X1-FF+4: 
COLOR 1:PLOT KOMI1-FF,X1-FF 

3212 IF IT2=1 OR KOM1I+FF>155 OR X1-F 
F<4 THEN U2=1:G0SUB 3230:G0T0 3214 
3213 COLOR 0:PLOT KOMI+FF-4,X1-FF+h: 
COLOR 1:PLOT KOMI+FF,X1-FF 

3214 IF IT3=1 OR KOM1+FF>155 OR X1+F 
F>76 THEN U3=1:G0SUB 3230:G0 TO 3216 
3215 COLOR 0:PLOT KOMI1+FF-4,X1+FF-L: 
COLOR 1:PLOT KOMI1+FF,X1+FF 

3216 IF IT4=1 OR KOM1-FF<4 OR X1+FF> 
76 THEN U4=1:G0SUB 3230:G0TO 3218 
3217 COLOR 0:PLOT KOM1-FF+4,X1+FF-4: 
COLOR 1:PLOT KOM1-FF,X1+FF 

3218 IF U1+U2+U3+U4=4 THEN 3250 


94 


3220 GOTO 3153 
3230 IF U1=1 THEN UY=UY+1:IF UY=1 
EN COLOR 0:PLOT KOM1-FF+4,X1-FF+4 
3232 IF U2=1 THEN UK=UK+1:IF UK=1 
EN COLOR 0:PLOT KOM1+FF-4,X1-FF+4 
3234 IF U3=1 THEN UQ=UQ+1:IF UQ=1 
EN COLOR 0:PLOT KOM1+FF-4,X1+FF-4 
3236 IF U4=1 THEN UD=UD+1:IF UD=1 
EN COLOR 0:PLOT KOM1-FF+4,X1+FF-4 
3240 RETURN 
3250 U1=0:U2=0:U3=0:U4=0:UY=0:UK=0:U 
Q=0:UD=0:IT1=0:IT2=0:IT3=0:IT4=0 
3280 SC=SC+10 
3290 GOTO 4000 
3300 COLOR 0:PLOT KOM1-1,X1-1 
3310 DRAWTO KOM1+1,X1+1 
3320 PLOT KOM1+1,X1-1:DRAWTO KOMI1-1, 
X1+1 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3500 
3510 
3520 
3530 
X1+1 
3540 
3550 
3570 
3580 
X 
3590 
4000 
4010 


TH 
TH 
TH 


TH 


FOR X=1 TO 120 STEP 8 
SOUND 0,X,10,8 

SOUND 1,X+4,10,8 

SOUND 2,X+8,10,8 

SOUND 3,X+12,10,8 

NEXT X 

FOR X=0 TO 3 

SOUND X,0,0,0 

NEXT X 

EN=EN-5 

GOTO 4000 

FOR X=100 TO 0 STEP -10 
COLOR X:PLOT KOM1-1,X1-1 
DRAWTO KOM1+1,X1+1 

PLOT KOM1+1,X1-1:DRAWTO KOMI1-1, 


SOUND 0,X,6,8:SOUND 1,X,2,8 
SOUND 2,X,8,8 

NEXT X 

FOR X=0 TO 2:SOUND X,0,0,0:NEXT 


EN=EN-8:GOTO 4000 

IF SC>=HSC THEN HSC=SC 

GOSUB 300 

4100 GOTO 1100 

4500 IF STU=1 THEN EE=200:T1=300:LI= 
2:EN=80:IP=10:WM=50:Y7=1:PP7=3 

4510 IF STU=2 THEN EE=250:T1=400:LI= 
2:EN=80:IP=8:WM=50:Y7=1.5:PP7=3 
4520 IF STU=3 THEN EE=300:T1=500: 
2:EN=80:IP=9:WM=70:Y7=2:PP7=3 
4530 IF STU=4 THEN EE=400:T1=550: 
2:EN=90:IP=9:WM=80:Y7=2.3:PP7=3 
4540 IF STU=5 THEN EE=500:T1=750: 
2:EN=105:IP=10:WM=90:Y7=2:PP7=3 
4550 IF STU=6 THEN EE=560:T1=880: 
2:EN=110:IP=10:WM=100:Y7=3:PP7=3 
4560 IF STU=7 THEN EE=600:T1=900: 
3:EN=110:IP=10:WM=100:Y7=4:PP7=3 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


4570 IF STU=8 THEN EE=800:T1=1000:L1 
=3sEN=110:IP=12:WM=100:Y7=5:PP7=3 
4580 ENI1=EN 

5000 RETURN 

5010 GRAPHICS 0:SETCOLOR 2,3, 14:SETC 
OLOR 1,3,4:SETCOLOR 4,0,6 

5020 POSITION 2,3:? "{7SPACES}{CODEI 
7/18/ 18/ 17/ 18/5/ 17/ 18/5/ 17/ 18/5/ 17/1 
8}{2SPACES}" 

5030 POSITION 2,4:? "{7SPACES}{CODE2 
6/18/5/124}{2SPACES}{CODE124} {CODE 
24/1/23/3/1/18} {CODE13}" 

5040 POSITION 2,5:? "{7SPACES}{CODEI 
8/ 18/3/26/ 18/3/26/ 18/3/24/26/3/26/18 
} {CODE13}" 

5050 POSITION 29,4:? SC 

5060 POSITION 2,9:? "{7SPACES}{CODE2 
00/ 160/20 1/ 160/ 173/ 160/211/ 160/ 195/ 1 
60/207/ 160/210/ 160/ 197/ 160/186 }1{3SPA 
CES}";HSC 

5080 POSITION 2,15:? "{7SPACES}Game 
over ! 

5090 POSITION 0,18:? " HALTEN SIE {C 
ODE211/ 197/204/ 197/ 195/212} FEST UM 
ZU BEGINNEN!" 

5095 POSITION 0,23:?7 " 

5100 IF HSC<256 THEN 5120 

5110 HSC=HSC-256 :HHZ=HHZ+1 

5115 GOTO 5100 

5120 POKE 1536,HSC:POKE 1537 ,HHZ 


5170 POKE PEEK(560)+256*#PEEK(561)+28 
112 
5180 FOR X=1 TO 600:NEXT X 


6000 ? "{5SPACES}{CODE8/ 160/ 160/ 160/ 
160/ 160/10} {U SPACES} { CODE8/ 160/ 160/ 1 
60/10}{5SPACES} {CODE8/ 160/ 160/ 160/10 
}{3SPACES}" 

6001 ? "{AUSPACES} {CODE8/ 160/ 160/136} 
{7SPACES} { CODE8/ 160/ 160/ 160/ 160/ 160/ 
10}{3SPACES} {CODE8/ 160/ 160/ 160/ 160/ 1 
60/10} {2SPACES}" 

6002 ? "{3SPACES} {CODE8/ 160/ 160/136} 
{8SPACES}{CODE160/160/136} {CODE138/ 
160/160}{3SPACES} {CODE160/ 160}{3SPAC 
ES}{CODE138/ 160/10} " 

6003 ? "{3SPACES}{CODE160/160/160}1{9 
SPACES}{CODE160/ 160} {3SPACES}{CODE16 
0/160}{3SPACES} {CODE160/ 160} {4SPACES 
}{ CODE138/ 160/10}" 

6004 ? "{3SPACES} {CODE160/ 160/ 160/10 
}{8SPACES}{CODE160/160}{3SPACES}{COD 
E160/160}{3SPACES} {CODE160/160}{5SPA 
CES}{CODE138/ 160} " 

6005 ? "{3SPACES}{CODE160/160/ 160/16 
0/10}{7SPACES}{CODE160/160}{3SPACES} 
{CODE160/ 160} {3SPACES} {CODE 160/160}{ 
6SPACES}{CODE160}" 


Eine Publikation von CHIP 


6006 ? "{3SPACES}{CODE160/ 160/ 160/16 
0/ 160/ 160/ 160/ 160/ 10}{3SPACES}{ CODE 1 
60/160}{3SPACES} {CODE160/ 160} {3SPACE 
S}{CODE160/ 160} {6SPACES}{CODE160}" 
6007 ? "{3SPACES} {CODE160/ 160/ 160/16 
0/ 160/ 160/ 160/160/ 136}{3SPACES} {CODE 
160/160}{3SPACES} {CODE 160/160}{3SPAC 
ES}{ CODE160/ 160} {6SPACES}{CODE160}" 
6008 ? "{3SPACES}{CODE160/ 160/ 160/16 
0/136}{7SPACES}{CODE160/ 160} {3SPACES 
}{CODE160/160}{3SPACES} {CODE160/160} 
{6SPACES}{CODE160}" 

6009 ? "{3SPACES} {CODE160/ 160/ 160/13 
6}{8SPACES}{CODE160/ 160} {3SPACES}{ CO 
DE160/160}{3SPACES} {CODE160/ 160} {5SP 
ACES}{ CODE8/ 160} " 

6010 ? "{3SPACES}{CODE160/160/160}{9 
SPACES}{ CODE160/ 160}{3SPACES}{ CODE 16 
0/160}{3SPACES} {CODE160/ 160} {4USPACES 
}{ CODE8/ 160/ 136} " 

6011 ? "{3SPACES}{CODE138/ 160/ 160/10 
}{8SPACES}{CODE160/ 160 }{3SPACES}{COD 
E160/160}{3SPACES} {CODE160/ 160}1{3SPA 
CES}{CODE8/ 160/136} " 

6012 ? "{4SPACES}{CODE138/ 160/ 160/10 
}{7SPACES} {CODE 160/160} {3SPACES}{COD 
E160/ 160}{3SPACES} {CODE138/ 160/ 160/ 1 
60/ 160/ 160/ 136} {2SPACES}" 

6013 ? "{5SPACES} {CODE138/ 160/ 160/16 
0/ 160/ 160/136 }{3SPACES}{CODE138/ 136} 
{3SPACES} {CODE138/ 136} {4SPACES} {CODE 
138/ 160/ 160/ 160/136 }{3SPACES}" 

6015 ? "{34SPACES}" 

6016 ? "{34SPACES}" 

6017 ? "{34SPACES}" 

6020 POKE 77,0 

6030 IF PEEK(53279)=5 THEN RUN 

6040 GOTO 6000 


READY ! 


KAKKKKKKKHKKTHTHH TI I HH NH A A A A A A a a a a a a a a a 


+ 


Wenn Sie dann so weit sind, daß Sie 
ähnlich gute oder vielleicht noch 
bessere Programme schreiben können, 
dann hat sich Ihr Computer bereits 
amortisiert. 

Denn: Die Redaktion CHIP-Special 
kauft sämtliche Programme auf, die 
unseren Kriterien standhalten. 


Wir halten Ihnen die Daumen! 


AAFHRAHEARHARHHH TEE NH 
BE 2E 22. 22 22 22 22 22 02 22 22 22 2 2722727272727 2727727272727 272 


KAAAKKAAKKHK HK A HI GT A NH TH A A HH a A a a a a a a a a a a a a 


95 





Insects 


(Atari 600XL/800XL, Joystick) 


Der Himmel verdunkelt sich, eine 
große Gewitterwolke zieht auf. Doch 
auf einmal erfüllt ein bedrohliches 
Summen die Luft. Nachdem die Wolke 
nähergekommen ist und das Summen 
immer lauter wird, erkennen wir: 
Das ist ja gar kein Gewitter, ein 
Schwarm von Riesenhornissen fliegt 
direkt auf uns zu! Die general- 
stabsmäßige Formation weist darauf- 


hin: Die Tiere werden von einer 
fremden Macht gesteuert. Da hilft 
nur noch die neuentwickelte Laser- 


1 POKE 1710,0:POKE 1667,0 

2 TRAP 2:GRAPHICS 0:POKE 712,202:POK 

E 710,193:POKE 709,13:POKE 559,62:PO 

KE 82,0 

3 COLOR 42:PLOT 1,1:DRAWTO 38,1:DRAW 

TO 38,15:DRAWTO 1,15:DRAWTO 1,1 

4 POSITION 0,0:? " {CODE29}*{CODE29/ 

29/29/12T7}1I{2SPACES}N{2SPACES}S{2SPA 

CES}E{2SPACES}K{2SPACES}T{2SPACES}U{ 

2SPACES}L{2SPACES}A":POSITION 12,11: 
? “"von{2SPACES}Eric Hamann" 

5 IF PEEK(1667)=1 THEN POSITION 3,20 
:? "GUT ! Sie haben es geschafft !!! 
">:FOR A=1 TO 1500:NEXT A:POKE 1667 
‚0:G0T0 2 

6 IF PEEK(1667)=2 THEN POSITION 4,20 
:? "Sie haben leider verloren !!! "5 
:FOR A=1 TO 1500:NEXT A:POKE 1667,0: 

GOTO 2 

8 RESTORE 16:POSITION 1,20:? "Welche 

r Schwierigkeitsgrad (1-10) ";:INPUT 
A:IF A<1 OR A>10 THEN 2 

9 POKE 1668,281-A#28 

10 POSITION 1,20:? "{CODE156/ 156/156 
/156/ 156/ 156/127}Welche Version (1-4 
) "5:INPUT VE:IF VE<1 OR VE>4 THEN 2 
11 VEQ=(VE=2 OR VE=4) 

16 DATA 104,133,203,133,205,169,80,1 
33,204,169,224,133,206,162,8,160,0,1 

1717,205,145,203,136,208,249,230 

17 DATA 204,230,206,202,208,240 

18 DATA 169,0,168,153,0,89,153,0,90, 
153,0,91,136,208,244,96 

19 FOR A=0 TO 46:READ B:POKE 35000+A 
‚„B:NEXT A:U=USR(35000) 

20 DATA 0,48,60,255,255,60 ‚60,60 ‚20, 


96 


kanone. Die plötzlichen Richtungs- 
wechsel der Hornissen-Staffeln sind 
allerdings schwer kalkulierbar, 
daher muß man sich bei der Jagd 
sehr konzentrieren. Besonders in 
der höchsten Schwierigkeitsstufe 
ist die Gefahr nur noch sehr schwer 
abzuwenden. 


Wird das Spiel gestartet, muß man 
sich etwas gedulden, da das 
Maschinenprogramm initialisiert 
werden muß. 


Eric Hamann 


20,84,85,85,84,20,20,0,40,130,130, 17 
0,1053050,, 870 ,170;170, 170,170, 170,1 
70,170 

21 FOR A=20504 TO 20535:READ B:POKE 
A,B:NEXT A 

30 DATA 24,60,60,153,219,255,255,102 
‚66, 165,24,36,24,36,66,129,129,195,1 
02,102,60,102,153,66, 129 

31 DATA 165, 153,231,255,219,129,102 
32 DATA 145,82,8,35,196,16,74,137 

33 AN=22528:POKE 54279,88:FOR A=AN+6 
24 TO AN+631:READ B:POKE A,B:NEXT A: 
FOR A=0 TO 2:FOR B=AN+650 TO AN+657: 
READ C 

34 FOR D=0 TO 4-VEQ:POKE B+A#133+D%# ( 
25+7#(VEQ=1)),C:NEXT D:NEXT B:NEXT A 
:FOR A=1650 TO 1657:READ B:POKE A,B: 

NEXT A 

95 IF PEEK(1710)=0 THEN GOSUB 990:PO 

KE 1710,1 

100 GRAPHICS 28:POKE 756,80:POKE 708 
‚55:POKE 709,204:POKE 710,70:POKE 53 

277,3:POKE 559,46 

102 POKE 704,206:POKE 705,143:POKE 7 
06,57:POKE 707,47 

105 ZW1=PEEK(89)*256+PEEK (88) 

106 IF VE<3 THEN FOR A=1 TO 50:POSIT 
ION RND(0)#39,RND(0)%23:? #6;"#";:NE 

XTA 

107 IF VE>2 THEN COLOR 35:FOR A=0 TO 
23:PLOT 0,A:DRAWTO 39,A:NEXT A 

108 IF VE=2 OR VE=4 THEN POKE 30252, 
12:G0TO 110 

109 POKE 30252,15 

110 POSITION 0,0:? #6;5"$$$HHH HH HH HZ" 
130 U=USR(30000) 


Chip Computer-Programme Atari 600 XU/800 XL/65 XE 


Science Fiction 





500 IF PEEK(1667)=2 THEN FOR A=0 TO 
255:SOUND 0,A,8,10:NEXT A 

505 IF PEEK(1667)=1 THEN FOR A=1 TO 
3:FOR B=0 TO 255:SOUND 0,B,10,10:NEX 
T B:NEXT A 

510 FOR A=0 TO 3:SOUND A,0,0,0:NEXT 
A:POKE 53255,0:G0T0 2 

990 ? "{CODE29} Bitte Warten ! ";:FO 
R A=0 TO 433:READ B:POKE 30000+A,B:N 
EXT A:FOR A=500 TO 552:READ B:POKE 3 
0000+A,B:NEXT A 

991 FOR A=600 TO 779:READ B:POKE 300 
00+A,B:NEXT A:FOR A=800 TO 939:READ 
B:POKE 30000+A,B:NEXT A 

992 FOR A=434 TO 499:POKE 30000+A,23 
U:NEXT A:FOR A=780 TO 799:POKE 30000 
+A,234:NEXT A 

993 FOR A=940 TO 999:POKE 30000+A,23 
4:NEXT A:RETURN 

1000 DATA 104,32,248,117,173,120,2,2 
01.8; 1635,230,24,76,72, 117,201, 12,16 
‚4,198,24,234,234,162 

1001 DATA 3,181,24,157,0,208,202, 16, 
248,234,174,130,6,172,132,6,136,208, 
253,202,208,247,234,234,234 

1002 DATA 234,234,234,234,234,234,23 
4,234,234,234,32,92,118,234,234,234, 
32,36,119,173,132,2,208,3,32 

1003 DATA 136,119,173,124,6,240,3,32 
166,119 ,32,1975 120, 169,0, 141, 129,6, 
32,148,117,234,76,52,117 

1010 DATA 169,90,133,204,169,128,133 
203,32,.223,117,230,208,32,223, 117,1 
69,0,133,203,32,223,117,162,2 

1011 DATA 189,134,6,208,5,214,25,76, 
185,117,246,25,202,16,241,169, 164,14 
151521018143, 2105 165525 

1012 DATA 151,0;210,165427,18152,810 
169,197, 18 1,54210, 165, 23,:181, 45210, 
234,234,234,234,234,234,96 

1013 DATA 160,127,177,203,141,164,6, 
160,126, 177,203,200,145,203,136,136, 
16,247,173,164,6,200,145,203,96 

1020 DATA 169,120,133,24,169,50,133, 
25,169,100,133,26,169,150,133,27,169 
‚160,133,207,169,155,133,208, 169 
1021. DATA 3, 133,209,32,60,118,169 ,1, 
111,134.,6,121,136;6, 169,0; 181,135 ,6; 
169,15 141,127,6; 169 

1022 DATA 165,169,15,141,130,6,234,2 
34,234,234,234,234,234,234,234,234,2 
34,96, 169,112,141,125,6,169,0 

1023. DATA 141, 124,6,141,7,208, 160,12 
7,153,128,89,136,16,250,169,192,160, 
3,153,240,89,136,16,250,96 

1030 DATA 169,240,133,203,169,91,133 
‚204,162,2,165,24,56,245,25,48,42,20 


Eine Publikation von CHIP 


1,7,16,23, 133,205, 160,7 

1031 DATA 165,205,133,206, 177,203, 1C 
‚198,206,208,251,57,112,90,208,59,1: 
6,16,237,165,203,56,233, 128,176 

1032 DATA. 2,198,204,133,20935202,16 ,2 
08,96,181,25,56,229,24,201,751645232, 
133,205, 160,7,165,205,133 

1033 DATA 206, 177,203,74,198,206,208 
‚251,57,112,90,208,12,136,16,237,76, 
136,118,0 ‚0 ‚0 ‚0,0,0 

1040 DATA 104,104,160,7,185,114,6,15 
3,112,90, 136, 16,287, 169,2,18357371,6, 
255 .4169504181,.0,210 181 

1041 DATA 2,210,141,4,210,141,6,210, 
96 

1050 DATA 169,0,168,145,207,164,209, 
169,4,145,207,230,207,208,2,230,208, 
177,207,240,7,169,4,145,207 

1051 DATA 200,230,209,169,5,145,207, 
165,208,201,159,208,14,165,207,201,9 
6,144,8,169,234,133,207,169,155 

1052 DATA 133,208,96 

1060 DATA 173,124,6,208,18,238,124,6 
‚164,24,200,200,200,140,7,208,132,29 
‚169,112,141,125,6,96,234 

1061 DATA 234,234,234,234,234,169,12 
8,133,203,169,91,133,204,172,125,6,1 
62,4,169,0,153,128,89,169,192 

1062 DATA 153,124,89,206,125,6,200,2 
02,208,239, 162,2, 165,29 ‚56,245,25,48 
‚37,201,8,16,16,169,4 

1063 DATA 133,205,172,125,6,177,203, 
208,34,200,198,205,208,247,165,203,5 
6,233,128,176,2,198,204,133,203 

1070 DATA 202,16,215,76,80,120,181,2 
5,56,229,29,201,2,16,230,76,209,119, 
136, 177,203,208,251,142,126 

1071 DATA 6,162,8,200,169,0,234,145, 
203,202,208,247, 16250, 169,1705,131;75 
210,142,6,210,234,234,234 

1072 DATA 202,208,242,234,234,32,60, 
1184206; 130,6,240495.169,0,181,7,210; 
141,6,210,96,104,104,169 

1073 DATA 1,141,131,6,96 

1080 DATA 165,29,56,233,47,74,74,133 
‚205, 173,125,6,56,233,16,74,74,133,2 
06, 169,160, 133,203, 169,155 

1081 DATA 133,204,165,203,24,105,40, 
144,2,230,204,198,206,208,245,24,101 
‚205,144,2,230,204,133,203,160 

1082 DATA 0,177,203,240,45,201,4,208 
115181, 129,6,169, 14 141,.128,6.76,.180 
‚120,201,5,208,3,76 

1083 DATA 139,120,201,3,208519,14 1,3 
29,6,169,0,76,191,.120,173, 12558420 
12,208,3,32,60,118,96 

1090 DATA 173,129,6,240,240,32,60,11 


97 


Abenteuer 


8,76,169,120,145,203,76,180,120,234, 
172,129,6,136,136,136,185, 134 
1091 DATA 6,208,6,169,1,153,134,6,96 


Cave 


(Atari 600XL, 800XL, Joystick) 


Wir schreiben das Jahr 2053. Die 
unterirdische Mondbasis ist in Ge- 
fahr! Fünf Giftfässer lagern in den 
Höhlen und drohen durchzurosten. 
Commander Blake hat die Aufgabe die 
Fässer zu suchen und zu vernichten. 
Jeden Moment kann der Höhlenjet an 
den Mauern zerschellen, denn die 
Steuerung durch die engen Gänge 
gestaltet sich besonders schwierig: 
Der Fall in die Tiefe kann nur mit 


REM CAVE 
REM FUER CHIP-SPECIAL 
REM VON ERIC HAMANN 
REM 
REM 
OPEN #1,4, dort 1:72 #65 Mzspaces)ic 
ODE2M/ 14572 0121872017 187721072017 1 
95/203/ 197/201/212}":POSITION 7,7:? 
#6; 1-yn 

7 GET #1,T:IF T<49 OR T>52 THEN 7 

8 LEV=T-48:GRAPHICS 0:BI=880-(T-48)* 
20 

9 X=1:Y=10:2Z=120 

10 DATA 104,162,0,189,0,224,157,0,14 
4,189,0,225,157,0,145,202,208,241,96 
11 DATA 104,162,0,157,0,82,202,208,2 
50,96 

20 DIM A$(20),B$(30),FU$(10),C$(10): 
FOR A=1 TO 19:READ B:A$(A,A)=CHR$(B) 
:NEXT A:U=USR(ADR(A$)):FE=T-48:FU=FE 
25000 

21 FOR A=1 TO 10:READ B:C$(A,A)=CHR$ 
(B):NEXT A 

22 DATA 104,1335275169,91, 133,207, 16 
9,158,133,208,165,24,56,233,48,32,36 
‚119, 165,27,133,26,165,25 

23 DATA 133,24,169,0,133,27,165,203, 
56,233,153,32,36,119,165,207,166,25, 
24,105,20,144,2,230,208 

24 DATA 202,16,246,24,101,24,144,2,2 
30,208,133,207,164,26,177,207,240,3, 


an Fwm — 


98 


‚169,0,153,134,6,96 
READY |! 


den DBremsraketen aufgehalten wer- 
den. Jetzt wird auch noch der 
Treibstoff knapp, gottseidank ist 
die Tankstelle erreichbarer 
Nähe. 


in 


Ein spannendes Spiel mit vier 
Schwierigkeitsgraden, nur für echte 
Profis am Joystick. 


Eric Hamann 


76,142,117,136,208,246,165 

25 DATA 207,24,105,20,144,2,230,208, 
133,207,198,27,208, 229, 169, 0,133, lt 
96,133,71,132, 26, 96 

« 26 DATA 162,3,74, 144,2,230,27,202,20 
8,248,133,25,165,27,208,4,230.,27 ,208 
‚4,169,2,133,27,96 

27 FOR A=1 TO 99:READ B:POKE 29999+A 
„‚B:NEXT A:FOR A=1 TO 25:READ B:POKE 

30499+A,B:NEXT A 

28 DATA 104,160,7,177,203,153,164,6, 
169,0,145,203, 136, 16,244,160,7,185,1 
64,6,145,205,136,16,248,165,205,133, 
203,96 

29 FOR A=1 TO 30:READ B:B$(A,A)=CHR$ 
(B):NEXT A 

30 DATA 126,253,143,255,227,255,199, 
126 

31 DATA 
126 

32 DATA 
55 

33 DATA 
34 DATA 
35 DATA 
255 

36 DATA 
m 

37 DATA 145,80,8,35,196,16,74,137 

40 ZAN=36864:FOR A=ZAN+24 TO ZAN+87: 
READ B:POKE A,B:NEXT A 


126,129,165, 153,153, 165,129, 
126,129,165,165,129,126,36,2 
60,34,249,249,249,249,34,60 
60,68,159,159,159,159,68,60 
255,153, 193, 255, 255,-153, 153, 


126,255,129,129,255,126,24,2 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


41 DATA 129,90,36,90,66,36,90,153 

42 AN=20480:U=USR(ADR(C$)):RESTORE 4 
1:FOR A=AN+532 TO AN+539:READ B:POKE 
A,B:NEXT A:POKE 53277,3:POKE 54279, 

80 

43 POKE 704,15:POKE 203,20:POKE 204, 

82:POKE 206,82 

44 DATA 24,60,60,60.24,24,24,24,0 

45 FOR A=AN+669 TO AN+676:READ B:POK 

E A,B:NEXT A:POKE 705,56 

90 PV=20:PH=60:GOSUB BI 

100 SC=SC+1:S1=STICK(0):F1=(S1=13 OR 
S1=5 OR S1=9):F1=(F1=0):GOSUB 9000 
102 IF STRIG(O)=0 THEN POKE 704,202: 

IM=1:FU=FU-25:SOUND 3,20,10,15 

104 IF STRIG(O)=1 THEN POKE 704,15:I 

M=0:SOUND 3,0,0,0 

110 PH=PH+((S1<8)-(S1>8 AND S1<12)): 
PVZ=PVZ+0.1:IF F1=0 THEN PVZ=PVZ-0.5 
ı PVZ=PVZ+(PVZ<-2):GOSUB 300 

130 GOSUB 250:IF F1=1 THEN POKE 5324 

9,0:SOUND 0,0,0,0 

140 GOSUB 260 

170 POSITION 11,0:? #65SC:FU=FU-1:FU 

$=STR$(FU):FU$(LEN(FU$)+1)="{5SPACES 
}"sPOSITION 10,11:? #6;5FU$(1,5):IF F 
U<O THEN 708 

200 GOTO 100 

250 PV=PV+PVZ:POKE 203,PV-PVZ:POKE 2 

05,PV:U=USR(ADR(B$)):POKE 53248,PH:P 

OKE 203,PV+137-PVZ:POKE 205,PV+137 
255 U=USR(ADR(B$)):RETURN 

260 POKE 24,PH:U=USR(30000):UB=PEEK ( 

71):IF UB>O THEN 275 

270 RETURN 

275 IF UB=131 THEN IF IM=0 THEN GOSU 
B 745:G0TO 710 

276 IF UB=131 THEN GOTO 100 

280 ON UB-2-128#(UB>131) GOTO 708,50 
0,600,700,700 

300 FU=FU-100:POKE 53249,PH:SOUND 0, 
100,8, 10:RETURN 

400 FOR A=AN+512 TO AN+768:POKE A,0: 
SOUND 0,A,10,10:NEXT A:RUN 

500 PZ=PEEK(207)+PEEK(208)*256+PEEK( 
26):POKE PZ,138:FOR S=1 TO 100:SOUND 
0,5,8,11:NEXT S:SOUND 0,0,0,0:POKE 
PZ,0 

510 GIF=GIF+1:SC=SC+200:RETURN 

600 FOR S=1 TO 100:FU=FU+100:POSITIO 
N 10,11:? #6;FU:SOUND 0,FU,10,10:NEX 

T S:GOSUB 500:RETURN 

700 SC=SC+1000:POSITION 1+16%*(BI=860 
),11-7%(BI=860):? #6;5"{2SPACES}":FOR 
A=1 TO 200:SOUND 0,100,12,10:NEXT A 
:BI=BI+20 

102 IF BI=880 AND GIF=6 THEN GOSUB 7 


Eine Publikation von CHIP 





) 
50:G0T0 710 [DR I 

705 IF GIF=6 THEN GIF=0:G0T0 41 

707 SC=SC-1000 

708 GOSUB 745 

710 POKE 53249,0:FOR A=1 TO 255:SOUN 
D 0,A,8,15:NEXT A:COLOR 35:FOR A=0 T 

O 10:PLOT 0,A:DRAWTO 19,A:NEXT A 

715 POSITION 3,2:? #6;"score:";SC+IN 
T((FU/10)#*(GIF=6 AND BI=880)+LEV#200 
Gap Dos 6 AND BI=880)) N 

SITION 8,5:? #6;"{CODE197/206/ 

' rt T}":POKE 53248,0:SOUND 0,0,0,0 
:SOUND 3,0,0,0 

722 POSITION 0,11:? #6;",noch einmal 
{2SPACES}{CODE202/ 175/206} ? ";:GET 

#1,T:IF T<>74 AND T<>78 THEN Mr 

123 IF T= ic il GRAPHICS 0:R 

1725 GR Ak: ‚"1con2gR, 3) 

{CODE 196 ETRIE® 6} {CODE1I 

11} 3 6 }":? #6:? FR ne 

ECHSTEN MAL":FOR A=1 TO 2000:NEXT A: 
END 

745 FOR A=20855+PEEK (203) TO 20855+P 
EEK(203)+7:POKE A,RND(0)#255:NEXT A: 
RETURN 

750 POSITION 5,11:? #65" bravo {CODE 
161/161} ":FOR A=1 TO 5000 STEP 20:5 

OUND 0,A,10,10:FOR A2=1 TO 10:NEXT A 

2:NEXT A 

760 GOTO 710 

800 GOSUB 890 

802 ? #6;"#{2SPACES}H##score:{5SPACES 
Pikdkikien ; 

804 ? #65 "#{2SPACES}HRHRHRARAR 2 
SPACES}#"; 

806 ? #65 MRLISPACESIELSSPAGESSALOSPA 
CES}#"; 

807 ? #6; n4{3SPACESILCODE 164 }5SPACE 
S}#{5SPACES}H# {coDET65} #4"; 

808 2 Abs  e + dh"; 

809 ? #6;5"#{6SPACES}#{2SPACES}#I2SPA 
CES}#{2SPACES}#{2SPACES}H#"; 

810 ? #6;5"#{6SPACESHFI2SPACES}H#HL2SPA 
CES}#{2SPACES}#{ CODET6N} 4"; 

2 ee 

812 ? #65"#{USPACES}#{TSPACES}#{SSPA 
CES}#"; nel 

813 ? Hajnp{3SPacEs} [coDe T6u)#{4sPac 

ES} LCODE16 }{2SPACES}#{S5SSPACES} #" 
814.2, #6; "#{2SPACES} Hirt eco 

DETEIN {2SPACES} HR: > c Ans 

815 2 #6; EL CODE NET Tr ea /F 

45/289/236}: {5SPACES} 44444" 5; : RETURN 

820 GOSUB 890 

822 ? #6;5"#{2SPACES}##score:{5SPACES 
E22 FI 

823 ? #6;5"#{2SPACES}HrHkäkäkäkiee 2 


SPACES}H#"; 

824 2? #6;5"#{2SPACES}#L15SPACES}H"; 
825 ? #6; "4#{2SPACES}#LI13SPACES}{CO 
165} #"; 

826 ? #6;5"#{2SPACES}#H{2SPACES}## #{2 
SPACES}iHHHF IF dein; 

827 ? #6;5"#{5SPACES}#{2SPACES}#H{2SPA 
CES}#{6SPACES}#"; 

828 ? ee en 
164} #{3SPACES}{CODEI6AF{2SPACES}H#"; 
829 ? #6;"4#{2SPACES}## #{2SPACES} HH 
dritt [2SPACES} HN; 

830 ? #6;"#{2SPACES}#{2SPACES}#{L3SPA 
CES}#{8SPACES}H#"; 

831 ? #6;5"#{2SPACES}#FICODEI64} #{2SP 
ACES}{CODE16U#{2SPACES}LCODE164)155 
PACES}#"; 

832 ? #6; "dt 2SPACES HERE 
SPACES}#"; 

833 ? KecoDE Te con 
45/229/236}:{5SPACES}###4##" 5: RETURN 
840 GOSUB 890 

842 ? #6;5"#{2SPACES}H##score:{5SPACES 
je 2 2 22155 

843 7? #6; "KHL2SPACES}iririr are 2 
SPACES}H#"; 

844 ? #65 ;"#{NSPACES} #{SSPACES}H{TSPA 
CES}#"; 

845 ? #6; „4 CODET6U}{9YSPACES}#L2SPAC 
ES} {CODET6WFF{USPACES} #"; 

846 ? #6;"4#{6SPACES}#{2SPACES}#{2SP 
ACES}##{2SPACES} HH"; 

847 ? #6; ;"#{TSPACES #{2SPACES}#{3SPA 
CES}#{2SPACES} HH"; 

848 ? #65 ;u#{3SPACES}{CODE164}{3SPACE 
S}#{2SPACES}#{3SPACESI#FL3SPACES}E" ; 
849 ? #6;"#{2SPACES}##{3SPACES}H#{2SP 
ACES}##{2SPACES}#{3SPACES}H#"; 

850 ? #6;5"#{2SPACES}H#{USPACES}#{6SPA 
CES}H#{2SPACESHEN; rk 

851 ? #65; ;"#{2SPACES}#{CODE164}{3SPAC 
ES}#{USPACES}CODE164} #{3SPACES}#"; 
852.246; su L2SPACES HH HE ECO 
DET65 } {2SPACES} EA"; 


Problem und den Computer nennen, 
werden soll, 


AHA 


100 


KAKKKAKKKKHKH HH TH HH N HH HH HH HH HH HH HH HH HH A NH HH HH HH UT N A A a a a a a a a a a a a 


Suchen Sie ein ganz bestimmtes Programm für Ihre Problemlösung? 
Wir bereiten laufend neue CHIP-Specials vor. Wenn Sie uns Ihr 


haben Sie die Chance, es in einem der nächsten CHIP- 
Specials zu "Finden. über Ihren Vorschlag freut sich: 


Die Redaktion CHIP-Special 
Armin Schwarz 
Schillerstr. 23a, 8000 München 2 


KKKKKKAKKAKKKÄKHK HH HK HH HH N A HH HT HH KH AH A HH A HH HH FH TH HH HH HH HH TH A HH A A HF HH HK KK KK KK KK 


ie: Dir Est 
853 % #65"#{CODE 167/166} #4 coD8230/2 
45/22 j 6}:{5SPACES} HH" ;: RETURN 


860 GOSUB 890 

862 ? #6;"#{2SPACES}##score:{5SPACES 
HeaeN s 

863 ? #65" #{2SPACESHHHHHHHRHHRRHEG 
ins; 

864 2 #65"#{2SPACESIHLISSPACES} HN; 


865 ? #6; "#{2SPACES}H#HIC 6uF{USPAC 

a 64 }{3SPAC 

ES}i#"; 

866 ? #65" 6r8 ACES}##{ 3SPACES}iHkikik it 

dt CODE 18V TO6 HE" ; 

867 ? #6; S;"4{TSPACES| #{1088 CES}#"; 

2 ? #6 iy# sPacus) (conenäu) (osPhce 
4, [coD 69}{2SPACES} { CODP169}{55SPA 

CES}#"; 


869 ?af6;"H{USPAGES}HL2SPACES}IKÜLCOD 

al 8} {CODE169}{3SPACES}{ CODE169 
zn 

870 ? #65"#{7SPACES}# ER ie 

{CODE169} {2SPACES} { CODE168/ 168} dm; 

871 ? #6;5"#{5SPACES}{CODE164} #{CODE 

1684168/ 168/ 1 1684368) {CODE168/ 16 

8/ 168} 4"; 

872 ? #6;"4# {coDE 165} aaZaZZ EEE 

dan; 

873 ? #65; "#444 CODE230/245/229/236} 
:{5SSPACESHRAHEEN : : RETURN 

890 GRAPHICS 18:POKE 708,56:POKE 709 

‚T4:POKE 756, 144:POKE 710,206:POKE 5 

59,46:POKE 711,138:RETURN 

9000 IF ZZ>50 THEN ZZ=0:G0TO 9020 

9010 ZZ=ZZ+1:RETURN 

9020 X=INT(RND(0)*#18)+1:Y=INT(RND(O) 

#10)+1:LOCATE X,Y,U:IF U<>32 THEN 90 

20 L° 

9030 POSITION X,Y:? #6; "{cöDKi63 hr: R 

ETURN 

9040 RETURN 

10000 END 


READY |! 


auf dem das Programm geschrieben 


KRAKKAAKK cc HH KA A ce ce ce ca a a a a 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


® 
Teletennis 
(Atari 600XL, 800XL) 


Ein gutes Auge, schnelle Reaktion 
und Geschicklichkeit braucht man zu 


REM SUPERTENNIS 
REM FUER CHIP-SPECIAL 

REM VON THOMAS KRETSCHMAR 
REM 
REM 
DL=PEEK (560) +256#*PEEK (561) 
KS1=230:KS0=25:N=1:M=-1 

10 GRAPHICS 0:SETCOLOR 2,0,0:POKE 58 
0,1:POKE 752,2 

11 SETCOLOR 1,0,15 

12: SETCOLOÖR: 0,2,8 

13.:SEICOLOR. 3,11,7 

15 POKE 82,0 

20 POKE DL+9,7 

21 POKE DL+13,6 

22 POKE DL+14,6 

23 POKE DL+23,7 

30 POSITION 5,4:? "{CODE244/229/236/ 
229/244/229/238/238/233/243}" 

39 POSITION 28,1:? "VON" 

40 POSITION 1,8:? " THOMAS KRETSCHMA 
R" 

55 POSITION 35,9:? "{CODE17/18/18/18 
/ 18/18/ 18/ 18/ 18/5 }" 

60 POSITION 35,10:? "{CODE124}{8SPAC 
ES}{CODE124}" 

65 POSITION 35,11:? "{CODE124/153}{6 
SPACES}{CODE25/ 124 }" 

10 POSITION 35,12:? "{CODE124/153}{6 
SPACES}{CODE25/ 124} " 

75 POSITION 35,13:? "{CODE124}{8SPAC 
ES}{CODE124}" 

80 POSITION 35,14:? "{CODE26/18/18/1 
8/ 18/ 18/ 18/ 18/ 18/3 }" 

100 POSITION 20,16:? "PRESS START TO 
BEGIN' 

IF PEEK(53279)=7 THEN 110 

POKE DL+9,2 

POKE DL+13,2 

POKE DL+14,2 

POKE DL+23,2 

GRAPHICS 0:SETCOLOR 2,11,7:POKE 
752,2 

180 POKE DL+3,70 

190 POKE DL+6,7 

200 ? "{CODE211/177}{4SPACES}PHASE{T7 
SPACES}{CODE211/ 178}0{4SPACES}TELETE 
NNIS{3SPACES}O "; 


vounFwmNn— 


Eine Publikation von CHIP 


Geschicklichkeit 


diesem Videospiel. Ein toller Spaß! 
Probieren Sie es aus 


Thomas Kretschmar 


210 
220 
230 


SETCOLOR 1,0,0 
I=PEEK(106)-8 

POKE 54279,1I 

240 PM=1#256 

290 POKE 704,19:POKE 705,146:POKE 55 
9,46:POKE 53277,3 

300 FOR I=9 TO 12 

310 POSITION 3,1:? "{CODE160}" 
320 POSITION 36,1:? "{CODE160}" 
330 NEXT I 

350 Y=11:Y1=11 

360 FOR Q=PM+512 TO PM+768 

370 POKE Q,0 

380 NEXT Q 

390 STO=STICK(0) 


395 ST1=STICK(1) 

400 IF STO=14 AND Y>3 THEN Y=Y-1:POS 
ITION 3,Y+2:? # ®:POSITI08 357-2:7." 
{CODE 160 }" 


410 IF STO=13 AND Y<21 THEN Y=Y+1:PO 
SITION 3,Y+1:? "{CODE160}": POSITION 


3,Y-3:? vn 
420 IF ST1=14 AND Y1>3 THEN Y1=Y1-1: 
POSITION 36,Y1+2:7 "=": POSITION. 36,YX 


1-2:? "{CODE160}" 

430 IF ST1=13 AND Y1<21 THEN Y1=Y1+1 
:POSITION 36,Y1+1:? "{CODE160}":POSI 
TION 36, Y1-3:? " 

440 IF STRIG(0)=0 THEN GOSUB 600 

450 IF STRIG(1)=0 THEN GOSUB 700 

460 IF KS0>25 THEN KSO=KSO+N#(8+P):P 

OKE 53249,KSO0 

465 IF KS0>179-P/3 AND ABS(Y1-YA)<3 
THEN KS0=179-P/3:N=-1:SOUND 0,20,10, 
15:SOUND 0,0,0,0 

470 IF KS0O>200 THEN KS0=25:S1=S1+1:P 

OSITION 20,0:? S15:POKE 53249,25:IF 
S1>20 THEN X=1:G0TO 1000 

480 IF KS1<230 THEN KS1=KS1+M#(8+P): 
POKE 53248,KS1 

485 IF KS1<70+P/4 AND ABS(Y-YA1)<3 T 
HEN KS1=70+P/6:M=1:SOUND 0,20,10,15: 
SOUND 0,0,0,0 

490 IF KS1<50 THEN KS1=230:S2=S2+1:P 

OSITION 38,0:? S2;:POKE 53248,230:IF 
S2>20 THEN X=2:G0TO 1000 

500 IF PEEK(53279)=6 THEN 900 

510 IF PEEK(53279)=7 THEN H=0 


101 


Geschicklichkeit 


520 IF PEEK(53279)=5 AND H=0 THEN H= 
1:P=P+1:IF P>15 THEN P=0 

530 POSITION 12,037 P3r:83 

540 POKE 77,0 

590 GOTO 390 

600 FOR Q=PM+661+YA*4 TO PM+667+4#YA 
610 POKE Q,0 

620 NEXT Q 

630 KS0=60:YA=Y:N=1 

635 RESTORE 

640 FOR Q=1 TO 7 

645 READ R 

650 POKE PM+660+4*Y+Q,R 

660 NEXT Q 

680 SOUND 0,20,10,15:SOUND 0,0,0,0 
690 RETURN 

700 FOR Q=PM+533+4®#YA1 
A1 
710 
720 


TO PM+539+4®Y 


POKE Q,0 
NEXT Q 


130 
135 
740 
745 
750 
760 
780 
800 


KS1=185: YA1=Y1:M=-1 
RESTORE 
FOR Q=1 
READ R 
POKE PM+532+4®Y1+Q,R 

NEXT Q 

SOUND 0,20,10,15:SOUND 0,0,0,0 
RETURN 

900 POKE 53248,0:POKE 53249,0 

910 RUN 

1000 POKE 53248,0:POKE 53249,0:FOR W 
=1 TO 1000:NEXT W:GRAPHICS 18: POSITI 
ON 5,3:? #6;"SPIELER ";X:POSITION 3, 
5:? #6;"{CODE200/ 193/212/160/ 199/ 197 
/215/207/206/206/ 197/206} " 

1010 IF PEEK(53279)=6 THEN RUN 

1020 GOTO 1010 

2000 DATA 60, 126,255,255,255,126,60 


To 7 


READY | 


Das Lamm ist in Gefahr 


(Atari 600XL, 800XL) 


Ein kleines Lamm grast friedlich 
auf der Weide. Doch plötzlich er- 
scheinen erbamungslose hungrige 
Feuerbälle und jagen das niedliche 
Tier. Den einzigen Schutz bieten 
Wassertröge, denn wenn ein Feuer- 
ball gegen einen solchen prallt, 
geht er im wahrsten Sinne des Wor- 
tes baden. Die Taktik des Lammes 
ist einleuchtend: es bringt die 
Feuerbälle dazu, ihm zu folgen, um 
dann schließlich in die Wassertröge 
zu fallen. 


1 REM DAS LAMM IST IN GEFAHR 
2 REM FUER CHIP-SPECIAL 

3 REM VON ANDREAS HETTINGER 
4 REM 


5 REM 
10 REM Das Lamm ist in Gefahr 
20 GRAPHICS 0:POKE 752,1 


OPEN #1,4,0,"K:" 
DIM X(20) 
DIM Y(20) 


102 


Der Spielverlauf 


Es können verschiedene 
keitsgrade gewählt werden. Dadurch 
wird die Position der Tröge 
bestimmt. Die Bewegungen des Lammes 
werden mit den Pfeiltasten 
gesteuert. Fällt ein Feuerball in 
einen Wassertrog, so ist das Spiel 
für ihn zu Ende. Prallt hingegen 
das Lamm gegen einen Trog, so wird 
dieser und damit ein möglicher 
Schutz zerstört. Das Spiel ist 
beendet, wenn das Lamm von einen 
Feuerball eingeholt wird oder wenn 
alle Feuerbälle gescheitert sind. 
Andreas Hettinger 


Schwierig- 


60 DIM U(20) 

70 DIM V(20) 

160 POSITION 8,3 

161 ? "Das Lamm ist in Gefahr," 

170 POSITION 4,6 

171 ? "denn die Feuerbaelle sind auf 
u 

180 POSITION 4,8 

181 ? "Nahrungssuche. - Das Lamm wir 
d mit" 


Chip Computer-Programme Atari 600 XL/800 XL/65 XE 


Geschicklichkeit 





190 POSITION 4,10 
191 ? "Hilfe der Pfeiltasten gesteue 
rt." 
200 POSITION 4,12 
201 ? "Es kann nur entkommen, wenn e 
s ihm" 
202 POSITION 4,14 
203 ? "gelingt, die Feuerbaelle in d 
je" 
204 POSITION 4,16 
205 ? "Wassertroege zu locken." 
210 POSITION 1,19 
211 ? "{3SPACES}Weicher Schwierigkei 
tsgrad -" 
220 POSITION 1,21 
221 ? "{3SPACES}<1> schwer 
eicht ";5:GET #1,S 
236 S=S-48 
240 IF S<1 OR S>3 THEN 220 
250 GRAPHICS 1+16 
260 POSITION 1,11:? #6;"EINEN MOMENT 
BITTE" 
270 GOSUB 950 
280 FOR F=1 TO 20 
ee X=SGNCRND(O)-0.5)*INT(RND(O)*4+5 
+9 
= Y=SGN(RND(0)-0.5)*INT(RND(0)*4+6 
+9 
310 POSITION X,Y:? #6;CHR$(5); 
320 X(F)=X 
330 Y(F)=Y 
340 NEXT F 
360 FOR T=1 TO 20 
370 UCT)=SGN(RND(0)-0.5)*INT(RND(O)* 
4+3-S)+9 
380 V(T)=SGN(RND(O)-0.5)*INT(RND(O)* 
4+3-S)+9 
390 POSITION U(T),V(T):? #6;"{CODE64 
1° 
’ 
400 NEXT T 
420 X=INT(RND(0)#2+10) 
430 Y=INT(RND(0)#2+10) 
440 POSITION X,Y:? #6;CHR$(164) 
450 GOSUB 540 
460 G=0 
470 FOR F=1 TO 20 
480 IF X(F)=0 THEN 510 
490 G=1 
500 GOSUB 680 
510 NEXT F 
520 IF G=0 THEN 830 
530 GOTO 450 
540 GOSUB 1600 
550 Z=X:V=Y 
570 GET #1,A 
580 IF A=0 THEN 570 
590 IF A=43 AND X>1 THEN X=X-1 


... <3> 1 


Eine Publikation von CHIP 





600 
610 
620 
640 
660 
670 
680 
690 
700 
710 
720 
730 


IF A=42 AND X<19 THEN X=X+1 

IF A=61 AND Y<19 THEN Y=Y+1 

IF A=45 AND Y>O THEN Y=Y-1 

POSITION 2,V:? #6; 

POSITION X,Y:? #6;CHR$(164) 

RETURN 

POSITION X(F),Y(F):? #6;" " 

W=0 

W=SGN(X(F)-X) 

X(F)=INT(X(F)-W) 

W=SGN(Y(F)-Y) 

Y(F)=INT(Y(F)-W) 

735 LOCATE X(F),Y(F),FARBE 

740 IF FARBE=64 THEN X(F)=0:GOSUB 17 

00:G0TO 780 

750 IF X(F)=X AND Y(F)=Y THEN 800 

770 POSITION X(F),Y(F):? #6;CHR$(5); 

780 RETURN 

800 POSITION X(F),Y(F):? #6;" " 

810 POSITION 1,18 

811 ? #65" das lamm ist tot" 

820 GOTO 840 

830 POSITION 1,18 

? #6;"noch mal entkommen" 

FOR K=1 TO 500:NEXT K 

GRAPHICS 0:POKE 752,1 

POSITION 10,10 

? "Noch ein Spiel J/N" 

GET #1,A 

IF A=74 THEN RUN 

GRAPHICS 0 

900 ? :? :? "Auf Wiedersehen !" 

END 

ZS=(PEEK( 106) -8) #256 

ZSD=PEEK (756)*256 

FOR I=0 TO 511 

POKE ZS+I,PEEK(ZSD+I) 

NEXT I 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


POKE 


ZS+(ASC("$")-32)%*8+0,0 
ZS+(ASC("$")-32)*8+1,0 
ZS+(ASC("$")-32)%*8+2,122 
ZS+(ASC("$")-32)%8+3,255 
ZS+(ASC("$")-32)*8+4,125 
ZS+(ASC("$")-32)%*8+5,120 
ZS+(ASC("$")-32)%*8+6,72 
ZS+(ASC("$")-32)%8+7,72 
ZS+(ASC("%")-32)%8+0,60 
ZS+(ASC("%")-32)%8+1,126 
ZS+(ASC("%")-32)%8+2,219 
ZS+(ASC("%")-32)%8+3,255 
ZS+(ASC("%n)-32)*8+4,231 
ZS+(ASC("%")-32)*#8+5,255 
ZS+(ASC("%")-32)%*8+6,126 
ZS+(ASC("%")-32)*%8+7,60 
ZS+(ASC("{CODE64}")-32)#8+ 


POKE ZS+(ASC("{CODE64}")-32)*8+ 


103 


Geschicklichkeit 





1,0 

1220 POKE 
2,130 
1230 POKE 
3,178 
1240 POKE 
4,130 
1250 POKE 
5,170 
1260 POKE 
6,130 
1270 POKE ZS+(ASC("{CODE64}")-32)%*8+ 
7,254 

1275 GRAPHICS 1+16 

1280 POKE 756,2S/256 

1290 POKE 752,1 

1300 SETCOLOR 0,8,4 


ZS+(ASC("{CODE64}")-32)*8+ 
ZS+(ASC("{CODE64}")-32)#8+ 
ZS+(ASC("{CODE64}")-32)#*8+ 
ZS+(ASC("{CODE64}")-32)%*8+ 


ZS+(ASC("{CODE64}")-32)%*8+ 


Breakout 


(Atari 600XL, 800XL, Joystick) 


Nur drei Bälle hat man zur Verfü- 
gung, um die hohe Ziegelmauer Stein 
für Stein abzutragen, daher sollte 


REM BREAKOUT 

REM FUR CHIP-SPECIAL 
REM VON ERIC HAMANN 
REM 
REM 
10 GRAPHICS 5+16:B=37:C=39:D=15:E=0:;: 
F=1 

15 COLOR 1:PLOT 0,0:DRAWTO 79,0:DRAW 

TO 79,47:DRAWTO 0,47:DRAWTO 0,0:PLOT 
B,45:DRAWTO B+5,45 

20 COLOR 2:FOR A=3 TO 73 STEP 5:PLOT 
A,3:DRAWTO A+3,3:NEXT A 

25 COLOR 3:FOR A=3 TO 73 STEP 5:PLOT 
A,5:DRAWTO A+3,5:NEXT A 

30 COLOR 3:FOR A=3 TO 73 STEP 5:PLOT 
A,11:DRAWTO A+3,11:NEXT A 

35 COLOR 2:FOR A=3 TO 73 STEP 5:PLOT 
A,13:DRAWTO A+3,13:NEXT A 

40 ST=STICK(0) 

41 TRAP 2000 

45 IF ST<8 THEN 500 

50 IF ST>8 AND ST<12 THEN 520 

60 C=C+E:D=D+F:LOCATE C,D,L:IF L>0 T 

HEN 200 


NFwm—_ 


104 


1310 
1320 
1340 
1500 
1600 
1610 
1620 
1630 
1640 
1700 
1710 
1720 
1730 
1740 


SETCOLOR 1,2 
SETCOLOR 2,0 
SETCOLOR 4,1 
RETURN 

SOUND 0,52,10,6 

FOR D=1 TO 50 

NEXT D 

SOUND 0,0,0,0 

RETURN 

SOUND 0,5,8,15 

FOR Q=9 TO 0 STEP -1 
NEXT Q 

SOUND 0,0,0,0 

RETURN 


‚u 
‚2 
1,8 


READY ! 


man möglichst keinen fallen lassen. 
Erwischt man bei Werfen einen gün- 
stigen Winkel, so kommt man schnel- 
ler ans Ziel. 

Eric Hamann 


65 COLOR 1:PLOT C,D:FOR W=1 TO Z:NEX 
T W:COLOR 0:PLOT C,D 

100 GOTO 40 

200 IF L>1 THEN 800 

202 FOR S=1 TO 250 STEP 10:SOUND 0,5 
‚12,10:NEXT S:SOUND 0,0,0,0 

205 IF C=79 OR C=0 THEN C=C-E:E=E#-1 


:GOTO 65 

210 IF D=45 THEN 700 

215 IF D<1 THEN D=D+1:F=F#-1:G0TO 65 
220 IF D>44 THEN FOR V=0 TO 1:COLOR 
V:PLOT B,45:DRAWTO B+5,45:B=39 :NEXT 
V:C=39:D=20:E=0:F=1:H=H+1:IF H=3 THE 
N 900 

225 GOTO 65 


500 B=B+1:IF B>73 THEN B=73 

510 COLOR 0:PLOT B-1,45:COLOR 1:PLOT 
B+5,45:G0OTO 50 

520 B=B-1:IF B<1 THEN B=1 

530 COLOR 0:PLOT B+6,45:COLOR 1:PLOT 
B,45:GOTO 60 

1700 D=D-1 

702 IF C=B OR C=B+1 THEN E=-1:F=-1:G 

OTO 65 


Chip Computer-Programme Atari 600 XL/800 XU/65 XE 


105 IF C=B+2 OR C=B+3 THEN E=0:F=-1: 

GOTO 65 

710 IF C=B+4 OR C=B+5 THEN E=1:F=-1: 

GOTO 65 

715 H=H+1:IF H=4 THEN RUN 

800 Q=Q+1:IF Q=30 THEN Z=2-5 

801 IF Q=60 THEN H=H-1:Q=0:2=2-5:PU= 

PU+1000:G0TO 1000 

802 IF L=2 THEN PU=PU+100 

805 IF L=3 THEN PU=PU+200 

810 COLOR 0:M=C:N=D:FOR J=M TO M+5:L 

OCATE J,N,O:IF O=0 THEN X=J-1:G0T0 8 
30 

820 NEXT J 

830 FOR R=N-1 TO N+1:PLOT X,R:DRAWTO 
X-3,R:NEXT R 

840 FOR T=1 TO 250 STEP 25:SOUND 0,T 
‚10,15:NEXT T 

850 SOUND 0,0,0,0:F=F*-1:G0TO 65 

GRAPHICS 2+16 

POSITION 2,0:? #6;"breakou 


POSITION 5,4:? #6;"DU HAST" 


WEIWISPECIAL 


1. Auflage 1985 
Best.-Nr. 006/0 


Geschicklichkeit 


915 POSITION 5,6:? #6;PU;" {CODE208/ 
213/206/203/212/197}" 

920 POSITION 5,8:? #6;"ERREICHT" 

925 POSITION 1,11:? #6;"{CODE238/239 
/227/232/160/229/233/238/237/225/236 
/160/234/ 175/238/ 160}?" 

930 OPEN #1,4,0,"K:":GET #1,T 

935 IF T=ASC("J") THEN RUN 

940 IF T=ASC("N") THEN GRAPHICS 0+16 
:END 

950 GOTO 930 

1000 FOR I=1 TO 5:FOR K=1 TO 50:SOUN 
D 0,K,10,7:SOUND 1,K+50,10,7:SOUND 2 
‚K+100,10,7:SOUND 3,K+200,10,7:NEXT 
K 

1010 NEXT I:FOR V=0 TO 3:SOUND V,0,0 
‚O:NEXT V:FOR V=1 TO 250:SOUND O,RND 
(0)#25,10,5:NEXT V:SOUND 0,0,0,0:GOT 
0 10 

1500 TRAP 1500: E=E#-1:F=F#- 1 

2000 C=C-E#2:D=D-F#2:G0T0 65 


READY ! 


Redaktionsdirektor: Richard Kerler 


Chefredakteur: Armin Schwarz 
(verantwortlich für den Inhalt) 





Gestaltung: Hans Kuh, Gabi Klotz 
Titelillustration: Ernst Jünger 
Redaktionsservice: Paula Rath 


Test und Programmservice: Franz Joseph 


Schreiner 





Mitarbeiter dieser Ausgabe: Reinhard 
Meßthaler, Ulrich Kern 


Redaktion: Vogel-Verlag KG Würzburg, 
Redaktion CHIP-Special, Schillerstr. 23a, 
D-8000 München 2, Telefon (089) 514930, 
Telekopierer 535000, Telex 5216449 





Verlag: Vogel-Verlag KG, Postfach 6740, 


D-8700 Würzburg 1, Tel. (0931) 4102-1, 
Telex 68883, Telefax (0931) 4102-529. 
Telegramme: CHIP-Würzburg 





Verlagsdirektor: Dipl.-Kfm. Herbert Frese 





Anzeigenleiter: Harald Kempf, Würzburg 
(verantwortlich für Anzeigen) 


Anzeigenservice: CHIP, Postfach 6740, 


8700 Würzburg 1, Tel. (0931) 4102-1, 
Telex 68883, Michael Belgrad, Durchwahl 
4102-433. 


Eine Publikation von CHIP 





PLZ 1-5 und Ausland: Christine Himmer und 
Wolfgang Hartmann, Durchwahl 4102-227 


" PLZ 6-8: Angelika Hirsch und Axel Winheim, 


Durchwahl 4102-513 
Vertriebsleitung: Axel Herbschleb, Würzburg 








Vertrieb Handelsauflage: Vereinigte Motor- 
Verlage GmbH & Co. KG, Leuschnerstr. 1, 
D-7000 Stuttgart 1, Tel. (0711) 2043-1 


Bezugsmöglichkeiten: Bestellungen nehmen 


der Verlag und alle Buchhandlungen im In- und 
Ausland entgegen. Sollte die Zeitschrift aus 
Gründen, die nicht vom Verlag zu vertreten 
sind, nicht geliefert werden können, besteht 
kein Anspruch auf Nachlieferung oder Erstat- 
tung vorausbezahlter Bezugsgelder. 





Bankverbindungen Vogel-Verlag: 
Dresdner Bank AG, Würzburg 
(BLZ 79080052) 3148890000, 
Bay. Vereinsbank AG, Würzburg 
(BLZ 79020076) 25061 73, 
Kreissparkasse Würzburg 

(BLZ 79050130) 17400, 
Postscheckkonto Nürnberg 

(BLZ 76010085) 9991-853 
Ausland: Postscheckkonto Zürich 
8047064, 

Niederlande 2662395 

Banque Veuve Morin-Pons, Paris 
155410314 


Gesamtherstellung und Versand: VOGEL- 
DRUCK WÜRZBURG, Max-Planck-Str. 7/9, 
D-8700 Würzburg 


Unverlangte Manuskripte werden nur zuge- 
sandt, wenn Rückporto beigefügt ist. 

Für die mit Namen oder Signatur des Verfassers 
gekennzeichneten Beiträge übernimmt die Re- 
daktion lediglich die presserechtliche Verant- 
wortung. 

Die in dieser Zeitschrift veröffentlichten Beiträ- 
ge sind urheberrechtlich geschützt. Überset- 
zung, Nachdruck, Vervielfältigung sowie Spei- 
cherung in Datenverarbeitungsanlagen nur mit 
ausdrücklicher Genehmigung des Verlages. Je- 
de im Bereich eines gewerblichen Unterneh- 
mens hergestellte oder benutzte Kopie dient 
gewerblichen Zwecken gem. $ 54 (2) UrhG und 
verpflichtet zur Gebührenzahlung an die VG 
Wort, Abteilung Wissenschaft, Goethestraße 49, 
8000 München 2, von der die Zahlungs- 
modalitäten zu erfragen sind. 

Die Redaktion hat die Manuskripte und Pro- 
gramme sorgfältig geprüft. Für Fehler im Text, in 
Schaltbildern, Aufbauskizzen, Listings usw. so- 
wie deren Folgen kann keine Haftung übernom- 
men werden. Sämtliche Veröffentlichungen er- 
folgen ohne Berücksichtigung eines eventuel- 
len Patentschutzes, auch werden Warennamen 
ohne Gewährleistung einer freien Verwendung 
benutzt. 


105 


Im Sternzeichen der Karriere 


1 


Üi 
RS, 
z 


VOGEL-VERLAG 





Das Buch zum Programm 

„Unterhaltung kann es auf jeden Fall sein, k 
sich selbst einmal, Mitarbeiter oder 

Vorgesetzte im typischen Tierkreiszeichen 

unter Manager-Gesichtspunkten 

beschrieben zu sehen. Vielleicht ist es 

gelegentlich auch ganz hilfreich.“ 


x 


Anforderungskarten 
für Buch und Atari-Programm am Heftende 


Bestellkarte für alle 
CHIP-SONDERHEFTE 


® Ja, senden Sie mir bitte die angekreuzten SONDERHEFTE zu den genannten Preisen 
zuzüglich Versandkostenanteil DM 3,50 im Inland. (Versandkostenanteil für das Ausland DM 6,-). 


Ich bezahle erst, wenn ich Ihre Rechnung erhalten habe. 


An- Titel - Titel Best.- DM 
zahl Nr zahl N ) 


= >ST, 
| [Schneider CPC 464 VC 20 Programme 2 


| Computer-Katalog 1985 — TI-99/4A Programme 


' VC 20 Programme 1 
) 
= 





















































Bitte senden Sie mir nur das 
Astrologie-Programm 

auf Kassette 

auf Diskette 

für 39,— DM 





OO 


PLZ/Ort 





Datum/Unterschrift 


ms 
au 
11 
— Com —- — 
| 910 | Computerhob ür C 64 
| | 919 | — Epson => 
Bestellen Sie | - u —— + Nutzen © 64 
die Ihnen noch | Fee 
fehlenden CHIP- | [Test als Home-Roborer | 3 
SONDERHEFTE | | Errogemeun ann, 
Mitderneben: = 2-22... Sessımee 
stehenden Karte | ee . j 
geht's ganz | 2 Wünsche an die Redaktion 
leicht. Einfach |. 
ausfüllen und | 
ab die Post! | 
| 
| 
| 
| _] Bitte senden Sie mir mit Rechnung das Buch von Agnes Reimer 
„Der Manager und sein Tierkreiszeichen“ 
| für 27,- DM zuzüglich Versandkostenanteil 
| 
| 
| 
| 
| 
| 
| 
| 
i 
| ETTTTETETTE R 
Bestellen Sie | Bestellkarte für CHIP-SHOP 
noch heute Sh P 
die Programme o 
re | arp-Frogramme s 
Atari 600 XL/ 
| 
SOOXLIEEXE | Jetzt alle x 
IL Atari-Programme s program 
| Bitte senden Sie mir alle Programme Atarl- träger! 
| ohne Rentenberechnung und : Daten 
| Lohnbuchhaltung auf Kassette © au 
| rn : 
| Bitte senden Sie mir alle Programme 
| inkl. Rentenberechnung und Name, Vorname 
| Lohnbuchhaltung auf Kassette O 
|  aufDiskette O 
| für 145,- DM. Straße, Postfach 
| 
| 
| 
| 
| 
| 
| 


j 








Name, Vorname 





Straße/Postfach 





PLZ/Ort 





Name, Vorname 





Straße, Postfach 





PLZ/Ort 


Ich könnte Ihnen für folgende(n) Computer 


folgende selbstentworfene Programme 


anbieten: 





Name, Vorname 





Straße, Postfach 





PLZ/Ort 


mit 60 Pfennig 


freimachen 


Antwort 


CHIP-SONDERHEFTE 
Leser-Service 735 
Postfach 6740 


D-8700 Würzburg 1 


Bitte 
mit 60 Pfennig 


freimachen 


Antwort 


CHIP-SONDERHEFTE 
Redaktions-Service 
Vogel-Verlag 
Schillerstraße 23a 


D-8000 München 2 


mit 60 Pfennig 


freimachen 


Antwort 
CHIP-SHOP 
Leser-Service 735 
Vogel-Verlag 
Postfach 6740 


D-8700 Würzburg 1 











ee re er ee Fe a en ME a a a 


UHir SONDERHEFTE 


In dieser Ausgabe 


Mini-CAD 
Fußball 
Astrologie 
Geometrie 
Mathematik 


Hochrechnung 
Abrechnung 
Finanzen 

Ordnen, archivieren 


Altersversorgung 
Tips und Tricks 
Wettkampf 
Glücksspiel 
Science-fidion 


Abenteuer 
Geschicklichkeit 


3D-Grafik 
Bundesliga-Tabelle 

Im Sternzeichen der Karriere 
Bestimmtes Integral 
Primfaktoren 

Lineare Gleichungssysteme 
Aprox 

Cash 

Lohnbuchhaltung 
Videomaster 
Disk-Verwalter 
Rentenberechnung 
Simple Editor 

Kreis 

Page-6-Utility 
Pferderennen 
Memorix 

Slot-Machine 
Defending World 3000 
Insects 

Cave 

Teletennis 

Das Lamm ist in Gefahr 
Breakout