X-RAY FILES
FILE INFORMATION
FILENAME(S): X-RAY FILES
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 21:12:30
APPEARS ON: 1 disk(s)
FILE HASH
3897119d75c89faea96e7e1da2789ec1e87c24705eb1bdaafe731b24a0cf9418
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| YD FEB 1987 | X-RAY FILES | PRG | DuncanTwain | 9 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000020: 3D 08 01 00 8F 20 2A 2A 20 46 49 4C 45 20 58 52 |=.... ** FILE XR|
00000030: 41 59 20 50 52 4F 47 52 41 4D 20 2A 2A 00 5B 08 |AY PROGRAM **.[.|
00000040: 02 00 8F 20 2A 2A 20 43 4F 50 59 52 49 47 48 54 |... ** COPYRIGHT|
00000050: 20 28 43 29 31 39 38 36 20 2A 2A 00 79 08 03 00 | (C)1986 **.y...|
00000060: 8F 20 2A 2A 20 20 45 53 50 20 45 4E 54 45 52 50 |. ** ESP ENTERP|
00000070: 52 49 53 45 53 20 20 2A 2A 00 97 08 04 00 8F 20 |RISES **...... |
00000080: 2A 2A 20 20 20 50 52 4F 47 52 41 4D 4D 45 44 20 |** PROGRAMMED |
00000090: 42 59 20 20 20 2A 2A 00 B5 08 05 00 8F 20 2A 2A |BY **...... **|
000000A0: 20 20 20 20 50 41 55 4C 20 41 20 45 56 45 53 20 | PAUL A EVES |
000000B0: 20 20 20 2A 2A 00 D3 08 06 00 8F 20 2A 2A 2A 2A | **...... ****|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 00 D9 08 07 00 8F 00 DF 08 08 00 8F 00 |***.............|
000000E0: FD 08 09 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1B 09 |*************...|
00000100: 0A 00 8F 20 2A 2A 20 44 49 53 41 42 4C 45 20 52 |... ** DISABLE R|
00000110: 55 4E 2F 53 54 4F 50 2D 20 2A 2A 00 39 09 0B 00 |UN/STOP- **.9...|
00000120: 8F 20 2A 2A 20 20 52 45 53 54 4F 52 45 20 41 4E |. ** RESTORE AN|
00000130: 44 20 4C 49 53 54 20 2A 2A 00 57 09 0C 00 8F 20 |D LIST **.W.... |
00000140: 2A 2A 20 53 45 54 20 42 4F 52 44 45 52 2F 53 43 |** SET BORDER/SC|
00000150: 52 45 45 4E 20 2A 2A 00 75 09 0D 00 8F 20 2A 2A |REEN **.u.... **|
00000160: 43 4F 4C 4F 55 52 53 20 41 4E 44 20 44 49 53 50 |COLOURS AND DISP|
00000170: 4C 41 59 2A 2A 00 93 09 0E 00 8F 20 2A 2A 20 20 |LAY**...... ** |
00000180: 20 20 4D 41 49 4E 20 54 49 54 4C 45 53 20 20 20 | MAIN TITLES |
00000190: 20 2A 2A 00 B1 09 0F 00 8F 20 2A 2A 2A 2A 2A 2A | **...... ******|
000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001B0: 2A 00 D6 09 10 00 9C 3A 99 C7 28 31 34 32 29 3B |*......:..(142);|
000001C0: C7 28 38 29 3A 97 37 39 32 2C 31 39 33 3A 97 38 |.(8):.792,193:.8|
000001D0: 30 38 2C 32 33 34 00 FA 09 11 00 97 35 33 32 38 |08,234......5328|
000001E0: 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A 97 36 34 |0,0:.53281,0:.64|
000001F0: 36 2C 31 34 3A 99 22 93 22 3B 00 03 0A 12 00 8D |6,14:.".";......|
00000200: 31 36 35 00 2D 0A 13 00 99 22 11 20 20 20 20 20 |165.-....". |
00000210: 20 20 20 9F 45 53 50 20 45 4E 54 45 52 50 52 49 | .ESP ENTERPRI|
00000220: 53 45 53 20 50 52 45 53 45 4E 54 53 22 00 59 0A |SES PRESENTS".Y.|
00000230: 14 00 99 22 11 11 20 20 20 20 20 20 9A 20 46 49 |...".. . FI|
00000240: 4C 45 20 58 2D 52 41 59 20 44 49 53 50 4C 41 59 |LE X-RAY DISPLAY|
00000250: 20 50 52 4F 47 52 41 4D 22 00 82 0A 15 00 99 22 | PROGRAM"......"|
00000260: 20 20 20 20 20 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 | .........|
00000270: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000280: A3 22 00 B0 0A 16 00 99 22 20 20 20 96 5B 46 4F |."......" .[FO|
00000290: 52 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 50 |R COMMODORE 64 P|
000002A0: 4C 55 53 20 31 35 34 31 20 44 52 49 56 45 5D 22 |LUS 1541 DRIVE]"|
000002B0: 00 DE 0A 17 00 99 22 9A 11 11 11 11 11 20 20 20 |......"...... |
000002C0: 20 20 20 20 20 20 41 55 54 48 4F 52 3A 20 20 20 | AUTHOR: |
000002D0: 9E 50 41 55 4C 20 41 2E 20 45 56 45 53 22 00 09 |.PAUL A. EVES"..|
000002E0: 0B 18 00 99 22 9A 11 11 20 20 20 20 20 20 20 20 |...."... |
000002F0: 20 54 45 4C 45 50 48 4F 4E 45 3A 9E 5B 30 34 34 | TELEPHONE:.[044|
00000300: 32 37 5D 20 36 33 31 39 22 00 36 0B 19 00 99 22 |27] 6319".6...."|
00000310: 05 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 |...... |
00000320: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT|
00000330: 49 4E 55 45 1E 22 00 3F 0B 1A 00 8D 31 36 37 00 |INUE.".?....167.|
00000340: 51 0B 1B 00 92 31 39 38 2C 31 3A 97 31 39 38 2C |Q....198,1:.198,|
00000350: 30 00 88 0B 1C 00 99 22 93 11 4C 49 53 54 20 44 |0......"..LIST D|
00000360: 49 52 45 43 54 4F 52 59 3A 2D 20 20 20 5B 05 59 |IRECTORY:- [.Y|
00000370: 1E 45 53 5D 20 5B 05 4E 1E 4F 5D 20 4F 52 20 5B |.ES] [.N.O] OR [|
00000380: 05 45 1E 4E 44 5D 3F 22 00 AC 0B 1D 00 A1 4B 24 |.E.ND]?"......K$|
00000390: 3A 8B 4B 24 B3 B1 22 59 22 AF 4B 24 B3 B1 22 4E |:.K$.."Y".K$.."N|
000003A0: 22 AF 4B 24 B3 B1 22 45 22 A7 32 39 00 C1 0B 1E |".K$.."E".29....|
000003B0: 00 8B 4B 24 B2 22 59 22 A7 4E 46 B2 31 3A 8D 34 |..K$."Y".NF.1:.4|
000003C0: 32 00 D4 0B 1F 00 8B 4B 24 B2 22 45 22 A7 99 22 |2......K$."E".."|
000003D0: 93 22 3A 80 00 DD 0B 20 00 4E 46 B2 30 00 F8 0B |.":.... .NF.0...|
000003E0: 21 00 85 22 11 52 45 51 55 49 52 45 44 20 46 49 |!..".REQUIRED FI|
000003F0: 4C 45 3A 2D 22 3B 4E 24 00 12 0C 22 00 8B C3 28 |LE:-";N$..."...(|
00000400: 4E 24 29 B1 31 36 A7 4E 24 B2 C8 28 4E 24 2C 31 |N$).16.N$..(N$,1|
00000410: 36 29 00 18 0C 23 00 8F 00 1E 0C 24 00 8F 00 39 |6)...#.....$...9|
00000420: 0C 25 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.%.. ***********|
00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 54 0C 26 00 8F 20 |*********.T.&.. |
00000440: 2A 2A 20 52 45 41 44 20 44 49 52 45 43 54 4F 52 |** READ DIRECTOR|
00000450: 59 20 2A 2A 00 6F 0C 27 00 8F 20 2A 2A 2A 2A 2A |Y **.o.'.. *****|
00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000470: 75 0C 28 00 8F 00 7B 0C 29 00 8F 00 98 0C 2A 00 |u.(...{.).....*.|
00000480: 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 9F 32 |.15,8,15,"I0":.2|
00000490: 2C 38 2C 32 2C 22 23 22 00 A7 0C 2B 00 54 52 B2 |,8,2,"#"...+.TR.|
000004A0: 31 38 3A 53 45 B2 31 00 BF 0C 2C 00 98 31 35 2C |18:SE.1...,..15,|
000004B0: 22 42 2D 52 22 3B 32 3B 30 3B 54 52 3B 53 45 00 |"B-R";2;0;TR;SE.|
000004C0: D1 0C 2D 00 98 31 35 2C 22 42 2D 50 22 3B 32 3B |..-..15,"B-P";2;|
000004D0: 30 00 EB 0C 2E 00 A1 23 32 2C 4B 24 3A 8B 4B 24 |0......#2,K$:.K$|
000004E0: B2 22 22 A7 4B 24 B2 C7 28 30 29 00 F8 0C 2F 00 |."".K$..(0).../.|
000004F0: 54 52 B2 C6 28 4B 24 29 00 12 0D 30 00 A1 23 32 |TR..(K$)...0..#2|
00000500: 2C 4B 24 3A 8B 4B 24 B2 22 22 A7 4B 24 B2 C7 28 |,K$:.K$."".K$..(|
00000510: 30 29 00 1F 0D 31 00 53 45 B2 C6 28 4B 24 29 00 |0)...1.SE..(K$).|
00000520: 2A 0D 32 00 81 49 B2 30 A4 37 00 41 0D 33 00 98 |*.2..I.0.7.A.3..|
00000530: 31 35 2C 22 42 2D 50 22 3B 32 3B 49 AC 33 32 AA |15,"B-P";2;I.32.|
00000540: 35 00 4C 0D 34 00 4E 41 24 B2 22 22 00 58 0D 35 |5.L.4.NA$."".X.5|
00000550: 00 81 5A B2 30 A4 31 35 00 72 0D 36 00 A1 23 32 |..Z.0.15.r.6..#2|
00000560: 2C 4B 24 3A 8B 4B 24 B2 22 22 A7 4B 24 B2 C7 28 |,K$:.K$."".K$..(|
00000570: 30 29 00 84 0D 37 00 8B C6 28 4B 24 29 B2 31 36 |0)...7...(K$).16|
00000580: 30 A7 35 38 00 93 0D 38 00 4E 41 24 B2 4E 41 24 |0.58...8.NA$.NA$|
00000590: AA 4B 24 00 9A 0D 39 00 82 5A 00 A9 0D 3A 00 8B |.K$...9..Z...:..|
000005A0: 4E 24 B2 4E 41 24 A7 36 38 00 B6 0D 3B 00 8B 4E |N$.NA$.68...;..N|
000005B0: 46 A7 99 4E 41 24 00 BD 0D 3C 00 82 49 00 CA 0D |F..NA$...<..I...|
000005C0: 3D 00 8B 54 52 B2 30 A7 36 33 00 D2 0D 3E 00 89 |=..TR.0.63...>..|
000005D0: 34 34 00 DD 0D 3F 00 A0 32 3A A0 31 35 00 EB 0D |44...?..2:.15...|
000005E0: 40 00 8B 4E 46 B3 B1 30 A7 36 38 00 2A 0E 41 00 |@..NF..0.68.*.A.|
000005F0: 8B 4E 46 B2 30 A7 99 22 11 11 11 96 A4 A4 A4 A4 |.NF.0.."........|
00000600: A4 A4 A4 A4 11 9D 9D 9D 9D 9D 9D 9D 9D 12 45 52 |..............ER|
00000610: 52 4F 52 2E 2E 2E 92 20 20 1E 4E 4F 20 53 55 43 |ROR.... .NO SUC|
00000620: 48 20 46 49 4C 45 21 21 21 22 00 55 0E 42 00 99 |H FILE!!!".U.B..|
00000630: 22 05 11 11 11 11 11 20 20 20 20 20 20 20 20 20 |"...... |
00000640: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT|
00000650: 49 4E 55 45 22 00 69 0E 43 00 92 31 39 38 2C 31 |INUE".i.C..198,1|
00000660: 3A 97 31 39 38 2C 30 3A 8A 00 73 0E 44 00 8B 4E |:.198,0:..s.D..N|
00000670: 46 A7 8E 00 79 0E 45 00 8F 00 7F 0E 46 00 8F 00 |F...y.E.....F...|
00000680: 9A 0E 47 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..G.. **********|
00000690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B5 0E 48 00 8F |**********...H..|
000006A0: 20 2A 2A 52 45 41 44 53 20 41 4E 44 20 53 54 4F | **READS AND STO|
000006B0: 52 45 53 2A 2A 00 D0 0E 49 00 8F 20 2A 2A 20 50 |RES**...I.. ** P|
000006C0: 41 52 41 4D 45 54 45 52 53 20 4F 46 20 20 2A 2A |ARAMETERS OF **|
000006D0: 00 EB 0E 4A 00 8F 20 2A 2A 20 52 45 51 55 49 52 |...J.. ** REQUIR|
000006E0: 45 44 20 46 49 4C 45 20 20 2A 2A 00 06 0F 4B 00 |ED FILE **...K.|
000006F0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000700: 2A 2A 2A 2A 2A 2A 00 0C 0F 4C 00 8F 00 12 0F 4D |******...L.....M|
00000710: 00 8F 00 29 0F 4E 00 98 31 35 2C 22 42 2D 50 22 |...).N..15,"B-P"|
00000720: 3B 32 3B 49 AC 33 32 AA 32 00 43 0F 4F 00 A1 23 |;2;I.32.2.C.O..#|
00000730: 32 2C 4B 24 3A 8B 4B 24 B2 22 22 A7 4B 24 B2 C7 |2,K$:.K$."".K$..|
00000740: 28 30 29 00 50 0F 50 00 54 50 B2 C6 28 4B 24 29 |(0).P.P.TP..(K$)|
00000750: 00 5D 0F 51 00 41 46 B2 54 50 AF 31 35 00 75 0F |.].Q.AF.TP.15.u.|
00000760: 52 00 8B 41 46 B2 30 A7 54 59 24 B2 22 44 45 4C |R..AF.0.TY$."DEL|
00000770: 45 54 45 44 22 00 90 0F 53 00 8B 41 46 B2 31 A7 |ETED"...S..AF.1.|
00000780: 54 59 24 B2 22 53 45 51 55 45 4E 54 49 41 4C 22 |TY$."SEQUENTIAL"|
00000790: 00 A8 0F 54 00 8B 41 46 B2 32 A7 54 59 24 B2 22 |...T..AF.2.TY$."|
000007A0: 50 52 4F 47 52 41 4D 22 00 BD 0F 55 00 8B 41 46 |PROGRAM"...U..AF|
000007B0: B2 33 A7 54 59 24 B2 22 55 53 45 52 22 00 D6 0F |.3.TY$."USER"...|
000007C0: 56 00 8B 41 46 B2 34 A7 54 59 24 B2 22 52 45 4C |V..AF.4.TY$."REL|
000007D0: 41 54 49 56 45 22 00 21 10 57 00 8B 41 46 B1 34 |ATIVE".!.W..AF.4|
000007E0: A7 99 22 96 A4 A4 A4 A4 A4 A4 A4 A4 11 9D 9D 9D |..".............|
000007F0: 9D 9D 9D 9D 9D 12 45 52 52 4F 52 2E 2E 2E 92 1E |......ERROR.....|
00000800: 20 46 49 4C 45 20 54 59 50 45 20 4E 4F 54 20 52 | FILE TYPE NOT R|
00000810: 45 43 4F 47 4E 49 53 45 44 21 21 21 22 3A 89 36 |ECOGNISED!!!":.6|
00000820: 36 00 3B 10 58 00 8B 54 50 AF 31 32 38 A7 58 58 |6.;.X..TP.128.XX|
00000830: 24 B2 22 59 45 53 22 3A 89 39 30 00 48 10 59 00 |$."YES":.90.H.Y.|
00000840: 58 58 24 B2 22 4E 4F 22 00 61 10 5A 00 8B 54 50 |XX$."NO".a.Z..TP|
00000850: AF 36 34 A7 53 45 24 B2 22 59 45 53 22 3A 89 39 |.64.SE$."YES":.9|
00000860: 32 00 6E 10 5B 00 53 45 24 B2 22 4E 4F 22 00 85 |2.n.[.SE$."NO"..|
00000870: 10 5C 00 98 31 35 2C 22 42 2D 50 22 32 2C 49 AC |.\..15,"B-P"2,I.|
00000880: 33 32 AA 33 30 00 9F 10 5D 00 A1 23 32 2C 4B 24 |32.30...]..#2,K$|
00000890: 3A 8B 4B 24 B2 22 22 A7 4B 24 B2 C7 28 30 29 00 |:.K$."".K$..(0).|
000008A0: AC 10 5E 00 4C 4F B2 C6 28 4B 24 29 00 C6 10 5F |..^.LO..(K$)..._|
000008B0: 00 A1 23 32 2C 4B 24 3A 8B 4B 24 B2 22 22 A7 4B |..#2,K$:.K$."".K|
000008C0: 24 B2 C7 28 30 29 00 D7 10 60 00 48 49 B2 C6 28 |$..(0)...`.HI..(|
000008D0: 4B 24 29 AC 32 35 36 00 E4 10 61 00 42 4B B2 4C |K$).256...a.BK.L|
000008E0: 4F AA 48 49 00 F3 10 62 00 8B 41 46 B3 B1 34 A7 |O.HI...b..AF..4.|
000008F0: 31 30 32 00 0B 11 63 00 98 31 35 2C 22 42 2D 50 |102...c..15,"B-P|
00000900: 22 3B 32 3B 49 AC 33 32 AA 32 33 00 25 11 64 00 |";2;I.32.23.%.d.|
00000910: A1 23 32 2C 4B 24 3A 8B 4B 24 B2 22 22 A7 4B 24 |.#2,K$:.K$."".K$|
00000920: B2 C7 28 30 29 00 32 11 65 00 4C 45 B2 C6 28 4B |..(0).2.e.LE..(K|
00000930: 24 29 00 41 11 66 00 8B 41 46 B3 B1 32 A7 31 31 |$).A.f..AF..2.11|
00000940: 37 00 58 11 67 00 98 31 35 2C 22 42 2D 50 22 3B |7.X.g..15,"B-P";|
00000950: 32 3B 49 AC 33 32 AA 33 00 72 11 68 00 A1 23 32 |2;I.32.3.r.h..#2|
00000960: 2C 4B 24 3A 8B 4B 24 B2 22 22 A7 4B 24 B2 C7 28 |,K$:.K$."".K$..(|
00000970: 30 29 00 7F 11 69 00 44 42 B2 C6 28 4B 24 29 00 |0)...i.DB..(K$).|
00000980: 99 11 6A 00 A1 23 32 2C 4B 24 3A 8B 4B 24 B2 22 |..j..#2,K$:.K$."|
00000990: 22 A7 4B 24 B2 C7 28 30 29 00 A6 11 6B 00 44 46 |".K$..(0)...k.DF|
000009A0: B2 C6 28 4B 24 29 00 B5 11 6C 00 9F 33 2C 38 2C |..(K$)...l..3,8,|
000009B0: 33 2C 22 23 22 00 CD 11 6D 00 98 31 35 2C 22 42 |3,"#"...m..15,"B|
000009C0: 2D 52 22 3B 33 3B 30 3B 44 42 3B 44 46 00 DF 11 |-R";3;0;DB;DF...|
000009D0: 6E 00 98 31 35 2C 22 42 2D 50 22 3B 33 3B 32 00 |n..15,"B-P";3;2.|
000009E0: F9 11 6F 00 A1 23 33 2C 4B 24 3A 8B 4B 24 B2 22 |..o..#3,K$:.K$."|
000009F0: 22 A7 4B 24 B2 C7 28 30 29 00 06 12 70 00 4C 4F |".K$..(0)...p.LO|
00000A00: B2 C6 28 4B 24 29 00 20 12 71 00 A1 23 33 2C 4B |..(K$). .q..#3,K|
00000A10: 24 3A 8B 4B 24 B2 22 22 A7 4B 24 B2 C7 28 30 29 |$:.K$."".K$..(0)|
00000A20: 00 31 12 72 00 48 49 B2 C6 28 4B 24 29 AC 32 35 |.1.r.HI..(K$).25|
00000A30: 36 00 3E 12 73 00 46 41 B2 4C 4F AA 48 49 00 45 |6.>.s.FA.LO.HI.E|
00000A40: 12 74 00 A0 33 00 5C 12 75 00 98 31 35 2C 22 42 |.t..3.\.u..15,"B|
00000A50: 2D 52 22 3B 32 3B 30 3B 31 38 3B 30 00 65 12 76 |-R";2;0;18;0.e.v|
00000A60: 00 46 42 B2 30 00 74 12 77 00 81 4A B2 34 A4 31 |.FB.0.t.w..J.4.1|
00000A70: 34 30 A9 34 00 82 12 78 00 8B 4A B2 37 32 A7 31 |40.4...x..J.72.1|
00000A80: 32 34 00 94 12 79 00 98 31 35 2C 22 42 2D 50 22 |24...y..15,"B-P"|
00000A90: 3B 32 3B 4A 00 AE 12 7A 00 A1 23 32 2C 4B 24 3A |;2;J...z..#2,K$:|
00000AA0: 8B 4B 24 B2 22 22 A7 4B 24 B2 C7 28 30 29 00 BE |.K$."".K$..(0)..|
00000AB0: 12 7B 00 46 42 B2 C6 28 4B 24 29 AA 46 42 00 C5 |.{.FB..(K$).FB..|
00000AC0: 12 7C 00 82 4A 00 D3 12 7D 00 41 42 B2 36 36 34 |.|..J...}.AB.664|
00000AD0: AB 46 42 00 E2 12 7E 00 8B 41 46 B3 B1 34 A7 31 |.FB...~..AF..4.1|
00000AE0: 33 37 00 06 13 7F 00 53 42 B2 42 4B AD 31 32 31 |37.....SB.BK.121|
00000AF0: 3A 8B 53 42 B3 B1 B5 28 53 42 29 A7 53 42 B2 B5 |:.SB...(SB).SB..|
00000B00: 28 53 42 AA 31 29 00 21 13 80 00 52 46 B2 B5 28 |(SB.1).!...RF..(|
00000B10: 28 28 42 4B AB 53 42 29 AC 32 35 36 29 AD 4C 45 |((BK.SB).256).LE|
00000B20: 29 00 3C 13 81 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |).<.... ********|
00000B30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 57 13 82 |************.W..|
00000B40: 00 8F 20 2A 2A 20 41 53 4B 53 20 46 4F 52 20 4F |.. ** ASKS FOR O|
00000B50: 55 54 50 55 54 2A 2A 00 72 13 83 00 8F 20 2A 2A |UTPUT**.r.... **|
00000B60: 20 4D 45 54 48 4F 44 2E 20 53 43 52 45 45 4E 20 | METHOD. SCREEN |
00000B70: 2A 2A 00 8D 13 84 00 8F 20 2A 2A 20 4F 52 20 50 |**...... ** OR P|
00000B80: 52 49 4E 54 45 52 5D 20 41 4E 44 2A 2A 00 A8 13 |RINTER] AND**...|
00000B90: 85 00 8F 20 2A 2A 20 44 49 53 50 4C 41 59 53 20 |... ** DISPLAYS |
00000BA0: 49 4E 46 4F 20 20 2A 2A 00 C3 13 86 00 8F 20 2A |INFO **...... *|
00000BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BC0: 2A 2A 2A 00 C9 13 87 00 8F 00 CF 13 88 00 8F 00 |***.............|
00000BD0: FE 13 89 00 99 22 93 1E 4F 55 54 50 55 54 20 54 |....."..OUTPUT T|
00000BE0: 4F 20 5B 05 53 1E 43 52 45 45 4E 5D 20 4F 52 20 |O [.S.CREEN] OR |
00000BF0: 5B 05 50 1E 52 49 4E 54 45 52 5D 20 3F 22 00 1B |[.P.RINTER] ?"..|
00000C00: 14 8A 00 A1 4B 24 3A 8B 4B 24 B3 B1 22 53 22 AF |....K$:.K$.."S".|
00000C10: 4B 24 B3 B1 22 50 22 A7 31 33 38 00 3B 14 8B 00 |K$.."P".138.;...|
00000C20: 8B 4B 24 B2 22 53 22 A7 9F 31 2C 33 3A 98 31 2C |.K$."S"..1,3:.1,|
00000C30: C7 28 31 34 37 29 3A 8D 31 36 35 00 4C 14 8C 00 |.(147):.165.L...|
00000C40: 8B 4B 24 B2 22 50 22 A7 9F 31 2C 34 00 70 14 8D |.K$."P"..1,4.p..|
00000C50: 00 98 31 2C 22 20 20 20 50 52 4F 47 52 41 4D 20 |..1," PROGRAM |
00000C60: 4E 41 4D 45 3A 20 20 20 20 20 20 20 22 3B 4E 24 |NAME: ";N$|
00000C70: 00 7D 14 8E 00 98 31 3A 98 31 3A 98 31 00 A4 14 |.}....1:.1:.1...|
00000C80: 8F 00 98 31 2C 22 20 20 20 20 20 20 20 2D 3A 50 |...1," -:P|
00000C90: 52 4F 47 52 41 4D 20 50 41 52 41 4D 45 54 45 52 |ROGRAM PARAMETER|
00000CA0: 53 3A 2D 22 00 AE 14 90 00 98 31 3A 98 31 00 D7 |S:-"......1:.1..|
00000CB0: 14 91 00 98 31 2C 22 20 20 20 54 59 50 45 20 4F |....1," TYPE O|
00000CC0: 46 20 46 49 4C 45 3A 20 20 20 20 20 20 20 20 20 |F FILE: |
00000CD0: 20 20 22 3B 54 59 24 00 00 15 92 00 98 31 2C 22 | ";TY$......1,"|
00000CE0: 20 20 20 46 49 4C 45 20 43 4C 4F 53 45 44 3A 20 | FILE CLOSED: |
00000CF0: 20 20 20 20 20 20 20 20 20 20 20 22 3B 58 58 24 | ";XX$|
00000D00: 00 29 15 93 00 98 31 2C 22 20 20 20 46 49 4C 45 |.)....1," FILE|
00000D10: 20 50 52 4F 54 45 43 54 45 44 3A 20 20 20 20 20 | PROTECTED: |
00000D20: 20 20 20 20 22 3B 53 45 24 00 50 15 94 00 98 31 | ";SE$.P....1|
00000D30: 2C 22 20 20 20 4E 55 4D 42 45 52 20 4F 46 20 42 |," NUMBER OF B|
00000D40: 4C 4F 43 4B 53 3A 20 20 20 20 20 20 22 3B 42 4B |LOCKS: ";BK|
00000D50: 00 5F 15 95 00 8B 41 46 B3 B1 34 A7 31 35 34 00 |._....AF..4.154.|
00000D60: 86 15 96 00 98 31 2C 22 20 20 20 52 45 43 4F 52 |.....1," RECOR|
00000D70: 44 20 4C 45 4E 47 54 48 3A 20 20 20 20 20 20 20 |D LENGTH: |
00000D80: 20 20 22 3B 4C 45 00 AD 15 97 00 98 31 2C 22 20 | ";LE......1," |
00000D90: 20 20 53 49 44 45 2D 53 45 43 54 4F 52 20 42 4C | SIDE-SECTOR BL|
00000DA0: 4F 43 4B 53 3A 20 20 20 20 22 3B 53 42 00 D7 15 |OCKS: ";SB...|
00000DB0: 98 00 98 31 2C 22 20 20 20 44 41 54 41 20 42 4C |...1," DATA BL|
00000DC0: 4F 43 4B 53 3A 20 20 20 20 20 20 20 20 20 20 20 |OCKS: |
00000DD0: 22 3B 42 4B AB 53 42 00 FE 15 99 00 98 31 2C 22 |";BK.SB......1,"|
00000DE0: 20 20 20 52 45 43 4F 52 44 53 3A 20 20 20 20 20 | RECORDS: |
00000DF0: 20 20 20 20 20 20 20 20 20 20 22 3B 52 46 00 2B | ";RF.+|
00000E00: 16 9A 00 8B 41 46 B2 32 A7 98 31 2C 22 20 20 20 |....AF.2..1," |
00000E10: 53 54 41 52 54 20 41 44 44 52 45 53 53 3A 20 20 |START ADDRESS: |
00000E20: 20 20 20 20 20 20 20 22 3B 46 41 00 52 16 9B 00 | ";FA.R...|
00000E30: 98 31 2C 22 20 20 20 42 4C 4F 43 4B 53 20 41 56 |.1," BLOCKS AV|
00000E40: 41 49 4C 41 42 4C 45 5B 44 49 53 4B 5D 3A 22 3B |AILABLE[DISK]:";|
00000E50: 46 42 00 82 16 9C 00 98 31 2C 22 20 20 20 42 4C |FB......1," BL|
00000E60: 4F 43 4B 53 20 41 4C 4C 4F 43 41 54 45 44 5B 44 |OCKS ALLOCATED[D|
00000E70: 49 53 4B 5D 3A 22 3B 41 42 3A 98 31 3A 98 31 3A |ISK]:";AB:.1:.1:|
00000E80: 98 31 00 89 16 9D 00 A0 31 00 B9 16 9E 00 99 22 |.1......1......"|
00000E90: 11 11 11 1E 20 20 20 52 45 2D 52 55 4E 20 50 52 |.... RE-RUN PR|
00000EA0: 4F 47 52 41 4D 20 5B 05 59 1E 45 53 5D 20 4F 52 |OGRAM [.Y.ES] OR|
00000EB0: 20 5B 05 4E 1E 4F 5D 20 3F 00 C2 16 9F 00 8D 31 | [.N.O] ?......1|
00000EC0: 36 37 00 CD 16 A0 00 A0 32 3A A0 31 35 00 E0 16 |67......2:.15...|
00000ED0: A1 00 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 31 36 31 |...K$:.K$."".161|
00000EE0: 00 EF 16 A2 00 8B 4B 24 B2 22 59 22 A7 89 30 00 |......K$."Y"..0.|
00000EF0: 02 17 A3 00 8B 4B 24 B2 22 4E 22 A7 99 22 93 22 |.....K$."N".."."|
00000F00: 3A 80 00 0B 17 A4 00 89 31 36 31 00 23 17 A5 00 |:.......161.#...|
00000F10: 97 35 33 32 36 35 2C C2 28 35 33 32 36 35 29 AF |.53265,.(53265).|
00000F20: 32 33 39 00 29 17 A6 00 8E 00 40 17 A7 00 97 35 |239.).....@....5|
00000F30: 33 32 36 35 2C C2 28 35 33 32 36 35 29 B0 31 36 |3265,.(53265).16|
00000F40: 00 46 17 A8 00 8E 00 00 00 |.F....... |
....... ***********************.=.... **
FILE XRAY PROGRAM **.[.... ** COPYRIGHT
(C)1986 **.Y.... ** ESP ENTERPRISES *
*...... ** PROGRAMMED BY **...... **
PAUL A EVES **.S.... ************
***********.Y................ **********
*************...... ** DISABLE RUN/STOP-
**.9.... ** RESTORE AND LIST **.W....
** SET BORDER/SCREEN **.U.... **COLOURS
AND DISPLAY**...... ** MAIN TITLES
**...... ***********************.V....:
.G(142);G(8):.792,193:.808,234......5328
0,0:.53281,0:.646,14:.".";......165.-...
.". .ESP ENTERPRISES PRESENTS".Y.
...".. . FILE X-RAY DISPLAY PROGRAM
"......" .........................
."......" .[FOR COMMODORE 64 PLUS 1541
DRIVE]"......"...... AUTHOR:
.PAUL A. EVES"......"... TELEPHO
NE:.[04427] 6319".6...."......
ANY KEY TO CONTINUE.".?....167.Q....198
,1:.198,0......"..LIST DIRECTORY:- [.Y
.ES] [.N.O] OR [.E.ND]?"......K$:.K$.."Y
".K$.."N".K$.."E".29.A....K$."Y".NF.1:.4
2.T....K$."E"..".":.... .NF.0...!..".REQ
UIRED FILE:-";N$..."..C(N$).16.N$.H(N$,1
6)...#.....$...9.%.. *******************
*.T.&.. ** READ DIRECTORY **.O.'.. *****
***************.U.(...{.).....*..15,8,15
,"I0":.2,8,2,"#"...+.TR.18:SE.1...,..15,
"B-R";2;0;TR;SE.Q.-..15,"B-P";2;0......#
2,K$:.K$."".K$.G(0).../.TR.F(K$)...0..#2
,K$:.K$."".K$.G(0)...1.SE.F(K$).*.2..I.0
.7.A.3..15,"B-P";2;I.32.5.L.4.NA$."".X.5
..Z.0.15.R.6..#2,K$:.K$."".K$.G(0)...7..
F(K$).160.58...8.NA$.NA$.K$...9..Z...:..
N$.NA$.68...;..NF..NA$...<..I.J.=..TR.0.
63.R.>..44...?. 2: 15...@..NF..0.68.*.A.
.NF.0.."......................ERROR....
.NO SUCH FILE!!!".U.B.."......
ANY KEY TO CONTINUE".I.C..198,1:.198,0:
..S.D..NF...Y.E....F.....G.. **********
**********...H.. **READS AND STORES**.P.
I.. ** PARAMETERS OF **...J.. ** REQUIR
ED FILE **...K.. ********************..
.L.....M...).N..15,"B-P";2;I.32.2.C.O..#
2,K$:.K$."".K$.G(0).P.P.TP.F(K$).].Q.AF.
TP.15.U.R..AF.0.TY$."DELETED"...S..AF.1.
TY$."SEQUENTIAL"...T..AF.2.TY$."PROGRAM"
...U..AF.3.TY$."USER".V.V..AF.4.TY$."REL
ATIVE".!.W..AF.4.."...................ER
ROR..... FILE TYPE NOT RECOGNISED!!!":.6
6.;.X..TP.128.XX$."YES":.90.H.Y.XX$."NO"
.A.Z..TP.64.SE$."YES":.92.N.[.SE$."NO"..
.\..15,"B-P"2,I.32.30...]..#2,K$:.K$."".
K$.G(0)...^.LO.F(K$).F._..#2,K$:.K$."".K
$.G(0).W.`.HI.F(K$).256...A.BK.LO.HI...B
..AF..4.102...C..15,"B-P";2;I.32.23.%.D.
.#2,K$:.K$."".K$.G(0).2.E.LE.F(K$).A.F..
AF..2.117.X.G..15,"B-P";2;I.32.3.R.H..#2
,K$:.K$."".K$.G(0)..I.DB.F(K$)...J..#2,
K$:.K$."".K$.G(0)...K.DF.F(K$)...L..3,8,
3,"#".M.M..15,"B-R";3;0;DB;DF...N..15,"B
-P";3;2...O..#3,K$:.K$."".K$.G(0)...P.LO
.F(K$). .Q..#3,K$:.K$."".K$.G(0).1.R.HI.
F(K$).256.>.S.FA.LO.HI.E.T. 3.\.U..15,"B
-R";2;0;18;0.E.V.FB.0.T.W..J.4.140.4...X
..J.72.124...Y..15,"B-P";2;J...Z..#2,K$:
.K$."".K$.G(0)...{.FB.F(K$).FB.E.|..J.S.
}.AB.664.FB...~..AF..4.137....SB.BK.121
:.SB...(SB).SB..(SB.1).!...RF..(((BK.SB)
.256).LE).<.... ********************.W..
.. ** ASKS FOR OUTPUT**.R.... ** METHOD.
SCREEN **...... ** OR PRINTER] AND**...
... ** DISPLAYS INFO **.C.... *********
***********.I.....O.........."..OUTPUT T
O [.S.CREEN] OR [.P.RINTER] ?"......K$:.
K$.."S".K$.."P".138.;....K$."S"..1,3:.1,
G(147):.165.L....K$."P"..1,4.P....1,"
PROGRAM NAME: ";N$.}....1:.1:.1...
...1," -:PROGRAM PARAMETERS:-"....
..1:.1.W....1," TYPE OF FILE:
";TY$......1," FILE CLOSED:
";XX$.)....1," FILE PROTECTED:
";SE$.P....1," NUMBER OF BLOCKS:
";BK._....AF..4.154......1," RECOR
D LENGTH: ";LE......1," SIDE-S
ECTOR BLOCKS: ";SB.W....1," DATA BL
OCKS: ";BK.SB......1," RECOR
DS: ";RF.+....AF.2..1,"
START ADDRESS: ";FA.R....1," B
LOCKS AVAILABLE[DISK]:";FB......1," BL
OCKS ALLOCATED[DISK]:";AB:.1:.1:.1.....
1......".... RE-RUN PROGRAM [.Y.ES] OR
[.N.O] ?.B....167.M. . 2: 15......K$:.K
$."".161......K$."Y"..0......K$."N".."."
:.......161.#....53265,B(53265).239.)...
..@....53265,B(53265).16.F.......
> CLICK IMAGE PREVIEW FOR FULL MODAL