No Luck in Solving this - Can someone PLEASE suggest something!

Ive had this problem for a while now and thus far, no-one has been able to suggest a fix for it.
I had podcasts loaded to my me.com site and they worked perfectly, now for some reason they wont download into iTunes - it gives a variety of error messages.
I've changed absolutely nothing about it, so i cant understand why it no longer works.

no-one has been able to suggest a fix for it.
I suggested a fix in [a previous post|http://discussions.apple.com/message.jspa?messageID=8061407&tstart=0].
I've changed absolutely nothing about it, so i cant understand why it no longer works.
No you didn't . The link to your rss feed on your page is still wrong.
And the links IN the rss feed are wrong too.
DON'T use your domainname.

Similar Messages

  • HT1338 evr since i put a child lock on my Mac its never been the same .. now i cant even open my yahoo mail without it wanting me to reinstall this can someone please help me work this out

    ever since i put a child lock on my Mac its never been the same .. now i cant even open my yahoo mail without it wanting me to reinstall this, can someone please help me work this out

    What "child lock" are you talking about?
    Do you mean you set up a Managed account (Parental Controls), or some other software?
    For Parental Controls, select the account in Users & Groups and uncheck the "Enable parental controls" checkbox.

  • Can someone please suggest me in tuning this query?

    Can someone please suggest me in tuning this query?
    select pemail.email_oid,
    pemail.parent_oid,
    md.message_data_oid,
    ea.email_account_oid,
    ef.email_folder_oid,
    md.channel,
    ea.email_account_name,
    md.from_address,
    md.to_address,
    eref.ref_id ticket_number,
    ( select count(email_oid) from esg.email where email_oid = pemail.email_oid and email.attachment_flag = 'Y' ) attachment_flag_a,
    ( select count(email_oid) from esg.email cemail
    where cemail.parent_oid = pemail.email_oid and
    ( cemail.email_type is null or cemail.email_type != 'S') and
    cemail.vec_status not in ('G', 'D', 'P') and
    cemail.vec_status in ('N', 'O') and
    cemail.attachment_flag = 'Y' ) attachment_flag_b,
    md.received_date,
    pemail.vec_status,
    pemail.email_type,
    md.subject,
    md.content,
    pemail.tracking_id,
    pemail.assignee_oid,
    ( select count(email_oid) from email cemail
    where cemail.parent_oid = pemail.email_oid and
    (cemail.email_type is null or cemail.email_type != 'S' ) and
    cemail.vec_status not in ('G','D', 'P') and
    cemail.vec_status in ('N', 'O' ) ) child_email_cnt,
    ( select count(0) from email
    where vec_status = 'N' and
    email_type = 'O' and
    email_oid = pemail.email_oid and
    vec_status in ('N', 'O' )) parent_newemail_cnt,
    ( select count(0) from email
    where vec_status = 'N' and
    email_type = 'O' and
    parent_oid = pemail.email_oid and
    vec_status in ('N', 'O' )) child_newemail_cnt
    From esg.email pemail,
    esg.message_data md,
    esg.email_account ea,
    esg.email_folder ef,
    (select email_oid, ref_id from email_ref
    where email_ref_oid in (select min(email_ref_oid) from email_ref where ref_tid = -9000 and ref_sid = 'ESG' and confirmed_flag = 'Y' group by email_oid )) eref
    where
    md.message_data_oid = pemail.message_data_oid and
    pemail.email_folder_oid = ef.email_folder_oid(+) and
    ef.email_account_oid = ea.email_account_oid(+) and
    pemail.vec_status not in ('G','D','P') and
    pemail.vec_status in ('N', 'O') and
    pemail.email_oid = eref.email_oid(+) and
    lower(md.channel) in ('[email protected]', '[email protected]') and
    pemail.email_oid in
    ( select parent.email_oid from message_data md,
    email parent
    where md.message_data_oid = parent.message_data_oid and
    parent.parent_oid is null and
    pemail.email_type = 'O' and
    lower(md.to_address) in
    ( select lower(contact_info) from esg.user_profile up,
    esg.person p,
    esg.person_contact pc
    where up.user_oid = 802239 and
    up.person_oid = p.person_oid and
    p.person_oid = pc.person_oid and
    pc.contact_type_oid = 6 )
    union all
    select child.parent_oid from message_data md,
    email child
    where md.message_data_oid = child.message_data_oid and
    parent_oid is not null and
    child.vec_status not in ('G','D','P') and
    child.vec_status in ('N', 'O') and
    child.email_type = 'O' and
    lower(md.to_address) in
    ( select lower(contact_info) from esg.user_profile up,
    esg.person p,
    esg.person_contact pc
    where up.user_oid = 802239 and
    up.person_oid = p.person_oid and
    p.person_oid = pc.person_oid and
    pc.contact_type_oid = 6 )
    ORDER BY RECEIVED_DATE DESC;
    1st run
    Elapsed: 00:00:03.39
    2nd run
    Elapsed: 00:00:01.80
    SQL> Select TABLE_NAME,LAST_ANALYZED, num_rows from user_tables where table_name in ('EMAIL','MESSAGE_DATA', 'EMAIL_ACCOUNT','EMAIL_FOLDER','EMAIL_REF','USER_PROFILE','PERSON','PERSON_CONTACT');
    TABLE_NAME LAST_ANAL NUM_ROWS
    USER_PROFILE 11-JUN-11 385808
    PERSON_CONTACT 11-JUN-11 698624
    PERSON 11-JUN-11 405364
    MESSAGE_DATA 11-JUN-11 1069
    EMAIL_REF 11-JUN-11 559
    EMAIL_FOLDER 11-JUN-11 563
    EMAIL_ACCOUNT 11-JUN-11 563
    EMAIL 11-JUN-11 101652
    8 rows selected.
    row count from all tables
    email - 102063
    message_data - 1069
    email_account - 563
    email_folder - 563
    email_ref - 559
    user_profile - 386055
    person - 404057
    person_contact - 698696
    Thanks,
    Suman M.

    ======================================
    Execution Plan
    Plan hash value: 110416976
    | Id | Operation | Name | Rows | Bytes | Cost |
    | 0 | SELECT STATEMENT | | 1 | 1361 | 17 |
    | 1 | SORT AGGREGATE | | 1 | 8 | |
    |* 2 | TABLE ACCESS BY INDEX ROWID | EMAIL | 1 | 8 | 1 |
    |* 3 | INDEX UNIQUE SCAN | PK_EMAIL | 1 | | 1 |
    | 4 | SORT AGGREGATE | | 1 | 8 | |
    |* 5 | TABLE ACCESS BY INDEX ROWID | EMAIL | 1 | 8 | 1 |
    |* 6 | INDEX RANGE SCAN | FK_EMAIL_PARENT | 3 | | 1 |
    | 7 | SORT AGGREGATE | | 1 | 6 | |
    |* 8 | TABLE ACCESS BY INDEX ROWID | EMAIL | 1 | 6 | 1 |
    |* 9 | INDEX RANGE SCAN | FK_EMAIL_PARENT | 3 | | 1 |
    | 10 | SORT AGGREGATE | | 1 | 10 | |
    |* 11 | TABLE ACCESS BY INDEX ROWID | EMAIL | 1 | 10 | 1 |
    |* 12 | INDEX UNIQUE SCAN | PK_EMAIL | 1 | | 1 |
    | 13 | SORT AGGREGATE | | 1 | 6 | |
    |* 14 | TABLE ACCESS BY INDEX ROWID | EMAIL | 1 | 6 | 1 |
    |* 15 | INDEX RANGE SCAN | FK_EMAIL_PARENT | 3 | | 1 |
    | 16 | SORT ORDER BY | | 1 | 1361 | 17 |
    |* 17 | FILTER | | | | |
    | 18 | NESTED LOOPS OUTER | | 1 | 1361 | 5 |
    | 19 | NESTED LOOPS OUTER | | 1 | 1336 | 4 |
    | 20 | NESTED LOOPS | | 1 | 1328 | 3 |
    | 21 | NESTED LOOPS OUTER | | 1 | 53 | 2 |
    | 22 | INLIST ITERATOR | | | | |
    | 23 | TABLE ACCESS BY INDEX ROWID | EMAIL | 1 | 35 | 1 |
    |* 24 | INDEX RANGE SCAN | IE_EMAIL | 55 | | 1 |
    | 25 | VIEW PUSHED PREDICATE | | 1 | 18 | 1 |
    | 26 | NESTED LOOPS | | 1 | 36 | 4 |
    | 27 | VIEW | VW_NSO_1 | 11 | 143 | 3 |
    | 28 | SORT GROUP BY | | 11 | 231 | 3 |
    |* 29 | TABLE ACCESS BY INDEX ROWID| EMAIL_REF | 11 | 231 | 3 |
    |* 30 | INDEX FULL SCAN | AK1_EMAIL_REF | 21 | | 3 |
    |* 31 | TABLE ACCESS BY INDEX ROWID | EMAIL_REF | 1 | 23 | 1 |
    |* 32 | INDEX UNIQUE SCAN | PK_EMAIL_REF | 1 | | 1 |
    |* 33 | TABLE ACCESS BY INDEX ROWID | MESSAGE_DATA | 1 | 1275 | 1 |
    |* 34 | INDEX UNIQUE SCAN | PK_MESSAGE_DATA | 1 | | 1 |
    | 35 | TABLE ACCESS BY INDEX ROWID | EMAIL_FOLDER | 1 | 8 | 1 |
    |* 36 | INDEX UNIQUE SCAN | PK_EMAIL_FOLDER | 1 | | 1 |
    | 37 | TABLE ACCESS BY INDEX ROWID | EMAIL_ACCOUNT | 1 | 25 | 1 |
    |* 38 | INDEX UNIQUE SCAN | PK_EMAIL_ACCOUNT | 1 | | 1 |
    | 39 | UNION-ALL | | | | |
    | 40 | NESTED LOOPS SEMI | | 1 | 116 | 5 |
    | 41 | NESTED LOOPS | | 1 | 50 | 2 |
    |* 42 | TABLE ACCESS BY INDEX ROWID | EMAIL | 1 | 14 | 1 |
    |* 43 | INDEX UNIQUE SCAN | PK_EMAIL | 1 | | 1 |
    | 44 | TABLE ACCESS BY INDEX ROWID | MESSAGE_DATA | 1069 | 38484 | 1 |
    |* 45 | INDEX UNIQUE SCAN | PK_MESSAGE_DATA | 1 | | 1 |
    |* 46 | VIEW | VW_NSO_3 | 1 | 66 | 3 |
    |* 47 | FILTER | | | | |
    | 48 | NESTED LOOPS | | 1 | 45 | 3 |
    | 49 | NESTED LOOPS | | 1 | 15 | 2 |
    | 50 | TABLE ACCESS BY INDEX ROWID | USER_PROFILE | 1 | 10 | 1 |
    |* 51 | INDEX UNIQUE SCAN | PK_USER | 1 | | 1 |
    |* 52 | INDEX UNIQUE SCAN | PK_PERSON | 405K| 1979K| 1 |
    |* 53 | TABLE ACCESS BY INDEX ROWID | PERSON_CONTACT | 1 | 30 | 1 |
    |* 54 | INDEX RANGE SCAN | FK_PERSON_CONTACT_PERSON | 2 | | 1 |
    | 55 | NESTED LOOPS | | 1 | 114 | 5 |
    | 56 | MERGE JOIN CARTESIAN | | 1 | 78 | 4 |
    |* 57 | TABLE ACCESS BY INDEX ROWID | EMAIL | 1 | 12 | 1 |
    |* 58 | INDEX RANGE SCAN | FK_EMAIL_PARENT | 1 | | 1 |
    | 59 | BUFFER SORT | | 1 | 66 | 3 |
    | 60 | VIEW | VW_NSO_2 | 1 | 66 | 3 |
    | 61 | SORT UNIQUE | | 1 | 45 | |
    | 62 | NESTED LOOPS | | 1 | 45 | 3 |
    | 63 | NESTED LOOPS | | 1 | 15 | 2 |
    | 64 | TABLE ACCESS BY INDEX ROWID| USER_PROFILE | 1 | 10 | 1 |
    |* 65 | INDEX UNIQUE SCAN | PK_USER | 1 | | 1 |
    |* 66 | INDEX UNIQUE SCAN | PK_PERSON | 405K| 1979K| 1 |
    |* 67 | TABLE ACCESS BY INDEX ROWID | PERSON_CONTACT | 1 | 30 | 1 |
    |* 68 | INDEX RANGE SCAN | FK_PERSON_CONTACT_PERSON | 2 | | 1 |
    |* 69 | TABLE ACCESS BY INDEX ROWID | MESSAGE_DATA | 1 | 36 | 1 |
    |* 70 | INDEX UNIQUE SCAN | PK_MESSAGE_DATA | 1 | | 1 |
    Predicate Information (identified by operation id):
    2 - filter("EMAIL"."ATTACHMENT_FLAG"='Y')
    3 - access("EMAIL_OID"=:B1)
    5 - filter("CEMAIL"."EMAIL_TYPE"<>'S' AND "CEMAIL"."VEC_STATUS"<>'G' AND
    "CEMAIL"."VEC_STATUS"<>'D' AND "CEMAIL"."VEC_STATUS"<>'P' AND ("CEMAIL"."VEC_STATUS"='N'
    OR "CEMAIL"."VEC_STATUS"='O') AND "CEMAIL"."ATTACHMENT_FLAG"='Y')
    6 - access("CEMAIL"."PARENT_OID"=:B1)
    8 - filter("CEMAIL"."EMAIL_TYPE"<>'S' AND "CEMAIL"."VEC_STATUS"<>'G' AND
    "CEMAIL"."VEC_STATUS"<>'D' AND "CEMAIL"."VEC_STATUS"<>'P' AND ("CEMAIL"."VEC_STATUS"='N'
    OR "CEMAIL"."VEC_STATUS"='O'))
    9 - access("CEMAIL"."PARENT_OID"=:B1)
    11 - filter("VEC_STATUS"='N' AND "EMAIL_TYPE"='O')
    12 - access("EMAIL_OID"=:B1)
    14 - filter("VEC_STATUS"='N' AND "EMAIL_TYPE"='O')
    15 - access("PARENT_OID"=:B1)
    17 - filter( EXISTS ( (SELECT "PARENT"."EMAIL_OID" FROM "EMAIL" "PARENT","MESSAGE_DATA"
    "MD", (SELECT LOWER("CONTACT_INFO") "$nso_col_1" FROM "ESG"."PERSON_CONTACT"
    "PC","ESG"."PERSON" "P","ESG"."USER_PROFILE" "UP" WHERE :B1='O' AND
    "UP"."USER_OID"=802239 AND "UP"."PERSON_OID"="P"."PERSON_OID" AND
    "P"."PERSON_OID"="PC"."PERSON_OID" AND "PC"."CONTACT_TYPE_OID"=6)
    "VW_NSO_3" WHERE
    "$nso_col_1"=LOWER("MD"."TO_ADDRESS") AND "MD"."MESSAGE_DATA_OID"="PARENT"."MESSAGE_DATA_O
    ID" AND "PARENT"."EMAIL_OID"=:B2 AND "PARENT"."PARENT_OID" IS NULL
    ) UNION ALL (SELECT
    "CHILD"."PARENT_OID" FROM "EMAIL" "CHILD","MESSAGE_DATA" "MD", (SELECT DISTINCT
    LOWER("CONTACT_INFO") "$nso_col_1" FROM "ESG"."PERSON_CONTACT" "PC","ESG"."PERSON"
    "P","ESG"."USER_PROFILE" "UP" WHERE "UP"."USER_OID"=802239 AND
    "UP"."PERSON_OID"="P"."PERSON_OID" AND "P"."PERSON_OID"="PC"."PERSON_OID" AND
    "PC"."CONTACT_TYPE_OID"=6) "VW_NSO_2" WHERE "MD"."MESSAGE_DATA_OID
    "="CHILD"."MESSAGE_DATA_
    OID" AND "$nso_col_1"=LOWER("MD"."TO_ADDRESS") AND "CHILD"."PARENT
    _OID"=:B3 AND
    "CHILD"."VEC_STATUS"<>'G' AND "CHILD"."VEC_STATUS"<>'D' AND "CHILD
    "."VEC_STATUS"<>'P' AND
    ("CHILD"."VEC_STATUS"='N' OR "CHILD"."VEC_STATUS"='O') AND "CHILD"
    ."EMAIL_TYPE"='O' AND
    "PARENT_OID" IS NOT NULL)))
    24 - access("PEMAIL"."VEC_STATUS"='N' OR "PEMAIL"."VEC_STATUS"='O')
    filter("PEMAIL"."VEC_STATUS"<>'G' AND "PEMAIL"."VEC_STATUS"<>'D' AND
    "PEMAIL"."VEC_STATUS"<>'P')
    29 - filter("CONFIRMED_FLAG"='Y')
    30 - access("REF_SID"='ESG' AND "REF_TID"=(-9000))
    filter("REF_TID"=(-9000) AND "REF_SID"='ESG')
    31 - filter("EMAIL_OID"="PEMAIL"."EMAIL_OID")
    32 - access("EMAIL_REF_OID"="$nso_col_1")
    33 - filter(LOWER("MD"."CHANNEL")='[email protected]' OR
    LOWER("MD"."CHANNEL")='[email protected]')
    34 - access("MD"."MESSAGE_DATA_OID"="PEMAIL"."MESSAGE_DATA_OID")
    36 - access("PEMAIL"."EMAIL_FOLDER_OID"="EF"."EMAIL_FOLDER_OID"(+))
    38 - access("EF"."EMAIL_ACCOUNT_OID"="EA"."EMAIL_ACCOUNT_OID"(+))
    42 - filter("PARENT"."PARENT_OID" IS NULL)
    43 - access("PARENT"."EMAIL_OID"=:B1)
    45 - access("MD"."MESSAGE_DATA_OID"="PARENT"."MESSAGE_DATA_OID")
    46 - filter("$nso_col_1"=LOWER("MD"."TO_ADDRESS"))
    47 - filter(:B1='O')
    51 - access("UP"."USER_OID"=802239)
    52 - access("UP"."PERSON_OID"="P"."PERSON_OID")
    53 - filter("PC"."CONTACT_TYPE_OID"=6)
    54 - access("P"."PERSON_OID"="PC"."PERSON_OID")
    57 - filter("CHILD"."VEC_STATUS"<>'G' AND "CHILD"."VEC_STATUS"<>'D' AND
    "CHILD"."VEC_STATUS"<>'P' AND ("CHILD"."VEC_STATUS"='N' OR "CHILD"
    ."VEC_STATUS"='O') AND
    "CHILD"."EMAIL_TYPE"='O')
    58 - access("CHILD"."PARENT_OID"=:B1)
    filter("PARENT_OID" IS NOT NULL)
    65 - access("UP"."USER_OID"=802239)
    66 - access("UP"."PERSON_OID"="P"."PERSON_OID")
    67 - filter("PC"."CONTACT_TYPE_OID"=6)
    68 - access("P"."PERSON_OID"="PC"."PERSON_OID")
    69 - filter("$nso_col_1"=LOWER("MD"."TO_ADDRESS"))
    70 - access("MD"."MESSAGE_DATA_OID"="CHILD"."MESSAGE_DATA_OID")
    Note
    - cpu costing is off (consider enabling it)
    Statistics
    3103 recursive calls
    0 db block gets
    599654 consistent gets
    2915 physical reads
    0 redo size
    1955 bytes sent via SQL*Net to client
    3895 bytes received via SQL*Net from client
    2 SQL*Net roundtrips to/from client
    331 sorts (memory)
    0 sorts (disk)
    0 rows processed
    =====================================

  • HT1414 i am in the process of getting my iphone4 unlocked from att to use it on straighttalk. why do i need to "back up" the iphone and all of this? i dont have an apple computer sooo, im a little confused on why i need to do this. can someone please help

    Can someone please explain and help me? I am unlocking an iphone4 from at&amp;t to use it on the straight talk network. They've confirmed my request to do this and I am now a little confused as to what to do next. They want me to back up the phone using itunes on either a MAC or PC. I do not have an aplle computer but I do have an acer. Sooo, can I use it to do this? Or do I even have to do this to unlock and switch the iphone4 over to a new network? If I do have to what can I do to do this because like I said I do not have a computer by apple? Can anybody walk me through what I need to do next please? I've been waiting to do this for a very long time and I now have the option to have an iphone and use it. Thanks to my awesome boyfriend who Gave me his old iphone when he swapped back to an android. Hahahaha! Please anybody!? Because I sooo don't know what I'm doing and really do not want to mess the phone Or the process up. Thanks to any and all who read this and help me! It is greatly appreciate it!

    Install iTunes on your Acer and you can back up the iPhone. Or back it up to iCloud. If you do not back it up you can get it unlocked, but you will lose all of your content.
    You can get iTunes from http://www.apple.com/itunes.
    Even after unlocking I'm not sure it will work on Straight Talk, because last time I checked ST used Verizon as its carrier, and an AT&T iPhone 4 is not compatible with Verizon's network. You can probably use it on Net 10 or T-Mobile once it is unlocked.

  • How to solve this problem?please suggest.

    Hi all,
               I am getting like this error,
    Record 9304 :Contents 0.00 0000 from field UMSA1 cannot be converted in type CURR ->lo     RSAR197     
    Error in an arithmetic operation in record 9304 RSAR     117     
    Error records written to application log     RSM2     708
    Actually 32 datapackets are there for this info package,at 31 datapacket error is getting,31 datapacket is not available in PSA.
    At datapacket level this error message is also there
    Error in an arithmetic operation in record 9304
    Please explain me how to solve this error.
    Thanks & Regards,
    mano

    *Hi, I am getting the same error*
    Error records written to application log
    Error in an arithmetic operation in record                                               489
    Record                                               489:Contents        四川省长江滥曝扇备总 from field UMSA1 cannot
    Record 489 :Contents 四川省长江滥曝扇备总 from field UMSA1 cannot be converted in type CURR ->lo
    This happened for the customized master data Z********(customer number). Data source; 0CUSTOMER_ATTR
    I have undertaken the following actions but all failed.
    1. Replicated the data source, activated the transfer structure through a program and the load was run but the load failed with the same issue.
    2. Pushed the data till PSA and tried to edit it in the PSA, but here too the load failed with the same issue.
    It is understood that the data source 0CUSTOMER_ATTR is obtained from the Funtion Module: MDEX_CUSTOMER_MD
    Out of 5 data packages, I could find only 3 data packages in PSA which are successful, the remaining had error and could not be found in PSA. Checked in R/3 but could not catch the correct record, since, did not had proper info. UMSA1 refers to Annual Sales, which are empty in R/3 and BW as well.
    The UMSA1 field in data source 0CUSTOMER_ATTR in BW.
    Data Type: CURR, Length: 15, Decimal: 2, curr/unit: UWAER
    The UMSA1 field in R/3
    Data Type: CURR, Length: 15, Decimal: 2
    Request your timely suggestions.
    Raj

  • Can someone please suggest some good projects for learning about usrp and labview for beginners?​??

    Can some1 please me suggest  some good things to work out on USRP using labview.. 

    https://decibel.ni.com/content/groups/ni-usrp-exam​ple-labview-vis?view=documents
    Omar

  • This *****, can someone please help!

    My iPod is a 30Gb and it died a while back. i ordered another battery from ebay and i brought it back to life. im so happy now, but one problem, only one side of the headphones and car stereo is working. im thinking its the iPod, pretty positive. if you have any idea why this could me happening, and any help you could give me would be great. thank you.

    You may have broken a connection/cable while installing the battery. Are you connecting to the car through the headphone output or the dock?

  • Updated my iphone4 with ios6.1 software. App store is not working. Tried rebooting, restoring, changing date, signing with another apple id etc. but no luck. can someone please help?

    Updated my iphone4 with ios6.1 software. App store is not working. Tried rebooting, restoring, changing date, signing with another apple id etc. but no luck. can someone please help?

    I guess I will wrap this up. I have abandoned iPhoto and viewing my Photo Streams using it and moved to Adobe products (Bridge + PS). So that's that.

  • CAn Someone Please Help me? Turn this program in a algorithm

    DECLARE SUB RentCar ()
    DECLARE SUB PayBill ()
    DECLARE SUB Main ()
    DECLARE SUB ReadCarData ()
    DECLARE SUB FindCar ()
    TYPE Car ' User made Type To hold Car Data
    CarNumber AS INTEGER
    License AS STRING * 8
    Year AS INTEGER
    CarMaker AS STRING * 16
    CarName AS STRING * 16
    Description AS STRING * 20
    ColorOfCar AS STRING * 10
    NumberOfDoors AS INTEGER
    Price AS DOUBLE
    Rented AS INTEGER
    Customer AS INTEGER
    END TYPE
    TYPE Customer ' User made Type to hold Customer data
    CustomerNumber AS INTEGER
    CustName AS STRING * 50
    Bill AS DOUBLE
    END TYPE
    DIM SHARED Cars(1 TO 26) AS Car ' Global Variables
    DIM SHARED p(4) AS Customer
    DIM CustName AS STRING * 50
    p(0).CustName = "Kevin" ' Assign Customers who need to pay bills
    p(0).Bill = 0
    p(1).CustName = "Eljah"
    p(1).Bill = 100
    p(2).CustName = "Jared"
    p(2).Bill = 55
    p(3).CustName = "Claudwin"
    p(3).Bill = 60
    p(4).CustName = "Isaac"
    p(4).Bill = 1500
    CALL ReadCarData ' This reads the data statements into the Cars() array.
    WIDTH 80, 50 ' Formats screen and call the main part of the program
    CALL Main
    ' CAR DATA STATEMENTS
    ' LICENSE YEAR MAKER MODEL DESCRIPTION COLOR DOORS PRICE
    DATA "X-5687", 2007, "DODGE", "CALIBER", "FAMILY CAR", "DARK RED", 4, 89.99
    DATA "X-9681", 2006, "DODGE", "CHARGER", "SPORT", "GREY", 4, 47.99
    DATA "X-9684", 2006, "DODGE", "RAM 2500", "PICKUP", "BLACK", 4, 101.99
    DATA "X-9437", 2004, "FORD", "MUSTANG", "SPORT", "RED", 2, 45.99
    DATA "X-2562", 2002, "FORD", "TAURUS", "SEDAN", "LIGHT GREY", 4, 67.99
    DATA "X-3856", 2003, "FORD", "CONTOUR", "SMALL", "LIGHT BLUE", 2, 45.99
    DATA "X-2724", 2001, "FORD", "BRONCO", "JEEP", "BLACK", 4, 63.99
    DATA "X-2724", 2001, "FORD", "BRONCO", "JEEP", "DARK GREEN", 4, 63.99
    DATA "X-8568", 1998, "FORD", "ESCORT", "COMPACT", "BROWN", 2, 35.99
    DATA "X-4724", 2004, "FORD", "PROBE", "SPORT", "BLACK", 2, 58.99
    DATA "X-4724", 2004, "FORD", "PROBE", "SPORT", "RED", 2, 58.99
    DATA "X-4724", 2004, "FORD", "PROBE", "SPORT", "YELLOW", 2, 58.99
    DATA "X-4724", 2003, "FORD", "AEROSTAR", "S.U.V.", "DARK GREEN", 4, 87.99
    DATA "X-2727", 1999, "PONTIAC", "GRAND AM", "SPORT CAR", "BLACK", 2, 45.99
    DATA "X-2327", 1999, "PONTIAC", "GRAND AM", "SPORT CAR", "RED", 2, 45.99
    DATA "X-2767", 1999, "PONTIAC", "GRAND AM", "SPORT CAR", "GREY", 2, 45.99
    DATA "X-2723", 1999, "PONTIAC", "GRAND AM", "SPORT CAR", "PURPLE", 2, 45.99
    DATA "X-8486", 2005, "PONTIAC", "TRANSPORT", "S.U.V.", "WHITE", 2, 96.99
    DATA "X-3261", 2005, "PONTIAC", "AZTEC", "S.U.V.", "YELLOW", 4, 93.99
    DATA "X-1864", 2006, "PONTIAC", "TORRENT", "S.U.V.", "RED", 4, 98.99
    DATA "X-8521", 2006, "MERCURY", "COUGAR", "SPORT", "BLACK", 2, 69.99
    DATA "X-8471", 2006, "LINCOLN", "TOWN CAR", "LUXURY", "BLACK", 4, 149.99
    DATA "X-8635", 2001, "LINCOLN", "CONTINENTAL", "LUXURY", "GOLD", 4, 139.99
    DATA "X-2643", 2006, "CHEVROLET", "F-150", "PICKUP", "GREY", 2, 95.99
    DATA "X-7143", 2006, "CHEVROLET", "CORVETTE", "SPORT", "YELLOW", 2, 131.99
    DATA "X-7378", 2006, "CHEVROLET", "MALIBU", "SEDAN", "BLACK", 4, 81.99
    SUB FindCar ' This sub goes through the data to search for a car
    DIM Counter AS INTEGER 'variables need for sub
    DIM TempMaker AS STRING
    DIM TempModel AS STRING
    DIM TempColor AS STRING
    DIM TempCarType AS STRING
    DIM TempRangeFrom AS DOUBLE
    DIM TempRangeTo AS DOUBLE
    DIM TempMax AS DOUBLE
    DIM TempMin AS DOUBLE
    DIM LeaveFindCar AS INTEGER
    DIM MoreCar AS STRING
    DIM CanDisplay AS INTEGER
    DO WHILE LeaveFindCar = 0 ' Main loop to find type of car
         ' Initialize the variables
    Counter = 0
    TempMaker = ""
    TempModel = ""
    TempColor = ""
    TempRangeFrom = 0
    TempRangeTo = 0
    CLS ' Draw the screen with the search fields"
    COLOR 15
    PRINT "FIND IDEAL CAR: (Enter one or more of these items)"
         PRINT STRING$(80, CHR$(196))
         COLOR 11
         PRINT "Car Builder:"
         PRINT "Car Model:"
         PRINT "Car Color:"
         PRINT "Price Range: From: To:"
         COLOR 10 ' GetsUser can enter any search fields he wants
         LOCATE 3, 19
         INPUT TempMaker
         LOCATE 4, 19
         INPUT TempModel
         LOCATE 5, 19
         INPUT TempColor
         LOCATE 6, 19
         INPUT TempRangeFrom
         LOCATE 6, 36
         INPUT TempRangeTo
         COLOR 15
         PRINT STRING$(80, CHR$(196))
         CanDisplay = 0
         FOR Counter = 1 TO 26 '' This loop does the actual search of the matching cars
         'We compare all string type variables as an
         'uppercase (UCASE$) and Right Trimmed (RTRIM$)
         'to avoid having to compare upper and lower case
         'Values, this makes the condtions here twice
         'as short to perform.
         IF RTRIM$(TempMaker) <> "" THEN
         IF UCASE$(RTRIM$(Cars(Counter).CarMaker)) = UCASE$(RTRIM$(TempMaker)) THEN
         IF RTRIM$(TempModel) <> "" THEN
         IF UCASE$(RTRIM$(Cars(Counter).CarName)) = UCASE$(RTRIM$(TempModel)) THEN
         IF RTRIM$(TempColor) <> "" THEN
         IF UCASE$(RTRIM$(Cars(Counter).ColorOfCar)) = UCASE$(RTRIM$(TempColor)) THEN
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    ' If Price of car is in between Mininum and Maximum Price
    'Allows to display the record.
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    END IF
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    ' The IF is to set Min to the smallest of
    ' the range vales and TempMax to the biggest.
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    END IF
    END IF
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    IF RTRIM$(TempColor) <> "" THEN
    IF UCASE$(RTRIM$(Cars(Counter).ColorOfCar)) = UCASE$(RTRIM$(TempColor)) THEN
    ' This IF is to set Min to the smallest of
    ' the range values and Max to the biggest.
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    END IF
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    ' The IF is to set Min to the smallest of
    ' the range vales and Max to the biggest.
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSEIF TempRangeFrom = 0 AND TempRangeTo > 0 THEN ' The IF one of the range to be 0
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSEIF TempRangeFrom > 0 AND TempRangeTo = 0 THEN ' This IF one of the range to be 0
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    CanDisplay = 1
    END IF
    END IF
    END IF
    END IF
    ELSE
    'Same as previously, all string variables are UCASEd and
    'RTRIMmed to shorten the comparison lenghts.
    IF RTRIM$(TempModel) <> "" THEN
    IF UCASE$(RTRIM$(Cars(Counter).CarName)) = UCASE$(RTRIM$(TempModel)) THEN
    IF RTRIM$(TempColor) <> "" THEN
    IF UCASE$(RTRIM$(Cars(Counter).ColorOfCar)) = UCASE$(RTRIM$(TempColor)) THEN
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    ' This IF is to setMin to the smallest of
    ' the range vales and Max to the biggest
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    END IF
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    ' This IF is to setMin to the smallest of
    ' the range vales and Max to the biggest
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    END IF
    END IF
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    IF RTRIM$(TempColor) <> "" THEN
    IF UCASE$(RTRIM$(Cars(Counter).ColorOfCar)) = UCASE$(RTRIM$(TempColor)) THEN
    ' This IF is to setMin to the smallest of
    ' the range vales and Max to the biggest
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    CanDisplay = 1
    END IF
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    ' This IF is to setMin to the smallest of
    ' the range vales and Max to the biggest
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSEIF TempRangeFrom = 0 AND TempRangeTo > 0 THEN
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSEIF TempRangeFrom > 0 AND TempRangeTo = 0 THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    CanDisplay = 1
    END IF
    END IF
    END IF
    END IF
    IF CanDisplay = 1 THEN ' If car match fields entered it is displayed
              COLOR 11
    PRINT Cars(Counter).CarNumber;
    PRINT " " + RTRIM$(Cars(Counter).License);
    PRINT " - " + RTRIM$(Cars(Counter).CarMaker);
    PRINT " " + RTRIM$(Cars(Counter).CarName);
    PRINT " " + RTRIM$(Cars(Counter).Description);
    PRINT " " + RTRIM$(Cars(Counter).ColorOfCar);
    PRINT TAB(60); USING " $###.##"; Cars(Counter).Price
    CanDisplay = 0
    END IF
    NEXT Counter ' displays line after listing cars
    COLOR 15
    PRINT STRING$(80, CHR$(196))
    DO WHILE UCASE$(MoreCar) <> "Y" AND UCASE$(MoreCar) <> "N"
    LOCATE CSRLIN, 1 ' This loop ask useers if they want another car search
    PRINT "Find Another Car (Y/N)"
    INPUT MoreCar
    LOOP
    IF UCASE$(MoreCar) = "N" THEN ' If user entered "n" the loop is exited
    LeaveFindCar = 1
    END IF
    MoreCar = ""
    LOOP
    END SUB
    SUB Main
    ' This SUB is the main part of the program. It displays
    ' the menu and accepts the choices from the user, when the
    ' user picks a valid value, it executes the proper choice
    DO
    CLS
    COLOR 15
    'print the menu on the screen      
    LOCATE 1, 33
    PRINT "RENT CARS PLUS"
    LOCATE 2, 1
    PRINT STRING$(80, CHR$(196))
    COLOR 11
    PRINT " 1 - Pay Bill"
    PRINT " 2 - Rent Car"
    PRINT " 3 - Find Ideal Car"
    PRINT " 999 - Exit"
    COLOR 15
    PRINT STRING$(80, CHR$(196))
    INPUT "Choice: ", Choice ' The user enters his/her choice
    IF Choice = 999 THEN END
    IF Choice <> 999 AND Choice <> 1 AND Choice <> 2 AND Choice <> 3 THEN
    PRINT " Error Please Enter Correct Choice! " ' If not valid answer user is asked to enter correct choice
    END IF
    SELECT CASE Choice ' This Select Case executes the subprograms options
    CASE 1
    CALL PayBill
    CASE 2
    CALL RentCar
    CASE 3
    CALL FindCar
    CASE 5
    END SELECT
    LOOP UNTIL Choice = 999
    END SUB
    SUB PayBill' This sub does the bill paying process.
    ' it asks a few question to the user to get the right
    ' information and be able to pay the given bill.
    DIM CustName AS STRING
    DIM MoreBill AS INTEGER
    DIM Answer AS STRING
    DIM Flag AS INTEGER
    COLOR 15
    MoreBill = 0 ' To start loop variable
    DO WHILE MoreBill = 0 ' Loop to start the Bill Paying Process
    StartBill:
         ' Displays screen to user
    CLS
    COLOR 15
    PRINT "PAY A BILL"
    PRINT STRING$(80, CHR$(196))
    INPUT "Customer Name: ", CustName ' user enters customer name
    Flag = 0
    FOR Q = 0 TO 4 ' Loops to search for customer name in array
    IF UCASE$(RTRIM$(p(Q).CustName)) = UCASE$(RTRIM$(CustName)) THEN
    Flag = 1
    PRINT p(Q).CustName; p(Q).Bill
    EXIT FOR
    END IF
    NEXT Q
    '' If customer name invalid error message displayed
    IF Flag = 0 THEN
    PRINT "Invalid name. Press a key to try again."
    DO WHILE INKEY$ <> "": LOOP
    GOTO StartBill
    END IF
    MethodInput:
    DO
    LOCATE 4, 1     ' Display Payment methods and wait for user to pick one
    COLOR 11
    PRINT "We only use Visa or American Express. How do you wish to pay?"
    PRINT "1 - Visa"
    PRINT "2 - American Express"
    PRINT "3 - Check"
    PRINT "4 - Cash"
    INPUT "Select 1, 2, 3, or 4: ", howtopay$ ' User enters way to pay
    IF howtopay$ = "1" OR howtopay$ = "2" THEN ' CArd number asked for If american or visa
    INPUT "Enter account number: ", cardnum$
    ELSEIF howtopay$ <> "3" AND howtopay$ <> "4" THEN
    PRINT "You must select method of payment."
    END IF
    LOOP WHILE howtopay$ < "1" OR howtopay$ > "4"
    PaymentInput:
    '' users enters payment amount
    INPUT "Payment Amount (0 to cancel the transaction): ", PayAmount
    IF PayAmount <> 0 THEN
    IF PayAmount > p(Q).Bill THEN
    '' If payment bigger than amount owed message displayed
    PRINT "Payment is bigger than amount due. Press key to enter payment."
    DO WHILE INKEY$ = "": LOOP
    GOTO PaymentInput
    ELSE
    ' If amount valid , payment subtracted from amount owed
    p(Q).Bill = p(Q).Bill - PayAmount
    PRINT "New balance is "; USING "$#####.##"; p(Q).Bill
    END IF
    END IF
         '' Loop ask if user wishes to pay another bill
    DO WHILE UCASE$(RTRIM$(Answer)) <> "Y" AND UCASE$(RTRIM$(Answer)) <> "N"
    COLOR 15
    LOCATE 48, 1
    PRINT "Pay Another Bill (Y/N) ";
    INPUT Answer
    LOOP
    IF UCASE$(RTRIM$(Answer)) = "N" THEN ' If answer is "N" then loop exited
    MoreBill = 1
    END IF
    LOOP
    END SUB
    SUB ReadCarData
    ' This sub reads all data from the DATA statements
    ' And puts them in the Cars array
    DIM Counter AS INTEGER
    FOR Counter = 1 TO 26
    Cars(Counter).CarNumber = Counter
    READ Cars(Counter).License
    READ Cars(Counter).Year
    READ Cars(Counter).CarMaker
    READ Cars(Counter).CarName
    READ Cars(Counter).Description
    READ Cars(Counter).ColorOfCar
    READ Cars(Counter).NumberOfDoors
    READ Cars(Counter).Price
    NEXT Counter
    END SUB
    SUB RentCar
    ' This sub does the renting of a car
    ' to a customer. This ask several questions
    ' in order to get the right customer and the right
    ' car to rent then it rents it.
    DIM MoreRent AS INTEGER
    DIM TempCustomer AS INTEGER
    DIM TempBill AS DOUBLE
    DIM Answer AS STRING
    DIM TempPrice AS DOUBLE
    DIM TempInsurance AS DOUBLE
    DIM CustName AS STRING
    DIM Number AS STRING
    DIM CarNumber AS INTEGER
    DIM Days AS INTEGER
    DIM Q AS INTEGER
    MoreRent = 0 ' Loop for rental process
    DO WHILE MoreRent = 0
    InputName:
    CLS ' Display screen to user
    COLOR 15
    PRINT "RENT A CAR"
    PRINT STRING$(80, CHR$(196))
    COLOR 11
    LOCATE 3, 1
    INPUT " Full Name: ", CustName ' user enters his name
    IF RTRIM$(CustName) = "" THEN
    PRINT "You Must Enter Your Name. Press a key to retry." ' User is told he must enter a name
    DO WHILE INKEY$ = "": LOOP
    GOTO InputName
    ELSE
    FOR Q = 0 TO 4
    IF UCASE$(RTRIM$(p(Q).CustName)) = UCASE$(RTRIM$(CustName)) THEN
    Flag = 1
    PRINT p(Q).CustName; p(Q).Bill
    TempCustomer = Q
    EXIT FOR
    END IF
    NEXT Q
    END IF
    InputNumber:
    LOCATE 5, 1
    INPUT " Phone Number: ", Number ' User enters phone number
    IF RTRIM$(Number) = "" THEN
    PRINT "You Must a phone number. Press a key to retry." ' User is warned he must enter a number
    DO WHILE INKEY$ = "": LOOP
    GOTO InputNumber
    END IF
    CarInput:
    LOCATE 7, 2
    COLOR 11
    INPUT "Car Number: ", CarNumber     
    ' This awaits a car number from the user.
    IF CarNumber < 1 AND CarNumber > 26 THEN ' If the car number is out of range, we warn and start again
    PRINT "Car Number must be between 1 and 26. Press a key to retry."
    DO WHILE INKEY$ = "": LOOP
    GOTO CarInput
    ELSE
    ' No need to search, we just display the car information
    COLOR 14
    PRINT RTRIM$(Cars(CarNumber).License) + " - ";
    PRINT Cars(CarNumber).Year;
    PRINT RTRIM$(Cars(CarNumber).CarMaker) + " " + RTRIM$(Cars(CarNumber).CarName) + " ";
    PRINT RTRIM$(Cars(CarNumber).ColorOfCar)
    PRINT "PRICE: "; USING "$####.##"; Cars(CarNumber).Price
    END IF
    DaysInput:
    LOCATE 10, 1
    COLOR 11
    INPUT " Number of Days to rent: ", Days
    ' This awaits for a number of days to rent the car for.
    IF Days < 1 AND Days > 31 THEN
    PRINT "Days are 1 to 31. Press a key to retry."
    ' Can't have less than 1 day or more than a month or we warn.
    DO WHILE INKEY$ = "": LOOP
    GOTO DaysInput
    END IF
    TempPrice = Days * Cars(CarNumber).Price
    ' Calculate the Price of the rental
    InsuranceInput:
    LOCATE 13, 1
    COLOR 11
    DO WHILE UCASE$(RTRIM$(Answer)) <> "Y" AND UCASE$(RTRIM$(Answer)) <> "N"
    COLOR 11
    LOCATE 13, 1
    PRINT "Add Insurance (Y/N)";
    ' the customer has the option to purchase insurance here.
    INPUT Answer
    LOOP
    IF UCASE$(Answer) = "Y" THEN
    COLOR 11
    DO WHILE UCASE$(RTRIM$(Answer)) <> "F" AND UCASE$(RTRIM$(Answer)) <> "D"
    'we loop until the users enters y or n
    COLOR 11
    LOCATE 14, 1
    PRINT "(F)ixed Or (D)aily Amount";
    ' If the user selected yes, we ask for fixed or daily insurance amount.
    INPUT Answer
    LOOP
    ' if Fixed amount was picked we ask for that amount
    IF UCASE$(RTRIM$(Answer)) = "F" THEN
    INPUT "Fixed Insurance: ", TempInsurance
    ELSE
    TempInsurance = 15 * Days ' If Daily was picked we multiply 15 by the number of days rented
    END IF
    END IF
    DO     ' this loop asks for a payment method.
    LOCATE 17, 1
    PRINT "We only use Visa or American Express. How do you wish to pay?"
    PRINT "1 - Visa"
    PRINT "2 - American Express"
    PRINT "3 - Check"
    PRINT "4 - Cash"
    INPUT "Select 1, 2, 3, or 4: ", howtopay$
    IF howtopay$ = "1" OR howtopay$ = "2" THEN
    INPUT "Enter account number: ", cardnum$
    ELSEIF howtopay$ <> "3" AND howtopay$ <> "4" THEN
    PRINT "You must select method of payment."
    END IF
    LOOP WHILE howtopay$ < "1" OR howtopay$ > "4"
    COLOR 14
    PRINT     
    ' This part displays some totals to the user.
    PRINT "Rental Price = "; USING "$##,###.##"; TempPrice
    PRINT "Insurance Amount = "; USING "$##,###.##"; TempInsurance
    PRINT "Total Price = "; USING "$##,###.##"; TempPrice + TempInsurance
    PRINT " ----------"
    TempBill = p(TempCustomer).Bill
    TempBill = TempBill + (TempPrice + TempInsurance)
    p(TempCustomer).Bill = TempBill
    PRINT "New Balance = "; USING "$##,###.##"; TempBill
    PRINT " =========="
    Answer = ""
    ' This loop asks if the user wants to rent another car.
    DO WHILE UCASE$(RTRIM$(Answer)) <> "Y" AND UCASE$(RTRIM$(Answer)) <> "N"
    COLOR 15
    LOCATE 48, 1
    PRINT "Rent Another Car (Y/N) ";
    INPUT Answer
    LOOP
    IF UCASE$(RTRIM$(Answer)) = "N" THEN
    ' If user selected N, we assign value to exit the loop
    MoreRent = 1
    END IF
    LOOP
    END SUB
    Im really good at programming but really suck at algorithms can someone please please write in a algorithm form for me , i need it by friday i would greatly be thankful for u

    Im really good at programming but really suck at algorithms
    >If your are 'really good' at programming, you will be able to solve this problem. Because, it has nothing to do with algorithm.
    >>can someone please please write in a algorithm form for me , i need it by friday i would greatly be thankful for u
    >Wrong person, in the wrong place.

  • Can someone please help me figure out why I keep getting the "can not reach server" when I try to download the ebook? This is happening with Adobe Digital Editions.

    When I try to download the ebook I bough, the Adobe Digital Reader shows the following message: "can not reach server".  Can someone please help me with this?
    TO be precise, it says "licensee server communication problem"
    Thank you

    The thread running through your explanation has to do with connectivity to your server. (iCloud out of the blue asking for password, unable to message your boyfriend, unable to access e-mail). You said that you boyfriend restart his device and then the two of you were able to then imessage. My best advice for you would be to go to settings to reset to reset network settings. Once this has been done you then will need to enter the name and password of your wifi. ONce this is done you then can attempt to check to see that all passwords are enter correctly.
    Good luck.

  • I have never been able to open my itunes store.  I was on the phone with support for 1.5 hours today, no luck. I would like to purchase a book only available on itunes.  Can someone please help!

    I have never been able to open my itunes store.  I was on the phone with support for 1.5 hours today, no luck. I would like to purchase a book only available on itunes.  Can someone please help!
    I have tried
    -  setting time and date
    -  uninstalling
    -  upgrading itunes
    -  changing credit card
    Any other suggestions?

    Update your safari.  Install this:  http://support.apple.com/kb/dl1569
    The itunes store relies on certain components of safari, regardless of if you use it or not.

  • I am missing all emails two weeks old or older in my mac mail. This happens on a continuous basis. I cannot find them by search or any archived method. Can someone please help me stop this from happening?

    Missing emails of two weeks old and older in mac mail.

    Im really good at programming but really suck at algorithms
    >If your are 'really good' at programming, you will be able to solve this problem. Because, it has nothing to do with algorithm.
    >>can someone please please write in a algorithm form for me , i need it by friday i would greatly be thankful for u
    >Wrong person, in the wrong place.

  • I tried updating my iPod 5th gen to iOS 8 but it only shows me a picture of the iTunes logo and a charger at the bottom, I'm not sure what this means or what I need to do. Can someone please help me?

    I tried updating my iPod 5th gen to iOS 8 but it only shows me a picture of the iTunes logo and a charger at the bottom, I'm not sure what this means or what I need to do. Can someone please help me?

    After restoring to factory settings/new iPod you will then have to restore from backup
    To restore from backup see:
    iOS: Back up and restore your iOS device with iCloud or iTunes       
    If you restore from iCloud backup the apps will be automatically downloaded. If you restore from iTunes backup the apps and music have to be in the iTunes library since synced media like apps and music are not included in the backup of the iOS device that iTunes makes.
    You can redownload most iTunes purchases by:                         
    Downloading past purchases from the App Store, iBookstore, and iTunes Store        

  • My iPhone 4 will not sync my new voice memos from the "Voice Memos" app to my computer. This is frustrating, should not be so hard, can someone please help. I use PC with windows 7 with iPhone version 6.1.3 and iTunes most recent. Thanks.

    My iPhone 4 will not sync my new voice memos from the "Voice Memos" app to my computer. This is frustrating, should not be so hard, can someone please help. I use PC with windows 7 with iPhone version 6.1.3 and iTunes most recent. Thanks.

    In the Music tab of iTunes, do you have 'Include Voice Memos' checked?

  • HT6154 Can someone please just help me figure out how to update this stupid phone without losing anything? I somehow have more than one Apple ID on this,but I just want my music and my pictures to stay and I'm terrified of losing these things.

    Can someone please just help me figure out how to update this stupid phone(iPhone 4)without losing anything? I somehow have more than one Apple ID on this,but I just want my music and my pictures to stay and I'm terrified of losing these things. I have a lot of music from old CDs on here,and for some reason I can't even transfer them manually onto my computer. I'm not tech savvy whatsoever. Someone please help,having my music is the the whole reason I still have this phone.

    First read about back http://support.apple.com/kb/ht1766
    Then  read on how to transfer photos to your computer http://support.apple.com/kb/ts3195
    Then
    UPDATING iOS
    Over the air updating of iOS needs iOS 5 or later so unless you have iOS 5 or later you will not see updating in setting
    The following link explains how to update http://support.apple.com/kb/HT4972
    This link explains how to update using wireless http://support.apple.com/kb/HT4623
    This explains how to transfer purchases to your computer http://support.apple.com/kb/ht1848

Maybe you are looking for

  • Oracle 9.0.1 + Linux w/generic conectivity

    I'm currently migrating from a Ora8i+WinNT4 to a Ora9i+RH Linux 9. All the database is OK on the linux side. I have added the listener entry: (SID_DESC = (SID_NAME = NETFINITY) (ORACLE_HOME = /opt/ora9/product/9.2/) (PROGRAM = hsodbc) (SID_DESC = (SI

  • How do I get pictures to send to my phone instead of my email?

    When someone sends me a picture, instead of it going to my phone sent through text, it goes to my email account. How do I change this when the option is stuck to my email???

  • Populating dropdown with Map rule

    Hey, I am currently getting a list of users that belong to an admin role and looking up the individual fullnames to create a map to display the name in the dropdown but pass the accountId once the form is submitted. My rule is below however the resul

  • [FR] BB10 should support automatic filtering using Sieve

    It would be great if BB10 could support automatic email filtering/filing. Sieve works great for IMAP based mail systems, which is what most people will use besides Activesync. When the user needs to modify rules, BB10 devices would simply need to con

  • Iphoto : can see all thumbnails but not full size

    I imported about 1000 photos into ipod and I can see the thumbnails just fine. But, when I double click on any thumbnail, all I see is a big white empty box with a ? inside. Please help!