'===========================================================================
' Subject: ENGLISH SCRIPT FONTS              Date: Unknown Date (00:00:00)
' Author:  Unknown Author(s)                 Code: QB, QBasic, PDS        
' Keys:    ENGLISH,SCRIPT,FONTS            Packet: GRAPHICS.ABC
'===========================================================================
'===========================
'   English Script Fonts
'===========================

DIM a$(122)
     a$(32) = "BR8"
     a$(33) = "BR2G2RED8BD2D2HR2HBU2U3LU3R2D3U5FBU2BR2"
     a$(34) = "BRBUGDRND2RULBR3DRND2RULUBR3"
     a$(35) = "BR7G2D6LDU6L2GR3D3L3GR3ND2R4UNL2D3EU5NL3UL2NUR3UD"
     a$(35) = a$(35) + "5R2EL3U3R3EL3U2EBR5"
     a$(36) = "BR5DND15G4D4RNU4E3R3D6LNU6DLDL3HL2NDE2GR2DR2U10RF"
     a$(36) = a$(36) + "URUNL3EBUBR3"
     a$(37) = "BR4LG3DED2ED2EDE3LEL2EL2EBR6G2RDLD2HD3HD3HD3HD2UB"
     a$(37) = a$(37) + "R6REL3EL2ELE3DED2ED3EUBU7BR2"
     a$(38) = "BR6RF2NG3L2UL2G2RGDEDRND3G2NR3G3RGDERGDERGD2EURE3"
     a$(38) = a$(38) + "H2R2D2F5REUGLNH4UH4E2R2D2RENL5BU8BR3"
     a$(39) = "BRD4UHR2UL2BUBR5"
     a$(40) = "BR6G4REG3REG3R2UG2ND5RD7RU4D5RU3FDBU16BR3"
     a$(41) = "BD17E4LGE3LGE3LGUE2DHENU3LNU5HNU5UHU3GDBU2BR7"
     a$(42) = "BR3D3ND3NL3NR3NG2NH2NF2E2BUBR3"
     a$(43) = "BR5BD4D4ND4NL4LND5NU3DL4R8UL3R4BU8BR3"
     a$(44) = "BRBD13D3GE2UL2RBU14BR5"
     a$(45) = "BD9NR6ER6BU8BR3"
     a$(46) = "BD15R2GU2BU14BR5"
     a$(47) = "BD16E2LELE2DHE2DHE2DHE2DHE2DHE2BR3"
     a$(48) = "BR4G3D8UHU4E4NR2DNR3FNR3FR2GR2D4LU4D6G3UNE3L2H2ED"
     a$(48) = a$(48) + "RDRBU12BR8"
     a$(49) = "BD2E2ND13GR2UD13H2R4GE2BU11BR3"
     a$(50) = "BD4E4L2D3HUR2ER2DRND5FD3NG3LNG7LG5D3GUENR6FNR4FR2"
     a$(50) = a$(50) + "E2HREBU10BR3"
     a$(51) = "BR3G3NF2RE2RNG3DRF2DHD2HD4H2ED2R2D4ENU2G4H3LE2D2E"
     a$(51) = a$(51) + "D2ED2EBU13BR6"
     a$(52) = "BR6D14FU14LG6DR8FL8R6D3FDEBU13BR3"
     a$(53) = "BR9G3L4U2R5GL4D6E3RG2RERGR2FND3L3FRD3G3LHNR3HNR5H"
     a$(53) = a$(53) + "LR4H2GRBU10BR10"
     a$(54) = "BR5F2RGH2LF2DH2LG2D9HNU6UE5D2EUD3EUND5FD3G5U3LU3B"
     a$(54) = a$(54) + "U11BR9"
     a$(55) = "BD3E2R7GNL7G2RG2RG2ERG3ERG2ERG2D2FU3ED4E2LBU13BR6"
     a$(56) = "BDBR6L3G3R2DL2FRED3HR3HD2R3HD3HR3ND3GD3G2NH4L2UR2"
     a$(56) = a$(56) + "NH4L3ULULUE8L2DEUL2UBR6"
     a$(57) = "BUBR4G4D3FNU4EUD3RU2FE4ND5GD6G2NL5G2HRU2L2EBU7BR4"
     a$(57) = a$(57) + "R2UH2LF2LNH2LHU2BR7"
     a$(58) = "BD7R2GU2BD6D2HR2BU13BR4"
     a$(59) = "BD7R2HD2BD4D3GE2UL2BU13BR6"
     a$(61) = "BD6R6EL6BD3R6GNL6BU9BR5"
     a$(63) = "BR3G3ER4HLD2R3DL2FRG4DBD2D2HR2BU13BR6"
     a$(65) = "BD6U3NE2RE3NR3DR4G3L2DEUR3EG2DGDG2NH3NR7DNR7G2NR3"
     a$(65) = a$(65) + "DNR4DFBR3HR2E3D3FNE2U14GND9E2BR3"
     a$(66) = "BD3UEDRUR3EG3D4L2GDER2D5LG2NDE2REU9FED8EU8EDER3GR"
     a$(66) = a$(66) + "2D2HD2G2HUND9D2R3ND5FD4LG2L5GE3R3DL3BU13BR8"
     a$(67) = "BDBR4G3RG2ND4RD6FNU4RNU2ED2NR4UR6NE2NUL3U12G3D6EU"
     a$(67) = a$(67) + "6ER5GLU2LUBR6"
     a$(68) = "BDBR2NR7FR8GR2GRD2NL2D3NL2D3GNL6GL6GE3U10G3D7G2E3"
     a$(68) = a$(68) + "U2L3GE2R2U4E2R2D5RGD2RGDBU11BR7"
     a$(69) = "BR4G3ND8RG2D4RED4RNU2FNU2NR4ER5NE2NUL3U12G3D6EU6E"
     a$(69) = a$(69) + "NR7ER2D2R3G4R4UNL3BU5BR3"
     a$(70) = "BD6E2DR3UL2EU2D14L2GR2ERURUHU11R7NUL2UL3ED13GU8R3"
     a$(70) = a$(70) + "EL4U4BUBR8"
     a$(71) = "BD6D4FDU8E3D9G2U2D3NR7ERD2R4HU12L2ND8R5HD2R2GR2G4"
     a$(71) = a$(71) + "R4HLD2R2ND3LD3G2BU13BR6"
     a$(72) = "BD3UNR5ER5EG4D9GRENU9FRNU11EU11E2NRG2D4RE3D2END9R"
     a$(72) = a$(72) + "D7G2LEBU13BR5"
     a$(73) = "BD3URUR2D12L2GDR2UEU11EBR3G2D12L2DRE2U12EBR3"
     a$(74) = "BD5BRRUL2U2E2R3DL4R6DL3R5LG3D9GL3G2ER3DRUR3U2RU10"
     a$(74) = a$(74) + "ED9BL3DU9E2RERBUBR3"
     a$(75) = "BD3E2R3NEGL2FD8G2LGE5DU8BR2NE2D8G3R4HLD2FURE3D2FU"
     a$(75) = a$(75) + "2FRDH4LF2EH2E3LEL3GE2RBU3BR6"
     a$(76) = "BD2E2R4EG2NL4D11L2G2ERENU9RNE3R2F2RNE3HRNE2UE2LHB"
     a$(76) = a$(76) + "L3NU7FU7EBU3BR7"
     a$(77) = "BR6LG4D11LUREU5L2UR2U4ERD11NG2U5R6D5EG3H2R3GNU12H"
     a$(77) = a$(77) + "U6LNR5RU5LHR2DR6H2GRGND5R2DR2D12NEHU11E2BUBR3"
     a$(78) = "BD3E2D2R3H2D14L3NDER2EU10RED11NG2U4E3R4GDGDGDGDR4"
     a$(78) = a$(78) + "EG2L2U2RHEUEUEU3L3FRU2L3G3E4RL5E2RGR2BUBR7"
     a$(79) = "BR9L4G5ND6RD8R8LGL4U2LUE2NU8LU7ER6FL3HGD10UE3R3DG"
     a$(79) = a$(79) + "3REU5FUL3NG2RE2DHULBU3BR6"
     a$(80) = "BUBD3E3D2LR2HD2LR2ND14GND13DG3R2GRDFGLNG2DR2D4R3U"
     a$(80) = a$(80) + "3NU13R4GU2L3R5EL2E2DNU7HU2L2G3FRLHE3REUL3NGR"
     a$(80) = a$(80) + "2EU2GU2GL2E2NDBR8"
     a$(81) = "BR8L3G5ND6RD8R10GR2EGHL3GL4UHUF2R2NU13R2E4G2DEU9L"
     a$(81) = a$(81) + "3HR3D2LFNG3DERD4L3G3UBL3NU8EU8EBR11"
     a$(82) = "BD14E5U8EG2L2GE2RD10G2E3FG2R5G2HRU2LUENU8ENE4F4DN"
     a$(82) = a$(82) + "E3H2R3H3LNF3UE2U4L4E2D3FR2UL2U2BUBR8"
     a$(83) = "BR11G6H3UE2R3D2REL6GF3NR6L2HG2DED2ED2NR7ENR5RE2L2"
     a$(83) = a$(83) + "R8GR2ND3GD3G3UGU4RNDG5L3HU2R7DH2RL5R2UBU10BR13"
     a$(84) = "BD3E2DE2NR5DR9EG2L5D6G3NU3LU7NE3RG2D3F2E2NU5G2NR2"
     a$(84) = a$(84) + "DR8NE2NULGNL4U12BUBR7"
     a$(85) = "BD3E2R6EG2L6R4G4ND4RNED6FU3FD2FU2FR3NE4GNL2U13G2D"
     a$(85) = a$(85) + "6GU5EBR4E3D13E2L3DU11FRBU3BR4"
     a$(86) = "BD3UE2RG2RD10NLENU11D2F2NE6H2R3GUHRUNE3U3NE3U6H2B"
     a$(86) = a$(86) + "R7NG3D9ENL3U3NL3U3NL2UHBR4"
     a$(87) = "BD3E3D14H2RU9LE2RFD12GU3FRE2U10GE2D14HUF2DU3RD2NE"
     a$(87) = a$(87) + "4U13BR2UED11EU9HBR4"
     a$(88) = "BD3E3D4FU4LGR2D6L3ER3U4D6GDG2ND2L3NDERFRBR4R4EG3R"
     a$(88) = a$(88) + "EL2U2LND2LU5R3GL3D3R2UL2U5EUE2LED3FU3FDE"
     a$(88) = a$(88) + "BU2BR4"
     a$(89) = "R3GRD10NG3LG2D2ED2NR3ER4HR5DGBU3L2BU2RL4U10FRUD9U"
     a$(89) = a$(89) + "E3R3D2G2LEURU4L3NGR4DU3GU2GU2GUL2BR8"
     a$(90) = "BD3UE2D2LR8U2GNL7D2NG5LG3L3R8L2GLDR3L8R4G2RERG3UG"
     a$(90) = a$(90) + "D2GUR8GU2R2L7RER5EBU11BR3"
     a$(97) = "BD6NE3F2G2D2F2U3HD2RFUR3D2EL2NU9EU8NEL3F2DGNLEU3H"
     a$(97) = a$(97) + "BU3BR6"
     a$(98) = "RD12NLFNU13FU2FURENU7RU6L2U2G3U6EBR7"
     a$(99) = "BD6NE3RD5GR5EG2LGU3LRU6E2D2ED2EBU5BR3"
     a$(100) = "BFGDERGR2GR2G4ND4RD5FU3FD3E3NU6LNGU5NE2ULURBU5BR5"
     a$(101) = "BD7RNE3D4GRFNU6F2NE3UEL2ELU2E4L3FU2LBU5BR6"
     a$(102) = "BR3G2D12LR3GU9L2R4L2U4EDED2EBU2BR3"
     a$(103) = "BD17R5EL5E6D5L2EU2L2GLEL2NU5EU4E3D2ED5EU4EBU4BR3"
     a$(104) = "BDFD13E2NL3HU10NE2D6E4GDED9G3ERE2U9BU5BR3"
     a$(105) = "BD6ED9FE2LGU9RHBU2URBUBR4"
     a$(106) = "BD5ED2ED10GE2U8H2BU2URBUBR4"
     a$(107) = "BDFD12HR4G2U13NE2D6E3R2FL3FRG4ER2GR2D4EUL2U3BU10"
     a$(107) = a$(107) + "BR5"
     a$(108) = "BDFD11NL2DFELU13EBR3"
     a$(109) = "BD6UED10HF2ELU9FNRE2D10FU10FNRE2D10RNE2U9FBU6BR3"
     a$(110) = "BD5NE2RED9FE2LGU9FNE2RED2RU2D9FE2LGU8EBU4BR4"
     a$(111) = "BD7NE4ND4RD5F2UHUF2E2NU6LU4H2EDFU2BU4BR4"
     a$(112) = "BD5E2D13LR2NFU5NL2U7FE2D2ED9GH3R5DL3FE2U6BU5BR3"
     a$(113) = "BD6NE3ND6RNE2D7FU2FE2D5NGR2HU9FG2DU5L2EBU4BR6"
     a$(114) = "BD5NE2RED8HF3E2LGU2GU8FE2D2ED3EUBU5BR3"
     a$(115) = "BD13NE8R6GLU2NL3BR3ENU2LU3LD2HL3EL2NU2EU2E2DR4GN"
     a$(115) = a$(115) + "L2E2BU3BR3"
     a$(116) = "BD4NE3RD9HR2D2EDNE2HU10FRBU4BR4"
     a$(117) = "BD5NE2RED8FNU9FU3FDEF2E2L3FU10G2R3G2D5U8BU4BR6"
     a$(118) = "BR3G3RDEUD10NLF2NE4U2RL2ELU7BR4NHD7EU5BU5BR3"
     a$(119) = "BR2G2D2RU3D12HF2EUGU9FE2ND9FD8F2E2RGNHEU9NG3FND8"
     a$(119) = a$(119) + "BU4BR3"
     a$(120) = "BD6E3DGRD2RU2D5G4U3FRE2RD2RD2E3GLHUHUE4D2HLE2BU3BR3"
     a$(121) = "BD5NE2RED10GDFR3EUGBH3RNU10EDE4NU6LU5G2BU6BR6"
     a$(122) = "BD7UE3D2ED2EDG4R4HLD2R3DL2D2EL2DL2GDFR2EBU16BR5"
     SCREEN 9
     CLS
     w$ = "Quick Basic 4.5 now offered in English Script!"
     DRAW "c 14;s4 bm80,70;"
     GOSUB loop1
     DRAW "c 15;s4 bm1,100;"
     w$ = "!#$%&'()*+,-./0123456789:;<=>?&"
     GOSUB loop1
     DRAW "c 11;s4 bm1,130;"
     w$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
     GOSUB loop1
     DRAW "C 14;S4 BM1,170;"
     w$ = "[\]^_'abcdefghijklmnopqrstuvwxyz"
     GOSUB loop1
     DRAW "c 11;s4 bm1,200;"
     w$ = "Wasn't I a nice guy to crop all those lines for you?"
     GOSUB loop1
     DRAW "c11;s4 bm1,220;"
     w$ = "You know those lines that go A$=A$+"
     GOSUB loop1

END

loop1:
FOR x = 1 TO LEN(w$)
y = ASC(MID$(w$, x, 1))
DRAW a$(y)
NEXT
RETURN