100 PRINT"[147]        BSS'256K KERNAL-GENERATOR"
110 PRINT"          BY P.ENGELS  FEB.1987"
120 IF (PEEK(65534)=72 AND PEEK(65535=255)) GOTO 150
130 PRINT"   KERNAL KANN NICHT GENERIERT WERDEN"
140 END
150 PRINT"    KERNAL WIRD NACH $4000 VERSCHOBEN"
160 I=49152
170 READA:IFA<0 GOTO190
180 POKEI,A:I=I+1:GOTO170
190 SYS49152:REM KERNAL KOPIEREN
200 :
210 :
220 M1$="     *** 256K-BANK-SWITCH-SYSTEM ***":REM 36 ZEICHEN
230 M2$=" >CBM BASIC V2< ":REM 16 ZEICHEN
240 :
250 :
260 M1=17524:REM BEGINN MELDUNG 1-1
270 M2=17562:REM BEGINN MELDUNG 2-1
280 :
290 PRINT"       MELDUNGEN WERDEN EINGEBUNDEN"
300 FOR I=1TO36:POKEM1+I,ASC(MID$(M1$,I,1)):NEXT
310 FOR I=1TO16:POKEM2+I,ASC(MID$(M2$,I,1)):NEXT
320 :
330 PRINT"             FARBENWAHL:"
340 PRINT" F1 = RAHMEN              F3 = SCHIRM"
350 PRINT" F5 = SCHRIFT             F7 = FERTIG"
360 GETA$:IFA$=""GOTO360
370 A=ASC(A$)
380 IFA=133THENPOKE53280,(PEEK(53280)+1)AND15:R=PEEK(53280):REM RAHMEN
390 IFA=134THENPOKE53281,(PEEK(53281)+1)AND15:S=PEEK(53281):REM SCHIRM
400 IFA=135THENPOKE646,(PEEK(646)+1)AND15:SYS 49195:Z=PEEK(55296):REM ZEICHEN
410 IFA<>136GOTO360
420 POKE17717,Z:REM ZEICHENFARBE
430 POKE19673,R:REM RAHMENFARBE
440 POKE19674,S:REM SCHIRMFARBE
450 PRINT" BSS'256K-KERNAL LIEGT VON $4000-$5FFF"
460 PRINTSPC(14)"IM SPEICHER"
470 DATA169,0,133,252,133,254,169,224,133,255,169,64,133,253,160,0,177,254
480 DATA145,252,230,252,230,254,208,246,230,253,230,255,208,240,169,0,141,254
490 DATA95,169,209,141,255,95,96,173,134,2,162,0,157,0,216,157,0,217,157,0
500 DATA218,157,0,219,232,208,241,96,-1