Added FONTREAD.BAS + fonts.

FONTS/FONTREAD.BAS

@@ -0,0 +1,36 @@
+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
+