Path: news1.icaen!news.uiowa.edu!chi-news.cic.net!griweb.gri.org!feeder.chicago.cic.net!news.maxwell.syr.edu!infeed1.internetmci.com!newsfeed.internetmci.com!jump.net!grunt.dejanews.com!not-for-mail
Date: Thu, 31 Jul 1997 10:12:14 -0600
From: shawn@beattie.net
Subject: Nibble One/Two Liner
Newsgroups: comp.sys.apple2,comp.binaries.apple2
Message-ID: <870361504.16801@dejanews.com>
Organization: Beattie.net
X-Article-Creation-Date: Thu Jul 31 15:05:10 1997 GMT
X-Originating-IP-Addr: 143.226.131.163 (Lib163-Staff.augustana.edu)
X-Http-User-Agent: Mozilla/4.01 [en] (Win95; I)
X-Authenticated-Sender: shawn@beattie.net
Lines: 33
Xref: news1.icaen comp.sys.apple2:123460 comp.binaries.apple2:9878

[I posted this earlier but I don't think it made it out
- news server problems]

To celebrate KansasFest '97, here is a Nibble-style two-
liner I made up recently that turns your GS into a jumbo
digital red LED type 24-hour clock (in lo-res graphics).

This program is public domain.  Save the lines below to
a text file, edit out the carriage returns and EXEC and RUN
it to give it a try.  Be careful not to add any spaces; both
lines are bumping up very close to the 239-character limit.

Enjoy!

-- cut here --
1DATA32,7,0,2310,191,51,130,6,0,110,0,26,96,13,,210
,,1,,2:DEFFNQ(D)=L(I)/D<>INT(L(I)/D):FORI=0TO9:READA:
POKE768+I,A:READD(I):NEXT:CALL768:H=PEEK(49043):
T=INT(C/10):R=INT(H/10):L(0)=D(R):L(1)=D(H-R*10):L(2)=
D(T):L(3)=D(C-T*10):IFV=0THENGR

2FORI=0TO3:J=I*11:Z=J+6:COLOR=FNQ(11):HLINJ,ZAT8:
COLOR=FNQ(3):VLIN9,22ATJ:COLOR=FNQ(13):VLIN9,22
ATZ:COLOR=FNQ(7):HLINJ,ZAT23:COLOR=FNQ(2):
VLIN24,37ATJ:COLOR=FNQ(17):VLIN24,37ATZ:COLOR=FNQ(5)
:HLINJ,ZAT38:NEXT:V=1:RESTORE:C=PEEK(49042):GOTO1
-- cut here --

Shawn
shawn@beattie.net

-------------------==== Posted via Deja News ====-----------------------
      http://www.dejanews.com/     Search, Read, Post to Usenet