TXT.PGM
FILE INFORMATION
FILENAME(S): TXT.PGM
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 2 disk(s)
FILE HASH
3ba681398bf954d172100d5d8e646dc86fb3a264a38ba978fa2a82712d610295
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| D F UE | TXT.PGM | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 8 | DOWNLOAD FILE |
| FREESOFT DISK NR | TXT.PGM | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 39 08 0E F6 41 B2 C2 28 36 31 29 AA 32 35 |..9...A..(61).25|
00000010: 36 AC C2 28 36 32 29 AA 33 3A 97 37 38 36 2C B5 |6..(62).3:.786,.|
00000020: 28 41 AD 32 35 36 29 3A 97 37 38 35 2C 41 AB 32 |(A.256):.785,A.2|
00000030: 35 36 AC C2 28 37 38 36 29 00 69 08 13 F6 8B 45 |56..(786).i....E|
00000040: 52 A7 97 41 AB 32 2C 30 3A 97 41 AB 31 2C 30 3A |R..A.2,0:.A.1,0:|
00000050: 97 34 35 2C C2 28 37 38 35 29 3A 97 34 36 2C C2 |.45,.(785):.46,.|
00000060: 28 37 38 36 29 3A 9C 3A 80 00 87 08 18 F6 97 20 |(786):.:....... |
00000070: 35 33 32 38 30 2C 36 3A 97 35 33 32 38 31 2C 31 |53280,6:.53281,1|
00000080: 3A 97 36 34 36 2C 36 00 93 08 21 F6 99 C7 28 31 |:.646,6...!...(1|
00000090: 34 37 29 00 DB 08 22 F6 99 22 54 48 49 53 20 50 |47)...".."THIS P|
000000A0: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 54 55 52 4E |ROGRAM WILL TURN|
000000B0: 20 54 45 58 54 20 42 41 53 49 43 20 46 49 4C 45 | TEXT BASIC FILE|
000000C0: 53 20 49 4E 54 4F 20 52 55 4E 20 42 41 53 49 43 |S INTO RUN BASIC|
000000D0: 20 50 52 4F 47 52 41 4D 53 22 3B 00 18 09 2C F6 | PROGRAMS";...,.|
000000E0: 99 22 20 55 53 49 4E 47 20 54 48 45 20 20 20 20 |." USING THE |
000000F0: 20 20 20 43 4F 4D 4D 4F 44 4F 52 45 20 44 41 54 | COMMODORE DAT|
00000100: 41 53 45 54 54 45 20 4F 52 20 41 20 44 49 53 4B |ASETTE OR A DISK|
00000110: 20 44 52 49 56 45 2E 22 00 46 09 36 F6 99 C7 28 | DRIVE.".F.6...(|
00000120: 31 37 29 22 54 48 45 20 50 52 4F 47 52 41 4D 20 |17)"THE PROGRAM |
00000130: 57 49 4C 4C 20 44 45 4C 45 54 45 20 41 4E 59 20 |WILL DELETE ANY |
00000140: 4C 49 4E 45 20 22 00 88 09 40 F6 99 22 4F 46 20 |LINE "...@.."OF |
00000150: 54 48 45 20 46 49 4C 45 20 49 4E 20 43 41 53 45 |THE FILE IN CASE|
00000160: 20 49 54 20 49 53 20 4E 4F 54 20 41 20 20 20 20 | IT IS NOT A |
00000170: 20 20 20 20 20 50 52 4F 47 52 41 4D 20 4C 49 4E | PROGRAM LIN|
00000180: 45 2E 22 C7 28 31 37 29 00 AF 09 43 F6 85 22 4E |E.".(17)...C.."N|
00000190: 41 4D 45 20 4F 46 20 46 49 4C 45 20 54 4F 20 42 |AME OF FILE TO B|
000001A0: 45 20 43 4F 4E 56 45 52 54 45 44 22 3B 46 24 00 |E CONVERTED";F$.|
000001B0: E8 09 45 F6 99 22 20 20 20 20 20 22 C7 28 31 38 |..E.." ".(18|
000001C0: 29 22 54 22 C7 28 31 34 36 29 22 41 50 45 20 20 |)"T".(146)"APE |
000001D0: 4F 52 20 22 C7 28 31 38 29 22 44 22 C7 28 31 34 |OR ".(18)"D".(14|
000001E0: 36 29 22 49 53 4B 3F 22 00 FD 09 46 F6 A1 41 24 |6)"ISK?"...F..A$|
000001F0: 3A 8B 41 24 B2 22 22 A7 36 33 30 34 36 00 1C 0A |:.A$."".63046...|
00000200: 47 F6 8B 41 24 B2 22 54 22 A7 99 22 93 22 3A 9F |G..A$."T"..".":.|
00000210: 31 2C 31 2C 30 3A 89 36 33 30 39 38 00 2F 0A 48 |1,1,0:.63098./.H|
00000220: F6 8B 41 24 B3 B1 22 44 22 A7 36 33 30 34 36 00 |..A$.."D".63046.|
00000230: 4C 0A 68 F6 99 22 48 49 54 20 41 20 4B 45 59 20 |L.h.."HIT A KEY |
00000240: 57 48 45 4E 20 52 45 41 44 59 21 22 00 61 0A 6D |WHEN READY!".a.m|
00000250: F6 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 33 30 38 |..A$:.A$."".6308|
00000260: 35 00 6D 0A 72 F6 99 C7 28 31 34 37 29 00 7B 0A |5.m.r...(147).{.|
00000270: 79 F6 9F 33 2C 38 2C 33 2C 46 24 00 AF 0A 7A F6 |y..3,8,3,F$...z.|
00000280: 99 22 52 45 41 44 49 4E 47 20 46 49 4C 45 2C 20 |."READING FILE, |
00000290: 50 4C 45 41 53 45 20 42 45 20 50 41 54 49 45 4E |PLEASE BE PATIEN|
000002A0: 54 21 22 3A 81 58 B2 31 A4 31 30 30 30 3A 82 00 |T!":.X.1.1000:..|
000002B0: C0 0A 7B F6 97 31 35 32 2C 33 3A 54 24 B2 22 22 |..{..152,3:T$.""|
000002C0: 00 D8 0A 7C F6 A1 23 33 2C 41 24 3A 8B 41 24 B2 |...|..#3,A$:.A$.|
000002D0: 22 22 A7 36 33 31 30 30 00 16 0B 80 F6 8B 41 24 |"".63100......A$|
000002E0: B2 C7 28 31 37 37 29 A7 36 33 32 35 30 3A 8F 20 |..(177).63250:. |
000002F0: 50 55 54 20 43 48 52 24 28 31 37 37 29 20 41 54 |PUT CHR$(177) AT|
00000300: 20 45 4E 44 20 4F 46 20 41 4C 4C 20 54 41 50 45 | END OF ALL TAPE|
00000310: 20 46 49 4C 45 53 00 5D 0B 81 F6 8B 53 54 B3 B1 | FILES.]....ST..|
00000320: 30 A7 36 33 32 35 30 3A 8F 20 45 4E 44 20 4F 46 |0.63250:. END OF|
00000330: 20 44 49 53 4B 20 46 49 4C 45 3F 20 2A 2A 44 4F | DISK FILE? **DO|
00000340: 4E 27 54 20 55 53 45 20 54 48 49 53 20 4C 49 4E |N'T USE THIS LIN|
00000350: 45 20 46 4F 52 20 54 41 50 45 21 21 21 00 94 0B |E FOR TAPE!!!...|
00000360: 82 F6 8B 41 24 B2 C7 28 31 33 29 A7 36 33 31 33 |...A$..(13).6313|
00000370: 30 3A 8F 20 54 45 53 54 20 46 4F 52 20 3C 43 52 |0:. TEST FOR <CR|
00000380: 3E 20 41 54 20 45 4E 44 20 4F 46 20 54 48 45 20 |> AT END OF THE |
00000390: 4C 49 4E 45 00 A1 0B 86 F6 54 24 B2 54 24 AA 41 |LINE.....T$.T$.A|
000003A0: 24 00 B2 0B 8B F6 41 24 B2 22 22 3A 89 36 33 31 |$.....A$."":.631|
000003B0: 30 30 00 CC 0B 9A F6 8B C3 28 54 24 29 B3 33 A7 |00.......(T$).3.|
000003C0: 54 24 B2 22 22 3A 89 36 33 31 30 30 00 F7 0B A4 |T$."":.63100....|
000003D0: F6 8B C8 28 54 24 2C 31 29 B2 C7 28 31 30 29 A7 |...(T$,1)..(10).|
000003E0: 36 33 32 35 30 3A 8F 20 54 45 53 54 20 46 4F 52 |63250:. TEST FOR|
000003F0: 20 52 45 41 44 59 2E 00 39 0C A5 F6 8F 20 54 45 | READY..9.... TE|
00000400: 53 54 20 46 4F 52 20 49 4E 56 41 4C 49 44 20 50 |ST FOR INVALID P|
00000410: 52 4F 47 52 41 4D 20 4C 49 4E 45 20 4F 52 20 53 |ROGRAM LINE OR S|
00000420: 59 53 54 45 4D 20 50 52 4F 4D 50 54 20 4F 52 20 |YSTEM PROMPT OR |
00000430: 57 48 41 54 45 56 45 52 21 00 67 0C A6 F6 8B C5 |WHATEVER!.g.....|
00000440: 28 C8 28 54 24 2C 31 29 29 B2 30 A7 99 54 24 3A |(.(T$,1)).0..T$:|
00000450: 54 24 B2 C9 28 54 24 2C C3 28 54 24 29 AB 31 29 |T$..(T$,.(T$).1)|
00000460: 3A 89 36 33 31 33 30 00 9E 0C F4 F6 99 C7 28 31 |:.63130.......(1|
00000470: 34 37 29 C7 28 33 31 29 22 20 20 20 20 20 20 54 |47).(31)" T|
00000480: 52 41 4E 53 4C 41 54 49 4E 47 20 54 45 58 54 20 |RANSLATING TEXT |
00000490: 49 4E 54 4F 20 42 41 53 49 43 2E 2E 2E 22 00 C4 |INTO BASIC..."..|
000004A0: 0C F9 F6 99 C7 28 35 29 3B C7 28 31 37 29 3B C7 |.....(5);.(17);.|
000004B0: 28 31 37 29 3B 54 24 3A 99 22 47 4F 54 4F 36 33 |(17);T$:."GOTO63|
000004C0: 30 39 39 22 00 E8 0C 03 F7 97 31 39 38 2C 32 3A |099"......198,2:|
000004D0: 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A |.631,13:.632,13:|
000004E0: 99 C7 28 31 39 29 3A 80 00 14 0D 08 F7 8B C5 28 |..(19):........(|
000004F0: C8 28 54 24 2C 31 29 29 B2 30 A7 54 24 B2 C9 28 |.(T$,1)).0.T$..(|
00000500: 54 24 2C 28 C3 28 54 24 29 AB 31 29 29 3A 89 36 |T$,(.(T$).1)):.6|
00000510: 33 31 34 30 00 42 0D 12 F7 99 C7 28 31 34 37 29 |3140.B.....(147)|
00000520: C7 28 33 31 29 22 43 4F 4E 56 45 52 53 49 4F 4E |.(31)"CONVERSION|
00000530: 20 43 4F 4D 50 4C 45 54 45 21 21 21 22 3A A0 33 | COMPLETE!!!":.3|
00000540: 3A 99 00 8B 0D 1C F7 99 22 44 4F 20 59 4F 55 20 |:......."DO YOU |
00000550: 57 41 4E 54 20 54 48 49 53 20 43 4F 4E 56 45 52 |WANT THIS CONVER|
00000560: 54 45 52 20 50 41 52 54 20 4F 46 20 54 48 45 20 |TER PART OF THE |
00000570: 20 50 52 4F 47 52 41 4D 20 44 45 4C 45 54 45 44 | PROGRAM DELETED|
00000580: 20 42 45 46 4F 52 45 20 59 4F 55 00 A8 0D 1E F7 | BEFORE YOU.....|
00000590: 99 22 53 41 56 45 20 54 48 45 20 4E 45 57 20 50 |."SAVE THE NEW P|
000005A0: 52 4F 47 52 41 4D 3F 22 00 BD 0D 21 F7 A1 41 24 |ROGRAM?"...!..A$|
000005B0: 3A 8B 41 24 B2 22 22 A7 36 33 32 36 35 00 D5 0D |:.A$."".63265...|
000005C0: 22 F7 8B 41 24 B2 22 59 22 A7 45 52 B2 31 3A 89 |"..A$."Y".ER.1:.|
000005D0: 36 32 39 39 30 00 05 0E 26 F7 99 22 41 4C 4C 20 |62990...&.."ALL |
000005E0: 44 4F 4E 45 20 4E 4F 57 2C 20 54 48 45 4E 2C 20 |DONE NOW, THEN, |
000005F0: 4C 4F 4F 4B 20 41 54 20 54 48 45 20 4C 49 53 54 |LOOK AT THE LIST|
00000600: 49 4E 47 21 22 00 0B 0E 30 F7 80 00 00 00 |ING!"...0..... |
..9...A.B(61).256.B(62).3:.786,.(A.256):
.785,A.256.B(786).I....ER..A.2,0:.A.1,0:
.45,B(785):.46,B(786):.:....... 53280,6:
.53281,1:.646,6...!..G(147)...".."THIS P
ROGRAM WILL TURN TEXT BASIC FILES INTO R
UN BASIC PROGRAMS";...,.." USING THE
COMMODORE DATASETTE OR A DISK DRIVE."
.F.6..G(17)"THE PROGRAM WILL DELETE ANY
LINE "...@.."OF THE FILE IN CASE IT IS N
OT A PROGRAM LINE."G(17)...C.."N
AME OF FILE TO BE CONVERTED";F$...E.."
"G(18)"T"G(146)"APE OR "G(18)"D"G(14
6)"ISK?"...F..A$:.A$."".63046...G..A$."T
"..".":.1,1,0:.63098./.H..A$.."D".63046.
L.H.."HIT A KEY WHEN READY!".A.M..A$:.A$
."".63085.M.R..G(147).{.Y..3,8,3,F$...Z.
."READING FILE, PLEASE BE PATIENT!":.X.1
.1000:....{..152,3:T$."".X.|..#3,A$:.A$.
"".63100......A$.G(177).63250:. PUT CHR$
(177) AT END OF ALL TAPE FILES.]....ST..
0.63250:. END OF DISK FILE? **DON'T USE
THIS LINE FOR TAPE!!!......A$.G(13).6313
0:. TEST FOR <CR> AT END OF THE LINE....
.T$.T$.A$.....A$."":.63100.L....C(T$).3.
T$."":.63100......H(T$,1).G(10).63250:.
TEST FOR READY..9.... TEST FOR INVALID P
ROGRAM LINE OR SYSTEM PROMPT OR WHATEVER
!.G....E(H(T$,1)).0..T$:T$.I(T$,C(T$).1)
:.63130......G(147)G(31)" TRANSLATI
NG TEXT INTO BASIC...".D....G(5);G(17);G
(17);T$:."GOTO63099"......198,2:.631,13:
.632,13:.G(19):.......E(H(T$,1)).0.T$.I(
T$,(C(T$).1)):.63140.B....G(147)G(31)"CO
NVERSION COMPLETE!!!": 3:......."DO YOU
WANT THIS CONVERTER PART OF THE PROGRAM
DELETED BEFORE YOU......"SAVE THE NEW P
ROGRAM?"...!..A$:.A$."".63265.U."..A$."Y
".ER.1:.62990...&.."ALL DONE NOW, THEN,
LOOK AT THE LISTING!"...0.....
> CLICK IMAGE PREVIEW FOR FULL MODAL