10 IF LO=0 THENLO=1:LOAD"SPLITTING*",8,1
11 DIM CO(15)
12 S=116:FORX=0TO14:CO(X+1)=X:NEXT
15 POKE53280,0:POKE53281,0
17 CB=49231:SPEED=49247
20 PRINT"[144][147] [218] E C K I - [211] O F T W A R E
30 [153]" ============================
40 PRINT"   [164]
50 [153]" PRASENTIERT"
60 [153]"      POKE                       STOP
70 PRINT"      [151] [196]EN  [198]ARBSCROLLEDITOR[160][144]
80 [153]"      POKE                       STOP
90 PRINT" WRITTEN AND COPYRIGHT(C)
100 [153]" 1988 BY (null)ARKUS LEFT$ILLEBRAND
105 FORX=1063TO2023STEP40:POKEX,160:NEXT
110 GOSUB 1000
120 PRINT"+ = SPEED +1
130 [153]"- = SPEED -1 TO
140 PRINT"F = FARBENMENU
141 [153]"S = (null)PEED-EINGABE
142 PRINT"D = SAVE ON DISK"
143 PRINT"[211]PEED="S
150 SYS 49152:POKE53281,15:POKE53280,15
160 GETA$
170 IFA$="+"ANDS<254THEN S=S+1
180 IFA$="-"ANDS>0THEN S=S-1
190 IFA$="S"THEN GOSUB 500
200 IF A$="F"THEN GOSUB 600
210 IF A$="D"THEN GOSUB  900
499 GOSUB 1000:GOTO 20
500 POKE19,64:INPUT"[211]PEED:";S$:PRINT:POKE19,0:S=VAL(S$):IFS>255ORS<0THEN500
510 A$="":RETURN
600 X=0
601 PRINT"[147][150][198]ARBMENUE":POKE53280,0:POKE53281,0
610 PRINT"========="
615 PRINT""
616 FORA=0TO14:PRINTTAB(5)"    ":NEXT:PRINT""
620 FORA=0TO14:PRINTATAB(4)"="CO(A);:POKE646,CO(A):PRINTTAB(9)"     [146][150][179]":NEXT A
640 GOSUB 800
645 GET A$:IF A$=""THEN 645
650 IF A$="[133]"ANDX>0 THEN GOSUB810:X=X-1
660 IF A$="[134]"ANDX<14THEN GOSUB810:X=X+1
670 IF A$="[135]"THEN GOSUB 750
680 IF A$="[136]"THEN GOSUB 770
685 IF A$=CHR$(13)THEN RETURN
690 GOTO 615
750 CO(X)=CO(X)+1:IFCO(X)>15 THENCO(X)=0
760 RETURN
770 CO(X)=CO(X)-1:IFCO(X)<0 THENCO(X)=15
780 RETURN
800 POKE781,X+2:POKE782,15:POKE783,0:SYS65520:PRINT"_":RETURN
810 POKE781,X+2:POKE782,15:POKE783,0:SYS65520:PRINT" ":RETURN
900 INPUT"[198]ILENAME";A$
910 A1=INT(49152/256)
920 A2=49152-A1*256
930 E1=INT(49500/256)
940 E2=49500-E1*256
950 SYS 57812A$,8,1
960 POKE193,A2:POKE194,A1
970 POKE174,E2:POKE175,E1
980 SYS 62957
990 OPEN1,8,15:INPUT#1,A,A$,B,C:CLOSE1:PRINTA,A$,B,C:RETURN
999 END
1000 FORX=0TO14:POKECB+X,CO(X):NEXT:POKE SP,S:RETURN