home *** CD-ROM | disk | FTP | other *** search
/ Profi Club / Profi_Club_5_1992_-_de.d64 < prev   
Encoding:
Commodore Disk Image  |  1992-01-01  |  170.8 KB

  1. Cbm
  2.  
  3.  
  4.  
  5. disclader64/128
  6.  
  7. {CBM-I} l{CBM-G}{CBM-P}run"disclader64/128
  8.  
  9. bination beider den 532j{CBM-F}hrigen Osterzyklus und gab in Tabellen f{CBM-X}r jedes Jahr des Mondzyklus die Ostergrenze an.
  10. Man errechnet also mit Hilfe der Goldenen Zahl die Stellung des Jahres im Mondzyklus, schlbuchstaben dieses Datum hatte. Das w{CBM-F}re f{CBM-X}r unseren 25. August "F". Das Jahr 1987 hat den Sonntagsbuchstaben "D". "F"kommt im Alphabet zwei Stellen nach "D". Wenn also "D" ein Sonntag ist, dann ist jener Tag in diesem Jahr ein Dienstag.
  11. Um den Sonntagsbusius. Tats{CBM-F}chlich geschah es, da{CBM-V} der Fr{CBM-X}hjahrsvollmond kam und ging, und Ostern wurde nicht gefeiert. Und hatte 46 v. Chr. C{CBM-F}sar den Kalender wegen der Amtsjahre der r{CBM-C}mischen Beamten reformiert, so tat das jetzt im Jahre 1582 der Papst Gregor XIII., harde am R{CBM-X}sttag des Passahfestes gekreuzigt, das am Tag des ersten Vollmondes nach Fr{CBM-X}hlingsanfang stattfand. Er stand auf von den Toten am dritten Tag, dem ersten Tag der neuen Woche, der deshalb zum Tag des Herrn wurde, dem Sonntag, und im Christentum d
  12. egungen angepa{CBM-V}t sind.
  13.  
  14. Das Programm "Kalender"
  15. Das Programm "Kalender" arbeitet f{CBM-X}r die gesamte Dauer der christlichen Zeitrechnung. Das hei{CBM-V}t, es ber{CBM-X}cksichtigt sowohl den Julianischen als auch den Gregorianischen Kalender. Es beginnt mit Datazeilen, vhiebt sich durch diese Unregelm{CBM-F}{CBM-V}igkeit der Sonnenzyklus, so da{CBM-V} f{CBM-X}r die Zeit bis zur n{CBM-F}chsten Unregelm{CBM-F}{CBM-V}igkeit ein neues Startjahr f{CBM-X}r die Berechnung der Sonnenzykluszahl festgelegt werden mu{CBM-V}.
  16. Es folgen die Ostergrenzen, die im 19j{CBM-F}hrigen Mondzyklus f{CBM-X}{CBM-F}gt in einer Tabelle die Ostergrenze und ihren Tagesbuchstaben nach und berechnet dann {CBM-X}ber den Sonnenzyklus und den Sonntagsbuchstaben das Datum des auf die Ostergrenze folgenden Sonntags.
  17.  
  18. Der Gregorianische Kalender
  19. So weit, so gut. Nur geschah es jet
  20. chstaben des Jahres zu ermitteln, mu{CBM-V}te man nat{CBM-X}rlich wissen, an welcher Stelle im Sonnenzyklus das Jahr stand. Das Jahr 1 des Zyklus ist ein Schaltjahr, das mit einem Montag beginnt, so auch das Jahr 9 v. Chr. Die Rechnung ist {CBM-F}hnlich wie bei der Goldenupts{CBM-F}chlich wegen des Osterfestes.
  21. Seine Reform korrigierte die im Lauf der Jahrhunderte entstandenen Ungenauigkeiten, indem man zehn Tage ausfallen lie{CBM-V}. Auf Donnerstag, den 4. Oktober 1582, folgte Freitag, der 15. Oktober 1582. Ferner wurde zur Verbessen Sabbat als w{CBM-C}chentlichen Festtag abl{CBM-C}ste.
  22. Im Jahr 325 legte das Konzil von Nik{CBM-F}a fest, da{CBM-V} Ostern am ersten Sonntag nach dem Fr{CBM-X}hjahrsvollmond, der sogenannten Ostergrenze, gefeiert werden sollte. Der Fr{CBM-X}hjahrsbeginn (Fr{CBM-X}hjahrs-Tag- und Nachtgleiche) on denen die ersten nicht erl{CBM-F}utert werden m{CBM-X}ssen.
  23. Die Monatskonstanten geben die bis zum Beginn des Monats vergangenen Tage an. Das ist wichtig f{CBM-X}r die Berechnung des Tagesdatums aus Sonntags- und Tagesbuchstaben, denn die Monate haben bekanntlich versc!r sieben verschiedene Rechnungsperioden vom Jahr 1 bis 2299 den Termin des Ostervollmondes angeben - nicht als Datum, sondern als Abstand zum 21. M{CBM-F}rz.
  24. Nach dem Programmstart erscheint ein Men{CBM-X} mit vier Auswahlpunkten. Der erste Punkt, "Wochentag", d{CBM-X}rftzt, da{CBM-V} durch die verbliebene Ungenauigkeit des Julianischen Kalenders im Laufe der Jahrhunderte eine immer st{CBM-F}rkere Abweichung vom Sonnenjahr eintrat. Im 16. Jahrhundert betrug sie bereits zehn Tage. Zwar ist das nicht viel, und ob das Fr{CBM-X}hjahr zehn Tagen Zahl; Jahreszahl plus 9 durch 28. Der Rest, oder falls kein Rest bleibt, 28, ist die Zahl des Sonnenzyklus, f{CBM-X}r die man in einer Tabelle den Sonntagsbuchstaben suchen konnte. Schaltjahre hatten zwei davon. Der erste galt bis zum 28. Februar, dann folgerung des Kalenders die Schaltregel ge{CBM-F}ndert. Waren bisher alle durch vier teilbaren Jahre Schaltjahre, so wurde jetzt festgelegt, da{CBM-V} S{CBM-F}kularjahre, also die, die mit zwei Nullen enden, nicht durch vier, sondern durch vierhundert teilbar sein m{CBM-X}ssen, um 
  25. wurde wegen der Schwierigkeit der astronomischen Berechnung auf den 21. M{CBM-F}rz festgelegt.
  26. Zur Osterberechnung braucht man also den 28j{CBM-F}hrigen Sonnenzyklus, um den Wochentag, und den 19j{CBM-F}hrigen Mondzyklus, um den Vollmond zu berechnen. Im 6. Jahrhundert schiedene L{CBM-F}ngen. Die Sonntagsbuchstaben entsprechen dem Sonnenzyklus, sind aber zur Berechnung durch Ziffern ersetzt.
  27. Zur Vereinfachung wurden den S{CBM-F}kularjahren, die keine Schaltjahre sind, ihre Sonntagsbuchstaben fest als Datas zugeteilt. Nat{CBM-X}rlich versc= B,8. Januar wieder = A und so weiter bis zum Jahresende. Die Jahre des Sonnenzyklus wurde mit dem Buchstaben benannt, den der erste Sonntag im Jahr hatte, dem "Sonntagsbuchstaben".
  28. Um einen Tag zu bestimmen, sah man in einer Tabelle nach, welchen Tagese eher oder sp{CBM-F}ter anf{CBM-F}ngt, merkt bei unserem Wetter niemand.
  29. Was aber sehr unangenehm war f{CBM-X}r eine religi{CBM-C}se Epoche, das war die Tatsache, da{CBM-V} offensichtlich der Termin des Osterfestes nicht mehr stimmte. Berechnet wurde es nach der Ostertafel das Dionyte ein Schalttag. Also verschoben sich die Wochentage, und es ergab sich ein neuer, fiktiver, erster Sonntag im Jahr. Daher galt vom 1. M{CBM-F}rz an der n{CBM-F}chste Sonntagsbuchstabe.
  30.  
  31. Osterfest-Berechnung
  32. Wie berechnet man den Termin des Osterfestes? Christus wuSchaltjahre zu sein.
  33. Das Jahr 1600 war also ein Schaltjahr, 1900 nicht. Dadurch fielen in 400 Jahren drei Tage aus, der Kalender wurde genauer. Weiter {CBM-F}nderte man die Berechnung der Ostergrenzen, die jetzt komplizierter wurden, aber besser den Gestirnbew ist im wesentlichen unser heutiger Kalender. Die Abweichung vom tats{CBM-F}chlichen Sonnenjahr betrug in fast 1600 Jahren nur zehn Tage.
  34.  
  35. Der julianische Kalender
  36. Dieser auf dem Sonnenjahr basierende julianische Kalender wurde dann im Mittelalter mit der j{CBM-X}diind diese verschiedenen Bestandteile in Einklang zu bringen? Schlecht. Denn die Erde umkreist die Sonne in 365,24219879 Tagen. Der Phasenzyklus des Mondes dauert 29,530589 Tage. Damit kann man im t{CBM-F}glichen Leben nicht rechnen. Also gibt es in Kalendern Nthedralen zu bauen. Zum Teil mit den H{CBM-F}nden schleppten die B{CBM-X}rger die Steine, reiche Kaufleute trugen Balken, karrten Sand. Nur aus Rivalit{CBM-F}t mit der Nachbarschaft baut man nicht hundert Jahre lang, sondern man baut zur Ehre Gottes. Und wenn das so ist, e neuen Jahresbeamten sollten ihr Amt jeweils am Jahresanfang antreten, um die zivilen Angelegenheiten zu ordnen, das Heer vorzubereiten und dann f{CBM-X}r die Sommerfeldz{CBM-X}ge bereit zu sein. Das konnte nat{CBM-X}rlich nicht gutgehen, wenn das Jahr immer sp{CBM-F}ter anfin
  37. res im Mondzyklus zu bestimmen, gibt es die "Goldene Zahl". Sie wird recht einfach ermittelt, indem zur Jahreszahl 1 addiert , denn der Mondzyklus kn{CBM-X}pft an das Jahr 1 v. Chr. an, und das Ergebnis durch 19 teilt. Der Rest ist die Goldene Zahl. Geht die R mit einem Montag, und nach einem siebenj{CBM-F}hrigen Zyklus w{CBM-F}ren wir wieder beim Sonntag. Weil aber alle vier Jahre ein Schalttag eingelegt wird, so dauert es 4 x 7 = 28 Jahre, bis die Wochentage wieder auf dieselben Monatsdaten fallen. Der Sonnenzyklus istsch-christlichen Siebentagewoche in Einklang gebracht, und man mu{CBM-V}te ihn mit dem Mondumlauf synchronisieren, denn das Osterfest wurde nach dem Mondkalender berechnet. Man k{CBM-C}nnte fragen, ob das so wichtig war. Schlie{CBM-V}lich h{CBM-F}tte man doch sagen k{CBM-C}nnen, Oste
  38. ormal- oder Gemeinjahre, und es gibt Jahre, die verl{CBM-F}ngert werden durch das Einschalten von Extratagen. Durch diese Konstruktionen versuchte man, sich der tats{CBM-F}chlichen Jahresl{CBM-F}nge so weit wie m{CBM-C}glich anzun{CBM-F}hern.
  39.  
  40. Beamte f{CBM-X}r ein Jahr
  41. Unser Kalender beruhdann kann man nicht einfach das Datum der Auferstehung Christi der Bequemlichkeit halber verschieben. Wenn es heute vielleicht m{CBM-C}glich w{CBM-F}re, Ostern als einen Gedenktag zu sehen, der ein festes Datum erh{CBM-F}lt, so war es f{CBM-X}r das Mittelalter selbstverst{CBM-F}ndlicg, wenn auch immer {CBM-C}fter die Kompliziertheit der Kalenderrechnung ausgenutzt wurde von bestechlichen Priestern, die zugunsten der scheidenden Beamten das Jahr verl{CBM-F}ngerten oder es, falls die neuen mehr boten, arg verk{CBM-X}rzten.
  42. So regiert man keine Weltmachechnung glatt auf, dann ist die Goldene Zahl 19.
  43. Um dies zur Festrechnung zu benutzen, fehlt noch der Sonnenzyklus. Er verbindet das julianische Jahr mit der siebent{CBM-F}gigen Woche. Nehmen wir einmal an, das Jahr h{CBM-F}tte 364 Tage, also genau 52 Wochen. Jedes  also 28 Jahre lang.
  44.  
  45. Errechnen der Wochentage
  46. Um Wochentage bestimmen zu k{CBM-C}nnen, teilte man jedem Tag des Jahres einen der Buchstaben von A bis G zu, teilte das Jahr also in Wochen und zwar ganz einfach und ein f{CBM-X}r allemal festgelegt. 1. Januar = A, 2. rn sei jedes Jahr am 10. April.
  47. Aber das war unm{CBM-C}glich, denn die Religion hatte im Mittelalter eine Bedeutung, die wir uns heute nicht mehr vorstellen k{CBM-C}nnen. Der Glaube bestimmte das ganze Leben, jeden Tag. Christus und die Kirche waren das Zentrum des t auf dem der R{CBM-C}mer. Das r{CBM-C}mische Jahr hatte urspr{CBM-X}nglich zehn Monate, von M{CBM-F}rz bis Dezember (decem = 10). Recht fr{CBM-X}h kamen Januar und Februar dazu. Die L{CBM-F}nge des Jahres betrug allerdings nur 355 Tage. Diese Ungenauigkeit suchte man durch ganze Serien voh, lieber komplizierte Rechnungen durchzuf{CBM-X}hren um das Sonnenjahr mit dem Mondjahr zu synchronisieren, als den heiligen Ostertermin falsch festzulegen.
  48.  
  49. Die Goldene Zahl
  50. Und so errechnete man den Mondzyklus, der in 19 julianischen Jahren 235 synodische M
  51. t. Und es brauchte dann auch einen Diktator, Julius Caesar, der den Kalender reformierte (46 v. Chr.), indem er die L{CBM-F}nge des Jahres auf 365 Tage festlegte. Alle vier Jahre wurde ein Schaltjahr von 366 Tagen eingelegt. Das war bereits recht genau, und esJahr finge mit dem gleichen Tag an, vermutlich einem Sonntag, und wir br{CBM-F}uchten {CBM-X}berhaupt keinen Kalender, weil alles so sch{CBM-C}n regelm{CBM-F}{CBM-V}ig w{CBM-F}re. Wenn wir nun ein Jahr von 365 Tagen annehme, dann finge zum Beginn das Jahr 1 mit einem Sonntag an, das Jahr 2Juden, die diese Feiertage in einen festen, sich stetig wiederholenden Rhythmus brachten. "Der siebte Tage ist ein Ruhetag, dem Herrn, deinem Gott, geweiht." (Ex 20, 10). Die Zehn Gebote haben uns also unseren siebent{CBM-F}gigen Wochenrhythmus gebracht.
  52. Wie sDenkens. K{CBM-C}nige und Adlige schenkten f{CBM-X}r ihr Seelenheil der Kirche, speziell den Kl{CBM-C}stern, gro{CBM-V}e Besitzungen. Das war kein billiger Abla{CBM-V}handel, sondern tiefe {SHIFT--}berzeugung.
  53. Im Hochmittelalter machten sich St{CBM-F}dte von nur 20.000 Einwohnern daran, riesige Kan Schalttagen oder Schaltmonaten auszugleichen. Eine ungeheuer komplizierte und auch politisch sehr wichtige Berechnung, denn in Rom amtierten die Beamten einschlie{CBM-V}lich der Konsuln, die die h{CBM-C}chste zivile und milit{CBM-F}rische Gewalt hatten, nur ein Jahr.
  54. Diondmonate enthielt. Das erforderte wieder Mondschaltjahre und Mondschalttage, war kompliziert und umst{CBM-F}ndlich. Aber man hatte einen immer wiederkehrenden Rhythmus von 19 Jahren, der die ganze christliche Zeitrechnung durchl{CBM-F}uft.
  55. Um die Stellung eines Jahange sie als Bauern in D{CBM-C}rfern abh{CBM-F}ngig von der Natur lebte, ohne festen Kalender auskommen. Die G{CBM-C}ttin der Fruchtbarkeit wurde zur Zeit des Fr{CBM-X}hjahrsvollmondes verehrt, und Fr{CBM-X}hjahr war es, wenn der Schnee schmolz.
  56. Sobald aber St{CBM-F}dte entstanden waren, mde. Mit der Cursortaste nach rechts gelangen Sie zur n{CBM-F}chsten Note. Der Erfassungsmodus f{CBM-X}r die Tonl{CBM-F}ngen wird durch Dr{CBM-X}cken der Returntaste verlassen, so da{CBM-V} Sie dann wieder das Men{CBM-X} mit F3 aufrufen oder neue Noten eingeben k{CBM-C}nnen.
  57. Wenn Sie im Men{CBM-X} den timmter Sterne in einen Sektor des sichtbaren Himmels zu einem festen Zeitpunkt, schon l{CBM-F}ngst nicht mehr zutrifft. Denn die Bewegung der Erde, des Sonnensystems und unserer Galaxis hat im Lauf der Jahrtausende die Konstellationen stark verschoben.
  58. Der Kaden Liedtext. Im Anschlu{CBM-V} an die Notenl{CBM-F}nge oder, falls diese noch nicht erfa{CBM-V}t ist, an den Notenwert darf nach Anf{CBM-X}gen eines Schr{CBM-F}gstriches eine beliebige Zeichenkette eingetragen werden, die allerdings keine Leerzeichen enthalten darf.
  59.  
  60. Zum Weiterlesen
  61. er Monat. Er hat den direkten Zusammenhang mit den Bewegungen des Himmelsk{CBM-C}rpers verloren. Theoretisch ist ein sogenannter synodischer Mondmonat die Zeit, in der der Mond den vollen Phasenzyklus vom Neumond zum Vollmond und zur{CBM-X}ck durchl{CBM-F}uft. Dieser Mondogie. Es war nicht nur die praktische Notwendigkeit, Himmelserscheinungen vorauszuberechnen, um Feiertage festzulegen oder den Zeitpunkt des Nilhochwassers zu bestimmen, sondern es war nat{CBM-X}rlich auch beeindruckend f{CBM-X}r die Massen, wenn eine Zeremonie abgeit ihrer fortgeschrittenen Arbeitsteilung, mit der Aufteilung der Menschen in Klassen - Sklaven, Bauern, Handwerker und H{CBM-F}ndler, Kriege, K{CBM-C}nige und Priesterk{CBM-C}nige -, da hatte man sich ein St{CBM-X}ck von der Natur entfernt. Man lebte auch nicht mehr nach einem
  62. Punkt Wandeln ausw{CBM-F}hlen, liegt nachher ein fertiges, mit Play abspielbares Musikst{CBM-X}ck vor.
  63.  
  64. Punkte des Optionen-Men{CBM-X}s
  65.  
  66. Tempo
  67. Durch Eingabe eines Wertes zwischen null und 255 kann die Abspielgeschwindigkeit f{CBM-X}r Play ge{CBM-F}ndert werden.
  68.  
  69. Dir
  70. Vorhandene Musikflender stimmt nicht mehr. Und das ist etwas, das er mit allen anderen gemein hat. Sie m{CBM-X}ssen immer wieder korrigiert werden. Wie das bei unserem eigenen Kalender funktioniert, wie er entstanden ist, wie man ihn errechnet, soll hier n{CBM-F}her betrachtet werde
  71. - laden Sie bitte die Textdatei "lied-2.txt". aufgerufen, so da{CBM-V} auch beliebige Texte erfa{CBM-V}t oder noch Bemerkungen in den Quellcode eines Liedes eingef{CBM-X}gt werden k{CBM-C}nnen. So enth{CBM-F}lt etwa das File ZELL nicht nur die Notenwerte und Notenl{CBM-F}ngen, sondern auch kalender ist aber bis auf bestimmte Reste schon lange nicht mehr in Gebrauch. Ein Monat ist f{CBM-X}r uns einfach die Unterteilung eines Jahres in {CBM-X}berschaubare, etwa gleichlange Einheiten.
  72. Dienstag, 25. August 1987. Ein Datum,beruhend auf der Bewegung dreier halten wurde, der Priester den Arm hob und die Sonne sich verfinsterte.
  73. Sehr fr{CBM-X}h entstand ein Teil unseres Kalenders, der noch heute unser aller Leben pr{CBM-F}gt, die Woche. Feiertage kannten die Babylonier, die {SHIFT-+}gypter, die Griechen und R{CBM-C}mer. Es waren die t einem Sonntag an? Warum fallen die Festtage nicht immer auf den gleichen Wochentag? Es liegt am Kalender. An unserem Kalender der christlichen Zeitrechnung, wobei das "christlich" wichtig ist. Denn alle Kalender sind entstanden aus Religion und Naturwiiles mit der Kennung m/ auf der Diskette werden aufgelistet.
  74.  
  75. Laden
  76. Musikfiles werden geladen. Die Kennung m/ bitte hierbei nicht mit eingeben.
  77.  
  78. Speichern
  79. Musikfiles werden gespeichert. Dabei wird vom Programm dem Filenamen automatisch die Kennung m/ vorn.
  80. Dienstag, 25. August 1987. Ein ganz normales Datum. Es besteht aus drei Teilen: dem Tag, nochmals unterteilt in Wochentag und Tagesdatum, dem Monat und dem Jahr. Die einfachste Einheit ist der Tag, eine Umdrehung der Erde um sich selbst. Schauen wir a einheitlichen Rhythmus, und es wurde notwendig, dem Leben eine feste zeitliche Einteilung zu geben, Feiertage festzulegen.
  81. In Mesopotamien und {SHIFT-+}gypten entwickelte sich die Astronomie und parallel dazu ihr mystisch-magische Zwillingsschwester, die Astrol
  82. Himmelsk{CBM-C}rper: der Erde, des Mondes und der Sonne. Und die Religion? Sie spielt auch eine Rolle, und zwar gleich in zweifacher Hinsicht:
  83. Zum einen gab sie den Ansto{CBM-V} zur Errechnung von Kalendern. Eine Menschheit, die Naturgottheiten verehrte, konnte, solalbe Note mit einer Viertelnote Pausendauer, im zweiten Fall eine Viertelnote, der eine Pause von ebenfalls einer Viertelnote Dauer folgt. Bei Pausen reduziert sich {CBM-X}brigens die Pausendauer der vorangehenden Note auf null, falls diese nicht angegeben wurssenschaft.
  84. Noch heute deutlich wird dieser uralte Zusammenhang in der Astrologie, denn die Einteilung des Jahres in die zw{CBM-C}lf magischen Sternkreiszeichen ist letztlich auch nichts anderes als ein Kalender, dessen Voraussetzung, n{CBM-F}mlich das Eintreten besangestellt.
  85.  
  86. Ed
  87. Der Editor wird im Textmodus aufgerufen, so da{CBM-V} auch beliebige Texte erfa{CBM-V}t oder noch Bemerkungen in den Quellcode eines Liedes eingef{CBM-X}gt werden k{CBM-C}nnen. So enth{CBM-F}lt etwa das File ZELL nicht nur die Notenwerte und Notenl{CBM-F}ngen, sondern auch ls n{CBM-F}chstes das Jahr an. Auch da k{CBM-C}nnen wir mit unseren Sinnen den Ablauf erfahren. Immer wenn es wieder Fr{CBM-X}hling wird, sind wir ein Jahr weiter. Wissenschaftlich also die Zeitspanne, in der die Erde einmal die Sonne umkreist.
  88.  
  89. Tag, Monat und Jahr
  90. Dann dSie mit F7 automatisch zum Liedanfang zur{CBM-X}ck, so da{CBM-V} Sie auch mehrere Strophen hintereinander spielen k{CBM-C}nnen.
  91. {SHIFT--}brigens sind alle Tasten au{CBM-V}er Del auch im Nichtaufnahmemodus aktiv, damit Sie beim Komponieren, w{CBM-F}hrend Sie die n{CBM-F}chste Tonfolge probieren, ausvorgang stattfindet. Danach wird mitgeteilt, da{CBM-V} das System f{CBM-X}r die Auswertung Ihrer Tastendr{CBM-X}cke bereit ist. Hier im Record-Modus k{CBM-C}nnen Sie zum Spielen jede beliebige Taste mit Ausnahme von F3 (vorzeitiger Abbruch) verwenden. Nachdem Sie das Lied im Eachen k{CBM-C}nnen. Zur{CBM-X}ck kommen Sie aus dem Editor wieder mit der Funktionstaste F3.
  92. Weitere Funktionen, wie etwa Such- und Tauschoptionen, Blockoperationen, zweite Textbank und Diskettenoperationen, sind {CBM-X}ber die Funktionstasten F4 (Textteil isolieren), F6 er Notenl{CBM-F}nge, so wird sie vom Programm als Viertelnote aufgefa{CBM-V}t. Den eben genannten Vorzeichen kann noch ein Punkt oder ein Doppelpunkt f{CBM-X}r punktierte Noten folgen, au{CBM-V}erdem gibt es das Kleinerzeichen (<), das die Notendauer auf zwei Drittel verk{CBM-X}rzt, 
  93.  werden, wie lange eine Note gehalten werden mu{CBM-V}. Dies wollen wir als Haltedauer bezeichnen. Der n{CBM-F}chste Ton sollte auf den vorigen nicht {CBM-X}bergangslos folgen, schlie{CBM-V}lich sollte dieser in Ruhe ausklingen k{CBM-C}nnen. Beim Klavierspielen etwa vergeht zwischen {CBM-F}tzliche Pause, sondern wird vom Programm automatisch von der Notenl{CBM-F}nge abgezogen, um die Haltedauer zu erhalten. Sollte die Pausendauer versehentlich l{CBM-F}nger als die Notenl{CBM-F}nge gew{CBM-F}hlt sein, meldet dies sp{CBM-F}ter die Wandelfunktion als Fehler. Der Pausendach das bereits Erfa{CBM-V}te zum Vergleich anh{CBM-C}ren k{CBM-C}nnen.
  94.  
  95. Arbeiten mit dem Editor
  96. Zwar w{CBM-F}re der Aufnahmemodus zum Erfassen hinreichend, jedoch ist er, da immer nur ein Ton im Sichtfenster zu sehen ist, etwas un{CBM-X}bersichtlich. Wenn Sie im Men{CBM-X} den Editor aufru
  97. infingersystem durchgespielt haben, ist es komplett verarbeitet und kann mit dem Men{CBM-X}punkt Play abgespielt werden. Mit dem Men{CBM-X}punkt Optionen l{CBM-F}{CBM-V}t sich das Musikst{CBM-X}ck als spezielles Musikfile abspeichern oder in ein BASIC-Programm {CBM-X}bersetzen.
  98.  
  99. Manuelle E(Suchen vom Textanfang an), F5 (Weitersuchen) und F8 (Editormen{CBM-X}, fr{CBM-X}her F3) aufrufbar. Wer mit diesen M{CBM-C}glichkeiten nicht vertraut ist und versehentlich die Funktionstaste F4 dr{CBM-X}ckt, kann leicht einen Schreck bekommen, wenn pl{CBM-C}tzlich ein Textteil verschdamit auch Triolen realisiert werden k{CBM-C}nnen. Weitere Notenl{CBM-F}ngen lassen sich durch die Verwendung des Bindestriches (Minuszeichen) realisieren. So bedeutet etwa 4cs-h den Ton C, der eine sechzehntel und eine halbe Note ausgehalten wird.
  100. Eine komplette Eidem Loslassen der einen Taste bis zum Dr{CBM-X}cken der n{CBM-F}chsten eine kurze Zeit. Diese Zeit nennen wir Pausendauer. Es existieren zwei M{CBM-C}glichkeiten, sie dem Programm bekanntzugeben. Die schnellste ist, das Lied im Einfingermodus abzuspielen und vom Programm uer oder, falls diese nicht angegeben wurde, der Notenl{CBM-F}nge, kann noch eine weitere Angabe folgen, n{CBM-F}mlich eine zus{CBM-F}tzliche Pause, die durch das Zeichen # sowie die L{CBM-F}ngenangabe ausgedr{CBM-X}ckt wird.
  101. Gleiches bedeuten hv und v#v. Im ersten Fall ist es eine hfen, erscheint ein Bildschirm, der lediglich aufgenommene T{CBM-C}ne enth{CBM-F}lt. Die gew{CBM-F}hlte Eingabetastatur ist aber weiterhin aktiviert. Cursorbewegungen nach oben und unten bewirken im Editor den Sprung auf die vorangegangene oder nachfolgende Zeile. Au{CBM-V}erdemrfassung der Notenl{CBM-F}ngen
  102. Wird im Editor die Taste mit dem Schr{CBM-F}gstrich (/) gedr{CBM-X}ckt, so springt der Cursor unmittelbar hinter den Namen der vorhergehenden Note. Jetzt k{CBM-C}nnen durch bestimmte K{CBM-X}rzel die Eintragungen f{CBM-X}r die Notenl{CBM-F}ngen erfolgen.
  103. Zahlentastwunden ist. Doch keine Sorge, wenn Sie noch zweimal F4 bet{CBM-F}tigen, ist der alte Zustand wiederhergestellt. {SHIFT-+}hnliches geschieht auch, wenn Sie mit Editormen{CBM-X} (F8) die Bank wechseln. Nochmaliges Wechseln schaltet wieder in die urspr{CBM-X}ngliche Textbank zur{CBM-X}ck.ngabe setzt sich zusammen aus Notenl{CBM-F}nge und Pausendauer. Wird die Pausendauer nicht angegeben, nimmt sie das System als 32stel Note an. Gleichbedeutend mit 4cv ist 4cvd. Die Angabe der Pausendauer folgt unmittelbar auf die Notendauer. Dies ist keine zus
  104. d im Einfingersystem abspielen k{CBM-C}nnen, indem Sie nach dem Sprung an den Textanfang F7 jeweils so lange dr{CBM-X}cken, wie der n{CBM-F}chste Ton erklingen soll. Damit ist auch der Unge{CBM-X}bte in der Lage, ein Musikst{CBM-X}ck zu spielen. Befinden Sie sich am Liedende, kommen ausmessen zu lassen, wie lange die Taste jeweils gedr{CBM-X}ckt und wie lange sie nicht gedr{CBM-X}ckt war.
  105. Zu diesem Zweck gibt es im Men{CBM-X} des Liedhelfers den Punkt Record. Wenn diese Funktion angew{CBM-F}hlt ist, erklingt kurz ein Signal, das besagt, da{CBM-V} ein Bearbeitung gibt es noch einige zus{CBM-F}tzliche wirksame Tasten. Mit F1 k{CBM-C}nnen Sie 15 Zeilen nach unten bl{CBM-F}ttern, mit F2 dieselbe Zeilenzahl r{CBM-X}ckw{CBM-F}rts. Mit der Returntaste kann das Musikst{CBM-X}ck besser untergliedert werden, damit Sie wichtige Passagen leichter ausfindig men geben die Tondauer in ganzen Noten an. Die Ziffer 2 w{CBM-X}rde somit eine doppelte Note bedeuten. F{CBM-X}r k{CBM-X}rzere Notenl{CBM-F}ngen gibt es folgende Buchstabentasten:
  106. g = Ganze
  107. h = Halbe
  108. v = Viertel
  109. a = Achtel
  110. s = Sechzehntel
  111. d = 32stel
  112. f = 64stel
  113. Fehlt die Angabe d
  114. Wichtig ist vor allem das Speichern und Laden von Texten. Mit F8 und d gelangen Sie in das Disk-Men{CBM-X}, wo Sie die entsprechenden T{CBM-F}tigkeiten vornehmen k{CBM-C}nnen.
  115.  
  116. Einstellung der Notenl{CBM-F}ngen
  117. Zur Fertigstellung eines Musikst{CBM-X}ckes mu{CBM-V} dem Computer noch gesagtt der Ton b in der siebten Oktave.
  118.  
  119. F{CBM-X}r Anf{CBM-F}nger und Fortgeschrittene
  120. Was f{CBM-X}r den ge{CBM-X}bten Klavierspieler optimal ist, ist f{CBM-X}r den unge{CBM-X}bten nicht unbedingt das Wahre. Wer einfach ein Liedchen abschreiben m{CBM-C}chte und mit dem Klavier nichts im Sinn hat, tutNachdem Sie ein Vorzeichen mit +, - oder = gew{CBM-F}hlt haben, dr{CBM-X}cken Sie die Taste v f{CBM-X}r Vorbelegen. Ein Pfeil zeigt die Aktivierung der Vorbelegungsfunktion an. Der n{CBM-F}chste gew{CBM-F}hlte Ton wird nicht gespielt, sondern statt dessen wird in den jetzt noch leereWaehlen Sie das Programm mit den "
  121. m
  122. {$de}"Cursor-Tasten  >>ab<<  oder >>auf<< aus"
  123.  
  124. {CBM-*}"und druecken Sie die  <RETURN>-Taste  !";:x{CBM-R}1:y{CBM-R}6:y1{CBM-R}7
  125. {CBM-T}
  126. {$e6}G(19)cr$H(cd$,y)pf$
  127. {CBM-Q}
  128. {$e7}{CBM-K}a$
  129. R
  130. {$e8}a${CBM-R}G(145){CBM-P}y{CBM-E}6{CBM-M}y{CBM-R}y{CBM-Q}1:y1{CBM-R}y{CBM-N}1:10000
  131. {$fb}
  132. {$e9}a${CBM-R}G(17){CBM-P}y{CBM-W}5{CBM-N}fl{CBM-M}y{CBM-R}y{CBM-N}1:y1{CBM-R}y{CBM-Q}1:1000cken, erklingt nicht nur der entsprechende Ton, der Tastendruck wird auch durch Reversschaltung auf dem Bildschirm angezeigt. Wenn Sie Klavier spielen k{CBM-C}nnen, sollte es kein Problem sein, nach Gew{CBM-C}hnung an die Tastatur gleich einmal ein Liedchen zu spiel198,4:
  133. P"     Info"," 64","in*"
  134. eT"     Disk Monitor"," 64","disk m*"
  135. HU"     Lotterie"," 64","lotte"
  136. V"     Stradenk"," 64","straden"
  137. {CBM-R}X"     Kalender"," 64","kalende"
  138. XZ"     Liedhelfer"," 64","liedh*"
  139.  
  140. {$f7}"(40) Business Charts","Tonarten als C-Dur zu verwenden, m{CBM-X}ssen Vorzeichen benutzt werden. Das Vorzeichen # erh{CBM-C}ht den n{CBM-F}chsten Ton um einen Halbton, ein b erniedrigt ihn um einen Halbton. Gesetzt werden die Vorzeichen mit den Tasten + und - sowie =. Das Gleichheitszeichen hebt
  141.  gut daran, die zweite Bedienm{CBM-C}glichkeit auszuw{CBM-F}hlen, die sich nach Dr{CBM-X}cken der Funktionstaste F3 und der Taste n f{CBM-X}r Noten ergibt. Hier werden die T{CBM-C}ne durch die Notennamen der Tonleiter c, d, e, f, g, a und h erreicht. Wer keine Noten lesen kann, erh{CBM-F}ln Feldern {CBM-X}ber den Notennamen an der entsprechenden Stelle das gew{CBM-F}hlte Vorzeichen eingetragen. Dadurch brauchen Sie es bei diesem Ton nicht mehr st{CBM-F}ndig neu einzugeben.
  142. Die Umschaltung, Erniedrigung und Erh{CBM-C}hung der Oktaven wird in gleicher Weise wie beabiger Code, der die Tonh{CBM-C}he angibt. Das erste Zeichen ist eine Ziffer von null bis sieben f{CBM-X}r die Oktave, das zweite Zeichen der Notenname. Ein Gro{CBM-V}buchstabe als Notenname bedeutet eine Erh{CBM-C}hung um einen Halbton. Im Aufnahmemodus stehen weitere Tasten zen.
  143. F{CBM-X}r den Fall, da{CBM-V} die Tasten nicht ganz ausreichend sein sollten, k{CBM-C}nnen Sie durch Dr{CBM-X}cken der Commodore- oder der Shifttaste zwei ganze Oktaven dazugewinnen. Solange die CBM-Taste gedr{CBM-X}ckt ist, erklingen alle T{CBM-C}ne um eine Oktave erniedrigt, mit gedrnende Ton. Am Textanfang ist das Sichtfenster leer, da immer der vorangegangene Ton angezeigt wird. Die Funktionstaste F7 wirkt {CBM-F}hnlich wie Cursor rechts. Im Unterschied dazu ist aber die Tastenwiederholung ausgeschaltet, so da{CBM-V} Sie Ihr aufgenommenes Lie ein falsch gesetztes Vorzeichen wieder auf. Sie k{CBM-C}nnen dies ausprobieren, indem Sie ein Vorzeichen setzen und zweimal denselben Ton hintereinander dr{CBM-X}cken. Beim erstenmal klingt er anders als sonst. Das Aufl{CBM-C}sungszeichen sieht in natura anders aus als a0
  144. {$ea}a${CBM-R}G(13){CBM-M}1600
  145. >1511
  146. "@i{CBM-R}y{CBM-Q}5
  147. :{CBM-@}G(147)G(144)G(142)
  148. o{CBM-S}B(772){CBM-R}124{CBM-M}1730
  149. {CBM-U}G(19)"run"G(34)id$(i):842,19:843,13:208,2:
  150. {CBM-Q}BG(19)"load"G(34)id$(i)G(34)",8,1"
  151. {SHIFT-@}Crn${CBM-R}"run"
  152. HLH(cd$,5)
  153. WVG(145)rn$
  154. ~ 631,19:i{CBM-R}1{CBM-@}3:631{CBM-N}i,13::t eine Hilfestellung durch die Notenlinien, auf denen die Note nach jedem Tastendruck dargestellt wird. Wenn Sie etwas {CBM-X}ben, sollte es Ihnen nach kurzer Zeit gelingen, den gew{CBM-X}nschten Ton auf Anhieb hervorzubringen. Aber auch ohne {SHIFT--}bung ist das Erfassen 
  155. {CBM-U}128","busines*"
  156. ;
  157. {$f8}"(40) Disklabel EPS/IBM","128","disklab eps/ibm"
  158. Q
  159. {$fd}"(40) Disklabel MPS1200","128","disklab mps1200"
  160.  
  161. 'G(19)cr$H(cd$,y1)pl$
  162. {CBM-@}
  163. 'G(19)cr$H(cd$,y)pf$
  164. {CBM-N}
  165. $'
  166.  
  167.  
  168. n${CBM-R}"run"
  169. HLH(cd$,5)
  170. WVG(145)rn$
  171. ~ 631,19:i{CBM-R}1{CBM-@}3:631{CBM-N}i,13::
  172. {CBM-X}ckter Shifttaste werden sie um eine Oktave erh{CBM-C}ht. Wem das nicht gen{CBM-X}gt, kann die Tastatur in Oktavschritten verstellen. Voreingestellt ist die vierte Oktave. Durch Druck einer Zifferntaste von 0 bis 7 l{CBM-F}{CBM-V}t sich dies {CBM-F}ndern. Der h{CBM-C}chste spielbare Ton isi der Klaviertastatur vorgenommen.
  173.  
  174. Musikst{CBM-X}cke aufzeichnen
  175. Wenn Sie in dem {CBM-X}ber F3 erreichbaren Men{CBM-X} a f{CBM-X}r Aufnahme ausw{CBM-F}hlen, wird der Aufnahmemodus auf dem Bildschirm angezeigt. Beim Eingeben von T{CBM-C}nen erscheint in einem umrandeten Feld ein zweibuchstuf dem Bildschirm.
  176. L{CBM-F}stig ist es, st{CBM-F}ndig Vorzeichen eingeben zu m{CBM-X}ssen, wenn ein Lied nicht in C-Dur geschrieben ist. Um die Eingabe zu erleichtern, gibt es die M{CBM-C}glichkeit, Vorzeichen vorzubelegen, wie dies etwa am Anfang von Notenzeilen zu sehen ist. hnungen sowie die Tastenbelegungen aufgef{CBM-X}hrt sind. Diese T{CBM-C}ne erreichen Sie mit der Tastenreihe von a bis = . In der Tastenreihe dar{CBM-X}ber finden sich die schwarzen Tasten des Klaviers mit den dazwischenliegenden Halbt{CBM-C}nen. Wenn Sie eine dieser Tasten dr{CBM-X}m{CBM-C}glich. Mit Hilfe von Cursor auf und Cursor ab l{CBM-F}{CBM-V}t sich die Note am gew{CBM-X}nschten Ort positionieren und mit Return abschicken.
  177.  
  178. Eingabe der Vorzeichen
  179. W{CBM-F}hrend eine Oktave zw{CBM-C}lf Halbt{CBM-C}ne enth{CBM-F}lt, schlie{CBM-V}t die Tonleiter nur sieben T{CBM-C}ne ein. Um auch andere 
  180. ur Verf{CBM-X}gung.
  181.  
  182. Tasten im Aufnahmemodus
  183. Del l{CBM-C}scht den angezeigten Ton. Cursor links und rechts gestatten das R{CBM-X}ck- und Vorbl{CBM-F}ttern. Clear springt zum Anfang, Home zum Ende. Bei allen Aktionen erklingt zur Kontrolle kurz der gerade im Sichtfenster erschei
  184. {CBM-I}sch mit dem Spezifikator ".BG" versehen, der beim Wiedereinladen nicht anzugeben ist. Auf der Diskette befindet sich ein Grafikfile mit dem Namen PARETOKURVE.BG.oblemlos abge{CBM-F}ndert werden k{CBM-C}nnen.
  185.  
  186. Full
  187. Zeigt die Grafik ohne Fenstereinblendung. Mit der Leh eckige Klammern hervorgehobenen Anfangsbuchstaben entsprechen:
  188.  
  189. Save
  190. Speichert das Diagramm auf Diskette.
  191.  
  192. Edit
  193. F{CBM-X}hrt in den Editiermodus. Hier stehen folgende Optionen zur Verf{CBM-X}gung:
  194.  
  195. 1. Texteingaben
  196. Texteingaben erfolgen durch die Plazierung des Graf            Liedhelfer
  197.       Der Computer macht Musik
  198. Unser Musikkurs vermittelt Ihnen nicht nur alles Wissenswerte {CBM-X}bers Musikmachen mit Ihrem Rechner, sondern stellt Ihnen auch die Hilfsmittel zur Verf{CBM-X}gung, mit denen Sie probieren und musizieren k{CBM-C}nnemmung der unteren rechten Ecke des L{CBM-C}schbereichs ist entsprechend vorzugehen. Die Markierung erfolgt durch die Taste "R" (mit entsprechender Fenstermeldung). Der markierte Bereich wird anschlie{CBM-V}end gel{CBM-C}scht.
  199.  
  200. Copy
  201. Erstellt eine Bildschirmhardcopy. Die Ro
  202.  dem Grund, weil die Public-Domain-Musikprogramme erstaunliche M{CBM-C}glichkeiten boten, aber ansonsten nicht sonderlich bequem zu bedienen sind. Schlie{CBM-V}lich m{CBM-C}chte man ja ein Lied recht schnell abtippen k{CBM-C}nnen und nicht stundenlang damit besch{CBM-F}ftigt sein. DiEinfingermodus ist, abgesehen von der Direktaufzeichnung, nicht nur die schnellste M{CBM-C}glichkeit, sondern l{CBM-F}{CBM-V}t auch mehr Raum f{CBM-X}r freiere Interpretation. Exakter Maschinenrhythmus h{CBM-C}rt sich oft ein wenig langweilig an. Aber es gibt nat{CBM-X}rlich auch die manue                Kalender
  203.        Die christliche Zeitrechnung
  204. Das Programm "kennt" die Daten vom Jahr 1 bis zum Jahr 2299. Wer wissen will, wie der Kalender errechnet wird, findet hier die n{CBM-C}tigen Informationen.
  205.  
  206. Warum f{CBM-F}ngt eigentlich nicht jedes Jahr mi
  207. ikcursorpfeils an der gew{CBM-X}nschten Eingabeposition des Textes und anschlie{CBM-V}endes Dr{CBM-X}cken der Taste "T". Es erscheint kurz ein Fenster mit der Meldung "Text". Der Text kann nun eingeben werden. Die Texteingabe ist mit Return zu beenden.
  208.  
  209. 2. Grafikl{CBM-C}schfunkn. In diesem Artikel behandeln wir einstimmige Musik mit dem Programm Liedhelfer und mit POKE-Befehlen in BASIC.
  210.  
  211. Auch wer die zum Spielen eines Musikinstrumentes n{CBM-C}tige Fingerfertigkeit noch nicht besitzt, bleibt nicht auf Kl{CBM-F}nge aus der Konserve angewiutine, die sich ab Zeile 2200 im Listing befindet, ist auf einen Star LC10 C abgestimmt und sollte, da es sich um eine reine BASIC-Routine handelt, bei Bedarf problemlos abge{CBM-F}ndert werden k{CBM-C}nnen.
  212.  
  213. Full
  214. Zeigt die Grafik ohne Fenstereinblendung. Mit der Lee Angabe der Tondauer bei jeder Note hemmt den Flu{CBM-V} des Erfassens und Komponierens, besonders wenn zudem Noten mit dem Joystick hin und her geschoben und dazu {CBM-X}ber Men{CBM-X}s Vorzeichen, Oktaven und sonstiges ausgew{CBM-F}hlt werden m{CBM-X}ssen.
  215. Die Eingabe {CBM-X}ber eine Kllle Erfassung von Notenl{CBM-F}ngen.
  216. Musik mit dem C64 oder C128 ist ein Thema, das in den Rechnerhandb{CBM-X}chern etwas unzureichend abgehandelt ist. Wenn die n{CBM-C}tigen Hilfsprogramme fehlen, ist sogar die Musikprogrammierung mit dem C128 mit Sound- und Play-Befehledie Lautst{CBM-F}rkeregelung besprochen und gezeigt, wie einstimmige Musik mit POKE-Befehlen auch mit dem C64 zu programmieren ist.
  217.  
  218. Musizieren mit dem Liedhelfer
  219. Nach dem Programmstart sehen Sie auf dem Bildschirm eine Klaviertastatur, auf der die Notenbezeictionen
  220. Das L{CBM-C}schen von Fl{CBM-F}chen (etwa unerw{CBM-X}nschte Texte) wird durch die Taste "W" (wipe) eingeleitet. F{CBM-X}r einen kurzen Moment erscheint ein Fenster mit der Meldung "Wipe". Es zeigt an, da{CBM-V} der L{CBM-C}schmodus aktiviert ist. Anschlie{CBM-V}end ist der Cursorpfeil anesen. Das Programm Liedhelfer erlaubt auch dem Unge{CBM-X}bten das Musizieren, gibt ihm die M{CBM-C}glichkeit, das Notenlesen zu lernen und zu {CBM-X}ben und gestattet ihm das Abschreiben von Liedern. Wenn der Computer die richtigen T{CBM-C}ne erzeugt, sollte es nicht mehr allz
  221. ertaste wird das Untermen{CBM-X} erneut aufgerufen.
  222.  
  223. Back
  224. F{CBM-X}hrt ins Hauptmen{CBM-X} zur{CBM-X}ck.
  225.  
  226. More (erscheint nur bei Functionchart)
  227. Erlaubt die {CBM-X}berlagernde Darstellung verschiedener Funktionsgraphen.
  228.  
  229. Aus Business Charts heraus gespeicherte Grafiken werden automatiaviertastatur sorgt beim Liedhelfer f{CBM-X}r schnelle Erfassung, die Eingabe nach Notennamen in Verbindung mit der Kontrolle durch Notenlinien erlaubt auch dem Unge{CBM-X}bten das Abschreiben von Liedern. Die automatische Erfassung der Notenl{CBM-F}ngen durch Spielen im e des relativen Istwertes (Beispiel: Prosp.: 230 / Actual: 99).
  230. Nachdem ein Diagramm erstellt wurde, erscheint im linken oberen Bildschirmbereich ein Popup-Fenster mit den folgenden Optionen, die jeweils mit derjenigen Taste erreicht werden, die dem durcn noch sehr m{CBM-X}hsam. Daher haben wir uns entschlossen, Ihnen nicht nur ein Musikprogramm anzubieten, sondern auch Hilfen f{CBM-X}r die Musikprogrammierung in BASIC zu geben. In diesem Beispiel werden Frequenz-, Pulsweiten-, Steuer- und H{CBM-X}llkurvenregister sowie  der Stelle zu positionieren, die der linken oberen Ecke eines rechteckigen L{CBM-C}schbereichs entspricht. Die linke obere Ecke des L{CBM-C}schbereichs wird mit der Taste "L" markiert, was mit einer entsprechenden Fenstermeldung (LEFT) quittiert wird. F{CBM-X}r die Bestiu schwierig sein, ein Lied richtig zu singen. Auch dem Komponisten ist der Liedhelfer von Nutzen, denn selbstverst{CBM-F}ndlich kann das Gespielte oder Improvisierte aufgezeichnet und sp{CBM-F}ter {CBM-X}berarbeitet und verfeinert werden.
  231. Entstanden ist der Liedhelfer aus
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276.  
  277.  
  278.  
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305.  
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312.  
  313.  
  314.  
  315.  
  316.  
  317.  
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330.  
  331.  
  332.  
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.  
  342.  
  343.  
  344.  
  345.  
  346.  
  347.  
  348.  
  349.  
  350.  
  351.  
  352.  
  353.  
  354.  
  355.  
  356.  
  357.  
  358.  
  359.  
  360.  
  361.  
  362.  
  363.  
  364.  
  365.  
  366.  
  367.  
  368.  
  369.  
  370.  
  371.  
  372.  
  373.  
  374.  
  375.  
  376.  
  377.  
  378.  
  379.  
  380.  
  381.  
  382.  
  383.  
  384.  
  385.  
  386.  
  387.  
  388.  
  389.  
  390.  
  391.  
  392.  
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400.  
  401.  
  402.  
  403.  
  404.  
  405.  
  406.  
  407.  
  408.  
  409.  
  410.  
  411.  
  412.  
  413.  
  414.  
  415.  
  416.  
  417.  
  418.  
  419.  
  420.  
  421.  
  422.  
  423.  
  424.  
  425.  
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432.  
  433.  
  434.  
  435.  
  436.  
  437.  
  438.  
  439.  
  440.  
  441.  
  442.  
  443.  
  444.  
  445.  
  446.  
  447.  
  448.  
  449.  
  450.  
  451.  
  452.  
  453.  
  454.  
  455.  
  456.  
  457.  
  458.  
  459.  
  460.  
  461.  
  462.  
  463.  
  464.  
  465.  
  466.  
  467.  
  468.  
  469.  
  470.  
  471.  
  472.  
  473.  
  474.  
  475.  
  476.  
  477.  
  478.  
  479.  
  480.  
  481.  
  482.  
  483.  
  484.  
  485.  
  486.  
  487.  
  488.  
  489.  
  490.  
  491.  
  492.  
  493.  
  494.  
  495.  
  496.  
  497.  
  498.  
  499.  
  500.  
  501.  
  502.  
  503.  
  504.  
  505.  
  506.  
  507.  
  508.  
  509.  
  510.  
  511.  
  512.  
  513.  
  514.  
  515.  
  516.  
  517.  
  518.  
  519.  
  520.  
  521.  
  522.  
  523.  
  524.  
  525.  
  526.  
  527.  
  528.  
  529.  
  530.  
  531.  
  532.  
  533.  
  534.  
  535.  
  536.  
  537.  
  538.  
  539.  
  540.  
  541.  
  542.  
  543.  
  544.  
  545.  
  546.  
  547.  
  548.  
  549.  
  550.  
  551.  
  552.  
  553.  
  554.  
  555.  
  556.  
  557.  
  558.  
  559.  
  560.  
  561.  
  562.  
  563.  
  564.  
  565.  
  566.  
  567.  
  568.  
  569.  
  570.  
  571.  
  572.  
  573.  
  574.  
  575.  
  576.  
  577.  
  578.  
  579.  
  580.  
  581.  
  582.  
  583.  
  584.  
  585.  
  586.  
  587.  
  588.  
  589.  
  590.  
  591.  
  592.  
  593.  
  594.  
  595.  
  596.  
  597.  
  598.  
  599.  
  600.  
  601.  
  602.  
  603.  
  604.  
  605.  
  606.  
  607.  
  608.  
  609.  
  610.  
  611.  
  612.  
  613.  
  614.  
  615.  
  616.  
  617.  
  618.  
  619.  
  620.  
  621.  
  622.  
  623.  
  624.  
  625.  
  626.  
  627.  
  628.  
  629.  
  630.  
  631.  
  632.  
  633.  
  634.  
  635.  
  636.  
  637.  
  638.  
  639.  
  640.  
  641.  
  642.  
  643.  
  644.  
  645.  
  646.  
  647.  
  648.  
  649.  
  650.  
  651.  
  652.  
  653.  
  654.  
  655.  
  656.  
  657.  
  658.  
  659.  
  660.  
  661.  
  662.  
  663.  
  664.  
  665.  
  666.  
  667.  
  668.  
  669.  
  670.  
  671.  
  672.  
  673.  
  674.  
  675.  
  676.  
  677.  
  678.  
  679.  
  680.  
  681.  
  682. @@@@@@@@
  683.  
  684.  
  685.  
  686.  
  687.  
  688.  
  689.  
  690.  
  691.  
  692.  
  693.  
  694.  
  695.  
  696.  
  697.  
  698.  
  699.  
  700.  
  701.  
  702.  
  703.  
  704.  
  705.  
  706.  
  707.  
  708.  
  709.  
  710.  
  711.  
  712.  
  713.  
  714.  
  715.  
  716.  
  717.  
  718.  
  719.  
  720.  
  721.  
  722.            Business Charts
  723.     Moderne Pr{CBM-F}sentationsgrafiken
  724. Das Programm Business Charts bietet vielf{CBM-F}ltige Formen der grafischen Pr{CBM-F}sentation numerischer Daten. Es l{CBM-F}uft im C128 im 40-Zeichen-Modus.
  725. Neben den klassischen Pr{CBM-F}sentationsformen Balken-, Li
  726.  
  727.  
  728.  
  729.  
  730.  
  731.  
  732.  
  733.  
  734.  
  735.  
  736.  
  737.  
  738.  
  739.  
  740.  
  741.  
  742.  
  743.  
  744.  
  745.  
  746.  
  747.  
  748.  
  749.  
  750.  
  751.  
  752.  
  753.  
  754.  
  755.  
  756.  
  757.  
  758.  
  759.  
  760.  
  761.  
  762.  
  763.  
  764.  
  765.  
  766.  
  767.  
  768.  
  769.  
  770.  
  771.  
  772.  
  773.  
  774.  
  775.  
  776.  
  777.  
  778. P
  779.  
  780.  
  781.  
  782.  
  783.  
  784.  
  785. {SHIFT-*}8
  786.  
  787.  
  788.  
  789.  
  790.  
  791.  
  792. {SHIFT-*}?
  793.  
  794.  
  795.  
  796.  
  797.  
  798.  
  799.  
  800.  
  801.  
  802.  
  803.  
  804.  
  805.  
  806.  
  807.  
  808.  
  809.  
  810.  
  811.  
  812.  
  813.  
  814.  
  815.  
  816.  
  817.  
  818.  
  819.  
  820.  
  821.  
  822.  
  823.  
  824.  
  825.  
  826.  
  827.  
  828.  
  829.  
  830.  
  831.  
  832.  
  833.  
  834.  
  835.  
  836.  
  837.  
  838.  
  839.  
  840.  
  841.  
  842.  
  843.  
  844.  
  845.  
  846.  
  847.  
  848.  
  849.  
  850.  
  851.  
  852.  
  853.  
  854.  
  855.  
  856.  
  857.  
  858.  
  859.  
  860.  
  861.  
  862.  
  863. @o@{$7f}
  864.  
  865.  
  866.  
  867.  
  868. ~
  869. ~
  870.  
  871.  
  872.  
  873. {$f8}
  874. ~
  875.  
  876.  
  877.  
  878. {$fe}
  879.  
  880. ~
  881.  
  882.  
  883.  
  884.  
  885.  
  886.  
  887. ~
  888.  
  889.  
  890.  
  891.  
  892.  
  893.  
  894. ~
  895.  
  896.  
  897.  
  898.  
  899.  
  900.  
  901. ~
  902.  
  903.  
  904.  
  905.  
  906.  
  907.  
  908. ~
  909.  
  910.  
  911.  
  912.  
  913.  
  914.  
  915. ~
  916.  
  917.  
  918.  
  919.  
  920.  
  921.  
  922. ~
  923.  
  924.  
  925.  
  926.  
  927.  
  928.  
  929. ~
  930.  
  931.  
  932.  
  933.  
  934.  
  935.  
  936. ~
  937.  
  938.  
  939.  
  940.  
  941.  
  942.  
  943. ~
  944.  
  945.  
  946.  
  947.  
  948.  werden kann ({CBM-X}ber den Bildschirmrand hinausgehende Bewegungen sind durch Dr{CBM-X}cken der entgegengesetzten Cursorrichtungstaste r{CBM-X}ckg{CBM-F}ngig zu machen). Die Auswahl einer Diagrammoption oder Programmfunktion erfolgt durch die Plazierung des Pfeils in dem gew{CBM-X}amidchart)
  949. 3. Spinnendiagramm (Spiderchart)
  950. 4. Programmende mit Systemreset
  951.  
  952. Die bei den einzelnen Diagrammen geforderten Eingaben erkl{CBM-F}ren sich von selbst. Grobe Eingabefehler werden durch entsprechende Korrekturroutinen abgefangen. Wenig bekannt d{CBM-X}rfte
  953.  
  954.  
  955.  
  956.  
  957.  
  958.  
  959.  
  960.  
  961.  
  962.  
  963.  
  964.  
  965.  
  966.  
  967.  
  968.  
  969.  
  970.  
  971.  
  972.  
  973.  
  974.  
  975.  
  976.  
  977.  
  978.  
  979.  
  980.  
  981.  
  982.  
  983.  
  984.  
  985.  
  986.  
  987.  
  988.  
  989.  
  990.  
  991.  
  992.  
  993.  
  994.  
  995.  
  996.  
  997.  
  998.  
  999.  
  1000.  
  1001.  
  1002.  
  1003.  
  1004.  
  1005.  
  1006.  
  1007.  
  1008.  
  1009.  
  1010.  
  1011.  
  1012.  
  1013.  
  1014.  
  1015.  
  1016.  
  1017.  
  1018.  
  1019.  
  1020.  
  1021.  
  1022.  
  1023.  
  1024.  
  1025.  
  1026.  
  1027.  
  1028.  
  1029.  
  1030.  
  1031.  
  1032.  
  1033.  
  1034.  
  1035.  
  1036.  
  1037.  
  1038.  
  1039.  
  1040.  
  1041.  
  1042.  
  1043.  
  1044.  
  1045.  
  1046.  
  1047.  
  1048.  
  1049.  
  1050.  
  1051.  
  1052.  
  1053.  
  1054.  
  1055.  
  1056.  
  1057.  
  1058.  
  1059.  
  1060.  
  1061.  
  1062.  
  1063.  
  1064.  
  1065.  
  1066.  
  1067.  
  1068.  
  1069.  
  1070.  
  1071.  
  1072.  
  1073.  
  1074.  
  1075.  
  1076.  
  1077.  
  1078.  
  1079.  
  1080.  
  1081.  
  1082.  
  1083.  
  1084.  
  1085.  
  1086.  
  1087.  
  1088.  
  1089.  
  1090.  
  1091.  
  1092.  
  1093.  
  1094.  
  1095.  
  1096.  
  1097.  
  1098.  
  1099.  
  1100.  
  1101.  
  1102.  
  1103.  
  1104.  
  1105.  
  1106.  
  1107.  
  1108.  
  1109.  
  1110.  
  1111.  
  1112.  
  1113.  
  1114.  
  1115.  
  1116.  
  1117.  
  1118.  
  1119.  
  1120.  
  1121.  
  1122.  
  1123.  
  1124.  
  1125.  
  1126.  
  1127.  
  1128.  
  1129.  
  1130.  
  1131.  
  1132.  
  1133.  
  1134.  
  1135.  
  1136.  
  1137.  
  1138.  
  1139.  
  1140.  
  1141.  
  1142.  
  1143.  
  1144.  
  1145.  
  1146.  
  1147.  
  1148.  
  1149.  
  1150.  
  1151.  
  1152.  
  1153.  
  1154.  
  1155.  
  1156.  
  1157.  
  1158.  
  1159.  
  1160.  
  1161.  
  1162.  
  1163.  
  1164.  
  1165.  
  1166.  
  1167.  
  1168.  
  1169.  
  1170.  
  1171.  
  1172.  
  1173.  
  1174.  
  1175.  
  1176.  
  1177.  
  1178.  
  1179.  
  1180.  
  1181.  
  1182.  
  1183.  
  1184.  
  1185.  
  1186.  
  1187.  
  1188.  
  1189.  
  1190.  
  1191.  
  1192.  
  1193.  
  1194.  
  1195.  
  1196.  
  1197.  
  1198.  
  1199.  
  1200.  
  1201.  
  1202.  
  1203.  
  1204.  
  1205.  
  1206.  
  1207.  
  1208.  
  1209.  
  1210.  
  1211.  
  1212.  
  1213.  
  1214.  
  1215.  
  1216.  
  1217.  
  1218.  
  1219.  
  1220.  
  1221.  
  1222.  
  1223.  
  1224.  
  1225.  
  1226.  
  1227.  
  1228.  
  1229.  
  1230.  @
  1231.  
  1232.  
  1233.  
  1234.  
  1235.  
  1236.  
  1237.  
  1238.  
  1239.  
  1240.  
  1241.  
  1242.  
  1243.  
  1244.  
  1245.  
  1246.  
  1247.  
  1248.  
  1249.  
  1250.  
  1251.  
  1252.  
  1253.  
  1254.  
  1255.  
  1256.  
  1257.  
  1258.  
  1259.  
  1260.  
  1261.  
  1262.  
  1263.  
  1264.  
  1265.  
  1266.  
  1267.  
  1268.  
  1269.  
  1270.  
  1271.  
  1272.  
  1273.  
  1274.  
  1275.  
  1276.  
  1277.  
  1278.  
  1279.  
  1280.  
  1281.  
  1282.  
  1283.  
  1284.  
  1285.  
  1286.  
  1287.  
  1288.  
  1289.  
  1290.  
  1291.  
  1292.  
  1293.  
  1294.  
  1295.  
  1296.  
  1297.  
  1298.  
  1299.  
  1300.  
  1301.  
  1302.  
  1303.  
  1304.  
  1305.  
  1306.  
  1307.  
  1308.  
  1309.  
  1310.  
  1311.  
  1312.  
  1313.  
  1314.  
  1315.  
  1316.  
  1317.  
  1318.  
  1319.  
  1320.  
  1321.  
  1322.  
  1323.  
  1324.  
  1325.  
  1326.  
  1327.  
  1328.  
  1329.  
  1330.  
  1331.  
  1332.  
  1333.  
  1334.  
  1335.  
  1336.  
  1337.  
  1338.  
  1339.  
  1340.  
  1341.  
  1342.  
  1343.  
  1344.  
  1345.  
  1346.  
  1347.  
  1348.  
  1349.  
  1350.  
  1351. {SHIFT-*} 
  1352.  
  1353.  
  1354.  
  1355.  
  1356.  
  1357.  
  1358.  
  1359.  
  1360.  
  1361.  
  1362.  
  1363.  
  1364.  
  1365.  
  1366.  
  1367.  
  1368.  
  1369.  
  1370.  
  1371.  
  1372.  
  1373.  
  1374.  
  1375.  
  1376.  
  1377.  
  1378.  
  1379.  
  1380.  
  1381.  
  1382.  
  1383.  
  1384.  
  1385.  
  1386.  
  1387.  
  1388.  
  1389.  
  1390.  
  1391.  
  1392.  
  1393.  
  1394.  
  1395.  
  1396.  
  1397.  
  1398.  
  1399.  
  1400.  
  1401.  
  1402.  
  1403.  
  1404.  
  1405.  
  1406.  
  1407.  
  1408.  
  1409.  
  1410.  
  1411.  
  1412.  
  1413.  
  1414.  
  1415.  
  1416.  
  1417.  
  1418.  
  1419.  
  1420.  
  1421.  
  1422.  
  1423.  
  1424.  
  1425.  
  1426.  
  1427.  
  1428.  
  1429.  
  1430.  
  1431.  
  1432.  
  1433.  
  1434.  
  1435.  
  1436.  
  1437.  
  1438.  
  1439.  
  1440.  
  1441.  
  1442.  
  1443.  
  1444. nien- und Kuchendiagramm bietet Business Charts die M{CBM-C}glichkeit der Erstellung modernster Pr{CBM-F}sentationsgrafiken wie Pyramiden- und Spidercharts, die auch heute nicht unbedingt zum Standardrepertoire eines PC-Grafikpaketes geh{CBM-C}ren. Zu den weiteren Besonde
  1445.  
  1446.  
  1447. ~
  1448.  
  1449.  
  1450.  
  1451.  
  1452.  
  1453.  
  1454. ~
  1455.  
  1456.  
  1457.  
  1458.  
  1459.  
  1460.  
  1461. ~
  1462.  
  1463.  
  1464.  
  1465.  
  1466.  
  1467.  
  1468. ~
  1469.  
  1470.  
  1471.  
  1472.  
  1473.  
  1474.  
  1475. ~
  1476.  
  1477.  
  1478.  
  1479.  
  1480.  
  1481.  
  1482. ~
  1483.  
  1484.  
  1485.  
  1486.  
  1487.  
  1488.  
  1489. ~
  1490.  
  1491.  
  1492.  
  1493.  
  1494.  
  1495.  
  1496. ~
  1497.  
  1498.  
  1499.  
  1500.  
  1501.  
  1502.  
  1503. ~
  1504.  
  1505.  
  1506.  
  1507.  
  1508.  
  1509.  
  1510. ~
  1511.  
  1512.  
  1513.  
  1514.  
  1515.  
  1516.  
  1517. ~
  1518.  
  1519.  
  1520.  
  1521.  
  1522.  
  1523.  
  1524. ~
  1525.  
  1526.  
  1527.  
  1528.  
  1529.  
  1530.  
  1531. ~
  1532.  
  1533.  
  1534.  
  1535.  
  1536.  
  1537.  
  1538. ~
  1539.  
  1540.  
  1541.  
  1542.  
  1543.  
  1544.  
  1545. ~
  1546.  
  1547.  
  1548.  
  1549.  
  1550.  
  1551.  
  1552. ~
  1553.  
  1554.  
  1555.  
  1556.  
  1557.  
  1558.  
  1559. ~
  1560.  
  1561.  
  1562.  
  1563.  
  1564.  
  1565.  
  1566. ~
  1567.  
  1568.  
  1569.  
  1570. ~
  1571.  
  1572. ~
  1573.  
  1574.  
  1575.  
  1576. {SHIFT-*}?
  1577. ~
  1578.  
  1579.  
  1580.  
  1581.  
  1582. ~
  1583. ~
  1584.  
  1585.  
  1586.  
  1587.  
  1588. {$f0}
  1589. ~
  1590.  
  1591.  
  1592.  
  1593.  
  1594.  
  1595.  
  1596. ~
  1597.  
  1598.  
  1599.  
  1600. 08<{$fe}<80 
  1601.  
  1602.  
  1603.  
  1604.  
  1605.  
  1606.  
  1607.  
  1608.  
  1609.  
  1610.  
  1611.  
  1612.  
  1613.  
  1614.  
  1615.  
  1616.  
  1617.  
  1618.  
  1619.  
  1620.  
  1621.  
  1622.  
  1623.  
  1624.  
  1625.  
  1626.  
  1627.  
  1628.  
  1629.  
  1630.  
  1631.  
  1632.  
  1633.  
  1634.  
  1635.  
  1636.  
  1637.  
  1638.  
  1639.  
  1640.  
  1641.  
  1642.  
  1643.  
  1644.  
  1645.  
  1646.  
  1647.  
  1648.  
  1649.  
  1650.  
  1651.  
  1652.  
  1653.  
  1654.  
  1655.  
  1656.  
  1657.  
  1658.  
  1659.  
  1660.  
  1661.  
  1662. nschten Feld und anschlie{CBM-V}ende Bet{CBM-F}tigung der Return-Taste. Die einzelnen Felder haben folgende Bedeutung:
  1663.  
  1664. Erste Reihe:
  1665. 1. Kuchendiagramm (Piechart)
  1666. 2. Markiertes Kuchendiagramm
  1667.    (Stigmachart)
  1668. 3. Funktionsgraphen mit/ohne
  1669.    {SHIFT--}berlagerung (Functionchar der im Marketing- und Leistungsbewertungsbereich verwendete Spiderchart sein. Mit dieser Diagrammform werden in der Regel Soll/Ist-Differenzen erfa{CBM-V}t. "Prosp." (prospected = erwartet) bedeutet die Eingabe eines beliebigen Sollwertes, "Actual" die Eingab
  1670.  
  1671.  
  1672.  
  1673.  
  1674.  
  1675.  
  1676.  
  1677.  
  1678.  
  1679.  
  1680.  
  1681.  
  1682.  
  1683.  
  1684.  
  1685.  
  1686.  
  1687.  
  1688.  
  1689.  
  1690.  
  1691.  
  1692.  
  1693.  
  1694.  
  1695.  
  1696.  
  1697.  
  1698.  
  1699.  
  1700.  
  1701.  
  1702.  
  1703.  
  1704.  
  1705.  
  1706.  
  1707.  
  1708.  
  1709.  
  1710.  
  1711.  
  1712.  
  1713.  
  1714.  
  1715.  
  1716.  
  1717.  
  1718.  
  1719.  
  1720.  
  1721.  
  1722.  
  1723.  
  1724.  
  1725.  
  1726.  
  1727.  
  1728.  
  1729.  
  1730.  
  1731.  
  1732.  
  1733.  
  1734.  
  1735.  
  1736.  
  1737.  
  1738.  
  1739.  
  1740.  
  1741.  
  1742.  
  1743.  
  1744.  
  1745.  
  1746.  
  1747.  
  1748.  
  1749.  
  1750.  
  1751.  
  1752.  
  1753.  
  1754.  
  1755.  
  1756.  
  1757.  
  1758.  
  1759.  
  1760.  
  1761.  
  1762.  
  1763.  
  1764.  
  1765.  
  1766.  
  1767.  
  1768.  
  1769.  
  1770.  
  1771.  
  1772.  
  1773.  
  1774.  
  1775.  
  1776.  
  1777.  
  1778.  
  1779.  
  1780.  
  1781.  
  1782.  
  1783.  
  1784.  
  1785.  
  1786.  
  1787.  
  1788.  
  1789.  
  1790.  
  1791.  
  1792.  
  1793.  
  1794.  
  1795.  
  1796.  
  1797.  
  1798.  
  1799.  
  1800.  
  1801.  
  1802.  
  1803.  
  1804.  
  1805.  
  1806.  
  1807.  
  1808.  
  1809.  
  1810.  
  1811.  
  1812.  
  1813.  
  1814.  
  1815.  
  1816.  
  1817.  
  1818.  
  1819.  
  1820.  
  1821.  
  1822.  
  1823.  
  1824.  
  1825.  
  1826.  
  1827.  
  1828.  
  1829.  
  1830.  
  1831.  
  1832.  
  1833.  
  1834.  
  1835.  
  1836.  
  1837.  
  1838.  
  1839.  
  1840.  
  1841.  
  1842.  
  1843.  
  1844.  
  1845.  
  1846.  
  1847.  
  1848.  
  1849.  
  1850.  
  1851.  
  1852.  
  1853.  
  1854.  
  1855.  
  1856.  
  1857.  
  1858.  
  1859.  
  1860.  
  1861.  
  1862.  
  1863.  
  1864.  
  1865.  
  1866.  
  1867.  
  1868.  
  1869.  
  1870.  
  1871.  
  1872.  
  1873.  
  1874.  
  1875.  
  1876.  
  1877.  
  1878.  
  1879.  
  1880.  
  1881.  
  1882.  
  1883.  
  1884.  
  1885.  
  1886.  
  1887.  
  1888.  
  1889.  
  1890.  
  1891.  
  1892.  
  1893.  
  1894.  
  1895.  
  1896.  
  1897.  
  1898.  
  1899.  
  1900.  
  1901.  
  1902.  
  1903.  
  1904.  
  1905.  
  1906.  
  1907.  
  1908.  
  1909.  
  1910.  
  1911.  
  1912.  
  1913.  
  1914.  
  1915.  
  1916.  
  1917.  
  1918.  
  1919.  
  1920.  
  1921.  
  1922.  
  1923.  
  1924.  
  1925.  
  1926.  
  1927.  
  1928.  
  1929.  
  1930.  
  1931.  
  1932.  
  1933.  
  1934.  
  1935.  
  1936.  
  1937.  
  1938.  
  1939.  
  1940.  
  1941. @@@@@@@@
  1942.  
  1943.  
  1944.  
  1945.  
  1946.  
  1947.  
  1948.  
  1949.  
  1950.  
  1951.  
  1952.  
  1953.  
  1954.  
  1955.  
  1956.  
  1957.  
  1958.  
  1959.  
  1960.  
  1961.  
  1962.  
  1963.  
  1964.  
  1965.  
  1966.  
  1967.  
  1968.  
  1969.  
  1970.  
  1971.  
  1972.  
  1973.  
  1974.  
  1975.  
  1976.  
  1977.  
  1978.  
  1979.  
  1980.  
  1981.  
  1982.  
  1983.  
  1984.  
  1985.  
  1986.  
  1987.  
  1988.  
  1989.  
  1990.  
  1991.  
  1992.  
  1993. 00@
  1994.  
  1995.  
  1996.  
  1997.  
  1998.  
  1999.  
  2000.  
  2001.  
  2002.  
  2003.  
  2004.  
  2005.  
  2006.  
  2007.  
  2008.  
  2009.  
  2010.  
  2011.  
  2012.  
  2013.  
  2014.  
  2015.  
  2016.  
  2017.  
  2018.  
  2019.  
  2020.  
  2021.  
  2022.  
  2023.  
  2024.  
  2025.  
  2026.  
  2027.  
  2028.  
  2029.  
  2030.  
  2031.  
  2032.  
  2033.  
  2034.  
  2035.  
  2036.  
  2037.  
  2038.  
  2039.  
  2040.  
  2041.  
  2042.  
  2043.  
  2044.  
  2045.  
  2046.  
  2047.  
  2048.  
  2049.  
  2050.  
  2051.  
  2052.  
  2053.  
  2054.  
  2055.  
  2056.  
  2057.  
  2058.  
  2059.  
  2060.  
  2061.  
  2062.  
  2063.  
  2064.  
  2065.  
  2066.  
  2067.  
  2068.  
  2069.  
  2070.  
  2071.  
  2072.  
  2073.  
  2074.  
  2075.  
  2076.  
  2077.  
  2078.  
  2079.  
  2080.  
  2081.  
  2082.  
  2083.  
  2084.  
  2085.  
  2086.  
  2087.  
  2088.  
  2089.  
  2090.  
  2091.  
  2092.  
  2093.  
  2094.  
  2095.  
  2096.  
  2097.  
  2098.  
  2099.  
  2100.  
  2101.  
  2102.  
  2103.  
  2104.  
  2105.  
  2106.  
  2107.  
  2108.  
  2109.  
  2110.  
  2111.  
  2112.  
  2113.  
  2114.  
  2115.  
  2116.  
  2117.  
  2118.  
  2119.  
  2120.  
  2121.  
  2122.  
  2123.  
  2124.  
  2125.  
  2126.  
  2127.  
  2128.  
  2129.  
  2130.  
  2131.  
  2132.  
  2133.  
  2134.  
  2135.  
  2136.  
  2137.  
  2138.  
  2139. {$60}
  2140.  
  2141.  
  2142.  
  2143.  
  2144.  
  2145.  
  2146.  
  2147.  
  2148.  
  2149.  
  2150.  
  2151. rheiten z{CBM-F}hlen eine grafische Benutzeroberfl{CBM-F}che (orientiert an dem Programm Microsoft-Chart), ein integrierter Text- und Grafikeditor, Speicher-, Lade- und Hardcopyfunktionen sowie eine perspektivische Grafikdarstellung (au{CBM-V}er Pie-, Stigma- und Spiderch
  2152.  
  2153.  
  2154.  
  2155.  
  2156.  
  2157.  
  2158.  
  2159.  
  2160.  
  2161.  
  2162.  
  2163.  
  2164.  
  2165.  
  2166.  
  2167.  
  2168.  
  2169.  
  2170.  
  2171.  
  2172.  
  2173.  
  2174.  
  2175.  
  2176.  
  2177.  
  2178.  
  2179.  
  2180.  
  2181.  
  2182.  
  2183.  
  2184.  
  2185.  
  2186.  
  2187.  
  2188.  
  2189.  
  2190.  
  2191.  
  2192.  
  2193.  
  2194.  
  2195.  
  2196.  
  2197.  
  2198.  
  2199.  
  2200.  
  2201.  
  2202.  
  2203.  
  2204.  
  2205.  
  2206.  
  2207.  
  2208.  
  2209.  
  2210.  
  2211.  
  2212.  
  2213.  
  2214.  
  2215.  
  2216.  
  2217.  
  2218.  
  2219.  
  2220.  
  2221.  
  2222.  
  2223.  
  2224.  
  2225.  
  2226.  
  2227.  
  2228.  
  2229.  
  2230.  
  2231.  
  2232.  
  2233.  
  2234.  
  2235.  
  2236.  
  2237.  
  2238.  
  2239.  
  2240.  
  2241.  
  2242.  
  2243.  
  2244.  
  2245.  
  2246.  
  2247.  
  2248.  
  2249.  
  2250.  
  2251.  
  2252.  
  2253.  
  2254.  
  2255.  
  2256.  
  2257.  
  2258.  
  2259.  
  2260.  
  2261.  
  2262.  
  2263.  
  2264.  
  2265.  
  2266.  
  2267.  
  2268.  
  2269.  
  2270.  
  2271.  
  2272.  
  2273.  
  2274.  
  2275.  
  2276.  
  2277.  
  2278.  
  2279.  
  2280.  
  2281.  
  2282.  
  2283.  
  2284.  
  2285.  
  2286.  
  2287.  
  2288.  
  2289.  
  2290.  
  2291.  
  2292.  
  2293.  
  2294.  
  2295.  
  2296.  
  2297.  
  2298.  
  2299.  
  2300.  
  2301.  
  2302.  
  2303.  
  2304.  
  2305.  
  2306.  
  2307.  
  2308.  
  2309.  
  2310.  
  2311.  
  2312.  
  2313.  
  2314.  
  2315.  
  2316.  
  2317.  
  2318.  
  2319.  
  2320.  
  2321.  
  2322.  
  2323.  
  2324.  
  2325.  
  2326.  
  2327.  
  2328.  
  2329.  
  2330.  
  2331.  
  2332.  
  2333.  
  2334.  
  2335.  
  2336.  
  2337.  
  2338.  
  2339.  
  2340.  
  2341.  
  2342.  
  2343.  
  2344.  
  2345.  
  2346.  
  2347.  
  2348.  
  2349.  
  2350.  
  2351.  
  2352.  
  2353.  
  2354.  
  2355.  
  2356.  
  2357.  
  2358.  
  2359.  
  2360.  
  2361.  
  2362.  
  2363.  
  2364.  
  2365.  
  2366.  
  2367.  
  2368.  
  2369.  
  2370.  
  2371.  
  2372.  
  2373.  
  2374.  
  2375.  
  2376.  
  2377.  
  2378.  
  2379.  
  2380.  
  2381.  
  2382.  
  2383.  
  2384.  
  2385.  
  2386.  
  2387.  
  2388.  
  2389.  
  2390.  
  2391.  
  2392.  
  2393.  
  2394.  
  2395.  
  2396.  
  2397.  
  2398.  
  2399.  
  2400.  
  2401.  
  2402.  
  2403.  
  2404.  
  2405.  
  2406. t)
  2407. 4. Einlesen einer Grafik von Diskette
  2408.  
  2409. Zweite Reihe:
  2410. 1. Plus/Minus-Diagramm (Comparechart)
  2411. 2. Mehrbankendiagramm
  2412.    (Multiple Bankchart)
  2413. 3. Balkendiagramm 3D (Barchart)
  2414. 4. Logofeld
  2415.  
  2416. Dritte Reihe:
  2417. 1. Liniendiagramm (Linechart)
  2418. 2. Pyramidendiagramm (Pyr
  2419.  
  2420.  
  2421.  
  2422.  
  2423.  
  2424.  
  2425.  
  2426.  
  2427.  
  2428.  
  2429.  
  2430.  
  2431.  
  2432.  
  2433.  
  2434.  
  2435.  
  2436.  
  2437.  
  2438.  
  2439.  
  2440.  
  2441.  
  2442.  
  2443.  
  2444.  
  2445.  
  2446.  
  2447.  
  2448.  
  2449.  
  2450.  
  2451.  
  2452.  
  2453.  
  2454.  
  2455.  
  2456.  
  2457.  
  2458.  
  2459.  
  2460.  
  2461.  
  2462.  
  2463.  
  2464.  
  2465.  
  2466.  
  2467.  
  2468.  
  2469.  
  2470.  
  2471.  
  2472.  
  2473.  
  2474.  
  2475.  
  2476.  
  2477.  
  2478.  
  2479.  
  2480.  
  2481.  
  2482.  
  2483.  
  2484.  
  2485.  
  2486.  
  2487.  
  2488.  
  2489.  
  2490.  
  2491.  
  2492.  
  2493.  
  2494.  
  2495.  
  2496.  
  2497.  
  2498.  
  2499.  
  2500.  
  2501.  
  2502.  
  2503.  
  2504.  
  2505.  
  2506.  
  2507.  
  2508.  
  2509.  
  2510.  
  2511.  
  2512.  
  2513.  
  2514.  
  2515.  
  2516.  
  2517.  
  2518.  
  2519.  
  2520.  
  2521.  
  2522.  
  2523.  
  2524.  
  2525.  
  2526.  
  2527.  
  2528.  
  2529.  
  2530.  
  2531.  
  2532.  
  2533.  
  2534.  
  2535.  
  2536.  
  2537.  
  2538.  
  2539.  
  2540.  
  2541.  
  2542.  
  2543.  
  2544.  
  2545.  
  2546.  
  2547.  
  2548.  
  2549. @@@@@@@@
  2550.  
  2551.  
  2552.  
  2553.  
  2554.  
  2555.  
  2556.  
  2557.  
  2558.  
  2559.  
  2560.  
  2561.  
  2562.  
  2563.  
  2564.  
  2565.  
  2566.  
  2567.  
  2568.  
  2569.  
  2570.  
  2571.  
  2572.  
  2573.  
  2574.  
  2575.  
  2576.  
  2577.  
  2578.  
  2579.  
  2580.  
  2581.  
  2582.  
  2583.  
  2584.  
  2585.  
  2586.  
  2587.  
  2588.  
  2589.  
  2590.  
  2591.  
  2592.  
  2593.  
  2594.  
  2595.  
  2596.  
  2597.  
  2598.  
  2599.  
  2600.  
  2601.  
  2602.  
  2603.  
  2604.  
  2605.  
  2606.  
  2607.  
  2608.  
  2609.  
  2610.  
  2611.  
  2612.  
  2613.  
  2614.  
  2615.  
  2616.  
  2617.  
  2618.  
  2619.  
  2620.  
  2621.  @
  2622.  
  2623.  
  2624.  
  2625.  
  2626.  
  2627.  
  2628.  
  2629.  
  2630.  
  2631.  
  2632.  
  2633.  
  2634.  
  2635.  
  2636.  
  2637.  
  2638.  
  2639.  
  2640.  
  2641.  
  2642.  
  2643.  
  2644.  
  2645.  
  2646.  
  2647.  
  2648. j
  2649.  
  2650.  
  2651.  
  2652.  
  2653.  
  2654.  
  2655.  
  2656.  
  2657.  
  2658.  
  2659.  
  2660.  
  2661.  
  2662.  
  2663.  
  2664.  
  2665.  
  2666.  
  2667.  
  2668.  
  2669.  
  2670.  
  2671.  
  2672.  
  2673.  
  2674.  
  2675.  
  2676.  
  2677.  
  2678.  
  2679.  
  2680.  
  2681.  
  2682.  
  2683.  
  2684.  
  2685.  
  2686.  
  2687.  
  2688.  
  2689.  
  2690.  
  2691.  
  2692.  
  2693.  
  2694.  
  2695.  
  2696.  
  2697.  
  2698.  
  2699.  
  2700.  
  2701.  
  2702.  
  2703.  
  2704.  
  2705.  
  2706.  
  2707.  
  2708.  
  2709.  
  2710.  
  2711.  
  2712.  
  2713.  
  2714.  
  2715.  
  2716.  
  2717.  
  2718.  
  2719.  
  2720.  
  2721.  
  2722.  
  2723.  
  2724.  
  2725.  
  2726.  
  2727.  
  2728.  
  2729.  
  2730.  
  2731.  
  2732.  
  2733.  
  2734.  
  2735.  
  2736.  
  2737.  
  2738.  
  2739.  
  2740.  
  2741.  
  2742.  
  2743.  
  2744.  
  2745.  
  2746.  
  2747.  
  2748.  
  2749.  
  2750.  
  2751.  
  2752.  
  2753.  
  2754.  
  2755.  
  2756.  
  2757.  
  2758.  
  2759.  
  2760.  
  2761.  
  2762.  
  2763.  
  2764.  
  2765.  
  2766.  
  2767.  
  2768.  
  2769.  
  2770.  
  2771.  
  2772.  
  2773.  
  2774.  
  2775.  
  2776.  
  2777.  
  2778.  
  2779.  
  2780.  
  2781.  
  2782.  
  2783.  
  2784.  
  2785.  
  2786.  
  2787.  
  2788.  
  2789.  
  2790.  
  2791.  
  2792.  
  2793.  
  2794.  
  2795.  
  2796.  
  2797.  
  2798.  
  2799.  
  2800.  
  2801.  
  2802.  
  2803.  
  2804.  
  2805.  
  2806.  
  2807.  
  2808.  
  2809.  
  2810.  
  2811.  
  2812.  
  2813.  
  2814.  
  2815.  
  2816.  
  2817.  
  2818.  
  2819.  
  2820.  
  2821.  
  2822.  
  2823.  
  2824.  
  2825.  
  2826.  
  2827.  
  2828.  
  2829.  
  2830.  
  2831.  
  2832.  
  2833.  
  2834.  
  2835.  
  2836.  
  2837.  
  2838.  
  2839.  
  2840.  
  2841.  
  2842.  
  2843.  
  2844.  
  2845.  
  2846.  
  2847.  
  2848.  
  2849.  
  2850.  
  2851.  
  2852.  
  2853.  
  2854.  
  2855.  
  2856.  
  2857.  
  2858.  
  2859.  
  2860.  
  2861.  
  2862.  
  2863.  
  2864.  
  2865.  
  2866.  
  2867.  
  2868.  
  2869.  
  2870.  
  2871.  
  2872.  
  2873.  
  2874.  
  2875.  
  2876.  
  2877.  
  2878.  
  2879.  
  2880.  
  2881.  
  2882.  
  2883.  
  2884.  
  2885.  
  2886.  
  2887.  
  2888.  
  2889.  
  2890.  
  2891.  
  2892.  
  2893.  
  2894.  
  2895.  
  2896.  
  2897.  
  2898.  
  2899.  
  2900.  
  2901.  
  2902.  
  2903.  
  2904.  
  2905.  
  2906.  
  2907.  
  2908.  
  2909.  
  2910.  
  2911.  
  2912.  
  2913.  
  2914.  
  2915.  
  2916.  
  2917.  
  2918.  
  2919.  
  2920.  
  2921.  
  2922.  
  2923.  
  2924.  
  2925.  
  2926.  
  2927.  
  2928.  
  2929.  
  2930.  
  2931.  
  2932.  
  2933.  
  2934.  
  2935.  
  2936.  
  2937.  
  2938.  
  2939.  
  2940.  
  2941.  
  2942.  
  2943.  
  2944.  
  2945.  
  2946.  
  2947.  
  2948.  
  2949.  
  2950.  
  2951.  
  2952.  
  2953.  
  2954.  
  2955.  
  2956.  
  2957.  
  2958.  
  2959.  
  2960.  
  2961.  
  2962.  
  2963.  
  2964.  
  2965.  
  2966.  
  2967.  
  2968.  
  2969.  
  2970.  
  2971.  
  2972.  
  2973.  
  2974.  
  2975.  
  2976.  
  2977.  
  2978.  
  2979.  
  2980.  
  2981.  
  2982.  
  2983.  
  2984.  
  2985.  
  2986. @@@@@@@@
  2987.  
  2988.  
  2989.  
  2990.  
  2991.  
  2992.  
  2993.  
  2994.  
  2995.  
  2996.  
  2997.  
  2998.  
  2999.  
  3000.  
  3001.  
  3002.  
  3003.  
  3004.  
  3005.  
  3006.  
  3007.  
  3008.  
  3009.  
  3010.  
  3011.  
  3012.  
  3013.  
  3014.  
  3015. {$f8}
  3016.  
  3017.  
  3018.  
  3019. 8{SHIFT-*}
  3020.  
  3021. {$60}
  3022.  
  3023.  
  3024. {SHIFT-*}
  3025.  
  3026.  
  3027.  
  3028.  
  3029.  
  3030.  
  3031.  
  3032.  
  3033.  
  3034.  
  3035.  
  3036.  
  3037.  
  3038.  
  3039.  
  3040.  
  3041.  
  3042.  
  3043.  
  3044.  
  3045.  
  3046.  
  3047.  
  3048.  
  3049.  
  3050.  
  3051.  
  3052.  
  3053.  
  3054.  
  3055.  
  3056.  
  3057.  
  3058.  
  3059.  
  3060.  
  3061.  
  3062.  
  3063.  
  3064.  
  3065.  
  3066.  
  3067.  
  3068.  
  3069.  
  3070.  
  3071.  
  3072.  
  3073.  
  3074.  
  3075.  
  3076.  
  3077.  
  3078.  
  3079.  
  3080.  
  3081.  
  3082.  
  3083.  
  3084.  
  3085.  
  3086.  
  3087.  
  3088.  
  3089.  
  3090.  
  3091.  
  3092.  
  3093.  
  3094.  
  3095.  
  3096.  
  3097.  
  3098.  
  3099.  
  3100.  
  3101.  
  3102.  
  3103.  
  3104.  
  3105.  
  3106.  
  3107.  
  3108.  
  3109.  
  3110.  
  3111.  
  3112.  
  3113.  
  3114.  
  3115.  
  3116.  
  3117.  
  3118.  
  3119.  
  3120.  
  3121.  
  3122.  
  3123.  
  3124.  
  3125.  
  3126.  
  3127.  
  3128.  
  3129.  
  3130.  
  3131.  
  3132.  
  3133.  
  3134.  
  3135.  
  3136.  
  3137. art).
  3138.  
  3139. Nach dem Programmstart und einer kurzen Initialisierung erscheint die grafische Benutzeroberfl{CBM-F}che mit den entsprechenden Funktionssymbolen und Grafikdarstellungen. Im mittleren unteren Feld befindet sich ein Pfeil, der mit den Cursortasten bewegt
  3140.  
  3141.  
  3142.  
  3143.  
  3144.  
  3145.  
  3146.  
  3147.  
  3148.  
  3149.  
  3150.  
  3151.  
  3152.  
  3153.  
  3154.  
  3155.  
  3156.  
  3157.  
  3158.  
  3159.  
  3160.  
  3161.  
  3162.  
  3163.  
  3164.  
  3165.  
  3166.  
  3167.  
  3168.  
  3169.  
  3170.  
  3171.  
  3172.  
  3173.  
  3174.  
  3175.  
  3176.  
  3177.  
  3178.  
  3179.  
  3180.  
  3181.  
  3182.  
  3183.  
  3184.  
  3185.  
  3186.  
  3187.  
  3188.  
  3189.  
  3190.  
  3191.  
  3192.  
  3193.  
  3194.  
  3195.  
  3196.  
  3197.  
  3198.  
  3199.  
  3200.  
  3201.  
  3202.  
  3203.  
  3204.  
  3205.  
  3206.  
  3207.  
  3208.  
  3209.  
  3210.  
  3211.  
  3212.  
  3213.  
  3214.  
  3215.  
  3216.  
  3217.  
  3218.  
  3219.  
  3220.  
  3221.  
  3222.  
  3223.  
  3224.  
  3225.  
  3226.  
  3227.  
  3228.  
  3229.  
  3230.  
  3231.  
  3232.  
  3233.  
  3234.  
  3235.  
  3236.  
  3237.  
  3238.  
  3239.  
  3240.  
  3241.  
  3242.  
  3243.  
  3244.  
  3245.  
  3246.  
  3247.  
  3248.  
  3249.  
  3250.  
  3251.  
  3252.  
  3253.  
  3254.  
  3255.  
  3256.  
  3257.  
  3258.  
  3259.  
  3260.  
  3261.  
  3262.  
  3263.  
  3264.  
  3265.  
  3266.  
  3267.  
  3268.  
  3269.  
  3270.  
  3271.  
  3272.  
  3273.  
  3274.  
  3275.  
  3276.  
  3277.  
  3278.  
  3279.  
  3280.  
  3281.  
  3282.  
  3283.  
  3284.  
  3285.  
  3286.  
  3287.  
  3288.  
  3289.  
  3290.  
  3291.  
  3292.  
  3293.  
  3294.  
  3295.  
  3296.  
  3297.  
  3298.  
  3299.  
  3300.  
  3301.  
  3302.  
  3303.  
  3304.  
  3305.  
  3306.  
  3307.  
  3308.  
  3309.  
  3310.  
  3311.  
  3312.  
  3313.  
  3314.  
  3315.  
  3316.  
  3317.  
  3318.  
  3319.  
  3320.  
  3321.  
  3322.  
  3323.  
  3324.  
  3325.  
  3326.  
  3327.  
  3328.  
  3329.  
  3330.  
  3331.  
  3332.  
  3333.  
  3334.  
  3335.  
  3336.  
  3337.  
  3338.  
  3339.  
  3340.  
  3341.  
  3342.  
  3343.  
  3344.  
  3345.  
  3346.  
  3347.  
  3348.  
  3349.  
  3350.  
  3351.  
  3352.  
  3353.  
  3354.  
  3355.  
  3356.  
  3357.  
  3358.  
  3359.  
  3360.  
  3361.  
  3362.  
  3363.  
  3364.  
  3365.  
  3366.  
  3367.  
  3368.  
  3369.  
  3370.  
  3371.  
  3372.  
  3373.  
  3374.  
  3375.  
  3376.  
  3377.  
  3378.  
  3379.  
  3380.  
  3381. @@@@@@@@
  3382.  
  3383.  
  3384.  
  3385.  
  3386.  
  3387.  
  3388.  
  3389.  
  3390.  
  3391.  
  3392.  
  3393.  
  3394.  
  3395.  
  3396.  
  3397.  
  3398.  
  3399.  
  3400.  
  3401.  
  3402.  
  3403.  
  3404.  
  3405.  
  3406.  
  3407.  
  3408.  
  3409.  
  3410.  
  3411.  
  3412.  
  3413.  
  3414.  
  3415.  
  3416.  
  3417.  
  3418.  
  3419.  
  3420.  
  3421.  
  3422.  
  3423.  
  3424.  
  3425.  
  3426.  
  3427.  
  3428.  
  3429.  
  3430.  
  3431.  
  3432.  
  3433.  
  3434.  
  3435.  
  3436.  
  3437.  
  3438.  
  3439.  
  3440.  
  3441.  
  3442.  
  3443.  
  3444.  
  3445.  
  3446.  
  3447.  
  3448.  
  3449.  
  3450.  
  3451.  
  3452.  
  3453.  
  3454.  
  3455.  
  3456.  
  3457.  
  3458.  
  3459.  
  3460.  
  3461.  
  3462.  
  3463.  
  3464.  
  3465.  
  3466.  
  3467.  
  3468.  
  3469.  
  3470.  
  3471.  
  3472.  
  3473.  
  3474.  
  3475.  
  3476.  
  3477.  
  3478.  
  3479.  
  3480.  
  3481.  
  3482.  
  3483.  
  3484.  
  3485.  
  3486.  
  3487.  
  3488.  
  3489.  
  3490.  
  3491.  
  3492.  
  3493.  
  3494.  
  3495.  
  3496.  
  3497.  
  3498.  
  3499.  
  3500.  
  3501.  
  3502.  
  3503.  
  3504.  
  3505.  
  3506.  
  3507.  
  3508.  
  3509.  
  3510.  
  3511.  
  3512.  
  3513.  
  3514.  
  3515.  
  3516.  
  3517.  
  3518.  
  3519.  
  3520.  
  3521.  
  3522.  
  3523.  
  3524.  
  3525.  
  3526.  
  3527.  
  3528.  
  3529.  
  3530.  
  3531.  
  3532.  
  3533.  
  3534.  
  3535.  
  3536.  
  3537.  
  3538.  
  3539.  
  3540.  
  3541.  
  3542.  
  3543.  
  3544.  
  3545.  
  3546.  
  3547.  
  3548.  
  3549.  
  3550.  
  3551.  
  3552.  
  3553.  
  3554.  
  3555.  
  3556.  
  3557.  
  3558.  
  3559.  
  3560.  
  3561.  
  3562.  
  3563.  
  3564.  
  3565.  
  3566.  
  3567.  
  3568.  
  3569.  
  3570.  
  3571.  
  3572.  
  3573.  
  3574.  
  3575.  
  3576.  
  3577.  
  3578.  
  3579.  
  3580.  
  3581.  
  3582.  
  3583.  
  3584.  
  3585.  
  3586.  
  3587.  
  3588.  
  3589.  
  3590.  
  3591.  
  3592.  
  3593.  
  3594.  
  3595.  
  3596.  
  3597.  
  3598.  
  3599.  
  3600.  
  3601.  
  3602.  
  3603.  
  3604.  
  3605.  
  3606.  
  3607.  
  3608.  
  3609.  
  3610.  
  3611.  
  3612.  
  3613.  
  3614.  
  3615.  
  3616.  
  3617.  
  3618.  
  3619.  
  3620.  
  3621.  
  3622.  
  3623.  
  3624.  
  3625.  
  3626.  
  3627.  
  3628.  
  3629.  
  3630.  
  3631.  
  3632.  
  3633.  
  3634.  
  3635.  
  3636.  
  3637.  
  3638.  
  3639.  
  3640.  
  3641.  
  3642.  
  3643.  
  3644.  
  3645.  
  3646.  
  3647.  
  3648.  
  3649.  
  3650.  
  3651.  
  3652.  
  3653.  
  3654.  
  3655.  
  3656.  
  3657.  
  3658.  
  3659.  
  3660.  
  3661.  
  3662.  
  3663.  
  3664.  
  3665.  
  3666.  
  3667.  
  3668.  
  3669.  
  3670.  
  3671.  
  3672.  
  3673.  
  3674.  
  3675.  
  3676.  
  3677.  
  3678.  
  3679.  
  3680.  
  3681.  
  3682.  
  3683.  
  3684.  
  3685.  
  3686.  
  3687.  
  3688.  
  3689.  
  3690.  
  3691.  
  3692.  
  3693.  
  3694.  
  3695.  
  3696.  
  3697.  
  3698.  
  3699.  
  3700.  
  3701.  
  3702.  
  3703.  
  3704.  
  3705.  
  3706.  
  3707.  
  3708.  
  3709.  
  3710.  
  3711.  
  3712.  
  3713.  
  3714.  
  3715.  
  3716.  
  3717.  
  3718.  
  3719.  
  3720.  
  3721.  
  3722.  
  3723.  
  3724.  
  3725.  
  3726.  
  3727.  
  3728.  
  3729.  
  3730.  
  3731.  
  3732.  
  3733.  
  3734.  
  3735.  
  3736.  
  3737.  
  3738.  
  3739.  
  3740.  
  3741.  
  3742.  
  3743.  
  3744.  
  3745.  
  3746.  
  3747.  
  3748.  
  3749.  
  3750.  
  3751.  
  3752.  
  3753.  
  3754.  
  3755.  
  3756.  
  3757.  
  3758.  
  3759.  
  3760.  
  3761.  
  3762.  
  3763.  
  3764.  
  3765.  
  3766.  
  3767.  
  3768.  
  3769.  
  3770.  
  3771.  
  3772.  
  3773.  
  3774.  
  3775.  
  3776.  
  3777.  
  3778.  
  3779.  
  3780.  
  3781.  
  3782.  
  3783.  
  3784.  
  3785.  
  3786.  
  3787.  
  3788.  
  3789.  
  3790.  
  3791.  
  3792.  
  3793.  
  3794.  
  3795.  
  3796.  
  3797.  
  3798.  
  3799.  
  3800.  
  3801.  
  3802.  
  3803.  
  3804.  
  3805.  
  3806.  
  3807.  
  3808.  
  3809.  
  3810.  
  3811.  
  3812.  
  3813.  
  3814.  
  3815.  
  3816.  
  3817.  
  3818.  
  3819.  
  3820.  
  3821.  
  3822.  
  3823.  
  3824.  
  3825. @@@@@@@@
  3826.  
  3827.  
  3828.  
  3829.  
  3830.  
  3831.  
  3832.  
  3833.  
  3834.  
  3835.  
  3836.  
  3837.  
  3838.  
  3839.  
  3840.  
  3841.  
  3842.  
  3843.  
  3844.  
  3845.  
  3846.  
  3847.  
  3848.  
  3849.  
  3850.  
  3851.  
  3852.  
  3853.  
  3854.  
  3855.  
  3856.  
  3857.  
  3858.  
  3859.  
  3860.  
  3861.  
  3862.  
  3863.  
  3864.  
  3865.  
  3866.  
  3867.  
  3868.  
  3869.  
  3870.  
  3871.  
  3872.  
  3873.  
  3874.  
  3875.  
  3876.  
  3877.  
  3878.  
  3879.  
  3880.  
  3881.  
  3882.  
  3883.  
  3884.  
  3885.  
  3886.  
  3887.  
  3888.  
  3889.  
  3890.  
  3891.  
  3892.  
  3893.  
  3894.  
  3895.  
  3896.  
  3897.  
  3898.  
  3899.  
  3900.  
  3901.  
  3902.  
  3903.  
  3904.  
  3905.  
  3906.  
  3907.  
  3908.  
  3909.  
  3910.  
  3911.  
  3912.  
  3913.  
  3914.  
  3915.  
  3916.  
  3917.  
  3918.  
  3919.  
  3920.  
  3921.  
  3922.  
  3923.  
  3924.  
  3925.  
  3926.  
  3927. {$f8}{$fc}@@@@@@
  3928.  
  3929.  
  3930.  
  3931.  
  3932.  
  3933.  
  3934.  
  3935.  
  3936.  
  3937.  
  3938.  
  3939.  
  3940.  
  3941.  
  3942.  
  3943.  
  3944.  
  3945.  
  3946.  
  3947.  
  3948.  
  3949.  
  3950.  
  3951.  
  3952.  
  3953.  
  3954.  
  3955.  
  3956.  
  3957.  
  3958.  
  3959.  
  3960.  
  3961.  
  3962.  
  3963.  
  3964.  
  3965.  
  3966.  
  3967.  
  3968.  
  3969.  
  3970.  
  3971.  
  3972.  
  3973.  
  3974.  
  3975.  
  3976.  
  3977.  
  3978.  
  3979.  
  3980.  
  3981.  
  3982.  
  3983.  
  3984.  
  3985.  
  3986.  
  3987.  
  3988.  
  3989.  
  3990.  
  3991.  
  3992.  
  3993.  
  3994.  
  3995.  
  3996.  
  3997.  
  3998.  
  3999.  
  4000.  
  4001.  
  4002.  
  4003.  
  4004.  
  4005.  
  4006.  
  4007.  
  4008.  
  4009.  
  4010.  
  4011.  
  4012.  
  4013.  
  4014.  
  4015.  
  4016.  
  4017.  
  4018.  
  4019.  
  4020.  
  4021.  
  4022.  
  4023.  
  4024.  
  4025.  
  4026.  
  4027.  
  4028.  
  4029.  
  4030.  
  4031.  
  4032.  
  4033.  
  4034.  
  4035.  
  4036.  
  4037.  
  4038.  
  4039.  
  4040.  
  4041.  
  4042.  
  4043.  
  4044.  
  4045.  
  4046.  
  4047.  
  4048.  
  4049.  
  4050.  
  4051.  
  4052.  
  4053.  
  4054.  
  4055.  
  4056.  
  4057.  
  4058.  
  4059.  
  4060.  
  4061.  
  4062.  
  4063.  
  4064.  
  4065.  
  4066.  
  4067.  
  4068.  
  4069.  
  4070.  
  4071.  
  4072.  
  4073.  
  4074.  
  4075.  
  4076.  
  4077.  
  4078.  
  4079.  
  4080.  
  4081.  
  4082.  
  4083.  
  4084.  
  4085.  
  4086.  
  4087.  
  4088.  
  4089.  
  4090.  
  4091.  
  4092.  
  4093.  
  4094.  
  4095.  
  4096.  
  4097.  
  4098.  
  4099.  
  4100.  
  4101.  
  4102.  
  4103.  
  4104.  
  4105.  
  4106.  
  4107.  
  4108.  
  4109.  
  4110.  
  4111.  
  4112.  
  4113.  
  4114.  
  4115.  
  4116.  
  4117.  
  4118.  
  4119.  
  4120.  
  4121.  
  4122.  
  4123.  
  4124.  
  4125.  
  4126.  
  4127.  
  4128.  
  4129.  
  4130.  
  4131.  
  4132.  
  4133.  
  4134.  
  4135.  
  4136.  
  4137.  
  4138.  
  4139.  
  4140.  
  4141.  
  4142.  
  4143.  
  4144.  
  4145.  
  4146.  
  4147.  
  4148.  
  4149.  
  4150.  
  4151.  
  4152.  
  4153.  
  4154.  
  4155.  
  4156.  
  4157.  
  4158.  
  4159.  
  4160.  
  4161.  
  4162.  
  4163.  
  4164.  
  4165.  
  4166.  
  4167.  
  4168.  
  4169.  
  4170.  
  4171.  
  4172.  
  4173.  
  4174.  
  4175.  
  4176.  
  4177.  
  4178.  
  4179.  
  4180.  
  4181.  
  4182.  
  4183.  
  4184.  
  4185.  
  4186.  
  4187.  
  4188.  
  4189.  
  4190.  
  4191.  
  4192.  
  4193.  
  4194.  
  4195.  
  4196.  
  4197.  
  4198.  
  4199.  
  4200.  
  4201.  
  4202.  
  4203.  
  4204.  
  4205.  
  4206.  
  4207.  
  4208.  
  4209.  
  4210.  
  4211.  
  4212.  
  4213.  
  4214.  
  4215.  
  4216.  
  4217.  
  4218.  
  4219.  
  4220.  
  4221.  
  4222.  
  4223.  
  4224.  
  4225.  
  4226.  
  4227.  
  4228.  
  4229.  
  4230.  
  4231.  
  4232.  
  4233.  
  4234.  
  4235.  
  4236.  
  4237.  
  4238.  
  4239.  
  4240.  
  4241.  
  4242.  
  4243.  
  4244.  
  4245.  
  4246.  
  4247.  
  4248.  
  4249.  
  4250.  
  4251.  
  4252.  
  4253.  
  4254.  
  4255.  
  4256.  
  4257.  
  4258.  
  4259.  
  4260. @@@@@@@@
  4261.  
  4262.  
  4263.  
  4264.  
  4265.  
  4266.  
  4267.  
  4268.  
  4269.  
  4270.  
  4271.  
  4272.  
  4273.  
  4274.  
  4275.  
  4276.  
  4277.  
  4278.  
  4279.  
  4280.  
  4281.  
  4282.  
  4283.  
  4284.  
  4285.  
  4286.  
  4287.  
  4288.  
  4289.  
  4290.  
  4291.  
  4292.  
  4293.  
  4294.  
  4295.  
  4296.  
  4297.  
  4298.  
  4299.  
  4300.  
  4301.  
  4302.  
  4303.  
  4304.  
  4305.  
  4306.  
  4307.  
  4308.  
  4309.  
  4310.  
  4311.  
  4312.  
  4313.  
  4314.  
  4315.  
  4316.  
  4317.  
  4318.  
  4319.  
  4320.  
  4321.  
  4322.  
  4323.  
  4324.  
  4325.  
  4326.  
  4327.  
  4328.  
  4329.  
  4330.  
  4331.  
  4332.  
  4333.  
  4334.  
  4335.  
  4336.  
  4337.  
  4338.  
  4339.  
  4340.  
  4341.  
  4342.  
  4343.  
  4344.  
  4345.  
  4346.  
  4347.  
  4348.  
  4349.  
  4350.  
  4351.  
  4352.  
  4353.  
  4354.  
  4355.  
  4356.  
  4357.  
  4358.  
  4359.  @
  4360.  
  4361.  
  4362.  
  4363.  
  4364.  
  4365.  
  4366.  
  4367.  
  4368.  
  4369.  
  4370.  
  4371.  
  4372.  
  4373.  
  4374.  
  4375.  
  4376. @@@@@@@@
  4377.  
  4378.  
  4379.  
  4380.  
  4381.  
  4382.  
  4383.  
  4384.  
  4385.  
  4386.  
  4387.  
  4388.  
  4389.  
  4390.  
  4391.  
  4392.  
  4393.  
  4394.  
  4395.  
  4396.  
  4397.  
  4398.  
  4399.  
  4400.  
  4401.  
  4402.  
  4403.  
  4404.  
  4405.  
  4406.  
  4407.  
  4408.  
  4409.  
  4410.  
  4411.  
  4412.  
  4413.  
  4414.  
  4415.  
  4416.  
  4417.  
  4418.  
  4419.  
  4420.  
  4421.  
  4422.  
  4423.  
  4424.  
  4425.  
  4426.  
  4427.  
  4428.  
  4429.  
  4430.  
  4431.  
  4432.  
  4433.  
  4434.  
  4435.  
  4436.  
  4437.  
  4438.  
  4439.  
  4440.  
  4441.  
  4442.  
  4443.  
  4444.  
  4445.  
  4446.  
  4447.  
  4448.  
  4449.  
  4450.  
  4451.  
  4452.  
  4453.  
  4454.  
  4455.  
  4456.  
  4457.  
  4458.  
  4459.  
  4460.  
  4461.  
  4462.   @
  4463.  
  4464.  
  4465.  
  4466.  
  4467.  
  4468.  
  4469.  
  4470.  
  4471.  
  4472.  
  4473.  
  4474.  
  4475.  
  4476.  
  4477.  
  4478.  
  4479.  
  4480.  
  4481.  
  4482.  
  4483.  
  4484.  
  4485.  
  4486.  
  4487.  
  4488.  
  4489.  
  4490.  
  4491.  
  4492.  
  4493.  
  4494.  
  4495.  
  4496.  
  4497.  
  4498.  
  4499.  
  4500.  
  4501.  
  4502.  
  4503.  
  4504.  
  4505.  
  4506.  
  4507.  
  4508.  
  4509.  
  4510.  
  4511.  
  4512.  
  4513.  
  4514.  
  4515.  
  4516.  
  4517.  
  4518.  
  4519.  
  4520.  
  4521.  
  4522.  
  4523.  
  4524.  
  4525.  
  4526.  
  4527.  
  4528.  
  4529.  
  4530.  
  4531.  
  4532.  
  4533.  
  4534.  
  4535.  
  4536.  
  4537.  
  4538.  
  4539.  
  4540.  
  4541.  
  4542.  
  4543.  
  4544.  
  4545.  
  4546.  
  4547.  
  4548.  
  4549.  
  4550.  
  4551.  
  4552.  
  4553.  
  4554.  
  4555.  
  4556.  
  4557.  
  4558.  
  4559.  
  4560.  
  4561.  
  4562.  
  4563.  
  4564.  
  4565.  
  4566.  
  4567.  
  4568.  
  4569.  
  4570.  
  4571.  
  4572.  
  4573.  
  4574.  
  4575.  
  4576.  
  4577.  
  4578.  
  4579.  
  4580.  
  4581.  
  4582.  
  4583.  
  4584.  
  4585.  
  4586.  
  4587.  
  4588.  
  4589.  
  4590.  
  4591.  
  4592.  
  4593.  
  4594.  
  4595.  
  4596.  
  4597.  
  4598.  
  4599.  
  4600.  
  4601.  
  4602.  
  4603.  
  4604.  
  4605.  
  4606.  
  4607.  
  4608.  
  4609.  
  4610.  
  4611.  
  4612.  
  4613.  
  4614.  
  4615.  
  4616.  
  4617.  
  4618.  
  4619.  
  4620.  
  4621.  
  4622.  
  4623.  
  4624.  
  4625.  
  4626.  
  4627.  
  4628.  
  4629.  
  4630.  
  4631.  
  4632.  
  4633.  
  4634.  
  4635.  
  4636.  
  4637.  
  4638.  
  4639.  
  4640.  
  4641.  
  4642.  
  4643.  
  4644.  
  4645.  
  4646.  
  4647.  
  4648.  
  4649.  
  4650.  
  4651.  
  4652.  
  4653.  
  4654.  
  4655.  
  4656.  
  4657.  
  4658.  
  4659.  
  4660.  
  4661.  
  4662.  
  4663.  
  4664.  
  4665.  
  4666.  
  4667.  
  4668.  
  4669.  
  4670.  
  4671.  
  4672.  
  4673.  
  4674.  
  4675.  
  4676.  
  4677.  
  4678.  
  4679.  
  4680.  
  4681.  
  4682.  
  4683.  
  4684.  
  4685.  
  4686.  
  4687.  
  4688.  
  4689.  
  4690.  
  4691.  
  4692.  
  4693.  
  4694.  
  4695.  
  4696.  
  4697.  
  4698.  
  4699.  
  4700.  
  4701.  
  4702.  
  4703.  
  4704.  
  4705.  
  4706.  
  4707.  
  4708.  
  4709.  
  4710.  
  4711.  
  4712.  
  4713.  
  4714.  
  4715.  
  4716.  
  4717.  
  4718.  
  4719.  
  4720.  
  4721.  
  4722.  
  4723.  
  4724.  
  4725.  
  4726.  
  4727.  
  4728.  
  4729.  
  4730.  
  4731.  
  4732.  
  4733.  
  4734.  
  4735.  
  4736.  
  4737.  
  4738.  
  4739.  
  4740.  
  4741.  
  4742.  
  4743.  
  4744.  
  4745.  
  4746.  
  4747.  
  4748.  
  4749.  
  4750.  
  4751.  
  4752.  
  4753.  
  4754.  
  4755.  
  4756.  
  4757.  
  4758.  
  4759.  
  4760.  
  4761.  
  4762.  
  4763.  
  4764.  
  4765.  
  4766.  
  4767.  
  4768.  
  4769.  
  4770.  
  4771.  
  4772.  
  4773.  
  4774.  
  4775.  
  4776.  
  4777.  
  4778.  
  4779.  
  4780.  
  4781.  
  4782.  
  4783.  
  4784.  
  4785.  
  4786.  
  4787.  
  4788.  
  4789.  
  4790.  
  4791.  
  4792.  
  4793.  
  4794.  
  4795.  
  4796.  
  4797.  
  4798.  
  4799.  
  4800.  
  4801.  
  4802.  
  4803.  
  4804.  
  4805.  
  4806.  
  4807.  
  4808.  
  4809.  
  4810.  
  4811.  
  4812.  
  4813.  
  4814.  
  4815.  
  4816.  
  4817.  
  4818.  
  4819.  
  4820.  
  4821.  
  4822.  
  4823.  
  4824.  
  4825.  
  4826.  
  4827.  
  4828.  
  4829.  
  4830.  
  4831.  
  4832.  
  4833.  
  4834.  
  4835.  
  4836.  
  4837.  
  4838.  
  4839.  
  4840.  
  4841.  
  4842.  
  4843.  
  4844.  
  4845.  
  4846.  
  4847.  
  4848.  
  4849.  
  4850.  
  4851.  
  4852.  
  4853.  
  4854.  
  4855.  
  4856.  
  4857.  
  4858.  
  4859.  
  4860.  
  4861.  
  4862.  
  4863.  
  4864.  
  4865.  
  4866.  
  4867.  
  4868.  
  4869.  
  4870.  
  4871.  
  4872.  
  4873.  
  4874.  
  4875.  
  4876.  
  4877.  
  4878.  
  4879.  
  4880.  
  4881.  
  4882.  
  4883.  
  4884.  
  4885.  
  4886.  
  4887.  
  4888.  
  4889.  
  4890.  
  4891.  
  4892.  
  4893.  
  4894.  
  4895.  
  4896.  
  4897.  
  4898.  
  4899.  
  4900.  
  4901.  
  4902.  
  4903.  
  4904.  
  4905.  
  4906.  
  4907.  
  4908.  
  4909.  
  4910.  
  4911.  
  4912.  
  4913.  
  4914.  
  4915.  
  4916.  
  4917.  
  4918.  
  4919.  
  4920.  
  4921.  
  4922.  
  4923.  
  4924.  
  4925.  
  4926.  
  4927.  
  4928.  
  4929.  
  4930.  
  4931.  
  4932.  
  4933.  
  4934.  
  4935.  
  4936.  
  4937.  
  4938.  
  4939.  
  4940.  
  4941.  
  4942.  
  4943.  
  4944.  
  4945.  
  4946.  
  4947.  
  4948.  
  4949.  
  4950.  
  4951.  
  4952.  
  4953.  
  4954.  
  4955.  
  4956.  
  4957.  
  4958.  
  4959.  
  4960.  
  4961.  
  4962.  
  4963.  
  4964.  
  4965.  
  4966.  
  4967.  
  4968.  
  4969.  
  4970.  
  4971.  
  4972.  
  4973.  
  4974.  
  4975.  
  4976.  
  4977.  
  4978.  
  4979.  
  4980.  
  4981.  
  4982.  
  4983.  
  4984.  
  4985.  
  4986.  
  4987.  
  4988.  
  4989.  
  4990.  
  4991.  
  4992.  
  4993.  
  4994.  
  4995.  
  4996.  
  4997.  
  4998.  
  4999.  
  5000.  
  5001.  
  5002.  
  5003.  
  5004.  
  5005.  
  5006.  
  5007.  
  5008.  
  5009.  
  5010.  
  5011.  
  5012.  
  5013.  
  5014.  
  5015.  
  5016.  
  5017.  
  5018.  
  5019.  
  5020.  
  5021.  
  5022.  
  5023.  
  5024.  
  5025.  
  5026.  
  5027.  
  5028.  
  5029.  
  5030.  
  5031.  
  5032.  
  5033.  
  5034.  
  5035.  
  5036.  
  5037.  
  5038.  
  5039.  
  5040.  
  5041.  
  5042.  
  5043.  
  5044.  
  5045.  
  5046.  
  5047.  
  5048.  
  5049.  
  5050.  
  5051.  
  5052.  
  5053.  
  5054.  
  5055.  
  5056.  
  5057.  
  5058.  
  5059.  
  5060.  
  5061.  
  5062.  
  5063.  
  5064.  
  5065.  
  5066.  
  5067.  
  5068.  
  5069.  
  5070.  
  5071.  
  5072.  
  5073.  
  5074.  
  5075.  
  5076.  
  5077.  
  5078.  
  5079.  
  5080.  
  5081.  
  5082.  
  5083.  
  5084.  
  5085.  
  5086.  
  5087.  
  5088.  
  5089.  
  5090.  
  5091.  
  5092.  
  5093.  
  5094.  
  5095.  
  5096.  
  5097.  
  5098.  
  5099.  
  5100.  
  5101.  
  5102.  
  5103.  
  5104.  
  5105.  
  5106.  
  5107.  
  5108.  
  5109.  
  5110.  
  5111.  
  5112.  
  5113.  
  5114.  
  5115.  
  5116.  
  5117.  
  5118.  
  5119.  
  5120.  
  5121.  
  5122.  
  5123.  
  5124.  
  5125.  
  5126.  
  5127.  
  5128.  
  5129.  
  5130.  
  5131.  
  5132.  
  5133.  
  5134.  
  5135.  
  5136.  
  5137.  
  5138.  
  5139.  
  5140.  
  5141.  
  5142.  
  5143.  
  5144.  
  5145.  
  5146.  
  5147.  
  5148.  
  5149.  
  5150.  
  5151.  
  5152.  
  5153.  
  5154.  
  5155.  
  5156.  
  5157.  
  5158.  
  5159.  
  5160.  
  5161.  
  5162.  
  5163.  
  5164.  
  5165.  
  5166.  
  5167.  
  5168.  
  5169.  
  5170.  
  5171.  
  5172.  
  5173.  
  5174.  
  5175.  
  5176.  
  5177.  
  5178.  
  5179.  
  5180.  
  5181.  
  5182.  
  5183.  
  5184.  
  5185.  
  5186.  
  5187.  
  5188.  
  5189.  
  5190.  
  5191.  
  5192.  
  5193.  
  5194.  
  5195.  
  5196.  
  5197.  
  5198.  
  5199.  
  5200.  
  5201.  
  5202.  
  5203.  
  5204.  
  5205.  
  5206.  
  5207.  
  5208.  
  5209.  
  5210.  
  5211.  
  5212.  
  5213.  
  5214.  
  5215.  
  5216.  
  5217.  
  5218.  
  5219.  
  5220.  
  5221.  
  5222.  
  5223.  
  5224.  
  5225.  
  5226.  
  5227.  
  5228.  
  5229.  
  5230.  
  5231.  
  5232.  
  5233.  
  5234.  
  5235.  
  5236.  
  5237.  
  5238.  
  5239.  
  5240.  
  5241.  
  5242.  
  5243.  
  5244.  
  5245.  
  5246.  
  5247.  
  5248.  
  5249.  
  5250.  
  5251.  
  5252.  
  5253.  
  5254.  
  5255.  
  5256.  
  5257.  
  5258.  
  5259.  
  5260.  
  5261.  
  5262.  
  5263.  
  5264.  
  5265.  
  5266.  
  5267.  
  5268.  
  5269.  
  5270.  
  5271.  
  5272.  
  5273.  
  5274.  
  5275.  
  5276.  
  5277.  
  5278.  
  5279.  
  5280.  
  5281.  
  5282.  
  5283.  
  5284.  
  5285.  
  5286.  
  5287.  
  5288.  
  5289.  
  5290.  
  5291.  
  5292.  
  5293.  
  5294.  
  5295.  
  5296.  
  5297.  
  5298.  
  5299.  
  5300.  
  5301.  
  5302.  
  5303.  
  5304.  
  5305.  
  5306.  
  5307.  
  5308.  
  5309.  
  5310.  
  5311.  
  5312.  
  5313.  
  5314.  
  5315.  
  5316.  
  5317.  
  5318.  
  5319.  
  5320.  
  5321.  
  5322.  
  5323.  
  5324.  
  5325.  
  5326.  
  5327.  
  5328.  
  5329.  
  5330.  
  5331.  
  5332.  
  5333.  
  5334.  
  5335.  
  5336.  
  5337.  
  5338.  
  5339.  
  5340.  
  5341.  
  5342.  
  5343.  
  5344.  
  5345.  
  5346.  
  5347.  
  5348.  
  5349.  
  5350.  
  5351.  
  5352.  
  5353.  
  5354.  
  5355.  
  5356.  
  5357.  
  5358.  
  5359. @@
  5360.  
  5361.  
  5362.  
  5363.  
  5364.  
  5365.  
  5366.  
  5367.  
  5368.  
  5369.  
  5370.  
  5371.  
  5372.  
  5373.  
  5374.  
  5375.  
  5376.  
  5377.  
  5378.  
  5379.  
  5380.  
  5381.  
  5382.  
  5383.  
  5384.  
  5385.  
  5386.  
  5387.  
  5388.  
  5389.  
  5390.  
  5391.  
  5392.  
  5393.  
  5394.  
  5395.  
  5396.  
  5397.  
  5398.  
  5399.  
  5400.  
  5401.  
  5402.  
  5403.  
  5404.  
  5405.  
  5406.  
  5407.  
  5408.  
  5409.  
  5410.  
  5411.  
  5412.  
  5413.  
  5414.  
  5415.  
  5416.  
  5417.  
  5418.  
  5419.  
  5420.  
  5421.  
  5422.  
  5423.  
  5424.  
  5425.  
  5426.  
  5427.  
  5428.  
  5429.  
  5430.  
  5431.  
  5432.  
  5433.  
  5434.  
  5435.  
  5436.  
  5437.  
  5438.  
  5439.  
  5440.  
  5441.  
  5442.  
  5443.  
  5444.  
  5445.  
  5446.  
  5447.  
  5448.  
  5449.  
  5450.  
  5451.  
  5452.  
  5453.  
  5454.  
  5455.  
  5456.  
  5457.  
  5458.  
  5459.  
  5460.  
  5461.  
  5462.  
  5463.  
  5464.  
  5465.  
  5466.  
  5467.  
  5468.  
  5469. @@@@@@@@
  5470.  
  5471.  
  5472.  
  5473.  
  5474.  
  5475.  
  5476.  
  5477.  
  5478.  
  5479.  
  5480.  
  5481.  
  5482.  
  5483.  
  5484.  
  5485.  
  5486.  
  5487.  
  5488.  
  5489.  
  5490.  
  5491.  
  5492.  
  5493.  
  5494.  
  5495.  
  5496.  
  5497.  
  5498.  
  5499.  
  5500.  
  5501.  
  5502.  
  5503.  
  5504.  
  5505.  
  5506.  
  5507.  
  5508.  
  5509.  
  5510.  
  5511.  
  5512.  
  5513.  
  5514.  
  5515.  
  5516.  
  5517.  
  5518.  
  5519.  
  5520.  
  5521.  
  5522.  
  5523.  
  5524.  
  5525.  
  5526.  
  5527.  
  5528.  
  5529.  
  5530.  
  5531.  
  5532.  
  5533.  
  5534.  
  5535.  
  5536.  
  5537.  
  5538.  
  5539.  
  5540.  
  5541.  
  5542.  
  5543.  
  5544.  
  5545.  
  5546.  
  5547.  
  5548.  
  5549.  
  5550.  
  5551.  
  5552.  
  5553.  
  5554.  
  5555.  
  5556.  
  5557.  
  5558.  
  5559.  
  5560.  
  5561.  
  5562.  
  5563.  
  5564.  
  5565.  
  5566.  
  5567.  
  5568.  
  5569.  
  5570.  
  5571.  
  5572.  
  5573.  
  5574.  
  5575.  
  5576.  
  5577.  
  5578.  
  5579.  
  5580.  
  5581.  
  5582.  
  5583.  
  5584.  
  5585.  
  5586.  
  5587.  
  5588.  
  5589.  
  5590.  
  5591.  
  5592.  
  5593.  
  5594.  
  5595.  
  5596.  
  5597.  
  5598.  
  5599.  
  5600.  
  5601.  
  5602.  
  5603.  
  5604.  
  5605.  
  5606.  
  5607.  
  5608.  
  5609.  
  5610.  
  5611.  
  5612.  
  5613.  
  5614.  
  5615.  
  5616.  
  5617.  
  5618.  
  5619.  
  5620.  
  5621.  
  5622.  
  5623.  
  5624.  
  5625.  
  5626.  
  5627.  
  5628.  
  5629.  
  5630.  
  5631.  
  5632.  
  5633.  
  5634.  
  5635.  
  5636.  
  5637.  
  5638.  
  5639.  
  5640.  
  5641.  
  5642.  
  5643.  
  5644.  
  5645.  
  5646.  
  5647.  
  5648.  
  5649.  
  5650.  
  5651.  
  5652.  
  5653.  
  5654.  
  5655.  
  5656.  
  5657.  
  5658.  
  5659.  
  5660.  
  5661.  
  5662.  
  5663.  
  5664.  
  5665.  
  5666.  
  5667.  
  5668.  
  5669.  
  5670.  
  5671.  
  5672.  
  5673.  
  5674.  
  5675.  
  5676.  
  5677.  
  5678.  
  5679.  
  5680.  
  5681.  
  5682.  
  5683.  
  5684.  
  5685.  
  5686.  
  5687.  
  5688.  
  5689.  
  5690.  
  5691.  
  5692.  
  5693.  
  5694.  
  5695.  
  5696.  
  5697.  
  5698.  
  5699.  
  5700.  
  5701.  
  5702.  
  5703.  
  5704.  
  5705.  
  5706.  
  5707.  
  5708.  
  5709.  
  5710.  
  5711.  
  5712.  
  5713.  
  5714.  
  5715.  
  5716.  
  5717.  
  5718.  
  5719.  
  5720.  
  5721.  
  5722.  
  5723.  
  5724.  
  5725.  
  5726.  
  5727.  
  5728.  
  5729.  
  5730.  
  5731.  
  5732.  
  5733.  
  5734.  
  5735.  
  5736.  
  5737.  
  5738.  
  5739.  
  5740.  
  5741.  
  5742.  
  5743.  
  5744.  
  5745.  
  5746.  
  5747.  
  5748.  
  5749.  
  5750.  
  5751.  
  5752.  
  5753.  
  5754.  
  5755.  
  5756.  
  5757.  
  5758.  
  5759.  
  5760.  
  5761.  
  5762.  
  5763.  
  5764.  
  5765.  
  5766.  
  5767.  
  5768.  
  5769.  
  5770.  
  5771.  
  5772.  
  5773.  
  5774.  
  5775.  
  5776.  
  5777.  
  5778.  
  5779.  
  5780.  
  5781.  
  5782.  
  5783.  
  5784.  
  5785.  
  5786.  
  5787.  
  5788.  
  5789.  
  5790.  
  5791.  
  5792. @@@@@@@@
  5793.  
  5794.  
  5795.  
  5796.  
  5797.  
  5798.  
  5799.  
  5800.  
  5801.  
  5802.  
  5803.  
  5804.  
  5805.  
  5806.  
  5807.  
  5808.  
  5809.  
  5810.  
  5811.  
  5812.  
  5813.  
  5814.  
  5815.  
  5816.  
  5817.  
  5818.  
  5819.  
  5820.  
  5821.  
  5822.  
  5823.  
  5824.  
  5825.  
  5826.  
  5827.  
  5828.  
  5829.  
  5830.  
  5831.  
  5832.  
  5833.  
  5834.  
  5835.  
  5836.  
  5837.  
  5838.  
  5839.  
  5840.  
  5841.  
  5842.  
  5843.  
  5844.  
  5845.  
  5846.  
  5847.  
  5848.  
  5849.  
  5850.  
  5851.  
  5852.  
  5853.  
  5854.  
  5855.  
  5856.  
  5857.  
  5858.  
  5859.  
  5860.  
  5861.  
  5862.  
  5863.  
  5864.  
  5865.  
  5866.  
  5867.  
  5868.  
  5869.  
  5870.  
  5871.  
  5872.  
  5873.  
  5874.  
  5875.  
  5876.  
  5877.  
  5878.  
  5879.  
  5880.  
  5881.  
  5882.  
  5883.  
  5884.  
  5885.  
  5886.  
  5887.  
  5888.  
  5889.  
  5890.  
  5891.  
  5892.  
  5893.  
  5894.  
  5895.  
  5896.  
  5897.  
  5898.  
  5899.  
  5900.  
  5901.  
  5902.  
  5903.  
  5904.  
  5905.  
  5906.  
  5907.  
  5908.  
  5909.  
  5910.  
  5911.  
  5912.  
  5913.  
  5914.  
  5915.  
  5916. @@@@@@@@
  5917.  
  5918.  
  5919.  
  5920.  
  5921.  
  5922.  
  5923.  
  5924.  
  5925.  
  5926.  
  5927.  
  5928.  
  5929.  
  5930.  
  5931.  
  5932.  
  5933.  
  5934.  
  5935.  
  5936.  
  5937.  
  5938.  
  5939.  
  5940.  
  5941.  
  5942.  
  5943.  
  5944.  
  5945.  
  5946.  
  5947.  
  5948.  
  5949.  
  5950.  
  5951.  
  5952.  
  5953.  
  5954.  
  5955.  
  5956.  
  5957.  
  5958.  
  5959.  
  5960.  
  5961.  
  5962.  
  5963.  
  5964.  
  5965.  
  5966.  
  5967.  
  5968.  
  5969.  
  5970.  
  5971.  
  5972.  
  5973.  
  5974.  
  5975.  
  5976.  
  5977.  
  5978.  
  5979.  
  5980.  
  5981.  
  5982.  
  5983.  
  5984.  
  5985.  
  5986.  
  5987.  
  5988.  
  5989.  
  5990.  
  5991.  
  5992.  
  5993.  
  5994.  
  5995.  @
  5996.  
  5997.  
  5998.  
  5999.  
  6000.  
  6001.  
  6002.  
  6003.  
  6004.  
  6005.  
  6006.  
  6007.  
  6008.  
  6009.  
  6010.  
  6011.  
  6012.  
  6013.  
  6014.  
  6015.  
  6016.  
  6017.  
  6018.  
  6019.  
  6020.  
  6021.  
  6022.  
  6023.  
  6024.  
  6025.  
  6026.  
  6027.  
  6028.  
  6029.  
  6030.  
  6031.  
  6032.  
  6033.  
  6034.  
  6035.  
  6036.  
  6037.  
  6038.  
  6039.  
  6040.  
  6041.  
  6042.  
  6043.  
  6044.  
  6045.  
  6046.  
  6047.  
  6048.  
  6049.  
  6050.  
  6051.  
  6052.  
  6053.  
  6054.  
  6055.  
  6056.  
  6057.  
  6058.  
  6059.  
  6060.  
  6061.  
  6062.  
  6063.  
  6064.  
  6065.  
  6066.  
  6067.  
  6068.  
  6069.  
  6070.  
  6071.  
  6072.  
  6073.  
  6074.  
  6075.  
  6076.  
  6077.  
  6078.  
  6079.  
  6080.  
  6081.  
  6082.  
  6083.  
  6084.  
  6085.  
  6086.  
  6087.  
  6088.  
  6089.  
  6090.  
  6091.  
  6092.  
  6093.  
  6094.  
  6095.  
  6096.  
  6097.  
  6098.  
  6099.  
  6100.  
  6101.  
  6102.  
  6103.  
  6104.  
  6105.  
  6106.  
  6107.  
  6108.  
  6109.  
  6110.  
  6111.  
  6112.  
  6113.  
  6114.  
  6115.  
  6116.  
  6117.  
  6118.  
  6119.  
  6120.  
  6121.  
  6122.  
  6123.  
  6124.  
  6125.  
  6126.  
  6127.  
  6128.  
  6129.  
  6130.  
  6131.  
  6132.  
  6133.  
  6134. @@@@@@@@
  6135.  
  6136.  
  6137.  
  6138.  
  6139.  
  6140.  
  6141.  
  6142.  
  6143.  
  6144.  
  6145.  
  6146.  
  6147.  
  6148.  
  6149.  
  6150.  
  6151.  
  6152.  
  6153.  
  6154.  
  6155.  
  6156.  
  6157.  
  6158.  
  6159.  
  6160.  
  6161.  
  6162.  
  6163.  
  6164.  
  6165.  
  6166.  
  6167.  
  6168.  
  6169.  
  6170.  
  6171.  
  6172.  
  6173.  
  6174.  
  6175.  
  6176.  
  6177.  
  6178.  
  6179.  
  6180.  
  6181.  
  6182.  
  6183.  
  6184.  
  6185.  
  6186.  
  6187.  
  6188.  
  6189.  
  6190.  
  6191.  
  6192.  
  6193.  
  6194.  
  6195.  
  6196.  
  6197.  
  6198.  
  6199.  
  6200.  
  6201.  
  6202.  
  6203.  
  6204.  
  6205.  
  6206.  
  6207.  
  6208.  
  6209.  
  6210.  
  6211.  
  6212.  
  6213.  
  6214.  
  6215.  
  6216.  
  6217.  
  6218.  
  6219.  
  6220.  
  6221.  
  6222.  
  6223.  
  6224.  
  6225.  
  6226.  
  6227.  
  6228.  
  6229.  
  6230.  
  6231.  
  6232.  
  6233.  
  6234.  
  6235.  
  6236.  
  6237.  
  6238.  
  6239.  
  6240.  
  6241.  
  6242.  
  6243.  
  6244.  
  6245.  
  6246.  
  6247.  
  6248.  
  6249.  
  6250.  
  6251.  
  6252.  
  6253.  
  6254.  
  6255.  
  6256.  
  6257.  
  6258.  
  6259.  
  6260.  
  6261.  
  6262.  
  6263.  
  6264.  
  6265.  
  6266.  
  6267.  
  6268.  
  6269.  
  6270.  
  6271.  
  6272.  
  6273.  
  6274.  
  6275.  
  6276.  
  6277.  
  6278.  
  6279.  
  6280.  
  6281.  
  6282.  
  6283.  
  6284.  
  6285.  
  6286.  
  6287.  
  6288.  
  6289.  
  6290.  
  6291.  
  6292.  
  6293.  
  6294.  
  6295.  
  6296.  
  6297.  
  6298.  
  6299.  
  6300.  
  6301.  
  6302.  
  6303.  
  6304.  
  6305.  
  6306.  
  6307.  
  6308.  
  6309.  
  6310.  
  6311.  
  6312.  
  6313.  
  6314.  
  6315.  
  6316.  
  6317.  
  6318.  
  6319.  
  6320.  
  6321.  
  6322.  
  6323.  
  6324.  
  6325.  
  6326.  
  6327.  
  6328.  
  6329.  
  6330.  
  6331.  
  6332.  
  6333.  
  6334.  
  6335.  
  6336.  
  6337.  
  6338.  
  6339.  
  6340.  
  6341.  
  6342.  
  6343.  
  6344.  
  6345.  
  6346.  
  6347.  
  6348.  
  6349.  
  6350.  
  6351.  
  6352.  
  6353.  
  6354.  
  6355.  
  6356.  
  6357.  
  6358.  
  6359.  
  6360.  
  6361.  
  6362.  
  6363.  
  6364.  
  6365.  
  6366.  
  6367.  
  6368.  
  6369.  
  6370.  
  6371.  
  6372.  
  6373.  
  6374.  
  6375.  
  6376.  
  6377.  
  6378.  
  6379.  
  6380.  
  6381.  
  6382.  
  6383.  
  6384.  
  6385.  
  6386.  
  6387.  
  6388.  
  6389.  
  6390.  
  6391.  
  6392.  
  6393.  
  6394.  
  6395.  
  6396.  
  6397.  
  6398.  
  6399.  
  6400.  
  6401.  
  6402.  
  6403.  
  6404.  
  6405.  
  6406.  
  6407.  
  6408.  
  6409.  
  6410.  
  6411.  
  6412.  
  6413.  
  6414.  
  6415.  
  6416.  
  6417.  
  6418.  
  6419.  
  6420.  
  6421.  
  6422.  
  6423.  
  6424.  
  6425.  
  6426.  
  6427.  
  6428.  
  6429.  
  6430.  
  6431.  
  6432.  
  6433.  
  6434.  
  6435.  
  6436.  
  6437.  
  6438.  
  6439.  
  6440.  
  6441.  
  6442.  
  6443.  
  6444.  
  6445.  
  6446.  
  6447.  
  6448.  
  6449.  
  6450.  
  6451.  
  6452.  
  6453.  
  6454.  
  6455.  
  6456.  
  6457.  
  6458.  
  6459.  
  6460.  
  6461.  
  6462.  
  6463.  
  6464.  
  6465.  
  6466.  
  6467.  
  6468.  
  6469.  
  6470.  
  6471.  
  6472.  
  6473.  
  6474.  
  6475.  
  6476.  
  6477.  
  6478.  
  6479.  
  6480.  
  6481.  
  6482.  
  6483.  
  6484.  
  6485.  
  6486.  
  6487.  
  6488.  
  6489.  
  6490.  
  6491.  
  6492.  
  6493.  
  6494.  
  6495.  
  6496.  
  6497.  
  6498.  
  6499.  
  6500.  
  6501.  
  6502.  
  6503.  
  6504.  
  6505.  
  6506.  
  6507.  
  6508.  
  6509.  
  6510.  
  6511.  
  6512.  
  6513.  
  6514.  
  6515.  
  6516.  
  6517.  
  6518.  
  6519.  
  6520.  
  6521.  
  6522.  
  6523.  
  6524.  
  6525.  
  6526.  
  6527.  
  6528.  
  6529.  
  6530.  
  6531.  
  6532.  
  6533.  
  6534.  
  6535.  
  6536.  
  6537.  
  6538.  
  6539.  
  6540.  
  6541.  
  6542.  
  6543.  
  6544.  
  6545.  
  6546.  
  6547.  
  6548.  
  6549.  
  6550.  
  6551.  
  6552.  
  6553.  
  6554.  
  6555.  
  6556.  
  6557.  
  6558.  
  6559.  
  6560.  
  6561.  
  6562. @ {$f0}
  6563.  
  6564.  
  6565.  
  6566.  
  6567.  
  6568.  
  6569.  
  6570.  
  6571.  
  6572.  
  6573.  
  6574.  
  6575.  
  6576. @@@@@@
  6577.  
  6578.  
  6579.  
  6580.  
  6581.  
  6582.  
  6583.  
  6584.  
  6585.  
  6586.  
  6587.  
  6588.  
  6589.  
  6590.  
  6591.  
  6592.  
  6593.  
  6594.  
  6595.  
  6596.  
  6597.  
  6598.  
  6599.  
  6600.  
  6601.  
  6602.  
  6603.  
  6604.  
  6605.  
  6606.  
  6607.  
  6608.  
  6609.  
  6610.  
  6611.  
  6612.  
  6613.  
  6614.  
  6615.  
  6616.  
  6617.  
  6618.  
  6619.  
  6620.  
  6621.  
  6622.  
  6623.  
  6624.  
  6625.  
  6626.  
  6627.  
  6628.  
  6629.  
  6630.  
  6631.  
  6632.  
  6633.  
  6634.  
  6635.  
  6636.  
  6637.  
  6638.  
  6639.  
  6640.  
  6641.  
  6642.  
  6643.  
  6644.  
  6645.  
  6646.  
  6647.  
  6648.  
  6649.  
  6650.  
  6651.  
  6652.  
  6653.  
  6654.  
  6655.  
  6656.  
  6657.  
  6658.  
  6659.  
  6660.  
  6661.  
  6662.  
  6663.  
  6664.  
  6665.  
  6666.  
  6667.  
  6668.  
  6669.  
  6670.  
  6671.  
  6672.  
  6673.  
  6674.  
  6675.  
  6676.  
  6677.  
  6678.  
  6679.  
  6680.  
  6681.  
  6682.  
  6683.  
  6684.  
  6685.  
  6686.  
  6687.  
  6688.  
  6689.  
  6690.  
  6691.  
  6692.  
  6693.  
  6694.  
  6695. {$60}
  6696.  
  6697.  
  6698.  
  6699. ~
  6700.  
  6701.  
  6702.  
  6703.  
  6704.  
  6705.  
  6706. P
  6707.  
  6708.  
  6709.  
  6710.  
  6711.  
  6712.  
  6713.  
  6714. {SHIFT-*} 
  6715.  
  6716.  
  6717.  
  6718.  
  6719.  
  6720.  
  6721.  
  6722.  
  6723.  
  6724.  
  6725.  
  6726.  
  6727.  
  6728.  
  6729.  
  6730.  
  6731.  
  6732.  
  6733.  
  6734.  
  6735.  
  6736.  
  6737.  
  6738.  
  6739.  
  6740.  
  6741.  
  6742.  
  6743.  
  6744.  
  6745.  
  6746.  
  6747.  
  6748.  
  6749.  
  6750.  
  6751.  
  6752.  
  6753.  
  6754.  
  6755.  
  6756.  
  6757.  
  6758.  
  6759.  
  6760.  
  6761.  
  6762.  
  6763.  
  6764.  
  6765.  
  6766.  
  6767.  
  6768.  
  6769.  
  6770.  
  6771.  
  6772.  
  6773.  
  6774.  
  6775.  
  6776.  
  6777.  
  6778.  
  6779.  
  6780.  
  6781.  
  6782.  
  6783.  
  6784.  
  6785.  
  6786.  
  6787.  
  6788.  
  6789.  
  6790.  
  6791.  
  6792.  
  6793.  
  6794.  
  6795.  
  6796.  
  6797.  
  6798.  
  6799.  
  6800.  
  6801.  
  6802.  
  6803.  
  6804.  
  6805.  
  6806.  
  6807.  
  6808.  
  6809.  
  6810.  
  6811.  
  6812.  
  6813.  
  6814.  
  6815.  
  6816.  
  6817.  
  6818.  
  6819.  
  6820.  
  6821.  
  6822.  
  6823.  
  6824.  
  6825.  
  6826.  
  6827.  
  6828.  
  6829.  
  6830.  
  6831.  
  6832.  
  6833.  
  6834.  
  6835.  
  6836.  
  6837.  
  6838.  
  6839.  
  6840.  
  6841.  
  6842.  
  6843.  
  6844.  
  6845.  
  6846.  
  6847.  
  6848.  
  6849.  
  6850.  
  6851.  
  6852.  
  6853.  
  6854.  
  6855.  
  6856.  
  6857.  
  6858.  
  6859.  
  6860.  
  6861.  
  6862.  
  6863.  
  6864.  
  6865.  
  6866.  
  6867.  
  6868.  
  6869.  
  6870.  
  6871.  
  6872.  
  6873.  
  6874.  
  6875.  
  6876.  
  6877.  
  6878.  
  6879.  
  6880.  
  6881.  
  6882.  
  6883.  
  6884.  
  6885.  
  6886.  
  6887.  
  6888.  
  6889.  
  6890.  
  6891.  
  6892.  
  6893.  
  6894.  
  6895.  
  6896.  
  6897.  
  6898.  
  6899.  
  6900.  
  6901.  
  6902.  
  6903.  
  6904.  
  6905.  
  6906.  
  6907.  
  6908.  
  6909.  
  6910.  
  6911.  
  6912.  
  6913.  
  6914.  
  6915.  
  6916.  
  6917.  
  6918.  
  6919.  
  6920.  
  6921.  
  6922.  
  6923.  
  6924.  
  6925.  
  6926.  
  6927.  
  6928.  
  6929.  
  6930.  
  6931.  
  6932.  
  6933.  
  6934.  
  6935.  
  6936.  
  6937.  
  6938.  
  6939.  
  6940.  
  6941.  
  6942.  
  6943.  
  6944.  
  6945.  
  6946.  
  6947.  
  6948.  
  6949.  
  6950.  
  6951.  
  6952.  
  6953.  
  6954.  
  6955.  
  6956.  
  6957.  
  6958.  
  6959.  
  6960.  
  6961.  
  6962.  
  6963.  
  6964.  
  6965.  
  6966.  
  6967.  
  6968.  
  6969.  
  6970.  
  6971.  
  6972.  
  6973.  
  6974.  
  6975.  
  6976.  
  6977.  
  6978.  
  6979.  
  6980.  
  6981.  
  6982.  
  6983.  
  6984.  
  6985.  
  6986.  
  6987. @@@@@@@@
  6988.  
  6989.  
  6990.  
  6991.  
  6992.  
  6993.  
  6994.  
  6995.  
  6996.  
  6997.  
  6998.  
  6999.  
  7000.  
  7001.  
  7002.  
  7003.  
  7004.  
  7005.  
  7006.  
  7007.  
  7008.  
  7009.  
  7010.  
  7011.  
  7012.  
  7013.  
  7014.  
  7015.  
  7016.  
  7017.  
  7018.  
  7019.  
  7020.  
  7021.  
  7022.  
  7023.  
  7024.  
  7025.  
  7026.  
  7027.  
  7028.  
  7029.  
  7030.  
  7031.  
  7032.  
  7033.  
  7034.  
  7035.  
  7036.  
  7037.  
  7038.  
  7039.  
  7040.  
  7041.  
  7042.  
  7043.  
  7044.  
  7045.  
  7046.  
  7047.  
  7048.  
  7049.  
  7050.  
  7051.  
  7052.  
  7053.  
  7054.  
  7055.  
  7056.  
  7057.  
  7058.  
  7059.  
  7060.  
  7061.  
  7062.  
  7063.  
  7064.  
  7065.  
  7066.  
  7067.  
  7068.  
  7069.  
  7070.  
  7071.  
  7072.  
  7073.  
  7074.  
  7075.  
  7076.  
  7077.  
  7078.  
  7079.  
  7080.  
  7081.  
  7082.  
  7083.  
  7084.  
  7085.  
  7086.  
  7087.  
  7088.  
  7089.  
  7090.  
  7091.  
  7092.  
  7093.  
  7094.  
  7095.  
  7096.  
  7097.  
  7098.  
  7099.  @
  7100.  
  7101.  
  7102.  
  7103.  
  7104.  
  7105.  
  7106.  
  7107.  
  7108.  
  7109.  
  7110.  
  7111.  
  7112.  
  7113.  
  7114.  
  7115.  
  7116.  
  7117.  
  7118.  
  7119.  
  7120.  
  7121.  
  7122.  
  7123.  
  7124.  
  7125.  
  7126.  
  7127.  
  7128.  
  7129.  
  7130.  
  7131.  
  7132.  
  7133.  
  7134.  
  7135.  
  7136.  
  7137.  
  7138.  
  7139.  
  7140.  
  7141.  
  7142.  
  7143.  
  7144.  
  7145.  
  7146.  
  7147.  
  7148.  
  7149.  
  7150.  
  7151.  
  7152.  
  7153.  
  7154.  
  7155.  
  7156.  
  7157.  
  7158.  
  7159.  
  7160.  
  7161.  
  7162.  
  7163.  
  7164.  
  7165.  
  7166.  
  7167. @@
  7168.  
  7169.  
  7170.  
  7171.  
  7172.  
  7173.  
  7174.  
  7175.  
  7176.  
  7177.  
  7178.  
  7179.  
  7180.  
  7181.  
  7182.  
  7183.  
  7184.  
  7185.  
  7186.  
  7187.  
  7188.  
  7189.  
  7190.  
  7191.  
  7192.  
  7193.  
  7194.  
  7195.  
  7196.  
  7197.  
  7198.  
  7199.  
  7200.  
  7201.  
  7202.  
  7203.  
  7204.  
  7205.  
  7206.  
  7207.  
  7208.  
  7209.  
  7210.  
  7211.  
  7212.  
  7213.  
  7214.  
  7215.  
  7216.  
  7217.  
  7218.  
  7219.  
  7220.  
  7221.  
  7222.  
  7223.  
  7224.  
  7225.  
  7226.  
  7227.  
  7228.  
  7229.  
  7230.  
  7231.  
  7232.  
  7233.  
  7234.  
  7235.  
  7236.  
  7237.  
  7238.  
  7239.  
  7240.  
  7241.  
  7242.  
  7243.  
  7244.  
  7245.  
  7246.  
  7247.  
  7248.  
  7249.  
  7250.  
  7251.  
  7252.  
  7253.  
  7254.  
  7255.  
  7256.  
  7257.  
  7258.  
  7259.  
  7260.  
  7261.  
  7262.  
  7263.  
  7264.  
  7265.  
  7266.  
  7267.  
  7268.  
  7269.  
  7270.  
  7271.  
  7272.  
  7273.  
  7274.  
  7275.  
  7276.  
  7277.  
  7278.  
  7279.  
  7280.  
  7281.  
  7282.  
  7283.  
  7284.  
  7285.  
  7286.  
  7287.  
  7288.  
  7289.  
  7290.  
  7291.  
  7292.  
  7293.  
  7294.  
  7295. 89:;<=>?
  7296.  
  7297.  
  7298.  
  7299.  
  7300.  
  7301.  
  7302.  
  7303.  
  7304.  
  7305.  
  7306.  
  7307.  
  7308.  
  7309.  
  7310.  
  7311.  
  7312.  
  7313.  
  7314.  
  7315.  
  7316.  
  7317.  
  7318.  
  7319.  
  7320.  
  7321.  
  7322.  
  7323.  
  7324.  
  7325.  
  7326.  
  7327.  
  7328.  
  7329.  
  7330.  
  7331.  
  7332.  
  7333.  
  7334.  
  7335.  
  7336.  
  7337.  
  7338.  
  7339.  
  7340.  
  7341.  
  7342.  
  7343.  
  7344.  
  7345.  
  7346.  
  7347.  
  7348.  
  7349.  
  7350.  
  7351.  
  7352.  
  7353.  
  7354.  
  7355.  
  7356.  
  7357.  
  7358.  
  7359.  
  7360.  
  7361.  
  7362.  
  7363.  
  7364.  
  7365.  
  7366.  
  7367.  
  7368.  
  7369.  
  7370.  
  7371.  
  7372.  
  7373.  
  7374.  
  7375.  
  7376.  
  7377.  
  7378.  
  7379.  
  7380.  
  7381.  
  7382.  
  7383.  
  7384.  
  7385.  
  7386.  
  7387.  
  7388.  
  7389.  
  7390.  
  7391.  
  7392.  
  7393.  
  7394.  
  7395.  
  7396.  
  7397.  
  7398.  
  7399.  
  7400.  
  7401.  
  7402.  
  7403.  
  7404.  
  7405.  
  7406.  
  7407.  
  7408.  
  7409.  
  7410.  
  7411.  
  7412.  
  7413.  
  7414.  
  7415.  
  7416.  
  7417.  
  7418.  
  7419.  
  7420.  
  7421.  
  7422.  
  7423.  
  7424.  
  7425.  
  7426.  
  7427.  
  7428.  
  7429.  
  7430.  
  7431.  
  7432.  
  7433.  
  7434.  
  7435.  
  7436.  
  7437.  
  7438.  
  7439.  
  7440.  
  7441.  
  7442.  
  7443.  
  7444.  
  7445.  
  7446.  
  7447.  
  7448.  
  7449.  
  7450.  
  7451.  
  7452.  
  7453.  
  7454.  
  7455.  
  7456.  
  7457.  
  7458.  
  7459.  
  7460.  
  7461.  
  7462.  
  7463.  
  7464.  
  7465.  
  7466.  
  7467.  
  7468.  
  7469.  
  7470.  
  7471.  
  7472.  
  7473.  
  7474.  
  7475.  
  7476.  
  7477.  
  7478.  
  7479.  
  7480.  
  7481.  
  7482.  
  7483.  
  7484.  
  7485.  
  7486.  
  7487.  
  7488.  
  7489.  
  7490.  
  7491.  
  7492.  
  7493.  
  7494.  
  7495.  
  7496.  
  7497.  
  7498.  
  7499.  
  7500.  
  7501.  
  7502.  
  7503.  
  7504.  
  7505.  
  7506.  
  7507.  
  7508.  
  7509.  
  7510.  
  7511.  
  7512.  
  7513.  
  7514.  
  7515.  
  7516.  
  7517.  
  7518.  
  7519.  
  7520.  
  7521.  
  7522.  
  7523.  
  7524.  
  7525.  
  7526.  
  7527.  
  7528.  
  7529.  
  7530.  
  7531.  
  7532.  
  7533.  
  7534.  
  7535.  
  7536.  
  7537.  
  7538.  
  7539.  
  7540.  
  7541.  
  7542.  
  7543.  
  7544.  
  7545.  
  7546.  
  7547.  
  7548.  
  7549.  
  7550.  
  7551.  
  7552.  
  7553.  
  7554.  
  7555.  
  7556.  
  7557.  
  7558.  
  7559.  
  7560.  
  7561.  
  7562.  
  7563.  
  7564.  
  7565.  
  7566.  
  7567.  
  7568.  
  7569.  
  7570.  
  7571.  
  7572.  
  7573.  
  7574.  
  7575.  
  7576.  
  7577.  
  7578.  
  7579.  
  7580.  
  7581.  
  7582.  
  7583.  
  7584.  
  7585.  
  7586.  
  7587.  
  7588.  
  7589.  
  7590.  
  7591.  
  7592.  
  7593.  
  7594.  
  7595.  
  7596.  
  7597.  
  7598.  
  7599.  
  7600.  
  7601.  
  7602.  
  7603.  
  7604.  
  7605.  
  7606.  
  7607.  
  7608.  
  7609.  
  7610.  
  7611.  
  7612.  
  7613.  
  7614.  
  7615.  
  7616.  
  7617.  
  7618.  
  7619.  
  7620.  
  7621.  
  7622.  
  7623.  
  7624.  
  7625.  
  7626.  
  7627.  
  7628.  
  7629.  
  7630.  
  7631.  
  7632.  
  7633.  
  7634.  
  7635.  
  7636.  
  7637.  
  7638.  
  7639.  
  7640.  
  7641.  
  7642.  
  7643.  
  7644.  
  7645.  
  7646.  
  7647.  
  7648.  
  7649.  
  7650.  
  7651.  
  7652.  
  7653.  
  7654.  
  7655.  
  7656.  
  7657.  
  7658.  
  7659. @@@@@@@@
  7660.  
  7661.  
  7662.  
  7663.  
  7664.  
  7665.  
  7666.  
  7667.  
  7668.  
  7669.  
  7670.  
  7671.  
  7672.  
  7673.  
  7674.  
  7675.  
  7676.  
  7677.  
  7678.  
  7679.  
  7680.  
  7681.  
  7682.  
  7683.  
  7684.  
  7685.  
  7686.  
  7687.  
  7688.  
  7689.  
  7690.  
  7691.  
  7692.  
  7693.  
  7694.  
  7695.  
  7696.  
  7697.  
  7698.  
  7699.  
  7700.  
  7701.  
  7702.  
  7703.  
  7704.  
  7705.  
  7706.  
  7707.  
  7708.  
  7709.  
  7710.  
  7711.  
  7712.  
  7713.  
  7714.  
  7715.  
  7716.  
  7717.  
  7718.  
  7719.  
  7720.  
  7721.  
  7722.  
  7723.  
  7724.  
  7725.  
  7726.  
  7727.  
  7728.  
  7729.  
  7730.  
  7731.  
  7732.  
  7733.  
  7734.  
  7735.  
  7736.  
  7737.  
  7738.  
  7739.  
  7740.  
  7741.  
  7742.  
  7743.  
  7744.  
  7745.  
  7746.  
  7747.  
  7748.  
  7749.  
  7750.  
  7751.  
  7752.  
  7753.  
  7754.  
  7755.  
  7756.  
  7757.  
  7758.  
  7759.  
  7760.  
  7761.  
  7762.  
  7763.  
  7764.  
  7765.  
  7766.  
  7767.  
  7768.  
  7769.  
  7770.  
  7771.  
  7772.  
  7773.  
  7774.  
  7775.  
  7776.  
  7777.  
  7778.  
  7779.  
  7780.  
  7781.  
  7782.  
  7783.  
  7784.  
  7785.  
  7786.  
  7787.  
  7788.  
  7789.  
  7790.  
  7791.  
  7792.  
  7793.  
  7794.  
  7795.  
  7796.  
  7797.  
  7798.  
  7799.  
  7800.  
  7801.  
  7802.  
  7803.  
  7804.  
  7805.  
  7806.  
  7807.  
  7808.  
  7809.  
  7810.  
  7811.  
  7812.  
  7813.  
  7814.  
  7815.  
  7816.  
  7817.  
  7818.  
  7819.  
  7820.  
  7821.  
  7822.  
  7823.  
  7824.  
  7825.  
  7826.  
  7827.  
  7828.  
  7829.  
  7830.  
  7831.  
  7832.  
  7833.  
  7834.  
  7835.  
  7836.  
  7837.  
  7838.  
  7839.  
  7840.  
  7841.  
  7842.  
  7843.  
  7844.  
  7845.  
  7846.  
  7847.  
  7848.  
  7849.  
  7850.  
  7851.  
  7852.  
  7853.  
  7854.  
  7855.  
  7856.  
  7857.  
  7858.  
  7859.  
  7860.  
  7861.  
  7862.  
  7863.  
  7864.  
  7865.  
  7866.  
  7867.  
  7868.  
  7869.  
  7870.  
  7871.  
  7872.  
  7873.  
  7874.  
  7875.  
  7876.  
  7877.  
  7878.  
  7879.  
  7880.  
  7881.  
  7882.  
  7883.  
  7884.  
  7885.  
  7886.  
  7887.  
  7888.  
  7889.  
  7890.  
  7891.  
  7892.  
  7893.  
  7894.  
  7895.  
  7896.  
  7897.  
  7898.  
  7899.  
  7900.  
  7901.  
  7902.  
  7903.  
  7904.  
  7905.  
  7906.  
  7907.  
  7908.  
  7909.  
  7910.  
  7911.  
  7912.  
  7913.  
  7914.  
  7915.  
  7916.  
  7917.  
  7918.  
  7919.  
  7920.  
  7921.  
  7922.  
  7923.  
  7924.  
  7925.  
  7926.  
  7927.  
  7928.  
  7929.  
  7930.  
  7931.  
  7932.  
  7933.  
  7934.  
  7935.  
  7936.  
  7937.  
  7938.  
  7939.  
  7940.  
  7941.  
  7942.  
  7943.  
  7944.  
  7945.  
  7946.  
  7947.  
  7948.  
  7949.  
  7950.  
  7951.  
  7952.  
  7953.  
  7954.  
  7955.  
  7956.  
  7957.  
  7958.  
  7959.  
  7960.  
  7961.  
  7962.  
  7963.  
  7964.  
  7965.  
  7966.  
  7967.  
  7968.  
  7969.  
  7970.  
  7971.  
  7972.  
  7973.  
  7974.  
  7975.  
  7976.  
  7977.  
  7978.  
  7979.  
  7980.  
  7981.  
  7982.  
  7983.  
  7984.  
  7985.  
  7986.  
  7987.  
  7988.  
  7989.  
  7990.  
  7991.  
  7992.  
  7993.  
  7994.  
  7995.  
  7996.  
  7997.  
  7998.  
  7999.  
  8000.  
  8001.  
  8002.  
  8003.  
  8004.  
  8005.  
  8006.  
  8007.  
  8008.  
  8009.  
  8010.  
  8011.  
  8012.  
  8013.  
  8014.  
  8015.  
  8016.  
  8017.  
  8018.  
  8019.  
  8020.  
  8021.  
  8022.  
  8023.  
  8024.  
  8025.  
  8026.  
  8027.  
  8028.  
  8029.  
  8030.  
  8031.  
  8032.  
  8033.  
  8034.  
  8035.  
  8036.  
  8037.  
  8038.  
  8039.  
  8040.  
  8041.  
  8042.  
  8043.  
  8044.  
  8045.  
  8046.  
  8047.  
  8048.  
  8049.  
  8050.  
  8051.  
  8052.  
  8053.  
  8054.  
  8055.  
  8056.  
  8057.  
  8058.  
  8059.  
  8060.  
  8061.  
  8062.  
  8063.  
  8064.  
  8065.  
  8066.  
  8067.  
  8068.  
  8069.  
  8070.  
  8071.  
  8072.  
  8073.  
  8074.  
  8075.  
  8076.  
  8077.  
  8078.  
  8079.  
  8080.  
  8081.  
  8082.  
  8083.  
  8084.  
  8085.  
  8086.  
  8087.  
  8088.  
  8089.  
  8090.  
  8091.  
  8092.  
  8093.  
  8094.  
  8095.  
  8096.  
  8097.  
  8098.  
  8099.  
  8100.  
  8101.  
  8102.  
  8103. @@@@@@@@
  8104.  
  8105.  
  8106.  
  8107.  
  8108.  
  8109.  
  8110.  
  8111.  
  8112.  
  8113.  
  8114.  
  8115.  
  8116.  
  8117.  
  8118.  
  8119.  
  8120.  
  8121.  
  8122.  
  8123.  
  8124.  
  8125.  
  8126.  
  8127.  
  8128.  
  8129.  
  8130.  
  8131.  
  8132.  
  8133.  
  8134.  
  8135.  
  8136.  
  8137.  
  8138.  
  8139.  
  8140.  
  8141.  
  8142.  
  8143.  
  8144.  
  8145.  
  8146.  
  8147.  
  8148.  
  8149.  
  8150.  
  8151.  
  8152.  
  8153.  
  8154.  
  8155.  
  8156.  
  8157.  
  8158.  
  8159.  
  8160.  
  8161.  
  8162.  
  8163.  
  8164.  
  8165.  
  8166.  
  8167.  
  8168.  
  8169.  
  8170.  
  8171.  
  8172.  
  8173.  
  8174.  
  8175.  
  8176.  
  8177.  
  8178.  
  8179.  
  8180.  
  8181.  
  8182.  
  8183.  
  8184.  
  8185.  
  8186.  
  8187.  
  8188.  
  8189.  
  8190.  
  8191.  
  8192.  
  8193.  
  8194.  
  8195.  
  8196.  
  8197.  
  8198.  
  8199.  
  8200.  
  8201.  
  8202.  
  8203.  
  8204.  
  8205.  
  8206.  
  8207.  
  8208.  
  8209.  
  8210. {$60}
  8211.  
  8212.  
  8213.  
  8214.  
  8215.  
  8216.  
  8217.  
  8218.  
  8219.  
  8220.  
  8221.  
  8222.  
  8223.  
  8224.  
  8225.  
  8226.  
  8227.  
  8228.  
  8229.  
  8230.  
  8231.  
  8232.  
  8233.  
  8234.  
  8235.  
  8236.  
  8237.  
  8238.  
  8239.  
  8240.  
  8241.  
  8242.  
  8243.  
  8244.  
  8245.  
  8246.  
  8247.  
  8248.  
  8249.  
  8250.  
  8251.  
  8252.  
  8253.  
  8254.  
  8255.  
  8256.  
  8257.  
  8258.  
  8259.  
  8260.  
  8261.  
  8262.  
  8263.  
  8264.  
  8265.  
  8266.  
  8267.  
  8268. ,cf,ff,91, 799
  8269. E:V 03,e6,03,d0,02,e6, 676
  8270. {$e2}:W 04,24,90,50,f1,a5, 670
  8271. ~:X 03,85,05,a5,04,85, 443
  8272. ;Y 06,4c,cc,ff,60,cc, 841
  8273. 9;Z cc,7f,7f,7f,20,20, 649
  8274. v;{$7b} 7f,7f,20,20,7b,7b, 564
  8275. S;{$7c} 00,20,7f,7f,20,28, 358
  8276. ;{$7d} 7f,7e,80,a0,bf,ff, 987
  8277. {CBM-S};{$7e} a4,41, 402
  8278. N39 54,45,49,54,59,50, 479
  8279. {$eb}3: 3a,20,df,df,a2,00, 698
  8280. 4; bd,da,c7,20,d2,ff, 1103
  8281. '4< e8,e0,0a,d0,f5,ea, 1153
  8282. d4= a2,00,20,cf,ff,c9, 857
  8283. A4> 00,f0,f9,9d,40,02, 712
  8284. {$7f}4? e8,86,fb,c9,0d,d0, 1039
  8285. 4@ ef,ea,a9,2c,9d,3f, 906
  8286. {CBM-O}4a 02, 194
  8287. {CBM-W}> 5f,5f,00,00,5f,5f, 380
  8288. P> 00,00,5f,5f,00,00, 190
  8289. {$ed}> 5f,5f,00,00,5f,5f, 380
  8290.  
  8291. ? 00,00,5f,5f,00,00, 190
  8292. '? 5f,5f,00,00,5e,5e, 378
  8293. d? 00,00,5f,5f,00,00, 190
  8294. A? 5f,5f,00,00,5f,5f, 380
  8295. {$7e}? 00,00,5f,5f,00,00, 190
  8296. ?  5f,1f,00,0047,45,4e,20, 395
  8297. M7\ 2d,20,43,3d,20,44, 305
  8298. {$ea}7] 52,55,45,43,4b,45, 447
  8299. 8^ 4e,92,4e,a2,00,bd, 653
  8300. %8_ a1,c8,20,d2,ff,e8, 1090
  8301. b8{$60} e0,25,d0,f5,ea,20, 980
  8302. {$60}8A e0,e4,4c,db,c8,ea, 1181
  8303. {$7e}8B ea,ea,ea,ea,ea,a6, 1336
  8304. 8C fb,ea,a9,2c,9d,40, 919
  8305. {CBM-U}8
  8306.  
  8307.  
  8308. {$f4}780,0:65493:
  8309.  
  8310.  
  8311. 738
  8312. ?
  8313. i{CBM-W}{CBM-R}C(fi$){CBM-M}J(fi$,i,1){CBM-W}{CBM-E}" "{CBM-M}i{CBM-R}i{CBM-N}1:270
  8314. \
  8315. fi${CBM-R}H(fi$,i{CBM-Q}1):300:240
  8316. N
  8317. "410:50387:
  8318. {$7f}
  8319. ,fi${CBM-R}fa${CBM-M}290
  8320. {CBM-K}
  8321. 657812"/"{CBM-N}fi${CBM-N}".exe",8,1:500
  8322. {CBM-P}
  8323. @st{CBM-W}{CBM-E}64{CBM-M}
  8324. {$e5}
  8325. jfa${CBM-R}fi$:51698,0:50489,B(781):50490,B(782):290
  8326. t4096,cpv1.1mc,"0,a0,bf,ff,a0,a0, 1086
  8327. L;{$7f} bf,bf,a0,a0,bf,bf, 1084
  8328. {$ea}; a0,a0,bf,bf,a0,a0, 1022
  8329. < bf,bf,a0,a0,bf,bf, 1084
  8330. &< a0,a0,bf,bf,a0,a0, 1022
  8331. d< bf,bf,a0,a0,bf,bf, 1084
  8332. B< a0,a0,bf,bf,a0,a0, 1022
  8333. < bf,bf,a0,a0,bf,bf, 1084
  8334. < a0,a0,bf,bf,a0,
  8335. e8,a0,00,b9,e4, 807
  8336. W4b c7,20,d2,ff,c8,c0, 1088
  8337. {$f4}4c 09,d0,f5,ea,a0,00, 856
  8338. 5d 20,cf,ff,c9,00,f0, 935
  8339. .5e f9,9d,3f,02,86,fb, 856
  8340. k5f ea,4c,5f,c8,93,11, 769
  8341. H5g 00,4f,52,49,47,49, 378
  8342. 5h 4e,41,4c,44,49,53, 443
  8343. {CBM-I}5i 4b,20,45,49,4e,4c, 403
  8344. {CBM-B},5f,00, 221
  8345. {CBM-C}?{CBM-G} **************************
  8346. {SHIFT--}?{CBM-N} **** save-programm daten *
  8347. {$fa}?{CBM-H} a2,08,20,ba,ff,a9, 812
  8348. @{CBM-J} 0c,a2,60,a0,02,20, 464
  8349. 5@{CBM-L} bd,ff,a9,fb,a2,55, 1111
  8350. r@{CBM-Y} a0,ca,20,d8,ff,60, 961
  8351. M@{CBM-U} 00,00,00,00,00,00, 0
  8352. @{CBM-O} 00,00,44,49,53,4b, 299
  8353. {CBM-M}@{SHIFT-@}D 02,e8,a9,57,9d,40, 711
  8354. V8E 02,e8,86,fb,ea,a9, 1022
  8355. {$f3}8F 02,a2,08,a0,02,20, 366
  8356. 9G ba,ff,a5,fb,a2,40, 1083
  8357. .9H a0,02,20,bd,ff,20, 670
  8358. k9I c0,ff,a9,00,85,03, 752
  8359. H9J a9,0c,85,04,20,20, 382
  8360. 9K c9,a9,02,20,c3,ff, 854
  8361. {CBM-I}9L 4c,0d,c0,ea,ea,ea0, 1022
  8362. {CBM-C}< bf,bf,a1,a1,bf,bf, 1086
  8363. Z< a0,a0,bf,bf,a0,a0, 1022
  8364. {$f8}< bf,bf,a0,a0,bf,bf, 1084
  8365. = a0,a0,bf,bf,a0,a0, 1022
  8366. 4= bf,bf,a0,a0,bf,bf, 1084
  8367. r= a0,a0,bf,bf,a0,a0, 1022
  8368. P= bf,bf,a0,a0,bf,bf, 1084
  8369. = a0,a0,bf,bf,a0,a0, 1022
  8370. {CBM-D}=5j 45,47,45,4e,20,2d, 364
  8371. {CBM--}5k 20,43,3d,20,44,52, 342
  8372. {$f9}5l 55,45,43,4b,45,4e, 443
  8373. 6m 92,a2,00,ea,bd,38, 787
  8374. 46n c8,20,d2,ff,e8,e0, 1153
  8375. q6o 27,d0,f5,ea,20,e0, 982
  8376. O6p e4,ea,ea,ea,ea,ea, 1398
  8377. 6q a9,02,a2,08,a0,02, 503
  8378. {CBM-N}6r 20,ba,ff,a5,fb, 20,4d,4f,4e,49,54, 423
  8379. {CBM-U}@{CBM-F} 4f,52, 161
  8380. Y@P diskmonitor ============64
  8381. {$fa}@Z 38911 bytes memory    ====
  8382. a{$e4} 14795 bytes program   ====
  8383. <a{$ee} 00091 bytes variables ====
  8384. ]a{$f8} 00387 bytes arrays    ====
  8385. {$7e}a 00000 bytes strings   ====
  8386. a 23638 b
  8387. a, 983
  8388. {CBM-B}9M ea,ea,a2,02,20,c9, 865
  8389. {CBM--}9N ff,c6,01,a0,00,38, 670
  8390. {$f9}9O a5,03,e5,05,a5,04, 571
  8391. :P e5,06,b0,0d,b1,03, 604
  8392. 3:Q 20,d2,ff,e6,03,d0, 938
  8393. q:R ec,e6,04,d0,e8,e6, 1140
  8394. N:S 01,4c,cc,ff,4c,49, 685
  8395. :T c9,a2,02,20,c6,ff, 850
  8396. {CBM-POUND}:U a0,00,20syscon64"
  8397. ^pr:a{CBM-R}pr{CBM-Q}1:400
  8398. 0Hah{CBM-R}B(56){CBM-P}al{CBM-R}B(55){CBM-M}
  8399. dR55,al:56,ah:
  8400. ^{$7c}pr:f$:490:f$:490
  8401. Z65028,255:65029,191:
  8402. ah{CBM-R}{CBM-J}(a{CBM-Z}256):al{CBM-R}a{CBM-Q}256{CBM-D}ah:
  8403. Ka{CBM-R}256{CBM-D}(B(50490){CBM-N}B(4097)){CBM-N}B(50489){CBM-N}B(4096):400
  8404. {$e5}{CBM-@}65026,al:65027,ah:
  8405. {$f6}{$ea}57812f$,8,1
  8406.  
  8407.  bf,bf,a0,a0,bf,bf, 1084
  8408. J= a0,a0,bf,bf,a0,a0, 1022
  8409. {$e8}= bb,bb,a0,a0,bf,bf, 1076
  8410. > a8,a8,bf,bf,5f,5f, 908
  8411. "> 00,00,5f,5f,00,00, 190
  8412. ?> 5f,5f,00,04,5f,5f, 384
  8413. \> 00,00,5f,5f,04,04, 198
  8414. Y> 5f,5f,00,00,5f,5f, 380
  8415. > 00,04,5f,5f,00,00,a2, 1051
  8416. G6s 40,a0,02,20,bd,ff, 702
  8417. {$e4}6t 20,c0,ff,ea,a9,00, 882
  8418. 7u 85,03,a9,0c,85,04, 454
  8419. 7v 20,49,c9,a9,02,20, 509
  8420. <7w c3,ff,ea,ea,4c,c7, 1193
  8421. y7x c8,13,11,11,11,00, 270
  8422. V7y 5a,49,45,4c,44,49, 449
  8423. 7z 53,4b,20,45,49,4e, 410
  8424. {CBM-A}7[ 4c,45,
  8425. 8ytes free      ====
  8426. {SHIFT-*}a ==========================
  8427.  
  8428.  
  8429.  save-programm daten *
  8430. {$fa}?{CBM-H} a2,08,20,ba,ff,a9, 812
  8431. @{CBM-J} 0c,a2,60,a0,02,20, 464
  8432. 5@{CBM-L} bd,ff,a9,fb,a2,55, 1111
  8433. r@{CBM-Y} a0,ca,20,d8,ff,60, 961
  8434. M@{CBM-U} 00,00,00,00,00,00, 0
  8435. @{CBM-O} 00,00,44,49,53,4b, 299
  8436. {CBM-M}@{SHIFT-@}
  8437. rn$I("   "{CBM-N}D(p1(q)),3)rf$
  8438. &Dat,32,zq:oe$rn$I("   "{CBM-N}D(sn(q)),3)rf$;
  8439. nN" "oe$rn$I("   "{CBM-N}D(p2(q)),3)rf$bk$
  8440. ]X q: 1700
  8441. {$7d} -------------------------
  8442.   feld waehlen mit tasten
  8443. {CBM-C} -------------------------
  8444. {$e3} zs{CBM-R}88:1179,zs:55451,180:11
  8445. 0
  8446. {CBM-*}>a{CBM-R}0:h{CBM-R}0
  8447. {$ec}h x6{CBM-R}1{CBM-@}7
  8448. ra{CBM-R}a{CBM-N}1:B(sz{CBM-N}h{CBM-Q}6){CBM-W}{CBM-E}zs{CBM-M}a{CBM-R}0
  8449. \h{CBM-R}h{CBM-N}2
  8450.  Fa{CBM-R}3{CBM-M}w{CBM-R}1
  8451. .Pa{CBM-E}3{CBM-M} w{CBM-R}0
  8452. bZx6:wx{CBM-R}wx{CBM-N}w:w{CBM-R}0
  8453. rw{CBM-R}0:a{CBM-R}0:h{CBM-R}0
  8454. Mzs{CBM-R}83{CBM-M}za${CBM-R}D(wx):2200
  8455. {$7b}zb${CBM-R}D(wx)
  8456. wx{CBM-R}0{CBM-M}za${CBM-R}"":zb${CBM-R}""
  8457. {CBM-H}{CBM-I}at,0,3:b3$;:at,32,3:b2$;
  8458. T{CBM-D}at,0,3:za$;:at,31,3:
  8459. c2$cl$
  8460. {$e4}at,8,3:bl$"UCCCCCCCCCCCCCCCCCCCCCI"
  8461. +{$ee}{CBM-T}8)"B";
  8462. d{$f8}i{CBM-R}1{CBM-@}11:z5$"B";::
  8463. t{CBM-T}8)"BCUC";
  8464. Qi{CBM-R}1{CBM-@}8:zh$"C";::"ICB"
  8465. i{CBM-R}1{CBM-@}8:{CBM-T}8)aa$
  8466.  {CBM-T}8)bb$:
  8467. *{CBM-T}8)aa$
  8468. {CBM-S}4{CBM-T}8)"BCJC";
  8469. K>i{CBM-R}1{CBM-@}8:zg$"C";::"KCB"
  8470. Xh{CBM-T}8)"B";
  8471. {$f1}ri{CBM-R}1{CBM-@}11:z5$"B"
  8472. -----------------------
  8473. {CBM-U}a{CBM-R}0:b{CBM-R}0:h{CBM-R}0:w{CBM-R}0
  8474. Bwx{CBM-R}wx{CBM-Q}1:wx{CBM-W}0{CBM-M}wx{CBM-R}0
  8475. 'L x1{CBM-R}1{CBM-@}9
  8476. qVa{CBM-R}a{CBM-N}1:b{CBM-R}b{CBM-N}1:B(sp{CBM-N}h{CBM-N}40){CBM-W}{CBM-E}zs{CBM-M}a{CBM-R}0:b{CBM-R}b{CBM-Q}1
  8477. \ h{CBM-R}h{CBM-N}80
  8478. I{$ea}a{CBM-R}9{CBM-M}w{CBM-R}3
  8479. {$7d}{$f4}x1:wx{CBM-R}wx{CBM-N}w:w{CBM-R}0
  8480. {$fe}b{CBM-W}3{CBM-M} 1970
  8481. b{CBM-W}6{CBM-M}1870
  8482. {CBM-A}a{CBM-R}0:h{CBM-R}0: x2{CBM-R}1{CBM-@}13
  8483. Oa{CBM-R}a{CBM-N}1:B(sz{CBM-N}h{CBM-Q}480){CBM-W}{CBM-E}zs{CBM-M}a{CBM-R}0
  8484. Z&h{CBM-R}
  8485.  
  8486. 160
  8487. ~vz{CBM-R}2{CBM-M} zs{CBM-R}88:1440
  8488. {$60}zs{CBM-R}83{CBM-M}1160
  8489. A1440
  8490. 9J -------------------------
  8491. wT    feld waehlen mit joy
  8492. W{$7e} -------------------------
  8493. zs{CBM-R}83:1147,zs:55419,180:1179,32
  8494. {CBM-A}{CBM-K}a$:jo{CBM-R}B(145)
  8495. Mjo{CBM-R}254{CBM-M}ze{CBM-R}ze{CBM-Q}80:z1{CBM-R}z1{CBM-Q}2
  8496. {$ea}jo{CBM-R}253{CBM-M}ze{CBM-R}ze{CBM-N}80:z
  8497. ********* zeichenfolgen *
  8498. {$f2}"{$e2} q{CBM-R}1 {CBM-@} 40
  8499. #{$ec}qd${CBM-R}qd${CBM-N}c4$:qr${CBM-R}qr${CBM-N}c3$
  8500. #{$f6}q:b${CBM-R}G(32)
  8501. 9#
  8502.  
  8503. b2${CBM-R}b${CBM-N}b$:b3${CBM-R}b2${CBM-N}b$:
  8504. y#
  8505.  
  8506.  =stradenk===========ende=
  8507.  
  8508.  
  8509. =======
  8510. !v * farbcodes/steuercodes *
  8511. {CBM-K}!{$60}c4${CBM-R}G(017):rn${CBM-R}G(018)
  8512. {CBM-F}!Jre${CBM-R}G(028):c3${CBM-R}G(029)
  8513. U!Tgr${CBM-R}G(030):b
  8514. 47,32
  8515. {CBM-N}{CBM-K}a$:a${CBM-R}G(145){CBM-M}ze{CBM-R}ze{CBM-Q}80:z1{CBM-R}z1{CBM-Q}2
  8516. &{CBM-H}a${CBM-R}G(17){CBM-M}ze{CBM-R}ze{CBM-N}80:z1{CBM-R}z1{CBM-N}2
  8517. d{CBM-V}a${CBM-R}G(29){CBM-M}sp{CBM-R}sp{CBM-N}2:s1{CBM-R}s1{CBM-N}2
  8518. CHa${CBM-R}G(157){CBM-M}sp{CBM-R}sp{CBM-Q}2:s1{CBM-R}s1{CBM-Q}2
  8519. WRa${CBM-R}G(32){CBM-M} 1580
  8520. {CBM--}ze{CBM-W}1213{CBM-M}ze{CBM-R}1213:z1{CBM-R}4
  8521. {CBM-D}{$e6}ze{CBM-E}1853{CBM-M}ze{CBM-R}1853:z1{CBM-R}20
  8522. G{$f0}sp{CBM-W}1155{CBM-M}sp{CBM-R}1155:s1{CBM-R}10
  8523. {$e2}{$fa}sp{CBM-E}1171{CBM-M}sp{CBM-R}1171
  8524.  
  8525. zb$
  8526. {$e8}{CBM-L}p1{CBM-N}p2{CBM-R}81{CBM-M} 2300
  8527. {$f8}{SHIFT-*}wx{CBM-E}0{CBM-M} 1120
  8528.  Jzs{CBM-R}83{CBM-M}1440
  8529.  K1160
  8530. e {$de}at,7,24:"noch eine runde? "{CBM-N}fl${CBM-N}rn${CBM-N}"y"{CBM-N}rf$;
  8531. T {$e8}fo${CBM-N}"es / "{CBM-N}fl${CBM-N}rn${CBM-N}"n"{CBM-N}rf${CBM-N}fo${CBM-N}"o":2320
  8532. {CBM-+} {$fc}at,7,24:"noch ein spiel? "{CBM-N}fl${CBM-N}rn${CBM-N}"j"{CBM-N}rf$;
  8533. P fo${CBM-N}"a / "{CBM-N}fl${CBM-N}rn${CBM-N}"n"{CBM-N}rf${CBM-N}fo${CBM-N}"ei
  8534. ;::
  8535. \{CBM-T}8)"JCCCCCCCCCCCCCCCCCCCCCK"bk$
  8536. 7F --------------------------
  8537. kP         titel
  8538. LZ --------------------------
  8539. {CBM-T}at,0,0:re$rn$" "H(na$(1){CBM-N}"         ",9)" "rf$bk$
  8540. Hat,13,0:gr$"ewwv programm"bk$;
  8541. at,27,0:" "oe$rn$" "H(na$(2
  8542. h{CBM-N}80
  8543. {$e8}0a{CBM-R}6{CBM-M} w{CBM-R}2
  8544. {$f6}:a{CBM-E}6{CBM-M} w{CBM-R}0
  8545.  
  8546. dx2:wx{CBM-R}wx{CBM-N}w:w{CBM-R}0
  8547. na{CBM-R}0:h{CBM-R}0
  8548. #x x3{CBM-R}1{CBM-@}7
  8549. bBa{CBM-R}a{CBM-N}1:B(sz{CBM-N}h{CBM-Q}240){CBM-W}{CBM-E}zs{CBM-M}a{CBM-R}0
  8550. mLh{CBM-R}h{CBM-N}80
  8551. zVa{CBM-R}3{CBM-M}w{CBM-R}1
  8552. Ha{CBM-E}3{CBM-M} w{CBM-R}0
  8553. {$7c}x3:wx{CBM-R}wx{CBM-N}w:w{CBM-R}0
  8554.  -------------------------
  8555. {CBM-L}      pruef. waager.
  8556. V{CBM-POUND} -----------------------
  8557. 1{CBM-R}z1{CBM-N}2
  8558. {CBM-+}jo{CBM-R}247{CBM-M}sp{CBM-R}sp{CBM-N}2:s1{CBM-R}s1{CBM-N}2
  8559. "{CBM-A}jo{CBM-R}251{CBM-M}sp{CBM-R}sp{CBM-Q}2:s1{CBM-R}s1{CBM-Q}2
  8560. 4{SHIFT-@}jo{CBM-R}239{CBM-M} 1300
  8561. nDze{CBM-W}1213{CBM-M}ze{CBM-R}1213:z1{CBM-R}4
  8562. INze{CBM-E}1853{CBM-M}ze{CBM-R}1853:z1{CBM-R}20
  8563. Xsp{CBM-W}1155{CBM-M}sp{CBM-R}1155:s1{CBM-R}10
  8564. {$e2}sp{CBM-E}1171{CBM-M}sp{CBM-R}1171:s1{CBM-R}26
  8565. S{$ec}at,s1{CBM-Q}2,z1:bl${CBM-N}"B";:at,s1,z1{CBM-Q}2:"B"{CBM-N}c3${CBM-N}"B";
  8566. {$f3}{$f6}at,s1,z1:
  8567. 0,dc,ea,ea,ad,40, 1133
  8568. {$de}1( 02,0a,0a,0a,0a,18, 66
  8569. {$fb}1) 6d,41,02,8d,40,02, 383
  8570. 2* ad,43,02,0a,0a,0a, 272
  8571. 52+ 0a,18,6d,44,02,8d, 354
  8572. r2, 43,02,ea,ea,ad,48, 782
  8573. O2- 02,c9,2b,f0,0c,ad, 671
  8574. 2. 40,02,ed,43,02,8d, 513
  8575. {SHIFT-POUND}2/ 40,02,4c,c4,c6,ad, 709
  8576.  
  8577. :s1{CBM-R}26
  8578. at,s1{CBM-Q}2,z1:bl${CBM-N}"B";:at,s1,z1{CBM-Q}2:"B"{CBM-N}c3${CBM-N}"B";
  8579. 6at,s1,z1:bk${CBM-N}"("{CBM-N}c3${CBM-N}")";
  8580. Jat,s1{CBM-N}4,z1:bl${CBM-N}"B";:at,s1,z1{CBM-N}2:"B"{CBM-N}c3${CBM-N}"B";
  8581. T"1450
  8582. ,sz{CBM-R}(ze{CBM-Q}29){CBM-N}(sp{CBM-Q}1144):
  8583. {CBM-N}6B(sz){CBM-R}83{CBM-A}B(sz){CBM-R}88{CBM-M}1540
  8584. F@sz,zs:p2{CBM-R}p2{CBM-N}1:p2(y){CBM-R}p2
  8585. Ojzp{CBM-R}6
  8586. {CBM--}t z{CBM-R}1{CBM-@}
  8587. n"
  8588. {$e4} {CBM-K}a$:a${CBM-R}"j"{CBM-M}720
  8589. {$f5} a${CBM-R}"y"{CBM-M}520
  8590. !$a${CBM-R}"n"{CBM-M}2360
  8591. !.2320
  8592. a!8cl$H(qd$,5)H(qr$,9)"das spiel ist beendet!"
  8593. g!b
  8594. G!l nachspann ===============
  8595. !v * farbcodes/steuercodes *
  8596. {CBM-K}!{$60}c4${CBM-R}G(017):rn${CBM-R}G(018)
  8597. {CBM-F}!Jre${CBM-R}G(028):c3${CBM-R}G(029)
  8598. U!Tgr${CBM-R}G(030):b
  8599. ){CBM-N}"         ",9)" "rf$bk$
  8600. {CBM-I}y{CBM-R}y{CBM-N}1:sn{CBM-R}sn{CBM-N}1:sn(y){CBM-R}sn
  8601. 5{CBM-D}at,0,5:"sp./pkt"
  8602. m{CBM-L}at,32,5:"sp./pkt"
  8603. s{SHIFT-*}:
  8604. \Jzp{CBM-R}6
  8605. MTsn{CBM-E}10{CBM-M} 2270
  8606. Z{$de} p{CBM-R}1{CBM-@}10
  8607. {$e8}zp{CBM-R}zp{CBM-N}1
  8608. {CBM-R}{$f2}at,0,zp:re$rn$I("   "{CBM-N}D(sn(p)),3)rf$;
  8609. X{$fc}" "re$rn$I("   "{CBM-N}D(p1(p)),3)rf$;
  8610. at,32,zp:
  8611. --
  8612. {$e6}{CBM-R}h{CBM-R}0:a{CBM-R}0:b{CBM-R}0
  8613. {$f4}{CBM-C} x4{CBM-R}1{CBM-@}18
  8614. Fa{CBM-R}a{CBM-N}1:b{CBM-R}b{CBM-N}1:B(sz{CBM-N}h{CBM-Q}18){CBM-W}{CBM-E}zs{CBM-M}a{CBM-R}0:b{CBM-R}b{CBM-Q}1
  8615. (Ph{CBM-R}h{CBM-N}2
  8616. 5Za{CBM-R}9{CBM-M}w{CBM-R}3
  8617. i{$e4}x4:wx{CBM-R}wx{CBM-N}w:w{CBM-R}0
  8618. x{$ee}b{CBM-W}3{CBM-M} 2180
  8619. F{$f8}b{CBM-W}6{CBM-M}2110
  8620. {$7c}a{CBM-R}0:h{CBM-R}0: x5{CBM-R}1{CBM-@}13
  8621. a{CBM-R}a{CBM-N}1:B(sz{CBM-N}h{CBM-Q}12){CBM-W}{CBM-E}zs{CBM-M}a{CBM-R}0
  8622. {CBM-@}h{CBM-R}h{CBM-N}2
  8623. {CBM-E} a{CBM-R}6{CBM-M}w{CBM-R}2
  8624. {CBM-B}*a{CBM-E}6{CBM-M} w{CBM-R}0
  8625. S4x5:wx{CBM-R}wx{CBM-N}w:w{CBM-R}
  8626.  
  8627. bk${CBM-N}"("{CBM-N}c3${CBM-N}")";
  8628. +
  8629. at,s1{CBM-N}4,z1:bl${CBM-N}"B";:at,s1,z1{CBM-N}2:"B"{CBM-N}c3${CBM-N}"B"{CBM-N}bk$;
  8630. 5
  8631. 1170
  8632. nsz{CBM-R}(ze{CBM-Q}29){CBM-N}(sp{CBM-Q}1144)
  8633. JB(sz){CBM-R}83{CBM-A}B(sz){CBM-R}88{CBM-M}1260
  8634. (sz,zs:p1{CBM-R}p1{CBM-N}1:p1(y){CBM-R}p1
  8635. 2zq{CBM-R}6
  8636. < q{CBM-R}1{CBM-@}10
  8637. {CBM-POUND}fzq{CBM-R}zq{CBM-N}1
  8638. Tpat,0,zq:re$rn$I("   "{CBM-N}D(sn(q)),3)rf$;
  8639. {$f9}z" "re$F20 40,02,18,6d,43,02, 268
  8640. {$e3}21 8d,40,02,4c,c4,c6, 677
  8641. 32 ea,ea,ea,ea,c9,43, 1204
  8642. 33 f0,03,4c,20,c0,20, 575
  8643. <34 cf,ff,c9,00,f0,f9, 1152
  8644. y35 c9,0d,d0,f5,a9,20, 868
  8645. W36 20,d2,ff,4c,f0,c7, 1012
  8646. 37 44,41,54,45,49,4e, 437
  8647. {CBM-E}38 41,4d,45,3a,4
  8648. 10
  8649. {$e8}^zp{CBM-R}zp{CBM-N}1
  8650. Hat,0,zp:re$rn$I("   "{CBM-N}D(sn(z)),3)rf$;
  8651. 9R" "re$rn$I("   "{CBM-N}D(p1(z)),3)rf$
  8652. F{$7c}at,32,zp:oe$rn$I("   "{CBM-N}D(sn(z)),3)rf$;
  8653. " "oe$rn$I("   "{CBM-N}D(p2(z)),3)rf$bk$
  8654.  z
  8655. {CBM-L} -------------------------
  8656. O{CBM-@}      pruef. senkr.
  8657. {$ef}{CBM-S} --
  8658. l${CBM-R}G(031)
  8659. {$ef}!{$7e}oe${CBM-R}G(129):fl${CBM-R}G(130)
  8660. "fo${CBM-R}G(132):bk${CBM-R}G(144)
  8661. #"c2${CBM-R}G(145):rf${CBM-R}G(146)
  8662. ;"cl${CBM-R}G(147):at{CBM-R}49152
  8663. ["{CBM-+} *** zeichensatz/graphik *
  8664. U"{CBM-A}s2${CBM-R}G(160):z5${CBM-R}G(166)
  8665. "{SHIFT-@}z7${CBM-R}G(168):za${CBM-R}G(171)
  8666. {SHIFT-POUND}"Dzg${CBM-R}G(177):zh${CBM-R}G(178)
  8667. C"Nzi${CBM-R}G(179):ym${CBM-R}G(219)
  8668. {$e3}"X 
  8669. oe$rn$I("   "{CBM-N}D(sn(p)),3)rf$;
  8670. -" "oe$rn$I("   "{CBM-N}D(p2(p)),3)rf$bk$
  8671. \at,0,19:"ges-pkt";:at,32,19:"ges-pkt";
  8672. $at,0,21:re$rn$I("      "{CBM-N}D(pa),6)b2$rf$
  8673. {CBM-O}.at,32,21:oe$rn$I("      "{CBM-N}D(pb),6)b2$rf$
  8674. A8 p
  8675. Sbz{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}2){CBM-N}1
  8676. {$e9}lz{CBM-R}1{CBM-M} zs{CBM-R}83:12,e9,30, 754
  8677. {CBM-*},{$fc} 8d,40,02,ad,41,02, 447
  8678. {$fc},{$fd} e9,30,8d,41,02,ad, 662
  8679. -{$fe} 42,02,e9,30,8d,42, 556
  8680. 6-~ 02,ea,d8,a2,00,ad, 787
  8681. s-
  8682.  40,02,18,6d,40,02, 265
  8683. Q- e8,e0,63,d0,f7,8d, 1151
  8684. - 40,02,ea,d8,a2,00, 678
  8685. {CBM-Q}- ad,41,02,18,6d,41, 438
  8686. H- 0219,c0, 576
  8687. {$eb}%{CBM-B} c9,44,f0,03,4c,14, 608
  8688. &{SHIFT-*} c5,4c,d3,c5,c9,24, 918
  8689. %&A f0,03,4c,1e,c5,4c, 622
  8690. b&B 30,c5,c9,23,f0,03, 724
  8691. _&C 4c,28,c5,4c,60,c6, 683
  8692. {$7c}&D c9,3d,f0,03,4c,c0, 773
  8693. &E c7,4c,3b,c7,ea,ea, 1001
  8694. {CBM-Y}&F ea,a2,00,20,cf,ff, 890
  8695. T&G c9,0
  8696. ,e8,c9,0d, 669
  8697. Y0 d0,f1,ea,ad,42,02, 924
  8698. {$f6}0  8d,48,02,ea,ea,ea, 917
  8699. 1! a2,00,bd,40,02,c9, 618
  8700. 01" 3a,90,04,c9,39,b0, 640
  8701. m1# 0e,d8,e9,2f,9d,40, 731
  8702. J1$ 02,e8,e0,05,d0,ea, 905
  8703. 1% 4c,7c,c7,d8,e9,37, 903
  8704. {CBM-@}1& 9d,40,02,e8,e0,05, 684
  8705. B1' d#
  8706.  
  8707.  stradenk================c64
  8708. <
  8709.  (p) commodore disc
  8710. ^
  8711.  ===========================
  8712. (
  8713.  (c) by e.-w. wolters   v3.5
  8714. {CBM-I}2
  8715.  (v) a.m.               v2.0
  8716. {CBM-POUND}<
  8717.  
  8718. {CBM-O}f
  8719.  basic v2.0
  8720. Xp
  8721.  c64 (sysmc erforderlich)
  8722. {$fa}z
  8723.  ===========================
  8724. [
  8725. 0,f0,f9, 1152
  8726. {$e6}){$e2} c9,0d,d0,f5,a9,20, 868
  8727. *{$e3} 20,d2,ff,e8,e0,25, 990
  8728. !*{$e4} d0,f6,ea,ea,ea,ea, 1390
  8729. ?*{$e5} ea,ea,a9,24,85,fb, 1057
  8730. \*{$e6} a9,fb,85,bb,a9,00, 909
  8731. Y*{$e7} 85,bc,a9,01,85,b7, 807
  8732. *{$e8} a9,08,85,ba,a9,60, 761
  8733. {CBM-W}*{$e9} 85,b9,20,d5,f3,a5, 971
  8734. Q*{$ea} iel fuer 2 Personen"
  8735. ?"H(qr$,11)c4$c4$bl$"copyr.by E.W.Wolters"bk$
  8736. W,c3$H(qd$,6)"Gespielt wird mit'Joy' u.'Cursortast.'
  8737. {CBM-P}6c4$c4$c3$c3$"Zur Spielanleitung 'Space' druecken!"
  8738. Fj{CBM-K}a$:a${CBM-W}{CBM-E}G(32){CBM-M}330
  8739. {$f2}tcl$H(qr$,6)"S"s2$"P"s2$"I"s2$"E L"s2$;
  8740. ,^hen neben.- oder untereinander
  8741. cLH(qr$,4)c4$"ergibt  2  Zeichen zusaetzlich!
  8742. XVc3$c4$c4$"9  Zeichen neben.- oder untereinander
  8743. {SHIFT-POUND} H(qr$,4)c4$"ergibt  3  Zeichen zusaetzlich!
  8744. {SHIFT-+}{$ea}at,9,24:rn${CBM-N}" * Weiter mit 'Space' * "{CBM-N}rf$;
  8745. {$f2}{$fe}{CBM-K}a$:a${CBM-W}{CBM-E}G(32){CBM-M}510
  8746. 0,f0,f9,9d,40, 911
  8747. {$f1}&H 02,e8,c9,0d,d0,f1, 897
  8748. 'I ea,d8,ad,40,02,c9, 890
  8749. +'J 3a,90,03,18,69,09, 343
  8750. g'K 29,0f,0a,0a,0a,0a, 96
  8751. D'L 8d,40,02,ad,41,02, 447
  8752. 'M c9,3a,90,03,18,69, 535
  8753. 'N 09,29,0f,6d,40,02, 240
  8754. {CBM-F}'O 8d,40,02,ea,ea,ea, 909
  8755. X'P,e8,e0,09,d0,f7, 922
  8756. {$e5}- 8d,41,02,ea,ea,ad, 849
  8757. . 40,02,18,6d,41,02, 266
  8758. . 18,6d,42,02,8d,40, 406
  8759. <. 02,ea,ea,ea,ad,40, 941
  8760. y. 02,8d,43,02,18,4a, 310
  8761. V.
  8762.  4a,4a,4a,8d,40,02, 429
  8763. . ea,ad,43,02,18,0a, 510
  8764. {CBM-A}. 0a,0a,0a,18,4a,4a, 202
  8765. M
  8766. 57812"sysmc",8,0:780,0
  8767. 4\
  8768. 781,254:782,191:65493
  8769. s]
  8770. 53280,13:53281,13:646,6
  8771. ^D
  8772.  2380
  8773. TN
  8774. a${CBM-R}"B"{CBM-N}z5$:aa${CBM-R}a$
  8775. X
  8776. i{CBM-R}1{CBM-@}9:aa${CBM-R}aa${CBM-N}"B ":
  8777. {CBM-K}
  8778. aa${CBM-R}aa${CBM-N}a${CBM-N}"B"
  8779. B
  8780. bb${CBM-R}"BC"{CBM-N}za${CBM-N}"C":a${CBM-R}zi${CBM-N}"CB"
  8781. {$ea}
  8782. i{CBM-R}1{CBM-@}8:bb${CBM-R}bb${CBM-N}ym${CBM-N}"C"::bb${CBM-R}bb${CBM-N}a$
  8783. {$fb} 
  8784. cl$;:G(14)
  8785. ba,20,b4,ff,a5,b9, 1003
  8786. {$ee}*{$eb} 20,96,ff,a9,00,85, 739
  8787. +{$ec} 90,a0,03,84,fb,20, 722
  8788. )+{$ed} a5,ff,85,fc,a4,90, 1113
  8789. f+{$ee} d0,2f,20,a5,ff,a4, 871
  8790. C+{$ef} 90,d0,28,a4,fb,88, 943
  8791. +{$f0} d0,e9,a6,fc,20,cd, 1096
  8792. +{$f1} bd,a9,20,20,d2,ff, 887
  8793. {CBM-F}+{$f2} 20,a5,ff,a6,90,d0, "A"s2$"N"s2$"L"s2$"E"s2$"I"s2$"T"s2$"U"s2$"N"s2$"G "
  8794. ^Hc4$c3$"Setzen Sie abwechselnd ein Zeichen in
  8795. Rc3$"das Spielfeld. Jedes Zeichen ergibt
  8796. {SHIFT-@}{$7c}c3$"einen PUNKT. versuchen Sie moeglichst
  8797. {$e8}c3$"3, 6, o.9 Zeichen nebeneinander oder
  8798.  
  8799. c3$"unte
  8800. 2380:cl$;
  8801. r1${CBM-R}G(18)
  8802. $sp{CBM-R}1163:ze{CBM-R}1533
  8803. 4&s1{CBM-R}18:z1{CBM-R}12
  8804. s0 p1(60): p2(60): sn(11)
  8805. K:53280,13:53281,13
  8806. WdG(142)
  8807. {CBM-+}nc4$H(qr$,5)"namen eingeben dann 'return'"
  8808. {CBM-A}xzm{CBM-R}10
  8809. FB x{CBM-R}1 {CBM-@} 2:zm{CBM-R}zm{CBM-N}3
  8810. XL{CBM-K} a$:l{CBM-R}C(na$)
  8811. V a${CBM-R}G(20){CBM-P} l{CBM-E}0 {CBM-M} n ea,ae,40,02,a9,00, 643
  8812. {$f5}'Q 85,02,86,03,85,04, 409
  8813. (R 85,05,85,06,f8,a0, 685
  8814. /(S 10,a2,03,06,03,26, 228
  8815. l(T 02,b5,03,75,03,95, 455
  8816. J(U 03,ca,d0,f7,88,d0, 1004
  8817. (V ee,d8,a5,04,a6,05, 794
  8818. {CBM-G}(W a4,06,ea,ea,ea,ea, 1106
  8819. B(X ea,a9,3d,20,16,e7,.
  8820.  4a,4a,8d,43,02,ea, 592
  8821. {$eb}. ea,ea,ea,ea,ea,ea, 1404
  8822. / ea,a9,3d,20,16,e7, 749
  8823. %/ a9,20,20,16,e7,ea, 720
  8824. b/ ad,40,02,c9,00,f0, 680
  8825. _/ 08,c9,0a,90,04,c9, 568
  8826. {$7c}/ 09,b0,09,18,69,30, 371
  8827. / 20,16,e7,4c,17,c7, 583
  8828. {CBM-L}/ 18,69,37,20,16,e
  8829. {CBM-H}
  8830. m{CBM-R}0{CBM-@}39
  8831. #
  8832. {CBM-V}
  8833. 1024{CBM-N}m,102:1984{CBM-N}m,102
  8834. 1
  8835. H
  8836. s{CBM-R}1{CBM-@}6:s
  8837. 8
  8838. R
  8839. m
  8840. d
  8841. {CBM--}
  8842. m{CBM-R}1{CBM-@}23
  8843. o
  8844. {$e6}
  8845. l{CBM-R}l{CBM-N}40
  8846. K
  8847. {$f0}
  8848. 1024{CBM-N}l,102:1063{CBM-N}l,102
  8849. R
  8850. {$fa}
  8851. m
  8852. {CBM-T}
  8853. at,13,3:"S"s2$"T R A"s2$"D"s2$"E"s2$"N K";
  8854.  
  8855. at,13,4:z7$z7$z7$z7$z7$z7$z7$z7$z7$z7$z7$z7$z7$z7$z7$;
  8856. at,5,6:"Strategiesp
  8857. 970
  8858. X+{$f3} 00,aa,f0,06,20,d2, 658
  8859. {$f5}+{$f4} ff,4c,3c,c6,a9,0d, 771
  8860. ,{$f5} 20,d2,ff,a0,02,d0, 867
  8861. /,{$f6} c6,20,42,f6,4c,0d, 631
  8862. m,{$f7} c0,ea,ea,ea,ea,ea, 1362
  8863. J,{$f8} a2,00,20,cf,ff,c9, 857
  8864. ,{$f9} 00,f0,f9,9d,40,02, 712
  8865. {CBM-G},{$fa} e8,c9,0d,d0,f1,ea, 1129
  8866. B,{$fb} ea,ad,40,0reinander zu setzen und zu verhin-
  8867. h
  8868. c3$"dern, dass Ihrem Gegner dieses gelingt
  8869. Z
  8870. {CBM-@}c3$"Zeichen setzen m.'Feuerkn.' bzw.'Space'"
  8871. {CBM-D}
  8872. {CBM-S}c3$c4$"3  Zeichen neben.- oder untereinander
  8873. {SHIFT--}
  8874. {CBM-U}H(qr$,4)c4$"ergibt  1  Zeichen zusaetzlich!
  8875. Bc3$c4$c4$"6  Zeic
  8876. a${CBM-R}H(na$,l{CBM-Q}1): 670
  8877. !a${CBM-E}"@"{CBM-P}a${CBM-W}"["{CBM-M}na${CBM-R}na${CBM-N}a$
  8878. = l{CBM-R}10 {CBM-M} a${CBM-R}G(20): 630
  8879. Aat,2,zm{CBM-Q}1:"name spieler "x":"
  8880. at,20,zm:c2$na$rn$G(95)rf$" "
  8881. {CBM-POUND} a${CBM-W}{CBM-E}G(13){CBM-M} 620
  8882. {CBM-A}{CBM-R}na$(x){CBM-R}na$:na${CBM-R}""
  8883. {CBM-U}{CBM-C} x
  8884. {CBM-V}F:
  8885. {$e8}Pw{CBM-R}0:p1{CBM-R}0:p2{CBM-R}0:pa{CBM-R}pa{CBM-N}p1(y):pb{CBM-R}pb{CBM-N}p2(y)
  8886. {$f4}Z 749
  8887. {CBM-*}(Y a9,20,20,16,e7,a5, 651
  8888. {$fc}(Z 05,18,a5,05,18,69, 328
  8889. ){SHIFT-+} 30,20,16,e7,a5,06, 504
  8890. 6){CBM--} 4a,4a,4a,4a,18,69, 425
  8891. s){SHIFT--} 30,20,16,e7,a5,06, 504
  8892. P){$de} 29,0f,18,69,30,20, 265
  8893. ){CBM-*} 16,e7,ea,ea,ea,4c, 1031
  8894. {CBM-Q})  0d,c0,ea,a2,00,20, 633
  8895. I){$e1} cf,ff,c9,07, 469
  8896. S/ ea,ea,ea,ad,43,02, 944
  8897. {$f0}/ c9,00,f0,08,c9,0a, 660
  8898.  
  8899. 0 90,04,c9,09,b0,09, 543
  8900. *0 18,69,30,20,16,e7, 462
  8901. g0 4c,0d,c0,18,69,37, 465
  8902. D0 20,16,e7,4c,0d,c0, 566
  8903. 0 00,00,00,a2,00,20, 194
  8904. 0 cf,ff,c9,00,f0,f9, 1152
  8905. {CBM-C}0 9d,40,0261
  8906. ~d 38,20,30,31,a2,0f, 362
  8907. e 20,c9,ff,a2,00,bd, 839
  8908. 9f 41,c2,20,d2,ff,e8, 988
  8909. vg e0,08,d0,f5,4c,cc, 965
  8910. Sh ff,42,2d,50,20,31, 527
  8911. i 33,20,30,a9,0f,a8, 483
  8912. {CBM-Z}j a2,08,20,ba,ff,a9, 812
  8913. Jk 00,20,bd,ff,20,c0, 700
  8914. {$e7}l ff,a9,0d,a8,a,00,00, 0
  8915. {$f6} 00,00,08,00,00,00, 8
  8916.  82,13,00,50,4f,4b, 383
  8917. 0 45,53,a0,a0,a0,a0, 792
  8918. m a0,a0,a0,a0,a0,a0, 960
  8919. J a0,00,00,00,00,00, 160
  8920.  00,00,00,00,01,00, 1
  8921. {CBM-I} 00,00,82,13,08,44, 225
  8922. {CBM-B} 49,53,4b,20,41,a0, 488
  8923. {CBM--} a0,a0,a0,a, 476
  8924.  c2,4c,a6,c0,4c,0d, 717
  8925. . c0,20,fe,c0,90,f8, 1062
  8926. k a8,a9,08,85,97,20, 661
  8927. H
  8928.  33,c1,20,33,c1,20, 552
  8929.  53,c0,d0,f8,20,97, 914
  8930. {CBM-I} c2,4c,0d,c0,48,4a, 621
  8931. {CBM-B}
  8932.  4a,4a,4a,20,f4,c0, 690
  8933. {CBM--} aa,68,29,0f,20,f4, 606
  8934. {$f9} c0,48,8a,60
  8935. {$f5}G 00,00,00,00,01,00, 1
  8936. H 00,00,82,11,03,44, 218
  8937. /I 49,52,45,58,a0,a0, 632
  8938. lJ a0,a0,a0,a0,a0,a0, 960
  8939. IK a0,a0,a0,00,00,00, 480
  8940. L 00,00,00,00,00,00, 0
  8941. {CBM-K}M 06,00,00,00,82,11, 153
  8942. {CBM-V}N 00,44,49,52,45,43, 359
  8943. {SHIFT-+}O 54,4f,52,59,a0,a0
  8944. , 955
  8945. * ae,ff,4c,0d,c0,20, 742
  8946. %+ 33,c1,20,fe,c0,90, 866
  8947. b, f5,8d,27,c2,20,33, 702
  8948. {$60}- c1,20,fe,c0,90,ea, 1049
  8949. {$7d}. 8d,2a,c2,20,49,c2, 676
  8950. / ad,00,02,c9,01,f0, 617
  8951. {CBM-Y}0 1e,a9,31,20,ed,c1, 710
  8952. T1 a2,0d,20,c6,ff,a2, 822
  8953. {$f1}2 00,20,cf,4,20,4c, 391
  8954. {$f3}"{CBM-G} 45,56,45,4c,20,49, 405
  8955. #{CBM-+} 49,20,20,20,20,af, 376
  8956. .#{CBM-M} af,af,af,af,af,af, 1050
  8957. l#{CBM-POUND} af,af,af,af,af,af, 1050
  8958. J#{SHIFT-POUND} af,af,af,af,af,af, 1050
  8959. #{CBM-N} af,af,af,af,af,af, 1050
  8960. {CBM-+}#{CBM-Q} af,af,af,af,af,af, 1050
  8961. D#{CBM-D} af,af,af,af,af,af, 1050
  8962. {$e1}#{CBM-Z}2,08, 775
  8963. m 20,ba,ff,a9,01,a2, 805
  8964. !n 6d,a0,c2,20,bd,ff, 939
  8965. >o 4c,c0,ff,23,a9,0d, 740
  8966. [p 20,c3,ff,a9,0f,4c, 742
  8967. Xq c3,ff,a2,30,38,e9, 949
  8968. r 0a,90,03,e8,b0,f9, 814
  8969. {CBM-R}s 69,3a,60,0d,28,43, 379
  8970. Ot 29,20,31,39,38,34, 287
  8971. {$ec}u 20,4b,
  8972. 0,a0,a0, 960
  8973. {$f9} a0,a0,a0,00,00,00, 480
  8974.   00,00,00,00,00,00, 0
  8975. 1  07,00,80,80,ff,ff, 773
  8976. o  80,80,ff,ff,80,80, 1022
  8977. M  ff,ff,80,80,ff,ff, 1276
  8978.   80,80,ff,ff,80,80, 1022
  8979. {SHIFT-POUND}  ff,ff,80,80,ff,ff, 1276
  8980. F  5e,80,ff,7f,93,20, 783
  8981. {$e3}  220,d2,ff, 899
  8982.  68,4c,d2,ff,18,69, 774
  8983. 3 f6,90,02,69,06,69, 608
  8984. p 3a,60,a9,00,8d,02, 466
  8985. M 02,20,33,c1,c9,20, 511
  8986.  d0,09,20,33,c1,c9, 694
  8987. {CBM-M} 20,d0,0f,18,60,20, 407
  8988. D 28,c1,0a,0a,0a,0a, 273
  8989. {$e1} 8d,02,02,20,33,c1, 421
  8990. {$fe} 20, 654
  8991. {$f8}P a0,a0,a0,a0,a0,00, 800
  8992. Q 00,00,00,00,00,00, 0
  8993. .R 00,00,01,00,00,00, 1
  8994. kS 82,11,08,44,49,53, 379
  8995. HT 4b,20,44,a0,a0,a0, 655
  8996. U a0,a0,a0,a0,a0,a0, 960
  8997. {CBM-I}V a0,00,00,00,00,00, 160
  8998. {CBM-X}W 00,00,00,00,07,00, 7
  8999. ZX 00,00,82,11,04,4ff,9d,e0, 875
  9000. 3 c2,e8,d0,f7,20,cc, 1117
  9001. ,4 ff,20,6e,c2,4c,0d, 680
  9002. i5 c0,20,2c,c2,a2,0d, 637
  9003. F6 20,c9,ff,a2,00,bd, 839
  9004. 7 e0,c2,20,d2,ff,e8, 1147
  9005. {CBM-I}8 d0,f7,20,cc,ff,a9, 1115
  9006. {CBM-B}9 32,20,ed,c1,4c,c9, 789
  9007. {CBM--}: c1,8d,20,c2,a2,0f, 737
  9008. {$f9}; af,af,af,20,20,20, 621
  9009. {$fe}#{CBM-S} 20,20,20,20,20,20, 192
  9010. ${CBM-P} 20,20,20,20,20,20, 192
  9011. 8${CBM-A} 20,20,20,20,20,20, 192
  9012. u${CBM-E} 20,20,20,20,20,20, 192
  9013. R${CBM-R} 20,20,20,20,20,20, 192
  9014. ${CBM-W} 20,20,20,20,20,20, 192
  9015. {CBM-D}${CBM-H} 20,20,20,20,42,59, 283
  9016. I${CBM-J} 20,42,45,52,4e,59, 41,50,4f,4e, 409
  9017. v 49,47,20,98,38,e9, 617
  9018. &w 08,a8,20,62,c0,a9, 667
  9019. cx 00,20,d2,ff,a2,08, 667
  9020. {$60}y b9,e0,c2,29,7f,c9, 972
  9021. {$7d}z 20,b0,04,a9,2e,d0, 635
  9022. [ 03,b9,e0,c2,20,d2, 848
  9023. {CBM-Y}\ ff,a9,00,85,d4,c8, 969
  9024. U] ca,d0,e5,a9,92,4c, 1030
  9025. {$f2}^0,20,20,20,20,20, 192
  9026.  
  9027. ! 20,20,20,20,20,20, 192
  9028. ! 20,20,20,20,20,20, 192
  9029. :! 20,20,20,20,20,20, 192
  9030. w! 20,20,20,20,20,20, 192
  9031. T! 20,20,20,20,20,20, 192
  9032. ! 20,20,20,b7,b7,b7, 645
  9033. {CBM-P}! b7,b7,b7,b7,b7,b7, 1098
  9034. M! b7,b7,b7,b7,b7,b7, 109,28,c1,0d,02,02, 282
  9035.  38,60,c9,3a,08,29, 460
  9036. 8 0f,28,90,02,69,08, 314
  9037. u 60,20,cf,ff,c9,0d, 804
  9038. R d0,f8,68,68,4c,0d, 753
  9039.  c0,20,cf,ff,c9,0d, 900
  9040. {CBM-D} d0,27,a9,00,85,90, 693
  9041. I 20,65,c0,a9,08,85, 635
  9042. {$e6}  ba,20,b4,ff,a9,6f, 933
  9043. 4, 219
  9044. {$f7}Y 45,5a,2d,48,45,58, 433
  9045. Z a0,a0,a0,a0,a0,a0, 960
  9046. 1{$7b} a0,a0,a0,00,00,00, 480
  9047. l{$7c} 00,00,00,00,00,00, 0
  9048. I{$7d} 01,00,00,00,82,13, 150
  9049. {$7e} 01,44,49,53,4b,20, 332
  9050. {CBM-T}{$7f} 48,a0,a0,a0,a0,a0, 872
  9051. {SHIFT-*} a0,a0,a0,a0,a0,00, 800
  9052. {SHIFT-+} 00,00,00,00
  9053.  ad,27,c2,20,78,c2, 752
  9054. < 8e,27,c2,8d,28,c2, 750
  9055. 3= ad,2a,c2,20,78,c2, 755
  9056. p> 8e,2a,c2,8d,2b,c2, 756
  9057. M? a2,0f,20,c9,ff,a2, 827
  9058. @ 00,bd,1f,c2,20,d2, 656
  9059. {CBM-POUND}a ff,e8,e0,0d,d0,f5, 1177
  9060. Eb 4c,cc,ff,55,31,3a, 727
  9061. {$e2}c 31,33,20,30,20,31, 2416
  9062. {$e6}${CBM-L} 20,4b,41,50,4f,4e, 409
  9063. %{CBM-Y} 49,47,20,41,4e,44, 387
  9064.  %{CBM-U} 20,4a,49,4d,4d,59, 422
  9065. =%{CBM-O} 20,53,54,41,4d,50, 421
  9066. z%{SHIFT-@} 46,4c,20,20,20,20, 274
  9067. W%{CBM-F} 20,20,20,20,20,20, 192
  9068. %{CBM-C} 20,20,20,20,20,20, 192
  9069. {CBM-E}%{CBM-X} 20,20,c9,3e,f0,03, 570
  9070. N%{CBM-V} 4c,0a,c5,4c, d2,ff,ad,01,02,d0, 849
  9071. _ 06,cc,04,02,b0,01, 393
  9072. ,{$60} 60,68,68,4c,0d,c0, 585
  9073. iA 20,65,c0,a9,3a,a2, 714
  9074. FB 3e,4c,eb,c0,00,04, 569
  9075. C 82,13,05,44,4d,2d, 344
  9076.  D 53,41,56,45,a0,a0, 623
  9077. {CBM-X}E a0,a0,a0,a0,a0,a0, 960
  9078. ZF a0,00,00,00,00,00, 18
  9079. {$eb}! b7,b7,b7,b7,b7,b7, 1098
  9080. " b7,b7,b7,b7,b7,b7, 1098
  9081. '" b7,b7,b7,b7,b7,b7, 1098
  9082. e" b7,b7,b7,b7,b7,b7, 1098
  9083. B"  b7,20,20,20,20,44, 379
  9084. {$7f}"{CBM-K} 49,53,4b,20,4d,4f, 419
  9085. "{CBM-I} 4e,49,54,4f,52,20, 428
  9086. {CBM-O}"{CBM-T} 2d,20,45,58,50,41, 379
  9087. V"{CBM-@} 4e,44,45,4! 85,b9,20,96,ff,20, 787
  9088.  " a5,ff,24,90,70,05, 717
  9089. =# 20,d2,ff,d0,f4,20, 981
  9090. z$ ab,ff,4c,0d,c0,c9, 908
  9091. W% 24,f0,1d,48,a9,08, 554
  9092. & 85,ba,20,b1,ff,a9, 952
  9093. {CBM-E}' 6f,85,b9,20,93,ff, 863
  9094. N( 68,20,a8,ff,20,cf, 798
  9095. {$eb}) ff,c9,0d,d0,f6,20
  9096.  x$:"";
  9097. {$fb}*{$60} x${CBM-R}"n"{CBM-M} 
  9098. +Jx${CBM-W}{CBM-E}"d"{CBM-M} 1110
  9099. +T
  9100. i+{CBM-Z}                  *****************************
  9101. {$7e}+{CBM-S}                  *      datum    modus       *
  9102. {CBM-W}+{CBM-P}                  *****************************
  9103. {$e1}+{CBM-A} ,30,12,"datum   --.--.--": ,36,12: dat
  9104.            Etikettendruck
  9105.  
  9106. Das Disklabel-Programm ist in zwei Versionen auf Ihrer Diskette vorhanden. Das File DISKLAB MPS1200 ist speziell f{CBM-X}r den Commodore-Drucker MPS1200 vorgesehen. F{CBM-X}r sonstige Drucker, die in einen Epson- oder IBM-Modus geschaltet 
  9107. eile 962. In Zeile 800 k{CBM-C}nnen Sie leicht die Sekund{CBM-F}radresse ab{CBM-F}ndern. F{CBM-X}r die Umrandungen des Labels wurden nur Zeichen benutzt, die sowohl der IBM- als auch der Epson-Drucker versteht. Wer das Etikett noch etwas sch{CBM-C}ner gestalten m{CBM-C}chte, kann {SHIFT-+}nderunge
  9108. "Liste voll". Sie haben jetzt die Wahl, ob der Ausdruck beginnen oder ob ein erneuter Programmstart zur Korrektur erfolgen soll. Zuletzt besteht noch die M{CBM-C}glichkeit, einen Kommentar einzugeben, der auf dem Etikett unten neben dem Datum erscheint. Die Be
  9109.  
  9110. $
  9111.  
  9112.  disk monitor =============64
  9113. =
  9114.  (p) commodore disc
  9115. {$60}
  9116.  ============================
  9117. (
  9118.  (c) by                     =
  9119. {CBM-+}2
  9120.  bernd kaponig              =
  9121. I<
  9122.                             =
  9123. {$ec}f
  9124.  a-6923 lauterach           =
  9125. p
  9126.             
  9127. h(75):i{CBM-R}0{CBM-@}9
  9128. $h(48{CBM-N}i){CBM-R}i:h(65{CBM-N}i){CBM-R}i{CBM-N}10:
  9129. ;t{CBM-R}49152{CBM-@}51797:x$
  9130. yh{CBM-R}F(H(x$,1)):l{CBM-R}F(I(x$,1))
  9131. {$7c}"a{CBM-R}h(h){CBM-D}16{CBM-N}h(l):s{CBM-R}s{CBM-N}a:a{CBM-R}18{CBM-M}a{CBM-R}0
  9132. ,t,a
  9133. 6n{CBM-R}n{CBM-N}1:n{CBM-W}6{CBM-M} : n{CBM-R}{CBM-Q}1
  9134. {CBM-J}@ v:z{CBM-R}z{CBM-N}1:v{CBM-R}s {CBM-M}340
  9135. Oe53280,254:53281,246
  9136. jG(147);{CBM-+}82);"checksumerror in zeile
  9137. $
  9138. {$f0}+{SHIFT-@} ,30,12,l$
  9139. ,D ,32,12,"modus ?"
  9140. ,N ,32,13,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  9141. 5,X ,30,14,"1. c - 128"
  9142. m,{$e2} ,30,15,"2. c - 64"
  9143. F,{$ec} ,30,16,"3. cpm 3.0"
  9144. Q,{$f6}{CBM-K}{$f9} mo$
  9145. ,
  9146.  ,30,14:G(27)"@"
  9147. {CBM-@},
  9148.  ,30,14,"single sided"
  9149. A, ,30,16,"double sided"
  9150. -{CBM-K}{$f9}di$:di${CBM-R}"s"{CBM-M}te$(8){CBM-R}" 
  9151.  
  9152. werden k{CBM-C}nnen, ist das File DISKLAB EPS/IBM zu verwenden.
  9153. Das Programm liest das Directory einer Diskette und gibt es auf einem Etikett (90 mal 35 Millimeter) aus. Zuerst werden folgende Eingaben erwartet: Datum, Betriebsart des Rechners (128-, 64- oder 
  9154. nn in den nachfolgenden Programmzeilen speziell f{CBM-X}r seinen Drucker vornehmen.
  9155.  in den linearen Modus zu schalten. Dies kann unter Umst{CBM-F}nden f{CBM-X}r andere Druckerinterfaces falsch sein. Die Druckroutine beginnt im Programm mit Programmzeile 800 und geht bis Z
  9156. antwortung der Frage "Noch ein Etikett" mit "Ja" hat einen Neustart zur Folge, die Antwort "Nein" einen Software-Reset.
  9157.  
  9158. {SHIFT-+}nderungen m{CBM-C}glich
  9159. ------------------
  9160. Das Programm DISKLAB EPS/IBM benutzt zum Drucken die Sekund{CBM-F}radresse eins, wie sie bei Verwendu
  9161.                 =
  9162. 2z
  9163.  version 2.0                =
  9164. u_
  9165.  c-64 + vc-1541             =
  9166. X{$60}
  9167.  ============================
  9168. X
  9169. a${CBM-R}"****************************"
  9170. D
  9171. b${CBM-R}"   d i s k  m o n i t o r   "
  9172. {$ea}
  9173. c${CBM-R}"     von bernd kaponig      "
  9174.  
  9175.  
  9176. G(147):5328
  9177.  ";999{CBM-N}z:
  9178. tn{CBM-W}0{CBM-M}z{CBM-R}0:360
  9179. "^s{CBM-R}0:n{CBM-R}0:
  9180. 2Ht{CBM-R}1{CBM-@}44:x$
  9181. pRh{CBM-R}F(H(x$,1)):l{CBM-R}F(I(x$,1))
  9182. R{$7c}a{CBM-R}h(h){CBM-D}16{CBM-N}h(l):s{CBM-R}s{CBM-N}a:575{CBM-N}t,a
  9183. n{CBM-R}n{CBM-N}1:n{CBM-W}6{CBM-M} t: n{CBM-R}{CBM-Q}1
  9184. {CBM-I}v:z{CBM-R}z{CBM-N}1:t{CBM-R}45{CBM-M}440
  9185. {CBM-P}v{CBM-R}s{CBM-M}430
  9186. I53280,254:53281,246
  9187. {$fd}{CBM-@}G(147);{CBM-+}82);"checksumerror in zeile ";1
  9188. {$de} single sided":Ute$(8){CBM-R}"  double sided"
  9189. #-(x{CBM-R}1 {CBM-@} E(mo$): te$(3):x
  9190. u-2te$(12){CBM-R}"   written by":te$(14){CBM-R}"     michel"
  9191. -<te$(5){CBM-R}"----------------":te$(10){CBM-R}te$(5)
  9192. -f
  9193. {CBM-U}-{CBM--} "    c - 128","     c - 64","    cpm 3.0"
  9194.  
  9195.  
  9196. ,"datum   --.--.--": ,36,12: dat
  9197. CPM-Modus) und Art der Diskette (ein- oder doppelseitig bespielt). Danach wird der Header der Diskette eingelesen und auf dem Bildschirm ausgegeben. In der untersten Bildschirmzeile wird jetzt das erste File zur Auswahl angezeigt. Nach Best{CBM-F}tigung mit "J
  9198. 4c,00, 354
  9199. {$ed} c5,ea,c9,20,f0,f5, 1149
  9200. 9{$ee} a2,05,dd,6a,c0,d0, 894
  9201. v{$ef} 0c,8e,00,02,bd,70, 457
  9202. S{$f0} c0,48,bd,76,c0,48, 835
  9203. {$f1} 60,ca,10,ec,4c,0d, 639
  9204. {CBM-Z}{$f2} c0,85,97,20,62,c0, 798
  9205. K{$f3} b9,e0,c2,20,dc,c0, 1047
  9206. {$e8}{$f4} c8,d0,03,ee,01,02, 652
  9207. {$f5} c6,
  9208. ng eines Wiesemann-Interfaces an einem Centronicsdrucker erforderlich ist, um in den linearen Modus zu schalten. Dies kann unter Umst{CBM-F}nden f{CBM-X}r andere Druckerinterfaces falsch sein. Die Druckroutine beginnt im Programm mit Programmzeile 800 und geht bis Z
  9209. 0,0:53281,0
  9210. =
  9211.  
  9212. 1024,85:t{CBM-R}1025{CBM-@}1062:t,67:t{CBM-N}960,67::1063,73
  9213. U
  9214. {CBM-N}
  9215. 1984,74:2023,75:t{CBM-R}1944{CBM-@}1064{SHIFT-POUND}{CBM-Q}40:t,66:t{CBM-N}39,66:
  9216.  
  9217. {CBM-H}
  9218. {CBM-+}86)a$:{CBM-+}46)b$:{CBM-+}46)c$:{CBM-+}86)a$
  9219. {CBM-X}
  9220. {CBM-V}
  9221. {CBM-+}248)"daten werden eingelesen"
  9222. C
  9223. H
  9224.  
  9225. I
  9226. R
  9227.  
  9228. {$e9}
  9229. {CBM--}
  9230. {CBM-+}50)"bitte 120 sec warten"
  9231. {$ef}
  9232. {$e6}
  9233.  
  9234. {$f5}
  9235. {$f0}
  9236.  
  9237. {$fa}
  9238.  
  9239. 449{CBM-N}z:
  9240.  
  9241. {CBM-S}s{CBM-R}0:n{CBM-R}0:
  9242. c
  9243. {CBM-U}251,0:252,192:{CBM-+}46)"disk einlegen-taste druecken"
  9244. v
  9245. B{CBM-K}a$:a${CBM-R}""{CBM-M}450
  9246. \
  9247. L
  9248. L
  9249. V576:49152
  9250.  
  9251. {$e8} a2,00,bd,00,c4,20, 579
  9252. {CBM-M}
  9253. {$e9} d2,ff,e8,e0,ff,d0, 1384
  9254. D
  9255. {$ea} f5,a2,0d,a9,3e,20, 683
  9256. {$e1}
  9257. {$eb} eb,c0,a9,00,8d,01, 738
  9258. {$fe}
  9259. {$ec} 02,20,33,c1,{$fe} 02,20,cf,ff,c9,0d, 710
  9260. (~ f0,17,20,fe,c0,90, 885
  9261. e
  9262.  00,8d,03,02,20,cf, 385
  9263. B ff,c9,0d,f0,08,20, 749
  9264. {$7f} fe,c0,90,03,8d,04, 738
  9265.  02,ac,03,02,20,c6, 409
  9266. {CBM-O} c2,20,d6,c2,98,20, 818
  9267. V dc,c0,20,62,c0,a9, 903
  9268. {$f3} 08,20,3d,c0,20,97
  9269. a" wird es in die Liste {CBM-X}bernommen und erscheint auf dem Etikett, das auf dem Monitor dargestellt wird. Die Kommentarzeile wird gel{CBM-C}scht, und das n{CBM-F}chste File erscheint.
  9270.  
  9271. Die Liste umfa{CBM-V}t 30 Eintr{CBM-F}ge. Ist diese Anzahl erreicht, meldet die Kommentarzeile 
  9272. 97,d0,ed,60,20, 922
  9273. "{$f6} fe,c0,90,03,99,e0, 970
  9274. ?{$f7} c2,c8,c6,97,60,20, 871
  9275. \{$f8} 62,c0,a9,20,2c,a9, 704
  9276. Y{$f9} 0d,4c,d2,ff,3a,57, 699
  9277. {$fa} 52,4d,40,58,c0,c1, 696
  9278. {CBM-H}{$fb} c1,c0,c1,e3,c0,90, 1141
  9279. Q{$fc} 90,7b,3e,7a,a0,00, 611
  9280. {$ee}{$fd} 8c,03,02,88,8c,04, 425
  9281. *
  9282.  
  9283.  **********************************
  9284. s
  9285.  *      etiketten - drucker       *
  9286. {$7c}
  9287.  *              fuer              *
  9288. {CBM-@}(
  9289.  * c-128 und epson und ibm drucker
  9290. M2
  9291.  *      (c) 1990 by michel        *
  9292. {$f6}7
  9293.  *      (v) a.m.                  *
  9294. <
  9295.  *{CBM-Z}4{CBM-R}{CBM-J}(a{CBM-Z}4) {CBM-P} m{CBM-R}2 {CBM-M}  3890
  9296. {$e2}0( t{CBM-E}mc(m{CBM-N}1){CBM-Q}mc(m) {CBM-M} f{CBM-R}5
  9297. 12 t{CBM-E}(mc(m{CBM-N}1){CBM-Q}mc(m){CBM-N}1) {CBM-M} f{CBM-R}3
  9298. )1< a{CBM-R}1582 {CBM-P} m{CBM-R}10 {CBM-P} t{CBM-E}4 {CBM-P} t{CBM-W}15 {CBM-M} f{CBM-R}4
  9299. /1f
  9300. o1p =========================
  9301. M1z subroutine fehlerangabe
  9302. 1D =========================
  9303.  1Nat,8,14:w3$;
  9304. C1X f  3*****************************
  9305. j                   *      diskheader holen     *
  9306. {$7f}                   *****************************
  9307.  1,8,15:2,8,2,"#"
  9308. {CBM-Q} 1,"u1 2 0 18 0"
  9309. {CBM-U} {CBM-@}t{CBM-R}18:s{CBM-R}1
  9310. K {CBM-S}1,"b-p 2 144"
  9311. {$f4} {CBM-U} x{CBM-R}1 {CBM-@} 20:{CBM-K}#2,a$:head${CBM-R}head${CBM-N}a$: x
  9312. {$fb}4 =========================
  9313. {$e6}4 subroutine tages'buchstabe'
  9314. 5 =========================
  9315. 5{CBM-@}tz{CBM-R}tt{CBM-Q}{CBM-J}(tt{CBM-Z}7){CBM-D}7
  9316. ,5{CBM-S} tz{CBM-R}0 {CBM-M} tz{CBM-R}7
  9317. h5{CBM-U}wz{CBM-R}tz: tz{CBM-W}sz {CBM-M} wz{CBM-R}tz{CBM-N}7
  9318. w5Bwz{CBM-R}wz{CBM-Q}sz{CBM-N}1
  9319. ]5L
  9320. {$7d}5V nachspann================
  9321. 5 b${CBM-R}G(32):b2${CBM-R}b${CBM-N}b$
  9322. {CBM-S}5{$ea}b3${CBM-R}b2${CBM-N}b$:
  9323. ,ta,ein$:ta{CBM-R}ta{CBM-N}1: 770
  9324. 7${$f8}nb$(z{CBM-Q}15){CBM-R}ein$:z{CBM-R}z{CBM-N}1: ,42,ta{CBM-Q}15,ein$:ta{CBM-R}ta{CBM-N}1
  9325. f$ ,14,24,l$
  9326. {CBM-P}$z{CBM-E}30 {CBM-M}  ,30,24,"   liste voll !!                          ":{$fe}2:G(27){CBM-N}"o";: 1100: nochmal ???
  9327. {CBM-J}$
  9328. {$ec}$                   ******************************
  9329. #1,G(27)"s0";
  9330. g'\ x{CBM-R}1 {CBM-@} 15:xx${CBM-R}na$(x):960:na$(x){CBM-R}xx$:na$(x){CBM-R}""{CBM-M}na$(x){CBM-R}"                "
  9331. 'Fxx${CBM-R}nb$(x):960:nb$(x){CBM-R}xx$: nb$(x){CBM-R}""{CBM-M}nb$(x){CBM-R}"                "
  9332. {CBM-B}'P1,"! ";na$(x)G(9)nb$(x)G(9);"!"te$(x);G(9)"!"
  9333. G'Z x
  9334. {SHIFT--}'1,G(27)"3";G(9);
  9335. (1,"--*********************************
  9336. %f
  9337.  
  9338. @D
  9339.  x{CBM-R}1 {CBM-@} 60:l${CBM-R}l${CBM-N}" ":
  9340. BN
  9341.  na$(15): nb$(15): te$(15)
  9342. X
  9343. "": ,22,2," e t i k e t t e n - d r u c k e r ":
  9344. {CBM-O}
  9345.  1200: datum und modus
  9346. N
  9347. {$fe} 15,05,65,21,1
  9348. {CBM--} 
  9349. G(27)"m"
  9350. {CBM-N}
  9351.  ,0,0,"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  9352. 970,3980,3990,4000,3990
  9353. {$f2}1 "das jahr 'null' gibt es nicht!":  4020
  9354. "2 "datum nicht im programmbereich!":  4020
  9355. n2 "dieses datum gibt es nicht!":  4020
  9356. N2  "kalenderumstellung -": 
  9357. 2{CBM-N} "dieses datum gibt es nicht!"
  9358. {CBM-A}2{CBM-H}at,2,24:t3$;:435 B{$fe}
  9359. !L
  9360. 6!{$f1}                  *****************************
  9361. K!{$f2}                  *       filenamen holen     *
  9362.  !{$f3}                  *****************************
  9363. {CBM-Y}!{$f4}1,8,15:2,8,2,"#"
  9364. K!{$fe}1,"u1 2 0";t;s
  9365. {$ed}!{CBM-K}#2,t$:{CBM-K}#2,s$:t{CBM-R}F(t$):s{CBM-R}F(s$)
  9366. {CBM-L}b4${CBM-R}b3${CBM-N}b$
  9367. H5{$f4}b5${CBM-R}b4${CBM-N}b$:b6${CBM-R}b5${CBM-N}b$
  9368. {$eb}5{$fe}b${CBM-R}b5${CBM-N}b5$:at{CBM-R}49152:re{CBM-R}49510:
  9369. {$fc}5~ ----------
  9370. 6
  9371. {CBM-K}x$:x${CBM-R}""{CBM-M}4352
  9372. 6
  9373. 66 kalender 2300 =======ende
  9374. v6 =========================
  9375.  
  9376.  
  9377.  C(D(sz)){CBM-W}{CBM-R}2 {CBM-M}  4220
  9378. 4Hx1{CBM-R}3:m{CBM-W}3{CBM-M}x1{CBM-R}2
  9379. 4Rsz{CBM-R}E(J(D(sz),x1,1))
  9380. {CBM-@}4{$7c}
  9381. D%                   *           drucker          *
  9382. z%                   ******************************
  9383. % 1,4,1:1,G(27)G(120)G(0)G(27)"u1";G(27)"g";
  9384. {CBM-Q}%%1,G(27)"3";G(6);G(27)G(15)
  9385. W%&1,G(27)"d"G(20)G(37)G(54)G(0)G(27)"t";
  9386. &*1,"-----------------------------------------------------------------"
  9387. k(1,"! "bem$;G(9)G(9)"!    ";dat$;G(9)"!"
  9388. ({CBM-I}1,"-------------------------------------------------------"
  9389. {CBM-@}({CBM-D}1,G(27)"t"G(13): 1
  9390. {CBM-N}({CBM-L}
  9391. {CBM-U}({SHIFT-*}xx${CBM-R}""{CBM-M}
  9392. {$ea}(Ai{CBM-R}1{CBM-@}C(xx$):J(xx$,i,1){CBM-R}G(160){CBM-M}J(xx$,i,1){CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  9393. n{CBM-H}
  9394.  x{CBM-R}1 {CBM-@}15: ,0,x,"{CBM-G}": ,25,x,"B": ,50,x,"{CBM-M}": x
  9395. {CBM-V}
  9396.  ,0,16,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  9397. {CBM-T}H
  9398. "":G(27)"l"
  9399. IR
  9400.  ,30,22,"directorie einlesen ..."
  9401. {$e6}{CBM--}
  9402.  400: diskheader holen
  9403. {$e6}
  9404.  ,15,4,(H(head$2: f{CBM-R}0
  9405. {$e3}2{CBM-V} x5{CBM-R}1 {CBM-M}  w2$;w1$;t9$;a:  w5$: x{CBM-R}x{CBM-Q}1: f{CBM-R}0: 
  9406. {$ee}2H 1560
  9407. 3R =========================
  9408. 33{CBM--} subroutine sonntags'buchstabe'
  9409. s3{$e6} =========================
  9410. I3{$f0}mm${CBM-R}"0"{CBM-N}J(D(m),2)
  9411. {$7f}3{$fa}tt${CBM-R}"0"{CBM-N}J(D(t),2)
  9412. 3v1${CBM-R}D(a){CBM-N}I(mm$,2){CBM-N}I(tt$,2)
  9413. {CBM-M}3x4{CBM-R}0
  9414. bp{CBM-R}2 {CBM-@} 226 {SHIFT-POUND} 32
  9415. 0"1,"b-p 2";bp:{CBM-K}#2,a$: F(a$) {CBM-W}{CBM-E}130 {CBM-M} 610
  9416. b"& st{CBM-R}64 {CBM-M} 610
  9417. v"01,"b-p 2";bp{CBM-N}3
  9418. {$7e}": x{CBM-R}1 {CBM-@} 16:{CBM-K}#2,a$:ein${CBM-R}ein${CBM-N}a$: x:
  9419. "d 700: abfrage
  9420. "nein${CBM-R}""
  9421. {CBM-P}"x z{CBM-E}30  620
  9422. {CBM-U}"B bp
  9423. {CBM-B}"L{$fe}
  9424. E"V
  9425. {$fc}"{CBM-O}                   ********************
  9426.  
  9427. {$f1})G(27)"l"
  9428.  
  9429. * ,10,24,l$
  9430. *$
  9431. <*i                   *****************************
  9432. R*j                   *       nochmal  ???        *
  9433. {CBM-POUND}*k                   *****************************
  9434. {CBM-Y}*l ,10,24,l$
  9435. {$eb}*v ,30,24,"drucken oder neustart":{CBM-K}{$f9}-------------------------------------------"
  9436. 9&/1,G(27)G(18);G(27)"3";G(15)
  9437. l&0xx${CBM-R}head$:960
  9438. &41,"! ";G(27)"e";H(xx$,16);"           ";I(xx$,2);G(27)"f"G(9)"!"
  9439. {CBM-G}&>1,G(27)G(15);
  9440. {$e6}&h1,"-------------------------------------------------------"
  9441. {$f8}&r{CBM-R}" "
  9442. {$f2}(B:
  9443. '){$e5}                  *****************************
  9444. \){$e6}                  *       bemerkung holen     *
  9445. ){$e7}                  *****************************
  9446.  ){$e8} ,10,24,l$
  9447. {CBM-D}){$f2} 208,0
  9448. {SHIFT-@}){$fc}G(27)"m"
  9449. {$e3}) ,10,24: "bemerkungen ";bem$:"";
  9450. ,16)),1: ,63,4,(I(head$,3)),1
  9451. ){$f0}
  9452. z{CBM-R}1:z1{CBM-R}1:ta{CBM-R}6
  9453. e{$fa}
  9454.  500: filenamen holen
  9455. \ t{CBM-W}{CBM-E}0{CBM-P}z{CBM-W}{CBM-R}30 {CBM-M} 250
  9456. Y 1000: bemerkung holen
  9457. " 800: drucker
  9458. E, ,10,24,l$: ,30,24,"noch ein etikett ? (j/n)":{CBM-K}{$f9} x$
  9459. U6 x${CBM-R}"j"{CBM-M} 
  9460.  @65341
  9461.                    {CBM-W}3x4{CBM-R}x4{CBM-N}1
  9462. M3" E(v1$){CBM-W}gj(x4) {CBM-M}4160
  9463. 4, a{CBM-W}{CBM-E}1582 {CBM-P} a{CBM-R}E(H(D(gj(x4)),5)){CBM-M} sz{CBM-R}fb(x4):x4{CBM-R}x4{CBM-N}1:
  9464. 464120
  9465. 4@r{CBM-R}a{CBM-Q}zs(x4)
  9466. 34jsz{CBM-R}r{CBM-Q}{CBM-J}(r{CBM-Z}28){CBM-D}28
  9467. f4t sz{CBM-R}0 {CBM-M} sz{CBM-R}28
  9468. S4^sz{CBM-R}sb(sz): x2{CBM-R}sz:  C(D(sz)){CBM-W}{CBM-R}2 {CBM-M}  4220
  9469. 4Hx1{CBM-R}3:m{CBM-W}3{CBM-M}x1{CBM-R}2
  9470. 4Rsz{CBM-R}E(J(D(sz),x1,1))
  9471. {CBM-@}4{$7c}
  9472. D**********
  9473. 3#{SHIFT-@}                   *           abfrage          *
  9474. J#{CBM-F}                   ******************************
  9475. #{CBM-C} ,14,24,ein$,1:z1{CBM-R}z1{CBM-N}1
  9476. {CBM-M}#F ,49,24,"uebernehmen ? (j/n)"
  9477. {CBM-E}#P{CBM-K}{$f9} u$
  9478. D#Z u${CBM-R}"n" {CBM-M} 770
  9479. U#{$e4} z{CBM-E}15 {CBM-M} 760
  9480. ${$ee}na$(z){CBM-R}ein$:z{CBM-R}z{CBM-N}1: ,16{CBM-N}1) {CBM-M}  2400
  9481. {$f8}"lth{CBM-R}th{CBM-Q}{CBM-J}(th{CBM-Z}7){CBM-D}7: th{CBM-R}0 {CBM-M} th{CBM-R}7
  9482. #v th{CBM-R}tz {CBM-M} x3{CBM-R}x3{CBM-N}1: mh(x3){CBM-R}m
  9483.  #{$60} m
  9484. 3#Jat,8,12:w3$;
  9485. h#T "ergebnis:": 
  9486. ]#{$7e} x3{CBM-W}{CBM-E}0 {CBM-M}  2460
  9487. #at,8,14: "im jahr";a;"gibt es keinen":at,8,15
  9488. {CBM-L}# ta$(wz);", den";t;".":  2490
  9489. P# z{CBM-R}1 {CBM-@} x3:aK) x6{CBM-R}8 {CBM-@} 15
  9490. {SHIFT--})& t,m,f1$(x6)
  9491. {$f4})0f1(x6){CBM-R}t: f3(x6){CBM-R}m
  9492. ~): 1790
  9493.  
  9494. *df2(x6){CBM-R}wz
  9495. *n x6
  9496. *x :
  9497. 4*B buss und bettag
  9498. <*L :
  9499. \*Vx6{CBM-R}16: tt{CBM-R}mc(12){CBM-N}25:  4260
  9500. N* wz{CBM-R}1 {CBM-M} wz{CBM-R}8
  9501. *tt{CBM-R}tt{CBM-Q}wz{CBM-Q}31: t{CBM-R}tt{CBM-Q}mc(11)
  9502. {CBM-U}* f1$(x6): f1(x6){CBM-R}t: f2(x6){CBM-R}4: f3(x6){CBM-R}11
  9503. {SHIFT-*}====================
  9504. {CBM-@} unterprogramm wochentagsuche
  9505. /{CBM-S} =========================
  9506. j{CBM-U}w2$w1$;:at,8,3:w3$;
  9507. IB "gesucht: der wochentag"
  9508. {$7b}Lat,8,5:w3$;
  9509. {CBM-I}V t6$:at,8,7: t7$:at,8,9:  t8$
  9510. {CBM-J} at,30,5:w3$;
  9511. W{$ea} t:at,30,7: m:at,30,9: {CBM--}
  9512. x{CBM-W}{CBM-E}16{CBM-M}2790
  9513. '{SHIFT--}
  9514. "keine weiteren eingaben moeglich":at,2,24:t3$;:4352:2830
  9515. 5'{$e6}
  9516.  "weitere eingaben (j/n)";z3$
  9517. j'{$f0}
  9518.  z3${CBM-W}{CBM-E}"j" {CBM-M}2830
  9519. I'{$fa}
  9520.  t0$b$b$b$G(13)t0$t0$l1$;
  9521. S'2710
  9522. {$7f}'z6{CBM-R}x{CBM-N}16
  9523. ' poke 65286,11
  9524. {CBM-T}'" x{CBM-R}17 {CBM-@} z6
  9525. X',f1$(x){CBM-R}h1$(x{CBM-Q}16): f1(x){CBM-R}
  9526. (m{CBM-N}1){CBM-M}2090
  9527. {$f9}x3{CBM-R}x3{CBM-N}1: td(x3){CBM-R}td(x3{CBM-Q}1){CBM-N}7
  9528.   2060
  9529.  *mc(3){CBM-R}xh
  9530. # 4at,8,12:w3$;
  9531. 8 > "ergebnis:": 
  9532. @ hz{CBM-R}1
  9533. y rii{CBM-R}z{CBM-@}x3:at,8,13{CBM-N}ii
  9534.  \ ta$(wz);",";{CBM-T}19) td(ii);{CBM-T}23) mo$(m);{CBM-T}32) a:
  9535.  Fz{CBM-R}ii
  9536. {CBM-S} Zat,2,24:t3$;:4352
  9537. N  =========================at,2,24:t3$;:4352
  9538. N-{$f2}
  9539.  
  9540. V-{$fc}
  9541.  :
  9542. {$ec}- ausgabe drucker
  9543. {$f4}- :
  9544. .1,4,7: 1
  9545. .$ p1$;p2$;p3$;l2$: 
  9546. /.. p4$;a;p5$: 
  9547. >.8 x{CBM-R}1 {CBM-@} z6
  9548. A.bf3${CBM-R}mo$(f3(x)): f2${CBM-R}ta$(f2(x))
  9549. .l f1$(x){CBM-R}f1$(x{CBM-Q}1) {CBM-M}  3680
  9550. .v f1$(x);
  9551. {CBM-S}.{$60} p6$;f1(x);p6$;f3$;p6$;f2$
  9552. {CBM-L}.Jt,8,13{CBM-N}z
  9553.  
  9554. ${CBM-+} ta$(wz);",";{CBM-T}19) t;{CBM-T}23) mo$(mh(z));{CBM-T}32) a
  9555. ${CBM-A} z
  9556. !${SHIFT-@}at,2,24:t3$;:4352
  9557. '$D
  9558. g$N =========================
  9559. H$X unterprogramm festkalender
  9560. ${$e2} gesetzliche feiertage der brd
  9561. {CBM-D}${$ec} =========================
  9562. G${$f6}w2$w1$;:at,8,3:w3$
  9563. * :
  9564. P*{CBM-POUND} sortieren
  9565. X*{CBM-R} :
  9566. {$ec}*{CBM-C} z6{CBM-W}x6 {CBM-M} z6{CBM-R}x6
  9567. {$fb}*F x{CBM-R}1 {CBM-@} z6
  9568. #+Pmm${CBM-R}D(f3(x)): tt${CBM-R}"0"{CBM-N}J(D(f1(x)),2)
  9569. a+Ztt${CBM-R}I(tt$,2): v2${CBM-R}mm${CBM-N}tt$
  9570. r+{$e4}v2(x){CBM-R}E(v2$)
  9571. z+{$ee} x
  9572. B+{$f8}y{CBM-R}0
  9573. U+
  9574.  x{CBM-R}1 {CBM-@} (z6{CBM-Q}1)
  9575. +
  9576.  v2(x{CBM-N}1){CBM-E}{CBM-R}v2(x) {CBM-M}  3410
  9577. {CBM-O}+
  9578. c{CBM-R}f1(x): f1(x){CBM-R}f1(x{CBM-N}1): f1(x{CBM-N}1){CBM-R}a
  9579. {$f2}{$f4} 3820:  f{CBM-E}0 {CBM-M}  3950
  9580. {$fd}{$fe} 4080
  9581. tt{CBM-R}mc(m){CBM-N}t
  9582.  4260
  9583. & x5{CBM-R}1 {CBM-M} 
  9584. 9&at,8,12:w3$;
  9585. t0 "ergebnis:":at,8,14
  9586. : ta$(wz);",";{CBM-T}19) t;{CBM-T}23) mo$(m);{CBM-T}32) a
  9587. dat,2,24:t3$;:4352
  9588. n
  9589. {CBM-B}x =========================
  9590. {$de}B unterprogramm h1(x{CBM-Q}16): f3(x){CBM-R}h3(x{CBM-Q}16)
  9591. {$f5}'6t{CBM-R}f1(x): m{CBM-R}f3(x):  3820
  9592. )(@ f{CBM-R}5 {CBM-M} f1(x){CBM-R}1: f3(x){CBM-R}3: f{CBM-R}0: t{CBM-R}f1(x): m{CBM-R}f3(x)
  9593. 4(j 1790
  9594. a(tf2(x){CBM-R}wz
  9595. i(^ x
  9596. q(H :
  9597. H(R bewegliche feste
  9598. P({$7c} :
  9599. (830: m{CBM-R}3:  4080
  9600. {CBM-I}(gz{CBM-R}(a{CBM-N}1){CBM-Q}{CBM-J}((a{CBM-N}1){CBM-Z}19){CBM-D}19
  9601. {CBM-C}(tt{CBM-R}mc(3){CBM-N}21{CBM-N}og(x4,gz)
  9602. G
  9603. {$e8}  unterprogramm monat
  9604. !{CBM-I} =========================
  9605. #!{CBM-D}w2$w1$;:at,0,3:w3$;
  9606. n!{CBM-L} x{CBM-R}1 {CBM-@} 7:  H(ta$(x),2);"=";x: :  x
  9607. {$60}!{SHIFT-*}at,8,3:w3$;
  9608. {$7b}!J "gesucht: der monat"
  9609. !Tat,8,5:w3$;
  9610. {CBM-R}!{$de} t5$:at,8,7:t6$:at,8,9: t8$
  9611. E!{$e8}at,30,5:w3$;
  9612. {$ea}!{$f2}  x
  9613. C.T:  l2$
  9614. U.{$7e} p1$: 1:  1
  9615. {SHIFT-+}.
  9616. {$fb}. =========================
  9617. / subroutine trap-resume
  9618. 8/{CBM-+} =========================
  9619. k/{CBM-A}at,8,14:w3$;
  9620. S/{SHIFT-@} "sie haben einen fehler gemacht!"
  9621. /Dat,2,24:t3$;:4352: V 1560
  9622. {CBM-H}/N =====================;
  9623. {$ed}$
  9624.  
  9625.  "gesucht: festkalender":at,8,5
  9626. %
  9627.  
  9628.  "rechenzeit ca. 10-45 sec"
  9629.  %
  9630. at,8,7:w3$;
  9631. 7%
  9632.  t8$;: a:at,8,9
  9633. A%(
  9634.  "zusatzeingaben (j/n)";z1$:at,8,11
  9635. {$7f}%2
  9636.  "drucker oder":at,8,12
  9637. {CBM-I}%<
  9638.  "bildschirm"b5$"(d/b)";:z2$
  9639. {CBM-P}%f
  9640. t{CBM-R}1: m{CBM-R}1
  9641. J%p
  9642.  3820:  f{CBM-E}0 {CBM-M} c
  9643. {CBM-*}+ 
  9644. c{CBM-R}f2(x): f2(x){CBM-R}f2(x{CBM-N}1): f2(x{CBM-N}1){CBM-R}c
  9645. ,*
  9646. c{CBM-R}f3(x): f3(x){CBM-R}f3(x{CBM-N}1): f3(x{CBM-N}1){CBM-R}c
  9647. 1,4
  9648. c${CBM-R}f1$(x): f1$(x){CBM-R}f1$(x{CBM-N}1): f1$(x{CBM-N}1){CBM-R}c$
  9649. w,>
  9650. c{CBM-R}v2(x): v2(x){CBM-R}v2(x{CBM-N}1): v2(x{CBM-N}1){CBM-R}c
  9651. _,h
  9652. y{CBM-R}1
  9653. G,r
  9654.  x
  9655. Z,\
  9656.  y{CBM-E}0 {CBM-M}  3320
  9657. ,F
  9658.  poke 65286,27
  9659. {CBM-G},P
  9660.  z2${CBM-R}"d" {CBM-M}  3610
  9661. {CBM-Z},Z
  9662.  :
  9663. F,
  9664.  autagesdatum
  9665. {$fe}L =========================
  9666. Vw2$w1$;:at,0,3:w3$;
  9667. d x{CBM-R}1 {CBM-@} 7:  H(ta$(x),2);"=";x: :  x
  9668. vat,8,3:w3$;
  9669. V "gesucht: das tagesdatum"
  9670. at,8,5:w3$;
  9671. {CBM-P}{CBM-POUND} t5$:at,8,7: t7$:at,8,9:  t8$
  9672. B{CBM-R}at,30,5:w3$;
  9673. {$ea}{CBM-C} wz:at,30({CBM-@} 4260
  9674. V({CBM-S} x6{CBM-R}1 {CBM-@} 7
  9675. {$f0}({CBM-U} f1$(x6),y,f2(x6),y1
  9676. )Btt{CBM-R}tt{CBM-N}y: t{CBM-R}tt{CBM-Q}mc(y1): m{CBM-R}y1
  9677. %)L x6{CBM-R}1 {CBM-M} t{CBM-R}8{CBM-Q}wz{CBM-N}t
  9678. ])V t{CBM-N}mc(y1){CBM-E}mc(y1{CBM-N}1) {CBM-M} m{CBM-R}y1{CBM-N}1: t{CBM-R}t{CBM-Q}(mc(y1{CBM-N}1){CBM-Q}mc(y1))
  9679. U)  x6{CBM-R}1 {CBM-M} tt{CBM-R}t{CBM-N}mc(m)
  9680. ){$ea}f3(x6){CBM-R}m: f1(x6){CBM-R}t
  9681. ){$f4} x6
  9682. ){$fe} :
  9683. {CBM-W}) feste feiertage
  9684. {CBM-F}) :
  9685.  
  9686. wz:at,30,7:t:at,30,9:a:m{CBM-R}1
  9687. "{$fc} 3820:  f{CBM-E}0 {CBM-M}  3950
  9688. " 4080
  9689. "x3{CBM-R}0
  9690. (" m{CBM-R}1 {CBM-@} 12
  9691. y"$ C(D(x2)){CBM-E}2 {CBM-P} m{CBM-R}2 {CBM-M} xh{CBM-R}mc(3): mc(3){CBM-R}mc(3){CBM-N}1
  9692. ". C(D(x2)){CBM-E}2 {CBM-P} m{CBM-R}3 {CBM-M} sz{CBM-R}E(J(D(x2),3,1)): mc(3){CBM-R}xh
  9693. {CBM-A}"8tz{CBM-R}wz{CBM-N}sz{CBM-Q}1:  tz{CBM-E}7 {CBM-M} tz{CBM-R}tz{CBM-Q}7
  9694. V"bth{CBM-R}mc(m){CBM-N}t:  th{CBM-E}mc(m====
  9695. T/X subroutine datumspruefung
  9696. {$f4}/{$e2} =========================
  9697. 0{$ec} a{CBM-R}0 {CBM-M} f{CBM-R}1
  9698. 0{$f6} a{CBM-W}0 {CBM-A} a{CBM-E}2299 {CBM-M} f{CBM-R}2
  9699. 50
  9700.  t{CBM-W}{CBM-R}0 {CBM-A} t{CBM-E}31 {CBM-M} f{CBM-R}3
  9701. u0
  9702.  m{CBM-W}{CBM-R}0 {CBM-A} m{CBM-E}12 {CBM-M} f{CBM-R}5:  3910
  9703. 0 a{CBM-E}{CBM-R}1600 {CBM-P} I(D(a),2){CBM-R}"00" {CBM-P} a{CBM-Z}400{CBM-R}{CBM-J}(a{CBM-Z}400) {CBM-P} m{CBM-R}2 {CBM-M}  3890
  9704. F0 I(D(a),2){CBM-W}{CBM-E}"00" {CBM-P} a 3950
  9705. X%z
  9706. x5{CBM-R}1: x{CBM-R}0
  9707. {$ef}%D
  9708.  z1${CBM-R}"n" {CBM-M}  2840
  9709. {$f7}%N
  9710.  :
  9711. &X
  9712.  zusatzeingaben
  9713. &
  9714.  :
  9715. -&
  9716.  w2$;t1$t9$;a: w5$
  9717. 7&
  9718. x{CBM-R}x{CBM-N}1
  9719. i& 
  9720. b2$;:h1$(x)
  9721. ^&{CBM-N}
  9722.  t0$,,:  h1(x)
  9723. W&{CBM-H}
  9724.  t0$,,,:  h3(x): 
  9725. &{CBM-V}
  9726. h1$(x){CBM-R}H(h1$(x),16)
  9727. {CBM-D}&H
  9728. t{CBM-R}h1(x): m{CBM-R}h3(x):  3820
  9729. {CBM-B}&R
  9730.  f{CBM-E}0 {CBM-M}  3950
  9731. O&sgabe bildschirm
  9732. N,
  9733.  :
  9734. {$e8},
  9735.  w2$;w1$:  t4$;a: 
  9736. {$f7},{CBM-I}
  9737.  x{CBM-R}1 {CBM-@} z6
  9738. -{CBM-D}
  9739. f3${CBM-R}mo$(f3(x)): f2${CBM-R}ta$(f2(x))
  9740. 9-{CBM-L}
  9741.  f1$(x){CBM-R}f1$(x{CBM-Q}1) {CBM-M}  3530
  9742. g-{SHIFT-*}
  9743.  f1$(x);
  9744. F-J
  9745. {CBM-T}16)f1(x);{CBM-T}20)f3$;{CBM-T}29)f2$
  9746. {$7e}-T
  9747. {CBM-POUND}(x{CBM-R}16{CBM-P}z6{CBM-E}16){CBM-M}3550
  9748. {CBM-M}-U
  9749. at,2,24:t3$;:4352:w2$w1$:t4$a:
  9750. {CBM-P}-{$de}
  9751.  x
  9752. H-{$e8}
  9753. ,7:m:at,30,9:  a: t{CBM-R}1
  9754. F 3820:  f{CBM-E}0 {CBM-M}  3950
  9755. P 4080
  9756. 1Ztz{CBM-R}wz{CBM-N}sz{CBM-Q}1:  tz{CBM-E}7 {CBM-M} tz{CBM-R}tz{CBM-Q}7
  9757. {$60}{$e4}th{CBM-R}mc(m){CBM-N}1: th{CBM-R}th{CBM-Q}{CBM-J}(th{CBM-Z}7){CBM-D}7:  th{CBM-R}0 {CBM-M} th{CBM-R}7
  9758. V{$ee} tz{CBM-W}th {CBM-M} tz{CBM-R}tz{CBM-N}7
  9759. {$f8}th{CBM-R}tz{CBM-Q}th{CBM-N}1:x3{CBM-R}1:td(x3){CBM-R}th:xh{CBM-R}mc(3)
  9760. {CBM-U} x1{CBM-R}2 {CBM-M} mc(3){CBM-R}mc(3){CBM-N}1
  9761. Zmc(m){CBM-N}td(x3){CBM-N}6{CBM-E}{CBM-R}mc
  9762. ~Beschreibungen auf Diskette:
  9763. ----------------------------
  9764.  
  9765. lied.txt
  9766. lied-2.txt
  9767. charts.txt
  9768. lotterie.txt
  9769. kalender.txt
  9770. disklabel.txt
  9771.  
  9772. Geben Sie bitte den Filenamen ein und
  9773. dr{CBM-X}cken dann Return. Nach dem Laden
  9774. gelangen Sie mit der CLR-Taste an den
  9775. Textanfang.#
  9776.  
  9777.  kalender=2300===========c64
  9778. a
  9779.  (p) commodore disc team
  9780. C
  9781.  ===========================
  9782. (
  9783.  (c) by fwk             v3.5
  9784. 2
  9785.         wiesloch
  9786. {CBM-K}<
  9787.  
  9788. Cf
  9789.  (v) a.m.               v2.0
  9790. Zp
  9791.  drucker optional
  9792. {$f0}z
  9793.  (citizen 120-d)
  9794. [
  9795.  =======1883,2091,2187
  9796. ! ==========================
  9797. @ ostergrenzen  = og(7,19)
  9798. A& ==========================
  9799. M0 og(1)
  9800. : ==========================
  9801. {CBM-S}d 15,4,23,12,1,20,9,28,17,6
  9802. Ln 25,14,3,22,11,0,19,8,27
  9803. {$ed}x ==========================
  9804. {$f9}, donnerstag,freitag,samstag
  9805. 86 ==========================
  9806. x@ monatskonstante  = mc(13)
  9807. Yj ==========================
  9808. t 0,31,59,90,120,151,181
  9809. {CBM-H}^ 212,243,273,304,334,365
  9810. UH ==========================
  9811. {$fb}R sonntags 'buchstaben'  = s
  9812. hnam,10,5,5
  9813. .\ 1,1,neujahr,6,1,hl.drei koenige,1,5,tag der arbeit
  9814. ^F 15,8,mariae himmelf.,3,10,t.d.dtsch.einh.
  9815. {CBM-Q}P 1,11,allerheiligen,25,12,weihnachten,26,12,weihnachten,buss und bettag
  9816. LZ ==========================
  9817. {SHIFT--} data lesen
  9818. {$fe} ====
  9819. lt4${CBM-R}b2${CBM-N}"festtagskalender des jahres"
  9820. -vt5${CBM-R}"nr. d. wochentages ="
  9821. n{$60}t6${CBM-R}"tagesdatum"{CBM-N}b5${CBM-N}b4${CBM-N}"="
  9822. NJt7${CBM-R}"nr. d. monats"{CBM-N}b6${CBM-N}"="
  9823. Tt8${CBM-R}"jahr"{CBM-N}b${CBM-N}b5${CBM-N}"="
  9824. {CBM-K}{$7e}t9${CBM-R}"zusatzeingaben"
  9825. {CBM-A}t0${CBM-R}G(145)
  9826. Yl1${CBM-R}"":  x{CBM-R}1 {CBM-@} 40: l1${CBM-R}l1${CBM-N}"-":  x
  9827. l2${CBM-R}{CBM-N}G(25){CBM-N}G(36){CBM-N}G(0)
  9828. p vertikale vergroesserung ein
  9829. 3zp4${CBM-R}G(27){CBM-N}G(126){CBM-N}G(49){CBM-N}G(49)
  9830. vD vertikale vergroesserung aus
  9831. WNp5${CBM-R}G(27){CBM-N}G(126){CBM-N}G(49){CBM-N}G(48)
  9832. X sprung zum naechsten htab
  9833. {CBM-@}p6${CBM-R}G(9)
  9834. D =========================
  9835. {CBM--} eroeffnungsgrafik
  9836. ===================
  9837. .\
  9838. 57812"sysmc",8,0:780,0
  9839. k]
  9840. 781,254:782,191:65493
  9841. KD
  9842.  =========================
  9843. UN
  9844. 4320
  9845. X
  9846. G(147);:at,11,11:"bitte warten !";
  9847. {SHIFT-*}
  9848.  ==========================
  9849. {$de}
  9850.  variable dimensionieren
  9851. ~
  9852.  =======================B og(2)
  9853. L ==========================
  9854. ;V 22,11,0,19,8,27,16,5,24,13
  9855. y 2,21,10,28,18,7,26,15,4
  9856. Z ==========================
  9857.  og(3+4)
  9858. {SHIFT-POUND} ==========================
  9859. N{CBM-POUND}re: 23,12,1,20,9,28,17,6,25,14
  9860. {$eb}{CBM-R} 3,22,11,0,19,8,27,16,5
  9861. b(28)
  9862.  
  9863. {$7c} ==========================
  9864. b
  9865.  76,5,4,3,21,7,6,5,43,2,1,7,65,4
  9866. G
  9867.  3,2,17,6,5,4,32,1,7,6,54,3,2,1
  9868.  
  9869.  ==========================
  9870. {CBM-P}
  9871. {CBM-@} feste sonntagsbuchstaben = fb(5)
  9872. P
  9873. {CBM-S} ==========================
  9874.  
  9875. {CBM-U} 3,5,7,3,5
  9876. B ===================================
  9877.  x{CBM-R}1 {CBM-@} 12:  mo$(x):  x
  9878. 8{CBM-I} x{CBM-R}1 {CBM-@} 7:  ta$(x): x
  9879. u{CBM-D} x{CBM-R}1 {CBM-@} 13:  mc(x):  x
  9880. Q{CBM-L} x{CBM-R}1 {CBM-@} 28:  sb(x): x
  9881. {SHIFT-*} x{CBM-R}2 {CBM-@} 6:  fb(x):  x
  9882. {SHIFT-POUND}J x{CBM-R}1 {CBM-@} 7:  gj(x):  x
  9883. ET x{CBM-R}1 {CBM-@} 7:  zs(x):  x
  9884. S{$de} x{CBM-R}1 {CBM-@} 7
  9885. {$e3}{$e8} x{CBM-R}4 {CBM-M}680
  9886. {$f3}"":  x{CBM-R}1 {CBM-@} 46: l2${CBM-R}l2${CBM-N}"*":  x
  9887. "{CBM-+} =========================
  9888. 6{CBM-A} windowstrings
  9889. v{SHIFT-@} =========================
  9890. ODw1${CBM-R}G(18){CBM-N}t1${CBM-N}G(146)
  9891. {$7e}Nw2${CBM-R}G(147)
  9892. Xw3${CBM-R}""
  9893. {$e2}w4${CBM-R}"":w5${CBM-R}G(18)
  9894. {$e4}{$ec}w5${CBM-R}w5${CBM-N}"bezeichnung(max.16) :"{CBM-N}b2${CBM-N}"tag"{CBM-N}b4${CBM-N}"monat [nr]"{CBM-N}G(
  9895. {$fc}  =========================
  9896. {$fa} =========================
  9897. ( menue
  9898. h =========================
  9899. Bw2$w1$:at,5,3:w3$;
  9900. "x{CBM-R}0: y{CBM-R}0: f{CBM-R}0: x1{CBM-R}0: x2{CBM-R}0: x5{CBM-R}0
  9901. {CBM-J}, "bitte geben sie die nummer des":at,5,4
  9902. {$e6}6 "gewuenschten unterprogramms e===
  9903. 7
  9904.  
  9905.  mo$(12),ta$(7),mc(13),sb(28),gj(7),zs(7),og(7,19)
  9906. A
  9907. {CBM-N}
  9908.  f1$(32),f1(32),f2(32),f3(32),v2(32)
  9909.  
  9910. {CBM-H}
  9911.  h1$(16),h1(16),h3(16):920
  9912. {CBM-T}
  9913. {CBM-V}
  9914.  ==========================
  9915. {CBM-H}
  9916. H
  9917.  datazeilen
  9918. U
  9919. R
  9920.  ==========================
  9921. {$f2}
  9922. {CBM--}
  9923.  monatsnamen  = mo$(12)
  9924. {$e6}
  9925.  ={CBM-C} ==========================
  9926. F og(5+6)
  9927. ;P ==========================
  9928. AZre: 24,13,2,21,10,28,18,7,26,15
  9929. {$7e}{$e4} 4,23,12,1,20,9,27,17,6
  9930. {$ee} ==========================
  9931. {CBM-Q}{$f8} og(7)
  9932. L ==========================
  9933. {$ed} 25,14,3,22,11,0,19,8,27,1=============
  9934. L grenzjahre  = gj(7)
  9935. <V ==========================
  9936. {$7d}  15821004,17000101,18000101,19000101,21000101,22000101,1e20
  9937. {$ea} ==========================
  9938. {CBM-O}{$f4} zyklusstart  = zs(7)
  9939. Z{$fe} ==========================
  9940.  
  9941. -9,1567,1691,1787,{$f2} x{CBM-R}6 {CBM-M}730
  9942. {$fc} y{CBM-R}1 {CBM-@} 19:  og(x,y):  y
  9943.  x
  9944. : =========================
  9945. l textstrings
  9946. L$ =========================
  9947.  .t1${CBM-R}b4${CBM-N}b4${CBM-N}"*** programm kalender ***"{CBM-N}b4${CBM-N}b3$
  9948. K8t2${CBM-R}b6${CBM-N}"** weiter mit <space> **"{CBM-N}b6$
  9949. {$e4}bt3${CBM-R}G(18){CBM-N}t2${CBM-N}G(146)146)
  9950. {$f6} =========================
  9951.  
  9952.  druckersteuerung
  9953. ;
  9954.  =========================
  9955. n master reset
  9956. {$60}p1${CBM-R}G(27){CBM-N}"@"
  9957. ( linken rand setzen in spalte 10
  9958. {CBM-K}2p2${CBM-R}G(27){CBM-N}G(108){CBM-N}G(10)
  9959. F< var. htabs in spalten 20,25,36
  9960. {$ef}fp3${CBM-R}G(27){CBM-N}"d"{CBM-N}G(20)in:":at,5,6
  9961. @ "wochentag = 1":at,5,8
  9962. #j "tagesdatum= 2":at,5,10
  9963. bt "monat"b5$"= 3":at,5,12
  9964. D^ "festtage"b2$"= 4":at,5,14
  9965. YH "end"b6$" = 5"
  9966. {$7c}{CBM-K}x$:x${CBM-R}""{CBM-M}1660
  9967. {CBM-H}F(x$){CBM-P}7 1720,1910,2220,2550,1680
  9968. {CBM-B} 1560
  9969. L w2$: 
  9970. {$ec} ==============================
  9971. ={$f0}
  9972.  januar,februar,maerz,april,mai,juni
  9973. S{$fa}
  9974.  juli,august,september,oktober,november,dezember
  9975.  ==========================
  9976. {CBM-P} tagesnamen  = ta$(7)
  9977. P ==========================
  9978. {$f6}"sonntag,montag,dienstag,mittwoch
  9979. 6
  9980.  5,24,13,2,21,10,28,18,7
  9981. ,  ==========================
  9982. e* daten der festtage
  9983. F4 ==========================
  9984. >re: ostern,0,1,3,ostern,1,2,3,karfreitag,-3,6,3
  9985. Kh christi himmelf.,41,5,5,pfingsten,10,1,5
  9986. {$f5}r pfingsten,1,2,5,fronleic
  9987. {CBM-+}{SHIFT-POUND}J{CBM-I}{$f1}&'{CBM-I}
  9988. {CBM-I}P{CBM-I}
  9989.  P{$ea}{$ea}{$ea}{$ea}{$ea}{CBM-I}  {SHIFT-@}~{CBM-I}{$f0} {SHIFT-POUND} {CBM-X}~{SHIFT-POUND}
  9990.  U~{CBM-I}P 3{CBM-G}{CBM-G}"I-{CBM-G}#I
  9991. .lQ{CBM-POUND}disclader64/128
  9992. {$e3}{CBM-@}{$7c}{CBM-G}{CBM-M}{$e4}{CBM-M}{CBM-S}
  9993.  
  9994.  
  9995.  
  9996. lh{CBM-R}
  9997. 1{$ea}F{$fe}g{$fe}j{$f3}{$f2}{$f2}p{$f2}3{$f3}w{$f1}{CBM-+}{$ed}{$f6}>{$f1}/{$f3}F{$fe}{CBM-G}{$f4}{$ed}{$f5}@l~
  9998.  
  9999.  
  10000.  
  10001.  
  10002.  
  10003.  
  10004.  
  10005.  
  10006.  
  10007.  
  10008.  
  10009.  
  10010.  
  10011.  
  10012.  
  10013.  
  10014.  
  10015.  
  10016.  
  10017.  
  10018.  
  10019.  
  10020.  
  10021.  
  10022.  
  10023.  
  10024.  
  10025.  
  10026.  
  10027.  
  10028.  
  10029.  
  10030.  
  10031.  
  10032.  
  10033.  
  10034.  
  10035.  
  10036.  
  10037.  
  10038.  
  10039.  
  10040.  
  10041.  
  10042.  
  10043.  
  10044.  
  10045.  
  10046.  
  10047.  
  10048.  
  10049.  
  10050.  
  10051.  
  10052.  
  10053.  
  10054.  
  10055.  
  10056.  
  10057.  
  10058.  
  10059.  
  10060.  
  10061.  
  10062.  
  10063.  
  10064.  
  10065.  
  10066.  
  10067.  
  10068.  
  10069.  
  10070.  
  10071.  
  10072.  
  10073.  
  10074.  
  10075.  
  10076.  
  10077.  
  10078.  
  10079.  
  10080.  
  10081.  
  10082.  
  10083.  
  10084.  
  10085.  
  10086.  
  10087.  
  10088.  
  10089.  
  10090.  
  10091.  
  10092.  
  10093.  
  10094.  
  10095.  
  10096.  
  10097.  
  10098.  
  10099.  
  10100.  
  10101.  
  10102.  
  10103.  
  10104.  
  10105.  
  10106. "
  10107.  
  10108.  == disclader64/128==
  10109. w
  10110. i{CBM-R}0{CBM-@}24:cd${CBM-R}cd${CBM-N}G(17):cu${CBM-R}cu${CBM-N}G(145)::cr${CBM-R}G(29)
  10111. W
  10112. nr{CBM-R}5:fl{CBM-R}9:pf${CBM-R}"->":pl${CBM-R}"  "
  10113.  
  10114. in$(fl),d$(fl),id$(fl),zl(fl)
  10115. {CBM-Q}
  10116. G(147)G(14)
  10117. A
  10118. 53280,0:53281,0
  10119. R{$e8}G(147)G(14)
  10120. {$e9}"Profi Club"nr::"Inhaltsverzeichnis:Waehlen Sie das Programm mit den "
  10121. m
  10122. {$de}"Cursor-Tasten  >>ab<<  oder >>auf<< aus"
  10123.  
  10124. {CBM-*}"und druecken Sie die  <RETURN>-Taste  !";:x{CBM-R}1:y{CBM-R}6:y1{CBM-R}7
  10125. {CBM-T}
  10126. {$e6}G(19)cr$H(cd$,y)pf$
  10127. {CBM-Q}
  10128. {$e7}{CBM-K}a$
  10129. R
  10130. {$e8}a${CBM-R}G(145){CBM-P}y{CBM-E}6{CBM-M}y{CBM-R}y{CBM-Q}1:y1{CBM-R}y{CBM-N}1:10000
  10131. {$fb}
  10132. {$e9}a${CBM-R}G(17){CBM-P}y{CBM-W}5{CBM-N}fl{CBM-M}y{CBM-R}y{CBM-N}1:y1{CBM-R}y{CBM-Q}1:1000
  10133. 198,4:
  10134. P"     Info"," 64","in*"
  10135. eT"     Disk Monitor"," 64","disk m*"
  10136. GU"     Lotterie"," 64","lot*"
  10137. V"     Stradenk"," 64","stra*"
  10138. {CBM-Z}X"     Kalender"," 64","kale*"
  10139. SZ"     Liedhelfer"," 64","liedh*"
  10140.  
  10141.  
  10142. {$f7}"(40) Business Charts","128",D
  10143.  cp-load by a.m.
  10144. N
  10145.  
  10146. -X
  10147. 340:G(14)
  10148. j
  10149. G(147){CBM-+}11)"CP-LOAD/V1.1
  10150. Z
  10151. :" Ein CP-Programm starten Sie durch die"
  10152. {CBM-I}
  10153. " die Eingabe des Programmnamens."
  10154. :" Eine Auflistung vorhandener"
  10155. {$f3}{CBM-N}
  10156. " CP-Programme erhalten Sie durch:":
  10157. {CBM-H}
  10158. {CBM-+}16)"0
  10159.  
  10160.  fi${CBM-R}"end"{CBM-M}64738
  10161. ?
  10162. i{CBM-W}{CBM-R}C(fi$){CBM-M}J(fi$,i,1){CBM-W}{CBM-E}" "{CBM-M}i{CBM-R}i{CBM-N}1:270
  10163. \
  10164. fi${CBM-R}H(fi$,i{CBM-Q}1):300:240
  10165. N
  10166. "410:50387:
  10167. {$7f}
  10168. ,fi${CBM-R}fa${CBM-M}290
  10169. {CBM-K}
  10170. 657812"/"{CBM-N}fi${CBM-N}".exe",8,1:500
  10171. {CBM-P}
  10172. @st{CBM-W}{CBM-E}64{CBM-M}
  10173. {$e5}
  10174. jfa${CBM-R}fi$:51698,0:50489,B(781):50490,B(782):290
  10175. t4096,cpv1.1mc,"X
  10176. 340:G(14)G(147)
  10177. '310:64738
  10178. Ea${CBM-R}"* info.txt":i{CBM-R}1{CBM-@}C(a$):511{CBM-N}i,F(J(a$,i,1))::511{CBM-N}i,0
  10179. 631,136:632,68:633,76:198,3
  10180. "410:50387:
  10181. {CBM-E}6f${CBM-R}"/ed.exe":490
  10182. {CBM-B}@st{CBM-W}{CBM-E}64{CBM-M}
  10183. {$ed}j51698,0:50489,B(781):50490,B(782):281
  10184. t4096,cpv1.1
  10185. ,8,1
  10186.  
  10187. {$f4}780,0:65493:
  10188.  
  10189.  
  10190. 310:64738
  10191. Ea${CBM-R}"* info.txt":i{CBM-R}1{CBM-@}C(a$):511{CBM-N}i,F(J(a$,i,1))::511{CBM-N}i,0
  10192. 631,136:632,68:633,76:198,3
  10193. "410:50387:
  10194. {CBM-E}6f${CBM-R}"/ed.exe":490
  10195. {CBM-B}@st{CBM-W}{CBM-E}64{CBM-M}
  10196. {$ed}j51698,0:50489,B(781):50490,B(782):281
  10197. t4096,cpv1.1
  10198. {SHIFT-*}{CBM-G}{$fb}E{$fd}{$fd}{CBM-G}{$fc}E{$fe}{$fe}{$60}8{CBM-G}{$fb}{$e5}{$fd}{$fd}{CBM-G}{$fc}{$e5}{$fe}{$fe}{$60}{CBM-G}{$fb}{$fd}{$fd}{CBM-G}{$fc}{$fe}{$fe}{$60}{CBM-G}{$fb}%{$fd}{$fd}{CBM-G}{$fc}%{$fe}{$fe}{$60}{CBM-G}{$fb}e{$fd}{$fd}{CBM-G}{$fc}e{$fe}{$fe}{$60}{CBM-G}{$fd}i~{$fd}{CBM-G}{$fe}i~{$fe}{$60}{$fd}&{$fe}{$60}f{$fe}F{$fd}{$60}{SHIFT-POUND}~{$fd}{$fe}{$60}{SHIFT-POUND}
  10199. {$fd}{$fe}{$60} {SHIFT-*}{$fd}{$f0}{$eb}P{$f0} {SHIFT-*}{$fd}{$f0}{$e9}P  {SHIFT-*}{SHIFT-+}{CBM-A}  {SHIFT-*}{SHIFT-+}{CBM-A}R {SHIFT-*}M{$fd}{$f0}IPN {SHIFT-*}I{$fd}{$f0}EP{CBM-C}{CBM-G}{$fd}y{CBM-G}{$fe}z A{SHIFT-*}{$f0} 
  10200. {SHIFT-*}{$fb}&{$fc}fzFy{CBM-A}{$f3}{CBM-G}yzP{$f0}{$60}{CBM-I}
  10201. yz{CBM-G}{$fd}{$fe}Pl
  10202.  
  10203. {$e8}{$fd}&{$fe}{CBM-G}{$fe}{$f7}8{CBM-G}{$fb}{$e5}{$fd}{CBM-POUND}{CBM-G}{$fc}{$e5}{$fe}&y&z({$fc}{$fb}f{$fe}F{$fd}J{$e3}{$60} {CBM-B}{SHIFT-*}{CBM-G}y{$fd}{$60} 
  10204. {CBM-E}[E[{CBM-N}H{CBM-E}[E\\[{$60}{CBM-G}{$fd}{$fe}P{$e8}{$f0} {CBM-R}A{CBM-G}[I{$fd}{CBM-G}\lE{$ea} 
  10205. {CBM-G}{$fd}]H{CBM-G}{$fe}]{CBM-G}]IlE^{$60} %B8{CBM-G}_{$e9}_{CBM-A}F{$60} 
  10206. {CBM-G}]_H{CBM-G}^_{$60} 
  10207. 8{CBM-E}_{$e9}]H{CBM-E}_{$e9}
  10208. ^{CBM-E}]{$fb}H{CBM-E}]{$fc}{CBM-G}_I_{$e6}{$60}{$60} 
  10209. {CBM-E}_{CBM-+}AA_H{CBM-E}_{CBM-+}BB_{$60} ZB8{CBM-G}_{$e9}_{CBM-A}F{$60}{CBM-G}[I_H{CBM-G}\I
  10210. _l{$fb}A 
  10211. {CBM-E}_[H{CBM-E}_\{CBM-G}_I_{$e6}{$60}{$60} {CBM-A}B{CBM-Z} {CBM-O}{$fb}
  10212. ]J{$f8}{CBM-G}]I]{$e6}^{$60} =B MB{CBM-@} GB 
  10213. {CBM-E}_]H{CBM-E}_CH{CBM-E}yDH{CBM-E}y{$fb}H{CBM-E}y{$fc}{$60}{CBM-E}y{$fc}{$60}{SHIFT-POUND}X{CBM-I} 
  10214. {$fc}{$fe}{$fb}{$fd}{CBM-I} ZE{$e6}{$fc}{$e6}{$fe}JP{$f6}{$60}X{CBM-G}){$fc}{$60}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea} {$e5}C {$f1}C{CBM-@}C{CBM-I}
  10215. C{CBM-+}D{CBM-G}{$fd}HP{$e8}{$e6}DQC{$f0}D{$fb}P{$f2}{$e4}{$fc}P{$ee}lA{SHIFT-*}{$fd}{$fe}{$60}{SHIFT-POUND}PqD 6D{SHIFT-POUND}{$f0}qD{$60} {$e5}Cl{$f1}CC {CBM-E}yD{$60} QD 
  10216. {CBM-+}{$fe}{$f0}P{$ea}{$ea}{$ea}{CBM-E}CQ{$fb}PHP{$f7}{$e6}{$fc}JP{$f2}{CBM-+}{$fd}{$f0}
  10217. {CBM-E}CQ{$fb}PHJP{$f6}lz{SHIFT-*}lA{SHIFT-*}{CBM-I}{CBM-J}y JJ{$f8}{CBM-G}){$fe}{$60}
  10218.  
  10219.  
  10220.  
  10221. {$60}{$ef}r{$ea}{$ea}0G JG {CBM-A}D{SHIFT-@}FDHJD{CBM-I}{CBM-X}KD[J{$f8} 
  10222. {CBM-E}[{$e6}[P{$e6}\
  10223. ":G(5)
  10224. -{$ea}G(176);:i{CBM-R}0{CBM-@}36:G(192);::G(174)
  10225. :{$eb}ih{CBM-R}1{CBM-@}fl
  10226. {$60}{$f2}in$(ih),d$(ih),id$(ih):zl(ih){CBM-R}yp
  10227. V{$fc}G(221){CBM-T}3)d$(ih);
  10228. {$fd}j{CBM-R}0{CBM-@}C(in$(ih))
  10229. {CBM-+}{$fe}{CBM-T}6{CBM-N}j)J(in$(ih),j{CBM-N}1,1);
  10230. {CBM-D}
  10231.  
  10232. {CBM-C}{CBM-T}38)G(221)
  10233. B
  10234. {$ea}{CBM--}G(173);:i{CBM-R}0{CBM-@}36:G(192);::G(189)
  10235.  
  10236. {SHIFT--}G(14):{CBM-T}3)"0
  10237. {$ea}a${CBM-R}G(13){CBM-M}1600
  10238. >1511
  10239. "@i{CBM-R}y{CBM-Q}5
  10240. :{CBM-@}G(147)G(144)G(142)
  10241. o{CBM-S}B(772){CBM-R}124{CBM-M}1730
  10242. {CBM-U}G(19)"run"G(34)id$(i):842,19:843,13:208,2:
  10243. {CBM-Q}BG(19)"load"G(34)id$(i)G(34)",8,1"
  10244. {SHIFT-@}Crn${CBM-R}"run"
  10245. HLH(cd$,5)
  10246. WVG(145)rn$
  10247. ~ 631,19:i{CBM-R}1{CBM-@}3:631{CBM-N}i,13::
  10248. {CBM-W}"busines*"
  10249. 6
  10250. {$f8}"(80) Disklabel EPS/IBM","128","disklab eps/ibm"
  10251. L
  10252. {$fd}"(80) Disklabel MPS1200","128","disklab mps1200"
  10253.  
  10254. 'G(19)cr$H(cd$,y1)pl$
  10255.  
  10256. 'G(19)cr$H(cd$,y)pf$
  10257. {CBM-G}
  10258. $'
  10259.  
  10260.  
  10261. {SHIFT-@}Crn${CBM-R}"run"
  10262. HLH(cd$,5)
  10263. WVG(145)rn$
  10264. ~ 631,19:i{CBM-R}1{CBM-@}3:631{CBM-N}i,13::dir /*":
  10265. 2{CBM-V}
  10266. " Der Zusatz .exe kennzeichnet dabei"
  10267. hH
  10268. " CP-Programme."
  10269. UR
  10270. :" Dieses Ladeprogramm wird durch die"
  10271. {CBM--}
  10272. " Eingabe des Wortes end mit einem"
  10273. {CBM-F}{$e6}
  10274. " Reset verlassen."::
  10275. {$e9}{$f0}
  10276. fi${CBM-R}"":fi$:fi${CBM-R}"x"{CBM-M}8,8,15,"i0": 8:240
  10277. {$fd}{$fa}
  10278. i{CBM-R}1:fi${CBM-R}""{CBM-M}13{$fb}{$f2}lz{SHIFT-*} DP{$ea}{CBM-E}CQ{$fb}{CBM-A}{$e4}lz{SHIFT-*} QD{CBM-G}{$fb} 
  10279. {CBM-+}{$fe}{$f0} (FP{$fb}{$e6}{$fc}{$e6}DJP{$f4}{CBM-+}{$fd}{$f0} (FJP{$fa}{$60}{CBM-E}C{$fb}H{$60}CH{$60}{SHIFT-POUND}. <F F{SHIFT-POUND}(F"F{$60}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{CBM-G}x{$60}{$ea} KL{SHIFT-POUND}
  10280. {$60}{CBM-N} =Nh JMHI
  10281. P{SHIFT-POUND} {$60} GI {$f0}{$f9} 
  10282. GHI{CBM-N}{$f0}#I'{$f0}I"{$f0}I
  10283. {$f0} GI {$f0}{CBM-N}{$f0}{CBM-@}IG{$e6}IP{$ee}{CBM-G}F{$60}8{$60}{$ea}{$ea}{$ea}~Ia{$e9}){$60}
  10284. {SHIFT-POUND}
  10285. {$fd}{$fe}{$f0}{CBM-Z}{CBM-P}F{$fb}{SHIFT-POUND}
  10286. {$fc} {SHIFT-*}{CBM-@}J{CBM-E}G{$e6}J {CBM-+}FE{$fd}{$fd}{$e6}{$fe}FIP{$de}{$60} 
  10287. {CBM-E}GI0I:8{$60}{CBM-I}
  10288. {CBM-P}F{CBM-I}
  10289. mc,"syscon64"
  10290. ^pr:a{CBM-R}pr{CBM-Q}1:400
  10291. :HB(55){CBM-R}al {CBM-P} B(56){CBM-R}ah{CBM-M}
  10292. nR55,al:56,ah:
  10293. H{$7c}pr:f$:490:f$:490
  10294. 65028,255:65029,191:
  10295. {CBM-I}ah{CBM-R}{CBM-J}(a{CBM-Z}256):al{CBM-R}a{CBM-Q}256{CBM-D}ah:
  10296. Ua{CBM-R}256{CBM-D}(B(50490){CBM-N}B(4097)){CBM-N}B(50489){CBM-N}B(4096):400
  10297. {$ef}{CBM-@}65026,al:65027,ah:
  10298.  
  10299.  
  10300. {$ea}57812f$
  10301. {CBM-K}J{CBM-+}I {$f0}H{CBM-E}GIx{$f0}IEEE
  10302. EAWA\AsANAEAAE{CBM-F}AB{$fb}A
  10303. BELA,E%B{$e2}A;EBGB
  10304. {SHIFT-*}{SHIFT-*}{SHIFT-*}{$f5}{SHIFT-*}A{SHIFT-*}){SHIFT-*}6{SHIFT-*}u{SHIFT-*}p{SHIFT-*} CVCc{SHIFT-*}H{SHIFT-*}{SHIFT-*}{SHIFT-*}Z{SHIFT-*}{SHIFT-*}Q{SHIFT-*}:BtBFC{$7c}C{CBM-U}CBCLCCCC{CBM-@}C{CBM-S}CuCsE{$7d}EED6DCDFEA
  10305. DF2F{$f8}E{$ea}E(DjF~~{$e6}^{$60}I
  10306. {$fe}l{$fb}A{CBM-G}{$fd}{$fe}{$f0}l{CBM-M}Al{$fb}A{CBM-I}{CBM-X} JyJ{$f8}{CBM-G}{$60}X{CBM-G}){$fb}{$60}
  10307.  
  10308.  (D{CBM-G}{$fd}
  10309. {CBM-N}{CBM-X}
  10310. {$fe}{$fd}{CBM-X}{$fe}{$fe}ljF {CBM-C}E{CBM-E}{$fb}{$fd}HP{$f9}ljFlA{SHIFT-*} DP{$f8}{CBM-E}CQ{CBM-G}z{$fe}{$60} {CBM-B}{SHIFT-*}{CBM-G}{$fb}{$fd}{CBM-G}{$fc}{$fe}{$60}{CBM-G}{$fd}y{CBM-G}{$fe}z{$60} 
  10311. {CBM-E}y{$fd}H{CBM-E}y{SHIFT-POUND}
  10312. {$fe}{$60}{CBM-E}y{CBM-N}{$e8}y{$60}{CBM-E}y{CBM-N}Jy{$60} 
  10313.  &AP{$f8}{CBM-A}{$f6}Hl&A 
  10314. {CBM-E}yP{CBM-A}H .Al.A 
  10315. A 6AlA 
  10316. A cAlA 
  10317. A Al6A 
  10318. A AlcA 
  10319. {CBM-E}{$fd}{CBM-N}H{CBM-E}{$fd}{SHIFT-POUND}
  10320. {$fe}{$fd}{$60} WA(lWA 
  10321. {CBM-G}{$fb}{$fd}{CBM-A}H{CBM-G}{$fc}{$fd}{CBM-G}{$fb}{$fd}{CBM-G}{$fc}{$fe}{$60}{CBM-G}[I[{$e6}\{$60}{CBM-G}{$fd}{$fb}{CBM-G}{$fe}{$fc}{$60} {CBM-R}A 
  10322. {CBM-E}[{$fd}H{CBM-E}[{$fe}{SHIFT-+} {CBM-R}A 
  10323. {CBM-E}[E[{$fd}H{CBM-E}[E\{$fe}E {CBM-R}A 
  10324. {CBM-E}[EA{$fd}{CBM-G}BI
  10325. {$fe}{$e6}[P{$e6}\
  10326. ^lDB =B MB ZB8{CBM-G}_{$e9}_{CBM-A}F{$60} 
  10327. {CBM-G}[_H{CBM-G}\_{CBM-G}{$fd}[{CBM-G}{$fe}{$fd}{$60} 
  10328. 8{CBM-G}]]{$f1}_j{CBM-N}H{CBM-G}^]H]H{SHIFT-POUND}
  10329. ] =B WBlB{CBM-G}{$fd}C{CBM-G}{$fe}DlWA gC{CBM-G}{$fb}{CBM-+}{$fd}{$fd}{$fb}{CBM-G}{$fc}{CBM-+}{$fe}{$fe}{$fc}{$60} gC 
  10330. {SHIFT-*}( 
  10331. {CBM-G}{$fd}C{CBM-A}H{CBM-G}{$fe}C{$60} rC {SHIFT-*}{$e7} gC {SHIFT-*}{SHIFT--} gC ){SHIFT-*}S gC 6{SHIFT-*}I gC p{SHIFT-*}{CBM-B} gC u{SHIFT-*}{CBM-J} gC {SHIFT-*}{CBM-Q} rC {$f5}{SHIFT-*}{CBM-K} rC A c{SHIFT-*}{$e6}{$fd}P{$e6}{$fe}{$60}{CBM-G}{$fe}0{$f2}{$60} 
  10332. {CBM-E}_yH{CBM-E}_z{$60} 
  10333. {CBM-E}y{$fe}D {$fd}D{$ec}LG {CBM-Q}E{CBM-S}FD{$60} {CBM-R}A{SHIFT-POUND}
  10334. {$fe}{$fd}{$60}{CBM-I}
  10335. {$f0}{$f2}{CBM-I}P{$ee}{CBM-I}P{$ea} 
  10336. {CBM-E}[{$e6}[P{$e6}\{CBM-N}{CBM--} 
  10337. {CBM-G}{$fd}]{$e6}]P{$e6}^{$60}W {CBM-R}A 
  10338. {CBM-E}[M9E{$fd}H{CBM-E}[M:E{$fe}l{CBM-M}A{CBM-G}{$fd}LE{CBM-G}{$fe}ME{CBM-Z}JDh{CBM-Z}GD{CBM-S}HD{CBM-D}ID( R~GDHDIDHJD{$60}{CBM-Z}JDh(HJD{$60}{CBM-Z}JDh(8{CBM-A}{$f2}]{$e6}^{$60}I
  10339. {$fe}l{$fb}A{CBM-G}{$fd}{$fe}{$f0}l{CBM-M}Al{$fb}A{CBM-I}{CBM-X} JyJ{$f8}{CBM-G}{$60}X{CBM-G}){$fb}{$60}
  10340.  
  10341.  (D{CBM-G}{$fd}
  10342. {CBM-N}{CBM-X}
  10343. {$fe}{$fd}{CBM-X}{$fe}{$fe}ljF {CBM-C}E{CBM-E}{$fb}{$fd}HP{$f9}ljFlA{SHIFT-*} DP{$f8}{CBM-E}CQa
  10344.  
  10345.  
  10346.  
  10347.  
  10348.  
  10349.  
  10350.  
  10351.  
  10352.  
  10353.  
  10354.  
  10355.  
  10356.  
  10357.  
  10358.  
  10359.  
  10360. p
  10361.  
  10362.  
  10363.  
  10364.  
  10365.  
  10366.  
  10367.  
  10368.  
  10369.  
  10370.  
  10371.  
  10372.  
  10373.  
  10374.  
  10375.  
  10376.  
  10377.  
  10378.  
  10379.  
  10380.  
  10381.  
  10382.  
  10383.  
  10384.  
  10385.  
  10386.  
  10387.  
  10388.  
  10389.  
  10390.  
  10391.  
  10392.  
  10393.  
  10394.  
  10395.  
  10396.  
  10397.  
  10398.  
  10399.  
  10400.  
  10401.  
  10402.  
  10403.  
  10404.  
  10405.  
  10406.  
  10407.  
  10408.  
  10409. L{SHIFT-+}
  10410.  
  10411.  
  10412.  
  10413.  
  10414.  
  10415.  
  10416.  
  10417.  
  10418.  
  10419.  
  10420.  
  10421.  
  10422.  
  10423.  
  10424.  
  10425.  
  10426.  
  10427.  
  10428.  
  10429.  
  10430.  
  10431.  
  10432.  
  10433.  
  10434.  
  10435.  
  10436.  
  10437.  
  10438.  
  10439.  
  10440.  
  10441.  
  10442.  
  10443.  
  10444.  
  10445.  
  10446.  
  10447.  
  10448.  
  10449.  
  10450.  
  10451.  
  10452.  
  10453.  
  10454.  
  10455.  
  10456.  
  10457.  
  10458.  
  10459.  
  10460.  
  10461.  
  10462.  
  10463.  
  10464.  
  10465.  
  10466.  
  10467.  
  10468.  
  10469.  
  10470.  
  10471.  
  10472.  
  10473. @
  10474. 64 profi club     05 2a    
  10475.  
  10476.  
  10477.  
  10478.  
  10479.  
  10480.  
  10481.  
  10482.  
  10483.  
  10484.  
  10485.  
  10486.  
  10487.  
  10488.  
  10489.  
  10490.  
  10491.  
  10492.  
  10493.  
  10494.  
  10495.  
  10496.  
  10497.  
  10498.  
  10499.  
  10500.  
  10501.  
  10502.  
  10503.  
  10504.  
  10505.  
  10506.  
  10507.  
  10508.  
  10509.  
  10510.  
  10511.  
  10512.  
  10513.  
  10514.  
  10515.  
  10516.  
  10517.  
  10518.  
  10519.  
  10520.  
  10521.  
  10522.  
  10523.  
  10524.  
  10525.  
  10526.  
  10527.  
  10528.  
  10529.  
  10530.  
  10531.  
  10532.  
  10533.  
  10534.  
  10535.  
  10536.  
  10537.  
  10538.  
  10539.  
  10540.  
  10541.  
  10542.  
  10543.  
  10544.  
  10545.  
  10546.  
  10547.  
  10548.  
  10549.  
  10550.  
  10551.  
  10552.  
  10553.  
  10554.  
  10555.  
  10556.  
  10557.  
  10558.  
  10559.  
  10560. boot.64         
  10561.  
  10562.  
  10563.  
  10564.  
  10565.  
  10566.  
  10567.  
  10568.  
  10569.  
  10570.  
  10571.  
  10572. disclader64/128 
  10573.  
  10574.  
  10575.  
  10576.  
  10577.  
  10578.  
  10579.  
  10580.  
  10581.  
  10582.  
  10583.  
  10584.  
  10585. {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  10586.  
  10587.  
  10588.  
  10589.  
  10590.  
  10591.  
  10592.  
  10593.  
  10594.  
  10595.  
  10596.  
  10597.  
  10598. info            
  10599.  
  10600.  
  10601.  
  10602.  
  10603.  
  10604.  
  10605.  
  10606.  
  10607.  
  10608.  
  10609.  
  10610.  
  10611. info.txt        
  10612.  
  10613.  
  10614.  
  10615.  
  10616.  
  10617.  
  10618.  
  10619.  
  10620.  
  10621.  
  10622.  
  10623. editor.mc       
  10624.  
  10625.  
  10626.  
  10627.  
  10628.  
  10629.  
  10630.  
  10631.  
  10632.  
  10633.  
  10634.  
  10635. /ed.exe         
  10636.  
  10637.  
  10638.  
  10639.  
  10640.  
  10641.  
  10642.  
  10643.  
  10644.  
  10645.  
  10646.  
  10647. cpv1.1mc        
  10648.  
  10649.  
  10650.  
  10651.  
  10652.  
  10653.  
  10654.  
  10655.  
  10656.  
  10657.  
  10658.  
  10659.  
  10660.  
  10661.  
  10662.  
  10663.  
  10664.  
  10665.  
  10666.  
  10667.  
  10668.  
  10669.  
  10670.  
  10671.  
  10672.  
  10673.  
  10674.  
  10675.  
  10676.  
  10677.  
  10678.  
  10679.  
  10680.  
  10681.  
  10682.  
  10683.  
  10684.  
  10685.  
  10686.  
  10687.  
  10688.  
  10689.  
  10690.  
  10691.  
  10692.  
  10693.  
  10694.  
  10695.  
  10696.  
  10697.  
  10698.  
  10699.  
  10700.  
  10701.  
  10702.  
  10703.  
  10704.  
  10705.  
  10706.  
  10707.  
  10708.  
  10709.  
  10710.  
  10711.  
  10712.  
  10713.  
  10714.  
  10715.  
  10716.  
  10717.  
  10718.  
  10719.  
  10720.  
  10721.  
  10722.  
  10723.  
  10724.  
  10725.  
  10726.  
  10727.  
  10728.  
  10729.  
  10730.  
  10731.  
  10732.  
  10733.  
  10734.  
  10735.  
  10736.  
  10737.  
  10738.  
  10739.  
  10740.  
  10741.  
  10742.  
  10743.  
  10744.  
  10745.  
  10746.  
  10747.  
  10748.  
  10749.  
  10750.  
  10751.  
  10752.  
  10753.  
  10754.  
  10755.  
  10756.  
  10757.  
  10758.  
  10759.  
  10760.  
  10761.  
  10762.  
  10763.  
  10764.  
  10765.  
  10766.  
  10767.  
  10768.  
  10769.  
  10770.  
  10771.  
  10772.  
  10773.  
  10774.  
  10775.  
  10776.  
  10777.  
  10778.  
  10779.  
  10780.  
  10781.  
  10782.  
  10783.  
  10784.  
  10785.  
  10786.  
  10787.  
  10788.  
  10789.  
  10790.  
  10791.  
  10792.  
  10793.  
  10794.  
  10795.  
  10796.  
  10797.  
  10798.  
  10799.  
  10800.  
  10801.  
  10802.  
  10803.  
  10804.  
  10805.  
  10806.  
  10807.  
  10808.  
  10809.  
  10810.  
  10811.  
  10812.  
  10813.  
  10814.  
  10815.  
  10816.  
  10817.  
  10818.  
  10819.  
  10820.  
  10821.  
  10822.  
  10823.  
  10824.  
  10825.  
  10826.  
  10827.  
  10828.  
  10829.  
  10830.  
  10831.  
  10832.  
  10833.  
  10834.  
  10835.  
  10836.  
  10837.  
  10838.  
  10839.  
  10840.  
  10841.  
  10842.  
  10843.  
  10844.  
  10845.  
  10846.  
  10847.  
  10848.  
  10849.  
  10850.  
  10851.  
  10852.  
  10853.  
  10854.  
  10855.  
  10856.  
  10857.  
  10858.  
  10859.  
  10860.  
  10861.  
  10862.  
  10863.  
  10864.  
  10865.  
  10866.  
  10867.  
  10868.  
  10869.  
  10870.  
  10871.  
  10872.  
  10873.  
  10874.  
  10875.  
  10876.  
  10877.  
  10878.  
  10879.  
  10880.  
  10881.  
  10882.  
  10883.  
  10884.  
  10885.  
  10886.  
  10887.  
  10888.  
  10889.  
  10890.  
  10891.  
  10892.  
  10893.  
  10894.  
  10895.  
  10896.  
  10897.  
  10898.  
  10899.  
  10900.  
  10901.  
  10902.  
  10903.  
  10904.  
  10905.  
  10906.  
  10907.  
  10908.  
  10909.  
  10910.  
  10911.  
  10912.  
  10913.  
  10914.  
  10915.  
  10916.  
  10917.  
  10918.  
  10919.  
  10920.  
  10921.  
  10922.  
  10923.  
  10924.  
  10925.  
  10926.  
  10927.  
  10928.  
  10929.  
  10930.  
  10931.  
  10932.  
  10933.  
  10934.  
  10935.  
  10936.  
  10937.  
  10938.  
  10939.  
  10940.  
  10941.  
  10942.  
  10943.  
  10944.  
  10945.  
  10946.  
  10947.  
  10948.  
  10949.  
  10950.  
  10951.  
  10952.  
  10953.  
  10954.  
  10955.  
  10956.  
  10957.  
  10958.  
  10959.  
  10960.  
  10961.  
  10962.  
  10963.  
  10964.  
  10965.  
  10966.  
  10967.  
  10968.  
  10969.  
  10970.  
  10971.  
  10972.  
  10973.  
  10974.  
  10975.  
  10976.  
  10977.  
  10978.  
  10979.  
  10980.  
  10981.  
  10982.  
  10983.  
  10984.  
  10985.  
  10986.  
  10987.  
  10988.  
  10989.  
  10990.  
  10991.  
  10992.  
  10993.  
  10994.  
  10995.  
  10996.  
  10997.  
  10998.  
  10999.  
  11000.  
  11001.  
  11002.  
  11003.  
  11004.  
  11005.  
  11006.  
  11007.  
  11008.  
  11009.  
  11010.  
  11011.  
  11012.  
  11013.  
  11014.  
  11015.  
  11016.  
  11017.  
  11018.  
  11019.  
  11020.  
  11021.  
  11022.  
  11023.  
  11024.  
  11025.  
  11026.  
  11027.  
  11028.  
  11029.  
  11030.  
  11031.  
  11032.  
  11033.  
  11034.  
  11035.  
  11036.  
  11037.  
  11038.  
  11039.  
  11040.  
  11041.  
  11042.  
  11043.  
  11044.  
  11045.  
  11046.  
  11047.  
  11048.  
  11049.  
  11050.  
  11051.  
  11052.  
  11053.  
  11054.  
  11055.  
  11056.  
  11057.  
  11058.  
  11059.  
  11060.  
  11061.  
  11062.  
  11063.  
  11064.  
  11065.  
  11066.  
  11067.  
  11068.  
  11069.  
  11070.  
  11071.  
  11072.  
  11073.  
  11074.  
  11075.  
  11076.  
  11077.  
  11078.  
  11079.  
  11080.  
  11081.  
  11082.  
  11083.  
  11084.  
  11085.  
  11086.  
  11087.  
  11088.  
  11089.  
  11090.  
  11091.  
  11092.  
  11093.  
  11094.  
  11095.  
  11096.  
  11097.  
  11098.  
  11099.  
  11100.  
  11101.  
  11102.  
  11103.  
  11104.  
  11105.  
  11106.  
  11107.  
  11108.  
  11109.  
  11110.  
  11111.  
  11112.  
  11113.  
  11114.  
  11115.  
  11116.  
  11117.  
  11118.  
  11119.  
  11120.  
  11121.  
  11122.  
  11123.  
  11124.  
  11125.  
  11126.  
  11127.  
  11128.  
  11129.  
  11130.  
  11131.  
  11132.  
  11133.  
  11134.  
  11135.  
  11136.  
  11137.  
  11138.  
  11139.  
  11140.  
  11141.  
  11142.  
  11143.  
  11144.  
  11145.  
  11146.  
  11147.  
  11148.  
  11149.  
  11150.  
  11151.  
  11152.  
  11153.  
  11154.  
  11155.  
  11156.  
  11157.  
  11158.  
  11159.  
  11160.  
  11161.  
  11162.  
  11163.  
  11164.  
  11165.  
  11166.  
  11167.  
  11168.  
  11169.  
  11170. syscon64        
  11171.  
  11172.  
  11173.  
  11174.  
  11175.  
  11176.  
  11177.  
  11178.  
  11179.  
  11180.  
  11181.  
  11182.  
  11183. {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  11184.  
  11185.  
  11186.  
  11187.  
  11188.  
  11189.  
  11190.  
  11191.  
  11192.  
  11193.  
  11194.  
  11195.  
  11196. {SHIFT-*}     c-64       
  11197.  
  11198.  
  11199.  
  11200.  
  11201.  
  11202.  
  11203.  
  11204.  
  11205.  
  11206.  
  11207.  
  11208.  
  11209.  
  11210. {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  11211.  
  11212.  
  11213.  
  11214.  
  11215.  
  11216.  
  11217.  
  11218.  
  11219.  
  11220.  
  11221.  
  11222.  
  11223.  
  11224. disk monitor    
  11225.  
  11226.  
  11227.  
  11228.  
  11229.  
  11230.  
  11231.  
  11232.  
  11233. ;
  11234.  
  11235.  
  11236.  
  11237. {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  11238.  
  11239.  
  11240.  
  11241.  
  11242.  
  11243.  
  11244.  
  11245.  
  11246.  
  11247.  
  11248.  
  11249.  
  11250. lotterie        
  11251.  
  11252.  
  11253.  
  11254.  
  11255.  
  11256.  
  11257.  
  11258.  
  11259. &
  11260.  
  11261.  
  11262. "lotterie.txt    
  11263.  
  11264.  
  11265.  
  11266.  
  11267.  
  11268.  
  11269.  
  11270.  
  11271.  
  11272.  
  11273.  
  11274.  
  11275.  
  11276.  
  11277.  
  11278.  
  11279.  
  11280.  
  11281.  
  11282.  
  11283.  
  11284.  
  11285.  
  11286.  
  11287.  
  11288.  
  11289.  
  11290.  
  11291.  
  11292.  
  11293.  
  11294.  
  11295.  
  11296.  
  11297.  
  11298.  
  11299.  
  11300.  
  11301.  
  11302.  
  11303.  
  11304.  
  11305.  
  11306.  
  11307.  
  11308.  
  11309.  
  11310.  
  11311.  
  11312.  
  11313.  
  11314.  
  11315.  
  11316.  
  11317.  
  11318.  
  11319.  
  11320.  
  11321.  
  11322.  
  11323.  
  11324.  
  11325.  
  11326.  
  11327.  
  11328.  
  11329.  
  11330.  
  11331.  
  11332.  
  11333.  
  11334.  
  11335.  
  11336.  
  11337.  
  11338.  
  11339.  
  11340.  
  11341.  
  11342.  
  11343.  
  11344.  
  11345.  
  11346.  
  11347.  
  11348.  
  11349.  
  11350.  
  11351.  
  11352.  
  11353.  
  11354.  
  11355.  
  11356.  
  11357.  
  11358.  
  11359.  
  11360.  
  11361.  
  11362.  
  11363.  
  11364.  
  11365.  
  11366.  
  11367.  
  11368.  
  11369.  
  11370.  
  11371.  
  11372.  
  11373.  
  11374.  
  11375.  
  11376.  
  11377.  
  11378.  
  11379.  
  11380.  
  11381.  
  11382.  
  11383.  
  11384.  
  11385.  
  11386.  
  11387.  
  11388.  
  11389.  
  11390.  
  11391.  
  11392.  
  11393.  
  11394.  
  11395.  
  11396.  
  11397.  
  11398.  
  11399.  
  11400.  
  11401.  
  11402.  
  11403.  
  11404.  
  11405.  
  11406.  
  11407.  
  11408.  
  11409.  
  11410.  
  11411.  
  11412.  
  11413.  
  11414.  
  11415.  
  11416.  
  11417.  
  11418.  
  11419.  
  11420.  
  11421.  
  11422.  
  11423.  
  11424.  
  11425.  
  11426.  
  11427.  
  11428.  
  11429.  
  11430.  
  11431.  
  11432.  
  11433.  
  11434.  
  11435.  
  11436.  
  11437.  
  11438.  
  11439.  
  11440.  
  11441.  
  11442.  
  11443.  
  11444.  
  11445.  
  11446.  
  11447.  
  11448.  
  11449.  
  11450.  
  11451.  
  11452.  
  11453.  
  11454.  
  11455.  
  11456.  
  11457.  
  11458.  
  11459.  
  11460.  
  11461.  
  11462.  
  11463.  
  11464.  
  11465.  
  11466.  
  11467.  
  11468.  
  11469.  
  11470.  
  11471.  
  11472.  
  11473.  
  11474.  
  11475.  
  11476.  
  11477.  
  11478.  
  11479.  
  11480.  
  11481.  
  11482.  
  11483.  
  11484.  
  11485.  
  11486.  
  11487.  
  11488.  
  11489.  
  11490.  
  11491.  
  11492.  
  11493.  
  11494.  
  11495.  
  11496.  
  11497.  
  11498.  
  11499.  
  11500.  
  11501.  
  11502.  
  11503.  
  11504.  
  11505.  
  11506.  
  11507.  
  11508.  
  11509.  
  11510.  
  11511.  
  11512.  
  11513.  
  11514.  
  11515.  
  11516.  
  11517.  
  11518.  
  11519.  
  11520.  
  11521.  
  11522.  
  11523.  
  11524.  
  11525.  
  11526.  
  11527.  
  11528.  
  11529.  
  11530.  
  11531.  
  11532.  
  11533.  
  11534.  
  11535.  
  11536.  
  11537.  
  11538.  
  11539.  
  11540.  
  11541.  
  11542.  
  11543.  
  11544.  
  11545.  
  11546.  
  11547.  
  11548.  
  11549.  
  11550.  
  11551.  
  11552.  
  11553.  
  11554.  
  11555.  
  11556.  
  11557.  
  11558.  
  11559.  
  11560.  
  11561.  
  11562.  
  11563.  
  11564.  
  11565.  
  11566.  
  11567.  
  11568.  
  11569.  
  11570.  
  11571.  
  11572.  
  11573.  
  11574.  
  11575.  
  11576.  
  11577.  
  11578.  
  11579.  
  11580.  
  11581.  
  11582.  
  11583.  
  11584.  
  11585.  
  11586.  
  11587.  
  11588.  
  11589.  
  11590.  
  11591.  
  11592.  
  11593.  
  11594.  
  11595.  
  11596.  
  11597.  
  11598.  
  11599.  
  11600.  
  11601.  
  11602.  
  11603.  
  11604.  
  11605.  
  11606.  
  11607.  
  11608.  
  11609.  
  11610.  
  11611.  
  11612.  
  11613.  
  11614.  
  11615.  
  11616.  
  11617.  
  11618.  
  11619.  
  11620.  
  11621.  
  11622.  
  11623.  
  11624.  
  11625.  
  11626.  
  11627.  
  11628.  
  11629.  
  11630.  
  11631.  
  11632.  
  11633.  
  11634.  
  11635.  
  11636.  
  11637.  
  11638.  
  11639.  
  11640.  
  11641.  
  11642.  
  11643.  
  11644.  
  11645.  
  11646.  
  11647.  
  11648.  
  11649.  
  11650.  
  11651.  
  11652.  
  11653.  
  11654.  
  11655.  
  11656.  
  11657.  
  11658.  
  11659.  
  11660.  
  11661.  
  11662.  
  11663.  
  11664.  
  11665.  
  11666.  
  11667.  
  11668.  
  11669.  
  11670.  
  11671.  
  11672.  
  11673.  
  11674.  
  11675.  
  11676.  
  11677.  
  11678.  
  11679.  
  11680.  
  11681.  
  11682.  
  11683.  
  11684.  
  11685.  
  11686.  
  11687.  
  11688.  
  11689.  
  11690.  
  11691.  
  11692.  
  11693.  
  11694.  
  11695.  
  11696.  
  11697.  
  11698.  
  11699.  
  11700.  
  11701.  
  11702.  
  11703.  
  11704.  
  11705.  
  11706.  
  11707.  
  11708.  
  11709.  
  11710.  
  11711.  
  11712.  
  11713.  
  11714.  
  11715.  
  11716.  
  11717.  
  11718.  
  11719.  
  11720.  
  11721.  
  11722.  
  11723.  
  11724.  
  11725.  
  11726.  
  11727.  
  11728.  
  11729.  
  11730.  
  11731.  
  11732.  
  11733.  
  11734.  
  11735.  
  11736.  
  11737.  
  11738.  
  11739.  
  11740.  
  11741.  
  11742.  
  11743.  
  11744.  
  11745.  
  11746.  
  11747.  
  11748.  
  11749.  
  11750.  
  11751.  
  11752.  
  11753.  
  11754.  
  11755.  
  11756.  
  11757.  
  11758.  
  11759.  
  11760.  
  11761.  
  11762.  
  11763.  
  11764.  
  11765.  
  11766.  
  11767.  
  11768.  
  11769.  
  11770.  
  11771.  
  11772.  
  11773.  
  11774.  
  11775.  
  11776.  
  11777.  
  11778.  
  11779.  
  11780.  
  11781.  
  11782.  
  11783.  
  11784.  
  11785.  
  11786. {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  11787.  
  11788.  
  11789.  
  11790.  
  11791.  
  11792.  
  11793.  
  11794.  
  11795.  
  11796.  
  11797.  
  11798.  
  11799. stradenk        
  11800.  
  11801.  
  11802.  
  11803.  
  11804.  
  11805.  
  11806.  
  11807.  
  11808.  
  11809.  
  11810.  
  11811.  
  11812. {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  11813.  
  11814.  
  11815.  
  11816.  
  11817.  
  11818.  
  11819.  
  11820.  
  11821.  
  11822.  
  11823.  
  11824.  
  11825. kalender        
  11826.  
  11827.  
  11828.  
  11829.  
  11830.  
  11831.  
  11832.  
  11833.  
  11834. /
  11835.  
  11836.  
  11837. kalender.txt    
  11838.  
  11839.  
  11840.  
  11841.  
  11842.  
  11843.  
  11844.  
  11845.  
  11846. h
  11847.  
  11848.  
  11849. sysmc           
  11850.  
  11851.  
  11852.  
  11853.  
  11854.  
  11855.  
  11856.  
  11857.  
  11858.  
  11859.  
  11860.  
  11861.  
  11862. {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  11863.  
  11864.  
  11865.  
  11866.  
  11867.  
  11868.  
  11869.  
  11870.  
  11871.  
  11872.  
  11873.  
  11874.  
  11875. liedhelfer      
  11876.  
  11877.  
  11878.  
  11879.  
  11880.  
  11881.  
  11882.  
  11883.  
  11884.  
  11885.  
  11886.  
  11887.  
  11888.  
  11889.  
  11890.  
  11891.  
  11892.  
  11893.  
  11894.  
  11895.  
  11896.  
  11897.  
  11898.  
  11899.  
  11900.  
  11901.  
  11902.  
  11903.  
  11904.  
  11905.  
  11906.  
  11907.  
  11908.  
  11909.  
  11910.  
  11911.  
  11912.  
  11913.  
  11914.  
  11915.  
  11916.  
  11917.  
  11918.  
  11919.  
  11920.  
  11921.  
  11922.  
  11923.  
  11924.  
  11925.  
  11926.  
  11927.  
  11928.  
  11929.  
  11930.  
  11931.  
  11932.  
  11933.  
  11934.  
  11935.  
  11936.  
  11937.  
  11938.  
  11939.  
  11940.  
  11941.  
  11942.  
  11943.  
  11944.  
  11945.  
  11946.  
  11947.  
  11948.  
  11949.  
  11950.  
  11951.  
  11952.  
  11953.  
  11954.  
  11955.  
  11956.  
  11957.  
  11958.  
  11959.  
  11960.  
  11961.  
  11962.  
  11963.  
  11964.  
  11965.  
  11966.  
  11967.  
  11968.  
  11969.  
  11970.  
  11971.  
  11972.  
  11973.  
  11974.  
  11975.  
  11976.  
  11977.  
  11978.  
  11979.  
  11980.  
  11981.  
  11982.  
  11983.  
  11984.  
  11985.  
  11986.  
  11987.  
  11988.  
  11989.  
  11990.  
  11991.  
  11992.  
  11993.  
  11994.  
  11995.  
  11996.  
  11997.  
  11998.  
  11999.  
  12000.  
  12001.  
  12002.  
  12003.  
  12004.  
  12005.  
  12006.  
  12007.  
  12008.  
  12009.  
  12010.  
  12011.  
  12012.  
  12013.  
  12014.  
  12015.  
  12016.  
  12017.  
  12018.  
  12019.  
  12020.  
  12021.  
  12022.  
  12023.  
  12024.  
  12025.  
  12026.  
  12027.  
  12028.  
  12029.  
  12030.  
  12031.  
  12032.  
  12033.  
  12034.  
  12035.  
  12036.  
  12037.  
  12038.  
  12039.  
  12040.  
  12041.  
  12042.  
  12043.  
  12044.  
  12045.  
  12046.  
  12047.  
  12048.  
  12049.  
  12050.  
  12051.  
  12052.  
  12053.  
  12054.  
  12055.  
  12056.  
  12057.  
  12058.  
  12059.  
  12060.  
  12061.  
  12062.  
  12063.  
  12064.  
  12065.  
  12066.  
  12067.  
  12068.  
  12069.  
  12070.  
  12071.  
  12072.  
  12073.  
  12074.  
  12075.  
  12076.  
  12077.  
  12078.  
  12079.  
  12080.  
  12081.  
  12082.  
  12083.  
  12084.  
  12085.  
  12086.  
  12087.  
  12088.  
  12089.  
  12090.  
  12091.  
  12092.  
  12093.  
  12094.  
  12095.  
  12096.  
  12097.  
  12098.  
  12099.  
  12100.  
  12101.  
  12102.  
  12103.  
  12104.  
  12105.  
  12106.  
  12107.  
  12108.  
  12109.  
  12110.  
  12111.  
  12112.  
  12113.  
  12114.  
  12115.  
  12116.  
  12117.  
  12118.  
  12119.  
  12120.  
  12121.  
  12122.  
  12123.  
  12124.  
  12125.  
  12126.  
  12127.  
  12128.  
  12129.  
  12130.  
  12131.  
  12132.  
  12133.  
  12134.  
  12135.  
  12136.  
  12137.  
  12138.  
  12139.  
  12140.  
  12141.  
  12142.  
  12143.  
  12144.  
  12145.  
  12146.  
  12147.  
  12148.  
  12149.  
  12150.  
  12151.  
  12152.  
  12153.  
  12154.  
  12155.  
  12156.  
  12157.  
  12158.  
  12159.  
  12160.  
  12161.  
  12162.  
  12163.  
  12164.  
  12165.  
  12166.  
  12167.  
  12168.  
  12169.  
  12170.  
  12171.  
  12172.  
  12173.  
  12174.  
  12175.  
  12176.  
  12177.  
  12178.  
  12179.  
  12180.  
  12181.  
  12182.  
  12183.  
  12184.  
  12185.  
  12186.  
  12187.  
  12188.  
  12189.  
  12190.  
  12191.  
  12192.  
  12193.  
  12194.  
  12195.  
  12196.  
  12197.  
  12198.  
  12199.  
  12200.  
  12201.  
  12202.  
  12203.  
  12204.  
  12205.  
  12206.  
  12207.  
  12208.  
  12209.  
  12210.  
  12211.  
  12212.  
  12213.  
  12214.  
  12215.  
  12216.  
  12217.  
  12218.  
  12219.  
  12220.  
  12221.  
  12222.  
  12223.  
  12224.  
  12225.  
  12226.  
  12227.  
  12228.  
  12229.  
  12230.  
  12231.  
  12232.  
  12233.  
  12234.  
  12235.  
  12236.  
  12237.  
  12238.  
  12239.  
  12240.  
  12241.  
  12242.  
  12243.  
  12244.  
  12245.  
  12246.  
  12247.  
  12248.  
  12249.  
  12250.  
  12251.  
  12252.  
  12253.  
  12254.  
  12255.  
  12256.  
  12257.  
  12258.  
  12259.  
  12260.  
  12261.  
  12262.  
  12263.  
  12264.  
  12265.  
  12266.  
  12267.  
  12268.  
  12269.  
  12270.  
  12271.  
  12272.  
  12273.  
  12274.  
  12275.  
  12276.  
  12277.  
  12278.  
  12279.  
  12280.  
  12281.  
  12282.  
  12283.  
  12284.  
  12285.  
  12286.  
  12287.  
  12288.  
  12289.  
  12290.  
  12291.  
  12292.  
  12293.  
  12294.  
  12295.  
  12296.  
  12297.  
  12298.  
  12299.  
  12300.  
  12301.  
  12302.  
  12303.  
  12304.  
  12305.  
  12306.  
  12307.  
  12308.  
  12309.  
  12310.  
  12311.  
  12312.  
  12313.  
  12314.  
  12315.  
  12316.  
  12317.  
  12318.  
  12319.  
  12320.  
  12321.  
  12322.  
  12323.  
  12324.  
  12325.  
  12326.  
  12327.  
  12328.  
  12329.  
  12330.  
  12331.  
  12332.  
  12333.  
  12334.  
  12335.  
  12336.  
  12337.  
  12338.  
  12339.  
  12340.  
  12341.  
  12342.  
  12343.  
  12344.  
  12345.  
  12346.  
  12347.  
  12348.  
  12349.  
  12350.  
  12351.  
  12352.  
  12353.  
  12354.  
  12355.  
  12356.  
  12357.  
  12358.  
  12359.  
  12360.  
  12361.  
  12362.  
  12363.  
  12364.  
  12365.  
  12366.  
  12367.  
  12368.  
  12369.  
  12370.  
  12371.  
  12372.  
  12373.  
  12374.  
  12375.  
  12376.  
  12377.  
  12378.  
  12379.  
  12380.  
  12381.  
  12382.  
  12383.  
  12384.  
  12385.  
  12386.  
  12387.  
  12388.  
  12389.  
  12390.  
  12391.  
  12392.  
  12393.  
  12394.  
  12395.  
  12396.  
  12397.  
  12398. /lh.exe         
  12399.  
  12400.  
  12401.  
  12402.  
  12403.  
  12404.  
  12405.  
  12406.  
  12407. &
  12408.  
  12409.  
  12410.  
  12411. zell            
  12412.  
  12413.  
  12414.  
  12415.  
  12416.  
  12417.  
  12418.  
  12419.  
  12420.  
  12421.  
  12422.  
  12423. m/zell          
  12424.  
  12425.  
  12426.  
  12427.  
  12428.  
  12429.  
  12430.  
  12431.  
  12432.  
  12433.  
  12434.  
  12435. liedvorspann    
  12436.  
  12437.  
  12438.  
  12439.  
  12440.  
  12441.  
  12442.  
  12443.  
  12444.  
  12445.  
  12446.  
  12447.  
  12448. musikdemo       
  12449.  
  12450.  
  12451.  
  12452.  
  12453.  
  12454.  
  12455.  
  12456.  
  12457.  
  12458.  
  12459.  
  12460. lied-info       
  12461.  
  12462.  
  12463.  
  12464.  
  12465.  
  12466.  
  12467.  
  12468.  
  12469.  
  12470.  
  12471.  
  12472. lied.txt        
  12473.  
  12474.  
  12475.  
  12476.  
  12477.  
  12478.  
  12479.  
  12480.  
  12481. 8
  12482.  
  12483.  
  12484. lied-2.txt      
  12485.  
  12486.  
  12487.  
  12488.  
  12489.  
  12490.  
  12491.  
  12492.  
  12493. !
  12494.  
  12495.  
  12496.  
  12497.  
  12498.  
  12499.  
  12500.  
  12501.  
  12502.  
  12503.  
  12504.  
  12505.  
  12506.  
  12507.  
  12508.  
  12509.  
  12510.  
  12511.  
  12512.  
  12513.  
  12514.  
  12515.  
  12516.  
  12517.  
  12518.  
  12519.  
  12520.  
  12521.  
  12522.  
  12523.  
  12524.  
  12525.  
  12526.  
  12527.  
  12528.  
  12529.  
  12530.  
  12531.  
  12532.  
  12533.  
  12534.  
  12535.  
  12536.  
  12537.  
  12538.  
  12539.  
  12540.  
  12541.  
  12542.  
  12543.  
  12544.  
  12545.  
  12546.  
  12547.  
  12548.  
  12549.  
  12550.  
  12551.  
  12552.  
  12553.  
  12554.  
  12555.  
  12556.  
  12557.  
  12558.  
  12559.  
  12560.  
  12561.  
  12562.  
  12563.  
  12564.  
  12565.  
  12566.  
  12567.  
  12568.  
  12569.  
  12570.  
  12571.  
  12572.  
  12573.  
  12574.  
  12575.  
  12576.  
  12577.  
  12578.  
  12579.  
  12580.  
  12581.  
  12582.  
  12583.  
  12584.  
  12585.  
  12586.  
  12587.  
  12588.  
  12589.  
  12590.  
  12591.  
  12592.  
  12593.  
  12594.  
  12595.  
  12596.  
  12597.  
  12598.  
  12599.  
  12600.  
  12601.  
  12602.  
  12603.  
  12604.  
  12605.  
  12606.  
  12607.  
  12608.  
  12609.  
  12610.  
  12611.  
  12612.  
  12613.  
  12614.  
  12615.  
  12616.  
  12617.  
  12618.  
  12619.  
  12620.  
  12621.  
  12622.  
  12623.  
  12624.  
  12625.  
  12626.  
  12627.  
  12628.  
  12629.  
  12630.  
  12631.  
  12632.  
  12633.  
  12634.  
  12635.  
  12636.  
  12637.  
  12638.  
  12639.  
  12640.  
  12641.  
  12642.  
  12643.  
  12644.  
  12645.  
  12646.  
  12647.  
  12648.  
  12649.  
  12650.  
  12651.  
  12652.  
  12653.  
  12654.  
  12655.  
  12656.  
  12657.  
  12658.  
  12659.  
  12660.  
  12661.  
  12662.  
  12663.  
  12664.  
  12665.  
  12666.  
  12667.  
  12668.  
  12669.  
  12670.  
  12671.  
  12672.  
  12673.  
  12674.  
  12675.  
  12676.  
  12677.  
  12678.  
  12679.  
  12680.  
  12681.  
  12682.  
  12683.  
  12684.  
  12685.  
  12686.  
  12687.  
  12688.  
  12689.  
  12690.  
  12691.  
  12692.  
  12693.  
  12694.  
  12695.  
  12696.  
  12697.  
  12698.  
  12699.  
  12700.  
  12701.  
  12702.  
  12703.  
  12704.  
  12705.  
  12706.  
  12707.  
  12708.  
  12709.  
  12710.  
  12711.  
  12712.  
  12713.  
  12714.  
  12715.  
  12716.  
  12717.  
  12718.  
  12719.  
  12720.  
  12721.  
  12722.  
  12723.  
  12724.  
  12725.  
  12726.  
  12727.  
  12728.  
  12729.  
  12730.  
  12731.  
  12732.  
  12733.  
  12734.  
  12735.  
  12736.  
  12737.  
  12738.  
  12739.  
  12740.  
  12741.  
  12742.  
  12743.  
  12744.  
  12745.  
  12746.  
  12747.  
  12748.  
  12749.  
  12750.  
  12751.  
  12752.  
  12753.  
  12754.  
  12755.  
  12756.  
  12757.  
  12758.  
  12759.  
  12760.  
  12761.  
  12762.  
  12763.  
  12764.  
  12765.  
  12766.  
  12767.  
  12768.  
  12769.  
  12770.  
  12771.  
  12772.  
  12773.  
  12774.  
  12775.  
  12776.  
  12777.  
  12778.  
  12779.  
  12780.  
  12781.  
  12782.  
  12783.  
  12784.  
  12785.  
  12786.  
  12787.  
  12788.  
  12789.  
  12790.  
  12791.  
  12792.  
  12793.  
  12794.  
  12795.  
  12796.  
  12797.  
  12798.  
  12799.  
  12800.  
  12801.  
  12802.  
  12803.  
  12804.  
  12805.  
  12806.  
  12807.  
  12808.  
  12809.  
  12810.  
  12811.  
  12812.  
  12813.  
  12814.  
  12815.  
  12816.  
  12817.  
  12818.  
  12819.  
  12820.  
  12821.  
  12822.  
  12823.  
  12824.  
  12825.  
  12826.  
  12827.  
  12828.  
  12829.  
  12830.  
  12831.  
  12832.  
  12833.  
  12834.  
  12835.  
  12836.  
  12837.  
  12838.  
  12839.  
  12840.  
  12841.  
  12842.  
  12843.  
  12844.  
  12845.  
  12846.  
  12847.  
  12848.  
  12849.  
  12850.  
  12851.  
  12852.  
  12853.  
  12854.  
  12855.  
  12856.  
  12857.  
  12858.  
  12859.  
  12860.  
  12861.  
  12862.  
  12863.  
  12864.  
  12865.  
  12866.  
  12867.  
  12868.  
  12869.  
  12870.  
  12871.  
  12872.  
  12873.  
  12874.  
  12875.  
  12876.  
  12877.  
  12878.  
  12879.  
  12880.  
  12881.  
  12882.  
  12883.  
  12884.  
  12885.  
  12886.  
  12887.  
  12888.  
  12889.  
  12890.  
  12891.  
  12892.  
  12893.  
  12894.  
  12895.  
  12896.  
  12897.  
  12898.  
  12899.  
  12900.  
  12901.  
  12902.  
  12903.  
  12904.  
  12905.  
  12906.  
  12907.  
  12908.  
  12909.  
  12910.  
  12911.  
  12912.  
  12913.  
  12914.  
  12915.  
  12916.  
  12917.  
  12918.  
  12919.  
  12920.  
  12921.  
  12922.  
  12923.  
  12924.  
  12925.  
  12926.  
  12927.  
  12928.  
  12929.  
  12930.  
  12931.  
  12932.  
  12933.  
  12934.  
  12935.  
  12936.  
  12937.  
  12938.  
  12939.  
  12940.  
  12941.  
  12942.  
  12943.  
  12944.  
  12945.  
  12946.  
  12947.  
  12948.  
  12949.  
  12950.  
  12951.  
  12952.  
  12953.  
  12954.  
  12955.  
  12956.  
  12957.  
  12958.  
  12959.  
  12960.  
  12961.  
  12962.  
  12963.  
  12964.  
  12965.  
  12966.  
  12967.  
  12968.  
  12969.  
  12970.  
  12971.  
  12972.  
  12973.  
  12974.  
  12975.  
  12976.  
  12977.  
  12978.  
  12979.  
  12980.  
  12981.  
  12982.  
  12983.  
  12984.  
  12985.  
  12986.  
  12987.  
  12988.  
  12989.  
  12990.  
  12991.  
  12992.  
  12993.  
  12994.  
  12995.  
  12996.  
  12997.  
  12998.  
  12999.  
  13000.  
  13001.  
  13002.  
  13003.  
  13004.  
  13005.  
  13006.  
  13007. {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  13008.  
  13009.  
  13010.  
  13011.  
  13012.  
  13013.  
  13014.  
  13015.  
  13016.  
  13017.  
  13018.  
  13019.  
  13020. {SHIFT-*}     c-128      
  13021.  
  13022.  
  13023.  
  13024.  
  13025.  
  13026.  
  13027.  
  13028.  
  13029.  
  13030.  
  13031.  
  13032.  
  13033.  
  13034. {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  13035.  
  13036.  
  13037.  
  13038.  
  13039.  
  13040.  
  13041.  
  13042.  
  13043.  
  13044.  
  13045.  
  13046.  
  13047.  
  13048. disklab eps/ibm 
  13049.  
  13050.  
  13051.  
  13052.  
  13053.  
  13054.  
  13055.  
  13056.  
  13057.  
  13058.  
  13059.  
  13060. disklab mps1200 
  13061.  
  13062.  
  13063.  
  13064.  
  13065.  
  13066.  
  13067.  
  13068.  
  13069.  
  13070.  
  13071.  
  13072.  
  13073. disklabel.txt   
  13074.  
  13075.  
  13076.  
  13077.  
  13078.  
  13079.  
  13080.  
  13081.  
  13082.  
  13083.  
  13084.  
  13085.  
  13086. {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  13087.  
  13088.  
  13089.  
  13090.  
  13091.  
  13092.  
  13093.  
  13094.  
  13095.  
  13096.  
  13097.  
  13098.  
  13099. business charts 
  13100.  
  13101.  
  13102.  
  13103.  
  13104.  
  13105.  
  13106.  
  13107.  
  13108. A
  13109.  
  13110.  
  13111.  
  13112.  
  13113.  
  13114.  
  13115.  
  13116.  
  13117.  
  13118.  
  13119.  
  13120.  
  13121.  
  13122.  
  13123.  
  13124.  
  13125.  
  13126.  
  13127.  
  13128.  
  13129.  
  13130.  
  13131.  
  13132.  
  13133.  
  13134.  
  13135.  
  13136.  
  13137.  
  13138.  
  13139.  
  13140.  
  13141.  
  13142.  
  13143.  
  13144.  
  13145.  
  13146.  
  13147.  
  13148.  
  13149.  
  13150.  
  13151.  
  13152.  
  13153.  
  13154.  
  13155.  
  13156.  
  13157.  
  13158.  
  13159.  
  13160.  
  13161.  
  13162.  
  13163.  
  13164.  
  13165.  
  13166.  
  13167.  
  13168.  
  13169.  
  13170.  
  13171.  
  13172.  
  13173.  
  13174.  
  13175.  
  13176.  
  13177.  
  13178.  
  13179.  
  13180.  
  13181.  
  13182.  
  13183.  
  13184.  
  13185.  
  13186.  
  13187.  
  13188.  
  13189.  
  13190.  
  13191.  
  13192.  
  13193.  
  13194.  
  13195.  
  13196.  
  13197.  
  13198.  
  13199.  
  13200.  
  13201.  
  13202.  
  13203.  
  13204.  
  13205.  
  13206.  
  13207.  
  13208.  
  13209.  
  13210.  
  13211.  
  13212.  
  13213.  
  13214.  
  13215.  
  13216.  
  13217.  
  13218.  
  13219.  
  13220.  
  13221.  
  13222.  
  13223.  
  13224.  
  13225.  
  13226.  
  13227.  
  13228.  
  13229.  
  13230.  
  13231.  
  13232.  
  13233.  
  13234.  
  13235.  
  13236.  
  13237.  
  13238.  
  13239.  
  13240.  
  13241.  
  13242.  
  13243.  
  13244.  
  13245.  
  13246.  
  13247.  
  13248.  
  13249.  
  13250.  
  13251.  
  13252.  
  13253.  
  13254.  
  13255.  
  13256.  
  13257.  
  13258.  
  13259.  
  13260.  
  13261.  
  13262.  
  13263.  
  13264.  
  13265.  
  13266.  
  13267.  
  13268.  
  13269.  
  13270.  
  13271.  
  13272.  
  13273.  
  13274.  
  13275.  
  13276.  
  13277.  
  13278.  
  13279.  
  13280.  
  13281.  
  13282.  
  13283.  
  13284.  
  13285.  
  13286.  
  13287.  
  13288.  
  13289.  
  13290.  
  13291.  
  13292.  
  13293.  
  13294.  
  13295.  
  13296.  
  13297.  
  13298.  
  13299.  
  13300.  
  13301.  
  13302.  
  13303.  
  13304.  
  13305.  
  13306.  
  13307.  
  13308.  
  13309.  
  13310.  
  13311.  
  13312.  
  13313.  
  13314.  
  13315.  
  13316.  
  13317.  
  13318.  
  13319.  
  13320.  
  13321.  
  13322.  
  13323.  
  13324.  
  13325.  
  13326.  
  13327.  
  13328.  
  13329.  
  13330.  
  13331.  
  13332.  
  13333.  
  13334.  
  13335.  
  13336.  
  13337.  
  13338.  
  13339.  
  13340.  
  13341.  
  13342.  
  13343.  
  13344.  
  13345.  
  13346.  
  13347.  
  13348.  
  13349.  
  13350.  
  13351.  
  13352.  
  13353.  
  13354.  
  13355.  
  13356.  
  13357.  
  13358.  
  13359.  
  13360.  
  13361.  
  13362.  
  13363.  
  13364.  
  13365.  
  13366.  
  13367.  
  13368.  
  13369.  
  13370.  
  13371.  
  13372.  
  13373.  
  13374.  
  13375.  
  13376.  
  13377.  
  13378.  
  13379.  
  13380.  
  13381.  
  13382.  
  13383.  
  13384.  
  13385.  
  13386.  
  13387.  
  13388.  
  13389.  
  13390.  
  13391.  
  13392.  
  13393.  
  13394.  
  13395.  
  13396.  
  13397.  
  13398.  
  13399.  
  13400.  
  13401.  
  13402.  
  13403.  
  13404.  
  13405.  
  13406.  
  13407.  
  13408.  
  13409.  
  13410.  
  13411.  
  13412.  
  13413.  
  13414.  
  13415.  
  13416.  
  13417.  
  13418.  
  13419.  
  13420.  
  13421.  
  13422.  
  13423.  
  13424.  
  13425.  
  13426.  
  13427.  
  13428.  
  13429.  
  13430.  
  13431.  
  13432.  
  13433.  
  13434.  
  13435.  
  13436.  
  13437.  
  13438.  
  13439.  
  13440.  
  13441.  
  13442.  
  13443.  
  13444.  
  13445.  
  13446.  
  13447.  
  13448.  
  13449.  
  13450.  
  13451.  
  13452.  
  13453.  
  13454.  
  13455.  
  13456.  
  13457.  
  13458.  
  13459.  
  13460.  
  13461.  
  13462.  
  13463.  
  13464.  
  13465.  
  13466.  
  13467.  
  13468.  
  13469.  
  13470.  
  13471.  
  13472.  
  13473.  
  13474.  
  13475.  
  13476.  
  13477.  
  13478.  
  13479.  
  13480.  
  13481.  
  13482.  
  13483.  
  13484.  
  13485.  
  13486.  
  13487.  
  13488.  
  13489.  
  13490.  
  13491.  
  13492.  
  13493.  
  13494.  
  13495.  
  13496.  
  13497.  
  13498.  
  13499.  
  13500.  
  13501.  
  13502.  
  13503.  
  13504.  
  13505.  
  13506.  
  13507.  
  13508.  
  13509.  
  13510.  
  13511.  
  13512.  
  13513.  
  13514.  
  13515.  
  13516.  
  13517.  
  13518.  
  13519.  
  13520.  
  13521.  
  13522.  
  13523.  
  13524.  
  13525.  
  13526.  
  13527.  
  13528.  
  13529.  
  13530.  
  13531.  
  13532.  
  13533.  
  13534.  
  13535.  
  13536.  
  13537.  
  13538.  
  13539.  
  13540.  
  13541.  
  13542.  
  13543.  
  13544.  
  13545.  
  13546.  
  13547.  
  13548.  
  13549.  
  13550.  
  13551.  
  13552.  
  13553.  
  13554.  
  13555.  
  13556.  
  13557.  
  13558.  
  13559.  
  13560.  
  13561.  
  13562.  
  13563.  
  13564.  
  13565.  
  13566.  
  13567.  
  13568.  
  13569.  
  13570.  
  13571.  
  13572.  
  13573.  
  13574.  
  13575.  
  13576.  
  13577.  
  13578.  
  13579.  
  13580.  
  13581.  
  13582.  
  13583.  
  13584.  
  13585.  
  13586.  
  13587.  
  13588.  
  13589.  
  13590.  
  13591.  
  13592.  
  13593.  
  13594.  
  13595.  
  13596.  
  13597.  
  13598.  
  13599.  
  13600.  
  13601.  
  13602.  
  13603.  
  13604.  
  13605.  
  13606.  
  13607.  
  13608.  
  13609.  
  13610.  
  13611.  
  13612.  
  13613.  
  13614.  
  13615.  
  13616.  
  13617.  
  13618.  
  13619.  
  13620.  
  13621.  
  13622. ~paretokurve.bg  
  13623.  
  13624.  
  13625.  
  13626.  
  13627.  
  13628.  
  13629.  
  13630.  
  13631. %
  13632.  
  13633.  
  13634. charts.txt      
  13635.  
  13636.  
  13637.  
  13638.  
  13639.  
  13640.  
  13641.  
  13642.  
  13643.  
  13644.  
  13645.  
  13646. cp-load.64      
  13647.  
  13648.  
  13649.  
  13650.  
  13651.  
  13652.  
  13653.  
  13654.  
  13655.  
  13656.  
  13657.  
  13658.  
  13659.  
  13660.  
  13661.  
  13662.  
  13663.  
  13664.  
  13665.  
  13666.  
  13667.  
  13668.  
  13669.  
  13670.  
  13671.  
  13672.  
  13673.  
  13674.  
  13675.  
  13676.  
  13677.  
  13678.  
  13679.  
  13680.  
  13681.  
  13682.  
  13683.  
  13684.  
  13685.  
  13686.  
  13687.  
  13688.  
  13689.  
  13690.  
  13691.  
  13692.  
  13693.  
  13694.  
  13695.  
  13696.  
  13697.  
  13698.  
  13699.  
  13700.  
  13701.  
  13702.  
  13703.  
  13704.  
  13705.  
  13706.  
  13707.  
  13708.  
  13709.  
  13710.  
  13711.  
  13712.  
  13713.  
  13714.  
  13715.  
  13716.  
  13717.  
  13718.  
  13719.  
  13720.  
  13721.  
  13722.  
  13723.  
  13724.  
  13725.  
  13726.  
  13727.  
  13728.  
  13729.  
  13730.  
  13731.  
  13732.  
  13733.  
  13734.  
  13735.  
  13736.  
  13737.  
  13738.  
  13739.  
  13740.  
  13741.  
  13742.  
  13743.  
  13744.  
  13745.  
  13746.  
  13747.  
  13748.  
  13749.  
  13750.  
  13751.  
  13752.  
  13753.  
  13754.  
  13755.  
  13756.  
  13757.  
  13758.  
  13759.  
  13760.  
  13761.  
  13762.  
  13763.  
  13764.  
  13765.  
  13766.  
  13767.  
  13768.  
  13769.  
  13770.  
  13771.  
  13772.  
  13773.  
  13774.  
  13775.  
  13776.  
  13777.  
  13778.  
  13779.  
  13780.  
  13781.  
  13782.  
  13783.  
  13784.  
  13785.  
  13786.  
  13787.  
  13788.  
  13789.  
  13790.  
  13791.  
  13792.  
  13793.  
  13794.  
  13795.  
  13796.  
  13797.  
  13798.  
  13799.  
  13800.  
  13801.  
  13802.  
  13803.  
  13804.  
  13805.  
  13806.  
  13807.  
  13808.  
  13809.  
  13810.  
  13811.  
  13812.  
  13813.  
  13814.  
  13815.  
  13816.  
  13817.  
  13818.  
  13819.  
  13820.  
  13821.  
  13822.  
  13823.  
  13824.  
  13825.  
  13826.  
  13827.  
  13828.  
  13829.  
  13830.  
  13831.  
  13832.  
  13833.  
  13834.  
  13835.  
  13836.  
  13837.  
  13838.  
  13839.  
  13840.  
  13841.  
  13842.  
  13843.  
  13844.  
  13845.  
  13846.  
  13847.  
  13848.  
  13849.  
  13850.  
  13851.  
  13852.  
  13853.  
  13854.  
  13855.  
  13856.  
  13857.  
  13858.  
  13859.  
  13860.  
  13861.  
  13862.  
  13863.  
  13864.  
  13865.  
  13866.  
  13867.  
  13868.  
  13869.  
  13870.  
  13871.  
  13872.  
  13873.  
  13874.  
  13875.  
  13876.  
  13877.  
  13878.  
  13879.  
  13880.  
  13881.  
  13882.  
  13883.  
  13884.  
  13885.  
  13886.  
  13887.  
  13888.  
  13889.  
  13890.  
  13891.  
  13892.  
  13893.  
  13894.  
  13895.  
  13896.  
  13897.  
  13898.  
  13899.  
  13900.  
  13901.  
  13902.  
  13903.  
  13904.  
  13905.  
  13906.  
  13907.  
  13908.  
  13909.  
  13910.  
  13911.  
  13912.  
  13913.  
  13914.  
  13915.  
  13916.  
  13917.  
  13918.  
  13919.  
  13920.  
  13921.  
  13922.  
  13923.  
  13924.  
  13925.  
  13926.  
  13927.  
  13928.  
  13929.  
  13930.  
  13931.  
  13932.  
  13933.  
  13934.  
  13935.  
  13936.  
  13937.  
  13938.  
  13939.  
  13940.  
  13941.  
  13942.  
  13943.  
  13944.  
  13945.  
  13946.  
  13947.  
  13948.  
  13949.  
  13950.  
  13951.  
  13952.  
  13953.  
  13954.  
  13955.  
  13956.  
  13957.  
  13958.  
  13959.  
  13960.  
  13961.  
  13962.  
  13963.  
  13964.  
  13965.  
  13966.  
  13967.  
  13968.  
  13969.  
  13970.  
  13971.  
  13972.  
  13973.  
  13974.  
  13975.  
  13976.  
  13977.  
  13978.  
  13979.  
  13980.  
  13981.  
  13982.  
  13983.  
  13984.  
  13985.  
  13986.  
  13987.  
  13988.  
  13989.  
  13990.  
  13991.  
  13992.  
  13993.  
  13994.  
  13995.  
  13996.  
  13997.  
  13998.  
  13999.  
  14000.  
  14001.  
  14002.  
  14003.  
  14004.  
  14005.  
  14006.  
  14007.  
  14008.  
  14009.  
  14010.  
  14011.  
  14012.  
  14013.  
  14014.  
  14015.  
  14016.  
  14017.  
  14018.  
  14019.  
  14020.  
  14021.  
  14022.  
  14023.  
  14024.  
  14025.  
  14026.  
  14027.  
  14028.  
  14029.  
  14030.  
  14031.  
  14032.  
  14033.  
  14034.  
  14035.  
  14036.  
  14037.  
  14038.  
  14039.  
  14040.  
  14041.  
  14042.  
  14043.  
  14044.  
  14045.  
  14046.  
  14047.  
  14048.  
  14049.  
  14050.  
  14051.  
  14052.  
  14053.  
  14054.  
  14055.  
  14056.  
  14057.  
  14058.  
  14059.  
  14060.  
  14061.  
  14062.  
  14063.  
  14064.  
  14065.  
  14066.  
  14067.  
  14068.  
  14069.  
  14070.  
  14071.  
  14072.  
  14073.  
  14074.  
  14075.  
  14076.  
  14077.  
  14078.  
  14079.  
  14080.  
  14081.  
  14082.  
  14083.  
  14084.  
  14085.  
  14086.  
  14087.  
  14088.  
  14089.  
  14090.  
  14091.  
  14092.  
  14093.  
  14094.  
  14095.  
  14096.  
  14097.  
  14098.  
  14099.  
  14100.  
  14101.  
  14102.  
  14103.  
  14104.  
  14105.  
  14106.  
  14107.  
  14108.  
  14109.  
  14110.  
  14111.  
  14112.  
  14113.  
  14114.  
  14115.  
  14116.  
  14117.  
  14118.  
  14119.  
  14120.  
  14121.  
  14122.  
  14123.  
  14124.  
  14125.  
  14126.  
  14127.  
  14128.  
  14129.  
  14130.  
  14131.  
  14132.  
  14133.  
  14134.  
  14135.  
  14136.  
  14137.  
  14138.  
  14139.  
  14140.  
  14141.  
  14142.  
  14143.  
  14144.  
  14145.  
  14146.  
  14147.  
  14148.  
  14149.  
  14150.  
  14151.  
  14152.  
  14153.  
  14154.  
  14155.  
  14156.  
  14157.  
  14158.  
  14159.  
  14160.  
  14161.  
  14162.  
  14163.  
  14164.  
  14165.  
  14166.  
  14167.  
  14168.  
  14169.  
  14170.  
  14171.  
  14172.  
  14173.  
  14174.  
  14175.  
  14176.  
  14177.  
  14178.  
  14179.  
  14180.  
  14181.  
  14182.  
  14183.  
  14184.  
  14185.  
  14186.  
  14187.  
  14188.  
  14189.  
  14190.  
  14191.  
  14192.  
  14193.  
  14194.  
  14195.  
  14196.  
  14197.  
  14198.  
  14199.  
  14200.  
  14201.  
  14202.  
  14203.  
  14204.  
  14205.  
  14206.  
  14207.  
  14208.  
  14209.  
  14210.  
  14211.  
  14212.  
  14213.  
  14214.  
  14215.  
  14216.  
  14217.  
  14218.  
  14219.  
  14220.  
  14221.  
  14222.  
  14223.  
  14224.  
  14225.  
  14226.  
  14227.  
  14228.  
  14229.  
  14230.  
  14231.  
  14232.  
  14233.  
  14234.  
  14235.  
  14236.  
  14237.  
  14238.  
  14239.  
  14240.  
  14241.  
  14242.  
  14243.  
  14244.  
  14245.  
  14246.  
  14247.  
  14248.  
  14249.  
  14250.  
  14251.  
  14252.  
  14253.  
  14254.  
  14255.  
  14256.  
  14257.  
  14258.  
  14259.  
  14260.  
  14261.  
  14262.  
  14263.  
  14264.  
  14265.  
  14266.  
  14267.  
  14268.  
  14269.  
  14270.  
  14271.  
  14272.  
  14273.  
  14274.  
  14275.  
  14276.  
  14277.  
  14278.  
  14279.  
  14280.  
  14281.  
  14282.  
  14283.  
  14284.  
  14285.  
  14286.  
  14287.  
  14288.  
  14289.  
  14290.  
  14291.  
  14292.  
  14293.  
  14294.  
  14295.  
  14296.  
  14297.  
  14298.  
  14299.  
  14300.  
  14301.  
  14302.  
  14303.  
  14304.  
  14305.  
  14306.  
  14307.  
  14308.  
  14309.  
  14310.  
  14311.  
  14312.  
  14313.  
  14314.  
  14315.  
  14316.  
  14317.  
  14318.  
  14319.  
  14320.  
  14321.  
  14322.  
  14323.  
  14324.  
  14325.  
  14326.  
  14327.  
  14328.  
  14329.  
  14330. {$fe}@
  14331.  
  14332.  
  14333.  
  14334.  
  14335. F
  14336. W
  14337.  
  14338.  
  14339.  
  14340.  
  14341.  
  14342.  
  14343.  
  14344.  
  14345.  
  14346.  
  14347.  
  14348. disclader64/128 
  14349.  
  14350.  
  14351.  
  14352.  
  14353.  
  14354.  
  14355.  
  14356.  
  14357.  
  14358.  
  14359.  
  14360. info            
  14361.  
  14362.  
  14363.  
  14364.  
  14365.  
  14366.  
  14367.  
  14368.  
  14369.  
  14370.  
  14371.  
  14372. cpv1.1mc        
  14373.  
  14374.  
  14375.  
  14376.  
  14377.  
  14378.  
  14379.  
  14380.  
  14381.  
  14382.  
  14383.  
  14384.  
  14385.  
  14386.  
  14387.  
  14388.  
  14389.  
  14390.  
  14391.  
  14392.  
  14393.  
  14394.  
  14395.  
  14396.  
  14397.  
  14398.  
  14399.  
  14400.  
  14401.  
  14402.  
  14403.  
  14404.  
  14405.  
  14406.  
  14407.  
  14408.  
  14409.  
  14410.  
  14411.  
  14412.  
  14413.  
  14414.  
  14415.  
  14416.  
  14417.  
  14418.  
  14419.  
  14420.  
  14421.  
  14422.  
  14423.  
  14424.  
  14425.  
  14426.  
  14427.  
  14428.  
  14429.  
  14430.  
  14431.  
  14432.  
  14433.  
  14434.  
  14435.  
  14436.  
  14437.  
  14438.  
  14439.  
  14440.  
  14441.  
  14442.  
  14443.  
  14444.  
  14445.  
  14446.  
  14447.  
  14448.  
  14449.  
  14450.  
  14451.  
  14452.  
  14453.  
  14454.  
  14455.  
  14456.  
  14457.  
  14458.  
  14459.  
  14460.  
  14461.  
  14462.  
  14463.  
  14464.  
  14465.  
  14466.  
  14467.  
  14468.  
  14469.  
  14470.  
  14471.  
  14472.  
  14473.  
  14474.  
  14475.  
  14476.  
  14477.  
  14478.  
  14479.  
  14480.  
  14481.  
  14482.  
  14483.  
  14484.  
  14485.  
  14486.  
  14487.  
  14488.  
  14489.  
  14490.  
  14491.  
  14492.  
  14493.  
  14494.  
  14495.  
  14496.  
  14497.  
  14498.  
  14499.  
  14500.  
  14501.  
  14502.  
  14503.  
  14504.  
  14505.  
  14506.  
  14507.  
  14508.  
  14509.  
  14510.  
  14511. K0{$f0}{CBM-E}^0
  14512. 0~
  14513. ={$7c}
  14514. {SHIFT-POUND}
  14515. K{$f0}{$e6}{$fb}P{$e6}{$fc} 
  14516. {CBM-E}{$fb}0){CBM-D}K{$fd}{$ee}K{SHIFT-*}'P{$e8}{CBM-G}{$fd}I({$fd}{$e6}{$fe}{SHIFT-POUND}
  14517. K{CBM-G}{$fe}IPR{CBM-G}{$fd}I{$e8}PL{$60}I{$f0}^I{$f0}7I{CBM-C}{$f0}!IP{CBM-F}{CBM-Z}KK{CBM-G}{$fd}K{CBM-G}{$fe}K{CBM-Z}K{$fb}{CBM-Z}K{$fc}{CBM-@}{CBM-D}K{$fd}{SHIFT-POUND} PH{$fd}{SHIFT-*}'P{$f9}{$f0}{CBM-@}{CBM-Z}KE{$fd}{CBM-POUND}{$e6}{$fe}{SHIFT-POUND}
  14518. {$fd}{SHIFT-POUND} {$fd}HP{$e6}{$fe}{SHIFT-*}{$e8}P{$f5}{CBM-+}{$fe} P{$ef}{$60}{$ee}KlK{$fc}KlKI
  14519. {$f0}{CBM-N}0)?{$60}){$7f}@{$60}{SHIFT-POUND}{CBM-C}{$60}{CBM-I} F~ {$e4}~ {$7d}O {CBM-Y}~{CBM-N}{$f0}{$f4} L~{SHIFT-POUND}lC~{CBM-Z}K{$fd}{CBM-S}
  14520. K{$fe}KK 
  14521. {SHIFT-POUND}IP
  14522. {CBM-E}{$fb}IP8{$60}H{SHIFT-POUND}{$fb}{CBM-Z}KPNKNK{$60}{CBM-N}{CBM-Z}K{$fb}{CBM-Z}K{$fc} 
  14523. {$fb}{SHIFT-POUND}H{$fb}{$ee}KP{$ee}K{$60}{CBM-N}{CBM-Z}KPNKNK{CBM-Z}K{$fb}{CBM-Z}K{$fc} 
  14524. {$fb}{$60}{CBM-N}{CBM-Z}K{$fb}{CBM-Z}K{$fc}{CBM-D}K{CBM-E}{$fb}i{$fb}{$60}I{CBM-C}{$f0}
  14525. {CBM-S}K '{$f0}{$ee}KlM M{SHIFT-POUND} M{SHIFT-POUND}
  14526. K{CBM-Z}KI{$f0}{$ee}K{$60}lWL KL{CBM-A} JM{$60} M{$fb}{$60}l2N{CBM-Z}KP{$f8}{$60} {$e9}L{CBM-A}{$fa}IP{$f6} {$e9}LINK{$60}lL {$e9}L{CBM-A}{$f7}I{$f0}l8M {$e9}L 8M  {$e9}L{CBM-A}{$e2}I{$f0}{$ee} 8M{$f1}{$e7} {$e9}L{CBM-A}
  14527. I{$f0}{$f7} 8M
  14528.  
  14529. {CBM-E}{$fd}{$e6}{$fd}P{$e6}{$fe}I{$f0}{$f4}I{$f0}{$f0}IP
  14530. {CBM-Z}K{$fd}{CBM-Z}K{$fe}{CBM-*}{CBM-+}{$fd}{$e9}N{CBM-+}{$fe}{$ea}NIP{$60} KL{SHIFT-POUND}
  14531. {$60}h JMHl=N{CBM-Z}
  14532. K{$e9}N{CBM-Z}K{$ea}N{CBM-I} I~ R~ {$eb}NP{$f8} L~{SHIFT-POUND}lC~{CBM-Z}{$e9}NMKP{CBM-Z}{$ea}NMK{$f0} M{$eb}{SHIFT-POUND}
  14533. {$f0}{SHIFT-POUND}~{$fd}{$fe}{$60}{$ea}{CBM-POUND}{CBM-Z}K{CBM-S}KI{$e8}{$ec}KPMK{CBM-A} {CBM-X}K JM{$60}{$ea}{$ea}{CBM-Z}K{$fb}{CBM-Z}K{$fc}{CBM-D}K{CBM-E}{$fb}K{SHIFT-POUND}~K{SHIFT-POUND}K tM {$e4}~{CBM-N}PNKP{$f5}NKP{$f0}{$f0}{$e1}{CBM-Z}K{$fb}{CBM-Z}K{$fc}{CBM-D}K{CBM-Z}K{$fb}{$60}{CBM-S}K{CBM-D}K{$e8}PH{$e4}{$fb}PD
  14534. V
  14535. i
  14536.  
  14537.  
  14538.  
  14539.  
  14540. +~~
  14541. <,7+
  14542. +{$ec}~,<,
  14543.  
  14544.  
  14545. zyZY;:@+][{SHIFT-@}*{SHIFT-*}<>
  14546. yzYZ{CBM-F}{CBM-C}{CBM-X}{CBM-V}{SHIFT-+}{CBM--}{SHIFT--}+*;:
  14547. {$de}~
  14548. +W~GD{CBM-H}~,
  14549.  
  14550. V~GD{SHIFT-@}~{CBM-H}>>{CBM-H}ID
  14551. HD9{$f0}~8+
  14552. (,
  14553. :{$f0}~8+HDID{$e2}~,
  14554.  
  14555. >
  14556.  
  14557. !P
  14558.  
  14559.  PGDR~8+
  14560. {$f1}~,{$f4}~
  14561.  
  14562. {$e4}
  14563. +I~,{$ec}~{$e8}~{$f1}~
  14564. +
  14565. {$f7}~,+7
  14566. 0{SHIFT-@}{$fe},
  14567.  
  14568. +0{CBM-P}{$fe},+Z~,
  14569.  
  14570.  
  14571. {$fa}~
  14572. 7+{$fe},
  14573.  
  14574. %%{$ef}~+{$de}~-H~,{$e7}~
  14575.  
  14576.  
  14577. {$fa}~
  14578. 0
  14579. +
  14580. {$fe},
  14581. 7+w{$fe},
  14582. {$e1}~%%{$ef}~+M~-~,{$e7}~
  14583. +{$fe},
  14584. +{$ed}~7z{$fd},{$ed}~
  14585.  
  14586.  
  14587. +<{$fe},+{$fe},+
  14588.  
  14589. >
  14590. ~,+{$f2}{$fd}~X~
  14591. ID{SHIFT-@}~8L~~~%
  14592. {SHIFT-*}~~~%
  14593. +{CBM-W}~
  14594. {$eb}{$fb},
  14595.  
  14596. GD{CBM-T}~
  14597. HD{CBM-X}~8{SHIFT-*}~8L~8HDF~8HDI~8GDC~8
  14598. GDHD
  14599. %ID{SHIFT-@}~8
  14600. HD+{$fb},GD{CBM-X}~8
  14601. GDHDU~8HDGDHD{SHIFT-@}~8
  14602. HD+r{$fb},GD{CBM-X}~8HD{$fb}GDX~8+
  14603.  
  14604. i0
  14605. {$e7}{$fe},+B{$ec}{$fa},+{$fb},+{$e2}{$fa},7{$f4}~+~{$f9}{$e9}{$fb}{$ee}{$fa}{$eb}{$fa},{$e5}{$fa}{CBM-C}~+#{$fe},+3{$fe},R{$fa}
  14606. +{$fb},+
  14607. ,+7
  14608. ,+
  14609. ,+7
  14610.  
  14611. ,00+
  14612. ,+,{CBM--}{CBM--}{CBM-R}{$7f}{CBM--}{CBM-W}+
  14613.  
  14614. {SHIFT-POUND}~,'
  14615. 7d77+B~,
  14616. -+
  14617.  
  14618. ~,{$e5}~
  14619. 00:00:00
  14620. {$f2}~
  14621. {CBM--}+~,*
  14622. 7&
  14623. 7{$f8}{$fd}{$f9},
  14624.  
  14625.  
  14626. GD{CBM-X}K8GD
  14627.  
  14628. {$ec}~+
  14629. D{$f8},+{$fa},+Z{$f7},+{CBM-C}~,+
  14630.  
  14631.  
  14632. Suchen:
  14633. ~,+
  14634. ~{CBM-E}~,+KK
  14635. {$7e}~X{$f8},
  14636. {$e9}N\O8GD
  14637. C~]~K-
  14638.  
  14639. GDJM8{$f0}~FM8+~,
  14640. +{CBM-I}~,Suchen  :
  14641. Ersetzen:
  14642.  
  14643. +
  14644. {CBM-Q}{$f7}
  14645. 0
  14646. {CBM-*}{$f9},8O8+
  14647.  
  14648. Lesen:
  14649. ?~,
  14650.  
  14651. +0
  14652. c{$fb},h
  14653.  
  14654.  
  14655. <
  14656.  
  14657.  
  14658.  
  14659.  
  14660.  
  14661. {$fd}~
  14662. +e
  14663.  
  14664. 'a,
  14665. '
  14666. 7
  14667. e
  14668. P~+e
  14669. {SHIFT-@}{$f5},e
  14670. +{CBM-A}{$f5},
  14671. {CBM-H}~
  14672. {CBM-L}~
  14673. + H{$f6},{$f5}~+{CBM-+}{$fa},E
  14674. {$eb}N8GDz
  14675.  
  14676. %@
  14677. 7 %
  14678.  
  14679. R~#
  14680.  
  14681. 7++G~,b{$f5},{$f7},+e
  14682. {CBM-R}{$f6},
  14683. ++k~,&{$f5}{$f7},
  14684. e
  14685.  
  14686. ++7~,{$f5}{$fc}{$f6},~~~~
  14687. +
  14688. I{$f5},{$f5}~+)~,
  14689.  
  14690. {$f4}~{$f1}{$fe}
  14691. +
  14692. {CBM-@}{$f5},{$f5}~{SHIFT--}{$fe}
  14693. +{CBM-Y}{$f4}{CBM-J}{$f4}{$f6},
  14694. K{$e9}N
  14695. e
  14696. +{CBM-Y}{$fe}{CBM-Z}{$fe}[{$f8},+M{$f8},+W~,i
  14697. {$fe}{$f3}~+ j{$f5},+-i{$f5},+
  14698.  
  14699.  % 
  14700.  
  14701. {$f6},+-/{$f5},+W{$f5},%
  14702. +
  14703. {$f5},{CBM-W}~+K{$f8},+{$7b}{$f8},e{$fe}
  14704. +{$fd}{CBM-Z}
  14705. K{$fd}{CBM-Z}K{$fe} 
  14706. {SHIFT-POUND}{$fd}H{SHIFT-POUND}{$fd}H{SHIFT-POUND}{$fd}{CBM-+}{$fd}{CBM-@}{$fe}{$e8}PH
  14707. KK{$e8}PHKK{CBM-I}
  14708. K{$e8}K{$60}K{CBM-G}{$fe}K{SHIFT-POUND}{$fb}H{SHIFT-POUND}{$fb}H{SHIFT-POUND}{$fb}{CBM-G}{$fb}IK{CBM-G}{$fc}I
  14709. K{$60}{SHIFT-POUND}{$fe}{SHIFT-POUND}
  14710. K{$fd}{CBM-Z}
  14711. K{$fb}{CBM-Z}K{$fc}lK{CBM-Z}
  14712. K{$fb}{CBM-Z}K{$fc} 
  14713. H{CBM-E}{$fb}IP{$f9}E{$fb}
  14714. K{$ee}K{$60}{$60}{CBM-Z}
  14715. K{$fb}{CBM-Z}K{$fc}F{$fc} ~{CBM-E}{$fb}IP8{$60}{SHIFT-*}
  14716. P{CBM-E}{$fb}IP{$f9}E{$fb}
  14717. K{CBM-G}{$fc}I
  14718. K{$60}{CBM-Z}K{$fb}{CBM-Z}K{$fc}l{$e5}O{$ea}IP8{$60}{$ee}KP{$ee}K{$60}{CBM-Z}K{$fb}{CBM-Z}K{$fc}F{$fc} ~{CBM-E}{$fb}{CBM-N}{$f1}l{$fe}K{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{SHIFT-POUND}K {CBM-+}MNKP{$f8}{$60}{SHIFT-POUND}K {SHIFT-+}MNKP{$f8}{$60}{CBM-Z}KI{$f0}NK{$60} M{CBM-A}{CBM-Z}KP{$f6}{$60}I{CBM-C}{$f0}I@i I {$60}i{$60}I {$60}{SHIFT-POUND}
  14719. {$60}{CBM-+}{$fb}{CBM-@}{$fc}{$e8}PH
  14720.  {$ed}K L{CBM-+}{$fb}{CBM-@}{$fc}{$e8}PH
  14721. KK _L  OI
  14722. {$f0}{$f9} tMIP M{$e6}IP {CBM-+}M{CBM--}IP NRIP FMHIP {SHIFT-+}M{CBM-V}IP N{CBM-H}IP {$eb}M{CBM-N}IP  M IP {CBM-P}MIP{$60} {$7d}O{$ea}{$ea}{CBM-Z}{$e9}N{$fd}{CBM-Z}{$ea}N{$fe} 
  14723.  
  14724. {$fc}{$f0} 
  14725. {CBM-E}{$fb}lYL8{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{SHIFT-POUND}K {CBM-+}MNKP{$f8}{$60}{SHIFT-POUND}K {SHIFT-+}MNKP{$f8}{$60}{CBM-Z}KI{$f0}NK{$60} M{CBM-A}{CBM-Z}KP{$f6}{$60}I{CBM-C}{$f0}I@i I {$60}i{$60}I {$60}{SHIFT-POUND}
  14726. {$60}{CBM-+}{$fb}{CBM-@}{$fc}{$e8}PH
  14727.  {$ed}K L{CBM-+}{$fb}{CBM-@}{$fc}{$e8}PH
  14728. KK _L  OI
  14729. {$f0}{$f9} tMIP M{$e6}IP {CBM-+}M{CBM--}IP NRIP FMHIP {SHIFT-+}M{CBM-V}IP N{CBM-H}IP {$eb}M{CBM-N}IP  M IP {CBM-P}MIP{$60} {$7d}O{$ea}{$ea}{CBM-Z}{$e9}N{$fd}{CBM-Z}{$ea}N{$fe} ~8
  14730. GD%
  14731.  
  14732. +G~,{$e6}~+<~,GDGD+{CBM-Y}~8GDJ~,7
  14733. +C~,{$fa}~+A~,4+{$ed}~,++s~,4,7*
  14734. +
  14735. <,
  14736.  
  14737. +
  14738. ;,{SHIFT--}~
  14739. +
  14740. 7+{$fe},a,+
  14741. +Q{$fe},{CBM-*}~,
  14742.  
  14743. +
  14744. ,
  14745. {$ec}~
  14746. +~,
  14747. {$f6}~+
  14748.  {$fe},+{SHIFT--}~,
  14749.  
  14750.  
  14751.  
  14752. {$f8}~,+{CBM-H}~,%'
  14753. 7
  14754. %>
  14755. 7+
  14756. %,{CBM-*}~7+{CBM-C}{$fd},R~
  14757. %H~
  14758. +
  14759.  
  14760.  
  14761. {CBM-E}{$fe},{CBM-H}~
  14762.  
  14763.  
  14764. GD
  14765. O~8GD
  14766. %
  14767. {$e3}~{$eb}~
  14768.  
  14769. +
  14770.  
  14771. L~,+
  14772.  
  14773. "{$fe},
  14774.  
  14775.  
  14776.  
  14777. {$f6}~+
  14778.  
  14779. {$e1}{$fc},+{$fd},%!
  14780. 7+>>,+{CBM-U}~,H~
  14781. B~-J~
  14782.  
  14783. ~~
  14784. {$f6}~{$f2}~GD{$e9}~{$e5}~HD{CBM--}~,+Q{$fe},+c~,+
  14785.  
  14786. s:
  14787.  
  14788. Z{$fc},+!~,+1~,>(
  14789.  
  14790. >>{CBM-G}
  14791. >{$fb}~
  14792. >>{CBM-G}
  14793.  
  14794. +{CBM-S}{$fa}{$fc},+
  14795. F{$fe},+O{$fe},+{$fb}C{$fb},X{$fb}+{CBM-T}~,{$ed}~+{CBM-A}{$fe}B{$fe},A{$fb}
  14796. +{$fb},
  14797.  
  14798. +_{$fa}g{$fc},+
  14799.  
  14800. {$fe},+{$fe},+3{$fb}0{$fb}-{$fb}*{$fb},+s~,@
  14801. +{$fb},+{$fb}
  14802. ,+={$fc},+ d77%
  14803. 77+g~,
  14804.  
  14805. -
  14806. :
  14807. +i~,{SHIFT--}~~++~,+
  14808. z{$f9},a,+{CBM-J}{$f9},{$e2}~+
  14809. 71{$f9},+
  14810.  
  14811. (%)
  14812. KKQ{$fa},+
  14813. {$f9},+ (b,+{$fc}{$f8},+
  14814. B{$fa},+-~,+
  14815.  
  14816. Zeit 
  14817. J~,+
  14818. e{$fa},+M{$f8},+
  14819. {$fb},+
  14820. {CBM-+}{$fe},+
  14821. A{$f8},+ pb,+
  14822. {$f8},+,+ (b,7(+ pb,+F~B{$f9},+
  14823.  
  14824. {$e2}{$fe}{$fc}{$fe},(
  14825. +
  14826.  
  14827. N{$fe}{$e7}{$fe},
  14828. +[~,_L8+)~,{$f1}~+&{$fe},+0
  14829. U{$f9},+0
  14830. {CBM-E}{$f6},
  14831. l%
  14832.  
  14833.  
  14834.  
  14835. Einfuegen:
  14836.  
  14837.  
  14838.  
  14839. Laden:
  14840. +{SHIFT-*}~,$
  14841. +0
  14842. 8{$fa},
  14843. e%
  14844. {$e8}K8OK8
  14845.  
  14846. +
  14847.  
  14848.  
  14849. Speichern:
  14850. ~,5
  14851. +{$fb},+0
  14852. %{$fb},+0
  14853.  
  14854.  
  14855. ,s,w
  14856. {CBM-R}{$f7},+
  14857. o{$f5},
  14858.  
  14859.  
  14860.  
  14861.  
  14862.  
  14863.  
  14864.  
  14865. {$f7}~=
  14866. %y
  14867.  M8{$ed}~KK{$eb}M8
  14868. KKQ~
  14869. KK~
  14870. K_L8
  14871. {SHIFT-@}~
  14872. K{CBM-W}~
  14873. K{CBM-Z}~K
  14874. K{$fe}K8~K~KK7~+~,V~{$f6}~{$e8}K8+{$ed}~,
  14875.  
  14876.  
  14877.  
  14878.  
  14879.  
  14880.  
  14881.  
  14882.  
  14883.  
  14884.  
  14885.  ~{CBM-B}
  14886.  
  14887. +
  14888. KG
  14889. a,+{$e1}~
  14890. Ka,+G
  14891. P~a,{CBM-F}
  14892. F<>F>
  14893. {CBM-C}
  14894. F<FFF<
  14895. {CBM-X}
  14896. F
  14897. FFF>
  14898. {CBM-V}
  14899. <F{$7c}FF{$7c}{$60}{SHIFT-+}F+{CBM-E}{$fe},+{$fe},+{CBM-+}{$fe},{$eb}M8K+{$fe},K+
  14900. K M8K,+{CBM-P}~,+P~,
  14901. Druckformat
  14902.  
  14903. -----------
  14904. Linker Rand: %
  14905. Zeichenzahl: %
  14906.  
  14907. Oberer Rand: %
  14908. Unter. Rand: %
  14909. Zeilenzahl : %
  14910.  
  14911. Sek. Adress: %
  14912.  
  14913.  
  14914.  
  14915.  
  14916.  
  14917. +s{$f1};{$f3},+E~y{$fb}v{$fb}s{$fb}p{$fb}c{$fb}h{$fb}{$f3},p%;
  14918. 7m%-
  14919. 7f%4
  14920. +7K{$f9},+
  14921.  
  14922. $*=s
  14923. {CBM-I}{$f5},_L8a~+{$ed}{$f9},{$f3}~+
  14924. -{$fb},+&{$fb},+{$fe},{SHIFT--}~+{$f9},+{$f7},+
  14925. '
  14926. Vordergrund Hintergrund Rahmenfarbe
  14927. {$7d}{$f7},+L{$f0},+{$60}{$f7},7v%
  14928. 7h%
  14929. 7r%
  14930. >+Z{$ef}B{$f1},_L8~!P~ P~
  14931. K
  14932.  '+{$f7},+
  14933.  
  14934. Suchen Tauschen Disk/Druck
  14935. {$f7}
  14936. 0
  14937. +
  14938.  
  14939. Wirklich beenden j/n? 
  14940. {$e4}{$f5},+<{$ef},j%Y
  14941. '{$ee}
  14942. +C{$ee},
  14943. >@%
  14944. e+
  14945. P
  14946.  
  14947. a,f+T{$ed}R{$ed}{SHIFT-@}{$ef},7%E
  14948. 7z%^
  14949. 7l%?
  14950. 7
  14951. \
  14952. 7k%o
  14953. 7b%6
  14954. 7i%5
  14955. +A{$fd},+{$f5},8{$fe}+F{$f6},+H{$fc},+3{$f6},+{$eb}{$f9},+~{$f9},++{$fb},+k{$fb},+F{$f9},+H{$fb},
  14956.  
  14957. x:
  14958. */
  14959. +
  14960.  
  14961. Bitte Taste druecken
  14962. w
  14963. 7%0
  14964. 7+Q{$ec},{$7d}O8{CBM-Q}~+{SHIFT-@}{$fc},{CBM-T}~+W{$f3},+j{$f4},~{$eb}M8+A{$f4},~+G{$ec},~+Z{$f7},N{$f7}%T~_L8D~T{$ed}R{$ed}{SHIFT-@}{$ef},7%E
  14965. 7z%^
  14966. 7l%?
  14967. 7
  14968. \
  14969. 7k%o
  14970. 7b%6
  14971. 7i%5
  14972. +A{$fd},+{$f5},8{$fe}+F{$f6},+H{$fc},+3{$f6},+{$eb}{$f9},+~{$f9},++{$fb},+k{$fb},+F{$f9},+H{$fb},
  14973.  
  14974. x:
  14975. */
  14976. +
  14977.  
  14978. Bitte Taste druecken
  14979.  
  14980.  {$fd}{CBM-S} {CBM-Y}h {$fd}{CBM-S} {CBM-Y}H{CBM-POUND}l{$f0}~ >{SHIFT-*} 
  14981. {CBM-E}"h >{SHIFT-*}{CBM-POUND}HQ"{$f0}{SHIFT-*}
  14982. P{$f7}H {CBM-I}{CBM-W} {$fd}{CBM-S} {CBM-A}ij{CBM-G}lB{SHIFT-POUND} {$fd}{CBM-S} {CBM-Z}l{CBM-+}{CBM-L}{CBM-G}FL{$f0}{$fa}X{CBM-G}O{$f0}{CBM-G}N{CBM-S} 
  14983. O {$ea}l{CBM-H}{$e5}{CBM-N}0
  14984. I{$60}){CBM-*}P)?
  14985. ){$7f}I{$7f}P{SHIFT-POUND}^@{CBM-@}SQ{$60} {$fd}{CBM-S} {CBM-Y}JESHU{CBM-G}SJ{$60}h{CBM-@}UDS{$f0}{SHIFT-POUND} Q{SHIFT-POUND} {$e7}FXHlA{SHIFT-*}{CBM-@}JS{SHIFT-POUND} HQDUP{$f9}{$60} {SHIFT-*} g{SHIFT-*}{CBM-I}
  14986. {SHIFT--}A{$f0}JJP{$f8} {SHIFT-*}{CBM-+}S{$e4}H{$f0}{$ea}{$e6}SP{$e6}{CBM-+}S{$e4}J{$f0} FS{SHIFT-+}{CBM-+}JST {CBM-N}{SHIFT-*}N{CBM-+}S{$e4}J{$f0}H R~B#
  14987.  
  14988.  lotterie ===============c64
  14989. <
  14990.  (p) commodore disc
  14991. ^
  14992.  ===========================
  14993. (
  14994.  (c) by g. kramer       v3.5
  14995. 2
  14996.         emsdetten
  14997. <
  14998.  
  14999. {CBM-B}f
  15000.         a. mittelmeyer  v2.0
  15001. Ip
  15002.  c64
  15003. {$eb}z
  15004.  ===========================
  15005. D
  15006. 646,0:2240:{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15007.  
  15008. H
  15009. i{CBM-R}0{CBM-@}31:ka(i){CBM-R}0:i
  15010. ;
  15011. R
  15012. i{CBM-R}1{CBM-@}8:sz(i,2){CBM-R}0:sz(i,1){CBM-R}1
  15013. x
  15014. {CBM--}
  15015. i{CBM-Q}{CBM-J}(i{CBM-Z}2){CBM-D}2{CBM-R}0{CBM-M}sz(i,1){CBM-R}25
  15016. J
  15017. {$e6}
  15018. i:vk{CBM-R}0:cs{CBM-R}15
  15019.  
  15020. {$f0}
  15021. i{CBM-R}1{CBM-@}an:z{CBM-R}sz(i,2):c{CBM-R}sz(i,1)
  15022. {CBM-K}
  15023. {$fa}
  15024. cz{CBM-R}4:G(30);:1370
  15025. {CBM-F}
  15026. na$(i)" ":j{CBM-R}1{CBM-@}99:j
  15027. T
  15028. cz{CBM-R}4:{CBM-K}z$:z${CBM-W}{CBM-E}""{CBM-M}310
  15029. {$ee}
  15030. 1370:G(18)na$(i)" "
  15031. "G(146){CBM-R}c:z{CBM-R}6{CBM-P}an{CBM-E}4{CBM-M}530
  15032. z{CBM-R}9{CBM-P}an{CBM-E}2{CBM-M}530
  15033. 1vk{CBM-R}vk{CBM-N}1:vk{CBM-E}32{CBM-M}530
  15034. a{CBM-@}1540:1370
  15035. z{CBM-S}ka(a){CBM-R}b{CBM-D}10{CBM-N}i{CBM-N}cp:k0$
  15036. H{CBM-U}1370:z$
  15037. XB1370:z1$;
  15038. Lz{CBM-E}0{CBM-P}an{CBM-E}4{CBM-M}500
  15039. V1370:k1$;
  15040. {CBM-E} an{CBM-E}6{CBM-A}z{CBM-E}3{CBM-P}an{CBM-E}2{CBM-M}500
  15041. A{$ea}1370:k2$;
  15042. {$e1}{$f4}ge(i){CBM-R}ge(i){CBM-N}b{CBM-D}ei:gb{CBM-R}gb{CBM-N}b{CBM-D}ei
  15043. {$fc}{$fe}gs(i){CBM-R}gs(i){CBM-Q}b{CBM-D}eicz{CBM-R}cz{CBM-Q}1:600
  15044. %{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15045. 6spiel laeuft
  15046. y{CBM-POUND}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15047. Y{CBM-R}j{CBM-R}999999:cz{CBM-R}3:i{CBM-R}1{CBM-@}4:aa{CBM-R}1.1
  15048. {CBM-C}1540
  15049. Fz2${CBM-R}z$:z3${CBM-R}z1$
  15050. {CBM-G}Pb{CBM-R}B(646){CBM-N}1
  15051. {CBM-B}Zc{CBM-R}a:1540:cs{CBM-R}16:1370
  15052. O{$e4}fb{CBM-R}B(646){CBM-N}1
  15053. {CBM--}{$ee}646,b{CBM-Q}1
  15054. {$e6}{$f8}k0$;
  15055. {$f4}646,fb<F{$7e}FF
  15056. {CBM--}F<FFFF<
  15057. {SHIFT--}F
  15058. FFFF<
  15059.  
  15060. >
  15061.  (e
  15062.  
  15063. >@%
  15064. +
  15065.  
  15066. editor.mc
  15067. a{$f7},
  15068. +
  15069.  
  15070.  
  15071. edit128.mc
  15072. +{$f7},>
  15073. K
  15074.  K{$e8}K8
  15075. >@%
  15076. e+
  15077.  
  15078. P
  15079. a,f@z~>
  15080.  
  15081. >
  15082. GD{CBM-X}K8GD
  15083. {CBM-B}
  15084. ~+
  15085. ,{CBM-B}{$e4}~{CBM-B}~+{SHIFT-+}{$fe},{$e8}K8+R{$fe}, M8K++C{$fe},{$e8}K8K,{$eb}M8O~*
  15086. +{CBM-F}~,{$fb}*{$fb}({$fb}&{$fb}{$fb} {$fb}{$f4},{CBM-M}~4{CBM-G}~
  15087. ~+
  15088.  
  15089. Eingaben richtig j/n? 
  15090. {CBM-@}{$f2},+{$f2},n%P~7j%{$f0}~+{$f8},+
  15091. !
  15092. Laden Einfuegen Speichern Read
  15093. I{$f8},+ J{$f7},+
  15094.  
  15095. Dir Print Mon-Print Form
  15096. :{$f8},+ Y{$f7},+{$f8},7s%M
  15097. 7e%-
  15098. 7l%&
  15099. 7d%&
  15100. 7r%3
  15101. 7,+ H{$f6},{$fb}e
  15102. +
  15103.  
  15104. Zurueck(F4) Loesch
  15105. X{$f6},
  15106. w
  15107. +
  15108.  
  15109.  Kopie Beweg Insert
  15110. G{$f0},8
  15111. +
  15112.  
  15113.  
  15114. Bank Farbe
  15115. {$f6},
  15116.  
  15117. +
  15118.  
  15119.  Zeit Insert Ende
  15120. {$f0},+ {$ee}{$f0},Z{$fa}+
  15121. $,
  15122. + {CBM-+}{$f5},
  15123. +{SHIFT-POUND}{$ef},+={$f6},7s%{$ef}
  15124. 7t%{CBM--}
  15125. 7d%{SHIFT-+}
  15126. 7?{$fa}
  15127. 7b%{$de}
  15128. 7f%{CBM-E}
  15129. 7
  15130. {$ee}
  15131. 7z%{SHIFT-POUND}
  15132. 7e%
  15133. >
  15134.  (!
  15135.  
  15136. {$ef},+t{$ee},+{$f5}{$f1},
  15137. -
  15138.  
  15139. +{$ed},
  15140. -
  15141.  
  15142. +
  15143.  =,+
  15144.  <,
  15145. +
  15146.  =,
  15147.  
  15148. {$eb}M MFMM{SHIFT-+}M{CBM-+}M{CBM-P}MNN+{CBM-P}{$f9},+{CBM-H}{$ec}{$ee},+~,%
  15149. +p~,
  15150. {$e8}K8+
  15151. v{$f0},OK8>
  15152.  (
  15153. _L8+{$fd},_L8 O8+~GDQ{$ec},
  15154. !~8{$de}~GD%+
  15155. 7%=
  15156. 7%f
  15157. 7%
  15158. Z{SHIFT-POUND} PK{CBM-POUND} ,{SHIFT-*}{$ea}{$ea}{$ea} {$fd}{CBM-S}{CBM-+}JS{CBM-I}
  15159. W{CBM-I}F#l{CBM-Q}
  15160. {$fe}{$fe}{$fe}{$fe}LV{$e1}{$e8}{$fa}{$ee}{CBM-C}%A7Al
  15161. {SHIFT-*} S
  15162. {CBM-I},~ {$60}{CBM-G}{$ea}{SHIFT-POUND}@l{CBM-D}X{SHIFT-POUND}v{CBM-I}A()x{SHIFT-POUND}{$60}X{SHIFT-POUND}{$ed}{CBM-I}{$f6}()x{$60}{CBM-G}Za{CBM-G}{$7b}bHHlT{CBM-POUND}
  15163.  
  15164.  
  15165.  
  15166.  
  15167.  
  15168.  
  15169.  
  15170.  
  15171.  
  15172.  
  15173.  
  15174.  
  15175.  
  15176.  
  15177.  
  15178.  
  15179.  
  15180.  
  15181.  
  15182.  
  15183.  
  15184.  
  15185.  
  15186.  
  15187.  
  15188.  
  15189.  
  15190.  
  15191.  
  15192.  
  15193.  
  15194.  
  15195.  
  15196.  
  15197.  
  15198.  
  15199.  
  15200.  
  15201.  
  15202.  
  15203.  
  15204.  
  15205.  
  15206.  
  15207.  
  15208.  
  15209.  
  15210.  
  15211.  
  15212.  
  15213.  
  15214.  
  15215.  
  15216.  
  15217.  
  15218.  
  15219.  
  15220.  
  15221.  
  15222.  
  15223.  
  15224.  
  15225.  
  15226.  
  15227.  
  15228.  
  15229.  
  15230.  
  15231.  
  15232.  
  15233.  
  15234.  
  15235.  
  15236.  
  15237.  
  15238.  
  15239.  
  15240.  
  15241.  
  15242.  
  15243.  
  15244.  
  15245.  
  15246.  
  15247.  
  15248.  
  15249.  
  15250.  
  15251.  
  15252.  
  15253.  
  15254.  
  15255.  
  15256.  
  15257.  
  15258.  
  15259.  
  15260.  
  15261.  
  15262.  
  15263.  
  15264.  
  15265.  
  15266.  
  15267.  
  15268.  
  15269.  
  15270.  
  15271.  
  15272.  
  15273.  
  15274.  
  15275.  
  15276.  
  15277.  
  15278.  
  15279.  
  15280.  
  15281.  
  15282.  
  15283.  
  15284.  
  15285.  
  15286.  
  15287.  
  15288.  
  15289.  
  15290.  
  15291.  
  15292.  
  15293.  
  15294.  
  15295.  definitionen
  15296. "N
  15297. 2980: spielregel
  15298. @X
  15299. 2470: abfrage am anfang
  15300. A
  15301. 2730: anfangsbild aufbauen
  15302.  
  15303. 200: eingeben der einsaetze
  15304.  
  15305. 690: spiel laeuft
  15306. {CBM-@} 
  15307. 130
  15308. G{CBM-N}
  15309. {CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15310. {$e2}{CBM-H}
  15311. eingeben der einsaetze
  15312.  
  15313. {CBM-V}
  15314. {CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}:vk{CBM-R}32{CBM-M}530
  15315. ,j{CBM-R}1{CBM-@}99:j:250
  15316. 56j{CBM-R}175{CBM-@}184:bi{CBM-N}j,160:j
  15317. h@z${CBM-R}G(133){CBM-M}590
  15318. xjz${CBM-R}"+"{CBM-M}530
  15319. Otz${CBM-W}"0"{CBM-A}z${CBM-E}"9"{CBM-M}270
  15320. ^j{CBM-R}1:b{CBM-R}E(z$):b{CBM-R}0{CBM-M}b{CBM-R}10
  15321. {CBM-D}Hcz{CBM-R}3{CBM-N}{CBM-J}((i{CBM-Q}1){CBM-Z}2){CBM-D}24{CBM-Z}{CBM-J}((an{CBM-N}1){CBM-Z}2)
  15322. JRc{CBM-R}13{CBM-M}c{CBM-R}1:z{CBM-R}z{CBM-N}3:an{CBM-E}6{CBM-M}530
  15323. {$e9}{$7c}c{CBM-R}37{CBM-M}c{CBM-R}25:z{CBM-R}z{CBM-N}3:an{CBM-E}6{CBM-M}530
  15324. cz{CBM-R}cz{CBM-N}z:cs:1680
  15325.  
  15326. c{CBM-R}c{CBM-N}2:cs{CBM-R}15:250
  15327. 2
  15328. sz(i,1){CBM-R}c:sz(i,2){CBM-R}z:cs{CBM-R}15:i
  15329. a
  15330. vk{CBM-W}32{CBM-M}240
  15331. l
  15332. &z2${CBM-R}""
  15333. x
  15334. 0i{CBM-R}1{CBM-@}10
  15335. J
  15336. :z2${CBM-R}G(32){CBM-N}z2$
  15337. P
  15338. d
  15339.  
  15340. nz${CBM-R}"f1 = spiel"
  15341.  
  15342. xcz{CBM-R}4:G(30);:1370
  15343. {CBM-L}
  15344. Bz$:j{CBM-R}1{CBM-@}99:j:cz{CBM-R}cz{CBM-Q}1
  15345. K
  15346. L1370:cr$z2$co$
  15347. {$e2}
  15348. V{CBM-K}z1$:z1${CBM-R}G(133){CBM-M}
  15349. {$f1}
  15350. j{CBM-R}1{CBM-@}50:j
  15351. {CBM-Q}1
  15352. {$fd}k0$
  15353. 1370
  15354.  646,b{CBM-Q}1
  15355. *z2$;
  15356. ,4646,fb{CBM-Q}1
  15357. 4>z$
  15358. >h1370
  15359. kr646,b{CBM-Q}1
  15360. u\z3$;
  15361. CF646,fb{CBM-Q}1
  15362. LPz1$
  15363. VZ1370
  15364. 646,b{CBM-Q}1
  15365. k1$;
  15366. 646,fb{CBM-Q}1
  15367. {CBM-@}{CBM-I}k1$
  15368. {CBM-S}{CBM-D}1370
  15369. {CBM-F}{CBM-L}646,b{CBM-Q}1
  15370. E{SHIFT-*}k2$;
  15371. SJ646,fb{CBM-Q}1
  15372. {CBM--}Tk2$
  15373. {$f5}{$de}b{CBM-R}ka(a):ka(a){CBM-R}jn{CBM-N}1){CBM-Z}2):fb{CBM-R}144
  15374. cs{CBM-R}0:i{CBM-Q}{CBM-J}(i{CBM-Z}2){CBM-D}2{CBM-R}1{CBM-M}cs{CBM-R}25
  15375. &{CBM-@}cz{CBM-R}1{CBM-N}24{CBM-Z}k{CBM-D}({CBM-J}(i{CBM-Z}2))
  15376. @{CBM-S}1370:a{CBM-R}ge(i{CBM-N}1):1420
  15377. ^{CBM-U}a${CBM-R}H(na$(i{CBM-N}1){CBM-N}I(z$,6),14)
  15378. MB646,0:a$
  15379. {$7c}La${CBM-R}I(z$,1)
  15380. Vbi{CBM-N}40{CBM-D}cz{CBM-N}cs{CBM-Q}26,F(a$)
  15381. {CBM-E} a{CBM-R}gs(i{CBM-N}1):a{CBM-W}0{CBM-M}646,10
  15382. B{$ea}1420:z1${CBM-R}z$
  15383. {CBM--}{$f4}a{CBM-R}gw(i{CBM-N}1):1420:1370
  15384. {$ee}{$fe}a" l o t t e r i e "
  15385.  6j{CBM-R}{CBM-J}((an{CBM-N}1){CBM-Z}2):i{CBM-R}0{CBM-@}an{CBM-Q}1:cs{CBM-R}0
  15386.  @i{CBM-R}i{CBM-N}1:1680:i{CBM-R}i{CBM-Q}1:i
  15387. - ja{CBM-R}ei:1420
  15388. c tcz{CBM-R}21:cs{CBM-R}16:1370
  15389. y ^"einsatz=":1370
  15390. U HI(z$,4){CBM-N}"-   ":a{CBM-R}ei{CBM-D}10
  15391.  R1370:1420
  15392.  {$7c}z$:
  15393. {CBM-E} {CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15394. {SHIFT-*} spielregel
  15395. {$e2} {CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15396. z781,cz:782,cs:cu
  15397. >Dcp{CBM-R}100{CBM-D}(cz{CBM-D}40{CBM-N}cs):cz{CBM-R}cz{CBM-N}1:
  15398. {$60}N{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15399. {$7e}Xbetragsfelder aufbereiten
  15400.  {CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15401. {CBM-A}a{CBM-W}0{CBM-M}a{CBM-R}a{CBM-D}{CBM-Q}1
  15402. Cz${CBM-R}D({CBM-J}(a{CBM-Z}100))
  15403. X z${CBM-R}I(z$,C(z$){CBM-Q}1)
  15404. {$ee}{CBM-N}z${CBM-R}I("    "{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15405. {CBM-+}cc${CBM-T}11)"l o t t e r i e"
  15406. {CBM-A}c1$c1$c1$
  15407. ;{SHIFT-@}{CBM-T}10)"wieviele spieler ?"
  15408. gDc1$c1$
  15409. sNa0${CBM-R}"*"
  15410. ^Xi{CBM-R}1{CBM-@}8
  15411. P{$e2}a0${CBM-R}G(32){CBM-N}a0$
  15412. V{$ec}
  15413. {$f6}{CBM-K}a$:an{CBM-R}E(a$)
  15414.  
  15415.  
  15416. an{CBM-W}1{CBM-A}an{CBM-E}8{CBM-M}2550
  15417. {CBM-H}
  15418.  
  15419. i{CBM-R}1{CBM-@}an:a${CBM-R}D(i){CBM-N}D(i)
  15420. H
  15421. i". name";:a$
  15422. {CBM-*}
  15423. na$(i){CBM-R}
  15424. :z{CBM-R}cz
  15425. {$e8}a{CBM-R}ka(c):ka(c){CBM-R}j:1950
  15426. ({$f2}{CBM-K}z$:z${CBM-W}{CBM-E}G(133){CBM-M}1010
  15427. 6{$fc}cz{CBM-R}z{CBM-Q}2:i
  15428. lcs{CBM-R}18:1540:1370
  15429. [k0$:1370
  15430. Iz$:1370
  15431. X$z1$:1370
  15432. .k1$:1370
  15433. 8k2$:a{CBM-R}ka(a):i{CBM-R}10
  15434. {CBM-M}b1950
  15435. {CBM-X}lcz{CBM-R}24:cs{CBM-R}15:1370
  15436. XvG(30)cr$" f2 = ende";
  15437. {$e8}{$60}cz{CBM-R}20:1370
  15438. Jc{CBM-R}{CBM-J}(a{CBM-Z}100):a{CBM-R}a{CBM-Q}c{CBM-D}100:2040
  15439.  
  15440. Pc{CBM-R}{CBM-J}(a{CBM-Z}10):i{CBM-R}a{CBM-Q}c{CBM-D}10
  15441. Zc{CBM-R}0{CBM-M}c{CBM-R}10
  15442. 6a{CBM-R}c:gw(i){CBM-R}gw(i){CBM-N}a{CBM-D}ei{CBM-D}d
  15443. mgs(i){CBM-R}gs(i){CBM-N}a{CBM-D}ei{CBM-D}d
  15444. Fgb{CBM-R}gb{CBM-Q}a{CBM-D}ei{CBM-D}d:1680:
  15445. {CBM-I}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15446. {CBM-D}initien
  15447. {CBM-U}{CBM-L}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15448. V{SHIFT-*}bi{CBM-R}1024:fa{CBM-R}55296:cu{CBM-R}65520
  15449. {$f7}J${CBM-R}z1${CBM-N}G(144)
  15450. a${CBM-R}H(a${CBM-N}I(z$,7),15)
  15451. a$
  15452. a${CBM-R}I(z$,1)
  15453. 7&bi{CBM-N}40{CBM-D}cz{CBM-N}cs{CBM-Q}26,F(a$)
  15454. g0a{CBM-R}gb:646,0
  15455. x:a{CBM-W}0{CBM-M}646,10
  15456. Sd1420:cz{CBM-R}1:cs{CBM-R}16:1370
  15457. nz$:646,0:i{CBM-R}i{CBM-N}1
  15458. {CBM-K}xa{CBM-R}32{CBM-Q}vk:z${CBM-R}I(D(a),2)
  15459. {CBM-U}Bbi{CBM-N}979,F(H(z$,1))
  15460. OLbi{CBM-N}980,F(I(z$,1))
  15461. UV
  15462. {$f7}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15463. {CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15464. !{CBM-@}cc${CBM-T}12)"spielregel?(j/n)"
  15465. !{CBM-S}{CBM-K}z$:z${CBM-R}"n"{CBM-M}
  15466. %!{CBM-U}z${CBM-W}{CBM-E}"j"{CBM-M}2990
  15467. j!Bcc${CBM-T}12)" l o t t e r i e "G(17)
  15468. Y!L"zuerst geben sie die anzahl der spieler"
  15469. {CBM-@}!V"ein (1-8). anschliessend die namen."
  15470. X! "sie koennen bis neun stellen eing{CBM-N}z$,5)
  15471. {CBM-H}I(D(a),2){CBM-W}"10"{CBM-M}1490
  15472. {CBM-V}z${CBM-R}z${CBM-N}","{CBM-N}I(D(a),2)
  15473. %H
  15474. >Rz${CBM-R}z${CBM-N}",0"{CBM-N}I(D(a),1)
  15475. d{CBM--}
  15476. F{$e6}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15477. W{$f0}karte setzen
  15478. {$fa}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15479. {CBM-N}a{CBM-R}{CBM-J}({CBM-F}(a){CBM-D}32)
  15480. {CBM-O}a{CBM-R}aa{CBM-M}1570
  15481. Kka(a){CBM-W}j{CBM-M}1590
  15482. {CBM-*}"a{CBM-R}a{CBM-N}1:a{CBM-E}31{CBM-M}a{CBM-R}0
  15483. {$e9},1H(a${CBM-N}a0$,9)
  15484. {$eb}(
  15485. i:c1$
  15486.  
  15487. 2
  15488. {CBM-T}10)"einsatz dm 0,01 (1)"
  15489. &<
  15490. {CBM-T}12)"oder dm 0,10 (2)"
  15491. bf
  15492. {CBM-T}12)"oder dm 1,00 (3)"
  15493. sp
  15494. {CBM-K}a$:ei{CBM-R}E(a$)
  15495. Bz
  15496. ei{CBM-R}1{CBM-M}2690
  15497. XD
  15498. ei{CBM-R}2{CBM-M}ei{CBM-R}10:2690
  15499. N
  15500. ei{CBM-R}3{CBM-M}ei{CBM-R}100:2690
  15501. X
  15502. 2640
  15503.  
  15504.  
  15505. A
  15506. {CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15507. Q
  15508. anfangsbild
  15509. G(150)cr$"f1=weiter "
  15510. T{CBM-K}z$:z${CBM-R}G(133){CBM-M}1210
  15511. 5{$7e}z${CBM-R}G(137){CBM-M}cc$:1230
  15512. pi{CBM-R}1{CBM-@}99:i:cz{CBM-R}20:1370
  15513. JG(30)cr$" f1=weiter"
  15514. cz{CBM-R}24:cs{CBM-R}15:1370
  15515. {CBM-+}G(150)cr$"f2 = ende ";
  15516. {CBM-E}{CBM-A}i{CBM-R}1{CBM-@}99:i:1100
  15517. P{SHIFT-@}i{CBM-R}1{CBM-@}an:gw(i){CBM-R}0:ge(i){CBM-R}0:i
  15518. {SHIFT-+}Dvk{CBM-R}0:
  15519. {$f9}N{CBM-T}12)"l o t ka(31),na$(8),fa$(3),bi$(7)
  15520. Tgs(8),ge(8),gw(8),sz(8,2)
  15521. /{$de}c1${CBM-R}G(17):c2${CBM-R}G(145)
  15522. h{$e8}c3${CBM-R}G(29):c4${CBM-R}G(157)
  15523. A{$f2}ch${CBM-R}G(19):cc${CBM-R}G(147)
  15524. {$7b}{$fc}fa$(0){CBM-R}"X":fa$(1){CBM-R}"A"
  15525. fa$(2){CBM-R}"S":fa$(3){CBM-R}"Z"
  15526. {CBM-P}bi$(0){CBM-R}"7":bi$(1){CBM-R}"8"
  15527. Ibi$(2){CBM-R}"9":bi$(3){CBM-R}"x"
  15528. {$e3}$bi$(4){CBM-R}"b"{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15529.  
  15530. gewinne speichern
  15531. /{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15532. ad{CBM-R}i:a{CBM-R}0{CBM-M}1970
  15533. k{CBM-POUND}2150
  15534. y{CBM-R}b{CBM-R}0{CBM-M}2000
  15535. H{CBM-C}d{CBM-R}10{CBM-M}2000
  15536. VFa{CBM-R}b:2150
  15537. Pi{CBM-R}d:
  15538. {CBM-I}Z{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15539. {CBM-X}{$e4}gewinnkarte umschalten
  15540. {CBM-*}{$ee}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15541. eben. "G(17)
  15542. "{$ea}"darauf geben sie eine ziffer (1-3) ein,"
  15543. 6"{$f4}"um den mindesteinsatz festzulegen.  sie"
  15544. E"{$fe}"koennen spaeter bis zu 10-fach setzen. "
  15545. Y"{CBM-K}z$:z${CBM-R}""{CBM-M}3080
  15546. "cc${CBM-T}12)" l o t t e r i e "G(17)
  15547. M""jetzt koennen die spieler ihren einsa
  15548. 550
  15549. 6aa{CBM-R}a:fb{CBM-R}{CBM-J}(a{CBM-Z}8):z${CBM-R}fa$(fb)
  15550. @z1${CBM-R}bi$(a{CBM-Q}fb{CBM-D}8)
  15551. 7jz${CBM-R}G(98){CBM-N}z${CBM-N}G(32){CBM-N}G(98)
  15552. qtz1${CBM-R}G(98){CBM-N}z1${CBM-N}I(z$,2)
  15553. E^fb{CBM-E}1{CBM-M}646,10:
  15554. RH646,0:
  15555. R{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15556. {CBM-E}{$7c}betraege ins bild setzen
  15557. S{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15558. {$f2}i{CBM-R}i{CBM-Q}1:k{CBM-R}{CBM-J}((a{$f3} 
  15559. {CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15560. {$fd}{CBM-N}
  15561. z${CBM-R}""
  15562. {CBM-H}
  15563. i{CBM-R}1{CBM-@}10
  15564. {CBM-V}
  15565. z${CBM-R}z${CBM-N}G(32)
  15566. H
  15567.  
  15568. )R
  15569. cc$;
  15570. c{CBM--}
  15571. G(144)G(18)z$z$z$z$;
  15572. v{$e6}
  15573. z1${CBM-R}z${CBM-N}H(z$,5)
  15574. V{$f0}
  15575. z1${CBM-R}z1${CBM-N}G(30){CBM-N}z${CBM-N}G(144){CBM-N}z1$
  15576. {$fa}
  15577. i{CBM-R}1{CBM-@}23:z1$;:i
  15578. i{CBM-R}960{CBM-@}999
  15579. {CBM-A}bi{CBM-N}i,160:fa{CBM-N}i,0
  15580. {CBM-L}
  15581. K"cz{CBM-R}0:cs{CBM-R}12:1370
  15582. {$e4},t e r i e"c1$
  15583. X{CBM-T}13)"endabrechnung"c1$
  15584. /{$e2}i{CBM-R}1{CBM-@}an:a{CBM-R}gs(i):1420
  15585. :{$ec}646,0
  15586. o{$f6}gs(i){CBM-W}0{CBM-M}646,10
  15587. D
  15588. {CBM-T}11)na$(i)z$c1$
  15589. V
  15590. i:a{CBM-R}gb:1420
  15591. 646,0
  15592. gb{CBM-W}0{CBM-M}646,10
  15593. {CBM-Q}({CBM-T}11)"bank     "z$;
  15594. {CBM-E}2
  15595. S<{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15596. {$e4}fcurs{CBM-A} setzen
  15597. p{CBM-Q}:bi$(5){CBM-R}"d"
  15598. {$fd}.bi$(6){CBM-R}"k":bi$(7){CBM-R}"a"
  15599. 8cr${CBM-R}G(18):co${CBM-R}G(146)
  15600. ,b53281,1:53280,0
  15601. nlk0${CBM-R}G(117){CBM-N}G(96){CBM-N}G(96){CBM-N}G(105)
  15602. Nvk1${CBM-R}G(98){CBM-N}G(32){CBM-N}G(32){CBM-N}G(98)
  15603. {$60}k2${CBM-R}G(106){CBM-N}G(96){CBM-N}G(96){CBM-N}G(107)
  15604. {$7e}
  15605. {CBM-U}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15606. Nabfrage am anfang
  15607. {$f0}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15608. {$ed}{$f8}c{CBM-R}c{CBM-N}41{CBM-N}bi
  15609. B(c){CBM-R}66{CBM-A}B(c){CBM-R}32{CBM-M}c{CBM-R}c{CBM-Q}1
  15610. i{CBM-R}1{CBM-@}10{CBM-N}d{CBM-D}3
  15611. (c,B(c){CBM-P}127
  15612. ? c{CBM-R}c{CBM-N}40:c,B(c){CBM-P}127
  15613. v*c{CBM-R}c{CBM-Q}40:c,B(c){CBM-A}128
  15614. M4c{CBM-R}c{CBM-N}40:c,B(c){CBM-A}128
  15615. {$7d}>c{CBM-R}c{CBM-Q}40:i:
  15616. h{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15617. {CBM-J}rgewinn verrechnen
  15618. W\{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}{CBM-Q}
  15619. {$f6}Ftz"
  15620. {$fc}"&"machen. der spieler, dessen name blinkt"
  15621. +#0"drueckt eine der tasten 1 - 0 und kauft"
  15622. z#:"damit eine karte aus einem satz von  32"
  15623. #d"karten. der einsatz ist je nach der ge-"
  15624. {CBM-U}#n"drueckten taste einfach(1) bis zehnfach"
  15625. {$e7}#x"(0). je n
  15626. {CBM-R}igt, wieviele karten noch zu  verkau-"
  15627. -J"en sind - und nun viel spass beim spiel"G(17)
  15628. *-T"alles in ordnung ?"
  15629. >-{$7e}{CBM-K}z$:z${CBM-R}""{CBM-M}3710
  15630. d-
  15631. D- =programmende============
  15632.  
  15633.  
  15634. fenden runde angezeigt"
  15635. {CBM-E}+"links wird schwarz der von der bank zu-"
  15636.  +$"2)" l o t t e r i e "G(17)
  15637.  
  15638. *{SHIFT-*}
  15639. "noch ein paar erklaerungen zum bild:   "G(17)
  15640. 9*J
  15641. "in jedem feld erscheint links oben  der"
  15642. H*T
  15643. "anfangs eingegebene name. wurde jedoch "
  15644. *{$de}
  15645. "kein name eingegeben,sehen sie die num-"
  15646. F*{$e8}
  15647. "mer des spielers zweimal. da*
  15648.  
  15649.  **********************************
  15650. s
  15651.  *      etiketten - drucker       *
  15652. {$7c}
  15653.  *              fuer              *
  15654. {CBM-G}(
  15655.  *     c-128 und mps drucker      *
  15656. N2
  15657.  *      (c) 1990 by michel        *
  15658. {$f7}<
  15659.  **********************************
  15660. {$fd}f
  15661.  
  15662.  
  15663.  
  15664. {$ea}&
  15665. "betaetigen sie nun die f1-taste."
  15666. '
  15667. "nun werden aus einem zweiten kartensatz"
  15668. h' 
  15669. "die ersten zwei karten aufgedeckt.     "
  15670. W'*
  15671. "wer eine der beiden karten gesetzt hat,"
  15672. {CBM-+}'4
  15673. "erhaelt seinen einsatz (1-10) zurueck. "
  15674. U'>
  15675. "nach weiterem druec{CBM-R}1:ta{CBM-R}6
  15676. {$fa}
  15677.  500: filenamen holen
  15678. 4 t{CBM-W}{CBM-E}0{CBM-P}z{CBM-W}{CBM-R}30 {CBM-M} 250
  15679. q 1000: bemerkung holen
  15680. E" 800: drucker
  15681. , ,10,24,l$: ,30,24,"noch ein etikett ? (j/n)":{CBM-K}{$f9} x$
  15682. {CBM-Z}6 x${CBM-R}"j"{CBM-M} 
  15683. {CBM-U}@65341
  15684. {$ed}                  *****************************
  15685. "      ach einsatz ist nachher auch  "
  15686. $B"der gewinn ein- bis zehnfach.          "
  15687. e$L"sie koennen weitere karten kaufen,  bis"
  15688. T$V"ihr spielfeld voll ist. doch denken sie"
  15689. {CBM-T}$"auch daran, dass nach ihnen die anderen"
  15690. R$"spieler auch noch ihre einsa
  15691. : F(a$) {CBM-W}{CBM-E}130 {CBM-M} 610
  15692. "& st{CBM-R}64 {CBM-M} 610
  15693. ."01,"b-p 2";bp{CBM-N}3
  15694. v": x{CBM-R}1 {CBM-@} 16:{CBM-K}#2,a$:ein${CBM-R}ein${CBM-N}a$: x:
  15695. J"d 700: abfrage
  15696. V"nein${CBM-R}""
  15697. "x z{CBM-E}30  620
  15698. "B bp
  15699. "L{$fe}
  15700. "V
  15701. T"{CBM-O}                   ******************************
  15702. #{SHIFT-@}                   *    neben zeigt"
  15703. {$f5}*{$f2}
  15704. "der bildschirm die hoehe ihres gesamten"
  15705. $+{$fc}
  15706. "einsatzes in der laufenden runde.      "
  15707. s+"in der naechsten reihe wird rechts  der"
  15708. +"gewinn in der laufenden runde angezeigt"
  15709. {CBM-E}+"links wird schwarz der von der bank zu-"
  15710.  +$"D
  15711.  x{CBM-R}1 {CBM-@} 60:l${CBM-R}l${CBM-N}" ":
  15712. :N
  15713.  na$(15): nb$(15): te$(15)
  15714. TX
  15715. "": ,22,2," e t i k e t t e n - d r u c k e r ":
  15716.  
  15717.  1200: datum und modus
  15718. {CBM-+}
  15719. {$fe} 15,05,65,21,1
  15720. {CBM-H} 
  15721. G(27)"m"
  15722. {$f4}{CBM-N}
  15723.  ,0,0,"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  15724. &{CBM-H}
  15725.  xken der f1-taste er-"
  15726. (h
  15727. "scheinen weitere 2 karten, bis vier mal"
  15728. 3(r
  15729. "zwei gewinne ausgezahlt wurden. der ge-"
  15730. B(\
  15731. "winn errechnet sich jeweils aus einsatz"
  15732. (F
  15733. "mal reihennummer  fuer die entsprechen-"
  15734. {SHIFT-*}(P
  15735. "de karte. in  der dritten reihe also 3             *      diskheader holen     *
  15736. w                   *****************************
  15737. N 1,8,15:2,8,2,"#"
  15738.  1,"u1 2 0 18 0"
  15739.  {CBM-@}t{CBM-R}18:s{CBM-R}1
  15740. {CBM-T} {CBM-S}1,"b-p 2 144"
  15741. L {CBM-U} x{CBM-R}1 {CBM-@} 20:{CBM-K}#2,a$:head${CBM-R}head${CBM-N}a$: x
  15742. S B{$fe}
  15743. Y L
  15744. !{$f1}                  *****etze taeti-"
  15745. %"gen wollen. wenn sie keine karten  mehr"
  15746. 0%"kaufen wollen, geben sie + ein. darauf "
  15747. _%{CBM-POUND}"ist der naechste dran.wenn alle spieler"
  15748. %{CBM-R}"ihre einsaetze getaetigt haben, aber es"
  15749. {CBM-X}%{CBM-C}"sind noch nicht  alle  karten verkauft,"
  15750. {$ec}%F"
  15751.        abfrage          *
  15752. b#{CBM-F}                   ******************************
  15753. ]#{CBM-C} ,14,24,ein$,1:z1{CBM-R}z1{CBM-N}1
  15754. {$7f}#F ,49,24,"uebernehmen ? (j/n)"
  15755. #P{CBM-K}{$f9} u$
  15756. #Z u${CBM-R}"n" {CBM-M} 770
  15757. {CBM-Z}#{$e4} z{CBM-E}15 {CBM-M} 760
  15758. {$de}#{$ee}na$(z){CBM-R}ein$:z{CBM-R}z{CBM-N}1: ,16,ta,ein$:ta{CBM-R}ta{CBM-N}1: 770
  15759. ${$f8}nb$(z{CBM-Q}15){CBM-R}einzahlende gewinn angezeigt. ein rot  an-"
  15760. ,."gezeigter betrag ist an die bank zu zah"
  15761.  ,8"len."G(17)
  15762. o,b"der betrag im mittleren spielfeld oben "
  15763. {$7e},l"ist gewinn (schwarz) oder verlust (rot)"
  15764. {CBM-Z},v"der bank. unter dem bankfeld wird ange-"
  15765. {CBM--},{$60}"ze{CBM-R}1 {CBM-@}15: ,0,x,"{CBM-G}": ,25,x,"B": ,50,x,"{CBM-M}": x
  15766. G{CBM-V}
  15767.  ,0,16,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  15768. {$7b}H
  15769. "":G(27)"l"
  15770. {CBM-K}R
  15771.  ,30,22,"directorie einlesen ..."
  15772. {CBM-V}{CBM--}
  15773.  400: diskheader holen
  15774. {$ef}{$e6}
  15775.  ,15,4,(H(head$,16)),1: ,63,4,(I(head$,3)),1
  15776. {$f0}
  15777. z{CBM-R}1:z1-"
  15778. {$ef}(Z
  15779. "facher einsatz. zuletzt wird mit f1 der"
  15780. )
  15781. "haupgewinn gezogen. dafuer wird der 10-"
  15782. ?)
  15783. "fache einsatz ausgezahlt."
  15784. N)
  15785. "nun ist eine runde zu ende. die naech- "
  15786. ){CBM-I}
  15787. "ste runde beginnt, wenn sie f1 druecken"
  15788. {CBM-E}){CBM-D}
  15789. {CBM-K}z$:z${CBM-R}""{CBM-M}3500
  15790. V){CBM-L}
  15791. cc${CBM-T}1************************
  15792. c!{$f2}                  *       filenamen holen     *
  15793. X!{$f3}                  *****************************
  15794. !{$f4}1,8,15:2,8,2,"#"
  15795. {CBM-T}!{$fe}1,"u1 2 0";t;s
  15796. E!{CBM-K}#2,t$:{CBM-K}#2,s$:t{CBM-R}F(t$):s{CBM-R}F(s$)
  15797. {SHIFT-+}! bp{CBM-R}2 {CBM-@} 226 {SHIFT-POUND} 32
  15798. "1,"b-p 2";bp:{CBM-K}#2,a$koennen die mitspieler noch nachkaufen."
  15799. &P"sind alle 32 karten verkauft, oder wird"
  15800. j&Z"die  f1-taste gedrueckt, koennen  keine"
  15801. Y&{$e4}"karten mehr gekauft werden - eine runde"
  15802. &{$ee}"beginnt."
  15803. &{$f8}{CBM-K}z$:z${CBM-R}""{CBM-M}3320
  15804. B&
  15805. cc${CBM-T}12)" l o t t e r i e "G(17)$:z{CBM-R}z{CBM-N}1: ,42,ta{CBM-Q}15,ein$:ta{CBM-R}ta{CBM-N}1
  15806. $ ,14,24,l$
  15807. $z{CBM-E}30 {CBM-M}  ,30,24,"   liste voll !!                          ":{$fe}2:G(27){CBM-N}"o";: 1100: nochmal ???
  15808. $
  15809. D$                   ******************************
  15810. {$fb}$                   *           druck
  15811.  
  15812. G(147): B(772){CBM-R}124{CBM-M}30
  15813. q
  15814. G(19)"run "G(34)"cp-load.128":842,19:843,13
  15815. J
  15816. f${CBM-R}"lh"{CBM-N}G(13):i{CBM-R}1{CBM-@}3
  15817.  
  15818. 843{CBM-N}i,F(J(f$,i,1))::208,5:
  15819. {CBM-F}
  15820. G(19)"load "G(34)"cp-load.64"G(34)",8"
  15821. R(
  15822. rn${CBM-R}"run":""
  15823. {$e7}2
  15824. G(145)rn$G(19);
  15825. <
  15826. f${CBM-R}G(13){CBM-N}G(13){CBM-N}"lh,12,"datum   --.--.--": ,36,12: dat$
  15827. +{SHIFT-@} ,30,12,l$
  15828. ,+D ,32,12,"modus ?"
  15829. b+N ,32,13,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  15830. [+X ,30,14,"1. c - 128"
  15831. S+{$e2} ,30,15,"2. c - 64"
  15832. +{$ec} ,30,16,"3. cpm 3.0"
  15833. +{$f6}{CBM-K}{$f9} mo$
  15834. {CBM-Z}+
  15835.  ,30,14:G(27)"@"
  15836. J+
  15837.  ,30,14,"single sided"
  15838. {$e7}+ ,30,16,"double
  15839. Y{SHIFT-@}"
  15840.  
  15841.  
  15842.  
  15843.  
  15844. +~~
  15845. <,7+
  15846. +{$ec}~,<,
  15847.  
  15848. ID
  15849. HD9{$f0}~8+
  15850. (,
  15851. :{$f0}~8+HDID{$e2}~,
  15852.  
  15853. >
  15854.  
  15855. !P
  15856.  
  15857.  PGDR~8+
  15858. {$f1}~,{$f4}~
  15859.  
  15860. {$e4}~8
  15861. GDGD+{CBM-Y}~8GD{$e1}~,7
  15862. +Z~,{$fa}~+X~,4+{$ed}~,++J~,4,7*
  15863. +
  15864.  
  15865. ------------------------K"
  15866. ({CBM-D}1,G(13): 1
  15867. ({CBM-L}
  15868. m({$e5}                  *****************************
  15869. ({$e6}                  *       bemerkung holen     *
  15870. {CBM-Y}({$e7}                  *****************************
  15871. F({$e8} ,10,24,l$
  15872. R({$f2} 208,0
  15873.  ({$fc}G(27)"m"
  15874. ) GD
  15875. %
  15876. {$e3}~{$eb}~
  15877.  
  15878. +
  15879.  
  15880. L~,+
  15881.  
  15882. "{$fe},
  15883.  
  15884.  
  15885.  
  15886. {$f6}~+
  15887.  
  15888. {$f8}{$fc},+{$fd},%!
  15889. 7+>>,+{CBM-U}~,H~
  15890. B~-J~
  15891.  
  15892. ~~
  15893. {$f6}~{$f2}~GD{$e9}~{$e5}~HD{CBM--}~X~
  15894. ID{SHIFT-@}~8L~~~%
  15895. {SHIFT-*}~~~%
  15896. +{CBM-W}~
  15897. q{$fc},
  15898.  
  15899. GD{CBM-T}~
  15900. HD{CBM-X}~8{SHIFT-*}~8L~8HDF~8HDI~8GDC~er          *
  15901. 2%                   ******************************
  15902. [% 1,4:1,G(27)"@";G(27)"U1";G(27)"G";
  15903. {$7d}%%1,G(27)"A";G(3);G(27);G(15);
  15904. {CBM-V}%*1,"U-----------------------------------------------------I"
  15905. {$de}%/1,G(27)G(18);G(27)"A";G(5)
  15906. &&41,"B ";G
  15907. 6"{CBM-N}G(13)
  15908. 0f
  15909.  i{CBM-R}1{CBM-@}5:630{CBM-N}i,F(J(f$,i,1))::198,5:
  15910.  
  15911.  
  15912.  
  15913.  
  15914.  
  15915.  
  15916.  
  15917.  
  15918.  
  15919.  
  15920.  
  15921.  
  15922. lotterie        
  15923.  
  15924.  
  15925.  
  15926.  
  15927.  
  15928.  
  15929.  
  15930.  
  15931. &
  15932.  
  15933.  
  15934.  
  15935. disklab eps/ibm 
  15936.  
  15937.  
  15938.  
  15939.  
  15940.  
  15941.  
  15942.  
  15943.  
  15944.  
  15945.  
  15946.  
  15947. disklab mps1200 
  15948.  
  15949.  
  15950.  
  15951.  
  15952.  
  15953.  
  15954.  
  15955.  
  15956.  
  15957.  
  15958.  
  15959.  
  15960. disklabel.txt   
  15961.  
  15962.  
  15963.  
  15964.  
  15965.  
  15966.  
  15967.  
  15968.  
  15969.  
  15970.  
  15971.  
  15972.  
  15973. disk monitor    
  15974.  
  15975.  
  15976.  
  15977.  
  15978.  
  15979.  
  15980.  
  15981.  
  15982. ;
  15983.  
  15984.  
  15985.  
  15986.  
  15987. asc3            
  15988.  
  15989.  
  15990.  
  15991.  
  15992.  
  15993.  
  15994.  
  15995.  
  15996.  
  15997.  sided"
  15998. +,{CBM-K}{$f9}di$:di${CBM-R}"s"{CBM-M}te$(8){CBM-R}"  single sided":Ute$(8){CBM-R}"  double sided"
  15999. i,(x{CBM-R}1 {CBM-@} E(mo$): te$(3):x
  16000. {$7b},2te$(12){CBM-R}"   written by":te$(14){CBM-R}"     michel"
  16001. {CBM-POUND},<te$(5){CBM-R}"----------------":te$(10){CBM-R}te$(5)
  16002. {CBM-S},f
  16003. {$de},{CBM--} "    c - 128","     c - 64","    cpm 3.0"<,
  16004.  
  16005. +
  16006. ;,{SHIFT--}~
  16007. +
  16008. 7+{$e6}{$fe},a,+
  16009. +W{$fe},{CBM-*}~,
  16010.  
  16011. +
  16012. ,
  16013. {$ec}~
  16014. +'~,
  16015. {$f6}~+
  16016. {CBM-Y}{$fe},+{SHIFT--}~,
  16017.  
  16018.  
  16019.  
  16020. {$f8}~
  16021. +I~,{$ec}~{$e8}~{$f1}~
  16022. +
  16023. {$f7}~,+7
  16024. 0Q{$fe},
  16025.  
  16026. +0F{$fe},+Z~,
  16027.  
  16028.  
  16029. {$fa}~
  16030. 7+{CBM-Z}{$fe},
  16031.  
  16032. %%{$ef}~+{$de}~-,10,24: "bemerkungen ";bem$:"";
  16033. )G(27)"l"
  16034. &) ,10,24,l$
  16035. ,)$
  16036. B)i                   *****************************
  16037. )j                   *       nochmal  ???        *
  16038. N)k                   *****************************
  16039. {SHIFT--})l ,10,24,l$
  16040. *v ,8
  16041. GDHD
  16042. %ID{SHIFT-@}~8
  16043. HD+{$f0}{$fb},GD{CBM-X}~8
  16044. GDHDU~8HDGDHD{SHIFT-@}~8
  16045. HD+{CBM-U}{$fb},GD{CBM-X}~8HD{$fb}GDX~8+
  16046.  
  16047. i0
  16048. {$e7}{$fe},+B~,+Q{$fe},+c~,+
  16049.  
  16050. s:
  16051.  
  16052. Z{$fc},+!~,+1~,>(
  16053.  
  16054. >>{CBM-G}
  16055. >{$fb}~
  16056. >>{CBM-G}
  16057.  
  16058. +(27)"E";H(head$,16);"           ";I(head$,2);G(27)"F";" T"
  16059. 9&>1,G(27)G(15);
  16060. Z&h1,"Y-----------------------------------------------------Y"
  16061. &r1,G(27)"S0";
  16062. {SHIFT-*}&\ x{CBM-R}1 {CBM-@} 15:na$(x){CBM-R}""{CBM-M}na$(x){CBM-R}"                "
  16063. {$ea}&F nb$(x){CBM-R}""{CBM-M}nb$(x){CBM-R}"                "
  16064.  
  16065. p{$fa},+ (b,+-{$fa},+
  16066. {$7c}{$fb},+
  16067. ,{$fa},+ pb,+
  16068. {$fa},+ pb,+
  16069. {$f3}{$f9},+D{$f9}>{$fb},
  16070.  
  16071.  
  16072. GD{CBM-X}K8GD
  16073.  
  16074. {$ec}~+
  16075. {CBM-C}{$f9},+{CBM-*}{$fb},+{$f9},+{CBM-C}~,+
  16076.  
  16077.  
  16078. Suchen:
  16079. c~,+
  16080. ~{CBM-E}~,+KK
  16081. {$7e}~{$fa},
  16082. {$e9}N\O8GD
  16083.  
  16084.  
  16085.  
  16086.  
  16087. ,"datum   --.--.--": ,36,12: dat$
  16088. +{SHIFT-@} ,30,12,l$
  16089. ,+D ,32,12,"modus ?"
  16090. b+N ,32,13,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  16091. [+X ,30,14,"1. c - 128"
  16092. S+{$e2} ,30,15,"2. c - 64"
  16093. +{$ec} ,30,16,"3. cpm 3.0"
  16094. +{$f6}{CBM-K}{$f9} mo$
  16095. {CBM-Z}+
  16096.  ,30,14:G(27)"@"
  16097. J+
  16098.  ,30,14,"single sided"
  16099. {$e7}+ ,30,16,"doubleH~,{$e7}~
  16100.  
  16101.  
  16102. {$fa}~
  16103. 0
  16104. +
  16105. {$fe},
  16106. 7+N{$fe},
  16107. {$e1}~%%{$ef}~+M~-~,{$e7}~
  16108. +{$fe},
  16109. +{$ed}~7{SHIFT-*}{$fd},{$ed}~
  16110.  
  16111.  
  16112. +<"{$fe},+ {$fe},+
  16113.  
  16114. >
  16115. ~,+{$fe},+{CBM-H}~,%'
  16116. 7
  16117. %>
  16118. 7+
  16119. %,{CBM-*}~7+S{$fd},R~
  16120. %H~
  16121. +
  16122.  
  16123.  
  16124. {CBM-E}{$fe},{CBM-H}~
  16125.  
  16126.  
  16127. GD
  16128. O~830,24,"drucken oder neustart":{CBM-K}{$f9} x$:"";
  16129. !*{$60} x${CBM-R}"n"{CBM-M} 
  16130. 4*Jx${CBM-W}{CBM-E}"d"{CBM-M} 1110
  16131. :*T
  16132. O*{CBM-Z}                  *****************************
  16133. {CBM-@}*{CBM-S}                  *      datum    modus       *
  16134. Y*{CBM-P}                  *****************************
  16135. +{CBM-A} ,30
  16136. {$fb}{$fc},+
  16137. F{$fe},+O{$fe},+{$fb}Z{$fb},{$fb}+{CBM-T}~,{$ed}~+{CBM-A}{$fe}B{$fe},X{$fb}
  16138. +{$fb},
  16139.  
  16140. +E{$fa}g{$fc},+
  16141.  
  16142. {$fe},+{$fe},+j{$fb}g{$fb}d{$fb}a{$fb},+s~,@
  16143. +4{$fb},+/{$fb}
  16144. ,+={$fc},+ {$fb},+{$fb},+{$f9}{$fa},7{$f4}~+E{$fa}{$e9}{$fb}{$fb}{$fb},{$fc}{$fa}{CBM-C}~+#{$fe},+3{$fe},{$e9}{$fa}
  16145. +{$fb},+
  16146. 7B{$fa},+
  16147.  
  16148. (%)
  16149. KK{$eb}{$fb},+
  16150. -'P1,"Y ";na$(x)G(16)"12"nb$(x)G(16)"22";"Y"te$(x);G(16)"32";"T"
  16151. 5'Z x
  16152. k'1,G(27)"A";G(3);
  16153. '1,"{CBM-Q}-----------------------------------------------------{CBM-W}"
  16154. A'1,"B "bem$;G(16)"22";"Y    ";dat$;G(16)"32";"T"
  16155. ({CBM-I}1,"J-----------------------------C~]~K-
  16156.  
  16157. GDJM8{$f0}~FM8+~,
  16158. +{CBM-I}~,Suchen  :
  16159. Ersetzen:
  16160.  
  16161. +
  16162. {$f9},+ (b,+V{$fe},+N~{CBM-Q}{$fa},+
  16163.  
  16164. {$ea}{$fe}~,(
  16165. +
  16166.  
  16167. V{$fe}{$ef}{$fe},
  16168. +C~,_L8+1~,{$f1}~+u{$fe},+0
  16169. {CBM-V}{$fa},+0
  16170. {$60}{$f8},
  16171. l%
  16172.  
  16173.  
  16174.  
  16175. Einfuegen:
  16176.  
  16177.  
  16178.  
  16179. Laden:
  16180. +{SHIFT-*}~,$
  16181. +0
  16182. {$fb},+k~N,+{$f0}{$fe},
  16183. =~G{$fd}
  16184.  
  16185.  
  16186.  7{CBM-J}{$fb}{CBM-Z}{$fb}%{$f6}~
  16187. {CBM-+}{$fe}+{CBM-G}{$fe},{$fb}%~+
  16188.  
  16189. +5(
  16190. {$fb}{$e5}{$ee},
  16191. {$7e}{$fe}+{$7d}{$fe},
  16192.  
  16193.  
  16194. K{$fd}
  16195. (
  16196. -7{CBM-H}{$f3}~+
  16197. H{$ee},+{CBM-*}{$fb}m{$f0},
  16198.  
  16199.  
  16200.  
  16201. +{$e1}{$fd},Y
  16202. +{CBM-S}{$fd}
  16203. {$ee},{$e6}~
  16204. (
  16205. +
  16206. X~!{$ee},L~
  16207. +
  16208. A~
  16209. ~{$ee},{CBM-E}~{CBM-Z}~+{CBM-+}~{CBM-T}+~,+I~,{$7d}~{$fe}r~{CBM-W}+u~,0-7   = Oktave [ ]
  16210. C=    = Oktave niedriger
  16211. Shift = Oktave hoeher
  16212. F3    = Menue
  16213.  
  16214.          {CBM-A}{SHIFT-*}{SHIFT-*}{CBM-S}{SHIFT--}{CBM-Z}{SHIFT-*}{SHIFT-*}{CBM-X}{SHIFT--}
  16215.  
  16216. Aufnahme
  16217.  
  16218.  
  16219. +
  16220. ,!{CBM-S}
  16221. +{CBM-C}{$fe},{CBM-E}{$fe}{CBM-N}{$fe}{CBM-R}+{CBM-Z}{$fe},
  16222.  
  16223.  
  16224.  
  16225. cCdDefFgGabh
  16226.  
  16227.  
  16228. +{CBM-P}~,_
  16229. {$f1}~
  16230. 8+Z~,
  16231. M8K%
  16232.  
  16233. 7 %{$ed}~M8M8+{SHIFT--}~,  7K*r
  16234.  %{$f8}~%
  16235. 7 %{$f1}~{$e9}N{$eb}N8{$e9}N
  16236. {$eb}N8{$e9}N+
  16237. ,GD+
  16238. ,K*)
  16239. K
  16240.  
  16241.  
  16242. GD=N8GD+
  16243. ,+B~,+
  16244. +{$fa}
  16245. H{$eb},V{$f9},{$f8}+{$f8},{CBM-A}
  16246.  
  16247. >+{$f5}{$f6},_L8~!P~ P~
  16248. K
  16249.  '+{$fc}{$fa},+
  16250.  
  16251. Suchen Tauschen Disk Musik
  16252. {$fc}{$fa},+ {$fa},{$fd}e
  16253. +
  16254.  
  16255. Zurueck(F4) Loesch
  16256. M{$fa},
  16257. m
  16258. +
  16259.  
  16260.  Kopie Beweg Insert
  16261. {$fd}{$f5},.
  16262. +
  16263.  
  16264.  
  16265. Bank Farbe
  16266. {$fa},
  16267.  
  16268. +
  16269.  
  16270.  
  16271.  Insert
  16272. N{$f5},+f{$f4}F{$f5},{$fc}+
  16273. $,
  16274.  
  16275. +{$f6}{$f4},
  16276. +{$ee}{$f4},+{CBM-A}{$f6}
  16277. {CBM-A}{$f6}R{$f6}-{$f6}7-x{$f6}7+0
  16278.  
  16279. {CBM-A}
  16280. -{$fa}~
  16281. -'{$ed},+
  16282.  
  16283. Laden:
  16284. ~,^
  16285.  
  16286. {CBM-A}
  16287. 7+0
  16288.  
  16289. {CBM-A}{CBM-C}{$ec},
  16290. {CBM-A}d
  16291. {$f6}{SHIFT--}
  16292. -+${$f6},
  16293. +{$f6},
  16294. -{$f6}+{$ef}{$f5},
  16295. -{$fe}W{$f5}+Z{$f5},+
  16296.  
  16297. liedvorspann
  16298. I{$eb},
  16299. +,{$ec}5{$ec},7+Y{$e8},+{$ec}{$ec},+{$e5}{$e8}, ~+,
  16300. e%
  16301. {$e8}K8OK8
  16302.  
  16303. +
  16304.  
  16305.  
  16306. Speichern:
  16307. ~,5
  16308. +z{$fc},+0
  16309. N{$fc},+0
  16310.  
  16311.  
  16312. ,s,w
  16313. {$fb}{$f8},+0
  16314. ({$fb},8O8+
  16315.  
  16316. Lesen:
  16317. ?~,
  16318.  
  16319. +0
  16320. {$fc},
  16321.  
  16322.  
  16323.  
  16324.  
  16325.  
  16326.  
  16327.  
  16328. {$f7}~=
  16329. %y
  16330.  M8{$ed}~KK{$eb}M8
  16331. KKQ~
  16332. KK~
  16333. K_L8
  16334. {SHIFT-@}~
  16335. K{CBM-W}~
  16336. K{CBM-Z}~K
  16337. K{$fe}K8~K~KK7~
  16338. ~Q~,Z{$fa}
  16339. %{$f7}~+{$fc},+~~s~,{SHIFT-@}{$fc}C
  16340.  
  16341. +
  16342. ,+
  16343. ,++
  16344. ,(,{$7f}+
  16345. ,{CBM-W}++
  16346. ,
  16347. !{$f7}{$ed}+
  16348. ,,{CBM-R}+
  16349. +
  16350. , X{$ed},+
  16351. ,
  16352. +
  16353. ,(+
  16354. ,+
  16355. ,
  16356.  +
  16357. ,
  16358. {$f8}+
  16359. ,+
  16360. ,({$f9}7@ j
  16361.  
  16362. +{$f2}0GD{CBM-X}K8GDJM8
  16363. {CBM-X}~GD{CBM-X}K8GDJM8 GDJM8~
  16364.  
  16365. R~7
  16366.  
  16367. "%*-25&)1
  16368.  
  16369.  
  16370.  
  16371.  
  16372.  
  16373. +S~7{CBM-A}{$f0},;
  16374. Z~{$e9}~>{$fd}
  16375. %
  16376. W~-
  16377. N~.+{SHIFT-@}{$fd}D~{$ed}{$fe},+'~,
  16378.  
  16379.  
  16380.  
  16381.  
  16382.  
  16383.  
  16384. {$fd}{$fe}
  16385. {$f4}~
  16386.  
  16387.  %#
  16388. {$e8}~
  16389.  
  16390.  
  16391. {CBM-*}{$fe}{$f8}{$eb}M8+V~,
  16392. +V{CBM-A}~,+
  16393. {$f9},{$60}{$f8}
  16394.  
  16395. {CBM--}~
  16396.  
  16397.  
  16398. e{$f8}
  16399. {SHIFT--}{$e2}{SHIFT--}<{$f8}~~{SHIFT--}
  16400.  
  16401. {$f7}{$f7}%{$f3}~{SHIFT--}%Y
  16402. q{SHIFT--}
  16403. +{$f8},+_~,[{$f7}%{$f7}~@{SHIFT--}{SHIFT--}
  16404. a{SHIFT--}
  16405. +{$7b}{$f8},-%
  16406. ,{$f7}!{$f7}%{$f3}~@{SHIFT--}{SHIFT--}
  16407.  
  16408. ~
  16409.  
  16410. {CBM-A}{CBM-A}
  16411. {CBM-A}{CBM-A}G
  16412. {CBM-A}.{$fa},7s%{$7e}
  16413. 7t%I
  16414. 7d%I
  16415. 7m%
  16416. 7A{$fc}
  16417. 7b%H
  16418. 7f%>
  16419. 7
  16420. .
  16421.  
  16422. 7%F
  16423. 7z%_
  16424. 7l%<
  16425. 7
  16426. ]
  16427. 7k%q
  16428. 7b%5
  16429. 7i%5
  16430.  
  16431. +<{$fe},
  16432. +{SHIFT--}{$fa},
  16433. +{$fd},
  16434. +{CBM-POUND}{$fa},
  16435. +{$fc},
  16436. +{$fc},
  16437. +{$fd},
  16438. +7{$fd},
  16439. +[{$fc},
  16440. +r{$fd},
  16441. eAibnIr{CBM-L}w{$ed}\SBnHNU
  16442. {$7c}Jx
  16443. S
  16444. U
  16445. {$f7}
  16446.  
  16447.  
  16448.  
  16449.  
  16450. {CBM-S}
  16451. @Q~{$ee}~{$ea}~{$e4}~
  16452.  
  16453.  
  16454. {$ec}{$ec},7+{CBM-Y}{$e8},+{$fa}{$eb}{$fa}{$eb},+C{$e8},{CBM-V}~+{CBM-F}{$e8},
  16455. + {$eb}{$e9}{$eb},7+
  16456. {$e8},7{CBM-K}~+K{$eb},+{SHIFT-+}{$eb},D{CBM-A}{CBM-A}{CBM-A}.{$f5}2{CBM-A}{CBM-R}+
  16457.  
  16458. Basicprogramm:
  16459. k{$ef},+0
  16460.  
  16461.  
  16462. ,p,w
  16463. N{$e8},+0
  16464. {$fb}{$ea},+~,+H{$eb},+
  16465.  
  16466. aa
  16467. {$e9},+
  16468. ~{$e7},+
  16469. {$f5}{$e7},
  16470.  
  16471. -+
  16472.  
  16473.  %,%,%,%,%,%
  16474. A{$f4}{$f4}{$f4}{CBM-S}{$f4}+~,V~{$f6}~{$e8}K8+{$ed}~,
  16475.  
  16476.  
  16477.  
  16478.  
  16479.  
  16480.  
  16481.  
  16482.  
  16483.  
  16484.  
  16485.  ~{CBM-P}
  16486.  
  16487. +
  16488. K
  16489. a,+{$e1}~
  16490. Ka,+
  16491. P~a,
  16492. {CBM-A}>
  16493.  (;
  16494.  
  16495. >@%
  16496. +
  16497.  
  16498. editor.mc
  16499. {$fa},
  16500. +
  16501.  
  16502.  
  16503. edit128.mc
  16504. {$fa},
  16505.  K>
  16506. K{$e8}K8+~,{$e8}K8+{$7c}~, M8K++M~,{$e8}K8K,{$eb}M8+[~,+<~,+p~,{$eb}M8K+b~,K+
  16507. K M8K,~%~,+Y{$f9}
  16508. g{$fd},w
  16509. +{CBM-O}{$fc}
  16510. "{$ed},T~{SHIFT-@}{$f9}
  16511. %
  16512. B~.
  16513. {CBM-O}~-+{CBM-S}~{$e1}{$fe},{$f9}%
  16514. 7
  16515. %{$f0}~+I{$fa},
  16516. >+{$ed},W{$fb}J
  16517. P{$f9}
  16518. %.
  16519. A{$f9}%
  16520. N~#%{CBM-A}~C~{SHIFT-POUND}~\~%~r~~7%+
  16521. e~
  16522. +2~{$fc}{$fc},I~FM8K%
  16523. K %{$e7}~M8FMj
  16524. +{$f0}~!v{$f0},{$e4}~N+Z~{CBM-S}~,~
  16525.  
  16526.  #
  16527. +
  16528. .,{SHIFT-@}~Q~+~,
  16529.  
  16530.  
  16531.  
  16532. +X~7{$e3}{$ef},{$e2}
  16533. {$ee}~
  16534. 7R~
  16535. 7B~E~+
  16536. \~\~,7
  16537. 7N+
  16538. 7
  16539. ~77,{CBM-Z}~
  16540.  
  16541. %
  16542. ~-
  16543. ~.+{CBM-H}{$fc}~{$e7}{$fd},+!{$fe},{$7c}~{$fe}
  16544.  
  16545.  
  16546. 7
  16547. 7A~{$e3}{$fe}+{$e5}{$fe}
  16548.  
  16549. {SHIFT--}~~{SHIFT--}{SHIFT--}
  16550. -N{$f7}{SHIFT--}-q{SHIFT--}
  16551.  
  16552. +z{$f7},+{CBM-H}{$fe},
  16553. -{SHIFT--}
  16554. &{$f7}~+{$e3}{$f7},-
  16555. {SHIFT--}
  16556. &{$f7}~{SHIFT-*}~
  16557. >+{CBM-W}{$ef},
  16558.  
  16559. m/
  16560. 0
  16561. +0
  16562. {$ec},+0
  16563. {CBM-P}{$e9},+
  16564.  
  16565.  
  16566. Tempo: 
  16567. {$ef},+{$e5}{$f6}k{$eb},+{CBM-W}{$e9},+0
  16568. V{$eb},+0
  16569. X{$e9},
  16570. +0
  16571. {CBM-T}{$ea},{CBM-J}{$f6}{SHIFT--}+
  16572.  
  16573.  
  16574. Speichern:
  16575. {$7e}~,y
  16576. {CBM-A}r
  16577. {CBM-A}
  16578.  
  16579. -S~-Q~{$e6}~6P~~{CBM-C}~{CBM-U}~{CBM-R}~
  16580. !
  16581.  
  16582. -{CBM-@}~-{CBM-I}~{$e9}~
  16583. >@%
  16584. @~E~{$7c}~Y~S~
  16585.  
  16586.  
  16587.  
  16588.  
  16589.  
  16590.  
  16591.  
  16592. {$f3}~
  16593. T{$ed}~+{$ec}~,
  16594.  
  16595.  
  16596. +{$fd}~{$f0},T{$f0}~+{$e5}~{$f0},+{SHIFT-*}~,S~+G~,+{CBM-I}~,{CBM-J}~+{CBM-Z}~{$f0},+~,~{CBM-N}{$f4}{$f4}
  16597. {$e9},+
  16598. {CBM-H}{$e7},+
  16599.  
  16600. aa
  16601. {CBM-G}{$e8},+
  16602. {CBM-K}{$e7},+
  16603. {$e7},
  16604.  
  16605. -+
  16606.  
  16607.  %,%,%,%
  16608. -$
  16609. +-,+
  16610.  
  16611. *,{$e8},
  16612. f
  16613. +
  16614.  
  16615. ,%,%,%,%
  16616. -$
  16617. +-,+
  16618.  
  16619. *,i{$e8},+
  16620. {$fd}{$e6},
  16621. e~+
  16622.  
  16623. aa
  16624. {$e8}{$e7},+
  16625. {$e4}{$e6},+
  16626. Z{$e6},
  16627.  
  16628. -+
  16629.  
  16630.  -1
  16631. D{$e7}+{CBM-P}~,+P~,+{$fc},+
  16632. !
  16633. Laden Einfuegen Speichern Read
  16634. {$fc},+ {CBM-K}{$fb},+
  16635.  
  16636. Dir
  16637. ~{$fb},+{$f6},+O{$fb},7s%b
  16638. 7e%
  16639. 7l%
  16640. 7d%
  16641. 7r%
  16642. +7b{$fd},+
  16643.  
  16644. $*=s
  16645. B{$fa},_L8P~+D{$fd},{$f3}~+R{$fd},+{$7d}{$fb},+
  16646. '
  16647. Vordergrund Hintergrund Rahmenfarbe
  16648. R{$fb},+{$f6},+b{$fb},7v%
  16649. 7h%
  16650. 7r%4f 4f 4a 5c 5c 4h 4h 5c
  16651.  4a 4g 4g 4F 4g 4b 4a 4f
  16652.  4f 4a 5c 5d 5c 4h 5c 5d 5d 5c
  16653.  4a 4g 5c 4h 4g 5e 5d 5c
  16654.  5c 5c 4b 4b 4a 4g 4F 4g
  16655.  4g 4g 4G 4a 4f 4b 4g 5c
  16656.  4f 4f 4f 5d 5d 4b 5c 5d 5c
  16657.  4a 4a 4a 4b
  16658.  4g 4g 4G 4a
  16659.  4f 4f 4a 5c 5f 5e 5d 4b 5d 5c
  16660.  4a 4a 4a 5c
  16661.  >
  16662.  
  16663. +{$7c}{$e6},+J{SHIFT--},+{$f8}{$e9},+
  16664. V{$ea},+
  16665. {CBM-H}{$ea},+
  16666. {$eb},+ {$ea},+{$ea},@A{$ea}+D{$ea},
  16667. +F{$ea},+{SHIFT-POUND}{$ec}Na,
  16668. {CBM-@}{$eb}{CBM-I}{$eb}+{CBM-C}{$fa},
  16669. {$eb}
  16670. {$eb}+{$fb},+2{$f7},E
  16671. +{$f1},{$f2}~+A{$fd},u
  16672. +{$7b}{$f2},m
  16673. +{$f3}{$fb},A{$eb}U~ +{$eb},{CBM-H}p{$eb}D~7
  16674. +
  16675.  
  16676.  
  16677.         
  16678. {$ec}{SHIFT--},{CBM-M}~+
  16679. {$e9}{$ea}{CBM--}{SHIFT--},~+T{$e2},+
  16680. $
  16681. Klavier Noteenue
  16682. ----------
  16683. Volumen:  %
  16684. Anschlag: %
  16685. Abfall:   %
  16686. Pegel:    %
  16687. Ausklang: %
  16688.  
  16689. Frequenz: %
  16690. Pulsweite:%
  16691. Rauschen: %
  16692.  
  16693. Rechteck: %
  16694. Saege:    %
  16695. Dreieck:  %
  16696. Test:     %
  16697. Mod:      %
  16698. Sync:     %
  16699. Gate:     %
  16700.  
  16701.  
  16702.  
  16703.  
  16704.  
  16705. >+y{CBM-*}{SHIFT-+} ,
  16706. >+{$fb}       {SHIFT--}     {SHIFT--}   {SHIFT--}
  16707.       {SHIFT--} # # {SHIFT--} # #   {SHIFT--} # # {SHIFT--} # {SHIFT--}
  16708.       {SHIFT--} c d {SHIFT--} f g b {SHIFT--} c d {SHIFT--} f {SHIFT--}
  16709.       {SHIFT--}     {SHIFT--}       {SHIFT--}     {SHIFT--}   {SHIFT--}
  16710.       {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}
  16711.       {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}
  16712.       {SHIFT--}c{SHIFT--}d{SHIFT--}e{SHIFT--}f{SHIFT--}g{SHIFT--}a{SHIFT--}h{SHIFT--}c{SHIFT--}d{SHIFT--}e{SHIFT--}f{SHIFT--}g{SHIFT--}
  16713.       {CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}
  16714.        a s 
  16715. ,+
  16716. B{$e6},+
  16717. {CBM-C}{$e6},+
  16718. {CBM-L}{$e6},+{$f9}{$e9},+{$ea},GD% 
  16719. 7%
  16720. 7%.
  16721. 7%/
  16722. 7%
  16723. 7+{$f9}{$f0},3
  16724. +{$f5}{$eb},+{$7b}{$ec},#
  16725. {$eb}M8+{$ec},
  16726. +8{$ee},,{$ee}%
  16727. _L8I~
  16728. #8;
  16729. 3
  16730.  
  16731.  
  16732.  
  16733.  
  16734.  
  16735.  
  16736.  
  16737.  
  16738. q{$f4}Dl{$f4}{CBM-X}+
  16739. y{$f8},{CBM-H}<{$f4}
  16740. _L8 O8GDT~%{$f2}E~{$f2}%{SHIFT-+}~+{CBM-P}~{CBM-A}~<,?
  16741. +~{CBM-I}~x{$e5},
  16742.  
  16743. {CBM-A}{$e2}
  16744.  
  16745. @{CBM-D}
  16746. ;;eN"N"Z Z N"ee;;eN"!'N"Z N"!'!'N"eN"Z {SHIFT-+}+!'N"N"N"e e;N";;;!'!'N"!'N"eee e;;eN"V.{SHIFT-+}+!'!'N"eeeN"e;
  16747.  
  16748. ~{$f5}{$fe}~{CBM-POUND}{$fe}R~R~I{$fe}{CBM-Q}{$fd}{CBM-W}~{$f5}{$fe}u~{$fe}{CBM-W}~s~:{$fe}{$fd}~{CBM-L}{$fe}6~{$fe}S~T~{CBM-@}~{$f6}{$fe}~{$f7}{$fe}E~{$e6}{$fe}U~~{CBM-Z}{$fd}~{$fc}~V{$fe}~
  16749.  
  16750. 4b 4a 4g 4f 2300   
  16751.  
  16752.  
  16753.  
  16754.  
  16755.  
  16756.  
  16757.  
  16758.  
  16759. /
  16760.  
  16761.  
  16762. sysmc           
  16763.  
  16764.  
  16765.  
  16766.  
  16767.  
  16768.  
  16769.  
  16770.  
  16771.  
  16772.  
  16773.  
  16774. lotterie        
  16775.  
  16776.  
  16777.  
  16778.  
  16779.  
  16780.  
  16781.  
  16782.  
  16783. &
  16784.  
  16785.  
  16786.  
  16787. disklab eps/ibm 
  16788.  
  16789.  
  16790.  
  16791.  
  16792.  
  16793.  
  16794.  
  16795.  
  16796.  
  16797.  
  16798.  
  16799. disklab mps1200 
  16800.  
  16801.  
  16802.  
  16803.  
  16804.  
  16805.  
  16806.  
  16807.  
  16808.  
  16809.  
  16810.  
  16811.  
  16812. disklabel.txt   
  16813.  
  16814.  
  16815.  
  16816.  
  16817.  
  16818.  
  16819.  
  16820.  
  16821.  
  16822.  
  16823.  
  16824.  
  16825. disk monitor    
  16826.  
  16827.  
  16828.  
  16829.  
  16830.  
  16831.  
  16832.  
  16833.  
  16834. ;
  16835.  
  16836.  
  16837. liedhelfer      
  16838.  
  16839.  
  16840.  
  16841.  
  16842.  
  16843.  
  16844.  
  16845.  
  16846.  
  16847.  
  16848. n Editor Sound Fertig
  16849. M{$e2},+
  16850. !
  16851. Aufnahme Record Play Optionen
  16852. c{$e2},+S{CBM--},{CBM-F}{$fe}+"{$e2},7k%~7n%~7r% ~7p%)~7f%N
  16853. 7e%#~7a%)~7o%
  16854. 7s%{$fe}{$fe}{$eb}{$fe}+H{$e1},+
  16855. &
  16856. Tempo Dir Laden Speichern Ed BASIC
  16857. {CBM-B}{$e1},+o{CBM--},7{$fe}l%j
  16858. 7s%k
  16859. 7d%l
  16860. 7b%-
  16861. 7e%
  16862. 7t%
  16863.  
  16864. +U{$e1}{$fe}{CBM-O}{$ec}{CBM-R}{$ec}{CBM-N}{$ec}{CBM-T}{$ec}{$ec}Q{$ec}N{$ec}
  16865. {CBM-W}~{CBM-P}~6z{$ec}
  16866. *#{CBM-I}~6m{$ec}
  16867. *#~6@{$ec}
  16868. *#~63{$ec}
  16869. *#{$7b}~6&{$ec}
  16870. *#N~6{$ec}
  16871. *#A~6{$ec}
  16872. *#t~6~{$eb}
  16873. *#{CBM-M} ,>+
  16874. Z{$de},+]{CBM-*},,~ +
  16875. A{$de},~%6
  16876. 7
  16877. %b
  16878. 7%7%
  16879. +{$f3},
  16880. {$eb}{$eb}%{$f6}~+d f g h j k l : ; =
  16881.  
  16882.  
  16883.  
  16884.  
  16885. J{$f3}+.{$f0}{CBM-E}{$fe}{CBM-G}{$e3},+{$7b}{$f3},
  16886. {$e4}~
  16887. "
  16888. +W~
  16889. ?{$e2},{CBM-H}J~%{$e8}~
  16890. V~
  16891. + = #
  16892. - = b
  16893.  
  16894. v = Vorzeichen
  16895. vorbelegen
  16896.  
  16897. +{$f5}{$e1},F{$f1}+{CBM-H}{$ef}/{$e3},+{$f3},+
  16898.  
  16899. {SHIFT-*} {SHIFT-*}
  16900.  
  16901. {$e3},+{CBM-R}{$e1},+{SHIFT-*}{$e2},
  16902. {$e6}~+
  16903.  
  16904.  
  16905. {SHIFT-*} {SHIFT-*}
  16906. O{$e2},+
  16907.  
  16908. {SHIFT-*} {SHIFT-*}
  16909. {CBM-X}{$e2},+{$f2}+{$f6},{CBM-Q}~{$e3}{$f3}
  16910. +~{$ef}{$f7},~+U~{$f6},~J~%
  16911. {SHIFT-@}{$f1}{$f6}
  16912. y~%
  16913. {SHIFT-POUND}{$f1}+{CBM-+}{$f3}
  16914. *,a
  16915.  
  16916. >9~%{$ed}
  16917. 73%{CBM-U}
  16918. 7
  16919. %+d{$f3},
  16920. V{$f3}
  16921. ~%D~7%^~"~~
  16922. %7
  16923. 7%e
  16924. 7%e
  16925. 7%q
  16926. 7%c
  16927.  
  16928. >+_{$fe},+#{$f8},7%{$e6}{$fe}~FM8
  16929. GD{$7d}O8M8N{$fe}{SHIFT-+}M8Q
  16930. {CBM-+}M8+{$f8},M
  16931. V{$fe}{$fe}{$fe}{CBM-@}~u~C~S~{CBM-@}~{$f6}{$fe}~{$e6}{$fe}{$f7}{$fe}{$fe}{CBM-T}~s~y{$fe}{CBM-Q}{$fd}T~{CBM-L}{$fe}U~{$f6}{$fe}E~{$f6}{$fe}u~{$f6}{$fe}E~{$f6}{$fe}~{CBM-Y}{$fe}{CBM-T}~t~{$fe}{$fd}U~W{$fe}~{$fe}{CBM-T}~D~U~W{$fe}~V{$fe}E~{$fe}C~T~u~V{$fe}~~T~{$e6}{$fe}S~V{$fe}{CBM-Y}{$fe}{$fe}D~U{$fe}E~~u~V{$fe}:{$fe}{$fd}~W{$fe}~~D~F{$fe}z{$fe}{$ea}{$fd}u~V{$fe}{CBM-T}~s~~~~d~{$eb}{$fd}L{$fd}~{$e6}{$fe}~~T~U{$fe}I{$fe}{$ea}{$fd}{CBM-W}~T~U~H{$fe}{CBM-@}~{$f6}{$fe}{$fe}]{$fd}~F{$fe}{CBM-W}~s~~{$e7}{$fe}{CBM-W}~d~{$fe}{SHIFT-+}{$fd}~F{$fe}{CBM-T}~c~~{$e7}{$fe}{CBM-R}~B~{$fe}{CBM-Z}{$fd}~V{$fe}~~~{$e6}{$fe}z{$fe}{$ea}{$fd}
  16932. {$e9}
  16933.  
  16934. 15:i{CBM-R}1{CBM-@}300::
  16935. 2
  16936. a:54296,a:a:54274,a
  16937. n
  16938. a:54275,a:a:54277,a
  16939. J
  16940. a:54278,a:re:at{CBM-R}re{CBM-N}1
  16941.  
  16942. i{CBM-R}0{CBM-@}1{SHIFT-POUND}0:a:a{CBM-R}{CBM-Q}1{CBM-M}55
  16943. #
  16944. 54272,a:a:54273,a
  16945. {CBM-L}(
  16946. a:54276,at:j{CBM-R}0{CBM-@}a:
  16947. P-
  16948. a:54276,re:j{CBM-R}0{CBM-@}a:
  16949. Y2
  16950. i:
  16951. {$e5}7
  16952. i{CBM-R}1:50
  16953.  
  16954.  
  16955. ~{$f7}{$fe}E~{$e6}{$fe}U~~{CBM-Z}{$fd}~{$fc}~V{$fe}~
  16956. ,{$7d}{$fe}+{CBM-POUND}{$f1}, {$fe}+{$fa},+{CBM-J}{$fa},S{$fe}+i{$f3},K{$fe}+c{$f2},C{$fe}+M{$f1},{CBM-F}{$fe}+
  16957.  
  16958. $m/*=p
  16959. n ,{SHIFT-POUND}{$fe}+{$e1},+
  16960.  
  16961. Wirklich benden j/n
  16962. !{$e1},+{CBM-E}{SHIFT-+},j%Y{$fe}@{$e3}
  16963. +{CBM-C}{$e3},
  16964. K
  16965.  '
  16966. +S{$e3},
  16967. X{$e7}+c{SHIFT-+},{$f3}{$fb},A{$eb}U~ +{$eb},{CBM-H}p{$eb}D~7
  16968. +
  16969.  
  16970.  
  16971.         
  16972. {$ec}{SHIFT--},{CBM-M}~+
  16973. {$e9}{$ea}{CBM--}{SHIFT--},~+T{$e2},+
  16974. $
  16975. Klavier Notec{$ec},{CBM-K}~
  16976.  
  16977.  
  16978.  
  16979.  
  16980.  
  16981.  
  16982. 1~
  16983. &{CBM-@}
  16984. +
  16985.  
  16986. g{$de},+{$e1},{CBM-Q}{$fe}
  16987. f
  16988. %^
  16989. 7%D
  16990. 7%I
  16991. 7%>
  16992. 7%
  16993. {$fe}2{$eb}+1{$eb},{$7b}{$fe}N{$fe}{$eb}+{$eb},J{$fe}+\{$fe}/{$eb},
  16994. >
  16995. ~+k{$fe}J{$eb},m{$fe}+?{$fe}@{$eb},a{$fe}+3{$fe}{$eb},5{$fe}+'{$fe}A{$eb},){$fe}
  16996. {$fe}
  16997. {$fe}{$fe}6{$fe}{$f7}~
  16998. {$fe}{CBM-Z}{$ea}{CBM-H}+{CBM-A}{$ea},{$f9}{$fd}
  16999.  
  17000. {$60}
  17001. {CBM-A}{SHIFT-*}{CBM-S}
  17002.  {SHIFT--} {SHIFT--}
  17003.  {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}
  17004.  {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}
  17005.  {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}
  17006.  {SHIFT--}c{SHIFT--}d{SHIFT--}e{SHIFT--}f{SHIFT--}g{SHIFT--}a{SHIFT--}h{SHIFT--}
  17007.  {CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}
  17008. r{$e2},+{$f5}{$fe}Z{$e2},+
  17009.  
  17010. = = %
  17011. 6{$e2},+{$f0},+d{$e1},K{$e9}N{$eb}M8\O8
  17012. {$eb}M MFMM{SHIFT-+}M{CBM-+}M{CBM-P}MNN_L8 O8+Z~GD ,
  17013. !R~8{$de}~+h{$fa},V~%
  17014. {$7d}O8I~SoundmN8^
  17015. N8{$ec}~K{$fe}+{$f6}{$f7},{$fe}Kg
  17016. M{$f0}"
  17017.  M89
  17018. +H{$fe}K{$f8},9
  17019. {$eb}M8K%{$e9}~{$eb}M8
  17020. {$f0}
  17021.  
  17022. +X{$f7},
  17023.  
  17024. +{SHIFT-POUND}{$f7},
  17025. +1{$fe}O{$f7},
  17026.  
  17027. +&{$fe}\{$f8},W{$f2}
  17028. _L8
  17029.  
  17030. R{$fe}7{$fe}%
  17031. s{$f0}k{$f0}%{$f6}~
  17032.  
  17033. >?{$f0}7{$f0}%>{$f1}~+P{$f1},{$ec}{$fd}
  17034.  
  17035.  
  17036.  
  17037.         w e   t y u   o p   *
  17038.       {SHIFT--}     {SHIFT--}
  17039. ~E~U~~u~V{$fe}+{$fe}
  17040.  
  17041. eN"N"Z Z N"ee;;eN"!'N"Z N"!'!'N"eN"Z {SHIFT-+}+!'N"N"N"e e;N";;;!'!'N"!'N"eee e;;eN"V.{SHIFT-+}+!'!'N"eeeN"e;
  17042.  
  17043. ~{$f5}{$fe}~{CBM-POUND}{$fe}R~R~I{$fe}{CBM-Q}{$fd}{CBM-W}~{$f5}{$fe}u~{$fe}{CBM-W}~s~:{$fe}{$fd}~{CBM-L}{$fe}6~{$fe}S~T~{CBM-@}~{$f6}{$fe}~{$f7}{$fe}E~{$e6}{$fe}U~~{CBM-Z}{$fd}~{$fc}~V{$fe}~
  17044.  
  17045. 15:i{CBM-R}1{CBM-@}300::
  17046. 2
  17047. a:54296,a:a:54274,a
  17048. n
  17049. a:54275,a:a:54277,a
  17050. J
  17051. a:54278,a:re:at{CBM-R}re{CBM-N}1
  17052.  
  17053. i{CBM-R}0{CBM-@}1{SHIFT-POUND}0:a:a{CBM-R}{CBM-Q}1{CBM-M}55
  17054. #
  17055. 54272,a:a:54273,a
  17056. {CBM-L}(
  17057. a:54276,at:j{CBM-R}0{CBM-@}a:
  17058. P-
  17059. a:54276,re:j{CBM-R}0{CBM-@}a:
  17060. Y2
  17061. i:
  17062. {$e5}7
  17063. i{CBM-R}1:50
  17064. {$fa}D
  17065.  15,0,6,10,9,64
  17066. N 19,26,154,111,219,43,233,95
  17067. 7 33,39,92,79,206,34,485,142
  17068. [ 206,34,138,158,206,34,233,126
  17069. Y" 2,31,92,63,2,31,138,158
  17070. , 69,29,123,174,19,26,154,221
  17071. {CBM-C}6 156,24,60,79,19,26,170,127
  17072. {$de}@ 19,26,107,142,19,26,139,142
  17073. j 160,27,140,157,69,2
  17074. {CBM-M}
  17075. {$ea} 206,34,484,110,69,29,123,174
  17076. 9{$f4} 69,29,123,126,69,29,107,174
  17077. z{$fe} 206,34,421,112,2,31,107,47
  17078. {$7c} 69,29,138,111,19,26,170,127
  17079.  59,23,468,0
  17080.  -1
  17081.  
  17082.  
  17083. ,31,92,80
  17084. I 206,34,107,126,33,39,108,79
  17085. {$ec} 206,34,532,127,69,29,123,158
  17086.  
  17087.  69,
  17088.  
  17089. G(147): B(772){CBM-R}124{CBM-M}30
  17090. q
  17091. G(19)"run "G(34)"cp-load.128":842,19:843,13
  17092. M
  17093. f${CBM-R}"ed l*"{CBM-N}G(13):i{CBM-R}1{CBM-@}6
  17094.  
  17095. 843{CBM-N}i,F(J(f$,i,1))::208,8:
  17096. {CBM-V}
  17097. G(19)"load "G(34)"cp-load.64"G(34)",8"
  17098. U(
  17099. rn${CBM-R}"run":""
  17100. {$ea}2
  17101. G(145)rn$G(19);
  17102. <
  17103. f${CBM-R}G(13){CBM-N}G(13){CBM-N}
  17104. (
  17105.  
  17106.  ********************************
  17107. o
  17108.  ***    business charts       ***
  17109. V(
  17110.  ********************************
  17111. 2
  17112. {$e7}1,1:{$e7}4,16:{$e7}0,16:{$e7}5,1:{$de}1,1:{$de}0:{$de}1
  17113. {CBM-Q}<
  17114. :{$fe}%:16000
  17115. Nf
  17116. {$e5}1,0,0{CBM-@}319,0{CBM-@}319,199{CBM-@}0,199{CBM-@}0,0
  17117. {$f0}p
  17118. {$e5}1,0,50{CBM-@}319,50:{$e5}1,0,99{CBM-@}319,99
  17119. z
  17120. {$e5}1,106,0{CBM-@}1,59,155,260,193
  17121. EE
  17122.  1,12,20,"business  charts":{$e1}1,90,158,228,168: ,11,22,"w  u.ehlers (1990)":{$e2}1,92,179,6
  17123. {CBM-E}F
  17124. {$e5}1,53,149{CBM-@}59,155:{$e5}1,266,149{CBM-@}260,155:{$e5}1,266,199{CBM-@}260,193:{$e5}1,53,199{CBM-@}59,193
  17125. {$fd}N
  17126. {$e2}1,53,25,20:{$e5}1,53,25{CBM-@}53,05:{$e5}1,53,25{CBM-@}71,19:{$e5}1,53,25{CBM-@}71,31:{$e5}1,53,25{CBM-@}
  17127.  59,23,108,158,59,23,107,236
  17128. =X
  17129.  69,29,45,96,206,34,406,190
  17130. {$60}
  17131.  206,34,76,190,218,32,170,205
  17132.  
  17133.  218,32,76,96,206,34,453,157
  17134. {CBM-@}
  17135.  69,29,124,205,19,26,201,158
  17136.  19,26,44,95,156,24,91,174
  17137. {$e5}{CBM-N}
  17138.  19,26,122,142,2,31,154,127
  17139.  
  17140. {CBM-H}
  17141.  69,29,138,112,59
  17142. 9,328,174
  17143. !t 59,23,155,143,2,31,154,95
  17144. d^ 19,26,170,127,206,34,453,174
  17145. FH 59,23,123,173,59,23,107,142
  17146. R 59,23,155,158,33,39,421,112
  17147. {CBM-M}{$7c} 33,39,170,127,2,31,92,80
  17148. I 206,34,107,126,33,39,108,79
  17149. {$ec} 206,34,532,127,69,29,123,158
  17150.  
  17151.  69,72,128,177,140,,1:{$e1}1,180,114,185,140,,1
  17152. -"
  17153.  1,20,14,"3d"
  17154. s"
  17155. {$e5}1,136,11{CBM-@}136,41:{$e5}1,136,26{CBM-@}189,26
  17156. O"
  17157. {$e1}1,140,15,145,26,,1:{$e1}1,148,20,153,26,,1:{$e1}1,156,26,161,32,,1:{$e1}1,164,26,169,37,,1:{$e1}1,172,18,177,26,,1:{$e1}1,180,12,185,26,,1
  17158.  "
  17159.  1,20,1,"2d"
  17160. {$e5}1,136,61{CBM-@}136
  17161. <"ed l*"{CBM-N}G(13)
  17162. 6f
  17163.  i{CBM-R}1{CBM-@}8:630{CBM-N}i,F(J(f$,i,1))::198,8:
  17164.  
  17165.  
  17166.  
  17167.  
  17168.  
  17169.  
  17170. lotterie        
  17171.  
  17172.  
  17173.  
  17174.  
  17175.  
  17176.  
  17177.  
  17178.  
  17179. &
  17180.  
  17181.  
  17182.  
  17183. disklab eps/ibm 
  17184.  
  17185.  
  17186.  
  17187.  
  17188.  
  17189.  
  17190.  
  17191.  
  17192.  
  17193.  
  17194.  
  17195. disklab mps1200 
  17196.  
  17197.  
  17198.  
  17199.  
  17200.  
  17201.  
  17202.  
  17203.  
  17204.  
  17205.  
  17206.  
  17207.  
  17208. disklabel.txt   
  17209.  
  17210.  
  17211.  
  17212.  
  17213.  
  17214.  
  17215.  
  17216.  
  17217.  
  17218.  
  17219.  
  17220.  
  17221. disk monitor    
  17222.  
  17223.  
  17224.  
  17225.  
  17226.  
  17227.  
  17228.  
  17229.  
  17230. ;
  17231.  
  17232.  
  17233. liedhelfer      
  17234.  
  17235.  
  17236.  
  17237.  
  17238.  
  17239.  
  17240.  
  17241.  
  17242.  
  17243. 106,99:{$e5}1,212,0{CBM-@}212,99
  17244. o[
  17245. {$e5}1,106,100{CBM-@}106,148:{$e5}1,212,100{CBM-@}212,148:{$e5}1,0,149{CBM-@}319,149
  17246. W\
  17247. {$e5}1,53,149{CBM-@}53,199:{$e5}1,266,149{CBM-@}266,199
  17248. {CBM-F}]
  17249. {$e5}1,1,150{CBM-@}1,198{CBM-@}52,198{CBM-@}52,150:{$e5}1,267,150{CBM-@}267,198{CBM-@}318,198{CBM-@}318,150
  17250. _
  17251.  1,2,23,"{CBM-Z}{SHIFT-*}{CBM-X}": 1,2,22,"{SHIFT--}W{SHIFT--}": 1,2,21,"{CBM-A}{CBM-R}{CBM-S}": 1,3,20,"^": 1,2,137,35
  17252. q X
  17253. {$e2}1,53,75,20,,118,70:{$e5}1,53,75{CBM-@}71,69:{$e5}1,53,75{CBM-@}70,84:{$e5}1,53,75{CBM-@}37,85:{$e5}1,53,75{CBM-@}53,55
  17254.  {$7d}
  17255. {$e2}1,60,75,20,,74,117:{$e5}1,60,75{CBM-@}79,70:{$e5}1,60,75{CBM-@}78,84:{CBM-*}1,65,75
  17256. {$f2} 
  17257. {$e5}1,26,110{CBM-@}26,140{CBM-@}79,140:{$e5}1,26,110{CBM-@}29,113:{$e5}1,26,110{CBM-@}23,113{CBM-@}29,113:{$e5}1,24,112{CBM-@}28,112: 1,4,13,"y"
  17258. =!,23,594,174
  17259. )
  17260. {CBM-V}
  17261.  59,23,123,174,69,29,123,174
  17262. j
  17263. H
  17264.  206,34,374,110,33,39,91,79
  17265. K
  17266. R
  17267.  206,34,60,80,218,32,91,174
  17268.  
  17269. {CBM--}
  17270.  206,34,107,174,33,39,264,111
  17271. {CBM-P}
  17272. {$e6}
  17273.  33,39,92,80,206,34,422,174
  17274. Q
  17275. {$f0}
  17276.  69,29,139,190,19,26,138,127
  17277. {$f4}
  17278. {$fa}
  17279.  206,34,154,111,218,32,170,95
  17280. 29,123,127,69,29,139,159
  17281. -
  17282. {CBM-@} 2,31,406,127,19,26,76,63
  17283. o
  17284. {CBM-S} 19,26,138,173,160,27,91,174
  17285. Q
  17286. {CBM-U} 69,29,500,174,59,23,107,206
  17287.  
  17288. B 59,23,76,96,69,29,107,173
  17289. {CBM-H}
  17290. L 206,34,76,111,118,46,374,174
  17291. U
  17292. V 219,43,123,190,33,39,92,96
  17293. {$f4}
  17294.   2,31,107,173,33,39,77,80,91:{$e5}1,136,91{CBM-@}189,91{CBM-@}189,61{CBM-@}136,61
  17295. {$7e}#{CBM-K}
  17296. {$e1}1,140,69,145,91:{$e1}1,148,74,153,91:{$e1}1,156,78,161,91:{$e1}1,164,84,169,91:{$e1}1,172,79,177,91:{$e1}1,180,65,185,91
  17297. {$eb}#{CBM-I}
  17298. {$e1}1,148,77,153,80:{$e1}1,148,83,153,86:{$e5}1,148,89{CBM-@}153,89:{CBM-*}1,157,79:{$e1}1,172,82,177,85:{$e5}1,172,88{CBM-@}177,88:{CBM-*}1,181,66
  17299. {$fd}#{CBM-T}
  17300.  1,19,8,"mbc"
  17301. #${CBM-N}
  17302. {$e5}1,242,11{CBM-@}242,41:{$e5}1,242,41{CBM-@}295,41
  17303. t${CBM-P}
  17304. {$e5}1,245,33{CBM-@}255,16{CBM-@}265,36{CBM-@}275,16{CBM-@}285,36{CBM-@}295,16
  17305. Z${CBM-H}
  17306. {$e5}1,242,61{CBM-@}242,91:{$e5}1,242,91{CBM-@}295,91
  17307. {$f9}${CBM-O}
  17308. {$e5}1,247,89{CBM-@}253,69{CBM-@}260,89:{$e5}1,263,89{CBM-@}269,79{CBM-@}275,89:{$e5}1,278,89{CBM-@}284,82{CBM-@}290,89:{$e5}1,247,89{CBM-@}260,89:{$e5}1,263,89{CBM-@}275,89:{$e5}1,279,"cbm": 1,35,19,"sys"
  17309. EA
  17310. {$e2}1,275,170,5,,200,160:{$e5}1,272,175{CBM-@}269,180:{$e5}1,278,175{CBM-@}281,180:{$e5}1,270,180{CBM-@}280,180
  17311. {CBM-J}B
  17312. {$e1}1,285,170,290,177:{$e5}1,283,169{CBM-@}305,169:{$e5}1,283,170{CBM-@}305,170:{$e5}1,283,171{CBM-@}305,171
  17313. {$e2}C
  17314. {$e2}1,310,170,4,7:{$e2}1,310,170,3,6:{CBM-*}1,287,172
  17315.  
  17316. D
  17317. {$e1}1,56,152,263,196:{$e1}
  17318. {$e5}1,79,140{CBM-@}76,137:{$e5}1,79,140{CBM-@}76,143{CBM-@}76,137:{$e5}1,77,138{CBM-@}77,142: 1,10,17,"x"
  17319. y!
  17320. {$e2}1,51,115,15,20,105,255
  17321. P!
  17322. {$e1}1,136,110,190,140
  17323. !
  17324. i{CBM-R}110{CBM-@}140{SHIFT-POUND}5:{$e5}1,136,i{CBM-@}190,i:i
  17325. "
  17326. {$e1}1,140,118,145,140,,1:{$e1}1,148,123,153,140,,1:{$e1}1,156,128,161,140,,1:{$e1}1,164,133,169,140,,1:{$e1}1,1
  17327.  *******************************
  17328. +{$e8}:{$de}0,1
  17329. -+ 1,14,0,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  17330. j+& 1,14,1,"{SHIFT--} piechart {SHIFT--}",1
  17331. G+0 1,14,2,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  17332. {CBM-O}+: 1,11,5,"name of the chart": 1,02,08,"______________________________________"
  17333.  +d 1,16,6,"        ": 1,0,10,"":te$20
  17334.  
  17335. (H{$e4}f$,x,y,x{CBM-N}10,y{CBM-N}10
  17336. (R{$eb}
  17337. ({$7c}{$e3}p$,x,y,2:x1{CBM-R}x:y1{CBM-R}y
  17338. 9({CBM-K}ei$:ei${CBM-R}""{CBM-M}g{CBM-R}20:390
  17339. t(ei${CBM-R}G(145){CBM-M}y{CBM-R}y{CBM-Q}g:460
  17340. N(ei${CBM-R}G(17){CBM-M}y{CBM-R}y{CBM-N}g:460
  17341. ({CBM-@}ei${CBM-R}G(157){CBM-M}x{CBM-R}x{CBM-Q}g:460
  17342. {CBM-T}({CBM-S}ei${CBM-R}G(29){CBM-M}x{CBM-R}x{CBM-N}g:460
  17343. {CBM-Y}({CBM-U}ei${CBM-R}G(13){CBM-M}480
  17344. {SHIFT-*}(B390
  17345. {$ef}(LW15030:{$e3}f$,x1,y1:{$e4}f$,x,y,x{CBM-N}10,y{CBM-N}18,89{CBM-@}290,89
  17346. %{CBM-F}
  17347. {CBM-*}1,248,88:{CBM-*}1,265,87:{CBM-*}1,286,87
  17348. %{CBM-V}
  17349. {$e2}1,265,124,20,20,0,45:{$e5}{CBM-@}265,124:{$e2}1,265,124,20,20,45,90:{$e5}{CBM-@}265,124:{$e2}1,265,124,20,20,90,135:{$e5}{CBM-@}265,124
  17350. {$ef}%{CBM-B}
  17351. {$e2}1,265,124,20,20,135,180:{$e5}{CBM-@}265,124:{$e2}1,265,124,20,20,180,225:{$e5}{CBM-@}265,124:{$e2}1,265,124,20,20,225,270:{$e5}{CBM-@}265,)
  17352. .F 1,05,20,"                                 "
  17353. ?.P 1,05,21,"                                 "
  17354. o.Z 1,05,20,""
  17355. v.{$e4}i
  17356. ].{$ee}{$de}1
  17357. E.{$f8}e{CBM-R}0
  17358. {$7c}.i{CBM-R}1{CBM-@}n:e{CBM-R}e{CBM-N}e(i):i
  17359. .i{CBM-R}1{CBM-@}n:e(i){CBM-R}e(i){CBM-Z}e{CBM-D}360:i
  17360. {CBM-I}.e{CBM-R}0
  17361. {SHIFT-*}. i{CBM-R}1{CBM-@}n:e{CBM-R}e{CBM-N}e(i):f(i){CBM-R}e:i
  17362.  .*i{CBM-R}1{CBM-@}n:p(i){CBM-R}(e(i){CBM-Z}e){CBM-D}
  17363. {CBM-N}re$(i): 1,25,13{CBM-N}i,vc$:i:920
  17364. \1i{CBM-R}1{CBM-@}n:va${CBM-R}D(i):vb${CBM-R}J(va$,2,1):vc${CBM-R}D(p(i)):vd${CBM-R}H(vc$,5):ve${CBM-R}"("{CBM-N}vb${CBM-N}")="{CBM-N}vd${CBM-N}" %": 1,25,13{CBM-N}i,ve$:i
  17365. G117000
  17366. 1{CBM-L} *******************************
  17367. {CBM-W}1{SHIFT-*} ******    linechart    ********
  17368. Y1{$de} **************************,"value not correct !":d{CBM-R}1{CBM-@}1000:d:1170
  17369. 4{CBM-+}""
  17370. 4{CBM-A}i{CBM-R}1{CBM-@}az
  17371. -4{SHIFT-@}"wert(";i;") =";:w1(i)
  17372. o4Dw1(i){CBM-W}0{CBM-A}w1(i){CBM-E}hw{CBM-M}"":1210
  17373. v4Ni
  17374. \4X{$e8}
  17375. C4{$e2}{$de}1
  17376. 4{$ec}{$e5}1,30,150{CBM-@}30,12{CBM-@}300,12{CBM-@}300,150
  17377. {CBM-N}4{$f6}{$e5}1,30,150{CBM-@}0,185{CBM-@}270,185{CBM-@}300,150
  17378. {SHIFT-*}4
  17379. {$e5}1,31,150{CBM-@}300,150
  17380.  4
  17381. j{CBM-R}30{CBM-@}150
  17382. ,n 1,0,11,"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  17383. h,x 1,02,12,"number of segments (max. 09): ":n
  17384. y,Bn{CBM-E}9{CBM-A}n{CBM-W}1{CBM-M}600
  17385. ,L 1,00,13,"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  17386. {CBM-V},V 1,02,14,"<a>bsolut or <p>ercent: ":au$
  17387. Y,au${CBM-W}{CBM-E}"a"{CBM-P}au${CBM-W}{CBM-E}"p"{CBM-M}630
  17388. -
  17389. 0:{$e3}f$,x,y
  17390. {$f5}(V{$ec}
  17391. ) (x{CBM-E}1{CBM-P}x{CBM-W}105){CBM-P}(y{CBM-E}1{CBM-P}y{CBM-W}50){CBM-M}520
  17392. :){$ea}(x{CBM-E}107{CBM-P}x{CBM-W}212){CBM-P}(y{CBM-E}1{CBM-P}y{CBM-W}50){CBM-M}1580
  17393. ]){$f4}(x{CBM-E}212{CBM-P}x{CBM-W}318){CBM-P}(y{CBM-E}1{CBM-P}y{CBM-W}50){CBM-M}990
  17394. ){$f5}(x{CBM-E}1{CBM-P}x{CBM-W}105){CBM-P}(y{CBM-E}50{CBM-P}y{CBM-W}99){CBM-M}2590
  17395. {CBM-G}){$f6}(x{CBM-E}107{CBM-P}x{CBM-W}212){CBM-P}(y{CBM-E}50{CBM-P}y{CBM-W}99){CBM-M}4010
  17396. J){$f7}(x{CBM-E}212{CBM-P}x{CBM-W}318){CBM-P}(y{CBM-E}50{CBM-P}y{CBM-W}99){CBM-M}6010
  17397. {$ef}){$f8}(x{CBM-E}1{CBM-P}x{CBM-W}105){CBM-P}(y{CBM-E}100{CBM-P}y124
  17398. 9&{SHIFT-*}
  17399. {$e2}1,265,124,20,20,270,315:{$e5}{CBM-@}265,124:{$e2}1,265,124,20,20,315,360:{$e5}{CBM-@}265,124
  17400. C&H
  17401. {$e5}1,265,104{CBM-@}265,144:{$e5}1,245,124{CBM-@}285,124
  17402. &I
  17403. {$e5}1,265,119{CBM-@}280,124{CBM-@}265,129{CBM-@}250,124{CBM-@}265,119
  17404. {$f7}&"{$e5}1,1,1{CBM-@}1,148{CBM-@}318,148{CBM-@}318,1{CBM-@}1,1:{$e5}1,0,51{CBM-@}319,51:{$e5}1,0,100{CBM-@}319,100:{$e5}1,105,0{CBM-@}105,149:{$e5}1,100:i
  17405. /4mx{CBM-R}95:my{CBM-R}90:r{CBM-R}40:k{CBM-R}2.2:pi{CBM-R}3.14159623
  17406. >/>{$e2}1,mx,my,89,41:{$e2}1,mx,my{CBM-N}2,89,53,90,270:{CBM-*}1,95,140
  17407. /hi{CBM-R}1{CBM-@}n:x{CBM-R}k{CBM-D}r{CBM-D}{CBM-V}(pi{CBM-D}f(i){CBM-Z}180):y{CBM-R}r{CBM-D}{CBM-B}(pi{CBM-D}f(i){CBM-Z}180):xp{CBM-R}mx{CBM-N}x:yp{CBM-R}my{CBM-N}y:{$e5}1,{CBM-J}(xp),{CBM-J}(yp){CBM-@}{CBM-J}(mx),{CBM-J}(my):i
  17408. "0ri{CBM-R}1{CBM-@}n:w{CBM-R}pi{CBM-D}((f(i){CBM-Q}f(i{CBM-Q}1)){CBM-Z}2{CBM-N}f(i{CBM-Q}1)){CBM-Z}180:xp{CBM-R}k{CBM-D}r{CBM-D}2{CBM-Z}3{CBM-D}*****
  17409. {$fc}1{$e8}{$e8}:{$de}0,1:az(12):z1(12):w1(12)
  17410. 2{$f2} 1,11,00,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  17411. :2{$fc} 1,11,01,"{SHIFT--} linechart {SHIFT--}",1
  17412. y2 1,11,02,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  17413. 2:"name of the chart (max.34)"
  17414. 2">>>>";na$:""
  17415. {CBM-H}2$"highest scale-value"
  17416. D2."   <   >"
  17417. Q28" :";hw
  17418. {SHIFT-POUND}12:{$e5}1,28,j{CBM-@}30,j:
  17419. '5i{CBM-R}0{CBM-@}5:sw{CBM-R}{CBM-J}(hw{CBM-Z}10{CBM-D}i{CBM-D}2):sw${CBM-R}D(sw):sx${CBM-R}J(sw$,2,3):po{CBM-R}{CBM-J}((150{CBM-Q}i{CBM-D}25){CBM-Z}8)
  17420. a5E(sx$){CBM-W}10{CBM-M}pl{CBM-R}2:1340
  17421. G5(E(sx$){CBM-E}{CBM-R}10{CBM-P}E(sx$){CBM-W}100{CBM-M}pl{CBM-R}1:1340
  17422. {$7d}52E(sx$){CBM-E}{CBM-R}100{CBM-M}pl{CBM-R}0
  17423. 5< 1,pl,po,sx$
  17424. 5fi
  17425. {CBM-W}5pz1(1){CBM-R}{CBM-J}(150{CBM-Q}w1(1){CBM-Z}hw{CBM-D}120)
  17426. Y5zi{CBM-R}2{CBM-@}az:z1(i){CBM-R}{CBM-J}(150{CBM-Q} 1,00,15,"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  17427. m- 1,14,17,"data input": 1,14,18,"{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}": 1,05,20,""
  17428. x-i{CBM-R}1{CBM-@}n
  17429. -{CBM-POUND}i;". value : ";:e(i):re(i){CBM-R}e(i):re$(i){CBM-R}D(re(i))
  17430. {CBM-W}-{CBM-R}"";i;". legend: ";:tx$(i)
  17431. {SHIFT--}-{CBM-C}C(tx$(i)){CBM-E}9{CBM-M}tx$(i){CBM-R}H(tx$(i){CBM-N}"   ",9
  17432. {CBM-W}149){CBM-M}8010
  17433. *{$f9}(x{CBM-E}106{CBM-P}x{CBM-W}212){CBM-P}(y{CBM-E}100{CBM-P}y{CBM-W}149){CBM-M}9010
  17434. =*{$fa}(x{CBM-E}212{CBM-P}x{CBM-W}318){CBM-P}(y{CBM-E}99{CBM-P}y{CBM-W}149){CBM-M}14010
  17435. B*{$fb}(x{CBM-E}1{CBM-P}x{CBM-W}52){CBM-P}(y{CBM-E}150{CBM-P}y{CBM-W}198){CBM-M}10010
  17436. *{$fc}(x{CBM-E}267{CBM-P}x{CBM-W}318){CBM-P}(y{CBM-E}150{CBM-P}y{CBM-W}198){CBM-M}13010
  17437. *{$fe}450
  17438. {CBM-O}* *******************************
  17439. {CBM-*}* ***       pie chart         ***
  17440. +213,0{CBM-@}213,149
  17441. '' *******************************
  17442. c', ****    menue-control      ****
  17443. I'1 *******************************
  17444. P'6{$fe}&
  17445. '@x{CBM-R}63:y{CBM-R}159:g{CBM-R}20
  17446. {CBM-+}'j340:a{CBM-R}1{CBM-@}14:w:p${CBM-R}p${CBM-N}G(w):a
  17447. S't252,248,240,248,220,142,7,3,3,2,7,0,7,0
  17448. {$ea}'^{$e3}f$,x1,y1:y1{CBM-R}y1{CBM-N}{CBM-V}(w){CBM-N}mx:yp{CBM-R}r{CBM-D}2{CBM-Z}3{CBM-D}{CBM-B}(w){CBM-N}my:za${CBM-R}D(i):zb${CBM-R}J(za$,2,1): 1,{CBM-J}(xp{CBM-Z}8),{CBM-J}(yp{CBM-Z}8),zb$:i
  17449. 10\ 1,1,0,te$
  17450. {$7e}0Fi{CBM-R}1{CBM-@}n:va${CBM-R}D(i):vb${CBM-R}J(va$,2,1):vc${CBM-R}"("{CBM-N}vb${CBM-N}")= "{CBM-N}tx$(i): 1,25,3{CBM-N}i,vc$:i
  17451. 0Pau${CBM-R}"a"{CBM-M}900
  17452. {CBM-I}0Zau${CBM-R}"p"{CBM-M}910
  17453. {$f4}0i{CBM-R}1{CBM-@}n:va${CBM-R}D(i):vb${CBM-R}J(va$,2,1):vc${CBM-R}"("{CBM-N}vb${CBM-N}")="{$f0}2bhw{CBM-E}999{CBM-A}hw{CBM-W}5{CBM-M}"":1080
  17454. {$f9}2l""
  17455. 3v"name of horizontal axis"
  17456. <3{$60}"   <                    >"
  17457. o3J" :";ho$:""
  17458. O3T"name of vertical axis"
  17459. {$7f}3{$7e}"   <   >"
  17460. 3" :";va$
  17461. {CBM-L}3{$e8}:"number of values (max.12)";az
  17462. {$f9}3az{CBM-E}12{CBM-A}az{CBM-W}2{CBM-M}{$e8}: ,10,12w1(i){CBM-Z}hw{CBM-D}120)
  17463. {$fa}5Du{CBM-R}22{CBM-D}i:v{CBM-R}u{CBM-N}22:{$e5}1,u,149{CBM-@}u,151
  17464. 6N{$e5}1,u,z1(i{CBM-Q}1){CBM-@}v,z1(i)
  17465. 06X{$e5}1,u{CBM-N}1,z1(i{CBM-Q}1){CBM-@}v{CBM-N}1,z1(i)
  17466. m6{$e5}1,u{CBM-Q}1,z1(i{CBM-Q}1){CBM-@}v{CBM-Q}1,z1(i)
  17467. x6u{CBM-R}u{CBM-N}22
  17468. _6i
  17469. R6 {$e5}1,u,149{CBM-@}u,151
  17470. 6{CBM-N} 1,8,22,ho$
  17471. {CBM-M}6{CBM-H}C(va$){CBM-R}1{CBM-M} 1,2,1,va$:U 1,0,1,va$
  17472. {CBM-L}6{CBM-V} 1,4,0,na$
  17473. A6H17000
  17474. {$e5}6{CBM--} **{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  17475. {$f6}bR
  17476.  1,14,17,"data input": 1,14,18,"{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}": 1,05,20,""
  17477. c{CBM--}
  17478. i{CBM-R}1{CBM-@}n
  17479. 7c{$e6}
  17480. i;". value : ";:e(i):re(i){CBM-R}e(i):re$(i){CBM-R}D(re(i))
  17481. \c{$f0}
  17482. "";i;". legend: ";:tx$(i)
  17483. c{$fa}
  17484. C(tx$(i)){CBM-E}9{CBM-M}tx$(i){CBM-R}H(tx$(i){CBM-N}"   ",9)
  17485. {CBM-Y}c 1,05,20,"                           ***************************
  17486. {$f7}?
  17487.  ******* stigmachart *********
  17488. @(
  17489.  *****************************
  17490. &@2
  17491. {$e8}:{$de}0,1
  17492. g@<
  17493.  1,12,00,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  17494. H@f
  17495.  1,12,01,"{SHIFT--} stigmachart {SHIFT--}",1
  17496. @p
  17497.  1,12,02,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  17498. {SHIFT-+}@z
  17499.  1,11,5,"name of the chart": 1,02,07,"__1(i){CBM-R}{CBM-J}(90{CBM-Q}w1(i){CBM-Z}hw{CBM-D}60)
  17500. {$f1}<r{$e1}1,di,z1(i),di{CBM-N}18,90,0,1
  17501. {$fe}<\di{CBM-R}di{CBM-N}21
  17502. =Fi
  17503. =P 1,8,22,ho$
  17504. :=ZC(va$){CBM-R}1{CBM-M} 1,2,1,va$:U 1,0,1,va$
  17505. i= 1,4,0,na$
  17506. t=17000
  17507. Y= ******************************
  17508. ={CBM-I} ***    chart on printer    ***
  17509. C={CBM-D} ***********************{$e4}nu$,0,0,8,8:{$e1}0,0,0,8,8,0,1
  17510. :d{$e5}1,35,150{CBM-@}35,12{CBM-@}300,12{CBM-@}300,150
  17511. &:n{$e5}1,35,150{CBM-@}0,185{CBM-@}275,185{CBM-@}300,150
  17512. ::x{$e5}1,35,90{CBM-@}300,90
  17513. G:Bj{CBM-R}150{CBM-@}30{SHIFT-POUND}{CBM-Q}15:{$e5}1,33,j{CBM-@}37,j:j:{$e3}nu$,24,84
  17514. :Lp4{CBM-R}{CBM-J}(hw):p3{CBM-R}{CBM-J}(hw{CBM-D}.75):p2{CBM-R}{CBM-J}(hw{CBM-D}.5):p1{CBM-R}{CBM-J}(hw{CBM-D}.25)
  17515. {CBM-R}:Vp4{CBM-E}{CBM-R}100{CBM-M}af{CBM-R}0:1940
  17516. P:p4{CBM-E}{CBM-R}10{CBM-P}p4{CBM-W}
  17517. ***************************
  17518. 7{$e6} ******** comparechart *******
  17519. -7{$f0} *****************************
  17520. 37,{$e8}
  17521. <76{$de}0,1
  17522. ^7@ 1,10,00,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  17523. 7j 1,10,01,"{SHIFT--} comparechart {SHIFT--}",1
  17524. {CBM-I}7t 1,10,02,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  17525. F7^:"name of chart (max.34)"
  17526. {SHIFT-+})
  17527. Yei{CBM-R}sg{CBM-M}{CBM-*}1,xp,yp: 1,{CBM-J}(xp{CBM-Z}8),{CBM-J}(yp{CBM-Z}8),zb$,1
  17528. {$f3}e{CBM-@} 1,{CBM-J}(xp{CBM-Z}8),(yp{CBM-Z}8),zb$
  17529. {$fa}e{CBM-S}i
  17530. f{CBM-U} 1,1,0,te$
  17531. vfBi{CBM-R}1{CBM-@}n:va${CBM-R}D(i):vb${CBM-R}J(va$,2,1):vc${CBM-R}"("{CBM-N}vb${CBM-N}")= "{CBM-N}tx$(i): 1,25,3{CBM-N}i,vc$:i
  17532. IfLau${CBM-R}"a"{CBM-M}3040
  17533. {$7c}fVau${CBM-R}"p"{CBM-M}3050
  17534. Of i{CBM-R}1{CBM-@}n:va${CBM-R}D(i):vb${CBM-R}J(va$,2,1):vc${CBM-R}"("{CBM-N}vb      "
  17535. {$e8}c 1,05,21,"                                 "
  17536. {$f8}c 1,05,20,""
  17537. ~c"i
  17538. d,{$de}1
  17539. d6e{CBM-R}0
  17540. %d@i{CBM-R}1{CBM-@}n:e{CBM-R}e{CBM-N}e(i):i
  17541. cdji{CBM-R}1{CBM-@}n:e(i){CBM-R}e(i){CBM-Z}e{CBM-D}360:i
  17542. kdte{CBM-R}0
  17543. Id^i{CBM-R}1{CBM-@}n:e{CBM-R}e{CBM-N}e(i):f(i){CBM-R}e:i
  17544. dHi{CBM-R}1{CBM-@}n:p(i){CBM-R}(e(i){CBM-Z}e){CBM-D}100:i
  17545. {CBM-R}dRmx{CBM-R}95:my{CBM-R}90:r{CBM-R}40:k{CBM-R}2.2:pi{CBM-R}3.1415
  17546. ____________________________________"
  17547. aD
  17548.  1,16,6,"        ": 1,0,09,"":te$
  17549. 9aN
  17550.  1,0,10,"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  17551. JaX
  17552.  1,02,11,"number of segments (max. 09): ":n
  17553. {$7c}a
  17554. n{CBM-E}9{CBM-A}n{CBM-W}1{CBM-M}2680
  17555. {CBM-H}a
  17556.  1,00,12,"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"*******
  17557. {$e6}={CBM-Z}{$de}0,1: 1,13,00,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  17558. >{CBM-S} 1,13,01,"{SHIFT--} hardcopy {SHIFT--}",1
  17559. ">{CBM-P} 1,13,02,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  17560. e>{CBM-A} 1,09,07,"printer ready (y/n)"
  17561. p>{CBM-E}208,0
  17562. z>{CBM-R}{CBM-K}{$f9}ei$
  17563. L>{CBM-W}ei${CBM-W}{CBM-E}"y"{CBM-M}:
  17564. {CBM-K}>{CBM-H} 1,03,11,"screen is off-line while printing":{$fe}2
  17565. {CBM-POUND}>{CBM-J}{$fe}%
  17566. {CBM-E}>{CBM-L}5,4
  17567. I>{SHIFT-*}5,G100{CBM-M}af{CBM-R}1:1940
  17568.  :p4{CBM-W}10{CBM-M}af{CBM-R}2
  17569. {$ef}:n4{CBM-R}p4{CBM-Q}2{CBM-D}p4
  17570. ; 1,af,{CBM-J}(150{CBM-Z}8),D(n4): 1,af,{CBM-J}(30{CBM-Z}8),D(p4)
  17571. 4;{CBM-POUND}p3{CBM-E}{CBM-R}100{CBM-M}af{CBM-R}0:1990
  17572. r;{CBM-R}p3{CBM-E}{CBM-R}10{CBM-P}p3{CBM-W}100{CBM-M}af{CBM-R}1:1990
  17573. B;{CBM-C}p3{CBM-W}10{CBM-M}af{CBM-R}2
  17574. Q;Fn3{CBM-R}p3{CBM-Q}2{CBM-D}p3
  17575. ;P 1,af,{CBM-J}(135{CBM-Z}8),D(n3): 1,af,{CBM-J}(45{CBM-Z}8),D(p3)
  17576. {CBM-L};Zp2{CBM-E}{CBM-R}100{CBM-M}af{CBM-R}0:2040
  17577. T;{$e4}p2{CBM-E}{CBM-R}7H">>>>";na$:""
  17578. {$f9}7R"highest scale-value"
  17579. 8{$7c}"   <   >"
  17580. 8" :";hw
  17581. 58hw{CBM-E}999{CBM-A}hw{CBM-W}4{CBM-M}"":1670
  17582. >8""
  17583. {$60}8{CBM-@}"name of horizontal axis"
  17584. 8{CBM-S}"   <                    >"
  17585. 8{CBM-U}" :";ho$:""
  17586. {CBM-H}8B"name of vertical axis"
  17587. D8L"   <   >"
  17588. R${CBM-N}")="{CBM-N}re$(i): 1,25,13{CBM-N}i,vc$:i:3060
  17589. 7g{$ea}i{CBM-R}1{CBM-@}n:va${CBM-R}D(i):vb${CBM-R}J(va$,2,1):vc${CBM-R}D(p(i)):vd${CBM-R}H(vc$,5):ve${CBM-R}"("{CBM-N}vb${CBM-N}")="{CBM-N}vd${CBM-N}" %": 1,25,13{CBM-N}i,ve$:i
  17590. bg{$f4}17000
  17591. Fg  *****************************
  17592. g{CBM-N} *****     bankchart    ******
  17593. {CBM-S}g{CBM-H} ***********************9623
  17594. {$e3}d{$7c}{$e2}1,mx,my,89,41:{$e2}1,mx,my,88,40:{$e2}1,mx,my,88,41
  17595. dei{CBM-R}1{CBM-@}n:x{CBM-R}k{CBM-D}r{CBM-D}{CBM-V}(pi{CBM-D}f(i){CBM-Z}180):y{CBM-R}r{CBM-D}{CBM-B}(pi{CBM-D}f(i){CBM-Z}180):xp{CBM-R}mx{CBM-N}x:yp{CBM-R}my{CBM-N}y:{$e5}1,{CBM-J}(xp),{CBM-J}(yp){CBM-@}{CBM-J}(mx),{CBM-J}(my):i
  17596. {CBM-Z}ei{CBM-R}1{CBM-@}n:w{CBM-R}pi{CBM-D}((f(i){CBM-Q}f(i{CBM-Q}1)){CBM-Z}2{CBM-N}f(i{CBM-Q}1)){CBM-Z}180:xp{CBM-R}k{CBM-D}r{CBM-D}2{CBM-Z}3{CBM-D}{CBM-V}(w){CBM-N}mx:yp{CBM-R}r{CBM-D}2{CBM-Z}3{CBM-D}{CBM-B}(w){CBM-N}my:za${CBM-R}D(i):zb${CBM-R}J(za$,2,1
  17597.  
  17598. {$e7}a
  17599.  1,02,13,"<a>bsolut or <p>ercent      : ":au$
  17600. au${CBM-W}{CBM-E}"a"{CBM-P}au${CBM-W}{CBM-E}"p"{CBM-M}2710
  17601. ;b{CBM-N}
  17602.  1,00,14,"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  17603. Mb{CBM-H}
  17604.  1,02,15,"stigma for segment-number   : ":sg
  17605. b{CBM-V}
  17606. sg{CBM-W}0{CBM-A}sg{CBM-E}n{CBM-M}2740
  17607. {SHIFT-@}bH
  17608.  1,00,16,"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}(27);G(65);G(8)
  17609. U>Ja{CBM-R}15880
  17610. {$e1}>Tc{CBM-R}0{CBM-@}39
  17611. ?{$de}5,G(27);G(76);G(144);G(1);
  17612. ?{$e8}b{CBM-R}0{CBM-@}7
  17613. ?{$f2}a{CBM-R}a{CBM-Q}1
  17614. !?{$f7}p{CBM-R}B(a)
  17615. 3?{$fc}5,G(p);G(p);
  17616. :?b
  17617. \?a{CBM-W}{CBM-E}(c{CBM-D}8{CBM-N}8192){CBM-M}a{CBM-R}a{CBM-Q}312:U2325
  17618. F?2280
  17619. ?a{CBM-W}{CBM-E}8504{CBM-M}a{CBM-R}a{CBM-N}7696:U2350
  17620. ?5,G(10);
  17621. ?$c
  17622. ?.5
  17623. {CBM-+}?8 5
  17624. {CBM-P}?
  17625.  
  17626. {$fe}&:
  17627. S?
  17628.  **10{CBM-P}p2{CBM-W}100{CBM-M}af{CBM-R}1:2040
  17629. {$e4};{$ee}p2{CBM-W}10{CBM-M}af{CBM-R}2
  17630. {$f3};{$f8}n2{CBM-R}p2{CBM-Q}2{CBM-D}p2
  17631. "< 1,af,{CBM-J}(120{CBM-Z}8){CBM-Q}1,D(n2): 1,af,{CBM-J}(60{CBM-Z}8),D(p2)
  17632. :<p1{CBM-E}{CBM-R}100{CBM-M}af{CBM-R}0:2090
  17633. x<p1{CBM-E}{CBM-R}10{CBM-P}p1{CBM-W}100{CBM-M}af{CBM-R}1:2090
  17634. H< p1{CBM-W}10{CBM-M}af{CBM-R}2
  17635. W<*n1{CBM-R}p1{CBM-Q}2{CBM-D}p1
  17636. {CBM-+}<4 1,af,{CBM-J}(105{CBM-Z}8){CBM-Q}1,D(n1): 1,af,{CBM-J}(75{CBM-Z}8),D(p1)
  17637. {CBM-A}<>di{CBM-R}43
  17638. T<hi{CBM-R}1{CBM-@}az:z8V" :";va$
  17639. {$fb}8 {$e8}:"number of values (max.12)";az
  17640. ?9{$ea}az{CBM-E}12{CBM-A}az{CBM-W}0{CBM-M}{$e8}: ,10,12,"value is incorrect !":d{CBM-R}1{CBM-@}1000:d:1760
  17641. r9{$f4}w1(az),z1(az)
  17642. ]9{$fe}""
  17643. I9i{CBM-R}1{CBM-@}az
  17644. 9"value(";i;") =";:w1(i)
  17645. {CBM-@}9{CBM-L}(w1(i)){CBM-E}hw{CBM-M}"":1810
  17646. {CBM-Q}9&i
  17647. {CBM-E}90{$e8}
  17648. {CBM-*}9:{$de}1: 1,0,0,"0":******
  17649. {CBM-O}g{CBM-V}{$e8}:{$de}0,1
  17650.  gH 1,09,00,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  17651. hR 1,09,01,"{SHIFT--} multiple barchart {SHIFT--}",1
  17652. .h{CBM--} 1,09,02,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  17653. rh{$e6}:"name of chart (max.34)"
  17654. Gh{$f0}">>>>";na$:""
  17655. h{$fa}"highest scale-value"
  17656. h"   <   >"
  17657. {CBM-I}h" :";hw
  17658. Ah
  17659. {CBM-POUND}t{$e5}1,di{CBM-Q}20,150{CBM-@}di,z1(i)
  17660. Bt({$e5}1,di{CBM-N}20,150{CBM-@}di,z1(i)
  17661. {$ee}t2{$e5}1,di{CBM-Q}20,150{CBM-@}di,160:{$e5}1,di{CBM-N}20,150{CBM-@}di,160
  17662. u<{$e5}1,di,z1(i){CBM-@}di,160
  17663. uf 1,{CBM-J}((di){CBM-Z}8),21,D(i)
  17664. +updi{CBM-R}di{CBM-N}44
  17665. 2uzi
  17666. buD 1,09,2,ho$
  17667. GuNC(va$){CBM-R}1{CBM-M} 1,2,1,va$:U 1,0,1,va$
  17668. VuX 1,4,0,na$
  17669. u17000
  17670. {CBM-+}u@ ****ame of horizontal axis"
  17671. Nq"   <                    >"
  17672. {$e1}q" :";ho$:""
  17673. r"name of vertical axis"
  17674. r$"   <   >"
  17675. r." :";va$
  17676. gr8{$e8}:"number of values (max.6)";az
  17677. rbaz{CBM-E}6{CBM-A}az{CBM-W}1{CBM-M}{$e8}: ,10,12,"value is incorrect !":d{CBM-R}1{CBM-@}1000:d:6200
  17678. rl":mv(i){CBM-R}{CBM-J}(150{CBM-Q}w1(i){CBM-Z}hw{CBM-D}120):{$e1}1,px,mv(i),px{CBM-N}5,py:px{CBM-R}px{CBM-N}df:i
  17679. {$e4}n az{CBM-R}1{CBM-M}4700
  17680. {$fb}n*px{CBM-R}43:py{CBM-R}150:df{CBM-R}40
  17681. Co4i{CBM-R}1{CBM-@}az:mv(i){CBM-R}{CBM-J}(150{CBM-Q}w2(i){CBM-Z}hw{CBM-D}120):{$e1}1,px,mv(i),px{CBM-N}5,py:k{CBM-R}150{CBM-@}mv(i){SHIFT-POUND}{CBM-Q}3:{$e5}1,px,k{CBM-@}px{CBM-N}5,k:k:px{CBM-R}px{CBM-N}df:i
  17682. So>az{CBM-R}2{CBM-M}4700
  17683. ohpx{CBM-R}51:py{CBM-R}150:df{CBM-R}40
  17684. Sori{CBM-R}1{CBM-@}az:m340
  17685. {CBM-N}ki
  17686. {CBM-A}k{$e8}
  17687. {SHIFT-*}knb{CBM-R}1{CBM-M}4490
  17688. Lk&i{CBM-R}1{CBM-@}az
  17689. {$f6}k0"bank #2 - value(";i;") =";:w2(i):
  17690. l:w2(i){CBM-W}0{CBM-A}w2(i){CBM-E}hw{CBM-M}"":4400
  17691.  ldi
  17692. 0lnnb{CBM-R}2{CBM-M}4490
  17693. 6lx{$e8}
  17694. blBi{CBM-R}1{CBM-@}az
  17695. LlL"bank #3 - value(";i;") =";:w3(i):
  17696. lVw3(i){CBM-W}0{CBM-A}w3(i){CBM-E}hw{CBM-M}"":4460
  17697. li
  17698. l{$e8}
  17699. {CBM-T}
  17700. hw{CBM-E}999{CBM-A}hw{CBM-W}5{CBM-M}"":4110
  17701. {$e4}h""name of vertical axis"
  17702. {$f4}h,"   <   >"
  17703. i6" :";va$
  17704. -i@{$e8}:"number of values (max.7) : ";az
  17705. Oijaz{CBM-E}7{CBM-A}az{CBM-W}1{CBM-M}{$e8}: ,10,12,"value not correct !":d{CBM-R}1{CBM-@}1000:d:4160
  17706. it"number of banks (max.3) :  ";nb
  17707. Ii^nb{CBM-W}1***
  17708. {CBM-P}w{CBM-@} *****************************
  17709. {CBM-J}w{SHIFT-POUND}{$e8}
  17710. Xw{CBM-S} 1,10,00,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  17711. {$fb}w{CBM-W} 1,10,01,"{SHIFT--} functionchart {SHIFT--}",1
  17712. x{CBM-U} 1,10,02,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  17713. Dx{CBM-X} 1,00,04,"name of graphic                        _",1: 1,01,06,""
  17714. RxB": ";ng$
  17715. xG{$e8}: 1,00,05,"":**************************
  17716. Kuj *****   functionchart  *******
  17717. {$f0}ut ******************************
  17718. {$fd}uy{$e8}:mr${CBM-R}""
  17719. 9v^ 1,0,24,"                                        ":{$de}0,1
  17720. KvC"term of function                       _"
  17721. vH 1,00,05,"":"y=";fu$
  17722. vM
  17723. "
  17724. {CBM-K}rvi{CBM-R}1{CBM-@}az
  17725. Ar{$60}"value(";i;") =";:w1(i):
  17726. {$e4}rJw1(i){CBM-W}0{CBM-A}w1(i){CBM-E}hw{CBM-M}"":6240
  17727. {$eb}rTi
  17728. {$f1}r{$7e}{$e8}
  17729. {$fa}r{$de}1,1
  17730. s{$e5}1,30,150{CBM-@}30,12{CBM-@}306,12{CBM-@}306,150
  17731. bs{$e5}1,30,150{CBM-@}30,185{CBM-@}306,185{CBM-@}306,150
  17732. Bs{CBM-+}j{CBM-R}30{CBM-@}150{SHIFT-POUND}12:{$e5}1,28,j{CBM-@}30,j:
  17733. {SHIFT-POUND}s{CBM-A}i{CBM-R}0{CBM-@}5:sw{CBM-R}{CBM-J}(hw{CBM-Z}10{CBM-D}i{CBM-D}2):sw${CBM-R}D(sw):sx${CBM-R}J(swv(i){CBM-R}{CBM-J}(150{CBM-Q}w3(i){CBM-Z}hw{CBM-D}120):{$e1}1,px,mv(i),px{CBM-N}5,py,,1:px{CBM-R}px{CBM-N}df:i
  17734. {$f8}o\C(va$){CBM-R}1{CBM-M} 1,2,1,va$:U 1,0,1,va$
  17735. pF 1,4,0,na$
  17736. pP17000
  17737. 6pP *****************************
  17738. zpZ *****   pyramidchart   ******
  17739. {$7e}p *****************************
  17740. p{$e8}:{$de}0,1
  17741. {CBM-Q}p 1,10,00l{$de}1
  17742. Fl{$e5}1,30,150{CBM-@}30,12{CBM-@}300,12{CBM-@}300,150
  17743. {$ea}l{CBM-POUND}{$e5}1,30,150{CBM-@}0,185{CBM-@}270,185{CBM-@}300,150
  17744.  
  17745. m{CBM-R}j{CBM-R}30{CBM-@}150{SHIFT-POUND}12:{$e5}1,28,j{CBM-@}30,j:
  17746. qm{CBM-C}i{CBM-R}0{CBM-@}5:sw{CBM-R}{CBM-J}(hw{CBM-Z}10{CBM-D}i{CBM-D}2):sw${CBM-R}D(sw):sx${CBM-R}J(sw$,2,3):po{CBM-R}{CBM-J}((150{CBM-Q}i{CBM-D}25){CBM-Z}8)
  17747. KmFE(sx$){CBM-W}10{CBM-M}pl{CBM-R}2:4580
  17748. mPE(sx$){CBM-E}{CBM-R}10{CBM-P}E(sx$){CBM-W}100{CBM-M}pl{CBM-R}1:4580
  17749. {CBM-M}mZE(sx${CBM-A}nb{CBM-E}3{CBM-M}"":4180
  17750. jH"name of bank #1 :            _":"";l1$
  17751. %jRl1${CBM-R}H(l1$,10)
  17752. 9j{$7c}l1${CBM-R}"_"{CBM-M}l1${CBM-R}""
  17753. ijnb{CBM-R}1{CBM-M}4310
  17754. j"name of bank #2 :            _":"";l2$
  17755. {CBM-G}jl2${CBM-R}H(l2$,"x-minimum =        : ";a
  17756. WxL 1,00,06,"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  17757. yQ 1,00,07,"":"x-maximum =        : ";b
  17758. :yV 1,00,08,"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  17759. Fy{SHIFT-+} 1,00,09,"":"y-minimum =          ";y1
  17760. y  1,00,10,"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{$e7}5,16:{$e8}:{$fe}%
  17761. {CBM-M}vR"8280 y=";fu$
  17762. HvW"8095 fu$="{CBM-N}G(34){CBM-N}fu${CBM-N}G(34)
  17763. Xv{$7c}"goto8085"
  17764. {$e4}v842,19
  17765. {$fc}vi{CBM-R}1{CBM-@}3:842{CBM-N}i,13:i
  17766. w208,4
  17767.  
  17768. w
  17769. -w{$e8}:{$fe}&:{$e7}5,1:co${CBM-R}"2d-function"
  17770. cwmr${CBM-R}"more"{CBM-M}8185
  17771. Gw *****************************
  17772. w ** string of functionterm 
  17773. $,2,3):po{CBM-R}{CBM-J}((150{CBM-Q}i{CBM-D}25){CBM-Z}8)
  17774. Cs{SHIFT-@}E(sx$){CBM-W}10{CBM-M}pl{CBM-R}2:6360
  17775. {$e9}sDE(sx$){CBM-E}{CBM-R}10{CBM-P}E(sx$){CBM-W}100{CBM-M}pl{CBM-R}1:6360
  17776. ~sNE(sx$){CBM-E}{CBM-R}100{CBM-M}pl{CBM-R}0
  17777. tX 1,pl,po,sx$
  17778. t{$e2}i
  17779. !t{$ec}di{CBM-R}58
  17780. gt{$f6}i{CBM-R}1{CBM-@}az:z1(i){CBM-R}{CBM-J}(150{CBM-Q}w1(i){CBM-Z}hw{CBM-D}120)
  17781. ^t
  17782. {$e5}1,di,140{CBM-@}di,z1(i)
  17783. Vt
  17784. {$e5}1,di,140{CBM-@}di{CBM-N}20,150
  17785. t{$e5}1,di,140{CBM-@}di{CBM-Q}20,150,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  17786. Mp{CBM-I} 1,10,01,"{SHIFT--} pyramidchart {SHIFT--}",1
  17787. {$ef}p{CBM-D} 1,10,02,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  17788. q{CBM-L}:"name of chart (max.34)"
  17789. (q{SHIFT-*}">>>>";na$:""
  17790. fqJ"highest scale-value"
  17791. vqT"   <   >"
  17792. Cq{$de}" :";hw
  17793. q{$e8}hw{CBM-E}999{CBM-A}hw{CBM-W}5{CBM-M}"":6110
  17794. q{$f2}""
  17795. {CBM-Z}q{$fc}"n){CBM-E}{CBM-R}100{CBM-M}pl{CBM-R}0
  17796. {CBM-U}m{$e4} 1,pl,po,sx$
  17797. {CBM-B}m{$ee}i
  17798. 'n{$f8}a{CBM-R}0:{$e1}1,09,192,14,198,,1:{$e1}1,112,192,118,198:{$e1}1,216,192,222,198:{$e5}1,216,194{CBM-@}222,194:{$e5}1,216,196{CBM-@}222,196
  17799. Wn 1,2,24,"=": 1,15,24,"=": 1,28,24,"=": 1,3,24,l1$: 1,16,24,l2$: 1,29,24,l3$
  17800. npx{CBM-R}35:py{CBM-R}150:df{CBM-R}40
  17801. Tni{CBM-R}1{CBM-@}az10)
  17802. {CBM-O}j{CBM-@}l2${CBM-R}"_"{CBM-M}l2${CBM-R}""
  17803. Ij{CBM-S}nb{CBM-R}2{CBM-M}4310
  17804. k{CBM-U}"name of bank #3 :            _":"";l3$
  17805. %kBl3${CBM-R}H(l3$,10)
  17806. 9kLl3${CBM-R}"_"{CBM-M}l3${CBM-R}""
  17807. ?kV{$e8}
  17808. jk ""
  17809. vk{$ea}i{CBM-R}1{CBM-@}az
  17810. k{$f4}"bank #1 - value(";i;") =";:w1(i):
  17811. {CBM-T}k{$fe}w1(i){CBM-W}0{CBM-A}w1(i){CBM-E}hw{CBM-M}"":4{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  17812. Jy{$e5} 1,00,11,"":"y-maximum =        : ";y2
  17813. z{$ea} 1,00,12,"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  17814. z{$ef}a{CBM-E}{CBM-R}b{CBM-M}8135
  17815. $z{$f4}y1{CBM-E}{CBM-R}y2{CBM-M}8135
  17816. ]z{$f9}ix{CBM-R}b{CBM-Q}a:da{CBM-R}270{CBM-Z}ix:iy{CBM-R}y2{CBM-Q}y1:db{CBM-R}138{CBM-Z}iy:ha{CBM-R}{CBM-L}(a):hy{CBM-R}{CBM-L}(y1)
  17817. Dz{$fe}{$de}1
  17818. z {$e5}1,30,150{CBM-@}30,12{CBM-@}300,12{CBM-@}30 1,1,7,"grafikname: ":fi$:fi${CBM-R}H(fi$,13){CBM-N}".bg"
  17819. {CBM-H}FJ' 1,15,12,"loading....."
  17820. {SHIFT-*}FT'{$fe}(fi$)
  17821. KF{$7e}'17000
  17822. {$ef}F{$f8}* *****************************
  17823. G+ ****     save graphic    ****
  17824. 7G+ *****************************
  17825. @G+{$de}0,1
  17826. AG + 1,12,0,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  17827. G*+ 1i{CBM-N}20,z1(i)
  17828. {CBM-W}C{$ea}${$e5}1,di{CBM-N}20,z1(i){CBM-@}di{CBM-N}20,150:{$e5}1,di{CBM-N}30,140{CBM-@}di{CBM-N}30,z1(i){CBM-Q}10
  17829. {$e2}C{$f4}${$e5}1,di,150{CBM-@}di{CBM-N}20,150:{$e5}1,di{CBM-N}20,150{CBM-@}di{CBM-N}30,140
  17830. {$fe}C{$fe}${$e5}1,di,z1(i){CBM-@}di{CBM-N}20,z1(i)
  17831. D%{CBM-*}1,di{CBM-N}1,149
  17832. ,D% 1,{CBM-J}((di{CBM-N}8){CBM-Z}8),155{CBM-Z}8,D(i)
  17833. 9D%di{CBM-R}di{CBM-N}38
  17834. @D&%i
  17835. pD0% 1,8,22,ho$
  17836. UD:%C(va$){CBM-R}1{CBM-M} 1,2,1,va$:U 1,          >"
  17837. {$60}H#" :";ho$:""
  17838. {CBM-J}{$60}R#"name of vertical axis"
  17839. E{$60}{CBM--}#"   <   >"
  17840. S{$60}{$e6}#" :";va$
  17841. {$fb}{$60}{$f0}#{$e8}:"number of values (max.7)";az
  17842. =A{$fa}#az{CBM-E}7{CBM-A}az{CBM-W}1{CBM-M}{$e8}: ,10,12,"value not correct !":d{CBM-R}1{CBM-@}1000:d:9200
  17843. hA$""
  17844. tA$i{CBM-R}1{CBM-@}az
  17845. TA$"value(";i;") =";:w1(i):(b):la{CBM-R}C(ad$):la{CBM-R}la{CBM-Q}1:ae${CBM-R}J(ad$,2,la)
  17846. C]{CBM-T} b{CBM-W}0{CBM-M}af${CBM-R}"-"{CBM-N}ae$:Uaf${CBM-R}"+"{CBM-N}ae$
  17847. {$f3}]{CBM-POUND} ba${CBM-R}D(y1):la{CBM-R}C(ba$):la{CBM-R}la{CBM-Q}1:bb${CBM-R}J(ba$,2,la)
  17848. ^{CBM-Z} y1{CBM-W}0{CBM-M}bc${CBM-R}"-"{CBM-N}bb$:Ubc${CBM-R}"+"{CBM-N}bb$
  17849. f^{CBM-R} bd${CBM-R}D(y2):la{CBM-R}C(bd$):la{CBM-R}la{CBM-Q}1:be${CBM-R}J(bd$,2,la)
  17850. I^{CBM-Y} y2{CBM-W}0{CBM-M}bf${CBM-R}"-"{CBM-N}be$:Ubf${CBM-R}"+"{CBM-N}be$
  17851. ^{CBM-C} ax${CBM-R}"range x
  17852. 0,150
  17853. {CBM-Q}z {$e5}1,30,150{CBM-@}0,185{CBM-@}270,185{CBM-@}300,150
  17854. Az
  17855.  {$e5}1,30,150{CBM-@}300,150
  17856. [ {$e5}1,((ha{CBM-D}da){CBM-N}30),12{CBM-@}((ha{CBM-D}da){CBM-N}30),150:{$e5}1,30,150{CBM-Q}(hy{CBM-D}db){CBM-@}299,150{CBM-Q}(hy{CBM-D}db)
  17857. [ x{CBM-R}0
  17858. [ {$eb}{$fc}x{CBM-R}ix
  17859. w[! {$e5}1,(x{CBM-D}da){CBM-N}30,150{CBM-Q}{CBM-L}(hy{CBM-D}db{CBM-Q}2){CBM-@}(x{CBM-D}da){CBM-N}30,150{CBM-Q}{CBM-L}(hy{CBM-D}db{CBM-N}2)
  17860. A[& x{CBM-R}x{CBM-N}1
  17861. G[+ {$ec}
  17862. O[0 x{CBM-R}0
  17863. Z[5 {$eb}{$fc}x{CBM-R}iy
  17864. {CBM-J}[: {$e5}y{CBM-Q}g:12200
  17865. In/ei${CBM-R}G(17){CBM-M}y{CBM-R}y{CBM-N}g:12200
  17866. {CBM-M}Ix/ei${CBM-R}G(157){CBM-M}x{CBM-R}x{CBM-Q}g:12200
  17867. CIB/ei${CBM-R}G(29){CBM-M}x{CBM-R}x{CBM-N}g:12200
  17868. WIL/ei${CBM-R}"t"{CBM-M}12300
  17869. {$eb}IV/ei${CBM-R}"w"{CBM-M}12400
  17870. J/ei${CBM-R}"b"{CBM-M}{$e3}ol$,x1,y1:
  17871. 'J{CBM-POUND}/{$e3}ol$,x1,y1:{$e4}ol$,x,y,x{CBM-N}10,y{CBM-N}10
  17872. 3J{CBM-R}/g{CBM-R}g{CBM-N}1:{$ec}
  17873. wJ0 *****************************
  17874. {$7b}J
  17875. 0 ****,12,1,"{SHIFT--} save graphic {SHIFT--}",1
  17876. {CBM-T}G4+ 1,12,2,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  17877. {CBM-B}G>+ 1,15,5,"_____________"
  17878. {$f2}Gh+ 1,1,7,"grafikname: ":fi$:fi${CBM-R}H(fi$,13){CBM-N}".bg"
  17879. Hr+ 1,15,12,"saving......"
  17880. +Hw+{$fe}(fi$),b0,p7168{CBM-@}p16383
  17881. 1H\+
  17882. uH . *****************************
  17883. YH{$ea}. ****     e
  17884. 0,1,va$
  17885. Dd% 1,4,0,na$
  17886. Dn%17000
  17887. {CBM-W}D' *****************************
  17888. WD' ****     load graphic    ****
  17889. {$fb}D$' *****************************
  17890. E.'{$e8}:{$de}0,1
  17891. 'E8' 1,12,0,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  17892. hEb' 1,12,1,"{SHIFT--} load graphic {SHIFT--}",1
  17893. IEl' 1,12,2,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  17894. E
  17895. A"$w1(i){CBM-W}0{CBM-A}w1(i){CBM-E}hw{CBM-M}"":9240
  17896. A,$i
  17897. {CBM-@}A6${$e8}
  17898. {CBM-Q}A@${$de}1
  17899. NAj${$e5}1,30,150{CBM-@}30,12{CBM-@}300,12{CBM-@}300,150
  17900. {$f2}At${$e5}1,30,150{CBM-@}0,185{CBM-@}270,185{CBM-@}300,150
  17901. {$f8}A^$:
  17902. BH$j{CBM-R}30{CBM-@}150{SHIFT-POUND}12:{$e5}1,28,j{CBM-@}30,j:
  17903. _BR$i{CBM-R}0{CBM-@}5:sw{CBM-R}{CBM-J}(hw{CBM-Z}10{CBM-D}i{CBM-D}2):sw${CBM-R}D(sw):sx${CBM-R}J(sw$,2,3):po{CBM-R}{CBM-J}((150{CBM-Q}i{CBM-D}25){CBM-Z}8)
  17904. YB{$7c}$E(sx$){CBM-W}10{CBM-M}pl{CBM-R}: "{CBM-N}ac${CBM-N}" to "{CBM-N}af$: 1,4,20,ax$
  17905. G^A ay${CBM-R}"range y: "{CBM-N}bc${CBM-N}" to "{CBM-N}bf$: 1,4,21,ay$
  17906. R^F 17000
  17907. {$f6}^(# *****************************
  17908. _2# ******    barchart   ********
  17909. >_<# *****************************
  17910. i_f#{$e8}:{$de}0,1
  17911. G_p# 1,13,00,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  17912. _z# 1,13,01,"{SHIFT--} 1,({CBM-L}(ha{CBM-D}da{CBM-Q}2)){CBM-N}30,(x{CBM-D}db){CBM-N}12{CBM-@}({CBM-L}(ha{CBM-D}da{CBM-N}2)){CBM-N}30,(x{CBM-D}db){CBM-N}12
  17913. {CBM-B}[? x{CBM-R}x{CBM-N}1
  17914. E[d {$ec}
  17915. R[i x{CBM-R}a:xk{CBM-R}0
  17916.  [n {$eb}{$fc}xk{CBM-E}{CBM-R}299
  17917. \s  ******************************
  17918. *\x  ****   term of function   ****
  17919. o\]  ******************************
  17920. Z\B xk{CBM-R}(x{CBM-D}da{CBM-N}ha{CBM-D}da){CBM-N}30:yk{CBM-R}150{CBM-Q}(y{CBM-D}db{CBM-N}hy{CBM-D}db)
  17921. \G     enter text     *****
  17922. J0 *****************************
  17923. DJ0{$e4}la$,0,0,64,24:{$e3}t9$,0,0:{$e3}la$,0,0
  17924. SJ0{$e3}ol$,x1,y1
  17925. {$e4}J0208,0:{CBM-K}{$f9}ei$
  17926. {$f5}J 0ei${CBM-R}G(13){CBM-M}
  17927. K*0 1,{CBM-J}(x1{CBM-Z}8),{CBM-J}(y1{CBM-Z}8),ei$:x1{CBM-R}x1{CBM-N}8
  17928. #K4012310
  17929. gKP0 *****************************
  17930. KKQ0 ****        wipe  dit graphic    ****
  17931. H{$f4}. *****************************
  17932. {CBM-U}H{$fe}.x{CBM-R}160:y{CBM-R}100:g{CBM-R}2:12040
  17933. UH/a{CBM-R}1{CBM-@}14:w:p${CBM-R}p${CBM-N}G(w):a
  17934. I/252,248,240,248,220,147,7,3,3,2,7,0,7,0
  17935. I/{$e4}ol$,x,y,x{CBM-N}10,y{CBM-N}10
  17936. I0/{$eb}
  17937. 5I5/{$e3}p$,x,y:x1{CBM-R}x:y1{CBM-R}y
  17938. qI:/{CBM-K}ei$:ei${CBM-R}""{CBM-M}g{CBM-R}1:12090
  17939. NId/ei${CBM-R}G(145){CBM-M}y{CBM-R}
  17940. n' 1,0,5,"":{$fe}::" <e>xit or <c>ontinue "
  17941. {CBM-T}Eo'208,0
  17942. {CBM-Z}Ep'{CBM-K}{$f9}ei$
  17943. KEq'ei${CBM-W}{CBM-E}"e"{CBM-P}ei${CBM-W}{CBM-E}"c"{CBM-M}10063
  17944. {CBM-*}Er'ei${CBM-R}"c"{CBM-M}10070
  17945. {$f0}Et'ei${CBM-R}"e"{CBM-M}50
  17946. EFv'{$e8}: 1,12,0,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1: 1,12,1,"{SHIFT--} load graphic {SHIFT--}",1: 1,12,2,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1: 1,15,5,"_____________"
  17947. F{$60}'2:9370
  17948. B$E(sx$){CBM-E}{CBM-R}10{CBM-P}E(sx$){CBM-W}100{CBM-M}pl{CBM-R}1:9370
  17949. {CBM-J}B$E(sx$){CBM-E}{CBM-R}100{CBM-M}pl{CBM-R}0
  17950. FB$ 1,pl,po,sx$
  17951. MB{CBM-@}$i
  17952. WB{CBM-S}$di{CBM-R}36
  17953. {$fd}B{CBM-U}$i{CBM-R}1{CBM-@}az:z1(i){CBM-R}{CBM-J}(150{CBM-Q}w1(i){CBM-Z}hw{CBM-D}120)
  17954. CB${$e5}1,di,150{CBM-@}di,z1(i)
  17955. 3CL${$e5}1,di,z1(i){CBM-@}di{CBM-N}10,z1(i){CBM-Q}10
  17956. xCV${$e5}1,di{CBM-N}10,z1(i){CBM-Q}10{CBM-@}di{CBM-N}30,z1(i){CBM-Q}10
  17957. ZC ${$e5}1,di{CBM-N}30,z1(i){CBM-Q}10{CBM-@}dbarchart {SHIFT--}",1
  17958. {CBM-T}_D# 1,13,02,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  17959. G_N#:"name of chart (max.34)"
  17960. {CBM--}_X#">>>>";na$:""
  17961. {$fa}_#"highest scale-value"
  17962.  
  17963. {$60}#"   <   >"
  17964. {$60}#" :";hw
  17965. 6{$60} #hw{CBM-E}999{CBM-A}hw{CBM-W}5{CBM-M}"":9110
  17966. ?{$60}{CBM-N}#""
  17967. A{$60}{CBM-H}#"name of horizontal axis"
  17968. {$60}{CBM-V}#"   <           yk{CBM-W}12{CBM-A}yk{CBM-E}150{CBM-M}8310
  17969. {CBM-N}\L xk{CBM-W}30{CBM-A}xk{CBM-E}300{CBM-M}8310
  17970. {CBM-Y}\Q {$e5}1,xk,yk
  17971. H\V x{CBM-R}x{CBM-N}1{CBM-Z}(da{CBM-N}2)
  17972. N\{$7b} {$ec}
  17973. {SHIFT--}\  1,4,0,ng$
  17974. {$f7}\ C(fu$){CBM-E}34{CBM-M}sp{CBM-R}2:Usp{CBM-R}4
  17975. ]  1,sp,24,"y=": 1,sp{CBM-N}2,24,fu$
  17976. g] aa${CBM-R}D(a):la{CBM-R}C(aa$):la{CBM-R}la{CBM-Q}1:ab${CBM-R}J(aa$,2,la)
  17977. ]] a{CBM-E}{CBM-R}0{CBM-M}ac${CBM-R}"+"{CBM-N}ab$
  17978. R] a{CBM-W}0{CBM-M}ac${CBM-R}"-"{CBM-N}ab$
  17979. {CBM-K}] ad${CBM-R}D       ****
  17980. KR0 *****************************
  17981. {CBM-H}KZ0{$e4}lb$,0,0,64,24:{$e3}w9$,0,0:{$e3}lb$,0,0
  17982. {SHIFT-@}K0{$eb}
  17983. PK0{$e3}p$,x,y:x1{CBM-R}x:y1{CBM-R}y
  17984. {$ec}K0{CBM-K}ei$:ei${CBM-R}""{CBM-M}g{CBM-R}1:12440
  17985. L{CBM-I}0ei${CBM-R}G(145){CBM-M}y{CBM-R}y{CBM-Q}g:12500
  17986. %L{CBM-D}0ei${CBM-R}G(17){CBM-M}y{CBM-R}y{CBM-N}g:12500
  17987. bL{CBM-L}0ei${CBM-R}G(157){CBM-M}x{CBM-R}x{CBM-Q}g:12500
  17988. ^L{SHIFT-*}0ei${CBM-R}G(29){CBM-M}x{CBM-R}x{CBM-N}g:12500re  (y/n)"
  17989. UN~2208,0:{CBM-K}{$f9}ei$
  17990. N3ei${CBM-W}{CBM-E}"y"{CBM-M}{$de}1:300
  17991. N3{$de}0,1:65341
  17992. {CBM-B}N{CBM-A}6 *****************************
  17993. {$e3}N{SHIFT-@}6 ****     spidergraph     ****
  17994. OD6 *****************************
  17995.  
  17996. ON6{$e8}
  17997. OX6{$de}0,1
  17998. 7OY6 1,12,0,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  17999. xOZ6 1,12,1,"{SHIFT--} spider chart {SHIFT--}",1                          "
  18000. {$7f}QD7 1,05,20,""
  18001. QN7i
  18002. {CBM-M}QX7{$de}1:xm{CBM-R}160:ym{CBM-R}100:xr{CBM-R}80:yr{CBM-R}80
  18003. GQ7{$e2}1,xm,ym,xr,yr,0,45:{$e5}{CBM-@}xm,ym
  18004. {$e8}Q7{$e2}1,xm,ym,xr,yr,45,90:{$e5}{CBM-@}xm,ym
  18005.  
  18006. R7{$e2}1,xm,ym,xr,yr,90,135:{$e5}{CBM-@}xm,ym
  18007. -R7{$e2}1,xm,ym,xr,yr,135,180:{$e5}{CBM-@}xm,ym
  18008. pR7{$e2}1,xm,ym,xr,yr,180,225:{$e5}{CBM-@}xm,ym
  18009. S1{CBM-@}az%
  18010. T{$f0}7{$e2}1,xm,ym,wf(i),wf(i),qu,qu{CBM-N}1:zx(i){CBM-R}P(0):zy(i){CBM-R}P(1)
  18011. {CBM-R}T{$f5}7i{CBM-E}1{CBM-M}{$e5}1,zx(i{CBM-Q}1),zy(i{CBM-Q}1){CBM-@}zx(i),zy(i)
  18012. {CBM-B}T{$fa}7qu{CBM-R}qu{CBM-N}45
  18013. FT8i
  18014. {$ec}T8az%{CBM-R}8{CBM-M}{$e5}1,zx(8),zy(8){CBM-@}zx(1),zy(1)
  18015. {$f7}TL917000
  18016. U: *****************************
  18017. ?U{CBM-I}: ****      trap           ****
  18018. CU{CBM-D}: ******ext",1
  18019. AW{$f8}>{$e4}t9$,0,0,64,24
  18020. UW? 1,2,1,"left",1
  18021. W?{$e4}lt$,0,0,64,24
  18022. W? 1,2,1,"rght",1
  18023. {CBM-P}W?{$e4}rt$,0,0,64,24
  18024. {CBM-Y}W ?{$e8}:
  18025. {SHIFT-+}WHb *****************************
  18026. ~WRb *** 2. menueebene auswahl ***
  18027. #X{$7c}b *****************************
  18028. 1Xb{$de}1:208,0
  18029. tXb{$e4}oa$,0,0,63,27:{$e4}
  18030. ,0,57:208,0:{CBM-K}{$f9}ei$:17030
  18031. ZVbei${CBM-R}"f"{CBM-M}{$e3}oa$,0,0:{$e3}ob$,0,28:208,0:{CBM-K}{$f9}ey$:17030
  18032. XZ{SHIFT-+}bei${CBM-R}"c"{CBM-P}co${CBM-R}"2d-function"{CBM-M}{$e3}oa$,0,0:{$e3}ob$,0,28:{$e3}oc$,0,57:2210:17130
  18033.  
  18034. {$7b} bei${CBM-R}"c"{CBM-M}{$e3}oa$,0,0:{$e3}ob$,0,28:{$e3}oc$:2210:17130
  18035. w{$7b}{$e5}bei${CBM-R}"m"{CBM-P}co${CBM-R}"2d-function"{CBM-M}{$e3}oa$,0,0:{$e3}ob$,0,28:{$e3}oc
  18036. XLE0ei${CBM-R}"b"{CBM-M}{$e3}ol$,x1,y1:
  18037. LJ0ei${CBM-R}"l"{CBM-M}12600
  18038.  LO0ei${CBM-R}"r"{CBM-M}12700
  18039. BLT0{$e3}ol$,x1,y1:{$e4}ol$,x,y,x{CBM-N}10,y{CBM-N}10
  18040. NL{$de}0g{CBM-R}g{CBM-N}1:{$ec}
  18041. M81x2{CBM-R}x1:y2{CBM-R}y1:{$e4}o5$,0,0,64,24:{$e3}lt$,0,0:{$e3}o5$,0,0:12420
  18042. bM1x3{CBM-R}x1:y3{CBM-R}y1:{$e4}o6$,0,0,64,24:{$e3}rt$,0,0:{$e3}o6$,0,0:{$e3}ol$,x1,y1
  18043. xM{CBM-+}1{$e1}0,x2,y2,x3,y3,,1
  18044. CM{CBM-A}
  18045. YO{SHIFT-+}6 1,12,2,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  18046. {SHIFT-POUND}O{$f6}6 1,02,05,"number of items (max. 08): ":az%
  18047. {SHIFT-*}O
  18048. 7az%{CBM-E}8{CBM-A}az%{CBM-W}2{CBM-M}14030
  18049. {$f8}O
  18050. 7 1,00,07,"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  18051. 4P7 1,14,17,"data input": 1,14,18,"{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}": 1,05,20,""
  18052. aP7i{CBM-R}1{CBM-@}az%
  18053. ]P(7i;". prosp.: ";
  18054. R7{$e2}1,xm,ym,xr,yr,225,270:{$e5}{CBM-@}xm,ym
  18055. R7{$e2}1,xm,ym,xr,yr,270,315:{$e5}{CBM-@}xm,ym
  18056. {CBM-O}R7{$e2}1,xm,ym,xr,yr,315,360:{$e5}{CBM-@}xm,ym
  18057. {$e7}R7 1,17,1,tx$(1){CBM-N}D(we(1)){CBM-N}"%":az%{CBM-R}1{CBM-M}14310
  18058. S 7 1,28,5,tx$(2){CBM-N}D(we(2)){CBM-N}"%":az%{CBM-R}2{CBM-M}14310
  18059. dS{CBM-N}7 1,31,12,tx$(3){CBM-N}D(we(3)){CBM-N}"%":az%{CBM-R}3{CBM-M}14310
  18060. SS{CBM-H}7 1,28,1***********************
  18061. KU{CBM-L}:V 
  18062. U> *****************************
  18063. {CBM-W}U> *** 2.menueebene & mode  ****
  18064. WU> *****************************
  18065. {$de}U>{$de}1
  18066. {$f5}U{CBM-POUND}> ,0,0,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  18067. QV{CBM-R}> 1,0,1,"{SHIFT--}<s>ave{SHIFT--}",1: 1,0,2,"{SHIFT--}<e>dit{SHIFT--}",1: 1,0,3,"{SHIFT--}<c>opy{SHIFT--}",1: 1,0,4,"{SHIFT--}<f>ull{SHIFT--}",1:ob$,0,28,63,56
  18068. {$7b}Xbco${CBM-R}"2d-function"{CBM-M}{$e4}oc$,0,57,63,64
  18069. Xb{$e3}ma$,0,0:{$e3}mb$,0,28
  18070. {CBM-W}Xbco${CBM-R}"2d-function"{CBM-M}{$e3}mc$,0,48
  18071. {CBM-V}X{CBM-@}b208,0
  18072. HX{CBM-S}b{CBM-K}{$f9}ei$
  18073. YX{CBM-W}bei${CBM-R}"b"{CBM-M}50
  18074. Y{CBM-U}bei${CBM-W}{CBM-E}"s"{CBM-P}ei${CBM-W}{CBM-E}"e"{CBM-P}ei${CBM-W}{CBM-E}"c"{CBM-P}ei${CBM-W}{CBM-E}"f"{CBM-P}ei${CBM-W}{CBM-E}"b"{CBM-P}ei${CBM-W}{CBM-E}"m"{CBM-M}17060
  18075. EY{CBM-X}bei${CBM-R}"s"{CBM-P}co${CBM-R}"2d-function"{CBM-M}{$e3}oa$,0,0:
  18076. K$,0,57:mr${CBM-R}"more":8030
  18077. B{$7b}{$ea}b17030
  18078. Y{$7b}{$f4}b ****************
  18079. {$7b}{$fe}b * programmende *
  18080. {CBM-M}{$7b}c ****************
  18081.  
  18082.  
  18083. ion"{CBM-M}{$e3}oa$,0,0:{$e3}ob$,0,28:{$e3}oc$,0,57:12000:17130
  18084. ZLbei${CBM-R}"e"{CBM-M}{$e3}oa$,0,0:{$e3}ob$,0,28:12000:17130
  18085. [ZQbei${CBM-R}"f"{CBM-P}co${CBM-R}"2d-function"{CBM-M}{$e3}oa$,0,0:{$e3}ob$,0,28:{$e3}oc$
  18086. 117000
  18087. MH2 *****************************
  18088. {CBM-Q}MR2 ****        abort        ****
  18089. OM{CBM--}2 *****************************
  18090. XM{$e6}2{$de}0,1
  18091. {$fb}M{$eb}2 1,11,0,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  18092. N{$f0}2 1,11,1,"{SHIFT--} back to system {SHIFT--}",1
  18093. aN{$f5}2 1,11,2,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  18094. DN{$fa}2 1,10,10,"are you su:pv(i)
  18095. P27"";i;". actual: ";:av(i)
  18096.  P77we(i){CBM-R}{CBM-J}((av(i){CBM-Z}pv(i)){CBM-D}100)
  18097. EP<7"";i;". legend: ";:tx$(i)
  18098. {CBM--}Pf7tx$(i){CBM-R}H(tx$(i),5)
  18099.  
  18100. Qp7 1,05,20,"                                 "
  18101. >Qz7 1,05,21,"                                 "
  18102. OQ_7 1,05,22,"       9,tx$(4){CBM-N}D(we(4)){CBM-N}"%":az%{CBM-R}4{CBM-M}14310
  18103. {CBM-I}S{CBM-V}7 1,17,23,tx$(5){CBM-N}D(we(5)){CBM-N}"%":az%{CBM-R}5{CBM-M}14310
  18104. PSH7 1,3,19,tx$(6){CBM-N}D(we(6)){CBM-N}"%":az%{CBM-R}6{CBM-M}14310
  18105. {$fe}SR7 1,0,12,tx$(7){CBM-N}D(we(7)){CBM-N}"%":az%{CBM-R}7{CBM-M}14310
  18106. T{CBM--}7 1,3,5,tx$(8){CBM-N}D(we(8)){CBM-N}"%"
  18107. fT{$e6}7qu{CBM-R}0:i{CBM-R}1{CBM-@}az%:wf(i){CBM-R}{CBM-J}(we(i){CBM-D}0.80):i
  18108. sT{$eb}7i{CBM-R} 1,0,5,"{SHIFT--}<b>ack{SHIFT--}",1: 1,0,6,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  18109. V{CBM-Y}>{$e4}ma$,0,0,63,27:{$e4}mb$,0,28,63,56
  18110. V{CBM-U}>{$e8}
  18111. FV{CBM-O}> 1,0,0,"{SHIFT--}<m>ore{SHIFT--}",1: 1,0,1,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  18112. YV{SHIFT-@}>{$e4}mc$,0,0,63,16
  18113. {CBM-*}V{CBM-C}>{$e8}
  18114. {$f7}VF> 1,0,0,"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}",1
  18115. WP> 1,0,1,"{SHIFT--} wipe {SHIFT--}",1
  18116. 'WZ> 1,0,2,"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}",1
  18117. :W{$e4}>{$e4}w9$,0,0,64,24
  18118. nW{$ee}> 1,2,1,"t{$e3}ob$,0,28:{$e3}oc$,0,57:11000:17130
  18119. YBbei${CBM-R}"s"{CBM-M}{$e3}oa$,0,0:{$e3}ob$,0,28:11000:17130
  18120. {SHIFT--}YGbei${CBM-R}"e"{CBM-P}co${CBM-R}"2d-function"{CBM-M}{$e3}oa$,0,0:{$e3}ob$,0,28:{$e3}oc$,0,57:12000:17130
  18121. ZLbei${CBM-R}"e"{CBM-M}{$e3}oa$,0,0:{$e3}ob$,0,28:12000:17130
  18122. [ZQbei${CBM-R}"f"{CBM-P}co${CBM-R}"2d-function"{CBM-M}{$e3}oa$,0,0:{$e3}ob$,0,28:{$e3}oc$ Zweiter Teil der Programmbeschreibung zuLiedhelfer.
  18123.  
  18124. BASIC
  18125. Ein fertiges, mit Play abspielbares Musikst{CBM-X}ck kann in ein BASIC-Programm {CBM-X}bersetzt und auf Diskette gespeichert werden. Anzugeben sind hierf{CBM-X}r der Filename und die Anzahl der Schleifendurchl{CBM-F}ufe den bis acht Sekunden eingestellt werden. Eine entsprechende Tabelle finden Sie in Ihrem Rechnerhandbuch. Dem Anschlag folgt eine Abfallphase, wenn etwa ein Ventil sich schlagartig ge{CBM-C}ffnet hat, der Ton schmetternd herauskommt und der Bl{CBM-F}ser sich jetzt e Pegel null w{CBM-F}hlen, bei einer Orgel oder einem Akkordeon dagegen folgt dem Anschlag vielleicht ein nur geringf{CBM-X}gig leiserer Dauerton, so da{CBM-V} hier ein Wert nahe f{CBM-X}nfzehn einzustellen w{CBM-F}re.
  18126. Wenn eine Taste losgelassen wird, h{CBM-C}rt der Ton nicht schlagartig au  als wenn die Taste weiterhin gedr{CBM-X}ckt bleibt. Mir erschien eine Zehn f{CBM-X}r den Abfall und eine Neun f{CBM-X}r den Ausklang angebracht.
  18127. Im Register f{CBM-X}nf des SID an Adresse 54277 werden Attack und Decay f{CBM-X}r den Oszillator eins eingestellt. Dabei ist der Wert von  m Wert von 2048 sind beide Phasen gleich lang, bei anderen Werten ist das Verh{CBM-F}ltnis zu der einen oder anderen Seite hin verschoben, wodurch der Ton d{CBM-X}nner klingt. Bei den Werten null oder 4095 ist gar nichts mehr zu h{CBM-C}ren. Einzutragen f{CBM-X}r Oszillator ein 
  18128.  f{CBM-X}r die Dauer einer Viertelnote. F{CBM-X}r den C128 ist eventuell ein etwas kleinerer Wert zu w{CBM-F}hlen, da dessen BASIC etwas langsamer ist als das des C64.
  18129.  
  18130. Der Sound macht's
  18131. Der Men{CBM-X}punkt Sound blieb bisher noch unerw{CBM-F}hnt. Er dient dazu, den Klang und die Lau .
  18132.  
  18133. Die H{CBM-X}llkurve
  18134. Die Charakteristik eines Klanges wird von Wellenform und H{CBM-X}llkurve bestimmt. Wir unterscheiden beim Erklingen eines Tones vier verschiedene Phasen. Wenn Sie etwa in eine Trompete blasen, dauert es ein wenig, bis der Ton kommt. Diese erst twas zur{CBM-X}ckhalten mu{CBM-V}, damit ihm die Luft nicht ausgeht - die Lautst{CBM-F}rke geht zur{CBM-X}ck. Die Dauer des Abfalls (Decay) wird ebenfalls durch Werte zwischen null und f{CBM-X}nfzehn geregelt, allerdings jetzt zwischen acht Millisekunden und 24 Sekunden. Nun ist nur  
  18135. f, sondern klingt unter Umst{CBM-F}nden noch einige Zeit nach. Durch Werte von null bis f{CBM-X}nfzehn wird die Zeitdauer des Ausklingens (Release) eingestellt. Im Rechnerhandbuch finden Sie f{CBM-X}r mehrere Instrumente Beispielswerte, die Sie allerdings nicht unbesehen  Attack mit dem Faktor 16 zu multiplizieren: poke54277,16*at+de
  18136. F{CBM-X}r Sustain und Release ist Register sechs an Adresse 54278 zust{CBM-F}ndig: poke54278,16*su+re
  18137. Wenn wir uns nicht f{CBM-X}r die Rechteckschwingung entscheiden, sind diese Voreinstellungen ausreichend. F s ist die Pulsweite in die Register zwei und drei an den Adressen 54274 und 54275:
  18138. ph=int(pw/256)
  18139. pl=pw-256*ph
  18140. poke54274,pl
  18141. poke54275,ph
  18142.  
  18143. In den h{CBM-C}chsten T{CBM-C}nen
  18144. Im Soundmen{CBM-X} ist etwas irref{CBM-X}hrend der Begriff Frequenz zu sehen. Es handelt sich hierbei jedo tst{CBM-F}rke festzulegen sowie die Register des Soundchips auszuprobieren. Uns bietet er die Gelegenheit, zu kl{CBM-F}ren, welche Register gesetzt werden m{CBM-X}ssen, um Musik programmieren zu k{CBM-C}nnen.
  18145.  
  18146. Die Lautst{CBM-F}rke
  18147. Ist die Lautst{CBM-F}rke auf null gesetzt, ist nichts zu h{CBM-C} 
  18148. e Phase ist die Anstiegsphase (Attack), die im Soundmen{CBM-X} als Anschlag bezeichnet wird. Bei einem Klavier kommt der Anschlag kurz und trocken, die Anstiegsphase dauert nicht lange. Mit Werten von null bis f{CBM-X}nfzehn k{CBM-C}nnen Anstiegszeiten von zwei Millisekun noch die Frage, auf welchen Pegel die Lautst{CBM-F}rke zur{CBM-X}ckgeht (Sustain). Dies wird wieder durch Werte von eins bis f{CBM-X}nfzehn angegeben. Bei einem Saiteninstrument oder einem Glockenspiel verklingt der Ton, bis er nicht mehr zu h{CBM-C}ren ist, und wir w{CBM-X}rden den  {CBM-X}bernehmen sollten. So ist dort f{CBM-X}r das Klavier lediglich bei Attack ein von null verschiedener Wert angegeben, der zudem mit neun etwas kurz gew{CBM-F}hlt ist. Auch nach dem Loslassen einer Taste klingt jedoch das Klavier noch nach, allerdings nicht so lange, {CBM-X}r Rechteckschwingungen ist jedoch noch eine Pulsweite anzugeben. Dies k{CBM-C}nnen Werte zwischen null und 4095 sein. Die Pulsweite gibt das Teilungsverh{CBM-F}ltnis zwischen den beiden Phasen wieder, in denen der maximale und der minimale Pegel herrschen. Bei eine!ch um den in die Frequenzregister einzutragenden Wert, der proportional zur tats{CBM-F}chlichen Frequenz ist. Wenn Sie mit der Tastatur im Soundmen{CBM-X} T{CBM-C}ne spielen, k{CBM-C}nnen Sie den dem jeweiligen Ton entsprechenden Wert ablesen. Ist lediglich ein einziger Wert rf ren. Sie kann auf Werte zwischen null und f{CBM-X}nfzehn eingestellt werden. Die Lautst{CBM-F}rke l{CBM-F}{CBM-V}t sich nur f{CBM-X}r alle drei Oszillatoren des SID-Chips gemeinsam regeln. Zust{CBM-F}ndig ist das Register 24 an Adresse 54296. poke54296,15 stellt die maximale Lautst{CBM-F}rke ein!tbit, das in diesem Fall gesetzt und dann zur{CBM-X}ckgesetzt werden mu{CBM-V}, nachdem nat{CBM-X}rlich vorher der Rauschgenerator oder der mit diesem kombinierte ausgeschaltet wurde.
  18149. Im Soundmen{CBM-X} finden Sie das Steuerregister, nach den einzelnen Bits aufgeschl{CBM-X}sselt, als!dem Bildschirm sehen, so ist dies nur deshalb m{CBM-C}glich, weil das Programm die Registerinhalte zus{CBM-F}tzlich in Variablen verwaltet.
  18150. Das BASIC-Programm Musikdemo wurde vom Liedhelfer aus dem File ZELL erzeugt. Sie k{CBM-C}nnen dies nachvollziehen, indem Sie im Edit"on Wochentag, Tagesdatum und Jahr die m{CBM-C}glichen Monate an. Beispiel: Einen Freitag, den 13., gab es im Jahr 1189 im Januar und Oktober.
  18151. Zum vierten Punkt, "Festtage": Dieses Unterprogramm gibt f{CBM-X}r ein beliebiges Jahr die gesetzlichen Feiertage in Deutsch! f{CBM-X}r einen einzigen Ton bekannt, lassen sich durch die mathematische Formel f=rf*2^(ok+nh*1/12) alle {CBM-X}brigen Werte in jeder Oktave okt f{CBM-X}r jeden Halbton ausrechnen.
  18152. Dieses Verfahren bei jedem Ton in dem Augenblick, da er zu spielen ist, anzuwenden, ist a!
  18153. ollte eine Tontabelle die Werte bereits aufgeteilt in Low- und Highbyte enthalten. Register null und eins sind die Frequenzregister von Oszillator eins. Die Adressen sind 54272 und 54273. Die Berechnung von Low- und Highbyte erfolgt genauso wie bei der P!ugen einer S{CBM-F}gezahnschwingung w{CBM-F}re demnach n{CBM-C}tig: poke54276,33. Zum Ausschalten w{CBM-F}re m{CBM-C}glich: poke54276,0. Jedoch sollte der Oszillator auch f{CBM-X}r den Release-Zyklus eingeschaltet sein, so da{CBM-V} hier lediglich poke54276,32 das Richtige ist. Durch Addition la! die letzten acht Men{CBM-X}punkte. Mit der Returntaste werden diese "Schalter" jeweils umgestellt. Beim Setzen des Gate-Bits wird der Ton eingeschaltet, beim Zur{CBM-X}cksetzen ausgeschaltet. Wird die Returntaste dagegen bei den ersten sieben Men{CBM-X}punkten gedr{CBM-X}ckt, !
  18154. or {CBM-X}ber F8 und l ZELL laden, im Men{CBM-X} die Funktion Wandeln aufrufen und {CBM-X}ber Optionen und BASIC die Sache in ein BASIC-Programm umwandeln. Die Daten der ersten Datazeile bedeuten Lautst{CBM-F}rke, Pulsfrequenz-Lowbyte, Pulsfrequenz-Highbyte, Attack/Decay, Susta!e klar sein. Zu jedem beliebigen Datum der christlichen Zeitrechnung bis zum Jahr 2299 rechnet das Programm den richtigen Wochentag aus.
  18155. Der zweite Punkt, "Tagesdatum", rechnet f{CBM-X}r einen gegebenen Wochentag, Monat und Jahr, die m{CBM-C}glichen Daten aus. Ein B!llerdings nicht ratsam, da solche Berechnungen zuviel Zeit kosten. Daher sollten f{CBM-X}r ein eigenes Musikprogramm diese Werte erst errechnet und dann in einem Feld abgelegt werden, woraufhin im Hauptprogramm ein schneller indizierter Zugriff erfolgen kann.
  18156. !ulsweite.
  18157.  
  18158. Ein Ton erklingt
  18159. Wenn die Voreinstellungen Lautst{CBM-F}rke, H{CBM-X}llkurve und eventuell Pulsweite getroffen sind und au{CBM-V}erdem die Tonh{CBM-C}he in das Frequenzregister eingetragen ist, mu{CBM-V} nur noch der Ton ein- und nachher wieder ausgeschaltet werden. Daf{CBM-X}r !
  18160. ssen sich auch mehrere Wellenformen kombinieren. Wird jedoch Rauschen mit einer weiteren Wellenform verbunden, bleibt zumeist der Oszillator stehen und mu{CBM-V} erst wieder durch poke54276,8 in Funktionsbereitschaft gesetzt werden. Im Soundmen{CBM-X} ist es das Tes!erscheint ein Cursor, der darauf wartet, da{CBM-V} Sie eine {SHIFT-+}nderung des augenblicklichen Wertes vornehmen. {SHIFT--}brigens k{CBM-C}nnen die angesprochenen Soundregister weder mit einem PEEK-Befehl noch auf andere Art ausgelesen werden. Wenn Sie deren Inhalte trotzdem auf "in/Release und Schwingungsform. Die restlichen Daten bestehen aus Vierergruppen, die jeweils Frequenz-Lowbyte, Frequenz-Highbyte, Haltedauer und Pausendauer enthalten.
  18161. Zum Ausprobieren benutzen Sie bitte eine neue Diskette, da diese fast randvoll mit Pro!eispiel: Ihre Oma schw{CBM-F}rmt immer davon, wie der Opa und sie sich am ersten Freitag im Mai 1948 kennengelernt haben. Benutzen Sie Men{CBM-X}punkt 2 und schenken Sie der Oma am 7. Mai Bl{CBM-X}mchen.
  18162. Der dritte Punkt ist im Ergebnis {CBM-F}hnlich, nur gibt er nach Eingabe v!Eine andere M{CBM-C}glichkeit ist die Erfassung von zw{CBM-C}lf Halbt{CBM-C}nen einer Oktave. F{CBM-X}r jede weitere niedrigere Oktave m{CBM-X}ssen die Werte lediglich jeweils halbiert, f{CBM-X}r eine h{CBM-C}here Oktave jeweils verdoppelt werden. Da auch Teilen und Multiplizieren Zeit kostet, s!ist Register 4 an Adresse 54272 zust{CBM-F}ndig. Einzutragen ist ein Wert, der f{CBM-X}r die Wahl der Wellenform zust{CBM-F}ndig ist:
  18163.  
  18164. 128 Rauschen
  18165.  64 Rechteck
  18166.  32 S{CBM-F}gezahn
  18167.  16 Dreieck
  18168.  
  18169. Diese Werte sind um eins zu erh{CBM-C}hen, wenn der Ton eingeschaltet werden soll. Zum Erze"m SYSMC, das in den Programmzeilen 92 und 93 nachgeladen wird, enth{CBM-F}lt die Maschinenroutinen SYSAT zur Cursorpositionierung und SYSRE, ein Return mit gleichzeitigem Verstellen des Readzeigers auf die Zeile, die den SYSRE-Befehl enth{CBM-F}lt. Eine Restore-Anwe
  18170. igrammen und Daten gef{CBM-X}llt ist und somit kaum noch Speicherplatz besitzt.ber Optionen und BASIC die Sache in ein BASIC-Programm umwandeln. Die Daten der ersten Datazeile bedeuten Lautst{CBM-F}rke, Pulsfrequenz-Lowbyte, Pulsfrequenz-Highbyte, Attack/Decay, Susta"chen Kalenderrechnung. Nach Eingabe wird zun{CBM-F}chst jedes Datum gepr{CBM-X}ft (kein 54. April m{CBM-C}glich), dann wird der Sonntagsbuchstabe errechnet, anschlie{CBM-V}end je nach Unterprogramm Wochentag oder Tagesdatum.
  18171. Die Osterrechnung erfolgt der einheitlichen Handhabun"
  18172. k{CBM-C}nnen Sie SYSMC mit LOAD und SAVE genauso kopieren wie ein normales BASIC-Programm.
  18173. Damit der Ausdruck des Festtagskalenders ordentlich erfolgt, ist ein Epson-kompatibler Drucker n{CBM-C}tig, etwa der Citizen-120D im Epson-Modus. Bei einem lediglich Commodore" L{CBM-F}nge gebracht wird.
  18174. Sollten Sie im Programmlisting einige unklare Stellen entdecken, etwa 3740 Subroutine Trap-Resume oder 1430 Er{CBM-C}ffnungsgrafik und 1200 Windowstrings, so handelt es sich dabei um nicht mehr vorhandene, au{CBM-V}er Kraft gesetzte oder abge{CBM-F}n"              Lotterie
  18175.           Gl{CBM-X}ck mit Karten
  18176. Das Programm Lotterie hat nichts mit "6 aus 49" zu tun. Es handelt sich um ein Spiel, in dem statt Losen Karten Verwendung finden. Teilnehmen k{CBM-C}nnen bis zu acht Spieler und ein Bankhalter.
  18177.  
  18178. Lotterie wird 
  18179. Visung, wie sie der C128 etwa mit RESTORE680 kennt, wird durch GOSUB680 und dem SYSRE-Befehl in Zeile 680 hergestellt.64 wurde das urspr{CBM-X}ngliche Window anders realisiert, die Trap-Routine au{CBM-V}er Kraft gesetzt und die Er{CBM-C}ffnungsgrafik beseitigt.
  18180. Das Program"
  18181. he des Mindesteinsatzes betragen und wird innerhalb dieser Grenzen vom K{CBM-F}ufer bestimmt. Es k{CBM-C}nnen auch Karten zu unterschiedlichen Preisen gekauft werden. Es ist aber nicht m{CBM-C}glich, eine Karte, die zu einem bestimmten Preis gekauft wurde, zur{CBM-X}ckzugeben o"land mit Datum und Wochentag an. Zus{CBM-F}tzlich k{CBM-C}nnen vom Benutzer bis zu 16 weitere Daten eingegeben werden, zum Beispiel Geburtstage. Diese werden mit den gesetzlichen Feiertagen berechnet, und ein nach Daten sortierter Festkalender des Jahres wird wahlwe"g wegen ebenfalls nach dieser alten Methode der Goldenen Zahl und der Ostergrenzen. Wer m{CBM-C}chte, kann sich einmal an einem Programm f{CBM-X}r die Gauss'sche Osterrechnung versuchen; sie erfordert nicht so viele Datas, hat aber nicht den altert{CBM-X}mlichen Reiz der "-kompatiblen Drucker erhalten Sie zwar auch einen Ausdruck, jedoch ist dieser etwas unsch{CBM-C}n. Falls Sie den Ausdruck an Ihren Drucker anpassen wollen, finden Sie die Druckersteuerstrings im Programm von Zeile 1300 bis 1410. Die Druckausgabe findet sich in"
  18182. derte Routinen beziehungsweise Stringdefinitionen, die zun{CBM-F}chst f{CBM-X}r die Rechner C16/P4 von Bedeutung waren. F{CBM-X}r den C64 wurde das urspr{CBM-X}ngliche Window anders realisiert, die Trap-Routine au{CBM-V}er Kraft gesetzt und die Er{CBM-C}ffnungsgrafik beseitigt.
  18183. Das Program"mit zwei Kartenspielen zu je 32 Blatt (Skatblatt) gespielt. Zuerst wird der Mindesteinsatz festgelegt. Der Bankhalter verkauft aus einem Skatspiel der Reihe nach an jeden Mitspieler so viele Karten, wie dieser w{CBM-X}nscht. Der Preis kann das Ein- bis Zehnfac#der deren Preis zu {CBM-F}ndern.
  18184. Wenn alle Spieler Karten gekauft haben, beginnt das Spiel. Der Bankhalter nimmt das gut gemischte zweite Kartenspiel und legt die ersten zwei Karten nebeneinander auf den Tisch. Wer eine oder beide Karten gekauft hat, erh{CBM-F}lt de"ise auf dem Bildschirm oder auf einem Drucker ausgegeben. Die Zusatzdaten werden programmintern gespeichert, so da{CBM-V} sie nicht f{CBM-X}r jedes neu abgefragte Jahr gesondert eingegeben werden m{CBM-X}ssen.
  18185. Das Programm rechnet nach der oben beschriebenen mittelalterli"Sonnen- und Mondzyklen.
  18186.  
  18187. Besonderheiten
  18188. Wenn Sie das Programm Kalender auf eine andere Diskette kopieren, ist es dort alleine nicht lauff{CBM-F}hig. Es mu{CBM-V} zus{CBM-F}tzlich das Programm SYSMC kopiert werden. Auch wenn es sich dabei um ein Maschinenprogramm handelt, " den Zeilen 3610 bis 3720. Statt mit Tabulatoren f{CBM-X}r die Spalten zu arbeiten, ist bei Commodore-Druckern eine Formatierung mit Hilfe der LEFT$-Anweisung durchzuf{CBM-X}hren, durch die ein String, an den zus{CBM-F}tzliche Leerzeichen angef{CBM-X}gt werden, auf die richtige
  18189. {CBM-POUND}lte Gewinn. Im mittleren, gr{CBM-X}nen Bankfeld erscheint oben rot oder schwarz der Verlust oder Gewinn der Bank. Unten wird die Anzahl der noch unverkauften Karten gezeigt. Zahlen Verlust und schwarze Zahlen Gewinn.
  18190. Auch auf dem Spielfeld wird w{CBM-F}hrend des Spi#n daf{CBM-X}r bezahlten Einsatz zur{CBM-X}ck. Danach werden die n{CBM-F}chsten beiden Karten in die zweite Reihe unter die beiden ersten gelegt. Daf{CBM-X}r wird der doppelte Einsatz ausgezahlt. So werden insgesamt acht Karten in vier Reihen ausgelegt.
  18191. Nach jeder Reihe wird ers#Nach Run k{CBM-C}nnen Sie zuerst mit "J" die Spielregeln auf dem Bildschirm anzeigen lassen. Diese k{CBM-C}nnen mit Space durchgebl{CBM-F}ttert werden. Durch die Eingabe von "N" beginnt das Spiel ohne Anzeige der Regeln.
  18192. Als erstes will das Programm wissen, wie viele Mits#blinkt, kann von der Bank Karten kaufen. Er nennt dem Bankhalter seinen Wunsch, und dieser gibt ihn {CBM-X}ber die Tastatur ein: Er dr{CBM-X}ckt je nach H{CBM-C}he des Einsatzes die entsprechende Taste so oft, wie Karten verlangt werden. Will der Spieler also drei Karten #
  18193. rhalb der Grenzen vom Ein- bis Zehnfachen des Mindesteinsatzes. Dabei kann der Einsatz f{CBM-X}r jede Karte wechseln oder f{CBM-X}r alle Karten gleich sein. Der Computer speichert die M{CBM-C}glichkeiten und zahlt auch die Gewinne richtig aus.
  18194. Hat der erste Spieler genug #neues Spiel starten oder durch F2 bekanntgeben, da{CBM-V} abgebrochen werden soll. Nach diesem Befehl gibt der Computer die Endabrechnung aus. Hier wie {CBM-X}berall bedeuten rote Zahlen Verlust und schwarze Zahlen Gewinn.
  18195. Auch auf dem Spielfeld wird w{CBM-F}hrend des Spi#ahlen Gewinn.
  18196. Auch au"5Spielfeld wird w{CBM-F}hrend des Spieles jederzeit der aktuelle Spielstand angezeigt.
  18197. Rechts neben dem Namen erscheint die H{CBM-C}he des Einsatzes im laufenden Spiel. Unter den Namen wird der an die oder der von der Bank zu zahlende Betrag#
  18198. t der entsprechende Gewinn ausgezahlt, bevor die n{CBM-F}chsten zwei Karten aufgedeckt werden. Es wird f{CBM-X}r jede Reihe der Einsatz mit der Reihennummer multipliziert und gewonnen. Nach der vierten Reihe wird nur noch eine Karte aufgedeckt, der Hauptgewinn. Wer #pieler (ohne den Bankhalter) teilnehmen. Es k{CBM-C}nnen ein bis acht Teilnehmer eingegeben werden. Es folgt die Angabe der Namen der Mitspieler. Falls nur Return ohne weitere Eingabe erfolgt, generiert das Programm den Namen, indem es die Ziffern Eins bis Ach#zum doppelten und zwei Karten zum zehnfachen Einsatz, wird die Taste zwei dreimal und die Taste null zweimal gedr{CBM-X}ckt. Taste null entspricht dem zehnfachen Einsatz.
  18199. Sofort nach Tastendruck erscheinen die Karten auf dem Spielfeld. Im allgemeinen kann jede#Karten erstanden, gibt der Bankhalter dies durch Dr{CBM-X}cken der Plustaste (+) bekannt, und der Name des n{CBM-F}chsten Spielers beginnt zu blinken. Wenn alle Karten verkauft sind oder keiner der Spieler mehr Karten kaufen will, beginnt nach Druck auf F1 das Spiel#
  18200. eles jederzeit der aktuelle Spielstand angezeigt.
  18201. Rechts neben dem Namen erscheint die H{CBM-C}he des Einsatzes im laufenden Spiel. Unter den Namen wird der an die oder der von der Bank zu zahlende Betrag ausgewiesen. Daneben steht der im laufenden Spiel erzie
  18202. {$e1} ausgewiesen. Daneben steht der im laufenden Spiel erzielte Gewinn. Im mittleren, gr{CBM-X}nen Bankfeld erscheint oben rot oder schwarz der Verlust oder Gewinn der Bank. Unten wird die Anzahl der noch unverkauften Karten gezeigt. Zahlen Verlust und schwarze Z#diese Karte besitzt, erh{CBM-F}lt den zehnfachen Einsatz ausgezahlt, und das Spiel ist zu Ende. Sollten nicht alle Karten verkauft worden sein, verf{CBM-F}llt ein eventuell darauf f{CBM-F}lliger Gewinn zugunsten der Bank.
  18203. An diese Vorgabe h{CBM-F}lt sich das Programm Lotterie. #t zweimal ins Namensfeld stellt. Als letztes vor Spielbeginn ist noch die H{CBM-C}he des Mindesteinsatzes durch Eingabe der Ziffern Eins, Zwei oder Drei festzulegen.
  18204. Das Spielfeld wird aufgebaut, und der Name des ersten Spielers blinkt. Immer der, dessen Name #r Spieler so viele Karten kaufen, wie er will, vorausgesetzt, es ist noch Platz auf seinem Spielfeld. Aber er sollte auch f{CBM-X}r die nachfolgenden Spieler noch genug {CBM-X}briglassen. Die H{CBM-C}he des Einsatzes wird in jedem Falle vom K{CBM-F}ufer bestimmt, nat{CBM-X}rlich inne#. Es werden vier Runden gespielt, jede mu{CBM-V} mit F1 gestartet werden.
  18205. Gewinnerrechnung und Auszahlung erfolgen wie oben beschrieben. Nach der vierten Runde wird nach weiterem F1 der Hauptgewinn gezogen. Nachdem dieser ausgezahlt ist, k{CBM-C}nnen Sie mit F1 ein