start tok64 d64-ZZEk8E
10 d$="{down*25}":r$="{right*40}
20 POKE2040,160:POKE53269,1:POKE53287,1:POKE53248,184:POKE53249,146
30 POKE53280,0:POKE53281,0:PRINT"{gray}{clear}";:POKE53272,25
50 DEFFNd2(x)=INT(12-10.8*COS(x/30*{pi}))
60 DEFFNdk(x)=INT(12-6*COS(x/6*{pi}))
80 DEFFNr2(x)=INT(20+18*SIN(x/30*{pi}))
90 DEFFNrk(x)=INT(20+10*SIN(x/6*{pi}))
100 SYS10496:PRINT"{home}"LEFT$(ti$,2)":"MID$(ti$,3,2)":":d1=1:r1=20
110 f$=LEFT$(ti$,4)
120 mi=VAL(RIGHT$(f$,2)):ho=VAL(LEFT$(f$,2))+mi/60
130 r=0:GOSUB190
140 q=FRE(.):PRINT"{home}{right*6}{reverse on}"MID$(ti$,5):s=VAL(MID$(ti$,5))
150 r=FNr2(s):d=FNd2(s):IFr=r1ANDd=d1THEN170
160 PRINT"{home}"LEFT$(r$,r1)LEFT$(d$,d1)" {home}"LEFT$(r$,r)LEFT$(d$,d)"Q":r1=r:d1=d
170 IFf$=LEFT$(ti$,4)THEN140
180 PRINT"{home}"LEFT$(ti$,2)":"MID$(ti$,3,2)":{space*2}":GOTO100
190 xa=20:ya=12
210 xb=FNrk(ho):yb=FNdk(ho):GOSUB240
220 xb=FNr2(mi):yb=FNd2(mi):GOSUB240
230 RETURN
240 h=0:v=0:x=xb-xa:y=yb-ya:d=ABS(x):IFABS(y)>dTHENd=ABS(y)
250 FORq=1TOd:PRINT"{home}"LEFT$(d$,v+ya)LEFT$(r$,h+xa)"{reverse on} ":h=h+x/d:v=v+y/d:NEXT
260 RETURN
stop tok64
(bastext 1.0)