Z10: MINI-GRAFIK

Grafik-Ausgabe und Grafik-Editor in 10 Zeilen ?
Hier kommt noch mal ein Listing das zeigt, wie mans machen kann.
Und wie man auch in Basic zukünftig Spiele im Grafik-Modus programmieren kann.

0 :rem---mini-grafik
1 :rem--grafik-ausgabe mit strings
9 :
10 :b=31:m=255:a=m:gosub19:c=3:b=3:a=207:gosub19:h=57344:l=65344:e=52224:k=256
11 :a=h:dima$(m):gosub17:f=e:g=h:b=r:c=4:a$="c64-grafik-system: ":gosub13:c=3
12 :pokeg+7,m:wait198,m:geta$:b=asc(a$):s=(b=17)-(b=29):pokeg+7,.:gosub13:goto12
13 :sys57943a$:poke54,g/k:poke53,g-handm:poke56334,.:poke1,51:ifa$<" "goto15
14 :fora=peek(781)+peek(782)*ktoa+len(a$)-1:sys57943a$(peek(a)):pokef,c:f=f+1:sys46728:next
15 :poke1,55:sys65390:g=peek(53)+peek(54)*k+s*8:f=f+s:s=.:ifb<>randg<lthenreturn
16 :pokev+7,56:pokev,59:a%=(f-e)/40+1:a%=a%*40*-(a%<25):g=h+a%*8:f=e+a%:return
17 :r=13:v=53265:pokev,11:poke56334,.:poke56576,.:poke52,a/k:poke51,a-peek(52)*k
18 :poke1,51:forb=-mto.:a$(-b)="12345678"+"":next:poke51,.:poke52,160:goto15
19 :poke780,c:poke114,b:poke113,m:poke89,a:poke88,.:poke12,1:sys45762:return

Schönen Gruß.

Kein Problem.

Schönen Gruß

Deutsche Umlaute einfügen:
----------------------------------------
Hallo, hier kommt noch mal eine Ergänzung des Mini-Grafik-Systems durch deutsche Umlaute:
Die Grafik-Zeichen werden dabei einfach als 8-Byte Strings durch Stringaddition erzeugt und in das a$(255)-Feld eingefügt.
So kann der Programmierer sich alle gewünschten 8-Byte-Zeichen selbst zusammenbasteln und den Bildschirm damit wie gewünscht gestallten.

0 :rem---mini-grafik+deutsche umlaute
1 :rem--grafik-ausgabe mit strings
9 :
10 :b=31:m=255:a=m:gosub17:c=3:b=3:a=207:gosub17:h=57344:l=65344:e=52224:k=256
11 :a=h:dima$(m):gosub18:f=e:g=h:b=r:c=4:a$="c64-grafik-system: ":gosub13:c=3
12 :pokeg+7,m:wait198,m:geta$:b=asc(a$):s=(b=17)-(b=29):pokeg+7,.:gosub13:goto12
13 :sys57943a$:poke54,g/k:poke53,g-handm:poke56334,.:poke1,51:ifa$<" "goto15
14 :fora=peek(781)+peek(782)*ktoa+len(a$)-1:sys57943a$(peek(a)):pokef,c:f=f+1:sys46728:next
15 :poke1,55:sys65390:g=peek(53)+peek(54)*k+s*8:f=f+s:s=.:ifb<>randg<lthenreturn
16 :pokev+7,56:pokev,59:a%=(f-e)/40+1:a%=a%*40*-(a%<25):g=h+a%*8:f=e+a%:return
17 :poke780,c:poke114,b:poke113,m:poke89,a:poke88,.:poke12,1:sys45762:return
18 :r=13:v=53265:pokev,11:poke56334,.:poke56576,.:poke52,a/k:poke51,a-peek(52)*k
19 :poke1,51:forb=-mto.:a$(-b)="12345678"+"":next:poke51,.:poke52,160
20 :
21 :a$=chr$(102):o$=chr$(0):b$=chr$(108):rem---deutsche umlaute
22 :a$(93)="$<"+a$+chr$(126)+a$+a$+a$+o$:a$((91)="$<"+a$+a$+a$+a$+"<"+o$
23 :a$(64)="$"+a$+a$+a$+a$+a$+"<"+o$:a$(92)="<"+a$+a$+b$+a$+a$+b$+chr$(96)
24 :goto15

Schönen Gruß.

Grüße auch an emulaThor, bigby, Dekay, wolfme.

Schönen Gruß.

Also meiner Meinung nach ist die Z10-Mini-Grafik schon mal eine gute Grundlage für die Programmierung von Grafik und Text-Adventures oder für Bücher auf Basic-Basis oder für Grafik-Spiele.

Also, Schönen Gruß.