Fonts for the TS 2068.
Content
Image Gallery
Source Code
5 GO SUB 10: GO TO 25
6 POKE 23606,152: POKE 23607,242: PRINT AT L,C;: RETURN
7 POKE 23606,104: POKE 23607,245: PRINT AT L,C;: RETURN
8 POKE 23606,8: POKE 23607,248: PRINT AT L,C;: RETURN
10 POKE 23606,0: POKE 23607,60: RETURN
11 POKE 23606,216: POKE 23607,250: RETURN
12 POKE 23606,184: POKE 23607,253: RETURN
15 POKE 23606,119: POKE 23607,239: RETURN
16 POKE 23606,87: POKE 23607,241: PRINT AT L,c;: RETURN
25 PRINT INK 4;AT 1,7;"OLD ENGLISH FONTS": PRINT INK 2;AT 2,11;" MENU "
26 PRINT AT 4,2;"DEFINED FONTS .......A - Z";AT 5,23;"a - z";AT 6,23;"1 - 0";AT 7,20;"""?,.:;'$"
27 PRINT " SPACE ...........SPACE BAR"'" DELETE ONE FONT ... DELETE"'" DELETE LINE..........C/S 5"'" START OVER AGAIN......EDIT"'" NEW LINE.............ENTER"
28 PRINT " RETURN TO BASIC..........a"'" TO TYPE..................p"
29 PRINT ' INK 4;" COPY - NEW............STOP"' INK 4;" COPY - REPEAT..........NOT"
30 PRINT #1; INK 2;" INPUT p/a "
32 PAUSE 0
33 IF INKEY$="p" THEN GO TO 300
330 CLS
340 LET L=1: LET C=0
360 PAUSE NOT PI
361 IF INKEY$=" STOP " THEN RANDOMIZE USR 23296: GO TO 330
362 IF INKEY$="NOT " THEN RANDOMIZE USR 23296: GO TO 340
365 IF INKEY$="(" THEN GO TO 1600
370 IF INKEY$="A" THEN GO SUB 6: PRINT " !""";AT L+1,C;"#$%";AT L+2,C;"&'(": LET C=C+3
380 IF INKEY$="B" THEN GO SUB 6: PRINT ")*+";AT L+1,C;",-.";AT L+2,C;"/01": LET C=C+3
390 IF INKEY$="C" THEN GO SUB 6: PRINT "234";AT L+1,C;"567";AT L+2,C;"89:": LET C=C+3
400 IF INKEY$="D" THEN GO SUB 6: PRINT ";<=";AT L+1,C;">?@";AT L+2,C;"ABC": LET C=C+3
410 IF INKEY$="E" THEN GO SUB 6: PRINT "DEF";AT L+1,C;"GHI";AT L+2,C;"JKL": LET C=C+3
420 IF INKEY$="F" THEN GO SUB 6: PRINT "MNO";AT L+1,C;"PQR";AT L+2,C;"STU": LET C=C+3
430 IF INKEY$="G" THEN GO SUB 6: PRINT "VWX";AT L+1,C;"YZ[";AT L+2,C;"\]^": LET C=C+3
440 IF INKEY$="H" THEN GO SUB 6: PRINT "_`a";AT L+1,C;"bcd";AT L+2,C;"efg": LET C=C+3
450 IF INKEY$="I" THEN GO SUB 6: PRINT "hij";AT L+1,C;"klm";AT L+2,C;"nop": LET C=C+3
460 IF INKEY$="J" THEN GO SUB 6: PRINT "qrs";AT L+1,C;"tuv";AT L+2,C;"wxy": LET C=C+3
470 IF INKEY$="K" THEN GO SUB 7: PRINT " !""";AT L+1,C;"#$%";AT L+2,C;"&'(": LET C=C+3
480 IF INKEY$="L" THEN GO SUB 7: PRINT ")*+";AT L+1,C;",-.";AT L+2,C;"/01": LET C=C+3
490 IF INKEY$="M" THEN GO SUB 7: PRINT "234";AT L+1,C;"567";AT L+2,C;"89:": LET C=C+3
500 IF INKEY$="N" THEN GO SUB 7: PRINT ";>=";AT L+1,C;">?@";AT L+2,C;"ABC": LET C=C+3
510 IF INKEY$="O" THEN GO SUB 7: PRINT "DEF";AT L+1,C;"GHI";AT L+2,C;"JKL": LET C=C+3
520 IF INKEY$="P" THEN GO SUB 7: PRINT "MNO";AT L+1,C;"PQR";AT L+2,C;"STU";AT L+PI,C;"VWX": LET C=C+3
530 IF INKEY$="Q" THEN GO SUB 7: PRINT "YZ[";AT L+1,C;"\]^";AT L+2,C;"_`a": LET C=C+3
540 IF INKEY$="R" THEN GO SUB 7: PRINT "bcd";AT L+1,C;"efg";AT L+2,C;"hij": LET C=C+3
550 IF INKEY$="S" THEN GO SUB 7: PRINT "klm";AT L+1,C;"nop";AT L+2,C;"qrs": LET C=C+3
560 IF INKEY$="T" THEN GO SUB 8: PRINT " !""";AT L+1,C;"#$%";AT L+2,C;"&'(": LET C=C+3
570 IF INKEY$="U" THEN GO SUB 8: PRINT ")*+";AT L+1,C;",-.";AT L+2,C;"/01": LET C=C+3
580 IF INKEY$="V" THEN GO SUB 8: PRINT "234";AT L+1,C;"567";AT L+2,C;"89:": LET C=C+3
590 IF INKEY$="W" THEN GO SUB 8: PRINT ";<=";AT L+1,C;">?@";AT L+2,C;"ABC": LET C=C+3
600 IF INKEY$="X" THEN GO SUB 8: PRINT "DEF";AT L+1,C;"GHI";AT L+2,C;"JKL": LET C=C+3
610 IF INKEY$="Y" THEN GO SUB 8: PRINT "MNO";AT L+1,C;"PQR";AT L+2,C;"STU";AT L+PI,C;"VWX": LET C=C+3
620 IF INKEY$="Z" THEN GO SUB 8: PRINT "YZ[";AT L+1,C;"\]^";AT L+2,C;"_`a": LET C=C+3
630 IF INKEY$="a" THEN GO SUB 8: PRINT AT L+1,C;"bc";AT L+2,C;"de": LET C=C+2
640 IF INKEY$="b" THEN GO SUB 8: PRINT "fg";AT L+1,C;"hi";AT L+2,C;"jk": LET C=C+2
650 IF INKEY$="c" THEN GO SUB 8: PRINT AT L+1,C;"lm";AT L+2,C;"no": LET C=C+2
660 IF INKEY$="d" THEN GO SUB 8: PRINT "pq";AT L+1,C;"rs";AT L+2,C;"tu": LET C=C+2
670 IF INKEY$="e" THEN GO SUB 8: PRINT AT L+1,C;"vw";AT L+2,C;"xy": LET C=C+2
680 IF INKEY$="f" THEN GO SUB 11: PRINT AT L,C;" !";AT L+1,C;"""#";AT L+2,C;"$%": LET C=C+2
690 IF INKEY$="g" THEN GO SUB 11: PRINT AT L+1,C;"&'";AT L+2,C;"()";AT L+PI,C;"*+": LET C=C+2
700 IF INKEY$="h" THEN GO SUB 11: PRINT AT L,C;",-";AT L+1,C;"./";AT L+2,C;"01": LET C=C+2
710 IF INKEY$="i" THEN GO SUB 11: PRINT AT L,C;"2";AT L+1,C;"3";AT L+2,C;"4": LET C=C+1
720 IF INKEY$="j" THEN GO SUB 11: PRINT AT L,C;"2";AT L+1,C;"5";AT L+2,C;"67";AT L+PI,C;"89": LET C=C+2
730 IF INKEY$="k" THEN GO SUB 11: PRINT AT L,C;":;";AT L+1,C;"<=";AT L+2,C;">?": LET C=C+2
740 IF INKEY$="l" THEN GO SUB 11: PRINT AT L,C;"@";AT L+1,C;"A";AT L+2,C;"B": LET C=C+1
750 IF INKEY$="m" THEN GO SUB 11: PRINT AT L+1,C;"CD";AT L+2,C;"EF": LET C=C+2
760 IF INKEY$="n" THEN GO SUB 11: PRINT AT L+1,C;"GH";AT L+2,C;"IJ": LET C=C+2
770 IF INKEY$="o" THEN GO SUB 11: PRINT AT L+1,C;"KL";AT L+2,C;"MN": LET C=C+2
780 IF INKEY$="p" THEN GO SUB 11: PRINT AT L+1,C;"OP";AT L+2,C;"QR";AT L+PI,C;"ST": LET C=C+2
790 IF INKEY$="q" THEN GO SUB 11: PRINT AT L+1,C;"UV";AT L+2,C;"WX";AT L+PI,C+1;"Y": LET C=C+2
800 IF INKEY$="r" THEN GO SUB 11: PRINT AT L+1,C;"Z[";AT L+2,C;"\]": LET C=C+2
810 IF INKEY$="s" THEN GO SUB 11: PRINT AT L+1,C;"^_";AT L+2,C;"`a": LET C=C+2
820 IF INKEY$="t" THEN GO SUB 11: PRINT AT L,C;"b";AT L+1,C;"c";AT L+2,C;"d": LET C=C+1
830 IF INKEY$="u" THEN GO SUB 11: PRINT AT L+1,C;"ef";AT L+2,C;"gh": LET C=C+2
840 IF INKEY$="v" THEN GO SUB 11: PRINT AT L,C;"ij";AT L+1,C;"kl";AT L+2,C;"mn": LET C=C+2
850 IF INKEY$="w" THEN GO SUB 11: PRINT AT L,C+1;"op";AT L+1,C;"qrs";AT L+2,C;"tuv": LET C=C+3
860 IF INKEY$="x" THEN GO SUB 11: PRINT AT L+1,C;"wx";AT L+2,C;"yz";AT L+PI,C;"{": LET C=C+2
870 IF INKEY$="y" THEN GO SUB 12: PRINT AT L+1,C;" !";AT L+2,C;"""#";AT L+PI,C;"$%": LET C=C+2
880 IF INKEY$="z" THEN GO SUB 12: PRINT AT L+1,C;"&'";AT L+2,C;"()": LET C=C+2
890 IF INKEY$="?" THEN GO SUB 12: PRINT AT L,C;"*+";AT L+1,C;",-";AT L+2,C;"./": LET C=C+2
900 IF INKEY$=":" THEN GO SUB 12: PRINT AT L+1,C;"0";AT L+2,C;"0": LET C=C+1
910 IF INKEY$=";" THEN GO SUB 12: PRINT AT L+1,C;"0";AT L+2,C;"2": LET C=C+1
920 IF INKEY$="," THEN GO SUB 12: PRINT AT L+2,C;"2": LET C=C+1
930 IF INKEY$="." THEN GO SUB 12: PRINT AT L+2,C;"3": LET C=C+1
940 IF CODE INKEY$=32 THEN LET C=C+1: BEEP .2,20
950 IF C=29 THEN BEEP .2,12: BEEP .2,12: BEEP .2,12
960 IF C=30 THEN BEEP .2,10: BEEP .2,10
970 IF C=31 THEN BEEP 0,1
980 IF C>31 THEN LET L=L+4: LET C=0: BEEP 0,1: BEEP .2,20: BEEP .2,20: BEEP .2,20: BEEP .2,20: BEEP .2,20: BEEP .2,20: BEEP .2,20: BEEP .2,20
990 IF CODE INKEY$=13 THEN LET L=L+4: LET C=0: BEEP 1,0
1000 IF CODE INKEY$=12 THEN GO SUB 10: PRINT AT L,C-1;" ";AT L+1,C-1;" ";AT L+2,C-1;" ";AT L+PI,C-1;" ": LET C=C-1
1010 IF CODE INKEY$=7 THEN CLS : GO TO 340
1020 IF CODE INKEY$=8 THEN GO SUB 10: PRINT AT L,0,,,,,,,,: LET L=L: LET C=0: GO TO 360: REM deletes line
1025 IF INKEY$="1" THEN GO SUB 15: PRINT AT L,C;" ";AT L+1,C;"!";AT L+2,C;"""": LET C=C+1
1030 IF INKEY$="2" THEN GO SUB 15: PRINT AT L,C;"#$";AT L+1,C;"%&";AT L+2,C;"'(": LET C=C+2
1035 IF INKEY$="3" THEN GO SUB 15: PRINT AT L,C;")*";AT L+1,C;"+,";AT L+2,C;"-.": LET C=C+2
1040 IF INKEY$="4" THEN GO SUB 15: PRINT AT L,C;"/0";AT L+1,C;"12";AT L+2,C;"34": LET C=C+2
1045 IF INKEY$="5" THEN GO SUB 15: PRINT AT L,C;"56";AT L+1,C;"78";AT L+2,C;"9:": LET C=C+2
1050 IF INKEY$="6" THEN GO SUB 15: PRINT AT L,C;";<";AT L+1,C;"=>";AT L+2,C;"?@": LET C=C+2
1055 IF INKEY$="7" THEN GO SUB 15: PRINT AT L,C;"AB";AT L+1,C;"CD";AT L+2,C;"EF": LET C=C+2
1057 IF INKEY$="8" THEN GO SUB 15: PRINT AT L,C;"GH";AT L+1,C;"IJ";AT L+2,C;"KL": LET C=C+2
1060 IF INKEY$="9" THEN GO SUB 15: PRINT AT L,C;"MN";AT L+1,C;"OP";AT L+2,C;"QR": LET C=C+2
1065 IF INKEY$="0" THEN GO SUB 15: PRINT AT L,C;"ST";AT L+1,C;"UV";AT L+2,C;"WX": LET C=C+2
1070 IF INKEY$="$" THEN GO SUB 15: PRINT AT L,C;"Y";AT L+1,C;"Z";AT L+2,C;"[": LET C=C+1
1080 IF INKEY$="'" THEN GO SUB 16: PRINT "#": LET C=C+1
1085 IF INKEY$="""" THEN GO SUB 16: PRINT "##": LET C=C+2
1500 GO TO 360
1603 PAUSE NOT PI
1605 IF INKEY$="A" THEN GO SUB 16: PRINT "$%&'()";AT L+1,C;"*+,-./";AT L+2,C;"012345": LET C=C+6: GO TO 360
1610 IF INKEY$="Z" THEN GO SUB 16: PRINT "6789:;";AT L+1,C;"<=>?@A";AT L+2,C;"BCDEFG": LET C=C+6: GO TO 360
1615 IF INKEY$="C" THEN GO SUB 16: PRINT " ";AT L+1,C;"!";AT L+2,C;"""": LET C=C+1: GO TO 360
1625 GO TO 1603
9030 LOAD "OldEng C"CODE 61559,3808
9040 RUN
9990 SAVE "OldEng" LINE 9030: SAVE "OldEng C"CODE 61559,3808