10 A$=CHR$(18):A$=A$+CHR$(176)
20 FORI=1TO38:A$=A$+CHR$(192):NEXT:A$=A$+CHR$(174):A$=A$+CHR$(221)
30 FORI=1TO38:A$=A$+CHR$(32):NEXT:A$=A$+CHR$(221):A$=A$+CHR$(173)
40 FORI=1TO38:A$=A$+CHR$(192):NEXT:A$=A$+CHR$(189)
50 :BL=828:S$="":L$="    ":V=53280
60 FORI=0TO3:READA$(I):NEXT:FORI=0TO3:READB$(I):NEXT
70 FORI=0TO3:READT$(I):NEXT:FORI=0TO3:READF$(I):NEXT
80 FORI=0TO5:READD$(I):NEXT
90 :POKEV,6:PRINT"[147]";CHR$(14)CHR$(8)CHR$(5)
100 X$=B$(0):GOSUB500:PRINTS$;:FORI=0TO3:PRINTL$A$(I):PRINT:NEXT:SYSBL,4,6
110 FB=VAL(CHR$(PEEK(251))):ONFBGOTO150,200,250,2000
120 GOTO100
150 X$=B$(1):GOSUB500:PRINTS$;:FORI=0TO3:PRINTL$T$(I):PRINT:NEXT:SYSBL,4,6
160 FB=VAL(CHR$(PEEK(251))):ON-(FB=4)GOTO100:GOTO400
200 X$=B$(2):GOSUB500:PRINTS$;:FORI=0TO3:PRINTL$F$(I):PRINT:NEXT:SYSBL,4,6
210 FB=VAL(CHR$(PEEK(251))):ON-(FB=4)GOTO100:GOTO400
250 X$=B$(3):GOSUB500:PRINTS$;:FORI=0TO5:PRINTL$D$(I):PRINT:NEXT:SYSBL,6,6
260 FB=VAL(CHR$(PEEK(251))):ON-(FB=6)GOTO100:GOTO400
400 PRINT"":FORI=0TO18:PRINT:NEXT:PRINTL$L$"[194]ITTE EINE [212]ASTE DRUCKEN"
410 POKE198,0:WAIT198,255:GOTO100
500 REM
510 LN=LEN(X$):PRINT"[147]";A$;"";SPC((40-LN)/2);X$CHR$(146);"":RETURN
1000 DATA "[193]RBEIT MIT [212]ASTATUR","[193]RBEIT MIT [196]ISKETTE","[193]RBEIT MIT [196]RUCKER"
1010 DATA "[197]NDE","[205][197][206][213][197]","[212][193][211][212][193][212][213][210]","[196][201][211][203][197][212][212][197]","[196][210][213][195][203][197][210]"
1020 DATA "[204]ESEN","[211]CHREIBEN","[197]DITIEREN","[205]ENUE"
1030 DATA "[196]IRECTORY","[204]OAD","[211]AVE","[205]ENUE"
1040 DATA "[194]RIEFKOPF","[199]RUSSWORT","[212]ITEL","[211]EITENZAHL","[212]EXT","[205]ENUE"
2000 POKEV,14:PRINTCHR$(9):END