mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-11-14 09:16:45 +00: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<67>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"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ"
|
|||
|
|
180 PRINT "<22>";CHRCDE$;"<22>"
|
|||
|
|
190 CH$=LEFT$(CHRCDE$,3)
|
|||
|
|
200 IF CH$="255" THEN AUS=1
|
|||
|
|
210 CH=VAL(CH$)
|
|||
|
|
220 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ķ"
|
|||
|
|
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 "<22>";L$(Z):LOCATE Y,10:PRINT"<22>"
|
|||
|
|
430 NEXT Z
|
|||
|
|
440 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ";CHR$(CH)
|
|||
|
|
450 A$=INKEY$:IF A$="" THEN 450
|
|||
|
|
460 IF AUS=1 THEN CLS:END
|
|||
|
|
470 CLS:GOTO 160
|
|||
|
|
|