_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

SJ.LOGO

FILE INFORMATION

FILENAME(S): SJ.LOGO

FILE TYPE(S): PRG

FILE SIZE: 419b

FIRST SEEN: 2025-12-02 23:22:49

APPEARS ON: 1 disk(s)

FILE HASH

06be10a09628623a651e584a6a0743a650132aeed48a87a0de5ef4a480973831

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
NIKI 11 SJ.LOGO PRG swasti, dinkel 10 5 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 53 4A 0D  20 50 52 20 5B 5D 20 50  |. TO SJ. PR [] P|
00000010: 52 20 5B 47 45 42 45 4E  20 53 49 45 20 42 49 54  |R [GEBEN SIE BIT|
00000020: 54 45 20 4A 41 48 52 20  45 49 4E 21 5D 0D 20 4D  |TE JAHR EIN!]. M|
00000030: 41 4B 45 20 22 4A 20 52  51 0D 20 49 46 20 28 20  |AKE "J RQ. IF ( |
00000040: 49 54 45 4D 20 31 20 3A  4A 20 29 20 3E 20 49 4E  |ITEM 1 :J ) > IN|
00000050: 54 45 47 45 52 20 28 20  28 20 49 54 45 4D 20 31  |TEGER ( ( ITEM 1|
00000060: 20 3A 4A 20 29 20 29 20  50 52 20 5B 46 41 4C 53  | :J ) ) PR [FALS|
00000070: 43 48 45 53 20 44 41 54  55 4D 21 5D 20 53 4A 0D  |CHES DATUM!] SJ.|
00000080: 20 49 46 20 28 20 49 54  45 4D 20 31 20 3A 4A 20  | IF ( ITEM 1 :J |
00000090: 29 20 3C 20 49 4E 54 45  47 45 52 20 28 20 28 20  |) < INTEGER ( ( |
000000A0: 49 54 45 4D 20 31 20 3A  4A 20 29 20 29 20 50 52  |ITEM 1 :J ) ) PR|
000000B0: 20 5B 46 41 4C 53 43 48  45 53 20 44 41 54 55 4D  | [FALSCHES DATUM|
000000C0: 21 5D 20 53 4A 0D 20 49  46 20 52 45 4D 41 49 4E  |!] SJ. IF REMAIN|
000000D0: 44 45 52 20 28 20 49 54  45 4D 20 31 20 3A 4A 20  |DER ( ITEM 1 :J |
000000E0: 29 20 34 30 30 20 3D 20  30 20 50 52 20 5B 53 43  |) 400 = 0 PR [SC|
000000F0: 48 41 4C 54 4A 41 48 52  21 5D 20 53 4A 0D 20 49  |HALTJAHR!] SJ. I|
00000100: 46 20 52 45 4D 41 49 4E  44 45 52 20 28 20 49 54  |F REMAINDER ( IT|
00000110: 45 4D 20 31 20 3A 4A 20  29 20 31 30 30 20 3D 20  |EM 1 :J ) 100 = |
00000120: 30 20 50 52 20 5B 4B 45  49 4E 20 53 43 48 41 4C  |0 PR [KEIN SCHAL|
00000130: 54 4A 41 48 52 21 5D 20  53 4A 0D 20 49 46 20 52  |TJAHR!] SJ. IF R|
00000140: 45 4D 41 49 4E 44 45 52  20 28 20 49 54 45 4D 20  |EMAINDER ( ITEM |
00000150: 31 20 3A 4A 20 29 20 34  20 3D 20 30 20 50 52 20  |1 :J ) 4 = 0 PR |
00000160: 5B 53 43 48 41 4C 54 4A  41 48 52 21 5D 20 53 4A  |[SCHALTJAHR!] SJ|
00000170: 0D 20 50 52 20 5B 4B 45  49 4E 20 53 43 48 41 4C  |. PR [KEIN SCHAL|
00000180: 54 4A 41 48 52 21 5D 0D  20 53 4A 0D 45 4E 44 0D  |TJAHR!]. SJ.END.|
00000190: 0D 4D 41 4B 45 20 22 4A  20 5B 31 33 30 30 2E 32  |.MAKE "J [1300.2|
000001A0: 33 5D 0D                                          |3].             |

. TO SJ. PR [] PR [GEBEN SIE BITTE JAHR 
EIN!]. MAKE "J RQ. IF ( ITEM 1 :J ) > IN
TEGER ( ( ITEM 1 :J ) ) PR [FALSCHES DAT
UM!] SJ. IF ( ITEM 1 :J ) < INTEGER ( ( 
ITEM 1 :J ) ) PR [FALSCHES DATUM!] SJ. I
F REMAINDER ( ITEM 1 :J ) 400 = 0 PR [SC
HALTJAHR!] SJ. IF REMAINDER ( ITEM 1 :J 
) 100 = 0 PR [KEIN SCHALTJAHR!] SJ. IF R
EMAINDER ( ITEM 1 :J ) 4 = 0 PR [SCHALTJ
AHR!] SJ. PR [KEIN SCHALTJAHR!]. SJ.END.
.MAKE "J [1300.23].
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL