0 GOTO10
1 *********************************
2 *    CHARAKTER-DESIGNER C=64    *
3 *   *** ZEICHENSATZ LADER ***   *
4 * VON  MATTHIAS MEYER           *
5 *                               *
6 * WINKELWEG 24                  *
7 * 5505 WASSERLIESCH  BEI TRIER  *
8 * TEL.06501/14891               *
9 *********************************
10 IFA=0THEN100: REM SCHON GELADEN ?
20 POKE53248+24, 29: REM  CHARAKTERSATZ EINSCHALTEN
30 PRINT"MULTICOLOR (J/N) ";:POKE198,0: WAIT198,1:GETMU$: POKE198,0
40 IFMU$="J"THEN POKE VIC+22, 216: GOTO 60: REM  CHA. AUF MULTICOLOR SCHALTEN
50 IFMU$<>"N"THEN PRINT: GOTO30: REM  BEI FALSCHER TASTE ZURUECK
60 PRINTMU$: END: REM  ENDE
70 REM  FUER MULTICOLOR GELTEN NUR DIE FARBEN 8-16 !!
80 REM  DIE ANDEREN FARBEN WERDEN IN REG 34 UND 35 FESTGELEGT
90 --- LADEN DES ZEICHENSATZES ---
100 POKE56, 3*16: POKE 55, 0: CLR: REM  ENDE DES BASIK RAM AUF $3000 SETZEN
110 VIC = 53248:REM  VIC GRUNDADRESSE
120 POKEVIC+32,9: POKEVIC+33,7: PRINT"[147][158]":POKEVIC+33,9: REM  FARBEN SETZEN
130 INPUT"CHARAKTERSATZ NAME";NA$: REM  NAME DES CHARAKTERSATZES
140 NA$=""+NA$: REM  DAS ERKENNUNGSZEICHEN FUER EIN CHA.SATZ VOR DEN NAMEN
150 A = 1:LOAD NA$ ,8,1: REM  CHA.SATZ VON FLOPPY LADEN