mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-12-25 03:54:07 +00:00
Added FONTREAD.BAS + fonts.
This commit is contained in:
parent
90a1e2aa46
commit
59784b90dd
4354
FONTS/CREATOR
Normal file
4354
FONTS/CREATOR
Normal file
File diff suppressed because it is too large
Load Diff
4354
FONTS/DATABANK
Normal file
4354
FONTS/DATABANK
Normal file
File diff suppressed because it is too large
Load Diff
4354
FONTS/DIGITS
Normal file
4354
FONTS/DIGITS
Normal file
File diff suppressed because it is too large
Load Diff
4354
FONTS/FONT.DAT
Normal file
4354
FONTS/FONT.DAT
Normal file
File diff suppressed because it is too large
Load Diff
36
FONTS/FONTREAD.BAS
Normal file
36
FONTS/FONTREAD.BAS
Normal file
@ -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
|
||||
|
4354
FONTS/ORIGINAL
Normal file
4354
FONTS/ORIGINAL
Normal file
File diff suppressed because it is too large
Load Diff
4354
FONTS/RC001
Normal file
4354
FONTS/RC001
Normal file
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user