dim muh as string ptr dim muh2 as double ptr dim adresse as integer input "Gib die adresse ein:", adresse muh = adresse muh2 = adresse print *muh sleep