start tok64 d64-aO5Q2C
0 POKE53281,.:POKE53280,.:POKE45,.:POKE46,64:CLR
1 PRINT"{yellow}{clear}{down}{right}klocka (c) 1990 mr.p. & softwolves !
2 INPUT"{home}{down*3}{right}{light green}tid ({green}hhmmss{light green}) {cyan}";ti$
10 REM
20 REM      *****************
30 REM **** graphics routines ****
40 REM      *****************
50 REM
60 in=51200:of=51203
70 gc=51206:sc=51209
80 pc=51212:pl=51215
90 up=51218:sl=51221
100 cl=51224:gl=51227
110 gs=51230:hc=51233
120 REM
200 FORi=.TO9:READs$:FORj=1TO7:s(i,j)=ASC(MID$(s$,j,1))=49:NEXT:NEXT
300 DATA        1101111
302 DATA0101000,1110110,1111100
303 DATA0111001,1011101,0011111
304 DATA1101000,1111111,1111001
320 REM
350 SYSin:SYSgc:SYSsc,16:FORi=.TO199STEP3:SYSsl,.,i,7,i:SYSsl,312,i,319,i:NEXT
360 FORi=.TO6STEP3:SYSsl,.,i,319,i:SYSsl,.,198-i,319,198-i:NEXT:GOSUB600
399 POKE198,.:FORi=1TO6:a(i)=99:NEXT
400 FORi=1TO6:x=i*50-40
402 SYSpc,i*16+32
405 IFPEEK(198)>.THENSYSof:END
410 a=ASC(MID$(ti$,i))-48:IFa=a(i)THENNEXT:GOTO400
420 a(i)=a:FORj=1TO7
430 IFs(a,j)=-1THENONjGOSUB1100,1200,1300,1400,1500,1600,1700:NEXT:NEXT:GOTO400
440 ONjGOSUB1150,1250,1350,1450,1550,1650,1750:NEXT:NEXT:GOTO400
600 FORy=4TO13:SYScl,4,y,21,y:NEXT
610 SYSsl,5,6,5,8:SYSsl,6,5,6,9:SYSsl,7,8,7,12:SYSsl,8,9,8,11
611 SYSsl,7,5,8,5:SYSsl,7,6,8,6:SYSsl,5,11,6,11:SYSsl,5,12,6,12
620 SYSsl,10,5,10,8:SYSsl,11,5,11,9:SYSsl,12,8,12,12:SYSsl,13,8,13,12
621 SYSsl,14,5,14,9:SYSsl,15,5,15,8
630 SYSsl,17,6,17,8:SYSsl,18,5,18,9:SYSsl,19,8,19,12:SYSsl,20,9,20,11
631 SYSsl,19,5,20,5:SYSsl,19,6,20,6:SYSsl,17,11,18,11:SYSsl,17,12,18,12
640 RETURN
1100 SYSsl,x+ 1,50 ,x+39,50:RETURN
1150 SYScl,x+ 1,50 ,x+39,50:RETURN
1200 SYSsl,x+40,51 ,x+40,89:RETURN
1250 SYScl,x+40,51 ,x+40,89:RETURN
1300 SYSsl,x+ 1,90 ,x+39,90:RETURN
1350 SYScl,x+ 1,90 ,x+39,90:RETURN
1400 SYSsl,x+40,91 ,x+40,129:RETURN
1450 SYScl,x+40,91 ,x+40,129:RETURN
1500 SYSsl,x+ 1,130,x+39,130:RETURN
1550 SYScl,x+ 1,130,x+39,130:RETURN
1600 SYSsl,x   ,91 ,x   ,129:RETURN
1650 SYScl,x   ,91 ,x   ,129:RETURN
1700 SYSsl,x   ,51 ,x   ,89:RETURN
1750 SYScl,x   ,51 ,x   ,89:RETURN
stop tok64
(bastext 1.0)