S£G-POINTER
FILE INFORMATION
FILENAME(S): S£G-POINTER
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 19:38:38
APPEARS ON: 1 disk(s)
FILE HASH
9ea71b31c799702a763475bd0ca5ae7e356baaaaa9d04bb903022f3dacd41ab8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST DISK | S£G-POINTER | PRG | Curtcool, Brian | 17 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 12 08 A0 0F 8F 2A 49 4E 49 54 49 41 4C 49 |.......*INITIALI| 00000010: 53 45 00 32 08 AA 0F 86 50 54 52 24 28 31 39 29 |SE.2....PTR$(19)| 00000020: 2C 41 24 28 34 39 39 29 3A 49 54 B2 32 3A 48 4F |,A$(499):IT.2:HO| 00000030: B2 30 00 41 08 B4 0F 41 24 28 30 29 B2 C7 28 30 |.0.A...A$(0)..(0| 00000040: 29 00 52 08 BE 0F 41 24 28 31 29 B2 C7 28 32 35 |).R...A$(1)..(25| 00000050: 35 29 00 72 08 C8 0F 50 54 52 24 28 30 29 B2 C7 |5).r...PTR$(0)..| 00000060: 28 30 29 AA C7 28 30 29 AA C7 28 30 29 AA C7 28 |(0)..(0)..(0)..(| 00000070: 31 29 00 83 08 88 13 8F 2A 49 4E 50 55 54 20 49 |1)......*INPUT I| 00000080: 54 45 4D 00 A3 08 92 13 85 22 49 54 45 4D 20 54 |TEM......"ITEM T| 00000090: 4F 20 42 45 20 49 4E 53 45 52 54 45 44 3A 22 3B |O BE INSERTED:";| 000000A0: 49 4E 24 00 C0 08 94 13 8B 49 4E 24 B2 22 5F 22 |IN$......IN$."_"| 000000B0: A7 8D 36 30 30 30 3A 89 35 30 31 30 41 44 59 2E |..6000:.5010ADY.| 000000C0: 00 CF 08 96 13 8B 49 4E 24 B2 22 5E 22 A7 90 00 |......IN$."^"...| 000000D0: EE 08 98 13 8B 49 4E 24 B2 22 50 52 49 4E 54 22 |.....IN$."PRINT"| 000000E0: A7 20 8D 20 37 30 30 30 3A 89 35 30 31 30 00 F8 |. . 7000:.5010..| 000000F0: 08 9C 13 8D 38 30 30 30 00 11 09 9E 13 54 54 B2 |....8000.....TT.| 00000100: 49 54 3A 8B C3 28 45 53 24 29 B2 30 A7 35 30 33 |IT:..(ES$).0.503| 00000110: 30 00 2F 09 A0 13 54 54 B2 32 35 36 AC C6 28 45 |0./...TT.256..(E| 00000120: 53 24 29 AA C6 28 CA 28 45 53 24 2C 32 29 29 00 |S$)..(.(ES$,2)).| 00000130: 40 09 A2 13 45 53 24 B2 CA 28 45 53 24 2C 33 29 |@...ES$..(ES$,3)| 00000140: 00 54 09 A4 13 49 54 B2 49 54 AB 31 3A 48 4F B2 |.T...IT.IT.1:HO.| 00000150: 48 4F AB 31 00 7A 09 A6 13 4E 4E 24 B2 C7 28 54 |HO.1.z...NN$..(T| 00000160: 54 AD 32 35 36 29 AA C7 28 54 54 AB 32 35 36 AC |T.256)..(TT.256.| 00000170: B5 28 54 54 AD 32 35 36 29 29 00 B1 09 B0 13 50 |.(TT.256)).....P| 00000180: 54 52 24 28 4C 4C 29 B2 C8 28 50 54 52 24 28 4C |TR$(LL)..(PTR$(L| 00000190: 4C 29 2C 32 AC 4C 50 AB 32 29 AA 4E 4E 24 AA CA |L),2.LP.2).NN$..| 000001A0: 28 50 54 52 24 28 4C 4C 29 2C 32 AC 4C 50 AB 31 |(PTR$(LL),2.LP.1| 000001B0: 29 00 C0 09 BA 13 41 24 28 54 54 29 B2 49 4E 24 |).....A$(TT).IN$| 000001C0: 00 CA 09 C4 13 8D 39 30 30 30 00 D6 09 CE 13 49 |......9000.....I| 000001D0: 54 B2 49 54 AA 31 00 E0 09 D8 13 89 35 30 31 30 |T.IT.1......5010| 000001E0: 00 EF 09 70 17 8F 2A 44 45 4C 45 54 45 2A 2A 00 |...p..*DELETE**.| 000001F0: 11 0A 7A 17 85 22 49 54 45 4D 20 54 4F 20 44 45 |..z.."ITEM TO DE| 00000200: 4C 45 54 45 44 3A 22 3B 49 4E 24 3A 8D 38 30 30 |LETED:";IN$:.800| 00000210: 30 00 25 0A 84 17 8B 49 4E 24 B3 B1 41 24 28 50 |0.%....IN$..A$(P| 00000220: 41 29 A7 20 8E 00 58 0A 8E 17 50 54 52 24 28 4C |A). ..X...PTR$(L| 00000230: 4C 29 B2 C8 28 50 54 52 24 28 4C 4C 29 2C 32 AC |L)..(PTR$(LL),2.| 00000240: 4C 50 AB 32 29 AA CA 28 50 54 52 24 28 4C 4C 29 |LP.2)..(PTR$(LL)| 00000250: 2C 32 AC 4C 50 AA 31 29 00 62 0A 98 17 8D 39 35 |,2.LP.1).b....95| 00000260: 30 30 00 6E 0A A2 17 48 4F B2 48 4F AA 31 00 7C |00.n...HO.HO.1.|| 00000270: 0A AC 17 41 24 28 50 41 29 B2 22 22 00 A6 0A B1 |...A$(PA).""....| 00000280: 17 45 53 24 B2 C7 28 50 41 AD 32 35 36 29 AA C7 |.ES$..(PA.256)..| 00000290: 28 50 41 AB 32 35 36 AC B5 28 50 41 AD 32 35 36 |(PA.256..(PA.256| 000002A0: 29 29 AA 45 53 24 00 AC 0A B6 17 8E 00 BD 0A 58 |)).ES$.........X| 000002B0: 1B 8F 2A 50 52 49 4E 54 20 4C 49 53 54 00 CD 0A |..*PRINT LIST...| 000002C0: 5D 1B 8B 49 54 AB 48 4F B2 32 A7 20 8E 00 DF 0A |]..IT.HO.2. ....| 000002D0: 62 1B 81 50 50 B2 32 A4 49 54 AB 48 4F AB 31 00 |b..PP.2.IT.HO.1.| 000002E0: 01 0B 6C 1B 4C 4C B2 B5 28 28 50 50 AB 31 29 AD |..l.LL..((PP.1).| 000002F0: 31 32 35 29 3A 4C 50 B2 50 50 AB 31 32 35 AC 4C |125):LP.PP.125.L| 00000300: 4C 00 36 0B 76 1B 50 41 B2 32 35 36 AC C6 28 CA |L.6.v.PA.256..(.| 00000310: 28 50 54 52 24 28 4C 4C 29 2C 32 AC 4C 50 AB 31 |(PTR$(LL),2.LP.1| 00000320: 29 29 AA C6 28 CA 28 50 54 52 24 28 4C 4C 29 2C |))..(.(PTR$(LL),| 00000330: 32 AC 4C 50 29 29 00 42 0B 80 1B 99 41 24 28 50 |2.LP)).B....A$(P| 00000340: 41 29 00 4A 0B 8A 1B 82 50 50 00 50 0B 94 1B 8E |A).J....PP.P....| 00000350: 00 68 0B 40 1F 8F 2A 4F 42 54 41 49 4E 20 50 4F |.h.@..*OBTAIN PO| 00000360: 53 49 54 49 4F 4E 2A 2A 00 78 0B 4A 1F 81 50 50 |SITION**.x.J..PP| 00000370: B2 31 A4 49 54 AB 48 4F 00 9A 0B 54 1F 4C 4C B2 |.1.IT.HO...T.LL.| 00000380: B5 28 28 50 50 AB 31 29 AD 31 32 35 29 3A 4C 50 |.((PP.1).125):LP| 00000390: B2 50 50 AB 31 32 35 AC 4C 4C 00 CF 0B 5E 1F 50 |.PP.125.LL...^.P| 000003A0: 41 B2 32 35 36 AC C6 28 CA 28 50 54 52 24 28 4C |A.256..(.(PTR$(L| 000003B0: 4C 29 2C 32 AC 4C 50 AB 31 29 29 AA C6 28 CA 28 |L),2.LP.1))..(.(| 000003C0: 50 54 52 24 28 4C 4C 29 2C 32 AC 4C 50 29 29 00 |PTR$(LL),2.LP)).| 000003D0: E3 0B 68 1F 8B 41 24 28 50 41 29 B3 49 4E 24 A7 |..h..A$(PA).IN$.| 000003E0: 82 50 50 00 E9 0B 72 1F 8E 00 0C 0C 28 23 8F 2A |.PP...r.....(#.*| 000003F0: 52 45 41 52 52 41 4E 47 45 20 41 52 52 41 59 20 |REARRANGE ARRAY | 00000400: 46 4F 52 20 41 44 44 49 54 49 4F 4E 00 18 0C 32 |FOR ADDITION...2| 00000410: 23 81 49 B2 30 A4 31 38 00 34 0C 3C 23 8B C3 28 |#.I.0.18.4.<#..(| 00000420: 50 54 52 24 28 49 29 29 B3 B2 32 35 30 20 A7 20 |PTR$(I))..250 . | 00000430: 39 30 35 30 00 59 0C 46 23 50 54 52 24 28 49 AA |9050.Y.F#PTR$(I.| 00000440: 31 29 B2 C9 28 50 54 52 24 28 49 29 2C 32 29 AA |1)..(PTR$(I),2).| 00000450: 50 54 52 24 28 49 AA 31 29 00 7D 0C 50 23 50 54 |PTR$(I.1).}.P#PT| 00000460: 52 24 28 49 29 B2 C8 28 50 54 52 24 28 49 29 2C |R$(I)..(PTR$(I),| 00000470: C3 28 50 54 52 24 28 49 29 29 AB 32 29 00 84 0C |.(PTR$(I)).2)...| 00000480: 5A 23 82 49 00 8A 0C 64 23 8E 00 B0 0C 1C 25 8F |Z#.I...d#.....%.| 00000490: 2A 52 45 2D 41 52 52 41 4E 47 45 20 41 52 52 41 |*RE-ARRANGE ARRA| 000004A0: 59 20 46 4F 52 20 44 45 4C 45 54 49 4F 4E 2A 2A |Y FOR DELETION**| 000004B0: 00 BC 0C 26 25 81 49 B2 30 A4 31 38 00 E5 0C 30 |...&%.I.0.18...0| 000004C0: 25 8B C3 28 50 54 52 24 28 49 29 29 B1 B2 32 35 |%..(PTR$(I))..25| 000004D0: 30 B0 C3 28 50 54 52 24 28 49 AA 31 29 29 B2 30 |0..(PTR$(I.1)).0| 000004E0: A7 39 35 35 30 00 08 0D 3A 25 50 54 52 24 28 49 |.9550...:%PTR$(I| 000004F0: 29 B2 50 54 52 24 28 49 29 AA C8 28 50 54 52 24 |).PTR$(I)..(PTR$| 00000500: 28 49 AA 31 29 2C 32 29 00 25 0D 44 25 50 54 52 |(I.1),2).%.D%PTR| 00000510: 24 28 49 AA 31 29 B2 CA 28 50 54 52 24 28 49 AA |$(I.1)..(PTR$(I.| 00000520: 31 29 2C 33 29 00 2C 0D 4E 25 82 49 00 32 0D 58 |1),3).,.N%.I.2.X| 00000530: 25 8E 00 00 00 |%.... |
.... ..*INITIALISE.2....PTR$(19),A$(499) :IT.2:HO.0.A...A$(0).G(0).R...A$(1).G(25 5).R.H.PTR$(0).G(0).G(0).G(0).G(1)...... *INPUT ITEM......"ITEM TO BE INSERTED:"; IN$......IN$."_"..6000:.5010ADY..O....IN $."^"........IN$."PRINT". . 7000:.5010.. ....8000.....TT.IT:.C(ES$).0.5030./. .TT .256.F(ES$).F(J(ES$,2)).@...ES$.J(ES$,3) .T...IT.IT.1:HO.HO.1.Z...NN$.G(TT.256).G (TT.256..(TT.256)).....PTR$(LL).H(PTR$(L L),2.LP.2).NN$.J(PTR$(LL),2.LP.1).....A$ (TT).IN$.J.D..9000.V.N.IT.IT.1...X..5010 ...P..*DELETE**...Z.."ITEM TO DELETED:"; IN$:.8000.%....IN$..A$(PA). ..X...PTR$(L L).H(PTR$(LL),2.LP.2).J(PTR$(LL),2.LP.1) .B....9500.N...HO.HO.1.|...A$(PA)."".... .ES$.G(PA.256).G(PA.256..(PA.256)).ES$.. .......X..*PRINT LIST.M.]..IT.HO.2. .... B..PP.2.IT.HO.1...L.LL..((PP.1).125):LP. PP.125.LL.6.V.PA.256.F(J(PTR$(LL),2.LP.1 )).F(J(PTR$(LL),2.LP)).B....A$(PA).J.... PP.P.....H.@..*OBTAIN POSITION**.X.J..PP .1.IT.HO...T.LL..((PP.1).125):LP.PP.125. LL.O.^.PA.256.F(J(PTR$(LL),2.LP.1)).F(J( PTR$(LL),2.LP))...H..A$(PA).IN$..PP...R. ....(#.*REARRANGE ARRAY FOR ADDITION...2 #.I.0.18.4.<#.C(PTR$(I))..250 . 9050.Y.F #PTR$(I.1).I(PTR$(I),2).PTR$(I.1).}.P#PT R$(I).H(PTR$(I),C(PTR$(I)).2)...Z#.I...D #.....%.*RE-ARRANGE ARRAY FOR DELETION** ...&%.I.0.18...0%.C(PTR$(I))..250.C(PTR$ (I.1)).0.9550...:%PTR$(I).PTR$(I).H(PTR$ (I.1),2).%.D%PTR$(I.1).J(PTR$(I.1),3).,. N%.I.2.X%....
> CLICK IMAGE PREVIEW FOR FULL MODAL