Wie funktioniert das Programm? Wozu dient es?
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
2 WINDOW:CLS:S=32:GOSUB 58:CLEAR 64
4 CLEAR 3750:DIM T$(30):PRINT:PRINT:INPUT "Bildschirm Zeilen,Spalten:";Z,S
6 GOSUB 58:WINDOW 4,14,9,18:PRINT "1=EINGEBEN2=ANZEIGEN3=EINLESEN4=AUSGEBEN";
8 PRINT "5=AENDERN 6=DRUCKEN 7=WANDELN ";
10 PRINT "0=ENDE":PRINT:INPUT "AUSWAHL:";A
12 IF A=0 THEN WINDOW 0,Z-1,0,S-1:CLS:WINDOW:CLS:END
14 WINDOW 2,Z-1,0,S-1:CLS:ON A GOTO 16,28,52,54,60,86,110
16 PRINT "KEIN KOMMA!":I=0:J=0:PRINT AT(1,3);"Zeile: Block: Frei:"
18 T$(J)="":K=0:PRINT AT(1,19);J+1
20 PRINT AT(1,9);I+1:S$="":INPUT "";S$:K=K+LEN(S$):T$(J)=T$(J)+S$+" "
22 PRINT AT(1,28);FRE(X$)-300:IF K>120 THEN IF J<40 AND S$<>"@@"THEN J=J+1:GOTO 18
24 IF S$="@@"OR J>=30 THEN CLS:GOTO 6
26 I=I+1:GOTO 20
28 I=0:J=0:N=0
30 IF J<=30 THEN S$=T$(J):K=0:ELSE INPUT "";A$:CLS:GOTO 6
32 IF LEN(S$)=0 THEN J=J+1:GOTO 30:ELSE L=INSTR("@",S$):M=INSTR(" ",S$)
34 IF L>0 AND M>L THEN M=L
36 IF N+M>S THEN GOSUB 46:IF A$="$"THEN CLS:GOTO 6
38 PRINT LEFT$(S$,M-1);:IF S>M+N THEN PRINT " ";
40 N=N+M:IF LEN(S$)>M THEN S$=MID$(S$,M+1):ELSE J=J+1:GOTO 30
42 IF S$="@@"THEN J=41:GOTO 30:ELSE IF M<>L AND N<S THEN 32
44 GOSUB 46:IF A$<>"$"THEN 32:ELSE CLS:GOTO 6
46 A$="":I=I+1:N=0:IF N<S THEN PRINT
48 IF I/(Z-3)>INT(I/(Z-3))THEN RETURN
50 A$=INKEY$:IF A$=""THEN 50:ELSE RETURN
52 GOSUB 56:CLOAD*""+S$;T$:CLS:GOTO 6
54 GOSUB 56:CSAVE*""+S$;T$:CLS:GOTO 6
56 INPUT "DATEINAME:";S$:RETURN
58 PRINT AT(0,0);" MINTEX/3 (C) bidat'87":PRINT AT(1,0);STRING$(S,"="):RETURN
60 INPUT "BLOCK:";J:IF J=0 THEN 78
62 J=J-1:PRINT AT(1,3);"Block: Frei:"
64 IF J<=30 THEN S$=T$(J):K=0:ELSE CLS:GOTO 6
66 PRINT AT(1,9);J+1:PRINT AT(1,18);255-LEN(T$(J))
68 IF LEN(S$)=0 THEN J=J+1:GOTO 64:ELSE M=INSTR(" ",S$)
70 S$=LEFT$(S$,M):A$=S$:PRINT A$;:INPUT "";A$:IF LEFT$(A$,1)="$"THEN J=41:GOTO 64
72 IF A$<>S$ THEN T$(J)=LEFT$(T$(J),K)+A$+MID$(T$(J),K+M)
74 K=K+LEN(A$):IF LEN(T$(J))>K THEN S$=MID$(T$(J),K+1):ELSE J=J+1:GOTO 64
76 IF S$<>"@@"THEN 66:ELSE CLS:GOTO 6
78 PRINT "TEXT ANFUEGEN":J=0
80 K=INSTR("@@",T$(J)):IF K=0 AND J<30 THEN J=J+1:GOTO 80
82 IF J>=30 OR FRE(X$)<300 THEN CLS:PRINT "SPEICHER VOLL!":GOTO 6
84 T$(J)=LEFT$(T$(J),K-1):GOTO 20
86 INPUT "Druckseite Zeilen,Spalten:";Y,X:I=0:J=0:N=0
88 IF J<=30 THEN S$=T$(J):K=0:ELSE PRINT#2 CHR$(12);:CLS:GOTO 6
90 IF LEN(S$)=0 THEN J=J+1:GOTO 88:ELSE L=INSTR("@",S$):M=INSTR(" ",S$)
92 IF L>0 AND M>L THEN M=L
94 IF N+M>X THEN GOSUB 104:IF A$="$"THEN CLS:GOTO 6
96 PRINT#2 LEFT$(S$,M-1);:IF X>M+N THEN PRINT#2 " ";
98 N=N+M:IF LEN(S$)>M THEN S$=MID$(S$,M+1):ELSE J=J+1:GOTO 88
100 IF S$="@@"THEN J=41:GOTO 88:ELSE IF M<>L AND N<X THEN 90
102 GOSUB 104:IF A$<>"$"THEN 90:ELSE CLS:GOTO 6
104 A$="":I=I+1:N=0:IF N<X THEN PRINT#2 ""
106 IF I/Y>INT(I/Y)THEN RETURN:ELSE PRINT#2 CHR$(12);:INPUT "";A$:RETURN
110 TP=(2+PEEK(11228))*256:TD=TP
112 PRINT:PRINT "TEXT AB: ";:H=TP:GOSUB 400:PRINT H$:PRINT
114 INPUT "FORMATIEREN AUF n-SPALTEN:";TS:I=0:J=0:N=0
116 IF J<=30 THEN S$=T$(J):K=0:ELSE PRINT:H=TD:GOSUB 500:PRINT:GOSUB 300:GOTO 6
118 IF LEN(S$)=0 THEN J=J+1:GOTO 116:ELSE L=INSTR("@",S$):M=INSTR(" ",S$)
120 IF L>0 AND M>L THEN M=L
122 IF N+M>TS THEN GOSUB 134:IF A$="$"THEN CLS:GOTO 6
124 Z$=LEFT$(S$,M-1):IF TS>M+N THEN Z$=Z$+" ":PRINT Z$;
126 FOR LA=1 TO LEN(Z$):POKE TD,ASC(MID$(Z$,LA,1)):TD=TD+1:NEXT LA
128 N=M+N:IF LEN(S$)>M THEN S$=MID$(S$,M+1):ELSE J=J+1:GOTO 116
130 IF S$="@@"THEN J=41:GOTO 116:ELSE IF M<>L AND N<TS THEN 118
132 GOSUB 134:IF A$<>"$"THEN 118:ELSE CLS:GOTO 6
134 I=I+1:N=0:POKE TD,30:TD=TD+1:RETURN
300 POKE TD,3:DOKE 27,TP:DOKE 29,TD:DOKE 35,0:PRINT
310 PRINT:PRINT "TEXT MIT HEADERSAVE AUSGEBEN?"
312 PRINT
315 Z$=INKEY$:IF Z$=""THEN 315
316 IF Z$="Y"THEN CALL-12
317 IF Z$="J"THEN CALL-12
320 CLS:RETURN
400 H$=""
410 I=INT(H/16):R=H-16*I:IF R<=9 THEN C=48:ELSE C=55
420 H$=CHR$(R+C)+H$:IF I<>0 THEN H=I:GOTO 410
430 H$=H$+"H":RETURN
500 GOSUB 400:PRINT "TEXTENDE:";:PRINT H$:RETURN