P-4
FILE INFORMATION
FILENAME(S): P-4
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 17:31:37
APPEARS ON: 1 disk(s)
FILE HASH
ae3ed2aa1d7190e30871166004c3eb7bd509ef3042fd4b9b8d15fcf3fd164788
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK FILER | P-4 | PRG | UK CD | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4A 08 02 00 97 35 33 32 38 31 2C 31 35 3A |..J....53281,15:| 00000010: 97 35 33 32 38 30 2C 31 35 3A 99 22 93 97 12 AC |.53280,15:."....| 00000020: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 00000030: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 00000040: A2 A2 A2 A2 A2 A2 BB 92 22 3B 00 7E 08 04 00 5A |........";.~...Z| 00000050: 24 B2 22 A1 20 20 20 20 20 20 20 20 20 20 20 20 |$.". | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 20 20 20 20 20 20 20 20 20 20 12 A1 92 22 00 B4 | ..."..| 00000080: 08 06 00 99 5A 24 3B 22 A1 20 20 20 20 54 48 49 |....Z$;". THI| 00000090: 53 20 50 52 4F 47 52 41 4D 20 43 48 45 43 4B 53 |S PROGRAM CHECKS| 000000A0: 20 59 4F 55 52 20 46 49 4C 45 20 20 20 20 20 12 | YOUR FILE .| 000000B0: A1 92 22 3B 00 EA 08 08 00 99 5A 24 3B 22 A1 20 |..";......Z$;". | 000000C0: 20 20 20 41 47 41 49 4E 53 54 20 41 4E 4F 54 48 | AGAINST ANOTH| 000000D0: 45 52 20 46 49 4C 45 20 26 20 50 52 49 4E 54 53 |ER FILE & PRINTS| 000000E0: 20 20 20 20 20 12 A1 92 22 3B 00 23 09 0A 00 99 | ...";.#....| 000000F0: 5A 24 3B 22 A1 20 20 20 20 54 48 45 20 50 52 4F |Z$;". THE PRO| 00000100: 47 52 41 4D 53 20 59 4F 55 20 44 4F 4E 27 54 20 |GRAMS YOU DON'T | 00000110: 48 41 56 45 2E 20 20 20 20 20 20 12 A1 92 22 3B |HAVE. ...";| 00000120: 5A 24 3B 00 58 09 0C 00 99 22 12 BC 92 A2 A2 A2 |Z$;.X...."......| 00000130: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 00000140: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 00000150: A2 A2 A2 12 BE 92 22 3B 00 92 09 0E 00 8D 31 31 |......";......11| 00000160: 38 3A 44 43 24 B2 22 11 11 2D 2D 2D 2D 2D 2D 2D |8:DC$."..-------| 00000170: 2D 2D 20 50 52 45 53 53 20 46 37 20 54 4F 20 43 |-- PRESS F7 TO C| 00000180: 4F 4E 54 49 4E 55 45 20 2D 2D 2D 2D 2D 2D 2D 2D |ONTINUE --------| 00000190: 2D 22 00 CA 09 10 00 44 44 24 B2 22 93 11 11 11 |-".....DD$."....| 000001A0: 11 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 45 4E 54 45 52 |.--------- ENTER| 000001B0: 20 24 20 46 4F 52 20 44 49 52 45 43 54 4F 52 59 | $ FOR DIRECTORY| 000001C0: 20 2D 2D 2D 2D 2D 2D 2D 2D 22 00 D3 09 12 00 99 | --------"......| 000001D0: 44 44 24 00 FD 09 14 00 85 22 11 45 4E 54 45 52 |DD$......".ENTER| 000001E0: 20 4E 41 4D 45 20 4F 46 20 59 4F 55 52 20 46 49 | NAME OF YOUR FI| 000001F0: 4C 45 20 20 20 24 9D 9D 9D 22 3B 46 24 00 12 0A |LE $...";F$...| 00000200: 16 00 8B 46 24 B2 22 24 22 A7 8D 31 31 36 3A 89 |...F$."$"..116:.| 00000210: 31 38 00 28 0A 18 00 8B 46 24 B2 22 22 A7 99 22 |18.(....F$."".."| 00000220: 91 91 91 22 3A 89 32 30 00 4C 0A 1A 00 99 22 11 |...":.20.L....".| 00000230: 11 49 4E 53 45 52 54 20 44 49 53 4B 20 57 49 54 |.INSERT DISK WIT| 00000240: 48 20 22 46 24 22 20 46 49 4C 45 22 00 5A 0A 1C |H "F$" FILE".Z..| 00000250: 00 99 44 43 24 3A 8D 31 31 32 00 87 0A 1E 00 86 |..DC$:.112......| 00000260: 41 24 28 31 30 30 30 29 2C 42 24 28 31 30 30 30 |A$(1000),B$(1000| 00000270: 29 3A 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 46 24 |):.2,8,2,"0:".F$| 00000280: AA 22 2C 53 2C 52 22 00 A3 0A 20 00 84 32 2C 58 |.",S,R"... ..2,X| 00000290: 3A 99 58 22 46 49 4C 45 53 20 54 4F 20 52 45 41 |:.X"FILES TO REA| 000002A0: 44 11 22 00 C8 0A 22 00 81 54 B2 31 A4 58 3A 84 |D."..."..T.1.X:.| 000002B0: 32 2C 41 24 28 54 29 3A 99 41 24 28 54 29 3B 54 |2,A$(T):.A$(T);T| 000002C0: 22 91 22 3A 82 3A A0 32 00 D1 0A 24 00 99 44 44 |".":.:.2...$..DD| 000002D0: 24 00 FC 0A 26 00 85 22 11 45 4E 54 45 52 20 4E |$...&..".ENTER N| 000002E0: 41 4D 45 20 46 49 4C 45 20 54 4F 20 43 48 45 43 |AME FILE TO CHEC| 000002F0: 4B 20 20 20 24 9D 9D 9D 22 3B 47 24 00 11 0B 28 |K $...";G$...(| 00000300: 00 8B 47 24 B2 22 24 22 A7 8D 31 31 36 3A 89 33 |..G$."$"..116:.3| 00000310: 36 00 29 0B 2A 00 8B 47 24 B2 22 22 A7 99 22 91 |6.).*..G$.""..".| 00000320: 91 91 91 91 22 3A 89 33 38 00 4C 0B 2C 00 99 22 |....":.38.L.,.."| 00000330: 11 49 4E 53 45 52 54 20 44 49 53 4B 20 57 49 54 |.INSERT DISK WIT| 00000340: 48 20 22 47 24 22 20 46 49 4C 45 22 00 5A 0B 2E |H "G$" FILE".Z..| 00000350: 00 99 44 43 24 3A 8D 31 31 32 00 74 0B 30 00 9F |..DC$:.112.t.0..| 00000360: 32 2C 38 2C 32 2C 22 30 3A 22 AA 47 24 AA 22 2C |2,8,2,"0:".G$.",| 00000370: 53 2C 52 22 00 90 0B 32 00 84 32 2C 5A 3A 99 5A |S,R"...2..2,Z:.Z| 00000380: 22 46 49 4C 45 53 20 54 4F 20 52 45 41 44 11 22 |"FILES TO READ."| 00000390: 00 B5 0B 34 00 81 54 B2 31 A4 5A 3A 84 32 2C 42 |...4..T.1.Z:.2,B| 000003A0: 24 28 54 29 3A 99 42 24 28 54 29 3B 54 22 91 22 |$(T):.B$(T);T"."| 000003B0: 3A 82 3A A0 32 00 D0 0B 36 00 99 22 93 11 11 11 |:.:.2...6.."....| 000003C0: 20 20 20 53 4F 52 54 49 4E 47 2E 2E 2E 2E 2E 22 | SORTING....."| 000003D0: 00 E3 0B 38 00 9E 34 39 31 35 32 2C 58 2C 41 24 |...8..49152,X,A$| 000003E0: 28 31 29 00 F6 0B 3A 00 9E 34 39 31 35 32 2C 5A |(1)...:..49152,Z| 000003F0: 2C 42 24 28 31 29 00 01 0C 3C 00 81 54 B2 31 A4 |,B$(1)...<..T.1.| 00000400: 58 00 0C 0C 3E 00 81 52 B2 59 A4 5A 00 41 0C 40 |X...>..R.Y.Z.A.@| 00000410: 00 8B C8 28 41 24 28 54 29 2C 31 36 29 B2 C8 28 |...(A$(T),16)..(| 00000420: 42 24 28 52 29 2C 31 36 29 A7 99 42 24 28 52 29 |B$(R),16)..B$(R)| 00000430: 3A 42 24 28 52 29 B2 22 22 3A 59 B2 52 3A 89 37 |:B$(R)."":Y.R:.7| 00000440: 32 00 4F 0C 42 00 99 42 24 28 52 29 22 91 22 00 |2.O.B..B$(R)".".| 00000450: 63 0C 44 00 8B 41 24 28 54 29 B3 42 24 28 52 29 |c.D..A$(T).B$(R)| 00000460: A7 37 32 00 6A 0C 46 00 82 52 00 75 0C 48 00 82 |.72.j.F..R.u.H..| 00000470: 54 3A 8D 39 30 00 A4 0C 4A 00 99 22 93 11 11 11 |T:.90...J.."....| 00000480: 11 20 20 20 20 53 3A 20 20 53 43 52 45 45 4E 22 |. S: SCREEN"| 00000490: 3A 99 22 11 20 20 20 20 50 3A 20 20 50 52 49 4E |:.". P: PRIN| 000004A0: 54 45 52 22 00 E7 0C 4C 00 99 22 11 20 20 20 20 |TER"...L..". | 000004B0: 46 3A 20 20 46 49 4C 45 20 53 41 56 45 22 3A 99 |F: FILE SAVE":.| 000004C0: 22 11 20 20 20 20 45 3A 20 20 45 44 49 54 22 3A |". E: EDIT":| 000004D0: 99 22 11 20 20 20 20 51 3A 20 20 51 55 49 54 22 |.". Q: QUIT"| 000004E0: 3A 97 31 39 38 2C 30 00 FB 0C 4E 00 A1 5A 24 3A |:.198,0...N..Z$:| 000004F0: 8B 5A 24 B2 22 50 22 A7 31 35 32 00 09 0D 50 00 |.Z$."P".152...P.| 00000500: 8B 5A 24 B2 22 51 22 A7 80 00 22 0D 52 00 8B 5A |.Z$."Q"...".R..Z| 00000510: 24 B2 22 45 22 A7 58 B2 49 3A 5A B2 49 3A 89 31 |$."E".X.I:Z.I:.1| 00000520: 32 30 00 32 0D 54 00 8B 5A 24 B2 22 46 22 A7 31 |20.2.T..Z$."F".1| 00000530: 30 30 00 42 0D 56 00 8B 5A 24 B2 22 53 22 A7 32 |00.B.V..Z$."S".2| 00000540: 31 30 00 4A 0D 58 00 89 37 38 00 82 0D 5A 00 99 |10.J.X..78...Z..| 00000550: 22 93 11 11 20 20 43 4C 45 41 52 49 4E 47 20 53 |"... CLEARING S| 00000560: 54 52 49 4E 47 53 11 11 11 22 3A 81 52 B2 31 A4 |TRINGS...":.R.1.| 00000570: 58 3A 41 24 28 52 29 B2 22 22 3A 99 52 22 91 22 |X:A$(R)."":.R"."| 00000580: 3A 82 00 93 0D 5C 00 49 B2 30 3A 99 3A 81 52 B2 |:....\.I.0:.:.R.| 00000590: 31 A4 5A 00 B3 0D 5E 00 8B 42 24 28 52 29 B2 22 |1.Z...^..B$(R)."| 000005A0: 22 B0 C8 28 42 24 28 52 29 2C 31 29 B2 22 12 22 |"..(B$(R),1)."."| 000005B0: A7 39 38 00 C9 0D 60 00 49 B2 49 AA 31 3A 41 24 |.98...`.I.I.1:A$| 000005C0: 28 49 29 B2 42 24 28 52 29 00 E2 0D 62 00 99 52 |(I).B$(R)...b..R| 000005D0: 2C 49 22 91 22 3A 42 24 28 52 29 B2 22 22 3A 82 |,I".":B$(R)."":.| 000005E0: 3A 8E 00 08 0E 64 00 99 44 44 24 3A 85 22 11 11 |:....d..DD$:."..| 000005F0: 4E 45 57 20 46 49 4C 45 20 4E 41 4D 45 20 20 20 |NEW FILE NAME | 00000600: 24 9D 9D 9D 22 3B 4E 24 00 1F 0E 66 00 8B 4E 24 |$...";N$...f..N$| 00000610: B2 22 24 22 A7 8D 31 31 36 3A 4E 24 B2 22 22 00 |."$"..116:N$."".| 00000620: 2E 0E 68 00 8B 4E 24 B2 22 22 A7 31 30 30 00 49 |..h..N$."".100.I| 00000630: 0E 6A 00 9F 32 2C 38 2C 32 2C 22 40 30 3A 22 AA |.j..2,8,2,"@0:".| 00000640: 4E 24 AA 22 2C 53 2C 57 22 00 69 0E 6C 00 98 32 |N$.",S,W".i.l..2| 00000650: 2C 49 3A 99 22 11 22 49 22 46 49 4C 45 53 20 54 |,I:."."I"FILES T| 00000660: 4F 20 53 41 56 45 11 11 22 00 93 0E 6E 00 81 54 |O SAVE.."...n..T| 00000670: B2 31 A4 49 3A 98 32 2C 41 24 28 54 29 3A 99 41 |.1.I:.2,A$(T):.A| 00000680: 24 28 54 29 3B 54 3B 22 91 22 3A 82 3A A0 32 3A |$(T);T;".":.:.2:| 00000690: 89 37 34 00 A8 0E 70 00 A1 5A 24 3A 8B 5A 24 B3 |.74...p..Z$:.Z$.| 000006A0: B1 22 88 22 A7 31 31 32 00 AE 0E 72 00 8E 00 ED |.".".112...r....| 000006B0: 0E 74 00 99 3A 9E 38 32 38 3A 99 22 11 2D 2D 2D |.t..:.828:.".---| 000006C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 50 52 45 53 53 20 |--------- PRESS | 000006D0: 41 4E 59 20 4B 45 59 20 2D 2D 2D 2D 2D 2D 2D 2D |ANY KEY --------| 000006E0: 2D 2D 2D 2D 2D 22 3A 8D 31 31 38 3A 8E 00 08 0F |-----":.118:....| 000006F0: 76 00 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A |v..198,0:.198,1:| 00000700: 97 31 39 38 2C 30 3A 8E 00 3A 0F 78 00 99 22 93 |.198,0:..:.x..".| 00000710: 11 11 20 20 57 4F 52 4B 49 4E 47 11 11 11 22 3A |.. WORKING...":| 00000720: 81 52 B2 31 A4 58 3A 42 24 28 52 29 B2 41 24 28 |.R.1.X:B$(R).A$(| 00000730: 52 29 3A 99 52 22 91 22 3A 82 00 43 0F 7A 00 59 |R):.R".":..C.z.Y| 00000740: B2 30 3A 00 6C 0F 7C 00 97 31 39 38 2C 30 3A 99 |.0:.l.|..198,0:.| 00000750: 22 93 22 3A 81 51 B2 31 A4 32 30 3A 8B 59 AC 32 |".":.Q.1.20:.Y.2| 00000760: 30 AA 51 B1 49 A7 99 3A 89 31 32 38 00 8D 0F 7E |0.Q.I..:.128...~| 00000770: 00 99 22 20 20 20 22 C7 28 36 34 AA 51 29 22 20 |.." ".(64.Q)" | 00000780: 2D 20 22 42 24 28 59 AC 32 30 AA 51 29 00 C2 0F |- "B$(Y.20.Q)...| 00000790: 80 00 82 3A 99 22 11 12 20 20 20 20 20 50 52 45 |...:.".. PRE| 000007A0: 53 53 20 46 31 2D 4D 45 4E 55 20 20 20 46 35 3D |SS F1-MENU F5=| 000007B0: 55 50 20 20 20 46 37 2D 44 4F 57 4E 20 20 20 20 |UP F7-DOWN | 000007C0: 22 3B 00 F4 0F 82 00 99 22 12 20 20 20 20 20 50 |";......". P| 000007D0: 52 45 53 53 20 4C 45 54 54 45 52 20 54 4F 20 44 |RESS LETTER TO D| 000007E0: 45 4C 45 54 45 20 2D 20 52 45 43 4F 56 45 52 20 |ELETE - RECOVER | 000007F0: 20 20 22 3B 00 0C 10 84 00 A1 41 24 3A 8B 41 24 | ";......A$:.A$| 00000800: B2 22 85 22 A7 8D 39 30 3A 89 37 34 00 23 10 86 |."."..90:.74.#..| 00000810: 00 8B 41 24 B2 22 87 22 A7 59 B2 59 AA 31 3A 89 |..A$.".".Y.Y.1:.| 00000820: 31 34 32 00 3A 10 88 00 8B 41 24 B2 22 88 22 A7 |142.:....A$.".".| 00000830: 59 B2 59 AB 31 3A 89 31 34 32 00 61 10 8A 00 8B |Y.Y.1:.142.a....| 00000840: 41 24 B1 C7 28 36 34 29 AF 41 24 B3 C7 28 38 35 |A$..(64).A$..(85| 00000850: 29 A7 43 B2 C6 28 41 24 29 AB 36 34 3A 89 31 34 |).C..(A$).64:.14| 00000860: 38 00 6A 10 8C 00 89 31 33 32 00 7C 10 8E 00 8B |8.j....132.|....| 00000870: 59 AC 32 30 B1 49 A7 59 B2 59 AB 31 00 8B 10 90 |Y.20.I.Y.Y.1....| 00000880: 00 8B 59 B3 30 A7 59 B2 59 AA 31 00 94 10 92 00 |..Y.0.Y.Y.1.....| 00000890: 89 31 32 34 00 CE 10 94 00 8B C8 28 42 24 28 59 |.124.......(B$(Y| 000008A0: AC 32 30 AA 43 29 2C 31 29 B2 22 12 22 A7 42 24 |.20.C),1).".".B$| 000008B0: 28 59 AC 32 30 AA 43 29 B2 C9 28 42 24 28 59 AC |(Y.20.C)..(B$(Y.| 000008C0: 32 30 AA 43 29 2C 32 31 29 3A 89 31 32 34 00 F1 |20.C),21):.124..| 000008D0: 10 96 00 42 24 28 59 AC 32 30 AA 43 29 B2 22 12 |...B$(Y.20.C).".| 000008E0: 22 AA 42 24 28 59 AC 32 30 AA 43 29 3A 89 31 32 |".B$(Y.20.C):.12| 000008F0: 34 00 1A 11 98 00 85 22 93 11 20 50 41 47 45 20 |4......".. PAGE | 00000900: 4C 45 4E 47 54 48 20 20 36 36 9D 9D 9D 9D 22 3B |LENGTH 66....";| 00000910: 4C 50 3A 4C 50 B2 4C 50 AB 37 00 30 11 9A 00 8B |LP:LP.LP.7.0....| 00000920: 4C 50 B3 31 A7 99 22 91 91 22 3B 3A 89 31 35 32 |LP.1.."..";:.152| 00000930: 00 4A 11 9C 00 85 22 11 20 54 4F 44 41 59 27 53 |.J....". TODAY'S| 00000940: 20 44 41 54 45 22 3B 4E 41 24 00 6B 11 9E 00 99 | DATE";NA$.k....| 00000950: 22 11 20 45 50 53 4F 4E 20 4F 52 20 47 45 4D 49 |". EPSON OR GEMI| 00000960: 4E 49 20 50 52 49 4E 54 45 52 22 00 85 11 A0 00 |NI PRINTER".....| 00000970: A1 41 24 3A 8B 41 24 B2 22 47 22 A7 48 B2 32 30 |.A$:.A$."G".H.20| 00000980: 3A 89 31 36 36 00 9C 11 A2 00 8B 41 24 B2 22 45 |:.166......A$."E| 00000990: 22 A7 48 B2 31 35 37 3A 89 31 36 36 00 A5 11 A4 |".H.157:.166....| 000009A0: 00 89 31 36 30 00 D2 11 A6 00 99 22 93 20 53 45 |..160......". SE| 000009B0: 54 20 55 50 20 50 52 49 4E 54 45 52 20 54 4F 20 |T UP PRINTER TO | 000009C0: 54 4F 50 20 4F 46 20 53 48 45 45 54 20 54 48 45 |TOP OF SHEET THE| 000009D0: 4E 22 00 FA 11 A8 00 99 22 11 20 50 52 45 53 53 |N"......". PRESS| 000009E0: 20 53 48 49 46 54 20 54 4F 20 53 54 41 52 54 20 | SHIFT TO START | 000009F0: 50 52 49 4E 54 49 4E 47 2E 22 00 19 12 AA 00 92 |PRINTING."......| 00000A00: 28 36 35 33 29 2C 31 3A 99 22 93 11 1D 50 52 49 |(653),1:."...PRI| 00000A10: 4E 54 49 4E 47 2E 2E 2E 22 00 30 12 AC 00 50 4E |NTING...".0...PN| 00000A20: B2 B5 28 28 49 AD 28 4C 50 AC 35 29 29 AA 31 29 |..((I.(LP.5)).1)| 00000A30: 00 42 12 AE 00 9F 34 2C 34 3A 98 34 2C C7 28 48 |.B....4,4:.4,.(H| 00000A40: 29 3B 00 4E 12 B0 00 81 50 B2 31 A4 50 4E 00 66 |);.N....P.1.PN.f| 00000A50: 12 B2 00 53 B2 50 AC 28 4C 50 AC 35 29 AB 28 4C |...S.P.(LP.5).(L| 00000A60: 50 AC 35 29 AA 31 00 AF 12 B4 00 98 34 2C 22 20 |P.5).1......4," | 00000A70: 20 20 20 20 43 4F 4D 50 41 52 49 53 4F 4E 20 42 | COMPARISON B| 00000A80: 45 54 57 45 45 4E 20 22 3B 46 24 3B 22 20 41 4E |ETWEEN ";F$;" AN| 00000A90: 44 20 22 3B 47 24 3B 22 20 20 20 20 20 20 20 20 |D ";G$;" | 00000AA0: 20 20 20 20 20 20 20 20 50 41 47 45 22 3B 50 00 | PAGE";P.| 00000AB0: B8 12 B6 00 8D 32 33 32 00 F7 12 B8 00 98 34 2C |.....232......4,| 00000AC0: 22 20 20 20 20 20 20 20 20 22 3B 3A 81 51 B2 31 |" ";:.Q.1| 00000AD0: A4 35 3A 98 34 2C 22 20 20 50 52 4F 47 52 41 4D |.5:.4," PROGRAM| 00000AE0: 20 4E 41 4D 45 2E 2E 2E 2E 2E 44 49 53 4B 20 22 | NAME.....DISK "| 00000AF0: 3B 3A 82 51 3A 98 34 00 00 13 BA 00 8D 32 33 32 |;:.Q:.4......232| 00000B00: 00 23 13 BC 00 8B 50 B2 50 4E A7 4C 50 B2 B5 28 |.#....P.PN.LP..(| 00000B10: 28 49 AD 35 29 AB 28 28 50 AB 31 29 AC 4C 50 29 |(I.5).((P.1).LP)| 00000B20: 29 AA 31 00 33 13 BE 00 81 58 B2 53 A4 53 AA 4C |).1.3....X.S.S.L| 00000B30: 50 AB 31 00 52 13 C0 00 98 34 2C 22 20 20 20 20 |P.1.R....4," | 00000B40: 20 20 20 20 20 20 22 3B 41 24 28 58 29 AA 22 20 | ";A$(X)." | 00000B50: 22 3B 00 6C 13 C2 00 98 34 2C 22 20 20 22 AA 41 |";.l....4," ".A| 00000B60: 24 28 58 AA 4C 50 29 AA 22 20 22 3B 00 88 13 C4 |$(X.LP)." ";....| 00000B70: 00 98 34 2C 22 20 20 22 AA 41 24 28 58 AA 32 AC |..4," ".A$(X.2.| 00000B80: 4C 50 29 AA 22 20 22 3B 00 A4 13 C6 00 98 34 2C |LP)." ";......4,| 00000B90: 22 20 20 22 AA 41 24 28 58 AA 33 AC 4C 50 29 AA |" ".A$(X.3.LP).| 00000BA0: 22 20 22 3B 00 BB 13 C8 00 98 34 2C 22 20 20 22 |" ";......4," "| 00000BB0: AA 41 24 28 58 AA 34 AC 4C 50 29 00 C2 13 CA 00 |.A$(X.4.LP).....| 00000BC0: 82 58 00 CF 13 CC 00 98 34 3A 98 34 3A 98 34 00 |.X......4:.4:.4.| 00000BD0: D6 13 CE 00 82 50 00 E4 13 D0 00 98 34 3A A0 34 |.....P......4:.4| 00000BE0: 3A 89 37 34 00 21 14 D2 00 58 B2 30 3A 5A 24 B2 |:.74.!...X.0:Z$.| 00000BF0: 22 12 20 20 20 20 20 50 52 45 53 53 20 46 35 2D |". PRESS F5-| 00000C00: 55 50 20 20 46 37 2D 44 4F 57 4E 20 20 46 31 2D |UP F7-DOWN F1-| 00000C10: 4D 45 4E 55 20 20 20 20 20 20 22 3A 41 24 B2 22 |MENU ":A$."| 00000C20: 22 00 43 14 D4 00 99 22 93 22 3A 81 51 B2 31 A4 |".C....".":.Q.1.| 00000C30: 32 30 3A 8B 58 AC 32 30 AA 51 B1 49 A7 99 3A 89 |20:.X.20.Q.I..:.| 00000C40: 32 31 36 00 5C 14 D6 00 99 22 20 20 20 20 20 20 |216.\...." | 00000C50: 20 22 41 24 28 58 AC 32 30 AA 51 29 00 69 14 D8 | "A$(X.20.Q).i..| 00000C60: 00 82 3A 99 22 11 22 5A 24 00 7C 14 DA 00 A1 41 |..:."."Z$.|....A| 00000C70: 24 3A 8B 41 24 B2 22 85 22 A7 37 34 00 93 14 DC |$:.A$.".".74....| 00000C80: 00 8B 41 24 B2 22 87 22 A7 58 B2 58 AA 31 3A 89 |..A$.".".X.X.1:.| 00000C90: 32 32 36 00 AA 14 DE 00 8B 41 24 B2 22 88 22 A7 |226......A$.".".| 00000CA0: 58 B2 58 AB 31 3A 89 32 32 38 00 B3 14 E0 00 89 |X.X.1:.228......| 00000CB0: 32 31 38 00 C5 14 E2 00 8B 58 AC 32 30 B1 49 A7 |218......X.20.I.| 00000CC0: 58 B2 58 AB 31 00 D4 14 E4 00 8B 58 B3 30 A7 58 |X.X.1......X.0.X| 00000CD0: B2 58 AA 31 00 E4 14 E6 00 97 31 39 38 2C 30 3A |.X.1......198,0:| 00000CE0: 89 32 31 32 00 12 15 E8 00 98 34 2C 22 20 20 20 |.212......4," | 00000CF0: 20 20 20 20 20 20 20 22 3B 3A 81 51 B2 31 A4 31 | ";:.Q.1.1| 00000D00: 31 37 3A 98 34 2C 22 2D 22 3B 3A 82 51 3A 98 34 |17:.4,"-";:.Q:.4| 00000D10: 3A 8E 00 00 00 |:.... |
..J....53281,15:.53280,15:."............
................................";.~...Z
$.".
..."......Z$;". THIS PROGRAM CHECKS
YOUR FILE ...";......Z$;". AGAIN
ST ANOTHER FILE & PRINTS ...";.#....
Z$;". THE PROGRAMS YOU DON'T HAVE.
...";Z$;.X...."......................
......................";......118:DC$.".
.--------- PRESS F7 TO CONTINUE --------
-".J...DD$.".....--------- ENTER $ FOR D
IRECTORY --------".S....DD$......".ENTER
NAME OF YOUR FILE $...";F$......F$."$
"..116:.18.(....F$."".."...":.20.L....".
.INSERT DISK WITH "F$" FILE".Z....DC$:.1
12......A$(1000),B$(1000):.2,8,2,"0:".F$
.",S,R"... ..2,X:.X"FILES TO READ.".H.".
.T.1.X:.2,A$(T):.A$(T);T".":.: 2.Q.$..DD
$...&..".ENTER NAME FILE TO CHECK $...
";G$...(..G$."$"..116:.36.).*..G$.""..".
....":.38.L.,..".INSERT DISK WITH "G$" F
ILE".Z....DC$:.112.T.0..2,8,2,"0:".G$.",
S,R"...2..2,Z:.Z"FILES TO READ."...4..T.
1.Z:.2,B$(T):.B$(T);T".":.: 2.P.6.."....
SORTING....."...8..49152,X,A$(1)...:.
.49152,Z,B$(1)...<..T.1.X...>..R.Y.Z.A.@
..H(A$(T),16).H(B$(R),16)..B$(R):B$(R)."
":Y.R:.72.O.B..B$(R)".".C.D..A$(T).B$(R)
.72.J.F..R.U.H..T:.90...J.."..... S:
SCREEN":.". P: PRINTER"...L..".
F: FILE SAVE":.". E: EDIT":.". Q
: QUIT":.198,0...N..Z$:.Z$."P".152...P.
.Z$."Q"...".R..Z$."E".X.I:Z.I:.120.2.T..
Z$."F".100.B.V..Z$."S".210.J.X..78...Z..
"... CLEARING STRINGS...":.R.1.X:A$(R).
"":.R".":....\.I.0:.:.R.1.Z...^..B$(R)."
".H(B$(R),1).".".98.I.`.I.I.1:A$(I).B$(R
)...B..R,I".":B$(R)."":.:....D..DD$:."..
NEW FILE NAME $...";N$...F..N$."$"..11
6:N$.""...H..N$."".100.I.J..2,8,2,"@0:".
N$.",S,W".I.L..2,I:."."I"FILES TO SAVE..
"...N..T.1.I:.2,A$(T):.A$(T);T;".":.: 2:
.74...P..Z$:.Z$..".".112...R.....T..:.82
8:.".------------ PRESS ANY KEY --------
-----":.118:....V..198,0:.198,1:.198,0:.
.:.X.."... WORKING...":.R.1.X:B$(R).A$(
R):.R".":..C.Z.Y.0:.L.|..198,0:.".":.Q.1
.20:.Y.20.Q.I..:.128...~.." "G(64.Q)"
- "B$(Y.20.Q).B....:.".. PRESS F1-ME
NU F5=UP F7-DOWN ";......". P
RESS LETTER TO DELETE - RECOVER ";....
..A$:.A$."."..90:.74.#....A$.".".Y.Y.1:.
142.:....A$.".".Y.Y.1:.142.A....A$.G(64)
.A$.G(85).C.F(A$).64:.148.J....132.|....
Y.20.I.Y.Y.1......Y.0.Y.Y.1......124.N..
..H(B$(Y.20.C),1).".".B$(Y.20.C).I(B$(Y.
20.C),21):.124.....B$(Y.20.C).".".B$(Y.2
0.C):.124......".. PAGE LENGTH 66....";
LP:LP.LP.7.0....LP.1.."..";:.152.J....".
TODAY'S DATE";NA$.K....". EPSON OR GEMI
NI PRINTER"... ..A$:.A$."G".H.20:.166...
...A$."E".H.157:.166......160.R....". SE
T UP PRINTER TO TOP OF SHEET THEN"......
". PRESS SHIFT TO START PRINTING."......
(653),1:."...PRINTING...".0...PN..((I.(L
P.5)).1).B....4,4:.4,G(H);.N....P.1.PN.F
...S.P.(LP.5).(LP.5).1......4," COMP
ARISON BETWEEN ";F$;" AND ";G$;"
PAGE";P......232......4,"
";:.Q.1.5:.4," PROGRAM NAME.....DISK "
;:.Q:.4......232.#....P.PN.LP..((I.5).((
P.1).LP)).1.3....X.S.S.LP.1.R....4,"
";A$(X)." ";.L.B..4," ".A$(X.LP).
" ";...D..4," ".A$(X.2.LP)." ";...F..4,
" ".A$(X.3.LP)." ";...H..4," ".A$(X.4.
LP).B.J..X.O.L..4:.4:.4.V.N..P...P..4: 4
:.74.!.R.X.0:Z$.". PRESS F5-UP F7-D
OWN F1-MENU ":A$."".C.T..".":.Q.1.
20:.X.20.Q.I..:.216.\.V.." "A$(X.2
0.Q).I.X..:."."Z$.|.Z..A$:.A$.".".74....
..A$.".".X.X.1:.226......A$.".".X.X.1:.2
28......218.E....X.20.I.X.X.1.T....X.0.X
.X.1......198,0:.212......4," "
;:.Q.1.117:.4,"-";:.Q:.4:....
> CLICK IMAGE PREVIEW FOR FULL MODAL