KFest '97 special: Two Liner

[a24ever@aol.com (A24Ever)]

To celebrate the opening of KansasFest '97 I am posting this 
two-liner in the tradition of the Nibble Magazine (RIP) Two- 
Liners.  It is a Digital jumbo LED clock for your IIGS (in lo-res). 
It displays the current time in 24-hour format. Could be useful 
as a screen saver (just don't let it burn in ;) or whatever.  Have a 
spare GS and a 9' monitor IIc?  Mount the monitor in the ceiling 
above your bed and run this program so you don't have to roll 
over in the night to see what time it is.  It could also easily be 
modified for a //e or //c clock if you have the code that reads it. 
But you have to figure out all of the tricks employed first ;) 

To try it...capture the lines below into a text file and remove the 
carriage returns.  Then EXEC the file after launching Basic.System. 

This program is public domain.  Modify it to do AM/PM...add 
an alarm to it...whatever. 

This is adapted from a program I wrote about 10 years ago as a 
high school project...it originally was about 40 lines. :) 

-- 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,22ATZ: 
COLOR=FNQ(7):HLINJ,ZAT23:COLOR=FNQ(2):VLIN24,37ATJ: 
COLOR=FNQ(17):VLIN24,37ATZ:COLOR=FNQ(5):HLINJ,ZAT 
38:NEXT:V=1:RESTORE:C=PEEK(49042):GOTO1 

-- cut here --

Shawn
shawn@beattie.net