Der 80-ZEICHEN-ZEILEN-EDITOR

BIF · Jan 8th 2012

===============
: BESCHREIBUNG :
===============
-Die aktuelle Version ist V5x2 [121] und die PRG-Datei kann dort als Dateianhang runtergeladen werden.

Programm zu Erstellen einer Grafik mit 80/40-Zeichen- Zeile.
Das Schreiben eines Textes erfolgt wie gewohnt mit den Buchstaben und Ziffern-Tasten,
Mit F1-F5 kann man zwischen verschiedenen Schriftarten umschalten.
Auch das Umschalten zwischen dem 1. und 2. Zeichensatz ist mit STOP möglich.
Auch ein Wechseln in den 40-Zeichen-Zeilen Modus ist mit SHIFT-STOP möglich.
Nach dem Editieren kann man das Programm mit CTRL+A abspeichern.
Nach dem Abspeichern ist das PRG als AUTO-Start-PRG ladbar mit load "name",8,1 .
STOP-RESTORE führt zum verlassen des EDITORS.
Man kann danach aber das PRG ohne Bitmapverlust neustarten mit GOTO oder RUN.
Bei RUN gehen natürlich die Farbeinstellung und Cursor-Einstellungen verloren.
Mit CTRL+I kann man die Orginaleinstellungen und Zeichensätze wiederherstellen.
Und mit CTRL+P kann man die Zeichensätze durch einen Zeichensatz, der ab 49152 liegt, ersetzen.

=================
: TASTEN-BELEGUNG :
=================
F1, F3, F5 : Schriftarten wechseln
F7 : Wechselt Schreibfarbe und Hintergundfarbe
CLR : Schirm löschen mit aktueller Farbe
STOP : Zeichensatz 1/2-Wechsel
SHIFT-STOP : 80/40 Zeichenzeilen-Modus
CTRL+A : Abspeichern als Autostart-PRG

SHIFT+9/0 : Reverse Zeichen an/aus
CTRL+1-8 : Farben 0-7
CBM+1-8 : Farben 8-15
CTRL+F : Rahmenfarbe einstellen

CTRL+I : Orginal-Zeichen installieren
CTRL+P : Zeichensatz von 49152 in aktuellen einfügen.

STOP-RESTORE : In den BASIC-EDIT-MODUS wechseln
Neustartbar mit GOTO oder RUN

-----------------------------------------------------

Code

