aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Hello-world-Line-printer/M2000-Interpreter/hello-world-line-printer-1.m2000 Normal file
View file

@ -0,0 +1,5 @@
Printer {
\\ just change the current layer to Print Page
\\ Using Layer { } we can change to basic console layer inside any layer
Print "Hello World!"
}

6
Task/Hello-world-Line-printer/M2000-Interpreter/hello-world-line-printer-2.m2000 Normal file
View file

@ -0,0 +1,6 @@
Try ok {
Open "Lpt1" For OutPut As N '' prints to Lpt1 if exist a printer
Print #N, "Hello World!"
Close #N
}
If Not Ok Then Print "Can't Print"

1
Task/Hello-world-Line-printer/M2000-Interpreter/hello-world-line-printer-3.m2000 Normal file
View file

@ -0,0 +1 @@
Dos "Print /d:lpt1 file " +quote$(dir$+"this.txt");

1
Task/Hello-world-Line-printer/M2000-Interpreter/hello-world-line-printer-4.m2000 Normal file
View file

@ -0,0 +1 @@
Dos "command" [, sleep time after call] [;]