mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
36 lines
810 B
QBasic
36 lines
810 B
QBasic
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
|
||
|