data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAKAAAAB4CAYAAAB1ovlvAAAAAXNSR0IArs4c6QAAEHlJREFUeF7tnQm0TfUXx/cjESHKmCGFiChZiMwZWmZFSWqhpCKVyjxTNPDMZR6LQoWQoZJWpZIxY5S5MhUlFO+/Pnt13nq9/znXe/eey7v37r3WW8+795zf75zv+fqdvX97iitTpkyCmBgClxaB9Zs2bSrHlHFGwEuLvM2mCHgTsGjRovLDDz/8H059+/aVgQMHJn7evXt3SUhIkGHDhhmmhkBqEfAm4MyZM6VNmzYydepUadu2beLACxYskD///FPOnz8vR48eleeff15/Tp8+LWvXrpUjR47Ivn37UnshdnxsIuBOwBw5csi1116rK+Dy5culbt26ifCwAhYoUEDSp0+vqx7Ee+KJJ+Tnn3+Ww4cPy6effqrENDEEUoCAfzpgs2bN5L333kvBnHaIIZCIgH8ENFANgSAQSDkBmzdvLuh/JoaAjwi4E7Bz585y7Ngx1eX27NmjuuCAAQPkmmuukb1798ott9wijz76qI/XYUPFKALuBKxRo4bkzJlTDYp27drJ9OnTpWrVqvqTOXNmiYuLkw4dOsQoZnbbPiKQ8lewj5PaUIaAg4AR0LhwWRHwJiCv3Zdeekl27NjheoVNmzaV999//7JevU0e8Qi4E7BevXrSpEkTefnllyVDhgySP39+efjhhyVTpkyqA/J70qRJSsCePXvK33//rd4R/i5RooRUq1ZNzpw5I0OHDo14hOwGwoqA9wrYsWNH+fDDD2X//v16BTNmzNCN5nvvvVfWrFkjGzdulDp16kh8fLwaKpAQ6/jFF1+Ufv36Ca68LVu2hPXqbfCIRyB0HRASrlixQooXLy47d+6MeETsBi4pAqET8JJerk0WbQgEJiC63uTJk6V169bRduN2P2kDAXcCNmrUSBYtWqSXOGHCBN10fuaZZ2Tx4sWuMYJp417sKiIQAXcC5smTR0aPHi1du3aVd955R/r3768hWKyGJoaAjwiYDugjmDZU6hEwAqYeMzvDRwQCEzBdunQyceJEad++vY9z2lCGQCIC7gTE6p09e3aiEdKnTx9ZunSpbNu2TXLlyiX//POP5n08+eST8uabb+rnFStWlGLFimnkzB133KGeEIuYMapdBAF3AmbJkkU+++wzadmypRoh5H5gBX/88ccakrV7927566+/5KmnnpLx48fL9u3bZevWrep6Gzt2rNx1111y9uxZzRUxMQQCIGA6oNHjsiJgBLys8Nvk7gQk4uW6665TPa9QoUKJvwnTz5o1q4ZpEYBgYgiEiIA7AevXry/Lli2T++67T/VADIsuXbrIrl27VDesXbu2GRghIm+nKwLuBKxUqZJ89dVXGvuHkUFcYI8ePWTdunVSsmRJXRH5zMQQCBEB0wFDBNBODw2BixPQWQ1Dm8fONgRcEXAnIGH4LVq00BD7KlWqaMApqZq//fabbNiwwbA0BPxCwJ2A6HcjR47UgkNOOBbuOIuG8Qt3G+dfBNwJmC1bNnnooYfUC8J2CytgxowZ1TAxMQR8RODiOqCPk9lQhkByBIyAxonLioA7Aa+44gp57rnn5JVXXpHevXvr/h/RMCaGgM8IuBMQ/W/WrFmaA7xy5UqpXLmyEdBn5G04RcB7BaQs7yeffKLhVySYHzp0yDAzBPxGwHRAvxG18VKFgD8EvP/++2Xu3LmpmtkONgQ8X8FXX321pmVSD2b9+vVSs2ZNrQPz1ltvafGhwoULywcffKCvZXKIKUyEzuhsWk+ZMkUjqE+ePGkoGwKBEHBfAQmtpz8I5XgpSESfEHI+cMM98sgj2qiGv/kebwl9Ql577TUlIKFb5IMcOHBAfvnlF4PfEEg9AekBcv3118vx48e1D0j27NmFVZF/8x0/J06c0IpY9BOhhMcff/yhx7AqUs6N4FVWRhNDIAAC/uiABrEhECQCRsAggbPT/EHAnYCEYZELQqXT1atXa54vnZAIzTp16pQaIufOnZN8+fL9p42XP9dko8QQAt55wZCOJPT58+drAjoGBfm+6H4YIRgcGBpJO2fGEHB2q/4gYK9gf3C0UYJEwAgYJHB2mj8IuBOQ3F90vaTi5Af7M6+NYggoAu4EpFE1RkerVq20SBF94cqUKaM5wQsXLtT+cXg6TAyBEBHwDsciDOu2227TBHUEixgC0rD6hhtusMoIISJvpwdYAQOBAwHN8jX6+ISAGSE+AWnDBIeANwEpy4Hv100IRDh48KDcfPPNsmrVquCmtrMMAS8jBGSIhiEKZvny5f/xdlCyl8bV6Ig0siZUizTObt26adFKE0MgFQh4e0LuvPNOJVnz5s1lwYIFiWNS9RSPCGV8qZJFxQRK+JoYAkEg4E5A8kBoSGhiCIQZATNCwgywDR8YAXcC8nolIJVoZ8LyeQ0XLVpUi5SzH0ig6rRp04IGl9f422+/rcWOKHRO9E1cXJzuO9LylTQAyoGYRD0C3isgxHvsscc0N4R2C5CQRtZ58+aVJUuWaHuGYAWdcsyYMbJp0yYN9YLQzPX7779L7ty5tSYNvYpNoh6BwASkSzpE5LdjjFAtgabUoQgEI1yflQ5L+p577pHOnTvLG2+8obnIlmEXCroRda7pgBH1uKLvYo2A0fdMI+qO3AlIWV4MhZ49e2pLBgpWli1bVl+NkyZNksOHD/u29+dU5E8O2+OPPx5Qz8yRI4dGZ5tENALuBEQnwwtCi4Z3331Xy/USfhUfH6862jfffBOSHtirVy8dFz3wgQce0PB+UjlLlSqlXhfSPbGKmQ8dEcEAOnr0qOTMmVONlv3792sPY6xmkuJNIhIBdwImXZWSE9APIwSoHEI//fTT6u6jMU6RIkU02YmVluT47t27q78ZVx/+Z7Z+iFGEgJSMYwXEcjaJWARMB4zYRxcdF24EjI7nGLF34f0KHjJkSGK7VjaiyQkeNWqUfPnll/LTTz/pq/BSCGmhtIv9+uuvA043Z84c1SdNIgoBbyNk8ODB6qVIrgNCBPoFh0JAdDt0PIwbjBrKu1FThtoyNMPGTTdo0CBNjqcYEvpfrVq1NCWAfBSscIRoHOIRyVsmLIzPb7rpJmnQoEFEPYUYvtjARki6dOmUgFjDXbt2VfcZxCT8KpTCQ5ALY+buu+/Wbuv4lyESpYDxC3fs2FGtXchEm4jy5cvrD+4/iiBRrYFzKA1H7WpKCdNYEQOG7RuOMYkIBEwHjIjHFL0XaQSM3mcbEXcWeCOa1y5GAJvSVEj1ayPaqaTqBRHeF7wwCDnKM2fOdD0UQ4lNbTfhmkkrMEnTCHgTEIsSAyC5EUKYPpZwKGH4uPMockn0y1VXXaWbzRg3VNvic9IB2HymONLixYuVgAMGDJCdO3dqDCHHHjlyRJITEP2xadOmes2EjBUrVkyP5XOTNIlAYCOEzDgeJhYvDWsgAp3T2Y4hli9YYQWk6ipNsIn/YyzGpiEiK17BggU18WncuHHqHcFCxhfNcWTq4YIjYJVywM8++6z0799ffdeQjuskXIxmO3hYOMd63AX7pMJ+XtrQAdliIaOOldUkphBIGwSMKcjtZpMi4K0DVqhQQcaPHy/z5s3TiGh0K4wQ2jOEGpJ/sWeQ1AhxO7Zx48ZaJMmRjz76SKNlTCIOAW8C3nrrrbpZnNwIoW0DJAwlKQnXGjGGbC6z2bxv3z7deEYvxNDglYwRwkY4OSh4R9gMd8QhIOOg82GoGAEjjnxccGAjhKBPVkCaF7IqQTwMEsKlkiarp/bWIR8GCMYGxCG+EE8G5T5uvPFGSUhI0F4jV155pRojWLJsqeCiY348MhgoGEkYJGTx8V0o15Tae7DjfUHAdEBfYLRBgkXACBgscnaeLwh464BsEPNqRB/bunWrhmNhhPD6RNDNeCXzPbobm9YplaSeEF7BGBEmMYmANwHJyShXrpxGv7z++uuagwEBCZ2idgz6F/m9DRs2FGpKp4aAeEJIeN+4caPmHffr109bfpUsWVKqV6+uJYFNYgKBwEYIrjFcbri8nKRx3GRswxCLR+kOXGfffvutVjLATZYSwYLGU0FcIB048ayQpE44FjGIFEbCB20S9QiYDhj1jzht36ARMG0/n6i/Om8dkNB3NoCJSMHIQD9DBySNsnTp0pq3++qrr2p1qwwZMmhYvB+CccOr3ZFA4Vh+zGdjXFYEvAn4/fffqwvOywjJmDGjVstHjyOnF+MkpeIkpkPiH3/8Ub0gtH7YtWuXhmLh2SBnhI1odEMiZR588EH57rvvZPv27Smdxo5L+wgENkIgFl4PLF1qA5IMTg0/XGB4H3CX7dixQ/M51q5dqzF6KZGRI0dqFQQS4AmrIvgUzwdkwwDB80EiEv5exsYIWrRokWa9kQuCp8QkKhBIuzogXdghpUlUI5B2CRjVsNvNOQh4E5B0yClTpuh+HcaII2waoxciFy5csNehkSkUBLwJ6FWEiFZdRKBQLcFJDA/lCuzcmEbAnYDE6FH9AHFCoByYqGpFKTW8JGyZkC1nYggEiYDpgEECZ6f5g8DFCUhWGnt1JoZAGBBwJyAR0NRf+fXXX6V48eKyefNm9YQcO3ZMP0PoG8JWCSmTRDafPXtWSpQooYEK1GhBnH5zVDHlezaWSavEc5IlSxbZsmWLRtZQy4WABpOYQ8CbgGw8U310xIgRiX1CIAt5uAgxfQcOHNAKVmPHjtXKVHg0iB10xCmZ1qlTJ+24ju5ICJaTcI4OSY5J4cKFjYAxxz29YXcCUuoM7we+Xlxt5IWcP39eV0G2ZhB8v9RsZkWkHNoLL7wgw4cP17JqTvFwSnsQS0gQ6969e3VLhx9WSFY8/M0YNYRnObWgY/M5xOxdX1wHjFlo7MYvBQLhJSC5xYT1B+O75XV96tQp/TGJWgS8Cej0CEneL5gcDl6x7AMSAc1+If2D0fcIUCCSGeOD9En+JuLZIeDtt9+uUS/ofQhGDMUlZ8+erYEGBCGQj4w+ifW9bNkygcSE/ON1QVekSCXnkA5A8SGnaTatHfLkyaOpAxxPoAQGERvmtHGgGCbBDRhCnIfuiq/ZSXDnXI6h4CU6K6oDyfjsgzK3SVgQcCcgehpFiHgIyYV8XMKisIyJWCF86osvvtAH6xwP6QifIk+Eh4/+iBD5QqUqjBaEOENCs6jAQBI6ZCasiwgcLGosZ/KHN2zYoHnA5AxjMfMZuin6KCSHMOQKQzjG4T8GiU5cGzGMEBKDif8AbCmRg4zQERSCIoyF+5GCR5MnT9b0AKrAEoVDTWyTsCDgHQ/ISoBAJAjlCBUKHN8wRgirFYlEJBqRTAThCLOCaPyNJQ3REFYrSOQYMiQiNWvWTM+lMhY1oNmiwZKGDMyDMQQpyDlhPIwXKiqwOvJ6Znz+5nPO4W9WLAwcjB1W1M8//1yPJdOPsr5UX0AgJnGPrJ58h/GFysC2EgTmPxBz871JWBAIrw4Ylku2QaMJASNgND3NCLyXwBHRKOVEKPObQo9UoKcYkIkh4BMC3isgCjquN/Qi9DJC6DEeTp486dPcNowh4OEJYYsFRZxVDxcauRokjLNtgUVqYgj4hIDpgD4BacMEh4ARMDjc7CyfEPAmIPVaSEJ3Qqp8mtCGMQSSIuBOQJLOaSRonciNLWFGwJ2ATjdzJqeDpTX/C/NjiN3hTQeM3WefJu48kYD/A/hJrwCCw0FnAAAAAElFTkSuQmCC
("_ _ in _" file /
(ask Stage (ring (get files))))
i1
abc
bitemlast/b(ask Stage (ring (get files)))
i1
true
error#1
true
error
filekeydetect.cdeerror
alt
tab
Backspace
key pressed
Stage
input
lastInpinputBackspace
up arrow
Stage
key pressed/:
/: help,echo,freetype,clr,clearmem,read,dir,cd,execfile,touch,help,/: dir,TYPE NAME,FILE start.cde,FILE console.cde,FILE keydetect.cde,FILE readme.txt,FOLDER bins,FOLDER scripts,/: hi,Bin not found,/: execfile scripts/randnum.cde,592,/:
file,start.cde,"( (clear) (hide) (go -67.5 0) (tell Stage (cmd ( (setBackgroundColor ""rgba(46,46,46,1)"") (set state disabled) (set directory nil) )) ) (setColor ""rgba(255,255,255,1)"") (for i 1 15 (write (letter (get i) ""Welcome to Dyos"" ) 15 ) ) (wait 1) (for i 1 50 ( (clear) (+y (get i) ) (x= -67) (write ""Welcome to Dyos"" 15) )) (""run file _"" (""_ _ in _"" file console.cde (ask Stage (ring (get files) ) ) ) ) )"
file,console.cde,"(
(tell Stage
(cmd (
(set noUpdate 0)
(set console
(list Dyos /:)
)
(set state input)
))
)
(var a)
(forever
(if
(not
(=
(ask Stage
(ring
(get noUpdate)
)
) 1
)
) (
(go
(+
(attribute [left] Stage) 10
)
(-
(attribute [top] Stage) 15
)
)
(until
(<=
(data [length]
(ask Stage
(ring
(get console)
)
)
) 24
)
(del 1
(ask Stage
(ring
(get console)
)
)
)
)
(clear)
(forEach item
(ask Stage
(ring
(get console)
)
) (
(x=
(+
(attribute [left] Stage) 10
)
)
(write
(get item) 12
)
(+y -15)
)
)
(tell Stage
(cmd
(set updateConsole 0)
)
)
(set a
(split
(data [json]
(ask Stage
(ring
(get console)
)
)
) json
)
)
(waitUntil
(or
(!=
(get a)
(ask Stage
(ring
(get console)
)
)
)
(=
(ask Stage
(ring
(get updateConsole)
)
) 1
)
)
)
)
)
)
)"
file,keydetect.cde,"((tell Stage (cmd ((""set _ to _"" ""key pressed"" nil) (""set _ to _"" input nil)))) (forever ((var a b) (set b (list Control Shift Alt Enter Tab Undefined)) (if (key ""[any key]"") ((if (= (ask Stage (ring (get state))) console) ((waitUntil (not (= (ask Stage (ring (get ""key pressed""))) nil))) (tell Stage (cmd ((if (= (get ""key pressed"") enter) (add nil (get console)) (= (get ""key pressed"") Backspace) (ifElse (= (item [last] (get console)) nil) (del [last] (get console)) (put [last] (get console) (join : (data [reverse] (cdr (data [reverse] (split (item [last] (get console)) [letter]))))))) (not (contains (get b) (get ""key pressed""))) (put [last] (get console) (join (item [last] (get console)) (get ""key pressed"")))) (""set _ to _"" ""key pressed"" nil)))))) (if (= (ask Stage (ring (get state))) input) ((waitUntil (not (= (ask Stage (ring (get ""key pressed""))) nil))) (tell Stage (cmd ((if (= (get ""key pressed"") enter) ((ifElse (""does file _ exist"" (join bins/ (item 1 (split (ask Stage (ring (get input))) [word])))) (""run file _"" (""_ _ in _"" file (item 1 (split (ask Stage (ring (get input))) [word])) (""_ _ in _"" folder bins (get files)))) ((add ""Bin not found"" (get console)) (add /: (get console)))) (set lastInp (get input)) (""set _ to _"" input nil)) (= (get ""key pressed"") Backspace) (""set _ to _"" input (join : (data [reverse] (cdr (data [reverse] (split (get input) [letter])))))) (= (get ""key pressed"") ""up arrow"") (set input (get lastInp)) (not (contains (get b) (ask Stage (ring (get ""key pressed""))))) (""set _ to _"" input (join (get input) (get ""key pressed"")))) (""set _ to _"" ""key pressed"" nil) (put [last] (get console) (join (get directory) ""/: "" (get input)))))))) (waitUntil (not (key ""[any key]""))))))))"
file,readme.txt,hello world
- folder
- bins
file,echo,"( (add (combine (""delete _ of _"" 1 (split (ask Stage (ring (get input) ) ) [word] ) ) (ring (join nil "" "" nil) ) ) (ask Stage (ring (get console) ) ) ) (add nil (ask Stage (ring (get console) ) ) ) )"
file,freetype,(tell Stage (cmd (set state console) ) )
file,clr,(tell Stage (cmd (set console (list /:)) ) )
file,clearmem,(tell Stage (cmd ( (set memory (list) ) (add nil (ask Stage (ring (get console) ) ) ) )) )
file,read,"( (add (""file _"" (""delete _ of _"" 1 (split (ask Stage (ring (get input) ) ) [word] ) ) ) (ask Stage (ring (get console) ) ) ) (add nil (ask Stage (ring (get console) ) ) ) )"
file,dir,"(tell Stage
(cmd (
(var a b)
(set a
(get directory)
)
(set b
(item 2
(split
(ask Stage
(ring
(get input)
)
) "" ""
)
)
)
(if
(=
(letter 1
(get b)
) /
)
(set directory nil)
)
(if
(=
(get b) /
)
(set b nil)
)
(set noUpdate 1)
(add ""TYPE NAME""
(get console)
)
(forEach item
(""folder _""
(join
(ask Stage
(ring
(get directory)
)
)
(get b) /
)
)
(add
(join
(ifThen
(=
(item 1
(get item)
) file
) ""FILE "" ""FOLDER ""
)
(item 2
(get item)
)
)
(get console)
)
)
(add
(join
(ask Stage
(ring
(get directory)
)
) /:
)
(get console)
)
(set noUpdate nil)
(set updateConsole 1)
(set directory
(get a)
)
))
)"
file,cd,"(tell Stage
(cmd (
(if
(=
(item 2
(split
(get input) "" ""
)
) /
)
(set directory nil) t
(set directory
(item 2
(split
(get input) "" ""
)
)
)
)
(add
(join
(get directory) /:
)
(get console)
)
))
)"
file,execfile,"(tell Stage
(cmd (
(var a b)
(set a
(get directory)
)
(set b
(item 2
(split
(ask Stage
(ring
(get input)
)
) "" ""
)
)
)
(if
(=
(letter 1
(get b)
) /
)
(set directory nil)
)
(""run file _""
(""file _""
(join
(get directory) /
(get b)
)
)
)
(set directory
(get a)
)
(add
(join
(get directory) ""/: ""
)
(get console)
)
))
)"
file,touch,"(
(var a b)
(set a
(ask Stage
(ring
(get files)
)
)
)
(set b
(ask Stage
(ring
(split
(get input) "" ""
)
)
)
)
(""add _ _ to _"" file
(item 2
(get b)
)
(ifThen
(item 3
(get b)
)
(item 3
(get b)
)
(""folder _""
(join
(ask Stage
(ring
(get directory)
)
) /
)
)
)
)
)"
file,help,"(tell Stage
(cmd (
(add echo
(get console)
)
(add freetype
(get console)
)
(add clr
(get console)
)
(add clearmem
(get console)
)
(add read
(get console)
)
(add dir
(get console)
)
(add cd
(get console)
)
(add execfile
(get console)
)
(add touch
(get console)
)
(add help
(get console)
)
(add
(join
(get directory) /:
)
(get console)
)
))
)"
- folder
- scripts
file,randnum.cde,((add (rand 1 1000) (ask Stage (ring (get console)))))
- ( (clear) (hide) (go -67.5 0) (tell Stage (cmd ( (setBackgroundColor "rgba(46,46,46,1)") (set state disabled) (set directory nil) )) ) (setColor "rgba(255,255,255,1)") (for i 1 15 (write (letter (get i) "Welcome to Dyos" ) 15 ) ) (wait 1) (for i 1 50 ( (clear) (+y (get i) ) (x= -67) (write "Welcome to Dyos" 15) )) ("run file _" ("_ _ in _" file console.cde (ask Stage (ring (get files) ) ) ) ) )
255,255,255,1i1151i150fileconsole.cdeStage
- (
(tell Stage
(cmd (
(set noUpdate 0)
(set console
(list Dyos /:)
)
(set state input)
))
)
(var a)
(forever
(if
(not
(=
(ask Stage
(ring
(get noUpdate)
)
) 1
)
) (
(go
(+
(attribute [left] Stage) 10
)
(-
(attribute [top] Stage) 15
)
)
(until
(<=
(data [length]
(ask Stage
(ring
(get console)
)
)
) 24
)
(del 1
(ask Stage
(ring
(get console)
)
)
)
)
(clear)
(forEach item
(ask Stage
(ring
(get console)
)
) (
(x=
(+
(attribute [left] Stage) 10
)
)
(write
(get item) 12
)
(+y -15)
)
)
(tell Stage
(cmd
(set updateConsole 0)
)
)
(set a
(split
(data [json]
(ask Stage
(ring
(get console)
)
)
) json
)
)
(waitUntil
(or
(!=
(get a)
(ask Stage
(ring
(get console)
)
)
)
(=
(ask Stage
(ring
(get updateConsole)
)
) 1
)
)
)
)
)
)
)
a
itemStage
Stage
aStage
jsonStage
Stage
1
- ((tell Stage (cmd (("set _ to _" "key pressed" nil) ("set _ to _" input nil)))) (forever ((var a b) (set b (list Control Shift Alt Enter Tab Undefined)) (if (key "[any key]") ((if (= (ask Stage (ring (get state))) console) ((waitUntil (not (= (ask Stage (ring (get "key pressed"))) nil))) (tell Stage (cmd ((if (= (get "key pressed") enter) (add nil (get console)) (= (get "key pressed") Backspace) (ifElse (= (item [last] (get console)) nil) (del [last] (get console)) (put [last] (get console) (join : (data [reverse] (cdr (data [reverse] (split (item [last] (get console)) [letter]))))))) (not (contains (get b) (get "key pressed"))) (put [last] (get console) (join (item [last] (get console)) (get "key pressed")))) ("set _ to _" "key pressed" nil)))))) (if (= (ask Stage (ring (get state))) input) ((waitUntil (not (= (ask Stage (ring (get "key pressed"))) nil))) (tell Stage (cmd ((if (= (get "key pressed") enter) ((ifElse ("does file _ exist" (join bins/ (item 1 (split (ask Stage (ring (get input))) [word])))) ("run file _" ("_ _ in _" file (item 1 (split (ask Stage (ring (get input))) [word])) ("_ _ in _" folder bins (get files)))) ((add "Bin not found" (get console)) (add /: (get console)))) (set lastInp (get input)) ("set _ to _" input nil)) (= (get "key pressed") Backspace) ("set _ to _" input (join : (data [reverse] (cdr (data [reverse] (split (get input) [letter])))))) (= (get "key pressed") "up arrow") (set input (get lastInp)) (not (contains (get b) (ask Stage (ring (get "key pressed"))))) ("set _ to _" input (join (get input) (get "key pressed")))) ("set _ to _" "key pressed" nil) (put [last] (get console) (join (get directory) "/: " (get input)))))))) (waitUntil (not (key "[any key]"))))))))
Backspace
key pressed
Stage
input
lastInpinputBackspace
up arrow
Stage
key pressed/:
- (tell Stage
(cmd (
(var a b)
(set a
(get directory)
)
(set b
(item 2
(split
(ask Stage
(ring
(get input)
)
) " "
)
)
)
(if
(=
(letter 1
(get b)
) /
)
(set directory nil)
)
(if
(=
(get b) /
)
(set b nil)
)
(set noUpdate 1)
(add "TYPE NAME"
(get console)
)
(forEach item
("folder _"
(join
(ask Stage
(ring
(get directory)
)
)
(get b) /
)
)
(add
(join
(ifThen
(=
(item 1
(get item)
) file
) "FILE " "FOLDER "
)
(item 2
(get item)
)
)
(get console)
)
)
(add
(join
(ask Stage
(ring
(get directory)
)
) /:
)
(get console)
)
(set noUpdate nil)
(set updateConsole 1)
(set directory
(get a)
)
))
)
/
noUpdate1TYPE NAMEitemStage
/
Stage
/:
noUpdateupdateConsole1directory
- (tell Stage
(cmd (
(add echo
(get console)
)
(add freetype
(get console)
)
(add clr
(get console)
)
(add clearmem
(get console)
)
(add read
(get console)
)
(add dir
(get console)
)
(add cd
(get console)
)
(add execfile
(get console)
)
(add touch
(get console)
)
(add help
(get console)
)
(add
(join
(get directory) /:
)
(get console)
)
))
)
- (tell Stage
(cmd (
(var a b)
(set a
(get directory)
)
(set b
(item 2
(split
(ask Stage
(ring
(get input)
)
) " "
)
)
)
(if
(=
(letter 1
(get b)
) /
)
(set directory nil)
)
("run file _"
("file _"
(join
(get directory) /
(get b)
)
)
)
(set directory
(get a)
)
(add
(join
(get directory) "/: "
)
(get console)
)
))
)
/
directory/:
- ((add (rand 1 1000) (ask Stage (ring (get console)))))