Get Koala Pic
Wenn Sie sowohl einen C 64 als auch das Koala Pad besitzen, dann können Sie jetzt Koala-Bilder in ganz »normale« Basic-Programme einbeziehen.

Sie möchten Koala-Bilder auch ohne Koala laden und zeigen können. Wahrscheinlich haben Sie das Programm am Ende der Anleitung abgetippt, wie ich. Aber dann dachten Sie vielleicht auch, wie schön es wäre, wenn es möglich wäre, die Bilder der Reihe nach, wie eine Dia-Show abzurufen. Dann müßte man nicht mehr STOP-RETURN drücken, und unser Basic-Programm könnte weitergehen. Somit hätte man vielfältige Möglichkeit, Koala-Bilder anzuwenden! Zum Beispiel könnte man:
- …mit Koala ein Titelbild machen
- …mit Koala ein Abenteuer-Programm schreiben; denn: Wenn der Anwender einen Text lesen muß, während das Bild geladen wird, ergibt sich praktisch keine »Wartezeit« für ihn!
- …mit Koala ein Lernprogramm schreiben.
Tja, so ähnlich waren meine Gedankengänge. Aber meine Programmierkenntnisse in Basic nützen nichts; so ein Programm muß in Maschinensprache geschrieben werden! Also telefonierte ich mit einigen C 64-Besitzer-Kollegen herum und wurde fündig: Michael M. Meiszl war schon dabei, an so einem Programm zu basteln. Er paßte es meinen Wünschen an und stellte es in Rekordzeit fertig. Und nun können Sie alles oben Erwähnte tatsächlich tun, und noch viel mehr.
Listing 1 ist das Hauptprogramm. Es wird als erstes geladen. Listing 2 ist ein kleines Anwenderbeispiel, damit Sie sehen, wie die SYS-Befehle in ein normales Basic-Programm eingebaut werden. Bild 1 ist eine Übersicht, welcher SYS-Befehl nun was bewirkt. Falls Sie zwei Laufwerke besitzen, dann können Sie wahlweise 8 oder 9 eingeben.
Das Hauptprogramm ist sehr anwenderfreundlich: Es geht kein Basic-Speicherplatz verloren. Da jedes Bild einzeln geladen und danach alle Zeiger auf Null gesetzt werden, kann man, der Reihe nach, praktisch unzählige Bilder hintereinander im selben Basic-Programm zeigen. Hierzu muß der Anwender nur die Bilder-Diskette einlegen. Sollten Sie mehrere Bild-Disketten benützen wollen, so genügt ein PRINT-Hinweis auf dem Bildschirm, welche Diskette jetzt eingelegt werden muß. Da die Bilder per Leertaste »beendet« werden, kann das Programm nach einem Bild ganz normal weiterlaufen. Ein SYS-Befehl ermöglicht das Nochmalzeigen des letzten Bildes. Dies kann bei Lernprogrammen von Vorteil sein. Ein anderer SYS-Befehl ermöglicht das Laden ohne Zeigen, so daß dieses Bild dann blitzschnell abgerufen werden kann, da es »unsichtbar« bereits »besteht«. Wenn Sie die Tabelle griffbereit neben sich legen, haben Sie die SYS-Befehle bald im Griff.
Noch ein paar Koala-Tips
- Im Menü finden Sie »INIT DISK«. Damit ist nicht »initialisieren« sondern formatieren gemeint. Trotzdem: Bei Disketten, die mit Koala formatiert wurden, ging jeder zweite Versuch, ein Bild zu laden schief: Dabei stieg dann jedesmal der Computer aus, so daß nicht nur das Bild verloren war, sondern man Koala neu laden mußte, und so weiter.
- Ich habe bereits des öfteren gelesen, daß die Handhabung im ZOOM-Modus so schwierig sein soll. Mein Vorschlag: Setzen Sie den Pfeil an die richtige Stelle und drücken Sie dann kurz auf die Taste oben. Auf diese Weise kann man punktweise (ebenfalls sehr schnell in lauter Einzelpunkt-Aktionen) und extrem akkurat arbeiten!
- Wenn Sie ein größeres Stück sauber »radieren« wollen (was durch DRAW mit Hintergrundfarbe leicht ist), dann hilft Ihnen ZOOM ebenfalls: »Radieren« Sie mit ZOOM erst die Ränder mit dem feinsten »Pinsel«, dann können Sie mit einem breiten »Pinselstrich« den Mittelteil schnell wegmalen!
- Wenn Sie etwas Riskantes ausprobieren wollen, was möglicherweise Ihr Bild kaputtmachen müßte (erst »radieren«, dann das Neue zeichnen, dann erst sehen, ob es Ihnen gefällt), dann rate ich Ihnen: Kopieren Sie das gesamte Bild per COPY (dem ein SWAP vorausgehen muß) auf den zweiten Bildschirm. Jetzt können Sie nach Herzenslust experimentieren, denn Ihr Bild existiert ja noch »im Original« auf der anderen Grafikseite.
So, jetzt hoffe ich nur noch, daß Sie in Zukunft noch mehr Spaß mit Koala haben werden.
(Vera F. Birkenbihl/aa)100 rem display koala pic v2.1 110 rem (c) 1984 by michael a. meiszl 120 rem ==================================================================== 122 : rem achtung: das programm enthaelt pruefsummen, so dass sie fehler ... 124 rem ... leichter ($64)men koennen, bes. in den data zeilen! 126 rem ==================================================================== 130 a=52500:e=a+335:zl=9990:poke53281,0:poke53280,0 140 print"{clr}{yel}{swuc}{dish}koala painter display{down}{down}{down} 150 print"{grn}sys 52500,"chr$(34)"name"chr$(34)"[,geraetenummer] 160 print,"{blu}=> load + anzeige":print,"(ende mit 'space') 170 print"{down}{grn}sys 52503 180 print,"{blu}=> nur anzeige 190 print"{down}{grn}sys 52506 200 print,"{blu}=> bildschirm wieder normal 210 print"{down}{grn}sys 52509,"chr$(34)"name"chr$(34)"[,geraetenummer] 220 print,"{blu}=> bild laden":print:print 230 fori=atoestep8:zl=zl+10 240 ch=0:forj=0to7:readx:ch=ch+x:pokei+j,x:next 250 readck:ifck<>chthenprint"{red}data error in zeile"zl:end 260 next:print"{cyn}programm bereit 10000 data76,32,205,76,145,205,76,79, 894 10010 data206,76,47,205,32,47,205,32, 850 10020 data145,205,32,228,255,201,32,208, 1306 10030 data249,240,235,32,66,206,32,87, 1147 10040 data226,201,9,144,3,76,88,182, 929 10050 data160,9,169,32,153,97,206,136, 962 10060 data208,250,177,187,153,98,206,200, 1479 10070 data196,183,144,246,169,15,162,91, 1206 10080 data160,206,32,189,255,162,8,32, 1044 10090 data121,0,201,44,208,3,32,155, 764 10100 data183,169,111,160,0,32,186,255, 1096 10110 data32,131,205,169,0,162,0,160, 859 10120 data160,32,213,255,8,32,138,205, 1043 10130 data40,176,1,96,76,156,225,165, 935 10140 data1,41,254,133,1,96,165,1, 692 10150 data9,1,133,1,96,173,17,208, 638 10160 data41,239,141,17,208,32,131,205, 1014 10170 data162,191,160,64,32,56,206,162, 1033 10180 data200,160,0,32,61,206,162,195, 1016 10190 data160,39,32,14,206,162,195,160, 968 10200 data40,32,56,206,162,216,160,0, 872 10210 data32,61,206,162,199,160,15,32, 867 10220 data14,206,173,16,199,141,33,208, 990 10230 data141,32,208,173,17,208,9,34, 822 10240 data141,17,208,173,22,208,41,223, 1033 10250 data9,16,141,22,208,169,40,141, 746 10260 data24,208,162,160,160,0,32,56, 802 10270 data206,162,224,160,0,32,61,206, 1051 10280 data162,191,160,63,32,14,206,173, 1001 10290 data0,221,41,248,141,0,221,173, 1045 10300 data17,208,9,16,141,17,208,76, 692 10310 data138,205,142,106,206,140,107,206, 1250 10320 data160,0,177,251,145,253,165,252, 1403 10330 data205,106,206,208,8,165,251,205, 1354 10340 data107,206,208,1,96,230,251,208, 1307 10350 data2,230,252,230,253,208,227,230, 1632 10360 data254,76,22,206,134,252,132,251, 1327 10370 data96,134,254,132,253,96,32,121, 1118 10380 data0,201,44,208,3,76,115,0, 647 10390 data76,8,175,32,129,255,173,0, 848 10400 data221,9,3,141,0,221,96,129, 820 10410 data80,73,67,32,63,32,0,0, 347
10 rem demo 1 koala bilder per basic-programm zeigen 12 rem c michael m. meiszl,1984 14 : 20 print"{clr}koala painter display demo 1 30 a$="":input"{down}{down}{down}{down}{down}bildname";a$ 40 ifa$=""then end 45 ifa$=b$then100 50 sys(52500),a$ 60 b$=a$:goto20 100 rem demo anzeige eines gespeicherten bildes 110 sys52503:rem bild nochmal 120 fori=1to2000:next 130 sys52506:rem bild abschalten 140 goto20
10 rem demo #2 zeige bilder hintereinander wie eine dias-show 12 rem c michael m. meiszl 14 : 20 reada$:ifa$="*"thenrestore:goto20 30 sys52509,a$:rem lade bild 40 sys52503::::rem zeige bild 50 goto20 80 rem ==================================================== 82 rem achtung: 84 rem in die datazeilen tragen sie spaeter ihre eigenen bildnamen ein! 85 rem vorlaeufig koennen sie dies programm mit der oroginal-($64)($72)ette ($64)xen 86 rem wichtig: das "*" muss am ende der titel stehen! 96 rem ==================================================== 100 dataabc's,van,vanprops,farm,farmanim,jungle,monkey,castle,dragon,tree,*