P-5
FILE INFORMATION
FILENAME(S): P-5
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 17:31:37
APPEARS ON: 1 disk(s)
FILE HASH
a969e0439d92b80ba9f82504c00a803c4410ce889e3e4c76dbc07c85eaf6348f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK FILER | P-5 | PRG | UK CD | 20 | 7 | 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 07 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 20 09 08 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: 00 5A 09 09 00 99 5A 24 3B 22 A1 20 20 20 20 49 |.Z....Z$;". I| 00000130: 4E 53 45 52 54 20 12 59 4F 55 52 92 20 20 46 49 |NSERT .YOUR. FI| 00000140: 4C 45 20 49 4E 20 12 44 52 49 56 45 20 38 2E 92 |LE IN .DRIVE 8..| 00000150: 20 20 20 20 20 12 A1 92 22 3B 00 94 09 0A 00 99 | ...";......| 00000160: 5A 24 3B 22 A1 20 20 20 20 49 4E 53 45 52 54 20 |Z$;". INSERT | 00000170: 12 4F 54 48 45 52 92 20 46 49 4C 45 20 49 4E 20 |.OTHER. FILE IN | 00000180: 12 44 52 49 56 45 20 39 2E 92 20 20 20 20 20 12 |.DRIVE 9.. .| 00000190: A1 92 22 3B 00 CF 09 0B 00 99 5A 24 3B 22 A1 20 |..";......Z$;". | 000001A0: 20 20 20 20 12 50 52 45 53 53 20 41 4E 59 20 4B | .PRESS ANY K| 000001B0: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 92 |EY TO CONTINUE..| 000001C0: 20 20 20 20 20 20 20 12 A1 92 22 3B 5A 24 3B 00 | ...";Z$;.| 000001D0: 04 0A 0C 00 99 22 12 BC 92 A2 A2 A2 A2 A2 A2 A2 |....."..........| 000001E0: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 000001F0: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 12 |................| 00000200: BE 92 22 3B 00 3E 0A 0E 00 8D 31 31 38 3A 44 43 |..";.>....118:DC| 00000210: 24 B2 22 11 11 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 50 |$."..--------- P| 00000220: 52 45 53 53 20 46 37 20 54 4F 20 43 4F 4E 54 49 |RESS F7 TO CONTI| 00000230: 4E 55 45 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 76 |NUE ---------".v| 00000240: 0A 10 00 44 44 24 B2 22 93 11 11 11 11 2D 2D 2D |...DD$.".....---| 00000250: 2D 2D 2D 2D 2D 2D 20 45 4E 54 45 52 20 24 20 46 |------ ENTER $ F| 00000260: 4F 52 20 44 49 52 45 43 54 4F 52 59 20 2D 2D 2D |OR DIRECTORY ---| 00000270: 2D 2D 2D 2D 2D 22 00 7F 0A 12 00 99 44 44 24 00 |-----"......DD$.| 00000280: A9 0A 14 00 85 22 11 45 4E 54 45 52 20 4E 41 4D |.....".ENTER NAM| 00000290: 45 20 4F 46 20 59 4F 55 52 20 46 49 4C 45 20 20 |E OF YOUR FILE | 000002A0: 20 24 9D 9D 9D 22 3B 46 24 00 C3 0A 16 00 8B 46 | $...";F$......F| 000002B0: 24 B2 22 24 22 A7 44 4E B2 38 3A 8D 31 31 36 3A |$."$".DN.8:.116:| 000002C0: 89 31 38 00 D1 0A 18 00 8B 46 24 B2 22 22 A7 31 |.18......F$."".1| 000002D0: 38 00 DA 0A 19 00 99 44 44 24 00 05 0B 1A 00 85 |8......DD$......| 000002E0: 22 11 45 4E 54 45 52 20 4E 41 4D 45 20 46 49 4C |".ENTER NAME FIL| 000002F0: 45 20 54 4F 20 43 48 45 43 4B 20 20 20 24 9D 9D |E TO CHECK $..| 00000300: 9D 22 3B 47 24 00 1F 0B 1B 00 8B 47 24 B2 22 24 |.";G$......G$."$| 00000310: 22 A7 44 4E B2 39 3A 8D 31 31 36 3A 89 32 35 00 |".DN.9:.116:.25.| 00000320: 2D 0B 1C 00 8B 47 24 B2 22 22 A7 32 35 00 47 0B |-....G$."".25.G.| 00000330: 1D 00 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 46 24 |...2,8,2,"0:".F$| 00000340: AA 22 2C 53 2C 52 22 00 61 0B 1E 00 9F 33 2C 39 |.",S,R".a....3,9| 00000350: 2C 33 2C 22 30 3A 22 AA 47 24 AA 22 2C 53 2C 52 |,3,"0:".G$.",S,R| 00000360: 22 00 94 0B 20 00 84 32 2C 58 3A 99 22 93 11 11 |"... ..2,X:."...| 00000370: 11 11 11 11 11 11 11 22 58 22 46 49 4C 45 53 20 |......."X"FILES | 00000380: 54 4F 20 52 45 41 44 20 49 4E 20 44 52 49 56 45 |TO READ IN DRIVE| 00000390: 20 38 11 22 00 BA 0B 21 00 84 33 2C 5A 3A 99 5A | 8."...!..3,Z:.Z| 000003A0: 22 46 49 4C 45 53 20 54 4F 20 52 45 41 44 20 49 |"FILES TO READ I| 000003B0: 4E 20 44 52 49 56 45 20 39 22 00 C9 0B 22 00 8B |N DRIVE 9"..."..| 000003C0: 58 B1 5A A7 42 B2 58 AA 36 00 D9 0B 23 00 8B 5A |X.Z.B.X.6...#..Z| 000003D0: B1 B2 58 A7 42 B2 5A AA 36 00 EE 0B 25 00 86 41 |..X.B.Z.6...%..A| 000003E0: 24 28 42 29 2C 42 24 28 42 29 3A 41 B2 30 00 F8 |$(B),B$(B):A.0..| 000003F0: 0B 26 00 41 B2 41 AA 31 00 0D 0C 27 00 8B 41 B2 |.&.A.A.1...'..A.| 00000400: 42 AB 35 A7 A0 32 3A A0 33 3A 89 35 34 00 2D 0C |B.5..2:.3:.54.-.| 00000410: 28 00 8B 58 B1 41 A7 84 32 2C 41 41 24 3A 41 24 |(..X.A..2,AA$:A$| 00000420: 28 41 29 B2 C8 28 41 41 24 2C 31 36 29 00 3F 0C |(A)..(AA$,16).?.| 00000430: 29 00 8B 5A B1 41 A7 84 33 2C 42 24 28 41 29 00 |)..Z.A..3,B$(A).| 00000440: 6F 0C 2C 00 99 22 13 20 46 49 4C 45 20 4E 55 4D |o.,..". FILE NUM| 00000450: 42 45 52 22 41 3A 99 22 11 20 22 41 24 28 41 29 |BER"A:.". "A$(A)| 00000460: 3A 99 22 11 20 22 42 24 28 41 29 3A 89 33 38 00 |:.". "B$(A):.38.| 00000470: 8A 0C 36 00 99 22 93 11 11 11 20 20 20 53 4F 52 |..6..".... SOR| 00000480: 54 49 4E 47 2E 2E 2E 2E 2E 22 00 9D 0C 38 00 9E |TING....."...8..| 00000490: 34 39 31 35 32 2C 58 2C 41 24 28 31 29 00 B0 0C |49152,X,A$(1)...| 000004A0: 3A 00 9E 34 39 31 35 32 2C 5A 2C 42 24 28 31 29 |:..49152,Z,B$(1)| 000004B0: 00 BB 0C 3C 00 81 54 B2 31 A4 58 00 C6 0C 3E 00 |...<..T.1.X...>.| 000004C0: 81 52 B2 59 A4 5A 00 F5 0C 40 00 8B 41 24 28 54 |.R.Y.Z...@..A$(T| 000004D0: 29 B2 C8 28 42 24 28 52 29 2C 31 36 29 A7 99 42 |)..(B$(R),16)..B| 000004E0: 24 28 52 29 3A 42 24 28 52 29 B2 22 22 3A 59 B2 |$(R):B$(R)."":Y.| 000004F0: 52 3A 89 37 32 00 03 0D 42 00 99 42 24 28 52 29 |R:.72...B..B$(R)| 00000500: 22 91 22 00 17 0D 44 00 8B 41 24 28 54 29 B3 42 |"."...D..A$(T).B| 00000510: 24 28 52 29 A7 37 32 00 1E 0D 46 00 82 52 00 29 |$(R).72...F..R.)| 00000520: 0D 48 00 82 54 3A 8D 39 30 00 58 0D 4A 00 99 22 |.H..T:.90.X.J.."| 00000530: 93 11 11 11 11 20 20 20 20 53 3A 20 20 53 43 52 |..... S: SCR| 00000540: 45 45 4E 22 3A 99 22 11 20 20 20 20 50 3A 20 20 |EEN":.". P: | 00000550: 50 52 49 4E 54 45 52 22 00 9B 0D 4C 00 99 22 11 |PRINTER"...L..".| 00000560: 20 20 20 20 46 3A 20 20 46 49 4C 45 20 53 41 56 | F: FILE SAV| 00000570: 45 22 3A 99 22 11 20 20 20 20 45 3A 20 20 45 44 |E":.". E: ED| 00000580: 49 54 22 3A 99 22 11 20 20 20 20 51 3A 20 20 51 |IT":.". Q: Q| 00000590: 55 49 54 22 3A 97 31 39 38 2C 30 00 AF 0D 4E 00 |UIT":.198,0...N.| 000005A0: A1 5A 24 3A 8B 5A 24 B2 22 50 22 A7 31 35 32 00 |.Z$:.Z$."P".152.| 000005B0: BD 0D 50 00 8B 5A 24 B2 22 51 22 A7 80 00 D6 0D |..P..Z$."Q".....| 000005C0: 52 00 8B 5A 24 B2 22 45 22 A7 58 B2 49 3A 5A B2 |R..Z$."E".X.I:Z.| 000005D0: 49 3A 89 31 32 30 00 E6 0D 54 00 8B 5A 24 B2 22 |I:.120...T..Z$."| 000005E0: 46 22 A7 31 30 30 00 F6 0D 56 00 8B 5A 24 B2 22 |F".100...V..Z$."| 000005F0: 53 22 A7 32 31 30 00 FE 0D 58 00 89 37 38 00 36 |S".210...X..78.6| 00000600: 0E 5A 00 99 22 93 11 11 20 20 43 4C 45 41 52 49 |.Z.."... CLEARI| 00000610: 4E 47 20 53 54 52 49 4E 47 53 11 11 11 22 3A 81 |NG STRINGS...":.| 00000620: 52 B2 31 A4 58 3A 41 24 28 52 29 B2 22 22 3A 99 |R.1.X:A$(R)."":.| 00000630: 52 22 91 22 3A 82 00 47 0E 5C 00 49 B2 30 3A 99 |R".":..G.\.I.0:.| 00000640: 3A 81 52 B2 31 A4 5A 00 67 0E 5E 00 8B 42 24 28 |:.R.1.Z.g.^..B$(| 00000650: 52 29 B2 22 22 B0 C8 28 42 24 28 52 29 2C 31 29 |R).""..(B$(R),1)| 00000660: B2 22 12 22 A7 39 38 00 7D 0E 60 00 49 B2 49 AA |.".".98.}.`.I.I.| 00000670: 31 3A 41 24 28 49 29 B2 42 24 28 52 29 00 96 0E |1:A$(I).B$(R)...| 00000680: 62 00 99 52 2C 49 22 91 22 3A 42 24 28 52 29 B2 |b..R,I".":B$(R).| 00000690: 22 22 3A 82 3A 8E 00 BC 0E 64 00 99 44 44 24 3A |"":.:....d..DD$:| 000006A0: 85 22 11 11 4E 45 57 20 46 49 4C 45 20 4E 41 4D |."..NEW FILE NAM| 000006B0: 45 20 20 20 24 9D 9D 9D 22 3B 4E 24 00 D8 0E 66 |E $...";N$...f| 000006C0: 00 8B 4E 24 B2 22 24 22 A7 44 4E B2 38 3A 8D 31 |..N$."$".DN.8:.1| 000006D0: 31 36 3A 4E 24 B2 22 22 00 E7 0E 68 00 8B 4E 24 |16:N$.""...h..N$| 000006E0: B2 22 22 A7 31 30 30 00 02 0F 6A 00 9F 32 2C 38 |."".100...j..2,8| 000006F0: 2C 32 2C 22 40 30 3A 22 AA 4E 24 AA 22 2C 53 2C |,2,"@0:".N$.",S,| 00000700: 57 22 00 22 0F 6C 00 98 32 2C 49 3A 99 22 11 22 |W".".l..2,I:."."| 00000710: 49 22 46 49 4C 45 53 20 54 4F 20 53 41 56 45 11 |I"FILES TO SAVE.| 00000720: 11 22 00 4C 0F 6E 00 81 54 B2 31 A4 49 3A 98 32 |.".L.n..T.1.I:.2| 00000730: 2C 41 24 28 54 29 3A 99 41 24 28 54 29 3B 54 3B |,A$(T):.A$(T);T;| 00000740: 22 91 22 3A 82 3A A0 32 3A 89 37 34 00 61 0F 70 |".":.:.2:.74.a.p| 00000750: 00 A1 5A 24 3A 8B 5A 24 B3 B1 22 88 22 A7 31 31 |..Z$:.Z$..".".11| 00000760: 32 00 67 0F 72 00 8E 00 AE 0F 74 00 99 3A 97 38 |2.g.r.....t..:.8| 00000770: 34 36 2C 44 4E 3A 9E 38 32 38 3A 99 22 11 2D 2D |46,DN:.828:.".--| 00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 50 52 45 53 53 |---------- PRESS| 00000790: 20 41 4E 59 20 4B 45 59 20 2D 2D 2D 2D 2D 2D 2D | ANY KEY -------| 000007A0: 2D 2D 2D 2D 2D 2D 22 3A 8D 31 31 38 3A 8E 00 C9 |------":.118:...| 000007B0: 0F 76 00 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 |.v..198,0:.198,1| 000007C0: 3A 97 31 39 38 2C 30 3A 8E 00 FB 0F 78 00 99 22 |:.198,0:....x.."| 000007D0: 93 11 11 20 20 57 4F 52 4B 49 4E 47 11 11 11 22 |... WORKING..."| 000007E0: 3A 81 52 B2 31 A4 58 3A 42 24 28 52 29 B2 41 24 |:.R.1.X:B$(R).A$| 000007F0: 28 52 29 3A 99 52 22 91 22 3A 82 00 04 10 7A 00 |(R):.R".":....z.| 00000800: 59 B2 30 3A 00 2D 10 7C 00 97 31 39 38 2C 30 3A |Y.0:.-.|..198,0:| 00000810: 99 22 93 22 3A 81 51 B2 31 A4 32 30 3A 8B 59 AC |.".":.Q.1.20:.Y.| 00000820: 32 30 AA 51 B1 49 A7 99 3A 89 31 32 38 00 52 10 |20.Q.I..:.128.R.| 00000830: 7E 00 99 22 20 20 20 20 20 20 20 22 C7 28 36 34 |~.." ".(64| 00000840: AA 51 29 22 20 2D 20 22 42 24 28 59 AC 32 30 AA |.Q)" - "B$(Y.20.| 00000850: 51 29 00 87 10 80 00 82 3A 99 22 11 12 20 20 20 |Q)......:.".. | 00000860: 20 20 50 52 45 53 53 20 46 31 2D 4D 45 4E 55 20 | PRESS F1-MENU | 00000870: 20 20 46 35 3D 55 50 20 20 20 46 37 2D 44 4F 57 | F5=UP F7-DOW| 00000880: 4E 20 20 20 20 22 3B 00 B9 10 82 00 99 22 12 20 |N ";......". | 00000890: 20 20 20 20 50 52 45 53 53 20 4C 45 54 54 45 52 | PRESS LETTER| 000008A0: 20 54 4F 20 44 45 4C 45 54 45 20 2D 20 52 45 43 | TO DELETE - REC| 000008B0: 4F 56 45 52 20 20 20 22 3B 00 D1 10 84 00 A1 41 |OVER ";......A| 000008C0: 24 3A 8B 41 24 B2 22 85 22 A7 8D 39 30 3A 89 37 |$:.A$."."..90:.7| 000008D0: 34 00 E8 10 86 00 8B 41 24 B2 22 87 22 A7 59 B2 |4......A$.".".Y.| 000008E0: 59 AA 31 3A 89 31 34 32 00 FF 10 88 00 8B 41 24 |Y.1:.142......A$| 000008F0: B2 22 88 22 A7 59 B2 59 AB 31 3A 89 31 34 32 00 |.".".Y.Y.1:.142.| 00000900: 26 11 8A 00 8B 41 24 B1 C7 28 36 34 29 AF 41 24 |&....A$..(64).A$| 00000910: B3 C7 28 38 35 29 A7 43 B2 C6 28 41 24 29 AB 36 |..(85).C..(A$).6| 00000920: 34 3A 89 31 34 38 00 2F 11 8C 00 89 31 33 32 00 |4:.148./....132.| 00000930: 41 11 8E 00 8B 59 AC 32 30 B1 49 A7 59 B2 59 AB |A....Y.20.I.Y.Y.| 00000940: 31 00 50 11 90 00 8B 59 B3 30 A7 59 B2 59 AA 31 |1.P....Y.0.Y.Y.1| 00000950: 00 59 11 92 00 89 31 32 34 00 93 11 94 00 8B C8 |.Y....124.......| 00000960: 28 42 24 28 59 AC 32 30 AA 43 29 2C 31 29 B2 22 |(B$(Y.20.C),1)."| 00000970: 12 22 A7 42 24 28 59 AC 32 30 AA 43 29 B2 C9 28 |.".B$(Y.20.C)..(| 00000980: 42 24 28 59 AC 32 30 AA 43 29 2C 32 31 29 3A 89 |B$(Y.20.C),21):.| 00000990: 31 32 34 00 B6 11 96 00 42 24 28 59 AC 32 30 AA |124.....B$(Y.20.| 000009A0: 43 29 B2 22 12 22 AA 42 24 28 59 AC 32 30 AA 43 |C).".".B$(Y.20.C| 000009B0: 29 3A 89 31 32 34 00 DF 11 98 00 85 22 93 11 20 |):.124......".. | 000009C0: 50 41 47 45 20 4C 45 4E 47 54 48 20 20 36 36 9D |PAGE LENGTH 66.| 000009D0: 9D 9D 9D 22 3B 4C 50 3A 4C 50 B2 4C 50 AB 37 00 |...";LP:LP.LP.7.| 000009E0: F5 11 9A 00 8B 4C 50 B3 31 A7 99 22 91 91 22 3B |.....LP.1.."..";| 000009F0: 3A 89 31 35 32 00 0F 12 9C 00 85 22 11 20 54 4F |:.152......". TO| 00000A00: 44 41 59 27 53 20 44 41 54 45 22 3B 4E 41 24 00 |DAY'S DATE";NA$.| 00000A10: 30 12 9E 00 99 22 11 20 45 50 53 4F 4E 20 4F 52 |0....". EPSON OR| 00000A20: 20 47 45 4D 49 4E 49 20 50 52 49 4E 54 45 52 22 | GEMINI PRINTER"| 00000A30: 00 4A 12 A0 00 A1 41 24 3A 8B 41 24 B2 22 47 22 |.J....A$:.A$."G"| 00000A40: A7 48 B2 32 30 3A 89 31 36 36 00 61 12 A2 00 8B |.H.20:.166.a....| 00000A50: 41 24 B2 22 45 22 A7 48 B2 31 35 37 3A 89 31 36 |A$."E".H.157:.16| 00000A60: 36 00 6A 12 A4 00 89 31 36 30 00 97 12 A6 00 99 |6.j....160......| 00000A70: 22 93 20 53 45 54 20 55 50 20 50 52 49 4E 54 45 |". SET UP PRINTE| 00000A80: 52 20 54 4F 20 54 4F 50 20 4F 46 20 53 48 45 45 |R TO TOP OF SHEE| 00000A90: 54 20 54 48 45 4E 22 00 BF 12 A8 00 99 22 11 20 |T THEN"......". | 00000AA0: 50 52 45 53 53 20 53 48 49 46 54 20 54 4F 20 53 |PRESS SHIFT TO S| 00000AB0: 54 41 52 54 20 50 52 49 4E 54 49 4E 47 2E 22 00 |TART PRINTING.".| 00000AC0: DE 12 AA 00 92 28 36 35 33 29 2C 31 3A 99 22 93 |.....(653),1:.".| 00000AD0: 11 1D 50 52 49 4E 54 49 4E 47 2E 2E 2E 22 00 F5 |..PRINTING..."..| 00000AE0: 12 AC 00 50 4E B2 B5 28 28 49 AD 28 4C 50 AC 35 |...PN..((I.(LP.5| 00000AF0: 29 29 AA 31 29 00 07 13 AE 00 9F 34 2C 34 3A 98 |)).1)......4,4:.| 00000B00: 34 2C C7 28 48 29 3B 00 13 13 B0 00 81 50 B2 31 |4,.(H);......P.1| 00000B10: A4 50 4E 00 2B 13 B2 00 53 B2 50 AC 28 4C 50 AC |.PN.+...S.P.(LP.| 00000B20: 35 29 AB 28 4C 50 AC 35 29 AA 31 00 74 13 B4 00 |5).(LP.5).1.t...| 00000B30: 98 34 2C 22 20 20 20 20 20 43 4F 4D 50 41 52 49 |.4," COMPARI| 00000B40: 53 4F 4E 20 42 45 54 57 45 45 4E 20 22 3B 46 24 |SON BETWEEN ";F$| 00000B50: 3B 22 20 41 4E 44 20 22 3B 47 24 3B 22 20 20 20 |;" AND ";G$;" | 00000B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 50 41 47 | PAG| 00000B70: 45 22 3B 50 00 7D 13 B6 00 8D 32 33 32 00 BC 13 |E";P.}....232...| 00000B80: B8 00 98 34 2C 22 20 20 20 20 20 20 20 20 22 3B |...4," ";| 00000B90: 3A 81 51 B2 31 A4 35 3A 98 34 2C 22 20 20 50 52 |:.Q.1.5:.4," PR| 00000BA0: 4F 47 52 41 4D 20 4E 41 4D 45 2E 2E 2E 2E 2E 44 |OGRAM NAME.....D| 00000BB0: 49 53 4B 20 22 3B 3A 82 51 3A 98 34 00 C5 13 BA |ISK ";:.Q:.4....| 00000BC0: 00 8D 32 33 32 00 E8 13 BC 00 8B 50 B2 50 4E A7 |..232......P.PN.| 00000BD0: 4C 50 B2 B5 28 28 49 AD 35 29 AB 28 28 50 AB 31 |LP..((I.5).((P.1| 00000BE0: 29 AC 4C 50 29 29 AA 31 00 F8 13 BE 00 81 58 B2 |).LP)).1......X.| 00000BF0: 53 A4 53 AA 4C 50 AB 31 00 17 14 C0 00 98 34 2C |S.S.LP.1......4,| 00000C00: 22 20 20 20 20 20 20 20 20 20 20 22 3B 41 24 28 |" ";A$(| 00000C10: 58 29 AA 22 20 22 3B 00 31 14 C2 00 98 34 2C 22 |X)." ";.1....4,"| 00000C20: 20 20 22 AA 41 24 28 58 AA 4C 50 29 AA 22 20 22 | ".A$(X.LP)." "| 00000C30: 3B 00 4D 14 C4 00 98 34 2C 22 20 20 22 AA 41 24 |;.M....4," ".A$| 00000C40: 28 58 AA 32 AC 4C 50 29 AA 22 20 22 3B 00 69 14 |(X.2.LP)." ";.i.| 00000C50: C6 00 98 34 2C 22 20 20 22 AA 41 24 28 58 AA 33 |...4," ".A$(X.3| 00000C60: AC 4C 50 29 AA 22 20 22 3B 00 80 14 C8 00 98 34 |.LP)." ";......4| 00000C70: 2C 22 20 20 22 AA 41 24 28 58 AA 34 AC 4C 50 29 |," ".A$(X.4.LP)| 00000C80: 00 87 14 CA 00 82 58 00 94 14 CC 00 98 34 3A 98 |......X......4:.| 00000C90: 34 3A 98 34 00 9B 14 CE 00 82 50 00 A9 14 D0 00 |4:.4......P.....| 00000CA0: 98 34 3A A0 34 3A 89 37 34 00 E6 14 D2 00 58 B2 |.4:.4:.74.....X.| 00000CB0: 30 3A 5A 24 B2 22 12 20 20 20 20 20 50 52 45 53 |0:Z$.". PRES| 00000CC0: 53 20 46 35 2D 55 50 20 20 46 37 2D 44 4F 57 4E |S F5-UP F7-DOWN| 00000CD0: 20 20 46 31 2D 4D 45 4E 55 20 20 20 20 20 20 22 | F1-MENU "| 00000CE0: 3A 41 24 B2 22 22 00 08 15 D4 00 99 22 93 22 3A |:A$.""......".":| 00000CF0: 81 51 B2 31 A4 32 30 3A 8B 58 AC 32 30 AA 51 B1 |.Q.1.20:.X.20.Q.| 00000D00: 49 A7 99 3A 89 32 31 36 00 21 15 D6 00 99 22 20 |I..:.216.!...." | 00000D10: 20 20 20 20 20 20 22 41 24 28 58 AC 32 30 AA 51 | "A$(X.20.Q| 00000D20: 29 00 2E 15 D8 00 82 3A 99 22 11 22 5A 24 00 41 |)......:."."Z$.A| 00000D30: 15 DA 00 A1 41 24 3A 8B 41 24 B2 22 85 22 A7 37 |....A$:.A$.".".7| 00000D40: 34 00 58 15 DC 00 8B 41 24 B2 22 87 22 A7 58 B2 |4.X....A$.".".X.| 00000D50: 58 AA 31 3A 89 32 32 36 00 6F 15 DE 00 8B 41 24 |X.1:.226.o....A$| 00000D60: B2 22 88 22 A7 58 B2 58 AB 31 3A 89 32 32 38 00 |.".".X.X.1:.228.| 00000D70: 78 15 E0 00 89 32 31 38 00 8A 15 E2 00 8B 58 AC |x....218......X.| 00000D80: 32 30 B1 49 A7 58 B2 58 AB 31 00 99 15 E4 00 8B |20.I.X.X.1......| 00000D90: 58 B3 30 A7 58 B2 58 AA 31 00 A9 15 E6 00 97 31 |X.0.X.X.1......1| 00000DA0: 39 38 2C 30 3A 89 32 31 32 00 D7 15 E8 00 98 34 |98,0:.212......4| 00000DB0: 2C 22 20 20 20 20 20 20 20 20 20 20 22 3B 3A 81 |," ";:.| 00000DC0: 51 B2 31 A4 31 31 37 3A 98 34 2C 22 2D 22 3B 3A |Q.1.117:.4,"-";:| 00000DD0: 82 51 3A 98 34 3A 8E 00 00 00 |.Q:.4:.... |
..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....Z$;". INSERT .YOUR. FI
LE IN .DRIVE 8.. ...";......Z$;".
INSERT .OTHER. FILE IN .DRIVE 9.. .
..";.O....Z$;". .PRESS ANY KEY TO CO
NTINUE.. ...";Z$;......"..........
..................................";.>..
..118:DC$."..--------- PRESS F7 TO CONTI
NUE ---------".V...DD$.".....--------- E
NTER $ FOR DIRECTORY --------".....DD$.
.....".ENTER NAME OF YOUR FILE $...";F
$.C....F$."$".DN.8:.116:.18.Q....F$."".1
8.Z....DD$......".ENTER NAME FILE TO CHE
CK $...";G$......G$."$".DN.9:.116:.25.
-....G$."".25.G....2,8,2,"0:".F$.",S,R".
A....3,9,3,"0:".G$.",S,R"... ..2,X:."...
......."X"FILES TO READ IN DRIVE 8."...!
..3,Z:.Z"FILES TO READ IN DRIVE 9".I."..
X.Z.B.X.6.Y.#..Z..X.B.Z.6...%..A$(B),B$(
B):A.0...&.A.A.1...'..A.B.5. 2: 3:.54.-.
(..X.A..2,AA$:A$(A).H(AA$,16).?.)..Z.A..
3,B$(A).O.,..". FILE NUMBER"A:.". "A$(A)
:.". "B$(A):.38...6..".... SORTING....
."...8..49152,X,A$(1)...:..49152,Z,B$(1)
...<..T.1.X.F.>..R.Y.Z...@..A$(T).H(B$(R
),16)..B$(R):B$(R)."":Y.R:.72...B..B$(R)
"."...D..A$(T).B$(R).72...F..R.).H..T:.9
0.X.J.."..... S: SCREEN":.". P:
PRINTER"...L..". F: FILE SAVE":.".
E: EDIT":.". Q: QUIT":.198,0...N.
.Z$:.Z$."P".152...P..Z$."Q"...V.R..Z$."E
".X.I:Z.I:.120...T..Z$."F".100...V..Z$."
S".210...X..78.6.Z.."... CLEARING STRIN
GS...":.R.1.X:A$(R)."":.R".":..G.\.I.0:.
:.R.1.Z.G.^..B$(R)."".H(B$(R),1).".".98.
}.`.I.I.1:A$(I).B$(R)...B..R,I".":B$(R).
"":.:....D..DD$:."..NEW FILE NAME $...
";N$.X.F..N$."$".DN.8:.116:N$.""...H..N$
."".100...J..2,8,2,"@0:".N$.",S,W".".L..
2,I:."."I"FILES TO SAVE..".L.N..T.1.I:.2
,A$(T):.A$(T);T;".":.: 2:.74.A.P..Z$:.Z$
..".".112.G.R.....T..:.846,DN:.828:.".--
---------- PRESS ANY KEY -------------":
.118:..I.V..198,0:.198,1:.198,0:....X.."
... WORKING...":.R.1.X:B$(R).A$(R):.R".
":....Z.Y.0:.-.|..198,0:.".":.Q.1.20:.Y.
20.Q.I..:.128.R.~.." "G(64.Q)" - "
B$(Y.20.Q)......:.".. PRESS F1-MENU
F5=UP F7-DOWN ";......". PRES
S LETTER TO DELETE - RECOVER ";.Q....A
$:.A$."."..90:.74......A$.".".Y.Y.1:.142
......A$.".".Y.Y.1:.142.&....A$.G(64).A$
.G(85).C.F(A$).64:.148./....132.A....Y.2
0.I.Y.Y.1.P....Y.0.Y.Y.1.Y....124......H
(B$(Y.20.C),1).".".B$(Y.20.C).I(B$(Y.20.
C),21):.124.....B$(Y.20.C).".".B$(Y.20.C
):.124......".. PAGE LENGTH 66....";LP:
LP.LP.7......LP.1.."..";:.152......". TO
DAY'S DATE";NA$.0....". EPSON OR GEMINI
PRINTER".J. ..A$:.A$."G".H.20:.166.A....
A$."E".H.157:.166.J....160......". SET U
P PRINTER TO TOP OF SHEET THEN"......".
PRESS SHIFT TO START PRINTING."......(65
3),1:."...PRINTING...".....PN..((I.(LP.5
)).1)......4,4:.4,G(H);......P.1.PN.+...
S.P.(LP.5).(LP.5).1.T....4," COMPARI
SON BETWEEN ";F$;" AND ";G$;"
PAGE";P.}....232......4," ";
:.Q.1.5:.4," PROGRAM NAME.....DISK ";:.
Q:.4.E....232......P.PN.LP..((I.5).((P.1
).LP)).1......X.S.S.LP.1......4,"
";A$(X)." ";.1.B..4," ".A$(X.LP)." "
;.M.D..4," ".A$(X.2.LP)." ";.I.F..4,"
".A$(X.3.LP)." ";...H..4," ".A$(X.4.LP)
...J..X...L..4:.4:.4...N..P...P..4: 4:.7
4...R.X.0:Z$.". PRESS F5-UP F7-DOWN
F1-MENU ":A$.""...T..".":.Q.1.20:
.X.20.Q.I..:.216.!.V.." "A$(X.20.Q
)...X..:."."Z$.A.Z..A$:.A$.".".74.X....A
$.".".X.X.1:.226.O....A$.".".X.X.1:.228.
X....218......X.20.I.X.X.1......X.0.X.X.
1......198,0:.212.W....4," ";:.
Q.1.117:.4,"-";:.Q:.4:....
> CLICK IMAGE PREVIEW FOR FULL MODAL