· 5 years ago · Dec 01, 2020, 03:24 AM
1# Welcome
2
3## Read This Only Do not Run it
4## You have been warned note READ ONLY
5## For Educational Purposes Artwork 2.0
6## CC-CA-CS-CI year 2020
7## open source FTL
8
9<hr>
10
11The Script Below is my expression of what a computer can never do
12for me this script has purpose and if you hear it spoken you might understand
13what the mission is...
14
15## Perl Shell Keywords Module
16
17```perl
18###
19## -------------------------------------
20## READ ONLY SCRIPT - WARNING READ ONLY - (MIT)
21## -------------------------------------
22### USE TEXT TO SPEECH FOR BETTER OUTPUTS
23###
24use @strict;
25use @english;
26use time;
27use @job;
28use @any_config;
29@Next continue or exit
30### (Read Only Code)
31say "Lets Begin";
32###
33## Application - Script
34###
35say "Load The Aves Project";
36say "Loading....Aves...done!";
37say "Sending Data Now...done!";
38####
39## Application
40####
41@call @system
42@use @api
43@Start() {
44 use 'Every Object Layer'; # Object Layers Many Layers
45 use @system; # Perl Language
46$Example() {
47 import system;
48}
49 use @warnings; # sending output warnings to console
50}
51@Continue {code} @Next() {
52 import @This system;
53 import caller; # Guess Who ?
54 import @System_Os; # Perl System
55my @Codes_Token("Super Special Methods Converted To Strings");
56@Codes_Tokens()
57{
58 @Token @Next @Token sub return shift->@CodesTokens; #Building CodesTokens Now...done.
59 continue {code}->@recovery @Next do bless and or import {@Code}; #Recovery Of lost CodesTokens
60 use->@CodesTokens; # Transfer Codes Tokens
61}
62###
63## Loading Information - Application Information
64###
65@What_Info() {
66say "Setting Defualt Source Path Now";
67@Set @Net @Src @Source #defualt source network config path
68Source => '~/gps/locate/home/~//-*/etc/top/dir/override/@Next/do/trap/src/get/addr/host/';
69Target => '~/gps/locate/Target/~//-*/etc/top/dir/override/@Next/do/trap/src/get/addr/host/path';
70Path => '~/gps/locate/Path/~//-*/etc/top/dir/override/@Next/do/trap/src/get/addr/host/route';
71Destination => '~/gps/locate/Destination/~//-*/etc/top/dir/override/@Next/do/trap/src/get/addr/host/gps';
72Alternative => '~/gps/locate/Alternative/~//-*/etc/top/dir/override/@Next/do/trap/src/get/addr/host/rerouting';
73@Code_Info() {
74@Break @Copy switch @Code shift seek caller open @System_Default;
75@Set @Configuration @File for @Output @Transfer @Data while goto @Edit @New sub file;
76return @New __FILE__ or exit();
77@Run() {
78BEGIN
79import system;
80use version=>'0000.96';
81@Check for @true || @false if @Dapp_Script return @Logical;
82@Check for @false || @true if @Dapp_Script return @Illogical;
83@Check for @operator if @Dapp_Script return @Logic;
84if @Check for @operator @recovery, use @Training import @utils_scripts;
85for use goto @Tools @Help @Recovery @Training @Function;
86do @Next continue @Find @Source @Correction @OPS @Training;
87 @Rerouting @FROM @TO goto continue @break caller @break;
88 switch @Contact @Right @Add wait do next seek @contact 300ms wait @Adjust @Auto @Confirm;
89 @Check @Console and @Accept or @Reject return @Values @Mission @Purpose @Options;
90 continue @Try caller @copy;
91 return stat @Caller @Copy;
92 return 1 return @Home;
93 return @True_Path;
94 END
95}
96}
97@Destination() {
98say "Loader Function Fetch Method Get Www";
99 @loader() @fetch() {'get:www'}; # Loader Fetch Internet
100}
101@Functions_List() {
102say "Lets Read And Write Some New Files";
103 read write __FILE__ return __FILE__ @new; # Read Write New File
104 read write @new __FILE__ return __FILE__ wait; # Read Write New File Wait
105 read write caller __FILE__ return @TheOpenSystem::FTL; # Read New File Name The Open System
106 # FTL Module
107say "Read Write Complete.";
108}
109@Options_List() {
110 read | @Source /dump.log/; # dump data with data dumper
111 read @RTFM = '/Docs'; #RTFM-DOCS
112 read @target '~/Source/FROM?/FTLDRIVE'; # read from target source path
113}
114@Options_Output() {
115 write @new @Source @Next;
116 '~/Source/TO?/FTLDRIVER_DEBUG_FILE_IO.log';
117 write @new @Source @Next do @target @Next goto @top @dir;
118 seek or wait do continue {code} @Source do @Next goto;
119 '~/.../Source.Rerouting......now......done.';
120}
121@Return_Values() {
122 return shift @Next continue {code} shift do continue {code};
123 say "Will continue {code}.......lets go.";
124}
125@Return_CodesTokens() {
126 @Next @Try_@Next bless my @CodesTokens @Next continue {code};
127 @Try_@Next continue {code} @Next wait @copy wait @copy wait @Next do;
128 continue {code} open __FILE__ use import system wait continue {code};
129 open system wait do @Next continue {code};
130 fork @Next @command and or @insert system import @CodesTokens;
131 continue {code} @Next do continue {code};
132}
133###
134## Source Code - Application Script Template Starter
135###
136@Code() {
137say "FTL:CHECK:STATUS.....ok!";
138 import system => '~/FTLDRIVE:::';
139 open '__START__' system;
140 open '__RUNNING__' system;
141 open '__STOPPING__' system;
142 open '__RESET__' system;
143say "Check Online CPANM ARCHIVES FOR MORE INFORMATION";
144 import 'mods:perllang4fun';
145 import 'perl:minimods4fun';
146}
147}
148###
149## Load Main Program
150###
151@Next() {
152 use @english_FTL::DRIVER_ENCODE;
153 use @any_config;
154 use @diognostics_debugger_visuals;
155}
156@do() {
157 use @tools_all;
158 use @utils_scripts;
159 use @man_info_policy;
160}
161@Next() {
162 use @info;
163}
164@do() {
165 do continue {code}|@break|@break|@break|shift|@perl|@lang|@Tokenization|@blockchain __FILE__;
166 @Next @Try_@Next|@technology|@educational|@digital|@assets|@personal|@customization __FILE__;
167}
168@Next() {
169 do continue {code}|@privacy|do use|import=>'any:config'|use @autodie;
170 @Next do|else|die|@Try_@Next|as|@personal|@private|@policy|@allows|for|@break|@autodie __FILE__;
171}
172@do() {
173 @Start |else|die|return|caller|@break|return|caller|open|system|@break|wait|for|@Next|continue {code}| __FILE__;
174 @Running |or|not|@Try_@Next|import|=>|'~/usr/bin/bash'|use|@Auto|@Adjust|@new __FILE__;
175 @Stop |@from|@copy|system|caller|@info|@man|@break|@copy|@insert|@stats|@status|stat __FILE__;
176}
177@continue {code} @Next() {
178 @killswitch |use|@auto|@adjust|for|@Next|continue{code}|and|or|@break|if|wait|@Id|@Configuration| && return __FILE__;
179 @system_default=>@shift_@Next_block;
180 @Set() {
181 @system @override @function;
182 import {Code} {...}
183 say "What Is @Next?";
184 }
185}
186###
187## Wrap Up Program Now......done.
188###
189@Next do continue
190@Code_Continue_Sector() {
191@continue {code}
192@Next_do() {
193 use continue {code} or not @Try_@Next continue {code} @Set open caller;
194say "Open Caller Continue {code} and @Try_@Next continue {code} syscall open";
195 @Next do @override @This @tech @break @copy switch;
196 use __FILE__ @insert *DATA* @Next do continue {code} wait;
197say "Well if we made it This far... ok you got the job.";
198 }
199}
200###
201## End Of Script ### Goodbye! Thanks For Reading
202###
203@Next continue | shift | open | caller
204do @Next open | caller system | @Search
205@install() {
206 use|'@autodie';
207 use|'swtich@breaks';
208 use|'elseifs';
209 use|'andor';
210 use|continue|or|not;
211}
212#|Return|Values|Menu
213@USER_PROMPT f('~/IO')->||||use|y|or|n;
214}
215 wait @Next do continue
216 @new_Sub_strings() {
217###
218##|USER|INSERT|ANSWER:|[1]
219###
220use @imports_list;
221use '~/Manifest';
222import|=>|~'/!#/usr/bin/bash';
223#
224#|Show|me|what|you|can|do
225@Next do continue @Try_@Next(){function}
226# API
227@fetch() {
228 import @API => '~/API';
229}
230#|Tools|List|Menu
231##
232@Next do continue @Try_@Next(){function}
233#|Reader
234##
235@fetch() {
236 import @Reader => 'install Aves_Cli-Tools';
237}
238#|Writer
239@Next do continue @Try_@Next(){function}
240##
241@fetch() {
242 import @Writer => 'install Aves_Cli-Tools';
243}
244#|Editor
245@Next do continue @Try_@Next(){function}
246##
247@fetch() {
248 import @Editor => 'install vscode';
249}
250#|Image|Editor
251@Next do continue @Try_@Next(){function}
252##
253@fetch() {
254 import @Image_Editor => 'load shotwell';
255}
256#|Social|Media
257@Next do continue @Try_@Next(){function}
258##
259@fetch() {
260 import @Social_Media => 'Search Aves_Cli-Tools';
261}
262#|Website|Solutions|Expert
263@Next do continue @Try_@Next(){function}
264##
265@fetch() {
266 import @Expert => 'Aves_Reader Creator';
267}
268#|Software|Developer|(Training_OPS)
269@Next do continue @Try_@Next(){function}
270##
271@fetch() {
272 import @Dev_Training_Ops => 'install RTFM-DOCS';
273}
274#|Products|Developer
275@Next do continue @Try_@Next(){function}
276##
277@fetch() {
278 import @Product_Dev => 'Write Code';
279}
280#|Researcher
281@Next do continue @Try_@Next(){function}
282##
283@fetch() {
284 import @Research => '~/Research';
285}
286#|Engineer|DIY
287@Next do continue @Try_@Next(){function}
288##
289@fetch() {
290 import @Engineer_Diy => 'Scripting Programming Coding Linguistics Languages Syntax';
291}
292#|Some|College
293@Next do continue @Try_@Next(){function}
294##
295@fetch() {
296 import @College_Info => 'Community College';
297}
298#|Online|Training
299@Next do continue @Try_@Next(){function}
300##
301@fetch() {
302 import @Online_Training => 'So do online training';
303}
304@loader_string{
305 sub return %strings_gains => {"$Seek|@Skillset|@Adaptations|@Scripting|@Strategy|@Update|@Plans";}
306}
3071;
308 }
309 @Next continue
310 say " Verification Authorized For Access Unrestricted."
311 @Next do @CodesTokens() {
312import system use => '@linguistics';
313 use 'KEY GEN RAND ENGLISH TOKENS';
314 use 'keywords ctf';
315 use 'challenge 1022';
316 use @space
317 use @time;
318 use @visa_versa;
319 use 'universal FTL';
320 case switch seek caller open syscall caller open system;
321 else caller use my @AutoAdjustments use our @Flags @show && @Warnings; #logs data
322 use our @test_packages;
323 use our @manifest
324@load_This() {
325 BEGIN
326 '__APP__';
327 '__META__';
328 '__KEYWORDS__';
329}
330@my_code() {
331continue @Next @Try_@Next or @break caller @break @copy {@Codes}
332{@Table} = @shift @Next use @strict; use @warnings; use our 'english';
333import system continue @Next @Try_@Next or @break caller @break @copy {@Codes}
334{@Table} = @shift
335}
336### Find Tree TOP DIR ###
337@statements() {
338 !use or do not use -> %Config_@Work;
339}
340@Code_Filter() {
341 {{Software}{Tools}{Blockchain}{Tokens}{Programming}{Code} @Next @loading...()
342 {...(import DATA)...}; do use bless and or use or not my => @Source
343}
344@Next continue goto shift @base_block @Prompt @User
345@code_space() {
346 say "Confirming your tokens now.";
347 return @Key @Pair @Crypto @Values @Tools @Config @Build @Spacetime
348 @Memory [@PROMPT] @Etc @Rebuilding @Status @Movement @Flag @Arguments @Parameters @Options @Debug @Code @Plug
349 continue ??? wait ???
350 return $Query_(@extention)
351 ('see ref. matrix hash arrays @Source code');
352 &&||
353 return __FILE__...};
354 %Hash.@Array_CB [say "Loading @Source from: Hash.Array Object.";];
355}
356continue @Next @Try_@Next or @break caller @break @copy {@Codes} {@Table} = @shift; or exit @Next continue
357@Alpha_blocks() {
358 @Try_@Next @This or use @function($scripts){objlang}
359 or not use @autodie; import => __FILE__ or not @break or not @copy
360}
361@Open_System() {
362 syscall sysopen pack pipe read stat @Next continue
363 @Try_@Next __FILE__ or not use @package: @from @Archive => @Source read syscall @flag
364}
365@Next_Blocks() {
366 @Next do and @Set @breakpoint continue @Next @Try_@Next or @break caller @break
367 @copy {@Codes} {@Table} shift; @Next do {code}+{path}={route} = @shift
368}
369continue @Next do @Try_@Next @This @Block @Code
370@codes_TheAvesProject() {
371 else say "..."; @Add {'Top::DIR Mod'}||set=>index.default.link->{@PATH:='~Code/Libs';};
372 goto [ENTER] -> 'PATH' 'VIA' 'ROBTE' 'iC' link-> @TOP::@DIR]->('Software/');
373 do use bless and or use or not [Prompt] y => @n ???
374@Foundation){
375 @Oource @Transfer {@Data int or not "Confirming your tokens now."};
376 return @Key @Pair @Crypto @Values @Tools @Config @Build @SpaceTime @Memory [@PROMPT] @Etc @Rebuilding
377}
378@Project() {
379@Status @Movement @Flag @Arguments @Parameters @Options @Debug @Code @Plug
380continue ??? wait ??? return @Query.md
381}
382@Next_stage() {
383 @breakpoint continue @Next @Try_@Next or @break caller @break @copy {@Codes} {@Table} = @shift;
384 @Next do {code}+{path}={route}=shift else say "...";
385 {'Top::DIR Mod'}||set=>index.default.link->{@PATH:='~Code/Libs';};
386 goto [ENTER] -> 'PATH' 'VIA' 'ROUTE' 'ie' link->TOP::DIR]->('Blockchain/');
387}
388continue @Try_@Next do @Next import system
389@ADDR_HOST_REQUEST() {
390do use bless and or use or not [@PROMPT] y => :@Source @Add @Breakpoint
391%Of {...print or not "Confirming your tokens now."};
392@Next do continue return @Key @Pair @Crypto @Values @Tools @Config @Build @SpaceTime @Memory
393[@PROMPT] @Etc @Rebuilding @Status @Movement @Flag @Arguments @Parameters @Options @Debug @Code
394@Plug continue ??? wait ??? return @Query.md ('see ref. matrix hash arrays @Source code')
395&&|| return __FILE__...}; %Hash_Array_CB[say "Loading.....done." import goto @Source
396continue say 'from: Hash.Array Object.';]
397}
398@ADDR_NET_RESET() {
399continue @Next @Try_@Next or @break caller @break @copy {@Codes} {@Table} = @shift; or exit @Next continue
400@Try_@Next @This or use @function(@scripts) {objlang} or not continue import => __FILE__ or not @break or not
401@copy syscall sysopen pack pipe read stat @Next continue @Try_@Next __FILE__ or not use @package:
402@From @Archive => @Source read syscall @flag @Next do and @Set @breakpoint continue @Next @Try_@Next or @break caller
403@break @copy {@Codes} {@Table} = @shift; @Next do continue
404{code}+{path}={route}=shift else say "...";
405{'Top::DIR Mod'}||set=>index.default.link->{@PATH:='~Code/Libs';};
406}
407@HOST_REQUEST_FUNCTION() {
408goto [ENTER] -> 'PATH' 'VIA' 'ROUTE' 'ie' link->[TOP::DIR]->('Tokens/');
409do use bless and or use or not [@PROMPT] y => @Source Of {...print or
410not "Confirming your tokens now.";}
411@Next do continue return @Key @Pair @Crypto @Values @Tools @Config @Build @SpaceTime @Mmeory
412}
413@Global_Scripts() {
414[@PROMPT] @Etc @Rebuilding @Status @Movement @Flag @Arguments @Parameters @Options @Debug
415@Code @Plug continue ??? wait ??? return @Query.md ('see ref. matrix hash arrays @Source code')
416&&|| return __FILE__...}; %Hash_Array_CB[say "Loading @Source from: Hash.Array Object.";]
417continue @Next @Try_@Next or @break caller @break @copy {@Codes}{@Table} = @shift; or exit @Next continue
418@Try_@Next @This or use @function(@scripts) {objlang} or not continueimport => __FILE__ or not @break or not
419@Copy syscall sysopen pack pipe read stat @Next continue @Try_@Next __FILE__ or not use @package:
420@From @Archive => @Source read syscall @flag @Next do and @Set @breakpoint
421continue @Next @Try_@Next or @break caller
422}
423@Remix() {
424[@PROMPT] @Etc @Rebuilding @Status @Movement @Flag @Arguments @Parameters @Options @Debug @Code
425@Plug continue ??? wait ??? return @Query.md ('see ref. matrix hash arrays @Source code') &&||
426return __FILE__...}; %Hash_Array_CB[say "Loading @Source from: Hash.Array Object.";]
427@Next continue @Next @Try_@Next or @break caller @break @copy {@Codes} {@Table} = @shift;
428or do @Next continue @Try_@Next @This or use @function(@scripts){objlang} or not
429}
430@reissue() {
431continue import => __FILE__ or not @break or not @copy syscall sysopen
432pack pipe read stat @Next continue @Try_@Next __FILE__ or not use @package: @From
433@Archive => @Source read syscall @flag @Next do and @Set @breakpoint continue or not;
434continue @Next @Try_@Next or @break caller @break @copy {@Codes} {@Table} = @shift;
435@Next do {@code}+{...}+{spacetime}+{FTL ENCODE};
436or else say "..."; @Next do continue or not
437else @Try_@Next do {'Top::DIR Mod'}|| set=>index.default.link->{@PATH:='~Code/Libs';};
438goto @Next continue do [ENTER] -> 'PATH' 'VIA' 'ROUTE' 'i.e.'];
439link->TOP::DIR]->('Programming/');
440}
441@requBst() {@Next or not continue use bless and or @save
442meta=> @Source @Transfer {Data int or not "Thanks For Chatting Today."};
443@From @This_next import @seq @Tokens)@Array_%Hash};
444}
445@package() {@Next No continue or not @Next do return @Key @Pair @Crypto @Values @Tools @Config @Build @SpaceTime
446@Memory [@PROMPT] @Etc @Rebuilding @Status @Movement @Flag @Arguments @Parameters @Options
447@Debug @Code @Plug continue ??? wait ??? return @Query.md
448('see ref. matrix hash arrays @Source code') &&||
449}
450try do continue @Next @Override goto @Help @AdjustMe @Ovverrides @Accept
451do continue @Ovverride return goto @config.log seek caller @Edit @User @PrOfile
452}
453@API() {
454return __FILE__...}; %Hash_Array_CB[say "Loading @Source from: Hash.Array Object.";]
455continue @Next @Try_@Next or @break caller @break @copy {@Codes} {@Table}
456use 'a' @shift; or exit @Next continue @Try_@Next @This or use
457@function(@scripts) {objlang} or not use @auto_retry; @Next do continue or not
458import => __FILE__ or not @break or not @copy syscall sysopen pack pipe read stat @Next
459continue @Try_@Next __FILE__ or not use @package: @From @Archive => @Source
460read syscall @flag @Next do and @Set @breakpoint @END @line \
461}
462*@Overrides() {
463 {CODE} + {OVERRIDE} - {FUNCTIONS} % {SCRIPT} = '@^&%@#Code';
464}
465@Override => system @database caller open system import __FILE__ @aves4fun.pod
466 @Code() {
467 import @aves4fun.pod use '@/CPANM' and or use '~/src/libs/www/make_your_own';
468 }
469@Override => system @Application caller open system import __FILE__ @systems.pod
470 @Next do continue
471 import @systems.pod if
472 @Code = {...@new @add sub @AvesProject + ($x) reset caller open system import __FILE__ @Data use open system}
473 }
474@puase() {
475use wait 200ms;
476}
477@Override => system @Documentation caller open system import __FILE__ @docs.plx
478 @Next do continue do do
479 import @docs.plx => '~/path/to/docs.plx';
480 @Run() {
481 @Code = {...} + {@Next @function($x) seek import system @Defualt}
482 }
483@puase() {
484use wait 200ms;
485}
486@Override => system @API caller open system import __FILE__ @api.md
487 @Next continue or wait
488 import api => '~/API/SRC/TOP/DIR/api.md';
489 @Run() {
490 @Code = {continue} {@Next} {code}
491 }
492@Puase() {
493use wait 200ms;
494}
495@Override => system @About caller open system import __FILE__ @about.md
496 @Next continue or wait
497 import about => '~/API/SRC/TOP/DIR/@INC/';
498 @run() {
499 @Code = {@Try_@Next} {continue} {do} {@Next} {@True &&|| @False} + {Query}
500 @locate @Statement;
501 @recover @Tokens;
502 return @Statement;
503 }
504@pause() {
505 use wait 200ms;
506}
507@Override => system @Service/ & @Support/ caller open system import __FILE__ @Service.md @Support.md ;
508 @Next continue or wait;
509 import @path Service => '~/Service.md main directory';
510 import @path Support => '~/Support.md main directory';
511 @run() {
512 @Code = {use} + {defualt} + {set} + {caller} + {open system};
513@value() {
514 return (@Arguments, @Values, @Project @Open @Source);
515}
516@pause() {
517 use wait 300ms;
518}
519@Override => system @Connect & @Contact caller open system import __FILE__ ;
520@touch @new @file @name -> @Connect.md @Contact.md;
521@Next continue or wait;
522 import() {
523 Service => '~/Service.md main directory';
524 Support => '~/Support.md main directory';
525 }
526 @run() {
527 @Code = {use} + {defualt} + {set} + {Package} + {open system}
528 return (@Tokens, @Network, @TheAvesProject)
529 }
530@pause() {
531 use wait 300ms;
532}
533@Override => system @site.map caller open system import __FILE__ index.html/
534#SiteMap@Next continue or wait
535 import @site.map => '~/Support.md main directory';
536 @run() {
537 @Code = {use} + {defualt} + {set} + {Request} + {open system}
538 return (@Home, @Options, @CodesToken_Blockchain)
539 }
540@prompt_continue() {
541 use wait 300ms;
542}
543@final() {
544 return 1;
545}
546 END
547
548
549
550
551```
552
553## Credits
554
555Thank you everybody for the great times and the struggles
556for everything I ever wanted I got and in the end I understood
557even if I didnt get it because for me I was always searching for my purpose
558I found it through writing bad Software doin bad jobs for people that didnt understand
559but i guess we all have a part to play so lets do this thing.
560
561do continue to read more of my works
562
563Catch you later
564
565Thanks again
566
567Enjoy!
568
569<hr> <code>