0 :rem---80/40-zeichen-v4
10 gosub25:gosub900
12 gosub41:gosub50:goto12
19 :
20 a$="z80-text":printchr$(147)a$:rem--save
21 poke806,60:poke770,174:poke771,167:poke43,254:poke44,2
22 open1,8,15,"s0:"+a$:close1:savea$,8
25 ifpeek(806)=60then:poke43,1:poke44,64:poke806,202:ifpeek(123)<64thenrun
26 sys58451:poke788,52:return
29 :
40 rem--crsr
41 poke53287,f/16:i=.:a=1:x=x-int(x/40)*40
42 ifpeek(198)then:geta$:c=peek(512):poke53269,.:return
43 ifithen:poke53269,a:i=i+1:on-(i<8)goto42:a=1-a
45 c=x*8+24:poke53248,cand255:poke53264,-(c>=256):poke53249,y*8+43:i=1:goto42
49 :
50 if(cand96)=.goto61:-ausgabe
51 i=int(y*40+x):n=gr+8*i:pokebr+i,f:a=zs+fnas(c)*8:x=x+gs
54 ifgs=1then:e=a+7:goto104
55 d=1+30*(x-int(x)):b=255-d*15
56 fori=.to7:poken+i,peek(n+i)andborfna(peek(a+i))*d:next:return
59 :
60 rem--s.tasten
61 d=cand127:ifd=29ord=20then:x=x+gs*(1+2*(c>32orc=20)):return
62 ifd=13ord=17then:x=x*-(d<>13):y=y-((c=17ord=13)andy<24)+(c=145andy>.)
63 ifc=3then:a=(zs/2048)and1:zs=zs+sgn(.1-a)*2048
64 ifd=18then:zs=int(zs/2048)*2048-1024*(c=18)
65 on-(d=19)-(c=19)goto90,92:ifc=136then:f=int(f/16):f=f-16*(f=.)
66 poke780,c:sys59595:ifpeek(781)<16then:f=(fand15)+16*peek(646)
67 oncgoto20:on-(c=9)goto960:ifc>132then:ond-4goto80,81,82
68 ifc=131then:gs=2^(gs=1):x=int(x)
69 ifc=6then:poke820,peek(820)+1and15
70 ifc=16then:a=49152:e=a+2047:n=int(zs/2048)*2048:goto102
78 goto95
79 :
80 deffna(a)=(aand2)/2+(aand24)/4+(aand64)/8:return
81 deffna(a)=(aand1)+(aand4)/2+(aand16)/4+(aand64)/8:return
82 deffna(a)=(aand2)/2+(aand8)/4+(aand32)/8+(aand128)/16:return
89 :
90 rem--cls
91 poke53265,43:n=.:a=gr:e=a+8000:gosub100:a=br:e=a+1000:n=f:gosub100
92 x=.:y=.
95 poke53277,gs:poke53272,56:poke53280,peek(820):poke53265,59:return
99 :
100 pokee,n:rem--kopy
101 n=a:a=a+1:gosub102:a=n:return
102 poke56334,.:poke1,51:gosub104:poke1,55
103 poke1,55:poke56334,1:return
104 d=256:b=e-a:c=int(b/d)*d:poke781,c/d+1:poke782,b-c+1and255:b=a+c:poke91,b/d
105 poke90,b-peek(91)*d:b=n+c:poke89,b/d:poke88,b-peek(89)*d:sys41964:return
119 :
900 rem--var
910 dimi,n,a,b,d:f=3:gosub80
920 br=3072:zs=4096:gr=8192:gs=.5
930 deffnas(a)=a+64*((a>63)+(a>191))-(a>95anda<128)*32+(a=255)*33
934 deffnp(a)=peek(a)+peek(a+1)*256
940 ifpeek(44)>8goto95
949 :
950 rem--inst.
952 n=16384:a=fnp(43)-1:e=fnp(49):poke9,(n-a)/256:gosub104
953 poke44,peek(44)+peek(9):poke46,peek(46)+peek(9):sys42291:poke58,99:run960
960 gosub900:a=br-64:e=a+63:n=.:gosub100:pokea+42,240:pokebr+1016,a/64
962 n=zs:a=53248:e=a+4095:gosub102,zeichen:gosub90:run/code]

Display More

Im Anhang dieses Artikels ist Listing V4.
Die neuste Version V5X2 ist als PRG-Datei in Artikel [121] als Anhang hinterlegt.

Schönen Gruß, Dirk

Haubitze · Jan 8th 2012

ehm okay und wo is das proggie?

Telespielator · Jan 8th 2012

WTF.JPG

BIF · Jan 8th 2012

Code

