T/S-INFO IMPRVD.
FILE INFORMATION
FILENAME(S): T/S-INFO IMPRVD.
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 18:06:39
APPEARS ON: 1 disk(s)
FILE HASH
9f49e9cda2759c818df36fc121830f1db3e6b243128db2951fe4030a7bcbb75f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUBLICATION 11 | T/S-INFO IMPRVD. | PRG | Xii | 8 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 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 02 00 8F 20 |*********.Q.... |
00000030: 2A 20 56 49 54 41 4C 53 20 31 35 34 31 20 20 20 |* VITALS 1541 |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 2A 00 79 08 03 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 04 00 8F 20 |*********...... |
00000080: 2A 20 57 49 4C 4C 20 43 4F 52 4C 45 59 20 20 20 |* WILL CORLEY |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 2A 00 C9 08 05 00 8F 20 2A 20 37 35 35 31 20 54 |*...... * 7551 T|
000000B0: 57 49 4C 49 47 48 54 20 44 52 2E 20 20 20 20 20 |WILIGHT DR. |
000000C0: 20 20 20 20 20 20 20 20 2A 00 F1 08 06 00 8F 20 | *...... |
000000D0: 2A 20 53 41 43 52 41 4D 45 4E 54 4F 2C 20 43 41 |* SACRAMENTO, CA|
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 2A 00 19 09 07 00 8F 20 2A 20 39 35 38 32 32 20 |*...... * 95822 |
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 08 00 8F 20 | *.A.... |
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 00 6A 09 09 00 44 43 24 B2 22 22 3A 81 20 58 |*.j...DC$."":. X|
00000150: B2 31 20 A4 20 34 34 3A 87 20 41 3A 44 43 24 B2 |.1 . 44:. A:DC$.|
00000160: 44 43 24 AA C7 28 41 29 3A 82 00 8A 09 0A 00 97 |DC$..(A):.......|
00000170: 20 35 33 32 38 30 2C 31 31 3A 97 20 35 33 32 38 | 53280,11:. 5328|
00000180: 31 2C 31 32 3A 99 20 22 93 22 00 9C 09 0B 00 49 |1,12:. ".".....I|
00000190: B2 35 31 32 3A 4B 24 B2 C7 28 30 29 00 B6 09 0C |.512:K$..(0)....|
000001A0: 00 99 20 A3 31 34 29 20 22 05 56 49 54 41 4C 53 |.. .14) ".VITALS|
000001B0: 20 31 35 34 31 22 00 D0 09 0D 00 99 20 A3 31 34 | 1541"...... .14|
000001C0: 29 20 22 97 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 |) "............"|
000001D0: 00 F6 09 0E 00 99 20 A3 31 30 29 22 28 43 29 20 |...... .10)"(C) |
000001E0: 20 42 59 20 57 49 4C 4C 20 43 4F 52 4C 45 59 11 | BY WILL CORLEY.|
000001F0: 11 11 11 11 11 22 00 13 0A 0F 00 85 20 22 97 46 |....."...... ".F|
00000200: 49 4C 45 20 54 4F 20 41 4E 41 4C 59 5A 45 05 22 |ILE TO ANALYZE."|
00000210: 3B 4E 24 00 2E 0A 10 00 8B 20 C3 28 4E 24 29 B1 |;N$...... .(N$).|
00000220: 31 36 20 B0 20 4E 24 B2 22 22 20 A7 20 8A 00 56 |16 . N$."" . ..V|
00000230: 0A 11 00 A0 20 31 35 3A 9F 20 31 35 2C 38 2C 31 |.... 15:. 15,8,1|
00000240: 35 2C 22 49 22 3A 8D 20 34 39 3A 54 59 24 B2 22 |5,"I":. 49:TY$."|
00000250: 50 22 3A 41 B2 31 00 72 0A 12 00 9F 20 32 2C 38 |P":A.1.r.... 2,8|
00000260: 2C 32 2C 4E 24 AA 22 2C 22 AA 54 59 24 AA 22 2C |,2,N$.",".TY$.",|
00000270: 52 22 00 88 0A 13 00 84 31 35 2C 45 3A 8B 20 45 |R"......15,E:. E|
00000280: B3 32 30 20 A7 20 32 36 00 90 0A 14 00 A0 20 32 |.20 . 26...... 2|
00000290: 00 A0 0A 15 00 8B 20 45 B3 B1 36 34 20 A7 20 8A |...... E..64 . .|
000002A0: 00 B4 0A 16 00 8B 20 41 B2 31 20 A7 20 54 59 24 |...... A.1 . TY$|
000002B0: B2 22 53 22 00 C8 0A 17 00 8B 20 41 B2 32 20 A7 |."S"...... A.2 .|
000002C0: 20 54 59 24 B2 22 55 22 00 D6 0A 18 00 8B 20 41 | TY$."U"...... A|
000002D0: B2 33 20 A7 20 8A 00 E5 0A 19 00 41 B2 41 AA 31 |.3 . ......A.A.1|
000002E0: 3A 89 20 31 38 00 0B 0B 1A 00 A1 23 32 2C 41 24 |:. 18......#2,A$|
000002F0: 3A 53 4C B2 C2 28 35 31 32 29 3A A1 23 32 2C 41 |:SL..(512):.#2,A|
00000300: 24 3A 53 48 B2 C2 28 35 31 32 29 00 27 0B 1B 00 |$:SH..(512).'...|
00000310: 98 31 35 2C 22 4D 2D 52 22 20 C7 28 32 34 29 20 |.15,"M-R" .(24) |
00000320: 4B 24 20 C7 28 32 29 00 49 0B 1C 00 A1 23 31 35 |K$ .(2).I....#15|
00000330: 2C 41 24 3A 54 B2 C2 28 49 29 3A A1 23 31 35 2C |,A$:T..(I):.#15,|
00000340: 41 24 3A 53 B2 C2 28 49 29 00 7A 0B 1D 00 A0 20 |A$:S..(I).z.... |
00000350: 32 3A 98 31 35 2C 22 55 3B 22 3A 9F 20 32 2C 38 |2:.15,"U;":. 2,8|
00000360: 2C 32 2C 22 23 33 22 3A 8D 20 34 39 3A 98 31 35 |,2,"#3":. 49:.15|
00000370: 2C 22 42 2D 50 22 3B 32 3B 30 00 86 0B 1E 00 98 |,"B-P";2;0......|
00000380: 32 2C 44 43 24 3B 00 AD 0B 1F 00 98 31 35 2C 22 |2,DC$;......15,"|
00000390: 4D 2D 57 22 20 C7 28 36 29 20 C7 28 30 29 20 C7 |M-W" .(6) .(0) .|
000003A0: 28 32 29 20 C7 28 54 29 20 C7 28 53 29 00 C9 0B |(2) .(T) .(S)...|
000003B0: 20 00 98 31 35 2C 22 4D 2D 45 22 20 C7 28 30 29 | ..15,"M-E" .(0)|
000003C0: 20 C7 28 36 29 3A A0 20 32 00 E5 0B 21 00 98 31 | .(6):. 2...!..1|
000003D0: 35 2C 22 4D 2D 52 22 20 C7 28 31 30 29 20 4B 24 |5,"M-R" .(10) K$|
000003E0: 20 C7 28 32 29 00 07 0C 22 00 A1 23 31 35 2C 41 | .(2)..."..#15,A|
000003F0: 24 3A 4C B2 C2 28 49 29 3A A1 23 31 35 2C 41 24 |$:L..(I):.#15,A$|
00000400: 3A 48 B2 C2 28 49 29 00 24 0C 23 00 98 31 35 2C |:H..(I).$.#..15,|
00000410: 22 4D 2D 52 22 20 C7 28 31 29 20 C7 28 33 29 20 |"M-R" .(1) .(3) |
00000420: C7 28 31 29 00 3D 0C 24 00 A1 23 31 35 2C 41 24 |.(1).=.$..#15,A$|
00000430: 3A 42 59 54 45 53 B2 C2 28 49 29 AB 31 00 46 0C |:BYTES..(I).1.F.|
00000440: 25 00 A0 20 31 35 00 5D 0C 26 00 99 20 22 97 46 |%.. 15.].&.. ".F|
00000450: 49 4C 45 20 54 59 50 45 3A 05 20 22 3B 00 79 0C |ILE TYPE:. ";.y.|
00000460: 27 00 8B 20 54 59 24 B2 22 50 22 20 A7 20 99 20 |'.. TY$."P" . . |
00000470: 22 50 52 4F 47 52 41 4D 22 00 98 0C 28 00 8B 20 |"PROGRAM"...(.. |
00000480: 54 59 24 B2 22 53 22 20 A7 20 99 20 22 53 45 51 |TY$."S" . . "SEQ|
00000490: 55 45 4E 54 49 41 4C 22 00 B1 0C 29 00 8B 20 54 |UENTIAL"...).. T|
000004A0: 59 24 B2 22 55 22 20 A7 20 99 20 22 55 53 45 52 |Y$."U" . . "USER|
000004B0: 22 00 CB 0C 2A 00 99 20 22 97 42 4C 4F 43 4B 53 |"...*.. ".BLOCKS|
000004C0: 3A 05 22 20 48 AC 32 35 36 AA 4C 00 F4 0C 2B 00 |:." H.256.L...+.|
000004D0: 99 20 22 97 42 59 54 45 53 3A 05 22 20 28 48 AC |. ".BYTES:." (H.|
000004E0: 32 35 36 AA 4C AB 31 29 AC 32 35 34 AA 42 59 54 |256.L.1).254.BYT|
000004F0: 45 53 AB 31 00 08 0D 2C 00 8B 20 54 59 24 B3 B1 |ES.1...,.. TY$..|
00000500: 22 50 22 20 A7 20 34 36 00 2A 0D 2D 00 99 20 22 |"P" . 46.*.-.. "|
00000510: 97 53 54 41 52 54 20 41 44 44 52 45 53 53 3A 05 |.START ADDRESS:.|
00000520: 22 53 48 AC 32 35 36 AA 53 4C 00 45 0D 2E 00 99 |"SH.256.SL.E....|
00000530: 20 22 97 53 54 41 52 54 49 4E 47 20 54 52 41 43 | ".STARTING TRAC|
00000540: 4B 3A 05 22 54 00 66 0D 2F 00 99 20 22 97 53 54 |K:."T.f./.. ".ST|
00000550: 41 52 54 49 4E 47 20 53 45 43 54 4F 52 3A 05 22 |ARTING SECTOR:."|
00000560: 53 3A 8D 31 30 30 00 7F 0D 30 00 97 20 31 39 38 |S:.100...0.. 198|
00000570: 2C 30 3A 92 20 31 39 38 2C 31 3A 89 20 35 34 00 |,0:. 198,1:. 54.|
00000580: 9D 0D 31 00 84 31 35 2C 45 2C 45 24 2C 45 54 2C |..1..15,E,E$,ET,|
00000590: 45 53 3A 8B 20 45 B3 32 30 20 A7 20 8E 00 AA 0D |ES:. E.20 . ....|
000005A0: 32 00 A0 20 32 3A A0 20 31 35 00 BD 0D 33 00 99 |2.. 2:. 15...3..|
000005B0: 20 22 44 49 53 4B 20 45 52 52 4F 52 22 00 CE 0D | "DISK ERROR"...|
000005C0: 34 00 99 20 45 2C 45 24 2C 45 54 3B 45 53 00 E9 |4.. E,E$,ET;ES..|
000005D0: 0D 35 00 54 49 24 B2 22 30 30 30 30 30 30 22 3A |.5.TI$."000000":|
000005E0: 92 20 31 36 31 2C 31 3A 8A 00 F6 0D 36 00 99 20 |. 161,1:....6.. |
000005F0: 22 93 05 11 11 22 00 40 0E 37 00 99 22 20 20 20 |"....".@.7.." |
00000600: 56 49 54 41 4C 53 20 31 35 34 31 20 48 41 53 20 |VITALS 1541 HAS |
00000610: 42 45 45 4E 20 52 45 4C 45 41 53 45 44 20 54 4F |BEEN RELEASED TO|
00000620: 20 54 48 45 20 50 55 42 4C 49 43 20 44 4F 4D 41 | THE PUBLIC DOMA|
00000630: 49 4E 20 41 53 20 46 52 45 45 57 41 52 45 22 3B |IN AS FREEWARE";|
00000640: 00 7C 0E 38 00 99 22 2E 41 20 44 4F 4E 41 54 49 |.|.8..".A DONATI|
00000650: 4F 4E 20 4F 46 20 24 31 2C 35 20 4F 52 20 31 30 |ON OF $1,5 OR 10|
00000660: 20 57 4F 55 4C 44 20 47 4C 41 44 4C 59 20 42 45 | WOULD GLADLY BE|
00000670: 20 20 41 43 43 45 50 54 45 44 21 22 00 A9 0E 39 | ACCEPTED!"...9|
00000680: 00 99 20 22 20 20 20 20 20 20 12 53 55 50 50 4F |.. " .SUPPO|
00000690: 52 54 20 54 48 45 20 46 52 45 45 57 41 52 45 20 |RT THE FREEWARE |
000006A0: 43 4F 4E 43 45 50 54 21 22 00 C4 0E 3A 00 99 20 |CONCEPT!"...:.. |
000006B0: A3 31 34 29 22 11 11 11 57 49 4C 4C 20 43 4F 52 |.14)"...WILL COR|
000006C0: 4C 45 59 22 00 E2 0E 3B 00 99 20 A3 31 31 29 22 |LEY"...;.. .11)"|
000006D0: 37 35 35 31 20 54 57 49 4C 49 47 48 54 20 44 52 |7551 TWILIGHT DR|
000006E0: 2E 22 00 FC 0E 3C 00 99 20 A3 31 33 29 22 53 41 |."...<.. .13)"SA|
000006F0: 43 52 41 4D 45 4E 54 4F 2C 43 41 22 00 0E 0F 3D |CRAMENTO,CA"...=|
00000700: 00 99 20 A3 31 37 29 22 39 35 38 32 32 22 00 29 |.. .17)"95822".)|
00000710: 0F 3E 00 54 49 24 B2 22 30 30 30 30 30 30 22 3A |.>.TI$."000000":|
00000720: 92 20 31 36 31 2C 31 3A 8A 00 5D 0F 3F 00 44 43 |. 161,1:..].?.DC|
00000730: 24 B2 22 22 3A 59 B2 34 39 31 35 32 3A 81 20 58 |$."":Y.49152:. X|
00000740: B2 31 20 A4 20 31 38 34 3A 87 20 41 3A 44 43 24 |.1 . 184:. A:DC$|
00000750: B2 44 43 24 AA C7 28 41 29 3A 82 3A 8E 00 85 0F |.DC$..(A):.:....|
00000760: 40 00 83 20 31 36 39 2C 30 2C 31 33 33 2C 31 30 |@.. 169,0,133,10|
00000770: 2C 31 33 33 2C 31 31 2C 31 36 39 2C 31 37 36 2C |,133,11,169,176,|
00000780: 31 33 33 2C 30 00 AC 0F 41 00 83 20 31 36 35 2C |133,0...A.. 165,|
00000790: 30 2C 34 38 2C 32 35 32 2C 31 36 39 2C 31 32 38 |0,48,252,169,128|
000007A0: 2C 31 33 33 2C 30 2C 31 36 35 2C 30 00 D3 0F 42 |,133,0,165,0...B|
000007B0: 00 83 20 34 38 2C 32 35 32 2C 32 33 30 2C 31 30 |.. 48,252,230,10|
000007C0: 2C 32 30 38 2C 32 2C 32 33 30 2C 31 31 2C 31 37 |,208,2,230,11,17|
000007D0: 33 2C 30 00 F6 0F 43 00 83 20 33 2C 32 30 38 2C |3,0...C.. 3,208,|
000007E0: 31 2C 39 36 2C 31 33 33 2C 36 2C 31 37 33 2C 31 |1,96,133,6,173,1|
000007F0: 2C 33 2C 31 33 33 00 09 10 44 00 83 20 37 2C 32 |,3,133...D.. 7,2|
00000800: 34 2C 31 34 34 2C 32 31 38 00 2F 10 64 00 8F 20 |4,144,218./.d.. |
00000810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000830: 55 10 65 00 8F 20 2A 20 20 49 4D 50 52 4F 56 45 |U.e.. * IMPROVE|
00000840: 44 20 42 59 20 5A 45 49 54 47 45 49 53 54 20 46 |D BY ZEITGEIST F|
00000850: 4F 52 20 20 2A 00 7B 10 66 00 8F 20 2A 20 20 20 |OR *.{.f.. * |
00000860: 20 44 41 20 51 4C 20 4D 41 47 20 50 55 42 4C 49 | DA QL MAG PUBLI|
00000870: 43 41 54 49 4F 4E 20 20 20 20 2A 00 A1 10 67 00 |CATION *...g.|
00000880: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008A0: 2A 00 B1 10 68 00 44 B2 53 48 AC 32 35 36 AA 53 |*...h.D.SH.256.S|
000008B0: 4C 00 F1 10 69 00 5A 24 B2 22 22 3A 42 B2 31 36 |L...i.Z$."":B.16|
000008C0: 3A 81 47 B2 30 A4 30 3A 44 B2 44 AD 42 3A 48 B2 |:.G.0.0:D.D.B:H.|
000008D0: 28 44 AB B5 28 44 29 29 AC 42 3A 5A 24 B2 C7 28 |(D..(D)).B:Z$..(|
000008E0: 35 35 AA 48 AA 37 AC 28 48 B3 31 30 29 29 AA 5A |55.H.7.(H.10)).Z|
000008F0: 24 00 14 11 6A 00 47 B2 AB 44 3A 82 3A 99 22 97 |$...j.G..D:.:.".|
00000900: 48 45 58 2D 41 4E 46 41 4E 47 20 3A 05 20 24 22 |HEX-ANFANG :. $"|
00000910: 5A 24 3A 8E 00 00 00 |Z$:.... |
..).... ********************************
*.Q.... * VITALS 1541
*.Y.... ********************************
*...... * WILL CORLEY
*.I.... * 7551 TWILIGHT DR.
*...... * SACRAMENTO, CA
*...... * 95822
*.A.... ********************************
*.J...DC$."":. X.1 . 44:. A:DC$.DC$.G(A)
:....... 53280,11:. 53281,12:. ".".....I
.512:K$.G(0)...... .14) ".VITALS 1541".P
.... .14) "............"...... .10)"(C)
BY WILL CORLEY......"...... ".FILE TO A
NALYZE.";N$...... C(N$).16 . N$."" . ..V
... 15:. 15,8,15,"I":. 49:TY$."P":A.1.R
.... 2,8,2,N$.",".TY$.",R"......15,E:. E
.20 . 26..... 2. .... E..64 . ....... A
.1 . TY$."S".H.... A.2 . TY$."U".V.... A
.3 . ......A.A.1:. 18......#2,A$:SL.B(51
2):.#2,A$:SH.B(512).'....15,"M-R" G(24)
K$ G(2).I....#15,A$:T.B(I):.#15,A$:S.B(I
).Z... 2:.15,"U;":. 2,8,2,"#3":. 49:.15
,"B-P";2;0......2,DC$;......15,"M-W" G(6
) G(0) G(2) G(T) G(S).I. ..15,"M-E" G(0)
G(6): 2...!..15,"M-R" G(10) K$ G(2)...
"..#15,A$:L.B(I):.#15,A$:H.B(I).$.#..15,
"M-R" G(1) G(3) G(1).=.$..#15,A$:BYTES.B
(I).1.F.%. 15.].&.. ".FILE TYPE:. ";.Y.
'.. TY$."P" . . "PROGRAM"...(.. TY$."S"
. . "SEQUENTIAL"...).. TY$."U" . . "USER
".K.*.. ".BLOCKS:." H.256.L...+.. ".BYTE
S:." (H.256.L.1).254.BYTES.1...,.. TY$..
"P" . 46.*.-.. ".START ADDRESS:."SH.256.
SL.E.... ".STARTING TRACK:."T.F./.. ".ST
ARTING SECTOR:."S:.100..0.. 198,0:. 198
,1:. 54...1..15,E,E$,ET,ES:. E.20 . ....
2. 2: 15...3.. "DISK ERROR".N.4.. E,E$
,ET;ES...5.TI$."000000":. 161,1:....6..
"....".@.7.." VITALS 1541 HAS BEEN REL
EASED TO THE PUBLIC DOMAIN AS FREEWARE";
.|.8..".A DONATION OF $1,5 OR 10 WOULD G
LADLY BE ACCEPTED!"...9.. " .SUPPO
RT THE FREEWARE CONCEPT!".D.:.. .14)"...
WILL CORLEY"...;.. .11)"7551 TWILIGHT DR
."...<.. .13)"SACRAMENTO,CA"...=.. .17)"
95822".).>.TI$."000000":. 161,1:..].?.DC
$."":Y.49152:. X.1 . 184:. A:DC$.DC$.G(A
):.:....@.. 169,0,133,10,133,11,169,176,
133,0...A.. 165,0,48,252,169,128,133,0,1
65,0.S.B.. 48,252,230,10,208,2,230,11,17
3,0...C.. 3,208,1,96,133,6,173,1,3,133..
.D.. 7,24,144,218./.D.. ****************
***************.U.E.. * IMPROVED BY ZEI
TGEIST FOR *.{.F.. * DA QL MAG PUBLI
CATION *...G.. **********************
*********...H.D.SH.256.SL...I.Z$."":B.16
:.G.0.0:D.D.B:H.(D..(D)).B:Z$.G(55.H.7.(
H.10)).Z$...J.G..D:.:.".HEX-ANFANG :. $"
Z$:....
> CLICK IMAGE PREVIEW FOR FULL MODAL