DISK BLOCK
FILE INFORMATION
FILENAME(S): DISK BLOCK
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 19:47:23
APPEARS ON: 1 disk(s)
FILE HASH
ea6f682e00a89829bfe5b359c79f23804ce67e599ed4406db59a084b9df0d0bf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A6 1 | DISK BLOCK | PRG | Curtcool, Frank | 23 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 01 00 8F 22 2A 2A 2A 20 C2 4C 4F 43 |..'...."*** .LOC|
00000010: 4B 20 4D 4F 44 49 46 49 45 52 20 20 20 20 20 20 |K MODIFIER |
00000020: 20 20 20 20 2A 2A 2A 00 4D 08 02 00 8F 22 2A 2A | ***.M...."**|
00000030: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000040: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 73 08 | ***.s.|
00000050: 03 00 8F 22 2A 2A 2A 20 42 59 20 D0 41 55 4C 20 |..."*** BY .AUL |
00000060: CB 45 4C 4C 41 4D 20 20 20 20 20 20 20 20 20 20 |.ELLAM |
00000070: 2A 2A 2A 00 99 08 04 00 8F 22 2A 2A 2A 20 20 31 |***......"*** 1|
00000080: 30 35 20 D4 55 54 45 4C 41 20 C8 45 49 47 48 54 |05 .UTELA .EIGHT|
00000090: 53 20 D2 44 2E 20 2A 2A 2A 00 BF 08 05 00 8F 22 |S .D. ***......"|
000000A0: 2A 2A 2A 20 20 C2 52 41 4E 54 46 4F 52 44 2C 20 |*** .RANTFORD, |
000000B0: CF 4E 54 41 52 49 4F 2E 20 20 20 20 2A 2A 2A 00 |.NTARIO. ***.|
000000C0: E5 08 06 00 8F 22 2A 2A 2A 20 20 CE 33 D4 20 31 |....."*** .3. 1|
000000D0: C1 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.4 |
000000E0: 20 20 2A 2A 2A 00 0B 09 07 00 8F 22 2A 2A 2A 20 | ***......"*** |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 CA 55 4C 59 20 | .ULY |
00000100: 31 30 2C 31 39 38 33 20 2A 2A 2A 00 31 09 08 00 |10,1983 ***.1...|
00000110: 8F 22 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 |."*** |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **|
00000130: 2A 00 57 09 0A 00 86 20 43 28 32 35 35 29 2C 43 |*.W.... C(255),C|
00000140: 24 28 32 35 35 29 2C 41 53 24 28 32 35 35 29 2C |$(255),AS$(255),|
00000150: 48 58 24 28 31 35 29 00 71 09 1E 00 81 20 41 B2 |HX$(15).q.... A.|
00000160: 30 20 A4 20 31 35 3A 87 20 48 58 24 28 41 29 3A |0 . 15:. HX$(A):|
00000170: 82 00 88 09 32 00 97 35 33 32 38 31 2C 31 35 3A |....2..53281,15:|
00000180: 97 35 33 32 38 30 2C 36 00 AD 09 61 00 8F 22 2A |.53280,6...a.."*|
00000190: 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |** |
000001A0: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 D2 09 | ***...|
000001B0: 62 00 8F 22 2A 2A 2A 20 CD 45 4E 55 20 20 20 20 |b.."*** .ENU |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
000001D0: 2A 2A 00 F7 09 63 00 8F 22 2A 2A 2A 20 20 20 20 |**...c.."*** |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 20 20 20 2A 2A 2A 00 2E 0A 64 00 99 C7 28 31 | ***...d...(1|
00000200: 34 29 C7 28 38 29 22 93 97 11 20 20 20 20 20 20 |4).(8)"... |
00000210: 20 C2 4C 4F 43 4B 20 4D 4F 44 49 46 49 43 41 54 | .LOCK MODIFICAT|
00000220: 49 4F 4E 20 50 52 4F 47 52 41 4D 2E 20 22 00 59 |ION PROGRAM. ".Y|
00000230: 0A 65 00 99 22 20 20 20 20 20 20 B8 B8 B8 B8 B8 |.e.." .....|
00000240: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000250: B8 B8 B8 B8 B8 B8 B8 B8 22 00 85 0A 69 00 99 22 |........"...i.."|
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 20 98 C2 59 20 D0 41 55 4C 20 CB 45 | ..Y .AUL .E|
00000280: 4C 4C 41 4D 22 00 A8 0A 6E 00 99 22 11 20 20 1F |LLAM"...n..". .|
00000290: 31 97 20 D2 45 41 44 20 42 4C 4F 43 4B 20 46 52 |1. .EAD BLOCK FR|
000002A0: 4F 4D 20 44 49 53 4B 22 00 D2 0A 78 00 99 22 11 |OM DISK"...x..".|
000002B0: 20 20 1F 32 97 20 C4 49 53 50 4C 41 59 20 46 49 | .2. .ISPLAY FI|
000002C0: 52 53 54 20 48 41 4C 46 20 4F 46 20 42 4C 4F 43 |RST HALF OF BLOC|
000002D0: 4B 22 00 FD 0A 82 00 99 22 11 20 20 1F 33 97 20 |K"......". .3. |
000002E0: C4 49 53 50 4C 41 59 20 53 45 43 4F 4E 44 20 48 |.ISPLAY SECOND H|
000002F0: 41 4C 46 20 4F 46 20 42 4C 4F 43 4B 22 00 19 0B |ALF OF BLOCK"...|
00000300: 8C 00 99 22 11 20 20 1F 34 97 20 CD 4F 44 49 46 |...". .4. .ODIF|
00000310: 59 20 41 20 42 59 54 45 22 00 3B 0B 96 00 99 22 |Y A BYTE".;...."|
00000320: 11 20 20 1F 35 97 20 D7 52 49 54 45 20 42 4C 4F |. .5. .RITE BLO|
00000330: 43 4B 20 54 4F 20 44 49 53 4B 22 00 63 0B 9B 00 |CK TO DISK".c...|
00000340: 99 22 11 20 20 1F 36 97 20 D2 45 41 44 20 4E 45 |.". .6. .EAD NE|
00000350: 58 54 20 42 4C 4F 43 4B 20 46 52 4F 4D 20 44 49 |XT BLOCK FROM DI|
00000360: 53 4B 22 00 76 0B A0 00 99 22 11 20 20 1F 37 97 |SK".v....". .7.|
00000370: 20 D1 55 49 54 22 00 93 0B AA 00 99 22 11 11 1F | .UIT"......"...|
00000380: 20 20 20 20 C5 4E 54 45 52 20 43 48 4F 49 43 45 | .NTER CHOICE|
00000390: 2E 97 22 00 BC 0B B4 00 92 31 39 38 2C 31 3A A1 |.."......198,1:.|
000003A0: 43 48 24 3A 8B C5 28 43 48 24 29 B3 31 B0 C5 28 |CH$:..(CH$).1..(|
000003B0: 43 48 24 29 B1 37 20 A7 20 31 38 30 00 CA 0B BE |CH$).7 . 180....|
000003C0: 00 43 48 B2 C5 28 43 48 24 29 00 F8 0B C8 00 91 |.CH..(CH$)......|
000003D0: 20 43 48 20 89 20 31 30 30 30 2C 32 30 30 30 2C | CH . 1000,2000,|
000003E0: 33 30 30 30 2C 34 30 30 30 2C 35 30 30 30 2C 31 |3000,4000,5000,1|
000003F0: 32 30 30 2C 36 30 30 30 00 1C 0C E5 03 8F 22 2A |200,6000......"*|
00000400: 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |** |
00000410: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 40 0C E6 | ***.@..|
00000420: 03 8F 22 2A 2A 2A 20 D2 45 41 44 20 42 4C 4F 43 |.."*** .EAD BLOC|
00000430: 4B 20 46 52 4F 4D 20 44 49 53 4B 20 20 2A 2A 2A |K FROM DISK ***|
00000440: 00 64 0C E7 03 8F 22 2A 2A 2A 20 20 20 20 20 20 |.d...."*** |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 2A 2A 2A 00 81 0C E8 03 85 22 93 11 11 D4 52 | ***......"....R|
00000470: 41 43 4B 20 23 20 20 20 31 38 9D 9D 9D 9D 22 3B |ACK # 18....";|
00000480: 54 00 9C 0C F2 03 85 22 11 11 D3 45 43 54 4F 52 |T......"...ECTOR|
00000490: 20 23 20 20 20 31 9D 9D 9D 22 3B 53 00 B4 0C FC | # 1...";S....|
000004A0: 03 99 22 11 11 D0 4C 45 41 53 45 20 57 41 49 54 |.."...LEASE WAIT|
000004B0: 2E 2E 2E 22 00 C2 0C 06 04 9F 20 31 35 2C 38 2C |..."...... 15,8,|
000004C0: 31 35 00 D2 0C 10 04 9F 20 32 2C 38 2C 32 2C 22 |15...... 2,8,2,"|
000004D0: 23 22 00 E7 0C 12 04 98 31 35 2C 22 55 31 3A 32 |#"......15,"U1:2|
000004E0: 2C 30 22 3B 54 3B 53 00 FC 0C 13 04 84 31 35 2C |,0";T;S......15,|
000004F0: 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 3D 0D 14 |EN,EM$,ET,ES.=..|
00000500: 04 8B 45 4E B1 30 A7 A0 32 3A A0 31 35 3A 99 22 |..EN.0..2:.15:."|
00000510: 1C C5 52 52 4F 52 3A 20 22 45 4D 24 3A 99 22 97 |..RROR: "EM$:.".|
00000520: D0 52 45 53 53 20 41 20 4B 45 59 2E 22 3A 92 31 |.RESS A KEY.":.1|
00000530: 39 38 2C 31 3A 97 31 39 38 2C 30 3A 8E 00 4F 0D |98,1:.198,0:..O.|
00000540: 15 04 98 31 35 2C 22 42 2D 50 3A 32 2C 30 22 00 |...15,"B-P:2,0".|
00000550: 5F 0D 24 04 81 20 4C B2 30 20 A4 20 32 35 35 00 |_.$.. L.0 . 255.|
00000560: 83 0D 2E 04 A1 23 32 2C 43 24 28 4C 29 3A 8B 20 |.....#2,C$(L):. |
00000570: 43 24 28 4C 29 B2 22 22 A7 43 24 28 4C 29 B2 C7 |C$(L)."".C$(L)..|
00000580: 28 30 29 00 9E 0D 38 04 43 28 4C 29 B2 C6 28 43 |(0)...8.C(L)..(C|
00000590: 24 28 4C 29 29 3A 8D 20 38 30 30 30 3A 82 00 A9 |$(L)):. 8000:...|
000005A0: 0D 42 04 A0 32 3A A0 31 35 00 B3 0D 4C 04 89 20 |.B..2:.15...L.. |
000005B0: 31 30 30 00 D6 0D AD 04 8F 22 2A 2A 2A 20 20 20 |100......"*** |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 20 20 2A 2A 2A 00 F9 0D AE 04 8F 22 2A 2A 2A | ***......"***|
000005E0: 20 D2 45 41 44 20 4E 45 58 54 20 42 4C 4F 43 4B | .EAD NEXT BLOCK|
000005F0: 20 20 20 20 20 20 2A 2A 2A 00 1C 0E AF 04 8F 22 | ***......"|
00000600: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |*** |
00000610: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 4A 0E B0 | ***.J..|
00000620: 04 99 22 93 22 3B 3A 8B 20 43 28 30 29 B2 30 20 |..".";:. C(0).0 |
00000630: B0 20 43 28 30 29 B1 33 35 20 B0 20 43 28 31 29 |. C(0).35 . C(1)|
00000640: B1 32 30 20 A7 20 31 30 30 30 00 62 0E BA 04 54 |.20 . 1000.b...T|
00000650: B2 43 28 30 29 3A 53 B2 43 28 31 29 3A 89 31 30 |.C(0):S.C(1):.10|
00000660: 32 30 00 85 0E CD 07 8F 22 2A 2A 2A 20 20 20 20 |20......"*** |
00000670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000680: 20 20 2A 2A 2A 00 A8 0E CE 07 8F 22 2A 2A 2A 20 | ***......"*** |
00000690: C4 49 53 50 4C 41 59 20 46 49 52 53 54 20 48 41 |.ISPLAY FIRST HA|
000006A0: 4C 46 20 20 20 2A 2A 2A 00 CB 0E CF 07 8F 22 2A |LF ***......"*|
000006B0: 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |** |
000006C0: 20 20 20 20 20 20 20 20 2A 2A 2A 00 D4 0E D0 07 | ***.....|
000006D0: 46 42 B2 30 00 F7 0E 31 08 8F 22 2A 2A 2A 20 20 |FB.0...1.."*** |
000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006F0: 20 20 20 20 2A 2A 2A 00 1A 0F 32 08 8F 22 2A 2A | ***...2.."**|
00000700: 2A 20 C4 49 53 50 4C 41 59 20 4F 4E 20 53 43 52 |* .ISPLAY ON SCR|
00000710: 45 45 4E 20 20 20 20 2A 2A 2A 00 3D 0F 33 08 8F |EEN ***.=.3..|
00000720: 22 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 |"*** |
00000730: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 53 0F | ***.S.|
00000740: 34 08 99 22 93 C2 4C 4F 43 4B 20 44 41 54 41 20 |4.."..LOCK DATA |
00000750: 3A 11 22 00 99 0F 3E 08 81 41 B2 30 A4 31 35 3A |:."...>..A.0.15:|
00000760: 99 22 1F 22 48 58 24 28 46 42 AD 31 36 AA B5 28 |."."HX$(FB.16..(|
00000770: 41 AD 32 29 29 48 58 24 28 38 AC 28 41 AB 32 AC |A.2))HX$(8.(A.2.|
00000780: B5 28 41 AD 32 29 29 29 22 97 22 3B 3A 43 24 B2 |.(A.2)))".";:C$.|
00000790: 22 22 3A 81 42 B2 30 A4 37 00 A8 0F 48 08 4E B2 |"":.B.0.7...H.N.|
000007A0: 46 42 AA 38 AC 41 AA 42 00 D3 0F 52 08 8B 20 28 |FB.8.A.B...R.. (|
000007B0: 43 28 4E 29 B1 33 31 AF 43 28 4E 29 B3 31 32 39 |C(N).31.C(N).129|
000007C0: 29 20 B0 20 28 43 28 4E 29 B1 31 35 39 29 A7 32 |) . (C(N).159).2|
000007D0: 31 35 30 00 E7 0F 5C 08 43 24 B2 43 24 AA 22 20 |150...\.C$.C$." |
000007E0: 22 3A 89 32 31 36 30 00 F7 0F 66 08 43 24 B2 43 |":.2160...f.C$.C|
000007F0: 24 AA 43 24 28 4E 29 00 0A 10 70 08 99 22 20 22 |$.C$(N)...p.." "|
00000800: 3B 41 53 24 28 4E 29 3B 3A 82 00 1A 10 7A 08 99 |;AS$(N);:....z..|
00000810: 22 20 20 2D 22 3B 43 24 3A 82 00 44 10 98 08 99 |" -";C$:..D....|
00000820: 22 11 95 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 |"...RESS ANY KEY|
00000830: 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 | TO RETURN TO ME|
00000840: 4E 55 2E 22 00 5A 10 CA 08 92 20 31 39 38 2C 31 |NU.".Z.... 198,1|
00000850: 3A A1 42 24 3A 89 20 31 30 30 00 7D 10 B5 0B 8F |:.B$:. 100.}....|
00000860: 22 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 |"*** |
00000870: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 A0 10 | ***...|
00000880: B6 0B 8F 22 2A 2A 2A 20 C4 49 53 50 4C 41 59 20 |..."*** .ISPLAY |
00000890: 53 45 43 4F 4E 44 20 48 41 4C 46 20 20 2A 2A 2A |SECOND HALF ***|
000008A0: 00 C3 10 B7 0B 8F 22 2A 2A 2A 20 20 20 20 20 20 |......"*** |
000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008C0: 2A 2A 2A 00 D4 10 B8 0B 46 42 B2 31 32 38 3A 89 |***.....FB.128:.|
000008D0: 32 31 30 30 00 F7 10 9D 0F 8F 22 2A 2A 2A 20 20 |2100......"*** |
000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008F0: 20 20 20 20 2A 2A 2A 00 1A 11 9E 0F 8F 22 2A 2A | ***......"**|
00000900: 2A 20 CD 4F 44 49 46 59 20 41 20 42 59 54 45 20 |* .ODIFY A BYTE |
00000910: 20 20 20 20 20 20 20 2A 2A 2A 00 3D 11 9F 0F 8F | ***.=....|
00000920: 22 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 |"*** |
00000930: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 64 11 | ***.d.|
00000940: A0 0F 85 22 93 11 11 C2 59 54 45 20 23 20 28 49 |..."....YTE # (I|
00000950: 4E 20 48 45 58 29 20 20 20 30 30 9D 9D 9D 9D 22 |N HEX) 00...."|
00000960: 3B 42 59 24 00 7B 11 AA 0F 8B 20 C3 28 42 59 24 |;BY$.{.... .(BY$|
00000970: 29 B3 B1 32 20 A7 20 34 30 30 30 00 98 11 B4 0F |)..2 . 4000.....|
00000980: 46 31 B2 30 3A 46 32 B2 30 3A 4C B2 30 3A 81 20 |F1.0:F2.0:L.0:. |
00000990: 42 B2 30 20 A4 20 31 35 00 BD 11 BE 0F 8B 20 C8 |B.0 . 15...... .|
000009A0: 28 42 59 24 2C 31 29 B2 48 58 24 28 42 29 A7 20 |(BY$,1).HX$(B). |
000009B0: 4C B2 4C AA 31 36 AC 42 3A 46 31 B2 31 00 DF 11 |L.L.16.B:F1.1...|
000009C0: C8 0F 8B 20 C9 28 42 59 24 2C 31 29 B2 48 58 24 |... .(BY$,1).HX$|
000009D0: 28 42 29 A7 20 4C B2 4C AA 42 3A 46 32 B2 31 00 |(B). L.L.B:F2.1.|
000009E0: FA 11 D2 0F 82 3A 8B 20 46 31 B2 30 20 B0 20 46 |.....:. F1.0 . F|
000009F0: 32 B2 30 20 A7 20 34 30 30 30 00 21 12 DC 0F 99 |2.0 . 4000.!....|
00000A00: 22 11 11 1F D0 52 45 56 49 4F 55 53 20 43 4F 4E |"....REVIOUS CON|
00000A10: 54 45 4E 54 53 20 3A 20 97 22 3B 41 53 24 28 4C |TENTS : .";AS$(L|
00000A20: 29 00 49 12 E6 0F 85 22 11 11 CE 45 57 20 43 4F |).I...."...EW CO|
00000A30: 4E 54 45 4E 54 53 20 3A 20 20 20 30 30 9D 9D 9D |NTENTS : 00...|
00000A40: 9D 22 3B 41 53 24 28 4C 29 00 6D 12 EB 0F 8B 20 |.";AS$(L).m.... |
00000A50: C3 28 41 53 24 28 4C 29 29 B3 B1 32 20 A7 20 99 |.(AS$(L))..2 . .|
00000A60: 22 91 91 91 22 3B 3A 89 20 34 30 37 30 00 8D 12 |"...";:. 4070...|
00000A70: F0 0F 46 31 B2 30 3A 46 32 B2 30 3A 43 28 4C 29 |..F1.0:F2.0:C(L)|
00000A80: B2 30 3A 81 20 42 B2 30 20 A4 20 31 35 00 BB 12 |.0:. B.0 . 15...|
00000A90: FA 0F 8B 20 C8 28 41 53 24 28 4C 29 2C 31 29 B2 |... .(AS$(L),1).|
00000AA0: 48 58 24 28 42 29 A7 20 43 28 4C 29 B2 43 28 4C |HX$(B). C(L).C(L|
00000AB0: 29 AA 31 36 AC 42 3A 46 31 B2 31 00 E6 12 04 10 |).16.B:F1.1.....|
00000AC0: 8B 20 C9 28 41 53 24 28 4C 29 2C 31 29 B2 48 58 |. .(AS$(L),1).HX|
00000AD0: 24 28 42 29 A7 20 43 28 4C 29 B2 43 28 4C 29 AA |$(B). C(L).C(L).|
00000AE0: 42 3A 46 32 B2 31 00 0B 13 0E 10 82 3A 8B 20 46 |B:F2.1......:. F|
00000AF0: 31 B2 30 20 B0 20 46 32 B2 30 20 A7 20 99 22 91 |1.0 . F2.0 . .".|
00000B00: 91 91 22 3B 3A 89 20 34 30 37 30 00 23 13 18 10 |..";:. 4070.#...|
00000B10: 43 24 28 4C 29 B2 C7 28 43 28 4C 29 29 3A 89 20 |C$(L)..(C(L)):. |
00000B20: 31 30 30 00 46 13 85 13 8F 22 2A 2A 2A 20 20 20 |100.F...."*** |
00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B40: 20 20 20 2A 2A 2A 00 69 13 86 13 8F 22 2A 2A 2A | ***.i...."***|
00000B50: 20 D7 52 49 54 45 20 42 4C 4F 43 4B 20 54 4F 20 | .RITE BLOCK TO |
00000B60: 44 49 53 4B 20 20 2A 2A 2A 00 8C 13 87 13 8F 22 |DISK ***......"|
00000B70: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |*** |
00000B80: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 9C 13 88 | ***....|
00000B90: 13 8B 20 54 B2 30 20 A7 20 31 30 30 00 B5 13 92 |.. T.0 . 100....|
00000BA0: 13 99 22 93 11 11 D0 4C 45 41 53 45 20 57 41 49 |.."....LEASE WAI|
00000BB0: 54 2E 2E 2E 22 00 C3 13 9C 13 9F 20 31 35 2C 38 |T..."...... 15,8|
00000BC0: 2C 31 35 00 D2 13 A6 13 9F 20 32 2C 38 2C 32 2C |,15...... 2,8,2,|
00000BD0: 22 23 00 E4 13 B0 13 98 31 35 2C 22 42 2D 50 3A |"#......15,"B-P:|
00000BE0: 32 2C 30 22 00 F4 13 D8 13 81 20 4C B2 30 20 A4 |2,0"...... L.0 .|
00000BF0: 20 32 35 35 00 04 14 E2 13 98 32 2C 43 24 28 4C | 255......2,C$(L|
00000C00: 29 3B 3A 82 00 19 14 E7 13 98 31 35 2C 22 55 32 |);:.......15,"U2|
00000C10: 3A 32 2C 30 22 3B 54 3B 53 00 29 14 EC 13 A0 32 |:2,0";T;S.)....2|
00000C20: 3A A0 31 35 3A 89 31 30 30 00 4C 14 6D 17 8F 22 |:.15:.100.L.m.."|
00000C30: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |*** |
00000C40: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 6F 14 6E | ***.o.n|
00000C50: 17 8F 22 2A 2A 2A 20 C5 4E 44 20 20 20 20 20 20 |.."*** .ND |
00000C60: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 | ***.|
00000C70: 92 14 6F 17 8F 22 2A 2A 2A 20 20 20 20 20 20 20 |..o.."*** |
00000C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000C90: 2A 2A 00 A1 14 70 17 99 22 93 22 C7 28 39 29 3A |**...p..".".(9):|
00000CA0: 80 00 C4 14 3D 1F 8F 22 2A 2A 2A 20 20 20 20 20 |....=.."*** |
00000CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CC0: 20 2A 2A 2A 00 E7 14 3E 1F 8F 22 2A 2A 2A 20 C3 | ***...>.."*** .|
00000CD0: 4F 4E 56 45 52 54 20 44 45 43 49 20 54 4F 20 48 |ONVERT DECI TO H|
00000CE0: 45 58 20 20 2A 2A 2A 00 0A 15 3F 1F 8F 22 2A 2A |EX ***...?.."**|
00000CF0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000D00: 20 20 20 20 20 20 20 2A 2A 2A 00 3F 15 40 1F 41 | ***.?.@.A|
00000D10: 53 24 28 4C 29 B2 48 58 24 28 B5 28 43 28 4C 29 |S$(L).HX$(.(C(L)|
00000D20: AD 31 36 29 29 AA 48 58 24 28 43 28 4C 29 AB 31 |.16)).HX$(C(L).1|
00000D30: 36 AC B5 28 43 28 4C 29 AD 31 36 29 29 3A 8E 00 |6..(C(L).16)):..|
00000D40: 62 15 25 23 8F 22 2A 2A 2A 20 20 20 20 20 20 20 |b.%#."*** |
00000D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000D60: 2A 2A 00 85 15 26 23 8F 22 2A 2A 2A 20 C8 45 58 |**...&#."*** .EX|
00000D70: 20 43 48 41 52 41 43 54 45 52 53 20 20 20 20 20 | CHARACTERS |
00000D80: 20 20 2A 2A 2A 00 A8 15 27 23 8F 22 2A 2A 2A 20 | ***...'#."*** |
00000D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000DA0: 20 20 20 20 20 2A 2A 2A 00 CE 15 28 23 83 20 30 | ***...(#. 0|
00000DB0: 2C 31 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 |,1,2,3,4,5,6,7,8|
00000DC0: 2C 39 2C 41 2C 42 2C 43 2C 44 2C 45 2C 46 00 00 |,9,A,B,C,D,E,F..|
00000DD0: 00 45 FF 48 |.E.H |
..'...."*** BLOCK MODIFIER ***.
M...."*** ***.S.
..."*** BY PAUL KELLAM ***.....
."*** 105 TUTELA HEIGHTS RD. ***......"
*** BRANTFORD, ONTARIO. ***......"**
* N3T 1A4 ***......"***
JULY 10,1983 ***.1...."***
***.W.... C(255),C
$(255),AS$(255),HX$(15).Q.... A.0 . 15:.
HX$(A):....2..53281,15:.53280,6...A.."*
** ***.R.B.."***
MENU ***...C.."***
***...D..G(14)G(8)".
.. BLOCK MODIFICATION PROGRAM. ".Y
.E.." .............................
"...I.." .BY PAUL KE
LLAM"...N..". .1. READ BLOCK FROM DISK"
.R.X..". .2. DISPLAY FIRST HALF OF BLOC
K"......". .3. DISPLAY SECOND HALF OF B
LOCK"......". .4. MODIFY A BYTE".;...."
. .5. WRITE BLOCK TO DISK".C....". .6.
READ NEXT BLOCK FROM DISK".V. ..". .7.
QUIT"......"... ENTER CHOICE..".....
.198,1:.CH$:.E(CH$).1.E(CH$).7 . 180.J..
.CH.E(CH$)...H.. CH . 1000,2000,3000,400
0,5000,1200,6000......"***
***.@...."*** READ BLOCK FROM D
ISK ***.D...."***
***......"...TRACK # 18....";T......"
..SECTOR # 1...";S......"..PLEASE WAIT
...".B.... 15,8,15.R.... 2,8,2,"#"......
15,"U1:2,0";T;S......15,EN,EM$,ET,ES.=..
..EN.0. 2: 15:.".ERROR: "EM$:.".PRESS A
KEY.":.198,1:.198,0:..O....15,"B-P:2,0".
_.$.. L.0 . 255......#2,C$(L):. C$(L).""
.C$(L).G(0)...8.C(L).F(C$(L)):. 8000:...
.B. 2: 15...L.. 100.V...."***
***......"*** READ NEXT BLOCK
***......"***
***.J....".";:. C(0).0 . C(0).35 . C(1)
.20 . 1000.B...T.C(0):S.C(1):.1020...M..
"*** ***...N.."***
DISPLAY FIRST HALF ***.K.O.."***
***.T.P.FB.0...1.."***
***...2.."*** DISPLA
Y ON SCREEN ***.=.3.."***
***.S.4..".BLOCK DATA :."...>.
.A.0.15:."."HX$(FB.16..(A.2))HX$(8.(A.2.
.(A.2)))".";:C$."":.B.0.7...H.N.FB.8.A.B
.S.R.. (C(N).31.C(N).129) . (C(N).159).2
150...\.C$.C$." ":.2160...F.C$.C$.C$(N).
..P.." ";AS$(N);:....Z.." -";C$:..D....
"..PRESS ANY KEY TO RETURN TO MENU.".Z.J
.. 198,1:.B$:. 100.}...."***
***. ...."*** DISPLAY SECOND H
ALF ***.C...."***
***.T...FB.128:.2100......"***
***......"*** MODIFY A BYTE
***.=...."***
***.D. .."...BYTE # (IN HEX) 00...."
;BY$.{.... C(BY$)..2 . 4000.....F1.0:F2.
0:L.0:. B.0 . 15...... H(BY$,1).HX$(B).
L.L.16.B:F1.1...H.. I(BY$,1).HX$(B). L.L
.B:F2.1...R..:. F1.0 . F2.0 . 4000.!....
"...PREVIOUS CONTENTS : .";AS$(L).I...."
..NEW CONTENTS : 00....";AS$(L).M....
C(AS$(L))..2 . ."...";:. 4070.....F1.0:F
2.0:C(L).0:. B.0 . 15...... H(AS$(L),1).
HX$(B). C(L).C(L).16.B:F1.1...... I(AS$(
L),1).HX$(B). C(L).C(L).B:F2.1......:. F
1.0 . F2.0 . ."...";:. 4070.#...C$(L).G(
C(L)):. 100.F...."***
***.I...."*** WRITE BLOCK TO DISK **
*......"*** ***....
.. T.0 . 100......"...PLEASE WAIT...".C.
... 15,8,15.R.... 2,8,2,"#......15,"B-P:
2,0"...X.. L.0 . 255......2,C$(L);:.....
..15,"U2:2,0";T;S.)... 2: 15:.100.L.M.."
*** ***.O.N.."*** E
ND ***...O.."***
***...P.."."G(9):..D.=.."
*** ***...>.."*** C
ONVERT DECI TO HEX ***...?.."***
***.?.@.AS$(L).HX$(.(C(L)
.16)).HX$(C(L).16..(C(L).16)):..B.%#."**
* ***...&#."*** HEX
CHARACTERS ***...'#."***
***.N.(#. 0,1,2,3,4,5,6,7,8
,9,A,B,C,D,E,F...E.H
> CLICK IMAGE PREVIEW FOR FULL MODAL