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