POINTER
FILE INFORMATION
FILENAME(S): POINTER
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-12-02 00:01:56
APPEARS ON: 1 disk(s)
FILE HASH
fdc57dd4c462db7380887c2a270ebd5d0d58b2bbd2cb3b5b253c50baf45bfdde
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | POINTER | PRG | earthshaker | 8 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 5A 00 99 22 93 05 22 3A 97 35 33 32 |....Z.."..":.532| 00000010: 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 32 08 |81,0:.53280,0.2.| 00000020: 64 00 9F 31 35 2C 38 2C 31 35 2C 22 49 22 3A A0 |d..15,8,15,"I":.| 00000030: 31 35 00 3C 08 6E 00 42 4C B2 32 31 00 5D 08 78 |15.<.n.BL.21.].x| 00000040: 00 99 22 93 11 11 27 44 49 53 4B 50 4F 49 4E 54 |.."...'DISKPOINT| 00000050: 45 52 20 44 49 53 50 4C 41 59 27 2E 22 00 AB 08 |ER DISPLAY'."...| 00000060: 82 00 99 22 11 54 48 49 53 20 50 52 4F 47 52 41 |...".THIS PROGRA| 00000070: 4D 20 57 49 4C 4C 20 44 49 53 50 4C 41 59 20 20 |M WILL DISPLAY | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 | THE| 00000090: 20 46 4F 52 57 41 52 44 20 50 4F 49 4E 54 45 52 | FORWARD POINTER| 000000A0: 53 20 4F 46 20 45 56 45 52 59 22 00 F7 08 8C 00 |S OF EVERY".....| 000000B0: 99 22 44 49 53 4B 42 4C 4F 43 4B 20 41 4E 44 20 |."DISKBLOCK AND | 000000C0: 54 48 45 52 45 27 53 20 41 4E 20 4F 50 54 49 4F |THERE'S AN OPTIO| 000000D0: 4E 20 54 4F 20 20 20 20 20 20 44 49 53 50 4C 41 |N TO DISPLA| 000000E0: 59 20 54 48 45 4D 20 4F 4E 20 41 20 4D 4F 4E 49 |Y THEM ON A MONI| 000000F0: 54 4F 52 20 41 53 22 00 16 09 96 00 99 22 57 45 |TOR AS"......"WE| 00000100: 4C 4C 20 41 53 20 4F 4E 20 54 48 45 20 50 52 49 |LL AS ON THE PRI| 00000110: 4E 54 45 52 2E 22 00 64 09 A0 00 99 22 11 11 54 |NTER.".d...."..T| 00000120: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 41 53 20 |HIS PROGRAM WAS | 00000130: 41 4E 41 4C 49 5A 45 44 20 20 20 20 20 20 20 20 |ANALIZED | 00000140: 20 20 20 20 20 20 20 41 4E 44 20 57 52 49 54 54 | AND WRITT| 00000150: 45 4E 20 42 59 20 48 41 4E 20 50 4F 53 54 48 55 |EN BY HAN POSTHU| 00000160: 4D 41 2E 22 00 90 09 AA 00 53 50 24 B2 22 20 22 |MA.".....SP$." "| 00000170: 3A 4E 4C 24 B2 C7 28 30 29 3A 48 58 24 B2 22 30 |:NL$..(0):HX$."0| 00000180: 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 22 |123456789ABCDEF"| 00000190: 00 C0 09 B4 00 53 53 24 B2 22 20 20 22 3A 81 49 |.....SS$." ":.I| 000001A0: B2 31 39 32 A4 32 32 33 3A 53 53 24 B2 53 53 24 |.192.223:SS$.SS$| 000001B0: AA 22 12 22 AA C7 28 49 29 AA 22 92 22 3A 82 49 |."."..(I).".":.I| 000001C0: 00 D3 09 BE 00 86 41 24 28 31 35 29 2C 4E 42 24 |......A$(15),NB$| 000001D0: 28 32 29 00 ED 09 C8 00 85 22 11 11 44 52 49 56 |(2)......"..DRIV| 000001E0: 45 20 23 20 28 30 2F 31 29 22 3B 44 24 00 08 0A |E # (0/1)";D$...| 000001F0: D2 00 9F 31 35 2C 38 2C 31 35 2C 22 49 22 AA 44 |...15,8,15,"I".D| 00000200: 24 3A 8D 20 31 31 39 30 00 11 0A DC 00 9F 34 2C |$:. 1190......4,| 00000210: 34 00 2B 0A E6 00 9F 32 2C 38 2C 32 2C 22 23 22 |4.+....2,8,2,"#"| 00000220: AA 22 30 22 3A 8D 20 31 31 39 30 00 56 0A F0 00 |."0":. 1190.V...| 00000230: 99 22 11 11 4F 55 54 50 55 54 20 4F 4E 20 12 53 |."..OUTPUT ON .S| 00000240: 92 43 52 45 45 4E 20 4F 52 20 12 50 92 52 49 4E |.CREEN OR .P.RIN| 00000250: 54 45 52 20 3F 22 00 69 0A FA 00 A1 4D 24 3A 8B |TER ?".i....M$:.| 00000260: 4D 24 B2 22 22 89 32 35 30 00 80 0A 04 01 8B 4D |M$."".250......M| 00000270: 24 B2 22 50 22 B0 4D 24 B2 22 53 22 89 32 38 30 |$."P".M$."S".280| 00000280: 00 89 0A 0E 01 89 32 35 30 00 B2 0A 18 01 8B 4D |......250......M| 00000290: 24 B2 22 50 22 A7 99 22 53 57 49 54 43 48 20 54 |$."P".."SWITCH T| 000002A0: 48 45 20 50 52 49 4E 54 45 52 20 4F 4E 20 41 4E |HE PRINTER ON AN| 000002B0: 44 22 00 D0 0A 22 01 8B 4D 24 B2 22 50 22 A7 99 |D"..."..M$."P"..| 000002C0: 22 50 52 45 53 53 20 41 20 4B 45 59 2E 2E 2E 22 |"PRESS A KEY..."| 000002D0: 00 E3 0A 2C 01 A1 48 24 3A 8B 48 24 B2 22 22 89 |...,..H$:.H$."".| 000002E0: 33 30 30 00 1A 0B 36 01 8B 4D 24 B2 22 53 22 A7 |300...6..M$."S".| 000002F0: 99 22 93 54 52 41 43 4B 22 A3 31 30 29 22 53 45 |.".TRACK".10)"SE| 00000300: 43 54 4F 52 22 A3 32 30 29 22 24 46 2F 57 20 50 |CTOR".20)"$F/W P| 00000310: 4F 49 4E 54 45 52 24 3A 11 22 00 42 0B 40 01 8B |OINTER$:.".B.@..| 00000320: 4D 24 B2 22 50 22 A7 98 34 3A 98 34 2C 22 54 52 |M$."P"..4:.4,"TR| 00000330: 41 43 4B 22 3B A6 36 29 3B 22 53 45 43 54 4F 52 |ACK";.6);"SECTOR| 00000340: 22 3B 00 66 0B 4A 01 8B 4D 24 B2 22 50 22 A7 98 |";.f.J..M$."P"..| 00000350: 34 2C A6 31 35 29 3B 22 24 46 2F 57 20 50 4F 49 |4,.15);"$F/W POI| 00000360: 4E 54 45 52 24 22 00 6D 0B 4B 01 98 34 00 99 0B |NTER$".m.K..4...| 00000370: 54 01 81 54 B2 31 A4 31 37 3A 81 53 B2 30 A4 32 |T..T.1.17:.S.0.2| 00000380: 30 3A 98 31 35 2C 22 55 31 3A 32 2C 22 44 24 3B |0:.15,"U1:2,"D$;| 00000390: 54 3B 53 3A 8D 31 31 39 30 00 C2 0B 5E 01 56 B2 |T;S:.1190...^.V.| 000003A0: 53 3A 98 31 35 2C 22 42 2D 50 3A 32 2C 30 22 3A |S:.15,"B-P:2,0":| 000003B0: 98 31 35 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 31 |.15,"M-R".(0).(1| 000003C0: 37 29 00 E5 0B 68 01 A1 23 31 35 2C 41 24 28 30 |7)...h..#15,A$(0| 000003D0: 29 3A 8B 41 24 28 30 29 B2 22 22 A7 41 24 28 30 |):.A$(0)."".A$(0| 000003E0: 29 B2 4E 4C 24 00 FC 0B 72 01 4B B2 31 3A 4E 42 |).NL$...r.K.1:NB| 000003F0: 28 31 29 B2 C6 28 41 24 28 30 29 29 00 07 0C 7C |(1)..(A$(0))...|| 00000400: 01 81 49 B2 4B A4 37 00 29 0C 86 01 A1 23 32 2C |..I.K.7.)....#2,| 00000410: 41 24 28 49 29 3A 8B 41 24 28 49 29 B2 22 22 A7 |A$(I):.A$(I)."".| 00000420: 41 24 28 49 29 B2 4E 4C 24 00 45 0C 90 01 8B 4B |A$(I).NL$.E....K| 00000430: B2 31 AF 49 B3 32 A7 4E 42 28 32 29 B2 C6 28 41 |.1.I.2.NB(2)..(A| 00000440: 24 28 49 29 29 00 50 0C 9A 01 82 49 3A 4B B2 30 |$(I)).P....I:K.0| 00000450: 00 79 0C A4 01 41 24 B2 22 22 3A 42 24 B2 22 3A |.y...A$."":B$.":| 00000460: 20 22 3A 4E B2 4A AC 38 3A 8D 31 32 32 30 3A 41 | ":N.J.8:.1220:A| 00000470: 24 B2 41 24 AA 22 3A 20 22 00 95 0C AE 01 81 49 |$.A$.": "......I| 00000480: B2 30 A4 32 3A 4E B2 C6 28 41 24 28 49 29 29 3A |.0.2:N..(A$(I)):| 00000490: 8D 31 32 32 30 00 B1 0C B8 01 43 24 B2 41 24 28 |.1220.....C$.A$(| 000004A0: 49 29 3A 8D 31 32 35 30 3A 42 24 B2 42 24 AA 43 |I):.1250:B$.B$.C| 000004B0: 24 00 B8 0C C2 01 82 49 00 C7 0C CC 01 41 24 B2 |$......I.....A$.| 000004C0: C9 28 41 24 2C 36 29 00 E1 0C D6 01 8B 4D 24 B2 |.(A$,6)......M$.| 000004D0: 22 53 22 A7 99 54 A3 31 30 29 53 A3 32 30 29 41 |"S"..T.10)S.20)A| 000004E0: 24 00 FC 0C D7 01 45 24 B2 C4 28 53 29 3A 42 B2 |$.....E$..(S):B.| 000004F0: C3 28 45 24 29 3A 42 B2 42 4C AB 42 00 1B 0D E0 |.(E$):B.BL.B....| 00000500: 01 8B 4D 24 B2 22 50 22 A7 98 34 2C 54 3B A6 31 |..M$."P"..4,T;.1| 00000510: 30 29 3B 53 3B A6 42 29 3B 41 24 00 22 0D EA 01 |0);S;.B);A$."...| 00000520: 82 53 00 32 0D F4 01 8B 4D 24 B2 22 50 22 89 35 |.S.2....M$."P".5| 00000530: 32 30 00 45 0D FE 01 A1 48 24 3A 8B 48 24 B2 22 |20.E....H$:.H$."| 00000540: 22 89 35 31 30 00 7C 0D 08 02 8B 4D 24 B2 22 53 |".510.|....M$."S| 00000550: 22 A7 99 22 93 54 52 41 43 4B 22 A3 31 30 29 22 |"..".TRACK".10)"| 00000560: 53 45 43 54 4F 52 22 A3 32 30 29 22 24 46 2F 57 |SECTOR".20)"$F/W| 00000570: 20 50 4F 49 4E 54 45 52 24 3A 11 22 00 B5 0D 12 | POINTER$:."....| 00000580: 02 8B 4D 24 B2 22 50 22 A7 98 34 3A 98 34 2C 22 |..M$."P"..4:.4,"| 00000590: 54 52 41 43 4B 22 A6 36 29 22 53 45 43 54 4F 52 |TRACK".6)"SECTOR| 000005A0: 22 A6 31 35 29 22 24 46 2F 57 20 50 4F 49 4E 54 |".15)"$F/W POINT| 000005B0: 45 52 24 3A 22 00 BC 0D 13 02 98 34 00 C3 0D 1C |ER$:"......4....| 000005C0: 02 82 54 00 F0 0D 26 02 81 54 B2 31 38 A4 32 34 |..T...&..T.18.24| 000005D0: 3A 81 53 B2 30 A4 31 38 3A 98 31 35 2C 22 55 31 |:.S.0.18:.15,"U1| 000005E0: 3A 32 2C 22 44 24 3B 54 3B 53 3A 8D 31 31 39 30 |:2,"D$;T;S:.1190| 000005F0: 00 19 0E 30 02 56 B2 53 3A 98 31 35 2C 22 42 2D |...0.V.S:.15,"B-| 00000600: 50 3A 32 2C 30 22 3A 98 31 35 2C 22 4D 2D 52 22 |P:2,0":.15,"M-R"| 00000610: C7 28 30 29 C7 28 31 37 29 00 3C 0E 3A 02 A1 23 |.(0).(17).<.:..#| 00000620: 31 35 2C 41 24 28 30 29 3A 8B 41 24 28 30 29 B2 |15,A$(0):.A$(0).| 00000630: 22 22 A7 41 24 28 30 29 B2 4E 4C 24 00 53 0E 44 |"".A$(0).NL$.S.D| 00000640: 02 4B B2 31 3A 4E 42 28 31 29 B2 C6 28 41 24 28 |.K.1:NB(1)..(A$(| 00000650: 30 29 29 00 5E 0E 4E 02 81 49 B2 4B A4 37 00 80 |0)).^.N..I.K.7..| 00000660: 0E 58 02 A1 23 32 2C 41 24 28 49 29 3A 8B 41 24 |.X..#2,A$(I):.A$| 00000670: 28 49 29 B2 22 22 A7 41 24 28 49 29 B2 4E 4C 24 |(I)."".A$(I).NL$| 00000680: 00 9C 0E 62 02 8B 4B B2 31 AF 49 B3 32 A7 4E 42 |...b..K.1.I.2.NB| 00000690: 28 32 29 B2 C6 28 41 24 28 49 29 29 00 A7 0E 6C |(2)..(A$(I))...l| 000006A0: 02 82 49 3A 4B B2 30 00 D0 0E 76 02 41 24 B2 22 |..I:K.0...v.A$."| 000006B0: 22 3A 42 24 B2 22 3A 20 22 3A 4E B2 4A AC 38 3A |":B$.": ":N.J.8:| 000006C0: 8D 31 32 32 30 3A 41 24 B2 41 24 AA 22 3A 20 22 |.1220:A$.A$.": "| 000006D0: 00 EC 0E 80 02 81 49 B2 30 A4 32 3A 4E B2 C6 28 |......I.0.2:N..(| 000006E0: 41 24 28 49 29 29 3A 8D 31 32 32 30 00 08 0F 8A |A$(I)):.1220....| 000006F0: 02 43 24 B2 41 24 28 49 29 3A 8D 31 32 35 30 3A |.C$.A$(I):.1250:| 00000700: 42 24 B2 42 24 AA 43 24 00 0F 0F 94 02 82 49 00 |B$.B$.C$......I.| 00000710: 1E 0F 9E 02 41 24 B2 C9 28 41 24 2C 36 29 00 38 |....A$..(A$,6).8| 00000720: 0F A8 02 8B 4D 24 B2 22 53 22 A7 99 54 A3 31 30 |....M$."S"..T.10| 00000730: 29 53 A3 32 30 29 41 24 00 53 0F AD 02 45 24 B2 |)S.20)A$.S...E$.| 00000740: C4 28 53 29 3A 42 B2 C3 28 45 24 29 3A 42 B2 42 |.(S):B..(E$):B.B| 00000750: 4C AB 42 00 6E 0F B2 02 8B 4D 24 B2 22 50 22 A7 |L.B.n....M$."P".| 00000760: 98 34 2C 54 A6 31 30 29 53 A6 42 29 41 24 00 75 |.4,T.10)S.B)A$.u| 00000770: 0F BC 02 82 53 00 85 0F C6 02 8B 4D 24 B2 22 50 |....S......M$."P| 00000780: 22 89 37 33 30 00 98 0F D0 02 A1 48 24 3A 8B 48 |".730......H$:.H| 00000790: 24 B2 22 22 89 37 32 30 00 CF 0F DA 02 8B 4D 24 |$."".720......M$| 000007A0: B2 22 53 22 A7 99 22 93 54 52 41 43 4B 22 A3 31 |."S"..".TRACK".1| 000007B0: 30 29 22 53 45 43 54 4F 52 22 A3 32 30 29 22 24 |0)"SECTOR".20)"$| 000007C0: 46 2F 57 20 50 4F 49 4E 54 45 52 24 3A 11 22 00 |F/W POINTER$:.".| 000007D0: 08 10 E4 02 8B 4D 24 B2 22 50 22 A7 98 34 3A 98 |.....M$."P"..4:.| 000007E0: 34 2C 22 54 52 41 43 4B 22 A6 36 29 22 53 45 43 |4,"TRACK".6)"SEC| 000007F0: 54 4F 52 22 A6 31 35 29 22 24 46 2F 57 20 50 4F |TOR".15)"$F/W PO| 00000800: 49 4E 54 45 52 24 3A 22 00 0F 10 E5 02 98 34 00 |INTER$:"......4.| 00000810: 16 10 EE 02 82 54 00 43 10 F8 02 81 54 B2 32 35 |.....T.C....T.25| 00000820: A4 33 30 3A 81 53 B2 30 A4 31 37 3A 98 31 35 2C |.30:.S.0.17:.15,| 00000830: 22 55 31 3A 32 2C 22 44 24 3B 54 3B 53 3A 8D 31 |"U1:2,"D$;T;S:.1| 00000840: 31 39 30 00 6C 10 02 03 56 B2 53 3A 98 31 35 2C |190.l...V.S:.15,| 00000850: 22 42 2D 50 3A 32 2C 30 22 3A 98 31 35 2C 22 4D |"B-P:2,0":.15,"M| 00000860: 2D 52 22 C7 28 30 29 C7 28 31 37 29 00 8F 10 0C |-R".(0).(17)....| 00000870: 03 A1 23 31 35 2C 41 24 28 30 29 3A 8B 41 24 28 |..#15,A$(0):.A$(| 00000880: 30 29 B2 22 22 A7 41 24 28 30 29 B2 4E 4C 24 00 |0)."".A$(0).NL$.| 00000890: A6 10 16 03 4B B2 31 3A 4E 42 28 31 29 B2 C6 28 |....K.1:NB(1)..(| 000008A0: 41 24 28 30 29 29 00 B1 10 20 03 81 49 B2 4B A4 |A$(0))... ..I.K.| 000008B0: 37 00 D3 10 2A 03 A1 23 32 2C 41 24 28 49 29 3A |7...*..#2,A$(I):| 000008C0: 8B 41 24 28 49 29 B2 22 22 A7 41 24 28 49 29 B2 |.A$(I)."".A$(I).| 000008D0: 4E 4C 24 00 EF 10 34 03 8B 4B B2 31 AF 49 B3 32 |NL$...4..K.1.I.2| 000008E0: A7 4E 42 28 32 29 B2 C6 28 41 24 28 49 29 29 00 |.NB(2)..(A$(I)).| 000008F0: FA 10 3E 03 82 49 3A 4B B2 30 00 23 11 48 03 41 |..>..I:K.0.#.H.A| 00000900: 24 B2 22 22 3A 42 24 B2 22 3A 20 22 3A 4E B2 4A |$."":B$.": ":N.J| 00000910: AC 38 3A 8D 31 32 32 30 3A 41 24 B2 41 24 AA 22 |.8:.1220:A$.A$."| 00000920: 3A 20 22 00 3F 11 52 03 81 49 B2 30 A4 32 3A 4E |: ".?.R..I.0.2:N| 00000930: B2 C6 28 41 24 28 49 29 29 3A 8D 31 32 32 30 00 |..(A$(I)):.1220.| 00000940: 5B 11 5C 03 43 24 B2 41 24 28 49 29 3A 8D 31 32 |[.\.C$.A$(I):.12| 00000950: 35 30 3A 42 24 B2 42 24 AA 43 24 00 62 11 66 03 |50:B$.B$.C$.b.f.| 00000960: 82 49 00 71 11 70 03 41 24 B2 C9 28 41 24 2C 36 |.I.q.p.A$..(A$,6| 00000970: 29 00 8B 11 7A 03 8B 4D 24 B2 22 53 22 A7 99 54 |)...z..M$."S"..T| 00000980: A3 31 30 29 53 A3 32 30 29 41 24 00 A6 11 7F 03 |.10)S.20)A$.....| 00000990: 45 24 B2 C4 28 53 29 3A 42 B2 C3 28 45 24 29 3A |E$..(S):B..(E$):| 000009A0: 42 B2 42 4C AB 42 00 C1 11 84 03 8B 4D 24 B2 22 |B.BL.B......M$."| 000009B0: 50 22 A7 98 34 2C 54 A6 31 30 29 53 A6 42 29 41 |P"..4,T.10)S.B)A| 000009C0: 24 00 C8 11 8E 03 82 53 00 D8 11 98 03 8B 4D 24 |$......S......M$| 000009D0: B2 22 50 22 89 39 34 30 00 EB 11 A2 03 A1 48 24 |."P".940......H$| 000009E0: 3A 8B 48 24 B2 22 22 89 39 33 30 00 22 12 AC 03 |:.H$."".930."...| 000009F0: 8B 4D 24 B2 22 53 22 A7 99 22 93 54 52 41 43 4B |.M$."S"..".TRACK| 00000A00: 22 A3 31 30 29 22 53 45 43 54 4F 52 22 A3 32 30 |".10)"SECTOR".20| 00000A10: 29 22 24 46 2F 57 20 50 4F 49 4E 54 45 52 24 3A |)"$F/W POINTER$:| 00000A20: 11 22 00 5C 12 B6 03 8B 4D 24 B2 22 50 22 A7 98 |.".\....M$."P"..| 00000A30: 34 3A 98 34 2C 22 54 52 41 43 4B 22 A3 31 30 29 |4:.4,"TRACK".10)| 00000A40: 22 53 45 43 54 4F 52 22 A3 31 30 29 22 24 46 2F |"SECTOR".10)"$F/| 00000A50: 57 20 50 4F 49 4E 54 45 52 24 3A 22 00 63 12 B7 |W POINTER$:".c..| 00000A60: 03 98 34 00 6A 12 C0 03 82 54 00 97 12 CA 03 81 |..4.j....T......| 00000A70: 54 B2 33 31 A4 33 35 3A 81 53 B2 30 A4 31 36 3A |T.31.35:.S.0.16:| 00000A80: 98 31 35 2C 22 55 31 3A 32 2C 22 44 24 3B 54 3B |.15,"U1:2,"D$;T;| 00000A90: 53 3A 8D 31 31 39 30 00 C0 12 D4 03 56 B2 53 3A |S:.1190.....V.S:| 00000AA0: 98 31 35 2C 22 42 2D 50 3A 32 2C 30 22 3A 98 31 |.15,"B-P:2,0":.1| 00000AB0: 35 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 31 37 29 |5,"M-R".(0).(17)| 00000AC0: 00 E3 12 DE 03 A1 23 31 35 2C 41 24 28 30 29 3A |......#15,A$(0):| 00000AD0: 8B 41 24 28 30 29 B2 22 22 A7 41 24 28 30 29 B2 |.A$(0)."".A$(0).| 00000AE0: 4E 4C 24 00 FA 12 E8 03 4B B2 31 3A 4E 42 28 31 |NL$.....K.1:NB(1| 00000AF0: 29 B2 C6 28 41 24 28 30 29 29 00 05 13 F2 03 81 |)..(A$(0))......| 00000B00: 49 B2 4B A4 37 00 27 13 FC 03 A1 23 32 2C 41 24 |I.K.7.'....#2,A$| 00000B10: 28 49 29 3A 8B 41 24 28 49 29 B2 22 22 A7 41 24 |(I):.A$(I)."".A$| 00000B20: 28 49 29 B2 4E 4C 24 00 43 13 06 04 8B 4B B2 31 |(I).NL$.C....K.1| 00000B30: AF 49 B3 32 A7 4E 42 28 32 29 B2 C6 28 41 24 28 |.I.2.NB(2)..(A$(| 00000B40: 49 29 29 00 4E 13 10 04 82 49 3A 4B B2 30 00 77 |I)).N....I:K.0.w| 00000B50: 13 1A 04 41 24 B2 22 22 3A 42 24 B2 22 3A 20 22 |...A$."":B$.": "| 00000B60: 3A 4E B2 4A AC 38 3A 8D 31 32 32 30 3A 41 24 B2 |:N.J.8:.1220:A$.| 00000B70: 41 24 AA 22 3A 20 22 00 93 13 24 04 81 49 B2 30 |A$.": "...$..I.0| 00000B80: A4 32 3A 4E B2 C6 28 41 24 28 49 29 29 3A 8D 31 |.2:N..(A$(I)):.1| 00000B90: 32 32 30 00 AF 13 2E 04 43 24 B2 41 24 28 49 29 |220.....C$.A$(I)| 00000BA0: 3A 8D 31 32 35 30 3A 42 24 B2 42 24 AA 43 24 00 |:.1250:B$.B$.C$.| 00000BB0: B6 13 38 04 82 49 00 C5 13 42 04 41 24 B2 C9 28 |..8..I...B.A$..(| 00000BC0: 41 24 2C 36 29 00 DF 13 4C 04 8B 4D 24 B2 22 53 |A$,6)...L..M$."S| 00000BD0: 22 A7 99 54 A3 31 30 29 53 A3 32 30 29 41 24 00 |"..T.10)S.20)A$.| 00000BE0: FA 13 51 04 45 24 B2 C4 28 53 29 3A 42 B2 C3 28 |..Q.E$..(S):B..(| 00000BF0: 45 24 29 3A 42 B2 42 4C AB 42 00 15 14 56 04 8B |E$):B.BL.B...V..| 00000C00: 4D 24 B2 22 50 22 A7 98 34 2C 54 A6 31 30 29 53 |M$."P"..4,T.10)S| 00000C10: A6 42 29 41 24 00 1C 14 60 04 82 53 00 2D 14 6A |.B)A$...`..S.-.j| 00000C20: 04 8B 4D 24 B2 22 50 22 89 31 31 35 30 00 41 14 |..M$."P".1150.A.| 00000C30: 74 04 A1 48 24 3A 8B 48 24 B2 22 22 89 31 31 34 |t..H$:.H$."".114| 00000C40: 30 00 78 14 7E 04 8B 4D 24 B2 22 53 22 A7 99 22 |0.x.~..M$."S".."| 00000C50: 93 54 52 41 43 4B 22 A3 31 30 29 22 53 45 43 54 |.TRACK".10)"SECT| 00000C60: 4F 52 22 A3 32 30 29 22 24 46 2F 57 20 50 4F 49 |OR".20)"$F/W POI| 00000C70: 4E 54 45 52 24 3A 11 22 00 B1 14 88 04 8B 4D 24 |NTER$:."......M$| 00000C80: B2 22 50 22 A7 98 34 3A 98 34 2C 22 54 52 41 43 |."P"..4:.4,"TRAC| 00000C90: 4B 22 A6 36 29 22 53 45 43 54 4F 52 22 A6 31 35 |K".6)"SECTOR".15| 00000CA0: 29 22 24 46 2F 57 20 50 4F 49 4E 54 45 52 24 3A |)"$F/W POINTER$:| 00000CB0: 22 00 B8 14 89 04 98 34 00 BF 14 92 04 82 54 00 |"......4......T.| 00000CC0: CF 14 9C 04 A0 31 35 3A A0 32 3A A0 34 3A 80 00 |.....15:.2:.4:..| 00000CD0: ED 14 A6 04 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 |.....15,EN,EM$,E| 00000CE0: 54 2C 45 53 3A 8B 45 4E B2 30 A7 20 8E 00 1E 15 |T,ES:.EN.0. ....| 00000CF0: B0 04 99 22 11 44 49 53 4B 20 45 52 52 4F 52 21 |...".DISK ERROR!| 00000D00: 22 3A 99 22 11 28 45 52 52 4F 52 20 3A 20 22 45 |":.".(ERROR : "E| 00000D10: 4E 3B 45 4D 24 3B 45 54 3B 45 53 22 29 22 00 24 |N;EM$;ET;ES")".$| 00000D20: 15 BA 04 80 00 47 15 C4 04 41 31 B2 B5 28 4E AD |.....G...A1..(N.| 00000D30: 31 36 29 3A 41 24 B2 41 24 AA CA 28 48 58 24 2C |16):A$.A$..(HX$,| 00000D40: 41 31 AA 31 2C 31 29 00 6D 15 CE 04 41 32 B2 B5 |A1.1,1).m...A2..| 00000D50: 28 4E AB 31 36 AC 41 31 29 3A 41 24 B2 41 24 AA |(N.16.A1):A$.A$.| 00000D60: CA 28 48 58 24 2C 41 32 AA 31 2C 31 29 00 7D 15 |.(HX$,A2.1,1).}.| 00000D70: D8 04 41 24 B2 41 24 AA 53 50 24 3A 8E 00 A2 15 |..A$.A$.SP$:....| 00000D80: E2 04 8B C6 28 43 24 29 B3 33 32 A7 43 24 B2 CA |....(C$).32.C$..| 00000D90: 28 46 24 2C 33 AC C6 28 43 24 29 AA 31 2C 33 29 |(F$,3..(C$).1,3)| 00000DA0: 3A 8E 00 CB 15 EC 04 8B C6 28 43 24 29 B2 33 34 |:........(C$).34| 00000DB0: B0 C6 28 43 24 29 B2 39 38 A7 43 24 B2 43 24 AA |..(C$).98.C$.C$.| 00000DC0: C7 28 32 30 29 AA C7 28 33 34 29 00 E7 15 F6 04 |.(20)..(34).....| 00000DD0: 8B C6 28 43 24 29 B3 31 32 38 B0 C6 28 43 24 29 |..(C$).128..(C$)| 00000DE0: B1 31 35 39 A7 20 8E 00 07 16 00 05 43 24 B2 CA |.159. ......C$..| 00000DF0: 28 53 53 24 2C 33 AC 28 C6 28 43 24 29 AB 31 32 |(SS$,3.(.(C$).12| 00000E00: 37 29 2C 33 29 3A 8E 00 00 00 |7),3):.... |
....Z.."..":.53281,0:.53280,0.2.D..15,8,
15,"I": 15.<.N.BL.21.].X.."...'DISKPOINT
ER DISPLAY'."......".THIS PROGRAM WILL D
ISPLAY THE FORWARD POINTER
S OF EVERY"......"DISKBLOCK AND THERE'S
AN OPTION TO DISPLAY THEM ON A MONI
TOR AS"......"WELL AS ON THE PRINTER.".D
. .."..THIS PROGRAM WAS ANALIZED
AND WRITTEN BY HAN POSTHUMA."....
.SP$." ":NL$.G(0):HX$."0123456789ABCDEF"
.....SS$." ":.I.192.223:SS$.SS$.".".G(I
).".":.I.S....A$(15),NB$(2)...H.."..DRIV
E # (0/1)";D$...R..15,8,15,"I".D$:. 1190
......4,4.+....2,8,2,"#"."0":. 1190.V...
."..OUTPUT ON .S.CREEN OR .P.RINTER ?".I
....M$:.M$."".250......M$."P".M$."S".280
......250......M$."P".."SWITCH THE PRINT
ER ON AND".P."..M$."P".."PRESS A KEY..."
...,..H$:.H$."".300...6..M$."S"..".TRACK
".10)"SECTOR".20)"$F/W POINTER$:.".B.@..
M$."P"..4:.4,"TRACK";.6);"SECTOR";.F.J..
M$."P"..4,.15);"$F/W POINTER$".M.K..4...
T..T.1.17:.S.0.20:.15,"U1:2,"D$;T;S:.119
0.B.^.V.S:.15,"B-P:2,0":.15,"M-R"G(0)G(1
7)...H..#15,A$(0):.A$(0)."".A$(0).NL$...
R.K.1:NB(1).F(A$(0))...|..I.K.7.)....#2,
A$(I):.A$(I)."".A$(I).NL$.E....K.1.I.2.N
B(2).F(A$(I)).P....I:K.0.Y...A$."":B$.":
":N.J.8:.1220:A$.A$.": "......I.0.2:N.F
(A$(I)):.1220.....C$.A$(I):.1250:B$.B$.C
$...B..I.G.L.A$.I(A$,6)...V..M$."S"..T.1
0)S.20)A$...W.E$.D(S):B.C(E$):B.BL.B....
..M$."P"..4,T;.10);S;.B);A$."....S.2....
M$."P".520.E....H$:.H$."".510.|....M$."S
"..".TRACK".10)"SECTOR".20)"$F/W POINTER
$:."......M$."P"..4:.4,"TRACK".6)"SECTOR
".15)"$F/W POINTER$:"......4.C....T...&.
.T.18.24:.S.0.18:.15,"U1:2,"D$;T;S:.1190
...0.V.S:.15,"B-P:2,0":.15,"M-R"G(0)G(17
).<.:..#15,A$(0):.A$(0)."".A$(0).NL$.S.D
.K.1:NB(1).F(A$(0)).^.N..I.K.7...X..#2,A
$(I):.A$(I)."".A$(I).NL$...B..K.1.I.2.NB
(2).F(A$(I))...L..I:K.0.P.V.A$."":B$.":
":N.J.8:.1220:A$.A$.": "......I.0.2:N.F(
A$(I)):.1220.....C$.A$(I):.1250:B$.B$.C$
......I.....A$.I(A$,6).8....M$."S"..T.10
)S.20)A$.S...E$.D(S):B.C(E$):B.BL.B.N...
.M$."P"..4,T.10)S.B)A$.U....S...F..M$."P
".730...P..H$:.H$."".720.O.Z..M$."S"..".
TRACK".10)"SECTOR".20)"$F/W POINTER$:.".
.....M$."P"..4:.4,"TRACK".6)"SECTOR".15)
"$F/W POINTER$:"......4......T.C....T.25
.30:.S.0.17:.15,"U1:2,"D$;T;S:.1190.L...
V.S:.15,"B-P:2,0":.15,"M-R"G(0)G(17)....
..#15,A$(0):.A$(0)."".A$(0).NL$.....K.1:
NB(1).F(A$(0))... ..I.K.7.S.*..#2,A$(I):
.A$(I)."".A$(I).NL$...4..K.1.I.2.NB(2).F
(A$(I))...>..I:K.0.#.H.A$."":B$.": ":N.J
.8:.1220:A$.A$.": ".?.R..I.0.2:N.F(A$(I)
):.1220.[.\.C$.A$(I):.1250:B$.B$.C$.B.F.
.I.Q.P.A$.I(A$,6)...Z..M$."S"..T.10)S.20
)A$....E$.D(S):B.C(E$):B.BL.B.A....M$."
P"..4,T.10)S.B)A$.H....S.X....M$."P".940
......H$:.H$."".930."....M$."S"..".TRACK
".10)"SECTOR".20)"$F/W POINTER$:.".\....
M$."P"..4:.4,"TRACK".10)"SECTOR".10)"$F/
W POINTER$:".C....4.J....T...J..T.31.35:
.S.0.16:.15,"U1:2,"D$;T;S:.1190...T.V.S:
.15,"B-P:2,0":.15,"M-R"G(0)G(17)......#1
5,A$(0):.A$(0)."".A$(0).NL$.....K.1:NB(1
).F(A$(0))......I.K.7.'....#2,A$(I):.A$(
I)."".A$(I).NL$.C....K.1.I.2.NB(2).F(A$(
I)).N....I:K.0.W...A$."":B$.": ":N.J.8:.
1220:A$.A$.": "...$..I.0.2:N.F(A$(I)):.1
220.....C$.A$(I):.1250:B$.B$.C$...8..I.E
.B.A$.I(A$,6)...L..M$."S"..T.10)S.20)A$.
..Q.E$.D(S):B.C(E$):B.BL.B...V..M$."P"..
4,T.10)S.B)A$...`..S.-.J..M$."P".1150.A.
T..H$:.H$."".1140.X.~..M$."S"..".TRACK".
10)"SECTOR".20)"$F/W POINTER$:."......M$
."P"..4:.4,"TRACK".6)"SECTOR".15)"$F/W P
OINTER$:"......4......T.O... 15: 2: 4:..
.....15,EN,EM$,ET,ES:.EN.0. .......".DIS
K ERROR!":.".(ERROR : "EN;EM$;ET;ES")".$
.....G.D.A1..(N.16):A$.A$.J(HX$,A1.1,1).
M.N.A2..(N.16.A1):A$.A$.J(HX$,A2.1,1).}.
X.A$.A$.SP$:.......F(C$).32.C$.J(F$,3.F(
C$).1,3):..K....F(C$).34.F(C$).98.C$.C$.
G(20).G(34)......F(C$).128.F(C$).159. ..
....C$.J(SS$,3.(F(C$).127),3):....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL