'===========================================================================
' Subject: Spedia - Convert spedia to $       Date: 07-21-01 (  :  )       
'  Author: Mallardo                           Code: QB, PB                 
'  Origin: mallardo@hot.ee                  Packet: ALGOR.ABC
'===========================================================================
'Program Spedia
'Subject:Convert Spedia points to money
'Author: Mallardo
'Email: mallardo@hot.ee
'Date: 21.07.2001
'Code: Quickbasic
'Packet: Algoritm.abc
'******************************
' readme.txt inserted here
'**************************
'Save this as readme.txt
'from here ***
'*********************** Spedia points converter **********************
'
'Copyright (C) 2001 by Mallardo
'
'=================================
'=         Overview              =
'=================================
'
'This program is created to help convert Spedia (TM) points to money
'Spedia is service, that pays money for showing the banners on your
'screen while you are actively browsing the net.To create an account,
'go to:
'
'http://www.spedia.net/cgi-bin/tz.cgi?run=show_svc&fl=8&vid=2730234
'
'Copy it to your browsers address bar. It pays about 0.30$ a hour to
'international users.But one point equals one minute, so we can cal-
'culate the dollar value of the points.But it is done as international
'value. if you like me to add support for US users,or to send you com-
'piled version write me to email addresses shown below.
' 
'================================
'=          How works           =
'================================
'
'My program let's to do two kinds of calculations.First, to convert
'money (kroons or dollars) to points, to see how many points you have
'to collect to get money you want.
'
'To get so much money (money on dollars or kroons), you must have
'(points) Spedia points.
'
'Second, to convert points to money (dollars and kroons) When you
'enter the point value, this prompt appeares:
'
'For this points you get (dollars (kroons))
'
'In this mode, the value of dollars is automatially converted to
'kroons.
'
'================================
'=           Future             =
'================================
'
'In the future i plan to add the feature to recognize automatically
'the value of entered money (kr/$).It is also planned to add some 
'new calculations.
'
'===============================
'=           History           =
'===============================
'
'Version 1.1
'
'21.07.2001
'
'Same as 1.0 but in English.
'
'Version 1.0 
'
'09.07.2001
'
'Program was created.It was in Estonian.
'Does the basic calculations.
'
'===============================
'=           Disclaimer        = 
'===============================
'
'The program is entirely created by Mallardo.It can't be distri-
'buted without my permission.This program is provided as freeware
'(at least by now), which means you can't ask money for that.Report
'bugs to mlrdolab@hot.ee
'
'
'===============================
'=           Contact           =
'===============================
'
'Feel free to leave comments, suggestions, and critics to
'mlrdolab@hot.ee
'Visit my homepage at mallardo.gz.ee. It is still under construction,
'but in the future you find many of my free software there.If you
'like to cantact me personally, use the email address mallardo@hot.ee.
'' to here *** 
'
'

    CLS
    PRINT "            Convert program for Spedia points v1.0 (C) Mallardo"
    PRINT
1   INPUT "Points or money (p/m)"; midaarvutada$
    IF midaarvutada$ = "p" THEN GOTO punktid
    IF midaarvutada$ = "m" THEN GOTO raha
    GOTO 1
punktid:
    INPUT "How many points"; punktid
    raha = punktid / 60 * .3
    kroonid = raha * 18
    PRINT "For this points, you get"; raha; "$ ("; kroonid; "kr)"
    PRINT : PRINT "Press any key to quit"
    SLEEP 0
    END
raha:
    INPUT "How much money"; raha
    INPUT "Kroons or dollars"; kroondollar$
    IF kroondollar$ = "k" THEN rahatyyp = 1
    IF kroondollar$ = "$" THEN rahatyyp = 0
    PRINT
    IF rahatyyp = 0 THEN punkt = raha * 60 / .3: GOTO dollar
    IF rahatyyp = 1 THEN punkt = (raha / 18) * 60 / .3: GOTO kroon
dollar:
    PRINT "To get so much money ("; raha; "$ ) you must have "; punkt; "Spedia points."
    PRINT : PRINT "Press any key to quit"
    SLEEP 0
    END
kroon:
    PRINT "To get so much money ("; raha; "kr ) you must have "; punkt; "Spedia points."
    PRINT : PRINT "Press any key to quit"
    SLEEP 0
    END