TRELO
FILE INFORMATION
FILENAME(S): TRELO
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-12-01 01:10:11
APPEARS ON: 1 disk(s)
FILE HASH
a70d6f36793c91899c3c29af7f2645f5f02cfcbf4ade35a5ff5fcaaddc077eaa
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LASSES NYTTO PGR | TRELO | PRG | hedning, Martin L0fgren | 2 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 01 00 8B 41 B2 30 A7 41 B2 31 3A 93 |.......A.0.A.1:.| 00000010: 22 54 4D 41 43 48 52 45 4C 4F 22 2C 38 2C 31 00 |"TMACHRELO",8,1.| 00000020: 37 08 02 00 97 35 33 32 38 30 2C 31 31 3A 97 35 |7....53280,11:.5| 00000030: 33 32 38 31 2C 31 31 00 6D 08 03 00 99 22 93 11 |3281,11.m...."..| 00000040: 9E 20 20 54 52 45 4C 4F 2F 4C 4F 41 44 45 52 20 |. TRELO/LOADER | 00000050: 99 50 53 49 44 41 43 20 28 43 29 38 34 20 56 42 |.PSIDAC (C)84 VB| 00000060: 4E 05 22 3A 99 22 11 11 22 3A 89 31 35 00 AC 08 |N.":."..":.15...| 00000070: 08 00 99 22 11 50 55 54 20 43 50 59 20 54 41 50 |...".PUT CPY TAP| 00000080: 45 20 49 4E 20 44 52 49 56 45 20 2D 20 53 45 54 |E IN DRIVE - SET| 00000090: 20 46 4F 52 20 12 20 52 45 43 4F 52 44 92 22 3A | FOR . RECORD.":| 000000A0: 99 22 11 50 52 45 53 53 20 46 37 22 00 BF 08 09 |.".PRESS F7"....| 000000B0: 00 A1 41 24 3A 8B 41 24 B3 B1 22 88 22 A7 39 00 |..A$:.A$..".".9.| 000000C0: EF 08 0A 00 99 22 11 53 41 56 49 4E 47 20 22 3B |.....".SAVING ";| 000000D0: 4E 46 24 3B 22 20 46 52 4F 4D 20 22 3B 42 47 3B |NF$;" FROM ";BG;| 000000E0: 22 20 54 4F 20 22 3B 45 41 3A 9E 38 30 34 33 00 |" TO ";EA:.8043.| 000000F0: 29 09 0B 00 8B 43 4B 24 B2 22 44 22 A7 9F 31 35 |)....CK$."D"..15| 00000100: 2C 38 2C 31 35 3A 84 31 35 2C 41 24 2C 42 24 2C |,8,15:.15,A$,B$,| 00000110: 43 24 2C 44 24 3A 99 22 11 22 41 24 2C 42 24 2C |C$,D$:."."A$,B$,| 00000120: 43 24 2C 44 24 3A A0 31 35 00 5B 09 0C 00 97 38 |C$,D$:.15.[....8| 00000130: 30 34 37 2C 31 3A 97 38 30 34 39 2C 31 3A 85 22 |047,1:.8049,1:."| 00000140: 11 05 4D 41 4B 45 20 4E 45 57 20 54 41 50 45 20 |..MAKE NEW TAPE | 00000150: 48 45 41 44 45 52 22 3B 41 4B 24 00 6C 09 0D 00 |HEADER";AK$.l...| 00000160: 8B 41 4B 24 B2 22 59 22 A7 31 30 30 00 7F 09 0E |.AK$."Y".100....| 00000170: 00 8B 43 4B 24 B2 22 44 22 A7 32 30 30 3A 80 00 |..CK$."D".200:..| 00000180: B0 09 0F 00 99 22 11 50 4C 41 43 45 20 4F 52 49 |.....".PLACE ORI| 00000190: 47 49 4E 41 4C 20 54 41 50 45 20 49 4E 20 44 52 |GINAL TAPE IN DR| 000001A0: 49 56 45 22 3A 97 31 2C C2 28 31 29 AF 32 32 33 |IVE":.1,.(1).223| 000001B0: 00 E0 09 14 00 99 22 11 50 45 52 46 4F 52 4D 20 |......".PERFORM | 000001C0: 54 41 50 45 20 4C 4F 41 44 2E 2E 2E 20 57 48 45 |TAPE LOAD... WHE| 000001D0: 4E 20 46 4F 55 4E 44 20 4D 45 53 53 41 47 45 22 |N FOUND MESSAGE"| 000001E0: 00 11 0A 15 00 99 22 11 41 50 50 45 41 52 53 2C |......".APPEARS,| 000001F0: 20 9E 52 55 4E 2F 53 54 4F 50 05 20 54 48 45 4E | .RUN/STOP. THEN| 00000200: 20 45 4E 54 45 52 20 9E 52 55 4E 32 35 05 22 3A | ENTER .RUN25.":| 00000210: 80 00 37 0A 19 00 97 35 32 2C 32 30 3A 97 35 36 |..7....52,20:.56| 00000220: 2C 32 30 3A 97 35 33 32 38 30 2C 31 31 3A 97 35 |,20:.53280,11:.5| 00000230: 33 32 38 31 2C 31 31 00 63 0A 1A 00 41 48 B2 C2 |3281,11.c...AH..| 00000240: 28 38 33 30 29 3A 41 4C B2 C2 28 38 32 39 29 3A |(830):AL..(829):| 00000250: 42 48 B2 C2 28 38 33 32 29 3A 42 4C B2 C2 28 38 |BH..(832):BL..(8| 00000260: 33 31 29 00 9E 0A 1B 00 4F 44 B2 28 C2 28 38 33 |31).....OD.(.(83| 00000270: 30 29 AC 32 35 36 29 AA C2 28 38 32 39 29 3A 4F |0).256)..(829):O| 00000280: 45 B2 28 C2 28 38 33 32 29 AC 32 35 36 29 AA C2 |E.(.(832).256)..| 00000290: 28 38 33 31 29 3A 42 59 B2 4F 45 AB 4F 44 00 BB |(831):BY.OE.OD..| 000002A0: 0A 1C 00 42 47 B2 33 32 AC 32 35 36 3A 97 32 35 |...BG.32.256:.25| 000002B0: 34 2C 33 32 3A 97 32 35 33 2C 30 00 E7 0A 1E 00 |4,32:.253,0.....| 000002C0: 99 22 93 11 9E 20 20 54 52 45 4C 4F 2F 4C 4F 41 |."... TRELO/LOA| 000002D0: 44 45 52 20 99 50 53 49 44 41 43 20 28 43 29 38 |DER .PSIDAC (C)8| 000002E0: 34 20 56 42 4E 05 22 00 1C 0B 20 00 97 31 2C C2 |4 VBN."... ..1,.| 000002F0: 28 31 29 AF 32 32 33 3A 99 22 11 12 52 45 57 49 |(1).223:."..REWI| 00000300: 4E 44 20 54 41 50 45 20 92 50 52 45 53 53 20 46 |ND TAPE .PRESS F| 00000310: 37 20 57 48 45 4E 20 44 4F 4E 45 22 00 30 0B 21 |7 WHEN DONE".0.!| 00000320: 00 A1 41 24 3A 8B 41 24 B3 B1 22 88 22 A7 33 33 |..A$:.A$..".".33| 00000330: 00 67 0B 22 00 97 31 2C C2 28 31 29 B0 33 32 3A |.g."..1,.(1).32:| 00000340: 99 22 91 12 50 52 45 53 53 20 50 4C 41 59 20 92 |."..PRESS PLAY .| 00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000360: 20 20 20 20 20 20 22 00 9C 0B 23 00 85 22 11 49 | "...#..".I| 00000370: 4E 50 55 54 20 12 45 58 41 43 54 92 20 46 49 4C |NPUT .EXACT. FIL| 00000380: 45 4E 41 4D 45 22 3B 4E 46 24 3A 4E 4C B2 C3 28 |ENAME";NF$:NL..(| 00000390: 4E 46 24 29 3A 97 32 35 31 2C 4E 4C 00 AC 0B 28 |NF$):.251,NL...(| 000003A0: 00 9E 38 30 30 38 3A 9E 38 31 30 33 00 E6 0B 2D |..8008:.8103...-| 000003B0: 00 99 22 91 91 91 23 20 4F 46 20 42 59 54 45 53 |.."...# OF BYTES| 000003C0: 3D 22 42 59 3B 22 20 20 20 20 20 20 20 20 20 20 |="BY;" | 000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 45 41 | ":EA| 000003E0: B2 42 47 AA 42 59 00 30 0C 32 00 99 22 11 4F 52 |.BG.BY.0.2..".OR| 000003F0: 49 47 49 4E 41 4C 20 53 54 41 52 54 49 4E 47 20 |IGINAL STARTING | 00000400: 41 44 44 52 45 53 53 20 3D 20 22 3B 4F 44 3A 99 |ADDRESS = ";OD:.| 00000410: 22 11 4F 52 49 47 49 4E 41 4C 20 45 4E 44 49 4E |".ORIGINAL ENDIN| 00000420: 47 20 41 44 44 52 45 53 53 20 3D 20 22 3B 4F 45 |G ADDRESS = ";OE| 00000430: 00 53 0C 37 00 85 22 11 53 41 56 45 20 4F 4E 20 |.S.7..".SAVE ON | 00000440: 54 2F 44 22 3B 43 4B 24 3A 8B 43 4B 24 B2 22 54 |T/D";CK$:.CK$."T| 00000450: 22 A7 38 00 90 0C 3C 00 99 22 91 50 52 45 50 20 |".8...<..".PREP | 00000460: 44 49 53 4B 20 54 4F 20 43 4F 50 59 20 2D 20 46 |DISK TO COPY - F| 00000470: 37 20 57 48 45 4E 20 52 45 41 44 59 22 3A 97 38 |7 WHEN READY":.8| 00000480: 30 34 37 2C 38 3A 97 38 30 34 39 2C 38 3A 89 39 |047,8:.8049,8:.9| 00000490: 00 C4 0C 64 00 97 38 33 30 2C 41 48 3A 97 38 32 |...d..830,AH:.82| 000004A0: 39 2C 41 4C 3A 97 38 33 32 2C 42 48 3A 97 38 33 |9,AL:.832,BH:.83| 000004B0: 31 2C 42 4C 3A 97 32 35 34 2C 41 48 3A 97 32 35 |1,BL:.254,AH:.25| 000004C0: 33 2C 41 4C 00 D8 0C 69 00 97 31 37 35 2C 42 48 |3,AL...i..175,BH| 000004D0: 3A 97 31 37 34 2C 42 4C 00 08 0D 73 00 99 22 93 |:.174,BL...s..".| 000004E0: 11 20 20 2A 20 20 52 4F 55 54 49 4E 45 20 54 4F |. * ROUTINE TO| 000004F0: 20 52 45 50 4C 41 43 45 20 54 41 50 45 20 48 45 | REPLACE TAPE HE| 00000500: 41 44 45 52 20 20 2A 22 00 40 0D 78 00 97 31 2C |ADER *".@.x..1,| 00000510: C2 28 31 29 AF 32 32 33 3A 99 22 11 20 20 20 12 |.(1).223:.". .| 00000520: 52 45 57 49 4E 44 20 54 41 50 45 20 54 4F 20 45 |REWIND TAPE TO E| 00000530: 58 41 43 54 20 42 45 47 49 4E 4E 49 4E 47 92 22 |XACT BEGINNING."| 00000540: 00 57 0D 7D 00 99 22 11 46 37 20 57 48 45 4E 20 |.W.}..".F7 WHEN | 00000550: 52 45 41 44 59 21 22 00 6D 0D 82 00 A1 41 24 3A |READY!".m....A$:| 00000560: 8B 41 24 B3 B1 22 88 22 A7 20 31 33 30 00 AA 0D |.A$..".". 130...| 00000570: 8C 00 99 22 91 91 91 12 50 52 45 53 53 20 50 4C |..."....PRESS PL| 00000580: 41 59 20 41 4E 44 20 52 45 43 4F 52 44 92 20 20 |AY AND RECORD. | 00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":| 000005A0: 97 31 2C C2 28 31 29 B0 33 32 00 F1 0D 96 00 99 |.1,.(1).32......| 000005B0: 22 11 9E 54 49 4D 45 20 46 4F 52 20 05 45 58 41 |"..TIME FOR .EXA| 000005C0: 43 54 4C 59 9E 20 31 33 2E 31 20 53 45 43 4F 4E |CTLY. 13.1 SECON| 000005D0: 44 53 05 2E 2E 2E 2E 2E 22 3A 99 22 11 54 48 45 |DS......":.".THE| 000005E0: 4E 20 48 49 54 20 12 52 55 4E 2F 53 54 4F 50 92 |N HIT .RUN/STOP.| 000005F0: 22 00 07 0E A0 00 99 22 11 46 37 20 57 48 45 4E |"......".F7 WHEN| 00000600: 20 52 45 41 44 59 22 00 1C 0E AA 00 A1 41 24 3A | READY"......A$:| 00000610: 8B 41 24 B3 B1 22 88 22 A7 31 37 30 00 26 0E B4 |.A$..".".170.&..| 00000620: 00 9E 38 30 34 33 00 59 0E C8 00 99 22 11 55 53 |..8043.Y....".US| 00000630: 45 20 44 49 53 4B 2D 45 44 49 54 4F 52 20 54 4F |E DISK-EDITOR TO| 00000640: 20 52 45 53 45 54 9E 20 4C 4F 41 44 20 54 4F 9F | RESET. LOAD TO.| 00000650: 20 41 44 44 52 45 53 53 22 00 00 00 00 | ADDRESS".... |
.......A.0.A.1:."TMACHRELO",8,1.7....532 80,11:.53281,11.M...."... TRELO/LOADER .PSIDAC (C)84 VBN.":."..":.15......".PUT CPY TAPE IN DRIVE - SET FOR . RECORD.": .".PRESS F7"......A$:.A$..".".9......".S AVING ";NF$;" FROM ";BG;" TO ";EA:.8043. )....CK$."D"..15,8,15:.15,A$,B$,C$,D$:." ."A$,B$,C$,D$: 15.[....8047,1:.8049,1:." ..MAKE NEW TAPE HEADER";AK$.L....AK$."Y" .100.....CK$."D".200:.......".PLACE ORI GINAL TAPE IN DRIVE":.1,B(1).223......". PERFORM TAPE LOAD... WHEN FOUND MESSAGE" ......".APPEARS, .RUN/STOP. THEN ENTER . RUN25.":..7....52,20:.56,20:.53280,11:.5 3281,11.C...AH.B(830):AL.B(829):BH.B(832 ):BL.B(831).....OD.(B(830).256).B(829):O E.(B(832).256).B(831):BY.OE.OD.....BG.32 .256:.254,32:.253,0......"... TRELO/LOA DER .PSIDAC (C)84 VBN."... ..1,B(1).223: ."..REWIND TAPE .PRESS F7 WHEN DONE".0.! ..A$:.A$..".".33.G."..1,B(1).32:."..PRES S PLAY . "...#..".I NPUT .EXACT. FILENAME";NF$:NL.C(NF$):.25 1,NL...(..8008:.8103...-.."...# OF BYTES ="BY;" ":EA.BG.BY.0 .2..".ORIGINAL STARTING ADDRESS = ";OD:. ".ORIGINAL ENDING ADDRESS = ";OE.S.7..". SAVE ON T/D";CK$:.CK$."T".8...<..".PREP DISK TO COPY - F7 WHEN READY":.8047,8:.8 049,8:.9.D.D..830,AH:.829,AL:.832,BH:.83 1,BL:.254,AH:.253,AL.X.I..175,BH:.174,BL ...S..".. * ROUTINE TO REPLACE TAPE HE ADER *".@.X..1,B(1).223:.". .REWIND T APE TO EXACT BEGINNING.".W.}..".F7 WHEN READY!".M....A$:.A$..".". 130......".... PRESS PLAY AND RECORD. ": .1,B(1).32......"..TIME FOR .EXACTLY. 13 .1 SECONDS......":.".THEN HIT .RUN/STOP. "... ..".F7 WHEN READY"......A$:.A$.."." .170.&....8043.Y.H..".USE DISK-EDITOR TO RESET. LOAD TO. ADDRESS"....
> CLICK IMAGE PREVIEW FOR FULL MODAL