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)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET