BASIC XREF
FILE INFORMATION
FILENAME(S): BASIC XREF
FILE TYPE(S): PRG
FILE SIZE: 10.1K
FIRST SEEN: 2025-11-30 01:07:56
APPEARS ON: 2 disk(s)
FILE HASH
a002a57683155b30a12a573b5d50940bf97a1b22e464c74853e67739e1b82eda
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| U TILITIE | BASIC XREF | PRG | Treasure Chest - Wolfgang Rauprich | 32 | 1 | DOWNLOAD FILE |
| FREESOFT DISK NR | BASIC XREF | PRG | Treasure Chest - Wolfgang Rauprich | 32 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 0A 00 8F 2A 2A 2A 20 41 53 20 4F 46 |..!....*** AS OF|
00000010: 20 30 37 2F 32 33 2F 38 34 20 2D 20 31 36 2E 33 | 07/23/84 - 16.3|
00000020: 30 00 48 08 14 00 50 4E 24 B2 22 12 42 20 41 20 |0.H...PN$.".B A |
00000030: 53 20 49 20 43 20 20 20 58 20 52 20 45 20 46 92 |S I C X R E F.|
00000040: 22 3A 89 31 38 30 30 30 00 61 08 64 00 8F 2A 2A |":.18000.a.d..**|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000060: 2A 00 7A 08 65 00 8F 2A 2A 2A 20 47 45 54 20 41 |*.z.e..*** GET A|
00000070: 20 43 48 41 52 41 43 54 45 52 00 93 08 66 00 8F | CHARACTER...f..|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 2A 2A 00 B2 08 78 00 A1 23 31 2C 41 24 3A 8B |***...x..#1,A$:.|
000000A0: 41 24 B2 22 22 A7 41 B2 30 3A 41 24 B2 5A 52 24 |A$."".A.0:A$.ZR$|
000000B0: 3A 8E 00 C7 08 82 00 8B 41 24 B2 22 20 22 AF 51 |:.......A$." ".Q|
000000C0: 46 B2 30 A7 31 30 30 00 E0 08 96 00 41 B2 C6 28 |F.0.100.....A..(|
000000D0: 41 24 29 3A 55 4C 24 B2 55 4C 24 AA 41 24 3A 8E |A$):UL$.UL$.A$:.|
000000E0: 00 F9 08 C8 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |......**********|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 12 09 C9 00 8F 2A |*********......*|
00000100: 2A 2A 53 43 41 4E 20 54 4F 20 45 4E 44 20 4C 49 |**SCAN TO END LI|
00000110: 4E 45 00 2B 09 CA 00 8F 2A 2A 2A 2A 2A 2A 2A 2A |NE.+....********|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3E 09 DC 00 |***********.>...|
00000130: 8D 31 30 30 3A 8B 41 B3 B1 30 A7 32 30 30 00 49 |.100:.A..0.200.I|
00000140: 09 22 01 51 46 B2 30 3A 8E 00 62 09 2C 01 8F 2A |.".QF.0:..b.,..*|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000160: 2A 2A 00 7B 09 2D 01 8F 2A 2A 2A 20 47 45 54 20 |**.{.-..*** GET |
00000170: 4C 49 4E 45 20 4E 55 4D 42 45 52 00 94 09 2E 01 |LINE NUMBER.....|
00000180: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000190: 2A 2A 2A 2A 00 D2 09 36 01 A1 23 31 2C 41 4C 24 |****...6..#1,AL$|
000001A0: 2C 41 48 24 3A 8D 36 30 30 3A 4C B2 4E 41 3A 43 |,AH$:.600:L.NA:C|
000001B0: 4C 24 B2 C7 28 41 4C 29 AA C7 28 41 48 29 3A 4C |L$..(AL)..(AH):L|
000001C0: 24 B2 C9 28 53 24 AA C4 28 4C 29 2C 36 29 AA 22 |$..(S$..(L),6)."|
000001D0: 20 22 00 D8 09 86 01 8E 00 F2 09 90 01 8F 2A 2A | "............**|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001F0: 2A 2A 00 0C 0A 91 01 8F 2A 2A 2A 53 43 41 4E 20 |**......***SCAN |
00000200: 54 4F 20 45 4E 44 20 51 55 4F 54 45 00 26 0A 92 |TO END QUOTE.&..|
00000210: 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000220: 2A 2A 2A 2A 2A 2A 00 47 0A A4 01 8D 31 30 30 3A |******.G....100:|
00000230: 8B 41 B2 30 A7 55 4C 24 B2 55 4C 24 AA C7 28 33 |.A.0.UL$.UL$..(3|
00000240: 34 29 3A 89 34 39 30 00 5A 0A C2 01 8B 41 24 B3 |4):.490.Z....A$.|
00000250: B1 C7 28 33 34 29 A7 34 30 30 00 65 0A EA 01 51 |..(34).400.e...Q|
00000260: 46 B2 30 3A 8E 00 7F 0A F4 01 8F 2A 2A 2A 2A 2A |F.0:.......*****|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000280: 93 0A F5 01 8F 2A 2A 2A 45 4E 44 20 4F 46 20 56 |.....***END OF V|
00000290: 45 52 42 00 AD 0A F6 01 8F 2A 2A 2A 2A 2A 2A 2A |ERB......*******|
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CA 0A |*************...|
000002B0: 08 02 8B 4E 56 24 B3 B1 22 22 A7 8D 33 30 30 30 |...NV$..""..3000|
000002C0: 3A 8F 20 53 54 4F 52 45 20 23 00 EB 0A 26 02 8B |:. STORE #...&..|
000002D0: 41 56 24 B3 B1 22 22 A7 8D 34 30 30 30 3A 8F 20 |AV$..""..4000:. |
000002E0: 53 54 4F 52 45 20 41 4C 50 48 41 00 FD 0A 3A 02 |STORE ALPHA...:.|
000002F0: 4E 56 24 B2 22 22 3A 41 56 24 B2 22 22 00 03 0B |NV$."":AV$.""...|
00000300: 4E 02 8E 00 2A 0B 58 02 8F 2A 2A 2A 2A 2A 2A 2A |N...*.X..*******|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 0B 59 02 8F |**********.Q.Y..|
00000330: 2A 2A 2A 20 43 4F 4E 56 45 52 54 20 41 4C 24 2F |*** CONVERT AL$/|
00000340: 41 48 24 20 54 4F 20 41 4C 2F 41 48 20 3E 20 4E |AH$ TO AL/AH > N|
00000350: 41 00 78 0B 5A 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |A.x.Z..*********|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 00 A7 0B 6C 02 41 4C B2 |********...l.AL.|
00000380: C6 28 41 4C 24 AA 5A 52 24 29 3A 41 48 B2 C6 28 |.(AL$.ZR$):AH..(|
00000390: 41 48 24 AA 5A 52 24 29 3A 4E 41 B2 41 4C AA 41 |AH$.ZR$):NA.AL.A|
000003A0: 48 AC 32 35 36 3A 8E 00 BF 0B E8 03 8F 2A 2A 2A |H.256:.......***|
000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000003C0: D8 0B E9 03 8F 2A 2A 2A 20 53 54 41 52 54 20 4E |.....*** START N|
000003D0: 45 57 20 4C 49 4E 45 2A 00 F0 0B EA 03 8F 2A 2A |EW LINE*......**|
000003E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003F0: 00 26 0C F2 03 A1 23 31 2C 41 4C 24 2C 41 48 24 |.&....#1,AL$,AH$|
00000400: 3A 8B 41 4C 24 B2 22 22 AF 41 48 24 B2 22 22 A7 |:.AL$."".AH$."".|
00000410: 8D 34 36 30 30 3A 45 4C B2 31 3A 8D 37 30 30 30 |.4600:EL.1:.7000|
00000420: 3A 89 36 30 30 30 00 3D 0C 1A 04 8D 35 30 30 3A |:.6000.=....500:|
00000430: 8D 33 30 30 3A 51 46 B2 30 3A 56 B2 30 00 5E 0C |.300:QF.0:V.0.^.|
00000440: 2E 04 8B 4C B3 4C 53 B0 4C B1 4C 46 A7 8D 32 30 |...L.LS.L.LF..20|
00000450: 30 3A 55 4C 24 B2 22 22 3A 89 31 30 30 30 00 68 |0:UL$."":.1000.h|
00000460: 0C 4C 04 8D 34 36 30 30 00 7C 0C 56 04 8B 46 50 |.L..4600.|.V..FP|
00000470: 24 B2 22 59 22 A7 98 34 2C 4C 24 3B 00 93 0C DC |$."Y"..4,L$;....|
00000480: 05 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000490: 2A 2A 2A 00 AA 0C DD 05 8F 2A 2A 2A 53 54 41 52 |***......***STAR|
000004A0: 54 20 4E 45 57 20 56 45 52 42 00 C1 0C DE 05 8F |T NEW VERB......|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004C0: 2A 00 DF 0C E6 05 8D 31 30 30 3A 8B 41 B2 30 A7 |*......100:.A.0.|
000004D0: 31 30 30 30 3A 8F 20 45 4E 44 20 4C 49 4E 45 00 |1000:. END LINE.|
000004E0: 06 0D 5E 06 8B 41 B2 33 34 A7 51 46 B2 31 3A 8D |..^..A.34.QF.1:.|
000004F0: 35 30 30 3A 8D 34 30 30 3A 8F 20 42 45 47 49 4E |500:.400:. BEGIN|
00000500: 20 51 55 4F 54 45 00 1F 0D 72 06 8B 41 B2 35 38 | QUOTE...r..A.58|
00000510: B0 41 B2 34 34 B0 41 B2 35 39 A7 8D 35 30 30 00 |.A.44.A.59..500.|
00000520: 59 0D AE 06 8B 41 B1 31 32 37 A7 8D 34 35 30 30 |Y....A.127..4500|
00000530: 3A 8D 35 30 30 3A 8B 41 B2 31 34 33 A7 51 46 B2 |:.500:.A.143.QF.|
00000540: 31 3A 8D 32 30 30 3A 89 31 30 30 30 3A 8F 20 53 |1:.200:.1000:. S|
00000550: 54 4F 52 45 20 56 45 52 42 00 77 0D C2 06 8B 41 |TORE VERB.w....A|
00000560: B1 34 37 AF 41 B3 35 38 A7 32 30 30 30 3A 8F 20 |.47.A.58.2000:. |
00000570: 4E 55 4D 45 52 49 43 00 93 0D D6 06 8B 41 B1 36 |NUMERIC......A.6|
00000580: 34 AF 41 B3 39 31 A7 32 35 30 30 3A 8F 20 41 4C |4.A.91.2500:. AL|
00000590: 50 48 41 00 B3 0D EA 06 8B 41 B2 33 36 B0 41 B2 |PHA......A.36.A.|
000005A0: 33 37 A7 32 35 30 30 3A 8F 20 45 4E 44 20 41 4C |37.2500:. END AL|
000005B0: 50 48 41 00 D5 0D F4 06 8B 41 B2 34 30 AF 41 56 |PHA......A.40.AV|
000005C0: 24 B3 B1 22 22 A7 41 56 24 B2 41 56 24 AA 41 24 |$.."".AV$.AV$.A$|
000005D0: 3A 8D 35 30 30 00 EE 0D 9E 07 8B 41 B2 30 A7 31 |:.500......A.0.1|
000005E0: 30 30 30 3A 8F 20 45 4E 44 20 4C 49 4E 45 00 F8 |000:. END LINE..|
000005F0: 0D C6 07 89 31 35 30 30 00 15 0E D0 07 8F 2A 2A |....1500......**|
00000600: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000610: 2A 2A 2A 2A 2A 00 32 0E D1 07 8F 2A 2A 2A 20 54 |*****.2....*** T|
00000620: 45 53 54 20 4E 55 4D 45 52 49 43 20 56 41 4C 55 |EST NUMERIC VALU|
00000630: 45 53 00 4F 0E D2 07 8F 2A 2A 2A 2A 2A 2A 2A 2A |ES.O....********|
00000640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000650: 78 0E 34 08 8B 56 B2 39 B0 56 B2 31 30 B0 56 B2 |x.4..V.9.V.10.V.|
00000660: 31 33 B0 56 B2 33 39 A7 4E 56 24 B2 4E 56 24 AA |13.V.39.NV$.NV$.|
00000670: 41 24 3A 89 31 35 30 30 00 90 0E 52 08 8B 41 56 |A$:.1500...R..AV|
00000680: 24 B3 B1 22 22 A7 41 56 24 B2 41 56 24 AA 41 24 |$.."".AV$.AV$.A$|
00000690: 00 9A 0E 8E 08 89 31 35 30 30 00 B5 0E C4 09 8F |......1500......|
000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006B0: 2A 2A 2A 2A 2A 00 D0 0E C6 09 8F 2A 2A 2A 20 54 |*****......*** T|
000006C0: 45 53 54 20 41 4C 50 48 41 20 56 41 4C 55 45 53 |EST ALPHA VALUES|
000006D0: 00 EB 0E C8 09 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |......**********|
000006E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0F 0F 28 0A |***********...(.|
000006F0: 8B 56 B2 33 A7 89 31 35 30 30 3A 8F 20 56 45 52 |.V.3..1500:. VER|
00000700: 42 20 3D 20 44 41 54 41 20 42 59 50 41 53 53 00 |B = DATA BYPASS.|
00000710: 2F 0F 32 0A 8B 41 B2 33 36 B0 41 B2 33 37 A7 41 |/.2..A.36.A.37.A|
00000720: 56 24 B2 41 56 24 AA 41 24 3A 89 31 35 30 30 00 |V$.AV$.A$:.1500.|
00000730: 48 0F 8C 0A 8B 41 56 24 B2 22 22 A7 41 56 24 B2 |H....AV$."".AV$.|
00000740: 41 24 3A 89 31 35 30 30 00 79 0F AA 0A 8B C9 28 |A$:.1500.y.....(|
00000750: 41 56 24 2C 31 29 B2 22 24 22 B0 C9 28 41 56 24 |AV$,1)."$"..(AV$|
00000760: 2C 31 29 B2 22 25 22 A7 8D 35 30 30 3A 41 56 24 |,1)."%"..500:AV$|
00000770: B2 41 24 3A 89 31 35 30 30 00 88 0F BE 0A 41 56 |.A$:.1500.....AV|
00000780: 24 B2 41 56 24 AA 41 24 00 92 0F E6 0A 89 31 35 |$.AV$.A$......15|
00000790: 30 30 00 A9 0F B8 0B 8F 2A 2A 2A 2A 2A 2A 2A 2A |00......********|
000007A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C7 0F B9 0B 8F 2A |*********......*|
000007B0: 2A 2A 20 53 54 4F 52 45 20 4E 55 4D 45 52 49 43 |** STORE NUMERIC|
000007C0: 20 56 41 4C 55 45 53 00 DE 0F BA 0B 8F 2A 2A 2A | VALUES......***|
000007D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F0 |**************..|
000007E0: 0F 1C 0C 4E 41 B2 C5 28 4E 56 24 29 3A 4A B2 30 |...NA..(NV$):J.0|
000007F0: 00 0E 10 26 0C 41 48 B2 B5 28 4E 41 AD 32 35 36 |...&.AH..(NA.256|
00000800: 29 3A 41 4C B2 4E 41 AB 41 48 AC 32 35 36 00 32 |):AL.NA.AH.256.2|
00000810: 10 30 0C 41 4C 24 B2 C7 28 41 4C 29 3A 41 48 24 |.0.AL$..(AL):AH$|
00000820: B2 C7 28 41 48 29 3A 4E 41 24 B2 41 4C 24 AA 41 |..(AH):NA$.AL$.A|
00000830: 48 24 00 4C 10 80 0C 4E 53 B2 C6 28 C8 28 47 53 |H$.L...NS..(.(GS|
00000840: 24 28 4A 29 2C 31 29 AA 5A 52 24 29 00 6B 10 A8 |$(J),1).ZR$).k..|
00000850: 0C 8B 4E 53 B2 30 A7 47 53 24 28 4A 29 B2 5A 52 |..NS.0.GS$(J).ZR|
00000860: 24 AA 4E 41 24 3A 89 33 34 37 30 00 87 10 B2 0C |$.NA$:.3470.....|
00000870: 8B 4E 41 24 B2 CA 28 47 53 24 28 4A 29 2C 32 2C |.NA$..(GS$(J),2,|
00000880: 32 29 A7 33 34 30 30 00 9D 10 DA 0C 4A B2 4A AA |2).3400.....J.J.|
00000890: 31 3A 8B 4A B3 31 32 31 A7 33 32 30 30 00 BF 10 |1:.J.121.3200...|
000008A0: 16 0D 99 22 47 4F 20 54 4F 2F 53 55 42 20 54 41 |..."GO TO/SUB TA|
000008B0: 42 4C 45 20 45 58 43 45 45 44 45 44 22 3A 8E 00 |BLE EXCEEDED":..|
000008C0: EF 10 48 0D 8B 4E 53 B1 31 32 36 A7 99 22 47 4F |..H..NS.126.."GO|
000008D0: 20 54 4F 2F 53 55 42 22 20 4E 56 24 20 22 20 45 | TO/SUB" NV$ " E|
000008E0: 58 43 45 45 44 53 20 54 41 42 4C 45 22 3A 8E 00 |XCEEDS TABLE":..|
000008F0: 18 11 8E 0D 4E 53 B2 4E 53 AA 31 3A 47 53 24 28 |....NS.NS.1:GS$(|
00000900: 4A 29 B2 C7 28 4E 53 29 AA CA 28 47 53 24 28 4A |J)..(NS)..(GS$(J|
00000910: 29 2C 32 29 AA 43 4C 24 00 1E 11 A2 0D 8E 00 38 |),2).CL$.......8|
00000920: 11 A0 0F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00000930: 2A 2A 2A 2A 2A 2A 2A 2A 00 52 11 A2 0F 8F 2A 2A |********.R....**|
00000940: 2A 20 53 54 4F 52 45 20 56 41 52 20 56 41 4C 55 |* STORE VAR VALU|
00000950: 45 53 00 6C 11 A4 0F 8F 2A 2A 2A 2A 2A 2A 2A 2A |ES.l....********|
00000960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 84 11 D2 |************....|
00000970: 0F 4A B2 30 3A 41 56 24 B2 C8 28 41 56 24 AA 53 |.J.0:AV$..(AV$.S|
00000980: 24 2C 34 29 00 9E 11 04 10 4E 53 B2 C6 28 C8 28 |$,4).....NS..(.(|
00000990: 41 54 24 28 4A 29 2C 31 29 AA 5A 52 24 29 00 BD |AT$(J),1).ZR$)..|
000009A0: 11 68 10 8B 4E 53 B2 30 A7 41 54 24 28 4A 29 B2 |.h..NS.0.AT$(J).|
000009B0: 5A 52 24 AA 41 56 24 3A 89 34 34 37 30 00 D9 11 |ZR$.AV$:.4470...|
000009C0: 86 10 8B 41 56 24 B2 CA 28 41 54 24 28 4A 29 2C |...AV$..(AT$(J),|
000009D0: 32 2C 34 29 A7 34 34 30 30 00 EF 11 C2 10 4A B2 |2,4).4400.....J.|
000009E0: 4A AA 31 3A 8B 4A B3 31 32 31 A7 34 31 30 30 00 |J.1:.J.121.4100.|
000009F0: 0B 12 FE 10 99 22 56 41 52 20 54 41 42 4C 45 20 |....."VAR TABLE |
00000A00: 45 58 43 45 45 44 45 44 22 3A 8E 00 34 12 30 11 |EXCEEDED":..4.0.|
00000A10: 8B 4E 53 B1 31 32 35 A7 99 22 56 41 52 20 22 41 |.NS.125.."VAR "A|
00000A20: 56 24 22 20 45 58 43 45 45 44 53 20 54 41 42 4C |V$" EXCEEDS TABL|
00000A30: 45 22 3A 8E 00 4B 12 4E 11 8B 43 4C 24 B2 C9 28 |E":..K.N..CL$..(|
00000A40: 41 54 24 28 4A 29 2C 32 29 A7 8E 00 74 12 76 11 |AT$(J),2)...t.v.|
00000A50: 4E 53 B2 4E 53 AA 31 3A 41 54 24 28 4A 29 B2 C7 |NS.NS.1:AT$(J)..|
00000A60: 28 4E 53 29 AA CA 28 41 54 24 28 4A 29 2C 32 29 |(NS)..(AT$(J),2)|
00000A70: AA 43 4C 24 00 7A 12 8A 11 8E 00 98 12 94 11 8F |.CL$.z..........|
00000A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A90: 2A 2A 2A 2A 2A 2A 2A 2A 00 B5 12 95 11 8F 2A 2A |********......**|
00000AA0: 2A 20 53 54 4F 52 45 20 56 45 52 42 20 26 20 4C |* STORE VERB & L|
00000AB0: 49 4E 45 20 23 00 D3 12 96 11 8F 2A 2A 2A 2A 2A |INE #......*****|
00000AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AD0: 2A 2A 2A 00 F5 12 9E 11 56 B2 41 AB 31 32 38 3A |***.....V.A.128:|
00000AE0: 4E 53 B2 C6 28 C8 28 56 4C 24 28 56 29 2C 31 29 |NS..(.(VL$(V),1)|
00000AF0: AA 5A 52 24 29 00 21 13 A8 11 8B 4E 53 B2 31 32 |.ZR$).!....NS.12|
00000B00: 37 A7 99 22 56 45 52 42 20 22 4B 24 28 56 29 22 |7.."VERB "K$(V)"|
00000B10: 20 45 58 43 45 45 44 53 20 54 41 42 4C 45 22 3A | EXCEEDS TABLE":|
00000B20: 8E 00 30 13 B2 11 8B 4E 53 B2 30 A7 34 35 37 30 |..0....NS.0.4570|
00000B30: 00 47 13 BC 11 8B 43 4C 24 B2 C9 28 56 4C 24 28 |.G....CL$..(VL$(|
00000B40: 56 29 2C 32 29 A7 8E 00 70 13 DA 11 4E 53 B2 4E |V),2)...p...NS.N|
00000B50: 53 AA 31 3A 56 4C 24 28 56 29 B2 C7 28 4E 53 29 |S.1:VL$(V)..(NS)|
00000B60: AA CA 28 56 4C 24 28 56 29 2C 32 29 AA 43 4C 24 |..(VL$(V),2).CL$|
00000B70: 00 76 13 EE 11 8E 00 91 13 F8 11 8F 2A 2A 2A 2A |.v..........****|
00000B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B90: 2A 00 AC 13 F9 11 8F 2A 2A 2A 20 46 4F 52 4D 41 |*......*** FORMA|
00000BA0: 54 20 50 52 49 4E 54 20 4C 49 4E 45 00 C7 13 FA |T PRINT LINE....|
00000BB0: 11 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000BC0: 2A 2A 2A 2A 2A 2A 2A 00 E9 13 02 12 46 4C 24 B2 |*******.....FL$.|
00000BD0: 22 22 3A 8F 20 43 4C 45 41 52 20 46 4F 52 4D 41 |"":. CLEAR FORMA|
00000BE0: 54 54 45 44 20 4C 49 4E 45 00 F7 13 0C 12 8B 55 |TTED LINE......U|
00000BF0: 4C 24 B2 22 22 A7 8E 00 2E 14 16 12 8B 46 50 24 |L$.""........FP$|
00000C00: B2 22 4E 22 A7 55 4C 24 B2 22 22 3A 99 4C 24 3A |."N".UL$."":.L$:|
00000C10: 8E 3A 8F 20 42 59 50 41 53 53 20 46 4F 52 4D 41 |.:. BYPASS FORMA|
00000C20: 54 54 45 44 20 50 52 4F 47 20 4C 49 53 54 00 3F |TTED PROG LIST.?|
00000C30: 14 5C 12 81 4E 53 B2 31 A4 C3 28 55 4C 24 29 00 |.\..NS.1..(UL$).|
00000C40: 5A 14 66 12 41 24 B2 CA 28 55 4C 24 2C 4E 53 2C |Z.f.A$..(UL$,NS,|
00000C50: 31 29 3A 41 B2 C6 28 41 24 29 00 72 14 7A 12 8B |1):A..(A$).r.z..|
00000C60: 41 B1 31 32 37 A7 41 24 B2 4B 24 28 41 AB 31 32 |A.127.A$.K$(A.12|
00000C70: 38 29 00 9E 14 84 12 8B 41 B2 31 34 33 A7 41 24 |8)......A.143.A$|
00000C80: B2 41 24 AA C9 28 55 4C 24 2C C3 28 55 4C 24 29 |.A$..(UL$,.(UL$)|
00000C90: AB 4E 53 29 3A 4E 53 B2 C3 28 55 4C 24 29 00 BC |.NS):NS..(UL$)..|
00000CA0: 14 C0 12 8B 41 B2 33 34 A7 8D 35 30 30 30 3A 8F |....A.34..5000:.|
00000CB0: 20 42 45 47 49 4E 20 51 55 4F 54 45 00 CB 14 24 | BEGIN QUOTE...$|
00000CC0: 13 46 4C 24 B2 46 4C 24 AA 41 24 00 D1 14 2E 13 |.FL$.FL$.A$.....|
00000CD0: 82 00 ED 14 56 13 55 4C 24 B2 22 22 3A 8B C3 28 |....V.UL$."":..(|
00000CE0: 46 4C 24 29 B1 37 30 A7 8D 35 35 30 30 00 0D 15 |FL$).70..5500...|
00000CF0: 6A 13 98 34 2C 46 4C 24 3A 4E 4C B2 4E 4C AA 31 |j..4,FL$:NL.NL.1|
00000D00: 3A 8B 4E 4C B1 4C 50 A7 8D 37 30 30 30 00 13 15 |:.NL.LP..7000...|
00000D10: 7E 13 8E 00 38 15 88 13 8F 2A 2A 2A 2A 2A 2A 2A |~...8....*******|
00000D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D30: 2A 2A 2A 2A 2A 2A 2A 2A 00 5D 15 89 13 8F 2A 2A |********.]....**|
00000D40: 2A 20 50 52 4F 43 45 53 53 20 51 55 4F 54 45 20 |* PROCESS QUOTE |
00000D50: 49 4E 20 50 52 49 4E 54 20 4C 49 4E 45 00 82 15 |IN PRINT LINE...|
00000D60: 8A 13 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D80: 2A 2A 00 9E 15 92 13 51 46 24 B2 41 24 3A 4A B2 |**.....QF$.A$:J.|
00000D90: 4E 53 AA 31 3A 43 43 B2 2E 3A 43 54 B2 2E 00 B8 |NS.1:CC..:CT....|
00000DA0: 15 BA 13 41 24 B2 CA 28 55 4C 24 2C 4A 2C 31 29 |...A$..(UL$,J,1)|
00000DB0: 3A 41 B2 C6 28 41 24 29 00 DC 15 D8 13 8B 41 B2 |:A..(A$)......A.|
00000DC0: 43 43 A7 43 54 B2 43 54 AA 31 3A 89 35 33 32 30 |CC.CT.CT.1:.5320|
00000DD0: 3A 8F 20 53 41 4D 45 20 43 48 41 52 00 EB 15 E2 |:. SAME CHAR....|
00000DE0: 13 8B 43 43 B2 2E A7 35 32 30 30 00 17 16 F6 13 |..CC...5200.....|
00000DF0: 8B 43 43 B2 33 32 AF 43 54 B2 2E A7 51 46 24 B2 |.CC.32.CT...QF$.|
00000E00: 51 46 24 AA 22 20 22 3A 89 35 32 30 30 3A 8F 20 |QF$." ":.5200:. |
00000E10: 31 20 42 4C 41 4E 4B 00 44 16 00 14 8B 43 54 B1 |1 BLANK.D....CT.|
00000E20: 2E A7 51 46 24 B2 51 46 24 AA 43 43 24 AA C4 28 |..QF$.QF$.CC$..(|
00000E30: 43 54 AA 31 29 AA 22 5D 22 3A 43 54 B2 2E 3A 89 |CT.1)."]":CT..:.|
00000E40: 35 32 30 30 00 58 16 0A 14 51 46 24 B2 51 46 24 |5200.X...QF$.QF$|
00000E50: AA 43 43 24 AA 22 5D 22 00 61 16 50 14 43 43 B2 |.CC$."]".a.P.CC.|
00000E60: 2E 00 84 16 5A 14 8B 41 B1 33 32 AF 41 B3 31 32 |....Z..A.32.A.12|
00000E70: 38 A7 35 33 30 30 3A 8F 20 4E 55 4D 20 43 20 41 |8.5300:. NUM C A|
00000E80: 4C 50 48 41 00 91 16 5F 14 81 58 58 B2 30 A4 34 |LPHA..._..XX.0.4|
00000E90: 30 00 BA 16 6E 14 8B 41 B2 51 57 28 58 58 29 A7 |0...n..A.QW(XX).|
00000EA0: 43 43 B2 41 3A 43 43 24 B2 22 5B 22 AA 51 57 24 |CC.A:CC$."[".QW$|
00000EB0: 28 58 58 29 3A 58 58 B2 34 30 00 C0 16 82 14 82 |(XX):XX.40......|
00000EC0: 00 D1 16 96 14 8B 43 43 B3 B1 2E A7 41 24 B2 22 |......CC....A$."|
00000ED0: 22 00 E0 16 B4 14 51 46 24 B2 51 46 24 AA 41 24 |".....QF$.QF$.A$|
00000EE0: 00 FB 16 BE 14 8B 41 B2 33 34 A7 35 34 30 30 3A |......A.34.5400:|
00000EF0: 8F 20 45 4E 44 20 51 55 4F 54 45 00 05 17 C8 14 |. END QUOTE.....|
00000F00: 4A B2 4A AA 31 00 0F 17 D2 14 89 35 30 35 30 00 |J.J.1......5050.|
00000F10: 18 17 18 15 4E 53 B2 4A 00 23 17 5E 15 41 24 B2 |....NS.J.#.^.A$.|
00000F20: 51 46 24 00 29 17 72 15 8E 00 45 17 7C 15 8F 2A |QF$.).r...E.|..*|
00000F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F40: 2A 2A 2A 2A 2A 00 61 17 7D 15 8F 2A 2A 2A 20 43 |*****.a.}..*** C|
00000F50: 48 4F 50 20 55 50 20 50 52 49 4E 54 20 4C 49 4E |HOP UP PRINT LIN|
00000F60: 45 00 7D 17 7E 15 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |E.}.~..*********|
00000F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 87 17 |*************...|
00000F80: 9A 15 4E 53 B2 37 30 00 A2 17 E0 15 41 24 B2 CA |..NS.70.....A$..|
00000F90: 28 46 4C 24 2C 4E 53 2C 31 29 3A 41 B2 C6 28 41 |(FL$,NS,1):A..(A|
00000FA0: 24 29 00 B7 17 EA 15 8B 41 B2 33 32 AF 4E 53 B3 |$)......A.32.NS.|
00000FB0: 35 30 A7 35 37 30 30 00 D2 17 FE 15 8B 28 41 B2 |50.5700......(A.|
00000FC0: 35 38 B0 41 B2 34 34 B0 41 B2 35 39 29 A7 35 37 |58.A.44.A.59).57|
00000FD0: 30 30 00 EA 17 26 16 4E 53 B2 4E 53 AB 31 3A 8B |00...&.NS.NS.1:.|
00000FE0: 4E 53 B1 34 30 A7 35 36 30 30 00 FA 17 3A 16 4E |NS.40.5600...:.N|
00000FF0: 53 B2 C3 28 46 4C 24 29 AD 32 00 21 18 44 16 55 |S..(FL$).2.!.D.U|
00001000: 4C 24 B2 C8 28 46 4C 24 2C 4E 53 29 3A 46 4C 24 |L$..(FL$,NS):FL$|
00001010: B2 C9 28 46 4C 24 2C C3 28 46 4C 24 29 AB 4E 53 |..(FL$,.(FL$).NS|
00001020: 29 00 34 18 76 16 98 34 2C 55 4C 24 3A 4E 4C B2 |).4.v..4,UL$:NL.|
00001030: 4E 4C AA 31 00 46 18 8A 16 98 34 2C 53 24 3B 3A |NL.1.F....4,S$;:|
00001040: 55 4C 24 B2 22 22 00 4C 18 9E 16 8E 00 69 18 70 |UL$."".L.....i.p|
00001050: 17 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00001060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 86 18 71 17 8F 2A |*********...q..*|
00001070: 2A 2A 20 50 52 49 4E 54 20 56 45 52 42 20 26 20 |** PRINT VERB & |
00001080: 4C 49 4E 45 20 23 00 A3 18 72 17 8F 2A 2A 2A 2A |LINE #...r..****|
00001090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010A0: 2A 2A 2A 00 CE 18 75 17 99 22 93 50 52 49 4E 54 |***...u..".PRINT|
000010B0: 49 4E 47 22 3A 99 22 20 20 20 56 20 45 20 52 20 |ING":." V E R |
000010C0: 42 20 20 20 4C 49 53 54 49 4E 47 2E 2E 22 00 07 |B LISTING.."..|
000010D0: 19 7A 17 54 59 24 B2 22 56 45 52 42 22 3A 48 44 |.z.TY$."VERB":HD|
000010E0: 24 B2 22 20 43 52 4F 53 53 20 52 45 46 45 52 45 |$." CROSS REFERE|
000010F0: 4E 43 45 20 46 4F 52 20 50 52 4F 47 52 41 4D 20 |NCE FOR PROGRAM |
00001100: 22 3A 8D 37 30 30 30 00 44 19 7C 17 4B 24 28 33 |":.7000.D.|.K$(3|
00001110: 36 29 B2 C9 28 4B 24 28 33 36 29 2C 33 29 3A 4B |6)..(K$(36),3):K|
00001120: 24 28 33 39 29 B2 C9 28 4B 24 28 33 39 29 2C 35 |$(39)..(K$(39),5|
00001130: 29 3A 4B 24 28 34 31 29 B2 C9 28 4B 24 28 34 31 |):K$(41)..(K$(41|
00001140: 29 2C 35 29 00 6E 19 7E 17 4B 24 28 34 37 29 B2 |),5).n.~.K$(47).|
00001150: C9 28 4B 24 28 34 37 29 2C 34 29 3A 4B 24 28 34 |.(K$(47),4):K$(4|
00001160: 38 29 B2 C9 28 4B 24 28 34 38 29 2C 33 29 00 7E |8)..(K$(48),3).~|
00001170: 19 84 17 81 4A B2 30 A4 39 30 3A 59 B2 30 00 8F |....J.0.90:Y.0..|
00001180: 19 98 17 8B 4E 4C B1 4C 50 A7 8D 37 30 30 30 00 |....NL.LP..7000.|
00001190: BA 19 A2 17 87 41 3A 41 B2 41 AB 31 32 38 3A 41 |.....A:A.A.128:A|
000011A0: 24 B2 56 4C 24 28 41 29 3A 4E 53 B2 C6 28 C8 28 |$.VL$(A):NS..(.(|
000011B0: 41 24 2C 31 29 AA 5A 52 24 29 00 C9 19 B6 17 8B |A$,1).ZR$)......|
000011C0: 4E 53 B2 30 A7 36 31 35 30 00 DF 19 C0 17 98 34 |NS.0.6150......4|
000011D0: 2C C8 28 4B 24 28 41 29 AA 53 24 2C 38 29 3B 00 |,.(K$(A).S$,8);.|
000011E0: ED 19 CA 17 41 B2 32 3A 8D 37 35 30 30 00 FF 19 |....A.2:.7500...|
000011F0: 06 18 82 4A 3A 45 4C B2 31 3A 8D 37 30 30 30 00 |...J:EL.1:.7000.|
00001200: 0E 1A 1A 18 8B 4F 44 B2 34 A7 36 32 30 30 00 30 |.....OD.4.6200.0|
00001210: 1A 1F 18 99 22 50 52 45 53 53 20 41 4E 59 20 4B |...."PRESS ANY K|
00001220: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 |EY TO CONTINUE."|
00001230: 00 44 1A 24 18 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.D.$..A$:.A$."".|
00001240: 36 31 38 30 00 5B 1A 38 18 8F 2A 2A 2A 2A 2A 2A |6180.[.8..******|
00001250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 1A 3A 18 |***********.r.:.|
00001260: 8F 2A 2A 2A 20 50 52 49 4E 54 20 56 41 52 20 52 |.*** PRINT VAR R|
00001270: 45 46 00 89 1A 3C 18 8F 2A 2A 2A 2A 2A 2A 2A 2A |EF...<..********|
00001280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A3 1A 42 18 54 59 |*********...B.TY|
00001290: 24 B2 22 56 41 52 49 41 42 4C 45 53 22 3A 8D 37 |$."VARIABLES":.7|
000012A0: 30 30 30 00 DD 1A 56 18 99 22 93 53 4F 52 54 49 |000...V..".SORTI|
000012B0: 4E 47 22 3A 99 22 20 20 20 56 20 41 20 52 20 49 |NG":." V A R I|
000012C0: 20 41 20 42 20 4C 20 45 20 53 22 3A 8D 31 34 30 | A B L E S":.140|
000012D0: 30 30 3A 8F 20 53 4F 52 54 20 41 54 24 00 06 1B |00:. SORT AT$...|
000012E0: 5B 18 99 22 11 50 52 49 4E 54 49 4E 47 22 3A 99 |[..".PRINTING":.|
000012F0: 22 20 20 20 56 20 41 20 52 20 49 20 41 20 42 20 |" V A R I A B |
00001300: 4C 20 45 20 53 22 00 17 1B 9C 18 81 4A B2 30 A4 |L E S"......J.0.|
00001310: 31 32 30 3A 59 B2 30 00 28 1B A6 18 8B 4E 4C B1 |120:Y.0.(....NL.|
00001320: 4C 50 A7 8D 37 30 30 30 00 48 1B B0 18 41 24 B2 |LP..7000.H...A$.|
00001330: 41 54 24 28 4A 29 3A 4E 53 B2 C6 28 C8 28 41 24 |AT$(J):NS..(.(A$|
00001340: 2C 31 29 AA 5A 52 24 29 00 57 1B CE 18 8B 4E 53 |,1).ZR$).W....NS|
00001350: B2 30 A7 36 34 35 30 00 71 1B E2 18 41 4C 24 B2 |.0.6450.q...AL$.|
00001360: CA 28 41 24 2C 32 2C 34 29 AA C8 28 53 24 2C 34 |.(A$,2,4)..(S$,4|
00001370: 29 00 7D 1B F6 18 98 34 2C 41 4C 24 3B 00 8B 1B |).}....4,AL$;...|
00001380: FB 18 41 B2 36 3A 8D 37 35 30 30 00 9D 1B 32 19 |..A.6:.7500...2.|
00001390: 82 4A 3A 45 4C B2 31 3A 8D 37 30 30 30 00 AC 1B |.J:EL.1:.7000...|
000013A0: 3C 19 8B 4F 44 B2 34 A7 36 35 30 30 00 CE 1B 41 |<..OD.4.6500...A|
000013B0: 19 99 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 |.."PRESS ANY KEY|
000013C0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 00 E2 | TO CONTINUE."..|
000013D0: 1B 46 19 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 34 |.F..A$:.A$."".64|
000013E0: 37 30 00 FC 1B 64 19 8F 2A 2A 2A 2A 2A 2A 2A 2A |70...d..********|
000013F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 18 1C 65 |************...e|
00001400: 19 8F 2A 2A 2A 20 50 52 49 4E 54 20 47 4F 54 4F |..*** PRINT GOTO|
00001410: 2F 53 55 42 20 52 45 46 00 32 1C 66 19 8F 2A 2A |/SUB REF.2.f..**|
00001420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001430: 2A 2A 00 4B 1C 6E 19 54 59 24 B2 22 47 4F 54 4F |**.K.n.TY$."GOTO|
00001440: 2F 53 55 42 22 3A 8D 37 30 30 30 00 82 1C 82 19 |/SUB":.7000.....|
00001450: 99 22 93 53 4F 52 54 49 4E 47 22 3A 99 22 47 20 |.".SORTING":."G |
00001460: 4F 20 54 20 4F 20 2F 20 53 20 55 20 42 20 53 22 |O T O / S U B S"|
00001470: 3A 8D 31 32 30 30 30 3A 8F 20 53 4F 52 54 20 47 |:.12000:. SORT G|
00001480: 53 24 00 A8 1C 87 19 99 22 11 50 52 49 4E 54 49 |S$......".PRINTI|
00001490: 4E 47 22 3A 99 22 47 20 4F 20 54 20 4F 20 2F 20 |NG":."G O T O / |
000014A0: 53 20 55 20 42 20 53 22 00 B9 1C C8 19 81 4A B2 |S U B S"......J.|
000014B0: 30 A4 31 32 30 3A 59 B2 30 00 CA 1C D2 19 8B 4E |0.120:Y.0......N|
000014C0: 4C B1 4C 50 A7 8D 37 30 30 30 00 D8 1C DC 19 41 |L.LP..7000.....A|
000014D0: 24 B2 47 53 24 28 4A 29 00 EE 1C E6 19 4E 53 B2 |$.GS$(J).....NS.|
000014E0: C6 28 C8 28 41 24 2C 31 29 AA 5A 52 24 29 00 FD |.(.(A$,1).ZR$)..|
000014F0: 1C FA 19 8B 4E 53 B2 30 A7 36 39 35 30 00 22 1D |....NS.0.6950.".|
00001500: 0E 1A 41 4C 24 B2 CA 28 41 24 2C 32 2C 31 29 3A |..AL$..(A$,2,1):|
00001510: 41 48 24 B2 CA 28 41 24 2C 33 2C 31 29 3A 8D 36 |AH$..(A$,3,1):.6|
00001520: 30 30 00 38 1D 22 1A 98 34 2C C9 28 53 24 AA C4 |00.8."..4,.(S$..|
00001530: 28 4E 41 29 2C 38 29 3B 00 46 1D 27 1A 41 B2 34 |(NA),8);.F.'.A.4|
00001540: 3A 8D 37 35 30 30 00 58 1D 26 1B 82 4A 3A 45 4C |:.7500.X.&..J:EL|
00001550: B2 31 3A 8D 37 30 30 30 00 68 1D 30 1B 8B 4E 43 |.1:.7000.h.0..NC|
00001560: B2 31 A7 89 36 39 39 30 00 95 1D 3A 1B 4E 43 B2 |.1..6990...:.NC.|
00001570: 4E 43 AB 31 3A 8C 3A 81 4A B2 30 A4 34 30 3A 87 |NC.1:.:.J.0.40:.|
00001580: 41 3A 82 3A 81 4A B2 30 A4 34 30 3A 87 41 24 3A |A:.:.J.0.40:.A$:|
00001590: 82 3A A0 31 35 00 C2 1D 3F 1B 81 4A B2 30 A4 31 |.:.15...?..J.0.1|
000015A0: 32 30 3A 56 4C 24 28 4A 29 B2 22 22 3A 41 54 24 |20:VL$(J)."":AT$|
000015B0: 28 4A 29 B2 22 22 3A 47 53 24 28 4A 29 B2 22 22 |(J)."":GS$(J).""|
000015C0: 3A 82 00 DD 1D 41 1B 81 4A B2 31 32 31 A4 31 32 |:....A..J.121.12|
000015D0: 37 3A 56 4C 24 28 4A 29 B2 22 22 3A 82 00 0B 1E |7:VL$(J)."":....|
000015E0: 44 1B 81 4A B2 33 30 A4 34 30 3A 87 41 3A 82 3A |D..J.30.40:.A:.:|
000015F0: 81 4A B2 33 30 A4 34 30 3A 87 41 24 3A 82 3A A0 |.J.30.40:.A$:.:.|
00001600: 31 3A A0 34 3A 8D 31 39 30 30 30 00 49 1E 49 1B |1:.4:.19000.I.I.|
00001610: 41 24 B2 22 59 22 3A 8D 31 39 31 30 30 3A 54 59 |A$."Y":.19100:TY|
00001620: 24 B2 22 50 52 4F 47 52 41 4D 22 3A 48 44 24 B2 |$."PROGRAM":HD$.|
00001630: 22 20 4C 49 53 54 20 46 4F 52 20 50 52 4F 47 52 |" LIST FOR PROGR|
00001640: 41 4D 20 22 3A 8D 33 30 30 00 81 1E 4A 1B 99 22 |AM ":.300...J.."|
00001650: 93 50 52 49 4E 54 49 4E 47 22 3A 99 22 50 20 52 |.PRINTING":."P R|
00001660: 20 4F 20 47 20 52 20 41 20 4D 20 20 4C 49 53 54 | O G R A M LIST|
00001670: 49 4E 47 2E 22 3A 8D 37 30 30 30 3A 89 31 30 30 |ING.":.7000:.100|
00001680: 30 00 91 1E 4E 1B A0 31 3A A0 34 3A A0 31 35 3A |0...N..1:.4:.15:|
00001690: 80 00 AB 1E 58 1B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |....X..*********|
000016A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C5 1E 59 1B |***********...Y.|
000016B0: 8F 2A 2A 2A 20 53 4B 49 50 20 54 4F 20 4E 45 57 |.*** SKIP TO NEW|
000016C0: 20 50 41 47 45 00 DF 1E 5A 1B 8F 2A 2A 2A 2A 2A | PAGE...Z..*****|
000016D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000016E0: FE 1E 5D 1B 8B 45 4C A7 8D 37 30 34 30 3A 45 4C |..]..EL..7040:EL|
000016F0: B2 30 3A 4E 4C B2 30 3A 50 4E B2 31 3A 8E 00 0F |.0:NL.0:PN.1:...|
00001700: 1F 5F 1B 8B 4E 4C B1 4C 50 A7 8D 37 30 34 30 00 |._..NL.LP..7040.|
00001710: 31 1F 62 1B 4E 4C B2 30 3A 98 34 2C 54 59 24 48 |1.b.NL.0:.4,TY$H|
00001720: 44 24 50 24 22 20 41 53 20 4F 46 20 22 44 41 24 |D$P$" AS OF "DA$|
00001730: 3B 00 5C 1F 6C 1B 53 50 B2 38 30 AB 28 C3 28 54 |;.\.l.SP.80.(.(T|
00001740: 59 24 29 AA C3 28 48 44 24 29 AA C3 28 50 24 29 |Y$)..(HD$)..(P$)|
00001750: AA 37 AA C3 28 44 41 24 29 29 AB 39 00 88 1F 76 |.7..(DA$)).9...v|
00001760: 1B 98 34 2C 22 20 22 A6 53 50 29 22 50 41 47 45 |..4," ".SP)"PAGE|
00001770: 22 50 4E 3A 98 34 3A 4E 4C B2 4E 4C AA 32 3A 50 |"PN:.4:NL.NL.2:P|
00001780: 4E B2 50 4E AA 31 3A 8E 00 9F 1F 80 1B 81 50 53 |N.PN.1:.......PS|
00001790: B2 4E 4C AB 4C 50 A4 35 3A 98 34 3A 82 3A 8E 00 |.NL.LP.5:.4:.:..|
000017A0: BC 1F 4C 1D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..L..***********|
000017B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D9 1F 4D |************...M|
000017C0: 1D 8F 2A 2A 2A 20 50 52 49 4E 54 20 41 52 52 41 |..*** PRINT ARRA|
000017D0: 59 20 45 4E 54 52 49 45 53 00 F6 1F 4E 1D 8F 2A |Y ENTRIES...N..*|
000017E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017F0: 2A 2A 2A 2A 2A 2A 00 07 20 60 1D 81 56 B2 41 A4 |******.. `..V.A.|
00001800: C3 28 41 24 29 A9 32 00 2E 20 74 1D 41 4C 24 B2 |.(A$).2.. t.AL$.|
00001810: CA 28 41 24 2C 56 2C 31 29 3A 41 48 24 B2 CA 28 |.(A$,V,1):AH$..(|
00001820: 41 24 2C 56 AA 31 2C 31 29 3A 8D 36 30 30 00 3C |A$,V.1,1):.600.<|
00001830: 20 88 1D 8B 59 B3 5A A7 37 36 35 30 00 5C 20 B0 | ...Y.Z.7650.\ .|
00001840: 1D 59 B2 30 3A 98 34 3A 4E 4C B2 4E 4C AA 31 3A |.Y.0:.4:NL.NL.1:|
00001850: 8B 4E 4C B1 4C 50 A7 8D 37 30 30 30 00 6C 20 CE |.NL.LP..7000.l .|
00001860: 1D 98 34 2C C8 28 53 24 2C 38 29 3B 00 88 20 E2 |..4,.(S$,8);.. .|
00001870: 1D 98 34 2C C9 28 53 24 AA C4 28 4E 41 29 2C 36 |..4,.(S$..(NA),6|
00001880: 29 3B 3A 59 B2 59 AA 31 00 9E 20 F6 1D 82 56 3A |);:Y.Y.1.. ...V:|
00001890: 98 34 3A 4E 4C B2 4E 4C AA 31 3A 59 B2 30 00 A4 |.4:NL.NL.1:Y.0..|
000018A0: 20 0A 1E 8E 00 BC 20 E0 2E 8F 2A 2A 2A 2A 2A 2A | ..... ...******|
000018B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D4 20 E2 |************.. .|
000018C0: 2E 8F 2A 2A 2A 20 53 4F 52 54 20 47 53 24 20 41 |..*** SORT GS$ A|
000018D0: 52 52 41 59 00 EC 20 E4 2E 8F 2A 2A 2A 2A 2A 2A |RRAY.. ...******|
000018E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 03 21 12 |************..!.|
000018F0: 2F 51 46 B2 30 3A 8F 20 53 57 49 54 43 48 20 46 |/QF.0:. SWITCH F|
00001900: 4C 41 47 00 10 21 44 2F 81 4A B2 30 A4 31 31 39 |LAG..!D/.J.0.119|
00001910: 00 2E 21 62 2F 8B 47 53 24 28 4A AA 31 29 B2 22 |..!b/.GS$(J.1)."|
00001920: 22 A7 4A B2 31 32 30 3A 89 31 32 32 35 30 00 56 |".J.120:.12250.V|
00001930: 21 76 2F 41 4C 24 B2 CA 28 47 53 24 28 4A AA 31 |!v/AL$..(GS$(J.1|
00001940: 29 2C 33 2C 31 29 AA CA 28 47 53 24 28 4A AA 31 |),3,1)..(GS$(J.1|
00001950: 29 2C 32 2C 31 29 00 7A 21 80 2F 41 48 24 B2 CA |),2,1).z!./AH$..|
00001960: 28 47 53 24 28 4A 29 2C 33 2C 31 29 AA CA 28 47 |(GS$(J),3,1)..(G|
00001970: 53 24 28 4A 29 2C 32 2C 31 29 00 8D 21 8A 2F 8B |S$(J),2,1)..!./.|
00001980: 41 4C 24 B1 41 48 24 A7 31 32 32 35 30 00 B0 21 |AL$.AH$.12250..!|
00001990: A8 2F 51 46 B2 31 3A 41 24 B2 47 53 24 28 4A 29 |./QF.1:A$.GS$(J)|
000019A0: 3A 47 53 24 28 4A 29 B2 47 53 24 28 4A AA 31 29 |:GS$(J).GS$(J.1)|
000019B0: 00 C0 21 BC 2F 47 53 24 28 4A AA 31 29 B2 41 24 |..!./GS$(J.1).A$|
000019C0: 00 D3 21 DA 2F 82 4A 3A 8B 51 46 B2 31 A7 31 32 |..!./.J:.QF.1.12|
000019D0: 30 30 30 00 D9 21 02 30 8E 00 F1 21 B0 36 8F 2A |000..!.0...!.6.*|
000019E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000019F0: 2A 00 09 22 B2 36 8F 2A 2A 2A 20 53 4F 52 54 20 |*..".6.*** SORT |
00001A00: 41 54 24 20 41 52 52 41 59 00 21 22 B4 36 8F 2A |AT$ ARRAY.!".6.*|
00001A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A20: 2A 00 38 22 E2 36 51 46 B2 30 3A 8F 20 53 57 49 |*.8".6QF.0:. SWI|
00001A30: 54 43 48 20 46 4C 41 47 00 45 22 14 37 81 4A B2 |TCH FLAG.E".7.J.|
00001A40: 30 A4 31 31 39 00 63 22 32 37 8B 41 54 24 28 4A |0.119.c"27.AT$(J|
00001A50: AA 31 29 B2 22 22 A7 4A B2 31 32 30 3A 89 31 34 |.1)."".J.120:.14|
00001A60: 32 35 30 00 7B 22 46 37 41 4C 24 B2 CA 28 41 54 |250.{"F7AL$..(AT|
00001A70: 24 28 4A AA 31 29 2C 32 2C 34 29 00 91 22 50 37 |$(J.1),2,4).."P7|
00001A80: 41 48 24 B2 CA 28 41 54 24 28 4A 29 2C 32 2C 34 |AH$..(AT$(J),2,4|
00001A90: 29 00 A4 22 5A 37 8B 41 4C 24 B1 41 48 24 A7 31 |).."Z7.AL$.AH$.1|
00001AA0: 34 32 35 30 00 C7 22 78 37 51 46 B2 31 3A 41 24 |4250.."x7QF.1:A$|
00001AB0: B2 41 54 24 28 4A 29 3A 41 54 24 28 4A 29 B2 41 |.AT$(J):AT$(J).A|
00001AC0: 54 24 28 4A AA 31 29 00 D7 22 8C 37 41 54 24 28 |T$(J.1)..".7AT$(|
00001AD0: 4A AA 31 29 B2 41 24 00 EA 22 AA 37 82 4A 3A 8B |J.1).A$..".7.J:.|
00001AE0: 51 46 B2 31 A7 31 34 30 30 30 00 F0 22 D2 37 8E |QF.1.14000..".7.|
00001AF0: 00 06 23 48 3F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..#H?.**********|
00001B00: 2A 2A 2A 2A 2A 2A 00 1C 23 49 3F 8F 2A 2A 2A 20 |******..#I?.*** |
00001B10: 43 55 52 53 4F 52 20 57 4F 52 44 53 00 32 23 4A |CURSOR WORDS.2#J|
00001B20: 3F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |?.**************|
00001B30: 2A 2A 00 61 23 52 3F 83 31 39 2C 31 34 37 2C 31 |**.a#R?.19,147,1|
00001B40: 37 2C 31 34 35 2C 32 39 2C 31 35 37 2C 31 38 2C |7,145,29,157,18,|
00001B50: 31 34 36 2C 32 30 2C 31 34 38 2C 31 34 31 2C 33 |146,20,148,141,3|
00001B60: 32 00 98 23 5C 3F 83 31 32 39 2C 31 34 39 2C 31 |2..#\?.129,149,1|
00001B70: 35 30 2C 31 35 31 2C 31 35 32 2C 31 34 2C 31 34 |50,151,152,14,14|
00001B80: 32 2C 31 35 33 2C 31 35 34 2C 31 35 35 3A 8F 20 |2,153,154,155:. |
00001B90: 36 34 20 53 54 55 46 46 00 E0 23 66 3F 83 31 34 |64 STUFF..#f?.14|
00001BA0: 34 2C 35 2C 32 38 2C 31 35 39 2C 31 35 36 2C 33 |4,5,28,159,156,3|
00001BB0: 30 2C 33 31 2C 31 35 38 2C 38 2C 39 2C 31 33 33 |0,31,158,8,9,133|
00001BC0: 2C 31 33 37 2C 31 33 34 2C 31 33 38 2C 31 33 35 |,137,134,138,135|
00001BD0: 2C 31 33 39 2C 31 33 36 2C 31 34 30 2C 31 34 30 |,139,136,140,140|
00001BE0: 00 2A 24 70 3F 83 48 4F 4D 45 2C 43 4C 45 41 52 |.*$p?.HOME,CLEAR|
00001BF0: 2C 44 4F 57 4E 2C 55 50 2C 52 49 47 48 54 2C 4C |,DOWN,UP,RIGHT,L|
00001C00: 45 46 54 2C 52 56 53 2C 52 56 4F 46 46 2C 44 45 |EFT,RVS,RVOFF,DE|
00001C10: 4C 2C 49 4E 53 54 2C 52 45 54 55 52 4E 2C 53 50 |L,INST,RETURN,SP|
00001C20: 41 43 45 2C 4F 52 41 4E 47 45 00 76 24 7A 3F 83 |ACE,ORANGE.v$z?.|
00001C30: 42 52 4F 57 4E 2C 4C 2E 52 45 44 2C 47 52 41 59 |BROWN,L.RED,GRAY|
00001C40: 31 2C 47 52 41 59 32 2C 54 45 58 54 2C 47 52 41 |1,GRAY2,TEXT,GRA|
00001C50: 50 48 49 43 2C 4C 2E 47 52 4E 2C 4C 2E 42 4C 55 |PHIC,L.GRN,L.BLU|
00001C60: 2C 47 52 41 59 33 2C 42 4C 41 43 4B 2C 57 48 49 |,GRAY3,BLACK,WHI|
00001C70: 54 45 2C 52 45 44 00 C1 24 84 3F 83 43 59 41 4E |TE,RED..$.?.CYAN|
00001C80: 2C 4D 41 47 45 4E 54 41 2C 47 52 45 45 4E 2C 42 |,MAGENTA,GREEN,B|
00001C90: 4C 55 45 2C 59 45 4C 4C 4F 57 2C 4C 4F 43 4B 2C |LUE,YELLOW,LOCK,|
00001CA0: 55 4E 4C 4F 43 4B 2C 46 31 2C 46 32 2C 46 33 2C |UNLOCK,F1,F2,F3,|
00001CB0: 46 34 2C 46 35 2C 46 36 2C 46 37 2C 46 38 2C 46 |F4,F5,F6,F7,F8,F|
00001CC0: 38 00 01 25 8E 3F 83 37 2C 32 31 2C 31 34 39 2C |8..%.?.7,21,149,|
00001CD0: 32 32 2C 31 35 30 2C 31 34 2C 31 34 32 2C 32 35 |22,150,14,142,25|
00001CE0: 2C 31 35 33 2C 31 35 2C 31 34 33 3A 8F 20 38 30 |,153,15,143:. 80|
00001CF0: 20 43 4F 4C 20 43 55 52 53 4F 52 20 53 54 55 46 | COL CURSOR STUF|
00001D00: 46 00 4C 25 98 3F 83 42 45 4C 4C 2C 44 2E 4C 49 |F.L%.?.BELL,D.LI|
00001D10: 4E 45 2C 49 2E 4C 49 4E 45 2C 45 52 2E 42 45 47 |NE,I.LINE,ER.BEG|
00001D20: 49 4E 2C 45 52 2E 45 4E 44 2C 54 45 58 54 2C 47 |IN,ER.END,TEXT,G|
00001D30: 52 41 50 48 49 43 2C 53 43 52 4F 4C 4C 2E 55 50 |RAPHIC,SCROLL.UP|
00001D40: 2C 53 43 52 4F 4C 4C 2E 44 4F 57 4E 00 72 25 A2 |,SCROLL.DOWN.r%.|
00001D50: 3F 83 54 4F 50 2C 42 4F 54 54 4F 4D 3A 8F 20 38 |?.TOP,BOTTOM:. 8|
00001D60: 30 20 43 4F 4C 20 43 55 52 53 4F 52 20 53 54 55 |0 COL CURSOR STU|
00001D70: 46 46 00 8A 25 68 42 8F 2A 2A 2A 2A 2A 2A 2A 2A |FF..%hB.********|
00001D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A2 25 69 42 8F |**********..%iB.|
00001D90: 2A 2A 2A 56 45 52 42 20 53 45 51 20 56 41 4C 55 |***VERB SEQ VALU|
00001DA0: 45 53 00 BA 25 6A 42 8F 2A 2A 2A 2A 2A 2A 2A 2A |ES..%jB.********|
00001DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E7 25 72 42 83 |**********..%rB.|
00001DC0: 31 38 32 2C 31 37 35 2C 31 39 38 2C 31 39 33 2C |182,175,198,193,|
00001DD0: 31 39 39 2C 31 36 30 2C 31 35 36 2C 31 35 37 2C |199,160,156,157,|
00001DE0: 31 35 34 2C 31 39 30 00 14 26 7C 42 83 31 33 31 |154,190..&|B.131|
00001DF0: 2C 31 35 30 2C 31 33 34 2C 31 32 38 2C 31 38 39 |,150,134,128,189|
00001E00: 2C 31 36 35 2C 31 32 39 2C 31 38 34 2C 31 36 31 |,165,129,184,161|
00001E10: 2C 32 30 33 00 41 26 86 42 83 31 34 31 2C 31 33 |,203.A&.B.141,13|
00001E20: 37 2C 31 33 39 2C 31 33 33 2C 31 33 32 2C 31 38 |7,139,133,132,18|
00001E30: 31 2C 32 30 30 2C 31 39 35 2C 31 33 36 2C 31 35 |1,200,195,136,15|
00001E40: 35 00 6E 26 90 42 83 31 34 37 2C 31 38 38 2C 32 |5.n&.B.147,188,2|
00001E50: 30 32 2C 31 36 32 2C 31 33 30 2C 31 36 38 2C 31 |02,162,130,168,1|
00001E60: 34 35 2C 31 35 39 2C 31 37 36 2C 31 39 34 00 9B |45,159,176,194..|
00001E70: 26 9A 42 83 31 35 31 2C 31 38 35 2C 31 35 33 2C |&.B.151,185,153,|
00001E80: 31 35 32 2C 31 33 35 2C 31 34 33 2C 31 34 30 2C |152,135,143,140,|
00001E90: 31 34 32 2C 32 30 31 2C 31 38 37 00 C8 26 A4 42 |142,201,187..&.B|
00001EA0: 83 31 33 38 2C 31 34 38 2C 31 38 30 2C 31 39 31 |.138,148,180,191|
00001EB0: 2C 31 36 36 2C 31 38 36 2C 31 36 39 2C 31 34 34 |,166,186,169,144|
00001EC0: 2C 11 39 36 2C 31 35 38 00 F5 26 AE 42 83 31 36 |,.96,158..&.B.16|
00001ED0: 33 2C 31 39 32 2C 31 36 37 2C 31 36 34 2C 31 38 |3,192,167,164,18|
00001EE0: 33 2C 31 39 37 2C 31 34 39 2C 31 34 36 2C 32 30 |3,197,149,146,20|
00001EF0: 34 2C 32 30 35 00 22 27 B8 42 83 32 30 36 2C 31 |4,205."'.B.206,1|
00001F00: 37 30 2C 31 37 31 2C 31 37 32 2C 31 37 33 2C 31 |70,171,172,173,1|
00001F10: 37 34 2C 31 37 37 2C 31 37 38 2C 31 37 39 2C 32 |74,177,178,179,2|
00001F20: 30 37 00 4F 27 C2 42 83 32 30 38 2C 32 30 39 2C |07.O'.B.208,209,|
00001F30: 32 31 30 2C 32 31 31 2C 32 31 32 2C 32 31 33 2C |210,211,212,213,|
00001F40: 32 31 34 2C 32 31 35 2C 32 31 36 2C 32 31 37 00 |214,215,216,217.|
00001F50: 7C 27 CC 42 83 32 31 38 2C 32 31 39 2C 32 32 30 ||'.B.218,219,220|
00001F60: 2C 32 32 31 2C 32 32 32 2C 32 32 33 2C 32 32 34 |,221,222,223,224|
00001F70: 2C 32 32 35 2C 32 32 36 2C 32 32 37 00 A9 27 D6 |,225,226,227..'.|
00001F80: 42 83 32 32 38 2C 32 32 39 2C 32 33 30 2C 32 33 |B.228,229,230,23|
00001F90: 31 2C 32 33 32 2C 32 33 33 2C 32 33 34 2C 32 33 |1,232,233,234,23|
00001FA0: 35 2C 32 33 36 2C 32 33 37 00 D6 27 E0 42 83 32 |5,236,237..'.B.2|
00001FB0: 33 38 2C 32 33 39 2C 32 34 30 2C 32 34 31 2C 32 |38,239,240,241,2|
00001FC0: 34 32 2C 32 34 33 2C 32 34 34 2C 32 34 35 2C 32 |42,243,244,245,2|
00001FD0: 34 36 2C 32 34 37 00 FB 27 EA 42 83 32 34 38 2C |46,247..'.B.248,|
00001FE0: 32 34 39 2C 32 35 30 2C 32 35 31 2C 32 35 32 2C |249,250,251,252,|
00001FF0: 32 35 33 2C 32 35 34 2C 32 35 35 00 0F 28 50 46 |253,254,255..(PF|
00002000: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |.**************.|
00002010: 23 28 51 46 8F 2A 2A 2A 20 49 4E 49 54 49 41 4C |#(QF.*** INITIAL|
00002020: 49 5A 45 00 37 28 52 46 8F 2A 2A 2A 2A 2A 2A 2A |IZE.7(RF.*******|
00002030: 2A 2A 2A 2A 2A 2A 2A 00 49 28 53 46 46 4C 24 B2 |*******.I(SFFL$.|
00002040: 22 22 3A 55 4C 24 B2 22 22 00 91 28 55 46 41 24 |"":UL$.""..(UFA$|
00002050: B2 22 22 3A 53 24 B2 22 20 20 20 20 20 20 20 20 |."":S$." |
00002060: 22 3A 5A 52 24 B2 C7 28 30 29 3A 48 44 24 B2 22 |":ZR$..(0):HD$."|
00002070: 20 4C 49 53 54 20 46 4F 52 20 50 52 4F 47 52 41 | LIST FOR PROGRA|
00002080: 4D 20 22 3A 50 4E B2 31 3A 43 47 B2 33 32 37 36 |M ":PN.1:CG.3276|
00002090: 38 00 C8 28 5A 46 86 4B 24 28 31 32 37 29 2C 56 |8..(ZF.K$(127),V|
000020A0: 4C 24 28 31 32 37 29 2C 47 53 24 28 31 32 30 29 |L$(127),GS$(120)|
000020B0: 2C 41 54 24 28 31 32 30 29 2C 51 57 28 34 30 29 |,AT$(120),QW(40)|
000020C0: 2C 51 57 24 28 34 30 29 00 FD 28 69 46 99 22 93 |,QW$(40)..(iF.".|
000020D0: 22 A6 32 29 50 4E 24 3A 99 22 11 41 4C 4C 20 49 |".2)PN$:.".ALL I|
000020E0: 4E 50 55 54 27 53 20 4D 55 53 54 20 45 4E 44 20 |NPUT'S MUST END |
000020F0: 20 57 49 54 48 20 52 45 54 55 52 4E 22 00 2F 29 | WITH RETURN"./)|
00002100: 6E 46 99 22 11 50 52 4F 47 52 41 4D 20 4E 41 4D |nF.".PROGRAM NAM|
00002110: 45 3B 22 3A 85 22 11 20 20 20 20 22 3B 50 24 3A |E;":.". ";P$:|
00002120: 8D 31 39 30 30 30 3A 8B 45 A7 31 38 30 33 30 00 |.19000:.E.18030.|
00002130: 5A 29 78 46 99 22 44 41 54 45 20 57 49 54 48 20 |Z)xF."DATE WITH |
00002140: 53 4C 41 53 48 45 53 22 3A 85 22 11 20 20 20 20 |SLASHES":.". |
00002150: 22 3B 44 41 24 3A 8D 33 30 30 00 73 29 82 46 99 |";DA$:.300.s).F.|
00002160: 22 4C 4F 41 44 20 41 44 44 52 45 53 53 20 3D 22 |"LOAD ADDRESS ="|
00002170: 3B 4C 24 00 94 29 8D 46 53 59 24 B2 22 50 22 3A |;L$..).FSY$."P":|
00002180: 8B C2 28 36 31 36 35 34 29 B2 38 32 A7 53 59 24 |..(61654).82.SY$|
00002190: B2 22 36 22 00 AE 29 8E 46 8B C2 28 36 35 31 35 |."6"..).F..(6515|
000021A0: 34 29 B2 31 34 34 A7 53 59 24 B2 22 56 22 00 D7 |4).144.SY$."V"..|
000021B0: 29 A1 46 81 4A B2 30 A4 34 30 3A 87 51 57 28 4A |).F.J.0.40:.QW(J|
000021C0: 29 3A 82 4A 3A 81 4A B2 30 A4 34 30 3A 87 51 57 |):.J:.J.0.40:.QW|
000021D0: 24 28 4A 29 3A 82 4A 00 F8 29 A2 46 81 4A B2 33 |$(J):.J..).F.J.3|
000021E0: 30 A4 34 30 3A 87 41 3A 8B 53 59 24 B2 22 50 22 |0.40:.A:.SY$."P"|
000021F0: A7 51 57 28 4A 29 B2 41 00 FE 29 A3 46 82 00 22 |.QW(J).A..).F.."|
00002200: 2A A4 46 81 4A B2 33 30 A4 34 30 3A 87 41 24 3A |*.F.J.30.40:.A$:|
00002210: 8B 53 59 24 B2 22 50 22 A7 51 57 24 28 4A 29 B2 |.SY$."P".QW$(J).|
00002220: 41 24 00 32 2A A5 46 82 3A 41 24 B2 22 22 3A 41 |A$.2*.F.:A$."":A|
00002230: B2 30 00 4D 2A B4 46 99 22 11 4F 4B 20 2D 20 53 |.0.M*.F.".OK - S|
00002240: 45 54 54 49 4E 47 20 55 50 2E 2E 2E 22 00 70 2A |ETTING UP...".p*|
00002250: BE 46 8B 53 59 24 B2 22 56 22 A7 41 4C B2 34 39 |.F.SY$."V".AL.49|
00002260: 33 31 30 3A 41 48 B2 34 39 35 36 35 3A 5A B2 31 |310:AH.49565:Z.1|
00002270: 00 93 2A C8 46 8B 53 59 24 B2 22 50 22 A7 41 4C |..*.F.SY$."P".AL|
00002280: B2 34 35 32 33 34 3A 41 48 B2 34 35 35 30 30 3A |.45234:AH.45500:|
00002290: 5A B2 35 00 B6 2A D2 46 8B 53 59 24 B2 22 36 22 |Z.5..*.F.SY$."6"|
000022A0: A7 41 4C B2 34 31 31 31 38 3A 41 48 B2 34 31 33 |.AL.41118:AH.413|
000022B0: 37 33 3A 5A B2 35 00 C4 2A D9 46 41 24 B2 22 22 |73:Z.5..*.FA$.""|
000022C0: 3A 41 B2 30 00 D8 2A DC 46 81 4A B2 41 4C A4 41 |:A.0..*.F.J.AL.A|
000022D0: 48 3A 56 B2 C2 28 4A 29 00 F5 2A E6 46 8B 56 B3 |H:V..(J)..*.F.V.|
000022E0: 31 32 38 A7 41 24 B2 41 24 AA C7 28 56 29 3A 89 |128.A$.A$..(V):.|
000022F0: 31 38 31 38 30 00 17 2B F0 46 41 24 B2 41 24 AA |18180..+.FA$.A$.|
00002300: 28 C7 28 56 AB 31 32 38 29 29 3A 4B 24 28 41 29 |(.(V.128)):K$(A)|
00002310: B2 41 24 AA 22 20 22 00 29 2B FA 46 41 24 B2 22 |.A$." ".)+.FA$."|
00002320: 22 3A 41 B2 41 AA 31 3A 82 00 2F 2B 04 47 82 00 |":A.A.1:../+.G..|
00002330: 50 2B 09 47 85 22 11 46 4F 52 4D 41 54 54 45 44 |P+.G.".FORMATTED|
00002340: 20 4C 49 53 54 20 28 59 2F 4E 29 22 3B 46 50 24 | LIST (Y/N)";FP$|
00002350: 00 6F 2B 0E 47 85 22 50 52 49 4E 54 45 52 20 4F |.o+.G."PRINTER O|
00002360: 55 54 50 55 54 20 28 59 2F 4E 29 22 3B 41 24 00 |UTPUT (Y/N)";A$.|
00002370: 95 2B 18 47 99 22 4C 49 4E 45 20 4E 55 4D 42 45 |.+.G."LINE NUMBE|
00002380: 52 20 52 41 4E 47 45 3F 22 3A 4C 53 B2 30 3A 4C |R RANGE?":LS.0:L|
00002390: 46 B2 31 45 39 00 C3 2B 22 47 85 22 53 54 41 52 |F.1E9..+"G."STAR|
000023A0: 54 20 20 30 9D 9D 9D 22 3B 4C 53 3A 85 22 45 4E |T 0...";LS:."EN|
000023B0: 44 20 20 39 39 39 39 39 9D 9D 9D 9D 9D 9D 9D 22 |D 99999......."|
000023C0: 3B 4C 46 00 EC 2B 36 47 81 41 B2 36 37 A4 37 34 |;LF..+6G.A.67.74|
000023D0: 3A 4B 24 28 41 29 B2 C8 28 4B 24 28 41 29 2C C3 |:K$(A)..(K$(A),.|
000023E0: 28 4B 24 28 41 29 29 AB 31 29 3A 82 00 0C 2C 40 |(K$(A)).1):...,@|
000023F0: 47 81 41 B2 34 32 A4 34 35 3A 4B 24 28 41 29 B2 |G.A.42.45:K$(A).|
00002400: C8 28 4B 24 28 41 29 2C 31 29 3A 82 00 2C 2C 4A |.(K$(A),1):..,,J|
00002410: 47 81 41 B2 34 39 A4 35 31 3A 4B 24 28 41 29 B2 |G.A.49.51:K$(A).|
00002420: C8 28 4B 24 28 41 29 2C 31 29 3A 82 00 66 2C 54 |.(K$(A),1):..f,T|
00002430: 47 4B 24 28 33 36 29 B2 22 20 22 AA 4B 24 28 33 |GK$(36)." ".K$(3|
00002440: 36 29 3A 4B 24 28 33 39 29 B2 22 20 22 AA 4B 24 |6):K$(39)." ".K$|
00002450: 28 33 39 29 3A 4B 24 28 34 31 29 B2 22 20 22 AA |(39):K$(41)." ".|
00002460: 4B 24 28 34 31 29 00 9A 2C 5E 47 4B 24 28 34 37 |K$(41)..,^GK$(47|
00002470: 29 B2 22 20 22 AA 4B 24 28 34 37 29 3A 4B 24 28 |)." ".K$(47):K$(|
00002480: 34 38 29 B2 22 20 22 AA 4B 24 28 34 38 29 3A 4B |48)." ".K$(48):K|
00002490: 24 28 31 32 37 29 B2 22 FF 22 00 C4 2C 72 47 4B |$(127)."."..,rGK|
000024A0: 24 28 33 35 29 B2 C8 28 4B 24 28 33 35 29 2C 34 |$(35)..(K$(35),4|
000024B0: 29 3A 4B 24 28 33 38 29 B2 C8 28 4B 24 28 33 38 |):K$(38)..(K$(38|
000024C0: 29 2C 34 29 00 E6 2C 90 47 85 22 4C 49 4E 45 53 |),4)..,.G."LINES|
000024D0: 20 50 45 52 20 50 41 47 45 20 3D 20 36 30 9D 9D | PER PAGE = 60..|
000024E0: 9D 9D 22 3B 4C 50 00 0D 2D A4 47 85 22 4E 55 4D |..";LP..-.G."NUM|
000024F0: 42 45 52 20 4F 46 20 43 4F 50 49 45 53 20 20 31 |BER OF COPIES 1|
00002500: 9D 9D 9D 22 3B 4E 43 3A 54 43 B2 4E 43 00 2E 2D |...";NC:TC.NC..-|
00002510: A9 47 85 22 47 52 41 50 48 49 43 53 20 4F 52 20 |.G."GRAPHICS OR |
00002520: 54 45 58 54 20 20 47 9D 9D 9D 22 3B 47 24 00 55 |TEXT G...";G$.U|
00002530: 2D AB 47 11 41 B2 30 3A 99 C7 28 31 34 32 29 3A |-.G.A.0:..(142):|
00002540: 8B C6 28 47 24 29 B2 38 34 A7 53 41 B2 37 3A 99 |..(G$).84.SA.7:.|
00002550: C7 28 31 34 29 00 6C 2D AC 47 8D 31 39 31 30 30 |.(14).l-.G.19100|
00002560: 3A 8B 4F 44 B2 33 A7 4C 50 B2 32 30 00 B1 2D B3 |:.OD.3.LP.20..-.|
00002570: 47 54 59 24 B2 22 50 52 4F 47 52 41 4D 22 3A 99 |GTY$."PROGRAM":.|
00002580: 22 93 50 52 49 4E 54 49 4E 47 22 3A 99 22 20 20 |".PRINTING":." |
00002590: 50 20 52 20 4F 20 47 20 52 20 41 20 4D 20 20 20 |P R O G R A M |
000025A0: 4C 49 53 54 22 3A 8D 37 30 30 30 3A 89 31 30 30 |LIST":.7000:.100|
000025B0: 30 00 CF 01 38 4A 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |0...8J.*********|
000025C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000025D0: E6 2D 39 4A 8F 2A 2A 2A 20 4F 50 45 4E 20 52 4F |.-9J.*** OPEN RO|
000025E0: 55 54 49 4E 45 53 00 04 2E 3A 4A 8F 2A 2A 2A 2A |UTINES...:J.****|
000025F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002600: 2A 2A 2A 2A 00 36 2E 42 4A 9F 31 35 2C 38 2C 31 |****.6.BJ.15,8,1|
00002610: 35 2C 22 49 4F 22 3A 9F 31 2C 38 2C 33 2C 22 30 |5,"IO":.1,8,3,"0|
00002620: 3A 22 AA 50 24 AA 22 2C 50 2C 52 22 3A 84 31 35 |:".P$.",P,R":.15|
00002630: 2C 45 2C 45 4D 24 00 44 2E 4C 4A 8B 45 A7 8D 31 |,E,EM$.D.LJ.E..1|
00002640: 39 32 30 30 00 4A 2E 56 4A 8E 00 65 2E 9C 4A 4F |9200.J.VJ..e..JO|
00002650: 44 B2 33 3A 8B 41 24 B2 22 59 22 A7 4F 44 B2 34 |D.3:.A$."Y".OD.4|
00002660: 3A 5A B2 31 32 00 74 2E A6 4A 9F 34 2C 4F 44 2C |:Z.12.t..J.4,OD,|
00002670: 53 41 3A 8E 00 92 2E 00 4B 8F 2A 2A 2A 2A 2A 2A |SA:.....K.******|
00002680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002690: 2A 2A 00 B0 2E 01 4B 8F 2A 2A 2A 20 44 49 53 4B |**....K.*** DISK|
000026A0: 20 45 52 52 4F 52 20 52 4F 55 54 49 4E 45 20 2A | ERROR ROUTINE *|
000026B0: 00 CE 2E 02 4B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....K.**********|
000026C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F1 |**************..|
000026D0: 2E 0A 4B 99 22 93 44 49 53 4B 20 45 52 52 4F 52 |..K.".DISK ERROR|
000026E0: 20 23 22 45 3B 45 4D 24 3A A0 31 3A A0 31 35 3A | #"E;EM$:.1:.15:|
000026F0: 8E 00 14 2F 20 4E 8F 2A 2A 2A 20 42 41 53 49 43 |.../ N.*** BASIC|
00002700: 20 43 52 4F 53 53 20 52 45 46 45 52 45 4E 43 45 | CROSS REFERENCE|
00002710: 20 2A 2A 2A 00 37 2F 84 4E 8F 2A 2A 2A 20 20 20 | ***.7/.N.*** |
00002720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002730: 20 20 20 20 2A 2A 2A 00 5A 2F E8 4E 8F 2A 2A 2A | ***.Z/.N.***|
00002740: 20 20 20 20 20 20 20 20 20 42 59 20 20 20 20 20 | BY |
00002750: 20 20 20 20 20 20 20 2A 2A 2A 00 7D 2F 4C 4F 8F | ***.}/LO.|
00002760: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |*** |
00002770: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 A0 2F | ***../|
00002780: B0 4F 8F 2A 2A 2A 20 20 20 20 20 20 42 49 4C 4C |.O.*** BILL|
00002790: 20 43 4F 4C 4C 49 4E 53 20 20 20 20 20 2A 2A 2A | COLLINS ***|
000027A0: 00 C3 2F 14 50 8F 2A 2A 2A 20 20 20 20 20 20 20 |../.P.*** |
000027B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000027C0: 2A 2A 2A 00 E6 2F 78 50 8F 2A 2A 2A 20 20 20 20 |***../xP.*** |
000027D0: 20 20 20 20 20 20 26 20 20 20 20 20 20 20 20 20 | & |
000027E0: 20 20 20 2A 2A 2A 00 09 30 AA 50 8F 2A 2A 2A 20 | ***..0.P.*** |
000027F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002800: 20 20 20 20 20 20 2A 2A 2A 00 2C 30 DC 50 8F 2A | ***.,0.P.*|
00002810: 2A 2A 20 20 20 20 44 49 43 4B 20 4D 49 53 48 49 |** DICK MISHI|
00002820: 4E 53 4B 49 20 20 20 20 20 2A 2A 2A 00 4F 30 40 |NSKI ***.O0@|
00002830: 51 8F 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 |Q.*** |
00002840: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 | ***.|
00002850: 72 30 A4 51 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |r0.Q.***********|
00002860: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002870: 2A 2A 00 00 00 |**... |
..!....*** AS OF 07/23/84 - 16.30.H...PN
$.".B A S I C X R E F.":.18000.A.D..**
*****************.Z.E..*** GET A CHARACT
ER...F..*******************...X..#1,A$:.
A$."".A.0:A$.ZR$:..G....A$." ".QF.0.100.
....A.F(A$):UL$.UL$.A$:....H..**********
*********...I..***SCAN TO END LINE.+.J..
*******************.>....100:.A..0.200.I
.".QF.0:..B.,..*******************.{.-..
*** GET LINE NUMBER......***************
****.R.6..#1,AL$,AH$:.600:L.NA:CL$.G(AL)
.G(AH):L$.I(S$.D(L),6)." ".X..........**
******************......***SCAN TO END Q
UOTE.&....********************.G....100:
.A.0.UL$.UL$.G(34):.490.Z.B..A$..G(34).4
00.E...QF.0:......********************.
.....***END OF VERB......***************
*****.J....NV$..""..3000:. STORE #...&..
AV$..""..4000:. STORE ALPHA...:.NV$."":A
V$.""...N...*.X..***********************
**********.Q.Y..*** CONVERT AL$/AH$ TO A
L/AH > NA.X.Z..*************************
********...L.AL.F(AL$.ZR$):AH.F(AH$.ZR$)
:NA.AL.AH.256:.......******************.
X....*** START NEW LINE*......**********
********.&....#1,AL$,AH$:.AL$."".AH$."".
.4600:EL.1:.7000:.6000.=....500:.300:QF.
0:V.0.^....L.LS.L.LF..200:UL$."":.1000.H
.L..4600.|.V..FP$."Y"..4,L$;......******
***********......***START NEW VERB.A....
*****************......100:.A.0.1000:. E
ND LINE...^..A.34.QF.1:.500:.400:. BEGIN
QUOTE...R..A.58.A.44.A.59..500.Y....A.1
27..4500:.500:.A.143.QF.1:.200:.1000:. S
TORE VERB.W.B..A.47.A.58.2000:. NUMERIC.
..V..A.64.A.91.2500:. ALPHA......A.36.A.
37.2500:. END ALPHA.U....A.40.AV$.."".AV
$.AV$.A$:.500......A.0.1000:. END LINE..
.F..1500...P..***********************.2.
Q..*** TEST NUMERIC VALUES.O.R..********
***************.X.4..V.9.V.10.V.13.V.39.
NV$.NV$.A$:.1500...R..AV$.."".AV$.AV$.A$
......1500...D..*********************.P.
F..*** TEST ALPHA VALUES...H..**********
***********...(..V.3..1500:. VERB = DATA
BYPASS./.2..A.36.A.37.AV$.AV$.A$:.1500.
H....AV$."".AV$.A$:.1500.Y....I(AV$,1)."
$".I(AV$,1)."%"..500:AV$.A$:.1500.....AV
$.AV$.A$......1500......****************
*.G....*** STORE NUMERIC VALUES......***
**************.....NA.E(NV$):J.0...&.AH.
.(NA.256):AL.NA.AH.256.2.0.AL$.G(AL):AH$
.G(AH):NA$.AL$.AH$.L...NS.F(H(GS$(J),1).
ZR$).K....NS.0.GS$(J).ZR$.NA$:.3470.....
.NA$.J(GS$(J),2,2).3400...Z.J.J.1:.J.121
.3200......"GO TO/SUB TABLE EXCEEDED":..
..H..NS.126.."GO TO/SUB" NV$ " EXCEEDS T
ABLE":......NS.NS.1:GS$(J).G(NS).J(GS$(J
),2).CL$.......8. ..********************
.R....*** STORE VAR VALUES.L....********
************...R.J.0:AV$.H(AV$.S$,4)....
.NS.F(H(AT$(J),1).ZR$)...H..NS.0.AT$(J).
ZR$.AV$:.4470.Y....AV$.J(AT$(J),2,4).440
0...B.J.J.1:.J.121.4100......"VAR TABLE
EXCEEDED":..4.0..NS.125.."VAR "AV$" EXCE
EDS TABLE":..K.N..CL$.I(AT$(J),2)...T.V.
NS.NS.1:AT$(J).G(NS).J(AT$(J),2).CL$.Z..
........************************......**
* STORE VERB & LINE #.S....*************
***********.....V.A.128:NS.F(H(VL$(V),1)
.ZR$).!....NS.127.."VERB "K$(V)" EXCEEDS
TABLE":..0....NS.0.4570.G....CL$.I(VL$(
V),2)...P.Z.NS.NS.1:VL$(V).G(NS).J(VL$(V
),2).CL$.V..........********************
*......*** FORMAT PRINT LINE.G....******
***************.....FL$."":. CLEAR FORMA
TTED LINE......UL$.""........FP$."N".UL$
."":.L$:.:. BYPASS FORMATTED PROG LIST.?
.\..NS.1.C(UL$).Z.F.A$.J(UL$,NS,1):A.F(A
$).R.Z..A.127.A$.K$(A.128)......A.143.A$
.A$.I(UL$,C(UL$).NS):NS.C(UL$)......A.34
..5000:. BEGIN QUOTE.K.$.FL$.FL$.A$.Q...
....V.UL$."":.C(FL$).70..5500...J..4,FL$
:NL.NL.1:.NL.LP..7000...~...8....*******
************************.]....*** PROCES
S QUOTE IN PRINT LINE......*************
******************.....QF$.A$:J.NS.1:CC.
.:CT.......A$.J(UL$,J,1):A.F(A$)...X..A.
CC.CT.CT.1:.5320:. SAME CHAR......CC...5
200......CC.32.CT...QF$.QF$." ":.5200:.
1 BLANK.D....CT...QF$.QF$.CC$.D(CT.1)."]
":CT..:.5200.X...QF$.QF$.CC$."]".A.P.CC.
....Z..A.32.A.128.5300:. NUM C ALPHA..._
..XX.0.40...N..A.QW(XX).CC.A:CC$."[".QW$
(XX):XX.40.......Q....CC....A$."".....QF
$.QF$.A$......A.34.5400:. END QUOTE...H.
J.J.1...R..5050.....NS.J.#.^.A$.QF$.).R.
..E.|..**********************.A.}..*** C
HOP UP PRINT LINE.}.~..*****************
*****.....NS.70.....A$.J(FL$,NS,1):A.F(A
$)......A.32.NS.50.5700.R....(A.58.A.44.
A.59).5700...&.NS.NS.1:.NS.40.5600...:.N
S.C(FL$).2.!.D.UL$.H(FL$,NS):FL$.I(FL$,C
(FL$).NS).4.V..4,UL$:NL.NL.1.F....4,S$;:
UL$."".L.....I.P..**********************
*...Q..*** PRINT VERB & LINE #...R..****
*******************.N.U..".PRINTING":."
V E R B LISTING.."...Z.TY$."VERB":HD
$." CROSS REFERENCE FOR PROGRAM ":.7000.
D.|.K$(36).I(K$(36),3):K$(39).I(K$(39),5
):K$(41).I(K$(41),5).N.~.K$(47).I(K$(47)
,4):K$(48).I(K$(48),3).~....J.0.90:Y.0..
....NL.LP..7000......A:A.A.128:A$.VL$(A)
:NS.F(H(A$,1).ZR$).I....NS.0.6150......4
,H(K$(A).S$,8);...J.A.2:.7500......J:EL.
1:.7000......OD.4.6200.0...."PRESS ANY K
EY TO CONTINUE.".D.$..A$:.A$."".6180.[.8
..*****************.R.:..*** PRINT VAR R
EF...<..*****************...B.TY$."VARIA
BLES":.7000...V..".SORTING":." V A R I
A B L E S":.14000:. SORT AT$...[..".PRI
NTING":." V A R I A B L E S"......J.0.
120:Y.0.(....NL.LP..7000.H...A$.AT$(J):N
S.F(H(A$,1).ZR$).W.N..NS.0.6450.Q...AL$.
J(A$,2,4).H(S$,4).}....4,AL$;.....A.6:.7
500...2..J:EL.1:.7000...<..OD.4.6500.N.A
.."PRESS ANY KEY TO CONTINUE."...F..A$:.
A$."".6470...D..********************...E
..*** PRINT GOTO/SUB REF.2.F..**********
**********.K.N.TY$."GOTO/SUB":.7000.....
.".SORTING":."G O T O / S U B S":.12000:
. SORT GS$......".PRINTING":."G O T O /
S U B S"...H..J.0.120:Y.0.J.R..NL.LP..70
00.X...A$.GS$(J).....NS.F(H(A$,1).ZR$)..
....NS.0.6950."...AL$.J(A$,2,1):AH$.J(A$
,3,1):.600.8."..4,I(S$.D(NA),8);.F.'.A.4
:.7500.X.&..J:EL.1:.7000.H.0..NC.1..6990
...:.NC.NC.1:.:.J.0.40:.A:.:.J.0.40:.A$:
.: 15.B.?..J.0.120:VL$(J)."":AT$(J)."":G
S$(J)."":....A..J.121.127:VL$(J)."":....
D..J.30.40:.A:.:.J.30.40:.A$:.: 1: 4:.19
000.I.I.A$."Y":.19100:TY$."PROGRAM":HD$.
" LIST FOR PROGRAM ":.300...J..".PRINTIN
G":."P R O G R A M LISTING.":.7000:.100
0...N. 1: 4: 15:....X..*****************
***.E.Y..*** SKIP TO NEW PAGE...Z..*****
***************...]..EL..7040:EL.0:NL.0:
PN.1:...._..NL.LP..7040.1.B.NL.0:.4,TY$H
D$P$" AS OF "DA$;.\.L.SP.80.(C(TY$).C(HD
$).C(P$).7.C(DA$)).9...V..4," ".SP)"PAGE
"PN:.4:NL.NL.2:PN.PN.1:.......PS.NL.LP.5
:.4:.:....L..***********************.Y.M
..*** PRINT ARRAY ENTRIES...N..*********
**************.. `..V.A.C(A$).2.. T.AL$.
J(A$,V,1):AH$.J(A$,V.1,1):.600.< ...Y.Z.
7650.\ ..Y.0:.4:NL.NL.1:.NL.LP..7000.L N
..4,H(S$,8);.. ...4,I(S$.D(NA),6);:Y.Y.1
.. ...V:.4:NL.NL.1:Y.0.. ..... ...******
************.T ...*** SORT GS$ ARRAY.. .
..******************..!./QF.0:. SWITCH F
LAG..!D/.J.0.119..!B/.GS$(J.1)."".J.120:
.12250.V!V/AL$.J(GS$(J.1),3,1).J(GS$(J.1
),2,1).Z!./AH$.J(GS$(J),3,1).J(GS$(J),2,
1)..!./.AL$.AH$.12250..!./QF.1:A$.GS$(J)
:GS$(J).GS$(J.1)..!./GS$(J.1).A$.S!Z/.J:
.QF.1.12000.Y!.0...!.6.*****************
*..".6.*** SORT AT$ ARRAY.!".6.*********
*********.8".6QF.0:. SWITCH FLAG.E".7.J.
0.119.C"27.AT$(J.1)."".J.120:.14250.{"F7
AL$.J(AT$(J.1),2,4).."P7AH$.J(AT$(J),2,4
).."Z7.AL$.AH$.14250.G"X7QF.1:A$.AT$(J):
AT$(J).AT$(J.1).W".7AT$(J.1).A$..".7.J:.
QF.1.14000.."R7...#H?.****************..
#I?.*** CURSOR WORDS.2#J?.**************
**.A#R?.19,147,17,145,29,157,18,146,20,1
48,141,32..#\?.129,149,150,151,152,14,14
2,153,154,155:. 64 STUFF..#F?.144,5,28,1
59,156,30,31,158,8,9,133,137,134,138,135
,139,136,140,140.*$P?.HOME,CLEAR,DOWN,UP
,RIGHT,LEFT,RVS,RVOFF,DEL,INST,RETURN,SP
ACE,ORANGE.V$Z?.BROWN,L.RED,GRAY1,GRAY2,
TEXT,GRAPHIC,L.GRN,L.BLU,GRAY3,BLACK,WHI
TE,RED.A$.?.CYAN,MAGENTA,GREEN,BLUE,YELL
OW,LOCK,UNLOCK,F1,F2,F3,F4,F5,F6,F7,F8,F
8..%.?.7,21,149,22,150,14,142,25,153,15,
143:. 80 COL CURSOR STUFF.L%.?.BELL,D.LI
NE,I.LINE,ER.BEGIN,ER.END,TEXT,GRAPHIC,S
CROLL.UP,SCROLL.DOWN.R%.?.TOP,BOTTOM:. 8
0 COL CURSOR STUFF..%HB.****************
**..%IB.***VERB SEQ VALUES..%JB.********
**********..%RB.182,175,198,193,199,160,
156,157,154,190..&|B.131,150,134,128,189
,165,129,184,161,203.A&.B.141,137,139,13
3,132,181,200,195,136,155.N&.B.147,188,2
02,162,130,168,145,159,176,194..&.B.151,
185,153,152,135,143,140,142,201,187.H&.B
.138,148,180,191,166,186,169,144,.96,158
..&.B.163,192,167,164,183,197,149,146,20
4,205."'.B.206,170,171,172,173,174,177,1
78,179,207.O'BB.208,209,210,211,212,213,
214,215,216,217.|'LB.218,219,220,221,222
,223,224,225,226,227..'VB.228,229,230,23
1,232,233,234,235,236,237.V'.B.238,239,2
40,241,242,243,244,245,246,247..'.B.248,
249,250,251,252,253,254,255..(PF.*******
*******.#(QF.*** INITIALIZE.7(RF.*******
*******.I(SFFL$."":UL$.""..(UFA$."":S$."
":ZR$.G(0):HD$." LIST FOR PROGRA
M ":PN.1:CG.32768.H(ZF.K$(127),VL$(127),
GS$(120),AT$(120),QW(40),QW$(40)..(IF.".
".2)PN$:.".ALL INPUT'S MUST END WITH RE
TURN"./)NF.".PROGRAM NAME;":.". ";P$:
.19000:.E.18030.Z)XF."DATE WITH SLASHES"
:.". ";DA$:.300.S).F."LOAD ADDRESS ="
;L$..).FSY$."P":.B(61654).82.SY$."6"..).
F.B(65154).144.SY$."V".W).F.J.0.40:.QW(J
):.J:.J.0.40:.QW$(J):.J..).F.J.30.40:.A:
.SY$."P".QW(J).A..).F.."*.F.J.30.40:.A$:
.SY$."P".QW$(J).A$.2*.F.:A$."":A.0.M*.F.
".OK - SETTING UP...".P*.F.SY$."V".AL.49
310:AH.49565:Z.1..*HF.SY$."P".AL.45234:A
H.45500:Z.5..*RF.SY$."6".AL.41118:AH.413
73:Z.5.D*YFA$."":A.0.X*.F.J.AL.AH:V.B(J)
..*.F.V.128.A$.A$.G(V):.18180..+.FA$.A$.
(G(V.128)):K$(A).A$." ".)+.FA$."":A.A.1:
../+.G..P+.G.".FORMATTED LIST (Y/N)";FP$
.O+.G."PRINTER OUTPUT (Y/N)";A$..+.G."LI
NE NUMBER RANGE?":LS.0:LF.1E9.C+"G."STAR
T 0...";LS:."END 99999.......";LF..+6G
.A.67.74:K$(A).H(K$(A),C(K$(A)).1):...,@
G.A.42.45:K$(A).H(K$(A),1):..,,JG.A.49.5
1:K$(A).H(K$(A),1):..F,TGK$(36)." ".K$(3
6):K$(39)." ".K$(39):K$(41)." ".K$(41)..
,^GK$(47)." ".K$(47):K$(48)." ".K$(48):K
$(127).".".D,RGK$(35).H(K$(35),4):K$(38)
.H(K$(38),4)..,.G."LINES PER PAGE = 60..
..";LP..-.G."NUMBER OF COPIES 1...";NC:
TC.NC..-.G."GRAPHICS OR TEXT G...";G$.U
-.G.A.0:.G(142):.F(G$).84.SA.7:.G(14).L-
.G.19100:.OD.3.LP.20..-.GTY$."PROGRAM":.
".PRINTING":." P R O G R A M LIST":.7
000:.1000.O.8J.************************.
.-9J.*** OPEN ROUTINES...:J.************
************.6.BJ.15,8,15,"IO":.1,8,3,"0
:".P$.",P,R":.15,E,EM$.D.LJ.E..19200.J.V
J..E..JOD.3:.A$."Y".OD.4:Z.12.T..J.4,OD,
SA:.....K.************************....K.
*** DISK ERROR ROUTINE *.N..K.**********
**************....K.".DISK ERROR #"E;EM$
: 1: 15:.../ N.*** BASIC CROSS REFERENCE
***.7/.N.*** ***.
Z/.N.*** BY ***.}/LO.
*** ***. /.O.***
BILL COLLINS ***.C/.P.***
***../XP.*** &
***..0.P.***
***.,0.P.*** DICK MISHINSKI
***.O0@Q.*** ***.
R0.Q.*****************************...
> CLICK IMAGE PREVIEW FOR FULL MODAL