Nibble One/Two Liner

[shawn@beattie.net]

[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