Translete your name to ASCII Values. No attachments. im a begginer( as you can see) hehe

Just a fun litle thing

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem * Title  : ASCII Transelator
Rem * Author : Mika J Olaussen
Rem * Date   : 101905


rem create a array to store the charecters in:
start:
DIM name$(100)

repeat
   cls
   print "ascii transelator"
   print
   print "please enter your name"
   rem inform user that he/she just need to press enter to see the result
   print "pres enter to continue"
   print

   input name$
until len(name$) <=100 and len(name$) >0

rem the transelator
for x = 1 to len(name$) step 1
print asc(mid$(name$,x))

next x
wait key


rem the info scren
rem some info
cls
Print "type end to quit the program, or enter to try again"
Print "hold the upkey and press enter to view the info screen, ","if you want to ",name$
input a$
if a$= "end" then end


rem the help screen
if upkey()=1
cls
else
goto start
endif

help$="info screen"
width= text width(help$)
set text font "times new roman"
ink rgb(55,255,55),rgb(10,10,10)
set text size 30
text 320 - width /2,10,help$

set text size 20

text 20,40, "the numbers below your name are the ascii value off the characters in your name"
text 20,65, "example:"
print
print
print
print
print
print

print
print "mika"
print chr$(77), " ",asc(mid$("mika",1))
print chr$(105), " ",asc(mid$("mika",2))
print chr$(107), " ",asc(mid$("mika",3))
print chr$(97), " ",asc(mid$("mika",4))
print

dim whatisasc$(4)
dim q(4)
set text size 15
whatisasc$(0) ="ASCII stands for American Standard Code for Information Interchange."
q(0)= text width(whatisasc$(0))
text 300 - q(0)/2,200,whatisasc$(0)
whatisasc$(1) ="Computers don't know what characters and words are, but they do understand numbers."
q(1)= text width(whatisasc$(1))
text 300 - q(1)/2,220,whatisasc$(1)
whatisasc$(2)="so a loong time ago some people decided to give every character on the keyboard a number"
q(2)= text width(whatisasc$(2))
text 300 - q(2)/2,240,whatisasc$(2)
whatisasc$(3)= "they also created numbers for varius other signs like the smiley, now press any key"
q(3)= text width(whatisasc$(3))
text 300 - q(3)/2,260,whatisasc$(3)

suspend for key
cls
text 30,10,"authur: Mika J Olaussen"
text 30,30,"now plz donate 100$ to nylandsvej 1 D and get a free cigaret (just joking)"
text 30,40,"sorry for all the miss spelling, but the time is 06:14 in the morning"
text 30,50,"press any key to quit the info pages"

suspend for key
cls
ink rgb(255,255,255),rgb(10,10,10)
goto start