Choose from one of four fonts.
Appears on
Related Articles
Every 2068 user should know by now that they can define their own graphics characters, but did you know that you can also design your own type fonts? Well now you are no longer locked In by the standard 2068 block characters. The really amazing part Is that It Is quite easy to redesign them.
Gallery
Source Code
1 REM BASIC PROGRAM WAS PRESENTED BY "SYNCWARE NEWS" WRITTEN BY KENNETH E. MAJORS. ********************************
2 REM MODIFIED AND ADAPTED BY ALGIS E. GEDRIS ################################
3 REM YOUR PROGRAM SHOULD ACCUPY LINES BETWEEN (1) AND (9979)
9979 STOP
9980 POKE 23609,60: POKE 23658,8: BORDER 2: PAPER 6: INK 0: CLS : POKE 23606,213: POKE 23607,239: POKE 23606,238: POKE 23607,248: PRINT AT 5,3;"C H A R E C T E R M E N U": POKE 23606,0: POKE 23607,60: PRINT AT 10,6;"1..NORMAL LETTERING": PRINT TAB 6;"2..";: POKE 23606,238: POKE 23607,248: PRINT TAB 9;"TECH LETTERING": POKE 23606,0: POKE 23607,60: PRINT TAB 6;"3..";: POKE 23606,231: POKE 23607,245: PRINT TAB 9;"STENCIL LETTERING": POKE 23606,0: POKE 23607,60
9981 PRINT TAB 6;"4..";: POKE 23606,222: POKE 23607,242: PRINT TAB 9;"RSVP LETTERING": POKE 23606,0: POKE 23607,60
9983 INPUT "SELECT CHOISE";C$
9984 IF C$="1" THEN CLS : POKE 23606,213: POKE 23607,239: GO TO 9990
9985 IF C$="2" THEN CLS : POKE 23606,238: POKE 23607,248: GO TO 9990
9986 IF C$="3" THEN CLS : POKE 23606,231: POKE 23607,245: GO TO 9990
9987 IF C$="4" THEN CLS : POKE 23606,222: POKE 23607,242: GO TO 9990
9988 GO TO 9980
9989 REM IN LINE 9990 CHANGE "GOTO 1" TO YOUR PROGRAM START LINE
9990 GO TO 1
9997 LOAD "CHAR/CODE"CODE 61653,3105: GO TO 9980
9998 SAVE "CHARECTER4" LINE 9997: SAVE "CHAR/CODE"CODE 61653,3105
9999 PRINT #1;AT 0,0;"****REWIND THE TAPE AND PLAY**** *******TO VERIFY*******": VERIFY "": VERIFY ""CODE