DATE SUBRTN 2
FILE INFORMATION
FILENAME(S): DATE SUBRTN 2
FILE TYPE(S): PRG
FILE SIZE: 597b
FIRST SEEN: 2025-11-30 21:12:52
APPEARS ON: 1 disk(s)
FILE HASH
22ce143802d9526a5c85d2d2d293ca0eec0446160fad63cbaadd5a7f9ec4d39b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR 4 | DATE SUBRTN 2 | PRG | DuncanTwain | 31 | 3 | 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 51 04 70 17 8F 20 2A 20 41 4E 4F 54 48 45 52 |.Q.p.. * ANOTHER| 00000040: 20 44 41 54 45 20 53 55 42 2D 52 4F 55 54 49 4E | DATE SUB-ROUTIN| 00000050: 45 00 76 04 71 17 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |E.v.q.. ********| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000070: 2A 2A 2A 2A 2A 2A 00 A5 04 72 17 97 20 35 39 34 |******...r.. 594| 00000080: 36 38 2C 31 34 3A 43 52 B2 31 36 37 3A 20 8F 20 |68,14:CR.167: . | 00000090: 44 45 46 41 55 4C 54 53 20 54 4F 20 42 41 53 49 |DEFAULTS TO BASI| 000000A0: 43 20 34 2E 30 00 CE 04 73 17 8F 20 2A 20 43 36 |C 4.0...s.. * C6| 000000B0: 34 20 20 20 20 20 20 20 2D 20 50 4F 4B 45 20 35 |4 - POKE 5| 000000C0: 33 32 37 32 2C 32 33 3A 43 52 3D 32 30 34 00 F3 |3272,23:CR=204..| 000000D0: 04 74 17 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.t.. ***********| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000F0: 2A 2A 2A 00 2D 05 75 17 99 C7 28 31 34 37 29 22 |***.-.u...(147)"| 00000100: D0 4C 45 41 53 45 20 C5 4E 54 45 52 20 D4 4F 44 |.LEASE .NTER .OD| 00000110: 41 59 27 53 20 C4 41 54 45 20 28 4D 4D 44 44 59 |AY'S .ATE (MMDDY| 00000120: 59 29 20 3A 20 22 3B 3A 8D 36 30 33 35 00 4C 05 |Y) : ";:.6035.L.| 00000130: 7A 17 59 52 B2 C5 28 C9 28 54 44 24 2C 32 29 29 |z.YR..(.(TD$,2))| 00000140: 3A 8B 59 52 B3 38 33 A7 36 30 30 35 00 72 05 7F |:.YR.83.6005.r..| 00000150: 17 44 59 B2 C5 28 CA 28 54 44 24 2C 33 2C 32 29 |.DY..(.(TD$,3,2)| 00000160: 29 3A 8B 44 59 B3 31 B0 4E 44 B1 33 31 A7 36 30 |):.DY.1.ND.31.60| 00000170: 30 35 00 96 05 84 17 4D 54 B2 C5 28 C8 28 54 44 |05.....MT..(.(TD| 00000180: 24 2C 32 29 29 3A 8B 4D 54 B3 31 B0 4E 4D B1 31 |$,2)):.MT.1.NM.1| 00000190: 32 A7 36 30 30 35 00 D4 05 89 17 8E 3A 8F 20 2A |2.6005......:. *| 000001A0: 2A 2A 20 54 48 49 53 20 53 55 42 52 4F 55 54 49 |** THIS SUBROUTI| 000001B0: 4E 45 20 48 41 53 20 52 45 54 55 52 4E 45 44 20 |NE HAS RETURNED | 000001C0: 57 49 54 48 20 54 48 45 20 44 41 54 45 20 49 4E |WITH THE DATE IN| 000001D0: 20 54 44 24 00 08 06 8E 17 8F 20 2A 2A 2A 20 47 | TD$...... *** G| 000001E0: 45 54 20 41 20 53 54 52 49 4E 47 20 4F 46 20 53 |ET A STRING OF S| 000001F0: 49 58 20 46 52 4F 4D 20 54 48 45 20 4B 45 59 42 |IX FROM THE KEYB| 00000200: 4F 41 52 44 20 2A 2A 2A 00 20 06 93 17 54 44 24 |OARD ***. ...TD$| 00000210: B2 22 22 3A 97 43 52 2C 30 3A 81 49 B2 31 A4 36 |."":.CR,0:.I.1.6| 00000220: 00 34 06 98 17 A1 44 24 3A 8B 44 24 B2 22 22 A7 |.4....D$:.D$."".| 00000230: 36 30 34 30 00 52 06 9D 17 54 44 24 B2 54 44 24 |6040.R...TD$.TD$| 00000240: AA 44 24 3A 99 44 24 3B 3A 82 3A 97 43 52 2C 31 |.D$:.D$;:.:.CR,1| 00000250: 3A 8E 00 00 00 |:.... |
..0.... THE TRANSACTOR VOLUME 4 ISSUE 06 PAGE 46.Q.P.. * ANOTHER DATE SUB-ROUTIN E.V.Q.. ******************************.. .R.. 59468,14:CR.167: . DEFAULTS TO BASI C 4.0.N.S.. * C64 - POKE 53272,23: CR=204...T.. *************************** ***.-.U..G(147)"PLEASE ENTER TODAY'S DAT E (MMDDYY) : ";:.6035.L.Z.YR.E(I(TD$,2)) :.YR.83.6005.R..DY.E(J(TD$,3,2)):.DY.1. ND.31.6005.....MT.E(H(TD$,2)):.MT.1.NM.1 2.6005.T....:. *** THIS SUBROUTINE HAS R ETURNED WITH THE DATE IN TD$...... *** G ET A STRING OF SIX FROM THE KEYBOARD *** . ...TD$."":.CR,0:.I.1.6.4....D$:.D$."". 6040.R...TD$.TD$.D$:.D$;:.:.CR,1:....
> CLICK IMAGE PREVIEW FOR FULL MODAL