GeezerVisonThe World Wide Web, restored to 800 pixels of glory. |
| Home|About|Gaming cabinet|Archives|How it works|Starter sites |
GeezerVison is showing github.com — smallbasic.github.io/samples/node/125.bas at master · smallbasic/smallbasic.github.io Expand file tree/ Copy path125.basMore file actions 26 lines (25 loc) · 396 Bytes / Copy path125.basFile metadata and controls26 lines (25 loc) · 396 Bytes 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 '#sec:Main '' Time.bas '' 18/01/2002 cls c=0 label rep k=inkey if len(k)<>2 then goto rep if c=0 then t1=ticks:cls:c=1:? t1:goto sue if c=1 then t2=ticks:c=2:? t2:goto sue if c=2 then t3=ticks:c=0:? t3:goto cal label sue k2=inkey:if len(k2)=2 then goto sue goto rep label cal om=(t2-t1)/100 olf=(t3-t2)/100 tot=(t3-t1)/100 du=(om/tot)*100 ? ? "On=",om ? "Off=",olf ? "Duty cycle=",du goto rep ' |
| You are visitor 01402520 — GeezerVison does not store the pages you look up. Best viewed with Netscape Navigator 4.7 or Internet Explorer 6 at 800×600. No cookies required. |