Related Articles: Redefine the TS2068 Character Set
Developer(s): Algis Gedris, Kenneth Majors
Date: 198x
Type: Program
Platform(s): TS 2068
Choose from one of four fonts.
Appears on
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