VIC-20-CUSTOM-FONT-BUT-ALSO-FOR-OTHER-RETRO-PLATFORMS -------------------------------------------------------------------------------------------------- TOOL: COMMODORE VIC-20 - BASIC 2 Language: BASIC Extra: - Author: Misel Zivanovic Note: (C) 2nd JAN 2026 - www.lived.ch, mzretro.ch --------------------------------------------------------------------------------------------------- This font was made by me, today, 2nd of January 2026! If anyone else made the same one, don't blame me, blame yourself to have made a copy of the font i was planning to do 40 years ago! Hehe... I was using C128 SPRDEF Editor to create the font! Check the screenshot! A-F 100 data 0, 60, 102, 198, 254, 198, 198, 198 100 data 0, 60, 102, 198, 220, 198, 198, 252 100 data 0, 60, 102, 192, 192, 192, 198, 124 100 data 0, 60, 102, 198, 198, 198, 198, 254 100 data 0, 62, 102, 192, 240, 192, 198, 254 100 data 0, 62, 102, 192, 240, 192, 192, 192 G-L 100 data 0, 62, 102, 192, 222, 198, 198, 124 100 data 0, 38, 102, 198, 254, 198, 198, 198 100 data 0, 8, 24, 48, 48, 48, 48, 48 100 data 0, 4, 12, 24, 24, 24, 216, 120 100 data 0, 34, 102, 204, 248, 216, 204, 198 100 data 0, 32, 96, 192, 192, 192, 198, 254 M-R 100 data 0, 38, 110, 254, 214, 214, 198, 198 100 data 0, 38, 102, 198, 246, 222, 206, 198 100 data 0, 60, 102, 198, 198, 198, 198, 124 100 data 0, 62, 102, 198, 252, 192, 192, 192 100 data 0, 62, 102, 198, 198, 214, 200, 246 100 data 0, 62, 102, 198, 252, 216, 204, 198 S-X 100 data 0, 60, 102, 192, 252, 6, 198, 124 100 data 0, 254, 54, 96, 96, 96, 96, 96 100 data 0, 38, 102, 198, 198, 198, 198, 124 100 data 0, 38, 102, 198, 198, 118, 30, 14 100 data 0, 38, 102, 198, 198, 238, 254, 214 100 data 0, 38, 102, 204, 120, 56, 108, 198 Y-Z 100 data 0, 38, 102, 198, 102, 60, 24, 24 100 data 0, 62, 102, 204, 24, 48, 102, 252 141 REM 0 - 10 (48-57) 141 data 0, 124, 198, 206, 214, 230, 198, 124 141 data 0, 56, 120, 24, 24, 24, 24, 24 141 data 0, 124, 198, 12, 24, 48, 102, 254 141 data 0, 124, 198, 6, 28, 6, 198, 124 141 data 0, 30, 54, 102, 254, 6, 6, 6 141 data 0, 254, 192, 192, 252, 6, 6, 252 141 data 0, 124, 198, 192, 252, 198, 198, 124 141 data 0, 254, 198, 12, 24, 48, 48, 48 141 data 0, 124, 198, 198, 124, 198, 198, 124 141 data 0, 124, 198, 198, 126, 6, 198, 124 --------------------------------------------------------------------------------------------------- SOURCE CODE - ALL IN ONE - {can be copy/pasted into VICE VIC-20 Emulator} --------------------------------------------------------------------------------------------------- 101 a=643:b=644 102 poke51,0:poke52,24 103 poke55,0:poke56,24 104 poke a,0:poke b,24 105 clr 106 sys 58719:rem cls 107 poke 36869,254 108 poke 646,7 109 poke 36879,8 110 t=6144:s=32768 111 for a=0 to 1023 112 poket+a,peek(a+s) 113 next 114 forc=0 to 207:readd 115 poket+8+(c),d:next 116 data 0,60,102,198,254,198,198,198 117 data 0,60,102,198,220,198,198,252 118 data 0,60,102,192,192,192,198,124 119 data 0,60,102,198,198,198,198,254 120 data 0,62,102,192,240,192,198,254 121 data 0,62,102,192,240,192,192,192 122 data 0,62,102,192,222,198,198,124 123 data 0,38,102,198,254,198,198,198 124 data 0,8,24,48,48,48,48,48 125 data 0,4,12,24,24,24,216,120 126 data 0,34,102,204,248,216,204,198 127 data 0,32,96,192,192,192,198,254 128 data 0,38,110,254,214,214,198,198 129 data 0,38,102,198,246,222,206,198 130 data 0,60,102,198,198,198,198,124 131 data 0,62,102,198,252,192,192,192 132 data 0,62,102,198,198,214,200,246 133 data 0,62,102,198,252,216,204,198 134 data 0,60,102,192,252,6,198,124 135 data 0,254,54,96,96,96,96,96 136 data 0,38,102,198,198,198,198,124 137 data 0,38,102,198,198,118,30,14 138 data 0,38,102,198,198,238,254,214 139 data 0,38,102,204,120,56,108,198 140 data 0,38,102,198,102,60,24,24 141 data 0,62,102,204,24,48,102,252 142 rem numbers 0 - 10 (48-57) 144 form=208 to 287:readn 145 poke 6320+m,n:next 146 data 0,124,198,206,214,230,198,124 147 data 0,56,120,24,24,24,24,24 148 data 0,124,198,12,24,48,102,254 149 data 0,124,198,6,28,6,198,124 150 data 0,30,54,102,254,6,6,6 151 data 0,254,192,192,252,6,6,252 152 data 0,124,198,192,252,198,198,124 153 data 0,254,198,12,24,48,48,48 154 data 0,124,198,198,124,198,198,124 155 data 0,124,198,198,126,6,198,124 156 rem gfx SHIFT+ABCDEF 157 form=288 to 335:readn 158 poke 6376+m,n:next 159 data 127,144,255,128,136,255,132,127 160 data 254,33,255,137,129,255,17,254 161 data 255,192,191,181,170,191,192,255 162 data 255,3,253,85,173,253,3,255 163 data 126,195,165,153,153,165,195,126 164 data 126,171,213,171,213,171,213,126 200 rem cursor 201 poke 7424,129 202 poke 7425,129 203 poke 7426,129 204 poke 7427,255 205 poke 7428,126 206 poke 7429,126 207 poke 7430,255 208 poke 7431,126 209 print "lived.ch, mzretro.ch" 210 print "font made for vic-20" 211 print 212 print "abcdefghijklm" 213 print "nopqrstuvwxyz" 214 print 215 print "0123456789" 216 print 217 print "shift + abcdef" 218 print "for gfx elements!" --------------------------------------------------------------------------------------------------- Next lesson will be transforming this FONT into a MULTICOLOR one! ---------------------------------------------------------------------------------------------------