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

4-21

FILE INFORMATION

FILENAME(S): 4-21

FILE TYPE(S): PRG

FILE SIZE: 337b

FIRST SEEN: 2025-11-30 21:12:26

APPEARS ON: 2 disk(s)

FILE HASH

28b63391ba9926f6bd1afb4aac3bae0e0ddef97a0e4ad0934e9f7febb2429c3e

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOTUS SOFT 4-21 PRG DuncanTwain 20 3 DOWNLOAD FILE
PROG 64 WEST 4-21 PRG DuncanTwain 20 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 34 08 00 00 8F 20  2A 20 44 45 54 45 52 4D  |..4.... * DETERM|
00000010: 49 4E 45 20 4E 55 4D 42  45 52 20 4F 46 20 44 41  |INE NUMBER OF DA|
00000020: 59 53 20 42 45 54 57 45  45 4E 20 32 20 44 41 54  |YS BETWEEN 2 DAT|
00000030: 45 53 20 2A 00 65 08 0A  00 83 20 30 2C 33 31 2C  |ES *.e.... 0,31,|
00000040: 35 39 2C 39 30 2C 31 32  30 2C 31 35 31 2C 31 38  |59,90,120,151,18|
00000050: 31 2C 32 31 32 2C 32 34  33 2C 32 37 33 2C 33 30  |1,212,243,273,30|
00000060: 34 2C 33 33 34 00 88 08  14 00 86 20 44 28 31 32  |4,334...... D(12|
00000070: 29 3A 20 81 20 4A B2 31  20 A4 20 31 32 3A 20 87  |): . J.1 . 12: .|
00000080: 20 44 28 4A 29 3A 20 82  00 AB 08 64 00 85 20 22  | D(J): ....d.. "|
00000090: 20 46 49 52 53 54 20 44  41 54 45 20 28 4D 2C 44  | FIRST DATE (M,D|
000000A0: 2C 59 29 22 3B 20 4D 2C  44 2C 59 00 BD 08 6E 00  |,Y)"; M,D,Y...n.|
000000B0: 8D 20 31 30 30 30 3A 20  44 58 B2 44 45 00 E0 08  |. 1000: DX.DE...|
000000C0: 78 00 85 20 22 53 45 43  4F 4E 44 20 44 41 54 45  |x.. "SECOND DATE|
000000D0: 20 28 4D 2C 44 2C 59 29  22 3B 20 4D 2C 44 2C 59  | (M,D,Y)"; M,D,Y|
000000E0: 00 F2 08 82 00 8D 20 31  30 30 30 3A 20 44 59 B2  |...... 1000: DY.|
000000F0: 44 45 00 08 09 C8 00 99  20 44 59 AB 44 58 20 22  |DE...... DY.DX "|
00000100: 44 41 59 53 22 3A 20 80  00 48 09 E8 03 44 45 20  |DAYS": ..H...DE |
00000110: B2 20 44 20 AA 20 44 28  4D 29 20 AA 20 33 36 35  |. D . D(M) . 365|
00000120: AC 59 20 AA 20 B5 28 28  59 AB 31 29 AD 34 29 20  |.Y . .((Y.1).4) |
00000130: AB 20 28 28 B5 28 59 AD  34 29 AC 34 B2 59 29 20  |. ((.(Y.4).4.Y) |
00000140: AF 20 28 4D B1 32 29 29  00 4E 09 F2 03 8E 00 00  |. (M.2)).N......|
00000150: 00                                                |.               |

..4.... * DETERMINE NUMBER OF DAYS BETWE
EN 2 DATES *.E.... 0,31,59,90,120,151,18
1,212,243,273,304,334...... D(12): . J.1
 . 12: . D(J): ....D.. " FIRST DATE (M,D
,Y)"; M,D,Y...N.. 1000: DX.DE...X.. "SEC
OND DATE (M,D,Y)"; M,D,Y...... 1000: DY.
DE...H.. DY.DX "DAYS": ..H...DE . D . D(
M) . 365.Y . .((Y.1).4) . ((.(Y.4).4.Y) 
. (M.2)).N.......
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL