Fancy Fonts Part two

 BBS: Inland Empire Archive
Date: 02-24-93 (22:52)             Number: 359
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Fancy Fonts Part two           Conf: (2) Quik_Bas

' Part two of two. Fancy fonts for Fontgen.Bas. See header part one.
'>>> Start of Page 2.
G"daaaaaaaaaa432B7haaaaaaaaadyGFBV98(bgWaaaaaaahWagy8bgyWWbaaaaaaaaFgBSX
G"gBSXgdaaaaaaa4paa4paa4paaaaaaaaayGHFyGbaa8paaaaaaadgmyadyada(baaaaaamG
G"bmGbdgmaGFaaaaaaGdBSbgyGbgyGbgyGbgyGbgyGbgyGn2WbaaaaaaaGbga4hayGbaaaaa
G"aaaaayh3ayh3aaaaaaaa4WgB4aaaaaaaaaaaaaaaaaaaaGbgaaaaaaaaaaaaaaaaaGbaaa
G"aaaaaapWadmWadSZgpCaaaaaa2SXgBSXgaaaaaaaaaaah2WagY4daaaaaaaaaaaaaa8XhF
G"8XhFaaaaaaaaaaaaaaaaaaaaaaaa"
N=3591:K=255:IF LEN(C$)<>4788 THEN ?"Incomplete script file!":BEEP:END
FOR A=1 TO N:LOCATE 1:?STRING$(50*(A/N),177):IF L=0 THEN GOSUB G:L=6
W=T\P(6-L):GOSUB G:W=W OR T*P(L):L=L-2:B$=CHR$(W AND K):PUT 1,,B$:NEXT
?:IF C<>34 THEN ?"Bad checksum!":BEEP:END ELSE ?"Success!":END
G:I=I+1:T=INSTR(T$,MID$(C$,I,1))-1:C=(C+T)*2:C=C\256+(C AND 255):RETURN
SUB G(A$):SHARED C$:C$=C$+LEFT$(A$,70):END SUB
'end of part two of two

--- Maximus 2.01wb
 * Origin: The MOCHINE BBS * Irving, TX * 214/399-8414 *
HST DS *  (1:124/1301)