Kezdőlap Felfedezés Súgó
Bejelentkezés
MITDDC
/
trivia-1976-1977
tükrözi: https://github.com/MITDDC/trivia-1976-1977
Figyelés 2
Kedvenc 0
Másolás 0
Fájlok Problémák 0 Wiki
Branch: main
Branch-ok Tag-ek
trivia-1976-...
/
trivia
/
9005143
/
ar2.tv
/
holida.11

holida.11 1.8 KB
Állandó hivatkozás Előzmények Nyers

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137 
  1. TITLE  HOLIDAYS
    2. 

  2. 

  3. .MLLIT==1
    4. 

  4. A=1
    5. 

  5. B=2
    6. 

  6. YMD=3
    7. 

  7. M=4
    8. 

  8. D=5
    9. 

  9. RY=6
    10. 

  10. DOW=7
    11. 

  11. RET=8
    12. 

  12. LOC 100
    13. 

  13. START:	.CALL	FLUSH
    14. 

  14. 	 JFCL
    15. 

  15. 	.RDATE	YMD,
    16. 

  16. 	LDB	M,[141400,,YMD]
    17. 

  17. 	LDB	D,[001400,,YMD]
    18. 

  18. 	.RYEAR	RY,
    19. 

  19. 	LDB	DOW,[320300,,RY]
    20. 

  20. 	CAIE	M,'01
    21. 

  21. 	 JRST	FOURTH
    22. 

  22. 	CAIN	D,'01
    23. 

  23. 	 JRST	WIN
    24. 

  24. 	CAIE	DOW,1
    25. 

  25. 	 JRST	KING
    26. 

  26. 	CAIN	D,'02
    27. 

  27. 	 JRST	WIN
    28. 

  28. KING:	CAIN	D,'15
    29. 

  29. 	 JRST	WIN
    30. 

  30. 	 .BREAK	16,160000
    31. 

  31. FOURTH:	CAIE	M,'07
    32. 

  32. 	 JRST	VETRAN
    33. 

  33. 	CAIN	D,'04
    34. 

  34. 	 JRST	WIN
    35. 

  35. 	CAIE	DOW,5
    36. 

  36. 	 JRST	MON5TH
    37. 

  37. 	CAIN	D,'03
    38. 

  38. 	 JRST	WIN
    39. 

  39. 	 .BREAK	16,160000
    40. 

  40. MON5TH:	CAIE	DOW,1
    41. 

  41. 	 .BREAK	16,160000
    42. 

  42. 	CAIN	D,'05
    43. 

  43. 	 JRST	WIN
    44. 

  44. 	 .BREAK	16,160000
    45. 

  45. VETRAN:	CAIE	M,'11
    46. 

  46. 	 JRST	XMAS
    47. 

  47. 	CAIN	D,'11
    48. 

  48. 	 JRST	WIN
    49. 

  49. 	 JRST	THANKS
    50. 

  50. XMAS:	CAIE	M,'12
    51. 

  51. 	 JRST	ODD
    52. 

  52. 	CAIN	D,'25
    53. 

  53. 	 JRST	WIN
    54. 

  54. 	CAIE	DOW,5
    55. 

  55. 	 .BREAK	16,160000
    56. 

  56. 	CAIN	D,'24
    57. 

  57. 	 JRST	WIN
    58. 

  58. 	CAIN	D,'31
    59. 

  59. 	 JRST	WIN
    60. 

  60. 	 .BREAK	16,160000
    61. 

  61. ODD:	CAIN	M,'02
    62. 

  62. 	 JRST	MON3
    63. 

  63. 	CAIN	M,'04
    64. 

  64. 	 JRST	MON3
    65. 

  65. 	CAIE	M,'05
    66. 

  66. 	 JRST	LABOR
    67. 

  67. 	CAIE	DOW,1
    68. 

  68. 	 .BREAK	16,160000
    69. 

  69. 	CAIGE	D,'25
    70. 

  70. 	 .BREAK	16,160000
    71. 

  71. 	CAILE	D,'31
    72. 

  72. 	 .BREAK	16,160000
    73. 

  73. 	 JRST	WIN
    74. 

  74. LABOR:	CAIE	M,'09
    75. 

  75. 	 JRST	COLUMB
    76. 

  76. 	CAIE	DOW,1
    77. 

  77. 	 .BREAK	16,160000
    78. 

  78. 	CAIGE	D,'01
    79. 

  79. 	 .BREAK	16,160000
    80. 

  80. 	CAILE	D,'07
    81. 

  81. 	 .BREAK	16,160000
    82. 

  82. 	 JRST	WIN
    83. 

  83. COLUMB:	CAIE	M,'10
    84. 

  84. 	 JRST	THANKS
    85. 

  85. 	CAIE	DOW,1
    86. 

  86. 	 .BREAK	16,160000
    87. 

  87. 	CAIGE	D,'08
    88. 

  88. 	 .BREAK	16,160000
    89. 

  89. 	CAILE	D,'14
    90. 

  90. 	 .BREAK	16,160000
    91. 

  91. 	 JRST	WIN
    92. 

  92. THANKS:	CAIE	M,'11
    93. 

  93. 	 .BREAK	16,160000
    94. 

  94. 	CAIE	DOW,4
    95. 

  95. 	 .BREAK	16,160000
    96. 

  96. 	CAIGE	D,'22
    97. 

  97. 	 .BREAK	16,160000
    98. 

  98. 	CAILE	D,'28
    99. 

  99. 	 .BREAK	16,160000
    100. 

  100. WIN:	CAIE	DOW,6
    101. 

  101. 	 CAIN	DOW,0
    102. 

  102. 	 .BREAK	16,160000
    103. 

  103. 	.CALL	MAKFIL
    104. 

  104. 	 .LOSE	1000
    105. 

  105. 	.CLOSE	1,
    106. 

  106. 	.BREAK	16,160000	
    107. 

  107. 

  108. MON3:	CAIE	DOW,1
    109. 

  109. 	 .BREAK	16,160000
    110. 

  110. 	CAIGE	D,'15
    111. 

  111. 	 .BREAK	16,160000
    112. 

  112. 	CAILE	D,'21
    113. 

  113. 	 .BREAK	16,160000
    114. 

  114. 	 JRST	WIN
    115. 

  115. 

  116. FLUSH:	SETZ
    117. 

  117. 	SIXBIT /DELETE/
    118. 

  118. 	DNAME
    119. 

  119. 	FNAME1
    120. 

  120. 	[SIXBIT />/]
    121. 

  121. 	SNAME
    122. 

  122. 	SETZ
    123. 

  123. 

  124. MAKFIL:	SETZ
    125. 

  125. 	SIXBIT	/OPEN/
    126. 

  126. 	MOVSI	1
    127. 

  127. 	MOVEI	1
    128. 

  128. 	DNAME
    129. 

  129. 	FNAME1
    130. 

  130. 	YMD
    131. 

  131. 	SNAME
    132. 

  132. 	SETZ
    133. 

  133. 

  134. DNAME:	SIXBIT	/DSK/
    135. 

  135. FNAME1:	SIXBIT	/HLIDAY/
    136. 

  136. SNAME:	SIXBIT	/COMBAT/
    137. 

  137. END START
    138.