Old English Fonts

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