annotate interps/clc-intercal/CLC-INTERCAL-Docs-1.-94.-2/doc/examples/syscall1.si @ 12508:335a2a849232
draft default tip
<wib_jonas> `` f=/hackenv/bin/dateu; >$f echo $\'#!/bin/bash\\nset -e\\nif (( 1 < $# )); then echo "dateu error: too many command-line arguments. Usage: dateu datetimestring"; exit 2; fi\\nexec date -u ${1:+-d "$1"} "+%Y-%m-%d %H:%M:%S.%3N %z %Z %B %-e %A %G-W%V-%u"\'; chmod a+x "$f"
| author |
HackEso <hackeso@esolangs.org> |
| date |
Wed, 03 Jul 2024 18:15:24 +0100 |
| parents |
859f9b4339e6 |
| children |
|
| rev |
line source |
|
996
|
1 PLEASE NOTE: EXAMPLE OF CALLING SYSTEM CALL #1 AND #2
|
|
|
2
|
|
|
3 (666) DO .1 <- #2
|
|
|
4 DO ,2 <- #3
|
|
|
5 DO ,2 SUB #1 <- #91
|
|
|
6 DO ,2 SUB #2 <- #95
|
|
|
7 DO ,2 SUB #3 <- #68
|
|
|
8 (666) DO .3 <- #1
|
|
|
9 DO ,4 <- #3
|
|
|
10 DO ,4 SUB #1 <- #91
|
|
|
11 DO ,4 SUB #2 <- #95
|
|
|
12 DO ,4 SUB #3 <- #66
|
|
|
13 (666) DO .1 <- #7
|
|
|
14 PLEASE READ OUT ,1 + ,2 + ,3 + ,4
|
|
|
15 PLEASE GIVE UP
|
