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

DATE SUBRTN 1

FILE INFORMATION

FILENAME(S): DATE SUBRTN 1

FILE TYPE(S): PRG

FILE SIZE: 783b

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

APPEARS ON: 1 disk(s)

FILE HASH

1bf24eac893a637b0f86be378aef1832cd4be39ed5ccde542e36e44e01972c98

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TRANSACTOR 4 DATE SUBRTN 1 PRG DuncanTwain 31 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 30 04 00 00 8F 20  54 48 45 20 54 52 41 4E  |..0.... THE TRAN|
00000010: 53 41 43 54 4F 52 20 56  4F 4C 55 4D 45 20 34 20  |SACTOR VOLUME 4 |
00000020: 49 53 53 55 45 20 30 36  20 50 41 47 45 20 34 36  |ISSUE 06 PAGE 46|
00000030: 00 4F 04 88 13 8F 20 2A  20 46 49 52 53 54 20 44  |.O.... * FIRST D|
00000040: 41 54 45 20 53 55 42 2D  52 4F 55 54 49 4E 45 00  |ATE SUB-ROUTINE.|
00000050: 74 04 89 13 8F 20 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |t.... **********|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000070: 2A 2A 2A 2A 00 A4 04 8A  13 43 52 B2 31 36 37 3A  |****.....CR.167:|
00000080: 97 20 35 39 34 36 38 2C  31 34 20 3A 20 8F 20 44  |. 59468,14 : . D|
00000090: 45 46 41 55 4C 54 53 20  54 4F 20 42 41 53 49 43  |EFAULTS TO BASIC|
000000A0: 20 34 2E 30 00 CD 04 8B  13 8F 20 2A 20 43 36 34  | 4.0...... * C64|
000000B0: 20 20 20 20 20 20 20 2D  20 43 52 3D 32 30 34 3A  |       - CR=204:|
000000C0: 50 4F 4B 45 20 35 33 32  37 32 2C 32 33 00 F2 04  |POKE 53272,23...|
000000D0: 8C 13 8F 20 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |... ************|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000F0: 2A 2A 00 03 05 8D 13 54  44 24 B2 22 22 3A 99 3A  |**.....TD$."":.:|
00000100: 43 B2 30 00 38 05 92 13  99 C7 28 31 34 37 29 22  |C.0.8.....(147)"|
00000110: D0 4C 45 41 53 45 20 C5  4E 54 45 52 20 D4 4F 44  |.LEASE .NTER .OD|
00000120: 41 59 53 20 C4 41 54 45  20 28 4D 4D 2F 44 44 2F  |AYS .ATE (MM/DD/|
00000130: 59 59 29 20 3A 20 22 3B  00 42 05 9C 13 8D 35 31  |YY) : ";.B....51|
00000140: 35 30 00 72 05 A6 13 8B  44 24 B2 C7 28 32 37 29  |50.r....D$..(27)|
00000150: A7 35 30 30 35 3A 8F 20  28 45 53 43 41 50 45 29  |.5005:. (ESCAPE)|
00000160: 20 4B 45 59 20 43 41 4E  43 45 4C 53 20 45 4E 54  | KEY CANCELS ENT|
00000170: 52 59 00 8A 05 B0 13 8B  44 24 B3 22 30 22 B0 44  |RY......D$."0".D|
00000180: 24 B1 22 39 22 A7 35 30  32 30 00 9E 05 BA 13 54  |$."9".5020.....T|
00000190: 44 24 B2 54 44 24 AA 44  24 3A 99 44 24 3B 00 D0  |D$.TD$.D$:.D$;..|
000001A0: 05 C4 13 8B C3 28 54 44  24 29 B2 32 A7 54 44 24  |.....(TD$).2.TD$|
000001B0: 28 43 29 B2 54 44 24 3A  44 B2 C5 28 54 44 24 28  |(C).TD$:D..(TD$(|
000001C0: 43 29 29 3A 54 44 24 B2  22 22 3A 89 35 30 38 30  |C)):TD$."":.5080|
000001D0: 00 DA 05 CE 13 89 35 30  32 30 00 F8 05 D8 13 8B  |......5020......|
000001E0: 43 B2 30 A7 99 22 2F 22  3B 3A 8B 44 B3 31 B0 44  |C.0.."/";:.D.1.D|
000001F0: B1 31 32 A7 35 30 30 35  00 16 06 E2 13 8B 43 B2  |.12.5005......C.|
00000200: 31 A7 99 22 2F 22 3B 3A  8B 44 B3 31 B0 44 B1 33  |1.."/";:.D.1.D.3|
00000210: 31 A7 35 30 30 35 00 43  06 EC 13 8B 43 B2 32 A7  |1.5005.C....C.2.|
00000220: 8B 44 B3 38 33 A7 35 30  30 35 3A 8F 20 54 48 45  |.D.83.5005:. THE|
00000230: 20 59 45 41 52 53 20 31  39 38 33 20 54 4F 20 31  | YEARS 1983 TO 1|
00000240: 39 39 39 00 57 06 F6 13  43 B2 43 AA 31 3A 8B 43  |999.W...C.C.1:.C|
00000250: B3 33 A7 35 30 32 30 00  74 06 00 14 54 44 24 B2  |.3.5020.t...TD$.|
00000260: 54 44 24 28 30 29 AA 54  44 24 28 31 29 AA 54 44  |TD$(0).TD$(1).TD|
00000270: 24 28 32 29 00 B2 06 0A  14 8E 3A 8F 20 2A 2A 2A  |$(2)......:. ***|
00000280: 20 54 48 49 53 20 53 55  42 52 4F 55 54 49 4E 45  | THIS SUBROUTINE|
00000290: 20 48 41 53 20 52 45 54  55 52 4E 45 44 20 57 49  | HAS RETURNED WI|
000002A0: 54 48 20 54 48 45 20 44  41 54 45 20 49 4E 20 54  |TH THE DATE IN T|
000002B0: 44 24 00 E2 06 14 14 8F  20 2A 2A 2A 20 47 45 54  |D$...... *** GET|
000002C0: 20 41 20 43 48 41 52 41  43 54 45 52 20 46 52 4F  | A CHARACTER FRO|
000002D0: 4D 20 54 48 45 20 4B 45  59 42 4F 41 52 44 20 2A  |M THE KEYBOARD *|
000002E0: 2A 2A 00 EC 06 1E 14 97  43 52 2C 30 00 00 07 28  |**......CR,0...(|
000002F0: 14 A1 44 24 3A 8B 44 24  B2 22 22 A7 35 31 36 30  |..D$:.D$."".5160|
00000300: 00 0C 07 32 14 97 43 52  2C 31 3A 8E 00 00 00     |...2..CR,1:.... |

..0.... THE TRANSACTOR VOLUME 4 ISSUE 06
 PAGE 46.O.... * FIRST DATE SUB-ROUTINE.
T.... ******************************....
.CR.167:. 59468,14 : . DEFAULTS TO BASIC
 4.0.M.... * C64       - CR=204:POKE 532
72,23...... ****************************
**.....TD$."":.:C.0.8....G(147)"PLEASE E
NTER TODAYS DATE (MM/DD/YY) : ";.B....51
50.R....D$.G(27).5005:. (ESCAPE) KEY CAN
CELS ENTRY......D$."0".D$."9".5020.....T
D$.TD$.D$:.D$;.P.D..C(TD$).2.TD$(C).TD$:
D.E(TD$(C)):TD$."":.5080.Z.N..5020...X..
C.0.."/";:.D.1.D.12.5005......C.1.."/";:
.D.1.D.31.5005.C....C.2..D.83.5005:. THE
 YEARS 1983 TO 1999.W...C.C.1:.C.3.5020.
T...TD$.TD$(0).TD$(1).TD$(2)......:. ***
 THIS SUBROUTINE HAS RETURNED WITH THE D
ATE IN TD$...... *** GET A CHARACTER FRO
M THE KEYBOARD ***......CR,0...(..D$:.D$
."".5160...2..CR,1:....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL