Screenshot 1 Screenshot 2
1000 1cd7 ff00 b ... BEGRIFFE RATEN
20 OUTC. 12
22 E=HEX(2000)
25 P.;P."ERRATEN VON BEGRIFFEN";P.
30 P."DATEI NEU ?(J/ENT):",
40 W=INCHAR;OUTC. W;P.;P.
50 IF W=13 G.140
60 IF W#'J'G.30
70 INP."MAX. SATZLAENGE"V
80 IF V<1 G.70
90 INP."MAX. ANZAHL DATENSAETZE"Q
100 IF Q<1 G.90
105 U=E+(Q*V)
110 F.I=E TO U
115 POKE I,32
120 N.I
130 POKE E,'*'
140 F.K=E TO U STEP V
150 IF PEEK(K)='*'G.160
155 N.K
160 A=(K-E)/V
170 P."VON",#4,Q,"DATENSAETZEN"
180 P."SIND",#4,A,"ERFASST"
190 P.
200 P."AUSWAHL DURCH KENNZIFFER"
210 P.;P."AUFBAU............0"
220 P.;P."ANZEIGEN..........1"
230 P.;P."BEGRIFF RATEN.....2"
240 P.;P."AENDERN...........3"
250 P.;P."STATUS............4"
260 P.;P."DATEN RETTEN......7"
266 P.;P."DATEN EINLESEN....8"
269 P.
270 INP."EINGABE KENNZIFFER"W
280 IF W<0 GOTO 200
290 IF W>8 GOTO 200
300 GOTO(W*300+400)
400 REM DATEIAUFBAU
410 IF K=U P."DATEI VOLL !";P.;GOTO 160
420 X=K
430 GOSUB 8000
440 K=K+V
450 POKE K,'*'
460 GOTO 160
700 REM ANZEIGEN
705 IF K=E P."DATEI LEER !";P.;GOTO 160
710 GOSUB 5000
720 GOSUB 5200
730 GOSUB 7000
740 IF Y=B GOTO 1890
750 X=X+V
760 Z=Z+1;Y=Y+1
770 IF Z=20 GOSUB 1850
780 IF X>=K GOTO 1890
790 GOTO 730
1000 REM BEGRIFF RATEN
1005 OUTCH.12
1010 GOSUB 5000
1020 FOR S=U+1 TO U+V
1030 POKE S,32
1040 NEXT S
1050 S=U+1
1055 FOR J=X TO H
1060 IF PEEK(J)#32 POKE S,45
1065 S=S+1
1070 NEXT J
1073 M=10;L=0
1075 P.
1080 FOR S=U+1 TO U+V
1090 OUTCH.(PEEK(S))
1100 NEXT S
1105 P.
1107 IF M=0 GOTO 1250
1110 W=INCH.;OUTCH.W
1111 P.;M=0;L=L+1
1113 IF W=13 GOTO 1240
1115 S=U+1
1120 FOR J=X TO H
1130 IF PEEK(J)=W POKE S,W
1133 IF PEEK(J)#PEEK(S) GOTO 1200
1135 S=S+1
1140 N.J
1190 GOTO 1075
1200 M=M+1
1210 G.1135
1240 L=L-1
1250 F.J=X TO H
1260 OUTC.(PEEK(J))
1270 N.J
1275 P.;P."NACH",#3,L," VERSUCHEN !"
1280 P.;GOTO 200
1300 REM AENDERN
1305 IF K=E GOTO705
1310 GOSUB 5000
1320 GOSUB 8000
1330 GOTO 200
1600 REM STATUS
1610 P."DATEISTATUS";P.
1620 F.I=E TO U STEP V
1630 WORD(I);P." ",
1640 OUTC.(PEEK(I))
1650 OUTC.(PEEK(I+1))
1660 P." ",
1670 N.I
1680 P.;GOTO 160
1850 REM ENDE SEIE
1852 TAB(20)
1855 P.">ENTER<",
1860 W=INCHAR;OUTC. W
1865 IFW#13 GOTO 1860
1870 Z=0
1880 RETURN
1890 TAB(15);P."ENDE",;GOSUB 1850
1895 GOTO 200
1900 GOTO 200
2200 GOTO 200
2500 REM DATEN RETTEN
2510 F.J=HEX(F0) TO HEX(FF)
2520 POKE J,32
2530 N.J
2535 P."FILENAME:",
2540 X=HEX(F0);H=X+15
2550 GOSUB 8020
2560 POKE HEX(E0),E
2570 POKE HEX(E1),E/256
2580 POKE HEX(E2),K
2590 POKE HEX(E3),K/256
2600 CALL HEX(A0C)
2610 CALL HEX(10C)
2620 CALL HEX(A19)
2630 CALL HEX(10C)
2640 GOTO 160
2800 REM DATEN EINLESEN
2810 CALL HEX(A0C)
2820 CALL HEX(10F)
2830 F.I=HEX(F0) TO HEX(FF)
2840 OUTC.(PEEK(I))
2850 N.I
2860 CALL HEX(A19)
2870 CALL HEX(10F)
2880 P.;GOTO 140
5000 REM ABFRAGE VON
5010 P.;Z=0
5020 INP."AB POS."W;Y=W-1
5025 IF Y<0 GOTO 5020
5030 X=E+(Y*V);H=X+V-1
5040 IF X>=K GOTO 5020
5050 RETURN
5200 REM ABFRAGE BIS
5220 INP."BIS PO."W;B=W-1
5230 IF B>A-1 GOTO 5220
5250 IF B<Y GOTO 5220
5360 RETURN
7000 REM AUSGABE DATENSATZ
7010 P.
7020 F.J=X TO X+V-1
7030 OUTC.(PEEK(J))
7040 N.J
7050 RETURN
8000 REM EINGABE DATENSATZ
8010 P."BEGRIFF"
8020 F.J=X TO H
8030 IF PEEK(J)='*' GOTO 9000
8040 IF PEEK(J)#32 GOTO 8070
8050 IF PEEK(J+1)=32 GOTO 9000
8070 OUTC.(PEEK(J))
8080 N.J
9000 W=INC.
9020 IF W=8 J=J-1;GOTO 9100
9030 IF W=9 J=J+1;GOTO 9120
9040 IF W=13 OUTC.W;RETURN
9050 POKE J,W
9060 J=J+1
9070 OUTC.W
9080 IF J#H GOTO 9000
9090 P.;RETURN
9100 IF J<X J=J+1;GOTO 9000
9110 GOTO 9070
9120 IF J>H J=J-1;GOTO 9000
9130 GOTO 9070