0 VC=53248
1 PRINTCHR$(17)"BITTE WARTEN - LESE DATEN !"
2 FORA=28672TO29586:READC:Y=Y+C:POKEA,C:NEXT
3 IFY<>126178THENPRINTCHR$(17)"? READ ERROR IN TRACK ONE"CHR$(145):END
6 FORQ=49152TO49214:READC:POKEQ,C:NEXT
7 FORA=0TO89:READC:POKE30000+A,C:NEXT
8 FORQ=0TO167:READC:POKE15000+Q,C:NEXT
9 POKE56333,127:POKE1,51:SYS30000:POKE1,55:POKE56333,129:POKE650,128
10 PRINT"[147][144]":POKE53281,15:POKE53280,15
20 PRINTTAB(12)"               [146]"
30 PRINTTAB(12)" ZEICHENEDITOR [146]"
40 PRINTTAB(12)"               [146]"
50 PRINTTAB(10)"PROGRAMMED IN 1987"
60 PRINTTAB(18)"BY"
70 PRINTTAB(12)"DIETMAR SCHORR"
80 PRINTTAB(13)"(C) BY S.C.S"
90 PRINTTAB(7)"SAARLAND CRACKING SERVICE"
91 GETA$:IFA$=""ANDPEEK(56320)=127THEN91
92 PRINTCHR$(147)CHR$(17)"  1) NEUER ODER 2) ALTER ZEICHENSATZ ?"
93 GOSUB610:IFX=32THENPOKEVC+21,0:GOTO130
95 GOSUB670:IFX=48THENGA=8:GOTO100
98 GA=1:GOTO105
100 GOSUB730:IFTY=1THEN92
105 N$="":INPUT"PRG.-NAME:";N$
106 POKE16000,GA:POKE16001,PEEK(45):POKE16002,PEEK(46)
110 SYS15120 N$:SYS29468:SYS15060
120 POKE45,PEEK(16001):POKE46,PEEK(16002):POKEVC+21,0
130 PRINTCHR$(147)
140 PRINT""TAB(14)"ZEICHENEDITOR":H=0
150 INPUT"WELCHES ZEICHEN(CODE)";H
160 PRINT"NEUES ZEICHEN :"
161 FORA=0TO7:POKE38000+A,PEEK(34816+A+H*8):NEXT
170 PRINTTAB(13)"**********"
180 FORQ=1TO8:PRINTTAB(13)"*"TAB(22)"*":NEXT
190 PRINTTAB(13)"**********"
191 PRINT""
195 PRINT" ZEICHNEN: [146]"
196 PRINT" LOESCHEN: [146]"
197 PRINT" FARBE:    [146]"
198 PRINT" MENUE:    [146]"
200 PRINTTAB(13)"F1 = INVERS"
201 PRINTTAB(13)"F3 = SPIEGELN"
202 PRINTTAB(13)"F5 = RECHTS"
203 PRINTTAB(13)"F7 = RUNTER"
210 SYS29151:POKEVC+21,1
220 POKEVC,152:POKEVC+1,144
230 POKE52400,254
290 SYS28672
295 SYS15000
300 FORA=0TO100:NEXT
301 POKE198,0:PRINTCHR$(147)
305 Y=97:POKEVC+1,Y:POKEVC,120
310 PRINT""TAB(13)"1) PROBE"
320 PRINTTAB(13)"2) SPEICHERN"
330 PRINTTAB(13)"3) ALTES ZEICHEN"
340 PRINTTAB(13)"4) NEUES ZEICHEN"
350 PRINTTAB(13)"5) ENDE"
360 FORA=0TO7:POKE57344+A+H*8,PEEK(38000+A):POKE34816+A+H*8,PEEK(38000+A):NEXT
370 IF(PEEK(56320)AND1)=0THENY=Y-8
375 IF(PEEK(56320)AND2)=0THENY=Y+8
380 IF(PEEK(56320)AND16)=0THEN410
390 IFY<97THENY=97
395 IFY>161THENY=161
400 POKEVC+1,Y:GOTO370
410 IFY=97THEN443
420 IFY=129THENSYS15030:POKEVC,152:POKEVC+1,144:FORA=0TO150:NEXT:GOTO220
430 IFY=145THENPOKEVC+21,0:GOTO92
440 IFY=161THENPRINTCHR$(147):POKEVC+21,0:END
441 IFY=113THEN450
442 GOTO370
443 PRINTCHR$(147):POKEVC+21,0:PRINT"AUSSTEIGEN MIT <RETURN>"
444 SYS29238:POKEVC+21,1:GOTO300
450 PRINTCHR$(147):SYS29408
455 POKE16001,PEEK(45):POKE16002,PEEK(46)
460 PRINTTAB(15)"SPEICHERN"
470 GOSUB670
490 IFX=48THENGA=8:GOTO510
500 GA=1:GOTO530
510 GOSUB730
520 IFTY=1THEN300
530 N$="":INPUT"PRG.-NAME";N$
540 POKE193,28:POKE194,115:SYS57812 N$,GA
550 POKE174,147:POKE175,123:SYS57812 N$,GA
580 POKE16000,GA:SYS15144 N$
590 POKE45,PEEK(16001):POKE46,PEEK(16002):PRINT
595 PRINT"LADEN:[146] LOAD '"N$"',"GA",1"
596 PRINT"START:[146] SYS 29468"
597 GETA$:IFA$=""ANDPEEK(56320)=127THEN597
600 POKEVC+21,1:GOTO300
610 POKE53240,0:POKEVC+23,0:POKEVC+29,0:POKEVC+21,1:POKEVC+39,1
620 X=32:POKEVC,X:POKEVC+1,49
625 FORA=0TO100:NEXT
630 IF(PEEK(56320)AND4)=0THENX=32
640 IF(PEEK(56320)AND8)=0THENX=144
650 IF(PEEK(56320)AND16)=0THENRETURN
660 POKEVC,X:GOTO630
670 PRINTCHR$(17)CHR$(17)"    1) FLOPPY ODER 2) DATASETTE ?"
680 X=48:POKEVC,X:POKEVC+1,73
685 FORA=0TO150:NEXT
690 IF(PEEK(56320)AND4)=0THENX=48
700 IF(PEEK(56320)AND8)=0THENX=168
710 IF(PEEK(56320)AND16)=0THENRETURN
720 POKEVC,X:GOTO690
730 TY=0:OPEN1,8,0:CLOSE1:IFST<>-128THENRETURN
740 PRINTCHR$(17)TAB(10)"DEVICE NOT PRESENT":FORA=0TO150:NEXT
750 GETA$:IFA$=""ANDPEEK(56320)=127THEN750
760 TY=1:RETURN
29997 :
29998 REM ******** TRACK ONE **********
32000 DATA160,0,132,100,132,101,169,158,133,98,169,205,133,99,160,0,177,98,201
32001 DATA160,208,12,152,41,7,170,165,100,24,125,26,113,133,100,200,152,41,7
32002 DATA208,16,165,100,166,101,157,240,231,157,112,148,169,0,133,100,230,101
32003 DATA192,8,208,212,24,160,0,165,98,24,105,40,133,98,144,2,230,99,169,207
32004 DATA197,99,208,192,173,0,220,41,1,208,9,173,1,208,56,233,8,141,1,208,173
32005 DATA0,220,41,2,208,9,173,1,208,24,105,8,141,1,208,173,0,220,41,4,208,9
32006 DATA173,0,208,56,233,8,141,0,208,173,0,220,41,8,208,9,173,0,208,24,105
32007 DATA8,141,0,208,173,0,208,201,96,176,5,169,96,141,0,208,173,0,208,201,185
32008 DATA144,5,169,184,141,0,208,173,1,208,201,120,176,5,169,120,141,1,208,173
32009 DATA1,208,201,177,144,5,169,176,141,1,208,169,158,133,98,169,205,133,99
32010 DATA162,120,236,1,208,240,18,138,24,105,8,170,165,98,24,105,40,133,98,144
32011 DATA2,230,99,208,233,162,128,236,0,208,240,14,138,24,105,8,170,24,230,98
32012 DATA144,2,230,99,208,237,173,0,208,201,128,144,14,173,0,220,41,16,208,7
32013 DATA173,34,113,160,0,145,98,162,0,160,0,200,208,253,232,224,16,208,246
32014 DATA76,35,113,128,64,32,16,8,4,2,1,160,173,0,208,201,96,240,3,76,106,113
32015 DATA173,0,220,41,16,208,54,173,1,208,201,120,208,5,169,160,141,34,113,173
32016 DATA1,208,201,136,208,5,169,32,141,34,113,173,1,208,201,152,208,15,238
32017 DATA176,216,162,0,160,0,200,208,253,232,224,26,208,246,173,1,208,201,168
32018 DATA208,1,96,24,169,10,133,248,169,23,133,249,162,0,189,112,148,134,250
32019 DATA168,32,162,179,32,221,189,166,248,164,249,24,32,10,229,230,248,162
32020 DATA0,189,0,1,201,0,240,6,32,210,255,232,208,243,169,32,32,210,255,169
32021 DATA32,32,210,255,166,250,232,224,8,208,202,165,203,201,51,208,43,173,141
32022 DATA2,41,1,240,36,162,0,160,0,169,32,157,158,205,232,200,192,8,208,245
32023 DATA160,0,138,24,105,32,170,144,236,162,0,169,32,157,182,206,232,224,8
32024 DATA208,246,76,62,114,169,10,133,248,169,14,133,249,162,0,160,0,189,112
32025 DATA148,57,26,113,240,7,169,18,133,250,76,254,113,169,32,133,250,134,252
32026 DATA132,253,166,248,164,249,24,32,10,229,230,249,165,250,32,210,255,201
32027 DATA18,208,10,169,32,32,210,255,169,146,32,210,255,166,252,164,253,200
32028 DATA192,8,208,195,160,0,230,248,169,14,133,249,232,224,8,208,182,96,32
32029 DATA207,255,201,13,208,249,96,165,203,201,4,208,21,162,0,189,112,148,73
32030 DATA255,157,112,148,232,224,8,208,243,32,223,113,32,211,114,165,203,201
32031 DATA5,208,37,160,0,132,248,162,8,185,112,148,74,153,112,148,165,248,42
32032 DATA133,248,202,208,241,165,248,153,112,148,200,192,8,208,229,32,223,113
32033 DATA32,211,114,165,203,201,6,208,25,162,0,134,248,189,112,148,106,165,248
32034 DATA42,24,74,126,112,148,24,232,224,8,208,238,32,223,113,165,203,201,3
32035 DATA208,39,162,0,173,119,148,133,248,189,112,148,157,0,64,232,224,7,208
32036 DATA245,162,0,189,0,64,157,113,148,232,224,7,208,245,165,248,141,112,148
32037 DATA32,223,113,76,0,112,162,0,160,0,200,208,253,232,224,16,208,246,96,162
32038 DATA0,189,0,136,157,147,115,189,255,136,157,146,116,189,255,137,157,146
32039 DATA117,189,255,138,157,146,118,189,255,139,157,146,119,189,255,140,157
32040 DATA146,120,189,255,141,157,146,121,189,255,142,157,146,122,189,255,143
32041 DATA157,146,123,232,208,199,96,120,169,51,133,1,169,208,133,252,169,224
32042 DATA133,254,160,0,132,251,132,253,162,16,177,251,145,253,200,208,249,230
32043 DATA252,230,254,202,208,242,169,55,133,1,88,169,196,141,0,221,169,204,141
32044 DATA136,2,169,56,141,24,208,32,68,229,234,162,0,189,147,115,157,0,224,189
32045 DATA146,116,157,255,224,189,146,117,157,255,225,189,146,118,157,255,226
32046 DATA189,146,119,157,255,227,189,146,120,157,255,228,189,146,121,157,255
32047 DATA229,189,146,122,157,255,230,189,146,123,157,255,231,232,208,199,96
32048 REM ****** ENDE TRACK ONE *******
32049 :
40000 DATA0,0,0,0,0,0,0,0,0,0,0,0
40001 DATA0,0,0,0,0,0,0,0,0,0,0,0
40002 DATA0,0,0,0,0,0,0,0,0,0,0,0
40003 DATA0,8,0,0,24,0,0,56,0,0,120,0,0,248,0,0,32,0,0,64,0,0,128,0,1,0,0
50000 DATA160,0,132,98,132,100,169,136,133,99,169,208,133,101,177,100,145
50010 DATA98,200,208,249,230,99,230,101,169,224,197,101,208,239
50070 DATA120,169,51,133,1,169,208,133,252,169,224,133,254,160,0,132,251
50080 DATA132,253,162,16,177,251,145,253,200,208,249,230,252,230,254,202
50090 DATA208,242,169,55,133,1,88,169,196
50100 DATA141,0,221,169,204,141,136,2,169,56,141,24,208,32,68,229,96
50110 DATA162,0,189,0,204,157,0,64,189,255,204,157,255,64,189,255,205,157,255
50120 DATA65,189,255,206,157,255,66,232,208,229,96,162,0,189,0,64,157,0
50130 DATA204,189,255,64,157,255,204,189,255,65,157,255,205,189,255,66,157,255
50140 DATA206,232,208,229,96
50150 DATA162,0,189,147,115,157,0,136,189,146,116,157,255,136,189,146,117
50160 DATA157,255,137,189,146,118,157,255,138,189,146,119,157,255,139,189
50170 DATA146,120,157,255,140,189,146,121,157,255,141,189,146,122,157,255
50180 DATA142,189,146,123,157,255,143,232,208,199,96
50190 DATA32,87,226,160,1,169,1,174,128,62,32,186,255,169,0,32,213,255
50200 DATA144,3,76,249,224,96
50210 DATA32,87,226,160,1,169,1,174,128,62,32,186,255,169,0,32,234,245
50220 DATA144,3,76,249,224,96
50230 :
50233 :
50235 REM ****** LADEPROGRAMM *********
50236 REM *SYS ANFANGSA,NAME,GERAETENR*
50237 REM *****************************
50240 DATA32,253,174,32,87,226,32,253,174,32,158,183,169,1,168,32,186,255
50250 DATA169,0,32,213,255,144,3,76,249,224,96