Genie-data_1984-heft

Transcript

Assembler Teil 4 Mad Driver Solitair • Texedit Für den Anfänger Vokabeltrainer MENSCH ärgere Dich NEUHEITEN mit LADEGARANTIE für Colour Genie Das Colour Genie Buch Das COLOUR GENIE BUCH aus unserem Verlag bringt unter anderem: Neue und alte ROM's im Ver­ gleich, alle Z80 Maschinenbefehle in übersichtlicher Form, Joysticks-selbst gebaut, was braucht man an Software, wie arbeitet man m it dem Bildschirmsteuerungs-IC, wie programmiert man den PSG (Programmier. Sound Generator), wie baut man Maschinenprogramme in Basicprogramme ein, alles m it vielen Beispielprogrammen, viel Software zum abtippen, und, und, und ... Das COLOUR GENIE BUCH von uns müssen Sie haben! Es bringt Ihnen viele Informationen, die Sie nötig brauchen. Für Anfänger und Profis! Subskriptionspreis bis zum 15.Juni 1984: Nur 3 9,- D M !!! Ab 16. Juni 1984 49,-- DM. Also bestellen Sie so fo rt!! I Lieferbar ab 15.6.1984. Screen-Editor Ärgern Sie sich immer noch m it dem Edit-Befeht rum? Das muß aber nicht mehr sein! ! ! Der beste Bildschirmeditor, den w ir kennen, kostet bei uns nur 29,-- DM auf Cassette und nur 36,-- DM auf Diskette! DAMIT HABEN DIE QUALEN EIN E N D E !!! Spooler Für Genie I, II usw. Warten Sie nie mehr auf Ihren Drucker! Unser Spooler ist geeignet für alte Speichergrößen, er hat einen beliebig einstellbaren Puffer, er arbeitet m it alten bekannten Betriebssystemen, auf Diskette und Cassette! Preis Disk nur 4 9 ,- DM! Preis Cassette nur 3 9 ,- DM! Bei Diskette unbedingt verwendetes Betriebssystem angeben! Ramschkiste: « « H Hier wollen w ir Ihnen ein paar Programme anbieten, die nicht mehr unserem Qualitätsstandard ent­ sprechen, und die w ir deshalb ausverkaufen. Für diese Programme gilt unsere Ladegarantie nicht! Alle Programm liefern wir nur auf Cassette und nur solange der Vorrat reicht! Jedes Programm zum Preis von DM 9 ,9 0 !!! Bestellen Sie sofort, der Ramschkistenpreis gilt für: Paciab I, Paclab II, Dame, Reversi, Vier gewinnt und O thello! Ausserdem immer noch: SUPER-ASSEM, ASTRAY, VORTEX, PAC-BOY, COLDAT und alle unsere anderen Superprogramme, fordern Sie unbedingt unsere kostenlose Liste an! Bestellen Sie noch heute b e i : Ralf M. HÜbben, Verlag für Computertechnik, Mühlbachstraße 2 5 4 2 9 Marienfels/Ts ' Haben Sie ein gutes Programm für das Colour Genie? Egal ob Basic, Maschinensprache oder com piliert! Wenden Sie sich an unsl Wir bieten Ihnen für ein gutes Programm ötn gutes Honorar! Oder kennen ®’e v'eHe‘cht einen Grund, warum Sie sich nicht m it Ihrem Hobby ein paar Mark nebenher verdienen sollen? Selbstverständlich sind w ir auch daran interessiert, gute Hardware für das Coiour Genie m it Copyrights zu kaufen I Schreiben Sie uns oder rufen Sie a n : Telefon 06772-7828. GENIE DATA Neues auf dem Markt Seite 4 TEXEDIT Seite 7 Hier bieten wir Ihnen ein ganz fan­ tastisches Textverarbeitungsprogramm für Genie 1,11, TRS 80 M I und M3. Dieses Programm ist so gut, daß man es durchaus für geschäftliche Verwendungs­ zwecke benutzen kann. Da bleiben keine Wünsche offen! Für den Anfänger Wieder unsere beliebte Rubrik, in der w ir Ihre Fragen klaren Sound total Hier ist die Seibstbauanleitung, für alle, denen der Ton aus dem Fernseher zu mickrig ist Seite 8 Ein Superspiel für das Colour Genie in Maschinensprache. Abtippen und losfahren ist hier die Devise! Seite 34 WER - WAS - WO Unser Einkaufsführer zeigt Ihnen die Fachgeschäfte für ihre Computer­ wünsche Mad Driver 3 Seite 35 Seite 12 Vokabeitrainer Invers Besi t?er eines Com modorehaben es ja schön! Sie können ganz einfach Schriftiäü'efe.invert darsteilen, : Sie möglich. Seite 17 Bes itze r ; y ^r|e Rau mbasis Seite 20 Sind Sie Schüler oder Student? . Oder möchten Sie die Kenntnisse einer Fremdsprache verbessern? Hier h ilft der Vokabeltrainer . Ihnen weiter. -v.v ■ Seite 50 i’r i - ' ^ rte n •. Assembler — Teil 4 Und weiter geht es m it unserem Assemblerkursus für alle Computer Freunde. Machen Sie fleißig mit, dann sind Sie auch bald ein Profi S ||n |e i0 f^ s te n iÖ s ! Für Abonnenten t;.In:- in e r Klein:' y Seite 57 : Seite 26 Solitair Hier bringen w ir das beliebte Denkspie! für alle Colour Genie Besitzer. •Übrigens werden Sie sich warscheinlich über die fantastische Grafik wundern! Mensch ärgere Dich nicht! Seite 28 Das beliebte Brettspiel jetzt auch auf Ihrem Computer. Und das tolle ist, daß der Computer alle Mitspieler simulieren kann! Seite 59 4 GENtE DATA Computer 4 2 0 0 Nohlstr.29 - 4200 OBERHAUSEN 1 - Tel.0208/853997 ► CENTRONICS-INTERFACE für Typenrad-Schreibmaschinen ► Test-Programm, findet selbst hartnäckigste RAM-Fehler ► ED I Bildschirm-orientierter Editor 400,-(m it Einbau) RAM Cass. 5 9 ,- ► ► ► ► ► ► Cass. 4 9 ,- T F I X 2.4 Erweiterte Tastatur-Routine inet. E D I , standard- und selbstdefinierte Abkürzungen EPROM 125,-S E D A S 3.2 Komfortabler Screen-Editor + Assembler Cass./Disk. 115,-/145,-S C R E D l 2.7 Screen-Editor zur Textverarbeitung Cass./Disk. 95,-/115,-R E A S S 3.2 Reassembler, erzeugt Assembler-Guellfiles für SEDAS Cass./Disk. 8 5 ,-/1 0 5 ,M A D 2.3 Komfortabler M onitor m it Line-Assembler, Disassembler, Cassetten-Routinen, Trace, etc. Cass./Disk. 1 3 9 ,-/1 5 9 TRANSC für Colour Genie schreibt und liest G I, G 11 und TRS 80-Cass, Cass. 3 9 ,T R A N S V für G l und II schreibt Cassetten für Colour Genie Cass, 3 9 ,INTERFACE FÜR GENIE III zum Laden von Cassetten (TRS 80, Genie I u. II) 200,-u m f a n g r e i c h e S o f t w a r e l i s t e ! . C o l o u r G e n i e a u f A n f r a g e g e g e n R ü c k p o r t o D M 3 , SO G E N IE 16 Der erste 16 Bit Rechner von TCS setzt neue Maßstäbe. Das aus europäischer Fertigung stammende Genie 16 darf als kleine Sensation aufgefasst werden. Die­ ser Rechner ist m it einem echten 16 Bit 8086 Prozessor ausgestattet und ist trotzdem voll IBM PC kompatibel. Seine Grundkapazität beträgt bereits 128 K und ist bis auf ca. 780 K ausbau­ fähig. Es verfügt aufgrund des RGB A n ­ schlusses und der 16 Farben m it zwei Helligkeitsstufen über eine exzellente Farbwiedergabe. Der ROM Bereich um­ faßt 64 K. In votier Ausbaustufe sind zwei Disk Drives m it insgesamt 720 K eingebaut. Betriebssystem ist MS DOS. Das Genie 16 verfügt selbstverständ­ lich über eine Vielzahl von Schnitt­ stellen, — V ideo: RGB, BAS und HF — 8 Bit Centronics Parallel Drucker­ schnittstelle — RS 232 Serielle Schnittstelle — Cassettenport : — Lightpen : —Joystick — 4 IBM PC kompatible Slots —2 echte 16 Bit Slots Bedingt durch seine modulare Aufbau­ weise — Grundeinheit m it Tastatur (inc!. 128 K RAM, 64 K ROM und Cassettenschnittstelle) — zweite Einheit mit 2 Disk Dnves incl. Controller IBM Slots und 16 Bit Slots kann der Einstieg zu einem 16 Bit Rech­ ner schon auf einem sehr günstigen Preisniveau beginnen. Die Grundeinheit ist schon für ca. 2000,-- DM zu haben. Das komplette System bestehend aus beiden Einheiten und einem umfangrei­ chen Softwarepaket (Word Star, Catc Star und Datenbanksystem) wird zu ei­ nem Gesamtpreis von unter 6000,-- DM inclusive Mehrwertsteuer ?u haben sein — eine Sensation. Alleinvertrieb in Deutschland: TCS Computer GmbH Kölnstr. 2 - 4 — 5205 St. Augustin 2 Tel.: 02241 / 2 80 71 R A D I X - 10 Schneller Matrixdrucker m it „Near Let­ ter Q u ality'’. Neue Matrixdrucker gibt es am lau­ fenden Band. Die Entwicklung geht je­ doch hauptsächlich in Richtung Druck­ geschwindigkeit, wobei das Schriftbild nie m it Typenraddruckern w irklich konkur ieren konnte. Der Firma STAR ist es nun m it dem neuen RAD1X-10 gelungen, eine echte Kombination zwischen Matrix- und T y ­ penraddrucker zu erzielen. M it der den neuen Matrixdruckern eigenen hohen Geschwindigkeit einerseits und einem Schriftbild (Near Letter Quality NLQ) das fast von einem Typenraddrucker stammen könnte, andererseits, ist der RADIX einer der wenigen echten Neu­ heiten auf dem Druckermarkt. Auch seine übrigen Spezifikationen lassen keine Wünsche o ffe n : — 200 Zeichen: pro Sekunde (im b id i­ rektionalen Matrixbetrieb) . — - 16 K Pufferspeicher — 9 x 9 Standardschrift — 18 x 18 Near Letter Quality (NLQ) — Friktion und Traktor Papiertransport — automatische Einzelblattzuführung —6 verschiedene Schriftbreiten — eine grafische Auflösung von max. 240 x 144 Punkten (!) — Centronics Parallel und RS 232 C Schnittstellen serienmäßig (umschaltbar) um nur einiges zu nennen. Der R ADIX, als echte Alternative zur herkömmlichen Kombination von Typenrad und Matrixdrucker zeigt auf sehr eindrucksvolle Weise, daß sowohl ein exzellentes Schriftbild als auch eine hohe Geschwindigkeit in einem Gerät vereint werden kann. Der Preis wird DM 2500,- nicht über­ schreiten. Alleinvertrieb in Deutschland: TCS Computer GmbH Kölnstraße 2 - 4 - 5205 St. Augustin 2 Tel.: 02241 /2 8 0 7 1 NEUHEITEN - MAI 1984 ********************-****** . . . Tri Bat e i n P r o g r a m m f ü r d a s C o l o u r G e n i e m i t 1 6K So etwas h aben Sie auf de m C o l o u r - G e n i e noch nicht g e ­ spielt! Ein Scramble-Spiel mit u n g ewöhnlicher Grafik ! U n d w e n n w i r s a g e n , d a ß d i e s e G r a f i k u n e r r e i c h t g u t ist, d a n n m e i n e n w i r d a s a u c h so. S i e d ü s e n m i t g r o ß e r G e ­ schwindigkeit über ein bergiges Gelände und müssen mit Laserstrahlen und Bomben angreifende Raketen sowie B e n z i n ­ tanks vernichten. Mit der Zeit schwirren zudem noch a l l e r l e i G e b i l d e u n d M e t e o r e .im L u f t r a u m h e r u m , d e n e n e s a u s z u w e i c h e n gilt. ' 39 - DM Super Basic e j_n P r o g r a m m f ü r d a s C o l o u r G e n i e 1 6 / 3 2 K E i n e B a s i c - E r w e i t e r u n g , d i e (fast) k e i n e W ü n s c h e m e h r offenläßt. Mit GOTO oder GOSUB können Sie Labels a n s p r i n ­ gen, z.B. -10 LABEL "START" . 80 Programm IF ... T H E N GOTO"START'" 150 E N D ' W e n n Sie ein P r o g r a m m mit (Break) od e r STOP unterb r e c h e n , o d e r f a l l s es a u f g r u n d e i n e s F e h l e r s s e l b s t i r g e n d w o a b ­ b r i c h t , d a n n k ö n n e n S i e s i c h m i t ? V A R a l l e b i s h e r im P r o ­ gramm benutzten Variablen und deren aktuelle Inhalte aus­ geben lassen! Mit der FIND-Funktion können Sie beiebige Texte, Befehle, W o r t e o d e r V a r i a b l e n im P r o g r a m m s u c h e n lassen, I N S T R suc h t e i n e T e x t v a r i a b l e n a c h e i n e r b e s t . Z e i c h e n f o l g e ab, m i t DEF FN lassen sich Funktionen definieren; ein kleiner M a s c h i n e n s p r a c h e m o n i t o r i st d i r e k t im B a s i c v e r f ü g b a r : H E X / A C S I I - D u m p , EDIT-Memory, sowie Abspeichern eines M a s c h i n e n p r o g r a m m s als " S Y S T E M " - P r o g r a m m auf K a s s e t t e sind damit möglich. : . . / V i e l e w e i t e r e B e f e h l e s i n d v o r h a n d e n ( i n s g e s . ü b e r 2 0 S t . ): Peek & Poke jetzt mit Doppelbyte, SINKEY arbeitet wie I N K E Y , w a r t e t aber, b i s e i n e T a s t e g e d r ü c k t w u r d e , ? H E X um, u .v .a . m . ; ■ ". : D a s t o l l s t e i s t j e d o c h , d a ß d i e s e s P r o g r a m m n u r c a '1 , 6 K ;;S e g t , Ihnen also noch genug Platz b l e i b t , 'tun; d 'i;e y £ n y e i g e n e n |i/P *^ 39,-- DM COLOUR - GENIE SOFTWARE ; 'V ä..=^ ^ ..... Büro- und Personalcomp uter SandkauIslraße.84 NEU A KT U E L L PREISWERT Telefon: 0 2 4 1 - 2 32 17 5100 A A C H E N Wir senden Ihnen gerne unseren Softwarekatalog m it über 100 Programmen! (Natürlich kostenlos!) ^ s s a ^ M fs MUSIK + COMPUTER Kreative Freizeit - problemloser Selbstbau - faszinierende Möglichkeiten 0Cilt4UWCKl R £J0C *Ä DA KH »' Durch die Kombination von Computer und Musikinstrument — wie nur Wersi als "Made in Germany" bietet - er­ öffnen sich dem Computer-Anwender bislang ungeahnte, faszinierende Soft­ ware-Bereiche. Der Musikfreund gewinnt neue Dimensionen in Gestaltungsviel­ falt, Klangschöpfung, Komposition und Interpretation. Das Wersi-DMS-System "macht's mög­ lich". Durch Volldigital-Technik wird die Verbindung m it dem Computer möglich. Start frei für die Anwendungen der Zukunft, Das W E R S I-K E Y B O A R D — der Schlüssel zu Ihrem Computer Sie besitzen einen Homecomputer oder ein anderes Klein­ Rechnersystem ? Und schon lange haben Sie sich damit beschäftigt, nunmehr auch Musik m it Ihrem Computer zu machen ? Bislang stand Ihnen aber nur die normale Tastatur des Rechners zur Verfügung ? Dann haben w ir jetzt die richtige Idee für Sie: M it dem Wersi-Keyboard, damit das Musizieren auch so richtig Spaß m a ch t! Wir als Orgelhersteller wurden schon o ft nach einer ent­ sprechenden Tastatur befragt. M it dem Wersi-ComputerKeyboard bieten w ir Ihnen nun in einem soliden, fo rm ­ schön gestalteten Gehäuse ein 5-Oktaven-Manual m it 61 Tasten - von C bis C — m it computergerechter 8 x 8 Matrixabfrage an. : W « r» -K £ Y b U A ftD m ricua© frg&R&ina »öden Kleincomputer Viii>iimiiiiriij ) e in g e g e b e n u n d dann i n e in e m K o o r d i n a t e n r a s t e r a n g e z e i g t , a u * dem s i c h a u c h e i n z e l n e W e r t e r e c h t g e n a u a b l e s e n l a s s e n * 01 H e la s s e n Si e s i c h d u r c h den enorm g ü n s t i g e n P r e i s n i c h t tfber d f> L e i s t u n g s f a h i g k e i t des Programms täu sch e n * f pRe i swe r t Telefonr 0241 —2 32 17 5100 AACHEN Wir senden Ihnen gerne unseren Softwarekatalog m it über 100 Programmen! (Natürlich kostenlos!} COLOUR PASCAL • 32 K Ei n k o m p l e t t e s Progrurms/steni, um schnei) un d e i n f a c h die P r o ­ g r a m m i e r s p r a c h e P A S C A L zu e r l e r n e n ; b e s t e h e n d a u s B i l d s c h i r m ­ e d i t o r <]>, C o m p i l e r , S t e u e r p r o g r a m u . Sie k ö n n e n d i e m i t d e m Br 1d s c h i r m e d i tor e r s t e l l t e n P r o g r a m m e d i r e k t c c m p i 1 i e r e n , ü b e r p r ü f e n , w i e d e r e d i t i e r e n , etc. E i n e a u s f ü h r l i c h e A n l e i t u n g m i t H i n w e i s e n z u r S t r u k t u r i tr t tn P a s c a 1p r o g r an«i i e r u n g u n d S y t a x d i a g r a r n m e n l i e g t b e i . ( n a t ü r l i c h in D E U T S C H ) Quell code und er z e u g t e P r o g r a m m e lassen sich sowohl auf Disk al s au ch auf K a s s e t t e a b s p e i c h e r n bzw. laden. ( S t . Kl u i ) A r t . 877 S e S 6? . DM DATABASE ........ D a m i t w i r d I h r C o m p u t e r z u r A d r e s s k a r t e i . S i e k ö n n e n da/ ni t Namen, A d r e s s e n , T e l . Nummern, Bemerkungen u . a . a b s p e i c h e r n , nach v e rs c h ie d e n e n G e s ic h ts p u n k te n s o r t i e r e n , su ch en, aus­ drucken, etc. . . . D u rch V e r ä n d e r n von D A T A -Z e ile n können S ie a n s t e l l e von A d r e s s e n auch an d e re D a t e ie n m i t an d e re n B e z e i c h n u n g e n a n t e g e n . ü b r i g e n s ; d i e D a t e n , d i e S i e irn P r o g r a m m e i n g e b e n , w e r d e n n i c h t i n DATA Z e i l e n a b g e l e g t , s o n d e r n d i r e k t a u f K a s s e tt e a b g e s p e i e h e r t . S ie können s o m it auch s e h r e in f a c h v e r s c h i e d e n e D a t e i e n m i t e i n a n d e r v e r b i n d e n . D i e s e s Prograsrm wurde f ü r K a s s e tte n b e n u tz e r g e s c h rie b e n und s p e ic h e r t d ie Daten in einem b e s o n d e rs z e its p a r e n d e n V e r f a h r e n au f K a s s e t t e ab. A r t . 8 97 SeS 2 5 . - DM SUPER EDIT E in e c h te r 8 i l d s c h i r m - E d it o r f ü r I h r C o lo u r G enie. S i e w a n d e r n m i t dem C u r s o r ü b e r d e n B i l d s c h i r m u n d v e r ä n d e r n s o in r e c h t e i n f a c h e r W eise ! h r Progranvn. S ie können I h r Prograjrm Z e i le n w e i s e v o r - odo r auch r ü c k w ä r t s s c r o l l e n . ö b e rs c h r e ib e n u n d V e r d o p p e l n uon 2e iIe n n u m m e r n i s t ab s o f o r t k e i n P r o b le m m ehr. Aber das i s t noch n i c h t a l l e s : Z u s a tIfu n k tiO rte n e rla u b e n I h n e n d a s Zu SAf wi e n h ä n g e n u o n P r o g r a m m e n ( M E R 6 E - B e f e h I > , Z e i t e n k önn en a u f g e t r e n n t w e r d e n , v e r s c h i e d e n e Z e i l e n können zu e i n e r t u s a m m e n g e f a s s t w e r d e n , u , a .. A r t . 0 ? 4 SeS 3 9 . - DM MONITOR 1.2 e i n e i n f a c h e r M a s c h i n e n s p r a c h e m o n i t o r m i t HEX u n d A S C I I - D u m p t E d i t - F u n k t i o n # L a d e n u n d A b s p e i c h e r n v o n H a s c h i n e n p r o g r a/rvpten r HEX-DEZ U m w a n d ! u n g s - u n d R e c h e n r o u t i n e r e t c , A r t . 999 3 9 . - DH COLOUR - FORTH E in e neue P r o g r a m m i e r s p r a c h e für I h r C o l o u r G e n ie . F a l l s S i e FORTH k e n n e n , is t a lle s k la r, f a lls n ic h t, b itte n w ir S i e , s i c h d a n a c h z u e r k u n d i g e n . FORTH h i e r z u e r k l ä r e n , w ü r d e d e n Ramen d i e s e r S o f t w a r e 1 i s t e s p r e n g e n . Im L i e f e r u m f a n g I s t e i n A n l e i t u n g s b u c h , d a s a u c h F OR T H — N e u l i n g e n d i e S p r a c h e e r k l ä r t und In d ie B e n u tz u n g e i n w e i s t . A rt, 998 95.- DM 12 GENIE DATA Colour Genie Jan Hemming i a « | p m I V w u 1 'f D x . I V Nach dem A btippen steigen Sie einfach ein, und los geht die rasan­ te Fahrt. Doch was ist das??!! S tatt auf einer Rennstrecke fahren Sie versehentlich auf der fal­ schen Spur einer „id yllisch e n " Landstraße, vorbei an Häusern und Bäumen — und ... — es kom ­ men Ihnen höllisch viele Fahrzeu­ ge entgegen. Diesen g ilt es durch geschickte Manöver auszuweichen. Versuchen Sie es einfach! Wer es am längsten durchhält bekom m t die meisten Punktej Der Spielablauf In der unteren Bildschirmzeile w ird laufend der Spielstand ange­ zeigt. M it jeweils sechs program­ mierten Zeichen werden die ver­ schiedenfarbigen Hinderniswagen und der orangefarbige Rennwagen dargestellt. Für jeden Hindernis­ wagen, der den Bildschirm passiert hat, bekommen Sie 1 - 5 Punkte, das ist abhängig von der Geschwin­ digkeit, m it der Sie fahren. Diese steigert sich laufend, paralell dazu verengt sich die Straße. Um die Reaktionszeit zu verkürzen, nähert sich Ihr Rennwagen ausserdem dem oberen Bildschirmrand. Wem das noch nicht genug ist, der kann mit SPACE die Beschleu­ nigung verzehnfachen. Wenn man drei Unfälle verursacht hat, ist das Spiel zuende, bei einer neuen Höchstpunktzahl kann man gege- . 4800 480B 4-816 4821 482C 4837 4842 484D 4858 4863 486E 4879 4884 488F 489A 48A5 48BÖ 48BB 4 8C 6 48D 1 48DC 48E7 48F2 48F D 4908 4913 491E 4929 4934 493F 494A 4955 4960 496B 4976 4981 498C 4E 00 00 00 00 00 00 00 00 00 2 E 2E 2E 2E FE 20 3 0 0 6 D5 F 5 2A 20 C3 2 8 30 04 F l D I IC 3 0 F 4 F l 00 AC 19 3A 00 00 5 F 19 A7 F 5 7E E3 C9 1F Fl F 8 F 8 CO CE 0 6 0 7 F 3 f— r 1“f* CF FF p p F 3 CF CF CO FO EO EO FO FF FF CF CF CF F 3 F 3 F3 FF 7F 3F 1F 0 7 OE 0 2 0 8 0 4 18 OB OC 0 8 0 7 0 4 7E 21 4 2 41 p p 19 A7 9 0 C8 6 5 1F 8 0 8 0 8 0 2 0 4F 8 9 8 9 OF OF FF 8 0 0 9 C9 4 9 4 9 D3 F 8 3E OA OA D3 F 9 F l D3 F 9 3E OA 21 FF FF 4F 4 9 2A 15 O-1"? 2 0 4 0 11 CD 4B 4B 19 4 0 F l 2A 00 00 00 2p D5 40 El 77 7E 28 1F CE FF F3 FE FC CF OF FF OB 7C 11 00 00 00 00 00 00 00 00 00 00 2E 2E 2E 2E 2F 2 E CD 00 D l 11 00 4 4 CD C9 11 00 4 8 23 20 4 0 4 0 E5 21 6 9 E l 77 D 1 E l 0 5 CD 2 C 4 8 03 : FE : EO 03 FE FE CF 07 FF 03 OE 09 45 03 80 FF 84 4A F9 3E F8 48 ED 73 FE 60 OF FE FF FF EO FF ID OC 09 85 73 CE 60 yp 3F 07 FO FF FE 01 37 F8 18 0 3 01 CO EO FO F 8 8 4 86 4C F 8 3E OA 0 9 D3 3E 00 AF TO 00 00 00 00 2E 2E C9 90 CD 2B 35 C9 18 7F 06 EO 7F FF 07 F3 FF FC 7F 07 60 7F 7F 07 EO FF FE IE 00 21 4 F 86 68 29 E4 8 2 OD 03 03 SO FO OF 8F 7C 3E 87 84 84 49 F 5 oE D3 D3 F 8 C9 F 8 3E D3 D3 F 9 18 17 4 8 48 5B 0 3 4 8 5 7 2 8 00 2B CD 4B 4B CD 4B 4B F 5 3E 0 4 20 4 0 CD 6 D 4 8 8 0 2E 00 E5 1C 90 11 11 E3 F6 73 06 CF FF EO OF F3 7F FS 38 14 OC FB OF 10 IF FF 09 3E 00 C9 CD 19 19 -yt’\ 'w1«£* 81 GENIE DATA benenfafls noch seinen Namen eingeben. Versuchen Sie, möglichst lange in der M itte der Straße zu bleiben. So können Sie immer den Hinder­ nisfahrzeugen ausweichen. M it H ilfe des Soundgenerators w ird während der Fahrt das Mo­ torgeräusch sim uliert. Wenn Sie zu knapp an den Straßenrand oder an den Hinderniswagen fahren, ertönt zur Warnung ein schleifendes Ge­ räusch, das den Spielabtauf.Jedoch nicht beeinträchtigt. Erst bei ei­ nem w irklichen Zusammenprall verlieren Sie durch eine Explosion einen Ihrer Rennwagen. Die beim Spielen und Program­ mieren häufig benutzten Pfeütasten werden bet diesem Spiet durch die Verwendung der Größer- und Kleiner-Tasten entlastet. Programmdaten Das Programm belegt den vom Basic nicht unbedingt benutzten Grafikspeicher von Adresse 4800 H bis 5 2 8 2 H. Das entspricht einer Länge von 2690 Bytes. Die A nsprungadresse ist 4E28H . , . . : , . . . . .. 4997 4 9A 2 4 9 AD 49B8 49C 3 49CE 49D 9 49E4 4 9 EF 4 9F A 4A05 4A 1Ü 4A1B 4A26 4 A 31 4A3C 4 A4 7 4A52 4A5D 4A68 4A73 4A7E 4A89 4A94 4A9F AAAÜ fcj« i""! 4AB5 4ACO 4ACB 4AD6 4AE1 4AEC 4AF7 4B02 4 B 0D 4B18 00 19 22 48 F5 40 07 3E F9 D3 64 01 EI. 19 20 51 CD 40 20 2A 48 20 6D 45 CD 20 40 2A 60 C3 0*7 48 56 4 £3 52 20 45 4F ID 58 4B BE 4B23 4B2E 4B39 4-B4 4 4B4F 4B5A 4B65 4B70 CD ED 4B 7 B 4B86 C9 1F 4B91 4B9C 28 4BA7 40 4B B 2 CD 4BBD 6D 4BC8 00 4BD3 IC 4BDE ED 4B E 9 : 4B 4BF4 ED 4BFF CD 4CÖA CD 4G15 4 C 20 19 t'sf-y 2 0 4 0 CD 20 40 CD 6D 2 0 4 0 CD 6D 4 8 A7 C8 C I 3A 1A D5 CD. 6 5 4C D l E 5 3E 0.6 D3 F8 D3: F 8 3E 0 7 D3 10 D3 F.9 3E 0 9 3E OA . D3 F 8 3E F8-. 3E FF D3 F9 D3. F9 3E OD D3 DO 0 7 ; CD 87 4B 2 0 4 0 E5 CD 2 0 4 0 : cd 6D EO OE FF 10 DC CD, 6 5 4C ED 5B 9 0 IC DA D9 4A F l 21 7.5:: 45 2A 2A 2A ; 2 A 2.A 2 0 0 0 21 9D ■45 2A 2 0 2 0 2 0 2.0 2 0 2A 0 0 21 C5 4 8 2A 2 0 •17 ; 4 3. wJxL. 2 0 2A 0 0 21 6D 4 0 2 A 2 0 2 0 2 0 2 0 2.0 2A 0 0 : CD AD 48, 2 0 2A 2A 2A 2A : -A 2 0 0 0 CD 6 0 Q0;: CD 3C 4E ED : 5 3 13 45 4 0 F l 21 : ■ 2 0 2 0 2 0 . :2 0 5 9 4 5 2 0 4 2 5 2 4F 45 20 4 8 49 47 4 5 IE ÖD; lEv' OD 4 0 CD 6D 4 8 IE 2 0 5 4 4 5 4C 4C 5 2 2 0 4E 41 4 8 0 6 OE' fLD D9 19 3 6 0 0 C3 3C D l E l C9 3E 8 5 3 0 0 8 3E FF 3E 8 5 BE 3 0 0 8 7B 4B : 3E 8 5 SB 18 4(3 CD 9 0 D9. EB 4 4 7D. AB CB 19 6 F ■D9 C9 0 0 CD 6D 4 8 2 0 CD 6D 4 8 8 6 8 7 6D 4 8 8 8 8 9 0 0 4 8 ■8A 8B 0 0 E l 0 4 3E 9 0 ED B l 3 8 OF 21 0 0 4 4 B l CD 9 0 IC 3 0 E 6 0 7 2 0 F 7 2A 5 2 2D 2D CD 8 7 C4 4B ca 2 6 4 4 8 7 4B E6 0 3 FE 6D 48 20 48 2A 3E F9 D3 10 3E F8 E6 6D 48 El 11 FS 20 2A ■"T* 48 84 20 3D 18 :LF 3E FS D3 OC 3E OF 48 8E Fl 48 3E 40 2A 20 20 2 0 45 4D 4 5 ED 4 5 20 20 21 15 2A 2A 0 0 01 60 00 48 F5 20 4F 5 5 4B 4 5 48 20 0 0 21 5 0 4C 2 0 4D 4D 4 5 05 38 4E E5 BE DC 17 4 8 3E FF BE DC IC DO 67 7 8 ES 2A 20 00 0 0 19 19 C9 21 11 7 8 01 0 0 0 2 AF OF 4 8 4B BD 6 F 2C 32 83 85 00 0 0 3A 1A 48 D3 F9 OB D3 3E 10 F9 3E D3 F3 0 0 D3 3 ^ O'T 8C 8D 8F 0 0 A7 C2 2A 13 04 CD 6D 2A 2A 4 0 CD 20 20 20 40 2 0 4F o ■Li»joIh 2 0 .20 2 0 46 2A 2A 00 00 CD 6 0 3E OA 4 0 CD 20 48 4E 2 0 43 B8 4 5 4 5 41 45 20 20 00 D2 16 D5 CD 3C 4 9 CD 7B "Tr-\ 17 3C 49 18 ■i. AA CB 20 40 19 OO 22 20 20 40 00 44 4 4 CD 0 4 3E C9 CD 1 1 00 3 0 FA r?’~> 2 0 13 00 19 17 48 20 3E FE! D3 OB 3E F9 40 00 OD 49 48 •C.'— ’ 48 2 ft 6D 20 CD 56 40 20 20 2 ft CD 00 6D 41 544F 22 53 59 21 00 53 23 4B 48 C9 48 11 11 20 40 CD 01 90 94 87 44 C9 40 02 38 oo F5 3E 01 32 23 40 Fl CD 6D 48 90 91 00 -jr/--, 20 40 F5 3E 09 11 28 00 19 14 GENIE DATA 4C 2B 4C36 4C 41 4C4C 4C57 4 C 62 4C6D 4C78 4C S 3 4C8E 4C 99 4CA4 4CAF 4CBA 4CC5 4CD0 4CDB 4CE6 4CF1 4CFC 4D07 4 D 12 4D1D 4D28 4D33 4D3E 4D49 4 D 54 4D5F 4D6A 4D75 4D80 4DQB 4D96 4DA1 4DAC 4D B 7 4DC2 4DCD 4DD8 4D E 3 4DEE. 4DF9 4E04 4E0F 4E1A 4E25 4E30 4E3B 4E46 4E51 4E5C 4E67 4E72 4E 7D 4E88 4E93 4E9E 4EA9 4EB 4 23 3E 48 96 85 40 OB 40 07 94 97 6F 18 32 F l CD 6 D 3 2 OT 4 0 9 5 00 19 00 C9 CD 3A OD 4 8 A 5 21 9 8 23 40 F l 20 20 5 3 4 8 CD AF 4 3 41 5 2 CD AF OF 20 20 2A 11 20 2 0 2 6 00 20 20 20 20 00 28 F5 3C 5B 40 CD 6D 06 DB 3E 48 44 07 3A 32 03 CD 6D 48 D3 F9 32 16 00 2 9 78 44 2 8 01 66 01 70 47 DD 7 5 02 3 2 9 0 1C 00 ED C9 3E 11 4 0 0 3 C8 4 8 C6 FA 5 F 4B E 6 D3 F 8 1C 4 8 D3 F 8 3A OD OE 4 8 1B 4 8 3D T *“ 1 OD 4 8 00 ED 4 8 CD F 5 3E 20 4 0 20 CD 00 FS 20 20 00 22 20 00 CA F5 20 CA F5 20 CB 48 48 16 48 4C FE 18 *TO 1B 00 A 7 OF 4 8 29 29 19 11 19 22 11 4C CD 9 0 00 DD 23 40 D 8 ED 5 2 ED SB 21 4 5 CD 2A OF. 02 5F 19 DD OF DD 3E OF 3EE 0 7 3A OE^ 48 96 DO 3E 3D 3 4 OD 4 8 C9 21 BO 21 C9 01 OA 3 2 CD 6 D CA CA 3E 0 3 4 0 CD 48 ED 3A 54 253 15 43 IC 74 CD SB 5B CD 03 03 48 6D 48 00 20 2 0 20 20 20 00 F 8 3E 1F 2F 21 4 0 48 92 93 F l 11 2 8 22 20 40 C4 4B C 8 C6 0 5 8 5 47 20 CD 6 D 4 8 4 3 4F 5 2 OF CD 6 D 5 3 3A 00 CD 6 D 4 8 C9 F 5 3A 3D 3 2 0 3 26 28 F6 ED F 5 2A 19 11 2 8 20 00 19 0 0 19 o o F l C9 CD D3 F 9 3E F 8 B 6 CB •—i^ 21 97 OD 11 00 4 4 90 48 16 75 77 D3 D3 48 D■ FF BE FE 7C IC 11 00 00 02 F9 FB D3 F9: 32 CO 06 48 00 00 3E 23 48 EO 32 6D 20 20 CA 3E 01 4 0 CD 6 D CA CA CA 3E 0 6 3 2 4 0 CD 6 D 08 40 OF 20 23 48 20 48 20 2*3 48 2A OF 4 8 6 F 22 20 4 0 F 5 3E 20 20 20 4 5 3A 00 4 8 2 0 20 2A 1A 4 8 2 0 20 20 03 48 CD 15 48 Fl CB .48 A7 C9 4C ED 00 20 2 2 20 4 0 20 4 0 CD D 6 4D 3E OE D3 F 8 7F 28 05 0 0 ED 5B OD 5 2 CB IC OD 4 8 D 6 5D 2 9 2 9 00 3A 1C 4 8 C9 DD CD 9 0 IC 3 0 31 11 01 00 C9 per 00 CD 6 D CD 6 D 4 8 CB 03 19 48 6E 38 28 20 4 0 4B 11 7 0 4 8 16 00 4 8 19 22 01 00 0 4 D 8 CD 8 7 8 9 FF 19 CD 8 7 4B DD 7 4 01 C3 5 0 4 b 3A 1 B 4 8 3 E OE D3 F9 Ä 01 o A : OE 4 8 O E : 4 8 3E 3 6 00 3 A CO 3 6 0 3 11 00 F4 '"I-"' 13 48 1C 4 3 F l 21 OB EO 20 20 20 E4 CA 4 0 F l 21 CA EO CD 20 20 CA 4 0 F l 21 CA E4 E 2 20 20 CA 4 0 F l 21 CA 2 0 20 ID 26 6F 26 29 U FE 0 3 00 DD 3 9 11 00 19 DD 7E 4 7 CD 21 OC 11 4 8 ED B l 4B E 6 3 A OD BB 3 0 CD 8 7 :i3 E; 0 8 SFI m : F 9 AF D3 F 8 9 3 ■3 2 05 32 OD 4 8 3C T O 01 CO o o 11 D3 44 CD CA “T T FF oo 20 EO 44 CA 20 20 CA 5B 4 4 CA 20 20 CA 8 3 44 CA 20 COLOUR -GENIE SCHMIDTKE kom plexe S u b t r a k t io n M u l t i p l i k a t i o n f ü r IJPH XaY*X Sh Mi.1! t i p l j z i fr re y in R (i> C t k o r.ip lö jif flu l t i p i : k a tio n C FO f l i u i s i f , f ü r UPH » Y / X Sh k o m p le x * D i v i s i o n Ct ✓ ' R e z i p r o k e n X = I/X Ct P P o t e n u e r e X=Yhoch X C t - v ■:U.srze i c h e n w e ch s* 1 C i :r F a k u i t a t uort X C t- R : i . ■■i : » t g e R C ü-sS ) a u f B ild s c h ir m Ct::H:-'.W :K H jro c o p y . fiCCi « r c u s - C .:s in u r v o n X t i i : ■^Rtetts-iS'ifiüs vo n X ftUK ' ".■■■” g u t j- y f .;d e r:; Mi [ fs t u n k t io r . e n ■ : BfN 3 : no.-ii i n i 1 Lo •»(* i r i an i . . . ' tvüfl ■■'V:Kc>fiim^nt,är:: tOr. ü r a t i i; \ Uf-I (iiih ifita ie .: und m axim al X, v W e rte i- i '. e r F vn M .ic.r, i n P i-'ii-,< -!c -rd a rs Wir senden Ihnen gerne unseren electronic Büro- und Personalcomputer S ond kaulitra G e 84 - :f2> SOFTWARE Softwarekatalog m it über 100 Programmen! T e fe fo n : 0 2 4 ! - 2 3 2 17 5100 A A C H E N {Natürlich kostenlos!) CALCUL 1.1 E i n Ma t h c m a 1 1 k - P r o g r a m m p a k e t , d a s e s i n s i c h h i t ! Zu m ' I n e n k ö n n e n S i e d a m i t e i n e n T a s c h e n r e c h n e r s i mu 1 i e r e n , s o t u o h l UP N a l s a u c h A Ü S . O i e A n z e i g e g i b t ! a u f e n d A u s k u n f t ü b e r d i e i n t e r n e n S T A C K - R e g i 5 1e r , I / O H J e r t e e t c D e s w e ite re n lassen s ic h dam it F u n k tio n e n m a th e m a tisch b e a rb e ite n ( i n t e g r i e r e n , d i f f e r e n z i e r e n , e t c . ) . Die F u n ktion w i r d in h o h e r A u f l ö s u n g a u f den B i l d s c h i r m g e p l o t t e t und kann a l s Du mp a u f e i n e m D r u c k e r -p S t a r o d e r E p s o n ) a u s g e g e b e n “ erden. A rt. 0 9 5 SeS 4 P . - DM Kurzfassung der CALCUL-Befehle flo k u r iu n je n : Tastern) r h , PO, PU: P f e i l rii.cn i in k s ;, re c n t s , o o - n . un i- n S ta c k u i fiS d u rc h E:~t‘ r M O f s h i i i r t ' IH j £ in o = ö e r * c ii.» t* r d e r F u n k tio n i'U : HuSc],-,R e r e g is t e r d e r F u n k tio n rtb : ^ b k 'ji+^L/n'3, d f e n a ch F u n k tio n s a u fr u * m d e r _ m e n e n Z e l le des B ild s c h irm s : e r s c h e in t i h : S h i f t , C t: CTRL = C o n t r o l PL, Funktionsweise iN PL Sh PL C t PL Sh Ct Sh Ct Sh Ct Cl +, - f r e is t e , Lö sche v o r ig e s 2 e ic h e n Lade X m it R C i), i w ir d e r t r a g t 1 > Läde S ta c k dU£ R‘< ti“ 3 i 2) nach "S T P "; h i n t e r H e x a - 2 a h l: X i n t> e ii PR Lade R C i) s i i t X , i u i r d e r t r a g t PR 1 ) Lade R (6 - 3 > m i t S l ic k ' 2 ) n a ch "S T fl“ ; X ,Y zu s ta t.S u m m e n PO S c h ie b e S ta c k n a ch oben PO R o lls - S ta c k n a ch oben PO ta u s c h e Z und T PU S c h ie b e S ta c k n a ch u n te n PU R o lle S ta c k n a ch u n te n PU ta u s c h e X und T CLEfiR lö s c h e S ta c k CLEfiR lö s c h e S p e ic h e r R C 0-15) Sh < F i> C t Sh G r u n d r e c h e n a r t e n f ü r A0 S f t d d i t i o n f ü r UPH X=Y+X A d d i e r e X zu k '( t> , i w i r d e r f r a g t komple xe A d d i t i o n S u b t r a k t i o n f ü r UPH X *Y -X S u b tr a h ie r -? X uon R ( i ) x .v ÜU _ X X-T T s fib R't-cS S fH - X X X X~T X, V X-T X -T T X -T X -T X, V X-T X X, V X X-T X ,Y X s S 10 S STP+ S tU p R olU T X -T x-r ExZT $ 11)0 2 ,T X -T X-T X, Y X X s s X, V 5 X k o lD £xXV c lS t c lR * A0 S V+X Rv+X Cadd y-N R-?-X ■ f fir 'i^ f l -Cl. ; / ! i - * c---.- -J I I - - y, v X c. X X X X X X X X, V X xtV x-r ► t i . i r , Ul in F i r a t n - je r - : X-T. S t ^ :^ £ :E ü S :;Wwsr^:; ttgr^s.£ibh ■-■■' ■ :v ■ ' i7>'< x-r x ,y X x-r x ,v X »T X x .v X X ilS H iH l :: Cnuj11 WX K *r'K C'3i v i 'X chsX ^3 kX Refln AC0 S £ IN k Om L ID PUT PL0 x-2 k£b Sr H Steuerparameter: I N = l- 3 IR = 0 -1 S 15=8,1 1 D ! = H1U F E = l.E - 5 X, V X s x-r CUP •TK'ETT> O.’ r r o r i n Gr.-?rh b f j e ^ n ( h i n t e r PLÖ> C '. 'r jo r i E m h -’ i t n » .;h l i n k s ^ C t/r« o r 1 E i n h e i t n a c h r ? c h t ' 3 t*< F L > C u rso r $ E in h “ i t*?n n v : h l i n k s . 5 h < :rp> C ur50r 6 E in h a lt e n n a c h r e c h t s P Po »i 11er» i n X, V a'.Ud^b-’ n -V. E * > f la ? ? e n dn»r P c u t in e DEG <£ET> i n (jr.^.J O ffluänd^tn y * D i f f e r e n z i e r e F u n k t io n x : * COLCUL beende n Ff’ I F u n k t io n IM e d i t i e r e n HSL “ C in le ia u s d r u c k o n . ** " Fnd® d e r O n le i tLino [ fl,3 " I n t C d r ^ l i J ' r J N -te n FSft l n (X , V> X ,V i:riR " i n k a rte s is c h « ? fC oord. u .in d e ln ’ X, V L IM " m in im a le u n d m^>;im3 le Fk l-M .? r te X, V L IK “ 1ir . e . ir f I n t e r p o la t io n P (P -3 ) x,v J- l l? “ Z^ h n ^ r ! o - ia r i thmus X P I. “ iC r= irl:c n > - ta n t» 3 . 1 4 1 5 .. PLO. * K u ru ? p t o t te n X -T POL " i n P o l a r k o o r d in a te n w a n d e ln X.V pvr P y th ,3a o r.3S x *X +V *V X, V RAD * l n Booenmaß u m u a n d ^ ln X WJH n F u n k t io n IN a u f r u f e n b e lie V$R " f r e i d e f i n i e r b a r e r B e fe h l ZER " H u l l s i e H e such en x, v F un k 11o n s ie 1oe r S p e ic h e r r e ia e r S ta tis tik ' D r u c k e r p r o t o k o ll in te r n a l 1t e ile c F e h le r g r ijP e "2ER" Csub SJ>X : ::: ' IN IR IS 1P DI FE x ,v X s S ta n d a rd S ta n d a rd X, V CUR X. V X x. v DEij D IF E0I z IHi3 fCfiR X -T LIK 1.1U x. v T X X X, V X X : x-r LIM P I, PL0 FOL pvt RfiO RUN ZER 16 GENIE DATA 4EBF 4ECA 4ED 5 4E E 0 4EEB 4E F 6 4P 01 4F0C 4F17 4F22 4F2D 4F38 4F43 4F4E 4F59 4F64 4F6F 4F 7A 4F85 4F90 4F9B 4FA6 4FB1 4FBC 4FC7 4FD 2 4FDD 4FE8 4FF3 4FFE 5009 5014 5 0 1F 502A 5035 5040 504B 5056 5061 5 0 6C 5077 5082 5 0 SD 5098 5 0 A3 50A E 5 0 B9 50C 4 5 0C F 50DA 5 0 E5 50F0 50FB 5106 5111 51 IC 5127 5132 513D 5148 CA 20 20 TO 40 6 D 48 E2 E 4 20 20 OT 4 0 6 D 48 20 20 E4 CA 20 20 CD E4 CA CA 0 3 TO OT 4 0 F l CD 20 20 CA 20 CA 20 20 20 CA 20 20 CA CA 20 20 20 20 20 00 F5 3E 01 3 ^ 20 20 20 20 20 CA CA CA E2 20 20 CA CA 20 20 CA CA CA CA E2 OD 00 F 5 3E CD 6 D 4 8 20 20 20 20 20 20 CA EO 20 E4 EO CD E 2 20 20 20 20 CA EO OD 00 4 0 F l CD 6 D 4 8 20 CA E2 20 2 0 CD E2 20 20 20 E4 E2 20 EO 20 20 CD E2 E4 OB TH 1.c. 40 F l 21 CD 6 D 4 8 5 7 er 49 4 9 4E 20 4 4 4 5 4 3 20 31 3 9 3 8 T Tt 20 20 CA 20 20 00 F 5 3E 0 8 20 4 0 CD 20 F 2 20 20 00 F5 3E OA 20 4 0 CD CA CA EO 20 CD 20 20 EO CA E 2 20 20 3E 20 CA 20 OD 48 20 20 CA Fl CA 20 20 r-y-fr CA E2 CA 3E 40 20 52 20 20 20 20 20 20 48 4 5 4D 4D 4 9 4E 20 20 20 20 20 4 2 52 34 2D 45 TO 45 OD 36 49 23 4 5 3A 4 8 OD 4 5 3A 4 8 20 CD A7 6D 48 5 3 20 3E 2 9 5 3 2D 5 2 41 20 5 7 45 29 42 55 20 4 0 4 8 20 49 46 4 5 20 20 4 2 3E 31“ DB pc? FO 21 4 8 CD 43 48 54 2D 20 CA 20 GA 21 AB 4 4 20 20 E 4 20 Fl CD CA CA E2 fr 1 21 FO 4 4 20 20 20 E 4 CA EO 2 0 20 20 20 CD CA EO OD <1)0 F 5 6 D 4 8 20 20 20 20 CA 20 20 20 CA 20 20 CA 20 CA 4 0 F l CD 6 D 20 CA 20 20 20 20 CA 20 20 20 20 20 06 3"^ 2 3 F 5 3E C9 01 53 0 8 TO CD 20 20 20 E4 EO 20 20 20 E4 EO OD 00 E6 45 54 45 42 20 4A 4 7 OD 45 52 53.. , 5 4 54 4D 59 41 20 CA F5 20 45 42 OD 4E 4E 45 4E 3E 4F CD 4F CD ID Fl 45 48 OA . Jx. 6D 20 20 20 20 20 54 2 D 42 5 2 2E 20 20 20 ^2 0 i:: 20 44 20 20 20 20 31 3 0 : ■;3 7 20 W-i—\ 4 5 49 4D 20 O W OD OD 00 F5 4Q.: F l CD 6 D 4 8 5 3 4 3 00 2 A 11 4 8 CD: AF OF 4 8 4 9 4 7 4 3 20 e?-T 4 3 00 2A 13 4 8 CD AF OF 20 20 4 2 5 9 20 00 21 2 8 F 5 3E 01 TO OT 4 0 OD OD 5 5 5 3 4 5 2 0 4B 2 8 3C 2 9 20 41 4E 4 4 20 4F ‘-J jL— 20 5 4 4 8 4 5 4A 4F 5 9 4 9 5 3 45 49 54 48 20 4F 5 ^ 5 4 54 4F F5 3E OB 5 0 CT'»”) 4 5 5 4 2 9 20 42 55 54 45 4 7 4 9 D3 F 9 21 2 F B 6 CB 00 00 OO 40 20 20 CA 20 20 20 CA 20 CA 2 0 20 2 0 54 49 43 TO OT 4 0 5 3 5 3 20 4F 5 2 20 5 4 4 F 4E 4E 00 oE 8 0 FB 3E 4 7 20 0 4 11 4 8 3E 3E OB TO OD Fl 28 46 20 crT ■_/ *_■* 5 0 45 20 2 8 ET” JO* 5 0 20 46 4 9 4E 00 21 9 8 20 07 OE CB 03 .4 8 6D 48 CD 59 20 2 8 20 4 3 4-B OD 45 44 41 4 3 4 5 20 47 22 CD 6 D 53 48 4 9 ejo 5 4 4F D3 FS3 D3 FS 7F 2 8 ~ '**»*llC 1A ■"SE­ FF, GENIE DATA C] 153 T 'V OE 43 er 15E ■\=7 48 Tt? c:4 0 Fl c 1 74 OA 48 tSr rr\ 6D 40 *■■■r-y c ISA ,;"S 20 er; 1 o '~. 20 20 CT 1 AO DE CD pp CT1 ßfc 20 FS CB er1B6 4C 3E OE er1C 1 4 C CE "7“7 er^cc 4C CD CB 51D 7 6F O ^ ED C‘1E2 /„e 1r ED f. .( 04 4S 1ED CT, 4D DD £T1 FS Cr203 -1? CD 65 fr20E 6D 48 20 tr21 ? 20 'Oi'"'; , E< j•„1j_’ V1 20 nr22P 20 20 20 c 23 A 3E';<>o 'T C?i2 ii':; : 40 :>3$ OD c: DB 00 c.-;25 B : :2-l;: ■;4S er2'fiw 4D DD '5 1 ip "MB 50 5 *7r*;.:i-v i m Ft I“ M Z: AF 1r> '? 48 2 Cf DB 20 4C ö7 D3 CG 4C ES B8 CD i X 4C 20 o r~i »■»!^ 20 48 20 CD 21 4C n ~r 48 "T/”1 1 2 -jpi-*, 03 00 ,'H'v 3E 05 20 20 20 20 '20 CD 60 C4 AA cp. DE BA 4C 21 6F 21 6F CD 60 50 4D OA 48 2J oo 20 20 I*' 20 20 20 20 40 Fl C6 04 40 CD 50 4 D OA 48 Al 06 4 A CD ■70 43 48 -1■-> r 21 t 04 ■tr.* 70 20 2 Ci 49 4C F9 CD 47 F3 49 DD CD 44 20 20 20 20 2A P5 6D DD CD 51 32 4? 20 20 CF CD CP CB 60 i^ t1 CD 1 50 20 20 20 20 OF 6F 48 21 50 p^ 23 2A ->r. 3E 4S 48 20 20 OD U/-■W=; ~7~T 17 '-f/ ■/j_. 06 1 20 20 20 00 1.0 4C 3 A C4 BA 6F CC A A a0. CD f"*. O ~7 47 01 9 ~7 F3 01 /-CT 4C DD 07 4Ef CE) 4D CD 60 20 40 CD 20 20 20 20 2 r' '?o 20 20 2(": 20 00 r' 48 22 CD 6D 4 c: CF 00 DD 07 48 CD '1^v- CD FF .T, yri:: O 40 CD 9C 22 4 3. Michael Baumann Colour Genie □ □ □ □ □ □ Das Programm ist ein U tility für das Colour Genie mit 16 oder 32 Kilobyte Speicher. Es ist 3,1 K lang. Invers ändert zuerst einmal Gra­ fikzeichen von 191 -255 (dadurch bleibt die erste Hälft der Grafik­ zeichen frei für eigene Verwen­ dung}. Danach werden diese, den Tasten entsprechend, im MODSEL Modus auf die Tasten, über die man normalerweise Grafiksymbole erreicht, verteilt. Danach sind auf jeder Taste 4 Buchstaben oder Symbole verteilt. In der Hardcopy sehen die in­ versen Buchstaben etwas breit aus, aber dies mußte sein, da das Co­ lour Genie das Bildschirmsignal für normale Fernseher verbreitert und dadurch schmalere inverse Zeichen groben Überblick über das Pro­ nicht mehr als diese zu erkennen gramm geben: ; 100 bis 110 wären. Wi r r Wie Sie die Drucker-GrafikzeF. Die Grafikzeichen werden zur M it­ chen in den Zeilen 114, 125 und kontrolle auf den Bildschirm ge­ 128 interpretieren müssen, läßt bracht. sich aus der Hardcopy erkennen. : ■ ' ' 111 Nachdem die inversen Zeichen ge­ Unterprogrammaufruf zur Gene­ neriert wurden, bleiben sie erhal­ rierung der inversen Zeichen. ten, bis die Grafikzeichen von 191 112 bis 130 bis 255 geändert werden, das Pro­ Biidschirmaufbau. Wie die Drukgramm ist nach der Generierung ker-Grafikzeichen interpretiert nutzlos und kann vernichtet wer­ werden geht aus der Hardcopy den. Sie können natürlich auch in hervor. Zeile 130 ein DELETE 100-201 131 bis 201 bringen, welches bewirkt, daß das Unterprogramm, daß die inversen Programm sich nach der Generie­ Zeichen generiert, m it Data-Zeilen rung der inversen Zeichen selbst und Lese-Schleife. sofort rausschmeißt. Folgende Tabelle soll einen 18 GENIE DATA 100 101 102 103 104 105 106 107 108 109 1 10 111 112 113 114 1 15 1 16 1 17 1 18 119 120 121 122 123 124 125 126 1 27 128 129 130 131 132 133 134 135 13 6 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 PU = 4 11 GR = 1 9 1 CLS F O R I = 1 TO 4 FO R J = 0 TO 1 5 F'U = P Ü + 1 GR = GR + 1 P R IN T ©PU, CHR$; NEXT J PU = PU + 2 4 NEXT I GOSUB 1 3 1 FO R 1 = 1 TO 5 0 0 : N E X T I CLS y -rp r j-. nda a a□ PRINT " t t t t t t t t t t t t i t t t PRINT : PRINT PRINT "N eue T a s t e n b e le g u n g : 11 PR I N T P R I N T " O h n e < S H I F T > u n d < MODSEL > : n P R IN T "QW ERTYUIOPSASDFGHJKL;-ZXCVBNM 9 PRINT PRINT " M i t < S H I F T > u n d o h n e CMODSEL P R I N T " q w e r t y u i o p * a s d - f g h j k l + = z : t c v b n m j? PRINT P R I N T " O h n e < S H I F T > a b e r m i t < M0 D S E L > PRINT " 11^ n "-F U P e E Ö ä t ¥ Ä Ö f t N ä > * t ; ■■ x WLi ö cl PRINT P R I N T " M i t < SH I F T > u n d < M O D S E L > B BP“fl ü. E r — i —i ° t 5 PRINT " I -1 H f- 1 PRINT : PRINT P R I N T : END DAT A 2 5 5 , 2 3 1 , 2 3 1 , 1 2 9 , 2 3 1 , 2 3 1 , 2 5 5 , 2 5 5 D ATA 255,2 5 5 ,2 5 5 ,2 5 5, 243, 2 4 3 ,2 3 1 , 255 D A TA 255,255, 2 5 5 ,1 2 9 , 255, 2 5 5 ,2 5 5 , 255 D A T A 2 5 5 ,25 5 , 2 5 5 , 2 5 5 , 2 5 5 , 2 3 1 , 2 3 1 , 255 DAT A 2 5 5 , 2 4 9 , 2 4 3 , 2 3 1 , 2 3 1 , 2 0 7 , 1 5 9 , 2 5 5 D A TA 255,2 5 5 ,2 4 3 ,2 5 5 , 243, 2 4 3 ,2 3 1 , 255 D A TA255,2 4 9 ,2 4 3 ,2 0 7 , 207, 2 4 3 ,2 4 9 , 255 DAT A 2 5 5 , 2 5 5 , 1 2 9 , 2 5 5 , 1 2 9 , 2 5 5 , 2 5 5 , 2 5 5 DAT A 2 5 5 , 1 5 9 , 2 0 7 , 2 4 3 , 2 4 3 2 0 7 , 1 5 9 , 2 5 5 DAT A 2 5 5 , 1 9 5 , 1 5 3 , 2 4 3 , 2 3 1 , 2 5 5 , 2 3 1, o j— t c; O c; iJ DAT A 2 5 5 , 1 9 5 , 1 5 3 , 1 4 5 , 1 4 5 , 1 5 9 , 1 9 3 , 2 5 5 DAT A 2 5 5 , 1 9 5 , 1 5 3 , 1 5 3 , 1 2 9 , 1 5 3 , 1 5 3 , 2 5 5 DAT A 2 5 5 , 1 3 1 , 1 5 3 , 1 3 1 , 1 5 3 , 1 5 3 , 1 3 1 , 2 5 5 DAT A 2 5 5 , 1 9 5 , 1 5 9 , 1 5 9 , 1 5 9 , 1 5 9 , 1 9 5 , 2 5 5 DAT A 2 5 5 , 1 3 1 , 1 5 3 , 1 5 3 , 1 5 3 , 1 5 3 , 1 3 1 , 2 5 5 D A T A 25 5 ,1 2 9 ,1 5 9 ,1 3 5 , 159, 1 5 9 ,1 2 9 , 255 D A T A 255,1 3 1 ,1 5 9 ,1 3 5 , 159, 1 5 9 ,1 5 9 , 255 D A T A 25 5 ,1 9 3 ,1 5 9 ,1 5 9 , 145, 1 5 3 ,1 9 5 , 255 DAT A 2 5 5 , 1 5 3 , 1 5 3 , 1 2 9 , 1 5 3 , 1 5 3 , 1 5 3 , 2 5 5 D A T A 2 5 5 ,1 9 5 , 2 3 1 , 2 3 1 , 23 1 , 2 3 1 ,1 9 5, 255 DAT A 2 5 5 , 1 2 9 , 2 4 9 , 2 4 9 , 1 5 3 , 1 5 3 , 1 9 5 , 2 5 5 DATA255,1 5 3 ,1 4 7 ,1 3 5 , 147, 1 4 7 ,1 5 3 , 255 D A T A 255,1 5 9 ,1 5 9 ,1 5 9 , 159, 1 5 9 ,1 3 1 , 255 D A T A 2 5 5 , 1 5 3 , 1 2 9 , 1 5 3 , 1 vJ 1, 1 5 3 , 1 5 3 , 2 5 5 D A T A 25 5 ,1 5 3 ,1 5 3 ,1 3 7 , 145, 1 5 3 ,1 5 3 , 255 D A T A 2 5 5 ,1 9 5 , 1 5 3 , 1 5 3 , 153 , 1 5 3 , 1 9 5 , 255 DAT A 2 5 5 , 1 3 1 , 1 5 3 , 1 3 1 , 1 5 9 , 1 5 9 , 1 5 9 , 2 5 5 DAT A 2 5 5 , 1 9 5 , 1 5 3 , 1 5 3 , 1 5 3 , 1 4 5 , 1 9 3 , 2 5 5 DAT A 2 5 5 , 1 3 1 , 1 5 3 , 1 3 1 , 1 5 9 , 1 4 7 , 1 5 3 , 2 5 5 a a Q a a a o c t ii GENIE DATA 1 6 0 1 6 1 1 D < A — £ "T 4 < L. er. X k_j L. L. Ä w —y i L D A T A 2 :5 .5 ; 4 D A T A 2 5 5 * S D A T A 2 5 5 4 D A T A 2 7 p. - i c D A ö- S D A T r \ s\ u ri T 69 D A T *7 0 p, £ 1 A 5 2 5 4 I ® •if-ie r'rr-. —T 4 -r i t-i 5 4- D A 5 1 1 7 ■£: 1 i. 7 "7 D A e r er t i~ i ^ cmc w -' t^r o . T 1 “?■ O D A - r rc - c* i r- \ j i . w ~ ' : 1 "7 9 p a f ^ *2 5 5 4 1 S 9 1 9 0 D A T A 2 5 5 ■* * 9 D A T& i£si ^ T A o 1 u D A T 1 S 4 A *=5 Vij. ^ 2 5 5 A 2 5 5 D A O er 1 L_r -v-J D A T A 2 5 5 4 1 8 D A T i 6 P ^ D T A A 2 5 5 A 2 5 5 T A 2 5 5 D A 1 8 9 D A T A 2 5 5 1 9 D A T A 2 5 5 T A 2 5 5 D A T A 2 5 5 D T A 2 5 5 \ 9 i D 1 9 t ■J o “T 9 4 D A A T A 2 5 5 1 9 5 C H A R 1 9 6 R E 5 T 0 R E 1 9 7 F 0 & % = READ POKE 1 9 9 2 0 O N E X T 20 1 R E T U R :. -l„ - .-.f.-vcr- »3 V i !' 4 y 4 cr; n c r *■ A;_ w? vJ 4 Hi .1 Q *T 5 ■■n **■ ■j *? ]T 4 ■■. J- 1W: C 1 G2M v i J A fT; 7 1 9 5 1 3 1 T t •■? Q 1 2 9 2 5 5 ■*% c r c -J w 4 2 5 5 .“ , cr; i 9 5 n 2 .3 1 * ’T t r 4 2 i 0 9 5 4 1 i .4 2 4 9 1 4 7 1 1 2 3 1 1 9 ■-^ 5 2 5 5 4 n c r c T a. 4 2 5 5 >* 1 ez; •'/■> c r csr * 4 1 .1» •f-V CT CT A_) vJ 4 . 1 2 5 S 4 n ir c ••r> c r cr; * ^ -J X 4 y* 1 5 “T 7 ■1 1 4 _4 1 5 4 1 9 5 H F 6 0 0 & H F 7 F F T Q y . , B 7 . y. N D Q szasB I ;* ' .: r ; 9 lj ::: k l M f“ . r~i d !-J ' 1 ’-ir f" : ._i r-r 4. 7 -:: 1 4 3 1 4 7 2 jii 3 tr* c r uJ vJ 7 C C : 0 5 1 4 7 •-\ c r c r ^ \- t ■>-) 1 9 5 n c c r X . u—1 s_/ 1 Q ^ 2 1 4 7 5 5 ^ 5 c c _ l •_> 1 9 5 % ^ 4 2 5 5 n c cr 4 * ; w >J !*-, c r cr. 4 ■“ I C C i J J 2 4 9 /-n 3 i i "7 ^ 2 5 5 2 3 3 1 1 1 c r -T 1 u 0 9 2 4 3 1 9 5 cr 4 2 5 5 i—< c * c r 4 i J J 2 c . ~r 9 5 5 ’- j O ~7 1 9 cr —T 5 5 ^ 1 “T 5 2 ^ 5 0 5 7 1 5 9 3 5 2 2 T 5 9 4 2 5 0 i X 9 •k 2 4 4 2 TJ. - *-i e r c j 1 9 9 5 3 i 2 T 3 3 1 5 3 * 1 9 5 v c ; .c 9 5 3 1 9 4 1 5 T* cr; r r - 1 3 1 1 5 1 5 3 1 9 3 4. ■1 2 1 1 5 5 *7 T 1 1 “7 7 7 5 4 cr, -T 4- 2 ' 5 5 *1 1 5 2 3 O • 1. T c r 4 • x- •«.* •r\ * r 1 % 1 5 3 c* T wt “T O ~T 2 3 * ~r_ n “7 * 5 7 “7 2 0 4 1 3 5 Q 1 5 A D 7 4 2 3 1 5 cr •T v .c r.'c r 5 1 4 4 1 1 c? •-* X ■i c r C> 3 7 5 5 2 5 5 . cr; e? 5 tr 5 9 1 9 5 1 9 i n 4 2 T c r *7 j A T ">' ' : ii w :~f 1 “ ?Ü J, i’ S H Jt. rn rr^rg B 'g ^rrg T T ia r j sre re ra n r a T T T ia r a ^ ^ T 1 2 5 5 i .^v 7 A 1 2 9 4 1 : 2 ir r ■frt vx‘: c r J ■4 1 I 1 4 *-» W .* •r^VC^'CT' •r*i: tfr.r c?'; •1 . CS|..,W T O tr ; 1 x . w ■ . ( 4 n ik 5 4 1 *■1 e-' 1 cr 7 1 9 £ .A — ..'*!*-!• 1 3 1 1 \ 4 4. 4 c r "T t 1 9 3 wi : 2 4: 1 •"> C? c * ^ ^ cj C C" I T 2 * 4 ^ .„J >J •f-v tsr; k " ^1 'T* t") *7 5 2 2 A * 4 A --5. 'S 1 2 *■ T IT' .ri't'- '-/•■'•' • S : ; H . -i-' L-i h-!. , 1 9 9 BX in 1 5 3 I j 4 <5 - 0 7 * 1 sr; 9 —i c r xn- 3 i O er; j. . 4 2 0 7 c r cr * 4 X 3 1 i X 7 1 5 1 _n *r cr ^ *r n cr 7 ■lJ » 1 4 7 1 5 1 5 3 * .‘ 3 1 ~T •J. 4 4 <. : i— i' .":r • r"^.' ,n U r"i !"} l“ ! |:| £• p ’T *•>: rV.'T:; 0 :E :.£'0':£ p c i ; .**i 1,j w= K’ H1 ; s L-i\:J. ■ 1 1 C M 4 o 1 5 3 4 4 E e xa sE E E B sa ssssa B sa e a •:ü 3 - ' 4 1 9 4 9 * 4 cr 9 i_j '*w -W - ^ 9 j T 5 “T n 4 1 R A 1 9 8 3 ^ t A 4 -J '-71 V a , ■ “ > e y .c r v r~l x_ w . w Q D 1 w w 0 i ^ 2 5 5 1 /I *+ 7 * 4. 2 4 2 4 9 c r ’T 9 q /, * ~ *=:■«;! t ri ^ w V D •;-i ':c r 5 cr “T 'f-? D A 1 1 5 : '2 ':0 - 7 « a 1 y , | 9 :2 ;4 .9 D A 1 3 . (. T '■+-"-0 :Q t A S •V :' e j l o * r /■> -Ti c r c r 7 f : 1.' S T 1. ■ 1 - 5 7 ^ ' 4' jk.. CT P*’ t c**t >•■>. w 4. : i } m . J 2 3 1 4 D A 6 1 X 6 A 5 5 '- ‘ c 0 r n c r tr Ü -i 4 * <7 c ; c t 2 5 5 . 19 20 GENIE DATA Rainer Schmies ZAR ist ein Programm für den TRS 80 oder Video Genie in Z80 Assembler­ sprache geschrieben. Es ist eine A rt Invaderspiel m it Ton und Grafik. Sie haben die Aufgabe die Raumsta­ tion, die in der Mitte des Bildschirms postiert ist, so zu steuern, daß Sie die von allen Seiten angreifenden Gegner abwehren können. Die Geschwindigkeit m it der die Gegner auf die Raumsta­ tion zufliegen steigert sich dabei au­ tomatisch. Gesteuert wird die Raum­ station durch die vier Pfeiltasten, die bei Betätigung auch gleichzeitig einen Schuß in die entsprechende Rich­ tung auslösen. Für jeden vernichteten Gegner erhalten Sie 63 Punkte. Haben Sie einen neuen Highscore aufgestellt, CT-~. nr. 521©:: 522:0 s 523S» 5240: 52501 5 2 £0 5 327S; 5230 s 5290" 52GB: 52B0" S2C53 : 52D0: 52E3: 52F8 = 5300 s 5310: 5320 5 5330 • 5340 s 5350: 535© s 5370: 3. 'aL1 ~—r Qr O w' 3C 3E 3D 3D 3D 3D 3D 3D 3D ^o rg 03 01 21 59 23 05 Bl 53825 s 5330: 53R0 s ■F FF DF 53B0 53CS " 53D0: 53EB'» CD CD 03 FE können Sie Ihren Namen eintragen. Durch Drücken der Break-Taste kann jederzeit das momentane Spiel abge­ brochen und ein neues begonnen wer­ den. Die Clear-Taste bringt das Pro­ gramm zum vollständigen Abbruch, In jeder Phase des Spiels ist es mög­ lich, das Spiel durch Drücken der Ta­ ste S anzuhalten, nach Betätigen der Enter-Taste wird das Spiel fortge­ setzt. . Nach dem Abtippen des Listings können Sie das Programm auf Casset­ te abspeichern. , Start: 5200 H End: 61A0H Entry: 5224 H ■ o 01 2 p: ED 80 i_j<:■ : n r ~y.r KE 21 23 DT C11 20 20 S3 o V0 21 D0 Tf- 10 3D w TP C7 3E D7 T,C 37 3E DPI 3C D7 Pi4 3D E4 3D E0 3D E3 3D EP 3D 2Pl 3D 7 c. 3D BE 3D 7C 3D BC 3D f o El 0F 21 7H 03 3E Ifl 22 0Pt 21 13 00 ED es ES 54 11 SS 52 3E 4P! DD DD 2*~j 3D 20 3E BF 77 IS 20 E9 CD FS CR D0 5 4 F E CB er 12 CD 12 CD B E 53 BE 53 Ifl CB S3 E0 CD C9 D3 PP 0D 20 3‘t, r a ? D3 FF ;_T ,i ■“'"j 0S C IE 30 CD i d—i L—.;i 03 .... 33 R0 3C BS ftC 2i BF Bh 4E 3D . uj■ Lr f cn 3E CD 57 3C’ 17 DD SC E0 24 TCT i_. £4 EPi 3 c. fiPi EPi 3C ED FS 3D FT:; FC 3D 3C 01 11 00 52 3EV. IS 00 00 21 95 54 3F 01 35 5E 00 DD EE 21 SB 07 CB 7F 53 CD D7 0D CPi &R BE 5 3 lft Ifl CB D7 C7 12 CD 08 D9 F5 C9 “ TT U-. 33 55 D ^ ! i7'; 52 /, C.- erp00 «TO OS..' C;f*‘ Qw" MC SP Ü4 ytX) cs D0 T CT D7 7,r 3E A4 T|E7 SP! “Ti”' F0 3D F0 3 b 7C i i 7 Pi 0E 06 vJ 11 43 00 ED 01 01 •-.r* 03 53 CD 55 C3 CB PT 12 CD BE o3 C9 0 E 0 i r\-r 3D rEl E'3 ’•0 20 i7if“ S4 3S 9 Ki 'j.:L,- C7 3D S3 yz: l E 3D 97 “ r; E4 T lT E4 3E 2Pl 3C F3 3D ED 3E FC Ter El -‘i— C*-"! T'■"> 21 3F B0 F5 C0 EE 2B 5E 12 BE 13 03 FF 00 C.0 irr'. 00 2ß 20 3C 3E 3D 3D 3C 3E 3C 3D 3E 20 0C 54 3B SS SC 7E 77 i 1 00 CO­ ES' FD 2& ■-i X? —v ' Cfl. 3C 4S CC 3D 57 3D 24 3D DR 3D E h 3D FE 7,r. FC 3C CD C3 77 ED j 2 21 11 53 00 ED E0 DD 53 Fl FE 20 0B 47 01 CD CD 02 3F 00 CPi 5Er 5 3 5 3 0 b 03 lfi CD BE 5 3 10 “t/;« Ifl CB CF 10 Dl CS DE) T C *_i ■:_ 01 D3 FF 3fl 55 52: 4 7 CC F5 53 ■V,-’1 52 E n ,... 83 rr\ i., c-/. r Li ;r~‘ 17 64 Dr.> ftPi 3E 3C 01 B0 20 3CB0 21 T>D 20 7S FE CB CB 12 08 TI7 •_JL_ 1 0 55 GENIE DATA 52 47 £7 C2 54 3F 01 B0 C9 3C 45 48 4D 50 52 2 0 53 45 41 54 43 43 23 52 20 4E 45 CD 53 C3 97 50 55 CD 53 . CB BF 3C 01 CJ”1 3D 07 00 B0 18 D7 53 C vJjÄ . 22 IZ’Z 14 ■-»m 15 0 i 08 ED B0 ED 52 16 52 08 CO Cfi SB 16 c: “ « 56 CD crr*i W V..1 n cJLJ CD r\7 55 5638" 56425» 3E B0 5 6 5 0 s FE B0 11 C0 5560: 5670: 36. B0 56S2) “ 2 0 1C 5690: C2 02 5 6 0 0 1 20 52 20 C2 56B0: 56C 0 ' 20 20 B5 C2 56D 0: 20 18 5GE0S 56F0: 7 7 C9 40 F2 5700: 5710 s 11 C0 5720: 00 5730: iE c ro 5740: E9 Jw 5750 s B0 77 5760: 21 00 5 7 7 0 s FE 00 5 7 8 0 r. F6 5S 5730: 10 52 5 7 h 0 " CF: CfT 53F0J 5400 s 5410 = 5420: 5430 ’ 544B: 5450: 54b0: 5470" 3480: 5430: 5400: 54B0 54C 0: S4DS ' 54E0S 54F0: 5500: S S iS n 5520: 5530' 5540: 5550 = 55B0 = 5570: 5 5 SG): 5530 s 55A0: 55Bß: 55C 0 !! 550 ® 55E0; 55F0; 5BB0: S S 10" 10 1B 11 07 20 4E 43 45 54 52 4P 20 53 2C 55 77 20 55 77 00 FE C9 3E 54 21 40 54 A3 3F 01 07 00 : ED B0 21 20 20 20 20 54 45 ■52 3E 45 53 20 50 53 53 20 3C 41 52 54 20 3E: 20 46 4F 4E 53 ; 43 4F :■31 ;33 ; 43 43 4D 43 20 ;:;S7:: .45 53 7c. CB SF 77 CD 5 P. ■55 20 F7 CD 53 55 7E i-GBii- 0F 77 CD 50 55 20 04 :/ED^ B0 CD CB 7F ''• E0 21 ED B0 ■'/■’■i*.© w-':' D3 iU1:: 00 C'C 01 DS 23 W ! i 70 1 <-i B l r IC e 13 WXn v22:;52 *7".T-,v.:. 12 52 52 0F ''..yÄ: DC 21 44 :'S2.00 ED B0 18 13 01 08 00 1C FE 02 ^ f i l 00 00 FE 00 F7 .5 5 T/7 55 : fe | 10 CO ©6;: , 52 56 0F CD 24 ■5p:; CD „CB 33 57 0E 52 C$q 5B 'CDv 30 5B 2D IC ■■■.c 7C B5 77 C3 :;0 2 | :H56; 20 20 0 4 : 77 19 FF 7C DE/ V3B 77 zlz! IC :;52^ 11 52 77 '21% 00 00 56 21 64 3D *“i 7C B5 C3 CD £3 67 57 3E BB 77 TO ■Smllirr 77 Ä 20 tü 00 56 02 21 60 3E Cy"i 7C B5 C3 CD FE SC 23 04 3E IS 57 7E FE 20 FF 13 3E 20 77 18 52 C9 20 •J.E 52 TTfT B0 77 C3 2B 7D D6 C0 F0 3E Itil y'1 1E : 52; 00 •“ «O- IE C9. C2 7F 5 7 ; 3E" 01 CD 43 5C CD 03 n D OE BC CB FF DD 77 BD 30 04 C9 11 00 32 20 52 52 45 47 52; 50 20 45 54 CD F7 76 CD F7 2B 20 32 00 C9 22 30 3D 21 pT 30 3E CC 30 5S 3D 30 C2 IC C9 CO 40 22 20 5S -O 00 22 E9 B0 :c 2 C9 52 02 50 20 FE 30 SC ED 54 20 41 45 4E 41 20 59 42 53 2D 50 CD CB 50 CD 00 0D 54 04 CD IE ji! 0i 34 ED 08 01 56 40 CD -i*;! 01 02 52 FE 7E 00 IC 52 il3 20 22 i o J. C J 58 77 67 3E 7C 56 57 77 2E m 5B CD DD 77 DD 54 3F B0 11 3C 49 53 54 4D 49 52! 59 2C 47 55 53 07 55 C9 FE 21 11 C9 C9 52 52 08 52 B0 52 52 01 C9 SC 43 4E 45 45 45 4E 49 20 20 45 20 55 77 20 01 0D 40 D9 D9 01 22 3D 00 11 30 FE 79 16 FE 20 p 3S E0 56 0E 52 33 CB 56 21 7C B5 SC 20 56 7E 13 36 52 C9 3E B0 7D B7 52 2B 20 52 52! 3E 7E FE C9 11 57 20 20 B5 C2 20 IE 7E FE C9 3E C3 CD 52 3E 02 5B BC 30 0E BE 3D 07 21 3F 4C 45 4E 52 2C 53 47 co •_) 43 52. F7 7E CD F7 21 CO 54 3F 06 21 20 32 00 39 01 45 52 54 3E 20 54 48 41 4F 4D CD CB 50 CD 5B 63 11 01 50 00 52 O“« ED DC 40 01 52 CO 00 CD CC 77 00 CS 04 FE 20 20 77 CO T5T B0 3D 38 CR 30 25 20 46 31 C4 3D CD 3E 20 77 20 C3 BF 20 20 77 20 00 77 52 56 7C C2 20 C9 S3 S3 40 83 IS 02 cro 20 20 F6 3F 30 04 54ED 54 07 41 20 53 20 3C 52 54 49 4C 41 53 9F 55 53 5C 55 D9 07 10 00 21 52 11 01 FE 02 40 57 04 56 59 5B E3 83 C2 C9 52 32 56 77 10 C3 04 19 77 21 B5 67 16 crrt s j‘_ ' 30 “T*“ ' 04 04 52 52 DD CB FF DD 52 B0 11 00 52 53 20 54 43 55 20 4E 4F 4E 55 77 20 55 11 30 3F 00 FE r-. 00 CB IC 08 04 56 ‘T-'r'i FE OF .CD CD 60 IC 53 77 67 3E 7C 56 7E C9 52 02 3E 7C IS 21 DC CS 57 52 03 52 CB 21 03 ED 3E 43 30 4F 4C 43 -’*>0 45 47 59 7E CD F7 7E 00 01 ED CD 10 3C 67 3E 00 Cft 30 FE 40 y-Z* 3F FS C3 55'. 7E C9 c;y 20 B5 20 FE 3E 7C 56 BC DE 52 00 3D CD 3E 77 52 CD DD 20 OE BD 77 BE 21 G E N IE D A TA 57B0 : 57C0: 57DS: 57E0: 57F0: 5S0ß" 3 SI 0 ' 532©; 5S30" “jü40 3852) s 5SS0: 3370 3 00(71 “ v^UUU w S S 9(2: 58A0: 5SB0 ■ 5QC0: SSD0: SSE8 : 53F0: 5900 : 591 Bf 5920" 5930: 5340 i 5350 s S3S0: 5970: 59S0; 5990 s 5SA0: S9B0 i 59C0: 33D2J ^ 53E0! 59F0: 5 Pi00 s 3010 a 5020: 5030; 5040: 5050: 5 ft6 0 : SO70" 5 OS 0 5 5090: 5P1A0: 5ftB0: 5 AC (25: 5OD0 : 5AEB: 5OF0: 5B00 5 5B10: 5320: 3B30: 5B40: 5B50 • 5B60S 3 ft C0 CI AE 77 DD DD t22 FF 24 CB 30 3F 40 AE 77 DD EA ED 3D 03 2 er CD 01 3C 3E cs sc sc r ~-i_~t LJ 00 30 11 “TO 11 FE CJ>~( Dl 21 ES 67 10 04 04 5B C2 20 20 03 21 E5 SB ED ED 03 03 1F S0 04 Fi’”' DD AE BF CB FF d d 77 cn* 30 04. 52 DD Ht CB FF DD 77 C 0 30 04 :rj■ DD AE C 1 CB r b"‘ Ü i-■* 7 / DD DD AE C 2 CB erP DD "i 7“{? C 2 30 04 30 04 c C4 FF DD 04 DD CB 5 2 AE 77 C3 30 C3 CB FF DD 30 06 O-;. C4 3 A 04 52 DD OE C5 CB per DD 1!-1/ OE pp CB FF DD 77 FE 3A 04 52 DD AE FD rp p-p Ljr_v lTC DD 77 erp 3A 04 77 FD 30 04 ET-;. DD ae: FF r üi -, ijb 04 ■r;“> DD AE ' DD OE 00 CB FF DD 77 03 C " I DD ~t 7 01 30 04 DD OE 02 CB F F" DD 77 02: y,o, C 7\ 52 DD OE 03 CB FF' DD -y~r V j--.' ~ -_*r'ri 04- £2 r-,p. rVCDD AE 3D L,y Pr DD 77 3D FF’ DD 77 3C 30 04 04 Cv> DD AE 7C1 CB FF DD 77 3t:. 30 04 52 DD PiE Jr i-.“.:. DD AE 40 Cp. FF DD ~7 / CB cp DD 77 3F 3 A 04 e e r DD 30 04 j*: DD AE 41 CB f f DD 77 41 30 04 42 CB FF DD 77 42 30 04 5 k’ DD AE 43 CB FF DD 43 3A 04 52 DD AE 44 CB FF DD 77 44 30 04 52 er•“( C2 AE ■45 CB FF DD 77 45 30 04 52 3D ~7‘~' 04 J^. c "L.. 0 B 57 AF 32 S3 52 DD El C-3 63 55 ED 4B 00 V-J-4 C ' b “ ! 43 00 52 7S Bl C 0 2 1 20 03 jcl 00 o*;:. 30 0 C 52 r-'". T’^i 0E 52! C9 0 S 00 7.E ßl D3 FF -T.CT CS y.-s 0C e j,: D3 FF 10 FE ■C9 20 14 S 2;! r,F 20 77 11 47 00 13 14 cr.-> 7C DE 40 F2 12 59 7E CB 7F C2 FC SF! 3£.‘ C3 11 00 FC IS) 22 14 rr**.< C9 CD 90 00 CD cs 14 _ ,\ 52 Ec? 03: ct7F 00 C9 20 10 52 7C BS C0 . 05 00 ED Bß D9 20 10 52 11 40 00 1'Zs c c ; D9 Div 01 00 ED B0 C9 20 10 52. 7C FE 3E C2 67 57 7D FE uu C2 E7 57 C3 57 5B 30 10 52 3D “T“ > 10 52 Oft oc U SE 00 21 00 3C 01 00 04 7E FE 20 20 m j GENIE DATA 5B70: 3B30: 3BS0: 3BR0 ■ 5 BBS * 5BCB« 5BD 0: SBE0: 5 BF 0 5C00 i 5C 10: 5C 20: 5C 30: 5C40 s 5C5S3: 5CG0S SC 7ß: 5CS0: 5C 90: 5CR0I 5C B0: 5CCK: 5C-D0: 5CE0 s 5CF0: 5D 00: 5D10 s 5020 s 5D30: 5D 40: 5D 50: 5DE0S 5D 70: 5DS0 5 5D 30: 5D ß0: 5DB0: 5 DC 0 5DD0: 5 DEE: 5DF® s 5E00: 5 Ei 0 s 5E20 5E30: 5E40 i «j ** 5E60 s 5E70! 5E8E: 5E30: DC k*'! E3 D3 ctr 1: ■07 15. C wT J“' ’-l«* 2E 21 21 0R 13 79 El 20 20 C-T O"-.1 20 20 20 20 20 52 45 /, c; 53 20 4F 45 42 4C 20 47 45 50 43 2E 20 20 20 20 20 43 53 45 44 4.2 tr 54 20 5 E A 0 : 54 45 5EB0: 53 5EC0: 5 E D 0 s 52! 5EE0: 20 w)b.F0 ' 20 5 F 0 0 ; 20 5FI0:' ” 20 20. 5 F20:. 7 7 i.a 07 CB 7F ->o 03 ; ■f^O: ;5 3 1B 7B: B2 •' W: CD prr 3E 0 3 i:D3; ::Fp5 p-• 01 0G C9 2‘Pi- QC. tr ■~:r\• 00 ED B0 0F i:52l CD 0 8 .30 ; ¥lik tFEi 00 ■:,F)0 21 48 20 20 l l i Ä 4E ■54 4 5 5J« ; ; g | Ä 3C ED B0 i i i i i : ; ;:5£: E.F 30 41. - i ® " iS : t Ä 7E FE D4 5 3 mm 'SSFi- 01 m CD BD 0F Ä 130; 41 j. i 1S mäi ® i :MM: F,1. i i 90 C9 E l 01 ; i l ; 0 0 Ä p 'w>rl U-* CD SC 0 3 CD Ü l ■ 20 20 20 2 0 “'17! Ä 2 0 20 2 0 = i l 43 4E 53 20 23, 20 ;Ä W& ■20 20 20 20 ■ ;2 i l i t : ■.20:; 2 0 2 0 2 0 20 S t l; siM 20 20 2 0 20 2 0 20 20: ■;2(® Ä 20 20 I I ® IM : 20 20 20 20 ■ S Ä 20 20 20 CT^ 4F 2 0 4B 45 59 20 4D 43 \S3:- ;S3- ■■49 4C i'Zii 1 1 5 9 2 0 5 4 53 54 "■■ w(O .*-2 0 20 ;:2 t i i ® 2 0 2 0 20 h-*|_J 4 9 iS ® l l ; m 4F! 4 3 4F 49 4E Ä ;2 E : 2 0 49 4E 20 43 48 m Ä 41 53 i l 2 0 20 20 4C 20 20 4 4 4-5 41 54 m iS 4 l 4 8 4 5 2 0 20 59 W i I I S 2 0 4 8 41 5 3 2E 2 0 2 0 Ä i ;:: 20 20 45 45 4 4 :;20i: 53 20 41 4C 4C Ü Ü 20 49 4E 20 20 2 0 §21; 2 0 20 20 20 20 2 0 M l i l ; 20 20 20 20 2 0 mm 2 0 20 20 20 2 0 20 W&s. 2 0 20 2 0 20 20 ■■m S S 20 20 20 20 }. t& m 20 2 0 20 4C 45,. ;3.EK 20 4B 2 0 54, 4S Ä Ä l W.* 41 54 5 3 c-*v M & 20 54 4F 5 3 20 Ä ;;I © : 20 20 C*-“ » 45 41; 4B ■ ;j£X;:v■20:: 4B 20 54 4S f s ! S M 4 7 41 41 <— 20 4E /■ £».: 20 20: 20; 20 2 0 W ": 20 2 0 b-E 1o D3 52 9Pi 12 53' 20 2S 00 00 CR pa pc.c.t 20 54 20 20 20 20 20 20 53 45 48 20 52! 48 45 20 53 42 5E 20 41 43 20 20 20 20 20 20 45 4D 4F 20. 45 4D 45 20 3F 7*7 *L--> Dfi ■^c 03 FF 3E 03! 21 CD 5B m CD BD '"i ”5’ 13 13 43 4F CT“! ■“.' *1 DE 5P0 0 CD Oq 2 8 05 12 ED B0 2 Ps 3F 7E FE 3F 01 0 5 FD 7E 00 E I T-:i* C9 2 0 20 20 20 52! 55 43 20 20 20 20 20 20 2 0 20 20 20 20 20 20 20 20 20 20 55 2 0 54 4F 53 20 41 45 20 41 20 20 45 45 53 20 20 41 4E iJ-«» 20 5 9 20 20 49 54 52! 4F 45 47 49 4 q 23 "^3 20 20 54 54 4F cr.-i 4 5 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 59 20 41 45 2 0 41 20 42 41 20 20 d 4 59 20 41 4 5 20 41 57 20 4F 20 20 3C 3E 20 . 41 2 0 .54 4F .55: 20 45 41 4B ■4E:; 44 20 3C 46 3E 20 4E 48 20 47 41 4D 45 2 C 41 4E 20 48 41 5E 45 43 20 20 20 20 20 2 GJ 20 20 20 20 0B D3 D3 1J TsF' F bj 45 01 SP *‘! 00 00 00 4F 20 20 54 20 20 20 20 20 5-.':' 20 4E 4C 5E 36 20 4F 54 59 4E 20 48 4D ho 25) "i7. ■ ■ „l•y.) ±.\ 20 20 43 4E oo.« 4S 42! 4E 4E 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 : 20 20 20 20 20 20 20 20 20 20 20 20 2 0 : 20 2 0 : 20 20 20 20 2 0 „ 20 _20 20 20 2 0 2 0 2 0 2 0 2 0 20 20 2 0 20 20 2 0 20 20 20 20 20 20 20 20 20 20 78 B l .20 jr iT Öl r K- •Ci’”’ D3 w 31 21. 30 4 1 ert;‘ /, u' O0 42 41. 0B 00 1 1 CD BD 0F 13 18 FG 52 CD 9 Pi 2S 05 1 Ü. ED B0 ”TiT FD >72® 2 0 20 20 2 0 4 9 4P 4F' oin J.'S.} 20 20 20 20 20 20 20 2 0 20 20 ■"•pi 20 20 :20 45 20 41 — 4E, 49 C „JT'.c .t 44 20 44 43 '45 4E 45 5 2 c; c'.'j 33 20 5 0 41 4C 4-9 55 20 20 57 49 45 44 2E 4E 49 4E 42! h 1 !!)•-:■ 45 20 er 41 54 4 9 4S 4 Ir. /,-/ .£y.} ” *i7{ 20 ■ • 2W .r; dXO •-j-V; 20 20 20 20 45 20 54 4F 44 2 0 CT 49 4 3 JL!"• 45 ^.'Zi 3C ftF D'Z 544 4 20 er-;-' 45 i!u -S,‘ /.r'* •A->CS 4 Ei /l*U =• 4 5 J H CÜ-J“ ''- 4F .»i.ft.T.i' 41 20 /, 23 20 20 20 20 20 20 20 20 20 20 20 20 4D 20 41 20 59 23 24 GENIE DATA 5F3K: 5F40: 5F50: 5F&55: 5F70: 5 FSB s 5F30S 5FFIB: 5FB0: 5FC0S 5FDß: 5FE0 ‘ 5FF0! £000: 6010 = 8020: 6030: 6040 s 6050: 60B0: £0725: 60S0: 8020: £ 000: G 0 BÖS 60C0: S 0 D0 : 60E0: E10F0; 6100". ET 20 4G 4F W;V k-i 4 D 20 42 4s !/*• c-y ■“'3 15 20 ED D 3 FF 10 FC C9 CD CS 01 xlli SB El 11 DB 3D 01 00 ED B0 CD SS £0 2 Fi 00 C-”\ E5 Dl 2A 0 b 52 7C F2 PlF B 0 ED 52 7D 33 r'jd PiF &0 LrO ED 52 CD 01 0 B 52 00 52 EB £0 11 00 T n 01 S0 ED 80 IE 00 CD 48 5C iD 20 FPi CD Fv 52 21 CE SB iÄ DD 21 79 b 1 CD 49 00 FE 0D Cfl cr\ L_i_y 52 77 77 m DD 9T( 10 EF C3 ED 52! 43 4F 4E 47 52 T j’ 20 SL. 1 ü 1 *i!1. 1 2 i. __i'> „► 54 55 4C 41 54 49 4F 4E c; 4h 55 20 52 45 41 4C 4C 5‘rJ 20 45 D 41 44 45 41 20 4E 45 57 20 47 45 41 54 20 48 43;;;4;7: 2D 43 4F 5 z 45 20 21 21 21 20 2 0 ' 20 20 50 45 41 5--> ^5 20 45 4E 54 45 cr~i 20 53 4 F '155:; 52 4£ C'5 4C 4C 20 4E 41 4D 45 -ip: 20 v o-: MM 41) JJ 4D 20 49 53 20 -r-! 38. 20 ':43;;iS ;:4;i: ;S g ; 20 Z-l' ■::4D; J_I 20 20 j 54 45 vJ d j 20 5G 4 D UjL. 4E 41 4D 45 3 fl 4Ps ■^'qCT20 20 5.-;!: 5.5 G 120 s 48 Ei 301 4C 5140c 'L\.3 S1 E 1 6 0 1 <-i-3 b 170; 4r B l 83» 48 4E 43 43 4B 2 0 2 0 2 0 2 0 V20 l ö if er C3 53 55 7E CB: : AP 7 7 CD ;:5jf:;55\ 613® s •"F:7 :j” BIAS: 10 53 55: IQ-Etnkaufsführer! Anzeigenannahmeschluß für die Nummer 4,1984 ist der 20. Juni 1984. MÄUSERENNEN - HELIKOPTER Die Mäuse rennen, die Helikopter flie g e n !!! Aber noch ist es Zeit auch für Siel Machen Sie m it! Noch können Sie gewinnen! Eisendeschluß für die letzte Rennmaus und den letzten Helikopter-Flug ist der 20. Juni 1984. Also lo s ltt NOCH IST Z E IT, ETWAS ZU GEWINNEN i i I M itteilung - M itteilung - M itteilung - M itteilung - M itteilung M it der nächsten GENIE DATA startet unsere A ktio n LESER SUCHT LESER. Unter dieser Rubrik kann jeder GENIE D ATA Leser seine Adresse veröffentlichen, um Kontakte zu anderen Lesern zu finden. Wenn Sie m it­ machen wollen, schreiben Sie uns eine Postkarte, auf der Ihr Absender steht und auf der Ihre haupsächlichen Inte­ ressen angegeben sind. Z. B. Paul Müller, Meierstr. 4, 1234 Schulzhausen, Interessengebiet: A /D Wandler, Colour Genie. Und wie gesagt, dieser Service ist kostenlos für alle Teilnehmer! Aber: Unter dieser Rubrik werden w ir keine Softwaretausch Anzeigen veröffentlichen! C 0 L O U R - G E IM I E SOFTWARE SCHMIDTKE . electronic Büro- und Personalcomputer Sandkauistraße 84 - I n E u [ a k t u e l l ^ p r e i s w e r t Telefon: 0241 - 2 3 2 17 5100 AACHEN ANDROMEDA E i n e r s t k l a s s i g e * d r » I d I m e n s 1o n a I e % U e J t r a u m s p I *1 m i t a n s p r e c h ­ e n d e r G r a f i k . F e i n d l i c h » R a u m s c h i f f e k o m m e n a u f 3 1 * xu| v e r ­ n i c h t e n Sie d i u » , bev or Ihnen w e r t v o l l e E n e r g i e abgezapft w i r d . Ist di * Z e i t a b g e l a u f e n , t o * l l t I h n e n I h r * H u t t t r b i i l t z u U i t i u , aber d u A u f t a n k e n w i l l auch g e l e rn t * • i n . (TCS) ' Art. 020 3?.- DM ö n ; P . T h o m a s :■ i E n d l I c h e I r r e w i r k t i c h ge I u n ge ri e ; V e r » I o n d e s berühm ten 'P ac - Man'xVbft-'Atiir M u t Uv m b t l d k c h i i» * r s c h « l n t « i n * K o t u n n « MOTTEN, d i « z u n ä c h s t .im S t u r z f l u g a u # S i « h e r n i i d v r f a l l t . Dan a c h sc h w i r r * n S i * y b « r d * n ß i l d u c h i r m , s e t z e n r n4 t d e r Z e i t »f umer ö f t e r i u b H t z a r t i g e n S f c u r i H ü y u n an u n d b « * c h i e Ö * n S t * m i t T o r p e d o » , W ehren S l « *»ch * ... i b * r m i t B e d a c h t . J e d e r Schuß von I h n e n , d e r Kelrt» H atte t r i f f t , v * ri» c h I * c h U r t I h r G»s*in t 1 rg « bn i * . ( TCS)" A r t . 022 39.DH VIER GEWINNT W ir senden Ihnen gerne unseren Softwarekatalog m it über 100 Programmen ( {Natürlich kostenlos!) PAC-LAB ■ MOTTEN D i * ABSOLUTE D E N K S P I E L M -I h r k l e i n s t e r F f h l f r lu I r d y c m Computer b e m e rk t. 0 1 » U t i n s t t Unau f m e rk » i m k « i t f ü h r t iu m U e r ) u » t de r P a r t i e , Der Computer k o n t e r t s c h n e ll und z u y * r l a s s i g , S i« haben f a s t k e in » Chane«* Z ie l is t »5 , S p i» lst» in » Io « i n s e n k r e c h t e s G i t t e r e I n i u w t r f en u n d d a b e i u j e r S t e i n « w a a g e r e c h t e d i a g o n a l o d e r s e n k r e c h t n e b e n e i n i n d f / ' zu p l a t z i e r e n j D a » P r o g r amm a r b f i t » t in M a s c h i n e n s p r a c h e , so d a 8 der Gegenzug se h r s c h n e ll b « r« c h n « t w i r d , (Kurf 9idkfr> A r t . 0 5 2 SeS 25.DM LABYRINTH {H. „ Ir) Ein S p ie l f ü r L e u t » m i t g u t e m r äuml f c h e n D e n k u e r m o 9 9 n 1 Si» b e fin d e n « ic h in f in#m L a b y r i n t h und s«hen n u r H a u e r n , G i n ­ gt und Türen uor s ic h . Ihr 2 i« l i s t «s m i t m ö g l i c h t w e n ig e n Z ü ­ gen d»n öu^QanQ 10 f i n d e n . A r t » 9 1 3 S*S 1?.DM ZAUBERWÜRFEL ; ; . :, 'Z . ■. . .. b e k a n n t*r> u n d :; M I t w u n d e r b a r e r G r a f Ik , ■ T o n , » t c . Im G e g e n s a t z z u m O r i g i n a l v e r g r ö ß e r t s l c h d i r A n z i h 1 d e r ' G e i s t e r ' l m S p t e T y e r l atif u n d m a c h t d a # S p t e t s o m i t n o c h I n t e r » s s a n t e r . In e i n e m L a b y r i n t h , d a s d e n g e s a m t e n Bl I d s c h I r m a u a f ü I ! t , m i l d e n S i e a l s 'Evll Emil' m ö g l i c h s t viele Pu nkt e sammeln, ohne von den 'Geistern' • i n g e f a n g e n zu w e r d e n . Di e b e s t e n S p i e l e r w e r d e n in e i n e r R e c o r d l i s t e a n g e z e i g t , so d a ß S i e ln I h r e r F a m i l i e o,4, r e g e l ­ r e c h t e W e t t k ä m p f e a u s t r a g e n k ö n n e n . P a c - M a n ist e i n e s d e r ä l ­ testen V i d e o - S p i e l e , .... u n d «■'tiies d e r s c h ö n s t e n . N i c h t u m ­ s o n s t ist e s s o b e r ü h m t ! ' P A C - L A B ' Ist di e v e r b e s s e r t e V e r s i o n f S r I h r Colour-GenIe . Art. 63 3 SeS 3 9 . - DH PAC-LAB II O ie N a c h f o l g e v e r s i o n von PAC-LABi Da* B i l d s c h i r m f o r m a t w u rd e d u r c h U k n p r o g r amm i e r u n g d e s CRTC v e r g r ö ß e r t , s o d a ß e i n n o c h g r ö ß e r e s L a b y r i n t h z u r V e r f ü g u n g s t e h t . Oer A b l a u f i s t e tw a s a b g e w a n d e l t un d d i e G e s c h w i n d i g k e i t s t e i g e r t s i c h v o n S p i e l zu S p i e l en orm . PAC-LAB I I i s t s o m it noch i n t e r e s s a n t e r , noch s c h n e l l e r u n d no ch s c h w i e r i g e r zu s p i e l e n . N a t ü r l i c h m i t a u s g e z e i c h n e t e r G r a f i k und h e ru o ra g e n d e m T o n. G e s c h r i e b e n von P a t r i c Thomas. A r t . 8 4 8 SeS 49 .DM LJe r k e n n t ihn n i c h t , d e n ' MAGI C - C U B E r mi t 5 » i n » n u n z ä h l i g e n M ö g l i c h k e i t e n , H i t d i e sem P r o g r a r m h a b e n S i » I h r e n 2 a u b e r u , i u r f e l In den C o m p u te r g e b a n n t . S i» können ih n p e r T a s t a t u r in je d e R ic h tu n g drehen . S ch a ffe n Sie es, i hfv r i c h t i g r u s ammen z u s e t z t n ^ : Ue t t e h d a ^ j . Sie u e rz io e ife ln * • CR-/. Mt r i . . A r t . 0 1 4 Se S 19.OH MASTER MIND D a* ; 9 r;b i^ ;: 3p i> r * ' > V« ^ ^ ug« K ö p f« 1 r i c Hi t. ig V : iu e r t e n . S i e: d i * H i n' w« i <.& a u * u n d !knacfe«n S r > ; < 5 « n .T a r b « n * ;CO D E, d e » Cc*r>pu t p r s , E s ; i s t k « j rt l e e r « « V e r s p r e c h e n y:'.w e n n w it ! h n ? n 5 .1 9 9 1 1 , d a ß i c h ort h a c h k t i P » r Z « t t- d ) K o p f « • ' q t / a lm<*n ' * : £ . .' . oioi = ? = 7H :■;v.: . . V 8-8H sh 11 - 8 h 12 = C H ^■ '.Tö ö o ^:^ ■: 5 = 5H ' 6*.6H H jV:■;*: 14 = E H (Wie;Si|fSplieft^MSt die Hex-Zahl immer durch ein nachgeste11tes H gekennzeicBinet!). Die7;:näfchste|fStelle ( zweite Das war natürlich sehr praktisch! Jetzt konnte man z. B. die duale von links) hat die gleichen Werte, Zahl 11100101 durch E5H erset­ aber m ultipliziert m it 16. Die zen (E5H = 229). Man sparte da­ nächste Stelle hat die gleichen durch viel Schreibarbeit und die Werte: mal!:25dV;und die letzte Stel­ Arbeit beim Programmieren war le hat die gleichen Werte mal weit weniger fehlerträchtig. Alle 4096. Wieso die letzte Stelle? anderen Firmen, die sich bis dato Es gibt doch sicherlich rnchr Stel­ , ■ noch mit dualen Zahlen quälten, len als 4? In der T a t! Aber die größte dar­ gefiel diese Idee so gut, daß man stellbare Zahl ist ja 16-Bit breit. sie übernahm. Nachdem Sie jetzt wissen, wozu M it einer Hex-Zahl stellen w ir 4 Hex-Zahlen gut sind, und wo sie Bit dar. Also brauchen w ir nicht Herkommen, wenden wir uns dem mehr als 4 Stellen, denn 16 ge­ Problem zu, wie man sie in unser teilt durch 4 ist gleich 4. Schauen w ir uns einmal eine dezimales System umrechnet, und umgekehrt. , Wertetabelie für 4 stellige Hex Also: Die linke Stelle einer: Zahlen an: 4. Stelle 3. Stelle 163 =4096 162 =256 : v 2. Stelle 1. Stelle 161 - 16 16° = 1 Jetzt wandeln w ir die Hex-Zahl 1FE2H in das dezimale System um. Und zwar Schritt für S ch ritt! GENIE DATA POP AF POP IN EX DE,HL ■ 2 x 16° = 2 x • 1 X 163 Also ist 8162 die gesuchte/Lösung. Wenn Sie übrigens nicht mehr die Zahlenwerte zu den Buchstaben A bis F kennen, können Sie die in der Tabelle von eben nachle­ sen! Jetzt wandein w ir mal rück­ wärts. Also eine dezimale Zahl ins Hex-System: Dazu teilen wir ganz einfach durch die größtmögliche Potenz von 16. Ein Beispiel: 39458 : 4096 = 9 Rest 2594 2594: 256=10 Rest 34 34 : 1 6 - 2 Rest 2 2 : 1 = 2 Rest 0 Jetzt müssen w ir noch die ganz­ zahligen Ergebnisse (9,10,2,2) an­ hand unserer Tabelle in die kor­ rekte Zahlen/Buchstabenkombina­ tion überführen: 9=9 : 10 = A ■ 2= 2 ■■ 2 = 2 Die dezimale Zahl 39458 ist also gleich 9A22H ! Pause!!! Entspannen Sie sich, lesen Sie den ersten Abschnitt nochmal, dann geht es weiter. So leid es m it tut, w ir hatten Theorie, und machen auch jetzt wieder m it Theorie weiter. Es wird nämlich warscheinlich wenig sinn­ voll sein, wenn ich Ihnen Bei­ spielprogramme gebe, ohne das Sie einen Überblick über den komplet­ ten Befehlssatz haben, den Ihr Z 80 versteht. Deshalb fangen wir zuerst einmal mit den verschie­ denen Ladebefehlen an. Vorher aber noch einen Überblick über die verwendeten Abkürzungen: r = eines der Register A, B, C, D, E, H, L. n = Eine 8-Bit Konstante, also eine Zahl zwischen 1« 2 4096 = 4096 0 und 255. = Eines der Register IX oder SY. nn = eine 16-Bit Konstante (Zahl zwischen 0 und 65535). ss = Eines der Register-Paare BC, DE, HL, d = Ein 8-Bit Offset (Er­ klärung spater!), jedem Befehl steile ich ein Äquivalent in Basic gegenüber, so durfte die Funktion des Befehles für Sie am leichtesten durchschau­ bar werden. Also, es geht los! Hier sind die 8-Bit Ladebefehle: 8-Bit Ladebefehle LD r,r —r = r LD r,n —r = n LD r,(H L) — r=Peek(H L) LD r,(IN+d) — r = PeekON+d) LD (HL),r — Poke HL,r LD (IN+d),r — Poke IN+d,r LD (HL),n - P o k e HL,n LD (IN +d),n — Poke IN+d,n LD A,(BC) — A=Peek(BC} LD A,(DE) — A=Peek(DE) LD. A,(nn} — A=Peek(nn) LD (BC),A — Poke BC,A LD (DE),A - Poke DE,A LD (nn),A — Poke nn,A LD A,l --- A - i . . LD A,R ■— A - R. : : ■ :... LD i ,a / ■./ - I LD R,A —R = A Ladebefehle 16-B it......,, LD ss,nn •- ss = nn ; " .. LD IN,nn — IN = nn LD ss,(nn} — ss = Peek(nn) LD IN,(nn) — !N - Peek(nn) LD (nn),ss Poke nn,ss LD (nn)JN — Poke nn,IN LD SP,HL — SP = HL LD SP,IN — SP = IN PUSH ss PUSH AF PUSH IN POP ss — IN 27 . - Tausche DE und HL. EX A F,A F' - Tausche AF und AF'. EXX — Tausch AF, BC, DE und HL mit A F', BC', DE' und HL'. EX (SP),HL - Tausch (SP) mit H L. EX (SP),IN - Tausch {SP} mit IN. Die PUSH und POP Befehle sind etwas kompliziert und lassen sich nicht so ohne weiteres in Ba­ sic simulieren, eine Erklärung hier­ zu folgt, wenn w ir uns den Stack­ Pointer näher betrachten. Wenn Ihnen diese Tabellen jetzt auch noch nicht allzuviel sagen, so brauchen wir sie doch später als kleines Nachschlagewerk, deshalb folgen in der nächsten GENIE DATA die restlichen Befehle. Hier noch die Aufgaben : 1. Wandeln Sie ins Dezimal-System: 43A2IH, F49AH, BCD3H und 123FH. 2. Wandeln Sie ins Hex-System: 63492, 13412, 34392 und 48798. 3. Entwickeln Sie ein Basic-Programm, das Hex-Zahlen in Dezimal-Zahlen wandelt und umge­ kehrt. Tschüss, bis zum nächsten M al! Die nächste GENIE DATA erscheint am 15. Juli 1984. Anzeigenannahmeschluß für die Nummer 4,1984 ist der 20. Juni 1984. 28 GENIE DATA Solitair für das Colour Genie, un- schehen zeigt. ter Ausnutzung aller grafischen Da dieses Spiel sich mit allen Möglichkeiten, die dieser Compu- Funktionen selbst erklärt, soll ter im Textmodus bietet. Nach- hier auf eine Erklärung verziehstehend einmal ein ßildschirmaus- tet werden. druck, der etwas vom SpielgeBleibt uns nur noch, Ihnen viel ■“ o 1 i t 3 i r Spaß zu wünschen, und sollte Ihnen das Eintippen zuviel Arbeit sein, können Sie das Spiel auf Cassette für 19,80 und auf Dis­ kette für 29,80 beim Verlag beziehen. * j"*H149) 2 5 # ) —I # X X X X IX• HH;X I—M, ,1-H, # ( 4 t)~ ( x x; x )—( ) i X X x • H •H • M H H « X, X X X X X • ) —( o - y M # )— (® H y W — y ) X )“ ~ (X© ) —( <©) I 'i.i e 1 c h e r S t e i n 10 CL5 2 0 COLOURS 30 40 50 öü PRINTSO*“ M P R I N T ”-*' COLOUR? PR IN T0 28 3» 1170 PRIN T" SO PRIN T" B f f Kl B 90 PRIN T" 100 a n B Bl PRINT" ia s i 110 P R IN T" b ■ a a a b H» 120 PRIN T" Bv v r r r r r ¥" 130 PRINTS686.-. "von U. B r a k e 5 1 6 Du e r e n " 140 P R I N T © 8 G 6 t." A n l e i t u n s = A — ■ S p i e l e n = S" 150 C0L0UR2! PR I N T @ 8 8 0 j GENIE DATA 29 160 1 7 0 F O R 1 = 8 0 1 0 8 4 0 S T E P 4 Ö 772I I 7I: IS O P R I N T Q I , "11" : P R I N T © i ; * 3 9 ^ ^ P “ ;:: 19 0 N E X T I ■ ' 2 0 0 C O L O U R S s P = B 2 :G 0 S U B 2 1 9 O : P = 1 1 6 :G D S U B 2 1 9 0 :F - 8 0 2 :G 0 S U B 2 1 9 0 : P = 8 3 6 : G 0 S U B 2190 210 B$=INKEY$: IFB$=" ’ VTHEi^ffi®S 2 2 0 I F B $ = " S " T H E N 4 0 C);:;^i4|::l||!lIi;7::': 2 3 0 IF B $ = " A " T H E N 2 5 0 ; 2 4 0 G 0 T 0 2 10 ; 7 :250 CLS 2 6 0 C O L O U R S : P R I N T T A B (1 3 ^ ^ § i l i l a n w e i sitn?" 2 7 0 C 0 L 0 U R 7 : P R IN T T A B (1 Ä S § g | r ^ -------2 S0 C 0 L 0U R 2 viele Figuren 2 9 0 P R I N T S P R I N T " B e i m SöfcfeÄa^^SRit el s o l l e n m o e s l i c h s t d u r c h Lieb er sp ri n s e n werden. Nach d e m E n d z u g s o l l d i e le'life®pl|li|;g[ür im Z e n t r u m stehen." M a r ki e r u n ^ s p t e 3 0 0 P R I N T : P R I N T " H i t deFv^iP^Sittasten b r i n g t m a n d e n gibt il a ut d i e a n z u w a e h l e n d S ; ® R ; ^ t i r ? d r u e c k t d i e Leertaste ? und m i t d e n P f e i l t a s t e n d i e :vS p r ü h 9.™ r i c h t u n g an. P = 6 9 6 :G 0 S U B 2 9 3 0 :P = 6 9 9 :G 0 S U B 2 9 3 0 :P = 7 0 2 :G 0 S U B 2 9 3 D 310 3 2 0 C O L O U R 6 :P R I N T @ 7 3 7 » 3 3 0 C O L O U R S s P R I NTil7 4 0 ,;^^iliiil|i;:; 3 4 0 C 0 L 0 U R 7 s P R I N T @ S 1 8 * eHR-4 .(2 S 5 ) ? 11 ”? C H R $ 12 5 5 ) s " “? C H R $ <2 5 5 ) 350 C O L D U R 5 :PRINT@9 2 0 ^ 3 6 0 C 0 L 0 U R 7 : P R I N T @ 9 3 5 '^^Wili^iS^■^■W,,S 370 B$=INKEY$: IFB$=" 3 8 0 i f b $ - mw " t h e n 400 390 GDT0370 :■ 4 0 0 C 0 L 0 U R 2 S G 0 S U B 2 6 8 0 s,-Z.^'SS:*AiS^:S*V 4 1 0 d i n s (7 7 ) ^ p <7 7 ) ■ : / 4 2 0 F O R X = 1T 0 7 : F D R Y = 1 T D 7 ®Illiil®?^v 4 3 0 X 1 =)<:+■ ■10 + Y : R E A D A s R E A M l i l l t M ^ 4 4 0 P (X 1 ) = A s S (X l ) = B :'::M I I S M l l S / : 4 5 0 IF A = 1 T H E M 4 7 0 4 6 0 F - P ( X I ) - 4 1 * G 0 S U B 2 9 3 ' C @ t i S i | ; :v 4 7 0 N E X T Y ,X M I S ■ 4 8 0 F O R I = 1T 0 7 : 490 READA: READS: R E A D C : R E i i i l M l W ' i A 5 0 0 P R I N T @ A s C H R $ (1 2 9 ) s PRI'NTefe* C H R $ (1 3 2 ) : F R I N T S C , C H R $ (13 4 ) s P R I N T E D , C H R $ (13 510 n e x t i . 5 2 0 C O L O U R S : P R I N T © 4 ? CHR'$:'(-i7 2 C H R $ (1 7 2 ) ? C H R # (1 7 2 ) 5 C H R $ (1 7 2 ) ? C H R $ (1 7 2 ) 5 3 0 C 0 L 0 U R 2 :P R I N T S 4 6 , " (1 6 1 ) ? C H R $ (1 6 2 ) 5 4 0 P R I N T @ 9 0 j C H R $ (1 6 3 Yicillliii)!'-' 5 5 0 C O L O U R S 5 P R I N T @ 9 2 ,C H M Ä s i l M V : 5 6 0 FR I N T S 3 2 , CHR$ (1 7 1 ): ( 1 7 1 ) ? CHR$ 1 1 7 1 ) SCHR * < 1 7 1 ) 5 7 0 C 0 L 0 ü R 2 : P R I N T @ S S ^ C B ill | | l ) | p H R $ ( i 5 7 ) ? “WW®m '>: P R IN T 0 1 O 9 , CHR$ ( 1 5 9 ) SC HR$ ( 1 6 0 ) ; ;■/■ 5 S 0 COLOUR3: P R IN T Q I0 & ? \ 5 9 0 C 0 L 0 U R 2 :P R IN T @ 7 6 2 S e W R ii|7 iM P R X N T © 8 0 2 ? C H R $ ( 1 4 4 ) ? C H R * ( 1 4 5 ) :P R IN T @ 8 4 2 ? CHR$ ( 1 4 6 ) SCHR$ 6 0 0 PR I N T 0 7 9 8 C H R * ( 1 7 0 > :P R IN T @ 8 3 7 , CHR& ( 1 5 2 ) ü CHR$ < 1 5 3 ) s PR I N T 8 S 7 7 , CHR$ < 1 5 4 ) s CHR* ( 1 5 5 ) . 6 1 0 FDRI = 1T04 ■■ 1; 6 2 0 RE AD A ' RE ADB “ P =A * G Q 5U B 2070 ; p = B ! G ÜSUB21 3 0 6 3 0 NEXTI " - ■: 6 4 0 FOR I= 1 T D 8 v : ; 6 5 0 READ A: P ~ A - GQSÜB21 9 0 . 6 6 0 NEXTI 30 GENIE DATA 6 7 0 C D L 0 U R 7 : P R IN T 0 8 8 2 » " '' 1nn'" ... ........................... ..................... »■; 6 8 0 C O L O U R S :P R IN T S 1 3 ," — Sol i t a i r — " 690 FO R1 = 1 1 T 0 7 7 7 0 0 I F P —1 THEN 7 3 0 7 1 0 COLOURS 7 2 0 I F S ( l ) = 2 THEN P R IN T S P < I ) * ” * ' ' 7 3 0 NEXTI 740 60T0770 7 5 0 FORJ = 1 1 0 5 0 : N E X T J : PLAY ( 1 , 1 , 1 , 0 ) 7 6 0 F 0 R J = 1 T 0 5 0 !N E X T J : RETURN 7 7 0 COLOURS! P R IN T ® 9 2 0 j 11 ■& S p i e l e n - S * * V o rfu e h re n = V * * ” ; 7 8 0 A $ = I N K E Y $ : I F A * = ” "T H E N 7 8 0 7 9 0 I F A $ “ ,,S "T H E N 8 2 0 8 0 0 IF A $ = " V " T H E N 1 6 5 0 8 1 0 G D T07S 0 8 2 0 L = 4 6 0 s X—2 0 : Y = 1 1 8 3 0 C 0 L 0 U R 2 : P R I NT'@212.- 2 : P R IN T 0 2 2 5 ? Z “ GOTO 1 4 5 0 8 4 0 C 0 L 0 U R 2 : PR IN T S 9 2 0 ,- " W e lc h e r S t e i n ? 8 5 0 M =PEEK(1 7 4 0 8 + L ) 8 6 0 C 0 L 0 U R 7 : P R IN T @ L , C H R $ ( 2 5 1 ) 8 70 A=FEEK(-1 9 8 4 ) 8 8 0 IF A A N D 6 4 THEN I F X C 2 9 THEN X=X+1 8 9 0 IF A A N D 3 2 THEN I F X > 1 1 THEN X = X -1 . 9 0 0 IF A A N D 1 6 THEN IF Y < 2 0 THEN Y=Y+1 9 1 0 IF A A N D 8 THEN IF Y > 2 THEN Y = Y -1 9 2 0 I F M = 2 3 0 THEN C O L O U R S :G 0 T 0 9 6 0 : : 9 3 0 I F M= 1 5 8 THEN C 0 L 0 U R 3 : G 0 T 0 9 6 0 '= 9 4 0 I F M =16 5 THEN C 0 L 0 U R 3 : G 0T Q 960 : , 9 5 0 C 0 L 0U R 2 K : ;' : 9 6 0 P R IN T fIL ,C H R $ (M ) : : 9 7 0 IF A A N D 1 2 8 THEN 1 0 0 0 9 8 0 L = Y *4 0 + X ' 9 9 0 GOTO 8 5 0 ^ 1 0 0 0 1 1 = 0 =FOR 1 = 11 T 0 7 7 " " . '' ; ■ 1 0 1 0 I F P ( I ) = L THEN F = I : 1 - 7 7 : 1 1 = 1 . : - K v..: - K : ■ 1 0 2 0 NEXT I : ■" ; "■ ' - ' / ; 1 0 3 0 I F 11= 0 THEN850 ' yi'-!'’y 1 0 4 0 I F S = 2 THEN 1 0 6 0 - ^ F ■'! : ; ■ ;F ■' ; 1050 G 0T0850 : :\ ; ■ 1 0 6 0 F 2 = F -• I N T ( F / 1 0 ) * 1 0 ‘ : 1 0 7 0 I F F -2 0 C 1 THEN 1 0 9 0 1 0 8 0 I F 3 ( F—1 0 ) = 2 AND S < F - 2 0 > = 1 THEN 1 1 6 0 ■ 1 0 9 0 I F F + 2 0 > 7 7 THEN 1 1 1 0 . ' 1 1 0 0 I F S ( F + 1 0 ) = 2 AND S < F + 2 0 ) “ 1 THEN 1 1 6 0 , .... ■ • 1 11 0 IF F 2 -2 < 1 THEN 1 1 3 0 . ■;■.!:i & M • ■ 1 1 2 0 I F S 7 THEN 8 5 0 r.--' ■ ■ 1 1 4 0 I F S ( F + 1 ) = 2 AND S ( F + 2 ) = 1 THEN 1 1 6 0 1 1 5 0 GOT0 8 5 0 1 1 6 0 C 0 L 0 U R 2 : PR IN T S 9 2 0 ? " W e lc h e R i c h t u n s ,'15 C H R * ( 2 3 2 ) i " , l ; C H R $ t 2 5 5 ) ; " " 5CHR$ < 2 5 1 ) 5 " " ? CHR$ ( 2 5 3 ) ; : 1 1 7 0 CQLQUR 6 : P R IN T S L.- " 0 " : 1180 GOSUB 2 0 3 0 ■.. . , . : 1190 A=PEEK( ~ 1984) 1 2 0 0 IF A A N D 6 4 THEN B=1 ■' F 1= 1 : GOTO 1 2 6 0 ' 1 2 1 0 IF A A N D 3 2 THEN B = - l i F l = ~ l : GOTO1 2 8 0 . 1 2 2 0 IF A A N D 1 6 THEN B = 4 0 * F I = 1 0 : GOTO1 3 0 0 1 2 3 0 IF A A N D 8 THEN B = - 4 0 : F l = - 1 0 : GOTO1 3 2 0 1 2 4 0 IF A A N D 1 THEN COLOURS: P R IN T S L ? " + " : G 0 T 0 8 2 0 1 2 5 0 G O T O !1 9 0 GENiE DATA 31 IF F 2 + 2 > 7 T H E N 1190 GOTO 1 3 3 0 I F F 2 -2 C 1 THEN 1 1 9 0 .. . GOTO 1 3 3 0 .. :: \ I F F + 2 0 > 7 7 THEN 1 1 9 0 : ■■. GOTO 1 3 3 0 I F F -2 0 C 1 THEN 1 1 9 0 /■ I F S ( F + F 1) = 2 AND S ( F + 2 * F 1 > = 1 THEN 1 3 5 0 GOTO 1 1 9 0 A = F : D = F + 2 * F l:G 0 S U B 1 9 7 0 * G Ü S U B 1700 S (F )= lsS (F +F l)=l!S (F +2*F l)= 2 : ';V : L = P < F + 2 * F 1 ) :-V = IN T ( L / 4 0 ) : X = L - ( Y * 4 0 > 13S0 Z = Z - 1 \ 1390 G 0T0830 ; ■■ : 1 4 0 0 I F S ( 4 4 ) = 2 THEN C O L O U R 5 :P R IN T S 9 2 0 ? "D u h a s t 'e s b e s c h a f f t . n o c h e in m a l - = N " ; : GOTO 1 4 2 0 / S /B V 1 4 1 0 C 0 L 0 U R 7 :P R IN T 0 9 2 O ? " N ic h t d i e r i c h t i g e E n d p .p s i t i . o n . N o c h m . = N " ? 1 4 2 0 B $ = I N K E Y $ : I F B $ = " " THEN 1 4 2 0 ■/ ' 1 4 3 0 IF B $ = " N " T H E N R U N 400 1 4 4 0 GOTO 1 4 2 0 1450 F=10 1 4 6 0 I F Z = 1 THEN 1 4 0 0 1 4 7 0 F = F + ls IF F = 7 7 T H E N 1 6 1 0 1 4 8 0 I F P ( F ) = 1 THEN 1 6 0 0 ‘ /■ , 1 4 9 0 I F S ( F ) = 2 THEN 1 5 1 0 , 1 5 0 0 GOTO 1 4 7 0 1 5 1 0 F 2 = F - 1 NT 7 7 THEN 1 5 6 0 : 1 5 5 0 I F S ( F + 1 0 ) = 2 AND S ( F + 2 0 ) = 1 THEN 8 4 0 1 5 6 0 I F F 2 ” 2 < 1 THEN 1 5 8 0 1 5 7 0 I F S ( F - 1 ) = 2 AND S ( F - 2 ) =1 THEN 8 4 0 1 5 8 0 I F F 2 + 2 > 7 THEN 1 6 0 0 1 5 9 0 I F S ( F + 1 ) = 2 AND S ( F + 2 ) =1 THEN 8 4 0 1 6 0 0 GOTO 1 4 7 0 1 6 1 0 COLOURS 1 6 2 0 P = 7 2 9 : G 0 S U B 2 1 9 0 •P = 7 5 0 : G 0S U B 2 1 9 0 1 6 3 0 P R IN T @ 9 2 0 P"D u h a s t e s n i c h t g e s c h a - f i t m i t " ; Z ; " 1 6 4 0 GOTO 1 6 4 0 yA'M ä 1 6 5 0 P R IN T @ 9 2 0 ? " V o r f L ie h re n ::y ;: 1 6 6 0 CO LO U R S :F 0 R J = 1 T 0 3 1 1 6 7 0 R E A D A :R E A D B :R E A D C 1 6 8 0 E i= 0 1 6 9 0 G D S U B 2060sG O S U B 1 7 0 0 : GOTO1 8 2 0 1 7 0 0 F O R I=P CHR$ 1 8 0 0 NEXT I 1 B IO RETURN . , 1 8 2 0 F O R J 1 = 1 T 0 5 0 :N E X T J 1 1 8 3 0 P R IN T 0 P (C ) 1 8 4 0 NEXTJ 1260 1270 1280 1290 1300 1310 1320 1330 1340 1350 1360 1370 32 GENIE DATA 1 8 5 0 R U N 400 1860 F0R T1=4T05 1 8 7 0 F 0 R T 2 = 1T 0 7 1880 P LA Y ( 1 , T I , T 2 , 1 3 ) : P LA Y ( 2 , T I ,5 ,1 3 ) 1 8 9 0 N E X T T 2 ,T I 1900 P LA Y ( 1 f 1 , 1 , 0 ) : P LA Y ( 2 , 1 , 1 , 0 ) 1 9 1 0 RETURN 1 9 2 0 S Ü U N D 6 ,3 0 : SOUND 7 , 7 : SOUND 8 , 1 6 : SOUND 9 ? 1 6 : SOUND 1 0 , 1 6 : SOUND 1 2 , 1 6 : SOUND 1 3 , 0 1930 P LA Y ( 1 , 5 , 5 , 1 3 ) 1 9 4 0 F 0 R T T = 1 T 0 5 :N E K T T T 1950 P LA Y ( 1 , 1 , 1 , 0 ) 1 9 6 0 RETURN 1970 P LA Y ( 1 ,5 ,7 ,1 3 ) 1 98 0 P L A Y < 2 ,6 ,1 , 13) 1990 PLA Y ( 3 ,6 ,3 ,1 3 ) 2 0 0 0 F 0 R T T = 1 T 0 2 0 :N E K T T T 2010 P LA Y ( 1 , 1 , 1 , 0 ) : P LA Y ( 2 , 1 , 1 , 0 ) : PLAY( 3 ,1 ,1 ,0 ) 2 0 2 0 RETURN 2 0 3 0 F 0 R T A = 2 T 0 6 :P L A Y ( 1 , 5 , T A , 1 3 ) : P L A Y ( 2 , 6 , T A , 1 3 ) : NEXTTA 2040 P LA Y ( 1 , 1 , 1 , 0 ) : PLAY( 2 ,1 ,1 ,0 ) 2 0 5 0 RETURN 2 0 6 0 U l = R N D ( 5 ) + 3 : U 2 = U l - i : U 3 = U 1 - 2 : F D R U 4 = 1 5 T 0 1 S T E P -1 : P L A Y ( 1 , U 1 , 2 , U 4 ) : PLA Y ( 2 , U 2 , 1 , U 4 ) : PLAY ( 3 , U 3 , 1 , U 4 ) : F 0 R U 5 = 1 TO B : N E X T U 5 , U 4 : P LAY ( 1 , 1 , 1 , 0 ) : PLAY (2 , 1 , 1 , 0 ) : P L A Y ( 3 , 1 , 1 , 0 ) : RETURN 2 0 7 0 P R IN T E R ,C H R * ( 1 4 8 ) ; C H R * ( 1 4 9 ) 9 " ■ B " 2 0 8 0 P R IN T 0 P + 4 O ,C H R $ < 1 5 0 ) UC H R $( 1 5 1 ) 2 0 9 0 P R IN T Q P + 8 0 , : P R IN T 0 P + 1 2 O , 2 1 0 0 P R IN T Q P + 1 6 0 ,C H R $ ( 1 4 4 ) ? C H R $ (1 4 5 > 2 1 1 0 P R IN T H P + 2 0 0 , C H R $ ( 1 4 6 ) ; C H R * ( 1 4 7 ) S" « ■ " 2 1 2 0 RETURN 2 1 3 0 C 0 L 0 U R 2 :P R IN T E R , " ; C H R $ ( 1 4 1 ) 5 CHR$ < 1 4 2 ) 2 1 4 0 P R IN T @ P + 4 2 ,C H R $ (1 4 0 )? C H R $ (1 4 3 ) 2 1 5 0 P R IN T O P + 8 3 , : P R IN T @ P + 1 2 3 , 2 1 6 0 P R IIM T 0 P + 1 6 2 , CHR$ ( 1 5 2 ) 5 CHR$ ( 1 5 3 ) 2 1 7 0 P R IN T Q P + 2 0 0 ," ? C H R $ ( 1 5 4 ) ; C H R f( 1 5 5 ) 2 1 8 0 RETURN 2 1 9 0 C 0 L 0 U R 5 : P R IN T@ P , C H R * ( 1 6 6 ) 5 C H R * ( 1 6 7 ) : 2 2 0 0 P R IN T I5 P + 4 0 ,C H R $ ( 1 6 8 ) ; C H R $ ( 1 6 9 ) 2 2 1 0 RETURN 2 2 2 0 DATAO O Ö ,0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 , 0 0 1 , 0 0 2 , 0 0 4 2 2 3 0 DATAÖÖÖ, 0 0 0 , 0 0 0 , 0 0 0 , 1 2 6 , 1 2 9 , 0 0 0 , 0 0 0 2 2 4 0 DATAO O O ,0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 , 1 2 B , 0 6 4 , 0 3 2 2 2 5 0 D A T A 0 0 4 ,0 0 8 , 0 0 8 , 0 0 8 , 0 0 8 , 0 0 8 , 0 0 8 , 0 0 4 2 2 6 0 D A T A 0 3 2 ,0 1 6 , 0 1 6 , 0 1 6 , 0 1 6 , 0 1 6 , 0 1 6 , 0 3 2 2 2 7 0 D ATA0 0 4 , 0 0 2 , 0 0 1 , 0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 2 2 8 0 DATAOOO, 0 0 0 , 1 2 9 , 1 2 6 , 0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 2 2 9 0 DATA032,0 6 4 ,1 2 8 ,0 0 0 ,0 0 0 ,0 0 0 ,0 0 0 ,0 0 0 2 3 0 0 D ATA024,0 2 4 ,0 2 4 ,0 2 4 ,1 2 6 ,1 2 9 ,0 0 0 ,0 0 0 2 3 1 O DATA004,0 0 8 ,0 0 8 ,2 4 8 ,2 4 8 ,0 0 8 ,0 0 8 ,0 0 4 2 3 2 0 D A T A 0 3 2 ,0 1 6 , 0 1 6 , 0 3 1 , 0 3 1 , 0 1 6 , 0 1 6 , 0 3 2 2 3 3 0 DATAO O O ,0 0 0 , 1 2 9 , 1 2 6 , 0 2 4 , 0 2 4 , 0 2 4 , 0 2 4 2 3 4 0 D ATA255,0 6 3 ,0 1 5 ,0 0 7 ,0 0 3 ,0 0 3 ,0 0 1 ,0 0 1 2 3 5 0 D A T A 2 2 4 ,2 5 2 , 2 5 5 , 2 5 5 , 2 5 5 , 2 5 5 , 2 5 5 , 2 5 5 2 3 6 0 D A TA O O O ,0 0 0 , 0 0 0 , 1 9 2 , 2 2 4 , 2 4 0 , 2 4 8 , 2 4 8 2 3 7 0 D A T A 2 5 2 , 2 5 2 , 2 5 4 , 2 5 4 , 2 5 4 , 2 5 5 ., 2 5 5 , 2 5 5 2 3 8 0 D A T A 2 5 5 ,2 5 5 , 2 5 5 , 1 2 7 , 1 2 7 , 1 2 7 , 0 6 3 , 0 6 3 2 3 9 0 D ATAO O O ,0 0 0 , 0 0 0 , 1 2 8 , 1 2 8 , 1 7 2 , 2 2 4 , 2 4 8 GENIE DATA 2400 2410 2420 2430 2440 2450 2460 2470 2480 2490 2500 2510 2520 2530 2540 2550 2560 2570 2580 2590 2600 2610 2620 2630 2640 2650 2660 2670 2680 2690 2700 2710 2720 2730 2740 2750 2760 2770 2780 2790 2800 2810 2820 2830 2840 2850 2860 2870 2880 2890 2900 2910 2920 2930 2940 2950 2960 2970 D A T A 0 3 1 ?0 3 1 ? 0 1 5 ? 0 0 7 ? 0 0 3 s 0 0 0 ? 0 0 0 ? 0 0 0 DATA255?2 5 5 ? 2 5 5 ? 2 5 5 ? 2 5 5 ? 2 5 5 ? 0 6 3 ? 0 0 7 DATAOOO? 0 0 0 ? 0 0 0 ? 0 0 3 ? 0 0 7 ? 0 1 5 ? 0 3 1 ? 0 3 1 D A TA 007? 0 6 3 ? 2 5 5 ? 2 55 ? 2 5 5 ? 2 5 5 ? 2 5 5 ? 2 5 5 D A T A 063? 0 6 3 ? 1 2 7 , 1 2 7 , 1 2 7 ? 2 5 5 ? 2 5 5 ? 2 5 5 D A TA 248? 2 2 4 ? 1 9 2 .-1 2 8 ? 128? 0 0 0 ? 0 0 0 ? 0 0 0 DATAOOO? 0 0 0 ? 0 0 0 , 0 0 1 ? 0 0 1 ? 0 0 3 ? 0 0 7 ? 0 3 1 D A TA 255? 2 5 5 ? 2 5 5 ? 2 54 ? 2 5 4 ? 254' ? 2 5 2 ? 2 5 2 D A TA 255?255? 255? 255? 2 5 5 ? 2 5 5 ? 2 5 2 ? 2 2 4 D A T A 2 4 8 ? 2 4 8 ? 2 4 0 ? 2 2 4 ? 192?: 0 0 0 ? 0 0 0 ? 0 0 0 D ATAOOO ? 0 0 0 ? CjOO ? 0 0 1 ? 0 0 3 ? 0 0 7 ? 0 1 5 ? 0 3 1 DATAOo 1 ? 1 2 7 ? 2 5 5 ? 14c> ? 14c> ? 2 5 5 ? 2 5 5 ? 2 5 5 D A T A 0 3 1 ?0 6 3 ? 1 1 5 ? 1 9 6 ? 0 0 8 ? 0 1 7 ? 0 3 5 ? 0 6 8 D A T A 25 5 ? 255? 248? 2 2 4 ? 1 9 2 ? 1 2 8 ? 000? 0 0 0 D A T A 2 4 0 ?0 0 0 ?0 0 0 ?0 0 0 , 0 0 0 ? 0 0 0 ?0 0 0 ?0 0 0 D A TA 252? 2 5 5 ? 2 5 5 ? 2 4 1 ? 2 4 1 '* 2 5 5 » 2 5 5 ? 2 5 5 . DATAOOO? 0 0 0 ? 1 9 2 ? 2 2 4 ? 2 4 0 ? 2 4 8 ? 2 4 8 ? 2 5 2 D A T A 01 5 ? 000? 000? 0 0 0 ? 0 0 0 ? 0 0 0 ? 0 0 0 ? 0 0 0 D A T A 2 5 5 ? 1 2 7 ?0 3 1 ? 0 0 7 ? 0 0 3 ? 0 0 1 ? 0 0 0 ?0 0 0 D A T A 252?142? 066? 0 3 3 ? 1 4 4 ? 1 3 6 ? 1 9 6 ? 0 9 8 D A TA 1 9 3 ? 1 9 5 ? 0 0 3 ? 0 0 3 > 0 0 1 ? 0 0 1 ? 1 1 3 ? 2 5 5 DAT A 1 3 1 ? 1 9 5 ? 1 9 2 ? 1 9 2 ? 1 2 8 ? 1 2 8 ? 1 4 2 ? 2 5 5 D A T A 2 5 5 , 1 1 3 ?0 0 1 ? 0 0 1 ? 0 0 3 ? 0 0 3 ? 1 9 5 ? 1 9 3 DATA255?1 4 2 ? 1 2 8 ,1 2 8 ? 1 9 2 ? 1 9 2 ? 1 9 5 ? 1 3 1 D A T A 0 2 4 ? 0 2 4 ?0 2 4 ? 0 6 0 ? 0 6 0 ? 0 6 0 ? 1 2 6 ? 1 2 6 DA TA 00 3? 0 1 4 , 0 2 8 , 0 6 0 ? 1 2 0 ? 1 2 0 ? 248? 2 4 8 D A T A 1 9 2 ? 112? 0 5 6 ? 0 6 lj ? 0 3 0 ? 0 3 0 ? 0 31 ? 0 3 1 D A T A 0 6 8 ? 0 0 0 ?0 5 6 i 0 0 4 , 0 6 0 ? 0 6 8 ? 0 6 0 ? 0 0 0 CHAR2: RESTO RE: F 0 R A '/.-& H F 4 0 0 T Q & H F 5 6 F : READBX: POKEA"/.? B‘/ .: N E X T: RETURN DATA 1 ? 5? 1 ? 5? 97? 2? 100? 2? 1 0 3 .-2 , 1 , 5 , 1 , 5 D A T A 1 ?5 ? 1 ? 5 , 2 1 7 ? 2 ? 2 2 0 ? 2 ? 2 2 3 ? 2 ? 1 ? 5 ? 1 , 5 D A T A 331 ? 2? 3 3 4 ? 2? 3 3 7 ? 2? 3 4 0 ? 2? 3 4 3 ? 2? 3 4 6 ? 2? 3 4 9 ? 2 D A T A 4 5 1 ? 2? 4 5 4 ? 2? 4 5 7 ? 2? 4 6 0 ? 1 ? 4 6 3 ? 2? 4 6 6 ? 2? 4 6 9 ? 2 D A T A 5 7 1 ? 2 , 5 7 4 ? 2? 5 7 7 ? 2? 5 8 0 ? 2? 5 8 3 ? 2? 5 8 6 ? 2? 5 8 9 ? 2 DATA1 ? 5? 1 ? 5? 6 9 7 ? 2? 7 0 0 ? 2? 7 0 3 ? 2? 1 ? 5? 1 ? 5 DATA1 ? 5 ? 1 ? 5 ? 8 1 7 ? 2 ? B 2 0 ? 2 ? 8 2 3 ? 2 ? 1?5? 1 .-5 DATA291?1 04 ? 62 9?816?294?224?626,696 DATA57?3 5 0 ? 8 6 3 ? 5 7 0 ? 6 0 ? 4 7 0 ? 8 6 0 ? 4 5 0 DATA63?5 9 0 ? 8 5 7 ? 3 3 0 ? 3 0 6 , 7 0 4 ? 6 1 4 , 2 1 6 D A T A 3 0 9 ?8 2 4 ?6 1 1 ? 9 6 : ; DATA42?2 4 4 ? 4 4 2 ? 6 4 4 ? 6 7 3 ? 4 7 5 ? 2 7 3 ? 7 5 DATA1 2 4 ? 3 2 4 ? 5 2 4 ? 7 2 4 ? 7 5 5 ? 5 5 5 ? 3 5 5 ? 1 5 5 ; D ATA42? 01 ? 44? 63? - 4 0 ? 43? 51 ? 0 1 ? 5 3 ,■ D A T A 3 1 ? 4 0? 51? 43? 40? 63? 7 3 ? - 4 0 ? 5 3 1 D A T A 54 ? - 1 , 5 2 ? 51 ? 01 ? 5 3 ? 5 6 ? - 1 ? 5 4 . , ' D A T A 5 3 ? 01? 55? 7 4 ? - 4 0 ? 54? 54? 01? 5 6 D A T A 7 5 ? - 4 0 ? 55? 5 6 ? - 1 ? 54? 36? 40? 5 6 : ^ ^ 1 D A T A 57 ? —1? 5 5 ? 3 7 ? 4 0 ? 5 7 ? 5 4 , 0 1 ? 5 6 D A T A 5 7 ? - 1 , 5 5 ? 34? 01? 36? 5 5 ? - 4 0 ? 3 5 ■ : D A T A 3 6 ? - 1 ? 3 4 ? 1 5 ? 4 0 ? 3 5 ? 3 4 ? 01? 3 6 : 1 D ATA32? 0 1 , 3 4 ? 1 3 ? 40? 33? 33? 01? 3 5 D A TA 14? 40? 34? 4 4 ? - 4 0 ? 24? 3 6 ? - 1 ? 3 4 D A T A 24 ? 4 0 ? 4 4 : v C 0 L 0 U R 2 :P R IN T E R ? C H R $ ( 1 2 8 ) 5 C H R $ ( 1 3 6 ) s C H R $ ( 1 3 0 ) P R IN T S P + 4 0 ? CHR$ C1 3 7 ) s " " ? C H R $ < 1 3 8 ) P R IN T @ P + 80 ? CHR$ < 1 3 3 ) ? C H R $ ( 1 3 9 ) ? C H R $ ( 1 3 5 ) • RETURN F O R I= 0 T Q 5 0 : P R IN T @ I* 1 0 ? ( 1 2 8 + 1 ) ? C H R $ ( 1 2 8 + 1 ) : N E X T I 33 34 GENIE DATA Waiter Christ Die fast GESCHÄFTSFÄHIGE TEXTVERARBEITUNG für GENIE I, II, TR S 80 M 1 und M 3, unter NEWDOS 80. M it Texedit können Sie Texte bis zu einer Länge von 300 Zeilen verarbeiten. Es w ird jedoch empfohlen, längere Texte in mehrere einzelne Passagen zu gliedern, da bei längeren Texten durch die Garbage Collection kurze Eingabepausen entstehen können. Es handelt sich bei Texedit um ein Programm, daß aus mehreren Modulen besteht, die über ein Menue gesteuert werden. Diese Funktionen werden je tzt im einzelnen e rklä rt, Eröffnen einer neuen Textdatei Diese F unktion w ird durch 'A ' vom Hauptmenue aus angewählt Nach drücken einer Taste w ird der ■Bildschirm gelöscht und man kann m it der Eingabe beginnen. Es stehen dem Benutzer drei Modi zur Verfügung. Der Modus in dem Sie sich befinden steht in der letzten Zeile. Rechts unten w ird außerdem noch die Zetiennummer (z.B.. L = 25) der letzten Bildschirmzeile angegeben. Sie befinden sich je tzt im Schreibmodus und können beginnen Ihre Texte einzugeben. Schreibmodus Durch drücken der Taste (Pfeilnach links) können Sie den Cursor um eine Stelle zurück bewegen. Durch drücken der NEW’ LIN E (ENTER) Taste geht der Cursor auf den Anfang der nachsten Textzeile. Durch drücken der Taste (Pfeil nach rechts) — mindestens drei Sekunden I — w ird der T ext in den Hauptspeicher geschrieben und verarbeitet. Danach kehrt das Programm zum Hauptmenue zurück, dieser Vorgang ben ö tig t etwa zwei Sekunden. Durch drücken der Taste (Pfeil nach unten) kommen Sie in den Cursormodus. Cursormodus Sie können je tz t m it den vier Pfeiltasten den Cursor über den Bildschirm bewegen. Durch drücken der 'Z ! Taste kommen Sie in den Schreibmodus zurück. Hierbei geht der Cursor wieder auf seine alte Position. Durch drücken der (Print A t) Taste kommen Sie in den E ditm odus. Editmodus Der Cursor bleibt auf der selben Stelle wie im Cursormodus. Jetzt können Sie den alten T e xt einfach überschreiben. (Pfeil nach links) bewegt den Cursor eine Steile zurück. S h ift und (Pfeil nach rechts) bewegt den Rest der Zeile um eine Stelle nach rechts. S h ift und (Pfeil nach links) bewegt den Rest der Zeile um eine Stelle nach links. Hierbei w ird jeweils ein Zeichen zerstört. (Pfeil nach rechts) bew irk t einen Rücksprung in den Schreibmodus. Der Cursor springt wieder auf seine alte Stelle. (P rint A t) bew irkt einen Rücksprung in den Cursormodus. Auch hier geht der Cursor wieder an seine alte Stelle. Der Text kann nur aus dem Schreibmodus an den Hauptspeicher übergeben werden, Umlaute können folgendermassen angewählt werden: Zuerst drücken Sie die Clear Taste und danach den entsprechenden Buchstaben (a,u,o,s,A,U,0). A u f dern Bildschirm w ird dann der entsprechende Um laut dargestellt, Z u r Steuerung von Schriftarten, Leerzeichen und Drucker stehen noch vier weitere Steuerzeichen zur Verfügung. Steuerung der Schriftarten Jede Textzeüe, der kein SteuerZeichen voransteht, w ird in Norm alschrift ausgegeben. Soll eine Textzeüe in B reitschrift ausgegeben werden, so ist ihr ein (P rint A t) voranzustellen. Hierbei ist zu beachten, daß bei Texten, die in 64 Zeichen pro Zeiie ausgedruckt werden sollen, nur die nächsten, 32 Zeichen beachtet werden (bei 80 Zeichen pro Zeile nur 40 Zeichen). Die restlichen Zeichen werden n ich t verarbeitet. Um eine Zeile in P roportionalschrift auszudrucken ist ih r ein (Pfeil nach oben) voran zu setzen. Beachten Sie, daß bei P roportionalschrift ein kleinerer Zeilenvorschub statt­ findet. A chtung: Diese Steuerzei­ chen gelten nur für eine Textzeile. W ird an den Anfang einer Textzeile ein S h ift und (Pfeil nach unten) gesetzt, so hält der Drucker hier an und gibt Ihnen die Möglichkeit, den nächsten Blattanfang zu positionieren. Für Texte die auf 80 Zeichen pro Zeile fo rm a tie rt werden sollen, steht noch ein weiteres SteuerZeichen zur; Verfügung: S h ift und (Pfeil nach oben). Steht dieses Zeichen am Anfang einer Zeile, so w ird , in den Text nach dem formatieren' eine Leerzeile eingefügt. Dieses Zeichen an das Ende eines Satzes gesetzt, bew irk t, daß hier nach dem form atieren die Zeile zu Ende ist. Um in den T e xt später bestim m te Daten: einzufügen, könrten diese Stellen m it S h ift und (Print A t) m arkiert werden. Nähhere Angaben hierzu finden Sie unter 'Dateneingabe in Texte'. Einlesen eines Textfiles von der Diskette Wird durch 'C' vom Hauptmenue aus angewählt. A u f "Filenam e?" ist der Name der gewünschten Textdatei einzugeben. Handelt es sich um eine auf 80 Zeichen pro Zeile form atierte Textdatei, so ist der Zusatz /FO R m it anzugeben. Hat man aus Versehen dieses Modul gewählt, so kann man durch Eingabe von ' 0 ' wieder zum Hauptmenue zurückkehren, Soll der T e xt zu einer bereits im Speicher vorhandenen Textda­ tei hinzugeladen werden, so kann man dem Filenamen ein voranstellen, ansonsten w ird der im Speicher vorhandene T e x t gelöscht. Ist die gewünschte Datei n ich t auf der Diskette vorhanden, w ird 'F ile n icht im D ire c to ry '. GENIE 35 ‘I'XvX v .v .v , Einkaufsführer fg f pj I I f L f '' 1 & M f f ls l> 4 g n $ M fi Im 1 & $ s IF ^ H ip s ^ s l f a m*m gui m m i * i gp% IM ? lb s iN i « El N K A U FS f ü h r e r I *1. T p * Sl. AICISTIN Kas DORTMUND ~ i w>n uiiifrr«i~- T" TiTiiiii ,lhf zuveriässlftef Partner fQr Compuitrsystanc cc Computer Studio GmbH t r q m m e s c h l Mg e r COMPUTER GMBH STAUGUSTIN POSTFACH 2105 5205 ST, AUGUSTIN 2 TEL. 02241-28071 Elisabethstraße 5 4600 Dortmund 1 Tel,; 02 31 - 52 81 84 ^ArtwecfipärtnM: T x 822 631 CCCSd V. ScM Siinsir JaniP-lSÄiSef.;;; *TRS 80 isl eingelagsnes Wa/eueidven da Tj«!y Corp. TELEX 889702 *Ä2K! Scit>wr» + Hirdwara + B#f*tun;r I0f TBS 80* und Gwils-Ccmputir .Strvice-BhfMMnd electronic GENIE - Fachhändler Sandkau Istraße 84/86 5100 AACHEN Tel. 0241 *23217 G e ic h a f U z a lte n i M o . - F r. 10 .00 U h r b it 1 3 .0 0 U h r 14 .30 U h r bis 1 8 .3 0 U h r Sa, 1 0 .0 0 U h r b l* 1 4 .0 0 U h r D o n n e rs ta g ! g e ic h lo u s n Computer 4200 Nohlstr. 29 4200 Oberhausen 1 Telefon {0208) 853997 C 4200 (APPLE komp.) Oric EACA (Videogenie} SANYO (Laser} OSHABRÜCR AACHEJM SCHMIDTKE OIEBHAUSEH P e te r R ä b ig e r MICROCOMPUTER-SYSTEME Veldener Straße 65 D-5160 D Ü R E N Tel.. (0242 1)4 3877 Elektronik SHOP Iburgerstraße 17 Telefon 054 1/5 8866 0 4500 O S N A B R Ü C K ■«a***»» HALSENBACH BERLIN ja w a w mw M ICRO 80 C o m p u ter m it eigener S ervice-S tation Computer • u M onttore Matrixdrucker E DVai*k*o«f>.etix* G0SUB2900 ■ ’ # # *# # # * •* STßftTMENUE ß$--~-INK£V-$ 37 EINSTELLEN ' 38 GENIE DATA 1025 102S N 1029 CLS PRINT"7 £ X E B 1 2 , 1" : P R I N T " ------------------- '/ E R S 1 0 P R I N T BITTE N A E H L E N SIE PRINT PRINT" $ -------- E R Q E F F N E N E I N E R N E U E N ' 7E X T B A T El PRINT" ■ ß -------- A B S P E I C H E R U N G A U F 'DISKETTE. P R I N T " C -------- E I N L E S E N E I N E S T E X T F I L E S V O N Bll rK E T T E PRINT-" D ........ E R H E I T E R N E I N E R T E X W A T E I " • ' P R I N T " £ -------- 7 E X E B 1 7 - B 1 R E C 7 O R V P R I N T " F -............. T E X 7F O R M A T I E R U N G " ' 111.0 P R I N T " ß -------- L I S T E N E I N E S T E X T E S 1 1 2 0 P R I N T " H -- ----- 'DRUCK E R A U S G A B E " 1 1 3 0 P R I N T " 7. -------- S VS T E N - M E N U E " V I 40 P R I N T " J ----- D A T E N E I N G A B E IN T E X T E " 1 1 5 0 P R I N T " K ---- — E D I T O R " ; . ■ ■ ■ .■ 1 2 0 0 /-)t'---INKEV$ • I F A$-~ ■"'TH E N 1 2 0 0 1 2 0 5 1 F A S C ( A $ ) > 9 5 T H E N A j? - C H R $< A S C <.A $ > - 3 2 > 1 2 0 6 I F A S C ( A '■ {-} < 6 5 0 RflSC > .>75 T H E N 1 2 0 0 1210 ONASCi A $ ) 4 G 0 T 0 2 0 0 0 , 4 2 0 0 , 4 5 0 0 , 1 3 0 0 0 , 6 0 0 0 , 1 0 ; ;o o . ? 0 0 . 8 0 0 0 , 1 0 .5 0 0 0 . 1 4 0 0 0 1030 1040 1050 1060 1070 1075 1080 1090 2 00 0 ’ TEXTEINGABE 2010 2020 2025 2 0 3 0 P R I N T "7 E X T E I N & A B E"sPRINT' '■PRINT'. P R I N T " B £ G I N N D E R £ INBABEs TASTE B R U E C K E N . ' 2 1 1 0 A $ ~ I N K E y$ : I F P E E K ( 1 4 5 9 1 > ~ 0 T H E N 2 1 1 0 2 1 2 0 CL.Si P R I N 7 % 9 6 0 , " S E T S E TS E 7S E 7S E 7 S E T S E T S E T S E T S E TS E TS E T S E 7 S E 7 S E 7 S E TSE TS E T S E 7 S E T S E TS E T S E T S E TS E TS E TS E TS E T S E T S E T S E T S E TS E T S E T S E T S E T S E TS E T S E T S E T S E T S E T S E T S E T S E T L - 1 5 S E TSE TSE T S E 7 S E T S E T S E TSE TSE TSE V ? • / : 2.121 P R I N T s 9 6 4 , S C H R E IBMO'D U S 2122 F0RQ-0T0220: X £ " : N E a TQ o 1■ >2o 5 Q 1 = 0 2130 X ~ 1 5360 2 1 9 5 P O K E X . IS 1 2196 A t - I N K E Y * »* -x-■ >.<■ * vt‘ * * # 2200 ■’* * ■*-* * ■ 2201 r E I N G A B E 2202 ■ ■»•»•»*■»■»A1 * »■»•»•» •K'-a-x- x-M ■ # 2210 A $ ~ I N K E V t i I F A 7 H E N 2 2 10 2 2 1 5 I F A S C (A $ ) = 8 A N B X > 1 5 3 6 0 7 H E N X - X - 1 : P O K E X , 131. ‘P O K E X + 1 3 2 ; P O K E X + 2 , 3 2 ■G O 7022.10 2 2 2 0 IF A S C ( Af> > < 3 2 0 R A S C ( A * ) ~ 9 1 0 R A S C (A $ ) ~ 9 6 T H E N 2 5 0 0 2 2 3 0 P O K E X , A S C ( A $ > : P O K E X + l , 1 3 1 : X ~ X * 1 : I F X > 1 6 3 I S T M E N ß O S ( J B 2 8 0 0 :i 1 iaoT0 2 2 10ELSE2210 00 2510 2 520 2521 ' AENDERÜN&EN IM SCHREI B M O D U S I F A S C (/-)*>■-91 THEMA*---CHR* ( 1 5 3 > i G O T0 2 2 3 0 1 F A S C (A $ ) - 2 7 T H E N A $ ~ C H R $ < 9 4 > ' B 0 T 0 2 2 3 0 2 5 2 3 I F A S C < A * > ~ 2 6 T H E N A $-CHRt' ( 1 2 7 ) : G O 7 0 2 2 3 0 2 5 2 4 IF A S C ( A t >■*96 T H E N A t > - C H R # f 1 9 2 >i G O 70 2 2 3 0 2 5 2 5 I F A S C <«SS >*3Jt T H E N G 0 S U B 2 6 Q 0 i 0 0 7 0 2 2 3 0 2526 P O K E X , 32 -■ ■ 13T H E N 2 7 0 0 I F A S C ('/-)■£ ,>■ 2522 GENIE DATA 2540 2550 2600 2605' 2610 2620 2630 2640 2645 2650 2660 2670 IF ß S C < ß t > = 2 0 T N E N 3 0 0 0 X F P £ E K (2 4 4 0 O >■" 6 4 7 H E N 3 & 0 0 E L S £ 2 3.20 flU- 'IHUE Y f s l F f i $■ - " “T H E N 2 6 0 0 X f /-)S C ( D '$ / •- 3 2 T H E N 2 6 0 0 IE f)SC< ,£W' ) - 6 5 7 H £ N f i $ ~ C H R $ ( 91 ) : XFftSC < 0 $ > - 7 9 7 HEHft$~CtiR* < 9 2 > IF Q S C ( )= & 5 7 H E N F ) $ ~ C H R JS <’ 9 3 ) IfflSC (t)$ } ~ 9 7 T H £ N f t $ * C H R $ U 23'f ■ ' 1FF)SC< Q$)=?2 1 1 7 H E H.................................................. ft$=CHß$C:234y: ; . I F Q S C C /)$>*! 1 7 7 N £ N Q $ - C H R $ . ( 2 2 5 ’’ ' lFb SC< ft$ ) ^ 2 1 5 7 H E N P i $ ~ C H R * C 1 2 6 ) ' : ■{ RETURN 269 V ■ ’ * * X X X a- X X X X X ■# A‘ # * X X X X X A‘ X X X X X X A‘ A1*■ X X X X X X X X X X X X X X X X 2 7 0 0 ■' M E N - L I N E TfiS TE 3£ILENOORSCHUB 2 7 0 1 ■' X X X X X X X X X X X X X X X X X X : X X X X : X - - X X X ^ X X X X : X X X X X X X X X X X X X X X 2710 i w r (' <’>;- .5.K60 > / 6 V .>-.<‘ 6 ^ . 7 5,?-SO 2 7 2 0 IF X > 1 6 3 1 9 & O S U B 2 0 0 : M 0 M :: ■ \ B ö T0 2 2 ; : j- ; . 2 7 P O K E X , 131 ‘ 2 £ 0 0 -r * * # # # # # # # # * * # # # # # # # # & . # , # # # # # # # # # # # * # ■ ' ■ ' / .2 S .i* 0 ' B I L D S C H I R M N A C tt::#B£N:-S C H I E B E N . 2$20 ' * * # A‘ # * # * # -A1 * tf tf * « ■#;##* # # # . * * * * # # * * # # * # X t ( Ü 2 > ^ " fJ ■ 2 S 3 0 T-UftRP 7 R ( U $ > i P O f < M & & ^ P O M £ 7 + 2 , 0 : P O K E 7 + 2 . & H 3 C : X * < a 2 ' > = V $ .c. -0 «_■ s./ I F Q > 2 $ 0 T H E N P R X N t M p M I C H E R V O L L " 'G O 7 0 4 0 2 0 2 8 4 0 0:2-01 + 1 s G0SI/B2 9 2 0 ^ X ^ 1 6 2 56: P O K E X , 2 3 1 : P R 1 N 7 % 1 0 0 9 „ Q 2 + 2 5 ; " " ■’ .RE 7Ü P M .......... _ ........ .. 2 9 0 0 Q 7.-•=■<>s D 1 M Q A Z( 2 2 i M i k f t Ö S = 1 5 3 6 : Qf)Z( 2 ) ~ 0 : Q A % (2 )~ 2 5 8 7 2 1 QF> Z ( 3 ) ^ 2 4 : Qf-)Z ( 4 >---331 Q 0 % ( 5 > ■ ■ ■ 43.^0:iiCi&X ( 6 > ■ --6 4 : Qfi% <' /’ >-■- 2 4 9 6 0 i Qfl%<8> ---647.1: QfiZ ( 9 > ■ ■ ■ ■ ~ 7 5 2 s a ? } Z ( 10 ) •" - /v 71 9 i •'.<. 0 ( 2' 1) ---~ 16 3 51. • Q f-7. ( 1 . 2 ) ^ 1 0 8 3 2 9 2 0 Ü Ö Z ( 1 3 > ^ 4 1 2 2 ^ - 6 6 5 9 - 0 ^ 2 ( 2 5) ■=■-2 0 0 7 : Qf)% ( 2 6 ) ^ - 4 6 7 . 1 sQfiZ < 2 7 ) - - 5 2 0 0 i O ^ Z :C 2 0 ^ ~ 0 0 2 ^ % Q f i Z < 29 > = I 5 9 3 6 “ . Q A Z < 2 0 >-- 2 3 0 2 6 : O A Z < 2 1 >-=51 i Ctft % f 2 2 .>■ ■■■202: R E 7U R N ^ : k § i M I W ^ 2 9 2 0 17 £ F U S R ^ ( / / ) R P T R ^ g m ( 0 ) . > s Q Z ~ U S R ( 0 ) : R E 7U R N 3000 ’ ■ »■ »»■ »•»■ »■ >(■•*■*■&*■}(■# 3 0 1 0 ■T E X T £ Til 7 ■ 3020 ' 3 0 2 5 P R 1 N 7% 96 4 , ''' - - ; i CUP. S 0 R M 017U S I I L . f.. 3 0 7 0 IF P E £}<( 1.4 4 0 0)~3£fi N V X >2 5 3 6 0 T H E N X ~ X - 2 3 0 7 1 X F P E E K ( 2 4 4 0 0 0 - 6 , 4 F)N7XX < 2 6 3 2 9 7H E N X ^ X + 1 .3072 I F PE E K ( 2 4 4 0 0 ) n 2 6 FiNIX X < 1 6 3 1 9 - 6 4 7H E N X = X + 6 4 3 0 7 3 X F P E E K (24400>-■ 8 FlN'DX>2 5 3 5 9 + 6 4 7 H £ N X -:X- 6'4 3 0 7 4 IF P E E K < 1 4 3 4 4 )~ 4 7 H E N P O K E E , 2 “ . H - L L : P O K E X „ 1 3 1 t P R I N 7% 9 6 4 , R E X B M O B U S <•-•-■ S E 7 S E 7"; : F 0 R X X ~ 2 T 0 3 0 0 : N £ X T : /-)'$■ ■ -INKS. V‘ $ : G O T0 2 2 2 0 3 0 7 5 I F P E E K ( 2 4 3 3 7 >.^2 7 H E N 3 3 0 0 3080 POKE £ : 3 0 9 0 I - P E E K (X ) ' E - X . . 3 2 0 0 P O K E X r2 7 9 3220 &070 3070 ’ 3 3 0 0 '■A1■ %■ #■ •#X -A‘ -A1 -A‘ 'X‘ ■X#-'#-##-##-##-#-]/-#-X 3302 v 7EXTAENDERN 3 3 0 2 •'■x-xxx-x-x-xxx-xxxx-xxxxxx-x-xxxx 3305 P R I N T % 9 6 4 , > £ UI 7N Oil U S < - - SE 7 S E 7 S E 7 " t ‘ 3 3 1 0 /-)$■-1 N K E Y$ 3 3 2 7 P O K E X ,192 3 3 2 0 f l $ - I N K E Y $ i IF /-)-$■-J' " 7H E N 3 3 2 0 3 3 2 4 IF f)SC ( ftf’ .) - 92 7H E N S * ~ C H R * ( 2 5 3 ) 3 3 2 5 IF fiSC ( «35 > ~ 9 6 7H£Nfi$-=CHR* (2 92 .:> 3 3 2 6 IFfiSC(/}$ ) ~ 3 2 7H E N & 0 S U B 2 6 0 0 SCH 39 40 GENIE DATA 3 3 3 0 I F A S C ( A * > ---:25 T N £ N G O S U B 3 5 O 0 s G O T 0 3 3 2 7 3 3 4 0 1 F A S C < A sf > - 2 4 T H E N G 0 S U B 3 6 0 0 s G O 7 0 3 3 1 7 3 3 4 2 IF A S C ( At' >■-% T H E N P O K E X , H X * X - J s I----P££K(X > : G O T 0 3 3 / 7 3 3 4 3 J F A S C (Ft* > = 9 T H E H P O H E X ].7. ' X - L L “P O K E X, 2 3 H P R I N T § 9 6 4 > S C H R E 1B M O 7)tJS < - - " ; :F 0 R Y ^ 2 T O 3 0 O :N £ A' T :A * •=•I N K £ V * :G 0 T 0 2 2 J 0 3 3 4 4 7.F A S C (fti>) - 2 7 TH £ N A $ - C M R $ ( 9 4 ) 3 3 4 5 P O K E X .I 3 3 5 0 I F A * = " % " T H E N P R 1 N T % 9 6 4 r "— > E D I T M O D U S < — S E T S E T S E T " ; S & Q T 0 3 0 9 0 3 3 7 0 P O K E X , A S C <{■)* > : X ^ X + 2 s I - P E E K (X > s G O 7 0 3 3 2 7 • 3 5 0 0 •' 3 5 0 2 -'ZEILE N A C H R E C H T S ■ 3502 ■ ’ 3 5 2 0 Z - I N T ( <’ < X - 2 5 3 6 0 > / 6 4 > + :l > » 6 4 * 2 5 3 5 9 ... . 3 5 2 0 I F Z - X 7H E N R E T U R N , . 3 5 3 0 F O R Y-*Z T 0 X + 2 S T £ P - 2 i P O K E Y , P E E K < Y~ 2 > . . 3 5 4 0 H E X T Y i P O K E A * 2 r3 2 : R E T U R N . . 3600 ’ 3 6 0 1 ”Z E I L E N A C H L I N K S : . »A‘ A‘ -A1-A1A‘ -A‘ * A‘ A1-A‘ -Jf ■*•A1A4-A‘-A‘ -A1 . . . . 3 6 0 2 ■"'A‘ A‘ 'A1A‘ A‘ ■ 3 6 1 0 Z±INT< < < X - 2 5 3 6 0 ) / 6 4 > + 2 > * 6 4 + 2 5 3 5 9 ... . j* 6 2 0 I F Z - X T H £ M P.E T U R N . . . . 3 6 JO F O R Y - X + 2 T 0 Z - 2 » ' / , P £ £ / f C > . . 3 6 *0 NEXTY’ .P O K E Z , J RE T U R N . : . 3 2 0 0 F C R Y =2 T O 90 . ■; . . . : 3 & 2 0 IF P E E K ( 2 4 4 0 0 > < > 6 4 T H £ N 2 2 2 0 . . . 3820 NEXT Y‘ ~G O T 0 4 0 0 0 ................ 4000 ' . : : :: 4010 ' A B S P E I C H E R N DES TEXTES : 4020 * . • * 0 2 2 P R I N T S 9 6 4 r "- ~ > T E X T N I R B A B & E S P E I C H E R T ' 4023 Q ~ Q 2 4 0 2 5 0=0 j I;: ^o jo y= ^ 5J ö o ; ss c a > ■=w " :X;; 2 ^ 1 / 4 0 4 0 T~VfiRP T R < V $ ) i P O K E T . 64 i 7 T - I N T ( V / 2 5 6 ) ; T Y - Y - TT$2.56.V.B0KET+2 „ T Y i P O K E 7 + 2 , 7 7 : >! * ( Q > ^ 0 $ 1 I ; 4 0 5 0 2 F X > Y 7 H E H Y ~ Y + 6 4 i O ~ Q + 2 i 6 0 7 0 4 0 4 0 .......................... ... . : I . 4055 CLS . . ■ ' . ■ 4 0 5 6 I F >i■■ 1 5 3 6 0 0 R X - 0 7 H E N 0 - - 2 '''' ' ' ' 4 0 6 0 P R I N 7 Q + 1 : " T E X T Z E I L E N " . .... , . . . , ......, . , 4 0 6 5 F 0 R V - 2 T0 3 0 0 • N E X T Y ; / ' 4 0 7 0 G O T 02 0 0 0 . . ?../ '2 -2/■ ■ ■ 4200 ’ y;' ' 2 'r 2 ':-2 :2 2 i;7 '2 ' 4220 U S GftSE FlUF D I S K E T T E 4222 4222 4223 4224 4 5 B---0 . ; CLS :: CMD"FREE" F $ = C H R $ ( P E E K < 2 5 4 7 7 ) ) + C H R * ( P E E H ( 1 5 4 7 8 ) ) iF PRINT"/-) B /-) U F P E I C H E R U N G ■ V A L (F *> ■CLS K " i PRINT" 7) I PRINT 4 2 2 7 P R I N T §238 r F ■ , & R A N U L E N F R E I " : J F F < ( 0 / 1 5 ) 7HENPR7. N 7 S 3 8 4, " TE X T A S S T N I C H T M E H R A U F 7JISKE 7 T £ JJ - P R I N T " L E G E N S IE N E U E 7JIS«£7 7£ EIN'PR7.N7 " N E N N F E R T I G T A S T E D R U E C H E N " E L S E 4 2 3 0 4 2 2 % A$----INKEV$i I F T H E N 4 2 2 S 422 9 C L S i G O T O 4200 4 2 3 0 I N P U T " F I L £ N ß M E ?" ;B S? 4 2 3 3 7.F B $ = " 0 " T H £ N 2 0 0 0 4 2 3 4 IF L E N (B :? > <’ .2 ?'H £ N C L S : G 0 7 0 4 2 2 5 4 2 3 5 IF L E N (X t> ( 0 ) > - S O TH E N B $ = B & +" / F O R " : L ~ 8 Q E L ?EL GENIE DATA 4 2 3 6 KILL. B $ ■ 4240 OPEN "R",2,B* 4 2 4 5 >',$(0+1 X * ■-" " 4250 F O R Z =07OOSTEP3 42 5 2 B - B + L E N ( X $ ( Z ) > + L E N < X $ C Z + 2 > ) * L E N ( X * <' Z + 2 > ) 4 2 5 3 X F L ^ 6 4 T H E N FIEL'D 1 , 6 4 A S B * ,6 4 A S E $ . 6 4 A S F $ £ L S £ FIEL'D 1 , 8 0 A S Df „ 8 0 A S £ # „ 8 0 A S F * 4 2 5 5 L S E T D $ - X $ ( Z ) : L S £ T E $ - Ä $ (Z * 1 .> t L S E T F $ ~ X $ (Z + 2 > 4260 PUT 2 4261 P R l N T % 4 4 6 rZ + 3 t " . T E X T Z E I L E B E R E I T S A B G E S P E I C H E R T " ;H E X T 4263 CLOSE 4264 P R I N T i P R 1 N T B - " BYTES" 4 2 6 5 P R I N T % 7 0 4 . / JTEXT K O M P L E T T A B 6 E S P E 2 C H E R T " 4 2 6 6 F 0 R Y = 2 7 0 8 0 0 “H E X T Y% B O 7 0 2 0 0 0 4500 ’ 4 5 2 0 ”E I H L E S E H V O N V O T E N V O N D I S K E T T E #-A‘ •* A‘ A‘ -A‘* -A‘A*A.1* A‘ A‘ A‘ AL* A‘ A1* A‘ A‘ A1A[ * A‘ A‘ A‘ A‘ 4 5 2 0 ’ * -A1A‘ ■ 4522 C£S ■ 4525 PRINT"L E S E N £ I N E S 7 E X T F I L E S V O N D 1 S K " • P R I N T " ------------- ---------------------------------------------------------------------------------------------------------------------------4 5 2 6 B = 0 : P O K E & H 4 2 S 0 :7 &H2.6 ; P O K E 3tH 4 2 8 2 , & H 6 2 4 5 3 0 I N P U T " F .TL £ N A M £ ?'\;ß$ 4 5 3 2 I PBfi~ "O " T H E N 2 0 0.0////BJ) 4 5 3 3 I F ( U & H T $ ( B t , 4 > ^ A F Ö k ^ T f i E N L ~ 8 0 £ L S E L -=6 4 4 5 3 5 I F L E F 7 < B * ,2 ) *■"# " T H £ N I L ^ Q i B * = R 1 G H 7 * ( Bfi . L E N ( B* ) - 2 > : O P E N " R " , 2, Bf. GO TÖ4 5 5 Q E L S E I L - ö i p O ß m ^ O T O O ’ .X * ( Q l s N E X TQ 1 4 5 4 0 O P E H " R " ,2 , B* /B B B b 4550 Q~L0F(2> ^/BB///:. 4 5 5 5 Ü=0.*3- 2 '/B/B- Z B ^ 4 5 6 0 F0RX--Ö+IL T O Q + I L S T E P Z 4 5 6 2 I F L = 6 4 7 H E H F I E L B 2 . 6 4/ Ö S D $ ,6 4 A S E $ , 6 4 A S F t E L S E F 2 E L D 2 , 8 0 A S D $ ,S O A S £ t , e o A S F * 4 5 6 4 GE 7 2 '■■B/BBBr, 4 5 7 0 X t ( X > =13 f * X * ( X + 2 > = E * i X t ( X + 2 > = F * 4 3 8 6 PfiUN7§320 rX * 3 ; " < T E X T M I L E B E R E I T S E I N G E L E ' S E N " 4 5 8 7 B=B-^L E H ( X $ ( X > )+ L E H ( Xt> ( X + 2 > ) + L E N ( X f ( X + 2 > > 4590 NEXTX '-'.BBB/B/■ .■ -■ ■ 4 6 0 0 CL O S E iP R I H 7 ’ . P R I N T " 7E X 7 K O M P L E 7 7 £ 7 . H G E L E S E H " 4605 P R I N T : P R I N T B ; " BYTES" 4 6 2 0 0 = X “P R I N T : P R 1 H 7 " H E I 7£ R 7AS7E D RU ECKE H" 4 6 2 0 A$----INK£Yf: I F A $ = " " W £ N 4 6 2 0 4 6 2 5 P Ö K E & H 4 2 8 0 , & H 5 B i P 0 K E & H 4 2 B 2 , &H6F> 4630 GO TOI000 :■ ■ / B M B W ' . -■ SO JO 5020 ■ ’ M £ I T E P S J E R A R B E l T U N G O O N S T A N D A P T E X TE N * . / ,; 5030 c L s Z : W B B B B / ;.Z ■ ■ ■ :■ • 5040 PRIHT"E 1 H & A B £ V 0 N D A T E N X ?'•'•': P R I N T S T R I N G * ( 6 4 . "-■ ■ ":}BBBBB^-r./:-/ B - - ^ 5 0 5 0 PRIHl'%322, ÜI7711 H A R 7 E N 5100 p o R Y ^ o r o Q ■ B B :B B B B B ‘ /:'r:r/52 2 0 F 0 R Z - 2.7064 B, 5 2 2 0 IF M W * ( X t ( Y ) ,Z, 1) = C H Rt>< 2 9 1 ) T H E H G O S U B 5 5 0 0 5130 NEXT Z ■ ■ HEXT V .■ :-/:::oB' ■ 5240 PR2HT%900,"EINGABE\BEENDE 7 TASTE 5 1 5 0 A $■=I N X £ Y $ : I F At-~" " TH E N S 2 5 0 E L S E 2 0 0 0 5 5 0 0 ,T # * # # # # * # # * * # # # * # # # * # * # # * # # * * # * # # # ■ # # * 5 5 1 0 ’E I N & A B E U N T E R R O U T I N E 5 520 ■' I N D E N DRUECKEH • " T £ . 41 GENIE DATA 5530 5540 .j\j 4 5550 5560 5570 5580 5590 F O R . r ~ Z T 0 6 4 : I F M I D f ( X $ ( V> , / , 2 > ~ C H R $ < 1 9 1 > L~l-Z PRINT%320," I F Y > 3 T H E N P R I N T%2 5 6 , X $ ( Y ~ 4 > ; IF V > 2 T H E N P R 1 N T % 3 2 0 iTA' $ V - 3 ) ; IF Z>.iTNENPRINT%384, M $ I F V > 0 T H E N P R I N T § 4 4 8 , X $ ( V - 1 ); PRINT%512,X$; 5600 P R I N T § 5 7 6 , S T R I N G # ( 6 4 r 1.40) 5 6 1 0 P R IN Tt) 6 40, X $ ( y + 1 > • 5 6 2 0 PRINT'S 9 0 0 , S T R I N & * (L , " _ " > ; " .’ t, 7hf : h NEXT I It 5630 3640 5650 5660 ,*f Jf /\ PRINmS99 L I N E I N P U T At IF L E N (A Si > >L T H E N 5 6 2 0 f ) * = L E F T * ( X $ ( V ) ,Z- 1 > + A t + R I & H T $ ( X * ( V ) „ 6 5 - I ) ^ S T R I N G $ ( L - L E N (A $ ) , 5670 5680 PR1NTZ512\A$ ; PRINTS9Ö0’ r"EING A B E JJ KORREKT ? (J / N ) 5690 // 6011 ^3 ■' 'Sw* IF P E E K ( 1 4 3 3 8 > = 4 T H E N K * ( V )~ A $ i P R I N T S 9 0 0 , " — > B I T T E M A R T E N < ~ ~ * : R E T U R N EL S E I F P E E H ( 2 43 3 8 ) ~6>4T H E M 5 5 6 0 El- S E 5 6 9 0 59 00 6 0 0 0 ’' D I R E C T O R Y 6001 600-S C L S E C T 0 R y 6 0 1 0 C M B " B I R 0 " - P R l N T % 0 ,"T E X E B I T -----\ \ 42 P R I N T 5 6 4 -------------------------------------------------. ....... ^ Ä ft ¥ 6015 P R 1 N T % 7 0 4 BITTE N A E H L E N ' " sPRINT" 1 NUE" 6 0 i6 P R I N T " 2 = LO ESCHEN VON FIL£S"iPRINT" = ZURUECK ZUM STARTME ,3 y = i m U C K E R A U S G A B E 6 0 1 7 A $ ~ l N K E y $ i IF A$--" " T H E N 6 0 1 7 " * iP R I N T % 8 9 8 " ; H F A $ 6 0 IS P R 1 N T % 8 9 8 „ " * " 2 " THEN6500ELSEIFfi*~"2"THEN6400ELSE1000 ■v 6 0 2 0 F > * = l N K E V * s l F A * = " " T H E N 6 0 2 O E L S E & O T O l O O O '' 6 4 0 0 C M D " D 1 R ft, P " '*L P R I N T ■G O T 0 6 0 1 7 ' : ' 6500 INPUT"FILE NAME " -KK £ ;■ 6 5 2 0 IFKKt'■-"O ■" T H E N 2 0 0 0 ; ^ ;' 6 5 2 0 IF K K £ = "T E X E B I T / B A S " T H E N 6 0 1 8 : 6530 KILL KK$t G O T 06000 ., ### 7 2 0 0 r A1# * # * # # # * 1# * # # # # * 7 2 .7 0 ’L I S T E N E I N E S T E X T E S y-w ■ 7220 ■' 7 2 2 2 X-^ OiCLSi PRINT"/.. I S T E N E I N E S T E X T F 1 L £ S "iP R I N T " ------------------------------------------------------- --------------------------------------;--------------- " '.PftJNT"'ߣßINN 'DES LISTENS '. T A STE DPJJECKEN" ' 7222 IFPE £ K ( 1 4 5 9 1 ) = 0 T H E N 7 2 2 2 7223 CLS 7 2 2 4 IF P E E K ( 1 4 5 9 1 > = 0 T H E N 7 2 2 4 7225 I F P E E H <24352>~1THEHI000 ' 7230 F Q R V - 1 T Ü 1 0 ’ .N E X T 7 2 4 0 1F L E N (X $ ( 0 ) ) > 6 4 T H E N P R I N T X $ < X ) E L S E P R I N T X $ ( X ) 7 2 5 0 .IFXCQ T HENX'-X-f-l : G O T0 7 2 2 4 7 2 6 0 A$ = l N K E V f J P R I N T S P R I N T " T E X T E N D E " s P R I N T " M E I T E R : TASTE B R U E C K E N" 7 2 7 0 F 0 R X = 1 T070Q"» N E X T . GENIE DATA 7 2 7 5 A$-~INK£Y$ 7 2 8 0 A*-= I N K E V t s IFA*-?" " T H E N 7 2 & 0 E L $ £ 2 0 0 0 * # # t 7 9 9 9 ''»•»•»•»■»■»■»■k'-k'-V-X-X" $000 ■ 'V E R E X N F A C H T E D R U C K E R A U S B A B E B 0 0 2 ■'-A1-Ac-A‘ -A1-A‘ 'A1Al -t1'» A‘ -X-A‘ -A‘ Äl -A‘-A‘-A‘-Al -A1-A‘ -A‘ -A‘ -A''Al Al ^-A‘ -A‘A‘ -A‘ -A‘-A‘ -A1-XiV-A* £OJ?Ö C L S ' P R I N T " ft U s:. B A B £ A £/ F D R U C H E R “i P R I N T " - - - - T 8020 «022 8025 8027 I N P U T " R A N D A B S T A N D ";.R A i f / ? f l > . ? 5 r w £ M s o o ö > ; - :; ; R A = R A / 2 t R A ^ R A # 2 .' P R I N T : P R ltN T " D E U T S C H E R 'DER < N . > i : ZEICHENSATZ (UMLAUTE) V ERN ENDE T 0 : 8028 K P - P E E K ( 1 4 3 3 8 ) 1 1 F H P - 4 T H E N A 2 t = " J " E L S E I F H P - 64 T H E N A 2 *= "N " E L S E & 0 T0S028 . 8029 p r i n t 8030 PR INT"BRÜCKER A U F ^ B L A T T A N F A N G STELLEN" . 8 0 3 5 p p .i n t 8 0 4 0 I N P U T " M I E (11 E L E H O P IE N " • K P S 0 4 5 I F K P - 0 T H E N 200 8 0 5 0 FÜR'/-,! TO H P ;v ■ & 0 5 2 F O R Y Y -- 0 T O Q ;■ .> 8 0 5 3 1 F P E E H ( 1 4 3 52 ) - 2 T m H L p R I N T s G O T O 2 0 0 0 8 0 5 5 IF L £ N (X * C V Y ) ) > 6 4 T H £ N R ß - 0 8 0 5 6 IF L E N ( X i W Y Y ) ) + - $ O T H E N X * ( V V ) = L E F 7* ( X * ( V / ) , 7 9 ) 8 0 6 2 I F L £ F T $ ( X $ < y y > ;£):gCM*. (2 2 7 > T H E N & 0 S U B 6 2 5 0 ; & O T 0 8 0 6 S 8 0 6 2 IF L E F 7 * ( X * ( Y Y ) 1) " § " THE NL P R I N T C H R * ( 14 ) : L P R I N T S T R I N G * < R A / 2 . " ; IF(/..£M(Xf ( '/Y> } : ~ 2 ^ / : 2 m A > 3 9 T H £ N P * ^ M i n $ ( } \ $ CY'/) . 2 , 4 0 - R A ) i ß O S U B 8 3 0 0 ; G 0 T 0 8 0 6 5 E L S E P * ~ X * ( V V );G 0 S U B 8 3 0 0 : G O T 0 8 0 6 5 8 0 6 3 I F l £ F T $( X V < VV >■ ■ ■ <2 5 3 >TNENA*-*R.I G U T * <**<'/'/> . L E H < X t < Y Y » 1);G0SUB850Q;GO TO8065 8 0 6 4 L P R I N T C H R * ( 2 5 ) ; L P R T N T S T R 2 N & * ( R A r " ") - : P Ü = X *<'/'/>'. & 0 S U S 8 3 0 0 8065 NEX 7V V ' 8 0 6 9 L P RI NT ' 8 0 7 0 P R I N T §6 4 0 / ' H E I T E M M A S ? E D R U E C K E N " ' 8 0 8 0 {-)■ *■ -I N K E Y I F A * 0 8090 NEXTy ■■ 8 0 92 I F L E N (X * (O ) ) - 7 9 T H E N ^ & i O j = X * ( 0 ) + " " 809.5 P R 2 N 7 i \ 7 6 e r" N £ I T £ V RU E C K E N " 8 J 0 0 A * = I N K E V * i I F A * - ' r “?H£H0;i<)O: : 3105 GOT01000 8 2 5 0 L P R I N T i F Q R Z = l T 0 5 & ? $ M ^ $ S f c 2 s 0 U T 2 5 5 , 0 t 0 U T 2 5 S r 1- O U T 2 5 5 , U N E X T 8 1 7 0 P R I N T % 8 3 2 y " D R U C K E R A U F BL A T T A N F A N G S T E L L E N ' 8 2 8 0 P R I N T § 8 9 6 T A S T E ^ D R i J E ä H E N " '■ .. 8 2 9 0 P R I N T's 9 6 0 . " -----------------------------------:-------- ---------------------------8199 t I N K £ Yi' : 1 F /■ )*■ ■ ■ "" T H £ N 8 2 9 9 : . - : : ' ' 8 2 0 0 P R I N T % 7 6 8 .." ' ■; : . " ;■ 8 2 1 0 PRIN7?)832," ■-;!■ ^ ^ ; ' 8 2 2 0 PR.INT5896;," ' ' 8230 P R I N T % 9 6 0 " ;• 8240 RETURN ' ' ' ' " 8 3 0 0 I F A 2 * ^ " N " T H E N L P R I N 7 P i f:-i:R £ t U R N £ £ S E F O R X ^ 2 T O L E N ( P * ) i M * = M I B * ( P * „ X r 2) -va, ■ 831.0 1 F A S C ( M * ) - 9 1 T H E N M * - C H R * , C 2 7 7 ) E L S E IF A S C ( M ^ > - 9-2 T H E N M * - C H R * < 1 7 8 ) E L :?£I F A S C <'M$ ) ~ 9 3 T N E N N * - - C H R t C 2>80>£ L S £ I F A S C (M V >•-./23 T f i £ ~ C H R $ ( 1 6 2 .> £ L S E 7.F A S C ( N * ) - 2 2 4 T H E N M * - C H R * < 2 7 9 ) E L S E I F A S C ( M * ) ^ 1 2 5 T H E N M * - C H R * ( 1 8 1 > £ L S E IF A S C f r t * 226T H £ N M $ ~ C N R $ (272) 8 3 2 0 L P R I N T M * ' iN E X T X ; R E T U R N 8 5 0 0 •’ ■A‘-A‘ -A‘-A‘ 'A‘ -A1A‘ -A‘-At 'A‘ -A1-A1-A‘# j,l‘ -A1-A‘ -A‘5i‘ A‘ A‘-AI -A‘-A‘ -A'^-A1vt‘A‘ -A‘-J‘-A1-A‘-At vl.‘-At-A‘ #^-A‘5tI"A1 43 44 GENIE DATA $ 5 2 0 ' U M H A N D L U N & IN P R O P O R T 2 0 N A L S C H R I P 7 s iS :i2 > x##'#'»####'*-»#-»#-»###-»'»-######-#-##'#.##.»#.#-*-#--#-#* * m ‘ $520 LPRINTCHR*(8) $ 5 2 5 IF R A >0 T H E N L PR7. N T C H R * ( 8 ) ; C H R * ( 2 3 ) ; C H R * ( R A * 6 ) ; C H R * 1 2 8 ) ; ’ 8 5 2 6 F O R X - L E N ( A S ) T O I S T £ P ~ 2 s I F MIT)* (/•)$ , X ,;l ) • = •- " T H E N N £ X T 8527 A*=LEFT*(A*,X) " ’ 8 5 3 0 F O R T~ 2 TOL E M ( A * ) 8 5 4 0 X ? - M 1 11* C A * , T , 1 ) ; G 0 S U S 8 9 2 0 8 5 4 5 L P R I N T C H R * < 8 ) ? C H R * < 2 2 8 >* 8550 NEXTT 8 9 2 0 1 F A S C (X * ) < 7 6 T H E N G 0 S U B 9 0 0 0 z R E T U R N 8 9 3 0 X F A S C ( X * > > 7 5 A N 7)A S C ( X * > < 1 1 7 T H E N G O S U ' B 9 0 1 0 1 R E T U R N 8 9 4 0 G O S U B 9 0 2 0 sRE TURN 9000 O N A S C ( X * ) - 3 1 G Q S U B 9 5 0 0 ,951 0 , 9 5 2 0 , 9 5 3 0 , 9 5 4 0 , 9 5 5 0 , 9 5 6 0 , 9 5 7 0 , 9 5 8 0,9590,9595,9598,9600,9620,9620,9630, 9640,9650,9660,9670,9680,969 0 , 9 7 0 0 , 9 7 1 0 , 9 7 2 0 , 9 7 3 0 , 9 7 4 0 , 9 7 5 0 , 9 5 0 0 , 9755, 9 5 0 0 , 9 7 6 0 , 9 7 6 5 * 9 7 7 0 . 9 7 7 5,9780,9785,9790,9795,9800,9805.9810.9815,9820 ’ ’ 9005 RETURN' . . . . . 9010 O N A S C C X * ) - 7 5 G 0 S U B 9 8 2 5 , 9 8 3 0 , 9 8 3 5 , 9 8 4 0 , 9 8 4 5 , 9 8 5 0 , 9 8 6 0 , 9 8 6 5 , 9 8 7 0, 9 8 7 5 , 9 8 8 0 , 9 8 8 5 , 9 8 9 0 , 9 8 9 5 , 9 9 0 0 , 990.1 , 9 9 0 2 , 9 9 0 3 , 9 5 0 0 , 9 9 0 5 , 9 5 0 0 , 2 0 0 10,10020,10030,10040,10050,10060,10070,10080,10090,10100,10110*10 2 2 0 , 2 0 2 3 0 , 2 0 2 3 5 , 2 0 2 4 0 , 2 0 2 3 0 , 2 0 2 6 0 . 2 0 2 7 0 , 2 0 2 8 0 , 2 0 2 :: : " 9015 RETURN . . . . . . 9 0 2 0 O N A S C (X * ) - 1 1 6 G 0 S U B 1 0 2 0 0 , 1 0 2 1 0 , 1 0 2 2 0 , 1 0 2 3 0 , 1 0 2 4 0 , 1 0 2 5 0 . 1 0 2 6 0 , 20270,20280,20290 . . . . . . . 9025 RETURN . : ; ■■ 9 4 8 9 ”i t # # # # # # # * # # # # # # # # # # # # # # # # # # # # # # # # # # # # - # # # * ! \ ,: 9 4 9 0 * 'ßruck&r'au$gafo& P r o p o r t i o n a l s c b r i ft 9 4 9 1 ■’ * 9 5 0 0 L P R X N T C H R * ( 2 2 8 > ■C H R * ( 2 2 8 > * C H R * ( 2 2 8 >; s R E T U R N 9 5 2 0 L P RI N T C H R * ( 2 2 2 ) ; zRE TURN 9 5 2 0 L P R I N T CHR * (234> - CHR* (128) % CHR* (134) ; “ .R E T U R ' 9530 L P R I N T C H R * ( 164);C H R * ( 2 5 4 ) -C H R * (254)-C H R * (1 6 4 > ; S R E T U R N 9 5 4 0 L P R I N T C H R * ( 1 6 8 ) - C H R * ( 1 7 2 ) ; C H R * ( 2 5 4 ); C H R $ ( 1 8 2 * t.C H R * ( 1 4 & >; s R £ turn 9 5 5 0 L P R I N T C H R * ( 1 6 4 ) • C H R * ( 2 4 4 ) ; C H R $ ( 2 0 0 ) *■: R E T U R N 9 5 6 0 L P R I N T C H R * ( 2 8 2 ) ;C H R $ (2.02) ;C H R * ( 2 2 2 ) ; C H R $ ( 2 6 0 > z ü H R $ ( 2 0 8 ) urn ' ' 9570 L P R I N T C H R * ( 2 3 6 ) - C H R * ( 1 3 4 ) - s RE TURN 9 5 8 0 L P R I N T C H R * ( 1 8 8 > ;C H R $ ( 2 9 4 > ji R E T U R N ■ 9590 LPRI NT CHR* (294) ?CHR* (288) % i R E T U R N ]}\ 9 5 9 5 L P R I N T C H R * ( 2 2 2 > C H R * ( 2 8 4 >; C H R * ( 2 2 2 > ; i R E T U R N 9 5 9 8 L P R I N T C H R * ( 1 4 4 ) - C H R * ( 2 8 4 ) “C H R * ( 1 4 4 ) $ - R E T U R N 9 6 0 0 L P R X N T C H R * ( 2 9 2 > ; C H R * ( 2 6 0 ) , : '.RETURN : 9 6 2 0 L P R 1 N T C H R * ( 2 44 ) C H R * ( 1.44) % C H R * ( 1 4 4 ) ? R E T U R N 9 6 2 0 L P R X N T C H R * ( 1 9 2 ) ; '.RETURN ' 9630 L P R I N T C H R * ( 224);C H R * ( 1 5 2 ) ; C H R * ( 1 3 4 ) ; • RE TURN 9 6 4 0 L P R X N T C H R * ( 1 8 8 > ; C H R * ( 2 9 4 ) ; C H R * ( 2 8 8 ) r •R E T U R N 9650 L P R I N T C H R * ( 1 3 2 ) • C H R * (254);- RE TURN 9 6 6 0 L P R I N TCHR* (228 ); C H R * ( 2 1 0 ; C H R * (202 ); C H R * (196); : RE T U R N 9670 L P R I N T C H R * ( 162);C H R *(202);C H R * ( 214);C H R *(162); sRETURN 9 6 8 0 L P R X N T C H R * ( 2 5 8 ) ; C H R * ( 2 4 4 ) r, C H R * (252);; C H R * ( 2 4 4 ) ; : R E T U R N 9 6 9 0 L P R I N T C H R * ( 2 0 6 ) ; C H R * ( 2 0 2 ) ; C H R * ( 2 0 2 ) f C H R * (278);'. R E T U R N 9700 L P R I N T C H R * (288);C H R * (202);C H R * (202);CHR*(178);:RETURN Vt 2 0 L P R I N T C H R * ( 2 2 6 ) ; C H R * ( 2 4 6 ) ; C H R * ( 2 3 8 ) ; C H R * ( 2 3 4 ) ; s R E T U R N 9 7 2 0 L P R I N T C H R * ( 1 8 0 ) ; C H R * ( 2 0 2 ) ; C H R * ( 2 0 2 ) ; C H R * ( 2 8 0 ) ; : RE. T U R N 9 7 3 0 L P R I N T C H R * ( 2 0 6 ) ; C H R * ( 2 1 0 ) ; C H R * ( 2 1 0 ) ; C H R * (1.88 ) ; : R E T U R N 9 7 4 0 LPR 1 N T C H R * (168) - RE TURN 50 L P R I N T C H R * ( 1 9 2 ) ; C H R * ( 1 6 8 ) ; % R E T U R N 9 7 5 5 L P R I N T C H R * ( 1 6 8 ) ; C H R * ( 1 6 8 ) ; C H R * ( 1 6 8 ) ; '■ RE TURN - RE 7 .........................................................- COLOUR - GENIE SOFTWARE EG SCHMIDTKE NEU ►„ , „ t u A K T U E L L electronic Büro- und Personalcomputer Sandkaulstraße 84 - ^ p r e i s w e r t T e le fo n : 0241 - 2 32 17 Wir senden Ihnen gerne unseren Softwarekatalog m it über 100 Programmen! (Natürlich kostenlos!) - so gut haben Sie f ü r so w e n ig G eId noch n i< g e d r u c k t ! d e r GEMINI 10X i s t » i n N o r m a l p a p i e r - M a t r i x d r u c k e r v o n S t * r , m i t e i n e r G e s c h w i n d I g k e j t uon 120 Z * i c h e n / s e c . , » i n ? - N i d e l D ru ckko p f s o r g t f ü r best« S e h r ii t q u a I i t a t , der Druck w ir d n a t ü r l i c h b i d i r e k t i o n a l u n d d r u c k u e g o p t im i e r t a u s g e f ü h r t . Hochauflösende G ra fik I s t d u r c h E i n z e l n a d e 1a n s l e u e r u n o m ö g l i c h ] d i e A u f l ö s u n g i s t von 480 b i s 1928 P u n k te p r o Z e i l e w ä h l b a r ! A S C I I- S t a n d » r d - 2 e ic h e n s a tz , 88 I n te r n a t io n a le S o n d e r l i c h e n , K u r i l v - S c h r i f 1 1 B l o c k g r a f i k , Gr a f i k s o n d e rx e i chen , u n z ä h l i g e S c h riftb re ite n , f e t t - , b re it-, e l i t e - Druck, e tc , s in d genauso s e l b s t v e r s t ä n d l i c h w i e e i n l a d b a r e r Z e i c h e n s a t i u n d MACR0c ( I n s t r u c t i o n s . D e r T r a k t o r f ü r E n d l o s p a p i e r l ä ß t s i c h v o n 7 , 5 cm E b , s 2 s »| sogar e in e H a ite ru n g f ü r R o lIe n p a p ie r i s t im a P r e i s e n t h a l t e n . A u s t i e f e r u n g ml t C e n tr o n ie s - P a r a i l # I g S c h n i t t s t e l l e . RS 2 3 2 C a l i Z u b e h ö r l i e f e r b a r . : : ü . . . . . . s Drucker-Zubehör ^ t . 3<ä3 1195.- »r- S t e c k e r und (C entronics) DM DM Bö 2 0 1 3 J o y s t f c k - S e t < 2 P r D p o r t \ o n a 1 - J o y s t i c k * A r t . 3 0 4 m i t A n a 1 o g - “ D i g i t a 1w a n d l e r s o w i e T a s t a t u r ) 245., - DM EG 2 8 1 6 p a s s e n d e r A r t .30 7 Z ä h l w e r k . 12 5 , - DM 89. - DM 29.- 0M !5 .- DM wie A r t . 305 ROH'» Sony A r t * CHF 4 0 3* 1 s je d . m it K assettenrecorder hervoragend je d o c h ohne Neu» Tretberbau * tein m it Band - gee igneter K asssettenrecorder 8andzählw erk n e u e Roms In fo s und Programm la n g jä h rig fü r das C olour Prerse gesondert Genie anfragen Kassetten b e ste r bei un$ e rp ro b t.- 1 Q u a litä t J0er-Pack Schal tp lä n e A r t . 313 Sammlung d e r B e s t ü c k u n g s - u n d :S c h a I t P l ä n e f ü r d a s C o l o u r Gen t e u n d : Z u b e h ö r Techn i sehes Handbuch A r t * 314 e n t h ä l t o b i g e Sc h a J t p l a n s a r r i m! u n g , s o w t e ©1o c k d i a g r a m m e 1 B e s c h re i bungeri u n d H i n w e is e zum N e t z t e i l , C R T C - C h i p , P S G - C h I p t CPU, e t c . C P U - B e f e h 1 s s a t X , A n -sch 1 u f l b e 1 e g u n g r H i n w e i s e z um P a r a l l e l p o r t u n d s e r i e l l e r S c h n i t t s t e l l e , Kassette n in te rfa ce u .v .i.m , A r t , 314 4?.- ROM - v o l l s t ä n d i g k o m m e n t i e r t , m i t k o m m e n t t e r t e n RAM A d ressen, 1/0 Adressen, U n te rp ro g ra m m Iis tin g , v ie le T ab ellen u .a. A rt. 458 59.DM L is tin g Röckrath von Klaus L is tin g . Kämpf . ■ neuen ihre 9B.~ L. : und 198.- ROM - ■■ * j en e rw eite rt Ar t .449 w ie oben, jedoch m it e in e r B e g l e i 1 1 e x t e n zum L i s t i n g ; Anfänger g e e ig n e t. DM guten E in f ü h r u n g und i n s b e s o n d e r e f ü r den A rt. 4it 6 9 .DM C o lo u r - G enie B u c h e n m i t u i e t e n T i p s u n d T r i c k s zum C o l o u r G e n r e , I n t e r e s s a n t e n Programmen u n d P r o g r a m m * e r h i 1f enf B a n d I => A r t . 4 4 2 / B a n d I I = A r t . <143 P r e i s p r o Band i 39.DH . POWER J o y s tic k — ...... " ■"« d e n A r t . N r n . 3 7 0 ^ , * 37. 9 m ü s s e n a u c h b t t U o r k a s s e j e K a r t o n ^ P o rto m itg e tra g e n werden (ansonsten Versand u n f r e i . ) MN e r h ö h t s i c h d a s P o r t o a u f 1 8 . - DM p r o K a r t o n . Forma ti Q r e t 1e 2 4 0 mm 2 4 8 mm 2 4 0 mm 2 4 0 mm 2 4 0 mm 2 5 0 mm 3 3 8 mm 3 7 5 mm Genfe D ruckeranschIußkabe1 m it P a ra lle lp o r t - Konverter : C E n d lo sp a p ie r m it per t o r ie rte m Lochrand (Lochrand a b re iß b a r) > Q u a l i t ä t HF 6 8 j 240mn> u n d 2 5 8 m m - P a p i e r e r g i b t o h n e L o c h r a n d < DIN A4 - G rö ß e . Bei D u r c h s c h lä g e n < 2 fa c h u . 3 f a c h ) h a n d e l t es » i c h um s e i b s t d u r c h s c h r e i b e n d e s P a p i e r . Bei C olour EG 2 8 1 2 A r t «365 EG 2 0 1 7 Ar t .399 5100 AACHEN GEMINI 10X 2000 EG 2 0 1 1 I 6 K - R A H S t e c k m o d u 1 , A r t . 3 9 4 G e n i e a u f 3 2 K R/ V1. A rt. A rt. 315 31A Stecker EPROM - Typ Typ Super Joys (ck für das C olour Genie ! A u 5 * t 9 * ni ?l' E n t w i c k l u n g . L ä u f t m i t f a s t a l l e n S p i e 1 p r o g r aj nmen ( M o t t e n , W u r m , H e k t i k , A n d r o m e d a , E is, Invasion, etc . ...) Der g ro ß e G r i f f m i t F e u ­ e r k n o p f l i e g t g u t in der Hand, e in w e it e r e r Be­ d i e n k n o p f (RETURN) a u f dem G e h ä u s e . Power J o y A ? (zum E i n l ö t e n ) 75,DM Power J o y 8 : w i r d e i n f a c h e i n g e s t e c k t 78.DM 2 0 p o 1 . S t e c k e r 1e i s t e m j t K o n t a k t e n p a s s e n d zum P a r a I I e 1 ~ P o r t A r t . 31? 50pol . v e rg o ld e te SfceckerIeiste p a s s e n d zum S y s t e m b u s A rt. 318 24,50 DM* 29.80 DM* Einschubi P l a s t i k b o x , p as s g ena u a u f den Söpol . Bus des CoI o u r - G e n i e . M i t 5Öpol v e r g o l d e t e r S t e c k e r 1p i s t e u n d E p r e m « D e k o d i e r u n g . 3 Le e r f a s s u n g e n f ü r E p r o m s Typ 2532« E n d l i c h haben S ie I h r e Programme d i r e k t beim E r n s c h a lt e n des G e rä te s zur V e rfü g u n g . A rt. 459 39.HM 46 GENiE DATA 9760 9765 9770 9775 97 SO 97 8 5 9790 9795 9S00 9805 9610 9915 9820 9825 9830 ÜR N 9835 9840 9845 9850 9860 9865 L PR], NT C HR * ( 1.32 ) tCHR* (210 ) »CHR* ( 138 >: CHR*( 132) L PR.TN TCHR? (188) ; CHR? (218 .>; CHR? (218 ) C H R ? (172) 4) C H R * ( 1 3 8 ) i C H R *(254) ■RE TURH LPRJ.N7CHR*( L P R I N 7CHR? (254 > CHR? (202 > r CHR? (180 ) :RE TÜRM L P R 1 N T C H R * ( 1.88) ; CHR* ( 1,9 4 ) ? CHR* ( 1.6 4 ) iRE TURH L PR I N 7C H R ? (2 5 4 > - C HR $ (19 4 > ; CH R ? (18 8 > , :R E T U R N L P R I N T C H R * (254 ) - CHR* ( 2 0 2 ) - CHR* ( 2 0 2 ) ? i RE TURN L P R I N T C H R ? (254) -CHR? (138) ;CHR? (138) - i RE TURN L P R I N T C H R * ( 188 ) 9 CHR* ( 1.94) CHR* (210) r CHR* (242 ) f s RE TURN L P R I N T C H R ? (2 5 4 ) : C H R ? (13 6 ) ; CH R ? (2 5 4 ) ■ '■R E Tü RN L P R I N T CHR* (1.94) \ C H R * ( 2 5 4 ) )C H R * ( 1 9 4 )- ■RE 7URH L P R I N T C H R ? (160) CHR?- (192> ;CHR? (190) RE TURN L P R I N T C H R * (254) C H R * ( 1 3 6 ) ; C H R * (1 4 8 );C H R *(230> ;RE TURN L PR I M 7CHR ? (25 4 > - CHR-i'< 192 > • CH Pa' (192 > - : RE TURN f CHR* ( 1.32 ) - CHR * (2 5 4 ) . ■RE L PR7. N T CH R* (2 5 ‘ CHR* (132 ) :CHR * ( 152 ) ~ LPR7.N TCHR* (2 5 4) ■CH R* ( 140 ) - CHR* ( 1.76 ) ; CHR * (2 5 4 ) . s RE TURN L P R J N T C H R * ( 1 8 8 > tC H R ? ( 1 9 4 ) - C H R ? (188) - :RE TURN L.P R I N T CHR* (254 > - CHR* (1.38 ) - CHR* (142 >; s RE TURN L PR.IN7CNR ■*(18 8 > - C H R # (19 4) -C H R $ ( 16 2 > ■C H R * {220 ) ? : & E 7 tJRN L P R I N 7 C H R * (254) ; CHR* (1. 38 ) -CHR* (146 ) ? CHR* (236 ) ;■ -RE TURN L PR.T N TCHR $ (196 ); CHR? (202 ) •C H R $ (202 > CHR sf <178 )_■: RE 7URN L P R 1 N T C H R * ( 1 3 0 ) - C H R * ( 2 5 4 ) % C H R * ( 1 3 0 > - s RE TURN L.PR.IN TCHR? (190 > CHR? (192 ) ;CHR? (190 ) ; : RE TURN LPR1NTC.HR* (1 5 8 ) ; CHR* (22 4 ) - C H R * ( 1.58 >; s RE TURN LPR.INTCHR?( 2 5 4 > . C H R ? ( 1 60 )■ C H R ? ( 1 5 2 ) : C H R * <1 60 )■C H R ? ( 2 5 4 ) x •RE 7 9870 9875 9 8 BÖ 9885 URN 9890 LP R 1 N T CHR* (230 ) ’CHR* ( 1.52 > r CHR* (230) ? s R E T U R N 9 8 9 5 L PR 1N T CH R ? (134) - CH R ? (248) CHR? (134) : : RE TURN 9900 L PR IN T CHR* (226) ■ CHR* ( 21.0 ) -CHR*( 202 ) r CHR* (1. 9 8 ) ; i RE TURN 990,! L P R IN 7C HR ? (2 50 > C H R ? (14 8 ) ■C H R ? (250 ); : ic?E 7URN o o o '? L P R I N T C H R * ( 2 5 0 ) - C H R * ( 2 0 0 ) ? C H R *(250)- -RE TURN 9 9 0 3 L P R .1(V 7C H R ? (25 0 > - C H R ? (192 ) - C H R ? (250) ;■: RE TtJRN 9 9 0 5 L PR IN T CHR* (1. 4 4 ) *■CHR* ( 1.44) %CHR* ( 1 44 ) ; :RE TURN .i'0 0 . HO LP R.TN 7C H R * (176) - CH R? ( 2 0 0 ) C H R * < 2 4 8 > % CH.R*<;i92> ? z&E TURN f.00 20 L P R 1 H T C H R * ( 2 5 4 ) ;C HR *( 2Q0 ) ;CHR*( 176) *:tRETURH-' .i'0 0 3 0 L P R 1 N T C H R $ ( 1 7 6 ) ?CttR:?(20Q> ;CHR?\(20Ö> l ' R E T Ü R H O 1 0 0 4 0 LP R I N T C H R * ( 176) f CHR.* (200); CHR* (254) ; ’RE 7URN .i' 0 0 5 0 LP R I N T C H R ? (248) flCHRt ( 216) ;C Ü R ? ( 2 1 6 ) ~ tRETiJRti 1 0 0 6 0 LPRI.N7 CHR* ( 136) tCHR* (254) »CH R* (13 8);* RET URN 1 0 0 7 0 L P R I N T C H R ? ( 2 1 6 ) ■ C H R ? (2 1 6 ) / C H R ? ( 2 4 8 ) - ^ R E T U R N 1.0080 LPR I N T C H R * ( 2 5 4 ) ? C H R * ( 1 3 6 ) ~C H R * ( 2 4 0 ) R E T U R N : i0 0 9 0 L P R X N T C H R * ( 2 5 Ö > ■R E 7 U R N 101.00 L PR IN TCHR* ( 1.60) ■ C H R * ( 192) CHR* (250) - : RE TURN 1 0 1 JO L PR IN 7 CHR ? (2 54>,;CHR ? (176 )<"HR ? (200 > ■ : RE TU R N 10120 L.PR IN TCHR * ( 2 5 4 ) ; CHR* (192 ) - ? RE TURN 1 0 1 3 0 LRR.TN 7CHR* (248 CHR? (136 ) CHR? (248 > • CH R? ( 136)- CHRt- (240); sR£ TURN 1.0135 LP R I N TCHR * (2 48 ) C H R * ( 136 ) CH R* (240) ,j s RE 7U R N .10:140 L P R I N T C H R ? ( 1 7 6 ) j CHR? (200) C H R ? (176 > -:RE TURN 1.0150 L P R I N T C H R * (248 ); C H R * (152) . C H R * ( 1 5 2 ) ; ; R E T U R N 1 0 1 6 0 L P R I N TCHR? ( 1 5 2 ) * CHR? ( 1 5 2 ) : CHR? 2 4 8 ) : RE TURN C H R ? ((248) 1.01.70 10180 10190 10200 1.021.0 10220 LPR I N 7CHR* ( 2 4 8 ) : CHR* ( 1 3 6 ) • sRE TURN L P R I N T C H R ? ( 2 0 8 ) - CHR? ( 2 3 2 ) CHR? ( 1 6 8 ) ; : RE TURN L PR I N TCHR* ( 1.36 ) ; CHR * ( 2 5 4 ) ; CHR * ( 2 0 0 ) r s RE TURN L P R I N T CH R? ( 2 4 8 ) - CHR? ( 1 9 2 ) : C H R ? ( 2 . 4 8 ) :: RETURN L P R I N T C H R * ( 1 8 4 ) r CHR* < 1 9 2 ) ? CHR* ( 1 8 4 ) x “ RE 7URN L P R I N T C H R ? ( 1 8 4 )'■ CHR? C i 92 ) CHR * (176 ) CHR $ (192 ) CHR t ( 18 4 ); vR(- TURN 10230 LPRINTCHR*(: ■CHR * ( 16 0 ) r CHR *(21.6) r : RE 7URN 1 GENIE DATA 10 2 4 0 10 2 50 10260 10270 10280 102 90 10 5 0 0 10510 10 52 0 10 5 2 5 10530 LPRINTCHfilt < 2 Q Q > ;; C H R S ( 1 7 6 ) CHRi' U 3 6 > ; : R E T U R N RETURN L P R I N 7 C HP, $ ( 2 0 0 ) ; C H R * ( 2 3 2 ) ; C H R $ ( 2 2 6 ) ; C H R $ ( 2 0 0 ,> r ■ L P R.IN 7 C H Ri' ( 1 7 8 ) C H R $ ( 2 0 0 > ■C H Ri < 2 5 0 ) ; C H Ri' ( 1 9 2 > ~ r R E T U R N L P R 1 N 7 C H R * ( 2 5 0 ) ? C H R t U 9 2 ) ; C H R * ( 2 5 0 ) ; < RE T U R N L P R I N 7C H R $ ( 1 7 8 > :C H R $ ( 2 0 0 ) ; C H Rt- C1 7 8 ) ■: RF. 7 U R N L P R 7 N T C H R $ ( 2 5 4 ) -C H R P ( 2 7 0 ) C H R * ( 1 8 2 ) - i R E T U R N ■ '■ #-A‘ -i-t XL *-A‘ -A‘■ »A‘ A‘ -V-AEA‘ A‘ XL■ #vt‘ ■ #A‘ X<--X<-■ #■ #-X1-# -A‘ ' T e x t f a r j & a t i e r u n g 64/'80 ’■ X’ --A‘vt‘ -A‘■ #X~A‘ -A‘* -X‘ -A‘-A‘-A‘-A‘-A‘-X‘ -XLA1-XL-A1-A1A1■AHM'TP’* * A‘ CLS P R I N T " T E X T F 0 R M ft T I E R U N G " ~ P R I N T "- B E R E I 7S F O R M f t 7 1 E R 7 " i ß 0 7 0 4 1 0 5 3 2 1 F L E N (X # ( 0 ) > - 8 0 T H E N P RI N T " TE X 7 610 1 0 5 3 5 N 1 - 0 “N2--0 1 0 5 4 0 P R I N T §2 56 , ' ’ ftL7E 7-E 2 L E N N U M M E R " N 2 1 0 5 5 0 P R I N 75320,■ ' NE (JE Z E I L E N N Ü M M E R " ' N 2 10560 F 0RN 2-07OQ 2 0 5 7 0 P R I N 7 % 2 7 3 , NI 1 0 5 7 2 IFLEF7t>(X$(N2. ) r 2 > = CHRt> ( 2 2 7 ) 7H E N G 0 7 0 1 0 8 0 0 1 0 5 7 5 I FL E F 7$ (X $ (N I > ,, 1 >•- C H R '$(153 ) 0 R L E F 7 $ < X $ CN 1) , 2 .>■ % " T H £ N £ 0 S U B 1 200 1 0 5 8 0 F O R 7 - 1 7 06/ 4 1 0 5 9 0 1 $ '--HID$(X$(N1) ,T 1 } 1 0 6 0 0 IF Iff = ” " 7 H E N G O S U B 1 2 0 0 0 ; G O 7 0 1 0 6 5 0 1 0 6 1 0 I E I :fi•= " 0 R I $ C H R :?{•./ S3 > 7H E N 2 0 6 50 1 0 6 2 0 I F 1 f>-~ " " 7 H E N 1 0 6 50 1 0 6 3 0 I F /->S C ( I $ > - 9 4 7H E N ß 0 7 0 1 0 9 0 0 10640 10650 NEK 7 7 1 0 6 5 1 1$ = •> "i Q O S LIB.2 2 0 0 0 10652 NEX7N1 2 0 6 5 4 K$(N2)-f<$ :. 2 0 6 6 0 Ci=M2 - IF L E N ( A'S« ( 0 > ) C ß O T H E N X t ( 0 ) - H $ < 0 ) + S 7 R I N G J? CS O - L E N ( X $ ( 0 ) ) ' 20665 PR1NT%382 f,’: 10668 K$~"" : 2 0 6 6 9 P R 2 N T % 3 3 7 ,.N2 : 1 0 6 7 0 P R l N T i P R l N T ,,T E X T F 0 R M f i : 7 j M ( J M G : B E E N X l E J " . . 1 0 6 8 0 P R I N 7: P R I N 7 " M E I 7 E R 7 Ü S 7 E 7JRUZCKEN"' ■■; . ■ 2 0 6 9 0 IF P E E H ( 1 4 59 2 ) - 0 7 H E N 2 0 6 9 0 E L S E 2 0 0 0 .... 1 0 8 0 0 I F 1 1 i'< " G0SUX11000 . v ‘ 2 0 8 2 0 X $ ( N 2 ) =f<* sN 2 = N 2 + 2 ‘ . K t = " ”; X $ ( N 2 ) = C H R $ ( 2 2 7 ) s N 2 - N 2 + 1 s G O 7 0 2 0 6 5 2 1 0 9 0 0 .T E I I 2:<’ ,>" " 7H E N G 0 S U B 1 1 0 0 0 'Z L ■ “9 ; 1 0 9 2.0 I F l i t O " " TH E N X iß( N 2 > = K * s N 2 = N 2 + U ■ 1 0 9 2 0 IFT-Jt T H E N X & ( N 2 > " " '■ N2-H2-+2 , / 20925 PRJ.NT%337.N2r : . . 1 0 9 3 0 GO 7010650 ’ :V ■ 1 1 0 0 0 IF 11 " 7HENP.E T U R N ■ 1 1 0 1 0 Z - L E N (K ■ $) L E N(IIi') 2 1 0 2 0 IF Z < 8 0 TH E N K + + " " ' I li^-" " ~ R E T U R N " : N 2 - N 2 +.2 111 f > " ”i P R I N 7§337 , N 2 1 1 0 3 0 I E Z > * 8 0 7H E N X * (N 2 ) --K sf t K *■*11 $ i -R E T U R N ■ 2 2.2 0 0 IF L E F 7 $ ( K* f 1. ) ~ " § " O R L E F 7 $ ( K $ , 2 ) = C H R * ( 2 53 > 7 H E N RE 7 U R N 1 1 2 1 0 K t - L E F T t , RE TURN 12000 '* x x # # ■###### 12.010 ’B E / J I E N O N G S F E H L E R 12020 ' . # # # **# ***# * 2 2 0 3 0 I FE RL = 6 0 2 8 7 H E NPRJ. N T % 8 96 / ' F I L E 900iNEX7i PRINT%896, NICHT IM D I R E C T O R / " ; s F 0 R / ~ 2 T 0 IG 0 7 0 6 0 1 8 47 48 GENIE DATA 12032 1FE R L = 9 3 1 0 7 HEHRE S U M £$000 1 2 0 3 5 I F F : R L 4 2 3 6 7 HE M E S U M E 4 2 4 0 1 2 0 3 9 IF E RL = 6 5 3 0 7 H E NPR7. N 7 !i 9 9 9 / " F I L E H 1 C H T 7,M TJl R E C T O R Y " ; F O R Y =1 7 0 9 0 0 : N E X 1 ■R £ SIJ M E 6 0 2 8 1 2 0 4 0 7.F E R L = 4 5 4 0 7 H E N P R I N T % 1 9 2 , " F I L E N I C H T IM B I R E C T O R Y " ? ' F O R / - 2 T 0 9 0 0 ‘N £ X T 'P ftI N 7 % 1 9 2 " ' P R I N T s l 9 .1, " ,v ; : B O T 0 4530 1 2 0 5 0 IF E R L = 4 5 9 0 0 R 4 5 9 5 7 H E H C L U S E " P R I N T i P R 2 N T " S P E 7 C H E R V O L L " z G O 70 46 :10 S P E 1 C H E R VOL L * # G0704610 1.2060 7.F E RL = 2 9 3 0 7HE H P R I H 7 " * * * .12070 X F £ R L = 4 0 4 0 T H £ N P R X N TJt * ■ » ■ » S P E X C H E R V O L L HtiCH Z£ IL £ * # #"i&0704610 1 2 0 9 0 7.F E R L - 1 0 6 0 0 7 H E N P R I N 7 Q 4 4 8 , " K E 1 H T E X T I H S P E 1 C H E R " - G 0 7 0 4 6 1 0 2 2 0 ® 5 X F E R L :l0 6 0 0 ‘ . G O T 0:106 5 0 1 2 0 9 0 P R I N T ERL #*########* 1.3000 •v 1 3 0 2 0 7 N £ I r£ R S C H R £ X B £ N U O N T£ X T E N 13020 ’ * * * # # # # * # * .1302.1 C L S i P R I N T " £ R N £ X T £ ft N £ I N £ R T E X T 7J £> T E I" “ - P R I N T " ------------------------------------------------------------------- ------------------------------------------------------------------------------------------- " : P R X N T : P R I N T " F I L E N f l N E > S * : P R IN T t P R I N T " B E G I N N 7JER £ 2 H 8 Q BE 7f)S7E D R U E C K E N " ■ 1 3 0 2 2 /-)#~ . r N K £ Y $ i XF/-)$ = " " T H £ N 130.22 " \ 13025 CLS 1.3 0 3 0 IF Q < 1 3 7 H E N F 0 R X = 0 7 0 0 P R 2 N T X * ( X> ; i X t < X > = " " “N E X T ' X » 2 5 3 6 0 + Q # 6 4 1 P 0 K £ X , .73 2 i 0 * Q i G O 70 1 3 0 5 O 1.3040 F 0 R Z = Q ~ 1 3 T 0 Q : P R I H T X * ( 1 > % -Xi'(. Z > ‘N E X T i 0 = 0 - 1 3 “P O K E 1 6 2 56 v 1.31 • >>= 1 6 2 5 6 1 3 0 5 0 P R I H T ft96 0 , " S £ TS E 7 S E 7S E 7 - - > S C H R E I.B M O B U S < - - S E 7 S E 7 S E 7 S E 7 S E 7S E 7 S E 7 S E 7 S E 7 S E TS E TSETSETSETSETSETSETSETSETSETS£T L = 00 S£TSETSETSETSETSETSETSETSE TSET"; 1 3 0 5 5 ’Q 1 = 0 i P R I N T S ! 0 0 9 , 0 1 + 1 5 : " " r ■ 1 3 0 6 0 G O TO2 1 9 6 , 14000 y \ | : 1 4 0 1 0 7 E7)JT0R ' 1.4020 '- » I - * ##■*#•)(■# ' 14025 Z4=Q 1 4 0 3 0 C L S - P R I N T " E V I 7 0 R " ‘P R I N T S T R I N & f ( 6 4 , " - " .> J P R I N T " S 7 & R 7 ' 7 /-)S7E B R U E C X E N " 1 4 0 4 0 f>t>= I N K E V $ i IF A i = "" T H E N 1 4 0 4 0 E L S E C L S 1 4 0 6 0 F0P.X--0 T 0 1 3 H F L £ N { X $ < X > > < 6 4 T H E N P R X N T Xf> ( X > E L S E P R X N T Xf> < X ) .? 1406 5 NEXTX 1406% PR INT X $(24> ■ 1 4 0 7 0 PRI. NTfi 9 6 0 , " S £ TS E T S E TS E 7— > E D I 7 O R < - - S E 7S E T S E TS E T S E T S E TS E TS E T S E T S E 7 S E TS E 7 S E TS E T S E T S E TS E T S E TS E TS E T S E T S E TS E T S E TS E T S E TS E T S E T S E TS E 7 '3 £ T S E TS E T S E TS £ T SE T S E T S E TS E 7S E TS E T S E T S E TS E TS E T" • ■ 1 4 0 7 5 P R X N T % 1 0 2 0 ," L = 15 1 4 0 9 0 1=0'- 0 1 = 1 5 14100 Z=2 5360 ■ 1.41.10 Z 1 = P E E K < Z > ■Z 2 = Z ■P O K E Z , 1 7 9 1 4 1 1 5 IF P E E K < 1 4 4 0 0 >-~32<'-)N'DZ>2 5 3 6 0 7 HENZ----Z- 1 1 4 1 1 6 IF P E E K < 1 4 4 0 0 ) = 6 4 F)NF)Z < 1.6 3 1 9 7 H E N Z = Z + t 1 4 1 2 7 IF P E E K < 1 4 4 0 0 >=16£iN'BZ< 1 6 2 5 5 7 M E N Z = Z + 6 4 1 4 1 1 9 IF P E E K < 2 4 4 0 0 ) =9f)NBZ > 1 5 4 2 3 7 H E N Z - Z - 6 4 1 4 1 2 0 IF P E £ K C1 4 3 3 9 > = 9 7 H E N P O K £ 1 2 ,2 ' 1 r G O T O 1 4 6 0 0 1 4 1 2 5 IF P E E K < 1 4 3 3 9 ) = 2 T H E N P O K E Z 2 , Z 1 i G O TO 1 4 7 0 0 1 4 1 3 0 IF P E E K ( 1 4 4 0 0 > = 2 T HE N P O K E Z 2 , Z 2 : G O T 0 1 4 - 2 0 0 ' 1 4 1 3 5 IF P E E K ( 2 4 3 4 4 ) = 4 7 H E H P 0 K E Z 2 . Z H G 0 7 0 1 4 2 3 0 GENIE DATA I4i40 .2rc ic’£ £ K < 14337 ).1 1W £ NPOK EZy., 3.1 •GO 1 0 1 4 BOO 141.50 If PE E K ( 1.4 337 ) »---3 2 THEN P OH £ Z 2 , 1 1 ’G 0 701 4 9 00 14190 P O KE Z2 ,.Z.1 :&0 7014110 14199 •"#### ### ### ### ## ## ### #■ »# #### 14200 7B.ILDSCHIRM S C R 0 L i. ## if####■## # 1.4201 ■' 14210 14220 7 A R P 7R((J ? : .) ; P 0 K E 7 , 6 4 iPO H EJ+J. rQi P 0 H E T + 2 7 & H 3 C .14230 .l-^.T+.l: JF.T-^Q THEN&OSU'S.l.14300 : 1.4240 G 0 S U B 2 9 2 0 14250 P R .1N 7§B 96,, X '■£ ( 'Q .1} ■ iQ.t^Ql+2 14255 PRINT%20&.4 ,1 + 25; 14260 GO 70.14.1.m 14299 •v -A‘ # -# # *■ ■# # # # # # # # # # # # # # # # i v # # # # 1 4300 •’ str.i ng v&rsch.ieber? 14301 ■' # # # # # # # # # # # # # # # # # # # # # # # # # # # 1431 0 .1FZ 4<0.17M E N R E 7URN 14320 F 0 RX -Z 4 7 0 0 2 S T E P - 2 zX$ ( X +10 )= X <’ X ) "N E X 1 s Z 4=Z 4 + 2 Oi 02 =02 + 2 d RET URN 14 5 9 9 ■' 1# - # # # # # # # * 1 * 1- # # # # # # # # # # # # # * * * 1# 1460 0 'KILL LINE 14601 ■v # # # # # # # # # # # # # # # # # # # # # # # # # # # 14610 0,'■}%(.1 >---:.TN7( (Z.~ ,153601 / 6 4> 1.4620 GO S U S 2 920 iäfiZ (1 )-Oi P R I N T § 3 9 6 . X i‘< 01 > ; z 0 1=81 + 1 '.&07Q1411Q ■»-if-»-»-v#■#■### # -a1# # # 1469 9 ■’-A‘-A‘-.V* # -a*# 14700 ■' insert 1 ine1470.1 ’-A‘A‘-A1■#■-A‘-A1A‘ A‘ # -A‘A‘-A‘-Ac-A‘-A‘-A‘-A*-.VA‘ -A1-,V-A1-V-# -,¥-A1-A1 J 1471.0 A' sc- ( I > - - " " 5 FORX- 2.5360 7015 423 s X * (1 >~X $< 2 )+C HR *( PE E K < X > .> s HE X T 14 72 0 I .1y-1 : ,C)RIN 7?! 10.1V , I +15; : IF .1-- Cl:t7M E NO 0 S 0 B .14300 14730 Q flZ (3 )~IN T < < 7.-15360 > / 6 4 ) ‘G 0 S UB2 920 sOAZ (3 >= 2 4 :G 0 7 0 1 4 1 1 0 i y '-i ■’A‘ A‘ AcAc-A‘ -A‘ A‘ ;A‘ ■»-XL-A‘ # •» -A‘ •«■'A‘ ■#:V■» -A1A‘ AcA‘ A‘ -A‘ -A1 A1 1.4S 00 v «• iPQKEZ, 191 ■ 7 HEN 1.43 3 0 14330 A$~INfs IF Ft* 14 63 5 .lF,'-)$.-~-CNRt (& > 7HENXF Z > 1 5 3 6 0 P O K E Z r ZI -Z---Z-.1:GO 70 2482 0 14340 J F A $ ~ C H R $ ( 9) 7H E H P O K E Z ,Z 1 z GO 701. 412 0 14 85 0 IFft$-CHRt' <25) 7BEN3--Z:G 0 S U S 3 5 0 0 : Z-^X:GO 7 0 1 4 33 0 14860 IF A$= C HR $ (.24) TH ENX -Z -& 0 S U B 3 600 iZ ~ X 5 G 0 7014330 14 37 0 IF/-)$-=CUR$(9:l >7HENA$----CHR$( 153) 14330 IF A$--C HR i* (' 96 ) 7HEN A $-i7H R$( 191) 14325 IFflSC (/-)■?'>~3l 7H£NßOSÜ'ß2600 14390 I F X < 1 6 3 1 9 7 H E N P O K E Z rA S C ( A * ) s Z ~ Z + 2 ? & 07 01 ,4 3 2 O E L SEPOKE 2 6 3 1 9 v Z t-G 0 T 0 1 4 ■3,2.0 14399 ■’»a-#-»#-###-###########-»-#-#-#-##-#-# 14 900 'tsitospei c h e r an # 14901 •v 149.10 .1F Q .1<‘Z 4 7M E N F 0 R >i- Z 4 70Q2S 7 E P-.1: M (X*< -?‘3 " X > ; >■=>',$ ( X ) -" " 14930 T ~ V A R P T R < V * > : P O K E T „6 4 i T M = 2 5 3 6 0 + ( X - I )#6 4' TT =1 N T < T H / 2 5 6 ) tT y- t M- 7 7*:256 •POKE 7+1 , 7 V ’PO KE 7 + 2 , 7 7.; X$ <>i).--0$ 1.4940 NE X T X 1.4 950 IF 1 + 14 > Z 4 THENQ--I + 1 4ELSE Q =Z 4+ (25- < Ü 1-7.) ) 14960 GO 701000 15000 F ORX -272 13 70272 42 zRE ADV. PO K EX , / : NE X 7X 15070 RE 7URN 15300 .!?A 7A33 , 2 3 6 , 2 2 7 y 3 4 y 1 2 3 , 65, 195 r 2 0 4 „ 6, 2 0 5 , 1 3 ,33 ,2 1 3 , 2 Ö 5 , 2 7 , 4 3 , a 49 50 GENIE DATA Sascha Grebe jlm il jtj| SB CA $2 ' 30 40 ~ r ’. c .1 Lopyrignt by 'J3 3 60 ' 5 i 1 k e S c h m i d t 70 7 s-h'-t: &'■ -rBO 7 :t: :t:-V10 9 0 7 Am S t e i n 5 4 1 9 Raub a c h 100 1 10 W est G erm any T e l . 0 2 6 B 4 /5 6 6 4 :+: 1 20 1 30 D ie s e s F'rogram rn l a e u f t au-f 1 6 /3 2 140 50 r K •" a l t e n ' Und n e u e n ü o l o u r G e n ie s . 1 5 0 7 Es b e n o e ti< 3 t k e i n e J o y s t i c k s und 1 6 0 CLEAR0 1 7 0 0N ERROR GOTO 3 6 0 0 ISO CLS 1 9 0 RANDOM 2 0 0 CLEAR CMEM“ (M E M -5 0 )) Hier haben Sie ein Vokabel-Lernprogramm für Ihr Colour Genie. Um es zu benutzen, müssen Sie folgendes t u n : Tippen Sie das Programm wie abgedruckt ein. Speichern Sie es dann ab und starten Sie es m it RUN. Alles weitere w ird Ihnen jetzt von Ihrem Colour Genie er­ klärt. Falls das Programm nicht einwandfrei läuft, besorgen Sie sich einen Partner und untersu­ chen es nochmal auf Tippfehler. Das Programm hat eine Error-Abfrage, deshalb werden nicht Programmfehler, sondern nur Eingabefehler angezeigt. Viel Spaß! Es l a e u f t a u s s e rd e m aut g en 2 1 0 D A T A 1 ,1 2 2 0 DATA5, 5 230 240 250 260 270 280 290 300 310 320 330 340 350 -2* 6 o 370 3S0 390 400 410 420 430 440 450 DATA6, 6 D A T A3>3 DA TA 2 2 DATA7 ?6 DATA5,4 DATA3? 2 ? ,i Al, 5 DATA6,3 DATA2 :■7 DATA7,6 DATAö5 DATA5.4 DAT A4, 3 D A T A 3 ,2 D A T A 2 ,1 DATA l , 1 D A T A 1,7 D A T A 1 ,6 D A T A 2 ,5 DATA 3 , 4 D ATA 4 , 4 D A TA5, 3 D A T A 6 ,2 auch keinen Drucner. 460 470 4S0 490 500 510 520 530 540 550 560 570 D A T A 7 ,1 DAT A /,/ DATA6,6 D A TA 5, 5 DAT A4.- 4 DA TA3,3 ' DATA2,2 DAT A 1,1 D A T A2 ,2 DAT A3,3 DATA4,4 710 720 730 740 750 760 770 7 BO 790 D A T A 5 ,5 580 590 600 610 620 630 640 650 660 670 660 690 700 D ATA6,6 820 830 B40 850 860 87 0 D A T A 4 ,4 DATA 3 , 3 D A T A 3 ,3 DATA4 , 4 D A T A 2 ,2 950 DATAu0 DATA77 D A T A 8 ,8 D A T A 9 ,9 D A T A 1 0 ,10 DATA1 :L, 11 D A T A !,1 DAT A 1 ,1 DATA2? 2 DATA 3 , 3 D A T A 3 ,3 DAT A 4 , 4 D A T A 5 .-5 DATA5,5 D A T A 1,3 DAT A 5 ,7 DAT A 7 ,7 DAT A 7 ,7 D A T A7 ,7 D A T A ! ,1 DATA6,6 D A T A 1 ,1 s o o DATA5,5 B IO D A T A 2 ,2 DAT A 5 ,5 'd<3U D A T A 1 , 1 8 9 0 DAT A 6 ,6 900 DATA1,1 9 1 0 DAT A 7 ,7 9 2 0 DATA1,1 9 3 0 DAT A 1, 1 940 D A T A ! , 1 GENIE DATA 9 6 ö RE5T0RH 9 7 0 COLOUR RIMD(16> 9 8 0 P R IN T @ 4 0 ,” B ■ 9 9 0 COLOUR R N D ( 1 6 ) l o c o p r in t is b O p " b b ra n u n b ■ ■ m 1 0 1 0 COLOUR R N D ( 1 6 ) 1 0 2 0 P R IN T S 1 2 0 ? " ■ fl 1 0 3 0 COLOUR R N D ( 1 6 ) 1 0 4 0 FR2NT11160, " * B Bi H I D I B I fl ■ ■ ■ ■ 1 0 5 0 COLOUR R N D ( 1 6 ) 1 0 6 0 PR IN T @ 200. " Bffl WBUBR f l B tt 1 0 7 0 COLOUR R N D ( 1 6 ) 1090 1100 1110 1120 1130 1140 1150 1 160 1170 11 SO U 90 1200 1210 COLOUfc R N D ( 1 6 ) P R IN T S 3 6 0 ? " B B HU B » COLOUR R N D ( 1 6 ) P R IN T H 4 0 0 ," ■ COLOUR R N D ( 1 6 ) P R IN T 0 4 4 O ? " A B A B B COLOUR R N D ( 1 6 ) PR I NT @480 ? " B f l f l B B COLOUR R N D ( 1 6 ) P F :IN T Q 7 2 0 , " DRUECKE E IN E 4 P R iN ffS S te ^ « ^ B BB BB B fl B BB f l AB f l B B B B f l TASTE (G ) Hl fl B" BHBBI Bl ZUM START 1 9 8 4 BY B 11 " SASCHA GREBE" 1220 I F ä M i M T H Ä 1230 1240 K Ü } * j= Ä iF x M lis if ® ^ 12501260. 1270: GÖf 1230 1 2 9 0 : C O L O ® 6:: 1 3 0 0 C L S 'i^O SEHR H E L F E N ? “ ! 1 3 1 0 . P R lN f e 4 0 , " D I E S E S PROGRAMM WIRD IH N E N 1 3 2 0 P R IN T "D A MAN M IT IHM A L L E VOKABELN UEBEN K A N N ." 1 3 3 0 P R I N T 0 1 2 O , " S I E KOENNEN D IE V O K A B E L N ,D IE S IE UEBEN " 1 3 4 0 P R I N T " WOLLEN? D IR E K T VON KASSETTE LA D E N , ODER" 1 3 5 0 P R IN T "A U C H E IN T IP P E N UND DANN AUF K A 5 5 E T E A B - " 1 3 6 0 P R IN T "S P E IC H E R N . " 1 3 7 0 P R IN T 1 3 8 0 P R IN T " S IE HABEN AUCH D IE M O E G L IC H K E IT ? D IE V 0 ~ " 1 3 9 0 P R IN T "K A B E L N IN K L E IN - BZW. GROSSBUCHSTABEN "5 1 4 0 0 P R IN T "E IN Z U T IP P E N . AUSSERDEM KOENNEN S I E D IE " 1 4 1 0 P R IN T "V O K A B E L N VON KAS S E TTE E IN L E S E N BZW. A U F " 1 4 2 0 P R IN T " KAS S E TTE A B S P E IC H E R N ." 1 4 3 0 P R IN T 1 4 4 0 P R IN T 1 4 5 0 P R IN T 1 4 6 0 P R IN T 1 4 7 0 P R IN T " V I E L G L U E C K ! ! i 11 1 4 8 0 P R IN T S 8 B 9 ? "D R U E C K E E IN E TA S TE ! " 1 4 9 0 ON ERROR GOTO 3 6 0 0 1 5 0 0 RESTORE 1510 F0R Q L=1T0150 1 5 2 0 READ LQ 1 5 3 0 P L A Y < 1 =>4? L Q j 1 5 ) 1 5 4 0 IF IN K E Y $ < > " "T H E N 1 6 2 0 1 5 5 0 F O R O B = 1T 0 4 0 51 52 GENIE DATA 1560 1570 1580 1590 1600 1610 1620 1630 1640 1650 1660 1670 1680 1690 1700 1710 1720 1730 1740 1750 1760 1770 17S0 1790 1800 1B10 1820 1S30 1840 1850 1860 1870 1880 1B90 1900 1910 1920 1930 1940 1950 1960 1970 19S0 1990 2000 2010 2020 2030 2040 2050 2060 2070 2080 2090 2100 2110 2120 2130 2140 2150 NEXTOB NEXTQL PLAY( 1 ,4 ,4 ,0 ) FC lR TU T=l T 0 1 5 0 Ö NEXTTUT 6 0 T 0 1500 PLAY( 1 ,4 ,4 ,0 ) CLS GGSUB 2 9 BO CLS P R IN T @ 4 0 ,"W IE V IE L E VOKABELN MOECHTEN S IE E I N T I P P E N " ? INPUTVO K IF V O K - V A L ( " " ) THENV0K=1 IF V 0 K = 0 T H E N V 0 K > 1 CLS D IM D E U $ ( VOK). D IM A U S $ (V O K ) ON ERROR GDTO 3 6 0 0 F0R Z=1T0V0K P R IN T 0 2 O ,"V O K A B E L N R . " sZ P R IN T S 1 2 0 , "G EBE D IE A Ü S LA E N D IS C H E FORM E IN ! " P R IN T IN P U T A U S S (Z ) P R IN T S 4 4 0 ,"G E B E D IE DUETSCHE FORM E IN ! " P R IN T IN P U T D E U $ ( Z ) C L5 NEXTZ CLS G 0T03330 P R IN T Q 4 0 , "J E T Z T HABE IC H D E IN E GERADE E IN G E T IP P T E N 11' F 'R IN T " VOKABELN G E S P E IC H E R T. NUN MUSST Dü E I N - " P R IN T "G E B E N ? OB IC H D IC H D IE VOKABELN I N " P R IN T "D E U T S C H ODER IN DER A U SLAENDISCHEN " P R IN T "S P R A C H E ABFRAGEN S O L L ." P R IN T S 3 6 0 ," A L S K L E IN E S C H W IE R IG K E IT KANNST DU W A E H -"; P R IN T "L E N ? O B IC H D IC H D IE VOKABELN R E G E LM A E S -" P R IN T " S IG (NACH DER R E IH E ) ODER U N R E G E LM A E S S IG "? P R IN T "(D U R C H E IN A N D E R ) ABFRAGEN SO LL F'RINT@ 600,- "WENN DU K E IN E LUST MEHR H A S T, DANN T IP P E P R IN T "( “ ) E I N . " EWE=0 P F -0 P R I N T S 6 8 0 ,"1 — DEUTSCH R E G ELM A E S SIG " P R IN T “ 2 — DEUTSCH UNREG ELM AESSIG " P R IN T " 3 — A Ü S LA E N D IS C H R E G E LM A E S S IG " P R IN T " 4 — A Ü S LA E N D IS C H U NR EG ELM AESSIG " P R IN T P R IN T "W A E H L E WAS DU UEBEN M O E C H T E S T ." A $ = IN K E Y $ I F A $ = " 1 "T H E N 2 6 3 0 I F A $ “ ,'2 " T H E N 2 1 10 I F A $ = " 3 " T H E N 2S 30 IF A $ = " -"T H E N 3 5 1 0 G 0TD 2050 P=R N D (VO K ) IF P = 0 T H E N 2 1 10 CLS PP=1 P R IN T @ 4 0 j "NENNE M IR D IE DEUTSCHE FORM FUER GENIE DATA 2 1 4 0 P R IN T 2 1 7 0 P R IN T A U S * (P ) 2 1 8 0 P R IN T 2 1 9 0 P R IN T 2 2 0 0 P R IN T 2 2 1 0 IN P U T E IN $ 2 2 2 0 IF E IN $ = "-"T H E N 3 5 1 0 2 2 3 0 IF E IN $ < > D E U $ ( P ) T H E N G D S U B 2340: G 0 T 0 2 1 3 0 2 2 4 0 G 0S U B 2 2 6 0 2 2 5 0 G 0 T 0 2 1 10 2 2 6 0 CLS 2 2 7 0 F0R W AR T=1T03Ö 2 2 8 0 P R IN T H 4 8 9 ? "S ‘ E H R G U T ! ! !" 2 2 9 0 P R IN T 0 4 8 9 ," 2 3 0 0 P L A Y ( 1 , RND( 8 ) , RND( 7 ) , 1 5 ) 2310 PLAY< 1 ,4 ,4 ,0 ) 2 3 2 0 NEXT WART 2 3 3 0 RETURN 2 3 4 0 CLS 2 3 5 0 F Q R Q -1 T 0 2 0 2 3 6 0 P R IN T @ 5 0 ,MF A L S C H ’ !!" 2 3 7 0 PLAY ( 1 , 1 , 1 , 2 3 8 0 IF P P = 2 T H E N F 'R IN T iü 2 ö O :, " D IE . R IC H T IG E FORM H E IS S T : " P) 2 3 9 0 IF P P = 1 T H E N P R IN T @ 2 0Ö .,:,'P :I.E:: R IC H T IG E FO R M ..H E ISS T s " P) 2 4 0 0 IFEW E=2THENF'R I N T @ 2 G Ö , ^ H E IS S T : ( WEW) 2 4 1 0 IF E W E = 1 T H E N P R IN T Ö 2 0 0 , " D I E R IC H T IG E FORM H E IS S T : (WEW) 2 4 2 0 F O R R -1 T 0 5 0 2 4 3 0 NEXT R 2 4 4 0 P R IN T 0 5 O ," 2 4 5 0 NEXTQ 2460 PLAY( 1 ,4 ,4 ,0 ) 2 4 7 0 RETURN 2 4 8 0 P —R N D (VO K) 2 4 9 0 IF P = 0 T H E N 2 4 8 0 : 2 5 0 0 CLS 2 5 1 0 P P =2 2 5 2 0 P R IN T S 4 0 ,"N E N N E M IR D IE A U S LA E N D IS C H E FORM FUER 2 5 3 0 P R IN T 2 5 4 0 P R IN T D E U *(P > 2 5 5 0 P R IN T 2 5 6 0 P R IN T 2 5 7 0 P R IN T 2 5 8 0 IN P U T E IN t 2 5 9 0 IF E IN * = "-"T H E N 3 5 1 0 2 6 0 0 I F E I N * < >A U S * ( P ) TH E N G Q S U B 2340: G 0 T 0 2 5 0 0 2 6 1 0 G 0S U B 2 2 6 0 2620 G 0T02480 2 6 3 0 F0RW EW =1T0V0K 2 6 4 0 CLS 2 6 5 0 EWE—1 2 6 6 0 P R IN T @ 4 0 ,"N E N N E M IR D IE DEUTSCHE FORM FUER s " 2 6 7 0 P R IN T 2 6 8 0 P R IN T A U S *(W E W ) 2 6 9 0 P R IN T 2 7 0 0 P R IN T 2 7 1 0 P R IN T 53 s P R IN T : P R IN T A U S * ( : P R IN T : P R IN T D E U * ( " : PR I N T : P R IN T A U S * " : P R IN T : P R IN T D E U * s" 54 GENIE DATA 2720 2730 2740 2750 2760 2770 2780 2770 2800 2810 2320 2830 2840 2850 2860 2870 2880 2890 2900 2910 2920 2930 2940 2950 2960 2970 2980 2990 3000 3010 3020 3030 3040 3050 3060 3070 3080 3090 3100 3110 3120 3130 3140 3150 3160 3170 3180 3190 3200 3210 3220 3230 3240 3250 3260 3270 3280 IN P U T P L * 1F P L * = " - " T H E N 3 5 10 I F P L * < > D E U * ( WEW) T H E N G 0 S U B 2 3 4 0 : G 0 T 0 2 6 4 0 G 0S U B 2 2 6 0 NEXTWEW C L S :P R IN T @ 2 8 0 ,"D U HASST J E T Z T D IE VOKABELN 1 -M A L D U R C H .” P R IN T S 6 1 0 ,"D R U E C K E E IN E TASTE ! " A * = IN K E Y * I F A * = " ” TH EN 2790 CLS GOTO1 9 5 0 FORWEW= i TOVOK CLS EWE=2 P R IN T © 4 0 ,"N E N N E M IR D IE A U S LA E N D IS C H E FORM FUER P R IN T F 'R IN T D E U * (WEW) P R IN T P R IN T P R IN T IN P U T T R * I F T R *= " 11T H E N 3 5 10 I F T R * < >A U S *(W E W )T H E N G 0 S U B 2 3 4 0 :G 0 T 0 2 8 4 0 G 0S U B 2 26 0 NEXTWEW G 0T02770 P R IN T S 4 0 ,"W O L L E N S IE VOKABELN E IN L E S E N ? ( J / N ) " A $ = IN K E Y * IF A * = " " T H E N 2 9 9 0 IF A * = " N " R E T U R N IF A * = " J “ TH EN G 0T03060 PLAY( 1 ,4 ,4 ,1 5 ) PLAY( 1 ,4 ,4 ,0 ) G 0T02990 CLS P R IN T P R IN T P R IN T P R IN T P R IN T £ 4 0 0 , "S T A R T E DEN REKORDER,DANN DRUECKE RETURN" A * = IN K E Y * I F A * = '’ "T H E N 3 1 2 0 P R IN T Ü 3 8 ," * " s I N P U T # - 1 , VOK P R IN T 0 3 9 , P R IN T S 3 9 ,” " IF V 0 K = 0 T H E N V 0 K = 1 D IM A U S *(V O K ) D IM D E U *(V O K ) F0R A=1T0V0K IN P U T # " 1 , A U S * ( A ) , D E U * ( A) PR 3N T039, P R IN T 0 3 9 , " " NEXTA F0R XPX=0T030 P R IN T © 8 1 5 ," A L L E S O . K . ” P R IN T S 8 1 5 ," 3 3 0 0 NEXTXPX 3 3 1 0 CLS COLOUR - GENIE SOFTWARE SCHMIDTKE electronic B ü r o - und P e r s o n a l c o m p u t e r Sandkaulstraße 84 - TRASMAN NEU ' a k t u e l l ^pr eiswert T e le fo n : 02 4 1 - 2 32 17 5100 AACHEN Wir senden Ihnen gerne unseren Softwarekatalog m it über 100 Programmen! (Natürlich kostenlos!) PROTHEUS COLOR-QUBERT PPOTHEUS - S c h a c h l * t # i n # k o n » # q y # n t * U# I t # r # n t w f c k J u n g d e s P r o g r a m m » CG“ S c h a c h u n d b t # t # t g # g e n t f b # r d l # » e m > n # b # n s e i n e r S p l # ! » t l r k # ( # i n # f t w i v t n t l I c h h ö h # r # n Be dJ # n u n g » k o m f o r t u n d ♦ l n # v » r b t s s * r t » G r a f i k d a r » t # l I u n g . V o r t # l l # v o n PROTHEUSi - - B r # t t d a r » t # n u n g Jn h o c h a o f I Ö s # n d # r G r a f f k m i t w # » # n t l l c h b*»»#r#m Oesfgn der F ! g u r # n . Automat I» c h * B r # t td r # h u n g , d . h . d #r S p l# 1 # r » p J v f t l r r * n#r v o n u f t t # n n a c h o b * n . H ö g ! ! c h k # l t d # r Zt igr tfc knahm# < PROTHEUS e r k e n n t a u t o n a t I s c h , o b r i n D r u c k e r a n g # t c h f o t i i n und # | n g # * c h a l t a t l s t t und p r o t o k o l l i e r t d f * Zflg*. G u t # » , Jf l m#r w # c h » # t n d # » D e m o n » t r a t I o n » s p I # I . E lnfa ch # r# » V * r fa h r* n b tlm Aufbau * i n * r P r o b T # m » t # T 1u n g . S i c h e r n und Laden von SpJ* i » i tu a 1 1 o n e n a u f K * * » * t U n t r n c h l #dl I ch# D a r » t # l l q n g d#r F f g u r # n bpi Farb o d * f * S/ W - F # r n » * h g # r i t # n r P r o t h e u » w u r d * a n SARGGN I I a n g # F # h n t u n d b e s i t z t # l n e e n o r m # . S p l # l » t i r k # j s o i c h l u g # » I n # I r>#m T # » t » p | # l d a » C o l o u r - S c h a c h . ( v o n T C S ) o b w o h l d l * » # * m i t to# I ß » p i * 1 t # , ( v o n G # r h * r d U o l f ) A r t . 992 S#S 5 ? . " 0« , 32 K Q u b e r t j das k l e i n # Männchen a u f der P y r ^ m f d e T h a t b e r e i t s u n z ä h lig * H *r*# n der ATARI-T e I espreI freunde e ro b e r t, GUBERT - J E T Z T AUCH F u R I H R COLOUR - G E N I E f E i n H i n n c h e n » t * h t a u f e i n # r S t u f # n p y r a r n i d e u n d muS n u n v o n S t u f # zu S t u f # s p r i n g e n . E r » t wenn er je d e S t u f # m in d e s te n s einmal e r r e i c h t h a t, i s t #r z u frie d e n . Di#s i s t aber gar n ic h t »o e i n f a c h , da #r d a u e rn d a uf hilpf#nd# und h e r a b f a M e n d e Sachen A C h t g # b # n m u 0 . A u c h h i e r z i h l t I n t e l H g # n z u n d P e a k 11 o n s w e r “ m ö g e n f e» w i r d n i c h t g e s c h o s s e n ! ( v o n P a t r i c Themas) A r t . 996 SeS « 1 9 , - 0M - 7 Sp !#1 » t l r f c # n - E in # neu# S p i * l l d e # j haben S i# e i n g u t e » S t r a ß e n g e d ä c h t n i s t s i n d S i # r # a k t i o n « » c h n * l I , k ö n n e n 5 1 # v o r au s d e n k e n u n d d e n G e g n # r I n S a c k g a s s e n l o c k e n , um I h n d a n n # i n z u m a u e r n ? D e n n g # s c h o » * # n w i r d I n d i # » e m S p i # T n i c h t » A I ? Hü I I m a n n m ü s s e n S I # I n # I n # r g r o ö e n S t a d t a l l # HD I I t o n n r n ? i n s Ä i w t f I n , d . i b e i s # h # n S I # J e d o c h n u r g e r a d e i h r # n i c h s t * U mg e b un g a u f d*in B i l d s c h i r m * A I » e r s t # » müssen S i * d i e T a n k s t e l l e n f i n d e n , b e i d e n e n S i e d a n n r e g e l m ä ß i g a u f t a n f c # n . Sod-i nn d ü r f e n S i e s i c h n i c h t o # r l r r # n , um s c h n e H g e n u g z u r T a n k s t e W e r u r v e k z u f l n d e n . I h r e e i n z i g # M ö g M c h k e J t m i t den V e r f o l g e r n f e r t i g i ü w # rde n i » t t h r # I n t e l l i g e n z : S I * können Mauern bau«n und I h r # G # g n # r » o a b h l n g # n o d e r g . i r v ö l l i g e i n m a u e r n . A u f ei n«* m R a d a r s c h i r m k ö n n e n S fe d f e P o s i t i o n i h r e r Gegner g r o b ^ b s c h Ä t zen^ H # r v o r a g # n d # G r a f i k u n d t o f l e r Sound l a s ^ p n di ese's S p i e l iu #ln#m fa » z In ie re n d e m A b ente uerer I# b n fs wprden. E in a b s o lu t e m p f e h l e n s w e r t e » S p i e l m i t s # h r h o h e m P r o g r arrm i # r a u f w a n d . (von P a l r i c Thoma») A r t . fl i » c h ~ • n S t * l n # f d i # z w l » c h # n I h r # m z u l # t r t g # t # g t e n u n d ♦ Fweni i n d » r #n I h r # r S t e i n # H e g e n * * r h a f t # n dann I h r # F a r b # , Z i # l i » t #», zum S c h l u ß ( d . h . w # n n a l l # F e l d e r b # m # t z t * i n d > m ö g l i c h s t v i e l e S t e i n # d # r # i g # n # n F a r b # zu h a b e n . V # r » c h l # d # n # S c h w i e r i g k e i t » grade »rnd vorab » i n t t e l f b i r , (Pfortn#r> A r t - 0 37 S#S 23.DM M.A.D. (IVTi^ile Attack and Defense) t* li ed # r * f n t o f t e s V i d # o ~ A c t i o n S p i # l J V e r t # i d i g # n 51# # i n # S t a d t g e g e n h e r a b f a M e n d e P a k e t e n . Da » b e k a n n t e T e l e s p i e l in e i n e r C o l o u r - G e n i * V * r » l o n m i t ö be ra» chend#r G r a f i k . T r o t z der h e r v o r r a g e n d e n Q u a l i t ä t h a b e n u i r es g e s c h a f f t » d i e s e s S p i e 1 zu #in#m ungew öhnlich n ie d r ig e n P r # i s a rtiu b ie te n . ( S t , Si Cure I I a) A r t . I I ? a*S 2 ? , - 0M 56 GENIE DATA 3 3 2 0 GOTO1 9 5 0 3 3 3 0 P R IN T "W O L L E N S IE D IE VOKABELN ABSAVEN ? ( J / N ) " ? 3 3 4 0 A * = IN K E Y * 3 3 5 0 I F A * = ’‘ J "T H E N 3 3 e O 3 3 6 0 I F A * = " N ’’ TH E N C LB : GOTO 1 8 6 0 3 3 7 0 GOTO 3 3 4 0 3 3 8 0 C L S S P R IN T "S T A R T E DEN REKORDER,DANN DRUECKE RETURN" 3 3 9 0 A * = IN K E Y * 3 4 0 0 IF A * = " " T H E N 3 3 9 0 3 4 1 0 P R IN T # —! j VOK 3 4 2 0 P R IN T @ 3 9 , 3 4 3 0 P R IN T @ 3 9 ," " 3 4 4 0 F0R G 0G =0T050 3 4 5 0 NEXTGOG 3 4 6 0 F0R A=1T0V0K 3 4 7 0 P R I N T # - 1 ? A U S * ( A ) ? D E U * (A ) 3 4 8 0 NEXTA 3 4 9 0 CLS 3 5 0 0 GOTO1 9 5 0 3 5 1 0 C L S : P R IN T " WEITERMACHEN ( 1 ) .... NOCHMAL STARTEN (2 ) A LL E S LOESCHEN ( 3 ) B A S IC PROGRAMM LADEN ( 4 ) MASCHINENSPRACHEPROGRAMM LADEN ( 5 ) " 3520 3530 3540 3550 3560 3570 3580 3590 3600 3610 3620 3630 3640 3650 3660 3670 3680 3690 3700 3710 3720 3730 3740 3750 I A * = IN K E Y * I F A * = " 1 "T H E N C L B :G Ü T 0 1 9 5 0 I F A * = " 2 " THENRUN I F A * = " 3 " THENCALLOOOO IF A * = " 4 "T H E N C L S :C L O A D I F A * = “ 5 " TH E N C LS i SYSTEM G O T03520 0N E RRDRG 0T016Ö CLS . FORGUG=OTQiOO NBGRD BGRD ■■ . : NBGRD : : ;, ,. ■' : : ^ y : y; PLAY (1 ? RND ( 8 ) , RND ( 1 2 ) , 1 5 ) : : : NEXTGUG . ■; : : ^ : ^ ; -y7y; vyyy:ry PLAY ( 1 , 4 , 4 , 0 ) - S r v yy - - - y :- v W - y / P R IN T ; P R IN T :' ^y::'P R IN T P R IN T “ ES IS T E IN FEHLER AUFGETRETEN ! ! ! " P R IN T "D U HAST W AH R S C H EIN LIC H E IN E ZU GROSSE" P R IN T "Z A H L ODER E IN ZU LANGES WORT EINGEGEBEN A * = IN K E Y * I F A * < > " " TH E N R U N E LS E 3740 : Abonnieren - Profitieren I Bei jeder Ausgabe drei Zeilen kostenlos inserieren!! I Also: Füllen Sie die eingeheftete Bestell karte aus, und sichern Sie sich Ihr persön­ liches GENIE D ATA Abonnement I Absender: Absender: POSTKARTE POSTKARTE (PLZ) Name Name Straße Straße O rt Für private Abonnenten der GENIE D ATA sind die ersten drei Zeilen der Kleinanzeige kostenlos. Jede weitere Zeile 5,50 DM Private Kleinanzeigen pro Zeile 6,00 DM Geschäftliche Kleinanzeigen pro Zeile 7,50 DM Chiffre Gebühr 9,00 DM Alle oben angegebenen Preise werden Ihnen zuzüglich der gesetzlichen MWSt, berechnet. Der Betrag ist sofort nach Erhalt der Rechnung rein netto zahl­ bar. ; :v:- ■' ■ An An HEINZ HÜBBEN HEINZ HÜBBEN Offsetdruckerei / Verlag Offsetdruckerei / Verlag Mühlbachstraße 2 Mühlbachstraße 2 D-5429 MARIEN FE LS/Taunus Ml/84 D-5429 MARI EN FE LS/Taunus JII/84 Absender: Absender: POSTKARTE (PLZ) POSTKARTE Name Name Straße Straße (PLZ) Ort Firma Ort An HEINZ HÜBBEN Offsetdruckerei / Verlag Straße Mühlbachstraße 2 IIi/84 D-5429 MARI EN FE LS/Taunus II f / 8 4 Piz Ort Birte fre im a c h e n fiBflEIMl A B O N N E M E N T H ie rm it b e s te lle ich G E N IE D A T A . I BESTELLUNG Abonnem ent(s) der Z e its c h r ift - M ir ist b e k a n n t, daß ich das A bonnem ent zu jedem Q u a rta l, je w e ils 6 W ochen vo r Q u a rta ls e n d e , kündigen ka n n . l i l KLEiN-ANZEIGEN-BESTELLUNG B itte v e rö ffe n tlic h e n Sie nachstehenden T e xt in der nächsten Ausgabe von G E N IE DATA unter der Rubrik K le in a n z e ig e n , Bei A B O N N E N T E N u n b e d in g t A B O N N E N T h in schreiben ■; : SO NST ERFOLGT R E C H N U N G I ___________ Der Bezugspreis b e trä g t in n erh a lb der BRD nur D M 5 9 ,4 0 , pro A bonnem ent. (Sechs Ausgaben) fre i Haus, D ie Bezugsdauer v e rlä n g e rt sich nach A b la u f eines Jahres um w e ite re 12 M o n a te , solange bis das A bonnem ent g e k ü n d ig t w ird M it o bige n Bedingungen e rk lä re Ich m ich E inverstanden: U n te rs c h rift: ___________________________Datum : ______________ Bei Ju g e n d lich e n unter 18 Ja h re n , U n te rsch rift eines E rz ie h u n g s b e re ch tig te n ! ■"Ünt^Tj5'fcfeifK-r::-:s;-. • ■; _________________________Datum M itvm em e rK Ü n terschriff ve rsich e re ic h , ke in e urheber:recht[:icHöh:;;BesHmmungen zu v e rle tz e n . 111 KONTAKT-KARTE ih r Inserat in der G E N IE DATA N r. g e fu n d e n . it Ä 'i'/i h a t m eine Beachtung H ie rm it b e s te !le ich zur schneiistm ögÜ chen L ie fe ru n g : A nzahl A r tik e l Preis Reservieren Sie uns b itte a ng e kre uzte n P la tz für ein Inserat zum Erscheinen in d er nächsten G E N IE DATA.- Unsere Satz­ v o rla g e , b z w . F ilm , g eh t Ihnen umgehend z u . O O O O 1/1 1 /2 1 /3 1 /4 Seite S eite S eite S eite O 1 /8 Seite O W ir sind in teressie rt an K le in a n z e ig e n O B itte , senden Sie uns Ihre A n z e ig e n p re is lis te zu ! GENIE DATA OwER-mAS-W O-Einkaufsführer Inseratgroße 55x45 mm DIVl 5 5 ,- + 14% MWSt. abzüglich 10% Rabatt für 6 x Erscheinen. Satzkosten für 4 Zeilen einmalig DM 1 5 ,- U n te rs c h rift: D a tu m ; Bei J u g e n d lic h e n unter 18 J a h re n , U n te rsch rift eines E rzie h u n g sb e re ch tig te n . O Neusatz muß v „ ihn^n , it. J a d o w e ite r e ZeSla S a tz k o s te t D M 7 ,5 0 U n te rs c h rift t i ersteI lt werden . Datum GENIE DATA 59 U lrich Groke Mensch ärgere dich nicht für das Coiour Genie. Da sich dieses Pro­ gramm kom plett selbst erklärt, yvollen w ir uns hier auch nicht lan­ ge m it einer Vorrede aufhalten, nur vielleicht kurz dazu, was es alles kann. Das Programm stellt in an­ sprechenderweise ein Spielbrett auf dem M onitor dar. Man kann nun m it bis zu vier Spielern spie­ len, oder man kann einen oder mehrere Spieler durch den Com­ puter simulieren lassen. Besonders interessant ist es, wenn der Com­ puter alle Spieler übernimmt, und alleine spielt. : 5 0 C L S :L G R = C 0 L 0 U R 2 :CLEAR 7 4 51 F K E Y 1 = “ RUN . 5 2 F K E Y 2 ~ "R U N 5 3 F K E Y 3 = " RUN 5 4 F K E Y 4 = "R U N . , 5 5 F K E Y 5 = "R U N 5 6 FK E Y 6= " RUN : 4 ^ 5 7 FK E Y 8="NEW . : 58 D IM F A ( 4 ) , P i $ ( 4 > , A $ C 4 > ,S 5 < 4 > P l $ ( 4 ) = ,,4 " 5 9 P i $ (1 )='■ 1 11: P 1 $ <2 ) = " 2 '* * P 1 $ ( 3 ) = 6 0 FA (1 > = 3 : FA C2) = 1 - F A ^ 3 ) ^ 6 : FA ( 4 ) = 2 61 S 5 <1 ) = 1 6 i ; B 5 :(2 ): = 1 9 7 ::S 5 C3>- 7 5 7 : S 5 ( 4 ) = 7 6 2 D IM 2 ( 4 ) , Z t. (-.4)., Y 2 ( 4 , 4 > ? X <5 6 , 2 ) , Y <4 , 4 > Y 1 ( 4 , 4 ) , S ( 4 ) 6 3 D IM 64 D ATA857,7 7 7 ? 6 9 7 ,6 1 7 ,5 3 7 ,5 3 5 , 5 3 3 ,5 3 1 ,5 2 9 ,4 4 9 ,3 6 9 ,3 7 1 ,3 7 3 ,3 7 5 ,3 7 7 ,2 9 7 , 2 1 7 , 1 3 7 ,.0 5 7 , 0 5 9 , 0 6 1 , 1 4 1 , 2 2 1 , 3 0 1 , 3 8 1 , 3 8 3 , 3 8 5 , 3 8 7 , 3 8 9 , 4 6 9 , 5 4 9 , 5 4 7 , 5 4 5 , 5 4 3 , 5 4 1 , 6 2 1 ,7 0 1 ,:7 8 1 , 8 6 1 , 8 5 9 , 7 7 9 , 6 9 9 , 6 1 9 , 5 3 9 , 4 5 1 , 4 5 3 , 4 5 5 , 4 5 7 , 1 3 9 , 2 1 9 ,2 9 9 ,3 7 9 ,4 6 7 ,4 6 5 ,4 6 3 ,4 6 1 6 5 DATA 0 4 9 , 0 5 1 , 1 2 9 , 1 3 1 , 0 6 7 , 0 6 9 , 1 4 7 , 1 4 9 , 7 8 7 , 7 8 9 , 8 6 7 , 8 6 9 , 7 6 9 , 7 7 1 , 8 4 9 , 8 5 1 66 C = 0 ' : .. ■ : ■ 6 7 D IM F l ( 4 ) " 68 GOTO 3 1 3 6 9 CLS s LG R : GOSUB 9 8 7 0 GOTO 9 9 71 DATAÜOO, 0 0 0 , 0 0 0 , 0 0 7 , 0 1 5 , 0 2 8 , 0 2 4 , 0 2 4 72 DATAOOO0 0 0 , 0 0 0 ,2 2 4 ,2 4 0 , 0 5 6 , 0 2 4 , 024 7 3 DA T A 0 2 4 , 0 2 4 , 0 2 8 , 0 1 5 , 0 0 7 , 0 0 0 , 0 0 0 , 0 0 0 74 DATA024,0 2 4 ,0 5 6 ,2 4 0 ,2 2 4 ,0 0 0 ,0 0 0 ,0 0 0 7 5 D A T A 1 2 8 ,0 6 4 , 0 3 2 , 0 3 2 , 0 3 2 , 0 3 2 , 0 6 4 , 1 2 8 7 6 DAT A 1 2 9 , 0 6 6 , 0 6 0 , 0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 7 7 DA TAOO1 , 0 0 2 , 0 0 4 , 0 0 4 , 0 0 4 , 0 0 4 , 0 0 2 , 0 0 1 7 8 DATAO O O ,0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 , 0 6 0 , 0 6 6 , 1 2 9 79 DATA1 2 9 , 0 6 6 ,0 6 0 ,0 0 0 ,0 0 0 ,0 6 0 ,0 6 6 ,1 2 9 8 0 DATA1 2 9 , 0 6 6 , 0 3 6 , 0 3 6 , 0 3 6 , 0 3 6 , 0 6 6 , 1 2 9 81 D A T A 1 2 9 , 0 6 6 , 0 6 0 , 0 6 0 , 0 6 0 , 0 6 0 , 0 6 6 , 1 2 9 8 2 DATA1 2 9 , 0 6 6 , 0 6 0 , 0 6 0 , 0 6 0 , 0 6 0 , 0 6 6 , 1 2 9 8 3 DATAOOO, 0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 , 0 0 1 , 0 0 3 , 0 0 7 B4 DATAOOO, 0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 , 1 2 8 , 1 9 2 , 2 2 4 8 5 D A T A 2 2 4 ,1 9 2 , 1 2 8 , 0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 86 DATA 0 0 7 , 0 0 3 , 0 0 1 , 0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 , 0 0 0 8 7 DA T A 0 0 7 , 0 0 3 , 0 0 1 , 0 0 0 , 0 0 0 , 0 0 1 , 0 0 3 , 0 0 7 60 GENIE DATA BB DA T A000 ,000 ,O 0 0 > 000, 000 12 9 1 9 5 ,2 31 99 DATA224, 192? 12B ^OOO ?OOO ■ ■ 12Bi 192,224 90 DATA231 , 195, .129, 000, 000, 000, 000■■000 91 D A T A 0 6 8 ,000»120,004- 060,068,060- 000 9 . - ' D A T A u 6 B »OOO -o 6 B , üoö : ■ O ö ö ,OiSB : ■ üfcO -000 93 D A T A 0 0 1 , 0 0 3 , 0 0 6 - 0 12,024,0 4 S ,096,192 94 D A T A 128,192,096* 0 4 8 , 0 2 4 , 0 1 2 , 0 0 6 , 0 0 3 95 DATA192, 096, 048.- 024, 012, 006, 003, 001 96 D A T A 0 0 3 , 0 0 6 , 0 1 2 » 0 2 4 , 0 4 8 , 0 9 6 , 1 92 :■ 1 28 97 D A T A 0 6 S ?0 0 0 ,0 5 6 ,068 >068 >0 6 8 ,0 5 6 ,000 98 CHAR21 FOR A%~8 ‘ "rgere Dich nicht 100 C0L0UR3S PRINT@120» "geschri eben von Ulrich G roke , D" ?CHR* t1 49? ? "re n" 101 C ÜLDUR2 sPR I N T 0 2 9 2 , "SP I E L A N W E I S U N 6 !! 102 CQLDUR3! PR IN T © 3 3 2 , -------------- ------ „ 103 C0LDUR4S P R I N T ® 4 0 0 , “ Spi e l e r e i n g a b e " : P R I N T " 0 BUC HS T A B E N = S p i e )er w ird " :CHR* (149) ; "ber ?an?en PR.T NT " ,1 B U CH STA BE Computer spielt" 104 P R I N T ” NAME - maximal 6 B u c hst abe n ’ ’ :PR I NT - PR IN T "Es in" ^CHR* ( 14 9 ) ; " ssen Namen mit ver sc h i e d e n e n An-f an 9any sbuch st aben g e w " ;CH R * U 4 S >""h1t w e r d e n . " 105 PRINT: PRINT" W" ;CHR* (14c?) 3 "rtei n mi t der Leert ast e 106 PR IN T :PR 1N T "Set z en der Figur mit den Zahle 1 - 4" ... Iu7 C D L D U R 6 s p R I N T @ 9 2 7 , " W e i t e r mit der L e e r t a s t e " ; 108 A*=INKEY*: IFA*0-" " THEN 108 ELSE 110 . 109 REM HIER BEG INN T DER ROTTEIL / . H O G0SUB442: CLS: COLOUR3s P R I N T H 9 , C H R * (135) s " "5 CHR* i135 ■ j 111 PRINTiMB, CHR* (134) ; " " ?CHR* (137) ? 11 "?C H R * (132) :" ' 112 PR INT ii'89,CHR* (136)?” " sCHR* (136) /' 113 PR [NT Cei2 B ,CHR* <134 > ? " ” ;CHR*(137) : " "!C H R * (132) 1 14 PR INT« 169, CHR* (133) ; ” " ;CHR* (133) : ' 1 15 PRINT041O, CHR* i 140) u " " CHR* (145) : " " ?CHR* <145 > •" " ?CHR* <] 45> 116 PRINHÜ450, CHR* (139) ; " " *CHR* (139) s " " “ C H R * (139) ; ' ' - / ‘W c ß & t ' i 139) ? •* >■ ; CHR* (132) ; V . .. : . '; : 1 17 PR INT @490, CHR$ <143) CHR^f 147:).118 PR IN T @ 3 2 9 ,CHR$ (135)' 7 ^ ^ :'119 PR INT (§368, CHR'3> (1 34 :/ ’ ■ 120 REM HI ER B EGINNT DER WE X a s a S ^ l ; ^ . £ ' " :. 121 COLOUR 1 - P R IN T @ 2 1 , CHR$:( i 3 5 ) ^ ' ® ^ : pRB * ^ -1-V■ ‘.s C H R f ( 135)''■ : 122 PRINT©62.* CHR$ (132) ? " "S ^ ^ " 3f'c1-ifR# <137) 5.." "?CHR4(132> 123 PRINT09B, CHR$ (140) 5C HR $ (138)-|CHR^ (;141) * " " :CHR$ (136)'" ’ ’ JCHR$ (11'6 :: ■. . 124 P R I N T 0 1 4 6 , C H R * (134)5" "?C H R $ (137)^ " ”5CHR*<132) 125 P R I N T S 1 7 B , C H R $ (144);C H R $ (138);C H R $ (146)?" “ 5C H R $ < 133 )ü " " sCHR $(133) . 126 P R I N T 0 2 5 8 , C H R $ (144); C H R $ ( 1 3 B ) S C H R f (146) 127 P R I N T S 3 3 8 , C H R $ ( 14 4); C H R ^ (138);C H R $ (146) 12B P R I N T @ 4 1 9 , C H R t (133) 129 REM H IE R B EGI N N T DER BLAUTEIL 130 C0L0UR6: P R I N T @ 4 2 2 fCHR$ (145) ; “ " ;C HR $ (145) ? " "; CHRt> (145) ; " "!CHR$<1 4 1> 131 PRINTS460, CHR$ (134) ? " ,,;CHR$<139) 5 M "? C H R * (139) 5 ’ ■" ;CHR* (1 39) ; " " ! C H R * (139) 132 PRINT05O2, CHR* (147) " 11 " ?CHR* (147) " M " ■ CHR*( 147) ? 11 ”;CHR*(142) 133 P R I N T 8 5 5 0 , C H R * <132)s P R I M T S 5 8 9 , C H R * (133) 134 P R I N T 0 7 4 7 ,CHR* (135) ‘" ■ *;CHR* (135) 135 P R I N T 0 7 8 6 , C H R * (134);" ";C H R * (137)"" " C H R * (132) 136 P R I N T H 8 2 7 , C H R * (136)“" "?C H R * (136) 1 3 7 PRINT(Ü866, CHR* ( 1 3 4 ) ; " “ j CHR* ( 1 3 7 ) ; " CHR* ( 1 3 2 ) 138 P R I N T 0 9 O 7 ,C H R * (133);" ";C H R * (133)? GENIE DATA 61 1 3 9 REM H IE R B E G IN N T DER G R U E N TE IL 1 4 0 C 0 L 0 U R 2 s P R IN T @ 4 9 9 ,C H R * (1 3 5 ): P R IN T © 5 7 8 ? C H R * ( 1 4 4 ) s C H R * < 1 3 8 ) S C H R *( 1 4 6 ) 141 F R IN T @ 6 5 8 ,C H R * ( 1 4 4 ) 5 C H R * ( 1 3 8 ) ? C H R * ( 1 4 6 ) 1 4 2 P R IN T @ 7 2 9 ,C H R * ( 1 3 5 ) 5 " " ; C H R * ( 1 3 5 ) s " " s C H R * ( 1 4 4 ) S C H R *( 1 3 8 ) 5 CHR *(1 4 6 ) 1 4 3 F 'R IN T @ 7 6 S ,C H R *( 1 3 4 ) ; 11 " s C H R * ( 1 3 7 ) ? " " ; C H R * ( 1 3 2 ) 1 4 4 P R IN T @ 7 8 6 ?C H R $ ( 1 3 4 ) S " " ; C H R * ( 1 3 7 ) S" " 5 C H R * (1 3 2 ) 1 4 5 P R IN T @ B 0 9 j CHR * ( 1 3 6 ) ? " '* ? CHR * ( 1 3 6 ) s " " 3C H R * ( 1 4 3 ) ; CHR * <1 3 8 ) ” CHR *(1 4 2 ) ■ 1 4 6 P R IN T @ 8 4 8 ,C H R * (1 3 4 ) ; " " ; C H R * ( 1 3 7 ) ü " " ; CHR * 11 3 2 ) S " 3 C H R * ( 1 3 4 > 1 4 7 P R IN T @ 8 8 9 > C H R * (1 3 3 )S " " " C H R * ( 1 3 3 ) ; " " ; C H R *(1 3 3 ) 1 4 8 COLOUR4: PR INTIM I 7 ? C H R * ( 1 3 5 ) ; " "5 C H R * ( 1 3 5 ) 1 4 9 P R IN T H 5 6 ? CHR * ( 1 3 4 ) ? " " 5 CHR * < 1 3 9 ) 5 *' " 5 C H R * ( 1 3 9 ) 1 5 0 P R IN T (§ 9 7 j CHR * ( 1 3 8 ) : P R I N T illO l ? C H R * ( 1 3 8 ) 151 P R IN T (1 1 3 6 ,C H R * ( 1 3 4 ) ; " " ; CHR * ( 1 3 7 ) ; " " SC H R * ( 1 3 7 ) ? " '* ; CHR * ( 1 3 2 ) 1 5 2 P R IN T@ 1 7 7 j C H R * ( 1 3 8 ) : P R IN T S 1 8 1 , C H R * ( 1 3 8 ) 1 5 3 PR I NT@21 6 , CHR * ( 1 3 4 ) ; " " ; CHR * ( 1 3 7 ) 5 " " ; CHR * ( 1 3 7 ) 5 " ” ;C H R * ( 1 3 2 ) 1 5 4 P R IN T © 2 4 9 ? "Mensch " C H R * (1 3 8 ) sP R IN T S 2 6 1 ,C H R * (1 3 8 ) ;" "; C H R * (14 8 ) *" r g 0t1 ™0 11 V '' '' ' • 1 5 5 P R IN T 6 2 9 6 , CHR * ( 1 3 4 ) ; " '* ? CHR * ( 1 3 7 ) 5 " " ; CHR * ( 1 3 7 ) ? " " ; C H R * ( 1 3 2 ) 1 5 6 F’R I KiTtl!331 > CHR* ( 1 3 5 ) ; " " 5 C H R * ( 1 3 5 ) S" " ; C H R * ( 1 3 5 ) ; " " ; CHR * ( 1 3 3 ) : F'R IN T © 3 4 1 ,C H R * ( 1 3 B ) S " " " CHR * ( 1 3 5 ) i " " ; C H R * ( 1 3 5 ) J " ” %CH R * ( 1 3 5 ) S " "5 CHR * < 1 35 ) 1 5 7 F 'R IN T (537O vC H R * ( 1 3 9 ) > " " ; CHR * ( 1 3 9 ) ; " * 's CHR * ( 1 3 9 ) ; " " ; C H R * ( 1 3 9 ) ? " " ? C H R *( 1 3 7 ) ; " " j C H R *( 1 3 7 ) ; " " ; C H R *( 1 3 9 ) ; " " ; C H R *( 1 3 9 ) '" " ? C H R *( 1 3 9 ) ; " " ; C H R * ( 1 3 9 ) * " "5 CHR * < 1 3 2 ) 1 5 8 P R I N T M C ^ CHR * ( 1 3 8 ) : P R IN T S 4 1 1 CHR * ( 1 3 6 ) s P R IN T 0 4 1 3 , C H R * ( 1 3 6 ) : P R IN T © 4 1 5 , CHR * 1 1 3 6 ) : P R I NT<§41 7 , CH R * ( 1 3 6 ) : PR I NT@ 421 , CHR * ( 1 3 6 ) : PR IN T S 4 2 3 , CHR * (1 3 6 ) : P R IN T @ 4 2 5 ,C H R * ( 1 3 6 ) a P R IN T @ 4 2 7 , CHR * ( 1 3 6 ) : P R IN T 0 4 2 9 , C H R * ( 1 3 8 ) 1 5 9 P R IN T @ 4 4 8 C H R * ( 1 3 4 ) : P R IN T & 4 7 0 , CHR * ( 1 3 2 ) 1 6 0 PR I N T S # # » CHR * ( 1 3 8 ) : PR IN T Ü 4 9 1 , C H R * ( 1 3 6 ) i P R I N T@ 493, CHR * ( 1 3 6 ) : PR I NT@ 4 9 5 , CH R * ( 1 3 6 ) : P R IN T Q 4 9 7 , CHR * ( 1 3 6 ) : P R IN T @ 5 0 1 , CHR * ( 1 3 6 ) : P R IN T @ 5 0 3 , CHR* (1 3 6 ) : P R IN T 0 5 O 5 , C H R * ( 1 3 6 ) : F'R IN T 0 5 O 7 , CHR * ( 1 3 6 ) : P R IN T 0 5 O 9 , CHR * ( 1 3 8 ) 161 PRiNT@ S2S'i C H R i- t i3 4 ) ; " " ; CHR * ( 1 3 9 ) ; " CHR * ( 1 3 9 ) ; " " ; CHR * ( 1 3 9 ) ? " "$ C H R * ( 1 3 9 ) ^ : * l Ä $ t l 3 7 >;?."••• " S C H R * ( 1 3 7 ) 5 11 " 5 C H R * ( 1 3 9 ) 5 " "5 C H R * ( 1 3 9 ) S " ” 5 CHR * ( 1 3 9 ^ S ^ :Ä 5 ;t:H R $ :(il3 9 )i;^ : ' : 1 6 2 F'RI NT@569 j C H R * ( 1 3 3 ) J " " ? CHR * ( 1 3 3 ) 5 " ” ? C H R * ( 1 3 3 ) f '' ” S C H R *( 1 3 3 ) S " "ü CHR* ( 1 3 8 ) ; P R TN TS 581 ? CHR * ( 1 3 8 ) * 11 " ; CHR* ( 1 3 3 ) ; " " ; CHR * ( 1 3 3 ) t ” "5 CHR* (1 3 3 ) ' 1 6 3 F'RXNT@616 , C H R * ( 1 3 4 ) ; " " j CH R * ( 1 3 7 ) ü " " 5 C H R * ( 1 3 7 ) 5 " ” ? C H R * ( 1 3 2 ) n ic h t" 1 6 4 P R IN T S 6 4 9 , " D i c h 11; CHR * ( 1 3 B ) : P R IN T Q 6 6 1 ? CHR* ( 1 3 B ) ; 11 1 6 5 P R IN T G 6 9 6 ,C H R * ( 1 3 4 ) 5 " " s C H R * ( 1 3 7 ) ; " " ; C H R * ( 1 3 7 ) ? " C H R *(1 3 2 ) .166 P R IN T 0 7 3 7 » CHR* ( 1 3 8 ) : P R IN T 0 7 4 1 ? CHR* ( 1 3 8 ) 1 6 7 P R IN T S 7 7 6 ? C H R * ( 1 3 4 ) 5 " " ü C H R * ( 1 3 7 ) ? " " ‘ C H R * ( 1 3 7 ) ? " " ; C H R * ( 1 3 2 ) 1 6 8 P R IN T @ 8 17 .-C H R * ( 1 3 8 ) : P R IN T 0 8 2 1 . CHR * ( 1 3 8 ) ■■■■■r; 1 6 9 P R IN T S 8 5 8 ? CH R * ( 1 3 9 ) ; ” " ; CHR * ( 1 3 9 ) ? “ ; CHR* (1 3 2 ) 1 7 0 F‘R IN T @ 8 9 9 ,C H R * ( 1 3 3 ) ; " " ; C H R * ( 1 3 3 ) : 171 GOSUB 2 3 6 : 1 7 2 GOTO 3 2 0 1 7 3 P R IN T @ 2 7 2 ," 11 1 7 4 I F S ( J ) =1 THEN P R IN T ® 2 7 2 ? “ C O M P ."5 B l * ( J > 1) 175 I F S ( J ) > 1 THEN P R IN T 0 2 7 2 ? A * ( J ) 1 7 6 A = P E E K ( - 1 9 B 4 ) : I F A = 1 2 8 THEN 1 8 6 ELSE 1 7 7 1 7 7 I F A = 2 4 THEN S ( J ) = 2 : P R IN T S S 5 ( J ) , "H " : I F L E N ( A * ( J ) ) > 1 THEN F’R IN T @ S 5 ( J)," " 1 7 8 I F A = 9 6 THEN S ( J ) = 1 : P R IN T @ S 5 ( J ) > " C " : I F L E N ( A * ( J ) ) = 1 THEN P R IN T @ S 5( J)," " 1 7 9 I F J = 1 THEN P R I N T S 9 0 , : P L A Y ( 1 , 3 , 1 , 7 ) : I F S ( 1 ) = 1 T H E N 1 8 6 1 8 0 I F J = 2 THEN P R IN T S IG S , : PLAY ( 1 , 4 , 1 ? 7 ) : IF S ( 2 ) = 1 T H E N 1 8 6 62 GENIE DATA 1S 1 I F THEN PR IN T @ 8 2 8 r 11* " ' PLAY (1 ? 5 ? 1 ? 7 ) • IF S ( 3 ) = 1 T H E N 1 8 6 1 8 2 I F J = 4 THEN P R I N T @ 8 1 0 ? : P L A Y ( 1 ? 6 ? 1 > 7 ) : I F B ( 4 ) = 1 TH E N 1 8 6 1 8 3 F 0 R A = lT 0 1 0 s N E X T A 1 8 4 P R I N T S 9 0 , " " : P R IN T 0 1 0 8 , " " * P R IN T @ S 2B > " " s P R I N T S 8 1 0 , " " 1 8 5 PLAY (1 j 1 :■ 1 ? 0 ) : GOTO 1 7 6 1 8 6 P R IN T S 9 0 , " " : P R IN T S 108» " : P R IN T @ 8 2 8 , " " : P R IN T S 8 1 0 , ” " : PLA Y ( 1 , 1 , 1 , 0 ) : COLOUR F A ( J ) 1 8 7 P R IN T 0 3 5 2 , C H R $ ( 1 5 0 ) --- ------------";C H R $ < 1 5 1 > 1 8 8 P R IN T @ 3 9 2 .-"I ♦ ♦ 1” 1 8 9 P R IN T S 4 3 2 , " l •" 1 9 0 P R IN T S 4 7 2 ? " I * V 191 P R IN T 0 5 1 2 ? "1 i" \ 1 9 2 P R IN T S 5 5 2 , "» ♦ * I" " 1 9 3 PR IN T S 5 9 2 C H R $ < 1 5 2 ) S" ------ -— " s CHR$ £ 1 5 3 ) . :. : . 1 9 4 FDRA1 = 1 T 0 3 1 9 5 COLOUR F A ( J ) : F 0 R A = 1 T D 1 0 : NEXT A : . . 1 9 6 P R IN T S 4 7 3 , " ♦ •" : ■- : 1 9 7 F 0 R A = 1 T 0 1 0 : NEXTA .^ c, ■ 1 9 8 P R IN T 0 4 7 3 , " 11 . 1 9 9 F O R A = 1 T 0 1 0 : NEXTA ., 2 0 0 P R IN T S 3 9 3 ? ■: ■ ■ 2 0 1 P R IN T 0 5 5 3 ? " *" / . 2 0 2 F 0 R A = 1 T 0 1 0 : NEXTA 2 0 3 P R IN T I3 4 7 3 , " * " 2 0 4 FORA= 1 TO 10 s NEXTA ; ; 2 0 5 PR I NT @ 393, " " .. v ■ ■;" 2 0 6 P R IN T S 5 5 3 , " " ^ 2 0 7 F O R A -1 T O !O '-N E X T A : 2 0 8 NEXTA 1 , '■ ■ 2 0 9 W=RND ( 6 ) : v '■ ' 2 1 0 ON W GOSUB 2 1 2 , 2 1 6 , 2 2 0 , 2 2 4 , 2 2 8 . 2 3 2 : . . :■ ■ 2 1 1 RETURN ■ 2 1 2 P R IN T 0 3 9 3 , " " .■ : 2 1 3 P R IN T S 4 7 3 , “ * r 2 1 4 P R IN T @ 5 5 3 ," ” ; , : ■: 2 1 5 RETURN . , . .; 2 1 6 P R IN T S 3 9 3 , " ♦ " : ; 2 1 7 P R IN T 0 4 7 3 , " " ,, ; : :■V- ■ 2 1 8 F'RINT@ 553? " *" , ; > f/2 1 9 RETURN : , : ' 2 2 0 P R IN T S 3 9 3 , " ♦ " 221 P R IN T 0 4 7 3 ,“ ♦ M . ■2 2 2 P R IN T@ 553? 11 ♦" 2 2 3 RETURN . 2 2 4 P R IN T @ 3 9 3 , " * 2 2 5 P R X N T S 4 7 3 , 11 " 2 2 6 P R IN T @ 5 5 3 ? " ♦ ♦" 2 2 7 RETURN 2 2 8 P R IN T @ 3 9 3 f" * ♦" 2 2 9 P R IN T @ 4 7 3 , " " 2 3 0 P R IN T 0 5 5 3 ," * ♦" 2 3 1 RETURN 2 3 2 P R IN T @ 3 9 3 ," ♦ ♦" 2 3 3 P R IN T © 4 7 3 , ” * 2 3 4 P R IN T S 5 5 3 ? " * ♦" 2 3 5 RETURN 2 3 6 C 0 L 0 U R 3 ;P R IN T S 4 0 ? C H R $ ( 1 2 8 ) 5 " — —------" 3 C H R $ ( 1 2 9 ) 2 3 7 P R IN T S 8 0 ,"! I” 2 3 8 P R IN T @ 1 2 0 ,C H R * < 1 3 0 )! " ------------- ” ; C H R $ < 1 3 1 ) 2 3 9 C 0L0U R 1 i PRINT@ 71 ? CHR$ ( 1 2 8 ) J " ------------- l l 5 C H R * ( 1 2 9 ) GENIE DATA 240 241 242 243 244 245 246 247 24S 249 250 251 252 253 P R IN T H lllr " I I" P R IN T S 1 5 1 , C H R $ ( 1 3 0 ) 5 " ------------- " ? C H R * ( 1 3 1 ) C D L D U R 2 :P R IN T © 7 6 0 ,C H R $ ( 1 2 S ); " ------------- " ; C H R * ( 1 2 9 ) P R IN T S B O O ," I I" P R IN T S B 4 0 ,C H R $ ( 1 3 0 ) t " ------------- " 3 C H R $ ( 1 3 1 ) CÜLGUR 6 » P R IN T S 7 9 1 , CHR$ ( 1 2 8 ) ü " -------- CHR$ CI 2 9 ) P R IN T S 8 3 1 p " I 1" P R IN T S 6 7 1 ,C H R * ( 1 3 0 ) S " ------------- " S C H R *(1 3 1 > C 0 L Ö U R 3 :P R IN T @ 3 6 3 ? u 1 . " • ‘ P R IN T H 4 4 0 ," S P IE L E R " S P R IN T IN P U T A l$ A 4 (1 > = L E R T * (A 1 $ ?6) 3 ( 1 ) =LEN (jA l $ ) : L 4 = S ( 1 ) : G DSUB445 B 1 $ (1 , 1 ) = L E F T $ ( A :l $ 1 ) ' . 254 B l $ (1,2)= ß l $ (1 f 1)s B l * ( 1 , 3 ) = B 1 $ < 1 , 1):Bl $ ( 1 , 4 ) = B 1 % (1,1) 2 5 5 I F S ( 1 ) = 1 THEN P R IN T S S l =■ "COM P. " ; A4 ( 1 ) 2 5 6 I F S ( 1 ) > 1THEN P R I N T d S l, A 4 ( 1 ) 2 5 7 P R IN T @ 4 9 , B 1 $ ( 1 , 1 ) 2 5 S P R IN T S 5 1 ? B l $ ( 1 , 2 ) 2 5 9 P R I NT t,l 1 2 9 , B 1 $ ( 1 .-3 ) . " 2 6 0 P R IN T@ 1 3 1 , B 1 $ ( 1 , 4 ) 2 6 1 P R IN T @ 5 2 0 ," " 2 6 2 CDLG UR1: P R IN T @ 3 6 3 ," 2 . " 2 6 3 P R I N T S 4 4 0 , " S P I E L E R " : P R IN T . 2 6 4 IN P U T A 2 * 2 6 5 A 4 (2 )~ L E F T * (A 2 $ , 6) 2 6 6 , S ( 2 ) = L E N ( A 2 $ ) s L 4 ~ 3 ( 2 ) : G 0S U B 445 . 2 6 7 B 1 $ (2 > 1) =:L E F T $ ( A 2 4 , 1 ) 2 6 5 I F B 1 S ( 2 , 1 ) - " " THEN 2 7 0 2 6 9 IF B 1 $ .( 2 , 1 ) =B 1 * ( 1 , 1) T H E N G 0 S U B 4 3 6 : G 0 T 0 2 6 1 .. , ■ 2 7 Ö :M l;; | ; ( 2 f 2 ) = B l $ ( 2 , l ) s B l $ ( 2 , 3 ) = B l $ ( 2 r l ) : B l * ( 2 , 4 ) = B l * ( 2 , l ) ' 2 7 t - { ! i^ B ; ( 2 ) - 1 TH E N P R IN T@ 112» "COM P. "S A * < 2 ) V 2 7 2 I F 5 ( 2 ) ; 1 TH EN PR I NT@ 1 1 2 , A * ( 2 ) . ,- :V. V; 2 7 3 P R IN T © 6 7 ,B 1 * (2 ,1 > . . : ; : 2 7 4 P R IN T 0 6 9 , B 1 * ( 2 , 2 ) : ..... , : . ' . 4)-' . . . , ,;: 2 7 7 P R IN T 0 5 2 O , " " ' . :^ :\ 0 '■ ' 2 7 8 ;vßÖ CQ ÜR6^PRINT'@ 363, " 3 . " ' : 2 7 9 PR I NT @440 » " S P IE L E R " : PR I NT . .. . 2 8 0 IN P U T A 3 * 2 8 1 A4 ( 3 ) = L E F T $ ( A 3 $ » 6 ) ...... v . ; .. 2 8 2 5 ( 3 ) = L E N ( A 3 * ) : L 4 = S ( 3 ) : G 0S U B 4 45 : ; v '-;'V 2 B 3 B l 4 ( 3 , 1 ) = L E F T 4 ( A 3 4 , 1) . . :, ; / ■ . " 2 B 4 I F B 1 $ ( 3 , 1 ) = " " THEN 2 8 8 . 2 5 5 I F B 1 4 ( 3 , 1 ) = B 1 4 ( 1 , 1 > 0 R B 1 4 ( 3 , 1 ) = B 1 4 < 2 , 1 ) T H E N G Ü S U B 4 3 6 :G 0 T 0 2 7 7 2 8 6 I F B ( 3 ) = 1 T H E N P R IN T @ 8 3 2 ," C O M P ." s A * (3 ) 2 8 7 I FS ( 3 ) > 1 TH EN PR IN T Ö 8 3 2 , A * (3 > ^ : : 2 8 8 B IS ( 3 , 2 ) = B 1 4 ( 3 , 1 ) : B l $ ( 3 , 3 ) = B l $ . ( 3 , ; r > : : B l ^ ( 3 , 4 ) = B 1 * ( 3 , 1) 2 8 9 P R IN T @ 7 8 7 ,B 1 4 ( 3 , 1) : ■■■." ■ 2 9 0 P R IN T H 7 3 9 , 6 1 4 ( 3 , 2 ) y - : 2 9 1 P R IN T fü 8 6 7 ,B l$ ( 3 , 3 ) . , 4'' : . . 2 9 2 P R IN T S B 6 9 , B 1 4 ( 3 , 4 ) :: . 2 9 3 P R IN T @ 5 2 0 , " " 2 9 4 C 0 L 0 U R 2 : P R IN T S 3 6 3 , " 4 . " ■ ^ 2 9 5 P R I N T S 4 4 0 , " S P I E L E R " : P R IN T 2 9 6 IN P U T A 4 4 ... . . ^ 2 9 7 A 4 (4 )= L E F T 4 (A 4 4 ,6 ) 2 9 8 S ( 4 ) = L E N ( A 4 4 ) : L 4 = S ( 4 ) : G 0S U B 445 2 9 9 B l $ ( 4 , 1 ) = L E F T 4 ( A 4 4 , 1) 63 64 GENIE DATA 3 0 0 I F B I $ (4 ? 1 > = " " THEN 3 0 2 3 0 1 I F B l $ ( 4 , 1) = B 1 $ ( 1 , 1 > 0 R B 1 $ (4 .- 1 ) = B 1 $ (2;. 1 ) 0 R B 1 $ ( 4 , 1 ) = B 1 $ ( 3 , 1 > THENGOSU B 4 3 6 :G 0 T 0 2 9 3 302 B l * ( 4 t . 2 ) = B l * ( 4 , l ) : B l * ( 4 , 3 ) = B l * ( 4 ? l ) : B l * ( 4 ?4 ) = B l * ( 4 , l ) 303 304 305 306 307 308 309 310 31 1 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 32B 329 330 331 332 333 334 335 336 IF S ( 4 ) = 1 T H E N P R IN T ® 8 0 1 , " COMP. 115 A * ( 4 ) I F S ( 4 ) > 1 T H E N P R IN T S 8 0 1 >A * ( 4 ) P R I N T © 7 6 9 , B l$ ( 4 , 1 ) P R IN T @ 7 7 1 ,B 1 $ ( 4 ,2 > P R IN T S B 4 9 ? B l $ ( 4 , 3 ) P R IN T @ B 5 1 > B 1 * < 4 ,4 ) P R IN T S 3 6 3 ? " '* P R IN T S 4 4 0 ," ” P R IN T 0 5 2 O ? " RETURN RESTORE . E=0 FOR 1 = 1 TO 5 6 s X ( I , 2 ) = 0 : READ X ( I , 1 > : NEXT I FOR 1=1 TO 4 : FOR J = 1 TO 4 READ Y ( I j J ) * Y 1 ( I , J ) = Y ( I , J ) : NEXT J :N E X T I FOR J = 1 TO 4 : FOR 1=1 TO 4 : Y 2 ( J , I >= - I : NEXT 1 : NEXT J GOTO 6 9 : : FOR J = 1 TO 4 COLOUR FA v X 4 0 THEN K =K + 1 : ^ NEXT I : : I F K = 4 THEN 3 3 5 . / GOTO 3 3 8 ; :/ ^ ; E = E + 1 : P R IN T @ 2 4 0 + E * 8 0 >E 5 " . = " i B 1 $ ( J , 1 ) PR I NT@910 + E :+: 10 , E 3 " = " s A * ( J > S ■ 337 s ( j ) =0 3 3 8 K = 0 :F O R 1 = 1 TO 4 : I F S ( I ) = 0 THEN K =K +1 ;: ;V 339 n e x t I ; 3 4 0 I F K = 4 THEN F O R A = 1 T 0 2 5 0 0 : N E X TA : RUN 1 0 ' 3 4 1 NEXT J : GOTO 3 2 0 ; ' 3 4 2 K = 0 :F O R 1=1 TO 4 : I F Y ( J , I ) = Y 1 ( J , I ) THEN K =K +1 3 4 3 NEXT I : Wl = l . V ". 344 K 1= K : FOR 1 = 1 TO 4 : I F Y2 > 4 0 THEN K 1= K 1 + 1 3 4 5 NEXT I ; : 3 4 6 FOR I = 1 T 0 4 : I F Y 2 ( J , I X O THEN 3 4 8 : ; : 3 4 7 NEXT I 34B K3= I : :■ 3 4 9 K2=0 3 5 0 GOSUB 1 7 3 : W1=W1+1 : \ 3 5 1 I F K = 0 THEN 3 B 0 ^ 3 5 2 COLOUR F A ( J ) * I F W=6 THEN 3 5 B ............. 3 5 3 I F K 2 = l THEN 3 6 7 3 5 4 I F K 1 = 4 THEN 3 5 6 3 5 5 GOTO 3 8 0 3 5 6 I F W l= 4 THEN RETURN 3 5 7 GOTO 3 5 0 3 5 B I F K = 0 THEN 3 8 0 . . . GENIE DATA 65 3 5 9 I F X ( 1 , 2 ) = J THEN 3 6 7 3 6 0 I F X ( l , 2 ) = 0 THEN 3 6 6 3 6 1 12 = 1 ~ ( X ( 1 , 2 ) - J ) •+10: I F I 2 < = 0 THEN 1 2 = 1 2 + 4 0 3 6 2 I F I 2 > 4 0 THEN 1 2 = 1 2 - 4 0 3 6 3 FOR 1 3 = 1 TO 4 : I F Y 2 ( X ( 1 , 2 ) , 1 3 ) = 1 2 THEN 3 6 5 3 6 4 NEXT 13 3 6 5 Y 2 ) Y ( 0? K 3 ) = X ( 1 ? 1 ) s Y 2 < J , K 3 > =1 * P R I N T S Y > ” " : GOTO 3 5 0 3 6 7 I F K=1 THEN 3 6 9 3 6 8 GOTO 3 7 0 ! . 3 6 9 K = K - 1 : GOTO 3 8 0 : : V 3 7 0 I F X ( 1 + W , 2 ) = D THEN 3 7 7 : 3 7 1 I F X ( 1+W, 2 ) = J THEN 3 8 0 ; 3 7 2 I 2 = ( 1 + W ) - < X < 1 + W * 2 ) - J > * 1 0 : I F I 2 < = 0 THEN 1 2 = 1 2 + 4 0 3 7 3 I F I 2 > 4 0 THEN 1 2 = 1 2 - 4 0 3 7 4 FOR 1 3 = 1 TO 4 : I F Y 2 ( X ( 1+W, 2 ) , 1 3 ) = 1 2 THEN 3 7 6 3 7 5 NEXT 1 3 / 3 7 6 Y ( X ( 1+Wf 2 ) , 1 3 ) = Y 1 ( X ( 1 + W , 2 > ? 13). s Y 2 ( X ( 1 + W ,2 ) , 13 ) = - 13 : G 0 S U B 4 3 6 : P R IN T © Y ( X ( 1 +W, 2 ) , 1 3 ) , B 1 $ ( X ( 1 +W» 2 ) , 13 ) : : 3 7 7 X 1 1 + W , 2 ) = J s Y ( J >K 3 ) = X <1+W, 1 ) : Y 2 ( J > K 3 ) = 1 +W: P R I N T © Y ( J ? K 3 ) ? B 1 $ ( J ? K 3 ) 378 : X ( 1 , 2 ) = 0 : P R I NT@X ( 1 , 1 ) , " I F W=6 THEN 3 4 2 : V : 3 7 9 RETURN ^ 3 8 0 1 6 = 0 : FOR 15 = 1T 0 4 : Z ( 3B1 5 ) +W >4.4- ^ T H E N ^ i i f i : ® » ^ 3 S 2 ' - ; i i l $ & ^ I ;5 X ;< Q '> T H E j& ^ . 383 ; i 5X ; * V -:7-? ; r 384 ^ : ' 385 ■' 386 .. 3 8 7 '' I ^ 388 :■ 3 8 9 ...p e iiillliiiiiiiiittiiis p :i* ( z a s ) > 390 P 2 i l » i i i l i l i l i i i § f e i ^ m 391 ;■ 3 9 2 B ^ | | i i l S i l S 2 ^ K " : - ;v : 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 PRINT@X(Y2(J,Z( 1 5 ) ) , 1 ) , " » PLAY( 1 , 1 , 1 , 0 ) I F B = 2 C Z ( 1 5 ) THEN I 1 = Z < 1 5 ) : GOTO 3 9 8 NEXT 1 5 : SOTO 3 8 8 FOR I 5 = 1 T O I 6 PRINTSX( Y 2 (J , Z ( 1 5 ) ) , 1 ) , B1$ ( J , Z ( 1 5 ) ) NEXT 15 GOTO 4 0 4 I F W=6 THEN 3 5 0 RETURN I F 1 6 = 1 THEN 4 0 9 I F S ( J ) < > 1 THEN 4 1 0 I 1 = Z ( 1 ) : FOR 1 5 = 2 TO 16 I F Y 2 ( J ? Z ( 1 5 ) ) >Y2 NEXT 15 I F 1 8 = 0 THEN 4 1 7 I F 1 8 = 1 1 THEN 4 2 7 ............................... 66 GENIE DATA 4 1 6 GOTO 4 2 6 4 1 7 1 7 = 0 : FOR 15= 1 TO 1 6 = Z I ( 1 5 ) = 0 4 1 8 I F X ( Y 2 ( J , Z ( I 5 ) ) + W , 2 ) = 0 THEN 4 2 0 419 1 7 = 1 7 + 1 : Z1 ( 1 7 ) = 2 ( 1 5 ) 4 2 0 NEXT I 5 4 21 I F 1 7 = 0 THEN 4 2 7 4-22 I F S ( J ) = 1 AND I 7 > 0 THEN I 1 = Z 1 < 1 7 ) : GOTO 4 2 7 4 2 3 FOR 15=1 TO 1 7 : I F I 1 = Z 1 ( I 5 ) THEN 4 2 7 4 2 4 NEXT 15 425 I B = Z 1 (RND( 1 7 ) ) 426 X ( Y 2 ( J , 1 8 ) j 2 ) = 0 : Y ( J ? I 8 ) = Y 1 ( J , I S ) : G0SUB43B:PRINTHY(J , I B ) , B l $ (J , I B ) : PRINT@X(Y2(J,1 8 )j 1 ) f " " : Y 2 (J ,IS )= *-IS :K > K + ls K i= K l + l 4 2 7 I F X ( Y 2 ( J , I l ) + W , 2 ) = 0 THEN 4 3 3 4 2 8 I 2 = ( Y 2 ( J , 1 1 ) + W ) - ( X ( Y 2 ( J , I l ) + W , 2 ) - J ) * 1 0 : I F I2 < = 0 .T H E N I 2 ::: 12 + 4 0 4 2 9 I F I 2 > 4 0 THEN 1 2 = 1 2 - 4 0 4 3 0 FOR 3 3 = 1 TO 4s I F Y 2 ( X ( Y 2 ( J , 1 1 ) + W , 2 ) , 1 3 ) = 1 2 THEN 4 3 2 4 31 NEXT 1 3 4 3 2 Y 0 < < Y 2 < J : . I D + W . 2 ) , I 3 ) = Y 1 ( X < Y 2 ( J , I l ) + W ?2 ) , 1 3 ) : Y 2 ( X ( Y 2 ( J , I l ) + W , 2 ) , 13 ) =-- I 3 : G 0 S U B 4 3 6 : F R I N T @ Y ( X ( Y 2 ( J , I l ) + W , 2 ) , 1 3 ) , B 1 * < X + W ! P R I N T @ Y ( J , 1 1 ) , B l $ ( J ? 11) 4 3 4 X ( Y 2 ( J j 1 1 ) -W? 2 ) = 0 : P R I N T S X ( Y 2 ( J * I l ) - W , 1 > , " " : I F W *6 THEN 3 5 0 4 3 5 RETURN 4 3 6 SOUND1 , 6 : S 0 U N D 3 ,5 : SOUNDS?1 1 : S 0 U N D 6 ,2 : S 0 U N D 7 ,7 : SOUNDS? 1 «SOUND'? , 31 * SOUND1 0 , 2 4 : SOUND12 * 8 0 : SOUND1 3 , 3 4 3 7 RETURN 4 3 B PLAY ( 1 , 7 : . 1 , 1 2 ) 4 3 9 F O R A = 1 T 0 1 0 0 :N E X T A 440 P L A Y ( 1 , 1 , 1 , 0 ) 4 4 1 RETURN 4 4 2 FOR L 5 = 1 T 0 8 : F 0 R L 6 = 1T 0 8 4 4 3 P L A Y ( 1 , L 5 , L 6 , 1 2 ) : F 0 R L 7 = 1 T 0 2 : N EXTL7 4 4 4 N E X T L 6 :N E X T L 5 :P L A Y < 1 , 1 , 1 , 0 ) : RETURN 445 F0R L5=1T0L4 4 4 6 L 3 = L 4 + 1 : PL AY ( 1 , L 3 , L 5 , 1 2 ) : FOR A= 1T 0 2 0 : N E X T A : PL A Y C l i i l l l i F0R A=1T020 : NEXTA 4 4 7 NEXT L 5*R E T U R N IMPRESSUM GENSE D A T A , Ausgabe 3 , Jahrgang 2 , M a i/J u n l 1984 H erausgeber: H einz HUbben, O ffs e td ru c k e re i un d V erlag, 5 4 2 9 M a rienfels, T e le fo n : 0 6 7 7 2 - 1 2 6 1 C h e fre d a k te u r: H einz HUbben T ite lg e s ta ltu n g : H . H übben, O ffs e td ru c k e re i und V erlag , 5 4 2 9 M a rlenfe ls/T s. S a tz : H . H übben, O ffs e td ru c k e re i u n d V erlag , 54 29 M a rie n fe ls/T s. D ru c k : H . HUbben, O ffs e td ru c k e re i un d V erlag, 5 4 2 9 M a rienfe ls/T s. E rscheinungsw eise: A lte zw ei M o nate , jew eils am 15. des M onats. A b o n n e m e n ts : 5 9 ,4 0 D M in c l. P o rto , V e rp a kkun g u n d gesetzt. M W St. E rfü llu n g s o rt: 54 29 M a rlenfe ls/T s. G e ric h ts s ta n d : In Jedem F a ll das fü r unseren V erlag zuständige G e ric h t. M a n u s k rip te : U nan gefo rde rte M a n u s k rip te w e rd e n n u r zurückgesandt, w enn au sreichen­ des R ü c k p o rto belgelegt w u rd e . Jeder E in ­ sender e rk lä rt sich d u rc h die E insendung m it einer V e rö ffe n tlic h u n g des eingesandten Ma­ te ria ls in de r G E N IE D A T A und Im G E N IE D A T A S o ftw a re S ervice einverstanden. C o p y rig h t (c) 19 84 b y H einz HUbben, O ffs e t­ dru c k e re i u n d V erlag , 5 4 2 9 M a rie n fe ls /T s, N achd ruck,. VervieS fältigung, Ü bertragung so­ w ie S peicherung in E D V -A n la g e n verbote n. Bei B auanleitungon u n d /o d e r P rogram m en Kann fü r d ie F e h le rfre ih e it: ke in e , G arantie Ü bernom m en w erden, Die M ein ung de r einzelnen A u to re n m utt n ic h t m it de r des Verlages u b e re in stim m e n . A nfra gen an die R e d a k tio n b itte n u r s c h r ift­ lic h m it beigelegtem R ückporto;,; K ünd ig ung de r A b o n n e m e n ts : Zu Jodom Jahr, re c h tz e itig , vor Endo des Jahros (6 W ochen). Jedes A b o n n e m e n t verlängert sich nach A b ­ la u f au to m a tisch um ein Jahr.' ’ S o llte die G e n i e D A T A aus G rü nde n; die: n ic h t in der V e ra n tw o rtu n g des Verlages lie ­ gen, n ic h t oder n ic h t re c h tz e itig erscheinen, besteht ke in A n sp ru ch a u f N ach lie fe ru n g . Für eventuelle Schäden u n d /o d e r Folgoschä-.. den an G eräten und od er B aute ile n un d/O der D ate nverlu st kann keine H a ftu n g ü b erno m ­ men w erd en. D er N achbau unserer Bauanleir tun gen u n d /o d e r die A n w e n d u n g vo n P ro ­ gram m en aus der G E N IE D A T A e rfo lg t a u f eigene G efahr. A lle M itte ilu n g e n erfo lg e n n u r für A m a te u r- und H o b b y -Z w e c k e . Ir r tu m so- Es kan n keine G c w ä lir tu fu r ü b erno m m e n w ord en, dafi die ve ^'^ftiÄ a in s ^ e .h a ltu n g B n , F irm e n n a m e n , Wau n d alle anderen A ngaben fre iiiy b K ^ c ^ ü ta fe c tita n D r itte r sind. S ä m tlich e V e rö ffe n tlic h u n g e n erfo lg e n oh ne B a rö ckiich U g u n g v eines eve n tu e lle n P aten t­ s c h u tz « u n a /o d e r G ebrauchsm usterschutzes, ß a riiljocV A rtikQ I-E tn send un 3 ßn gehen w ir davon aus, daß dar Verfasser alle R echte an d e r E insendung B esitzt, sow ie geistiger E igentu­ m s ist. ü b e r Jede A rtik e l-E in s e n d u n g fre u e n w ir uns! H o n o ra r: Für Jeden g e d ru ckte n A r tik e l Be­ zahlen w ir p ro D ru ckse ite ein H o n o ra r von yiftr gd sta tie n Je d e rm a n n , einen A r tik e l aus der G E N IE D A T A zu e n tneh m en , und in einer anderen, n ic h t k o m m e rz ie lle n , D ru c k s c h rift zu v e rö ffe n tlic h e n , u n te r der B edingung, daß an d e r G estaltung n ich ts v erände rt w ird , das e rw ä h n t w ird , da& de r b e tre ffe n d e A r tik e l aus der; G E N IE D A T A e n tn o m m e n w u rd e und daft man uns m indestens ein E xe m p la r de r b e tre ffe n d e n D ru c k s c h rift koste nios, so­ fo r t nach E rscheinen, z u r V erfü gun g s te llt. Wir präsentieren für DISKETTE und CASSETTE Der [Nur für 32 K der neue Maßstäbe setzt! SUPER-BASIC SUPER-BASIC SUPER-BASIC Für DISKETTE und CASSETTE! Mit ARRAY-Verarbeitung! Das bringt kein anderer ColourGenie Compiler. Ein Befehl wie z.B. DIM A S (3,2,3) wird korrekt übersetzt. SUPER-BASIC: Mit KOMPLETTER String­ verarbeitung ! z.B. LEFTS, RIGHT S, MID S. INKEY Susw! SUPER-BASIC: Variablen wie im Basic! z.B. A 9=14 oder AB S="OTTO" SUPER-BASIC Programme bis 300 mal schneller! SUPER-BASIC Auf Diskette nur DM 99,-SUPER-BASIC Auf Cassette nur DM 89,SUPER-BASIC Selbstverständlich mit ausführlicher deutscher Bedienungsanleitung! NUR BEI UNS! Mühlbach Straße 2 5429 MARIENFELS/Taunus Telefon 06772/1261 gemini-10X Der neue STAR-Drucker. Für alle, die etwas zu drucken haben. Schneller und besser als bisher. 120 Zeichen pro Sekunde. Standard ASCII in normal und kursiv, internationaler Zeichensatz, Sonderzeichen, Blockgrafik und 8 verschiedene Schrifttypen. Da hat man die W ahl. Auch beim Plotten: 480, 920 oder sogar 1920 Zeichen pro Zeile auf Rollen-, Einzelblatt- oder Endlospapier. M it Durchschlägen, wenn Sie wollen. Vertikal- und H orizontal-Tabulator, program m ierbarer Zeilenabstand, Selbsttest und vieles andere mehr. Wenn Sie jetzt noch den Preis beachten, verstehen Sie vielleicht, warum w ir auf unseren Neuen ganz schön stolz sind. Coupon In fo r m ie r e n S ie m ic h b itte a u s fü h r lic h u n d k o s te n lo s ü b e r d e n STAR g e m in i-1 0 X . Nom e_ Postfach 3105 3203 St. Avgvctfn 3 S *ro ß e , O r t ____ COMPUTER GMBH Ttltfo a 0 3 3 4 1 / 2 * 0 7 1 T a l « 889702