'  Simple BSII program to read two FSRs and
'  dial long distance information.
'  One FSR is used as a button to cause dialing.
'  The other is used to set the speed of dialing.
'  Perry R. Cook, Princeton, 1999

myword var word
loop:
    high 14				' Charge capacitor
    pause 10				'    for small FSR
    rctime 14, 1, myword		' Time discharge
    if myword > 500 then nodial:	' If FSR pressure enough
        high 15				' Charge cap for
        pause 10			'    bending FSR
        rctime 15, 1, myword		' And measure it
			'  Dial a phone number, with delay = bend
        dtmfout 0, myword/10, myword/10, [1,8,0,0,5,5,5,1,2,1,2]
    nodial:
goto loop

'  Simple as that!!!