UNLISTABLE
FILE INFORMATION
FILENAME(S): UNLISTABLE
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 21:05:28
APPEARS ON: 2 disk(s)
FILE HASH
976e8a359d1a372bf10b7c0a28597ee1f61ce7cec8c59be06151e9bd84cc31fc
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE BRUIN 12B | UNLISTABLE | PRG | DuncanTwain | 23 | 12 | DOWNLOAD FILE |
| QST DE WB4ZOJ | UNLISTABLE | PRG | DuncanTwain | 23 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 45 08 00 00 8F 22 8D 93 4C 49 53 54 20 50 |..E...."..LIST P| 00000010: 52 4F 54 45 43 54 4F 52 20 2D 20 43 4F 50 59 52 |ROTECTOR - COPYR| 00000020: 49 47 48 54 20 28 43 29 A0 31 39 38 35 20 20 20 |IGHT (C).1985 | 00000030: 20 20 42 59 20 4C 4F 4E 4E 49 45 20 44 45 20 43 | BY LONNIE DE C| 00000040: 4C 4F 45 44 54 00 57 08 0A 00 00 3A 3A 3A 3A 97 |LOEDT.W....::::.| 00000050: 38 30 38 2C 32 33 34 00 79 08 14 00 00 3A 3A 3A |808,234.y....:::| 00000060: 3A 81 49 B2 34 39 31 35 32 A4 34 39 31 39 32 3A |:.I.49152.49192:| 00000070: 87 41 3A 97 49 2C 41 3A 82 00 A0 08 1E 00 00 3A |.A:.I,A:.......:| 00000080: 3A 3A 3A 99 22 93 22 3A 97 35 33 32 38 30 2C 30 |:::.".":.53280,0| 00000090: 3A 97 35 33 32 38 31 2C 30 3A 97 36 34 36 2C 31 |:.53281,0:.646,1| 000000A0: 00 D3 08 28 00 00 3A 3A 3A 3A 99 22 93 12 22 3B |...(..::::."..";| 000000B0: 3A 81 49 B2 31 A4 35 33 3A 99 22 20 22 3B 3A 82 |:.I.1.53:." ";:.| 000000C0: 3A 99 22 4C 49 53 54 20 50 52 4F 54 45 43 54 4F |:."LIST PROTECTO| 000000D0: 52 22 3B 00 EC 08 32 00 00 3A 3A 3A 3A 81 49 B2 |R";...2..::::.I.| 000000E0: 31 A4 35 33 3A 99 22 20 22 3B 3A 82 00 19 09 3C |1.53:." ";:....<| 000000F0: 00 00 3A 3A 3A 3A 99 22 11 92 20 20 20 20 20 20 |..::::.".. | 00000100: 20 20 20 20 42 59 3A 20 4C 4F 4E 4E 49 45 20 44 | BY: LONNIE D| 00000110: 45 20 43 4C 4F 45 44 54 22 00 45 09 46 00 00 3A |E CLOEDT".E.F..:| 00000120: 3A 3A 3A 99 22 11 11 20 20 20 20 20 20 20 20 20 |:::.".. | 00000130: 20 20 43 4F 50 59 52 49 47 48 54 20 28 43 29 20 | COPYRIGHT (C) | 00000140: 31 39 38 35 22 00 72 09 50 00 00 3A 3A 3A 3A 99 |1985".r.P..::::.| 00000150: 22 11 11 20 20 20 20 20 20 20 20 20 20 49 4E 53 |".. INS| 00000160: 54 52 55 43 54 49 4F 4E 53 3F 20 20 28 59 2F 4E |TRUCTIONS? (Y/N| 00000170: 29 22 00 8D 09 5A 00 00 3A 3A 3A 3A A1 59 4E 24 |)"...Z..::::.YN$| 00000180: 3A 8B 59 4E 24 B2 22 4E 22 A7 31 32 30 00 A3 09 |:.YN$."N".120...| 00000190: 64 00 00 3A 3A 3A 3A 8B 59 4E 24 B3 B1 22 59 22 |d..::::.YN$.."Y"| 000001A0: A7 39 30 00 B1 09 6E 00 00 3A 3A 3A 3A 8D 37 32 |.90...n..::::.72| 000001B0: 30 00 DD 09 78 00 00 3A 3A 3A 3A 57 4E B2 31 3A |0...x..::::WN.1:| 000001C0: 99 22 93 11 11 11 11 11 45 4E 54 45 52 20 49 4E |."......ENTER IN| 000001D0: 50 55 54 20 46 49 4C 45 4E 41 4D 45 22 00 EB 09 |PUT FILENAME"...| 000001E0: 82 00 00 3A 3A 3A 3A 85 49 50 24 00 13 0A 8C 00 |...::::.IP$.....| 000001F0: 00 3A 3A 3A 3A 8B 49 50 24 B2 22 22 B0 C3 28 49 |.::::.IP$.""..(I| 00000200: 50 24 29 B3 31 B0 C3 28 49 50 24 29 B1 31 36 A7 |P$).1..(IP$).16.| 00000210: 31 32 30 00 53 0A 96 00 00 3A 3A 3A 3A 99 22 11 |120.S....::::.".| 00000220: 11 59 4F 55 20 45 4E 54 45 52 45 44 20 12 20 22 |.YOU ENTERED . "| 00000230: 3B 49 50 24 3B 22 20 92 22 3A 99 22 49 53 20 54 |;IP$;" .":."IS T| 00000240: 48 49 53 20 43 4F 52 52 45 43 54 3F 20 28 59 2F |HIS CORRECT? (Y/| 00000250: 4E 29 22 00 6E 0A A0 00 00 3A 3A 3A 3A A1 59 4E |N)".n....::::.YN| 00000260: 24 3A 8B 59 4E 24 B2 22 4E 22 A7 31 32 30 00 85 |$:.YN$."N".120..| 00000270: 0A AA 00 00 3A 3A 3A 3A 8B 59 4E 24 B3 B1 22 59 |....::::.YN$.."Y| 00000280: 22 A7 31 36 30 00 A7 0A B4 00 00 3A 3A 3A 3A 99 |".160......::::.| 00000290: 22 11 44 45 56 49 43 45 20 4E 55 4D 42 45 52 3F |".DEVICE NUMBER?| 000002A0: 20 28 38 2F 39 29 22 00 D0 0A BE 00 00 3A 3A 3A | (8/9)"......:::| 000002B0: 3A A1 49 44 24 3A 49 44 B2 C5 28 49 44 24 29 3A |:.ID$:ID..(ID$):| 000002C0: 8B 49 44 B3 B1 38 AF 49 44 B3 B1 39 A7 31 39 30 |.ID..8.ID..9.190| 000002D0: 00 03 0B C8 00 00 3A 3A 3A 3A 9F 31 35 2C 49 44 |......::::.15,ID| 000002E0: 2C 31 35 3A 9F 32 2C 49 44 2C 32 2C 49 50 24 AA |,15:.2,ID,2,IP$.| 000002F0: 22 2C 50 2C 52 22 3A 84 31 35 2C 41 2C 42 24 2C |",P,R":.15,A,B$,| 00000300: 43 2C 44 00 45 0B D2 00 00 3A 3A 3A 3A 8B 41 B3 |C,D.E....::::.A.| 00000310: B1 30 A7 A0 31 35 3A A0 32 3A 99 22 93 11 11 11 |.0..15:.2:."....| 00000320: 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 |....... | 00000330: 20 46 49 4C 45 20 44 4F 45 53 20 4E 4F 54 20 45 | FILE DOES NOT E| 00000340: 58 49 53 54 22 00 62 0B DC 00 00 3A 3A 3A 3A 8B |XIST".b....::::.| 00000350: 41 B3 B1 30 A7 81 49 B2 31 A4 31 30 30 30 3A 82 |A..0..I.1.1000:.| 00000360: 3A 8A 00 8A 0B E6 00 00 3A 3A 3A 3A 99 22 93 11 |:.......::::."..| 00000370: 11 11 11 11 45 4E 54 45 52 20 4F 55 54 50 55 54 |....ENTER OUTPUT| 00000380: 20 46 49 4C 45 4E 41 4D 45 22 00 98 0B F0 00 00 | FILENAME"......| 00000390: 3A 3A 3A 3A 85 4F 50 24 00 C0 0B FA 00 00 3A 3A |::::.OP$......::| 000003A0: 3A 3A 8B 4F 50 24 B2 22 22 B0 C3 28 4F 50 24 29 |::.OP$.""..(OP$)| 000003B0: B3 31 B0 C3 28 4F 50 24 29 B1 31 36 A7 32 33 30 |.1..(OP$).16.230| 000003C0: 00 00 0C 04 01 00 3A 3A 3A 3A 99 22 11 11 59 4F |......::::."..YO| 000003D0: 55 20 45 4E 54 45 52 45 44 20 12 20 22 3B 4F 50 |U ENTERED . ";OP| 000003E0: 24 3B 22 20 92 22 3A 99 22 49 53 20 54 48 49 53 |$;" .":."IS THIS| 000003F0: 20 43 4F 52 52 45 43 54 3F 20 28 59 2F 4E 29 22 | CORRECT? (Y/N)"| 00000400: 00 1B 0C 0E 01 00 3A 3A 3A 3A A1 59 4E 24 3A 8B |......::::.YN$:.| 00000410: 59 4E 24 B2 22 4E 22 A7 32 33 30 00 32 0C 18 01 |YN$."N".230.2...| 00000420: 00 3A 3A 3A 3A 8B 59 4E 24 B3 B1 22 59 22 A7 32 |.::::.YN$.."Y".2| 00000430: 37 30 00 54 0C 22 01 00 3A 3A 3A 3A 99 22 11 44 |70.T."..::::.".D| 00000440: 45 56 49 43 45 20 4E 55 4D 42 45 52 3F 20 28 38 |EVICE NUMBER? (8| 00000450: 2F 39 29 22 00 7D 0C 2C 01 00 3A 3A 3A 3A A1 4F |/9)".}.,..::::.O| 00000460: 44 24 3A 4F 44 B2 C5 28 4F 44 24 29 3A 8B 4F 44 |D$:OD..(OD$):.OD| 00000470: B3 B1 38 AF 4F 44 B3 B1 39 A7 33 30 30 00 B0 0C |..8.OD..9.300...| 00000480: 36 01 00 3A 3A 3A 3A 9F 31 34 2C 4F 44 2C 31 35 |6..::::.14,OD,15| 00000490: 3A 9F 33 2C 4F 44 2C 33 2C 4F 50 24 AA 22 2C 50 |:.3,OD,3,OP$.",P| 000004A0: 2C 57 22 3A 84 31 34 2C 41 2C 42 24 2C 43 2C 44 |,W":.14,A,B$,C,D| 000004B0: 00 C9 0C 40 01 00 3A 3A 3A 3A 8B 41 B3 B1 30 A7 |...@..::::.A..0.| 000004C0: A0 31 35 3A A0 32 3A A0 33 00 0C 0D 4A 01 00 3A |.15:.2:.3...J..:| 000004D0: 3A 3A 3A 8B 41 B3 B1 30 A7 99 22 93 11 11 11 11 |:::.A..0..".....| 000004E0: 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 |...... | 000004F0: 20 20 20 20 20 45 52 52 4F 52 21 21 21 21 21 22 | ERROR!!!!!"| 00000500: 3A 81 49 B2 31 A4 31 30 30 30 3A 82 00 1D 0D 54 |:.I.1.1000:....T| 00000510: 01 00 3A 3A 3A 3A 8B 41 B3 B1 30 A7 8A 00 6F 0D |..::::.A..0...o.| 00000520: 5E 01 00 3A 3A 3A 3A 99 22 93 11 11 11 11 11 45 |^..::::."......E| 00000530: 4E 54 45 52 20 53 54 52 49 4E 47 20 28 55 50 20 |NTER STRING (UP | 00000540: 54 4F 20 37 30 20 43 48 41 52 41 43 54 45 52 53 |TO 70 CHARACTERS| 00000550: 29 20 54 4F 20 20 20 50 55 54 20 49 4E 20 52 45 |) TO PUT IN RE| 00000560: 4D 20 41 54 20 53 54 41 52 54 20 4F 46 22 3B 00 |M AT START OF";.| 00000570: 86 0D 68 01 00 3A 3A 3A 3A 99 22 20 50 52 4F 47 |..h..::::." PROG| 00000580: 52 41 4D 2E 11 22 00 94 0D 72 01 00 3A 3A 3A 3A |RAM.."...r..::::| 00000590: 85 52 4D 24 00 BC 0D 7C 01 00 3A 3A 3A 3A 8B 52 |.RM$...|..::::.R| 000005A0: 4D 24 B2 22 22 B0 C3 28 52 4D 24 29 B3 31 B0 C3 |M$.""..(RM$).1..| 000005B0: 28 52 4D 24 29 B1 37 30 A7 33 35 30 00 00 0E 86 |(RM$).70.350....| 000005C0: 01 00 3A 3A 3A 3A 99 22 11 59 4F 55 20 45 4E 54 |..::::.".YOU ENT| 000005D0: 45 52 45 44 3A 11 22 3A 99 22 12 22 3B 52 4D 24 |ERED:.":.".";RM$| 000005E0: 3B 22 92 22 3A 99 22 11 11 49 53 20 54 48 49 53 |;".":."..IS THIS| 000005F0: 20 43 4F 52 52 45 43 54 3F 20 28 59 2F 4E 29 22 | CORRECT? (Y/N)"| 00000600: 00 1B 0E 90 01 00 3A 3A 3A 3A A1 59 4E 24 3A 8B |......::::.YN$:.| 00000610: 59 4E 24 B2 22 4E 22 A7 33 35 30 00 32 0E 9A 01 |YN$."N".350.2...| 00000620: 00 3A 3A 3A 3A 8B 59 4E 24 B3 B1 22 59 22 A7 34 |.::::.YN$.."Y".4| 00000630: 30 30 00 65 0E A4 01 00 3A 3A 3A 3A 99 22 93 11 |00.e....::::."..| 00000640: 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 |........... | 00000650: 20 20 20 20 20 20 20 20 20 20 57 4F 52 4B 49 4E | WORKIN| 00000660: 47 2E 2E 2E 22 00 78 0E AE 01 00 3A 3A 3A 3A A1 |G...".x....::::.| 00000670: 23 32 2C 41 24 2C 42 24 00 90 0E B8 01 00 3A 3A |#2,A$,B$......::| 00000680: 3A 3A 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 29 |::.A$."".A$..(0)| 00000690: 00 A8 0E C2 01 00 3A 3A 3A 3A 8B 42 24 B2 22 22 |......::::.B$.""| 000006A0: A7 42 24 B2 C7 28 30 29 00 BB 0E CC 01 00 3A 3A |.B$..(0)......::| 000006B0: 3A 3A 98 33 2C 41 24 3B 42 24 3B 00 E1 0E D6 01 |::.3,A$;B$;.....| 000006C0: 00 3A 3A 3A 3A 81 49 B2 31 A4 32 3A A1 23 32 2C |.::::.I.1.2:.#2,| 000006D0: 41 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 |A$:.A$."".A$..(0| 000006E0: 29 00 F3 0E E0 01 00 3A 3A 3A 3A 98 33 2C 41 24 |)......::::.3,A$| 000006F0: 3B 3A 82 00 19 0F EA 01 00 3A 3A 3A 3A 81 49 B2 |;:.......::::.I.| 00000700: 31 A4 32 3A A1 23 32 2C 41 24 3A 8B 41 24 B2 22 |1.2:.#2,A$:.A$."| 00000710: 22 A7 41 24 B2 C7 28 30 29 00 2B 0F F4 01 00 3A |".A$..(0).+....:| 00000720: 3A 3A 3A 98 33 2C 41 24 3B 3A 82 00 51 0F FE 01 |:::.3,A$;:..Q...| 00000730: 00 3A 3A 3A 3A 98 33 2C C7 28 35 38 29 3B 3A 81 |.::::.3,.(58);:.| 00000740: 49 B2 31 A4 34 3A 98 33 2C C7 28 35 38 29 3B 3A |I.1.4:.3,.(58);:| 00000750: 82 00 70 0F 08 02 00 3A 3A 3A 3A A1 23 32 2C 41 |..p....::::.#2,A| 00000760: 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 29 |$:.A$."".A$..(0)| 00000770: 00 80 0F 12 02 00 3A 3A 3A 3A 98 33 2C 41 24 3B |......::::.3,A$;| 00000780: 00 96 0F 1C 02 00 3A 3A 3A 3A 8B 41 24 B2 C7 28 |......::::.A$..(| 00000790: 30 29 A7 35 36 30 00 A4 0F 26 02 00 3A 3A 3A 3A |0).560...&..::::| 000007A0: 89 35 32 30 00 C6 0F 30 02 00 3A 3A 3A 3A A1 23 |.520...0..::::.#| 000007B0: 32 2C 41 24 2C 42 24 3A 8B 41 24 B2 22 22 A7 41 |2,A$,B$:.A$."".A| 000007C0: 24 B2 C7 28 30 29 00 DE 0F 3A 02 00 3A 3A 3A 3A |$..(0)...:..::::| 000007D0: 8B 42 24 B2 22 22 A7 42 24 B2 C7 28 30 29 00 F1 |.B$."".B$..(0)..| 000007E0: 0F 44 02 00 3A 3A 3A 3A 98 33 2C 41 24 3B 42 24 |.D..::::.3,A$;B$| 000007F0: 3B 00 08 10 4E 02 00 3A 3A 3A 3A 8B 42 24 B3 B1 |;...N..::::.B$..| 00000800: C7 28 30 29 A7 34 39 30 00 1B 10 58 02 00 3A 3A |.(0).490...X..::| 00000810: 3A 3A A0 32 3A A0 33 3A A0 31 35 00 44 10 62 02 |::.2:.3:.15.D.b.| 00000820: 00 3A 3A 3A 3A 99 22 93 20 20 20 20 20 20 20 20 |.::::.". | 00000830: 20 20 20 20 20 50 4C 45 41 53 45 20 57 41 49 54 | PLEASE WAIT| 00000840: 2E 2E 2E 22 00 56 10 6C 02 00 3A 3A 3A 3A 99 22 |...".V.l..::::."| 00000850: 90 13 11 11 22 3B 00 70 10 76 02 00 3A 3A 3A 3A |....";.p.v..::::| 00000860: 99 22 50 4F 4B 45 38 30 38 2C 32 33 37 3A 22 3B |."POKE808,237:";| 00000870: 00 93 10 80 02 00 3A 3A 3A 3A 99 22 4C 4F 41 44 |......::::."LOAD| 00000880: 22 C7 28 33 34 29 4F 50 24 C7 28 33 34 29 22 2C |".(34)OP$.(34)",| 00000890: 22 4F 44 00 AC 10 8A 02 00 3A 3A 3A 3A 99 22 11 |"OD......::::.".| 000008A0: 11 11 11 53 59 53 34 39 31 35 32 22 00 D7 10 94 |...SYS49152"....| 000008B0: 02 00 3A 3A 3A 3A 99 22 11 11 30 52 45 4D 22 C7 |..::::."..0REM".| 000008C0: 28 33 34 29 C7 28 33 34 29 C7 28 32 30 29 22 12 |(34).(34).(20)".| 000008D0: CD D3 92 22 52 4D 24 00 09 11 9E 02 00 3A 3A 3A |..."RM$......:::| 000008E0: 3A 99 22 4F 50 45 4E 31 35 2C 22 4F 44 22 2C 31 |:."OPEN15,"OD",1| 000008F0: 35 2C 22 C7 28 33 34 29 22 53 30 3A 22 4F 50 24 |5,".(34)"S0:"OP$| 00000900: C7 28 33 34 29 22 3A 22 3B 00 2C 11 A8 02 00 3A |.(34)":";.,....:| 00000910: 3A 3A 3A 99 22 53 41 56 45 22 C7 28 33 34 29 4F |:::."SAVE".(34)O| 00000920: 50 24 C7 28 33 34 29 22 2C 22 4F 44 00 73 11 B2 |P$.(34)","OD.s..| 00000930: 02 00 3A 3A 3A 3A 99 22 11 11 11 50 52 49 4E 54 |..::::."...PRINT| 00000940: 22 C7 28 33 34 29 22 93 11 11 11 11 11 11 11 11 |".(34)".........| 00000950: 11 11 05 20 20 20 20 20 20 20 20 20 20 20 20 20 |... | 00000960: 20 20 46 49 4E 49 53 48 45 44 21 21 22 C7 28 33 | FINISHED!!".(3| 00000970: 34 29 3B 00 9D 11 BC 02 00 3A 3A 3A 3A 99 22 3A |4);......::::.":| 00000980: 46 4F 52 49 3D 31 54 4F 31 30 30 30 3A 4E 45 58 |FORI=1TO1000:NEX| 00000990: 54 3A 53 59 53 36 34 37 33 38 13 22 3B 00 C2 11 |T:SYS64738.";...| 000009A0: C6 02 00 3A 3A 3A 3A 81 49 B2 36 33 31 A4 36 33 |...::::.I.631.63| 000009B0: 36 3A 97 49 2C 31 33 3A 82 3A 97 31 39 38 2C 36 |6:.I,13:.:.198,6| 000009C0: 3A A2 00 F5 11 D0 02 00 3A 3A 3A 3A 99 22 93 12 |:.......::::."..| 000009D0: 22 3B 3A 81 49 B2 31 A4 35 33 3A 99 22 20 22 3B |";:.I.1.53:." ";| 000009E0: 3A 82 3A 99 22 4C 49 53 54 20 50 52 4F 54 45 43 |:.:."LIST PROTEC| 000009F0: 54 4F 52 22 3B 00 10 12 DA 02 00 3A 3A 3A 3A 81 |TOR";......::::.| 00000A00: 49 B2 31 A4 35 33 3A 99 22 20 22 3B 3A 82 3A 99 |I.1.53:." ";:.:.| 00000A10: 00 46 12 E4 02 00 3A 3A 3A 3A 99 22 20 20 54 48 |.F....::::." TH| 00000A20: 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 |IS PROGRAM WILL | 00000A30: 4C 49 53 54 20 50 52 4F 54 45 43 54 20 41 20 42 |LIST PROTECT A B| 00000A40: 41 53 49 43 22 3B 00 78 12 EE 02 00 3A 3A 3A 3A |ASIC";.x....::::| 00000A50: 99 22 50 52 4F 47 52 41 4D 2E 20 20 49 54 20 44 |."PROGRAM. IT D| 00000A60: 4F 45 53 20 53 4F 20 42 59 20 4D 4F 44 49 46 59 |OES SO BY MODIFY| 00000A70: 49 4E 47 20 41 4E 44 22 00 A7 12 F8 02 00 3A 3A |ING AND"......::| 00000A80: 3A 3A 99 22 41 44 44 49 4E 47 20 54 4F 20 45 41 |::."ADDING TO EA| 00000A90: 43 48 20 4C 49 4E 45 20 4F 46 20 54 48 45 20 50 |CH LINE OF THE P| 00000AA0: 52 4F 47 52 41 4D 22 00 D8 12 02 03 00 3A 3A 3A |ROGRAM"......:::| 00000AB0: 3A 99 22 53 4F 20 42 45 20 53 55 52 45 20 59 4F |:."SO BE SURE YO| 00000AC0: 55 20 48 41 56 45 20 52 4F 4F 4D 20 4F 4E 20 54 |U HAVE ROOM ON T| 00000AD0: 48 45 20 44 49 53 4B 22 00 0B 13 0C 03 00 3A 3A |HE DISK"......::| 00000AE0: 3A 3A 99 22 46 4F 52 20 41 20 50 52 4F 47 52 41 |::."FOR A PROGRA| 00000AF0: 4D 20 53 4C 49 47 48 54 4C 59 20 4C 41 52 47 45 |M SLIGHTLY LARGE| 00000B00: 52 20 54 48 41 4E 20 54 48 45 22 00 23 13 16 03 |R THAN THE".#...| 00000B10: 00 3A 3A 3A 3A 99 22 4F 52 49 47 49 4E 41 4C 2E |.::::."ORIGINAL.| 00000B20: 22 3A 99 00 56 13 20 03 00 3A 3A 3A 3A 99 22 20 |":..V. ..::::." | 00000B30: 20 57 48 45 4E 20 46 49 52 53 54 20 52 55 4E 2C | WHEN FIRST RUN,| 00000B40: 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 41 53 4B | YOU WILL BE ASK| 00000B50: 45 44 20 54 4F 22 00 88 13 2A 03 00 3A 3A 3A 3A |ED TO"...*..::::| 00000B60: 99 22 53 55 50 50 4C 59 20 54 48 45 20 49 4E 50 |."SUPPLY THE INP| 00000B70: 55 54 20 41 4E 44 20 4F 55 54 50 55 54 20 46 49 |UT AND OUTPUT FI| 00000B80: 4C 45 4E 41 4D 45 53 22 00 B9 13 34 03 00 3A 3A |LENAMES"...4..::| 00000B90: 3A 3A 99 22 41 4E 44 20 54 48 45 20 44 45 56 49 |::."AND THE DEVI| 00000BA0: 43 45 20 4E 55 4D 42 45 52 53 20 54 48 45 59 20 |CE NUMBERS THEY | 00000BB0: 41 52 45 20 45 41 43 48 22 00 E1 13 3E 03 00 3A |ARE EACH"...>..:| 00000BC0: 3A 3A 3A 99 22 4C 4F 43 41 54 45 44 2F 54 4F 20 |:::."LOCATED/TO | 00000BD0: 42 45 20 4C 4F 43 41 54 45 44 20 4F 4E 2E 22 3A |BE LOCATED ON.":| 00000BE0: 99 00 11 14 48 03 00 3A 3A 3A 3A 99 22 20 20 20 |....H..::::." | 00000BF0: 20 20 20 20 50 52 45 53 53 20 12 20 52 45 54 55 | PRESS . RETU| 00000C00: 52 4E 20 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |RN . TO CONTINUE| 00000C10: 22 00 2F 14 52 03 00 3A 3A 3A 3A A1 5A 5A 24 3A |"./.R..::::.ZZ$:| 00000C20: 8B 5A 5A 24 B3 B1 C7 28 31 33 29 A7 38 35 30 00 |.ZZ$...(13).850.| 00000C30: 62 14 5C 03 00 3A 3A 3A 3A 99 22 93 12 22 3B 3A |b.\..::::."..";:| 00000C40: 81 49 B2 31 A4 35 33 3A 99 22 20 22 3B 3A 82 3A |.I.1.53:." ";:.:| 00000C50: 99 22 4C 49 53 54 20 50 52 4F 54 45 43 54 4F 52 |."LIST PROTECTOR| 00000C60: 22 3B 00 7D 14 66 03 00 3A 3A 3A 3A 81 49 B2 31 |";.}.f..::::.I.1| 00000C70: A4 35 33 3A 99 22 20 22 3B 3A 82 3A 99 00 B3 14 |.53:." ";:.:....| 00000C80: 70 03 00 3A 3A 3A 3A 99 22 20 20 59 4F 55 20 41 |p..::::." YOU A| 00000C90: 52 45 20 41 4C 53 4F 20 41 4C 4C 4F 57 45 44 20 |RE ALSO ALLOWED | 00000CA0: 54 4F 20 45 4E 54 45 52 20 41 20 53 54 52 49 4E |TO ENTER A STRIN| 00000CB0: 47 22 3B 00 E7 14 7A 03 00 3A 3A 3A 3A 99 22 55 |G";...z..::::."U| 00000CC0: 50 20 54 4F 20 37 30 20 43 48 41 52 41 43 54 45 |P TO 70 CHARACTE| 00000CD0: 52 53 20 4C 4F 4E 47 20 54 4F 20 42 45 20 50 55 |RS LONG TO BE PU| 00000CE0: 54 20 49 4E 54 4F 22 00 17 15 84 03 00 3A 3A 3A |T INTO"......:::| 00000CF0: 3A 99 22 41 20 52 45 4D 20 41 54 20 54 48 45 20 |:."A REM AT THE | 00000D00: 42 45 47 49 4E 4E 49 4E 47 20 4F 46 20 59 4F 55 |BEGINNING OF YOU| 00000D10: 52 20 4C 49 53 54 22 00 46 15 8E 03 00 3A 3A 3A |R LIST".F....:::| 00000D20: 3A 99 22 50 52 4F 54 45 43 54 45 44 20 42 41 53 |:."PROTECTED BAS| 00000D30: 49 43 20 50 52 4F 47 52 41 4D 2E 20 20 54 48 45 |IC PROGRAM. THE| 00000D40: 20 4C 49 4E 45 22 00 75 15 98 03 00 3A 3A 3A 3A | LINE".u....::::| 00000D50: 99 22 4E 55 4D 42 45 52 20 41 4E 44 20 4B 45 59 |."NUMBER AND KEY| 00000D60: 57 4F 52 44 20 52 45 4D 20 57 49 4C 4C 20 4E 4F |WORD REM WILL NO| 00000D70: 54 20 42 45 22 00 A7 15 A2 03 00 3A 3A 3A 3A 99 |T BE"......::::.| 00000D80: 22 50 52 49 4E 54 45 44 20 57 48 45 4E 20 4C 49 |"PRINTED WHEN LI| 00000D90: 53 54 45 44 2E 20 20 4F 4E 4C 59 20 54 48 45 20 |STED. ONLY THE | 00000DA0: 53 54 52 49 4E 47 22 00 DD 15 AC 03 00 3A 3A 3A |STRING"......:::| 00000DB0: 3A 99 22 59 4F 55 20 45 4E 54 45 52 20 57 49 4C |:."YOU ENTER WIL| 00000DC0: 4C 2E 20 20 54 48 49 53 20 4C 49 4E 45 20 57 49 |L. THIS LINE WI| 00000DD0: 4C 4C 2C 20 48 4F 57 45 56 45 52 22 3B 00 0B 16 |LL, HOWEVER";...| 00000DE0: B6 03 00 3A 3A 3A 3A 99 22 42 45 20 4C 49 4E 45 |...::::."BE LINE| 00000DF0: 20 5A 45 52 4F 20 49 4E 20 59 4F 55 52 20 50 52 | ZERO IN YOUR PR| 00000E00: 4F 47 52 41 4D 2C 20 41 4E 44 22 00 3C 16 C0 03 |OGRAM, AND".<...| 00000E10: 00 3A 3A 3A 3A 99 22 57 49 4C 4C 20 52 45 50 4C |.::::."WILL REPL| 00000E20: 41 43 45 20 41 4E 59 20 4C 49 4E 45 20 5A 45 52 |ACE ANY LINE ZER| 00000E30: 4F 20 59 4F 55 20 4D 49 47 48 54 22 00 6B 16 CA |O YOU MIGHT".k..| 00000E40: 03 00 3A 3A 3A 3A 99 22 48 41 56 45 20 50 52 45 |..::::."HAVE PRE| 00000E50: 56 49 4F 55 53 4C 59 20 48 41 44 2C 20 53 4F 20 |VIOUSLY HAD, SO | 00000E60: 59 4F 55 20 53 48 4F 55 4C 44 22 00 99 16 D4 03 |YOU SHOULD".....| 00000E70: 00 3A 3A 3A 3A 99 22 52 45 4E 55 4D 42 45 52 20 |.::::."RENUMBER | 00000E80: 59 4F 55 52 20 50 52 4F 47 52 41 4D 20 42 45 46 |YOUR PROGRAM BEF| 00000E90: 4F 52 45 20 4C 49 53 54 22 00 B6 16 DE 03 00 3A |ORE LIST"......:| 00000EA0: 3A 3A 3A 99 22 50 52 4F 54 45 43 54 49 4E 47 20 |:::."PROTECTING | 00000EB0: 49 54 2E 22 3A 99 00 E7 16 E8 03 00 3A 3A 3A 3A |IT.":.......::::| 00000EC0: 99 22 20 20 20 20 20 20 20 50 52 45 53 53 20 12 |." PRESS .| 00000ED0: 20 52 45 54 55 52 4E 20 92 20 54 4F 20 43 4F 4E | RETURN . TO CON| 00000EE0: 54 49 4E 55 45 22 3B 00 06 17 F2 03 00 3A 3A 3A |TINUE";......:::| 00000EF0: 3A A1 5A 5A 24 3A 8B 5A 5A 24 B3 B1 C7 28 31 33 |:.ZZ$:.ZZ$...(13| 00000F00: 29 A7 31 30 31 30 00 39 17 FC 03 00 3A 3A 3A 3A |).1010.9....::::| 00000F10: 99 22 93 12 22 3B 3A 81 49 B2 31 A4 35 33 3A 99 |."..";:.I.1.53:.| 00000F20: 22 20 22 3B 3A 82 3A 99 22 4C 49 53 54 20 50 52 |" ";:.:."LIST PR| 00000F30: 4F 54 45 43 54 4F 52 22 3B 00 54 17 06 04 00 3A |OTECTOR";.T....:| 00000F40: 3A 3A 3A 81 49 B2 31 A4 35 33 3A 99 22 20 22 3B |:::.I.1.53:." ";| 00000F50: 3A 82 3A 99 00 86 17 10 04 00 3A 3A 3A 3A 99 22 |:.:.......::::."| 00000F60: 20 20 49 46 20 59 4F 55 20 44 4F 20 4E 4F 54 20 | IF YOU DO NOT | 00000F70: 57 49 53 48 20 54 4F 20 48 41 56 45 20 41 4E 59 |WISH TO HAVE ANY| 00000F80: 54 48 49 4E 47 22 00 B3 17 1A 04 00 3A 3A 3A 3A |THING"......::::| 00000F90: 99 22 50 52 49 4E 54 45 44 20 49 4E 20 59 4F 55 |."PRINTED IN YOU| 00000FA0: 52 20 4C 49 53 54 49 4E 47 2C 20 45 4E 54 45 52 |R LISTING, ENTER| 00000FB0: 20 41 22 00 E7 17 24 04 00 3A 3A 3A 3A 99 22 53 | A"...$..::::."S| 00000FC0: 48 49 46 54 45 44 20 53 50 41 43 45 20 48 45 52 |HIFTED SPACE HER| 00000FD0: 45 2E 20 20 54 48 45 20 52 45 4D 20 57 49 4C 4C |E. THE REM WILL| 00000FE0: 20 53 54 49 4C 4C 22 00 17 18 2E 04 00 3A 3A 3A | STILL"......:::| 00000FF0: 3A 99 22 42 45 20 50 55 54 20 49 4E 54 4F 20 59 |:."BE PUT INTO Y| 00001000: 4F 55 52 20 50 52 4F 47 52 41 4D 2C 20 42 55 54 |OUR PROGRAM, BUT| 00001010: 20 54 48 45 52 45 22 00 41 18 38 04 00 3A 3A 3A | THERE".A.8..:::| 00001020: 3A 99 22 57 4F 4E 27 54 20 42 45 20 41 4E 59 54 |:."WON'T BE ANYT| 00001030: 48 49 4E 47 20 54 4F 20 50 52 49 4E 54 2E 22 3A |HING TO PRINT.":| 00001040: 99 00 71 18 42 04 00 3A 3A 3A 3A 99 22 20 20 20 |..q.B..::::." | 00001050: 20 20 20 20 50 52 45 53 53 20 12 20 52 45 54 55 | PRESS . RETU| 00001060: 52 4E 20 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |RN . TO CONTINUE| 00001070: 22 00 90 18 4C 04 00 3A 3A 3A 3A A1 5A 5A 24 3A |"...L..::::.ZZ$:| 00001080: 8B 5A 5A 24 B3 B1 C7 28 31 33 29 A7 31 31 30 30 |.ZZ$...(13).1100| 00001090: 00 9B 18 56 04 00 3A 3A 3A 3A 8E 00 BC 18 60 04 |...V..::::....`.| 000010A0: 00 3A 3A 3A 3A 83 20 31 36 35 2C 34 33 2C 31 33 |.::::. 165,43,13| 000010B0: 33 2C 32 35 31 2C 31 36 35 2C 34 34 00 DE 18 6A |3,251,165,44...j| 000010C0: 04 00 3A 3A 3A 3A 83 20 31 33 33 2C 32 35 32 2C |..::::. 133,252,| 000010D0: 31 36 35 2C 32 35 32 2C 32 34 30 2C 32 38 00 FF |165,252,240,28..| 000010E0: 18 74 04 00 3A 3A 3A 3A 83 20 31 36 30 2C 30 2C |.t..::::. 160,0,| 000010F0: 31 37 37 2C 32 35 31 2C 31 33 33 2C 32 35 33 00 |177,251,133,253.| 00001100: 22 19 7E 04 00 3A 3A 3A 3A 83 20 32 30 30 2C 31 |".~..::::. 200,1| 00001110: 37 37 2C 32 35 31 2C 31 33 33 2C 32 35 34 2C 31 |77,251,133,254,1| 00001120: 36 39 00 41 19 88 04 00 3A 3A 3A 3A 83 20 30 2C |69.A....::::. 0,| 00001130: 31 36 30 2C 34 2C 31 34 35 2C 32 35 31 2C 31 36 |160,4,145,251,16| 00001140: 35 00 64 19 92 04 00 3A 3A 3A 3A 83 20 32 35 33 |5.d....::::. 253| 00001150: 2C 31 33 33 2C 32 35 31 2C 31 36 35 2C 32 35 34 |,133,251,165,254| 00001160: 2C 31 33 33 00 7F 19 9C 04 00 3A 3A 3A 3A 83 20 |,133......::::. | 00001170: 32 35 32 2C 37 36 2C 38 2C 31 39 32 2C 39 36 00 |252,76,8,192,96.| 00001180: 00 00 0D 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000011A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000011B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000011C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000011D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000011E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000011F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
..E...."..LIST PROTECTOR - COPYRIGHT (C) 1985 BY LONNIE DE CLOEDT.W....::::. 808,234.Y....::::.I.49152.49192:.A:.I,A: .. ....::::.".":.53280,0:.53281,0:.646,1 .S.(..::::."..";:.I.1.53:." ";:.:."LIST PROTECTOR";...2..::::.I.1.53:." ";:....< ..::::.".. BY: LONNIE DE CLOEDT ".E.F..::::.".. COPYRIGHT (C) 1985".R.P..::::.".. INSTRUCTION S? (Y/N)"...Z..::::.YN$:.YN$."N".120... D..::::.YN$.."Y".90...N..::::.720...X..: :::WN.1:."......ENTER INPUT FILENAME"... ...::::.IP$......::::.IP$."".C(IP$).1.C( IP$).16.120.S....::::."..YOU ENTERED . " ;IP$;" .":."IS THIS CORRECT? (Y/N)".N. . .::::.YN$:.YN$."N".120......::::.YN$.."Y ".160......::::.".DEVICE NUMBER? (8/9)". P....::::.ID$:ID.E(ID$):.ID..8.ID..9.190 ...H..::::.15,ID,15:.2,ID,2,IP$.",P,R":. 15,A,B$,C,D.E.R..::::.A..0. 15: 2:.".... ....... FILE DOES NOT EXIST".B. ...::::.A..0..I.1.1000:.:.......::::.".. ....ENTER OUTPUT FILENAME"......::::.OP$ ......::::.OP$."".C(OP$).1.C(OP$).16.230 ......::::."..YOU ENTERED . ";OP$;" .":. "IS THIS CORRECT? (Y/N)"......::::.YN$:. YN$."N".230.2....::::.YN$.."Y".270.T.".. ::::.".DEVICE NUMBER? (8/9)".}.,..::::.O D$:OD.E(OD$):.OD..8.OD..9.300...6..::::. 14,OD,15:.3,OD,3,OP$.",P,W":.14,A,B$,C,D .I.@..::::.A..0. 15: 2: 3...J..::::.A..0 .."........... ERROR!!!!!" :.I.1.1000:....T..::::.A..0...O.^..::::. "......ENTER STRING (UP TO 70 CHARACTERS ) TO PUT IN REM AT START OF";...H..::: :." PROGRAM.."...R..::::.RM$...|..::::.R M$."".C(RM$).1.C(RM$).70.350......::::." .YOU ENTERED:.":.".";RM$;".":."..IS THIS CORRECT? (Y/N)"......::::.YN$:.YN$."N". 350.2....::::.YN$.."Y".400.E....::::.".. ........... WORKING...".X. ...::::.#2,A$,B$......::::.A$."".A$.G(0) ...B..::::.B$."".B$.G(0)...L..::::.3,A$; B$;...V..::::.I.1.2:.#2,A$:.A$."".A$.G(0 )......::::.3,A$;:.......::::.I.1.2:.#2, A$:.A$."".A$.G(0).+....::::.3,A$;:..Q... .::::.3,G(58);:.I.1.4:.3,G(58);:..P....: :::.#2,A$:.A$."".A$.G(0)......::::.3,A$; ......::::.A$.G(0).560...&..::::.520.F.0 ..::::.#2,A$,B$:.A$."".A$.G(0)...:..:::: .B$."".B$.G(0)...D..::::.3,A$;B$;...N..: :::.B$..G(0).490...X..:::: 2: 3: 15.D.B. .::::.". PLEASE WAIT...".V.L ..::::."....";.P.V..::::."POKE808,237:"; ......::::."LOAD"G(34)OP$G(34)","OD..... .::::."....SYS49152".W....::::."..0REM"G (34)G(34)G(20)".MS."RM$......::::."OPEN1 5,"OD",15,"G(34)"S0:"OP$G(34)":";.,....: :::."SAVE"G(34)OP$G(34)","OD.S....::::." ...PRINT"G(34)"............ FINISHED!!"G(34);......::::.":FORI=1TO 1000:NEXT:SYS64738.";.B.F..::::.I.631.63 6:.I,13:.:.198,6:....P..::::."..";:.I.1. 53:." ";:.:."LIST PROTECTOR";...Z..::::. I.1.53:." ";:.:..F....::::." THIS PROGR AM WILL LIST PROTECT A BASIC";.X....:::: ."PROGRAM. IT DOES SO BY MODIFYING AND" ......::::."ADDING TO EACH LINE OF THE P ROGRAM".X....::::."SO BE SURE YOU HAVE R OOM ON THE DISK"......::::."FOR A PROGRA M SLIGHTLY LARGER THAN THE".#....::::."O RIGINAL.":..V. ..::::." WHEN FIRST RUN, YOU WILL BE ASKED TO"...*..::::."SUPPLY THE INPUT AND OUTPUT FILENAMES"...4..:: ::."AND THE DEVICE NUMBERS THEY ARE EACH "...>..::::."LOCATED/TO BE LOCATED ON.": ....H..::::." PRESS . RETURN . TO CONTINUE"./.R..::::.ZZ$:.ZZ$..G(13).850. B.\..::::."..";:.I.1.53:." ";:.:."LIST P ROTECTOR";.}.F..::::.I.1.53:." ";:.:.... P..::::." YOU ARE ALSO ALLOWED TO ENTER A STRING";...Z..::::."UP TO 70 CHARACTE RS LONG TO BE PUT INTO"......::::."A REM AT THE BEGINNING OF YOUR LIST".F....::: :."PROTECTED BASIC PROGRAM. THE LINE".U ....::::."NUMBER AND KEYWORD REM WILL NO T BE"......::::."PRINTED WHEN LISTED. O NLY THE STRING"......::::."YOU ENTER WIL L. THIS LINE WILL, HOWEVER";......::::. "BE LINE ZERO IN YOUR PROGRAM, AND".<... .::::."WILL REPLACE ANY LINE ZERO YOU MI GHT".K.J..::::."HAVE PREVIOUSLY HAD, SO YOU SHOULD"...T..::::."RENUMBER YOUR PRO GRAM BEFORE LIST"......::::."PROTECTING IT.":.......::::." PRESS . RETURN . TO CONTINUE";......::::.ZZ$:.ZZ$..G(13 ).1010.9....::::."..";:.I.1.53:." ";:.:. "LIST PROTECTOR";.T....::::.I.1.53:." "; :.:.......::::." IF YOU DO NOT WISH TO HAVE ANYTHING"......::::."PRINTED IN YOU R LISTING, ENTER A"...$..::::."SHIFTED S PACE HERE. THE REM WILL STILL"......::: :."BE PUT INTO YOUR PROGRAM, BUT THERE". A.8..::::."WON'T BE ANYTHING TO PRINT.": ..Q.B..::::." PRESS . RETURN . TO CONTINUE"...L..::::.ZZ$:.ZZ$..G(13).1100 ...V..::::....`..::::. 165,43,133,251,16 5,44...J..::::. 133,252,165,252,240,28.. .T..::::. 160,0,177,251,133,253.".~..::: :. 200,177,251,133,254,169.A....::::. 0, 160,4,145,251,165.D....::::. 253,133,251 ,165,254,133.....::::. 252,76,8,192,96. ........................................ ........................................ ........................................ ........
> CLICK IMAGE PREVIEW FOR FULL MODAL