******************************************************************
*** ***
*** comp.binaries.cbm is a moderated binaries- ***
*** only newsgroup (no discussion or ***
*** crossposting allowed) for Commodore 8-bits ***
*** ***
*** For information on comp.binaries.cbm visit ***
*** http://www.floodgap.com/comp.binaries.cbm/ ***
*** ***
*** This file is available via mailing list at ***
*** http://lists.trikaliotis.net/listinfo/comp-binaries-cbm/ ***
*** to list subscribers ***
*** Allow time for submission to be received ***
*** ***
******************************************************************

* One from the Vault is a collection of frequently requested, useful or just
plain interesting past posts sent to comp.binaries.cbm, as archived by the
moderators. If you have a request, please send it to the address in the
headers. In addition to being selected and reposted by moderation staff,
some of these postings are regularly posted on Mondays and Fridays on a
rotating schedule.

Take care when replying to these messages, as many were posted years ago.

From: Larry Anderson <foxnhare@bigvalley.net>
Reply-to: foxnhare@bigvalley.net
X-Original-Posting-Date: Sat, 24 Nov 2001 20:19:54 -0800

As suggested by Dr. Nybble in alt.64 (title: "Questions About an Idea").
I whipped up this limited featured figlet like program (ok, I've never
seen figlet, but this should be a start.)

The program contains 85 commodore graphics character figures from
CHR$(32) to Lower Case Z and Upper Case A-Z. It is all in BASIC which
may be of interest to beginner programmers.

Run the program (it will display the characters as it reads the DATA statements, then clear the screen), type the characters you want to see,
return gives you a new line (four spaces down, which is the max height
of the characters) , if the character isn't in the data the program will
just print what you typed (good for color changes, etc.)

There are no editing provisions, options to make seq or BBS C/G files or
'save as program' options, I think in the future I will integrate it
into my C/G editor which has those features, but this was more a
mini-commodore vacation for me (I love to play with those Commodore
graphic symbols).

Hope you like it.

Larry Anderson


Description: figlet64.prg


[Section: 1/1 File: figlet64.prg UULite v3.0]
[Original File Size: 2048]