0 :REM---80-ZEICHEN.ZEILEN-v1
10 :GOSUB25:IFPEEK(44)>8THEN:GOSUB95
11 :F=3:GOSUB900
12 :GOSUB41:GOSUB50:IFC<>131GOTO12
13 :SYS58784:SYS64789:SYS42107
19 :
20 A$="Z80-TEXT":PRINTCHR$(47)A$:REM--SAVE
21 POKE806,60:POKE770,174:POKE771,167:POKE43,254:POKE44,2:POKE997,1
22 OPEN1,8,15,"S0:"+A$:CLOSE1:SAVEA$,8
25 IFPEEK(997)THEN:POKE43,1:POKE44,64:POKE997,.:IFPEEK(123)<64THENRUN
26 POKE806,202:SYS58451:POKE788,52:RETURN
29 :
40 :REM--CRSR
41 :POKEVC+39,F/16:I=.:A=1:X=X-INT(X/40)*40:C=X*8+24
42 :IFPEEK(198)THEN:GETA$:C=PEEK(512):POKE53269,.:RETURN
43 :IFITHEN:I=I+1:ON-(I<15)GOTO42:A=1-A
45 :POKEVC,CAND255:POKEVC+16,-(C>=256):POKEVC+1,Y*8+43:POKEVC+21,A:I=1:GOTO42
49 :
50 :IF(CAND96)=.GOTO61:GRAFIK-AUSGABE
55 :J=INT(Y*40+X):N=GR+J*8:X=X+.5:A=ZS+FNAS(C)*8:D=1-15*(X>INT(X)):B=255-D*15
56 :POKEBR+J,F:FORI=.TO7:POKEN+I,PEEK(N+I)ANDBORFNA(PEEK(A+I))*D:NEXT:RETURN
59 :
60 :REM--S.TASTEN
61 D=CAND127:IFD=29ORD=20THEN:X=X+.5*(1+2*(C>32ORC=20)):RETURN
62 IFC=3THEN:A=(ZS/2048)AND1:ZS=ZS+SGN(.1-A)*2048
63 IFD=13ORD=17THENX=X*-(D<>13):Y=Y-((C=17ORD=13)ANDY<24)+(C=145ANDY>.):RETURN
64 IFD=18THEN:ZS=INT(ZS/2048)*2048-1024*(C=18)
65 ON-(D=19)-(C=19)GOTO93,95:IFC=136THEN:F=INT(F/16):F=F-16*(F=.)
66 POKE780,C:SYS59595:IFPEEK(781)<16THEN:F=(FAND15)+16*PEEK(646)
67 IFC>132THEN:OND-4GOTO80,81,82
68 ON-(C<3)GOTO20:RETURN
69 :
80 DEFFNA(A)=(AAND2)/2+(AAND24)/4+(AAND64)/8:RETURN
81 DEFFNA(A)=(AAND1)+(AAND4)/2+(AAND16)/4+(AAND64)/8:RETURN
82 DEFFNA(A)=(AAND2)/2+(AAND8)/4+(AAND32)/8+(AAND128)/16:RETURN
89 :
90 :F=3:REM--CLS
93 POKE53265,43:N=.:A=GR:E=A+8000:GOSUB100:A=BR:E=A+1000:N=F:GOSUB100
95 POKE53272,16*3+8:POKE53265,59:X=.:Y=.:RETURN
99 :
100 POKEE,N:REM--KOPY(A,E,N)
101 N=A:A=A+1:GOSUB102:A=N:RETURN
102 POKE9,PEEK(1):POKE56334,.:POKE1,51:GOSUB104:POKE1,PEEK(9):POKE56334,1:RETURN
104 D=256:B=E-A:C=INT(B/D)*D:POKE781,C/D+1:POKE782,B-C+1AND255:B=A+C:POKE91,B/D
105 POKE90,B-PEEK(91)*D:B=N+C:POKE89,B/D:POKE88,B-PEEK(89)*D:SYS41964:RETURN
199 :
900 :REM--VAR
910 DIMI,N,A,B,D:GOSUB80
920 BR=3072:ZS=4096:GR=8192:VC=53248
930 DEFFNAS(A)=A+64*((A>63)+(A>191))-(A>95ANDA<128)*32+(A=255)*33
934 DEFFNP(A)=PEEK(A)+PEEK(A+1)*256
940 IFPEEK(44)>8THENRETURN
949 :
950 REM--KOPIEREN
952 N=16384:A=FNP(43)-1:E=FNP(49):POKE9,(N-A)/256:GOSUB104
953 POKE44,PEEK(44)+PEEK(9):POKE46,PEEK(46)+PEEK(9):SYS42291:POKE58,99:RUN960
960 GOSUB900:A=BR-64:E=A+63:N=.:GOSUB100:POKEA+42,240:POKEBR+1016,A/64
962 N=ZS:A=53248:E=A+4095:GOSUB102,ZEICHEN:GOSUB90,SLS:RUN

Display More

Haubitze · Jan 8th 2012

schick schick, dafuer das es basic ist bin ich ueberrascht das es doch recht flott ist.
muss mich nun nurnoch damit beschaftigen was du da wo und wann machst ;D

fuer mich ist dieses listing aber einen wert

Salute

BIF · Jan 8th 2012

Hallo, Haubitze,
die Beschreibung folgt in diesem Teil, ist aber vielleicht nicht alles ganz einfach zu verstehen.

Grob gesagt besteht das PROGRAMM aus folgenden Teilen:
=======================================
A. Aufruf, Eingabe-Schleife, End-Teil
: Zeile 0-19
B. Kopier und Installationsteil.
: Zeile 900-999
C. Sprite-Cursor und Eingabe-Teil
: Zeile 40-49
D. Grafik-Zeichen-Ausgabe
: Zeile 50-59
E. Sondertasten-Behandlung
: Zeile 60-69
F. Abspeichern als Autostart-PRG
: Zeile 20-29
G. Grafik-Bitmap-Löschen+Anschalten
: Zeile 90-99
H. Schrift-Funktionen umschalten
: Zeile 80-89
I. Block-Kopier/Lösch-Prg.
: Zeile 100-199
--------------------------------------------------------
SPEICHER-BELEGUNG:
--------------------------------------------------------
ab 1k : Text-Schirm
ab 2k : Basic-Start-Code
ab 3k : FARB-RAM
ab 4k : 2 Zeichensätze
ab 8k : Grafik-Bitmap
ab16k: Basic-Programm-Code

