[futurebasic] Re: software piracy

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : December 1997 : Group Archive : Group : All Groups

From: Ken Shmidheiser <kshmidheiser@...>
Date: Wed, 10 Dec 1997 09:11:43 -0400
>Some of these people have never had a refrigerator, and the 'civilised
>world is telling them to stop using fluorocarbons and go to some
>expensive substitute.
>
>I used to work in Malaysia from time to time with trained and clever
>people who earned about $100 US _per month_. How are _they_ going to
>afford MS Word, a program which is sold by the million.

Dear John:

Do I detect an dichotomy here? ;-}

ken


'-------------- Constants -------------
_rBtn1 = 1
_rBtn2 = 2

'-------------- Functions -------------
EDIT = 4
LOCAL FN buildWind
  WINDOW 1, "Afford-A-Mac for Third World", (0,0)-(300,200), _dialogMovable
  BUTTON _rBtn1, _markedBtn, "I want to buy a Mac", (70,71)-(280,90),_radio
  BUTTON _rBtn2, _activeBtn, "I would rather eat", (70,100)-(280,120),_radio
  EDIT FIELD #1,"Select your choice from buttons below", (20,20)-(280,34),
_statFramed, _centerJust
  EDIT FIELD #2,"Press Command-Period to end", (20,166)-(280,180),
_statNoFramed, _centerJust
END FN

LOCAL FN resetRadioGroup(btnClicked,F,L)
  FOR btnNum = F TO L
    LONG IF BUTTON(btnNum) = _markedBtn
      BUTTON #btnNum, _activeBtn
    END IF
  NEXT btnNum
  BUTTON btnClicked, _markedBtn
END FN

LOCAL FN getTheMessage
  SELECT
    CASE BUTTON(_rBtn1) = _markedBtn
      EDIT$(1) = "Then you can't afford to eat."
    CASE BUTTON(_rBtn2) = _markedBtn
      EDIT$(1) = "Then you can't afford to buy a Mac."
  END SELECT
END FN

LOCAL FN doDialog
  evnt = DIALOG(0)
  id = DIALOG(evnt)
  SELECT CASE evnt
    CASE _btnClick
      FN resetRadioGroup (id,_rBtn1,_rBtn2)
      FN getTheMessage
  END SELECT
END FN

'-------------- Functions -------------
WINDOW OFF
FN buildWind

ON DIALOG FN doDialog

DO
  HANDLEEVENTS
UNTIL cmdPeriod

___________________________________________________________________
Ken Shmidheiser                     Systems Administrator/Publisher

Internet: kshmidheiser@...    Fax:  606.878.7400
Somerset, KY 42502-0221                        Phone:  606.679.4266
___________________________________________________________________