mirror of
https://github.com/moshix/mvs.git
synced 2026-01-11 23:43:00 +00:00
102 lines
2.8 KiB
Plaintext
102 lines
2.8 KiB
Plaintext
/*********************/
|
|
/* LET THIS EXEC */
|
|
/* */
|
|
/* RUN */
|
|
/* */
|
|
/* AND */
|
|
/* */
|
|
/* ENJOY */
|
|
/* */
|
|
/* YOURSELF! */
|
|
/*********************/
|
|
'VMFCLEAR'
|
|
SAY ' * ooooooooooooooooooooooooo'
|
|
SAY ' * o Happy Hanukkah o'
|
|
SAY ' *** o ! ! o'
|
|
SAY ' ***** o ! | | ! o'
|
|
SAY ' ******* o ! | H H | ! o'
|
|
SAY ' ********* o ! | H H!H H | ! o'
|
|
SAY ' ************* o | H H H|H H H | o'
|
|
SAY ' ******* o (_H_H_H|H_H_H_) o'
|
|
SAY ' *********** o (___________) o'
|
|
SAY ' *************** o H o'
|
|
SAY ' ******************* o H o'
|
|
SAY ' *********** o H o'
|
|
SAY ' *************** o ___H___ o'
|
|
SAY ' ******************* ooooooooooooooooooooooooo'
|
|
SAY ' *********************** '
|
|
SAY ' *************** '
|
|
SAY ' ******************* BEST WISHES'
|
|
SAY ' *********************** '
|
|
SAY ' *************************** FOR THE NEXT'
|
|
SAY ' ****** '
|
|
SAY ' ****** YEAR'
|
|
SAY ' ****** '
|
|
/* browsing this file is no fun at all
|
|
just type CHRISTMAS from cms */
|
|
dropbuf
|
|
makebuf
|
|
"q t (stack"
|
|
pull d1 d2 d3 d4 d5 dat
|
|
pull zeile
|
|
jeah = substr(dat,7,2)
|
|
tack = substr(dat,4,2)
|
|
mohn = substr(dat,1,2)
|
|
/* say "jeah tack mohn"jeah tack mohn */
|
|
if jeah <= 22 then do
|
|
if mohn = 12 then do
|
|
DROPBUF
|
|
MAKEBUF
|
|
"IDENTIFY ( FIFO"
|
|
PULL WER VON WO IST REST
|
|
DROPBUF
|
|
MAKEBUF
|
|
"EXECIO * DISKR " WER " NAMES A (FIFO"
|
|
DO WHILE QUEUED() > 0
|
|
PULL NICK NAME ORT
|
|
NAM = INDEX(NAME,'.')+1
|
|
IF NAM > 0 THEN DO
|
|
NAME = SUBSTR(NAME,NAM)
|
|
END
|
|
NAM = INDEX(ORT,'.')+1
|
|
IF NAM > 0 THEN DO
|
|
ORT = SUBSTR(ORT,NAM)
|
|
END
|
|
IF LENGTH(NAME)>0 THEN DO
|
|
IF LENGTH(ORT) = 0 THEN DO
|
|
ORT = WO
|
|
END
|
|
if name ^= "RELAY" then do
|
|
"SF xmas EXEC A " NAME " AT " ORT " (ack"
|
|
end
|
|
END
|
|
END
|
|
DROPBUF
|
|
MAKEBUF
|
|
ANZ = 1
|
|
"EXECIO * DISKR " WER " NETLOG A (FIFO"
|
|
DO WHILE QUEUED() > 0
|
|
PULL KIND FN FT FM ACT FROM ID AT NODE REST
|
|
IF ACT = 'SENT' THEN DO
|
|
IF ANZ = 1 THEN DO
|
|
OK.ANZ = ID
|
|
END
|
|
IF ANZ > 1 THEN DO
|
|
OK.ANZ = ID
|
|
NIXIS = 0
|
|
DO I = 1 TO ANZ-1
|
|
IF OK.I = ID THEN DO
|
|
NIXIS = 1
|
|
END
|
|
END
|
|
END
|
|
ANZ = ANZ + 1
|
|
IF NIXIS = 0 THEN DO
|
|
"SF xmas EXEC A " ID " AT " NODE " (ack"
|
|
END
|
|
END
|
|
END
|
|
DROPBUF
|
|
END
|
|
end
|