»Apfelmännchens« Diashow

Mit wenig Aufwand kann man die Grafiken des »Apfelmännchens« zu einer effektvollen und abwechslungsreichen Diashow zusammenfassen.

Natürlich darf bei einem Programm wie dem »Apfelmännchen« (64’er 11/85, Seite 80) der Vorführeffekt nicht zu kurz kommen. Um diesen zu erreichen, verändern Sie die Zeilen des Originalprogramms wie in Listing 1 angegeben und ergänzen das Programm mit Listing 2. Die Bilder müssen dazu die unten aufgeführten Namen haben. Bitte beachten Sie das Leerzeichen vor jeder Zahl:
Bild 1.PIC
Bild 2.PIC
Bild 3.PIC
…
Bild 9.PIC
Bild 10.PIC

Die Anzahl der Bilder wird in Zeile 11000 festgelegt. Um zum Beispiel die Anzahl auf 20 festzulegen, müßte dort stehen:
11000 N=N+1: IFN=21THEN RETURN

Das nächste Bild wird jeweils durch Druck auf die Space-Taste gezeigt.

(O. Hobert/og)

317 print"{down}"tab(10)"(8)  Dia-Show"

340 geta$:ifa$<"1"ora$>"8"then340
360 onval(a$)gosub1000,2000,3000,4000,5000,5500,7000,10000

Listing 1. Die Veränderungen…

10000 rem dia-show
10010 print"{clr}{down}*** DIA-SHOW ***"
10020 print"{down}Farben         : Funktionstasten"
10030 print"{down}Menue          : '_'"
10040 print"{down}Naechstes Bild : 'SPACE'"
10050 print"{down}{down}Weiter mit Taste"
10060 poke198,0:wait198,1:geta$
10070 n=0
10080 rem laden
11000 n=n+1:ifn=10thengoto200
11005 n$=str$(n)
11010 nb$="bild"+n$+".pic"
11020 fori=0tolen(nb$)-1
11030 pokebn+i,asc(mid$(nb$,i+1,1))
11040 next
11050 pokebn+16,len(nb$)
11060 syslo
11070 rem effekt
11090 sysm1
11100 ifa$="{f5}"thenpokec2,(peek(c2)+1)and15
11110 cp=peek(c3):pokec3,peek(c2):pokec2,peek(c1):pokec1,cp
11120 geta$:ifa$="_"then11190
11125 ifa$=" "thengoto11200
11130 ifa$="{f1}"thenpokec0,(peek(c0)+1)and15
11140 ifa$="{f3}"thenpokec1,(peek(c1)+1)and15
11150 ifa$="{f5}"thenpokec3,(peek(c3)+1)and15
11160 ifa$="{f7}"thenpokec3,(peek(c3)+1)and15
11170 syssc
11180 goto11110
11190 sysm0:goto200
11200 sysm0:goto11000

Listing 2. … und die Ergänzungen für eine Diashow mit den Grafiken des »Apfelmännchens«