SPREADSHEET
FILE INFORMATION
FILENAME(S): SPREADSHEET
FILE TYPE(S): PRG
FILE SIZE: 22.2K
FIRST SEEN: 2025-12-01 01:00:21
APPEARS ON: 2 disk(s)
FILE HASH
8641d9f10da45708695b2e632dfb4acab19c38850618be8b3785d2d54c596099
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ULRIK DISK 1A | SPREADSHEET | PRG | hedning, emil | 26 | 1 | DOWNLOAD FILE |
| CHRIS HULP PRG | SPREADSHEET | PRG | Shocktrooper | 21 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 01 00 8B 41 B2 30 A7 41 B2 31 3A 93 |..!....A.0.A.1:.|
00000010: 22 53 50 52 45 41 44 20 43 4F 44 45 22 2C 38 2C |"SPREAD CODE",8,|
00000020: 31 00 3A 08 02 00 8B 41 B2 31 A7 97 34 35 2C 31 |1.:....A.1..45,1|
00000030: 30 33 3A 97 34 36 2C 31 33 30 00 75 08 03 00 97 |03:.46,130.u....|
00000040: 35 33 32 36 35 2C 32 37 3A 97 35 33 32 37 32 2C |53265,27:.53272,|
00000050: 32 31 3A 97 35 36 35 37 36 2C C2 28 35 36 35 37 |21:.56576,.(5657|
00000060: 36 29 B0 31 3A 97 37 39 32 2C 31 39 33 3A 97 37 |6).1:.792,193:.7|
00000070: 38 38 2C 35 32 00 7F 08 04 00 99 C7 28 38 29 00 |88,52.......(8).|
00000080: 9F 08 05 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... *********|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000000A0: BE 08 0A 00 8F 20 4D 49 4E 49 20 4F 46 46 49 43 |..... MINI OFFIC|
000000B0: 45 20 20 53 50 52 45 41 44 53 48 45 45 54 00 D9 |E SPREADSHEET..|
000000C0: 08 14 00 8F 20 43 4F 4E 56 45 52 54 45 44 20 42 |.... CONVERTED B|
000000D0: 59 20 43 2E 44 41 52 42 59 00 F5 08 28 00 8F 20 |Y C.DARBY...(.. |
000000E0: 28 43 29 20 44 41 54 41 42 41 53 45 20 53 4F 46 |(C) DATABASE SOF|
000000F0: 54 57 41 52 45 00 08 09 32 00 8F 20 20 20 20 20 |TWARE...2.. |
00000100: 20 20 20 20 31 39 38 35 00 27 09 3C 00 8F 20 2A | 1985.'.<.. *|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000120: 2A 2A 2A 2A 2A 2A 2A 00 35 09 41 00 8D 20 31 33 |*******.5.A.. 13|
00000130: 30 30 30 3A 9C 00 51 09 46 00 46 57 B2 39 3A 56 |000:..Q.F.FW.9:V|
00000140: 41 B2 30 3A 44 24 B2 22 D7 D1 D5 C9 4C 49 4E 45 |A.0:D$."....LINE|
00000150: 22 00 66 09 50 00 46 4C B2 30 3A 4F 43 B2 AB 31 |".f.P.FL.0:OC..1|
00000160: 3A 4F 4F B2 AB 31 00 74 09 55 00 46 33 B2 30 3A |:OO..1.t.U.F3.0:|
00000170: 46 34 B2 30 00 98 09 57 00 86 20 4C 24 28 31 2C |F4.0...W.. L$(1,|
00000180: 38 30 29 2C 50 24 28 31 2C 38 30 29 2C 50 28 38 |80),P$(1,80),P(8|
00000190: 30 29 2C 53 28 38 30 29 00 A1 09 5A 00 99 22 93 |0),S(80)...Z..".|
000001A0: 22 00 B9 09 5F 00 97 20 35 33 32 38 30 2C 30 3A |"..._.. 53280,0:|
000001B0: 97 20 35 33 32 38 31 2C 30 00 C2 09 60 00 99 22 |. 53281,0...`.."|
000001C0: 05 22 00 E3 09 64 00 99 22 20 20 20 20 20 20 20 |."...d.." |
000001D0: 20 20 20 20 20 20 20 53 50 52 45 41 44 53 48 45 | SPREADSHE|
000001E0: 45 54 22 00 04 0A 6E 00 99 22 20 20 20 20 20 20 |ET"...n.." |
000001F0: 20 20 20 20 20 20 20 20 C6 C6 C6 C6 C6 C6 C6 C6 | ........|
00000200: C6 C6 C6 22 00 0C 0A 78 00 99 3A 99 00 29 0A 82 |..."...x..:..)..|
00000210: 00 99 22 20 43 52 45 41 54 45 20 46 49 4C 45 20 |.." CREATE FILE |
00000220: 28 59 2F 4E 29 20 3F 22 3B 00 42 0A 8C 00 A1 20 |(Y/N) ?";.B.... |
00000230: 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 89 20 31 |A$:. A$."" . . 1|
00000240: 34 30 00 5D 0A 96 00 8B 20 41 24 B2 22 4E 22 20 |40.].... A$."N" |
00000250: A7 20 99 22 4E 4F 22 3A 89 20 34 30 30 00 69 0A |. ."NO":. 400.i.|
00000260: A0 00 99 20 22 59 45 53 22 00 73 0A AA 00 99 3A |... "YES".s....:|
00000270: 99 3A 99 00 99 0A B4 00 99 22 20 4E 4F 20 4F 46 |.:......." NO OF|
00000280: 20 43 4F 4C 55 4D 4E 53 20 28 35 20 2D 20 32 36 | COLUMNS (5 - 26|
00000290: 29 20 22 3B 3A 85 20 41 24 00 B9 0A BE 00 8B 20 |) ";:. A$...... |
000002A0: C5 28 41 24 29 B1 34 20 AF C5 28 41 24 29 B3 32 |.(A$).4 ..(A$).2|
000002B0: 37 20 A7 20 89 20 32 30 30 00 C8 0A BF 00 99 A3 |7 . . 200.......|
000002C0: 32 36 29 3B 22 91 22 3B 00 E2 0A C0 00 81 20 4C |26);".";...... L|
000002D0: B2 31 20 A4 20 C3 28 41 24 29 3A 99 22 20 22 3B |.1 . .(A$):." ";|
000002E0: 3A 82 00 F1 0A C2 00 99 22 91 22 3A 89 20 31 38 |:.......".":. 18|
000002F0: 30 00 FE 0A C8 00 4C 32 B2 C5 28 41 24 29 00 06 |0.....L2..(A$)..|
00000300: 0B D2 00 99 3A 99 00 14 0B D3 00 4C 31 B2 34 38 |....:......L1.48|
00000310: 30 AD 4C 32 00 3E 0B DC 00 99 22 20 4E 4F 20 4F |0.L2.>...." NO O|
00000320: 46 20 52 4F 57 53 20 28 39 20 2D 22 3B B5 28 4C |F ROWS (9 -";.(L|
00000330: 31 29 3B 22 9D 29 20 22 3B 3A 85 20 41 24 00 64 |1);".) ";:. A$.d|
00000340: 0B E6 00 8B 20 C5 28 41 24 29 B1 38 20 AF 20 C5 |.... .(A$).8 . .|
00000350: 28 41 24 29 B3 B5 28 4C 31 29 AA 31 20 A7 20 89 |(A$)..(L1).1 . .|
00000360: 20 32 34 30 00 73 0B E8 00 99 A3 32 33 29 3B 22 | 240.s.....23);"|
00000370: 91 22 3B 00 8D 0B EA 00 81 20 4C B2 31 20 A4 20 |.";...... L.1 . |
00000380: C3 28 41 24 29 3A 99 22 20 22 3B 3A 82 00 97 0B |.(A$):." ";:....|
00000390: EB 00 99 20 22 91 22 00 A1 0B EC 00 89 20 32 32 |... "."...... 22|
000003A0: 30 00 AE 0B F0 00 4C 31 B2 C5 28 41 24 29 00 C2 |0.....L1..(A$)..|
000003B0: 0B FA 00 4C 31 B2 4C 31 AB 32 3A 4C 32 B2 4C 32 |...L1.L1.2:L2.L2|
000003C0: AB 32 00 EB 0B 04 01 86 20 52 24 28 4C 32 AA 31 |.2...... R$(L2.1|
000003D0: 29 2C 43 24 28 4C 31 29 2C 46 24 28 4C 31 2C 4C |),C$(L1),F$(L1,L|
000003E0: 32 29 2C 41 28 4C 31 2C 4C 32 29 00 0E 0C 2C 01 |2),A(L1,L2)...,.|
000003F0: 81 20 58 B2 30 20 A4 20 4C 32 3A 52 24 28 58 29 |. X.0 . L2:R$(X)|
00000400: B2 22 20 20 20 20 20 20 20 20 20 22 3A 82 00 31 |." ":..1|
00000410: 0C 36 01 81 20 58 B2 30 20 A4 20 4C 31 3A 43 24 |.6.. X.0 . L1:C$|
00000420: 28 58 29 B2 22 20 20 20 20 20 20 20 20 20 22 3A |(X)." ":|
00000430: 82 00 4A 0C 40 01 52 24 28 4C 32 AA 31 29 B2 22 |..J.@.R$(L2.1)."|
00000440: D1 D1 D1 D1 D1 D1 D1 D1 D1 22 00 59 0C 4A 01 81 |.........".Y.J..|
00000450: 20 58 B2 31 20 A4 20 4C 32 00 68 0C 54 01 81 20 | X.1 . L2.h.T.. |
00000460: 59 B2 31 20 A4 20 4C 31 00 80 0C 5E 01 46 24 28 |Y.1 . L1...^.F$(|
00000470: 59 2C 58 29 B2 22 22 3A 41 28 59 2C 58 29 B2 30 |Y,X)."":A(Y,X).0|
00000480: 00 88 0C 68 01 82 3A 82 00 92 0C 72 01 89 20 38 |...h..:....r.. 8|
00000490: 31 30 00 B3 0C 90 01 8F 20 49 4E 50 55 54 20 53 |10...... INPUT S|
000004A0: 50 52 45 41 44 53 48 45 45 54 20 4F 46 46 20 46 |PREADSHEET OFF F|
000004B0: 49 4C 45 00 CB 0C 9A 01 99 3A 99 22 4F 4C 44 20 |ILE......:."OLD |
000004C0: 46 49 4C 45 20 4E 41 4D 45 22 3B 00 E4 0C A4 01 |FILE NAME";.....|
000004D0: 85 20 4E 24 3A 8B 20 4E 24 B2 22 22 20 A7 20 89 |. N$:. N$."" . .|
000004E0: 20 34 31 30 00 12 0D A9 01 8B 20 C3 28 4E 24 29 | 410...... .(N$)|
000004F0: B1 31 36 20 A7 20 99 22 54 4F 4F 20 4D 41 4E 59 |.16 . ."TOO MANY|
00000500: 20 43 48 41 52 41 43 54 45 52 53 22 3A 89 20 34 | CHARACTERS":. 4|
00000510: 31 30 00 51 0D AE 01 99 3A 99 22 44 4F 20 59 4F |10.Q....:."DO YO|
00000520: 55 20 57 49 53 48 20 54 4F 20 41 44 44 20 45 58 |U WISH TO ADD EX|
00000530: 54 52 41 20 52 4F 57 53 20 22 3A 99 22 4F 52 20 |TRA ROWS ":."OR |
00000540: 43 4F 4C 55 4D 4E 53 20 28 59 2F 4E 29 20 3F 22 |COLUMNS (Y/N) ?"|
00000550: 3B 00 6A 0D B8 01 A1 20 41 24 3A 8B 20 41 24 B2 |;.j.... A$:. A$.|
00000560: 22 22 20 A7 20 89 20 34 34 30 00 8B 0D C2 01 8B |"" . . 440......|
00000570: 20 41 24 B2 22 59 22 20 A7 20 99 22 59 45 53 22 | A$."Y" . ."YES"|
00000580: 3A 46 4C B2 31 3A 89 20 34 37 30 00 95 0D CC 01 |:FL.1:. 470.....|
00000590: 99 22 4E 4F 22 00 A4 0D D6 01 9F 20 31 2C 38 2C |."NO"...... 1,8,|
000005A0: 30 2C 4E 24 00 AE 0D E0 01 84 31 2C 4C 31 00 B8 |0,N$......1,L1..|
000005B0: 0D E2 01 84 31 2C 4C 32 00 CB 0D EA 01 8B 20 46 |....1,L2...... F|
000005C0: 4C B2 30 20 A7 20 89 20 36 34 30 00 D4 0D EF 01 |L.0 . . 640.....|
000005D0: 99 22 93 22 00 F6 0D F4 01 99 22 4E 4F 2E 20 4F |."."......"NO. O|
000005E0: 46 20 52 4F 57 53 20 53 45 4C 45 43 54 45 44 20 |F ROWS SELECTED |
000005F0: 22 3B 4C 31 AA 32 00 FC 0D F9 01 99 00 21 0E FE |";L1.2.......!..|
00000600: 01 99 22 4E 4F 2E 20 4F 46 20 43 4F 4C 55 4D 4E |.."NO. OF COLUMN|
00000610: 53 20 53 45 4C 45 43 54 45 44 20 22 3B 4C 32 AA |S SELECTED ";L2.|
00000620: 32 00 43 0E 08 02 99 3A 99 22 4E 4F 2E 20 4F 46 |2.C....:."NO. OF|
00000630: 20 41 44 44 49 54 49 4F 4E 41 4C 20 52 4F 57 53 | ADDITIONAL ROWS|
00000640: 20 22 3B 00 4C 0E 12 02 85 20 52 32 00 6F 0E 1C | ";.L.... R2.o..|
00000650: 02 8B 20 4C 31 AA 52 32 B1 32 32 20 A7 20 99 22 |.. L1.R2.22 . ."|
00000660: 54 4F 4F 20 4D 41 4E 59 22 3A 89 20 35 32 30 00 |TOO MANY":. 520.|
00000670: 93 0E 26 02 99 3A 99 22 4E 4F 2E 20 4F 46 20 41 |..&..:."NO. OF A|
00000680: 44 44 49 54 49 4F 4E 41 4C 20 43 4F 4C 55 4D 4E |DDITIONAL COLUMN|
00000690: 53 22 3B 00 9C 0E 30 02 85 20 52 31 00 BF 0E 3A |S";...0.. R1...:|
000006A0: 02 8B 20 4C 32 AA 52 31 B1 32 32 20 A7 20 99 22 |.. L2.R1.22 . ."|
000006B0: 54 4F 4F 20 4D 41 4E 59 22 3A 89 20 35 35 30 00 |TOO MANY":. 550.|
000006C0: C7 0E 44 02 99 3A 99 00 ED 0E 4E 02 99 20 22 4E |..D..:....N.. "N|
000006D0: 4F 2E 20 4F 52 20 52 4F 57 53 20 53 45 4C 45 43 |O. OR ROWS SELEC|
000006E0: 54 45 44 20 22 3B 4C 31 AA 52 32 AA 32 00 17 0F |TED ";L1.R2.2...|
000006F0: 58 02 99 3A 99 22 4E 4F 2E 20 4F 46 20 43 4F 4C |X..:."NO. OF COL|
00000700: 55 4D 4E 53 20 53 45 4C 45 43 54 45 44 20 22 3B |UMNS SELECTED ";|
00000710: 4C 32 AA 52 31 AA 32 00 33 0F 62 02 99 3A 99 22 |L2.R1.2.3.b..:."|
00000720: 49 53 20 54 48 49 53 20 4F 4B 20 28 59 2F 4E 29 |IS THIS OK (Y/N)|
00000730: 20 22 3B 00 4C 0F 6C 02 A1 20 41 24 3A 8B 20 41 | ";.L.l.. A$:. A|
00000740: 24 B2 22 22 20 A7 20 89 20 36 32 30 00 61 0F 76 |$."" . . 620.a.v|
00000750: 02 8B 20 41 24 B2 22 4E 22 20 A7 20 89 20 34 39 |.. A$."N" . . 49|
00000760: 35 00 9C 0F 80 02 86 20 52 24 28 4C 32 AA 31 AA |5...... R$(L2.1.|
00000770: 52 31 29 2C 43 24 28 4C 31 AA 52 32 29 2C 41 28 |R1),C$(L1.R2),A(|
00000780: 4C 31 AA 52 32 2C 4C 32 AA 52 31 29 2C 46 24 28 |L1.R2,L2.R1),F$(|
00000790: 4C 31 AA 52 32 2C 4C 32 AA 52 31 29 00 AB 0F 85 |L1.R2,L2.R1)....|
000007A0: 02 4B B2 31 36 30 3A 4C B2 33 32 00 DA 0F 8A 02 |.K.160:L.32.....|
000007B0: 84 31 2C 52 24 28 4C 32 AA 31 29 3A 58 24 B2 52 |.1,R$(L2.1):X$.R|
000007C0: 24 28 4C 32 AA 31 29 3A 8D 20 37 37 30 30 3A 52 |$(L2.1):. 7700:R|
000007D0: 24 28 4C 32 AA 31 29 B2 58 24 00 18 10 94 02 8B |$(L2.1).X$......|
000007E0: 20 46 4C B2 31 20 A7 20 52 24 28 4C 32 AA 31 AA | FL.1 . R$(L2.1.|
000007F0: 52 31 29 B2 52 24 28 4C 32 AA 31 29 3A 8B 52 31 |R1).R$(L2.1):.R1|
00000800: B3 B1 30 A7 52 24 28 4C 32 AA 31 29 B2 22 20 20 |..0.R$(L2.1)." |
00000810: 20 20 20 20 20 20 20 22 00 4B 10 9E 02 81 20 49 | ".K.... I|
00000820: B2 30 20 A4 20 4C 32 3A 84 31 2C 52 24 28 49 29 |.0 . L2:.1,R$(I)|
00000830: 3A 58 24 B2 52 24 28 49 29 3A 8D 20 37 37 30 30 |:X$.R$(I):. 7700|
00000840: 3A 52 24 28 49 29 B2 58 24 3A 82 00 7E 10 A8 02 |:R$(I).X$:..~...|
00000850: 81 20 49 B2 30 20 A4 20 4C 31 3A 84 31 2C 43 24 |. I.0 . L1:.1,C$|
00000860: 28 49 29 3A 58 24 B2 43 24 28 49 29 3A 8D 20 37 |(I):X$.C$(I):. 7|
00000870: 37 30 30 3A 43 24 28 49 29 B2 58 24 3A 82 00 8D |700:C$(I).X$:...|
00000880: 10 B2 02 81 20 4A B2 30 20 A4 20 4C 32 00 9C 10 |.... J.0 . L2...|
00000890: BC 02 81 20 49 B2 30 20 A4 20 4C 31 00 AA 10 C6 |... I.0 . L1....|
000008A0: 02 84 31 2C 41 28 49 2C 4A 29 00 C8 10 CB 02 84 |..1,A(I,J)......|
000008B0: 31 2C 43 24 3A 84 31 2C 58 24 3A 8B 43 24 B2 22 |1,C$:.1,X$:.C$."|
000008C0: 58 22 A7 43 24 B2 22 22 00 DA 10 CC 02 8B 58 24 |X".C$.""......X$|
000008D0: B2 22 58 22 A7 58 24 B2 22 22 00 EC 10 CD 02 46 |."X".X$."".....F|
000008E0: 24 28 49 2C 4A 29 B2 43 24 AA 58 24 00 F4 10 D0 |$(I,J).C$.X$....|
000008F0: 02 82 3A 82 00 FB 10 DA 02 A0 31 00 0E 11 E4 02 |..:.......1.....|
00000900: 8B 20 46 4C B2 30 20 A7 20 89 20 38 31 30 00 3E |. FL.0 . . 810.>|
00000910: 11 EE 02 8B 52 31 B3 B1 30 A7 81 20 4A B2 4C 32 |....R1..0.. J.L2|
00000920: AA 31 20 A4 20 4C 32 AA 52 31 3A 52 24 28 4A 29 |.1 . L2.R1:R$(J)|
00000930: B2 22 20 20 20 20 20 20 20 20 20 22 3A 82 00 6E |." ":..n|
00000940: 11 F8 02 8B 52 32 B3 B1 30 A7 81 20 49 B2 4C 31 |....R2..0.. I.L1|
00000950: AA 31 20 A4 20 4C 31 AA 52 32 3A 43 24 28 49 29 |.1 . L1.R2:C$(I)|
00000960: B2 22 20 20 20 20 20 20 20 20 20 22 3A 82 00 82 |." ":...|
00000970: 11 FA 02 8B 52 31 B2 30 B0 52 32 B2 30 A7 89 37 |....R1.0.R2.0..7|
00000980: 39 30 00 97 11 FD 02 81 20 4A B2 4C 32 AA 31 20 |90...... J.L2.1 |
00000990: A4 20 4C 32 AA 52 31 00 AC 11 02 03 81 20 49 B2 |. L2.R1...... I.|
000009A0: 4C 31 AA 31 20 A4 20 4C 31 AA 52 32 00 C4 11 07 |L1.1 . L1.R2....|
000009B0: 03 41 28 49 2C 4A 29 B2 30 3A 46 24 28 49 2C 4A |.A(I,J).0:F$(I,J|
000009C0: 29 B2 22 22 00 CC 11 0C 03 82 3A 82 00 E2 11 16 |).""......:.....|
000009D0: 03 4C 31 B2 4C 31 AA 52 32 3A 4C 32 B2 4C 32 AA |.L1.L1.R2:L2.L2.|
000009E0: 52 31 00 EE 11 2A 03 8F 20 49 4E 49 54 32 00 FC |R1...*.. INIT2..|
000009F0: 11 34 03 44 52 B2 30 3A 44 43 B2 30 00 16 12 3E |.4.DR.0:DC.0...>|
00000A00: 03 8D 20 33 30 30 30 3A 8F 20 44 49 53 50 4C 41 |.. 3000:. DISPLA|
00000A10: 59 50 41 52 54 32 00 2B 12 48 03 8D 20 33 32 30 |YPART2.+.H.. 320|
00000A20: 30 3A 8F 20 44 49 53 50 4C 41 59 00 39 12 52 03 |0:. DISPLAY.9.R.|
00000A30: 43 52 B2 37 3A 43 43 B2 30 00 4E 12 5C 03 8D 20 |CR.7:CC.0.N.\.. |
00000A40: 33 36 30 30 3A 8F 20 43 55 52 53 4F 52 32 00 64 |3600:. CURSOR2.d|
00000A50: 12 66 03 8F 20 43 4F 4D 4D 41 4E 44 20 53 45 43 |.f.. COMMAND SEC|
00000A60: 54 49 4F 4E 00 7B 12 70 03 99 22 13 22 3A 99 22 |TION.{.p..".":."|
00000A70: 43 4F 4D 4D 41 4E 44 20 3A 22 3B 00 94 12 7A 03 |COMMAND :";...z.|
00000A80: A1 20 43 24 3A 8B 20 43 24 B2 22 22 20 A7 20 89 |. C$:. C$."" . .|
00000A90: 20 38 39 30 00 CA 12 84 03 8B 20 43 24 B2 22 91 | 890...... C$.".|
00000AA0: 22 20 B0 20 43 24 B2 22 11 22 20 B0 20 43 24 B2 |" . C$."." . C$.|
00000AB0: 22 1D 22 20 B0 20 43 24 B2 22 9D 22 20 A7 8D 20 |"." . C$."." .. |
00000AC0: 34 30 30 30 3A 89 20 38 38 30 00 F9 12 8E 03 8B |4000:. 880......|
00000AD0: 20 43 24 B1 B2 22 30 22 20 AF 20 43 24 B3 B2 22 | C$.."0" . C$.."|
00000AE0: 39 22 20 A7 20 8D 20 34 35 30 30 3A 89 38 38 30 |9" . . 4500:.880|
00000AF0: 3A 8F 20 4E 55 4D 42 45 52 00 2F 13 90 03 8B 20 |:. NUMBER./.... |
00000B00: 43 24 B2 22 2D 22 20 B0 20 43 24 B2 22 2B 22 20 |C$."-" . C$."+" |
00000B10: B0 20 43 24 B2 22 2E 22 20 A7 8D 20 34 35 30 30 |. C$."." .. 4500|
00000B20: 3A 89 20 38 38 30 3A 8F 20 4E 55 4D 42 45 52 00 |:. 880:. NUMBER.|
00000B30: 55 13 93 03 8B 20 43 24 B2 22 4F 22 20 A7 20 8D |U.... C$."O" . .|
00000B40: 20 35 32 30 30 3A 89 20 38 38 30 3A 8F 20 4E 55 | 5200:. 880:. NU|
00000B50: 4D 42 45 52 32 00 7A 13 95 03 8B 20 43 24 B2 22 |MBER2.z.... C$."|
00000B60: 55 22 20 A7 20 8D 20 31 36 30 30 3A 89 20 38 38 |U" . . 1600:. 88|
00000B70: 30 3A 8F 20 55 50 44 41 54 45 00 9E 13 98 03 8B |0:. UPDATE......|
00000B80: 20 43 24 B2 22 52 22 20 A7 20 8D 20 35 36 30 30 | C$."R" . . 5600|
00000B90: 3A 89 20 38 38 30 3A 8F 20 4C 41 42 45 4C 00 C2 |:. 880:. LABEL..|
00000BA0: 13 A2 03 8B 20 43 24 B2 22 43 22 20 A7 20 8D 20 |.... C$."C" . . |
00000BB0: 36 30 30 30 3A 89 20 38 38 30 3A 8F 20 4C 41 42 |6000:. 880:. LAB|
00000BC0: 45 4C 00 ED 13 AC 03 8B 20 43 24 B2 22 54 22 20 |EL...... C$."T" |
00000BD0: A7 20 8D 20 36 34 30 30 3A 89 20 38 38 30 3A 8F |. . 6400:. 880:.|
00000BE0: 20 43 4F 52 4E 45 52 20 4C 41 42 45 4C 00 16 14 | CORNER LABEL...|
00000BF0: B6 03 8B 20 43 24 B2 22 58 22 20 A7 20 8D 20 36 |... C$."X" . . 6|
00000C00: 37 30 30 3A 89 20 38 38 30 3A 8F 20 42 4C 41 4E |700:. 880:. BLAN|
00000C10: 4B 20 4C 49 4E 45 00 41 14 C0 03 8B 20 43 24 B2 |K LINE.A.... C$.|
00000C20: 22 59 22 20 A7 20 8D 20 36 39 30 30 3A 89 20 38 |"Y" . . 6900:. 8|
00000C30: 38 30 3A 8F 20 42 4C 41 4E 4B 20 43 4F 4C 55 4D |80:. BLANK COLUM|
00000C40: 4E 00 6B 14 CA 03 8B 20 43 24 B2 22 48 22 20 A7 |N.k.... C$."H" .|
00000C50: 20 8D 20 37 32 30 30 3A 89 20 38 38 30 3A 8F 20 | . 7200:. 880:. |
00000C60: 48 4F 4D 45 20 43 55 52 53 4F 52 00 95 14 D4 03 |HOME CURSOR.....|
00000C70: 8B 20 43 24 B2 22 5A 22 20 A7 20 8D 20 37 33 30 |. C$."Z" . . 730|
00000C80: 30 3A 89 20 38 38 30 3A 8F 20 43 4C 45 41 52 20 |0:. 880:. CLEAR |
00000C90: 56 41 55 45 53 00 BD 14 DE 03 8B 20 43 24 B2 22 |VAUES...... C$."|
00000CA0: 53 22 20 A7 20 8D 20 37 35 30 30 3A 89 20 38 38 |S" . . 7500:. 88|
00000CB0: 30 3A 8F 20 53 41 56 45 20 46 49 4C 45 00 EA 14 |0:. SAVE FILE...|
00000CC0: E3 03 8B 20 43 24 B2 22 46 22 20 A7 20 8D 20 39 |... C$."F" . . 9|
00000CD0: 30 30 30 3A 89 20 38 38 30 3A 8F 20 45 4E 54 45 |000:. 880:. ENTE|
00000CE0: 52 20 46 55 4E 43 54 49 4F 4E 00 1A 15 E5 03 8B |R FUNCTION......|
00000CF0: 20 43 24 B2 22 45 22 20 A7 20 8D 20 31 30 30 30 | C$."E" . . 1000|
00000D00: 30 3A 89 20 38 38 30 3A 8F 20 44 49 53 50 4C 41 |0:. 880:. DISPLA|
00000D10: 59 20 46 55 4E 43 54 49 4F 4E 00 47 15 E6 03 8B |Y FUNCTION.G....|
00000D20: 20 43 24 B2 22 44 22 20 A7 20 8D 20 31 30 31 30 | C$."D" . . 1010|
00000D30: 30 3A 89 20 38 38 30 3A 8F 20 43 4F 50 59 20 46 |0:. 880:. COPY F|
00000D40: 55 4E 43 54 49 4F 4E 00 77 15 E8 03 8B 20 43 24 |UNCTION.w.... C$|
00000D50: B2 22 50 22 20 A7 20 8D 20 37 38 30 30 3A 89 20 |."P" . . 7800:. |
00000D60: 38 38 30 3A 8F 20 50 52 49 4E 54 20 53 50 52 45 |880:. PRINT SPRE|
00000D70: 41 44 53 48 45 45 54 00 9F 15 EA 03 8B 20 43 24 |ADSHEET...... C$|
00000D80: B2 22 57 22 20 A7 20 8D 20 31 32 30 30 30 3A 8F |."W" . . 12000:.|
00000D90: 20 43 4C 45 41 52 20 46 55 4E 43 54 49 4F 4E 00 | CLEAR FUNCTION.|
00000DA0: C4 15 ED 03 8B 20 43 24 B2 22 51 22 20 A7 20 89 |..... C$."Q" . .|
00000DB0: 20 38 38 30 30 3A 51 55 49 54 20 AF 20 52 45 53 | 8800:QUIT . RES|
00000DC0: 54 41 52 54 00 EC 15 EE 03 8B 20 43 24 B2 22 4C |TART...... C$."L|
00000DD0: 22 20 A7 20 8D 20 31 32 31 30 30 3A 8F 20 50 52 |" . . 12100:. PR|
00000DE0: 49 4E 54 20 46 4F 52 4D 55 4C 41 45 00 02 16 F2 |INT FORMULAE....|
00000DF0: 03 8B 20 43 24 B3 B1 22 05 22 20 A7 20 89 20 38 |.. C$.."." . . 8|
00000E00: 38 30 00 1D 16 F7 03 99 22 13 22 3A 99 A3 31 30 |80......".":..10|
00000E10: 29 3B 22 45 4E 44 20 20 20 20 20 20 22 00 3E 16 |);"END ".>.|
00000E20: F8 03 99 A3 31 30 29 3B 22 41 52 45 20 59 4F 55 |....10);"ARE YOU|
00000E30: 20 53 55 52 45 20 28 59 2F 4E 29 3F 22 3B 00 58 | SURE (Y/N)?";.X|
00000E40: 16 F9 03 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 |.... A$:. A$."" |
00000E50: A7 20 89 20 31 30 31 37 00 92 16 FA 03 8B 41 24 |. . 1017......A$|
00000E60: B2 22 59 22 20 A7 99 22 13 22 3A 99 A3 31 30 29 |."Y" ..".":..10)|
00000E70: 3B 22 20 20 20 22 3A 99 A3 31 30 29 3B 22 20 20 |;" ":..10);" |
00000E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E90: 20 22 00 A6 16 FB 03 8B 20 41 24 B2 22 4E 22 20 | "...... A$."N" |
00000EA0: A7 89 20 38 38 30 00 CD 16 FC 03 99 22 13 22 3A |.. 880......".":|
00000EB0: 99 A3 31 30 29 3B 22 20 20 20 20 20 20 20 20 20 |..10);" |
00000EC0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 F5 16 | "...|
00000ED0: FD 03 99 22 13 22 3A 99 A3 31 30 29 3B 22 53 41 |...".":..10);"SA|
00000EE0: 56 45 20 46 49 4C 45 20 28 59 2F 4E 29 20 3F 20 |VE FILE (Y/N) ? |
00000EF0: 20 20 20 20 22 00 0F 17 FE 03 A1 20 41 24 3A 8B | "...... A$:.|
00000F00: 20 41 24 B2 22 22 20 A7 20 89 20 31 30 32 32 00 | A$."" . . 1022.|
00000F10: 25 17 00 04 8B 20 41 24 B2 22 59 22 20 A7 20 8D |%.... A$."Y" . .|
00000F20: 20 37 35 30 30 00 52 17 05 04 99 22 93 22 3A 99 | 7500.R....".":.|
00000F30: 3A 99 3A 99 A3 31 35 29 3B 22 C0 C0 C0 C0 C0 C0 |:.:..15);"......|
00000F40: C0 22 3A 99 A3 31 35 29 3B 22 20 45 20 4E 20 44 |.":..15);" E N D|
00000F50: 20 22 00 66 17 06 04 99 A3 31 35 29 3B 22 C0 C0 | ".f.....15);"..|
00000F60: C0 C0 C0 C0 C0 22 00 6C 17 10 04 80 00 7F 17 4C |.....".l.......L|
00000F70: 04 8F 20 45 56 41 4C 20 52 4F 55 54 49 4E 45 00 |.. EVAL ROUTINE.|
00000F80: 9F 17 56 04 8F 20 52 45 56 45 52 53 45 44 20 50 |..V.. REVERSED P|
00000F90: 4F 4C 49 53 48 20 45 56 41 4C 55 41 54 4F 52 00 |OLISH EVALUATOR.|
00000FA0: AD 17 60 04 50 53 B2 30 3A 53 50 B2 30 00 B9 17 |..`.PS.0:SP.0...|
00000FB0: 6A 04 53 50 B2 53 50 AA 31 00 CC 17 74 04 43 24 |j.SP.SP.1...t.C$|
00000FC0: B2 CA 28 46 46 24 2C 53 50 2C 31 29 00 E6 17 76 |..(FF$,SP,1)...v|
00000FD0: 04 8B 20 43 24 B2 C7 28 32 31 35 29 20 20 A7 20 |.. C$..(215) . |
00000FE0: 89 20 31 31 39 30 00 FC 17 7E 04 8B 20 43 24 B2 |. 1190...~.. C$.|
00000FF0: 22 DF 22 20 A7 20 89 20 31 32 30 30 00 1F 18 88 |"." . . 1200....|
00001000: 04 8B 20 C6 28 43 24 29 B1 34 31 20 AF 20 C6 28 |.. .(C$).41 . .(|
00001010: 43 24 29 B3 34 38 20 A7 20 89 20 31 33 30 30 00 |C$).48 . . 1300.|
00001020: 3F 18 92 04 8B 20 43 24 B1 22 41 22 20 AF 20 43 |?.... C$."A" . C|
00001030: 24 B3 B2 22 5A 22 20 A7 20 89 20 31 34 30 30 00 |$.."Z" . . 1400.|
00001040: 4A 18 9C 04 89 20 31 31 33 30 00 50 18 A6 04 8E |J.... 1130.P....|
00001050: 00 6A 18 B0 04 8F 20 50 55 52 45 20 4E 55 4D 42 |.j.... PURE NUMB|
00001060: 45 52 20 52 4F 55 54 49 4E 45 00 7A 18 BA 04 4C |ER ROUTINE.z...L|
00001070: B2 30 3A 4E 4F B2 53 50 AA 31 00 8C 18 BF 04 4C |.0:NO.SP.1.....L|
00001080: B2 4C AA 31 3A 53 50 B2 53 50 AA 31 00 9F 18 C4 |.L.1:SP.SP.1....|
00001090: 04 54 24 B2 CA 28 46 46 24 2C 53 50 2C 31 29 00 |.T$..(FF$,SP,1).|
000010A0: B5 18 CE 04 8B 20 54 24 B2 22 2E 22 20 A7 20 89 |..... T$."." . .|
000010B0: 20 31 32 31 35 00 D4 18 D8 04 8B 20 54 24 B3 22 | 1215...... T$."|
000010C0: 30 22 20 B0 20 54 24 B1 22 39 22 20 A7 20 89 20 |0" . T$."9" . . |
000010D0: 31 32 36 30 00 DF 18 E2 04 89 20 31 32 31 35 00 |1260...... 1215.|
000010E0: EB 18 EC 04 50 53 B2 50 53 AA 31 00 06 19 F6 04 |....PS.PS.1.....|
000010F0: 53 28 50 53 29 B2 C5 28 CA 28 46 46 24 2C 4E 4F |S(PS)..(.(FF$,NO|
00001100: 2C 4C AB 31 29 29 00 12 19 00 05 53 50 B2 53 50 |,L.1)).....SP.SP|
00001110: AB 31 00 1D 19 0A 05 89 20 31 31 38 30 00 34 19 |.1...... 1180.4.|
00001120: 14 05 8F 20 4F 50 45 52 41 54 4F 52 20 52 4F 55 |... OPERATOR ROU|
00001130: 54 49 4E 45 00 59 19 1E 05 8B 20 43 24 B2 22 2B |TINE.Y.... C$."+|
00001140: 22 20 A7 20 53 28 50 53 AB 31 29 B2 53 28 50 53 |" . S(PS.1).S(PS|
00001150: AB 31 29 AA 53 28 50 53 29 00 7E 19 28 05 8B 20 |.1).S(PS).~.(.. |
00001160: 43 24 B2 22 2D 22 20 A7 20 53 28 50 53 AB 31 29 |C$."-" . S(PS.1)|
00001170: B2 53 28 50 53 AB 31 29 AB 53 28 50 53 29 00 A3 |.S(PS.1).S(PS)..|
00001180: 19 32 05 8B 20 43 24 B2 22 2A 22 20 A7 20 53 28 |.2.. C$."*" . S(|
00001190: 50 53 AB 31 29 B2 53 28 50 53 AB 31 29 AC 53 28 |PS.1).S(PS.1).S(|
000011A0: 50 53 29 00 C1 19 37 05 8B 20 43 24 B2 22 2F 22 |PS)...7.. C$."/"|
000011B0: 20 AF 20 53 28 50 53 29 B2 30 20 A7 20 31 33 35 | . S(PS).0 . 135|
000011C0: 30 00 E6 19 3C 05 8B 20 43 24 B2 22 2F 22 20 A7 |0...<.. C$."/" .|
000011D0: 20 53 28 50 53 AB 31 29 B2 53 28 50 53 AB 31 29 | S(PS.1).S(PS.1)|
000011E0: AD 53 28 50 53 29 00 0B 1A 46 05 8B 20 43 24 B2 |.S(PS)...F.. C$.|
000011F0: 22 5E 22 20 A7 20 53 28 50 53 AB 31 29 B2 53 28 |"^" . S(PS.1).S(|
00001200: 50 53 AB 31 29 AE 53 28 50 53 29 00 28 1A 4B 05 |PS.1).S(PS).(.K.|
00001210: 8B 20 43 24 B2 22 3D 22 20 A7 20 53 28 50 53 AB |. C$."=" . S(PS.|
00001220: 31 29 B2 53 28 50 53 29 00 34 1A 50 05 50 53 B2 |1).S(PS).4.P.PS.|
00001230: 50 53 AB 31 00 3F 1A 5A 05 89 20 31 31 38 30 00 |PS.1.?.Z.. 1180.|
00001240: 59 1A 78 05 8F 20 50 55 52 45 20 53 54 52 49 4E |Y.x.. PURE STRIN|
00001250: 47 20 52 4F 55 54 49 4E 45 00 6E 1A 7D 05 54 24 |G ROUTINE.n.}.T$|
00001260: B2 CA 28 46 46 24 2C 53 50 AA 31 2C 31 29 00 A0 |..(FF$,SP.1,1)..|
00001270: 1A 82 05 8B 20 54 24 B3 22 30 22 20 B0 20 54 24 |.... T$."0" . T$|
00001280: B1 22 39 22 20 A7 20 54 B2 C5 28 CA 28 46 46 24 |."9" . T..(.(FF$|
00001290: 2C 53 50 AA 31 2C 31 29 29 3A 89 20 31 34 33 30 |,SP.1,1)):. 1430|
000012A0: 00 BF 1A 8C 05 54 B2 C5 28 CA 28 46 46 24 2C 53 |.....T..(.(FF$,S|
000012B0: 50 AA 31 2C 32 29 29 3A 53 50 B2 53 50 AA 31 00 |P.1,2)):SP.SP.1.|
000012C0: CB 1A 96 05 50 53 B2 50 53 AA 31 00 E5 1A A0 05 |....PS.PS.1.....|
000012D0: 53 28 50 53 29 B2 41 28 54 AB 32 2C C6 28 43 24 |S(PS).A(T.2,.(C$|
000012E0: 29 AB 36 36 29 00 F0 1A AA 05 89 20 31 31 38 30 |).66)...... 1180|
000012F0: 00 0F 1B 40 06 8F 20 43 4F 4E 54 52 4F 4C 20 52 |...@.. CONTROL R|
00001300: 4F 55 54 49 4E 45 20 46 4F 52 20 45 56 41 4C 00 |OUTINE FOR EVAL.|
00001310: 27 1B 4A 06 8F 20 20 20 20 20 20 20 20 20 20 46 |'.J.. F|
00001320: 55 4E 43 54 49 4F 4E 00 3C 1B 4C 06 8B 20 46 31 |UNCTION.<.L.. F1|
00001330: 33 B2 31 20 A7 20 89 20 31 36 32 30 00 56 1B 4F |3.1 . . 1620.V.O|
00001340: 06 99 22 13 22 3A 99 A3 31 30 29 3B 22 55 50 44 |..".":..10);"UPD|
00001350: 41 54 45 20 20 22 00 65 1B 54 06 81 20 49 B2 30 |ATE ".e.T.. I.0|
00001360: 20 A4 20 4C 31 00 80 1B 5E 06 8B 20 46 24 28 49 | . L1...^.. F$(I|
00001370: 2C 43 43 29 B2 22 22 20 A7 20 89 20 31 36 35 30 |,CC)."" . . 1650|
00001380: 00 98 1B 68 06 46 46 24 B2 46 24 28 49 2C 43 43 |...h.FF$.F$(I,CC|
00001390: 29 3A 8D 20 31 31 30 30 00 A9 1B 6D 06 41 28 49 |):. 1100...m.A(I|
000013A0: 2C 43 43 29 B2 53 28 31 29 00 AF 1B 72 06 82 00 |,CC).S(1)...r...|
000013B0: BE 1B 7C 06 81 20 4A B2 30 20 A4 20 4C 32 00 D6 |..|.. J.0 . L2..|
000013C0: 1B 86 06 8B 20 52 24 28 4A 29 B2 44 24 20 A7 20 |.... R$(J).D$ . |
000013D0: 89 20 31 37 32 30 00 E5 1B 90 06 81 20 49 B2 30 |. 1720...... I.0|
000013E0: 20 A4 20 4C 31 00 FF 1B 9A 06 8B 20 46 24 28 49 | . L1...... F$(I|
000013F0: 2C 4A 29 B2 22 22 20 A7 20 89 20 31 37 31 30 00 |,J)."" . . 1710.|
00001400: 16 1C A4 06 46 46 24 B2 46 24 28 49 2C 4A 29 3A |....FF$.F$(I,J):|
00001410: 8D 20 31 31 30 30 00 26 1C A9 06 41 28 49 2C 4A |. 1100.&...A(I,J|
00001420: 29 B2 53 28 31 29 00 2C 1C AE 06 82 00 32 1C B8 |).S(1).,.....2..|
00001430: 06 82 00 4D 1C BD 06 8B 20 46 31 33 B2 31 20 A7 |...M.... F13.1 .|
00001440: 20 46 31 33 B2 30 3A 89 20 31 37 34 30 00 66 1C | F13.0:. 1740.f.|
00001450: BF 06 99 22 13 22 3A 99 A3 31 30 29 3B 22 44 4F |...".":..10);"DO|
00001460: 4E 45 20 20 20 22 00 78 1C C2 06 8D 20 33 32 30 |NE ".x.... 320|
00001470: 30 3A 8D 20 33 36 30 30 00 7E 1C CC 06 8E 00 93 |0:. 3600.~......|
00001480: 1C B8 0B 8F 20 44 49 53 50 4C 41 59 20 20 50 41 |.... DISPLAY PA|
00001490: 52 54 32 00 9C 1C C2 0B 99 22 93 22 00 D1 1C CC |RT2......"."....|
000014A0: 0B 99 A3 32 29 3B 22 11 11 11 11 AF 20 AF AF AF |...2);"..... ...|
000014B0: AF AF AF AF AF 20 AF AF AF AF AF AF AF AF 20 AF |..... ........ .|
000014C0: AF AF AF AF AF AF AF 20 AF AF AF AF AF AF AF AF |....... ........|
000014D0: 22 00 E0 1C D6 0B 99 A3 37 29 3B 22 91 41 22 3B |".......7);".A";|
000014E0: 00 E9 1C DB 0B 99 22 91 22 00 F8 1C E0 0B 81 20 |......"."...... |
000014F0: 4C B2 31 20 A4 20 31 38 00 08 1D EA 0B 99 A3 32 |L.1 . 18.......2|
00001500: 29 3B 22 11 B6 9D 22 3B 00 0E 1D F4 0B 82 00 24 |);"...";.......$|
00001510: 1D FE 0B 99 C7 28 31 39 29 3A 99 22 11 11 11 11 |.....(19):."....|
00001520: 11 20 31 22 00 2A 1D 08 0C 8E 00 38 1D 80 0C 8F |. 1".*.....8....|
00001530: 20 44 49 53 50 4C 41 59 00 45 1D 8A 0C 99 22 13 | DISPLAY.E....".|
00001540: 11 11 11 11 22 00 53 1D 94 0C 81 20 4C B2 30 20 |....".S.... L.0 |
00001550: A4 20 32 00 6E 1D 9E 0C 99 A3 4C AC 46 57 AA 31 |. 2.n.....L.FW.1|
00001560: 36 29 3B C7 28 4C AA 44 43 AA 36 36 29 3B 00 74 |6);.(L.DC.66);.t|
00001570: 1D A8 0C 82 00 7E 1D AD 0C 99 3A 99 3A 99 00 8C |.....~....:.:...|
00001580: 1D B2 0C 81 20 4C B2 30 20 A4 20 37 00 C3 1D B7 |.... L.0 . 7....|
00001590: 0C 8B 20 4C AA 44 52 AA 32 B1 39 20 A7 20 4C 24 |.. L.DR.2.9 . L$|
000015A0: B2 C4 28 4C AA 44 52 AA 32 29 3A 4C 32 24 B2 C9 |..(L.DR.2):L2$..|
000015B0: 28 4C 24 2C 32 29 3A 99 20 4C 32 24 3A 89 20 33 |(L$,2):. L2$:. 3|
000015C0: 32 37 30 00 D0 1D BC 0C 99 20 4C AA 44 52 AA 32 |270...... L.DR.2|
000015D0: 00 D6 1D C6 0C 99 00 DC 1D D0 0C 82 00 F1 1D DA |................|
000015E0: 0C 99 C7 28 31 39 29 3B 3A 99 22 11 11 11 11 11 |...(19);:.".....|
000015F0: 22 00 03 1E E4 0C 99 A3 33 29 3B 52 24 28 4C 32 |".......3);R$(L2|
00001600: AA 31 29 00 11 1E EE 0C 81 20 4C B2 30 20 A4 20 |.1)...... L.0 . |
00001610: 32 00 2D 1E F3 0C 99 22 13 22 3B 3A 81 20 58 B2 |2.-....".";:. X.|
00001620: 31 20 A4 20 36 3A 99 22 11 22 3B 3A 82 00 3A 1E |1 . 6:.".";:..:.|
00001630: F4 0C 41 B2 31 32 AA 39 AC 4C 00 66 1E F8 0C 8B |..A.12.9.L.f....|
00001640: 20 52 24 28 44 43 AA 4C 29 B2 44 24 20 A7 20 99 | R$(DC.L).D$ . .|
00001650: A3 41 29 3B 22 20 20 20 20 D6 20 20 20 20 22 3A |.A);" . ":|
00001660: 89 20 33 33 34 30 00 78 1E 02 0D 99 A3 41 29 3B |. 3340.x.....A);|
00001670: 52 24 28 44 43 AA 4C 29 00 80 1E 0C 0D 82 3A 99 |R$(DC.L)......:.|
00001680: 00 8E 1E 16 0D 81 20 4C B2 30 20 A4 20 37 00 B8 |...... L.0 . 7..|
00001690: 1E 20 0D 8B 20 43 24 28 44 52 AA 4C 29 B3 B1 44 |. .. C$(DR.L)..D|
000016A0: 24 20 A7 20 99 A3 33 29 3B 43 24 28 44 52 AA 4C |$ . ..3);C$(DR.L|
000016B0: 29 3A 89 20 33 33 38 30 00 E8 1E 2A 0D 99 A3 33 |):. 3380...*...3|
000016C0: 29 3B 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |);".............|
000016D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000016E0: C0 C0 C0 C0 C0 C0 C0 22 00 F2 1E 34 0D 99 22 11 |......."...4..".|
000016F0: 22 3B 00 F8 1E 3E 0D 82 00 12 1F 48 0D 8F 20 46 |";...>.....H.. F|
00001700: 41 55 4C 54 20 49 4E 20 4C 41 53 54 20 42 49 54 |AULT IN LAST BIT|
00001710: 20 3F 00 21 1F 4D 0D 99 22 13 11 11 11 11 11 11 | ?.!.M..".......|
00001720: 22 00 2F 1F 52 0D 81 20 4C B2 30 20 A4 20 37 00 |"./.R.. L.0 . 7.|
00001730: 4E 1F 5C 0D 8B 20 43 24 28 44 52 AA 4C 29 B2 44 |N.\.. C$(DR.L).D|
00001740: 24 20 A7 20 99 3A 99 3A 89 20 33 34 39 35 00 75 |$ . .:.:. 3495.u|
00001750: 1F 66 0D 99 22 13 22 3B 3A 81 20 58 B2 31 20 A4 |.f..".";:. X.1 .|
00001760: 20 38 AA 4C AC 32 3A 99 22 11 22 3B 3A 82 3A 99 | 8.L.2:.".";:.:.|
00001770: A3 31 32 29 3B 00 83 1F 70 0D 81 20 49 B2 30 20 |.12);...p.. I.0 |
00001780: A4 20 32 00 AC 1F 71 0D 8B 20 52 24 28 44 43 AA |. 2...q.. R$(DC.|
00001790: 49 29 B2 44 24 20 A7 20 99 22 20 20 20 20 D6 20 |I).D$ . ." . |
000017A0: 20 20 20 22 3B 3A 89 20 33 34 38 30 00 BF 1F 72 | ";:. 3480...r|
000017B0: 0D 41 B2 41 28 44 52 AA 4C 2C 44 43 AA 49 29 00 |.A.A(DR.L,DC.I).|
000017C0: CA 1F 93 0D 8D 20 35 30 30 30 00 D0 1F 98 0D 82 |..... 5000......|
000017D0: 00 D6 1F A2 0D 99 00 DC 1F A7 0D 82 00 E2 1F AC |................|
000017E0: 0D 8E 00 F0 1F 10 0E 8F 20 43 55 52 53 4F 52 32 |........ CURSOR2|
000017F0: 00 FA 1F 1A 0E 99 22 13 22 3B 00 0E 20 24 0E 41 |......".";.. $.A|
00001800: B2 28 43 43 AB 44 43 29 AC 46 57 AA 31 32 00 20 |.(CC.DC).FW.12. |
00001810: 20 2E 0E 42 B2 28 43 52 AB 44 52 29 AC 32 AA 38 | ..B.(CR.DR).2.8|
00001820: 00 36 20 38 0E 81 20 4C B2 31 20 A4 20 42 3A 99 |.6 8.. L.1 . B:.|
00001830: 22 11 22 3B 3A 82 00 44 20 42 0E 99 A3 41 29 3B |".";:..D B...A);|
00001840: 22 AB 22 3B 00 59 20 47 0E 8B 20 41 B2 33 30 20 |".";.Y G.. A.30 |
00001850: A7 20 46 57 B2 46 57 AB 31 00 69 20 4C 0E 99 A3 |. FW.FW.1.i L...|
00001860: 41 AA 46 57 29 3B 22 B3 22 00 7E 20 51 0E 8B 20 |A.FW);".".~ Q.. |
00001870: 41 B2 33 30 20 A7 20 46 57 B2 46 57 AA 31 00 84 |A.30 . FW.FW.1..|
00001880: 20 56 0E 8E 00 92 20 74 0E 8F 20 43 55 52 53 4F | V.... t.. CURSO|
00001890: 52 31 00 9D 20 7E 0E 8D 20 35 34 30 30 00 A9 20 |R1.. ~.. 5400.. |
000018A0: 88 0E 43 52 B2 43 52 AA 43 00 B5 20 92 0E 43 43 |..CR.CR.C.. ..CC|
000018B0: B2 43 43 AA 44 00 C0 20 9C 0E 8D 20 33 36 30 30 |.CC.D.. ... 3600|
000018C0: 00 C6 20 A6 0E 8E 00 DC 20 D8 0E 8F 20 43 55 52 |.. ..... ... CUR|
000018D0: 53 4F 52 33 20 52 4F 55 54 49 4E 45 00 EE 20 E2 |SOR3 ROUTINE.. .|
000018E0: 0E 42 B2 28 43 52 AB 44 52 29 AC 32 AA 38 00 0A |.B.(CR.DR).2.8..|
000018F0: 21 EC 0E 99 22 13 22 3B 3A 81 20 58 B2 31 20 A4 |!...".";:. X.1 .|
00001900: 20 42 3A 99 22 11 22 3B 3A 82 00 47 21 F1 0E 8B | B:.".";:..G!...|
00001910: 20 43 24 28 43 52 29 B2 44 24 20 A7 20 99 A3 31 | C$(CR).D$ . ..1|
00001920: 32 29 3B 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |2);"............|
00001930: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 |..............."|
00001940: 3A 89 20 33 38 38 30 00 58 21 F6 0E 99 A3 33 29 |:. 3880.X!....3)|
00001950: 3B 43 24 28 43 52 29 3B 00 66 21 00 0F 81 20 49 |;C$(CR);.f!... I|
00001960: B2 30 20 A4 20 32 00 7A 21 02 0F 99 22 11 91 22 |.0 . 2.z!...".."|
00001970: 3B A3 49 AC 39 AA 31 32 29 3B 00 A3 21 05 0F 8B |;.I.9.12);..!...|
00001980: 20 52 24 28 44 43 AA 49 29 B2 44 24 20 A7 20 99 | R$(DC.I).D$ . .|
00001990: 22 20 20 20 20 D6 20 20 20 20 22 3B 3A 89 20 33 |" . ";:. 3|
000019A0: 38 37 30 00 B4 21 0A 0F 41 B2 41 28 43 52 2C 44 |870..!..A.A(CR,D|
000019B0: 43 AA 49 29 00 BF 21 14 0F 8D 20 35 30 30 30 00 |C.I)..!... 5000.|
000019C0: C5 21 1E 0F 82 00 CB 21 28 0F 8E 00 E0 21 A0 0F |.!.....!(....!..|
000019D0: 8F 20 43 55 52 53 4F 52 20 52 4F 55 54 49 4E 45 |. CURSOR ROUTINE|
000019E0: 00 EC 21 A5 0F 43 B2 30 3A 44 B2 30 00 07 22 AA |..!..C.0:D.0..".|
000019F0: 0F 99 22 13 22 3A 99 A3 31 30 29 3B 22 43 55 52 |..".":..10);"CUR|
00001A00: 53 4F 52 20 20 20 22 00 36 22 BE 0F 8B 20 43 24 |SOR ".6"... C$|
00001A10: B2 22 11 22 20 AF 20 43 52 B3 44 52 AA 37 20 A7 |."." . CR.DR.7 .|
00001A20: 20 43 B2 31 3A 44 B2 30 3A 8D 20 33 37 30 30 3A | C.1:D.0:. 3700:|
00001A30: 89 20 34 30 37 30 00 69 22 C3 0F 8B 20 43 24 B2 |. 4070.i"... C$.|
00001A40: 22 11 22 AF 44 52 B3 4C 31 AB 37 A7 44 52 B2 44 |".".DR.L1.7.DR.D|
00001A50: 52 AA 31 3A 8D 20 38 36 30 30 3A 43 B2 31 3A 44 |R.1:. 8600:C.1:D|
00001A60: B2 30 3A 8D 20 33 37 30 30 00 98 22 D2 0F 8B 20 |.0:. 3700.."... |
00001A70: 43 24 B2 22 1D 22 20 AF 20 43 43 B3 44 43 AA 32 |C$."." . CC.DC.2|
00001A80: 20 A7 20 44 B2 31 3A 43 B2 30 3A 8D 20 33 37 30 | . D.1:C.0:. 370|
00001A90: 30 3A 89 20 34 30 37 30 00 D8 22 D7 0F 8B 20 43 |0:. 4070.."... C|
00001AA0: 24 B2 22 1D 22 20 AF 20 43 43 B2 44 43 AA 32 20 |$."." . CC.DC.2 |
00001AB0: AF 20 44 43 B3 4C 32 AB 32 20 A7 20 44 43 B2 44 |. DC.L2.2 . DC.D|
00001AC0: 43 AA 31 3A 8D 20 38 32 30 30 3A 44 B2 31 3A 43 |C.1:. 8200:D.1:C|
00001AD0: B2 30 3A 8D 33 37 30 30 00 07 23 D8 0F 8B 20 43 |.0:.3700..#... C|
00001AE0: 24 B2 22 9D 22 20 AF 20 43 43 B3 B1 44 43 20 A7 |$."." . CC..DC .|
00001AF0: 20 44 B2 AB 31 3A 43 B2 30 3A 8D 20 33 37 30 30 | D..1:C.0:. 3700|
00001B00: 3A 89 20 34 30 37 30 00 43 23 DC 0F 8B 20 43 24 |:. 4070.C#... C$|
00001B10: B2 22 9D 22 20 AF 20 43 43 B2 44 43 20 AF 20 44 |."." . CC.DC . D|
00001B20: 43 B1 30 20 A7 44 43 B2 44 43 AB 31 3A 8D 20 38 |C.0 .DC.DC.1:. 8|
00001B30: 34 30 30 3A 44 B2 AB 31 3A 43 B2 30 3A 8D 20 33 |400:D..1:C.0:. 3|
00001B40: 37 30 30 00 71 23 DE 0F 8B 20 43 24 B2 22 91 22 |700.q#... C$."."|
00001B50: 20 AF 20 43 52 B1 44 52 20 A7 20 43 B2 AB 31 3A | . CR.DR . C..1:|
00001B60: 44 B2 30 3A 8D 20 33 37 30 30 3A 89 20 34 30 37 |D.0:. 3700:. 407|
00001B70: 30 00 A6 23 E0 0F 8B 20 43 24 B2 22 91 22 20 AF |0..#... C$."." .|
00001B80: 20 44 52 B1 30 20 A7 20 44 52 B2 44 52 AB 31 3A | DR.0 . DR.DR.1:|
00001B90: 8D 20 38 37 30 30 3A 43 B2 AB 31 3A 44 B2 30 3A |. 8700:C..1:D.0:|
00001BA0: 8D 20 33 37 30 30 00 AC 23 E6 0F 8E 00 C1 23 94 |. 3700..#.....#.|
00001BB0: 11 8F 20 4E 55 4D 42 45 52 20 52 4F 55 54 49 4E |.. NUMBER ROUTIN|
00001BC0: 45 00 CC 23 9E 11 99 22 13 11 22 3B 00 E1 23 A8 |E..#..."..";..#.|
00001BD0: 11 99 A3 31 30 29 3B 22 4E 55 4D 42 45 52 20 20 |...10);"NUMBER |
00001BE0: 22 00 1A 24 B2 11 8B 20 46 24 28 43 52 2C 43 43 |"..$... F$(CR,CC|
00001BF0: 29 B3 B1 22 22 20 A7 99 22 42 4F 58 20 44 45 46 |).."" .."BOX DEF|
00001C00: 49 4E 45 44 2D 49 4C 4C 45 47 41 4C 20 49 4E 50 |INED-ILLEGAL INP|
00001C10: 55 54 22 3A 89 20 34 37 38 30 00 3E 24 BC 11 8B |UT":. 4780.>$...|
00001C20: 20 43 24 28 43 52 29 B2 44 24 20 B0 20 52 24 28 | C$(CR).D$ . R$(|
00001C30: 43 43 29 B2 44 24 20 A7 20 89 34 37 35 30 00 4D |CC).D$ . .4750.M|
00001C40: 24 C6 11 54 B2 41 28 43 52 2C 43 43 29 00 60 24 |$..T.A(CR,CC).`$|
00001C50: D0 11 4E 24 B2 22 20 20 20 20 20 20 20 20 20 22 |..N$." "|
00001C60: 00 74 24 DA 11 41 B2 28 43 43 AB 44 43 29 AC 46 |.t$..A.(CC.DC).F|
00001C70: 57 AA 31 32 00 86 24 E4 11 42 B2 28 43 52 AB 44 |W.12..$..B.(CR.D|
00001C80: 52 29 AC 32 AA 38 00 90 24 EE 11 99 22 13 22 3B |R).2.8..$...".";|
00001C90: 00 A8 24 F8 11 81 20 4C B2 31 20 A4 20 42 3A 99 |..$... L.1 . B:.|
00001CA0: 22 11 22 3B 3A 82 20 4C 00 BE 24 07 12 99 A3 41 |".";:. L..$....A|
00001CB0: AB 31 29 3B 22 AB 22 3B 4E 24 3B 22 13 22 00 CF |.1);".";N$;"."..|
00001CC0: 24 0C 12 54 24 B2 43 24 3A 89 20 34 36 34 30 00 |$..T$.C$:. 4640.|
00001CD0: E9 24 16 12 A1 20 54 24 3A 8B 20 54 24 B2 22 22 |.$... T$:. T$.""|
00001CE0: 20 A7 20 89 20 34 36 33 30 00 01 25 1B 12 8B 20 | . . 4630..%... |
00001CF0: 54 24 B2 C7 28 32 30 29 20 A7 20 89 20 34 36 33 |T$..(20) . . 463|
00001D00: 30 00 19 25 20 12 8B 20 54 24 B2 C7 28 31 33 29 |0..% .. T$..(13)|
00001D10: 20 A7 20 89 20 34 37 31 30 00 4A 25 2A 12 8B 20 | . . 4710.J%*.. |
00001D20: 54 24 B2 22 2B 22 20 B0 20 54 24 B2 22 2D 22 20 |T$."+" . T$."-" |
00001D30: B0 20 54 24 B2 22 2E 22 20 B0 20 54 24 B2 22 45 |. T$."." . T$."E|
00001D40: 22 20 A7 20 89 20 34 36 37 30 00 6A 25 34 12 8B |" . . 4670.j%4..|
00001D50: 20 A8 28 54 24 B1 22 2F 22 AF 54 24 B3 22 3A 22 | .(T$."/".T$.":"|
00001D60: 29 20 A7 20 89 20 34 36 32 30 00 70 25 3E 12 8F |) . . 4620.p%>..|
00001D70: 00 82 25 48 12 4E 24 B2 C9 28 4E 24 2C 38 29 AA |..%H.N$..(N$,8).|
00001D80: 54 24 00 9E 25 4D 12 99 22 13 22 3B 3A 81 20 4C |T$..%M..".";:. L|
00001D90: B2 31 20 A4 20 42 3A 99 22 11 22 3B 3A 82 00 AB |.1 . B:.".";:...|
00001DA0: 25 52 12 99 A3 41 29 3B 4E 24 3B 00 B6 25 5C 12 |%R...A);N$;..%\.|
00001DB0: 89 20 34 36 33 30 00 C9 25 66 12 41 28 43 52 2C |. 4630..%f.A(CR,|
00001DC0: 43 43 29 B2 C5 28 4E 24 29 00 D9 25 70 12 4F 4F |CC)..(N$)..%p.OO|
00001DD0: B2 43 52 3A 4F 43 B2 43 43 00 ED 25 72 12 8B 20 |.CR:OC.CC..%r.. |
00001DE0: 41 B2 33 30 20 A7 20 89 20 34 37 34 30 00 09 26 |A.30 . . 4740..&|
00001DF0: 75 12 99 22 13 22 3B 3A 81 20 4C B2 31 20 A4 20 |u..".";:. L.1 . |
00001E00: 42 3A 99 22 11 22 3B 3A 82 00 19 26 7A 12 99 A3 |B:.".";:...&z...|
00001E10: 41 AB 31 29 3B 22 20 22 3B 00 26 26 84 12 8F 20 |A.1);" ";.&&... |
00001E20: 55 50 44 41 54 45 00 31 26 8E 12 8D 20 33 38 30 |UPDATE.1&... 380|
00001E30: 30 00 3C 26 98 12 8D 20 33 36 30 30 00 42 26 A2 |0.<&... 3600.B&.|
00001E40: 12 8E 00 61 26 AC 12 99 22 13 22 3A 99 A3 31 30 |...a&...".":..10|
00001E50: 29 3B 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 |);"PRESS ANY KEY|
00001E60: 22 00 7B 26 B6 12 A1 20 41 24 3A 8B 20 41 24 B2 |".{&... A$:. A$.|
00001E70: 22 22 20 A7 20 89 20 34 37 39 30 00 9A 26 C0 12 |"" . . 4790..&..|
00001E80: 99 22 13 22 3A 99 A3 31 30 29 3B 22 20 20 20 20 |.".":..10);" |
00001E90: 20 20 20 20 20 20 20 20 20 22 00 C9 26 CA 12 99 | "..&...|
00001EA0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001EC0: 20 20 20 20 20 20 20 20 22 00 DF 26 D4 12 99 22 | "..&..."|
00001ED0: 13 22 3A 99 A3 31 30 29 3B 22 4D 4F 44 45 22 00 |.":..10);"MODE".|
00001EE0: E5 26 DE 12 8E 00 00 27 88 13 8F 20 50 52 49 4E |.&.....'... PRIN|
00001EF0: 54 20 46 4F 52 4D 41 54 20 52 4F 55 54 49 4E 45 |T FORMAT ROUTINE|
00001F00: 00 0A 27 8D 13 46 31 32 B2 30 00 20 27 92 13 41 |..'..F12.0. '..A|
00001F10: 24 B2 22 22 3A 42 24 B2 22 22 3A 43 24 B2 22 22 |$."":B$."":C$.""|
00001F20: 00 42 27 9C 13 8B 20 41 B2 30 20 A7 20 41 24 B2 |.B'... A.0 . A$.|
00001F30: 22 20 20 20 20 20 30 2E 30 30 22 3A 89 20 35 31 |" 0.00":. 51|
00001F40: 33 36 00 58 27 9E 13 8B 20 41 B2 B5 28 41 29 20 |36.X'... A..(A) |
00001F50: A7 20 89 20 35 30 33 30 00 82 27 9F 13 41 24 B2 |. . 5030..'..A$.|
00001F60: C4 28 41 29 3A 8B CA 28 41 24 2C C3 28 41 24 29 |.(A):..(A$,.(A$)|
00001F70: AB 32 2C 31 29 B2 22 2E 22 20 A7 20 89 20 35 30 |.2,1)."." . . 50|
00001F80: 33 35 00 A5 27 A0 13 8B 20 CA 28 41 24 2C C3 28 |35..'... .(A$,.(|
00001F90: 41 24 29 AB 31 2C 31 29 B2 22 2E 22 20 A7 20 89 |A$).1,1)."." . .|
00001FA0: 20 35 30 33 35 00 C3 27 A1 13 8B 20 41 AC 31 30 | 5035..'... A.10|
00001FB0: 30 B2 B5 28 41 AC 31 30 30 29 20 A7 20 89 20 35 |0..(A.100) . . 5|
00001FC0: 30 33 30 00 DA 27 A2 13 41 B2 B5 28 41 AC 31 30 |030..'..A..(A.10|
00001FD0: 30 29 3A 41 B2 41 AD 31 30 30 00 E6 27 A6 13 41 |0):A.A.100..'..A|
00001FE0: 24 B2 C4 28 41 29 00 F8 27 AB 13 8B 20 41 B3 30 |$..(A)..'... A.0|
00001FF0: 20 A7 20 46 31 32 B2 31 00 1C 28 B0 13 8B 20 41 | . F12.1..(... A|
00002000: B3 31 30 30 30 30 30 20 AF 20 41 B1 AB 31 30 30 |.100000 . A..100|
00002010: 30 30 30 20 A7 20 89 20 35 31 30 30 00 36 28 BA |000 . . 5100.6(.|
00002020: 13 45 B2 31 3A 81 20 58 B2 31 20 A4 20 33 30 3A |.E.1:. X.1 . 30:|
00002030: 41 B2 41 AD 31 30 00 58 28 BC 13 8B 20 41 B3 31 |A.A.10.X(... A.1|
00002040: 30 20 AF 20 46 31 32 B2 30 20 20 A7 20 58 B2 33 |0 . F12.0 . X.3|
00002050: 30 3A 89 20 35 30 37 30 00 7A 28 BD 13 8B 20 46 |0:. 5070.z(... F|
00002060: 31 32 B2 31 20 AF 20 41 B1 AB 31 30 20 A7 20 58 |12.1 . A..10 . X|
00002070: B2 33 30 3A 89 20 35 30 37 30 00 84 28 C4 13 45 |.30:. 5070..(..E|
00002080: B2 45 AA 31 00 8A 28 CE 13 82 00 B6 28 D8 13 8B |.E.1..(.....(...|
00002090: 20 41 B2 B5 28 41 29 20 A7 20 41 24 B2 C4 28 41 | A..(A) . A$..(A|
000020A0: 29 AA 22 2E 30 22 AA 22 45 22 AA C4 28 45 29 3A |).".0"."E"..(E):|
000020B0: 89 20 35 31 31 30 00 EB 28 E2 13 5A 41 24 B2 C4 |. 5110..(..ZA$..|
000020C0: 28 41 29 3A 42 24 B2 C8 28 5A 41 24 2C 34 29 3A |(A):B$..(ZA$,4):|
000020D0: 41 24 B2 42 24 AA 22 45 22 AA C4 28 45 29 3A 42 |A$.B$."E"..(E):B|
000020E0: 24 B2 22 22 3A 89 20 35 31 31 30 00 11 29 EC 13 |$."":. 5110..)..|
000020F0: 8B 20 CA 28 41 24 2C C3 28 41 24 29 AB 31 2C 31 |. .(A$,.(A$).1,1|
00002100: 29 B2 22 2E 22 20 A7 20 41 24 B2 41 24 AA 22 30 |)."." . A$.A$."0|
00002110: 22 00 2C 29 F1 13 8B 20 41 B2 B5 28 41 29 20 A7 |".,)... A..(A) .|
00002120: 20 41 24 B2 41 24 AA 22 2E 30 30 22 00 43 29 F6 | A$.A$.".00".C).|
00002130: 13 8B 20 C3 28 41 24 29 B2 39 20 A7 20 89 20 35 |.. .(A$).9 . . 5|
00002140: 31 33 36 00 63 29 00 14 81 20 58 B2 31 20 A4 20 |136.c)... X.1 . |
00002150: 39 AB C3 28 41 24 29 3A 42 24 B2 42 24 AA 22 20 |9..(A$):B$.B$." |
00002160: 22 3A 82 00 76 29 0A 14 43 24 B2 42 24 AA 41 24 |":..v)..C$.B$.A$|
00002170: 3A 41 24 B2 43 24 00 88 29 0F 14 8B 20 C3 28 41 |:A$.C$..)... .(A|
00002180: 24 29 B1 39 20 A7 20 90 00 97 29 10 14 8B 20 46 |$).9 . ...)... F|
00002190: 33 B2 31 20 A7 20 8E 00 A1 29 14 14 99 20 41 24 |3.1 . ...)... A$|
000021A0: 3B 00 A7 29 1E 14 8E 00 BD 29 50 14 8F 20 4E 55 |;..).....)P.. NU|
000021B0: 4D 42 45 52 32 20 52 4F 55 54 49 4E 45 00 D7 29 |MBER2 ROUTINE..)|
000021C0: 5A 14 99 22 13 22 3A 99 A3 31 30 29 3B 22 4E 55 |Z..".":..10);"NU|
000021D0: 4D 42 45 52 20 20 22 00 F4 29 64 14 8B 20 46 24 |MBER "..)d.. F$|
000021E0: 28 43 52 2C 43 43 29 B3 B1 22 22 20 A7 20 89 20 |(CR,CC).."" . . |
000021F0: 35 32 37 35 00 09 2A 6E 14 8B 20 4F 43 B2 AB 31 |5275..*n.. OC..1|
00002200: 20 A7 20 89 20 35 32 37 35 00 29 2A 78 14 8B 20 | . . 5275.)*x.. |
00002210: A8 28 4F 4F B2 43 52 20 AF 20 4F 43 B2 43 43 29 |.(OO.CR . OC.CC)|
00002220: 20 A7 20 89 20 35 32 37 35 00 39 2A 82 14 56 41 | . . 5275.9*..VA|
00002230: B2 41 28 4F 4F 2C 4F 43 29 00 48 2A 8C 14 41 28 |.A(OO,OC).H*..A(|
00002240: 4F 4F 2C 4F 43 29 B2 54 00 51 2A 96 14 54 B2 56 |OO,OC).T.Q*..T.V|
00002250: 41 00 6A 2A 9B 14 99 22 13 22 3A 99 A3 31 30 29 |A.j*...".":..10)|
00002260: 3B 22 4D 4F 44 45 20 20 20 22 00 75 2A A0 14 8D |;"MODE ".u*...|
00002270: 20 33 34 30 30 00 80 2A AA 14 8D 20 33 36 30 30 | 3400..*... 3600|
00002280: 00 86 2A B4 14 8E 00 9C 2A 18 15 8F 20 43 55 52 |..*.....*... CUR|
00002290: 53 4F 52 30 20 52 4F 55 54 49 4E 45 00 B1 2A 22 |SOR0 ROUTINE..*"|
000022A0: 15 41 31 B2 28 43 43 AB 44 43 29 AC 46 57 AA 31 |.A1.(CC.DC).FW.1|
000022B0: 32 00 C3 2A 2C 15 42 B2 28 43 52 AB 44 52 29 AC |2..*,.B.(CR.DR).|
000022C0: 32 AA 38 00 CD 2A 31 15 99 22 13 22 3B 00 E3 2A |2.8..*1..".";..*|
000022D0: 36 15 81 20 58 B2 31 20 A4 20 42 3A 99 22 11 22 |6.. X.1 . B:."."|
000022E0: 3B 3A 82 00 14 2B 40 15 8B 20 43 24 28 43 52 29 |;:...+@.. C$(CR)|
000022F0: B2 44 24 20 AF 20 43 43 B2 44 43 AA 32 20 A7 20 |.D$ . CC.DC.2 . |
00002300: 99 A3 41 31 29 3B 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 |..A1);".........|
00002310: 22 3B 3A 8E 00 3E 2B 4A 15 8B 20 43 24 28 43 52 |";:..>+J.. C$(CR|
00002320: 29 B2 44 24 20 A7 20 99 A3 41 31 29 3B 22 C0 C0 |).D$ . ..A1);"..|
00002330: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B 3A 8E 00 6A |..........";:..j|
00002340: 2B 54 15 8B 20 52 24 28 43 43 29 B2 44 24 20 A7 |+T.. R$(CC).D$ .|
00002350: 20 99 A3 41 31 29 3B 22 20 20 20 20 D6 20 20 20 | ..A1);" . |
00002360: 20 22 3B 3A 89 20 35 34 39 30 00 87 2B 5E 15 41 | ";:. 5490..+^.A|
00002370: B2 41 28 43 52 2C 43 43 29 3A 99 A3 41 31 29 3B |.A(CR,CC):..A1);|
00002380: 3A 8D 20 35 30 30 30 00 99 2B 72 15 8B 20 43 43 |:. 5000..+r.. CC|
00002390: B2 44 43 AA 32 20 A7 20 8E 00 BD 2B 7C 15 8B 20 |.DC.2 . ...+|.. |
000023A0: 52 24 28 43 43 AA 31 29 B2 44 24 20 A7 20 99 22 |R$(CC.1).D$ . ."|
000023B0: 20 20 20 20 D6 20 20 20 20 22 3B 3A 8E 00 DC 2B | . ";:...+|
000023C0: 86 15 41 B2 41 28 43 52 2C 43 43 AA 31 29 3A 99 |..A.A(CR,CC.1):.|
000023D0: A3 41 31 29 3B 3A 8D 20 35 30 30 30 00 E2 2B 90 |.A1);:. 5000..+.|
000023E0: 15 8E 00 FE 2B E0 15 8F 20 4E 45 57 20 52 4F 57 |....+... NEW ROW|
000023F0: 20 4C 41 42 45 4C 20 52 4F 55 54 49 4E 45 00 1A | LABEL ROUTINE..|
00002400: 2C E2 15 99 22 13 22 3A 99 A3 31 30 29 3B 22 4C |,...".":..10);"L|
00002410: 41 42 45 4C 20 20 20 20 20 22 00 25 2C E5 15 8D |ABEL ".%,...|
00002420: 20 35 34 30 30 00 2D 2C EA 15 41 B2 32 00 3F 2C | 5400.-,..A.2.?,|
00002430: F4 15 42 B2 28 43 52 AB 44 52 29 AC 32 AA 38 00 |..B.(CR.DR).2.8.|
00002440: 49 2C FE 15 99 22 13 22 3B 00 5F 2C 08 16 81 20 |I,...".";._,... |
00002450: 58 B2 31 20 A4 20 42 3A 99 22 11 22 3B 3A 82 00 |X.1 . B:.".";:..|
00002460: 76 2C 12 16 99 A3 41 29 3B 22 AB 20 20 20 20 20 |v,....A);". |
00002470: 20 20 20 20 B3 22 00 A3 2C 1C 16 8B 20 43 24 28 | ."..,... C$(|
00002480: 43 52 29 B3 B1 44 24 20 A7 20 43 24 28 43 52 29 |CR)..D$ . C$(CR)|
00002490: B2 22 20 20 20 20 20 20 20 20 20 22 3A 89 20 35 |." ":. 5|
000024A0: 37 36 30 00 BA 2C 26 16 43 24 28 43 52 29 B2 22 |760..,&.C$(CR)."|
000024B0: 20 20 20 20 20 20 20 20 20 22 00 D6 2C 30 16 99 | "..,0..|
000024C0: 22 13 22 3B 3A 81 20 58 B2 31 20 A4 20 42 3A 99 |".";:. X.1 . B:.|
000024D0: 22 11 22 3B 3A 82 00 E9 2C 3A 16 99 A3 41 AA 31 |".";:...,:...A.1|
000024E0: 29 3B 43 24 28 43 52 29 3B 00 F7 2C 44 16 81 20 |);C$(CR);..,D.. |
000024F0: 4A B2 30 20 A4 20 32 00 20 2D 4E 16 8B 20 52 24 |J.0 . 2. -N.. R$|
00002500: 28 44 43 AA 4A 29 B2 44 24 20 A7 20 99 22 20 20 |(DC.J).D$ . ." |
00002510: 20 20 D6 20 20 20 20 22 3B 3A 89 20 35 37 33 30 | . ";:. 5730|
00002520: 00 38 2D 58 16 41 B2 41 28 43 52 2C 44 43 AA 4A |.8-X.A.A(CR,DC.J|
00002530: 29 3A 8D 20 35 30 30 30 00 3E 2D 62 16 82 00 46 |):. 5000.>-b...F|
00002540: 2D 67 16 41 B2 32 00 62 2D 6C 16 99 22 13 22 3B |-g.A.2.b-l..".";|
00002550: 3A 81 20 58 B2 31 20 A4 20 42 3A 99 22 11 22 3B |:. X.1 . B:.".";|
00002560: 3A 82 00 72 2D 76 16 99 A3 41 AA 31 30 29 3B 22 |:..r-v...A.10);"|
00002570: B3 22 00 9D 2D 80 16 A1 20 54 24 3A 8B 20 54 24 |."..-... T$:. T$|
00002580: B2 22 22 20 B0 54 24 B2 C7 28 33 34 29 B0 54 24 |."" .T$..(34).T$|
00002590: B2 22 2C 22 20 A7 20 89 20 35 37 36 30 00 B5 2D |."," . . 5760..-|
000025A0: 8A 16 8B 20 54 24 B2 C7 28 31 33 29 20 A7 20 89 |... T$..(13) . .|
000025B0: 20 35 38 33 30 00 E4 2D 94 16 8B 20 54 24 B2 22 | 5830..-... T$."|
000025C0: 40 22 20 B0 20 28 54 24 B3 C7 28 33 32 29 20 B0 |@" . (T$..(32) .|
000025D0: 20 54 24 B1 C7 28 31 32 36 29 29 20 A7 20 89 20 | T$..(126)) . . |
000025E0: 35 37 36 30 00 FE 2D 9E 16 43 24 28 43 52 29 B2 |5760..-..C$(CR).|
000025F0: C9 28 43 24 28 43 52 29 2C 38 29 AA 54 24 00 19 |.(C$(CR),8).T$..|
00002600: 2E A8 16 99 22 13 22 3B 3A 81 58 B2 31 20 A4 20 |....".";:.X.1 . |
00002610: 42 3A 99 22 11 22 3B 3A 82 00 2B 2E B2 16 99 A3 |B:.".";:..+.....|
00002620: 41 AA 31 29 3B 43 24 28 43 52 29 00 36 2E BC 16 |A.1);C$(CR).6...|
00002630: 89 20 35 37 36 30 00 52 2E C6 16 99 22 13 22 3B |. 5760.R....".";|
00002640: 3A 81 20 58 B2 31 20 A4 20 42 3A 99 22 11 22 3B |:. X.1 . B:.".";|
00002650: 3A 82 00 60 2E D0 16 99 A3 41 29 3B 22 B6 22 3B |:..`.....A);".";|
00002660: 00 6D 2E DA 16 99 A3 41 AA 31 30 29 3B 00 9B 2E |.m.....A.10);...|
00002670: E4 16 8B 20 52 24 28 44 43 29 B2 44 24 20 A7 20 |... R$(DC).D$ . |
00002680: 99 A3 41 AA 31 30 29 3B 22 20 20 20 20 D6 20 20 |..A.10);" . |
00002690: 20 20 22 3B 3A 89 20 35 38 38 30 00 B1 2E EE 16 | ";:. 5880.....|
000026A0: 41 B2 41 28 43 52 2C 44 43 29 3A 8D 20 35 30 30 |A.A(CR,DC):. 500|
000026B0: 30 00 B9 2E F0 16 41 B2 32 00 E5 2E F3 16 99 22 |0.....A.2......"|
000026C0: 13 22 3B 3A 81 20 58 B2 31 20 A4 20 42 3A 99 22 |.";:. X.1 . B:."|
000026D0: 11 22 3B 3A 82 3A 99 A3 41 AA 31 30 29 3B 22 20 |.";:.:..A.10);" |
000026E0: 22 3B 22 13 22 00 F0 2E F8 16 8D 20 33 36 30 30 |";"."...... 3600|
000026F0: 00 0A 2F 02 17 99 22 13 22 3A 99 A3 31 30 29 3B |../...".":..10);|
00002700: 22 4D 4F 44 45 20 20 20 20 22 00 10 2F 0C 17 8E |"MODE "../...|
00002710: 00 26 2F 70 17 8F 20 4E 45 57 20 43 4F 4C 55 4D |.&/p.. NEW COLUM|
00002720: 4E 20 4E 41 4D 45 00 42 2F 75 17 99 22 13 22 3A |N NAME.B/u..".":|
00002730: 99 A3 31 30 29 3B 22 4C 41 42 45 4C 20 20 20 20 |..10);"LABEL |
00002740: 20 22 00 4D 2F 7A 17 8D 20 35 34 30 30 00 70 2F | ".M/z.. 5400.p/|
00002750: 84 17 41 B2 28 43 43 AB 44 43 29 AC 46 57 AA 31 |..A.(CC.DC).FW.1|
00002760: 32 3A 8B 20 41 B2 33 30 20 A7 20 41 B2 41 AB 31 |2:. A.30 . A.A.1|
00002770: 00 78 2F 8E 17 42 B2 36 00 94 2F 98 17 99 22 13 |.x/..B.6../...".|
00002780: 22 3B 3A 81 20 58 B2 31 20 A4 20 42 3A 99 22 11 |";:. X.1 . B:.".|
00002790: 22 3B 3A 82 00 AD 2F A2 17 99 A3 41 AB 31 29 3B |";:.../....A.1);|
000027A0: 22 AB 20 20 20 20 20 20 20 20 20 B3 22 00 DA 2F |". ."../|
000027B0: AC 17 8B 20 52 24 28 43 43 29 B3 B1 44 24 20 A7 |... R$(CC)..D$ .|
000027C0: 20 52 24 28 43 43 29 B2 22 20 20 20 20 20 20 20 | R$(CC)." |
000027D0: 20 20 22 3A 89 20 36 31 36 30 00 F1 2F B6 17 52 | ":. 6160../..R|
000027E0: 24 28 43 43 29 B2 22 20 20 20 20 20 20 20 20 20 |$(CC)." |
000027F0: 22 00 0D 30 C0 17 99 22 13 22 3B 3A 81 20 58 B2 |"..0...".";:. X.|
00002800: 31 20 A4 20 42 3A 99 22 11 22 3B 3A 82 00 1D 30 |1 . B:.".";:...0|
00002810: CA 17 99 A3 41 29 3B 52 24 28 43 43 29 00 37 30 |....A);R$(CC).70|
00002820: CF 17 8B 20 41 B2 32 39 20 A7 20 41 31 B2 33 30 |... A.29 . A1.30|
00002830: 3A 89 20 36 31 30 30 00 40 30 D0 17 41 31 B2 41 |:. 6100.@0..A1.A|
00002840: 00 4E 30 D4 17 81 20 49 B2 30 20 A4 20 37 00 69 |.N0... I.0 . 7.i|
00002850: 30 DE 17 8B 20 43 24 28 44 52 AA 49 29 B2 44 24 |0... C$(DR.I).D$|
00002860: 20 A7 20 89 20 36 31 34 30 00 75 30 E8 17 42 B2 | . . 6140.u0..B.|
00002870: 49 AC 32 AA 38 00 91 30 F2 17 99 22 13 22 3B 3A |I.2.8..0...".";:|
00002880: 81 20 58 B2 31 20 A4 20 42 3A 99 22 11 22 3B 3A |. X.1 . B:.".";:|
00002890: 82 00 9C 30 F4 17 99 A3 41 31 29 3B 00 B4 30 F7 |...0....A1);..0.|
000028A0: 17 41 B2 41 28 49 AA 44 52 2C 43 43 29 3A 8D 20 |.A.A(I.DR,CC):. |
000028B0: 35 30 30 30 00 BA 30 FC 17 82 00 C5 30 06 18 8D |5000..0.....0...|
000028C0: 20 35 34 30 30 00 E5 30 10 18 42 B2 36 3A 99 22 | 5400..0..B.6:."|
000028D0: 13 22 3B 3A 81 20 58 B2 31 20 A4 20 42 3A 99 22 |.";:. X.1 . B:."|
000028E0: 11 22 3B 3A 82 00 F9 30 15 18 41 B2 28 43 43 AB |.";:...0..A.(CC.|
000028F0: 44 43 29 AC 46 57 AA 31 32 00 0C 31 16 18 8B 20 |DC).FW.12..1... |
00002900: 41 B2 33 30 20 A7 20 41 B2 41 AB 31 00 37 31 1A |A.30 . A.A.1.71.|
00002910: 18 A1 20 54 24 3A 8B 20 54 24 B2 22 22 20 B0 54 |.. T$:. T$."" .T|
00002920: 24 B2 C7 28 33 34 29 B0 54 24 B2 22 2C 22 20 A7 |$..(34).T$."," .|
00002930: 20 89 20 36 31 37 30 00 50 31 24 18 8B 20 54 24 | . 6170.P1$.. T$|
00002940: B2 C7 28 31 33 29 20 A7 20 89 20 20 36 32 33 30 |..(13) . . 6230|
00002950: 00 7F 31 2E 18 8B 20 54 24 B2 22 40 22 20 B0 20 |..1... T$."@" . |
00002960: 28 54 24 B3 C7 28 33 32 29 20 B0 20 54 24 B1 C7 |(T$..(32) . T$..|
00002970: 28 31 32 36 29 29 20 A7 20 89 20 36 31 37 30 00 |(126)) . . 6170.|
00002980: 99 31 38 18 52 24 28 43 43 29 B2 C9 28 52 24 28 |.18.R$(CC)..(R$(|
00002990: 43 43 29 2C 38 29 AA 54 24 00 A9 31 42 18 99 A3 |CC),8).T$..1B...|
000029A0: 41 29 3B 52 24 28 43 43 29 00 C5 31 47 18 99 22 |A);R$(CC)..1G.."|
000029B0: 13 22 3B 3A 81 20 58 B2 31 20 A4 20 42 3A 99 22 |.";:. X.1 . B:."|
000029C0: 11 22 3B 3A 82 00 D0 31 4C 18 89 20 36 31 37 30 |.";:...1L.. 6170|
000029D0: 00 EC 31 56 18 99 22 13 22 3B 3A 81 20 58 B2 31 |..1V..".";:. X.1|
000029E0: 20 A4 20 36 3A 99 22 11 22 3B 3A 82 00 0A 32 58 | . 6:.".";:...2X|
000029F0: 18 8B 20 41 B2 32 39 20 A7 20 99 A3 41 29 3B 22 |.. A.29 . ..A);"|
00002A00: 20 22 3B 52 24 28 43 43 29 3B 00 1D 32 5B 18 8B | ";R$(CC);..2[..|
00002A10: 20 41 B2 32 39 20 A7 20 41 B2 41 AA 31 00 39 32 | A.29 . A.A.1.92|
00002A20: 5C 18 99 22 13 22 3B 3A 81 20 58 B2 31 20 A4 20 |\..".";:. X.1 . |
00002A30: 42 3A 99 22 11 22 3B 3A 82 00 45 32 60 18 99 A3 |B:.".";:..E2`...|
00002A40: 41 AB 39 29 3B 00 64 32 6A 18 8B 20 43 43 B2 44 |A.9);.d2j.. CC.D|
00002A50: 43 20 A7 20 99 52 24 28 4C 32 AA 31 29 3A 89 20 |C . .R$(L2.1):. |
00002A60: 36 32 38 30 00 85 32 74 18 8B 20 52 24 28 43 43 |6280..2t.. R$(CC|
00002A70: AB 31 29 B2 44 24 20 A7 20 99 22 20 20 20 20 D6 |.1).D$ . ." .|
00002A80: 20 20 20 20 22 00 A5 32 7E 18 8B 20 52 24 28 43 | "..2~.. R$(C|
00002A90: 43 AB 31 29 B3 B1 44 24 20 A7 20 99 52 24 28 43 |C.1)..D$ . .R$(C|
00002AA0: 43 AB 31 29 3B 00 C1 32 88 18 99 22 13 22 3B 3A |C.1);..2...".";:|
00002AB0: 81 20 58 B2 31 20 A4 20 42 3A 99 22 11 22 3B 3A |. X.1 . B:.".";:|
00002AC0: 82 00 CD 32 92 18 99 A3 41 AA 39 29 3B 00 E4 32 |...2....A.9);..2|
00002AD0: 9C 18 8B 20 43 43 B2 44 43 AA 32 20 A7 20 89 20 |... CC.DC.2 . . |
00002AE0: 36 33 33 30 00 06 33 A6 18 8B 20 52 24 28 43 43 |6330..3... R$(CC|
00002AF0: AA 31 29 B2 44 24 20 A7 20 99 22 20 20 20 20 D6 |.1).D$ . ." .|
00002B00: 20 20 20 20 22 3B 00 26 33 B0 18 8B 20 52 24 28 | ";.&3... R$(|
00002B10: 43 43 AA 31 29 B3 B1 44 24 20 A7 20 99 52 24 28 |CC.1)..D$ . .R$(|
00002B20: 43 43 AA 31 29 3B 00 31 33 BA 18 8D 20 33 36 30 |CC.1);.13... 360|
00002B30: 30 00 4B 33 BF 18 99 22 13 22 3A 99 A3 31 30 29 |0.K3...".":..10)|
00002B40: 3B 22 4D 4F 44 45 20 20 20 20 22 00 51 33 C4 18 |;"MODE ".Q3..|
00002B50: 8E 00 6F 33 00 19 8F 20 4E 45 57 20 43 4F 52 4E |..o3... NEW CORN|
00002B60: 45 52 20 4E 41 4D 45 20 52 4F 55 54 49 4E 45 00 |ER NAME ROUTINE.|
00002B70: 8D 33 0A 19 99 22 13 22 3A 99 A3 31 30 29 3B 22 |.3...".":..10);"|
00002B80: 43 4F 52 4E 45 52 20 4C 41 42 45 4C 22 00 98 33 |CORNER LABEL"..3|
00002B90: 14 19 8D 20 35 34 30 30 00 A4 33 1E 19 41 B2 33 |... 5400..3..A.3|
00002BA0: 3A 42 B2 36 00 AE 33 23 19 99 22 13 22 3B 00 C4 |:B.6..3#..".";..|
00002BB0: 33 28 19 81 20 58 B2 31 20 A4 20 42 3A 99 22 11 |3(.. X.1 . B:.".|
00002BC0: 22 3B 3A 82 00 DD 33 32 19 99 A3 41 AB 31 29 3B |";:...32...A.1);|
00002BD0: 22 AB 20 20 20 20 20 20 20 20 20 B3 22 00 F5 33 |". ."..3|
00002BE0: 3C 19 52 24 28 4C 32 AA 31 29 B2 22 20 20 20 20 |<.R$(L2.1)." |
00002BF0: 20 20 20 20 22 00 11 34 46 19 99 22 13 22 3B 3A | "..4F..".";:|
00002C00: 81 20 58 B2 31 20 A4 20 42 3A 99 22 11 22 3B 3A |. X.1 . B:.".";:|
00002C10: 82 00 3B 34 50 19 A1 20 54 24 3A 8B 20 54 24 B2 |..;4P.. T$:. T$.|
00002C20: 22 22 20 B0 54 24 B2 C7 28 33 34 29 B0 54 24 B2 |"" .T$..(34).T$.|
00002C30: 22 2C 22 A7 20 89 20 36 34 38 30 00 53 34 5A 19 |",". . 6480.S4Z.|
00002C40: 8B 20 54 24 B2 C7 28 31 33 29 20 A7 20 89 20 36 |. T$..(13) . . 6|
00002C50: 35 35 30 00 82 34 64 19 8B 20 54 24 B2 22 40 22 |550..4d.. T$."@"|
00002C60: 20 B0 20 28 54 24 B3 C7 28 33 32 29 20 B0 20 54 | . (T$..(32) . T|
00002C70: 24 B1 C7 28 31 32 36 29 29 20 A7 20 89 20 36 34 |$..(126)) . . 64|
00002C80: 38 30 00 A0 34 6E 19 52 24 28 4C 32 AA 31 29 B2 |80..4n.R$(L2.1).|
00002C90: C9 28 52 24 28 4C 32 AA 31 29 2C 38 29 AA 54 24 |.(R$(L2.1),8).T$|
00002CA0: 00 BC 34 78 19 99 22 13 22 3B 3A 81 20 58 B2 31 |..4x..".";:. X.1|
00002CB0: 20 A4 20 42 3A 99 22 11 22 3B 3A 82 00 CE 34 82 | . B:.".";:...4.|
00002CC0: 19 99 A3 41 29 3B 52 24 28 4C 32 AA 31 29 00 D9 |...A);R$(L2.1)..|
00002CD0: 34 8C 19 89 20 36 34 38 30 00 F5 34 96 19 99 22 |4... 6480..4..."|
00002CE0: 13 22 3B 3A 81 20 58 B2 31 20 A4 20 42 3A 99 22 |.";:. X.1 . B:."|
00002CF0: 11 22 3B 3A 82 00 04 35 A0 19 99 A3 41 AB 31 29 |.";:...5....A.1)|
00002D00: 3B 22 B6 22 00 20 35 AA 19 99 22 13 22 3B 3A 81 |;".". 5...".";:.|
00002D10: 20 58 B2 31 20 A4 20 42 3A 99 22 11 22 3B 3A 82 | X.1 . B:.".";:.|
00002D20: 00 4D 35 B4 19 8B 20 52 24 28 44 43 29 B2 44 24 |.M5... R$(DC).D$|
00002D30: 20 A7 20 99 A3 41 AA 46 57 29 3B 22 20 20 20 20 | . ..A.FW);" |
00002D40: D6 20 20 20 20 22 3A 89 20 33 36 30 30 00 60 35 |. ":. 3600.`5|
00002D50: BE 19 99 A3 41 AA 46 57 29 3B 52 24 28 44 43 29 |....A.FW);R$(DC)|
00002D60: 00 6B 35 C8 19 8D 20 33 36 30 30 00 89 35 D2 19 |.k5... 3600..5..|
00002D70: 99 22 13 22 3A 99 A3 31 30 29 3B 22 4D 4F 44 45 |.".":..10);"MODE|
00002D80: 20 20 20 20 20 20 20 20 22 00 8F 35 DC 19 8E 00 | "..5....|
00002D90: AB 35 2C 1A 8F 20 42 4C 41 4E 4B 20 4F 55 54 20 |.5,.. BLANK OUT |
00002DA0: 52 4F 57 20 52 4F 55 54 49 4E 45 00 CB 35 36 1A |ROW ROUTINE..56.|
00002DB0: 99 22 13 22 3A 99 A3 31 30 29 3B 22 4C 49 4E 45 |.".":..10);"LINE|
00002DC0: 20 41 4C 4F 4E 47 20 52 4F 57 22 00 EA 35 40 1A | ALONG ROW"..5@.|
00002DD0: 99 A3 31 30 29 3B 22 41 52 45 20 59 4F 55 20 53 |..10);"ARE YOU S|
00002DE0: 55 52 45 20 28 59 2F 4E 29 22 00 04 36 4A 1A A1 |URE (Y/N)"..6J..|
00002DF0: 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 89 20 | A$:. A$."" . . |
00002E00: 36 37 33 30 00 2A 36 54 1A 99 22 13 22 3A 99 3A |6730.*6T..".":.:|
00002E10: 99 A3 31 30 29 3B 22 20 20 20 20 20 20 20 20 20 |..10);" |
00002E20: 20 20 20 20 20 20 20 20 20 22 00 41 36 5E 1A 8B | ".A6^..|
00002E30: 20 41 24 B3 B1 22 59 22 20 A7 20 89 20 36 38 31 | A$.."Y" . . 681|
00002E40: 35 00 4F 36 68 1A 43 24 28 43 52 29 B2 44 24 00 |5.O6h.C$(CR).D$.|
00002E50: 5E 36 72 1A 81 20 4A B2 30 20 A4 20 4C 32 00 78 |^6r.. J.0 . L2.x|
00002E60: 36 7C 1A 41 28 43 52 2C 4A 29 B2 30 3A 46 24 28 |6|.A(CR,J).0:F$(|
00002E70: 43 52 2C 4A 29 B2 22 22 00 7E 36 86 1A 82 00 89 |CR,J)."".~6.....|
00002E80: 36 90 1A 8D 20 33 32 39 30 00 94 36 9A 1A 8D 20 |6... 3290..6... |
00002E90: 33 36 30 30 00 B4 36 9F 1A 99 22 13 22 3A 99 A3 |3600..6...".":..|
00002EA0: 31 30 29 3B 22 4D 4F 44 45 20 20 20 20 20 20 20 |10);"MODE |
00002EB0: 20 20 20 22 00 BA 36 A4 1A 8E 00 D9 36 F4 1A 8F | "..6.....6...|
00002EC0: 20 42 4C 41 4E 4B 20 4F 55 54 20 43 4F 4C 55 4D | BLANK OUT COLUM|
00002ED0: 4E 20 52 4F 55 54 49 4E 45 00 FB 36 FE 1A 99 22 |N ROUTINE..6..."|
00002EE0: 13 22 3A 99 A3 31 30 29 3B 22 42 4C 41 4E 4B 20 |.":..10);"BLANK |
00002EF0: 4F 55 54 20 43 4F 4C 55 4D 4E 22 00 1A 37 08 1B |OUT COLUMN"..7..|
00002F00: 99 A3 31 30 29 3B 22 41 52 45 20 59 4F 55 20 53 |..10);"ARE YOU S|
00002F10: 55 52 45 20 28 59 2F 4E 29 22 00 34 37 12 1B A1 |URE (Y/N)".47...|
00002F20: 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 89 20 | A$:. A$."" . . |
00002F30: 36 39 33 30 00 5B 37 1C 1B 99 22 13 22 3A 99 3A |6930.[7...".":.:|
00002F40: 99 A3 31 30 29 3B 22 20 20 20 20 20 20 20 20 20 |..10);" |
00002F50: 20 20 20 20 20 20 20 20 20 20 22 00 72 37 21 1B | ".r7!.|
00002F60: 8B 20 41 24 B3 B1 22 59 22 20 A7 20 89 20 37 30 |. A$.."Y" . . 70|
00002F70: 31 30 00 80 37 26 1B 52 24 28 43 43 29 B2 44 24 |10..7&.R$(CC).D$|
00002F80: 00 8F 37 30 1B 81 20 49 B2 30 20 A4 20 4C 31 00 |..70.. I.0 . L1.|
00002F90: A9 37 3A 1B 41 28 49 2C 43 43 29 B2 30 3A 46 24 |.7:.A(I,CC).0:F$|
00002FA0: 28 49 2C 43 43 29 B2 22 22 00 AF 37 44 1B 82 00 |(I,CC).""..7D...|
00002FB0: BA 37 4E 1B 8D 20 33 32 39 30 00 C5 37 58 1B 8D |.7N.. 3290..7X..|
00002FC0: 20 33 36 30 30 00 E8 37 62 1B 99 22 13 22 3A 99 | 3600..7b..".":.|
00002FD0: A3 31 30 29 3B 22 4D 4F 44 45 20 20 20 20 20 20 |.10);"MODE |
00002FE0: 20 20 20 20 20 20 20 22 00 EE 37 6C 1B 8E 00 08 | "..7l....|
00002FF0: 38 BC 1B 8F 20 48 4F 4D 45 20 43 55 52 53 4F 52 |8... HOME CURSOR|
00003000: 20 52 4F 55 54 49 4E 45 00 22 38 20 1C 8F 20 48 | ROUTINE."8 .. H|
00003010: 4F 4D 45 20 43 55 52 53 4F 52 20 52 4F 55 54 49 |OME CURSOR ROUTI|
00003020: 4E 45 00 3D 38 2A 1C 99 22 13 22 3A 99 A3 31 30 |NE.=8*..".":..10|
00003030: 29 3B 22 48 4F 4D 45 20 20 20 20 20 22 00 48 38 |);"HOME ".H8|
00003040: 34 1C 8D 20 35 34 30 30 00 56 38 3E 1C 44 52 B2 |4.. 5400.V8>.DR.|
00003050: 30 3A 44 43 B2 30 00 68 38 48 1C 8D 20 33 30 30 |0:DC.0.h8H.. 300|
00003060: 30 3A 8D 20 33 32 30 30 00 7D 38 4D 1C 43 52 B2 |0:. 3200.}8M.CR.|
00003070: 37 3A 43 43 B2 30 3A 8D 20 33 36 30 30 00 94 38 |7:CC.0:. 3600..8|
00003080: 52 1C 99 22 13 22 3A 99 A3 31 30 29 3B 22 4D 4F |R..".":..10);"MO|
00003090: 44 45 20 22 00 9A 38 5C 1C 8E 00 B9 38 84 1C 8F |DE "..8\....8...|
000030A0: 20 43 4C 45 41 52 20 41 4C 4C 20 56 41 4C 55 45 | CLEAR ALL VALUE|
000030B0: 53 20 52 4F 55 54 49 4E 45 00 D9 38 89 1C 8B 20 |S ROUTINE..8... |
000030C0: 43 24 28 43 52 29 B2 44 24 20 B0 20 52 24 28 43 |C$(CR).D$ . R$(C|
000030D0: 43 29 B2 44 24 20 A7 20 8E 00 F5 38 8E 1C 99 22 |C).D$ . ...8..."|
000030E0: 13 22 3A 99 A3 31 30 29 3B 22 5A 45 52 4F 20 42 |.":..10);"ZERO B|
000030F0: 4F 58 45 53 22 00 15 39 98 1C 99 A3 31 30 29 3B |OXES"..9....10);|
00003100: 22 41 52 45 20 59 4F 55 20 53 55 52 45 20 28 59 |"ARE YOU SURE (Y|
00003110: 2F 4E 29 22 3B 00 2E 39 A2 1C A1 41 24 3A 8B 20 |/N)";..9...A$:. |
00003120: 41 24 B2 22 22 20 A7 20 89 20 37 33 33 30 00 5D |A$."" . . 7330.]|
00003130: 39 AC 1C 8B 20 41 24 B3 B1 22 59 22 20 A7 20 99 |9... A$.."Y" . .|
00003140: 22 13 22 3A 99 A3 31 30 29 3B 22 20 20 20 20 20 |".":..10);" |
00003150: 20 20 20 20 20 22 3A 89 20 37 34 33 30 00 66 39 | ":. 7430.f9|
00003160: B6 1C 99 22 59 22 00 75 39 C0 1C 81 20 4A B2 30 |..."Y".u9... J.0|
00003170: 20 A4 20 4C 32 00 84 39 CA 1C 81 20 4C B2 30 20 | . L2..9... L.0 |
00003180: A4 20 4C 31 00 91 39 D4 1C 41 28 4C 2C 4A 29 B2 |. L1..9..A(L,J).|
00003190: 30 00 99 39 DE 1C 82 3A 82 00 A4 39 E8 1C 8D 20 |0..9...:...9... |
000031A0: 33 32 30 30 00 AF 39 F2 1C 8D 20 33 36 30 30 00 |3200..9... 3600.|
000031B0: CB 39 FC 1C 99 22 13 22 3A 99 A3 31 30 29 3B 22 |.9...".":..10);"|
000031C0: 5A 45 52 4F 45 44 20 20 20 20 22 00 EB 39 06 1D |ZEROED "..9..|
000031D0: 99 A3 31 30 29 3B 22 20 20 20 20 20 20 20 20 20 |..10);" |
000031E0: 20 20 20 20 20 20 20 20 20 20 22 00 F1 39 10 1D | "..9..|
000031F0: 8E 00 09 3A 4C 1D 8F 20 53 41 56 45 20 46 49 4C |...:L.. SAVE FIL|
00003200: 45 20 52 4F 55 54 49 4E 45 00 13 3A 4E 1D 46 31 |E ROUTINE..:N.F1|
00003210: 33 B2 31 00 2E 3A 56 1D 99 22 93 22 3A 99 A3 31 |3.1..:V..".":..1|
00003220: 30 29 3B 22 53 41 56 45 20 46 49 4C 45 22 00 34 |0);"SAVE FILE".4|
00003230: 3A 5B 1D 99 00 4F 3A 60 1D 99 A3 35 29 3B 22 45 |:[...O:`...5);"E|
00003240: 4E 54 45 52 20 46 49 4C 45 4E 41 4D 45 22 3B 00 |NTER FILENAME";.|
00003250: 69 3A 6A 1D 85 20 4E 24 3A 8B 20 4E 24 B2 22 22 |i:j.. N$:. N$.""|
00003260: 20 A7 20 89 20 37 35 31 30 00 81 3A 6C 1D 8B 20 | . . 7510..:l.. |
00003270: 4E 24 B2 C7 28 31 33 29 20 A7 20 89 20 37 36 38 |N$..(13) . . 768|
00003280: 35 00 9E 3A 6F 1D 8B 20 C3 28 4E 24 29 B1 31 36 |5..:o.. .(N$).16|
00003290: 20 A7 20 4E 24 B2 C8 28 4E 24 2C 31 36 29 00 C1 | . N$..(N$,16)..|
000032A0: 3A 70 1D 99 3A 99 A3 35 29 3B 22 55 50 44 41 54 |:p..:..5);"UPDAT|
000032B0: 49 4E 47 20 46 49 4C 45 20 22 3A 8D 20 31 36 30 |ING FILE ":. 160|
000032C0: 30 00 DB 3A 74 1D 99 3A 99 A3 31 30 29 3B 22 53 |0..:t..:..10);"S|
000032D0: 41 56 49 4E 47 20 46 49 4C 45 22 00 E1 3A 7E 1D |AVING FILE"..:~.|
000032E0: 99 00 F0 3A 88 1D 9F 20 31 2C 38 2C 31 2C 4E 24 |...:... 1,8,1,N$|
000032F0: 00 FF 3A 8D 1D 4B B2 33 32 3A 4C B2 31 36 30 00 |..:..K.32:L.160.|
00003300: 09 3B 92 1D 98 31 2C 4C 31 00 13 3B 97 1D 98 31 |.;...1,L1..;...1|
00003310: 2C 4C 32 00 30 3B 9C 1D 58 24 B2 52 24 28 4C 32 |,L2.0;..X$.R$(L2|
00003320: AA 31 29 3A 8D 20 37 37 30 30 3A 98 31 2C 58 24 |.1):. 7700:.1,X$|
00003330: 00 57 3B A6 1D 81 20 4A B2 30 20 A4 20 4C 32 3A |.W;... J.0 . L2:|
00003340: 58 24 B2 52 24 28 4A 29 3A 8D 20 37 37 30 30 3A |X$.R$(J):. 7700:|
00003350: 98 31 2C 58 24 3A 82 00 7E 3B B0 1D 81 20 49 B2 |.1,X$:..~;... I.|
00003360: 30 20 A4 20 4C 31 3A 58 24 B2 43 24 28 49 29 3A |0 . L1:X$.C$(I):|
00003370: 8D 20 37 37 30 30 3A 98 31 2C 58 24 3A 82 00 89 |. 7700:.1,X$:...|
00003380: 3B B5 1D 58 24 B2 22 58 22 00 98 3B BA 1D 81 20 |;..X$."X"..;... |
00003390: 4A B2 30 20 A4 20 4C 32 00 A7 3B C4 1D 81 20 49 |J.0 . L2..;... I|
000033A0: B2 30 20 A4 20 4C 31 00 B5 3B CE 1D 98 31 2C 41 |.0 . L1..;...1,A|
000033B0: 28 49 2C 4A 29 00 DB 3B D0 1D 8B 20 46 24 28 49 |(I,J)..;... F$(I|
000033C0: 2C 4A 29 B2 22 22 20 A7 20 98 31 2C 58 24 3A 98 |,J)."" . .1,X$:.|
000033D0: 31 2C 58 24 3A 89 20 37 36 34 30 00 0B 3C D3 1D |1,X$:. 7640..<..|
000033E0: 98 31 2C C8 28 46 24 28 49 2C 4A 29 2C 37 39 29 |.1,.(F$(I,J),79)|
000033F0: 3A 8B C3 28 46 24 28 49 2C 4A 29 29 B3 38 30 A7 |:..(F$(I,J)).80.|
00003400: 98 31 2C 58 24 3A 89 37 36 34 30 00 20 3C D5 1D |.1,X$:.7640. <..|
00003410: 98 31 2C CA 28 46 24 28 49 2C 4A 29 2C 38 30 29 |.1,.(F$(I,J),80)|
00003420: 00 28 3C D8 1D 82 3A 82 00 35 3C DD 1D 98 31 2C |.(<...:..5<...1,|
00003430: 22 45 4F 46 22 00 3C 3C E2 1D A0 31 00 5A 3C EC |"EOF".<<...1.Z<.|
00003440: 1D 99 22 93 22 3A 99 A3 31 30 29 3B 22 53 41 56 |..".":..10);"SAV|
00003450: 45 44 20 41 53 20 22 3B 4E 24 00 83 3C F6 1D 99 |ED AS ";N$..<...|
00003460: 3A 99 3A 99 A3 38 29 3B 22 50 52 45 53 53 20 41 |:.:..8);"PRESS A|
00003470: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN|
00003480: 55 45 22 00 9A 3C 00 1E A1 41 24 3A 8B 20 41 24 |UE"..<...A$:. A$|
00003490: B2 22 22 20 A7 20 37 36 38 30 00 B2 3C 05 1E 99 |."" . 7680..<...|
000034A0: 20 22 93 22 3A 8D 20 33 30 30 30 3A 8D 20 33 32 | ".":. 3000:. 32|
000034B0: 30 30 00 B8 3C 0A 1E 8E 00 DB 3C 14 1E 8F 4F 56 |00..<.....<...OV|
000034C0: 45 20 53 50 41 43 45 53 20 46 4F 52 20 53 41 56 |E SPACES FOR SAV|
000034D0: 49 4E 47 20 52 4F 55 54 49 4E 45 00 EB 3C 19 1E |ING ROUTINE..<..|
000034E0: 41 24 B2 22 22 3A 42 24 B2 22 22 00 F9 3C 1E 1E |A$."":B$.""..<..|
000034F0: 81 20 58 B2 31 20 A4 20 39 00 25 3D 28 1E 8B 20 |. X.1 . 9.%=(.. |
00003500: CA 28 58 24 2C 58 2C 31 29 B3 B1 C7 28 4B 29 20 |.(X$,X,1)...(K) |
00003510: A7 20 42 24 B2 CA 28 58 24 2C 58 2C 31 29 3A 89 |. B$..(X$,X,1):.|
00003520: 20 37 37 34 30 00 31 3D 32 1E 42 24 B2 C7 28 4C | 7740.1=2.B$..(L|
00003530: 29 00 3E 3D 3C 1E 41 24 B2 41 24 AA 42 24 00 44 |).>=<.A$.A$.B$.D|
00003540: 3D 46 1E 82 00 4E 3D 50 1E 58 24 B2 41 24 00 54 |=F...N=P.X$.A$.T|
00003550: 3D 5A 1E 8E 00 6A 3D 78 1E 8F 20 50 52 49 4E 54 |=Z...j=x.. PRINT|
00003560: 45 52 20 52 4F 55 54 49 4E 45 00 84 3D 82 1E 99 |ER ROUTINE..=...|
00003570: 22 13 22 3A 99 A3 31 30 29 3B 22 50 52 49 4E 54 |".":..10);"PRINT|
00003580: 4F 55 54 22 00 9C 3D 8C 1E 8B 20 4C 32 B1 36 20 |OUT"..=... L2.6 |
00003590: A7 20 4E B2 36 3A 89 20 37 38 34 30 00 A5 3D 96 |. N.6:. 7840..=.|
000035A0: 1E 4E B2 4C 32 00 AF 3D A0 1E 9F 20 33 2C 34 00 |.N.L2..=... 3,4.|
000035B0: B6 3D AA 1E 9D 33 00 C0 3D B4 1E 99 3A 99 3A 99 |.=...3..=...:.:.|
000035C0: 00 DC 3D C8 1E 46 46 24 B2 22 20 20 20 D2 20 D2 |..=..FF$." . .|
000035D0: D2 D2 41 D2 D2 D2 D2 22 3A 43 B2 30 00 E9 3D C9 |..A....":C.0..=.|
000035E0: 1E 8F 20 52 45 50 45 41 54 00 19 3E CA 1E 81 20 |.. REPEAT..>... |
000035F0: 58 B2 30 20 A4 20 4E 3A 46 46 24 B2 46 46 24 AA |X.0 . N:FF$.FF$.|
00003600: 22 20 D2 D2 D2 22 AA C7 28 36 36 AA 58 AA 43 29 |" ..."..(66.X.C)|
00003610: AA 22 D2 D2 D2 D2 22 3A 82 00 2A 3E D2 1E 99 20 |."....":..*>... |
00003620: 46 46 24 3A 46 46 24 B2 22 22 00 4A 3E DC 1E 8B |FF$:FF$."".J>...|
00003630: 20 43 B2 30 20 A7 20 46 46 24 B2 22 20 20 31 B6 | C.0 . FF$." 1.|
00003640: 22 AA 52 24 28 4C 32 AA 31 29 00 58 3E E6 1E 81 |".R$(L2.1).X>...|
00003650: 20 4A B2 30 20 A4 20 4E 00 83 3E F0 1E 8B 20 52 | J.0 . N..>... R|
00003660: 24 28 4A AA 43 29 B3 B1 44 24 20 A7 20 46 46 24 |$(J.C)..D$ . FF$|
00003670: B2 46 46 24 AA 52 24 28 4A AA 43 29 3A 89 20 37 |.FF$.R$(J.C):. 7|
00003680: 39 34 30 00 9B 3E FA 1E 46 46 24 B2 46 46 24 AA |940..>..FF$.FF$.|
00003690: 22 20 20 20 20 D6 20 20 20 20 22 00 A1 3E 04 1F |" . "..>..|
000036A0: 82 00 B4 3E 0E 1F 99 20 46 46 24 3A 46 46 24 B2 |...>... FF$:FF$.|
000036B0: 22 22 3A 99 00 C3 3E 18 1F 81 20 57 B2 30 20 A4 |"":...>... W.0 .|
000036C0: 20 4C 31 00 DC 3E 1D 1F 8B 20 43 24 28 57 29 B3 | L1..>... C$(W).|
000036D0: B1 44 24 20 A7 20 89 20 37 39 38 30 00 21 3F 22 |.D$ . . 7980.!?"|
000036E0: 1F 4D B2 28 28 4E AA 31 AA B6 28 43 B2 30 29 29 |.M.((N.1..(C.0))|
000036F0: AC 39 AA 28 43 B2 30 29 AC AB 33 29 3A 46 46 24 |.9.(C.0)..3):FF$|
00003700: B2 22 22 3A 81 58 B2 31 A4 4D AA 31 3A 46 46 24 |."":.X.1.M.1:FF$|
00003710: B2 46 46 24 AA 22 D2 22 3A 82 3A 89 20 38 30 35 |.FF$.".":.:. 805|
00003720: 30 00 57 3F 2C 1F 8B 20 57 AA 32 B3 31 30 20 AF |0.W?,.. W.2.10 .|
00003730: 20 43 B2 30 20 A7 20 46 46 24 B2 22 20 22 20 AA | C.0 . FF$." " .|
00003740: C4 28 57 AA 32 29 AA 22 B6 22 AA 43 24 28 57 29 |.(W.2).".".C$(W)|
00003750: 3A 89 20 38 30 30 30 00 78 3F 36 1F 8B 20 43 B2 |:. 8000.x?6.. C.|
00003760: 30 20 A7 20 46 46 24 B2 C4 28 57 AA 32 29 AA 22 |0 . FF$..(W.2)."|
00003770: B6 22 AA 43 24 28 57 29 00 86 3F 40 1F 81 20 4A |.".C$(W)..?@.. J|
00003780: B2 30 20 A4 20 4E 00 B4 3F 4A 1F 8B 20 52 24 28 |.0 . N..?J.. R$(|
00003790: 4A AA 43 29 B2 44 24 20 A7 20 46 46 24 B2 46 46 |J.C).D$ . FF$.FF|
000037A0: 24 AA 22 20 20 20 20 D6 20 20 20 20 22 3A 89 20 |$." . ":. |
000037B0: 38 30 33 35 00 CF 3F 54 1F 41 B2 41 28 57 2C 4A |8035..?T.A.A(W,J|
000037C0: AA 43 29 3A 46 33 B2 31 3A 8D 20 35 30 30 30 00 |.C):F3.1:. 5000.|
000037D0: DE 3F 5E 1F 46 46 24 B2 46 46 24 AA 41 24 00 E8 |.?^.FF$.FF$.A$..|
000037E0: 3F 63 1F 41 24 B2 22 22 00 EE 3F 68 1F 82 00 23 |?c.A$.""..?h...#|
000037F0: 40 72 1F 54 B2 37 38 AB C3 28 46 46 24 29 3A 81 |@r.T.78..(FF$):.|
00003800: 20 42 B2 31 20 A4 20 54 3A 46 46 24 B2 46 46 24 | B.1 . T:FF$.FF$|
00003810: AA 22 20 22 3A 82 3A 99 20 46 46 24 3A 46 46 24 |." ":.:. FF$:FF$|
00003820: B2 22 22 00 29 40 7C 1F 82 00 3C 40 81 1F 8B 20 |."".)@|...<@... |
00003830: 43 B3 B1 30 20 A7 20 43 B2 43 AA 31 00 4D 40 86 |C..0 . C.C.1.M@.|
00003840: 1F 43 B2 43 AA 37 3A 4E B2 4C 32 AB 43 00 5D 40 |.C.C.7:N.L2.C.]@|
00003850: 90 1F 8B 20 4E B1 37 20 A7 20 4E B2 37 00 A9 40 |... N.7 . N.7..@|
00003860: 95 1F 99 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |..."............|
00003870: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00003880: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00003890: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000038A0: C3 C3 C3 C3 C3 C3 C3 22 3B 00 BE 40 96 1F 99 22 |.......";..@..."|
000038B0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 00 CA |............."..|
000038C0: 40 97 1F 99 3A 99 3A 99 3A 99 00 DD 40 9A 1F 8B |@...:.:.:...@...|
000038D0: 20 4E B1 30 20 A7 20 89 20 37 38 38 31 00 E4 40 | N.0 . . 7881..@|
000038E0: A4 1F 98 33 00 EB 40 AE 1F A0 33 00 06 41 B8 1F |...3..@...3..A..|
000038F0: 99 22 13 22 3A 99 A3 31 30 29 3B 22 50 52 49 4E |.".":..10);"PRIN|
00003900: 54 45 44 20 20 22 00 0F 41 BD 1F 46 33 B2 30 00 |TED "..A..F3.0.|
00003910: 15 41 C2 1F 8E 00 2F 41 08 20 8F 20 53 43 52 4F |.A..../A. . SCRO|
00003920: 4C 4C 20 4C 45 46 54 20 52 4F 55 54 49 4E 45 00 |LL LEFT ROUTINE.|
00003930: 3B 41 12 20 9E 20 34 39 34 30 38 00 68 41 1C 20 |;A. . 49408.hA. |
00003940: 99 22 13 22 3A 99 22 11 11 11 22 3A 99 A3 33 30 |.".":."...":..30|
00003950: 29 3B 22 20 AF AF AF 22 AA C7 28 36 38 AA 44 43 |);" ..."..(68.DC|
00003960: 29 AA 22 AF AF AF AF 22 00 93 41 1E 20 8B 20 52 |)."...."..A. . R|
00003970: 24 28 44 43 AA 32 29 B2 44 24 20 A7 20 4E 33 24 |$(DC.2).D$ . N3$|
00003980: B2 22 20 20 20 20 D6 20 20 20 20 22 3A 89 20 38 |." . ":. 8|
00003990: 32 32 35 00 A4 41 1F 20 4E 33 24 B2 52 24 28 44 |225..A. N3$.R$(D|
000039A0: 43 AA 32 29 00 B2 41 21 20 99 A3 33 30 29 3B 4E |C.2)..A! ..30);N|
000039B0: 33 24 00 C2 41 26 20 99 22 13 11 11 11 11 11 11 |3$..A& .".......|
000039C0: 11 22 00 D0 41 30 20 81 20 4C B2 30 20 A4 20 37 |."..A0 . L.0 . 7|
000039D0: 00 DC 41 3A 20 99 20 A3 33 30 29 3B 00 05 42 3F |..A: . .30);..B?|
000039E0: 20 8B 20 43 24 28 44 52 AA 4C 29 B2 44 24 20 A7 | . C$(DR.L).D$ .|
000039F0: 20 99 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 3B 3A 89 | .".........";:.|
00003A00: 20 38 32 38 30 00 2E 42 40 20 8B 20 52 24 28 44 | 8280..B@ . R$(D|
00003A10: 43 AA 32 29 B2 44 24 20 A7 20 99 22 20 20 20 20 |C.2).D$ . ." |
00003A20: D6 20 20 20 20 22 3B 3A 89 20 38 32 38 30 00 41 |. ";:. 8280.A|
00003A30: 42 44 20 41 B2 41 28 44 52 AA 4C 2C 44 43 AA 32 |BD A.A(DR.L,DC.2|
00003A40: 29 00 4C 42 4E 20 8D 20 35 30 30 30 00 54 42 58 |).LBN . 5000.TBX|
00003A50: 20 99 3A 99 00 5A 42 62 20 82 00 60 42 6C 20 8E | .:..ZBb ..`Bl .|
00003A60: 00 7A 42 D0 20 8F 20 53 43 52 4F 4C 4C 20 4C 45 |.zB. . SCROLL LE|
00003A70: 46 54 20 52 4F 55 54 49 4E 45 00 AE 42 DF 20 99 |FT ROUTINE..B. .|
00003A80: 22 13 22 3B 3A 42 B2 28 43 52 AB 44 52 29 AC 32 |".";:B.(CR.DR).2|
00003A90: AA 38 3A 81 20 58 B2 31 20 A4 20 42 3A 99 22 11 |.8:. X.1 . B:.".|
00003AA0: 22 3B 3A 82 3A 99 A3 31 32 29 3B 22 20 22 00 BA |";:.:..12);" "..|
00003AB0: 42 E4 20 9E 20 34 39 36 36 34 00 E7 42 EE 20 99 |B. . 49664..B. .|
00003AC0: 22 13 22 3A 99 22 11 11 11 22 3A 99 A3 31 32 29 |".":."...":..12)|
00003AD0: 3B 22 20 AF AF AF 22 AA C7 28 36 36 AA 44 43 29 |;" ..."..(66.DC)|
00003AE0: AA 22 AF AF AF AF 22 00 10 43 F0 20 8B 20 52 24 |."...."..C. . R$|
00003AF0: 28 44 43 29 B2 44 24 20 A7 20 4E 33 24 B2 22 20 |(DC).D$ . N3$." |
00003B00: 20 20 20 D6 20 20 20 20 22 3A 89 20 38 34 33 35 | . ":. 8435|
00003B10: 00 1F 43 F1 20 4E 33 24 B2 52 24 28 44 43 29 00 |..C. N3$.R$(DC).|
00003B20: 2D 43 F3 20 99 A3 31 32 29 3B 4E 33 24 00 3D 43 |-C. ..12);N3$.=C|
00003B30: F8 20 99 22 13 11 11 11 11 11 11 11 22 00 4B 43 |. ."........".KC|
00003B40: 02 21 81 20 4C B2 30 20 A4 20 37 00 56 43 0C 21 |.!. L.0 . 7.VC.!|
00003B50: 99 A3 31 32 29 3B 00 84 43 0E 21 8B 20 43 24 28 |..12);..C.!. C$(|
00003B60: 44 52 AA 4C 29 B2 44 24 20 A7 20 99 A3 31 32 29 |DR.L).D$ . ..12)|
00003B70: 3B 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 3B 3A 89 20 |;".........";:. |
00003B80: 38 34 39 30 00 AB 43 11 21 8B 20 52 24 28 44 43 |8490..C.!. R$(DC|
00003B90: 29 B2 44 24 20 A7 20 99 22 20 20 20 20 D6 20 20 |).D$ . ." . |
00003BA0: 20 20 22 3B 3A 89 20 38 34 39 30 00 BC 43 16 21 | ";:. 8490..C.!|
00003BB0: 41 B2 41 28 44 52 AA 4C 2C 44 43 29 00 C7 43 20 |A.A(DR.L,DC)..C |
00003BC0: 21 8D 20 35 30 30 30 00 CF 43 2A 21 99 3A 99 00 |!. 5000..C*!.:..|
00003BD0: D5 43 34 21 82 00 DB 43 3E 21 8E 00 F3 43 98 21 |.C4!...C>!...C.!|
00003BE0: 8F 20 53 43 52 4F 4C 4C 20 55 50 20 52 4F 55 54 |. SCROLL UP ROUT|
00003BF0: 49 4E 45 00 FF 43 A7 21 9E 20 34 39 39 32 30 00 |INE..C.!. 49920.|
00003C00: 1C 44 AC 21 99 22 13 22 3B 3A 81 20 42 B2 31 20 |.D.!.".";:. B.1 |
00003C10: A4 20 32 31 3A 99 22 11 22 3B 3A 82 00 2B 44 B1 |. 21:.".";:..+D.|
00003C20: 21 4E 24 B2 C4 28 44 52 AA 39 29 00 3B 44 B2 21 |!N$..(DR.9).;D.!|
00003C30: 4E 32 24 B2 C9 28 4E 24 2C 32 29 00 66 44 B3 21 |N2$..(N$,2).fD.!|
00003C40: 8B 20 43 24 28 44 52 AA 37 29 B2 44 24 20 A7 20 |. C$(DR.7).D$ . |
00003C50: 4E 33 24 B2 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 3A |N3$.".........":|
00003C60: 89 20 38 36 33 30 00 77 44 B4 21 4E 33 24 B2 43 |. 8630.wD.!N3$.C|
00003C70: 24 28 44 52 AA 37 29 00 8B 44 B6 21 99 3A 99 4E |$(DR.7)..D.!.:.N|
00003C80: 32 24 3B 22 B6 22 3B 4E 33 24 3B 00 C6 44 B8 21 |2$;".";N3$;..D.!|
00003C90: 8B 20 43 24 28 44 52 AA 37 29 B2 44 24 20 A7 20 |. C$(DR.7).D$ . |
00003CA0: 99 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |."..............|
00003CB0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 3B 3A |.............";:|
00003CC0: 89 20 38 36 37 35 00 D4 44 C0 21 81 20 49 B2 30 |. 8675..D.!. I.0|
00003CD0: 20 A4 20 32 00 E8 44 C2 21 99 22 11 91 22 3B A3 | . 2..D.!."..";.|
00003CE0: 49 AC 39 AA 31 32 29 3B 00 11 45 C5 21 8B 20 52 |I.9.12);..E.!. R|
00003CF0: 24 28 44 43 AA 49 29 B2 44 24 20 A7 20 99 22 20 |$(DC.I).D$ . ." |
00003D00: 20 20 20 D6 20 20 20 20 22 3B 3A 89 20 38 36 37 | . ";:. 867|
00003D10: 30 00 24 45 CA 21 41 B2 41 28 44 52 AA 37 2C 44 |0.$E.!A.A(DR.7,D|
00003D20: 43 AA 49 29 00 2F 45 D4 21 8D 20 35 30 30 30 00 |C.I)./E.!. 5000.|
00003D30: 35 45 DE 21 82 00 42 45 E3 21 99 3A 99 22 20 20 |5E.!..BE.!.:." |
00003D40: B6 22 00 48 45 E8 21 8E 00 62 45 FC 21 8F 20 53 |.".HE.!..bE.!. S|
00003D50: 43 52 4F 4C 4C 20 44 4F 57 4E 20 52 4F 55 54 49 |CROLL DOWN ROUTI|
00003D60: 4E 45 00 6E 45 06 22 9E 20 35 30 31 37 36 00 81 |NE.nE.". 50176..|
00003D70: 45 10 22 99 22 13 11 11 11 11 11 11 11 20 20 B6 |E."."........ .|
00003D80: 22 00 A1 45 15 22 8B 20 44 52 B3 38 20 A7 20 4E |"..E.". DR.8 . N|
00003D90: 32 24 B2 C4 28 44 52 AA 32 29 3A 89 20 38 37 33 |2$..(DR.2):. 873|
00003DA0: 32 00 BC 45 1A 22 4E 24 B2 C4 28 44 52 AA 32 29 |2..E."N$..(DR.2)|
00003DB0: 3A 4E 32 24 B2 C9 28 4E 24 2C 32 29 00 E5 45 1C |:N2$..(N$,2)..E.|
00003DC0: 22 8B 20 43 24 28 44 52 29 B2 44 24 20 A7 20 4E |". C$(DR).D$ . N|
00003DD0: 33 24 B2 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 3A 89 |3$.".........":.|
00003DE0: 20 38 37 34 30 00 F4 45 1F 22 4E 33 24 B2 43 24 | 8740..E."N3$.C$|
00003DF0: 28 44 52 29 00 07 46 24 22 99 20 4E 32 24 3B 22 |(DR)..F$". N2$;"|
00003E00: B6 22 3B 4E 33 24 3B 00 40 46 26 22 8B 20 43 24 |.";N3$;.@F&". C$|
00003E10: 28 44 52 29 B2 44 24 20 A7 20 99 22 C3 C3 C3 C3 |(DR).D$ . ."....|
00003E20: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00003E30: C3 C3 C3 C3 C3 C3 C3 22 3B 3A 89 20 38 37 39 30 |.......";:. 8790|
00003E40: 00 4E 46 2E 22 81 20 49 B2 30 20 A4 20 32 00 62 |.NF.". I.0 . 2.b|
00003E50: 46 30 22 99 22 11 91 22 3B A3 49 AC 39 AA 31 32 |F0"."..";.I.9.12|
00003E60: 29 3B 00 8B 46 33 22 8B 20 52 24 28 44 43 AA 49 |);..F3". R$(DC.I|
00003E70: 29 B2 44 24 20 A7 20 99 22 20 20 20 20 D6 20 20 |).D$ . ." . |
00003E80: 20 20 22 3B 3A 89 20 38 37 38 30 00 9C 46 38 22 | ";:. 8780..F8"|
00003E90: 41 B2 41 28 44 52 2C 44 43 AA 49 29 00 A7 46 42 |A.A(DR,DC.I)..FB|
00003EA0: 22 8D 20 35 30 30 30 00 AD 46 4C 22 82 00 B3 46 |". 5000..FL"...F|
00003EB0: 56 22 8E 00 D7 46 60 22 8F 20 51 55 49 54 20 46 |V"...F`". QUIT F|
00003EC0: 49 4C 45 20 41 4E 44 20 52 45 53 54 41 52 54 20 |ILE AND RESTART |
00003ED0: 52 4F 55 54 49 4E 45 00 FE 46 6A 22 99 22 13 22 |ROUTINE..Fj"."."|
00003EE0: 3A 99 A3 31 30 29 3B 22 51 55 49 54 20 46 49 4C |:..10);"QUIT FIL|
00003EF0: 45 20 41 4E 44 20 52 45 53 54 41 52 54 22 00 20 |E AND RESTART". |
00003F00: 47 74 22 99 A3 31 30 29 3B 22 41 52 45 20 59 4F |Gt"..10);"ARE YO|
00003F10: 55 20 53 55 52 45 20 28 59 2F 4E 29 20 3F 22 3B |U SURE (Y/N) ?";|
00003F20: 00 3A 47 7E 22 A1 20 41 24 3A 8B 20 41 24 B2 22 |.:G~". A$:. A$."|
00003F30: 22 20 A7 20 89 20 38 38 33 30 00 4F 47 88 22 8B |" . . 8830.OG.".|
00003F40: 20 41 24 B2 22 59 22 20 A7 89 20 38 38 35 30 00 | A$."Y" .. 8850.|
00003F50: 76 47 8D 22 99 22 13 22 3A 99 A3 31 30 29 3B 22 |vG.".".":..10);"|
00003F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F70: 20 20 20 20 20 22 00 98 47 8E 22 99 A3 31 30 29 | "..G."..10)|
00003F80: 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;" |
00003F90: 20 20 20 20 20 20 20 22 00 A2 47 8F 22 89 20 38 | "..G.". 8|
00003FA0: 38 30 00 A8 47 92 22 8A 00 CC 47 C4 22 8F 20 4C |80..G."...G.". L|
00003FB0: 4F 41 44 20 47 52 41 50 48 49 43 53 20 50 52 4F |OAD GRAPHICS PRO|
00003FC0: 47 52 41 4D 20 52 4F 55 54 49 4E 45 00 F4 47 CE |GRAM ROUTINE..G.|
00003FD0: 22 99 22 13 22 3A 99 A3 31 30 29 3B 22 4C 4F 41 |".".":..10);"LOA|
00003FE0: 44 20 47 52 41 50 48 49 43 53 20 50 52 4F 47 52 |D GRAPHICS PROGR|
00003FF0: 41 4D 20 22 00 16 48 D8 22 99 A3 31 30 29 3B 22 |AM "..H."..10);"|
00004000: 41 52 45 20 59 4F 55 20 53 55 52 45 20 28 59 2F |ARE YOU SURE (Y/|
00004010: 4E 29 20 3F 22 3B 00 30 48 E2 22 A1 20 41 24 3A |N) ?";.0H.". A$:|
00004020: 8B 20 41 24 B2 22 22 20 A7 20 89 20 38 39 33 30 |. A$."" . . 8930|
00004030: 00 68 48 EC 22 8B 20 41 24 B3 B1 22 59 22 20 A7 |.hH.". A$.."Y" .|
00004040: 20 99 22 13 22 3A 99 A3 31 30 29 3B 22 20 20 20 | .".":..10);" |
00004050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004060: 20 22 3A 89 20 38 38 30 00 74 48 F6 22 99 20 22 | ":. 880.tH.". "|
00004070: 59 45 53 22 00 89 48 00 23 8F 20 4C 4F 41 44 22 |YES"..H.#. LOAD"|
00004080: 47 52 41 50 48 49 43 53 22 00 8F 48 0A 23 80 00 |GRAPHICS"..H.#..|
00004090: AC 48 28 23 8F 20 45 4E 54 45 52 20 46 55 4E 43 |.H(#. ENTER FUNC|
000040A0: 54 49 4F 4E 20 52 4F 55 54 49 4E 45 00 B5 48 2D |TION ROUTINE..H-|
000040B0: 23 46 36 B2 30 00 D9 48 32 23 8B 20 43 24 28 43 |#F6.0..H2#. C$(C|
000040C0: 52 29 B2 44 24 20 B0 20 52 24 28 43 43 29 B2 44 |R).D$ . R$(CC).D|
000040D0: 24 20 A7 20 89 39 33 31 30 00 FF 48 37 23 99 22 |$ . .9310..H7#."|
000040E0: 13 22 3A 99 A3 31 30 29 3B 22 45 4E 54 45 52 20 |.":..10);"ENTER |
000040F0: 46 55 4E 43 54 49 4F 4E 20 20 20 20 20 20 22 00 |FUNCTION ".|
00004100: 0E 49 3C 23 54 46 24 B2 22 22 3A 42 B2 30 00 27 |.I<#TF$."":B.0.'|
00004110: 49 46 23 99 22 13 22 3A 99 3A 99 A3 31 29 3B A6 |IF#.".":.:..1);.|
00004120: 37 37 29 3B 22 5D 22 00 43 49 50 23 99 22 13 22 |77);"]".CIP#."."|
00004130: 3A 99 3A 99 20 C7 28 43 43 AA 36 36 29 3B 43 52 |:.:. .(CC.66);CR|
00004140: AA 32 3B 00 51 49 5A 23 99 A3 35 29 3B 22 3D 5B |.2;.QIZ#..5);"=[|
00004150: 22 00 6B 49 64 23 A1 20 54 24 3A 8B 20 54 24 B2 |".kId#. T$:. T$.|
00004160: 22 22 20 A7 20 89 20 39 30 36 30 00 76 49 6E 23 |"" . . 9060.vIn#|
00004170: 8D 20 39 35 30 30 00 94 49 78 23 8B 20 54 24 B2 |. 9500..Ix#. T$.|
00004180: C7 28 32 30 29 20 AF 20 41 B2 30 20 A7 20 89 20 |.(20) . A.0 . . |
00004190: 39 30 36 30 00 C0 49 82 23 8B 20 54 24 B2 C7 28 |9060..I.#. T$..(|
000041A0: 32 30 29 20 A7 20 54 46 24 B2 C8 28 54 46 24 2C |20) . TF$..(TF$,|
000041B0: 41 AB 31 29 3A 46 36 B2 31 3A 89 20 39 32 38 30 |A.1):F6.1:. 9280|
000041C0: 00 D8 49 8C 23 8B 20 54 24 B2 C7 28 31 33 29 20 |..I.#. T$..(13) |
000041D0: A7 20 89 20 39 31 33 30 00 EC 49 96 23 8B 20 41 |. . 9130..I.#. A|
000041E0: B1 36 39 20 A7 20 89 20 39 30 36 30 00 F7 49 A0 |.69 . . 9060..I.|
000041F0: 23 89 20 39 32 36 30 00 1A 4A AA 23 8B 20 54 46 |#. 9260..J.#. TF|
00004200: 24 B2 22 22 20 A7 20 46 24 28 43 52 2C 43 43 29 |$."" . F$(CR,CC)|
00004210: B2 22 22 3A 89 20 39 33 30 30 00 42 4A B4 23 8B |."":. 9300.BJ.#.|
00004220: 20 43 52 B1 37 20 A7 5A 24 B2 C9 28 C4 28 43 52 | CR.7 .Z$..(.(CR|
00004230: AA 32 29 2C 32 29 3A 43 4C B2 33 3A 89 20 39 31 |.2),2):CL.3:. 91|
00004240: 34 35 00 5B 4A B6 23 5A 24 B2 C9 28 C4 28 43 52 |45.[J.#Z$..(.(CR|
00004250: AA 32 29 2C 31 29 3A 43 4C B2 32 00 6F 4A B9 23 |.2),1):CL.2.oJ.#|
00004260: 54 42 24 B2 C7 28 43 43 AA 36 36 29 AA 5A 24 00 |TB$..(CC.66).Z$.|
00004270: 82 4A BE 23 81 20 58 B2 31 20 A4 20 C3 28 54 46 |.J.#. X.1 . .(TF|
00004280: 24 29 00 96 4A C8 23 42 54 24 B2 CA 28 54 46 24 |$)..J.#BT$..(TF$|
00004290: 2C 58 2C 43 4C 29 00 C3 4A D2 23 8B 20 42 54 24 |,X,CL)..J.#. BT$|
000042A0: B2 54 42 24 20 A7 20 46 24 28 43 52 2C 43 43 29 |.TB$ . F$(CR,CC)|
000042B0: B2 22 22 3A 54 46 24 B2 22 22 3A 58 B2 C3 28 54 |."":TF$."":X..(T|
000042C0: 46 24 29 00 C9 4A DC 23 82 00 DF 4A E1 23 8B 20 |F$)..J.#...J.#. |
000042D0: 54 46 24 B2 22 22 20 A7 20 89 20 39 31 39 30 00 |TF$."" . . 9190.|
000042E0: 0F 4B E6 23 8B 20 54 46 24 B3 B1 22 22 20 A7 20 |.K.#. TF$.."" . |
000042F0: 46 46 24 B2 54 46 24 3A 8D 20 31 30 38 30 30 3A |FF$.TF$:. 10800:|
00004300: 8F 20 54 52 41 4E 53 20 52 4F 55 54 49 4E 45 00 |. TRANS ROUTINE.|
00004310: 21 4B EB 23 46 24 28 43 52 2C 43 43 29 B2 46 46 |!K.#F$(CR,CC).FF|
00004320: 24 00 35 4B EC 23 8B 20 45 52 B2 31 20 A7 20 89 |$.5K.#. ER.1 . .|
00004330: 20 39 32 30 35 00 52 4B F0 23 8B 20 46 24 28 43 | 9205.RK.#. F$(C|
00004340: 52 2C 43 43 29 B3 B1 22 22 20 A7 20 89 20 39 32 |R,CC).."" . . 92|
00004350: 31 30 00 79 4B F5 23 99 22 13 22 3A 99 A3 31 30 |10.yK.#.".":..10|
00004360: 29 3B 22 53 59 4E 54 41 58 2D 50 52 45 53 53 20 |);"SYNTAX-PRESS |
00004370: 41 4E 59 20 4B 45 59 20 22 00 93 4B F6 23 A1 20 |ANY KEY "..K.#. |
00004380: 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 89 20 39 |A$:. A$."" . . 9|
00004390: 32 30 36 00 A4 4B F7 23 99 22 13 22 3A 99 3A 99 |206..K.#.".":.:.|
000043A0: A3 38 29 3B 00 BA 4B F8 23 81 20 58 B2 31 20 A4 |.8);..K.#. X.1 .|
000043B0: 20 41 3A 99 22 A0 22 3B 3A 82 00 C5 4B F9 23 89 | A:.".";:...K.#.|
000043C0: 20 39 30 30 30 00 DE 4B FA 23 47 54 24 B2 22 22 | 9000..K.#GT$.""|
000043D0: 3A 54 46 24 B2 22 22 3A 46 34 24 B2 22 22 00 FF |:TF$."":F4$.""..|
000043E0: 4B 04 24 99 22 13 22 3A 99 A3 31 30 29 3B 22 4D |K.$.".":..10);"M|
000043F0: 4F 44 45 20 20 20 20 20 20 20 20 20 20 20 22 00 |ODE ".|
00004400: 26 4C 0E 24 8B 20 43 52 B1 37 20 A7 20 99 22 13 |&L.$. CR.7 . .".|
00004410: 22 3A 99 3A 99 A3 37 29 3B 22 20 22 3A 99 A3 33 |":.:..7);" ":..3|
00004420: 38 29 3B 22 20 22 00 3B 4C 18 24 8B 20 43 52 B3 |8);" ".;L.$. CR.|
00004430: B2 37 20 A7 20 89 20 39 33 31 30 00 46 4C 22 24 |.7 . . 9310.FL"$|
00004440: 89 20 39 33 31 30 00 72 4C 2C 24 8B 20 28 4C 4C |. 9310.rL,$. (LL|
00004450: B2 30 AF 4E B2 30 AF 4F B2 30 AF 50 B2 30 AF 42 |.0.N.0.O.0.P.0.B|
00004460: 32 B2 30 AF 42 33 B2 30 29 20 A7 20 89 20 39 30 |2.0.B3.0) . . 90|
00004470: 36 30 00 81 4C 36 24 54 46 24 B2 54 46 24 AA 54 |60..L6$TF$.TF$.T|
00004480: 24 00 96 4C 40 24 99 22 13 22 3A 99 3A 99 A3 38 |$..L@$.".":.:..8|
00004490: 29 3B A6 37 30 29 00 AB 4C 4A 24 99 22 13 22 3A |);.70)..LJ$.".":|
000044A0: 99 3A 99 A3 38 29 3B 54 46 24 3B 00 C2 4C 4F 24 |.:..8);TF$;..LO$|
000044B0: 8B 20 46 36 B2 31 20 A7 20 46 36 B2 30 3A 99 22 |. F6.1 . F6.0:."|
000044C0: 20 22 00 CD 4C 54 24 89 20 39 30 36 30 00 EE 4C | "..LT$. 9060..L|
000044D0: 5E 24 99 22 13 22 3A 99 A3 31 30 29 3B 22 4D 4F |^$.".":..10);"MO|
000044E0: 44 45 20 20 20 20 20 20 20 20 20 20 20 22 00 21 |DE ".!|
000044F0: 4D 60 24 99 22 20 20 20 20 20 20 20 20 20 20 20 |M`$." |
00004500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00004520: 3B 00 4E 4D 62 24 99 22 20 20 20 20 20 20 20 20 |;.NMb$." |
00004530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004540: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 5D | ".]|
00004550: 4D 63 24 41 28 43 52 2C 43 43 29 B2 30 00 68 4D |Mc$A(CR,CC).0.hM|
00004560: 64 24 8D 20 33 38 30 30 00 73 4D 65 24 8D 20 33 |d$. 3800.sMe$. 3|
00004570: 36 30 30 00 79 4D 68 24 8E 00 93 4D 1C 25 8F 20 |600.yMh$...M.%. |
00004580: 54 45 53 54 20 53 54 52 49 4E 47 20 52 4F 55 54 |TEST STRING ROUT|
00004590: 49 4E 45 00 A0 4D 26 25 41 B2 C3 28 54 46 24 29 |INE..M&%A..(TF$)|
000045A0: 00 BF 4D 30 25 4C 4C B2 30 3A 4E B2 30 3A 4F B2 |..M0%LL.0:N.0:O.|
000045B0: 30 3A 50 B2 30 3A 42 32 B2 30 3A 42 33 B2 30 00 |0:P.0:B2.0:B3.0.|
000045C0: E3 4D 3A 25 8B 20 54 24 B1 22 41 22 20 AF 20 54 |.M:%. T$."A" . T|
000045D0: 24 B3 C7 28 4C 32 AA 36 37 29 20 A7 20 4C 4C B2 |$..(L2.67) . LL.|
000045E0: 31 3A 8E 00 01 4E 44 25 8B 20 54 24 B1 22 2F 22 |1:...ND%. T$."/"|
000045F0: 20 AF 20 54 24 B3 22 3A 22 20 A7 20 4E B2 31 3A | . T$.":" . N.1:|
00004600: 8E 00 2C 4E 4E 25 8B 20 28 54 24 B2 22 2B 22 B0 |..,NN%. (T$."+".|
00004610: 54 24 B2 22 2D 22 B0 54 24 B2 22 2A 22 B0 54 24 |T$."-".T$."*".T$|
00004620: B2 22 2F 22 29 A7 20 4F B2 31 3A 8E 00 41 4E 58 |."/"). O.1:..ANX|
00004630: 25 8B 20 54 24 B2 22 2E 22 20 A7 20 50 B2 31 3A |%. T$."." . P.1:|
00004640: 8E 00 5D 4E 62 25 8B 20 54 24 B2 22 28 22 20 A7 |..]Nb%. T$."(" .|
00004650: 20 42 B2 42 AA 31 3A 42 32 B2 31 3A 8E 00 79 4E | B.B.1:B2.1:..yN|
00004660: 6C 25 8B 20 54 24 B2 22 29 22 20 A7 20 42 B2 42 |l%. T$.")" . B.B|
00004670: AB 31 3A 42 33 B2 31 3A 8E 00 7F 4E 76 25 8E 00 |.1:B3.1:...Nv%..|
00004680: 93 4E 80 25 8F 20 54 52 41 4E 53 20 52 4F 55 54 |.N.%. TRANS ROUT|
00004690: 49 4E 45 00 B2 4E 10 27 8F 20 44 49 53 50 4C 41 |INE..N.'. DISPLA|
000046A0: 59 20 46 55 4E 43 54 49 4F 4E 20 52 4F 55 54 49 |Y FUNCTION ROUTI|
000046B0: 4E 45 00 CF 4E 15 27 8B 20 46 24 28 43 52 2C 43 |NE..N.'. F$(CR,C|
000046C0: 43 29 B2 22 22 20 A7 20 89 20 31 30 30 39 30 00 |C)."" . . 10090.|
000046D0: F1 4E 1A 27 99 22 13 22 3A 99 A3 31 30 29 3B 22 |.N.'.".":..10);"|
000046E0: 44 49 53 50 4C 41 59 20 46 55 4E 43 54 49 4F 4E |DISPLAY FUNCTION|
000046F0: 22 00 03 4F 1F 27 46 46 24 B2 46 24 28 43 52 2C |"..O.'FF$.F$(CR,|
00004700: 43 43 29 00 29 4F 24 27 8B 20 43 24 28 43 52 29 |CC).)O$'. C$(CR)|
00004710: B2 44 24 20 B0 20 52 24 28 43 43 29 B2 44 24 20 |.D$ . R$(CC).D$ |
00004720: A7 20 89 20 31 30 30 38 35 00 31 4F 26 27 4C B2 |. . 10085.1O&'L.|
00004730: 30 00 57 4F 29 27 4C B2 4C AA 31 3A 8B 20 CA 28 |0.WO)'L.L.1:. .(|
00004740: 46 46 24 2C 4C 2C 31 29 B3 B1 22 D7 22 20 A7 20 |FF$,L,1).."." . |
00004750: 89 20 31 30 30 32 35 00 6F 4F 2A 27 4E 46 24 B2 |. 10025.oO*'NF$.|
00004760: C9 28 46 46 24 2C C3 28 46 46 24 29 AB 4C 29 00 |.(FF$,.(FF$).L).|
00004770: 84 4F 38 27 99 20 C7 28 43 43 AA 36 36 29 3B 43 |.O8'. .(CC.66);C|
00004780: 52 AA 32 3B 00 96 4F 42 27 99 A3 35 29 3B 22 3D |R.2;..OB'..5);"=|
00004790: 20 22 3B 4E 46 24 00 B8 4F 4C 27 99 22 13 22 3A | ";NF$..OL'.".":|
000047A0: 99 A3 31 30 29 3B 22 50 52 45 53 53 20 41 4E 59 |..10);"PRESS ANY|
000047B0: 20 4B 45 59 20 20 20 22 00 D3 4F 51 27 A1 20 41 | KEY "..OQ'. A|
000047C0: 24 3A 8B 20 41 24 B2 22 22 20 A7 20 89 20 31 30 |$:. A$."" . . 10|
000047D0: 30 36 35 00 DC 4F 52 27 99 22 13 22 00 11 50 56 |065..OR'."."..PV|
000047E0: 27 99 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 |'.:." |
000047F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00004810: 3B 00 3E 50 60 27 99 22 20 20 20 20 20 20 20 20 |;.>P`'." |
00004820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004830: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 60 | ".`|
00004840: 50 65 27 99 22 13 22 3A 99 A3 31 30 29 3B 22 4D |Pe'.".":..10);"M|
00004850: 4F 44 45 20 20 20 20 20 20 20 20 20 20 20 20 22 |ODE "|
00004860: 00 66 50 6A 27 8E 00 82 50 74 27 8F 20 43 4F 50 |.fPj'...Pt'. COP|
00004870: 59 20 46 55 4E 43 54 49 4F 4E 20 52 4F 55 54 49 |Y FUNCTION ROUTI|
00004880: 4E 45 00 A5 50 7E 27 8B 20 43 24 28 43 52 29 B2 |NE..P~'. C$(CR).|
00004890: 44 24 B0 52 24 28 43 43 29 B2 44 24 A7 20 89 20 |D$.R$(CC).D$. . |
000048A0: 31 30 36 38 30 00 BF 50 83 27 99 22 13 22 3A 99 |10680..P.'.".":.|
000048B0: A3 32 38 29 3B 22 12 1C 43 4F 50 59 05 92 22 00 |.28);"..COPY..".|
000048C0: C5 50 88 27 8F 00 E2 50 92 27 8B 20 46 24 28 43 |.P.'...P.'. F$(C|
000048D0: 52 2C 43 43 29 B2 22 22 20 A7 20 89 20 31 30 36 |R,CC)."" . . 106|
000048E0: 38 30 00 F4 50 9C 27 54 46 24 B2 46 24 28 43 52 |80..P.'TF$.F$(CR|
000048F0: 2C 43 43 29 00 FE 50 A6 27 4F 57 B2 43 52 00 08 |,CC)..P.'OW.CR..|
00004900: 51 B0 27 4F 4C B2 43 43 00 13 51 C4 27 46 54 24 |Q.'OL.CC..Q.'FT$|
00004910: B2 22 22 00 21 51 CE 27 56 32 B2 C3 28 54 46 24 |."".!Q.'V2..(TF$|
00004920: 29 00 3C 51 D8 27 A1 20 54 24 3A 8B 20 54 24 B2 |).<Q.'. T$:. T$.|
00004930: 22 22 20 A7 20 89 20 31 30 32 30 30 00 4D 51 E2 |"" . . 10200.MQ.|
00004940: 27 99 22 13 22 3A 99 A3 30 29 3B 22 22 00 66 51 |'.".":..0);"".fQ|
00004950: EC 27 8B 20 54 24 B2 C7 28 31 33 29 20 A7 20 89 |.'. T$..(13) . .|
00004960: 20 31 30 32 34 34 00 9D 51 F6 27 8B 20 54 24 B2 | 10244..Q.'. T$.|
00004970: 22 11 22 20 B0 20 54 24 B2 22 91 22 20 B0 20 54 |"." . T$."." . T|
00004980: 24 B2 22 1D 22 20 B0 20 54 24 B2 22 9D 22 20 A7 |$."." . T$."." .|
00004990: 20 43 24 B2 54 24 3A 8D 20 34 30 30 30 00 A9 51 | C$.T$:. 4000..Q|
000049A0: 00 28 89 20 31 30 32 30 30 00 CF 51 04 28 97 20 |.(. 10200..Q.(. |
000049B0: 35 34 32 37 36 2C 31 37 3A 81 20 58 B2 31 20 A4 |54276,17:. X.1 .|
000049C0: 20 35 30 3A 82 3A 97 20 35 34 32 37 36 2C 30 00 | 50:.:. 54276,0.|
000049D0: EE 51 05 28 99 22 13 22 3A 99 A3 31 30 29 3B 22 |.Q.(.".":..10);"|
000049E0: 43 4F 50 59 20 46 55 4E 43 54 49 4F 4E 22 00 0C |COPY FUNCTION"..|
000049F0: 52 0A 28 8B 20 43 52 B2 4F 57 20 AF 20 43 43 B2 |R.(. CR.OW . CC.|
00004A00: 4F 4C 20 A7 20 89 20 31 30 36 38 30 00 22 52 14 |OL . . 10680."R.|
00004A10: 28 8B 20 4F 57 B2 43 52 20 A7 20 89 20 31 30 32 |(. OW.CR . . 102|
00004A20: 39 30 00 38 52 1E 28 8B 20 4F 4C B2 43 43 20 A7 |90.8R.(. OL.CC .|
00004A30: 20 89 20 31 30 34 33 30 00 68 52 28 28 99 22 13 | . 10430.hR((.".|
00004A40: 22 3A 99 A3 31 30 29 3B 22 49 4E 56 41 4C 49 44 |":..10);"INVALID|
00004A50: 22 3A 81 20 43 B2 31 20 A4 20 32 30 30 30 3A 82 |":. C.1 . 2000:.|
00004A60: 3A 89 20 31 30 36 38 30 00 82 52 32 28 8B 20 52 |:. 10680..R2(. R|
00004A70: 24 28 43 43 29 B2 44 24 20 A7 20 89 20 31 30 36 |$(CC).D$ . . 106|
00004A80: 38 30 00 93 52 3C 28 4F 4C 24 B2 C7 28 4F 4C AA |80..R<(OL$..(OL.|
00004A90: 36 36 29 00 9B 52 3E 28 48 B2 31 00 A9 52 41 28 |66)..R>(H.1..RA(|
00004AA0: 46 37 B2 30 3A 46 38 B2 30 00 BC 52 46 28 81 20 |F7.0:F8.0..RF(. |
00004AB0: 58 B2 48 20 A4 20 C3 28 54 46 24 29 00 D4 52 50 |X.H . .(TF$)..RP|
00004AC0: 28 42 54 24 B2 CA 28 54 46 24 2C 58 2C C3 28 4F |(BT$..(TF$,X,.(O|
00004AD0: 4C 24 29 29 00 E9 52 5A 28 8B 20 42 54 24 B2 4F |L$))..RZ(. BT$.O|
00004AE0: 4C 24 20 A7 20 46 38 B2 31 00 04 53 5F 28 8B 20 |L$ . F8.1..S_(. |
00004AF0: 46 38 B2 31 20 A7 20 46 37 B2 58 3A 58 B2 C3 28 |F8.1 . F7.X:X..(|
00004B00: 54 46 24 29 00 0A 53 64 28 82 00 20 53 6E 28 8B |TF$)..Sd(.. Sn(.|
00004B10: 20 46 37 B2 30 20 A7 20 89 20 20 31 30 36 33 30 | F7.0 . . 10630|
00004B20: 00 35 53 78 28 8B 20 46 37 B2 31 20 A7 20 89 20 |.5Sx(. F7.1 . . |
00004B30: 31 30 34 30 30 00 5F 53 82 28 46 46 24 B2 C8 28 |10400._S.(FF$..(|
00004B40: 54 46 24 2C 46 37 AB 31 29 AA C7 28 36 36 AA 43 |TF$,F7.1)..(66.C|
00004B50: 43 29 AA C9 28 54 46 24 2C 56 32 AB 46 37 29 00 |C)..(TF$,V2.F7).|
00004B60: 6B 53 8C 28 54 46 24 B2 46 46 24 00 74 53 91 28 |kS.(TF$.FF$.tS.(|
00004B70: 48 B2 46 37 00 80 53 96 28 89 20 31 30 33 30 35 |H.F7..S.(. 10305|
00004B80: 00 9E 53 A0 28 46 46 24 B2 C7 28 43 43 AA 36 36 |..S.(FF$..(CC.66|
00004B90: 29 AA C9 28 54 46 24 2C 56 32 AB 46 37 29 00 AA |)..(TF$,V2.F7)..|
00004BA0: 53 AA 28 54 46 24 B2 46 46 24 00 B3 53 AF 28 48 |S.(TF$.FF$..S.(H|
00004BB0: B2 46 37 00 BF 53 B4 28 89 20 31 30 33 30 35 00 |.F7..S.(. 10305.|
00004BC0: D9 53 BE 28 8B 20 43 24 28 43 52 29 B2 44 24 20 |.S.(. C$(CR).D$ |
00004BD0: A7 20 89 20 31 30 36 38 30 00 01 54 C8 28 8B 20 |. . 10680..T.(. |
00004BE0: 4F 57 AA 32 B1 39 20 A7 20 4F 57 24 B2 C9 28 C4 |OW.2.9 . OW$..(.|
00004BF0: 28 4F 57 AA 32 29 2C 32 29 3A 89 20 31 30 34 35 |(OW.2),2):. 1045|
00004C00: 30 00 16 54 CD 28 4F 57 24 B2 C9 28 C4 28 4F 57 |0..T.(OW$..(.(OW|
00004C10: AA 32 29 2C 31 29 00 1E 54 CE 28 48 B2 31 00 2C |.2),1)..T.(H.1.,|
00004C20: 54 D2 28 46 37 B2 30 3A 46 38 B2 30 00 3F 54 DC |T.(F7.0:F8.0.?T.|
00004C30: 28 81 20 58 B2 48 20 A4 20 C3 28 54 46 24 29 00 |(. X.H . .(TF$).|
00004C40: 57 54 E6 28 42 54 24 B2 CA 28 54 46 24 2C 58 2C |WT.(BT$..(TF$,X,|
00004C50: C3 28 4F 57 24 29 29 00 6C 54 F0 28 8B 20 42 54 |.(OW$)).lT.(. BT|
00004C60: 24 B2 4F 57 24 20 A7 20 46 38 B2 31 00 87 54 FA |$.OW$ . F8.1..T.|
00004C70: 28 8B 20 46 38 B2 31 20 A7 20 46 37 B2 58 3A 58 |(. F8.1 . F7.X:X|
00004C80: B2 C3 28 54 46 24 29 00 8D 54 04 29 82 00 9B 54 |..(TF$)..T.)...T|
00004C90: 0E 29 56 32 B2 C3 28 54 46 24 29 00 B0 54 18 29 |.)V2..(TF$)..T.)|
00004CA0: 8B 20 46 37 B2 30 20 A7 20 89 20 31 30 36 33 30 |. F7.0 . . 10630|
00004CB0: 00 C8 54 22 29 8B 20 46 37 B1 56 32 AB 32 20 A7 |..T"). F7.V2.2 .|
00004CC0: 20 89 20 31 30 36 30 30 00 EF 54 27 29 8B 20 43 | . 10600..T'). C|
00004CD0: 52 AA 32 B1 39 20 A7 20 5A 24 B2 C9 28 C4 28 43 |R.2.9 . Z$..(.(C|
00004CE0: 52 AA 32 29 2C 32 29 3A 89 20 31 30 35 34 30 00 |R.2),2):. 10540.|
00004CF0: 03 55 28 29 5A 24 B2 C9 28 C4 28 43 52 AA 32 29 |.U()Z$..(.(CR.2)|
00004D00: 2C 31 29 00 1A 55 2C 29 46 46 24 B2 C8 28 54 46 |,1)..U,)FF$..(TF|
00004D10: 24 2C 46 37 AB 31 29 AA 5A 24 00 39 55 36 29 8B |$,F7.1).Z$.9U6).|
00004D20: 20 4F 57 B1 37 20 A7 20 58 B2 56 32 AB 46 37 AB | OW.7 . X.V2.F7.|
00004D30: 31 3A 89 20 31 30 35 37 30 00 45 55 40 29 58 B2 |1:. 10570.EU@)X.|
00004D40: 56 32 AB 46 37 00 5A 55 4A 29 46 46 24 B2 46 46 |V2.F7.ZUJ)FF$.FF|
00004D50: 24 AA C9 28 54 46 24 2C 58 29 00 66 55 54 29 54 |$..(TF$,X).fUT)T|
00004D60: 46 24 B2 46 46 24 00 6F 55 59 29 48 B2 46 37 00 |F$.FF$.oUY)H.F7.|
00004D70: 7B 55 5E 29 89 20 31 30 34 35 30 00 A2 55 68 29 |{U^). 10450..Uh)|
00004D80: 8B 20 43 52 AA 32 B1 39 20 A7 20 5A 24 B2 C9 28 |. CR.2.9 . Z$..(|
00004D90: C4 28 43 52 AA 32 29 2C 32 29 3A 89 20 31 30 36 |.(CR.2),2):. 106|
00004DA0: 30 35 00 B6 55 6A 29 5A 24 B2 C9 28 C4 28 43 52 |05..Uj)Z$..(.(CR|
00004DB0: AA 32 29 2C 31 29 00 CD 55 6D 29 46 46 24 B2 C8 |.2),1)..Um)FF$..|
00004DC0: 28 54 46 24 2C 46 37 AB 31 29 AA 5A 24 00 D9 55 |(TF$,F7.1).Z$..U|
00004DD0: 72 29 54 46 24 B2 46 46 24 00 E2 55 77 29 48 B2 |r)TF$.FF$..Uw)H.|
00004DE0: 46 37 00 EE 55 7C 29 89 20 31 30 34 35 30 00 00 |F7..U|). 10450..|
00004DF0: 56 86 29 46 24 28 43 52 2C 43 43 29 B2 46 46 24 |V.)F$(CR,CC).FF$|
00004E00: 00 19 56 90 29 46 54 24 B2 22 22 3A 54 46 24 B2 |..V.)FT$."":TF$.|
00004E10: 22 22 3A 46 34 24 B2 22 22 00 3F 56 95 29 97 20 |"":F4$."".?V.). |
00004E20: 35 34 32 37 36 2C 31 37 3A 81 20 58 B2 31 20 A4 |54276,17:. X.1 .|
00004E30: 20 35 30 3A 82 3A 97 20 35 34 32 37 36 2C 30 00 | 50:.:. 54276,0.|
00004E40: 5E 56 9A 29 8D 20 31 30 30 32 30 3A 8F 20 44 49 |^V.). 10020:. DI|
00004E50: 53 50 4C 41 59 20 46 55 4E 43 54 49 4F 4E 00 88 |SPLAY FUNCTION..|
00004E60: 56 A4 29 99 22 13 22 3A 99 A3 31 30 29 3B 22 43 |V.).".":..10);"C|
00004E70: 4F 50 49 45 44 20 20 20 20 20 20 20 20 20 20 20 |OPIED |
00004E80: 20 20 20 20 20 20 20 22 00 8E 56 AE 29 8E 00 BF | "..V.)...|
00004E90: 56 B8 29 99 22 13 22 3A 99 A3 31 30 29 3B 22 4E |V.).".":..10);"N|
00004EA0: 4F 20 43 4F 50 59 2D 50 52 45 53 53 20 41 4E 59 |O COPY-PRESS ANY|
00004EB0: 20 4B 45 59 20 20 20 20 20 20 20 20 20 20 22 00 | KEY ".|
00004EC0: DA 56 C2 29 A1 20 41 24 3A 8B 20 41 24 B2 22 22 |.V.). A$:. A$.""|
00004ED0: 20 A7 20 89 20 31 30 36 39 30 00 14 57 CC 29 99 | . . 10690..W.).|
00004EE0: 22 13 22 3A 99 A3 31 30 29 3B 22 4D 4F 44 45 20 |".":..10);"MODE |
00004EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004F10: 20 20 20 22 00 1A 57 D6 29 8E 00 2E 57 30 2A 8F | "..W.)...W0*.|
00004F20: 20 54 52 41 4E 53 20 52 4F 55 54 49 4E 45 00 4D | TRANS ROUTINE.M|
00004F30: 57 3A 2A 8F 20 52 45 56 45 52 53 45 44 20 50 4F |W:*. REVERSED PO|
00004F40: 4C 49 53 48 20 4E 4F 54 41 54 49 4F 4E 00 73 57 |LISH NOTATION.sW|
00004F50: 3C 2A 97 20 35 34 32 37 36 2C 31 37 3A 81 20 58 |<*. 54276,17:. X|
00004F60: B2 31 20 A4 20 35 30 3A 82 3A 97 20 35 34 32 37 |.1 . 50:.:. 5427|
00004F70: 36 2C 30 00 7C 57 3F 2A 45 52 B2 30 00 88 57 41 |6,0.|W?*ER.0..WA|
00004F80: 2A 46 33 24 B2 46 46 24 00 9F 57 44 2A 49 31 B2 |*F3$.FF$..WD*I1.|
00004F90: 30 3A 49 32 B2 30 3A 43 B2 30 3A 44 50 B2 30 00 |0:I2.0:C.0:DP.0.|
00004FA0: B2 57 4E 2A 81 20 4E B2 31 20 A4 20 C3 28 46 46 |.WN*. N.1 . .(FF|
00004FB0: 24 29 00 D0 57 53 2A 8B 20 45 52 B2 31 20 A7 20 |$)..WS*. ER.1 . |
00004FC0: 4E B2 C3 28 46 46 24 29 3A 89 20 31 30 39 32 30 |N..(FF$):. 10920|
00004FD0: 00 E2 57 58 2A 43 24 B2 CA 28 46 46 24 2C 4E 2C |..WX*C$..(FF$,N,|
00004FE0: 31 29 00 13 58 62 2A 8B 20 43 24 B2 22 28 22 20 |1)..Xb*. C$."(" |
00004FF0: A7 20 43 B2 43 AA 35 3A 49 31 B2 49 31 AA 31 3A |. C.C.5:I1.I1.1:|
00005000: 4C 24 28 31 2C 49 31 29 B2 43 24 3A 89 20 31 30 |L$(1,I1).C$:. 10|
00005010: 39 32 30 00 44 58 6C 2A 8B 20 43 24 B2 22 29 22 |920.DXl*. C$.")"|
00005020: 20 A7 20 43 B2 43 AB 35 3A 49 31 B2 49 31 AA 31 | . C.C.5:I1.I1.1|
00005030: 3A 4C 24 28 31 2C 49 31 29 B2 43 24 3A 89 20 31 |:L$(1,I1).C$:. 1|
00005040: 30 39 32 30 00 7A 58 76 2A 8B 20 C6 28 43 24 29 |0920.zXv*. .(C$)|
00005050: B1 34 31 20 AF 20 C6 28 43 24 29 B3 34 38 20 AF |.41 . .(C$).48 .|
00005060: 20 43 24 B3 B1 22 2E 22 20 A7 20 8D 20 31 31 30 | C$.."." . . 110|
00005070: 30 30 3A 89 20 31 30 39 32 30 00 9C 58 80 2A 8B |00:. 10920..X.*.|
00005080: 20 43 24 B1 B2 22 42 22 20 AF 20 43 24 B3 B2 22 | C$.."B" . C$.."|
00005090: 5A 22 20 A7 20 8D 20 31 31 32 30 30 00 B8 58 8A |Z" . . 11200..X.|
000050A0: 2A 8B 20 43 24 B2 22 2E 22 20 A7 20 44 50 B2 31 |*. C$."." . DP.1|
000050B0: 3A 8D 20 31 31 34 30 30 00 DA 58 94 2A 8B 20 43 |:. 11400..X.*. C|
000050C0: 24 B1 B2 22 30 22 20 AF 20 43 24 B3 B2 22 39 22 |$.."0" . C$.."9"|
000050D0: 20 A7 20 8D 20 31 31 34 30 30 00 E5 58 A8 2A 44 | . . 11400..X.*D|
000050E0: 50 B2 30 3A 82 00 F4 58 AD 2A 8B 20 45 52 B2 31 |P.0:...X.*. ER.1|
000050F0: 20 A7 20 8E 00 09 59 B2 2A 8B 20 49 32 B2 30 20 | . ...Y.*. I2.0 |
00005100: A7 20 89 20 31 30 39 36 30 00 2F 59 BC 2A 49 31 |. . 10960./Y.*I1|
00005110: B2 49 31 AA 31 3A 4C 24 28 31 2C 49 31 29 B2 50 |.I1.1:L$(1,I1).P|
00005120: 24 28 31 2C 49 32 29 3A 49 32 B2 49 32 AB 31 00 |$(1,I2):I2.I2.1.|
00005130: 3B 59 C6 2A 89 20 31 30 39 33 30 00 46 59 D0 2A |;Y.*. 10930.FY.*|
00005140: 46 46 24 B2 22 22 00 55 59 DA 2A 81 20 4A B2 31 |FF$."".UY.*. J.1|
00005150: 20 A4 20 49 31 00 69 59 E4 2A 46 46 24 B2 46 46 | . I1.iY.*FF$.FF|
00005160: 24 AA 4C 24 28 31 2C 4A 29 00 6F 59 EE 2A 82 00 |$.L$(1,J).oY.*..|
00005170: 83 59 F0 2A 46 46 24 B2 46 46 24 AA 22 D7 22 AA |.Y.*FF$.FF$.".".|
00005180: 46 33 24 00 A9 59 F1 2A 97 20 35 34 32 37 36 2C |F3$..Y.*. 54276,|
00005190: 31 37 3A 81 20 58 B2 31 20 A4 20 35 30 3A 82 3A |17:. X.1 . 50:.:|
000051A0: 97 20 35 34 32 37 36 2C 30 00 AF 59 F3 2A 8E 00 |. 54276,0..Y.*..|
000051B0: C6 59 F8 2A 8F 20 4F 50 45 52 41 54 4F 52 20 52 |.Y.*. OPERATOR R|
000051C0: 4F 55 54 49 4E 45 00 CE 59 02 2B 4A B2 30 00 EA |OUTINE..Y.+J.0..|
000051D0: 59 0C 2B 8B 20 43 24 B2 22 2B 22 20 B0 20 43 24 |Y.+. C$."+" . C$|
000051E0: B2 22 2D 22 20 A7 20 4A B2 31 00 06 5A 16 2B 8B |."-" . J.1..Z.+.|
000051F0: 20 43 24 B2 22 2A 22 20 B0 20 43 24 B2 22 2F 22 | C$."*" . C$."/"|
00005200: 20 A7 20 4A B2 32 00 10 5A 20 2B 52 B2 43 AA 4A | . J.2..Z +R.C.J|
00005210: 00 28 5A 2A 2B 8B 20 52 B1 50 28 49 32 29 20 A7 |.(Z*+. R.P(I2) .|
00005220: 20 89 20 31 31 30 38 30 00 4E 5A 34 2B 49 31 B2 | . 11080.NZ4+I1.|
00005230: 49 31 AA 31 3A 4C 24 28 31 2C 49 31 29 B2 50 24 |I1.1:L$(1,I1).P$|
00005240: 28 31 2C 49 32 29 3A 49 32 B2 49 32 AB 31 00 5A |(1,I2):I2.I2.1.Z|
00005250: 5A 3E 2B 89 20 31 31 30 35 30 00 66 5A 48 2B 49 |Z>+. 11050.fZH+I|
00005260: 32 B2 49 32 AA 31 00 76 5A 52 2B 50 24 28 31 2C |2.I2.1.vZR+P$(1,|
00005270: 49 32 29 B2 43 24 00 82 5A 5C 2B 50 28 49 32 29 |I2).C$..Z\+P(I2)|
00005280: B2 52 00 88 5A 70 2B 8E 00 95 5A C0 2B 8F 20 53 |.R..Zp+...Z.+. S|
00005290: 54 52 49 4E 47 00 C8 5A C5 2B 8B 20 CA 28 46 46 |TRING..Z.+. .(FF|
000052A0: 24 2C 4E AA 31 2C 31 29 B3 22 30 22 20 B0 20 CA |$,N.1,1)."0" . .|
000052B0: 28 46 46 24 2C 4E AA 31 2C 31 29 B1 22 39 22 20 |(FF$,N.1,1)."9" |
000052C0: A7 20 45 52 B2 31 3A 8E 00 DD 5A CA 2B 4E 32 24 |. ER.1:...Z.+N2$|
000052D0: B2 CA 28 46 46 24 2C 4E AA 32 2C 31 29 00 FF 5A |..(FF$,N.2,1)..Z|
000052E0: D4 2B 8B 20 4E 32 24 B3 22 30 22 20 B0 20 4E 32 |.+. N2$."0" . N2|
000052F0: 24 B1 22 39 22 20 A7 20 89 20 31 31 32 37 30 00 |$."9" . . 11270.|
00005300: 25 5B DE 2B 49 31 B2 49 31 AA 31 3A 4C 24 28 31 |%[.+I1.I1.1:L$(1|
00005310: 2C 49 31 29 B2 43 24 3A 49 31 B2 49 31 AA 31 3A |,I1).C$:I1.I1.1:|
00005320: 4E B2 4E AA 31 00 4B 5B E8 2B 4C 24 28 31 2C 49 |N.N.1.K[.+L$(1,I|
00005330: 31 29 B2 CA 28 46 46 24 2C 4E 2C 31 29 3A 49 31 |1)..(FF$,N,1):I1|
00005340: B2 49 31 AA 31 3A 4E B2 4E AA 31 00 63 5B F2 2B |.I1.1:N.N.1.c[.+|
00005350: 4C 24 28 31 2C 49 31 29 B2 CA 28 46 46 24 2C 4E |L$(1,I1)..(FF$,N|
00005360: 2C 31 29 00 69 5B FC 2B 8E 00 9D 5B 06 2C 8B 20 |,1).i[.+...[.,. |
00005370: C5 28 CA 28 46 46 24 2C 4E AA 31 2C 31 29 29 B2 |.(.(FF$,N.1,1)).|
00005380: 30 20 B0 20 C5 28 CA 28 46 46 24 2C 4E AA 31 2C |0 . .(.(FF$,N.1,|
00005390: 31 29 29 B2 31 20 20 A7 20 45 52 B2 31 00 C3 5B |1)).1 . ER.1..[|
000053A0: 10 2C 49 31 B2 49 31 AA 31 3A 4C 24 28 31 2C 49 |.,I1.I1.1:L$(1,I|
000053B0: 31 29 B2 43 24 3A 49 31 B2 49 31 AA 31 3A 4E B2 |1).C$:I1.I1.1:N.|
000053C0: 4E AA 31 00 DB 5B 1A 2C 4C 24 28 31 2C 49 31 29 |N.1..[.,L$(1,I1)|
000053D0: B2 CA 28 46 46 24 2C 4E 2C 31 29 00 E1 5B 24 2C |..(FF$,N,1)..[$,|
000053E0: 8E 00 F3 5B 88 2C 8F 20 50 55 52 45 20 4E 55 4D |...[.,. PURE NUM|
000053F0: 42 45 52 00 0C 5C 92 2C 49 31 B2 49 31 AA 31 3A |BER..\.,I1.I1.1:|
00005400: 4C 24 28 31 2C 49 31 29 B2 22 DF 22 00 24 5C 9C |L$(1,I1).".".$\.|
00005410: 2C 49 31 B2 49 31 AA 31 3A 4C 24 28 31 2C 49 31 |,I1.I1.1:L$(1,I1|
00005420: 29 B2 43 24 00 2E 5C A6 2C 4E B2 4E AA 31 00 40 |).C$..\.,N.N.1.@|
00005430: 5C B0 2C 43 24 B2 CA 28 46 46 24 2C 4E 2C 31 29 |\.,C$..(FF$,N,1)|
00005440: 00 62 5C BA 2C 8B 20 43 24 B1 B2 22 30 22 20 AF |.b\.,. C$.."0" .|
00005450: 20 43 24 B3 B2 22 39 22 20 A7 20 89 20 31 31 34 | C$.."9" . . 114|
00005460: 32 30 00 80 5C C4 2C 8B 20 43 24 B2 22 2E 22 20 |20..\.,. C$."." |
00005470: AF 20 44 50 B2 30 20 A7 20 89 20 31 31 34 32 30 |. DP.0 . . 11420|
00005480: 00 9B 5C CE 2C 8B 20 43 24 B2 22 2E 22 20 AF 20 |..\.,. C$."." . |
00005490: 44 50 B2 31 20 A7 20 45 52 B2 31 00 A5 5C D8 2C |DP.1 . ER.1..\.,|
000054A0: 4E B2 4E AB 31 00 AB 5C E2 2C 8E 00 C8 5C E0 2E |N.N.1..\.,...\..|
000054B0: 8F 20 43 4C 45 41 52 20 46 55 4E 43 54 49 4F 4E |. CLEAR FUNCTION|
000054C0: 20 52 4F 55 54 49 4E 45 00 E5 5C EA 2E 8B 20 46 | ROUTINE..\... F|
000054D0: 24 28 43 52 2C 43 43 29 B2 22 22 20 A7 20 89 20 |$(CR,CC)."" . . |
000054E0: 31 32 30 37 30 00 06 5D F4 2E 99 22 13 22 3A 99 |12070..]...".":.|
000054F0: A3 31 30 29 3B 22 43 4C 45 41 52 20 46 55 4E 43 |.10);"CLEAR FUNC|
00005500: 54 49 4F 4E 20 22 00 22 5D FE 2E 46 24 28 43 52 |TION "."]..F$(CR|
00005510: 2C 43 43 29 B2 22 22 3A 41 28 43 52 2C 43 43 29 |,CC)."":A(CR,CC)|
00005520: B2 30 00 3E 5D 08 2F 99 A3 31 30 29 3B 22 50 52 |.0.>]./..10);"PR|
00005530: 45 53 53 20 41 4E 59 20 4B 45 59 A0 A0 22 00 59 |ESS ANY KEY..".Y|
00005540: 5D 12 2F A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 |]./. A$:. A$."" |
00005550: A7 20 89 20 31 32 30 35 30 00 7A 5D 1C 2F 99 22 |. . 12050.z]./."|
00005560: 13 22 3A 99 A3 31 30 29 3B 22 4D 4F 44 45 20 20 |.":..10);"MODE |
00005570: 20 20 20 20 20 20 20 20 20 22 00 97 5D 21 2F 99 | "..]!/.|
00005580: A3 31 30 29 3B 22 20 20 20 20 20 20 20 20 20 20 |.10);" |
00005590: 20 20 20 20 20 20 22 00 9D 5D 26 2F 8E 00 BA 5D | "..]&/...]|
000055A0: 44 2F 8F 20 50 52 49 4E 54 20 46 4F 52 4D 55 4C |D/. PRINT FORMUL|
000055B0: 41 45 20 52 4F 55 54 49 4E 45 00 C3 5D 4E 2F 99 |AE ROUTINE..]N/.|
000055C0: 22 93 22 00 CB 5D 53 2F 54 B2 31 00 E6 5D 58 2F |"."..]S/T.1..]X/|
000055D0: 99 22 54 4F 20 50 52 49 4E 54 45 52 20 28 59 2F |."TO PRINTER (Y/|
000055E0: 4E 29 3F 20 22 3B 00 01 5E 62 2F A1 20 41 24 3A |N)? ";..^b/. A$:|
000055F0: 8B 20 41 24 B2 22 22 20 A7 20 89 20 31 32 31 33 |. A$."" . . 1213|
00005600: 30 00 1E 5E 6C 2F 8B 20 41 24 B2 22 4E 22 20 A7 |0..^l/. A$."N" .|
00005610: 20 99 22 4E 4F 22 3A 89 20 31 32 31 37 30 00 33 | ."NO":. 12170.3|
00005620: 5E 71 2F 8F 20 53 45 54 20 55 50 20 50 52 49 4E |^q/. SET UP PRIN|
00005630: 54 45 52 00 3D 5E 76 2F 9F 20 33 2C 34 00 44 5E |TER.=^v/. 3,4.D^|
00005640: 80 2F 9D 33 00 53 5E 8A 2F 81 20 42 B2 30 20 A4 |./.3.S^./. B.0 .|
00005650: 20 4C 31 00 87 5E 94 2F 8B 20 54 B2 31 20 A7 20 | L1..^./. T.1 . |
00005660: 99 3A 99 22 42 4F 58 20 20 20 46 4F 52 4D 55 4C |.:."BOX FORMUL|
00005670: 41 22 3A 99 22 C3 C3 C3 20 20 20 C3 C3 C3 C3 C3 |A":."... .....|
00005680: C3 C3 22 3A 54 B2 30 00 96 5E 9E 2F 81 20 43 B2 |..":T.0..^./. C.|
00005690: 30 20 A4 20 4C 32 00 A5 5E A8 2F 54 24 B2 46 24 |0 . L2..^./T$.F$|
000056A0: 28 42 2C 43 29 00 BB 5E B2 2F 8B 20 54 24 B2 22 |(B,C)..^./. T$."|
000056B0: 22 20 A7 20 89 20 31 32 33 31 30 00 C3 5E BC 2F |" . . 12310..^./|
000056C0: 4C B2 31 00 CB 5E C6 2F 4C B2 31 00 DC 5E D0 2F |L.1..^./L.1..^./|
000056D0: 43 24 B2 CA 28 54 24 2C 4C 2C 31 29 00 F3 5E DA |C$..(T$,L,1)..^.|
000056E0: 2F 8B 20 43 24 B2 22 D7 22 20 A7 20 89 20 31 32 |/. C$."." . . 12|
000056F0: 32 37 30 00 FD 5E E4 2F 4C B2 4C AA 31 00 09 5F |270..^./L.L.1.._|
00005700: E9 2F 89 20 31 32 32 34 30 00 1E 5F EE 2F 54 24 |./. 12240.._./T$|
00005710: B2 C9 28 54 24 2C C3 28 54 24 29 AB 4C 29 00 41 |..(T$,.(T$).L).A|
00005720: 5F F8 2F 99 C7 28 43 AA 36 36 29 3B 42 AA 32 3B |_./..(C.66);B.2;|
00005730: 3A 8B 20 42 AA 32 B3 31 30 20 A7 20 99 22 20 22 |:. B.2.10 . ." "|
00005740: 3B 00 4E 5F 02 30 99 22 3D 20 22 3B 54 24 00 56 |;.N_.0."= ";T$.V|
00005750: 5F 0C 30 54 B2 31 00 5C 5F 16 30 82 00 62 5F 20 |_.0T.1.\_.0..b_ |
00005760: 30 82 00 78 5F 2A 30 99 22 C3 C3 C3 C3 C3 C3 C3 |0..x_*0.".......|
00005770: C3 C3 C3 C3 C3 C3 C3 22 00 80 5F 34 30 99 3A 99 |.......".._40.:.|
00005780: 00 97 5F 3E 30 8B 20 41 24 B2 22 4E 22 20 A7 20 |.._>0. A$."N" . |
00005790: 89 20 31 32 33 38 30 00 AE 5F 48 30 8F 20 54 55 |. 12380.._H0. TU|
000057A0: 52 4E 20 50 52 49 4E 54 45 52 20 4F 46 46 00 B5 |RN PRINTER OFF..|
000057B0: 5F 52 30 98 33 00 BC 5F 57 30 A0 33 00 C4 5F 5C |_R0.3.._W0.3.._\|
000057C0: 30 99 3A 99 00 DF 5F 66 30 99 A3 31 35 29 3B 22 |0.:..._f0..15);"|
000057D0: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 3B 00 |PRESS ANY KEY";.|
000057E0: FA 5F 70 30 A1 20 41 24 3A 8B 20 41 24 B2 22 22 |._p0. A$:. A$.""|
000057F0: 20 A7 20 89 20 31 32 34 30 30 00 03 60 7A 30 99 | . . 12400..`z0.|
00005800: 22 93 22 00 11 60 84 30 44 52 B2 30 3A 44 43 B2 |"."..`.0DR.0:DC.|
00005810: 30 00 1C 60 8E 30 8D 20 33 30 30 30 00 27 60 98 |0..`.0. 3000.'`.|
00005820: 30 8D 20 33 32 30 30 00 35 60 A2 30 43 52 B2 37 |0. 3200.5`.0CR.7|
00005830: 3A 43 43 B2 30 00 40 60 AC 30 8D 20 33 36 30 30 |:CC.0.@`.0. 3600|
00005840: 00 46 60 B6 30 8E 00 63 60 C8 32 8F 20 53 4F 55 |.F`.0..c`.2. SOU|
00005850: 4E 44 20 50 4F 4B 45 53 20 49 4E 49 54 49 41 4C |ND POKES INITIAL|
00005860: 49 53 45 00 72 60 D2 32 97 20 35 34 32 39 36 2C |ISE.r`.2. 54296,|
00005870: 31 35 00 81 60 DC 32 97 20 35 34 32 37 37 2C 36 |15..`.2. 54277,6|
00005880: 34 00 91 60 E1 32 97 20 35 34 32 37 38 2C 31 32 |4..`.2. 54278,12|
00005890: 38 00 A1 60 E6 32 97 20 35 34 32 37 33 2C 31 36 |8..`.2. 54273,16|
000058A0: 32 00 B0 60 F0 32 97 20 35 34 32 37 32 2C 33 37 |2..`.2. 54272,37|
000058B0: 00 BE 60 FA 32 97 20 35 34 32 37 36 2C 30 00 C4 |..`.2. 54276,0..|
000058C0: 60 04 33 8E 00 00 00 |`.3.... |
..!....A.0.A.1:."SPREAD CODE",8,1.:....A
.1..45,103:.46,130.U....53265,27:.53272,
21:.56576,B(56576).1:.792,193:.788,52..
...G(8)...... ************************.
..... MINI OFFICE SPREADSHEET.Y.... CON
VERTED BY C.DARBY...(.. (C) DATABASE SOF
TWARE...2.. 1985.'.<.. *********
***************.5.A.. 13000:..Q.F.FW.9:V
A.0:D$."WQUILINE".F.P.FL.0:OC..1:OO..1.T
.U.F3.0:F4.0...W.. L$(1,80),P$(1,80),P(8
0),S(80)...Z.."."..._.. 53280,0:. 53281,
0.B.`.."."...D.." SPREADSHE
ET"...N.." FFFFFFFFFFF"...X
..:..)...." CREATE FILE (Y/N) ?";.B....
A$:. A$."" . . 140.].... A$."N" . ."NO":
. 400.I. .. "YES".S....:.:......." NO OF
COLUMNS (5 - 26) ";:. A$...... E(A$).4
.E(A$).27 . . 200.H.....26);".";...... L
.1 . C(A$):." ";:....B..".":. 180...H.L2
.E(A$)...R..:....S.L1.480.L2.>...." NO O
F ROWS (9 -";.(L1);".) ";:. A$.D.... E(A
$).8 . E(A$)..(L1).1 . . 240.S.....23);"
.";...... L.1 . C(A$):." ";:....... ".".
..... 220.....L1.E(A$).B...L1.L1.2:L2.L2
.2...... R$(L2.1),C$(L1),F$(L1,L2),A(L1,
L2)...,.. X.0 . L2:R$(X)." ":..1
.6.. X.0 . L1:C$(X)." ":..J.@.R$
(L2.1)."QQQQQQQQQ".Y.J.. X.1 . L2.H.T..
Y.1 . L1...^.F$(Y,X)."":A(Y,X).0...H..:.
...R.. 810...... INPUT SPREADSHEET OFF F
ILE.K....:."OLD FILE NAME";...... N$:. N
$."" . . 410...... C(N$).16 . ."TOO MANY
CHARACTERS":. 410.Q....:."DO YOU WISH T
O ADD EXTRA ROWS ":."OR COLUMNS (Y/N) ?"
;.J.... A$:. A$."" . . 440...B.. A$."Y"
. ."YES":FL.1:. 470...L.."NO"...V.. 1,8,
0,N$......1,L1......1,L2.K.... FL.0 . .
640.T...."."......"NO. OF ROWS SELECTED
";L1.2.......!...."NO. OF COLUMNS SELECT
ED ";L2.2.C....:."NO. OF ADDITIONAL ROWS
";.L.... R2.O.... L1.R2.22 . ."TOO MANY
":. 520...&..:."NO. OF ADDITIONAL COLUMN
S";...0.. R1...:.. L2.R1.22 . ."TOO MANY
":. 550.G.D..:....N.. "NO. OR ROWS SELEC
TED ";L1.R2.2...X..:."NO. OF COLUMNS SEL
ECTED ";L2.R1.2.3.B..:."IS THIS OK (Y/N)
";.L.L.. A$:. A$."" . . 620.A.V.. A$."N
" . . 495...... R$(L2.1.R1),C$(L1.R2),A(
L1.R2,L2.R1),F$(L1.R2,L2.R1).....K.160:L
.32.Z....1,R$(L2.1):X$.R$(L2.1):. 7700:R
$(L2.1).X$...... FL.1 . R$(L2.1.R1).R$(L
2.1):.R1..0.R$(L2.1)." ".K.... I
.0 . L2:.1,R$(I):X$.R$(I):. 7700:R$(I).X
$:..~.... I.0 . L1:.1,C$(I):X$.C$(I):. 7
700:C$(I).X$:....... J.0 . L2...... I.0
. L1...F..1,A(I,J).H.K..1,C$:.1,X$:.C$."
X".C$."".Z.L..X$."X".X$.""...M.F$(I,J).C
$.X$...P..:....Z. 1...... FL.0 . . 810.>
....R1..0.. J.L2.1 . L2.R1:R$(J)."
":..N....R2..0.. I.L1.1 . L1.R2:C$(I)
." ":.......R1.0.R2.0..790......
J.L2.1 . L2.R1...... I.L1.1 . L1.R2.D..
.A(I,J).0:F$(I,J)."".L....:......L1.L1.R
2:L2.L2.R1...*.. INIT2...4.DR.0:DC.0...>
.. 3000:. DISPLAYPART2.+.H.. 3200:. DISP
LAY.9.R.CR.7:CC.0.N.\.. 3600:. CURSOR2.D
.F.. COMMAND SECTION.{.P..".":."COMMAND
:";...Z.. C$:. C$."" . . 890.J.... C$.".
" . C$."." . C$."." . C$."." .. 4000:. 8
80...... C$.."0" . C$.."9" . . 4500:.880
:. NUMBER./.... C$."-" . C$."+" . C$."."
.. 4500:. 880:. NUMBER.U.... C$."O" . .
5200:. 880:. NUMBER2.Z.... C$."U" . . 1
600:. 880:. UPDATE...... C$."R" . . 5600
:. 880:. LABEL.B.... C$."C" . . 6000:. 8
80:. LABEL...... C$."T" . . 6400:. 880:.
CORNER LABEL...... C$."X" . . 6700:. 88
0:. BLANK LINE.A.... C$."Y" . . 6900:. 8
80:. BLANK COLUMN.K.J.. C$."H" . . 7200:
. 880:. HOME CURSOR...T.. C$."Z" . . 730
0:. 880:. CLEAR VAUES...... C$."S" . . 7
500:. 880:. SAVE FILE...... C$."F" . . 9
000:. 880:. ENTER FUNCTION...... C$."E"
. . 10000:. 880:. DISPLAY FUNCTION.G....
C$."D" . . 10100:. 880:. COPY FUNCTION.
W.... C$."P" . . 7800:. 880:. PRINT SPRE
ADSHEET...... C$."W" . . 12000:. CLEAR F
UNCTION.D.... C$."Q" . . 8800:QUIT . RES
TART...... C$."L" . . 12100:. PRINT FORM
ULAE...... C$.."." . . 880......".":..10
);"END ".>.....10);"ARE YOU SURE (Y
/N)?";.X.... A$:. A$."" . . 1017......A$
."Y" ..".":..10);" ":..10);"
"...... A$."N" .. 880.M....".":
..10);" "......".":.
.10);"SAVE FILE (Y/N) ? "...... A$:.
A$."" . . 1022.%.... A$."Y" . . 7500.R.
...".":.:.:..15);".......":..15);" E N D
".F.....15);".......".L......L.. EVAL
ROUTINE...V.. REVERSED POLISH EVALUATOR.
..`.PS.0:SP.0...J.SP.SP.1.L.T.C$.J(FF$,S
P,1)...V.. C$.G(215) . . 1190...~.. C$.
"." . . 1200...... F(C$).41 . F(C$).48 .
. 1300.?.... C$."A" . C$.."Z" . . 1400.
J.... 1130.P.....J.... PURE NUMBER ROUTI
NE.Z...L.0:NO.SP.1.....L.L.1:SP.SP.1...D
.T$.J(FF$,SP,1)...N.. T$."." . . 1215.T.
X.. T$."0" . T$."9" . . 1260...... 1215.
....PS.PS.1.....S(PS).E(J(FF$,NO,L.1))..
...SP.SP.1...... 1180.4.... OPERATOR ROU
TINE.Y.... C$."+" . S(PS.1).S(PS.1).S(PS
).~.(.. C$."-" . S(PS.1).S(PS.1).S(PS)..
.2.. C$."*" . S(PS.1).S(PS.1).S(PS).A.7.
. C$."/" . S(PS).0 . 1350...<.. C$."/" .
S(PS.1).S(PS.1).S(PS)...F.. C$."^" . S(
PS.1).S(PS.1).S(PS).(.K.. C$."=" . S(PS.
1).S(PS).4.P.PS.PS.1.?.Z.. 1180.Y.X.. PU
RE STRING ROUTINE.N.}.T$.J(FF$,SP.1,1).
.... T$."0" . T$."9" . T.E(J(FF$,SP.1,1)
):. 1430.....T.E(J(FF$,SP.1,2)):SP.SP.1.
K...PS.PS.1... .S(PS).A(T.2,F(C$).66)...
... 1180...@.. CONTROL ROUTINE FOR EVAL.
'.J.. FUNCTION.<.L.. F13.1 . .
1620.V.O..".":..10);"UPDATE ".E.T.. I.0
. L1...^.. F$(I,CC)."" . . 1650...H.FF$
.F$(I,CC):. 1100...M.A(I,CC).S(1)...R...
..|.. J.0 . L2.V.... R$(J).D$ . . 1720..
.... I.0 . L1...... F$(I,J)."" . . 1710.
....FF$.F$(I,J):. 1100.&...A(I,J).S(1).,
.....2.....M.... F13.1 . F13.0:. 1740.F.
...".":..10);"DONE ".X.B.. 3200:. 3600
.~.L........ DISPLAY PART2...B..".".Q.L
...2);"..... ........ ........ ........
........"...V...7);".A";......"."......
L.1 . 18.......2);"...";.......$....G(19
):."..... 1".*.....8.... DISPLAY.E....".
....".S.... L.0 . 2.N.....L.FW.16);G(L.D
C.66);.T.....~....:.:....... L.0 . 7.C..
.. L.DR.2.9 . L$.D(L.DR.2):L2$.I(L$,2):.
L2$:. 3270.P.... L.DR.2.V.F.....P.....Z
..G(19);:.".....".......3);R$(L2.1).....
. L.0 . 2.-....".";:. X.1 . 6:.".";:..:.
..A.12.9.L.F.... R$(DC.L).D$ . ..A);"
V ":. 3340.X.....A);R$(DC.L)......:.
...... L.0 . 7... .. C$(DR.L)..D$ . ..3)
;C$(DR.L):. 3380...*...3);".............
......................."...4..".";...>..
...H.. FAULT IN LAST BIT ?.!.M..".......
"./.R.. L.0 . 7.N.\.. C$(DR.L).D$ . .:.:
. 3495.U.F..".";:. X.1 . 8.L.2:.".";:.:.
.12);...P.. I.0 . 2...Q.. R$(DC.I).D$ .
." V ";:. 3480...R.A.A(DR.L,DC.I).
J.... 5000.P.....V......................
CURSOR2......".";.. $.A.(CC.DC).FW.12.
..B.(CR.DR).2.8.6 8.. L.1 . B:.".";:..D
B...A);".";.Y G.. A.30 . FW.FW.1.I L...
A.FW);".".~ Q.. A.30 . FW.FW.1.. V.... T
.. CURSOR1.. ~.. 5400.. ..CR.CR.C.. ..CC
.CC.D.. ... 3600.F ..... X.. CURSOR3 ROU
TINE.. ..B.(CR.DR).2.8..!...".";:. X.1 .
B:.".";:..G!... C$(CR).D$ . ..12);"CCCC
CCCCCCCCCCCCCCCCCCCCCCC":. 3880.X!....3)
;C$(CR);.F!... I.0 . 2.Z!..."..";.I.9.12
);..!... R$(DC.I).D$ . ." V ";:. 3
870..!..A.A(CR,DC.I)..!... 5000.E!....K!
(....! .. CURSOR ROUTINE..!..C.0:D.0..".
..".":..10);"CURSOR ".6"... C$."." . C
R.DR.7 . C.1:D.0:. 3700:. 4070.I"C.. C$.
".".DR.L1.7.DR.DR.1:. 8600:C.1:D.0:. 370
0.."R.. C$."." . CC.DC.2 . D.1:C.0:. 370
0:. 4070.X"W.. C$."." . CC.DC.2 . DC.L2.
2 . DC.DC.1:. 8200:D.1:C.0:.3700..#X.. C
$."." . CC..DC . D..1:C.0:. 3700:. 4070.
C#... C$."." . CC.DC . DC.0 .DC.DC.1:. 8
400:D..1:C.0:. 3700.Q#... C$."." . CR.DR
. C..1:D.0:. 3700:. 4070..#... C$."." .
DR.0 . DR.DR.1:. 8700:C..1:D.0:. 3700..
#....A#... NUMBER ROUTINE.L#..."..";..#.
...10);"NUMBER "..$... F$(CR,CC).."" ..
"BOX DEFINED-ILLEGAL INPUT":. 4780.>$...
C$(CR).D$ . R$(CC).D$ . .4750.M$F.T.A(C
R,CC).`$P.N$." ".T$Z.A.(CC.DC).F
W.12..$..B.(CR.DR).2.8..$...".";..$... L
.1 . B:.".";:. L..$....A.1);".";N$;".".O
$..T$.C$:. 4640..$... T$:. T$."" . . 463
0..%... T$.G(20) . . 4630..% .. T$.G(13)
. . 4710.J%*.. T$."+" . T$."-" . T$."."
. T$."E" . . 4670.J%4.. .(T$."/".T$.":"
) . . 4620.P%>....%H.N$.I(N$,8).T$..%M..
".";:. L.1 . B:.".";:...%R...A);N$;..%\.
. 4630.I%F.A(CR,CC).E(N$).Y%P.OO.CR:OC.C
C..%R.. A.30 . . 4740..&U..".";:. L.1 .
B:.".";:...&Z...A.1);" ";.&&... UPDATE.1
&... 3800.<&... 3600.B&....A&...".":..10
);"PRESS ANY KEY".{&... A$:. A$."" . . 4
790..&...".":..10);" ".I&J..
"
"..&T..".":..10);"MODE"..&.....'... PRIN
T FORMAT ROUTINE..'..F12.0. '..A$."":B$.
"":C$."".B'... A.0 . A$." 0.00":. 51
36.X'... A..(A) . . 5030..'..A$.D(A):.J(
A$,C(A$).2,1)."." . . 5035..' .. J(A$,C(
A$).1,1)."." . . 5035.C'... A.100..(A.10
0) . . 5030.Z'..A..(A.100):A.A.100..'..A
$.D(A)..'... A.0 . F12.1..(... A.100000
. A..100000 . . 5100.6(..E.1:. X.1 . 30:
A.A.10.X(... A.10 . F12.0 . X.30:. 5070
.Z(... F12.1 . A..10 . X.30:. 5070..(D.E
.E.1..(N....(X.. A..(A) . A$.D(A).".0"."
E".D(E):. 5110..(..ZA$.D(A):B$.H(ZA$,4):
A$.B$."E".D(E):B$."":. 5110..)... J(A$,C
(A$).1,1)."." . A$.A$."0".,)... A..(A) .
A$.A$.".00".C)... C(A$).9 . . 5136.C)..
. X.1 . 9.C(A$):B$.B$." ":..V)..C$.B$.A$
:A$.C$..)... C(A$).9 . ...)... F3.1 . ..
.)... A$;..).....)P.. NUMBER2 ROUTINE.W)
Z..".":..10);"NUMBER "..)D.. F$(CR,CC).
."" . . 5275..*N.. OC..1 . . 5275.)*X..
.(OO.CR . OC.CC) . . 5275.9*..VA.A(OO,OC
).H*..A(OO,OC).T.Q*..T.VA.J*...".":..10)
;"MODE ".U* .. 3400..*... 3600..*.....
*... CURSOR0 ROUTINE..*".A1.(CC.DC).FW.1
2.C*,.B.(CR.DR).2.8.M*1..".";..*6.. X.1
. B:.".";:...+@.. C$(CR).D$ . CC.DC.2 .
..A1);"CCCCCCCCC";:..>+J.. C$(CR).D$ . .
.A1);"............";:..J+T.. R$(CC).D$ .
..A1);" V ";:. 5490..+^.A.A(CR,CC
):..A1);:. 5000..+R.. CC.DC.2 . ...+|..
R$(CC.1).D$ . ." V ";:...+..A.A(CR
,CC.1):..A1);:. 5000..+.....+... NEW ROW
LABEL ROUTINE..,...".":..10);"LABEL
".%,... 5400.-,..A.2.?,..B.(CR.DR).2.8.
I,...".";._,... X.1 . B:.".";:..V,....A)
;". ."..,... C$(CR)..D$ . C$(CR)
." ":. 5760..,&.C$(CR)."
".V,0..".";:. X.1 . B:.".";:...,:...A.1
);C$(CR);..,D.. J.0 . 2. -N.. R$(DC.J).D
$ . ." V ";:. 5730.8-X.A.A(CR,DC.J
):. 5000.>-B...F-G.A.2.B-L..".";:. X.1 .
B:.".";:..R-V...A.10);"."..-... T$:. T$
."" .T$.G(34).T$."," . . 5760..-... T$.G
(13) . . 5830..-... T$."@" . (T$.G(32) .
T$.G(126)) . . 5760..-..C$(CR).I(C$(CR)
,8).T$......".";:.X.1 . B:.".";:..+.....
A.1);C$(CR).6.... 5760.R.F..".";:. X.1 .
B:.".";:..`.P...A);".";.M.Z...A.10);...
... R$(DC).D$ . ..A.10);" V ";:. 5
880.....A.A(CR,DC):. 5000.....A.2......"
.";:. X.1 . B:.".";:.:..A.10);" ";"."...
... 3600../...".":..10);"MODE "../...
.&/P.. NEW COLUMN NAME.B/U..".":..10);"L
ABEL ".M/Z.. 5400.P/..A.(CC.DC).FW.1
2:. A.30 . A.A.1.X/..B.6../...".";:. X.1
. B:.".";:.../....A.1);". .".Z/
... R$(CC)..D$ . R$(CC)." ":. 61
60../..R$(CC)." "..0...".";:. X.
1 . B:.".";:...0J...A);R$(CC).70O.. A.29
. A1.30:. 6100.@0P.A1.A.N0T.. I.0 . 7.I
0... C$(DR.I).D$ . . 6140.U0..B.I.2.8..0
...".";:. X.1 . B:.".";:...0....A1);..0.
.A.A(I.DR,CC):. 5000..0....E0... 5400..0
..B.6:.".";:. X.1 . B:.".";:...0..A.(CC.
DC).FW.12..1... A.30 . A.A.1.71... T$:.
T$."" .T$.G(34).T$."," . . 6170.P1$.. T$
.G(13) . . 6230.1... T$."@" . (T$.G(32
) . T$.G(126)) . . 6170..18.R$(CC).I(R$(
CC),8).T$..1B...A);R$(CC).E1G..".";:. X.
1 . B:.".";:..P1L.. 6170..1V..".";:. X.1
. 6:.".";:...2X.. A.29 . ..A);" ";R$(CC
);..2[.. A.29 . A.A.1.92\..".";:. X.1 .
B:.".";:..E2`...A.9);.D2J.. CC.DC . .R$(
L2.1):. 6280..2T.. R$(CC.1).D$ . ." V
"..2~.. R$(CC.1)..D$ . .R$(CC.1);.A2
...".";:. X.1 . B:.".";:..M2....A.9);..2
... CC.DC.2 . . 6330..3... R$(CC.1).D$ .
." V ";.&3... R$(CC.1)..D$ . .R$(
CC.1);.13... 3600.K3...".":..10);"MODE
".Q3D...O3... NEW CORNER NAME ROUTINE.
.3...".":..10);"CORNER LABEL"..3... 5400
..3..A.3:B.6..3#..".";.D3(.. X.1 . B:.".
";:...32...A.1);". ."..3<.R$(L2.
1)." "..4F..".";:. X.1 . B:.".";:
..;4P.. T$:. T$."" .T$.G(34).T$.",". . 6
480.S4Z.. T$.G(13) . . 6550..4D.. T$."@"
. (T$.G(32) . T$.G(126)) . . 6480. 4N.R
$(L2.1).I(R$(L2.1),8).T$..4X..".";:. X.1
. B:.".";:..N4....A);R$(L2.1).Y4... 648
0..4...".";:. X.1 . B:.".";:...5 ...A.1)
;".". 5...".";:. X.1 . B:.".";:..M5... R
$(DC).D$ . ..A.FW);" V ":. 3600.`5
....A.FW);R$(DC).K5H.. 3600..5R..".":..1
0);"MODE "..5.....5,.. BLANK OUT
ROW ROUTINE.K56..".":..10);"LINE ALONG R
OW"..5@...10);"ARE YOU SURE (Y/N)"..6J..
A$:. A$."" . . 6730.*6T..".":.:..10);"
".A6^.. A$.."Y" . . 681
5.O6H.C$(CR).D$.^6R.. J.0 . L2.X6|.A(CR,
J).0:F$(CR,J)."".~6.....6... 3290..6...
3600..6...".":..10);"MODE "..6.
...Y6... BLANK OUT COLUMN ROUTINE..6..."
.":..10);"BLANK OUT COLUMN"..7....10);"A
RE YOU SURE (Y/N)".47... A$:. A$."" . .
6930.[7...".":.:..10);"
".R7!.. A$.."Y" . . 7010..7&.R$(CC).D$
..70.. I.0 . L1..7:.A(I,CC).0:F$(I,CC)."
"..7D....7N.. 3290.E7X.. 3600..7B..".":.
.10);"MODE "..7L....8... HOM
E CURSOR ROUTINE."8 .. HOME CURSOR ROUTI
NE.=8*..".":..10);"HOME ".H84.. 5400
.V8>.DR.0:DC.0.H8H.. 3000:. 3200.}8M.CR.
7:CC.0:. 3600..8R..".":..10);"MODE "..8\
....8... CLEAR ALL VALUES ROUTINE.Y8...
C$(CR).D$ . R$(CC).D$ . ...8...".":..10)
;"ZERO BOXES"..9....10);"ARE YOU SURE (Y
/N)";..9...A$:. A$."" . . 7330.]9... A$.
."Y" . .".":..10);" ":. 7430.F9
..."Y".U9... J.0 . L2..9J.. L.0 . L1..9T
.A(L,J).0..9...:...9... 3200..9... 3600.
K9...".":..10);"ZEROED "..9....10);"
"..9.....:L.. SAVE FIL
E ROUTINE..:N.F13.1..:V..".":..10);"SAVE
FILE".4:[...O:`...5);"ENTER FILENAME";.
I:J.. N$:. N$."" . . 7510..:L.. N$.G(13)
. . 7685..:O.. C(N$).16 . N$.H(N$,16).A
:P..:..5);"UPDATING FILE ":. 1600..:T..:
..10);"SAVING FILE"..:~....:... 1,8,1,N$
..:..K.32:L.160..;...1,L1..;...1,L2.0;..
X$.R$(L2.1):. 7700:.1,X$.W;... J.0 . L2:
X$.R$(J):. 7700:.1,X$:..~;... I.0 . L1:X
$.C$(I):. 7700:.1,X$:...;..X$."X"..;...
J.0 . L2..;D.. I.0 . L1..;N..1,A(I,J)..;
P.. F$(I,J)."" . .1,X$:.1,X$:. 7640..<S.
.1,H(F$(I,J),79):.C(F$(I,J)).80..1,X$:.7
640. <U..1,J(F$(I,J),80).(<X..:..5<...1,
"EOF".<<.. 1.Z<...".":..10);"SAVED AS ";
N$..<...:.:..8);"PRESS ANY KEY TO CONTIN
UE"..<...A$:. A$."" . 7680..<... ".":. 3
000:. 3200..<.....<...OVE SPACES FOR SAV
ING ROUTINE..<..A$."":B$.""..<... X.1 .
9.%=(.. J(X$,X,1)..G(K) . B$.J(X$,X,1):.
7740.1=2.B$.G(L).>=<.A$.A$.B$.D=F...N=P
.X$.A$.T=Z...J=X.. PRINTER ROUTINE..=...
".":..10);"PRINTOUT"..=... L2.6 . N.6:.
7840..=..N.L2..= .. 3,4..=...3..=...:.:.
..=H.FF$." R RRRARRRR":C.0..=I.. REPEA
T..>J.. X.0 . N:FF$.FF$." RRR".G(66.X.C)
."RRRR":..*>R.. FF$:FF$."".J>... C.0 . F
F$." 1.".R$(L2.1).X>... J.0 . N..>... R
$(J.C)..D$ . FF$.FF$.R$(J.C):. 7940..>..
FF$.FF$." V "..>.....>... FF$:FF$.
"":..C>... W.0 . L1..>... C$(W)..D$ . .
7980.!?".M.((N.1..(C.0)).9.(C.0)..3):FF$
."":.X.1.M.1:FF$.FF$."R":.:. 8050.W?,..
W.2.10 . C.0 . FF$." " .D(W.2).".".C$(W)
:. 8000.X?6.. C.0 . FF$.D(W.2).".".C$(W)
..?@.. J.0 . N..?J.. R$(J.C).D$ . FF$.FF
$." V ":. 8035.O?T.A.A(W,J.C):F3.1
:. 5000..?^.FF$.FF$.A$..?C.A$.""..?H...#
@R.T.78.C(FF$):. B.1 . T:FF$.FF$." ":.:.
FF$:FF$."".)@|...<@... C..0 . C.C.1.M@.
.C.C.7:N.L2.C.]@... N.7 . N.7..@..."CCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCC";..@..."CCCCCCCC
CCCCC".J@...:.:.:...@... N.0 . . 7881..@
...3..@.. 3..A...".":..10);"PRINTED "..
A..F3.0..AB.../A. . SCROLL LEFT ROUTINE.
;A. . 49408.HA. .".":."...":..30);" ..."
.G(68.DC)."...."..A. . R$(DC.2).D$ . N3$
." V ":. 8225..A. N3$.R$(DC.2)..A!
..30);N3$.BA& ."........".PA0 . L.0 . 7
..A: . .30);..B? . C$(DR.L).D$ . ."CCCCC
CCCC";:. 8280..B@ . R$(DC.2).D$ . ."
V ";:. 8280.ABD A.A(DR.L,DC.2).LBN .
5000.TBX .:..ZBB ..`BL ..ZBP . SCROLL LE
FT ROUTINE..B. .".";:B.(CR.DR).2.8:. X.1
. B:.".";:.:..12);" "..B. . 49664..B. .
".":."...":..12);" ...".G(66.DC)."....".
.C. . R$(DC).D$ . N3$." V ":. 8435
..C. N3$.R$(DC).-C. ..12);N3$.=C. ."....
....".KC.!. L.0 . 7.VC.!..12);..C.!. C$(
DR.L).D$ . ..12);"CCCCCCCCC";:. 8490..C.
!. R$(DC).D$ . ." V ";:. 8490..C.!
A.A(DR.L,DC).GC !. 5000.OC*!.:..UC4!...C
>!...C.!. SCROLL UP ROUTINE..C.!. 49920.
.D.!.".";:. B.1 . 21:.".";:..+D.!N$.D(DR
.9).;D.!N2$.I(N$,2).FD.!. C$(DR.7).D$ .
N3$."CCCCCCCCC":. 8630.WD.!N3$.C$(DR.7).
.D.!.:.N2$;".";N3$;.FD.!. C$(DR.7).D$ .
."CCCCCCCCCCCCCCCCCCCCCCCCCCC";:. 8675.T
D.!. I.0 . 2..DB!."..";.I.9.12);..EE!. R
$(DC.I).D$ . ." V ";:. 8670.$EJ!A.
A(DR.7,DC.I)./ET!. 5000.5E.!..BE.!.:."
.".HE.!..BE.!. SCROLL DOWN ROUTINE.NE.".
50176..E."."........ ."..E.". DR.8 . N
2$.D(DR.2):. 8732..E."N$.D(DR.2):N2$.I(N
$,2)..E.". C$(DR).D$ . N3$."CCCCCCCCC":.
8740..E."N3$.C$(DR)..F$". N2$;".";N3$;.
@F&". C$(DR).D$ . ."CCCCCCCCCCCCCCCCCCCC
CCCCCCC";:. 8790.NF.". I.0 . 2.BF0".".."
;.I.9.12);..F3". R$(DC.I).D$ . ." V
";:. 8780..F8"A.A(DR,DC.I)..FB". 5000.
.FL"...FV"..WF`". QUIT FILE AND RESTART
ROUTINE..FJ".".":..10);"QUIT FILE AND RE
START". GT"..10);"ARE YOU SURE (Y/N) ?";
.:G~". A$:. A$."" . . 8830.OG.". A$."Y"
.. 8850.VG.".".":..10);"
"..G."..10);" "
..G.". 880..G."..LGD". LOAD GRAPHICS PRO
GRAM ROUTINE..GN".".":..10);"LOAD GRAPHI
CS PROGRAM "..HX"..10);"ARE YOU SURE (Y/
N) ?";.0H.". A$:. A$."" . . 8930.HH.". A
$.."Y" . .".":..10);"
":. 880.TH.". "YES"..H.#. LOAD"GRAPHICS
"..H.#...H(#. ENTER FUNCTION ROUTINE..H-
#F6.0.YH2#. C$(CR).D$ . R$(CC).D$ . .931
0..H7#.".":..10);"ENTER FUNCTION ".
.I<#TF$."":B.0.'IF#.".":.:..1);.77);"]".
CIP#.".":.:. G(CC.66);CR.2;.QIZ#..5);"=[
".KID#. T$:. T$."" . . 9060.VIN#. 9500..
IX#. T$.G(20) . A.0 . . 9060..I.#. T$.G(
20) . TF$.H(TF$,A.1):F6.1:. 9280.XI.#. T
$.G(13) . . 9130..I.#. A.69 . . 9060..I
#. 9260..J.#. TF$."" . F$(CR,CC)."":. 93
00.BJ.#. CR.7 .Z$.I(D(CR.2),2):CL.3:. 91
45.[J.#Z$.I(D(CR.2),1):CL.2.OJ.#TB$.G(CC
.66).Z$..J.#. X.1 . C(TF$)..JH#BT$.J(TF$
,X,CL).CJR#. BT$.TB$ . F$(CR,CC)."":TF$.
"":X.C(TF$).IJ.#...J.#. TF$."" . . 9190.
.K.#. TF$.."" . FF$.TF$:. 10800:. TRANS
ROUTINE.!K.#F$(CR,CC).FF$.5K.#. ER.1 . .
9205.RK.#. F$(CR,CC).."" . . 9210.YK.#.
".":..10);"SYNTAX-PRESS ANY KEY "..K.#.
A$:. A$."" . . 9206..K.#.".":.:..8);..K.
#. X.1 . A:." ";:..EK.#. 9000..K.#GT$.""
:TF$."":F4$.""..K.$.".":..10);"MODE
".&L.$. CR.7 . .".":.:..7);" ":..3
8);" ".;L.$. CR..7 . . 9310.FL"$. 9310.R
L,$. (LL.0.N.0.O.0.P.0.B2.0.B3.0) . . 90
60..L6$TF$.TF$.T$..L@$.".":.:..8);.70)..
LJ$.".":.:..8);TF$;.BLO$. F6.1 . F6.0:."
".MLT$. 9060..L^$.".":..10);"MODE
".!M`$."
";.NMB$."
".]MC$A(CR,CC).0.HM
D$. 3800.SME$. 3600.YMH$...M.%. TEST STR
ING ROUTINE. M&%A.C(TF$)..M0%LL.0:N.0:O.
0:P.0:B2.0:B3.0..M:%. T$."A" . T$.G(L2.6
7) . LL.1:...ND%. T$."/" . T$.":" . N.1:
..,NN%. (T$."+".T$."-".T$."*".T$."/"). O
.1:..ANX%. T$."." . P.1:..]NB%. T$."(" .
B.B.1:B2.1:..YNL%. T$.")" . B.B.1:B3.1:
..NV%...N.%. TRANS ROUTINE..N.'. DISPLA
Y FUNCTION ROUTINE.ON.'. F$(CR,CC)."" .
. 10090..N.'.".":..10);"DISPLAY FUNCTION
"..O.'FF$.F$(CR,CC).)O$'. C$(CR).D$ . R$
(CC).D$ . . 10085.1O&'L.0.WO)'L.L.1:. J(
FF$,L,1).."W" . . 10025.OO*'NF$.I(FF$,C(
FF$).L)..O8'. G(CC.66);CR.2;..OB'..5);"=
";NF$..OL'.".":..10);"PRESS ANY KEY "
.SOQ'. A$:. A$."" . . 10065..OR'."."..PV
'.:."
";.>P`'."
".`PE'.".":..10);"MODE
".FPJ'...PT'. COPY FUNCTION ROUTI
NE..P~'. C$(CR).D$.R$(CC).D$. . 10680..P
.'.".":..28);"..COPY..".EP.'...P.'. F$(C
R,CC)."" . . 10680..P.'TF$.F$(CR,CC)..P.
'OW.CR..Q.'OL.CC..QD'FT$."".!QN'V2.C(TF$
).<QX'. T$:. T$."" . . 10200.MQ.'.".":..
0);"".FQ.'. T$.G(13) . . 10244..Q.'. T$.
"." . T$."." . T$."." . T$."." . C$.T$:.
4000..Q.(. 10200.OQ.(. 54276,17:. X.1 .
50:.:. 54276,0..Q.(.".":..10);"COPY FUN
CTION"..R.(. CR.OW . CC.OL . . 10680."R.
(. OW.CR . . 10290.8R.(. OL.CC . . 10430
.HR((.".":..10);"INVALID":. C.1 . 2000:.
:. 10680..R2(. R$(CC).D$ . . 10680..R<(O
L$.G(OL.66)..R>(H.1..RA(F7.0:F8.0..RF(.
X.H . C(TF$).TRP(BT$.J(TF$,X,C(OL$))..RZ
(. BT$.OL$ . F8.1..S_(. F8.1 . F7.X:X.C(
TF$)..SD(.. SN(. F7.0 . . 10630.5SX(. F
7.1 . . 10400._S.(FF$.H(TF$,F7.1).G(66.C
C).I(TF$,V2.F7).KS.(TF$.FF$.TS.(H.F7..S.
(. 10305..S (FF$.G(CC.66).I(TF$,V2.F7)..
S.(TF$.FF$..S.(H.F7..S.(. 10305.YS.(. C$
(CR).D$ . . 10680..TH(. OW.2.9 . OW$.I(D
(OW.2),2):. 10450..TM(OW$.I(D(OW.2),1)..
TN(H.1.,TR(F7.0:F8.0.?T.(. X.H . C(TF$).
WT.(BT$.J(TF$,X,C(OW$)).LT.(. BT$.OW$ .
F8.1..T.(. F8.1 . F7.X:X.C(TF$)..T.)...T
.)V2.C(TF$)..T.). F7.0 . . 10630.HT"). F
7.V2.2 . . 10600..T'). CR.2.9 . Z$.I(D(C
R.2),2):. 10540..U()Z$.I(D(CR.2),1)..U,)
FF$.H(TF$,F7.1).Z$.9U6). OW.7 . X.V2.F7.
1:. 10570.EU@)X.V2.F7.ZUJ)FF$.FF$.I(TF$,
X).FUT)TF$.FF$.OUY)H.F7.{U^). 10450..UH)
. CR.2.9 . Z$.I(D(CR.2),2):. 10605..UJ)Z
$.I(D(CR.2),1).MUM)FF$.H(TF$,F7.1).Z$.YU
R)TF$.FF$..UW)H.F7..U|). 10450..V.)F$(CR
,CC).FF$..V.)FT$."":TF$."":F4$."".?V.).
54276,17:. X.1 . 50:.:. 54276,0.^V.). 10
020:. DISPLAY FUNCTION..V.).".":..10);"C
OPIED "..V.)...V.).".":
..10);"NO COPY-PRESS ANY KEY ".
ZVB). A$:. A$."" . . 10690..WL).".":..10
);"MODE
"..WV)...W0*. TRANS ROUTINE.MW:*. REV
ERSED POLISH NOTATION.SW<*. 54276,17:. X
.1 . 50:.:. 54276,0.|W?*ER.0..WA*F3$.FF$
..WD*I1.0:I2.0:C.0:DP.0..WN*. N.1 . C(FF
$).PWS*. ER.1 . N.C(FF$):. 10920..WX*C$.
J(FF$,N,1)..XB*. C$."(" . C.C.5:I1.I1.1:
L$(1,I1).C$:. 10920.DXL*. C$.")" . C.C.5
:I1.I1.1:L$(1,I1).C$:. 10920.ZXV*. F(C$)
.41 . F(C$).48 . C$.."." . . 11000:. 109
20..X.*. C$.."B" . C$.."Z" . . 11200..X.
*. C$."." . DP.1:. 11400.ZX.*. C$.."0" .
C$.."9" . . 11400..X.*DP.0:...X.*. ER.1
. ...Y.*. I2.0 . . 10960./Y.*I1.I1.1:L$
(1,I1).P$(1,I2):I2.I2.1.;YF*. 10930.FYP*
FF$."".UYZ*. J.1 . I1.IY.*FF$.FF$.L$(1,J
).OY.*...Y.*FF$.FF$."W".F3$..Y.*. 54276,
17:. X.1 . 50:.:. 54276,0..Y.*..FY.*. OP
ERATOR ROUTINE.NY.+J.0..Y.+. C$."+" . C$
."-" . J.1..Z.+. C$."*" . C$."/" . J.2..
Z +R.C.J.(Z*+. R.P(I2) . . 11080.NZ4+I1.
I1.1:L$(1,I1).P$(1,I2):I2.I2.1.ZZ>+. 110
50.FZH+I2.I2.1.VZR+P$(1,I2).C$..Z\+P(I2)
.R..ZP+...Z.+. STRING.HZE+. J(FF$,N.1,1)
."0" . J(FF$,N.1,1)."9" . ER.1:...ZJ+N2$
.J(FF$,N.2,1)..ZT+. N2$."0" . N2$."9" .
. 11270.%[.+I1.I1.1:L$(1,I1).C$:I1.I1.1:
N.N.1.K[.+L$(1,I1).J(FF$,N,1):I1.I1.1:N.
N.1.C[.+L$(1,I1).J(FF$,N,1).I[.+...[.,.
E(J(FF$,N.1,1)).0 . E(J(FF$,N.1,1)).1 .
ER.1.C[.,I1.I1.1:L$(1,I1).C$:I1.I1.1:N.
N.1..[.,L$(1,I1).J(FF$,N,1)..[$,...[.,.
PURE NUMBER..\.,I1.I1.1:L$(1,I1).".".$\.
,I1.I1.1:L$(1,I1).C$..\.,N.N.1.@\.,C$.J(
FF$,N,1).B\.,. C$.."0" . C$.."9" . . 114
20..\D,. C$."." . DP.0 . . 11420..\N,. C
$."." . DP.1 . ER.1..\X,N.N.1..\.,..H\..
. CLEAR FUNCTION ROUTINE..\... F$(CR,CC)
."" . . 12070..]...".":..10);"CLEAR FUNC
TION "."]..F$(CR,CC)."":A(CR,CC).0.>]./.
.10);"PRESS ANY KEY ".Y]./. A$:. A$.""
. . 12050.Z]./.".":..10);"MODE
"..]!/..10);" "..]&/...]
D/. PRINT FORMULAE ROUTINE.C]N/.".".K]S/
T.1..]X/."TO PRINTER (Y/N)? ";..^B/. A$:
. A$."" . . 12130..^L/. A$."N" . ."NO":.
12170.3^Q/. SET UP PRINTER.=^V/. 3,4.D^
./.3.S^./. B.0 . L1..^./. T.1 . .:."BOX
FORMULA":."CCC CCCCCCC":T.0..^./. C.
0 . L2..^./T$.F$(B,C)..^./. T$."" . . 12
310.C^./L.1.K^F/L.1..^P/C$.J(T$,L,1)..^Z
/. C$."W" . . 12270..^./L.L.1.._./. 1224
0.._./T$.I(T$,C(T$).L).A_./.G(C.66);B.2;
:. B.2.10 . ." ";.N_.0."= ";T$.V_.0T.1.\
_.0..B_ 0..X_*0."CCCCCCCCCCCCCC".._40.:.
.._>0. A$."N" . . 12380.._H0. TURN PRINT
ER OFF.._R0.3.._W0 3.D_\0.:..._F0..15);"
PRESS ANY KEY";.._P0. A$:. A$."" . . 124
00..`Z0."."..`.0DR.0:DC.0..`.0. 3000.'`.
0. 3200.5`.0CR.7:CC.0.@`.0. 3600.F`.0..C
`H2. SOUND POKES INITIALISE.R`R2. 54296,
15..`.2. 54277,64..`.2. 54278,128..`.2.
54273,162..`.2. 54272,37..`.2. 54276,0.D
`.3....
> CLICK IMAGE PREVIEW FOR FULL MODAL