SORTPRINT1
FILE INFORMATION
FILENAME(S): SORTPRINT1
FILE TYPE(S): PRG
FILE SIZE: 540b
FIRST SEEN: 2025-11-30 21:23:05
APPEARS ON: 1 disk(s)
FILE HASH
d7f60914aebbcd5c260c23b3d8c15bafbb22dd86132834b71ded2d21b9d4d580
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 55 1 | SORTPRINT1 | PRG | DuncanTwain | 16 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 30 08 32 00 86 41 24 28 36 30 30 29 2C 42 |..0.2..A$(600),B| 00000010: 24 28 36 30 30 29 3A 53 24 B2 22 20 20 20 20 20 |$(600):S$." | 00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000030: 00 61 08 37 00 81 49 B2 31 A4 36 30 30 3A 87 41 |.a.7..I.1.600:.A| 00000040: 24 28 49 29 2C 42 24 28 49 29 3A 8B 41 24 28 49 |$(I),B$(I):.A$(I| 00000050: 29 B2 22 5A 5A 5A 22 A7 4E B2 49 3A 49 B2 36 30 |)."ZZZ".N.I:I.60| 00000060: 30 00 97 08 3A 00 8F 20 33 20 52 49 4A 45 4E 20 |0...:.. 3 RIJEN | 00000070: 36 30 20 41 24 28 49 29 3D 4C 45 46 54 24 28 41 |60 A$(I)=LEFT$(A| 00000080: 24 28 49 29 2B 53 24 2C 31 37 29 2B 42 24 28 49 |$(I)+S$,17)+B$(I| 00000090: 29 2B 22 20 20 20 22 00 B6 08 3C 00 41 24 28 49 |)+" "...<.A$(I| 000000A0: 29 B2 C8 28 41 24 28 49 29 AA 53 24 2C 31 37 29 |)..(A$(I).S$,17)| 000000B0: AA 42 24 28 49 29 00 BD 08 41 00 82 49 00 D0 08 |.B$(I)...A..I...| 000000C0: 46 00 9E 34 39 31 35 32 2C 4E 2C 41 24 28 31 29 |F..49152,N,A$(1)| 000000D0: 00 E8 08 4B 00 9F 34 2C 34 3A 98 34 2C 22 22 3A |...K..4,4:.4,"":| 000000E0: 81 49 B2 31 A4 4E AB 31 00 08 09 4E 00 8F 20 33 |.I.1.N.1...N.. 3| 000000F0: 20 52 49 4A 45 4E 20 38 30 20 50 52 49 4E 54 23 | RIJEN 80 PRINT#| 00000100: 34 2C 41 24 28 49 29 3B 00 15 09 50 00 98 34 2C |4,A$(I);...P..4,| 00000110: 41 24 28 49 29 00 3D 09 55 00 8F 20 33 20 52 49 |A$(I).=.U.. 3 RI| 00000120: 4A 45 4E 20 49 46 49 2F 33 3D 49 4E 54 28 49 2F |JEN IFI/3=INT(I/| 00000130: 33 29 54 48 45 4E 50 52 49 4E 54 23 34 00 50 09 |3)THENPRINT#4.P.| 00000140: 5A 00 82 49 3A 98 34 2C 22 2A 22 3A A0 34 3A 80 |Z..I:.4,"*":.4:.| 00000150: 00 67 09 65 00 83 22 53 48 41 4D 55 53 22 2C 22 |.g.e.."SHAMUS","| 00000160: 31 41 2D 30 30 30 22 00 82 09 66 00 83 22 43 45 |1A-000"...f.."CE| 00000170: 41 53 41 52 2D 43 41 54 22 2C 22 31 41 2D 30 32 |ASAR-CAT","1A-02| 00000180: 35 22 00 98 09 67 00 83 22 50 49 50 45 53 22 2C |5"...g.."PIPES",| 00000190: 22 31 41 2D 30 34 32 22 00 AE 09 68 00 83 22 42 |"1A-042"...h.."B| 000001A0: 45 4E 4A 49 22 2C 22 31 41 2D 30 35 31 22 00 C4 |ENJI","1A-051"..| 000001B0: 09 69 00 83 22 53 50 41 43 45 22 2C 22 31 41 2D |.i.."SPACE","1A-| 000001C0: 30 38 38 22 00 DF 09 6A 00 83 22 41 51 55 41 2D |088"...j.."AQUA-| 000001D0: 50 4C 41 4E 45 22 2C 22 31 41 2D 30 39 38 22 00 |PLANE","1A-098".| 000001E0: 05 0A 6B 00 8F 2D 2D 2D 2D 2D 2D 2D 49 4E 56 55 |..k..-------INVU| 000001F0: 4C 4C 45 4E 20 41 4C 53 20 42 4F 56 45 4E 2D 2D |LLEN ALS BOVEN--| 00000200: 2D 2D 2D 2D 2D 00 19 0A E8 03 83 22 5A 5A 5A 22 |-----......"ZZZ"| 00000210: 2C 22 30 30 30 30 30 30 22 00 00 00 |,"000000"... |
..0.2..A$(600),B$(600):S$."
".A.7..I.1.600:.A$(I),B$(I):.A$(I
)."ZZZ".N.I:I.600...:.. 3 RIJEN 60 A$(I)
=LEFT$(A$(I)+S$,17)+B$(I)+" "...<.A$(I
).H(A$(I).S$,17).B$(I)...A..I.P.F..49152
,N,A$(1)...K..4,4:.4,"":.I.1.N.1...N.. 3
RIJEN 80 PRINT#4,A$(I);...P..4,A$(I).=.
U.. 3 RIJEN IFI/3=INT(I/3)THENPRINT#4.P.
Z..I:.4,"*": 4:..G.E.."SHAMUS","1A-000".
..F.."CEASAR-CAT","1A-025"...G.."PIPES",
"1A-042"...H.."BENJI","1A-051".D.I.."SPA
CE","1A-088"...J.."AQUA-PLANE","1A-098".
..K..-------INVULLEN ALS BOVEN-------...
..."ZZZ","000000"...
> CLICK IMAGE PREVIEW FOR FULL MODAL