BEGIN-------cut here-------CUT HERE-------PART 01/01
begin 644 figlet64.prg M`0@9"`H`CR`J*BH@1DE'3$54(#8T("HJ*@`W"!0`CR!465!%(%504$52("8@ M3$]715(@0T%310!7"!X`CR!,151415)3+"!.54U"15)3($%.1"!33TU%`'@( M*`"/(%1%6%0@4UE-0D],4RX@(%=)3$P@3U544%54`)4(,@"/($-/34U/1$]2 M12!#+T<@,U@S($9/3E0`LP@\`(\@4%)/1U)!32!!3D0@1D].5"!$15-)1TX` MTPA&`(\@0ED@3$%24ED@04Y$15)33TX@24X@,C`P,0#W"%``CR!%34%)3#H@ M1D]83DA!4D5`0DE'5D%,3$59+DY%5`!&"5H`CR!215154DX@1TE615,@3D57 M($Q)3D4L(%5.4U504$]25$5$($M%65,@4$%34T5$(%1(4D]51T@@5$\@4T-2 M145.("A#3TQ/4BD`<0ED`)DBFY-214%$24Y'+BXN$1$B.I<@-3,R.#$L,#J7 M(#4S,C@P+#$Q`)@);@"&($,D*#$P,"DZ@2!8LC&D.#4ZAR!#)"A8*3J90R0H M6"D[`+0)<P"+(%BM,3"RM2A8K3$P*2"G()DB$1$1(@#&"70`@CJ9(I-465!% M.A$1(@#;"7@`H2!!)#J+022R(B*G(#$R,`#["8(`0[+&*$$D*3J+($.R,3,@ MIYDB$1$1(CJ),3(P`"L*C`"+($.S,S(@L"!#L3(Q.""P("A#L3DP(*\@0[,Q M.3,I(*<@F4$D.SJ),3(P`$8*E@!#LD.K,S$ZBT.Q-3D@IR!#LD.K,3`R`%@* MH`"9($,D*$,I.SJ),3(P`*,*Z`.#("(@(BPBD9&N$9W=$9VN(BPBD9&]O1$1 M(BPBD=O;$9V=V]LB+"*1D;#;KA&=G9VMVZX1G9V=K=N](BPBD4\O$9V=+T\B M`.4*\@.#("*1D;"N$9V=J[&N$9V=G:W`L2(L(I&1O1$1(BPBD9&P$9W=$9VM M(BPBD9&N$9W=$9V](BPBD9$J$1$B`"8+_`.#("*1VQ$B+"(L(BPBD<`1(BPB M+B(L(B^1+Y$O$1$B+"*1D;"N$9V=W=T1G9VMO2(L(I&1KA&=W1&=L2(`6PL& M!(,@(I&1L*X1G9VPO1&=G:W`(BPBD9&PKA&=LQ&=G:V](BPBD9&NKA&=G:W; M$9VQ(@"1"Q`$@R`BD9&PP!&=G:VN$9V=K;TB+"*1D;"N$9V=JZX1G9VMO2(L M(I&1L*X1G=L1G;$=(@"W"QH$@R`BD9&PKA&=G:NS$9V=K;TB+"*1D;"N$9V= MK;,1G;$B`/P+)`2#(I$N$9TN(BPBD2X1G2PB+"*1L+T1G9VMKB(L(I'`$9W` M(BPBD:VN$9V=L+TB+"*1D;#`KA&=G;"]$9V=+ATB`!<,+@2#(I&1L,"N$9V= MG=VMO1&=G9VMP,`B`%(,3`2#(I&PKA&=G:VQ(BPBD9&N$9VKKA&=G;&](BPB MD;#`$9V=K<`B+"*1D1VP$9V=L+,1G9VML2(`D0Q6!(,BD;"N$9V=K<`B+"*1 MD;"N$9V=VQ&=O1TB+"*1L+(1G9VMLQ&=G:V]D2(L(I&1KA&=JZX1G9VQK2(` MT`Q@!(,@(I&1+A&=KA&=L2(L(I&1+A&=KA&=W1&=G:V]D2(L(I&1KA&=J[,1 MG9VQK2(L(I&1KA&=W1&=L2(`"PUJ!(,@(I&RLJX1G9V=L:VM(BPBD;*N$9V= ML:TB+"*1L*X1G9VMO2(L(I&RKA&=G:N]$9V=L9$=(@`]#70$@R*1L+(1G9VM MLQ&=L9$B+"*1LJX1G9VQ'2(L(I&PP!&=G<"](BPBD=L1G;TB`((-?@2#(I&N MLA&=G:VQ(BPBD:ZR$9V=K;TB+"*1KJZR$9V=G:VQL2(L(I&NP!&=G<"M(BPB MD:ZR$9V=K;,1G9VMO9$B`)(-B`2#(I'`KA&=G:W`(@#1#;`$@R*1D1VRLA&= MG;&S$9V=G;$=L2(L(I&1LJX1G9VKL:X1G9V=L<"](BPBD9&PP*X1G9V=W1&= MK<"](@`4#KH$@R*1D;+`KA&=G9W='=T1G9V=L<"](BPBD9&RP*X1G9V=J[,1 MG9VQP+TB+"*1D;+`KA&=G9VKLQ&=G;$='2(`40[$!(,BD9&PP*X1G9V=W;"N M$9V=G:W`L2(L(I&1LAVR$9V=G:O`LQ&=G9VQ';$B+"*1D;(1G=T1G;$B`(P. MS@2#(I&1'1VR$9W=$9V=G:W`O2(L(I&1LAVR$9V=G:NQKA&=G9VQ';$B+"*1 MD;(1G=T1G;'`O2(`TP[8!(,BD9&RLK(1G9V=W;'=$9V=G;$=L2(L(I&1LJZR M$9V=G=W=W1&=G9VQK;$B+"*1D;#`KA&=G9W='=T1G9V=K<"](@`:#^($@R*1 MD;+`KA&=G9VKP+T1G9V=L1T=(BPBD9&PP*X1G9V=W1W=$9V=G:W`L2(L(I&1 MLL"N$9V=G:NRO1&=G9VQ';$B`%L/[`2#(I&1L,"N$9V=G:W`KA&=G9VMP+TB M+"*1D;"RKA&=G=T1G;$=(BPBD9&R';(1G9V=W1W=$9V=G:W`O2(`H`_V!(,B MD9&R';(1G9V=K:[=$9V=L;$B+"*1D;*PL!&=G9W=W=T1G9V=K;&Q(BPBD9&R M';(1G9V=K<"N$9V=G;$=L2(`SP\`!8,BD9&R';(1G9V=K;*]$9V=L1TB+"*1 MD;#`KA&=G9VPP+T1G9V=K<"](@```!H:&AH:&AH:&AH:&AH:&AH:&AH:&AH: 7&AH:&AH:&AH:&AH:&AH:&AH:&AH:&AH@
`
end
END-------cut here-------CUT HERE-------PART 01/01

01000011 01001111 01001101 01001101 01001111 01000100 01001111 01010010 01000101
Larry Anderson - Sysop of Silicon Realms BBS (209) 754-1363
300-14.4k bps
Classic Commodore pages at: returning "real soon now..."
01000011 01001111 01001101 01010000 01010101 01010100 01000101 01010010 01010011

--
Cameron Kaiser * ckaiser@floodgap.com * posting with a Commodore 128
Floodgap Systems: http://www.floodgap.com/
personal page: http://www.cameronkaiser.com/

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)