Beim Speichern wird alles, einschließlich Zeichensätzen mit abgespeichert.
--------------------------------------------------------

Falls jemand nicht alles versteht, sage ich natürlich kann man nicht gleich alles verstehen. Da viele Bereiche natürlich multi-funktionell ausgelegt sind.

Natürlich können sich auch andere als ich mit der Erklärung des PRG-Codes betätigen, dann muß ich nicht alles erklären.
Natürlich darf jeder Nutzer mit dem Editor Seiten editieren und auch veröffentlichen.

Viel Spaß und schönen Gruß, Dirk

Unseen · Jan 8th 2012

Quote from Haubitze

schick schick, dafuer das es basic ist bin ich ueberrascht das es doch recht flott ist.

"The quick brown xjmp vrhlzdg" ist nicht flott.

sauhund · Jan 9th 2012

süss wie er pixel für pixel in die bitmap malt :o)

aber ein schönes beispiel für die geschwindigkeit und lesbarkeit von basic

BIF · Jan 9th 2012

Wenn man sich weiter damit beschäftigt kann man vielleicht auch noch Geschwindigkeitsverbesserungen machen.
Aber beim Editieren geht es am Ende um das Grafik-Bild und nicht umd die Edit-Geschwindigkeit.

So, jetzt habe ich das Programm veröffentlicht, wie angekündigt mit Sprite-Cursor, 80-Zeichen-Zeilen-Ausgabe, einigen Zusatz-Funktionen Speichern und Auto-Start.

Also hab ich zuviel versprochen, angegeben oder nicht ?
In jedem Falle zeigt es, was man auch alles in Basic so machen kann.

Schönen Gruß, Dirk

BIF · Jan 9th 2012

Code

0 :rem---80-zeichen.zeilen
10 :gosub25:gosub900
12 :gosub41:gosub50:goto12
19 :
20 a$="z80-text":printchr$(47)a$:rem--save
21 poke806,60:poke770,174:poke771,167:poke43,254:poke44,2
22 open1,8,15,"s0:"+a$:close1:savea$,8
25 ifpeek(806)=60then:poke43,1:poke44,64:poke806,202:ifpeek(123)<64thenrun
26 sys58451:poke788,52:return
29 :
40 :rem--crsr
41 :pokevc+39,f/16:i=.:a=1:x=x-int(x/40)*40:c=x*8+24
42 :ifpeek(198)then:geta$:c=peek(512):poke53269,.:return
43 :ifithen:i=i+1:on-(i<15)goto42:a=1-a
45 :pokevc,cand255:pokevc+16,-(c>=256):pokevc+1,y*8+43:pokevc+21,a:i=1:goto42
49 :
50 :if(cand96)=.goto61:grafik-ausgabe
55 :j=int(y*40+x):n=gr+j*8:x=x+.5:a=zs+fnas(c)*8:d=1-15*(x>int(x)):b=255-d*15
56 :pokebr+j,f:fori=.to7:poken+i,peek(n+i)andborfna(peek(a+i))*d:next:return
59 :
60 :rem--s.tasten
61 d=cand127:ifd=29ord=20then:x=x+.5*(1+2*(c>32orc=20)):return
62 ifc=3then:a=(zs/2048)and1:zs=zs+sgn(.1-a)*2048
63 ifd=13ord=17thenx=x*-(d<>13):y=y-((c=17ord=13)andy<24)+(c=145andy>.):return
64 ifd=18then:zs=int(zs/2048)*2048-1024*(c=18)
65 on-(d=19)-(c=19)goto90,95:ifc=136then:f=int(f/16):f=f-16*(f=.)
66 poke780,c:sys59595:ifpeek(781)<16then:f=(fand15)+16*peek(646)
67 ifc>132then:ond-4goto80,81,82
68 on-(c<3)goto20:return
69 :
80 deffna(a)=(aand2)/2+(aand24)/4+(aand64)/8:return
81 deffna(a)=(aand1)+(aand4)/2+(aand16)/4+(aand64)/8:return
82 deffna(a)=(aand2)/2+(aand8)/4+(aand32)/8+(aand128)/16:return
89 :
90 :rem--cls
93 poke53265,43:n=.:a=gr:e=a+8000:gosub100:a=br:e=a+1000:n=f:gosub100
95 poke53272,56:poke53265,59:x=.:y=.:return
99 :
100 pokee,n:rem--kopy(a,e,n)
101 n=a:a=a+1:gosub102:a=n:return
102 poke9,peek(1):poke56334,.:poke1,51:gosub104:poke1,peek(9):poke56334,1:return
104 d=256:b=e-a:c=int(b/d)*d:poke781,c/d+1:poke782,b-c+1and255:b=a+c:poke91,b/d
105 poke90,b-peek(91)*d:b=n+c:poke89,b/d:poke88,b-peek(89)*d:sys41964:return
199 :
900 :rem--var
910 dimi,n,a,b,d:f=3:gosub80
920 br=3072:zs=4096:gr=8192:vc=53248
930 deffnas(a)=a+64*((a>63)+(a>191))-(a>95anda<128)*32+(a=255)*33
934 deffnp(a)=peek(a)+peek(a+1)*256
940 ifpeek(44)>8goto95
949 :
950 rem--kopieren
952 n=16384:a=fnp(43)-1:e=fnp(49):poke9,(n-a)/256:gosub104
953 poke44,peek(44)+peek(9):poke46,peek(46)+peek(9):sys42291:poke58,99:run960
960 gosub900:a=br-64:e=a+63:n=.:gosub100:pokea+42,240:pokebr+1016,a/64
962 n=zs:a=53248:e=a+4095:gosub102,zeichen:gosub90,sls:run

