10 dim f%(39),t%(1999),sm%(20)
20 key off:gosub 400:print 2000/40
30 b=timer:bytes%=80:c=0:j=0:smove%=0:i=0:fofs%=0:tofs%=0
50 for i=0 to 39:f%(i)=i+1:next i
60 for i=0 to 49
70 fofs%=varptr(f%(0)):tofs%=varptr(t%(i*40)):gosub 500
80 next i:c=timer-b:locate 20,1:print c
90 for i=0 to 49
100 locate ,1:color i and 15
110 for j=0 to 39:print using "##";t%(i*40+j);:next j:print
130 next i
190 b=timer:for i=0 to 49
210 for j=0 to 39:t%(i*40+j)=f%(0):next j
230 next i:b=timer-b:color 7,0:locate ,1:print b,c,b/c
240 end
400 for i=0 to 15:read a$:sm%(i)=val("&h"+a$):next:return
500 smove%=varptr(sm%(0)):call smove% (fofs%,tofs%,bytes%):return
710 data 8B55,06EC,071E,768B,8B0A,8B04,0876,3C8B
720 data 768B,8B06,8B0C,FCF0,A4F3,5D07,06CA,0000

