10 GOTO 90
20 REM HEX -> DEZ
30 SA$=RIGHT$("    "+SA$,4)
40 SA=0:FORI=1TOLEN(SA$):S0=ASC(MID$(SA$,I,1)):SA=16*SA+S0-48+(S0>64)*7:NEXT
50 RETURN
60 REM ADRESSE -> LOW,HIGH
70 SH=INT(S4/256):SL=S4-256*SH
80 RETURN
90 PRINTCHR$(14);"[147]       C-64 [208]ARALLEL [208]ROGRAMM"
100 PRINT"       ----------------------"
110 PRINT:
120 INPUT "[211]TARTADRESSE: ";SA$:SA=VAL(SA$)
130 IF LEFT$(SA$,1)="$"THENGOSUB30
140 READ EN
150 FOR I=1 TO EN
160 READ A,B:IF SA+187>=A AND SA<=B THENRUN
170 NEXT
180 PRINT:PRINT"[197]INLESEN DES [205][195]-[208]ROGRAMMES":PRINT
190 S1=SA+58:S2=SA+122:S3=SA+37
200 FOR I = SA TO SA+187
210 READ DA
220 POKEI,DA
230 NEXT I
240 S4=S2 : GOSUB 70
250 POKE SA+2,SH:POKESA+4,SL
260 S4=S1 :GOSUB 70
270 POKE SA+12,SH:POKESA+14,SL
272 S4=S3 :GOSUB70
274 POKE SA+28,SL:POKE SA+29,SH
280 PRINT:PRINT"[215]IEDEREINSCHALTEN NACH '[211][212][207][208]/[210][197][211][212][207][210][197]'"
290 PRINT:PRINT"MIT      'SYS ";SA;"'"
300 SYS SA
310 END
320 REM" GESPERRTE [194]EREICHE
330 [131] 4
340 [131] 0,827,1023,2039,40960,49151,53248,65535
350 [143] MASCHINENPROGRAMM
360 [131]120,169,192,160,122,141, 33,  3,140, 32,  3,169,192,160, 58,141
370 [131] 39,  3,140, 38,  3, 88, 32,204,255,160, 20,185, 37,192, 32,210
380 [131]255,136, 16,247, 96, 13, 86, 73, 84, 75, 65, 32, 84, 82, 79, 80
390 [131] 45, 76, 69, 76, 76, 65, 82, 65, 80, 13, 72,165,154,201,  4,240
400 [131]  3, 76,205,241,173, 13,221,165,  2, 41,  1,240, 16,104,201, 64
410 [131]144, 10,201,192,144,  4, 41,127,208,  2,  9, 32, 72,104,141,  1
420 [131]221,173,  0,221, 41,251,141,  0,221,234,234,234,  9,  4,141,  0
430 [131]221,173, 13,221, 41, 16,240,249, 24, 96, 32, 15,243,240,  3, 76
440 [131]  1,247, 32, 31,243,165,186,201,  4,240,  3, 76, 91,242,165,  2
450 [131] 41,254,133,  2,165,185, 41,  7,201,  7,208,  6,169,  1,  5,  2
460 [131]133,  2,169,255,141,  3,221,169,  4, 13,  0,221,141,  0,221,169
470 [131]  4, 13,  2,221,141,  2,221,169,  4, 76,117,242