Display More

Hallo, hier noch einmal eine weiter komprimierte und beschleunigte Version des EDITORS.
Der einzige Unterschied in der Funktionsweise ist, das man nun mit STOP+RESTORE in den Basic-Modus gelangt.

Schönen Gruß, Dirk

gh23 · Jan 9th 2012

@BASIC-FAN

Habe das jetzt mal kurz überflogen, nett!
Bisschen wenig Komentare, falls man das Ding irgenwann mal wieder anschaut!

@Sauhund
Jepp, da lacht das Herz jedes Programmierers, bei diesen Peek und Poke Orgien

sauhund · Jan 9th 2012

Quote

Bisschen wenig Komentare, falls man das Ding irgenwann mal wieder anschaut!

quatsch, basic ist voll lesbar !

Endurion · Jan 9th 2012

Kann Google eigentlich Basic -> Assembler?

BIF · Jan 9th 2012

Hallo,
Ich habe übrigens doch noch einen Fehler gefunden in Zeile 55, den ich jetzt korrigiert habe.
Dort habe ich versehentlich die Variable j weggenommen.
Also jetzt ist auch das farbige Editieren möglich.

Schönen Gruß, Dirk

BIF · Jan 9th 2012

Hallo, Gerald,
wenn du eine Frage hast, wie was funktioniert, dann heraus damit.

Schönen Gruß, Dirk

TheRyk · Jan 9th 2012

Och menno, BASIC-Fan, .prg upploaden, bitte.

Der Source ist ja leider mit großen Zeichen, das ist nix mit Copy und Paste in Vice und abtippen will ich das wirklich nicht.

Retro-Schulzi · Jan 9th 2012

Quote from Endurion

Kann Google eigentlich Basic -> Assembler?

Wenns das gäbe, wären die Ergebnisse wohl genau so abenteuerlich wie die anderen "Übersetzer" von google

TheRyk · Jan 9th 2012

Theoretisch nennt man sowas doch Basic-Compiler, nur ohne den Umweg über Assembler ...

daddlertl · Jan 9th 2012

Quote from Endurion

Kann Google eigentlich Basic -> Assembler?

Basic und Assembler kann Gockel zwar nicht, aber dafür d64:

lässt man diese Suche (nach einer Frage meines WWM-Spiels) laufen, sieht man als erstes Ergebnis Inhalte meiner WWM-d64. Öffnet man dieses Ergebnis mit "im Cache", dann sieht man noch mehr Inhalte. Gockel hat wie man sieht die Fragen und Antworten aus dem d64 "gefischt" und das sogar relativ fehlerfrei, nur ab und zu sind "Störstellen" zu sehen.

TheRyk · Jan 9th 2012

Gruselig/shocking!