Searching for: "Public Domain" 8x8 char-set.

Page 2/3
1 | | 3

By o.geerdink

Hero (580)

o.geerdink's picture

27-11-2013, 20:12

Up, all links are dead who has nice screen 0 charactersets?

By mars2000you

Enlighted (5811)

mars2000you's picture

27-11-2013, 20:35

By NYYRIKKI

Enlighted (5735)

NYYRIKKI's picture

29-11-2013, 14:31

Here you can find plenty of ready to use 8x8 fonts:
http://kofler.dot.at/c64/font_01.html

... but for screen 0 (6x8) ... no any good ideas...

By o.geerdink

Hero (580)

o.geerdink's picture

29-11-2013, 17:39

Nope it's hard too find and I found a site having 6x8 fonts but they use 6 pixels, and I really need 5x7 fonts to keep it readable (like standard font).

Thanks !

By nanochess

Master (222)

nanochess's picture

29-11-2013, 17:57

It's easier to draw your own characters in squared paper.

Anyway in this book is contained the official charset provided by TI, it's available for any developer. Surely you'll like to redraw the lower case letters Wink

http://map.grauw.nl/resources/video/texasinstruments_tms9918.pdf

By o.geerdink

Hero (580)

o.geerdink's picture

29-11-2013, 19:22

I made a screen 0 character editor over 20 years ago:

