home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
utility
/
system
/
envirnmt
/
showenvr.gfa
(
.txt
)
< prev
Wrap
GFA-BASIC Atari
|
1991-02-25
|
688b
|
19 lines
~SHEL_ENVRN(a%,"PATH=")
center("**** Komplettes Environment per SHEL_ENVRN ****")
PRINT "PATH=";
WHILE BYTE{a%}
a$=CHAR{a%}
PRINT a$
ADD a%,LEN(a$)+1
WEND
center("-----------------------------------------------------------------------------")
~SCRP_READ(a$)
center(" ScrapDir: >"+a$+"<")
center("-----------------------------------------------------------------------------")
center("Taste...")
~INP(2)
' SYSTEM
> PROCEDURE center(string$)
PRINT AT(((81-LEN(string$))/2),CRSLIN);string$
RETURN