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:

1. …mit Koala ein Titelbild machen
2. …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!
3. …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

1. 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.
2. 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!
3. 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!
4. 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.

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,*