0 f$="reset.dat":on error goto 2000:open f$ for input as 1 
10 print "Welcome to the dl l restore program,"
20 print "for Ultimate Tournament."
30 print "Enter destination file name?"
40 input "enter d for enem.dll",a$
50 if a$="d" then a$="enem.dll"
60 open a$ for output as 2
70 print "please wait,"
80 print "transmitting default values to "a$"..."
90 for num=1 to 900
110 input#1,in$
120 if in$="nomore" then print#2,in$:goto 1000
130 print#2,in$
140 next
150 goto 1000
1000 print "congratulations! the transfer was successful!":end
2000 if err=53 then 3000
2010 if err=64 then 4000
2020 if err=52 then 15000
2030 if err=61 then 5000
2040 if err=70 then 6000
2070 goto 10000
3000 close:print ""f$", a vital file, was not found."
3010 print "please enter the real file name"
3020 input f$
3030 open f$ for input as 1:goto 10
4000 print "bad file name.":goto 30
5000 print "Can't create file.":goto 30
6000 print "File is write protected":goto 30
10000 sound 100,3.64:sound 104,3.64:sound 100,3.64:sound 104,3.64
10010 sound 200,3.64:sound 208,3.64:sound 200,3.64:sound 208,3.64
10020 sound 300,3.64:sound 312,3.64:sound 300,3.64:sound 312,3.64
10030 sound 400,3.64:sound 416,3.64:sound 400,3.64:sound 416,3.64
10040 print "I'm sorry, but an unexpected, unsupported error number "err" has occurred.":end
15000 print "Bad file name.":goto 30
