4-20
FILE INFORMATION
FILENAME(S): 4-20
FILE TYPE(S): PRG
FILE SIZE: 938b
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
d6fdcd6c82f9e35515b20b1459ac212c4cf7690be2ffe1435fdc64b1b7b5d787
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 4-20 | PRG | DuncanTwain | 20 | 1 | DOWNLOAD FILE |
| PROG 64 WEST | 4-20 | PRG | DuncanTwain | 20 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..).... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 08 01 00 8F 20 |*********.Q.... | 00000030: 2A 20 46 49 4E 44 20 44 41 59 20 4F 46 20 57 45 |* FIND DAY OF WE| 00000040: 45 4B 20 46 4F 52 20 41 4E 59 20 44 41 54 45 20 |EK FOR ANY DATE | 00000050: 2A 00 79 08 02 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.y.... ********| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A1 08 03 00 8F 20 |*********...... | 00000080: 2A 20 49 4E 43 4C 55 44 45 53 20 44 41 54 41 20 |* INCLUDES DATA | 00000090: 46 4F 52 20 4D 4F 4E 54 48 53 2C 20 53 4F 20 20 |FOR MONTHS, SO | 000000A0: 2A 00 C9 08 04 00 8F 20 2A 20 45 47 20 44 41 59 |*...... * EG DAY| 000000B0: 3D 31 32 2C 20 4D 4F 4E 54 48 3D 4E 4F 56 2C 20 |=12, MONTH=NOV, | 000000C0: 59 45 41 52 3D 38 36 20 2A 00 19 09 05 00 8F 20 |YEAR=86 *...... | 000000D0: 2A 20 49 53 20 48 41 4E 44 4C 45 44 20 43 4F 52 |* IS HANDLED COR| 000000E0: 52 45 43 54 4C 59 2E 20 20 20 20 20 20 20 20 20 |RECTLY. | 000000F0: 2A 20 36 20 52 45 4D 20 2A 20 20 20 20 20 20 20 |* 6 REM * | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000110: 20 20 20 20 20 20 20 20 2A 00 41 09 06 00 8F 20 | *.A.... | 00000120: 2A 20 43 3D 31 39 20 41 53 53 55 4D 45 53 20 54 |* C=19 ASSUMES T| 00000130: 48 49 53 20 43 45 4E 54 55 52 59 3B 20 20 20 20 |HIS CENTURY; | 00000140: 2A 00 69 09 07 00 8F 20 2A 20 20 20 20 55 53 45 |*.i.... * USE| 00000150: 20 20 43 3D 31 38 20 46 4F 52 20 31 38 30 30 53 | C=18 FOR 1800S| 00000160: 20 45 54 43 2E 20 20 20 2A 00 91 09 08 00 8F 20 | ETC. *...... | 00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000190: 2A 00 97 09 09 00 3A 00 A1 09 0A 00 99 20 22 05 |*.....:...... ".| 000001A0: 22 00 E6 09 14 00 83 20 53 55 4E 44 41 59 2C 4D |"...... SUNDAY,M| 000001B0: 4F 4E 44 41 59 2C 54 55 45 53 44 41 59 2C 57 45 |ONDAY,TUESDAY,WE| 000001C0: 44 4E 45 53 44 41 59 2C 54 48 55 52 53 44 41 59 |DNESDAY,THURSDAY| 000001D0: 2C 46 52 49 44 41 59 2C 53 41 54 55 52 44 41 59 |,FRIDAY,SATURDAY| 000001E0: 3A 20 43 B2 31 39 00 00 0A 1E 00 81 20 4A B2 30 |: C.19...... J.0| 000001F0: 20 A4 20 36 3A 20 87 20 44 24 28 4A 29 3A 20 82 | . 6: . D$(J): .| 00000200: 00 2C 0A 28 00 83 20 4A 41 4E 55 41 52 59 2C 46 |.,.(.. JANUARY,F| 00000210: 45 42 52 55 41 52 59 2C 4D 41 52 43 48 2C 41 50 |EBRUARY,MARCH,AP| 00000220: 52 49 4C 2C 4D 41 59 2C 4A 55 4E 45 00 62 0A 32 |RIL,MAY,JUNE.b.2| 00000230: 00 83 20 4A 55 4C 59 2C 41 55 47 55 53 54 2C 53 |.. JULY,AUGUST,S| 00000240: 45 50 54 45 4D 42 45 52 2C 4F 43 54 4F 42 45 52 |EPTEMBER,OCTOBER| 00000250: 2C 4E 4F 56 45 4D 42 45 52 2C 44 45 43 45 4D 42 |,NOVEMBER,DECEMB| 00000260: 45 52 00 87 0A 3C 00 86 20 4D 24 28 31 33 29 3A |ER...<.. M$(13):| 00000270: 20 81 20 4A B2 31 20 A4 20 31 32 3A 20 87 20 4D | . J.1 . 12: . M| 00000280: 24 28 4A 29 3A 20 82 00 C2 0A 64 00 99 20 22 44 |$(J): ....d.. "D| 00000290: 41 59 2C 4D 4F 4E 54 48 20 28 46 49 52 53 54 20 |AY,MONTH (FIRST | 000002A0: 33 20 4C 45 54 54 45 52 53 2C 20 45 47 20 4A 55 |3 LETTERS, EG JU| 000002B0: 4E 2C 20 26 20 59 45 41 52 2C 20 45 47 20 38 36 |N, & YEAR, EG 86| 000002C0: 29 22 00 CF 0A 69 00 85 20 44 2C 4D 24 2C 59 00 |)"...i.. D,M$,Y.| 000002D0: 02 0B 6A 00 81 20 4D B2 31 20 A4 20 31 32 3A 20 |..j.. M.1 . 12: | 000002E0: 8B 20 4D 24 B3 B1 C8 28 4D 24 28 4D 29 2C 33 29 |. M$...(M$(M),3)| 000002F0: 20 A7 20 82 3A 20 8B 20 4D B2 31 33 20 89 20 31 | . .: . M.13 . 1| 00000300: 30 30 00 0B 0B 6B 00 4D 53 B2 4D 00 2E 0B 6E 00 |00...k.MS.M...n.| 00000310: 4D 20 B2 20 4D AB 32 3A 20 8B 20 4D B3 31 20 A7 |M . M.2: . M.1 .| 00000320: 20 4D B2 4D AA 31 32 3A 20 59 B2 59 AB 31 00 65 | M.M.12: Y.Y.1.e| 00000330: 0B 78 00 4A 20 B2 20 B5 28 32 2E 36 AC 4D 20 AB |.x.J . .(2.6.M .| 00000340: 20 2E 31 39 29 20 AA 20 44 20 AA 20 59 20 AA 20 | .19) . D . Y . | 00000350: B5 28 59 AD 34 29 20 AA 20 B5 28 43 AD 34 29 20 |.(Y.4) . .(C.4) | 00000360: AB 20 32 AC 43 00 7A 0B 82 00 4A 20 B2 20 4A 20 |. 2.C.z...J . J | 00000370: AB 20 B5 28 4A AD 37 29 AC 37 00 A7 0B 8C 00 99 |. .(J.7).7......| 00000380: 20 44 20 22 4F 46 20 22 20 4D 24 28 4D 53 29 20 | D "OF " M$(MS) | 00000390: 22 2C 20 31 39 22 20 59 20 22 20 49 53 20 41 20 |", 19" Y " IS A | 000003A0: 22 20 44 24 28 4A 29 00 00 00 |" D$(J)... |
..).... ******************************** *.Q.... * FIND DAY OF WEEK FOR ANY DATE *.Y.... ******************************** *...... * INCLUDES DATA FOR MONTHS, SO *.I.... * EG DAY=12, MONTH=NOV, YEAR=86 *...... * IS HANDLED CORRECTLY. * 6 REM * *.A.... * C=19 ASSUMES THIS CENTURY; *.I.... * USE C=18 FOR 1800S ETC. *...... ******************************** *.....:...... "."...... SUNDAY,MONDAY,TU ESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY : C.19...... J.0 . 6: . D$(J): ..,.(.. J ANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE.B.2 .. JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBE R,DECEMBER...<.. M$(13): . J.1 . 12: . M $(J): ..B.D.. "DAY,MONTH (FIRST 3 LETTER S, EG JUN, & YEAR, EG 86)".O.I.. D,M$,Y. ..J.. M.1 . 12: . M$..H(M$(M),3) . .: . M.13 . 100...K.MS.M...N.M . M.2: . M.1 . M.M.12: Y.Y.1.E.X.J . .(2.6.M . .19) . D . Y . .(Y.4) . .(C.4) . 2.C.Z...J . J . .(J.7).7...... D "OF " M$(MS) ", 19" Y " IS A " D$(J)...
> CLICK IMAGE PREVIEW FOR FULL MODAL