Toby Jennings tcjennings
tcjennings
/ FONT.SHAPE.DEMO
Last active
February 9, 2021 00:24
PRODOS-friendly shape-based font demo using Beagle Brothers proportional font shapes ("ACOMPUTE" from the Apple Mechanic diskette).
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 1 REM | |
| 2 REM PRODOS HI RES DEMO PROGRAM | |
| 3 REM USING BEAGLE BROS SHAPE FONT AT $6000 | |
| 4 REM MODIFIED FROM Apple II High Resolution Character Generator, COMPUTE! June 1981 | |
| 5 REM | |
| 8 LOMEM:28928 | |
| 10 POKE 232,0: POKE 233,96: REM POKES SHAPE TABLE START ADDRESS | |
| 30 PRINT CHR$(4)"BLOAD ACOMPUTE,A$6000" : REM LOADS SHAPE TABLE INTO MEMORY, MATCHES PREVIOUS POKES | |
| 40 HOME: HGR2: POKE 49234,0: HCOLOR=3: ROT=0: SCALE=1: REM SETS HIRES GRAPHICS PARAMS, USES PAGE 2 TO HIRES MEMORY | |
| 45 REM H AND V ARE MANUAL ATTEMPTS AT CENTERING. NOT SOPHISTICATED. |