10 ' Screen 0 KAR editor.
20 ' (C)1992 S.O.F./ All rights reserved
30 '
40 COLOR15,4,4:SCREEN0:WIDTH80:KEYOFF
50 COLOR=(4,1,1,2):COLOR=(15,6,6,6)
70 CLS
80 PRINT "S.O.F. SCREEN 0 Karakter editor."
90 PRINT "[1] Laden karakterset."
100 PRINT "[2] Bewaren karakterset."
110 PRINT "[3] Edit karakterset."
120 PRINT "[4] Wis karakterset."
130 PRINT "[5] Basic."
140 A$=INKEY$
150 IFA$=""THEN140
160 IF A$="1"THENGOTO 400
170 IF A$="2"THENGOTO 500
180 IF A$="3"THENGOTO 220
190 IF A$="4"THENCLS:RUN
200 IF A$="5"THENSCREEN0:END
210 GOTO 140
220 CLS:PRINT"Karakterset edit. Press Esc for menu.":PRINT
221 LOCATE 7,2:PRINT"XWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWY"
222 LOCATE 7,3:FORA=0TO3:LOCATE 7:PRINT"V                                                                V":NEXTA
223 LOCATE 7,7:PRINT"ZWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW["        "
230 AD=3*80+8:N=0:FORA=0TO254:VPOKEAD,A:AD=AD+1:N=N+1:IFN<64THENNEXTAELSEN=0:AD=AD+16:NEXTA
241 LOCATE 7,10:PRINT"XWWWWWWWWY"
242 LOCATE 7:FORA=0TO7:LOCATE7:PRINT"V        V":NEXTA:LOCATE 7:LOCATE7:PRINT"ZWWWWWWWW["
250 LOCATE 8,3:X=8:Y=3:K=0
260 LOCATEX,Y:A$=INPUT$(1)
270 IFA$=CHR$(&H1C)THENX=X+1:K=K+1
280 IFA$=CHR$(&H1D)THENX=X-1:K=K-1
290 IFA$=CHR$(&H1E)THENY=Y-1:K=K-64
300 IFA$=CHR$(&H1F)THENY=Y+1:K=K+64
310 IFX=64THENX=63:K=K-1ELSEIFX=7THENX=8:K=K+1
320 IFY=7THENY=6:K=K-64ELSEIFY=2THENY=3:K=K+64
330 IFA$=CHR$(&H1B)THENGOTO 70
340 IFA$=" "THEN350ELSEGOTO 260
350 AD=K*8+&H1000:VPOKE11*80+40,K:LOCATE 9,11:GOTO 1000
360 A$="":B=VPEEK(A):A$=BIN$(B):FORC=0TO7:PRINTA$:FORC=VPTOVP+7:IFVPEEK(C)=ASC("0")THENVPOKEC,&H20:NEXTCELSEVPOKEC,&HDB:NEXTC:VP=VP+80:NEXTA
370 END
400 CLS:ONERRORGOTO 410:FILES "*.KAR":X=0:Y=0:GOTO 420
410 CLS:A$="Error checked during this operation.":B$="<>"
411 A=LEN(A$):A=80-A:A=A/2:LOCATE A,0:PRINT A$
412 A=LEN(B$):A=80-A:A=A/2:LOCATE A,1:PRINT B$
413 A$=INKEY$:IFA$=""THENGOTO 413ELSEIFA$=CHR$(27)THENRESUME70ELSERESUME400
420 ONERRORGOTO 0:A$="[SELECT]=Show directory.":A=LEN(A$):A=80-A:A=A/2:LOCATEA,22:PRINT A$
430 LOCATE X,Y
440 A$=INPUT$(1)
450 IFA$=CHR$(24)THENGOTO 400
460 IFA$=" "THENGOTO 480
470 IFA$=CHR$(29)THENX=X-13:IFX<0THENX=65:A$=CHR$(30)
471 IFA$=CHR$(28)THENX=X+13:IFX>65THENX=0:A$=CHR$(31)
472 IFA$=CHR$(30)THENY=Y-1:IFY<0THENY=0
473 IFA$=CHR$(31)THENY=Y+1:IFVPEEK(Y*80+X)=&H20THENY=Y-1
474 GOTO 430
480 AD=Y*80+X:A$="":FORA=0TO12:A$=A$+CHR$(VPEEK(AD)):AD=AD+1:NEXTA:CLS:DEFUSR=&H41:A=USR(0):BLOADA$,S:DEFUSR=&H44:A=USR(0)
490 GOTO 70
500 CLS:ONERRORGOTO 510:FILES "*.KAR":X=0:Y=0:GOTO 520
510 CLS:RESUME 520
520 ONERRORGOTO 0:A$="[SELECT]=Show directory. [RETURN] is enter name.":A=LEN(A$):A=80-A:A=A/2:LOCATEA,22:PRINT A$
530 LOCATE X,Y
540 A$=INPUT$(1)
550 IFA$=CHR$(24)THENGOTO 500
551 IF A$=CHR$(13)THEN600
560 IFA$=" "THENGOTO 580
570 IFA$=CHR$(29)THENX=X-13:IFX<0THENX=65:A$=CHR$(30)
571 IFA$=CHR$(28)THENX=X+13:IFX>65THENX=0:A$=CHR$(31)
572 IFA$=CHR$(30)THENY=Y-1:IFY<0THENY=0
573 IFA$=CHR$(31)THENY=Y+1:IFVPEEK(Y*80+X)=&H20THENY=Y-1
574 GOTO 530
580 AD=Y*80+X:A$="":FORA=0TO12:A$=A$+CHR$(VPEEK(AD)):AD=AD+1:NEXTA:CLS:DEFUSR=&H41:A=USR(0):BSAVEA$,0,24*80-1,S:DEFUSR=&H44:A=USR(0)
590 GOTO 70
600 LOCATE 0,23:PRINT"Name :";
605 B$=""
610 A$=INPUT$(1):IFA$=CHR$(27)THENLOCATE0,23:PRINT SPC(79);:GOTO 530
611 IF A$=CHR$(13)THENGOTO 630
612 IF A$=CHR$(8)THENPRINT A$;" ";A$;:B$=MID$(B$,1,LEN(B$)-1)
620 B$=B$+A$:PRINTA$;:GOTO 610
630 CLS:DEFUSR=&H41:A=USR(0):BSAVEB$+".KAR",&H1000,&H1000+256*8-1,S:DEFUSR=&H44:A=USR(0):GOTO 70
1000 '
1010 FORI=ADTOAD+7:LOCATE8
1020 B$=RIGHT$("0000000"+BIN$(VPEEK(I)),8)
1030 FORJ=1TO8:M$=MID$(B$,J,1)
1040 IFM$="0"THENPRINTCHR$(1)CHR$(71);
1050 IFM$="1"THENPRINTCHR$(219);
1060 NEXT:PRINT:NEXT
1070 LOCATE 8,11:XX=8:YY=11:P=0
1080 LOCATE XX,YY:A$=INPUT$(1)
1090 IFA$=CHR$(&H1C)THENXX=XX+1:P=P+1
1100 IFA$=CHR$(&H1D)THENXX=XX-1:P=P-1
1110 IFA$=CHR$(&H1E)THENYY=YY-1:AD=AD-1
1120 IFA$=CHR$(&H1F)THENYY=YY+1:AD=AD+1
1130 IFA$=CHR$(&H1B)THENGOTO 70
1140 IFXX=16THENXX=15P=P-1ELSEIFXX=7THENXX=8:P=P+1
1150 IFYY=10THENYY=11:AD=AD+1ELSEIFYY=19THENYY=18:AD=AD-1
1160 IFA$=CHR$(24)THENGOTO 280
1170 IFA$=" "THEN1180ELSE1080
1180 IFVPEEK(YY*80+XX)=219THENPRINTCHR$(1)CHR$(71);:A=0ELSEPRINTCHR$(219);:A=1
1190 B=VPEEK(AD):RESTORE1200:FORC=0TOP:READD,E:NEXTC:IFA=0THENB=BANDDELSEB=BORE
1200 DATA &B1111111,&B10000000,&B10111111,&B1000000,&B11011111,&B100000,&B11101111,&B10000,&B11110111,&B1000,&B11111011,&B100,&B11111101,&B10,&B11111110,1
1210 VPOKEAD,B:GOTO 1080


By o.geerdink

Hero (580)

o.geerdink's picture

29-11-2013, 19:24

ow the ascii art is ruined stupid windows can't even handle that

no wonder I'm moving back to msx LOL!

By o.geerdink

Hero (580)

o.geerdink's picture

29-11-2013, 19:28

This is the MSX version

sc0kared

Saves and loads binary vram files, loadable in screen 0 with bload "file.kar",s

By nanochess

Master (222)

nanochess's picture

30-11-2013, 04:03

Nice!

For my own game Zombie Near I wrote the character set directly in assembler, executing/assembling until it looked fine.

Finally for Princess Quest I bite the bullet and wrote my own character editor, it was faster and comfortable Smile

By giuseve

Paladin (744)

giuseve's picture

14-05-2014, 23:25

@o.geerdink
Nice tool...
can you please translate in English the lines from 80 to 120 ???
How can I save the char set and then load to use in my personal basic listing?
Maybe it saves a .kar file ?
Can I load file as .fnt or .64c or .blk, extension found in this same thread?

Regards

Page 2/3
1 | | 3