5 lines
112 B
Text
5 lines
112 B
Text
print peek$("program_name")
|
|
|
|
s$ = system$("cd")
|
|
n = len(s$)
|
|
print left$(s$, n - 2), "\\", peek$("program_name")
|