Up, all links are dead who has nice screen 0 charactersets?
Try here :
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...
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 !
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
http://map.grauw.nl/resources/video/texasinstruments_tms9918.pdf
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
ow the ascii art is ruined stupid windows can't even handle that
no wonder I'm moving back to msx
This is the MSX version
Saves and loads binary vram files, loadable in screen 0 with bload "file.kar",s
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
@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