0 SYS65409:GOTO880
1 POKE198,2:POKE631,34:POKE632,20:RETURN
2 SYSCZ:GOTO100
3 :
4 REM CHAR-EDITOR  AUTOR: HENNING PETERS, BREMEN
5 REM BEARBEITET VON N.HEUSLER, ZWENGAUERWEG 18, 8 MUENCHEN 71
6 REM 64'ER SONDERHEFT 62  MARKT&TECHNIK 1991
7 :
20 IN=33024:WV=33988:F1=64:F2=128:F3=192:F4=512:PX=693:PY=694:SYS35384:PR=35788
25 POKE695,M:ZL=34724:ZR=34750:LB=34776:RB=34829:CZ=35416:DI=35427:POKE754,20
30 POKE675,.:POKE692,.:PRINT"[147][158]":CL=34185:CB=35315:BU=34235:BD=34265:BR=34369
35 POKE53281,.:POKE53280,.:RI=33615:POKE785,29:POKE786,132:SYSRI:TT=35616
40 AT=33079:SH=34935:SU=33203:SD=33232:SR=33258:SL=33282:BL=34882
45 LE$="                     ":US=34293:OS=35132:UB=35188:OB=35247
50 POKE693,.:POKE694,.:RV=33306:MM=35350:MP=33350:POKE753,1:FA=56254
55 TA=33388:DR=33430:FH=33469:FV=33512:SK=33540:RN=33744:PN=33780:MN=33800
60 CO=33952:WA=34002:IV=34120:EO=34946:RT=34164:SA=33918:LO=33892:ZA=34175
65 SYSAT,19,.,"                    ":SYSAT,19,1,"  CHARACTER-EDITOR  ":SYSRI
70 SYSAT,19,2,"  V2.7 @ 8.1990 BY  ":SYSAT,19,3,"  -MARKT/TECHNIK^_  "
75 SYSAT,19,4,"                    ":SYSAT,19,23,"[159]AKTUELLES ZEICHEN:
80 [158]AT,18,7,"AKTUELLER CODE  :":[158]AT,18,8,"AKTUELLER SATZ  :   1":[158]ZA
85 [158]AT,18,9,"OPENZWISCHENSPEICHER: CONT":[158]AT,20,10,[199](34)" # $ % & ' ( ) * +
90 POKEFA,14:POKEFA+1,14:POKEFA+40,14:POKEFA+41,14
100 N$=STR$(N):SYSAT,35,7,LEFT$("  ",5-LEN(N$))N$:SYSSK,N:SYSSH,N,.,.
105 POKE198,.:IFBTHENSYSSH,N+F1,8,.:SYSSH,N+F2,.,8:SYSSH,N+F3,8,8
110 SYSWV
115 G=USR(G):ONGGOTO150,150,150,150,160,175,180,195,210,220,230
120 IFG>11THENONG-11GOTO230,260,270,280,290,300,310,350,365,370,375
125 IFG>22THENONG-22GOTO380,440,475,480,500,515,560,570,580,585,600,610
130 IFG>34THENONG-34GOTO620,620,620,620,630,660,775,795,855
135 GOTO115
140 :
145 WAIT203,F1:SYSCZ:GOTO100
150 SYSWA,(G+1)AND3:IFMTHENIFG=2ORG=4THENSYSWA,(G+1)AND3
155 FORI=0TO50:NEXT:GOTO115
160 SYSEO,N:SYSWA,1:IFM=1THENSYSWA,1
165 IFPEEK(PX)=0THENSYSRT
170 GOTO100
175 SYSRT:FORP=0TO40:NEXT:GOTO115
180 N=(N+1+9*PEEK(653))AND(255-B*F3):GOTO100
195 N=(N-1-9*PEEK(653))AND(255-B*F3):GOTO100
210 SYSFV,N:IFB=.GOTO100
215 SYSFV,N+F1:SYSFV,N+F2:SYSFV,N+F3:SYSTA,N,N+F1:SYSTA,N+F2,N+F3:GOTO100
220 SYSFH,N:IFB=.GOTO100
225 SYSFH,N+F1:SYSFH,N+F2:SYSFH,N+F3:SYSTA,N,N+F2:SYSTA,N+F1,N+F3:GOTO100
230 SYSAT,18,12,"[158]ZWISCHENSPEICHER NR.?":POKE198,.
235 FORI=.TO.:GETE$:IFE$=""THEN2
236 I=E$<"0"ORE$>"9":NEXTI
240 E=VAL(E$):IFB=1ANDE>1THENSYSAT,18,14,"[150]BIG CHAR!":GOTO145
245 IFG=11THENSYSMP,E,N:IFB=1THENSYSMP,E+2,N+F1:SYSMP,E+4,N+F2:SYSMP,E+6,N+F3
250 IFG=12THENSYSMM,E,N:IFB=1THENSYSMM,E+2,N+F1:SYSMM,E+4,N+F2:SYSMM,E+6,N+F3
255 GOTO145
260 IFB=.THENSYSSU,N:GOTO100
265 SYSBU,N:SYSBU,N+F1:GOTO100
270 IFB=.THENSYSSD,N:GOTO100
275 SYSBD,N:SYSBD,N+F1:GOTO100
280 FORI=.TOM:IFB=.THENSYSSR,N:NEXTI:GOTO100
285 SYSBR,N:SYSBR,N+F2:NEXTI:GOTO100
290 FORI=.TOM:IFB=.THENSYSSL,N:NEXTI:GOTO100
295 SYSBL,N:SYSBL,N+F2:NEXTI:GOTO100
300 SYSIV,N:IFB=.GOTO100
305 SYSIV,N+F1:SYSIV,N+F2:SYSIV,N+F3:GOTO100
310 SYSAT,17,12,"[158]"N"TAUSCHEN MIT?":T=N
315 N$=STR$(N):SYSAT,35,7,LEFT$("  ",5-LEN(N$))N$:SYSSK,N:SYSSH,N,.,.
320 IFB=1THENSYSSH,N+F1,8,.:SYSSH,N+F2,.,8:SYSSH,N+F3,8,8
325 E=USR(E):IFE=7THENN=(N+1+9*PEEK(653))AND(255-B*F3):GOTO315
330 IFE=8THENN=(N-1-9*PEEK(653))AND(255-B*F3):GOTO315
335 IFE<>6GOTO325
340 SYSTA,T,N:IFB=.GOTO145
345 SYSTA,T+F1,N+F1:SYSTA,T+F2,N+F2:SYSTA,T+F3,N+F3:GOTO145
350 SYSDR,N:IFB=.GOTO100
355 SYSDR,N+F1:SYSDR,N+F2:SYSDR,N+F3
360 SYSTA,N,N+F2:SYSTA,N,N+F1:SYSTA,N+F1,N+F3:GOTO100
365 SYSRV,Z:GOTO100
370 Z=.:SYSAT,37,8,1:POKE675,Z:GOTO100
375 Z=1:SYSAT,37,8,2:POKE675,Z:GOTO100
380 POKE198,.:SYSAT,18,12,"[158][211][193][214][197]: FILENAME?":SYSAT,20,13,F$:SYSAT,18,13,;
385 E$="":GOSUB1:INPUTE$:IFE$=""GOTO145
390 SYSCZ:SYSAT,18,12,"[158][211][193][214][197] "E$:SYSAT,18,13,"[158]D[146]ISK / T[146]APE?":F$=E$
395 FORI=.TO-1STEP-1:GETD$:IFD$=""THEN2
397 I=D$="T"ORD$="D":NEXTI:D=1:IFD$="D"THEND=PEEK(TT-1)
400 IFD>7THENGOSUB690:IFA$<>"J"GOTO145
405 SYSRI:SYSAT,18,13,"SATZ 1/2 [3=BEIDE]? ";
410 FORI=.TO-1STEP-1:GETD$:IFD$=""THEN2
412 I=D$>"0"ANDD$<"4":NEXT:PRINTD$
415 POKE33929,128+8*(D$="1"):POKE33925,112-8*(D$="2")
420 SYS(SA)F$,D:SYSRI
425 SYSCZ:IFD>7THENSYSAT,17,13,;:SYSTT:GOTO435
430 IFPEEK(2)THENSYSAT,18,14,"[150]EIN/AUSGABE-FEHLER!
435 I[178][183](I):[158]ZA:[137]145
440 [151]198,.:[158]AT,18,12,"SYS(null)(null)ATNSTR$: FILENAME?":[158]AT,18,13,;
445 E$[178]"":[141]1:[133]E$:[139]E$[178]""[137]145
450 [158]CZ:[158]AT,18,12,"SYS(null)(null)ATNSTR$ "E$:F$[178]E$
455 [158]AT,18,13,"SYSAN SATZ";:[141]1:[133]S:[139]S[179]0[176]S[177]2.5[137]450
460 S[178]2048[172]S[170]26624:[151]33902,S[173]256:[151]33904,S[175]255
462 [158]AT,18,14,"SYSDWAITISK / TWAITAPE?
465 FORI=.TO-1STEP-1:GETD$:IFD$=""THEN2
467 I=D$="T"ORD$="D":NEXTI:D=1:IFD$="D"THEND=PEEK(TT-1)
470 SYS(LO)E$,D:SYSRI:GOTO425
475 B=1-B:SYSCB,N:N=PEEK(2):GOTO100
480 SYSAT,18,12,"[150]ROM KOPIEREN [J/N]?":POKE198,.
485 FORI=.TO-1STEP-1:GETE$:IFE$=""THEN2
487 I=E$="J"ORE$="N":NEXTI
490 IFE$="J"THENPOKE2,Z*8:SYSIN:SYSRI
495 GOTO145
500 POKE808,237:PRINT"[154][147]":SYSRN:SYSZA:POKE198,1:POKE631,19:PRINT"	RUN"
505 POKE53270,(PEEK(53270)AND239)OR(M*16)
510 POKE53272,(PEEK(53272)AND240)OR(12+2*Z):SYS42115
515 IFPEEK(653)THENPOKE198,.:GOTO725
520 SYSAT,17,12,"[158]"N"WOHIN KOPIEREN?":T=N
525 N$=STR$(N):SYSAT,35,7,LEFT$("  ",5-LEN(N$))N$:SYSSK,N:SYSSH,N,.,.
530 IFBTHENSYSSH,N+F1,8,.:SYSSH,N+F2,.,8:SYSSH,N+F3,8,8
535 E=USR(E):IFE=7THENN=(N+1+9*PEEK(653))AND(255-B*F3):GOTO525
540 IFE=8THENN=(N-1-9*PEEK(653))AND(255-B*F3):GOTO525
545 IFE<>6GOTO535
550 SYSCO,T,N:IFB=.GOTO145
555 SYSCO,T+F1,N+F1:SYSCO,T+F2,N+F2:SYSCO,T+F3,N+F3:GOTO145
560 IFB=.THENN=(N+F2)AND255
565 GOTO100
570 SYSWV:POKEPX,.:POKEPY,.:IFPEEK(653)THENFORI=.TOB*3:SYSCL,I*F1+N:NEXTI
575 GOTO100
580 SYSRI:GOTO115
585 M=1-M:POKE695,M:POKE693,INT(PEEK(693)/2)*2
590 IFMTHENSYSAT,18,6,"[159]MULTICOLORFARBE :  "PEEK(753):GOTO100
595 SYSAT,18,6,"                     ":GOTO100
600 FORI=.TOM:IFB=.THENSYSZL,N:NEXTI:GOTO100
605 Q=(PEEK(PY)AND8)*16:SYSLB,N+Q:NEXTI:GOTO100
610 FORI=.TOM:IFB=.THENSYSZR,N:NEXTI:GOTO100
615 Q=(PEEK(PY)AND8)*16:SYSRB,N+Q:NEXTI:GOTO100
620 IFMTHENPOKE753,G-35:SYSAT,37,6,""G-35
625 GOTO115
630 IFB=.THENSYSUS,N:IFMTHENSYSWA,1:SYSUS,N:SYSWA,3
635 IFB=.GOTO100
640 IFPEEK(PX)<8THENSYSUB,N:IFMTHENSYSWA,1:SYSUB,N:SYSWA,3
645 IFPEEK(PX)<8GOTO100
650 SYSUB,N+F1:IFMTHENSYSWA,1:SYSUB,N+F1:SYSWA,3
655 GOTO100
660 IFB=.THENSYSOS,N:IFMTHENSYSWA,1:SYSOS,N:SYSWA,3
665 IFB=.GOTO100
670 IFPEEK(PX)<8THENSYSOB,N:IFMTHENSYSWA,1:SYSOB,N:SYSWA,3
675 IFPEEK(PX)<8GOTO100
680 SYSOB,N+F1:IFMTHENSYSWA,1:SYSOB,N+F1:SYSWA,3
685 GOTO100
690 OPEN1,D,15:OPEN2,D,2,F$+",P,R":INPUT#1,A,A$,C,E:CLOSE2
695 IFA=62THENA$="J":CLOSE1:RETURN
700 IFA=0THENSYSAT,18,13,"L>SCHEN [J/N]? ";:POKE198,.:WAIT198,1:GETA$:PRINTA$
703 IFA=0ANDA$="J"ANDRIGHT$(F$,1)="*"THENSYSAT,18,14,"[150]BITTE NICHT ABK;RZEN!":GOTO722
705 IFA=0ANDA$="J"THENPRINT#1,"S:"+F$:INPUT#1,A,A$,C,E
710 IFA<2THENA$="J":CLOSE1:RETURN
715 IFATHENSYSCZ:SYSAT,18,13,A"[157],"A$:SYSAT,18,14,C"[157],"E:A=.:Q=USR(Q)
720 CLOSE1:RETURN
722 A$="":CLOSE1:Q=USR(Q):RETURN
725 SYSAT,17,12,"[158]KOPIEREN AB NR.":SYSAT,17,13,"[-1=ENDE]";:GOSUB1:INPUTA:IFA<.GOTO145
730 IFBTHENA=AAND63
735 SYSSK,A:SYSAT,32,12,A:SYSAT,17,13,"BIS NR.       [157][157][157][157][157][157][157]";:GOSUB1:INPUTC:IFC<AGOTO735
740 IFBTHENC=CAND63:IFC<AGOTO735
745 Q=55936:FORI=ATOC:POKEQ+I,10:NEXTI
750 SYSCZ:SYSAT,17,12,A"BIS"C"WOHIN":SYSAT,17,13,;:GOSUB1:INPUTW
755 E=W-A:S=1:IFW>ATHENS=-S:I=A:A=C:C=I
760 FORN=ATOCSTEPS:SYSCO,N,N+E
765 IFBTHENSYSCO,N+F1,N+E+F1:SYSCO,N+F2,N+E+F2:SYSCO,N+F3,N+E+F3
770 NEXTN:N=W:GOTO145
775 IFPEEK(653)<>1GOTO100
780 SYSRN:POKE53272,(PEEK(53272)AND240)OR(12+2*Z)
785 POKE53270,PEEK(53270)AND239:PRINT"":SYSDI:Q=USR(0):CLOSE1
790 POKE53270,(PEEK(53270)AND239)OR(M*16):SYSRI:PRINT"[147][158]":GOTO65
795 SYSAT,17,12,"[158]DISK-BEFEHL:":SYSAT,17,13,"?";:POKE198,.
800 SYS42336:A$="":FORI=512TO600:A=PEEK(I):IFATHENA$=A$+CHR$(A):NEXTI
805 I=600:NEXTI:SYSAT,17,13," "
810 IFA$=""THENSYSCZ:SYSAT,17,12,"[158]STATUS:":SYSAT,17,13,;:SYSTT:GOTO840
815 IFASC(A$)=35GOTO845
820 SYSAT,17,12,"[150]AUSF;HREN [J/N]?
825 [161]E$:[139]E$[179][177]"J"[175]E$[179][177]""[175]E$[179][177]"N"[137]825
830 [139]E$[179][177]"J"[137]145
835 [158]CZ:[158]AT,17,12,"["A$"DEF]":[158]AT,17,13,;:[158](TT)A$:[158]RI
840 Q[178][183](0):[158]RI:[137]145
845 I[178][197]([202](A$,2)):[139]I[179]8[176]I[177]15[137]145
850 [158]TT#I:[137]145
855 [158]AT,18,12,"SYS(null)(null)RIGHT$(null)(null)/LENLEFT$ATN(null)":[158]AT,18,13,"BITTE DRUCKER":[158]AT,18,14,"AKTIVIEREN!
860 Q=USR(Q):OPEN1,4,0:CLOSE1:IFST<>0THEN2
862 SYSCZ:SYSAT,18,12,"[158][208][210][201][206][212][173][195][200][193][210]":SYSAT,18,13,";BERSCHRIFT
865 [151]198,.:U$[178]"":[158]AT,18,14,;:[151]198,.:[141]1:[133]U$:[158]RN:[139]U$[178]""[137]875
870 [159]1,4,7:[152]1,"E-1"[170]U$[170]"F-0":[160]1
875 [151]252,B:[158]PR:[158]RI:[158]RI:[158]CZ:[137]100
880 [151]808,251:[151]53280,.:[151]53281,.:[153]"LOAD"[163]11)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
881 D=PEEK(186):IFD<8THEND=8
885 PRINTTAB(11)"[221][159][195][200][193][210][193][195][212][197][210]-[197][196][201][212][207][210][221]
890 [153][163]11)"(null)CONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)
895 PRINTTAB(11)"[221][159]   [214]ERSION 2.7  [221]
900 [153][163]11)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
905 PRINT"[154]([215]) 8.1990 BY [205]AYLO-[211]OFT([212][205])-[215]ARE
910 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
915 PRINT"[154]PROGRAMMIERT VON [129][200]ENNING [208]ETERS
916 [153]"CONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
917 PRINT"[154]BEARBEITET VON [129][206]IKOLAUS [200]EUSLER
918 [153]"CONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
919 PRINT"[154]FUER [129]64'ER [211]ONDERHEFT #63
920 [153]"CONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
923 PRINT"[154]([195]) 11.1990, [158][205]ARKT & [212]ECHNIK [193][199]
924 [153]"CONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
925 PRINTTAB(7)"[197]INEN [193]UGENBLICK, BITTE...
927 [139][194](33024)[178]120[167]935
930 [158]57812"CHAR-ASSEMBLER",D,1:[151]780,.:[158]65493
935 [158]33860:[153]"LOAD":[151]56,96:[156]
940 U[178]36736:[129]I[178].[164]48:[135]A:[151]U[170]I,A:[130]I:MP[178]33350
945 U[178]24576:W[178]8:E[178]7:[129]I[178].[164]9:[135]A:[129]P[178].[164]E:[135]B:[151]U[170]A[172]W[170]P,B:[130]P,I
950 [151]33551,11:[129]I[178].[164]9:[158]MP,I,I[170]48:[130]I:[138]20
955 :
960 [131],,,7,2,60,1,40,43,31,29,6,3,38,30,17,42,33,22,18,10,4,5,13,26,28
965 [131]57,62,20,54,51,49,36,45,50,35,56,59,8,48
970 [131]53,11,16,41,255,255,255,255,255
975 [131],60,66,153,161,161,153,66,60
980 [131]30,246,103,102,102,,,,
985 [131]31,192,192,192,223,,,,
990 [131]44,,60,126,126,126,126,60,
995 [131]28,,,,8,,,,
1000 [131]27,14,24,24,24,24,24,14,
1005 [131]29,112,24,24,24,24,24,112,
1010 [131]60,102,24,60,102,126,102,102,
1015 [131]62,102,60,102,102,102,102,60,
1020 [131]59,102,,102,102,102,102,60,