10 DIM L$(16)
20 CLS
30 COLOR 15
40 PRINT"Welche Datei soll angezeigt werden [FONT.DAT] ?"
50 PRINT"Bsp: 12345678.EXT"
60 INPUT ">",DAT$
70 IF DAT$="" THEN DAT$="FONT.DAT"
80 OPEN "I",#1,DAT$
90 PRINT"Datei ge”ffnet."
100 SH$="D:\DOS\UTIL\FONTS\LOADFONT <"+DAT$
110 SHELL SH$
120 LINE INPUT #1,NO$
130 PRINT NO$
135 ED=VAL(NO$)
140 FOR Z=0 TO 10000:NEXT
150 CLS
160 LINE INPUT #1,CHRCDE$
170 PRINT"ÉÍÍÍÍÍÍÍÍ»"
180 PRINT "º";CHRCDE$;"º"
190 CH$=LEFT$(CHRCDE$,3)
200 IF CH$="255" THEN AUS=1
210 CH=VAL(CH$)
220 PRINT"ÇÄÄÄÄÄÄÄĶ"
225 FOR I=1 TO ED
230 LINE INPUT #1,L$(I)
235 NEXT I
390 Y=3
400 FOR Z=1 TO ED
410 Y=Y+1
420 PRINT "º";L$(Z):LOCATE Y,10:PRINT"º"
430 NEXT Z
440 PRINT"ÈÍÍÍÍÍÍÍͼ";CHR$(CH)
450 A$=INKEY$:IF A$="" THEN 450
460 IF AUS=1 THEN CLS:END
470 CLS:GOTO 160