FILE/TITLES
FILE INFORMATION
FILENAME(S): FILE/TITLES
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 17:31:34
APPEARS ON: 4 disk(s)
FILE HASH
82ce104624f978d18b3fd9aff3fce6270436632928651a06bfd1e535bacd2140
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TERRY TO BOB | FILE/TITLES | PRG | UK CD | 12 | 2 | DOWNLOAD FILE |
| CCS64 4 KOPIA | FILE/TITLES | PRG | hedning, Mattias H00r | 23 | 0 | DOWNLOAD FILE |
| CCS 64 4 | FILE/TITLES | PRG | hedning, Mattias H00r | 23 | 0 | DOWNLOAD FILE |
| C64 4 | FILE/TITLES | PRG | hedning, Mattias H00r | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 8F 22 14 14 14 14 14 14 14 20 |......."....... |
00000010: 50 4F 4E 5A 4F 2F 57 41 54 45 52 4C 4F 4F 00 2C |PONZO/WATERLOO.,|
00000020: 08 14 00 8F 22 14 14 14 14 14 14 14 00 46 08 1E |...."........F..|
00000030: 00 8F 22 14 14 14 14 14 14 14 20 46 49 4C 45 2F |.."....... FILE/|
00000040: 54 49 54 4C 45 53 00 54 08 28 00 8F 22 14 14 14 |TITLES.T.(.."...|
00000050: 14 14 14 14 00 66 08 64 00 99 C7 28 31 34 29 3A |.....f.d...(14):|
00000060: 9C 3A 8D 36 39 30 00 86 08 69 00 4E 4C B2 39 3A |.:.690...i.NL.9:|
00000070: 8F 20 4D 41 58 20 4C 49 4E 45 53 20 49 4E 20 44 |. MAX LINES IN D|
00000080: 49 53 50 4C 41 59 00 AF 08 6E 00 99 22 93 22 4C |ISPLAY...n.."."L|
00000090: 24 3A 99 22 11 11 20 12 C3 92 52 45 41 54 45 20 |$:.".. ...REATE |
000000A0: CE C5 D7 20 D4 C9 D4 CC C5 2D C6 C9 CC C5 22 00 |... .....-....".|
000000B0: F8 08 78 00 99 22 11 20 12 CD 92 4F 44 49 46 59 |..x..". ...ODIFY|
000000C0: 20 4F 4C 44 20 D4 C9 D4 CC C5 2D C6 C9 CC C5 22 | OLD .....-...."|
000000D0: 3A 99 22 11 11 11 11 20 4E 4F 54 45 11 9D 9D 9D |:.".... NOTE....|
000000E0: 9D B8 B8 B8 B8 91 3A C8 49 54 20 2A 20 54 4F 20 |......:.IT * TO |
000000F0: D2 C5 D3 D4 C1 D2 D4 2E 00 15 09 7D 00 8D 38 34 |...........}..84|
00000100: 30 3A 43 48 24 B2 41 24 3A 8B 41 24 B2 22 4D 22 |0:CH$.A$:.A$."M"|
00000110: A7 31 30 30 30 00 56 09 82 00 81 55 39 B2 31 A4 |.1000.V....U9.1.|
00000120: 35 3A 99 22 93 11 12 20 20 20 20 20 20 20 20 20 |5:."... |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 22 3A 81 55 38 B2 | ":.U8.|
00000150: 31 A4 35 30 3A 82 00 8E 09 83 00 99 22 93 11 C8 |1.50:......."...|
00000160: 49 54 20 12 22 51 24 22 92 20 54 4F 20 51 55 49 |IT ."Q$". TO QUI|
00000170: 54 20 2D 20 12 2A 92 20 54 4F 20 52 45 53 54 41 |T - .*. TO RESTA|
00000180: 52 54 22 3A 81 55 38 B2 31 A4 35 30 3A 82 00 A4 |RT":.U8.1.50:...|
00000190: 09 87 00 82 3A 4D 54 B2 33 30 3A 4E 4D B2 4D 54 |....:MT.30:NM.MT|
000001A0: 3A 99 4C 24 00 EB 09 8C 00 86 20 54 4C 24 28 4E |:.L$...... TL$(N|
000001B0: 4D 29 2C 46 44 24 28 4E 4D 29 2C 53 4E 28 4E 43 |M),FD$(NM),SN(NC|
000001C0: 29 2C 49 28 32 AC 4E 43 29 2C 4C 28 4E 4D 29 2C |),I(2.NC),L(NM),|
000001D0: 4E 28 4E 4D 29 2C 4E 4D 24 28 4E 46 29 2C 54 4E |N(NM),NM$(NF),TN|
000001E0: 28 4E 4D 29 2C 53 24 28 4E 4D 29 00 05 0A 96 00 |(NM),S$(NM).....|
000001F0: 86 20 50 53 24 28 4E 4D 29 2C 52 28 4E 4D 29 2C |. PS$(NM),R(NM),|
00000200: 41 28 4E 4C 29 00 0D 0A 9B 00 49 B2 30 00 2C 0A |A(NL).....I.0.,.|
00000210: A0 00 99 22 11 54 49 54 4C 45 20 12 22 49 AA 31 |...".TITLE ."I.1|
00000220: 22 92 22 3B 3A 85 54 4C 24 28 49 29 00 3E 0A A5 |".";:.TL$(I).>..|
00000230: 00 8B 54 4C 24 28 49 29 B2 22 2A 22 A7 8A 00 56 |..TL$(I)."*"...V|
00000240: 0A AA 00 8D 36 31 30 3A 8B 54 4C 24 28 49 29 B2 |....610:.TL$(I).|
00000250: 51 24 A7 32 34 30 00 93 0A B4 00 99 22 CE 55 4D |Q$.240......".UM|
00000260: 42 45 52 20 4F 46 20 43 48 41 52 41 43 54 45 52 |BER OF CHARACTER|
00000270: 53 20 49 4E 20 12 22 54 4C 24 28 49 29 3B 3A 85 |S IN ."TL$(I);:.|
00000280: 22 92 22 3B 4C 49 24 3A 4C 28 49 29 B2 C5 28 4C |".";LI$:L(I)..(L|
00000290: 49 24 29 00 A2 0A B5 00 8B 4C 49 24 B2 22 2A 22 |I$)......LI$."*"|
000002A0: A7 8A 00 CD 0A B9 00 8B C3 28 54 4C 24 28 49 29 |.........(TL$(I)|
000002B0: 29 AA 4C 28 49 29 B1 33 37 A7 81 55 39 B2 31 A4 |).L(I).37..U9.1.|
000002C0: 35 3A 8D 36 31 30 3A 82 3A 89 31 36 30 00 D6 0A |5:.610:.:.160...|
000002D0: BE 00 8D 36 31 30 00 11 0B C8 00 52 28 49 29 B2 |...610.....R(I).|
000002E0: 30 3A 85 22 48 49 47 48 4C 49 47 48 54 45 44 20 |0:."HIGHLIGHTED |
000002F0: 44 49 53 50 4C 41 59 20 20 20 4E 9D 9D 9D 22 3B |DISPLAY N...";|
00000300: 56 24 3A 8B 56 24 B2 22 59 22 A7 52 28 49 29 B2 |V$:.V$."Y".R(I).|
00000310: 31 00 25 0B D2 00 8D 36 31 30 3A 8B 56 24 B2 51 |1.%....610:.V$.Q|
00000320: 24 A7 32 34 30 00 33 0B D7 00 8B 56 24 B2 22 2A |$.240.3....V$."*|
00000330: 22 A7 8A 00 74 0B DC 00 4E 28 49 29 B2 31 3A 85 |"...t...N(I).1:.|
00000340: 22 12 41 92 4C 50 48 41 42 45 54 49 43 20 4F 52 |".A.LPHABETIC OR|
00000350: 20 12 4E 92 55 4D 45 52 49 43 20 20 20 41 9D 9D | .N.UMERIC A..|
00000360: 9D 22 3B 56 24 3A 8B 56 24 B2 22 4E 22 A7 4E 28 |.";V$:.V$."N".N(|
00000370: 49 29 B2 30 00 82 0B E1 00 8B 56 24 B2 22 2A 22 |I).0......V$."*"|
00000380: A7 8A 00 9B 0B E6 00 8D 36 31 30 3A 49 B2 49 AA |........610:I.I.|
00000390: 31 3A 8B 49 B3 4D 54 A7 31 36 30 00 C9 0B EB 00 |1:.I.MT.160.....|
000003A0: 99 22 2A 2A 2A 2A 2A 2A 54 4F 4F 20 4D 41 4E 59 |."******TOO MANY|
000003B0: 20 54 49 54 4C 45 53 2A 2A 2A 2A 2A 22 3A 81 54 | TITLES*****":.T|
000003C0: B2 31 A4 31 30 30 30 3A 82 00 D4 0B F0 00 4E 4D |.1.1000:......NM|
000003D0: B2 49 AB 31 00 FF 0B FA 00 4D 41 58 B2 30 3A 81 |.I.1.....MAX.0:.|
000003E0: 49 B2 30 A4 4E 4D 3A 4C B2 C3 28 54 4C 24 28 49 |I.0.NM:L..(TL$(I|
000003F0: 29 29 3A 8B 4D 41 58 B3 4C A7 4D 41 58 B2 4C 00 |)):.MAX.L.MAX.L.|
00000400: 16 0C FF 00 82 3A 8D 34 32 30 3A 53 24 B2 22 1D |.....:.420:S$.".|
00000410: 22 3A 99 22 93 22 00 4D 0C 04 01 81 4B B2 30 A4 |":.".".M....K.0.|
00000420: 4E 4D 3A 99 50 53 24 28 4B 29 54 4C 24 28 4B 29 |NM:.PS$(K)TL$(K)|
00000430: 3B 3A 42 4C B2 4C 28 4B 29 3A 8D 38 37 30 3A 99 |;:BL.L(K):.870:.|
00000440: CA 28 C4 28 4B AA 31 29 2C 32 29 3A 82 00 7C 0C |.(.(K.1),2):..|.|
00000450: 0E 01 99 53 44 24 22 91 46 4F 52 4D 41 54 20 4F |...SD$".FORMAT O|
00000460: 4B 3F 22 3B 3A 8D 38 35 30 3A 8B 41 24 B3 B1 22 |K?";:.850:.A$.."|
00000470: 59 22 A7 8D 35 34 30 3A 89 32 35 30 00 99 0C 18 |Y"..540:.250....|
00000480: 01 4D 41 58 B2 4D 41 58 AA 32 3A 4C 4C B2 4D 41 |.MAX.MAX.2:LL.MA|
00000490: 58 AA 32 3A 53 55 4D B2 30 00 CB 0C 1D 01 99 22 |X.2:SUM.0......"|
000004A0: 93 22 3B 3A 81 49 B2 30 A4 4E 4D 3A 46 44 24 28 |.";:.I.0.NM:FD$(|
000004B0: 49 29 B2 C8 28 54 4C 24 28 49 29 AA 44 54 24 2C |I)..(TL$(I).DT$,|
000004C0: 4D 41 58 29 3A 82 3A 4E 30 B2 30 00 04 0D 22 01 |MAX):.:N0.0...".|
000004D0: 81 49 B2 30 A4 4E 4D 3A 4E 30 B2 4E 30 AA 4C 28 |.I.0.NM:N0.N0.L(|
000004E0: 49 29 3A 82 3A 4E 43 B2 B5 28 28 32 30 30 30 30 |I):.:NC..((20000|
000004F0: AB 35 AC 4E 4D AC 4D 41 58 29 AD 28 4E 30 AA 31 |.5.NM.MAX).(N0.1|
00000500: 30 30 29 29 00 17 0D 23 01 8B 4E 43 B1 32 35 35 |00))...#..NC.255|
00000510: A7 4E 43 B2 32 35 35 00 21 0D 24 01 8D 32 30 30 |.NC.255.!.$..200|
00000520: 30 00 50 0D 27 01 99 22 93 11 11 C5 41 43 48 20 |0.P.'.."....ACH |
00000530: C4 C1 D4 C1 2D C6 C9 CC C5 20 4D 41 59 20 48 41 |....-.... MAY HA|
00000540: 56 45 22 4E 43 22 20 52 45 43 4F 52 44 53 2E 22 |VE"NC" RECORDS."|
00000550: 00 72 0D 2C 01 85 22 11 11 11 11 CE 41 4D 45 20 |.r.,..".....AME |
00000560: 4F 46 20 D4 C9 D4 CC C5 2D C6 C9 CC C5 22 3B 54 |OF .....-....";T|
00000570: 46 24 00 90 0D 36 01 85 22 11 C4 52 49 56 45 20 |F$...6.."..RIVE |
00000580: 20 20 30 9D 9D 9D 22 3B 44 52 24 3A 8D 36 31 30 | 0...";DR$:.610|
00000590: 00 D5 0D 3B 01 85 22 11 D2 45 50 4C 41 43 45 20 |...;.."..EPLACE |
000005A0: 41 4E 20 45 58 49 53 54 49 4E 47 20 D4 C9 D4 CC |AN EXISTING ....|
000005B0: C5 2D C6 C9 CC C5 20 20 20 4E 9D 9D 9D 22 3B 41 |.-.... N...";A|
000005C0: 24 3A 8B 41 24 B2 22 59 22 A7 44 52 24 B2 22 40 |$:.A$."Y".DR$."@|
000005D0: 22 AA 44 52 24 00 E2 0D 40 01 9F 31 35 2C 38 2C |".DR$...@..15,8,|
000005E0: 31 35 00 00 0E 4A 01 9F 32 2C 38 2C 32 2C 44 52 |15...J..2,8,2,DR|
000005F0: 24 AA 22 3A 22 AA 54 46 24 AA 22 2C 53 2C 57 22 |$.":".TF$.",S,W"|
00000600: 00 16 0E 4F 01 84 31 35 2C 45 2C 45 4D 24 2C 45 |...O..15,E,EM$,E|
00000610: 54 24 2C 45 53 24 00 4B 0E 50 01 8B 45 B3 B1 30 |T$,ES$.K.P..E..0|
00000620: A7 99 22 11 11 12 22 45 4D 24 3A A0 32 3A A0 31 |.."..."EM$:.2:.1|
00000630: 35 3A 99 22 11 11 11 3E 12 D2 C5 D4 D5 D2 CE 92 |5:."...>........|
00000640: 22 3A 8D 33 39 30 3A 89 32 39 35 00 79 0E 51 01 |":.390:.295.y.Q.|
00000650: 98 32 2C 45 4E 3B 43 52 24 3B 3A 8B 45 4E B1 30 |.2,EN;CR$;:.EN.0|
00000660: A7 81 59 B2 31 A4 45 4E 3A 98 32 2C 45 51 24 28 |..Y.1.EN:.2,EQ$(|
00000670: 59 29 3B 43 52 24 3B 3A 82 00 9D 0E 54 01 98 32 |Y);CR$;:....T..2|
00000680: 2C 4E 43 3B 43 52 24 3B 4E 4D 3B 43 52 24 3B 4C |,NC;CR$;NM;CR$;L|
00000690: 4C 3B 43 52 24 3B 4B 4D 3B 43 52 24 3B 00 B8 0E |L;CR$;KM;CR$;...|
000006A0: 5E 01 81 49 B2 30 A4 4E 4D 3A 98 32 2C 52 28 49 |^..I.0.NM:.2,R(I|
000006B0: 29 3B 43 52 24 3B 3A 82 00 FD 0E 68 01 81 49 B2 |);CR$;:....h..I.|
000006C0: 30 A4 4E 4D 3A 98 32 2C 54 4C 24 28 49 29 3B 43 |0.NM:.2,TL$(I);C|
000006D0: 52 24 3B 46 44 24 28 49 29 3B 43 52 24 3B 4C 28 |R$;FD$(I);CR$;L(|
000006E0: 49 29 3B 43 52 24 3B 4E 28 49 29 3B 43 52 24 3B |I);CR$;N(I);CR$;|
000006F0: 50 53 24 28 49 29 3B 43 52 24 3B 3A 82 00 18 0F |PS$(I);CR$;:....|
00000700: 72 01 81 4B B2 30 A4 4B 4D 3A 98 32 2C 41 28 4B |r..K.0.KM:.2,A(K|
00000710: 29 3B 43 52 24 3B 3A 82 00 42 0F 7C 01 A0 32 3A |);CR$;:..B.|..2:|
00000720: A0 31 35 3A 44 52 24 B2 C4 28 C2 28 37 30 34 29 |.15:DR$..(.(704)|
00000730: 29 3A 93 44 52 24 AA 22 3A 22 AA 46 4D 24 2C 38 |):.DR$.":".FM$,8|
00000740: 3A 8A 00 56 0F 86 01 A1 41 24 3A 8B 41 24 B3 B1 |:..V....A$:.A$..|
00000750: 22 22 A7 33 39 30 00 69 0F 90 01 A1 41 24 3A 8B |"".390.i....A$:.|
00000760: 41 24 B2 22 22 A7 34 30 30 00 77 0F 95 01 8B 41 |A$."".400.w....A|
00000770: 24 B2 22 2A 22 A7 8A 00 7D 0F 9A 01 8E 00 97 0F |$."*"...}.......|
00000780: A4 01 8F 20 46 4F 52 4D 41 54 20 43 41 4C 43 55 |... FORMAT CALCU|
00000790: 4C 41 54 49 4F 4E 53 00 A4 0F AE 01 4B B2 30 3A |LATIONS.....K.0:|
000007A0: 49 B2 AB 31 00 AE 0F B8 01 53 55 4D B2 30 00 CB |I..1.....SUM.0..|
000007B0: 0F C2 01 49 B2 49 AA 31 3A 8B 49 B1 4E 4D A7 41 |...I.I.1:.I.NM.A|
000007C0: 28 4B 29 B2 4E 4D 3A 89 34 39 30 00 E8 0F CC 01 |(K).NM:.490.....|
000007D0: 53 55 4D B2 53 55 4D AA C3 28 54 4C 24 28 49 29 |SUM.SUM..(TL$(I)|
000007E0: 29 AA 4C 28 49 29 AA 33 00 F8 0F D6 01 8B 53 55 |).L(I).3......SU|
000007F0: 4D B3 57 44 A7 34 35 30 00 1B 10 E0 01 49 B2 49 |M.WD.450.....I.I|
00000800: AB 31 3A 41 28 4B 29 B2 49 3A 4B B2 4B AA 31 3A |.1:A(K).I:K.K.1:|
00000810: 8B 4B B3 4E 4C A7 20 89 34 34 30 00 50 10 E1 01 |.K.NL. .440.P...|
00000820: 99 22 93 2A 2A 2A 12 42 41 44 20 46 4F 52 4D 41 |.".***.BAD FORMA|
00000830: 54 21 21 92 2A 2A 2A 22 3A 85 22 11 11 D2 45 53 |T!!.***":."...ES|
00000840: 54 41 52 54 20 20 20 59 9D 9D 9D 22 3B 55 39 24 |TART Y...";U9$|
00000850: 00 5F 10 E2 01 8B 55 39 24 B2 22 59 22 A7 8A 00 |._....U9$."Y"...|
00000860: 65 10 E3 01 8E 00 76 10 EA 01 4B 4D B2 4B 3A 5A |e.....v...KM.K:Z|
00000870: B2 30 3A 4B B2 30 00 B2 10 F4 01 53 55 4D B2 30 |.0:K.0.....SUM.0|
00000880: 3A 81 49 B2 5A A4 41 28 4B 29 3A 50 53 24 B2 C8 |:.I.Z.A(K):PS$..|
00000890: 28 53 44 24 2C 33 AC 4B AA 33 29 3A 81 4A B2 30 |(SD$,3.K.3):.J.0|
000008A0: A4 53 55 4D 3A 50 53 24 B2 50 53 24 AA 22 1D 22 |.SUM:PS$.PS$."."|
000008B0: 3A 82 00 DC 10 FE 01 50 53 24 28 49 29 B2 50 53 |:......PS$(I).PS|
000008C0: 24 3A 53 55 4D B2 53 55 4D AA C3 28 54 4C 24 28 |$:SUM.SUM..(TL$(|
000008D0: 49 29 29 AA 4C 28 49 29 AA 33 3A 82 00 FF 10 08 |I)).L(I).3:.....|
000008E0: 02 8B 4B B3 4B 4D A7 5A B2 41 28 4B 29 AA 31 3A |..K.KM.Z.A(K).1:|
000008F0: 4B B2 4B AA 31 3A 8B 4B B3 4E 4C A7 35 30 30 00 |K.K.1:.K.NL.500.|
00000900: 05 11 12 02 8E 00 19 11 1C 02 8F 20 43 48 41 4E |........... CHAN|
00000910: 47 45 20 46 4F 52 4D 41 54 00 44 11 1D 02 99 53 |GE FORMAT.D....S|
00000920: 44 24 22 91 C3 48 41 4E 47 45 20 54 49 54 4C 45 |D$"..HANGE TITLE|
00000930: 20 23 22 3B 3A 85 55 39 24 3A 8B 55 39 24 B2 22 | #";:.U9$:.U9$."|
00000940: 2A 22 A7 8A 00 6B 11 21 02 54 4C B2 C5 28 55 39 |*"...k.!.TL..(U9|
00000950: 24 29 AB 31 3A 47 24 B2 53 44 24 AA 22 91 22 AA |$).1:G$.SD$.".".|
00000960: 42 4C 24 AA 53 44 24 AA 22 91 22 00 79 11 26 02 |BL$.SD$.".".y.&.|
00000970: 8B 54 4C B3 30 A7 35 34 35 00 9F 11 2B 02 99 47 |.TL.0.545...+..G|
00000980: 24 3B 3A 99 22 54 49 54 4C 45 20 20 22 54 4C 24 |$;:."TITLE "TL$|
00000990: 28 54 4C 29 3A 99 22 91 1D 1D 1D 1D 1D 22 3B 00 |(TL):."......";.|
000009A0: CE 11 30 02 85 54 4C 24 28 54 4C 29 3A 99 47 24 |..0..TL$(TL):.G$|
000009B0: 3B 3A 99 22 C3 48 41 52 41 43 54 45 52 53 20 49 |;:.".HARACTERS I|
000009C0: 4E 20 D4 C9 D4 CC C5 20 22 4C 28 54 4C 29 00 FD |N ..... "L(TL)..|
000009D0: 11 35 02 85 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.5.."...........|
000009E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 4C 28 54 4C 29 |.........";L(TL)|
000009F0: 3A 8B 4D 41 58 B3 4C A7 4D 41 58 B2 4C 00 18 12 |:.MAX.L.MAX.L...|
00000A00: 3A 02 59 24 B2 22 41 22 3A 8B 4E 28 54 4C 29 B2 |:.Y$."A":.N(TL).|
00000A10: 30 A7 59 24 B2 22 4E 22 00 44 12 3F 02 99 47 24 |0.Y$."N".D.?..G$|
00000A20: 3B 3A 99 22 12 41 92 4C 50 48 41 42 45 54 49 43 |;:.".A.LPHABETIC|
00000A30: 20 4F 52 20 12 4E 92 55 4D 45 52 49 43 20 20 20 | OR .N.UMERIC |
00000A40: 22 3B 59 24 00 7E 12 44 02 4E 28 54 4C 29 B2 31 |";Y$.~.D.N(TL).1|
00000A50: 3A 85 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |:.".............|
00000A60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 59 24 3A 8B |..........";Y$:.|
00000A70: 59 24 B2 22 4E 22 A7 4E 28 54 4C 29 B2 30 00 84 |Y$."N".N(TL).0..|
00000A80: 12 58 02 8E 00 93 12 62 02 97 53 49 44 AA 32 34 |.X.....b..SID.24|
00000A90: 2C 31 35 00 B5 12 6C 02 97 53 49 44 AA 34 2C 31 |,15...l..SID.4,1|
00000AA0: 37 3A 81 50 50 B2 31 A4 35 30 3A 82 3A 97 53 49 |7:.PP.1.50:.:.SI|
00000AB0: 44 AA 34 2C 30 00 C3 12 76 02 97 53 49 44 AA 32 |D.4,0...v..SID.2|
00000AC0: 34 2C 30 00 C9 12 80 02 8E 00 D8 12 8A 02 97 53 |4,0............S|
00000AD0: 49 44 AA 32 34 2C 31 35 00 01 13 94 02 81 59 B2 |ID.24,15......Y.|
00000AE0: 31 A4 35 3A 97 53 49 44 AA 34 2C 33 33 3A 81 50 |1.5:.SID.4,33:.P|
00000AF0: 50 B2 31 A4 35 30 3A 82 3A 97 53 49 44 AA 34 2C |P.1.50:.:.SID.4,|
00000B00: 30 00 0F 13 9E 02 97 53 49 44 AA 32 34 2C 30 00 |0......SID.24,0.|
00000B10: 15 13 A8 02 8E 00 26 13 B2 02 8F 20 49 4E 49 54 |......&.... INIT|
00000B20: 49 41 4C 49 5A 45 00 67 13 B7 02 53 49 44 B2 35 |IALIZE.g...SID.5|
00000B30: 34 32 37 32 3A 97 53 49 44 AA 31 2C 35 30 3A 97 |4272:.SID.1,50:.|
00000B40: 53 49 44 AA 33 2C 32 30 30 3A 97 53 49 44 AA 35 |SID.3,200:.SID.5|
00000B50: 2C 30 3A 97 53 49 44 AA 36 2C 32 34 30 3A 97 53 |,0:.SID.6,240:.S|
00000B60: 49 44 AA 32 34 2C 30 00 87 13 BC 02 4E 46 B2 35 |ID.24,0.....NF.5|
00000B70: 30 3A 8F 20 4D 41 58 20 4E 55 4D 42 45 52 20 4F |0:. MAX NUMBER O|
00000B80: 46 20 46 49 4C 45 53 00 B8 13 C6 02 4C 24 B2 22 |F FILES.....L$."|
00000B90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000BA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000BB0: C0 C0 C0 C0 C0 C0 C0 22 00 F2 13 D0 02 4C 50 24 |.......".....LP$|
00000BC0: B2 4C 24 AA 4C 24 3A 42 4C 24 B2 22 20 20 20 20 |.L$.L$:BL$." |
00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BF0: 20 22 00 13 14 DA 02 44 54 24 B2 22 22 3A 81 49 | ".....DT$."":.I|
00000C00: B2 31 A4 33 39 3A 44 54 24 B2 44 54 24 AA 22 2E |.1.39:DT$.DT$.".|
00000C10: 22 3A 82 00 4D 14 E4 02 51 24 B2 22 40 22 3A 41 |":..M...Q$."@":A|
00000C20: 51 B2 C6 28 51 24 29 3A 42 24 B2 22 5E 22 3A 41 |Q..(Q$):B$."^":A|
00000C30: 42 B2 C6 28 42 24 29 3A 46 4C 24 B2 22 20 20 20 |B..(B$):FL$." |
00000C40: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 68 14 | ".h.|
00000C50: EE 02 50 31 B2 31 3A 50 32 B2 36 30 3A 50 33 B2 |..P1.1:P2.60:P3.|
00000C60: 36 34 3A 57 44 B2 34 30 00 88 14 0C 03 43 30 B2 |64:WD.40.....C0.|
00000C70: 31 39 38 3A 4C 4E B2 32 31 36 3A 56 24 B2 22 12 |198:LN.216:V$.".|
00000C80: 22 3A 4F 24 B2 22 92 22 00 9A 14 16 03 4C 24 B2 |":O$.".".....L$.|
00000C90: C8 28 4C 24 2C 57 44 AB 31 29 00 BE 14 20 03 53 |.(L$,WD.1)... .S|
00000CA0: 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |D$."............|
00000CB0: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 E0 |............."..|
00000CC0: 14 2A 03 43 52 24 B2 C7 28 31 33 29 3A 50 24 28 |.*.CR$..(13):P$(|
00000CD0: 31 29 B2 22 11 12 22 3A 50 24 28 30 29 B2 22 22 |1)."..":P$(0).""|
00000CE0: 00 FB 14 34 03 50 54 24 28 31 29 B2 22 22 3A 50 |...4.PT$(1)."":P|
00000CF0: 54 24 28 30 29 B2 C7 28 31 33 29 00 0D 15 39 03 |T$(0)..(13)...9.|
00000D00: 97 35 33 32 38 30 2C 36 3A 99 22 90 22 00 13 15 |.53280,6:."."...|
00000D10: 3E 03 8E 00 33 15 48 03 99 53 44 24 22 91 22 4C |>...3.H..SD$"."L|
00000D20: 24 53 44 24 22 12 53 45 4C 45 43 54 49 4F 4E 92 |$SD$".SELECTION.|
00000D30: 20 22 3B 00 4F 15 52 03 97 32 30 34 2C 30 3A 8D | ";.O.R..204,0:.|
00000D40: 33 39 30 3A 97 32 30 34 2C 31 3A 8D 36 31 30 00 |390:.204,1:.610.|
00000D50: 67 15 5C 03 46 4D 24 B2 22 46 49 4C 45 2F 4D 41 |g.\.FM$."FILE/MA|
00000D60: 53 54 45 52 22 3A 8E 00 94 15 66 03 99 22 DD 91 |STER":....f.."..|
00000D70: 9D B0 22 3B 3A 81 5A B2 31 A4 42 4C AA 31 3A 99 |..";:.Z.1.BL.1:.|
00000D80: 22 C0 22 3B 3A 82 3A 99 22 AE 11 9D DD 11 9D BD |".";:.:.".......|
00000D90: 9D 9D 22 3B 00 B5 15 70 03 81 5A B2 31 A4 42 4C |..";...p..Z.1.BL|
00000DA0: AA 31 3A 99 22 C0 9D 9D 22 3B 3A 82 3A 99 22 AD |.1:."...";:.:.".|
00000DB0: 91 22 3B 3A 8E 00 CF 15 7A 03 42 4C B2 33 35 3A |.";:....z.BL.35:|
00000DC0: 99 53 44 24 22 91 91 91 91 22 3A 8D 38 37 30 00 |.SD$"....":.870.|
00000DD0: 01 16 84 03 99 22 1D 12 22 51 24 22 92 3D 51 55 |.....".."Q$".=QU|
00000DE0: 49 54 DD 91 9D B2 11 11 9D B1 91 12 22 42 24 22 |IT.........."B$"|
00000DF0: 92 3D 4C 41 53 54 DD 91 9D B2 11 11 9D B1 91 22 |.=LAST........."|
00000E00: 3B 00 2B 16 8E 03 99 22 12 5F 92 42 41 43 4B DD |;.+...."._.BACK.|
00000E10: 91 9D B2 11 11 9D B1 91 12 52 45 54 55 52 4E 92 |.........RETURN.|
00000E20: 3D 46 4F 52 57 41 52 44 22 3A 8E 00 38 16 E8 03 |=FORWARD":..8...|
00000E30: 8F 20 4D 4F 44 49 46 59 00 58 16 F2 03 85 22 93 |. MODIFY.X....".|
00000E40: 11 CE 41 4D 45 20 4F 46 20 D4 C9 D4 CC C5 2D C6 |..AME OF .....-.|
00000E50: C9 CC C5 22 3B 54 46 24 00 71 16 F7 03 85 22 11 |...";TF$.q....".|
00000E60: C4 52 49 56 45 20 20 20 30 9D 9D 9D 22 3B 44 52 |.RIVE 0...";DR|
00000E70: 24 00 7E 16 FC 03 9F 31 35 2C 38 2C 31 35 00 9C |$.~....15,8,15..|
00000E80: 16 06 04 9F 32 2C 38 2C 32 2C 44 52 24 AA 22 3A |....2,8,2,DR$.":|
00000E90: 22 AA 54 46 24 AA 22 2C 53 2C 52 22 00 B2 16 0B |".TF$.",S,R"....|
00000EA0: 04 84 31 35 2C 45 2C 45 4D 24 2C 45 54 24 2C 45 |..15,E,EM$,ET$,E|
00000EB0: 53 24 00 E6 16 0C 04 8B 45 B3 B1 30 A7 99 22 11 |S$......E..0..".|
00000EC0: 12 22 45 4D 24 3A A0 32 3A A0 31 35 3A 99 22 11 |."EM$:.2:.15:.".|
00000ED0: 11 3E 12 D2 C5 D4 D5 D2 CE 92 22 3A 8D 33 39 30 |.>........":.390|
00000EE0: 3A 89 31 30 30 30 00 0A 17 0D 04 84 32 2C 45 4E |:.1000......2,EN|
00000EF0: 3A 8B 45 4E B1 30 A7 81 59 B2 31 A4 45 4E 3A 84 |:.EN.0..Y.1.EN:.|
00000F00: 32 2C 45 51 24 28 59 29 3A 82 00 26 17 10 04 84 |2,EQ$(Y):..&....|
00000F10: 32 2C 4E 43 3A 84 32 2C 4E 4D 3A 84 32 2C 4C 4C |2,NC:.2,NM:.2,LL|
00000F20: 3A 84 32 2C 4B 4D 00 6D 17 15 04 86 20 54 4C 24 |:.2,KM.m.... TL$|
00000F30: 28 4E 4D 29 2C 46 44 24 28 4E 4D 29 2C 53 4E 28 |(NM),FD$(NM),SN(|
00000F40: 4E 43 29 2C 49 28 32 AC 4E 43 29 2C 4C 28 4E 4D |NC),I(2.NC),L(NM|
00000F50: 29 2C 4E 28 4E 4D 29 2C 4E 4D 24 28 4E 46 29 2C |),N(NM),NM$(NF),|
00000F60: 54 4E 28 4E 4D 29 2C 53 24 28 4E 4D 29 00 87 17 |TN(NM),S$(NM)...|
00000F70: 1A 04 86 20 50 53 24 28 4E 4D 29 2C 52 28 4E 4D |... PS$(NM),R(NM|
00000F80: 29 2C 41 28 4E 4C 29 00 9D 17 1F 04 81 49 B2 30 |),A(NL)......I.0|
00000F90: A4 4E 4D 3A 84 32 2C 52 28 49 29 3A 82 00 CD 17 |.NM:.2,R(I):....|
00000FA0: 24 04 81 49 B2 30 A4 4E 4D 3A 84 32 2C 54 4C 24 |$..I.0.NM:.2,TL$|
00000FB0: 28 49 29 3A 84 32 2C 46 44 24 28 49 29 3A 84 32 |(I):.2,FD$(I):.2|
00000FC0: 2C 4C 28 49 29 3A 84 32 2C 4E 28 49 29 00 EF 17 |,L(I):.2,N(I)...|
00000FD0: 2E 04 84 32 2C 50 53 24 28 49 29 3A 82 3A 81 4B |...2,PS$(I):.:.K|
00000FE0: B2 30 A4 4B 4D 3A 84 32 2C 41 28 4B 29 3A 82 00 |.0.KM:.2,A(K):..|
00000FF0: FA 17 38 04 A0 32 3A A0 31 35 00 03 18 42 04 89 |..8..2:.15...B..|
00001000: 32 35 30 00 19 18 D0 07 8F 20 55 53 45 52 20 53 |250...... USER S|
00001010: 55 42 52 4F 55 54 49 4E 45 00 45 18 DA 07 99 22 |UBROUTINE.E...."|
00001020: 93 C4 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 |..O YOU WISH TO |
00001030: 49 4E 43 4C 55 44 45 20 41 20 53 55 42 52 4F 55 |INCLUDE A SUBROU|
00001040: 54 49 4E 45 22 00 7A 18 E4 07 99 22 11 54 4F 20 |TINE".z....".TO |
00001050: 42 45 20 27 41 44 44 45 44 27 20 54 4F 20 12 22 |BE 'ADDED' TO ."|
00001060: 46 4D 24 22 92 3F 20 22 3B 3A 8D 38 35 30 3A 8B |FM$".? ";:.850:.|
00001070: 41 24 B2 22 4E 22 A7 99 3A 8E 00 AA 18 EE 07 99 |A$."N"..:.......|
00001080: 22 93 11 11 11 11 11 11 11 11 11 11 11 11 D4 48 |"..............H|
00001090: 45 20 56 41 52 49 41 42 4C 45 53 20 59 4F 55 20 |E VARIABLES YOU |
000010A0: 48 41 56 45 20 41 52 45 3A 22 00 CF 18 F3 07 81 |HAVE ARE:"......|
000010B0: 59 B2 30 A4 4E 4D 3A 8B 4E 28 59 29 B2 30 A7 99 |Y.0.NM:.N(Y).0..|
000010C0: 22 56 28 22 59 22 29 3D 22 54 4C 24 28 59 29 00 |"V("Y")="TL$(Y).|
000010D0: ED 18 F8 07 82 3A 99 22 1C 12 C5 4E 54 45 52 22 |.....:."...NTER"|
000010E0: 51 24 22 20 54 4F 20 D1 D5 C9 D4 90 22 00 04 19 |Q$" TO ....."...|
000010F0: 02 08 99 22 13 22 3B 3A 45 4E B2 35 35 30 30 30 |...".";:EN.55000|
00001100: 3A 59 B2 31 00 2A 19 0C 08 45 4E 24 28 59 29 B2 |:Y.1.*...EN$(Y).|
00001110: C4 28 45 4E AA 59 29 AA 22 20 22 3A 99 45 4E 24 |.(EN.Y)." ":.EN$|
00001120: 28 59 29 45 51 24 28 59 29 3B 00 57 19 16 08 8D |(Y)EQ$(Y);.W....|
00001130: 33 30 30 30 3A 8B 20 41 24 B3 B1 51 24 20 A7 45 |3000:. A$..Q$ .E|
00001140: 51 24 28 59 29 B2 45 51 24 3A 59 B2 59 AA 31 3A |Q$(Y).EQ$:Y.Y.1:|
00001150: 99 3A 89 32 30 36 30 00 65 19 20 08 A0 31 3A 45 |.:.2060.e. ..1:E|
00001160: 4E B2 59 AB 31 00 87 19 2A 08 99 22 93 22 3B 3A |N.Y.1...*..".";:|
00001170: 81 59 B2 31 A4 45 4E 3A 99 45 4E 24 28 59 29 45 |.Y.1.EN:.EN$(Y)E|
00001180: 51 24 28 59 29 3A 82 00 AA 19 34 08 99 53 44 24 |Q$(Y):....4..SD$|
00001190: 22 91 CF CB 3F 20 22 3B 3A 8D 38 35 30 3A 8B 41 |"...? ";:.850:.A|
000011A0: 24 B2 22 4E 22 A7 32 30 33 30 00 B0 19 98 08 8E |$."N".2030......|
000011B0: 00 BC 19 B8 0B 8F 20 49 4E 50 55 54 00 CB 19 C2 |...... INPUT....|
000011C0: 0B 45 51 24 B2 45 51 24 28 59 29 00 E6 19 CC 0B |.EQ$.EQ$(Y).....|
000011D0: 97 32 30 34 2C 30 3A A1 41 24 3A 8B 41 24 B2 22 |.204,0:.A$:.A$."|
000011E0: 22 A7 33 30 32 30 00 03 1A D6 0B 97 32 30 34 2C |".3020......204,|
000011F0: 31 3A 8B 41 24 B2 51 24 B0 41 24 B2 C7 28 31 33 |1:.A$.Q$.A$..(13|
00001200: 29 A7 8E 00 1D 1A E0 0B 99 41 24 3B 3A 45 51 24 |)........A$;:EQ$|
00001210: B2 45 51 24 AA 41 24 3A 89 33 30 32 30 00 00 00 |.EQ$.A$:.3020...|
......."....... PONZO/WATERLOO.,...."...
.....F...."....... FILE/TITLES.T.(.."...
.....F.D..G(14):.:.690...I.NL.9:. MAX LI
NES IN DISPLAY...N.."."L$:.".. .C.REATE
NEW TITLE-FILE"...X..". .M.ODIFY OLD TIT
LE-FILE":.".... NOTE..........:HIT * TO
RESTART....}..840:CH$.A$:.A$."M".1000.V.
...U9.1.5:."...
":.U8.1.50:......."..HIT ."Q$"
. TO QUIT - .*. TO RESTART":.U8.1.50:...
....:MT.30:NM.MT:.L$...... TL$(NM),FD$(N
M),SN(NC),I(2.NC),L(NM),N(NM),NM$(NF),TN
(NM),S$(NM)...... PS$(NM),R(NM),A(NL)...
..I.0.,. ..".TITLE ."I.1".";:.TL$(I).>..
..TL$(I)."*"...V....610:.TL$(I).Q$.240..
...."NUMBER OF CHARACTERS IN ."TL$(I);:.
".";LI$:L(I).E(LI$)......LI$."*"...M....
C(TL$(I)).L(I).37..U9.1.5:.610:.:.160.V.
...610...H.R(I).0:."HIGHLIGHTED DISPLAY
N...";V$:.V$."Y".R(I).1.%.R..610:.V$.Q
$.240.3.W..V$."*"...T...N(I).1:.".A.LPHA
BETIC OR .N.UMERIC A...";V$:.V$."N".N(
I).0......V$."*"........610:I.I.1:.I.MT.
160.I...."******TOO MANY TITLES*****":.T
.1.1000:..T...NM.I.1.....MAX.0:.I.0.NM:L
.C(TL$(I)):.MAX.L.MAX.L......:.420:S$.".
":.".".M....K.0.NM:.PS$(K)TL$(K);:BL.L(K
):.870:.J(D(K.1),2):..|....SD$".FORMAT O
K?";:.850:.A$.."Y"..540:.250.....MAX.MAX
.2:LL.MAX.2:SUM.0.K....".";:.I.0.NM:FD$(
I).H(TL$(I).DT$,MAX):.:N0.0..."..I.0.NM:
N0.N0.L(I):.:NC..((20000.5.NM.MAX).(N0.1
00))...#..NC.255.NC.255.!.$..2000.P.'.."
...EACH DATA-FILE MAY HAVE"NC" RECORDS."
.R.,.."....NAME OF TITLE-FILE";TF$...6..
".DRIVE 0...";DR$:.610.U.;..".REPLACE
AN EXISTING TITLE-FILE N...";A$:.A$."Y
".DR$."@".DR$...@..15,8,15...J..2,8,2,DR
$.":".TF$.",S,W"...O..15,E,EM$,ET$,ES$.K
.P..E..0.."..."EM$: 2: 15:."...>.RETURN.
":.390:.295.Y.Q..2,EN;CR$;:.EN.0..Y.1.EN
:.2,EQ$(Y);CR$;:....T..2,NC;CR$;NM;CR$;L
L;CR$;KM;CR$;...^..I.0.NM:.2,R(I);CR$;:.
...H..I.0.NM:.2,TL$(I);CR$;FD$(I);CR$;L(
I);CR$;N(I);CR$;PS$(I);CR$;:....R..K.0.K
M:.2,A(K);CR$;:..B.|. 2: 15:DR$.D(B(704)
):.DR$.":".FM$,8:..V....A$:.A$.."".390.I
....A$:.A$."".400.W....A$."*"...}.......
... FORMAT CALCULATIONS.....K.0:I..1....
.SUM.0.K.B.I.I.1:.I.NM.A(K).NM:.490...L.
SUM.SUM.C(TL$(I)).L(I).3...V..SUM.WD.450
.....I.I.1:A(K).I:K.K.1:.K.NL. .440.P...
.".***.BAD FORMAT!!.***":."..RESTART Y
...";U9$._....U9$."Y"...E.....V...KM.K:Z
.0:K.0.....SUM.0:.I.Z.A(K):PS$.H(SD$,3.K
.3):.J.0.SUM:PS$.PS$.".":......PS$(I).PS
$:SUM.SUM.C(TL$(I)).L(I).3:.......K.KM.Z
.A(K).1:K.K.1:.K.NL.500............ CHAN
GE FORMAT.D....SD$".CHANGE TITLE #";:.U9
$:.U9$."*"...K.!.TL.E(U9$).1:G$.SD$.".".
BL$.SD$.".".Y.&..TL.0.545...+..G$;:."TIT
LE "TL$(TL):."......";.N.0..TL$(TL):.G$
;:."CHARACTERS IN TITLE "L(TL)...5.."...
.................";L(TL):.MAX.L.MAX.L...
:.Y$."A":.N(TL).0.Y$."N".D.?..G$;:.".A.L
PHABETIC OR .N.UMERIC ";Y$.~.D.N(TL).1
:.".......................";Y$:.Y$."N".N
(TL).0...X.....B..SID.24,15...L..SID.4,1
7:.PP.1.50:.:.SID.4,0.C.V..SID.24,0.I...
..X....SID.24,15......Y.1.5:.SID.4,33:.P
P.1.50:.:.SID.4,0......SID.24,0.......&.
... INITIALIZE.G...SID.54272:.SID.1,50:.
SID.3,200:.SID.5,0:.SID.6,240:.SID.24,0.
....NF.50:. MAX NUMBER OF FILES...F.L$."
......................................."
...P.LP$.L$.L$:BL$."
"...Z.DT$."":.I.1.39:DT
$.DT$.".":..M...Q$."@":AQ.F(Q$):B$."^":A
B.F(B$):FL$." ".H...P1.1:P
2.60:P3.64:WD.40.....C0.198:LN.216:V$.".
":O$.".".....L$.H(L$,WD.1)... .SD$."....
....................."...*.CR$.G(13):P$(
1)."..":P$(0).""...4.PT$(1)."":PT$(0).G(
13)...9..53280,6:."."...>...3.H..SD$"."L
$SD$".SELECTION. ";.O.R..204,0:.390:.204
,1:.610.G.\.FM$."FILE/MASTER":....F.."..
..";:.Z.1.BL.1:.".";:.:.".........";...P
..Z.1.BL.1:."...";:.:."..";:..O.Z.BL.35:
.SD$"....":.870......".."Q$".=QUIT......
...."B$".=LAST.........";.+...."._.BACK.
.........RETURN.=FORWARD":..8.... MODIFY
.X...."..NAME OF TITLE-FILE";TF$.Q....".
DRIVE 0...";DR$.~....15,8,15......2,8,
2,DR$.":".TF$.",S,R"......15,E,EM$,ET$,E
S$......E..0..".."EM$: 2: 15:."..>.RETUR
N.":.390:.1000......2,EN:.EN.0..Y.1.EN:.
2,EQ$(Y):..&....2,NC:.2,NM:.2,LL:.2,KM.M
.... TL$(NM),FD$(NM),SN(NC),I(2.NC),L(NM
),N(NM),NM$(NF),TN(NM),S$(NM)...... PS$(
NM),R(NM),A(NL)......I.0.NM:.2,R(I):..M.
$..I.0.NM:.2,TL$(I):.2,FD$(I):.2,L(I):.2
,N(I)......2,PS$(I):.:.K.0.KM:.2,A(K):..
..8. 2: 15...B..250...P.. USER SUBROUTIN
E.E.Z..".DO YOU WISH TO INCLUDE A SUBROU
TINE".Z....".TO BE 'ADDED' TO ."FM$".? "
;:.850:.A$."N"..:.......".............TH
E VARIABLES YOU HAVE ARE:".O....Y.0.NM:.
N(Y).0.."V("Y")="TL$(Y)......:."..ENTER"
Q$" TO QUIT."......".";:EN.55000:Y.1.*..
.EN$(Y).D(EN.Y)." ":.EN$(Y)EQ$(Y);.W....
3000:. A$..Q$ .EQ$(Y).EQ$:Y.Y.1:.:.2060.
E. . 1:EN.Y.1...*..".";:.Y.1.EN:.EN$(Y)E
Q$(Y):....4..SD$".OK? ";:.850:.A$."N".20
30............ INPUT.K.B.EQ$.EQ$(Y)...L.
.204,0:.A$:.A$."".3020...V..204,1:.A$.Q$
.A$.G(13)........A$;:EQ$.EQ$.A$:.3020...
> CLICK IMAGE PREVIEW FOR FULL MODAL