FILE/TITLES
FILE INFORMATION
FILENAME(S): FILE/TITLES
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 18:13:15
APPEARS ON: 1 disk(s)
FILE HASH
1b0d3b6f2ab27689b72b0fe5fddb37848b0eaaad0f1543412bf048066c3e08bb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LCH0538 V3 5 AT | FILE/TITLES | PRG | Sailor, Ganheden | 16 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 64 00 99 C7 28 31 34 29 3A 9C 3A 8D |....d...(14):.:.|
00000010: 36 39 30 00 33 08 69 00 4E 4C B2 39 3A 8F 20 4D |690.3.i.NL.9:. M|
00000020: 41 58 20 4C 49 4E 45 53 20 49 4E 20 44 49 53 50 |AX LINES IN DISP|
00000030: 4C 41 59 00 5C 08 6E 00 99 22 93 22 4C 24 3A 99 |LAY.\.n.."."L$:.|
00000040: 22 11 11 20 12 C3 92 52 45 41 54 45 20 CE C5 D7 |".. ...REATE ...|
00000050: 20 D4 C9 D4 CC C5 2D C6 C9 CC C5 22 00 96 08 78 | .....-...."...x|
00000060: 00 99 22 11 20 12 CD 92 4F 44 49 46 59 20 4F 4C |..". ...ODIFY OL|
00000070: 44 20 D4 C9 D4 CC C5 2D C6 C9 CC C5 22 3A 8D 38 |D .....-....":.8|
00000080: 34 30 3A 43 48 24 B2 41 24 3A 8B 41 24 B2 22 4D |40:CH$.A$:.A$."M|
00000090: 22 A7 31 30 30 30 00 C2 08 82 00 99 22 93 11 C8 |".1000......"...|
000000A0: 49 54 20 12 22 51 24 22 92 20 54 4F 20 51 55 49 |IT ."Q$". TO QUI|
000000B0: 54 22 3A 4D 54 B2 33 30 3A 4E 4D B2 4D 54 3A 99 |T":MT.30:NM.MT:.|
000000C0: 4C 24 00 09 09 8C 00 86 20 54 4C 24 28 4E 4D 29 |L$...... TL$(NM)|
000000D0: 2C 46 44 24 28 4E 4D 29 2C 53 4E 28 4E 43 29 2C |,FD$(NM),SN(NC),|
000000E0: 49 28 32 AC 4E 43 29 2C 4C 28 4E 4D 29 2C 4E 28 |I(2.NC),L(NM),N(|
000000F0: 4E 4D 29 2C 4E 4D 24 28 4E 46 29 2C 54 4E 28 4E |NM),NM$(NF),TN(N|
00000100: 4D 29 2C 53 24 28 4E 4D 29 00 23 09 96 00 86 20 |M),S$(NM).#.... |
00000110: 50 53 24 28 4E 4D 29 2C 52 28 4E 4D 29 2C 41 28 |PS$(NM),R(NM),A(|
00000120: 4E 4C 29 00 2B 09 9B 00 49 B2 30 00 4A 09 A0 00 |NL).+...I.0.J...|
00000130: 99 22 11 54 49 54 4C 45 20 12 22 49 AA 31 22 92 |.".TITLE ."I.1".|
00000140: 22 3B 3A 85 54 4C 24 28 49 29 00 62 09 AA 00 8D |";:.TL$(I).b....|
00000150: 36 31 30 3A 8B 54 4C 24 28 49 29 B2 51 24 A7 32 |610:.TL$(I).Q$.2|
00000160: 34 30 00 94 09 B4 00 99 22 CE 55 4D 42 45 52 20 |40......".UMBER |
00000170: 4F 46 20 43 48 41 52 41 43 54 45 52 53 20 49 4E |OF CHARACTERS IN|
00000180: 20 12 22 54 4C 24 28 49 29 3B 3A 85 22 92 22 3B | ."TL$(I);:.".";|
00000190: 4C 28 49 29 00 9D 09 BE 00 8D 36 31 30 00 D8 09 |L(I)......610...|
000001A0: C8 00 52 28 49 29 B2 30 3A 85 22 48 49 47 48 4C |..R(I).0:."HIGHL|
000001B0: 49 47 48 54 45 44 20 44 49 53 50 4C 41 59 20 20 |IGHTED DISPLAY |
000001C0: 20 4E 9D 9D 9D 22 3B 56 24 3A 8B 56 24 B2 22 59 | N...";V$:.V$."Y|
000001D0: 22 A7 52 28 49 29 B2 31 00 EC 09 D2 00 8D 36 31 |".R(I).1......61|
000001E0: 30 3A 8B 56 24 B2 51 24 A7 32 34 30 00 2D 0A DC |0:.V$.Q$.240.-..|
000001F0: 00 4E 28 49 29 B2 31 3A 85 22 12 41 92 4C 50 48 |.N(I).1:.".A.LPH|
00000200: 41 42 45 54 49 43 20 4F 52 20 12 4E 92 55 4D 45 |ABETIC OR .N.UME|
00000210: 52 49 43 20 20 20 41 9D 9D 9D 22 3B 56 24 3A 8B |RIC A...";V$:.|
00000220: 56 24 B2 22 4E 22 A7 4E 28 49 29 B2 30 00 46 0A |V$."N".N(I).0.F.|
00000230: E6 00 8D 36 31 30 3A 49 B2 49 AA 31 3A 8B 49 B3 |...610:I.I.1:.I.|
00000240: 4D 54 A7 31 36 30 00 74 0A EB 00 99 22 2A 2A 2A |MT.160.t...."***|
00000250: 2A 2A 2A 54 4F 4F 20 4D 41 4E 59 20 54 49 54 4C |***TOO MANY TITL|
00000260: 45 53 2A 2A 2A 2A 2A 22 3A 81 54 B2 31 A4 31 30 |ES*****":.T.1.10|
00000270: 30 30 3A 82 00 7F 0A F0 00 4E 4D B2 49 AB 31 00 |00:......NM.I.1.|
00000280: AA 0A FA 00 4D 41 58 B2 30 3A 81 49 B2 30 A4 4E |....MAX.0:.I.0.N|
00000290: 4D 3A 4C B2 C3 28 54 4C 24 28 49 29 29 3A 8B 4D |M:L..(TL$(I)):.M|
000002A0: 41 58 B3 4C A7 4D 41 58 B2 4C 00 C1 0A FF 00 82 |AX.L.MAX.L......|
000002B0: 3A 8D 34 32 30 3A 53 24 B2 22 1D 22 3A 99 22 93 |:.420:S$.".":.".|
000002C0: 22 00 F8 0A 04 01 81 4B B2 30 A4 4E 4D 3A 99 50 |"......K.0.NM:.P|
000002D0: 53 24 28 4B 29 54 4C 24 28 4B 29 3B 3A 42 4C B2 |S$(K)TL$(K);:BL.|
000002E0: 4C 28 4B 29 3A 8D 38 37 30 3A 99 CA 28 C4 28 4B |L(K):.870:..(.(K|
000002F0: AA 31 29 2C 32 29 3A 82 00 27 0B 0E 01 99 53 44 |.1),2):..'....SD|
00000300: 24 22 91 46 4F 52 4D 41 54 20 4F 4B 3F 22 3B 3A |$".FORMAT OK?";:|
00000310: 8D 38 35 30 3A 8B 41 24 B3 B1 22 59 22 A7 8D 35 |.850:.A$.."Y"..5|
00000320: 34 30 3A 89 32 35 30 00 44 0B 18 01 4D 41 58 B2 |40:.250.D...MAX.|
00000330: 4D 41 58 AA 32 3A 4C 4C B2 4D 41 58 AA 32 3A 53 |MAX.2:LL.MAX.2:S|
00000340: 55 4D B2 30 00 76 0B 1D 01 99 22 93 22 3B 3A 81 |UM.0.v....".";:.|
00000350: 49 B2 30 A4 4E 4D 3A 46 44 24 28 49 29 B2 C8 28 |I.0.NM:FD$(I)..(|
00000360: 54 4C 24 28 49 29 AA 44 54 24 2C 4D 41 58 29 3A |TL$(I).DT$,MAX):|
00000370: 82 3A 4E 30 B2 30 00 AF 0B 22 01 81 49 B2 30 A4 |.:N0.0..."..I.0.|
00000380: 4E 4D 3A 4E 30 B2 4E 30 AA 4C 28 49 29 3A 82 3A |NM:N0.N0.L(I):.:|
00000390: 4E 43 B2 B5 28 28 32 30 30 30 30 AB 35 AC 4E 4D |NC..((20000.5.NM|
000003A0: AC 4D 41 58 29 AD 28 4E 30 AA 31 30 30 29 29 00 |.MAX).(N0.100)).|
000003B0: C2 0B 23 01 8B 4E 43 B1 32 35 35 A7 4E 43 B2 32 |..#..NC.255.NC.2|
000003C0: 35 35 00 CC 0B 24 01 8D 32 30 30 30 00 FB 0B 27 |55...$..2000...'|
000003D0: 01 99 22 93 11 11 C5 41 43 48 20 C4 C1 D4 C1 2D |.."....ACH ....-|
000003E0: C6 C9 CC C5 20 4D 41 59 20 48 41 56 45 22 4E 43 |.... MAY HAVE"NC|
000003F0: 22 20 45 4E 54 52 49 45 53 2E 22 00 1D 0C 2C 01 |" ENTRIES."...,.|
00000400: 85 22 11 11 11 11 CE 41 4D 45 20 4F 46 20 D4 C9 |.".....AME OF ..|
00000410: D4 CC C5 2D C6 C9 CC C5 22 3B 54 46 24 00 2E 0C |...-....";TF$...|
00000420: 36 01 44 52 24 B2 22 30 22 3A 8D 36 31 30 00 73 |6.DR$."0":.610.s|
00000430: 0C 3B 01 85 22 11 D2 45 50 4C 41 43 45 20 41 4E |.;.."..EPLACE AN|
00000440: 20 45 58 49 53 54 49 4E 47 20 D4 C9 D4 CC C5 2D | EXISTING .....-|
00000450: C6 C9 CC C5 20 20 20 4E 9D 9D 9D 22 3B 41 24 3A |.... N...";A$:|
00000460: 8B 41 24 B2 22 59 22 A7 44 52 24 B2 22 40 22 AA |.A$."Y".DR$."@".|
00000470: 44 52 24 00 9A 0C 3C 01 99 22 93 11 11 05 20 20 |DR$...<..".... |
00000480: 20 20 20 20 C9 4E 53 45 52 54 20 D9 4F 55 52 20 | .NSERT .OUR |
00000490: C6 49 4C 45 20 C4 49 53 4B 22 00 BF 0C 3D 01 99 |.ILE .ISK"...=..|
000004A0: 22 11 11 20 20 20 20 20 20 C9 4E 54 4F 20 54 48 |".. .NTO TH|
000004B0: 45 20 C4 49 53 4B 20 C4 52 49 56 45 2E 20 22 00 |E .ISK .RIVE. ".|
000004C0: EB 0C 3E 01 A1 41 24 3A 99 22 11 11 11 20 20 20 |..>..A$:."... |
000004D0: 20 20 20 C8 49 54 20 C1 4E 59 20 CB 45 59 20 D4 | .IT .NY .EY .|
000004E0: 4F 20 C3 4F 4E 54 49 4E 55 45 22 00 FE 0C 3F 01 |O .ONTINUE"...?.|
000004F0: A1 41 24 3A 8B 41 24 B2 22 22 A7 33 31 39 00 0B |.A$:.A$."".319..|
00000500: 0D 40 01 9F 31 35 2C 38 2C 31 35 00 29 0D 4A 01 |.@..15,8,15.).J.|
00000510: 9F 32 2C 38 2C 32 2C 44 52 24 AA 22 3A 22 AA 54 |.2,8,2,DR$.":".T|
00000520: 46 24 AA 22 2C 53 2C 57 22 00 3F 0D 4F 01 84 31 |F$.",S,W".?.O..1|
00000530: 35 2C 45 2C 45 4D 24 2C 45 54 24 2C 45 53 24 00 |5,E,EM$,ET$,ES$.|
00000540: 74 0D 50 01 8B 45 B3 B1 30 A7 99 22 11 11 12 22 |t.P..E..0.."..."|
00000550: 45 4D 24 3A A0 32 3A A0 31 35 3A 99 22 11 11 11 |EM$:.2:.15:."...|
00000560: 3E 12 D2 C5 D4 D5 D2 CE 92 22 3A 8D 33 39 30 3A |>........":.390:|
00000570: 89 32 39 35 00 A2 0D 51 01 98 32 2C 45 4E 3B 43 |.295...Q..2,EN;C|
00000580: 52 24 3B 3A 8B 45 4E B1 30 A7 81 59 B2 31 A4 45 |R$;:.EN.0..Y.1.E|
00000590: 4E 3A 98 32 2C 45 51 24 28 59 29 3B 43 52 24 3B |N:.2,EQ$(Y);CR$;|
000005A0: 3A 82 00 C6 0D 54 01 98 32 2C 4E 43 3B 43 52 24 |:....T..2,NC;CR$|
000005B0: 3B 4E 4D 3B 43 52 24 3B 4C 4C 3B 43 52 24 3B 4B |;NM;CR$;LL;CR$;K|
000005C0: 4D 3B 43 52 24 3B 00 E1 0D 5E 01 81 49 B2 30 A4 |M;CR$;...^..I.0.|
000005D0: 4E 4D 3A 98 32 2C 52 28 49 29 3B 43 52 24 3B 3A |NM:.2,R(I);CR$;:|
000005E0: 82 00 26 0E 68 01 81 49 B2 30 A4 4E 4D 3A 98 32 |..&.h..I.0.NM:.2|
000005F0: 2C 54 4C 24 28 49 29 3B 43 52 24 3B 46 44 24 28 |,TL$(I);CR$;FD$(|
00000600: 49 29 3B 43 52 24 3B 4C 28 49 29 3B 43 52 24 3B |I);CR$;L(I);CR$;|
00000610: 4E 28 49 29 3B 43 52 24 3B 50 53 24 28 49 29 3B |N(I);CR$;PS$(I);|
00000620: 43 52 24 3B 3A 82 00 41 0E 72 01 81 4B B2 30 A4 |CR$;:..A.r..K.0.|
00000630: 4B 4D 3A 98 32 2C 41 28 4B 29 3B 43 52 24 3B 3A |KM:.2,A(K);CR$;:|
00000640: 82 00 4C 0E 7C 01 A0 32 3A A0 31 35 00 76 0E 7E |..L.|..2:.15.v.~|
00000650: 01 99 22 93 11 11 90 20 20 20 20 20 20 D0 55 54 |..".... .UT|
00000660: 20 54 48 45 20 CD 41 53 54 45 52 20 C4 49 53 4B | THE .ASTER .ISK|
00000670: 20 C2 41 43 4B 22 00 9B 0E 7F 01 99 22 11 11 20 | .ACK"......".. |
00000680: 20 20 20 20 20 C9 4E 54 4F 20 54 48 45 20 C4 49 | .NTO THE .I|
00000690: 53 4B 20 C4 52 49 56 45 2E 20 22 00 C7 0E 81 01 |SK .RIVE. ".....|
000006A0: A1 41 24 3A 99 22 11 11 11 20 20 20 20 20 20 C8 |.A$:."... .|
000006B0: 49 54 20 C1 4E 59 20 CB 45 59 20 D4 4F 20 C3 4F |IT .NY .EY .O .O|
000006C0: 4E 54 49 4E 55 45 22 00 DA 0E 82 01 A1 41 24 3A |NTINUE"......A$:|
000006D0: 8B 41 24 B2 22 22 A7 33 38 36 00 EC 0E 83 01 97 |.A$."".386......|
000006E0: 36 34 36 2C C2 28 35 33 32 38 31 29 00 0F 0F 85 |646,.(53281)....|
000006F0: 01 44 52 24 B2 C4 28 C2 28 37 30 34 29 29 3A 93 |.DR$..(.(704)):.|
00000700: 44 52 24 AA 22 3A 22 AA 46 4D 24 2C 38 3A 8A 00 |DR$.":".FM$,8:..|
00000710: 23 0F 86 01 A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 |#....A$:.A$.."".|
00000720: 33 39 30 00 36 0F 90 01 A1 41 24 3A 8B 41 24 B2 |390.6....A$:.A$.|
00000730: 22 22 A7 34 30 30 00 3C 0F 9A 01 8E 00 56 0F A4 |"".400.<.....V..|
00000740: 01 8F 20 46 4F 52 4D 41 54 20 43 41 4C 43 55 4C |.. FORMAT CALCUL|
00000750: 41 54 49 4F 4E 53 00 63 0F AE 01 4B B2 30 3A 49 |ATIONS.c...K.0:I|
00000760: B2 AB 31 00 6D 0F B8 01 53 55 4D B2 30 00 8A 0F |..1.m...SUM.0...|
00000770: C2 01 49 B2 49 AA 31 3A 8B 49 B1 4E 4D A7 41 28 |..I.I.1:.I.NM.A(|
00000780: 4B 29 B2 4E 4D 3A 89 34 39 30 00 A7 0F CC 01 53 |K).NM:.490.....S|
00000790: 55 4D B2 53 55 4D AA C3 28 54 4C 24 28 49 29 29 |UM.SUM..(TL$(I))|
000007A0: AA 4C 28 49 29 AA 33 00 B7 0F D6 01 8B 53 55 4D |.L(I).3......SUM|
000007B0: B3 57 44 A7 34 35 30 00 DA 0F E0 01 49 B2 49 AB |.WD.450.....I.I.|
000007C0: 31 3A 41 28 4B 29 B2 49 3A 4B B2 4B AA 31 3A 8B |1:A(K).I:K.K.1:.|
000007D0: 4B B3 4E 4C A7 20 89 34 34 30 00 06 10 E5 01 99 |K.NL. .440......|
000007E0: 22 93 2A 2A 2A 12 42 41 44 20 46 4F 52 4D 41 54 |".***.BAD FORMAT|
000007F0: 21 21 92 2A 2A 2A 22 3A 81 54 35 B2 31 A4 33 30 |!!.***":.T5.1.30|
00000800: 30 30 3A 82 3A 8E 00 17 10 EA 01 4B 4D B2 4B 3A |00:.:......KM.K:|
00000810: 5A B2 30 3A 4B B2 30 00 53 10 F4 01 53 55 4D B2 |Z.0:K.0.S...SUM.|
00000820: 30 3A 81 49 B2 5A A4 41 28 4B 29 3A 50 53 24 B2 |0:.I.Z.A(K):PS$.|
00000830: C8 28 53 44 24 2C 33 AC 4B AA 33 29 3A 81 4A B2 |.(SD$,3.K.3):.J.|
00000840: 30 A4 53 55 4D 3A 50 53 24 B2 50 53 24 AA 22 1D |0.SUM:PS$.PS$.".|
00000850: 22 3A 82 00 7D 10 FE 01 50 53 24 28 49 29 B2 50 |":..}...PS$(I).P|
00000860: 53 24 3A 53 55 4D B2 53 55 4D AA C3 28 54 4C 24 |S$:SUM.SUM..(TL$|
00000870: 28 49 29 29 AA 4C 28 49 29 AA 33 3A 82 00 A0 10 |(I)).L(I).3:....|
00000880: 08 02 8B 4B B3 4B 4D A7 5A B2 41 28 4B 29 AA 31 |...K.KM.Z.A(K).1|
00000890: 3A 4B B2 4B AA 31 3A 8B 4B B3 4E 4C A7 35 30 30 |:K.K.1:.K.NL.500|
000008A0: 00 A6 10 12 02 8E 00 BA 10 1C 02 8F 20 43 48 41 |............ CHA|
000008B0: 4E 47 45 20 46 4F 52 4D 41 54 00 F8 10 21 02 99 |NGE FORMAT...!..|
000008C0: 53 44 24 22 91 C3 48 41 4E 47 45 20 54 49 54 4C |SD$"..HANGE TITL|
000008D0: 45 20 23 22 3B 3A 85 54 4C 3A 54 4C B2 54 4C AB |E #";:.TL:TL.TL.|
000008E0: 31 3A 47 24 B2 53 44 24 AA 22 91 22 AA 42 4C 24 |1:G$.SD$.".".BL$|
000008F0: AA 53 44 24 AA 22 91 22 00 06 11 26 02 8B 54 4C |.SD$."."...&..TL|
00000900: B3 30 A7 35 34 35 00 2C 11 2B 02 99 47 24 3B 3A |.0.545.,.+..G$;:|
00000910: 99 22 54 49 54 4C 45 20 20 22 54 4C 24 28 54 4C |."TITLE "TL$(TL|
00000920: 29 3A 99 22 91 1D 1D 1D 1D 1D 22 3B 00 5B 11 30 |):."......";.[.0|
00000930: 02 85 54 4C 24 28 54 4C 29 3A 99 47 24 3B 3A 99 |..TL$(TL):.G$;:.|
00000940: 22 C3 48 41 52 41 43 54 45 52 53 20 49 4E 20 D4 |".HARACTERS IN .|
00000950: C9 D4 CC C5 20 22 4C 28 54 4C 29 00 8A 11 35 02 |.... "L(TL)...5.|
00000960: 85 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000970: 1D 1D 1D 1D 1D 1D 22 3B 4C 28 54 4C 29 3A 8B 4D |......";L(TL):.M|
00000980: 41 58 B3 4C A7 4D 41 58 B2 4C 00 A5 11 3A 02 59 |AX.L.MAX.L...:.Y|
00000990: 24 B2 22 41 22 3A 8B 4E 28 54 4C 29 B2 30 A7 59 |$."A":.N(TL).0.Y|
000009A0: 24 B2 22 4E 22 00 D1 11 3F 02 99 47 24 3B 3A 99 |$."N"...?..G$;:.|
000009B0: 22 12 41 92 4C 50 48 41 42 45 54 49 43 20 4F 52 |".A.LPHABETIC OR|
000009C0: 20 12 4E 92 55 4D 45 52 49 43 20 20 20 22 3B 59 | .N.UMERIC ";Y|
000009D0: 24 00 0B 12 44 02 4E 28 54 4C 29 B2 31 3A 85 22 |$...D.N(TL).1:."|
000009E0: 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000009F0: 1D 1D 1D 1D 1D 1D 1D 22 3B 59 24 3A 8B 59 24 B2 |.......";Y$:.Y$.|
00000A00: 22 4E 22 A7 4E 28 54 4C 29 B2 30 00 11 12 58 02 |"N".N(TL).0...X.|
00000A10: 8E 00 20 12 62 02 97 53 49 44 AA 32 34 2C 31 35 |.. .b..SID.24,15|
00000A20: 00 42 12 6C 02 97 53 49 44 AA 34 2C 31 37 3A 81 |.B.l..SID.4,17:.|
00000A30: 50 50 B2 31 A4 35 30 3A 82 3A 97 53 49 44 AA 34 |PP.1.50:.:.SID.4|
00000A40: 2C 30 00 50 12 76 02 97 53 49 44 AA 32 34 2C 30 |,0.P.v..SID.24,0|
00000A50: 00 56 12 80 02 8E 00 65 12 8A 02 97 53 49 44 AA |.V.....e....SID.|
00000A60: 32 34 2C 31 35 00 8E 12 94 02 81 59 B2 31 A4 35 |24,15......Y.1.5|
00000A70: 3A 97 53 49 44 AA 34 2C 33 33 3A 81 50 50 B2 31 |:.SID.4,33:.PP.1|
00000A80: A4 35 30 3A 82 3A 97 53 49 44 AA 34 2C 30 00 9C |.50:.:.SID.4,0..|
00000A90: 12 9E 02 97 53 49 44 AA 32 34 2C 30 00 A2 12 A8 |....SID.24,0....|
00000AA0: 02 8E 00 B3 12 B2 02 8F 20 49 4E 49 54 49 41 4C |........ INITIAL|
00000AB0: 49 5A 45 00 F4 12 B7 02 53 49 44 B2 35 34 32 37 |IZE.....SID.5427|
00000AC0: 32 3A 97 53 49 44 AA 31 2C 35 30 3A 97 53 49 44 |2:.SID.1,50:.SID|
00000AD0: AA 31 2C 32 30 30 3A 97 53 49 44 AA 35 2C 30 3A |.1,200:.SID.5,0:|
00000AE0: 97 53 49 44 AA 36 2C 32 34 30 3A 97 53 49 44 AA |.SID.6,240:.SID.|
00000AF0: 32 34 2C 30 00 14 13 BC 02 4E 46 B2 35 30 3A 8F |24,0.....NF.50:.|
00000B00: 20 4D 41 58 20 4E 55 4D 42 45 52 20 4F 46 20 46 | MAX NUMBER OF F|
00000B10: 49 4C 45 53 00 45 13 C6 02 4C 24 B2 22 C0 C0 C0 |ILES.E...L$."...|
00000B20: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000B30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000B40: C0 C0 C0 C0 22 00 7F 13 D0 02 4C 50 24 B2 4C 24 |....".....LP$.L$|
00000B50: AA 4C 24 3A 42 4C 24 B2 22 20 20 20 20 20 20 20 |.L$:BL$." |
00000B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000B80: A0 13 DA 02 44 54 24 B2 22 22 3A 81 49 B2 31 A4 |....DT$."":.I.1.|
00000B90: 33 39 3A 44 54 24 B2 44 54 24 AA 22 2E 22 3A 82 |39:DT$.DT$.".":.|
00000BA0: 00 DA 13 E4 02 51 24 B2 22 40 22 3A 41 51 B2 C6 |.....Q$."@":AQ..|
00000BB0: 28 51 24 29 3A 42 24 B2 22 5E 22 3A 41 42 B2 C6 |(Q$):B$."^":AB..|
00000BC0: 28 42 24 29 3A 46 4C 24 B2 22 20 20 20 20 20 20 |(B$):FL$." |
00000BD0: 20 20 20 20 20 20 20 20 20 22 00 F5 13 EE 02 50 | ".....P|
00000BE0: 31 B2 31 3A 50 32 B2 36 30 3A 50 33 B2 36 34 3A |1.1:P2.60:P3.64:|
00000BF0: 57 44 B2 34 30 00 15 14 0C 03 43 30 B2 31 39 38 |WD.40.....C0.198|
00000C00: 3A 4C 4E B2 32 31 36 3A 56 24 B2 22 12 22 3A 4F |:LN.216:V$.".":O|
00000C10: 24 B2 22 92 22 00 27 14 16 03 4C 24 B2 C8 28 4C |$.".".'...L$..(L|
00000C20: 24 2C 57 44 AB 31 29 00 4B 14 20 03 53 44 24 B2 |$,WD.1).K. .SD$.|
00000C30: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00000C40: 11 11 11 11 11 11 11 11 11 11 22 00 6D 14 2A 03 |..........".m.*.|
00000C50: 43 52 24 B2 C7 28 31 33 29 3A 50 24 28 31 29 B2 |CR$..(13):P$(1).|
00000C60: 22 11 12 22 3A 50 24 28 30 29 B2 22 22 00 88 14 |"..":P$(0).""...|
00000C70: 34 03 50 54 24 28 31 29 B2 22 22 3A 50 54 24 28 |4.PT$(1)."":PT$(|
00000C80: 30 29 B2 C7 28 31 33 29 00 9A 14 39 03 97 35 33 |0)..(13)...9..53|
00000C90: 32 38 30 2C 36 3A 99 22 90 22 00 A0 14 3E 03 8E |280,6:."."...>..|
00000CA0: 00 C0 14 48 03 99 53 44 24 22 91 22 4C 24 53 44 |...H..SD$"."L$SD|
00000CB0: 24 22 12 53 45 4C 45 43 54 49 4F 4E 92 20 22 3B |$".SELECTION. ";|
00000CC0: 00 DC 14 52 03 97 32 30 34 2C 30 3A 8D 33 39 30 |...R..204,0:.390|
00000CD0: 3A 97 32 30 34 2C 31 3A 8D 36 31 30 00 F4 14 5C |:.204,1:.610...\|
00000CE0: 03 46 4D 24 B2 22 46 49 4C 45 2F 4D 41 53 54 45 |.FM$."FILE/MASTE|
00000CF0: 52 22 3A 8E 00 21 15 66 03 99 22 DD 91 9D B0 22 |R":..!.f.."...."|
00000D00: 3B 3A 81 5A B2 31 A4 42 4C AA 31 3A 99 22 C0 22 |;:.Z.1.BL.1:."."|
00000D10: 3B 3A 82 3A 99 22 AE 11 9D DD 11 9D BD 9D 9D 22 |;:.:."........."|
00000D20: 3B 00 42 15 70 03 81 5A B2 31 A4 42 4C AA 31 3A |;.B.p..Z.1.BL.1:|
00000D30: 99 22 C0 9D 9D 22 3B 3A 82 3A 99 22 AD 91 22 3B |."...";:.:."..";|
00000D40: 3A 8E 00 5C 15 7A 03 42 4C B2 33 35 3A 99 53 44 |:..\.z.BL.35:.SD|
00000D50: 24 22 91 91 91 91 22 3A 8D 38 37 30 00 8E 15 84 |$"....":.870....|
00000D60: 03 99 22 1D 12 22 51 24 22 92 3D 51 55 49 54 DD |..".."Q$".=QUIT.|
00000D70: 91 9D B2 11 11 9D B1 91 12 22 42 24 22 92 3D 4C |........."B$".=L|
00000D80: 41 53 54 DD 91 9D B2 11 11 9D B1 91 22 3B 00 B8 |AST.........";..|
00000D90: 15 8E 03 99 22 12 5F 92 42 41 43 4B DD 91 9D B2 |...."._.BACK....|
00000DA0: 11 11 9D B1 91 12 52 45 54 55 52 4E 92 3D 46 4F |......RETURN.=FO|
00000DB0: 52 57 41 52 44 22 3A 8E 00 C5 15 E8 03 8F 20 4D |RWARD":....... M|
00000DC0: 4F 44 49 46 59 00 E5 15 F2 03 85 22 93 11 CE 41 |ODIFY......"...A|
00000DD0: 4D 45 20 4F 46 20 D4 C9 D4 CC C5 2D C6 C9 CC C5 |ME OF .....-....|
00000DE0: 22 3B 54 46 24 00 F1 15 F7 03 44 52 24 B2 22 30 |";TF$.....DR$."0|
00000DF0: 22 00 FE 15 FC 03 9F 31 35 2C 38 2C 31 35 00 1C |"......15,8,15..|
00000E00: 16 06 04 9F 32 2C 38 2C 32 2C 44 52 24 AA 22 3A |....2,8,2,DR$.":|
00000E10: 22 AA 54 46 24 AA 22 2C 53 2C 52 22 00 32 16 0B |".TF$.",S,R".2..|
00000E20: 04 84 31 35 2C 45 2C 45 4D 24 2C 45 54 24 2C 45 |..15,E,EM$,ET$,E|
00000E30: 53 24 00 66 16 0C 04 8B 45 B3 B1 30 A7 99 22 11 |S$.f....E..0..".|
00000E40: 12 22 45 4D 24 3A A0 32 3A A0 31 35 3A 99 22 11 |."EM$:.2:.15:.".|
00000E50: 11 3E 12 D2 C5 D4 D5 D2 CE 92 22 3A 8D 33 39 30 |.>........":.390|
00000E60: 3A 89 31 30 30 30 00 8A 16 0D 04 84 32 2C 45 4E |:.1000......2,EN|
00000E70: 3A 8B 45 4E B1 30 A7 81 59 B2 31 A4 45 4E 3A 84 |:.EN.0..Y.1.EN:.|
00000E80: 32 2C 45 51 24 28 59 29 3A 82 00 A6 16 10 04 84 |2,EQ$(Y):.......|
00000E90: 32 2C 4E 43 3A 84 32 2C 4E 4D 3A 84 32 2C 4C 4C |2,NC:.2,NM:.2,LL|
00000EA0: 3A 84 32 2C 4B 4D 00 ED 16 15 04 86 20 54 4C 24 |:.2,KM...... TL$|
00000EB0: 28 4E 4D 29 2C 46 44 24 28 4E 4D 29 2C 53 4E 28 |(NM),FD$(NM),SN(|
00000EC0: 4E 43 29 2C 49 28 32 AC 4E 43 29 2C 4C 28 4E 4D |NC),I(2.NC),L(NM|
00000ED0: 29 2C 4E 28 4E 4D 29 2C 4E 4D 24 28 4E 46 29 2C |),N(NM),NM$(NF),|
00000EE0: 54 4E 28 4E 4D 29 2C 53 24 28 4E 4D 29 00 07 17 |TN(NM),S$(NM)...|
00000EF0: 1A 04 86 20 50 53 24 28 4E 4D 29 2C 52 28 4E 4D |... PS$(NM),R(NM|
00000F00: 29 2C 41 28 4E 4C 29 00 1D 17 1F 04 81 49 B2 30 |),A(NL)......I.0|
00000F10: A4 4E 4D 3A 84 32 2C 52 28 49 29 3A 82 00 4D 17 |.NM:.2,R(I):..M.|
00000F20: 24 04 81 49 B2 30 A4 4E 4D 3A 84 32 2C 54 4C 24 |$..I.0.NM:.2,TL$|
00000F30: 28 49 29 3A 84 32 2C 46 44 24 28 49 29 3A 84 32 |(I):.2,FD$(I):.2|
00000F40: 2C 4C 28 49 29 3A 84 32 2C 4E 28 49 29 00 6F 17 |,L(I):.2,N(I).o.|
00000F50: 2E 04 84 32 2C 50 53 24 28 49 29 3A 82 3A 81 4B |...2,PS$(I):.:.K|
00000F60: B2 30 A4 4B 4D 3A 84 32 2C 41 28 4B 29 3A 82 00 |.0.KM:.2,A(K):..|
00000F70: 7A 17 38 04 A0 32 3A A0 31 35 00 83 17 42 04 89 |z.8..2:.15...B..|
00000F80: 32 35 30 00 99 17 D0 07 8F 20 55 53 45 52 20 53 |250...... USER S|
00000F90: 55 42 52 4F 55 54 49 4E 45 00 AB 17 D5 07 8B 43 |UBROUTINE......C|
00000FA0: 48 24 B2 22 4D 22 A7 32 30 33 30 00 D7 17 DA 07 |H$."M".2030.....|
00000FB0: 99 22 93 C4 4F 20 59 4F 55 20 57 49 53 48 20 54 |."..O YOU WISH T|
00000FC0: 4F 20 49 4E 43 4C 55 44 45 20 41 20 53 55 42 52 |O INCLUDE A SUBR|
00000FD0: 4F 55 54 49 4E 45 22 00 0C 18 E4 07 99 22 11 54 |OUTINE"......".T|
00000FE0: 4F 20 42 45 20 27 41 44 44 45 44 27 20 54 4F 20 |O BE 'ADDED' TO |
00000FF0: 12 22 46 4D 24 22 92 3F 20 22 3B 3A 8D 38 35 30 |."FM$".? ";:.850|
00001000: 3A 8B 41 24 B2 22 4E 22 A7 99 3A 8E 00 3C 18 EE |:.A$."N"..:..<..|
00001010: 07 99 22 93 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00001020: D4 48 45 20 56 41 52 49 41 42 4C 45 53 20 59 4F |.HE VARIABLES YO|
00001030: 55 20 48 41 56 45 20 41 52 45 3A 22 00 61 18 F3 |U HAVE ARE:".a..|
00001040: 07 81 59 B2 30 A4 4E 4D 3A 8B 4E 28 59 29 B2 30 |..Y.0.NM:.N(Y).0|
00001050: A7 99 22 56 28 22 59 22 29 3D 22 54 4C 24 28 59 |.."V("Y")="TL$(Y|
00001060: 29 00 7F 18 F8 07 82 3A 99 22 1C 12 C5 4E 54 45 |)......:."...NTE|
00001070: 52 22 51 24 22 20 54 4F 20 D1 D5 C9 D4 90 22 00 |R"Q$" TO .....".|
00001080: 96 18 02 08 99 22 13 22 3B 3A 45 4E B2 35 35 30 |.....".";:EN.550|
00001090: 30 30 3A 59 B2 31 00 BC 18 0C 08 45 4E 24 28 59 |00:Y.1.....EN$(Y|
000010A0: 29 B2 C4 28 45 4E AA 59 29 AA 22 20 22 3A 99 45 |)..(EN.Y)." ":.E|
000010B0: 4E 24 28 59 29 45 51 24 28 59 29 3B 00 E9 18 16 |N$(Y)EQ$(Y);....|
000010C0: 08 8D 33 30 30 30 3A 8B 20 41 24 B3 B1 51 24 20 |..3000:. A$..Q$ |
000010D0: A7 45 51 24 28 59 29 B2 45 51 24 3A 59 B2 59 AA |.EQ$(Y).EQ$:Y.Y.|
000010E0: 31 3A 99 3A 89 32 30 36 30 00 F7 18 20 08 A0 31 |1:.:.2060... ..1|
000010F0: 3A 45 4E B2 59 AB 31 00 19 19 2A 08 99 22 93 22 |:EN.Y.1...*.."."|
00001100: 3B 3A 81 59 B2 31 A4 45 4E 3A 99 45 4E 24 28 59 |;:.Y.1.EN:.EN$(Y|
00001110: 29 45 51 24 28 59 29 3A 82 00 3C 19 34 08 99 53 |)EQ$(Y):..<.4..S|
00001120: 44 24 22 91 CF CB 3F 20 22 3B 3A 8D 38 35 30 3A |D$"...? ";:.850:|
00001130: 8B 41 24 B2 22 4E 22 A7 32 30 33 30 00 42 19 98 |.A$."N".2030.B..|
00001140: 08 8E 00 4E 19 B8 0B 8F 20 49 4E 50 55 54 00 5D |...N.... INPUT.]|
00001150: 19 C2 0B 45 51 24 B2 45 51 24 28 59 29 00 78 19 |...EQ$.EQ$(Y).x.|
00001160: CC 0B 97 32 30 34 2C 30 3A A1 41 24 3A 8B 41 24 |...204,0:.A$:.A$|
00001170: B2 22 22 A7 33 30 32 30 00 95 19 D6 0B 97 32 30 |."".3020......20|
00001180: 34 2C 31 3A 8B 41 24 B2 51 24 B0 41 24 B2 C7 28 |4,1:.A$.Q$.A$..(|
00001190: 31 33 29 A7 8E 00 AF 19 E0 0B 99 41 24 3B 3A 45 |13)........A$;:E|
000011A0: 51 24 B2 45 51 24 AA 41 24 3A 89 33 30 32 30 00 |Q$.EQ$.A$:.3020.|
000011B0: 00 00 |.. |
....D..G(14):.:.690.3.I.NL.9:. MAX LINES
IN DISPLAY.\.N.."."L$:.".. .C.REATE NEW
TITLE-FILE"...X..". .M.ODIFY OLD TITLE-
FILE":.840:CH$.A$:.A$."M".1000.B...."..H
IT ."Q$". TO QUIT":MT.30:NM.MT:.L$......
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.J. ..".TITLE ."I.1".
";:.TL$(I).B....610:.TL$(I).Q$.240......
"NUMBER OF CHARACTERS IN ."TL$(I);:.".";
L(I)......610.X.H.R(I).0:."HIGHLIGHTED D
ISPLAY N...";V$:.V$."Y".R(I).1...R..61
0:.V$.Q$.240.-...N(I).1:.".A.LPHABETIC O
R .N.UMERIC A...";V$:.V$."N".N(I).0.F.
...610:I.I.1:.I.MT.160.T...."******TOO M
ANY TITLES*****":.T.1.1000:.....NM.I.1.
....MAX.0:.I.0.NM:L.C(TL$(I)):.MAX.L.MAX
.L.A....:.420:S$.".":."."......K.0.NM:.P
S$(K)TL$(K);:BL.L(K):.870:.J(D(K.1),2):.
.'....SD$".FORMAT OK?";:.850:.A$.."Y"..5
40:.250.D...MAX.MAX.2:LL.MAX.2:SUM.0.V..
..".";:.I.0.NM:FD$(I).H(TL$(I).DT$,MAX):
.:N0.0..."..I.0.NM:N0.N0.L(I):.:NC..((20
000.5.NM.MAX).(N0.100)).B.#..NC.255.NC.2
55.L.$..2000...'.."...EACH DATA-FILE MAY
HAVE"NC" ENTRIES."...,.."....NAME OF TI
TLE-FILE";TF$...6.DR$."0":.610.S.;..".RE
PLACE AN EXISTING TITLE-FILE N...";A$:
.A$."Y".DR$."@".DR$...<..".... INSE
RT YOUR FILE DISK"...=..".. INTO TH
E DISK DRIVE. "...>..A$:."... HIT A
NY KEY TO CONTINUE"...?..A$:.A$."".319..
.@..15,8,15.).J..2,8,2,DR$.":".TF$.",S,W
".?.O..15,E,EM$,ET$,ES$.T.P..E..0.."..."
EM$: 2: 15:."...>.RETURN.":.390:.295...Q
..2,EN;CR$;:.EN.0..Y.1.EN:.2,EQ$(Y);CR$;
:..F.T..2,NC;CR$;NM;CR$;LL;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$;:..A.R..K.0.KM:.2,A(K);CR$;:
..L.|. 2: 15.V.~..".... PUT THE MAS
TER DISK BACK".....".. INTO THE DI
SK DRIVE. ".G....A$:."... HIT ANY K
EY TO CONTINUE".Z....A$:.A$."".386......
646,B(53281).....DR$.D(B(704)):.DR$.":".
FM$,8:..#....A$:.A$.."".390.6....A$:.A$.
"".400.<.....V.... FORMAT CALCULATIONS.C
...K.0:I..1.M...SUM.0...B.I.I.1:.I.NM.A(
K).NM:.490...L.SUM.SUM.C(TL$(I)).L(I).3.
..V..SUM.WD.450.Z...I.I.1:A(K).I:K.K.1:.
K.NL. .440......".***.BAD FORMAT!!.***":
.T5.1.3000:.:......KM.K:Z.0:K.0.S...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............ CHANGE FORMAT...!..
SD$".CHANGE TITLE #";:.TL:TL.TL.1:G$.SD$
.".".BL$.SD$."."...&..TL.0.545.,.+..G$;:
."TITLE "TL$(TL):."......";.[.0..TL$(TL
):.G$;:."CHARACTERS IN TITLE "L(TL)...5.
."....................";L(TL):.MAX.L.MAX
.L...:.Y$."A":.N(TL).0.Y$."N".Q.?..G$;:.
".A.LPHABETIC OR .N.UMERIC ";Y$...D.N(
TL).1:.".......................";Y$:.Y$.
"N".N(TL).0...X... .B..SID.24,15.B.L..SI
D.4,17:.PP.1.50:.:.SID.4,0.P.V..SID.24,0
.V.....E....SID.24,15......Y.1.5:.SID.4,
33:.PP.1.50:.:.SID.4,0......SID.24,0....
........ INITIALIZE.....SID.54272:.SID.1
,50:.SID.1,200:.SID.5,0:.SID.6,240:.SID.
24,0.....NF.50:. MAX NUMBER OF FILES.E.F
.L$."...................................
...."..P.LP$.L$.L$:BL$."
". .Z.DT$."":.I.1.
39:DT$.DT$.".":..Z...Q$."@":AQ.F(Q$):B$.
"^":AB.F(B$):FL$." ".....P
1.1:P2.60:P3.64:WD.40.....C0.198:LN.216:
V$.".":O$.".".'...L$.H(L$,WD.1).K. .SD$.
".........................".M.*.CR$.G(13
):P$(1)."..":P$(0).""...4.PT$(1)."":PT$(
0).G(13)...9..53280,6:.".". .>.....H..SD
$"."L$SD$".SELECTION. ";...R..204,0:.390
:.204,1:.610...\.FM$."FILE/MASTER":..!.F
.."....";:.Z.1.BL.1:.".";:.:."........."
;.B.P..Z.1.BL.1:."...";:.:."..";:..\.Z.B
L.35:.SD$"....":.870......".."Q$".=QUIT.
........."B$".=LAST.........";......"._.
BACK..........RETURN.=FORWARD":..E.... M
ODIFY......"..NAME OF TITLE-FILE";TF$...
..DR$."0"......15,8,15......2,8,2,DR$.":
".TF$.",S,R".2....15,E,EM$,ET$,ES$.F....
E..0..".."EM$: 2: 15:."..>.RETURN.":.390
:.1000......2,EN:.EN.0..Y.1.EN:.2,EQ$(Y)
:.......2,NC:.2,NM:.2,LL:.2,KM...... 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.N
M:.2,TL$(I):.2,FD$(I):.2,L(I):.2,N(I).O.
...2,PS$(I):.:.K.0.KM:.2,A(K):..Z.8. 2:
15...B..250...P.. USER SUBROUTINE...U..C
H$."M".2030.W.Z..".DO YOU WISH TO INCLUD
E A SUBROUTINE"......".TO BE 'ADDED' TO
."FM$".? ";:.850:.A$."N"..:..<....".....
........THE VARIABLES YOU HAVE ARE:".A..
..Y.0.NM:.N(Y).0.."V("Y")="TL$(Y).....:
."..ENTER"Q$" TO QUIT."......".";:EN.550
00:Y.1.....EN$(Y).D(EN.Y)." ":.EN$(Y)EQ$
(Y);......3000:. A$..Q$ .EQ$(Y).EQ$:Y.Y.
1:.:.2060... . 1:EN.Y.1...*..".";:.Y.1.E
N:.EN$(Y)EQ$(Y):..<.4..SD$".OK? ";:.850:
.A$."N".2030.B.....N.... INPUT.].B.EQ$.E
Q$(Y).X.L..204,0:.A$:.A$."".3020...V..20
4,1:.A$.Q$.A$.G(13)........A$;:EQ$.EQ$.A
$:.3020...
> CLICK IMAGE PREVIEW FOR FULL MODAL