100 REM ZEICHENSATZ-LADER  NIKOLAUS HEUSLER, MUENCHEN  27.11.90
110 PRINT"[147]"
120 FORI=0TO255:POKE1024+I,I:NEXT
130 PRINT"                         [145]"
140 INPUT"NAME/ZEICHENSATZ";A$
150 PRINT""A$"                          "
160 IFA$="X"THENEND
170 SYS(57812)A$,8,0
180 POKE780,0:POKE781,0:POKE782,48:REM FILE RELATIV NACH 12288 (=48*256) LADEN
190 SYS62622:REM LOAD-ROUTINE
200 IFST AND 191THENPRINT:PRINT"LADEFEHLER ?":GOTO240
210 POKE657,128:REM SHIFT/COMMODORE AUSSCHALTEN
220 POKE53272,29:REM ZEICHENSATZ BEI 12288 EINSCHALTEN
230 GOTO130
240 OPEN1,8,15:INPUT#1,NR$,NA$,TR$,SE$:CLOSE1
250 PRINTNR$","NA$","TR$","SE$
260 POKE198,0:WAIT198,1:GOTO110