VECTOR.C3
FILE INFORMATION
FILENAME(S): VECTOR.C3
FILE TYPE(S): PRG
FILE SIZE: 16.3K
FIRST SEEN: 2025-11-30 01:07:52
APPEARS ON: 2 disk(s)
FILE HASH
eef5f8ef6b192c88238319a4d0a6f4501abf9b67a12cd1effbc517efdd55981f
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | VECTOR.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 4 | 4 | DOWNLOAD FILE |
| L EHRNEN | VECTOR.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 4 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 55 52 24 B2 22 22 3A 55 49 24 B2 |...(.UR$."":UI$.|
00000100: 22 22 3A 97 55 4F 2C 30 00 18 09 2A 00 8B 55 4C |"":.UO,0...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 2B 09 2D 00 99 22 20 |.0.UL.80.+.-.." |
00000120: 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 3F 09 32 00 | ..";:.UC,0.?.2.|
00000130: A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 |.UI$:.UI$."".50.|
00000140: 69 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 |i.7..UI$..(13)..|
00000150: 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 |(UR$)..1..UC,1:.|
00000160: 22 20 9D 22 3B 3A 89 38 35 00 7C 09 3C 00 8B 55 |" .";:.85.|.<..U|
00000170: 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 90 09 3E |I$..(20).105...>|
00000180: 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 |.. .(UR$)..UL.50|
00000190: 00 B5 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 |...A..120:. CHEC|
000001A0: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR|
000001B0: 41 43 54 45 52 00 C5 09 46 00 55 52 24 B2 55 52 |ACTER...F.UR$.UR|
000001C0: 24 AA 55 49 24 00 CF 09 4B 00 99 55 49 24 3B 00 |$.UI$...K..UI$;.|
000001D0: D7 09 50 00 89 35 30 00 FC 09 55 00 8F 20 2B 2B |..P..50...U.. ++|
000001E0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 |+ CHECK FOR HELP|
000001F0: 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 24 0A 5A | REQUEST +++.$.Z|
00000200: 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 |..UR$.UX$.195:. |
00000210: 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 |EXIT TO HELP ROU|
00000220: 54 49 4E 45 00 33 0A 5F 00 8B 55 46 B2 31 A7 8D |TINE.3._..UF.1..|
00000230: 32 34 30 00 40 0A 64 00 55 46 B2 30 3A 99 3A 8E |240.@.d.UF.0:.:.|
00000240: 00 59 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 |.Y.f.. ++ CHECK |
00000250: 44 45 4C 45 54 45 20 2B 2B 00 6A 0A 69 00 8B C3 |DELETE ++.j.i...|
00000260: 28 55 52 24 29 B3 31 A7 35 30 00 82 0A 6E 00 55 |(UR$).1.50...n.U|
00000270: 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB |R$..(UR$,.(UR$).|
00000280: 31 29 00 94 0A 73 00 99 22 9D 20 20 9D 9D 22 3B |1)...s..". ..";|
00000290: 3A 89 35 30 00 BB 0A 78 00 8F 20 2B 2B 20 43 48 |:.50...x.. ++ CH|
000002A0: 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 |ECK FOR VALID CH|
000002B0: 41 52 41 43 54 45 52 53 20 2B 2B 00 CD 0A 7D 00 |ARACTERS ++...}.|
000002C0: 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DE 0A |..(US$).0.150...|
000002D0: 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 F5 |...US.1..(US$)..|
000002E0: 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 |....UI$..(US$,US|
000002F0: 2C 31 29 A7 8E 00 FB 0A 8C 00 82 00 08 0B 91 00 |,1).............|
00000300: 55 49 24 B2 22 22 3A 8E 00 23 0B 96 00 8F 20 2A |UI$."":..#.... *|
00000310: 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 |* STANDARD INPUT|
00000320: 20 2A 2A 00 34 0B 98 00 8B C6 28 55 49 24 29 B2 | **.4.....(UI$).|
00000330: 34 36 A7 8E 00 45 0B 9B 00 8B 55 49 24 B2 C7 28 |46...E....UI$..(|
00000340: 33 32 29 A7 8E 00 62 0B A0 00 8B C6 28 55 49 24 |32)...b.....(UI$|
00000350: 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 |).48..(UI$).57.1|
00000360: 37 30 00 68 0B A5 00 8E 00 85 0B AA 00 8B C6 28 |70.h...........(|
00000370: 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 |UI$).65..(UI$).9|
00000380: 30 A7 31 38 30 00 8B 0B AF 00 8E 00 AF 0B B4 00 |0.180...........|
00000390: 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 |..(UI$).193..(UI|
000003A0: 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 |$).218.UI$."":..|
000003B0: D2 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 55 |......(UT).UU%.U|
000003C0: 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 |I$..(.(UI$).128)|
000003D0: 3A 8E 00 D8 0B BB 00 8E 00 E5 0B BE 00 55 49 24 |:............UI$|
000003E0: B2 22 22 3A 8E 00 0A 0C C3 00 55 46 B2 31 3A 8F |."":......UF.1:.|
000003F0: 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E | +++ HELP ROUTIN|
00000400: 45 20 45 58 49 54 20 2B 2B 2B 00 13 0C C5 00 8D |E EXIT +++......|
00000410: 32 35 30 00 1C 0C C8 00 8D 32 34 35 00 3B 0C CD |250......245.;..|
00000420: 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 |..UQ.UB.(U2%.256|
00000430: AA 55 31 25 AA 55 33 25 AB 32 29 00 57 0C D2 00 |.U1%.U3%.2).W...|
00000440: 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 |UQ%(UQ.UB)..(UQ)|
00000450: 3A 82 3A 99 22 93 22 00 6A 0C D7 00 55 5A B2 31 |:.:.".".j...UZ.1|
00000460: 3A 55 56 25 B2 C2 28 55 54 29 00 73 0C D8 00 89 |:UV%..(UT).s....|
00000470: 33 30 30 00 98 0C D9 00 55 5A B2 30 3A 55 53 24 |300.....UZ.0:US$|
00000480: B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 |.UJ$:UG$.UK$:UP.|
00000490: 55 4A 3A 55 4C B2 55 4B 00 CF 0C DA 00 8B C2 28 |UJ:UL.UK.......(|
000004A0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000004B0: 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 |1:.".";:.53281,6|
000004C0: 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 |:.53280,14:.220.|
000004D0: D9 0C DB 00 99 22 93 22 3B 00 08 0D DC 00 55 54 |.....".";.....UT|
000004E0: 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 |$.UL$:.UT,UV%:.U|
000004F0: 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 |Q.UB.(U2%.256.U1|
00000500: 25 AA 55 33 25 AB 33 29 00 1D 0D E1 00 97 55 51 |%.U3%.3)......UQ|
00000510: 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 29 0D |,UQ%(UQ.UB):..).|
00000520: E6 00 97 55 31 2C 55 31 25 00 35 0D E8 00 97 55 |...U1,U1%.5....U|
00000530: 32 2C 55 32 25 00 41 0D E9 00 97 55 34 2C 55 34 |2,U2%.A....U4,U4|
00000540: 25 00 4F 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 |%.O....U3,U3%.1.|
00000550: 57 0D EB 00 89 33 35 00 89 0D F0 00 55 44 25 B2 |W....35.....UD%.|
00000560: 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |((U2%.256.U1%.U3|
00000570: 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 |%).UB).40:..(UD$|
00000580: 2C 55 44 25 AA 31 29 3A 8E 00 C4 0D F5 00 99 C8 |,UD%.1):........|
00000590: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 |. HELP COMING . |
000005C0: 20 22 3A 8E 00 F0 0D FA 00 55 31 25 B2 C2 28 55 | ":......U1%..(U|
000005D0: 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 |1):U2%..(U2):U3%|
000005E0: B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 |..(U3):U4%..(U4)|
000005F0: 00 18 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 |.....UJ$.US$:UK$|
00000600: B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 |.UG$:UL$.UT$:UJ.|
00000610: 55 50 3A 55 4B B2 55 4C 00 1E 0E FF 00 8E 00 2F |UP:UK.UL......./|
00000620: 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 |.,.. ** MENU **.|
00000630: 35 0E 2D 01 3A 00 64 0E 2E 01 99 22 93 22 3A 97 |5.-.:.d....".":.|
00000640: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)|
00000650: B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 |.0..53281,9:.532|
00000660: 38 30 2C 38 00 6A 0E 2F 01 3A 00 87 0E 31 01 99 |80,8.j./.:...1..|
00000670: 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000680: 20 20 4D 45 4E 55 22 00 B6 0E 36 01 99 22 20 2D | MENU"...6.." -|
00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 22 00 E0 0E 3B 01 99 22 11 11 20 |-----"...;..".. |
000006C0: 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 4E | 1. BEGIN|
000006D0: 20 56 45 43 54 4F 52 20 41 4C 47 45 42 52 41 22 | VECTOR ALGEBRA"|
000006E0: 00 0A 0F 40 01 99 22 11 11 20 20 20 20 20 20 20 |...@..".. |
000006F0: 32 2E 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 |2. STUDENT INS|
00000700: 54 52 55 43 54 49 4F 4E 53 22 00 34 0F 45 01 99 |TRUCTIONS".4.E..|
00000710: 22 11 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 |".. 3. T|
00000720: 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 |EACHER INSTRUCTI|
00000730: 4F 4E 53 22 00 50 0F 4F 01 99 22 11 11 20 20 20 |ONS".P.O..".. |
00000740: 20 20 20 20 34 2E 20 20 20 51 55 49 54 11 11 22 | 4. QUIT.."|
00000750: 00 7F 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |...T.." --------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00000780: AA 0F 59 01 99 22 11 11 20 20 20 20 20 20 20 50 |..Y..".. P|
00000790: 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 |RESS A NUMBER KE|
000007A0: 59 20 28 31 2D 34 29 20 22 3B 00 D2 0F 5E 01 55 |Y (1-4) ";...^.U|
000007B0: 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D |L.1:US$."1234":.|
000007C0: 33 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 |35:. INPUT ROUTI|
000007D0: 4E 45 00 DD 0F 60 01 55 53 24 B2 22 22 00 FA 0F |NE...`.US$.""...|
000007E0: 63 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 |c...(UR$).1000,4|
000007F0: 30 30 2C 35 30 30 2C 33 39 36 00 03 10 68 01 89 |00,500,396...h..|
00000800: 33 30 30 00 2A 10 8B 01 8F 20 2A 2A 20 52 45 2D |300.*.... ** RE-|
00000810: 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 |ENABLE STOP KEY |
00000820: 41 4E 44 20 45 4E 44 20 2A 2A 00 59 10 8C 01 8B |AND END **.Y....|
00000830: C2 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 |.(50003)..1..(50|
00000840: 30 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 |003)..160..(5000|
00000850: 33 29 B3 B1 30 A7 33 39 39 00 83 10 8D 01 9E 55 |3)..0.399......U|
00000860: 55 AA 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 |U.71:..(50003).0|
00000870: A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 |..53281,6:.53280|
00000880: 2C 31 34 00 8F 10 8E 01 99 22 9A 93 22 3A 80 00 |,14......"..":..|
00000890: 9A 10 8F 01 8D 38 37 35 3A 8E 00 BB 10 90 01 8F |.....875:.......|
000008A0: 20 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 | ** STUDENT INST|
000008B0: 52 55 43 54 49 4F 4E 53 20 2A 2A 00 EA 10 95 01 |RUCTIONS **.....|
000008C0: 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 |.".":.UT,UL%:..(|
000008D0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000008E0: 30 3A 97 35 33 32 38 30 2C 30 00 21 11 96 01 55 |0:.53280,0.!...U|
000008F0: 50 B2 30 3A 55 54 24 B2 22 20 D6 C5 C3 D4 CF D2 |P.0:UT$." ......|
00000900: A0 C1 CC C7 C5 C2 D2 C1 22 3A 55 47 24 B2 22 D3 |........":UG$.".|
00000910: 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 38 35 |TUDENT .NST":.85|
00000920: 30 00 45 11 97 01 99 22 11 1D C5 58 50 4C 41 4E |0.E...."...XPLAN|
00000930: 41 54 49 4F 4E 20 4F 46 20 4F 50 45 52 41 54 49 |ATION OF OPERATI|
00000940: 4F 4E 53 3A 22 00 68 11 98 01 99 22 1D B7 B7 B7 |ONS:".h...."....|
00000950: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000960: B7 B7 B7 B7 B7 B7 B7 22 00 97 11 99 01 99 22 11 |......."......".|
00000970: 1D C1 44 44 2C 20 D3 55 42 54 52 41 43 54 3A 20 |..DD, .UBTRACT: |
00000980: 20 C3 41 4C 43 55 4C 41 54 45 53 20 54 48 45 20 | .ALCULATES THE |
00000990: 53 55 4D 20 4F 52 22 00 C6 11 9A 01 99 22 11 1D |SUM OR"......"..|
000009A0: 44 49 46 46 45 52 45 4E 43 45 20 4F 46 20 54 57 |DIFFERENCE OF TW|
000009B0: 4F 20 56 45 43 54 4F 52 53 2E 20 20 C5 4E 54 45 |O VECTORS. .NTE|
000009C0: 52 20 54 48 45 22 00 F1 11 9B 01 99 22 11 1D 4C |R THE"......"..L|
000009D0: 45 54 54 45 52 20 4E 41 4D 45 53 20 4F 46 20 54 |ETTER NAMES OF T|
000009E0: 48 45 20 56 45 43 54 4F 52 53 20 54 4F 20 42 45 |HE VECTORS TO BE|
000009F0: 22 00 1F 12 9C 01 99 22 11 1D 41 44 44 45 44 2F |"......"..ADDED/|
00000A00: 53 55 42 54 52 41 43 54 45 44 2E 20 20 D4 48 45 |SUBTRACTED. .HE|
00000A10: 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 22 00 | COMPUTER WILL".|
00000A20: 4C 12 9D 01 99 22 11 1D 54 48 45 4E 20 50 52 49 |L...."..THEN PRI|
00000A30: 4E 54 20 4F 55 54 20 54 48 45 20 56 45 43 54 4F |NT OUT THE VECTO|
00000A40: 52 53 20 41 4E 44 20 54 48 45 20 22 00 77 12 9E |RS AND THE ".w..|
00000A50: 01 99 22 11 1D 53 55 4D 2F 44 49 46 46 45 52 45 |.."..SUM/DIFFERE|
00000A60: 4E 43 45 20 49 4E 20 43 4F 4D 50 4F 4E 45 4E 54 |NCE IN COMPONENT|
00000A70: 20 46 4F 52 4D 2E 22 00 A5 12 9F 01 99 22 11 1D | FORM."......"..|
00000A80: D2 45 4E 41 4D 45 3A 20 D5 53 45 44 20 46 4F 52 |.ENAME: .SED FOR|
00000A90: 20 43 48 41 4E 47 49 4E 47 20 54 48 45 20 4C 45 | CHANGING THE LE|
00000AA0: 54 54 45 52 22 00 CA 12 A0 01 99 22 11 1D 4E 41 |TTER"......"..NA|
00000AB0: 4D 45 20 4F 46 20 41 20 56 45 43 54 4F 52 2E 22 |ME OF A VECTOR."|
00000AC0: 3A 8D 38 33 35 3A 8D 38 35 30 00 E4 12 A1 01 99 |:.835:.850......|
00000AD0: 22 11 11 11 1D C3 52 4F 53 53 20 D0 52 4F 44 55 |".....ROSS .RODU|
00000AE0: 43 54 3A 22 00 0F 13 A4 01 99 22 11 1D CE 4F 54 |CT:"......"...OT|
00000AF0: 45 3A 20 20 C2 45 46 4F 52 45 20 54 48 45 20 43 |E: .EFORE THE C|
00000B00: 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 42 45 00 |OMPUTER WILL BE.|
00000B10: 3C 13 A5 01 99 22 11 1D 41 42 4C 45 20 54 4F 20 |<...."..ABLE TO |
00000B20: 43 41 4C 43 55 4C 41 54 45 20 54 48 45 20 43 52 |CALCULATE THE CR|
00000B30: 4F 53 53 20 50 52 4F 44 55 43 54 22 00 66 13 A6 |OSS PRODUCT".f..|
00000B40: 01 99 22 11 1D 54 48 45 20 56 45 43 54 4F 52 53 |.."..THE VECTORS|
00000B50: 20 4D 55 53 54 20 42 45 20 53 54 4F 52 45 44 20 | MUST BE STORED |
00000B60: 49 4E 20 54 48 45 00 91 13 A7 01 99 22 11 1D 52 |IN THE......"..R|
00000B70: 45 47 49 53 54 45 52 20 49 4E 20 54 48 45 20 4F |EGISTER IN THE O|
00000B80: 52 44 45 52 20 49 4E 20 57 48 49 43 48 20 59 4F |RDER IN WHICH YO|
00000B90: 55 00 CB 13 A8 01 99 22 11 1D 57 41 4E 54 20 54 |U......"..WANT T|
00000BA0: 4F 20 43 41 4C 43 55 4C 41 54 45 20 54 48 45 49 |O CALCULATE THEI|
00000BB0: 52 20 43 52 4F 53 53 20 50 52 4F 44 55 43 54 2E |R CROSS PRODUCT.|
00000BC0: 22 3A 8D 38 33 35 3A 8D 38 35 30 00 F0 13 A9 01 |":.835:.850.....|
00000BD0: 99 22 11 11 11 1D 1D 1D 1D 1D C9 46 20 59 4F 55 |.".........F YOU|
00000BE0: 20 57 49 53 48 45 44 20 54 4F 20 46 49 4E 44 22 | WISHED TO FIND"|
00000BF0: 00 1D 14 AA 01 99 22 11 1D 28 31 2C 32 2C 33 29 |......"..(1,2,3)|
00000C00: D8 28 34 2C 33 2C 32 29 2C 20 28 31 2C 32 2C 33 |.(4,3,2), (1,2,3|
00000C10: 29 20 57 4F 55 4C 44 20 48 41 56 45 22 00 44 14 |) WOULD HAVE".D.|
00000C20: AB 01 99 22 11 1D 54 4F 20 42 45 20 45 4E 54 45 |..."..TO BE ENTE|
00000C30: 52 45 44 20 49 4E 20 54 48 45 20 52 45 47 49 53 |RED IN THE REGIS|
00000C40: 54 45 52 22 00 72 14 AC 01 99 22 11 1D 41 53 20 |TER".r...."..AS |
00000C50: 56 45 43 54 4F 52 20 C1 2C 20 28 34 2C 33 2C 32 |VECTOR ., (4,3,2|
00000C60: 29 20 41 53 20 56 45 43 54 4F 52 20 C2 20 41 4E |) AS VECTOR . AN|
00000C70: 44 22 00 9E 14 AD 01 99 22 11 1D 54 48 45 20 4F |D"......"..THE O|
00000C80: 54 48 45 52 20 56 45 43 54 4F 52 53 20 57 4F 55 |THER VECTORS WOU|
00000C90: 4C 44 20 48 41 56 45 20 54 4F 20 42 45 22 00 CD |LD HAVE TO BE"..|
00000CA0: 14 AE 01 99 22 11 1D 45 4E 54 45 52 45 44 20 41 |...."..ENTERED A|
00000CB0: 53 20 54 48 45 20 5A 45 52 4F 20 56 45 43 54 4F |S THE ZERO VECTO|
00000CC0: 52 2E 22 3A 8D 38 33 35 3A 8D 38 35 30 00 FA 14 |R.":.835:.850...|
00000CD0: AF 01 99 22 11 1D C4 49 53 50 4C 41 59 3A 20 D0 |..."...ISPLAY: .|
00000CE0: 52 49 4E 54 53 20 4F 55 54 20 54 48 45 20 56 45 |RINTS OUT THE VE|
00000CF0: 43 54 4F 52 53 20 C1 2D C6 22 00 16 15 B0 01 99 |CTORS .-."......|
00000D00: 22 11 1D 49 4E 20 43 4F 4D 50 4F 4E 45 4E 54 20 |"..IN COMPONENT |
00000D10: 46 4F 52 4D 2E 22 00 46 15 B1 01 99 22 11 11 1D |FORM.".F...."...|
00000D20: C5 4E 54 52 59 3A 20 D9 4F 55 20 57 49 4C 4C 20 |.NTRY: .OU WILL |
00000D30: 42 45 20 41 53 4B 45 44 20 54 4F 20 53 45 4C 45 |BE ASKED TO SELE|
00000D40: 43 54 20 41 20 22 00 74 15 B2 01 99 22 11 1D 4C |CT A ".t...."..L|
00000D50: 45 54 54 45 52 20 4E 41 4D 45 20 46 4F 52 20 54 |ETTER NAME FOR T|
00000D60: 48 45 20 56 45 43 54 4F 52 20 41 4E 44 20 54 48 |HE VECTOR AND TH|
00000D70: 45 4E 20 22 00 A4 15 B3 01 99 22 11 1D 45 4E 54 |EN "......"..ENT|
00000D80: 45 52 20 49 54 20 49 4E 20 43 4F 4D 50 4F 4E 45 |ER IT IN COMPONE|
00000D90: 4E 54 20 46 4F 52 4D 20 4F 4E 45 20 45 4C 45 4D |NT FORM ONE ELEM|
00000DA0: 45 4E 54 22 00 BC 15 B4 01 99 22 11 1D 41 46 54 |ENT"......"..AFT|
00000DB0: 45 52 20 41 4E 4F 54 48 45 52 2E 22 00 EC 15 B5 |ER ANOTHER."....|
00000DC0: 01 99 22 11 11 1D CC 45 4E 47 54 48 3A 20 C5 4E |.."....ENGTH: .N|
00000DD0: 54 45 52 20 54 48 45 20 4C 45 54 54 45 52 20 4E |TER THE LETTER N|
00000DE0: 41 4D 45 20 4F 46 20 54 48 45 20 22 00 1B 16 B6 |AME OF THE "....|
00000DF0: 01 99 22 11 1D 56 45 43 54 4F 52 2E 20 20 D4 48 |.."..VECTOR. .H|
00000E00: 45 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 |E COMPUTER WILL |
00000E10: 50 52 49 4E 54 20 54 48 45 20 22 00 56 16 B7 01 |PRINT THE ".V...|
00000E20: 99 22 11 1D 56 45 43 54 4F 52 20 49 4E 20 43 4F |."..VECTOR IN CO|
00000E30: 4D 50 4F 4E 45 4E 54 20 46 4F 52 4D 20 41 4E 44 |MPONENT FORM AND|
00000E40: 20 49 54 53 20 4C 45 4E 47 54 48 22 3A 8D 38 33 | ITS LENGTH":.83|
00000E50: 35 3A 8D 38 35 30 00 86 16 B8 01 99 22 11 1D C4 |5:.850......"...|
00000E60: 4F 54 20 D0 52 4F 44 55 43 54 3A 20 C5 4E 54 45 |OT .RODUCT: .NTE|
00000E70: 52 20 54 48 45 20 4C 45 54 54 45 52 20 4E 41 4D |R THE LETTER NAM|
00000E80: 45 53 20 4F 46 22 00 B5 16 B9 01 99 22 11 1D 54 |ES OF"......"..T|
00000E90: 57 4F 20 56 45 43 54 4F 52 53 2E 20 20 D4 48 45 |WO VECTORS. .HE|
00000EA0: 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 50 | COMPUTER WILL P|
00000EB0: 52 49 4E 54 22 00 DF 16 BA 01 99 22 11 1D 54 48 |RINT"......"..TH|
00000EC0: 45 20 56 45 43 54 4F 52 53 20 49 4E 20 43 4F 4D |E VECTORS IN COM|
00000ED0: 50 4F 4E 45 4E 54 20 46 4F 52 4D 20 41 4E 44 00 |PONENT FORM AND.|
00000EE0: FB 16 BB 01 99 22 11 1D 54 48 45 49 52 20 44 4F |....."..THEIR DO|
00000EF0: 54 20 50 52 4F 44 55 43 54 2E 22 00 2B 17 BC 01 |T PRODUCT.".+...|
00000F00: 99 22 11 11 1D C1 4E 47 4C 45 3A 20 C5 4E 54 45 |."....NGLE: .NTE|
00000F10: 52 20 54 48 45 20 4C 45 54 54 45 52 20 4E 41 4D |R THE LETTER NAM|
00000F20: 45 53 20 4F 46 20 54 57 4F 20 22 00 5A 17 BD 01 |ES OF TWO ".Z...|
00000F30: 99 22 11 1D 56 45 43 54 4F 52 53 2E 20 20 D4 48 |."..VECTORS. .H|
00000F40: 45 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 |E COMPUTER WILL |
00000F50: 50 52 49 4E 54 20 54 48 45 22 00 86 17 BE 01 99 |PRINT THE"......|
00000F60: 22 11 1D 56 45 43 54 4F 52 53 20 49 4E 20 43 4F |"..VECTORS IN CO|
00000F70: 4D 50 4F 4E 45 4E 54 20 46 4F 52 4D 20 41 4E 44 |MPONENT FORM AND|
00000F80: 20 54 48 45 20 22 00 AF 17 BF 01 99 22 11 1D 4D | THE "......"..M|
00000F90: 45 41 53 55 52 45 20 4F 46 20 54 48 45 20 41 4E |EASURE OF THE AN|
00000FA0: 47 4C 45 20 42 45 54 57 45 45 4E 20 54 48 45 00 |GLE BETWEEN THE.|
00000FB0: CA 17 C0 01 99 22 11 1D 56 45 43 54 4F 52 53 22 |....."..VECTORS"|
00000FC0: 3A 8D 38 33 35 3A 8D 38 35 30 00 F7 17 C1 01 99 |:.835:.850......|
00000FD0: 22 11 1D C3 48 41 4E 47 45 3A 20 D5 53 45 44 20 |"...HANGE: .SED |
00000FE0: 46 4F 52 20 43 48 41 4E 47 49 4E 47 20 54 48 45 |FOR CHANGING THE|
00000FF0: 20 56 41 4C 55 45 22 00 1E 18 C2 01 99 22 11 1D | VALUE"......"..|
00001000: 4F 46 20 4F 4E 45 20 43 4F 4D 50 4F 4E 45 4E 54 |OF ONE COMPONENT|
00001010: 20 4F 46 20 41 20 56 45 43 54 4F 52 2E 22 00 4E | OF A VECTOR.".N|
00001020: 18 C3 01 99 22 11 1D 1D 1D CE 4F 54 45 3A 20 D9 |....".....OTE: .|
00001030: 4F 55 20 57 49 4C 4C 20 42 45 20 41 53 4B 45 44 |OU WILL BE ASKED|
00001040: 20 54 4F 20 45 4E 54 45 52 20 54 48 45 22 00 7D | TO ENTER THE".}|
00001050: 18 C4 01 99 22 11 1D 1D 1D 44 49 4D 45 4E 53 49 |...."....DIMENSI|
00001060: 4F 4E 20 4F 46 20 54 48 45 20 56 45 43 54 4F 52 |ON OF THE VECTOR|
00001070: 53 20 59 4F 55 20 57 49 4C 4C 20 42 45 00 AB 18 |S YOU WILL BE...|
00001080: C5 01 99 22 11 1D 1D 1D 57 4F 52 4B 49 4E 47 20 |..."....WORKING |
00001090: 57 49 54 48 2E 20 20 C5 4E 54 45 52 20 54 48 45 |WITH. .NTER THE|
000010A0: 20 44 49 4D 45 4E 53 49 4F 4E 22 00 D7 18 C6 01 | DIMENSION".....|
000010B0: 99 22 11 1D 1D 1D 4F 46 20 54 48 45 20 4C 41 52 |."....OF THE LAR|
000010C0: 47 45 53 54 20 4F 46 20 54 48 45 53 45 20 56 45 |GEST OF THESE VE|
000010D0: 43 54 4F 52 53 2E 22 00 05 19 C7 01 99 22 11 1D |CTORS."......"..|
000010E0: C6 4F 52 20 45 58 41 4D 50 4C 45 20 49 46 20 59 |.OR EXAMPLE IF Y|
000010F0: 4F 55 20 57 45 52 45 20 57 4F 52 4B 49 4E 47 20 |OU WERE WORKING |
00001100: 57 49 54 48 22 00 35 19 C8 01 99 22 11 1D 28 32 |WITH".5...."..(2|
00001110: 2C 32 29 20 41 4E 44 20 28 33 2C 31 2C 34 29 20 |,2) AND (3,1,4) |
00001120: 59 4F 55 20 57 4F 55 4C 44 20 45 4E 54 45 52 20 |YOU WOULD ENTER |
00001130: 54 48 41 54 22 00 63 19 C9 01 99 22 11 1D 59 4F |THAT".c...."..YO|
00001140: 55 20 57 49 4C 4C 20 42 45 20 57 4F 52 4B 49 4E |U WILL BE WORKIN|
00001150: 47 20 49 4E 20 33 20 44 49 4D 45 4E 53 49 4F 4E |G IN 3 DIMENSION|
00001160: 53 2E 22 00 92 19 CB 01 99 22 11 1D D9 4F 55 20 |S."......"...OU |
00001170: 57 4F 55 4C 44 20 54 48 45 4E 20 45 4E 54 45 52 |WOULD THEN ENTER|
00001180: 20 28 32 2C 32 29 20 41 53 20 28 32 2C 32 2C 30 | (2,2) AS (2,2,0|
00001190: 29 22 00 A0 19 D1 01 8D 38 33 35 3A 8D 38 35 30 |)"......835:.850|
000011A0: 00 C8 19 D3 01 99 22 11 1D CE 4F 54 45 3A 20 C3 |......"...OTE: .|
000011B0: 52 4F 53 53 20 50 52 4F 44 55 43 54 53 20 43 41 |ROSS PRODUCTS CA|
000011C0: 4E 4E 4F 54 20 42 45 22 00 F2 19 D5 01 99 22 11 |NNOT BE"......".|
000011D0: 1D 43 41 4C 43 55 4C 41 54 45 44 20 46 4F 52 20 |.CALCULATED FOR |
000011E0: 56 45 43 54 4F 52 53 20 57 49 54 48 20 46 45 57 |VECTORS WITH FEW|
000011F0: 45 52 00 17 1A D7 01 99 22 11 1D 54 48 41 4E 20 |ER......"..THAN |
00001200: 54 48 52 45 45 20 4F 52 20 4D 4F 52 45 20 54 48 |THREE OR MORE TH|
00001210: 41 4E 20 46 49 56 45 00 2C 1A D8 01 99 22 11 1D |AN FIVE.,...."..|
00001220: 44 49 4D 45 4E 53 49 4F 4E 53 2E 22 00 58 1A D9 |DIMENSIONS.".X..|
00001230: 01 99 22 11 11 1D CE 4F 54 45 3A 20 D2 45 53 45 |.."....OTE: .ESE|
00001240: 54 20 43 4C 45 41 52 53 20 54 48 45 20 52 45 47 |T CLEARS THE REG|
00001250: 49 53 54 45 52 20 4F 46 00 6E 1A DB 01 99 22 11 |ISTER OF.n....".|
00001260: 1D 41 4C 4C 20 56 45 43 54 4F 52 53 2E 22 00 9A |.ALL VECTORS."..|
00001270: 1A DD 01 99 22 11 11 1D C9 46 20 41 54 20 41 4E |...."....F AT AN|
00001280: 59 20 54 49 4D 45 20 59 4F 55 20 57 49 53 48 20 |Y TIME YOU WISH |
00001290: 54 4F 20 52 45 54 55 52 4E 22 00 C4 1A DF 01 99 |TO RETURN"......|
000012A0: 22 11 1D 54 4F 20 54 48 45 20 4D 45 4E 55 20 45 |"..TO THE MENU E|
000012B0: 4E 54 45 52 20 27 48 27 20 41 4E 44 20 50 52 45 |NTER 'H' AND PRE|
000012C0: 53 53 20 22 00 DF 1A E0 01 99 22 11 1D 54 48 45 |SS "......"..THE|
000012D0: 20 3C D2 C5 D4 D5 D2 CE 3E 20 4B 45 59 2E 22 00 | <......> KEY.".|
000012E0: FE 1A E5 01 8D 38 33 35 3A 55 54 24 B2 22 20 56 |.....835:UT$." V|
000012F0: 45 43 54 4F 52 20 41 4C 47 45 42 52 41 22 00 12 |ECTOR ALGEBRA"..|
00001300: 1B EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |....UZ.1..UP%:.2|
00001310: 31 37 00 18 1B F3 01 8E 00 39 1B F4 01 8F 20 2A |17.......9.... *|
00001320: 2A 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 |* TEACHER INSTRU|
00001330: 43 54 49 4F 4E 53 20 2A 2A 00 69 1B F5 01 99 22 |CTIONS **.i...."|
00001340: 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 |.":.UT,UL%:..(50|
00001350: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A |003).0..53281,2:|
00001360: 97 35 33 32 38 30 2C 31 30 00 A0 1B F6 01 55 50 |.53280,10.....UP|
00001370: B2 30 3A 55 54 24 B2 22 20 D6 C5 C3 D4 CF D2 20 |.0:UT$." ...... |
00001380: C1 CC C7 C5 C2 D2 C1 22 3A 55 47 24 B2 22 D4 45 |.......":UG$.".E|
00001390: 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 |ACHER .NST":.850|
000013A0: 00 CE 1B F7 01 99 22 11 11 20 20 20 20 20 20 D4 |......".. .|
000013B0: 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F 55 |O THE BEST OF OU|
000013C0: 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 F7 |R KNOWLEDGE,."..|
000013D0: 1B F8 01 99 22 20 20 20 54 48 49 53 20 50 52 4F |...." THIS PRO|
000013E0: 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 50 |GRAM IS IN THE P|
000013F0: 55 42 4C 49 43 11 22 00 23 1C F9 01 99 22 20 20 |UBLIC.".#...." |
00001400: 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 | DOMAIN. .F THI|
00001410: 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 53 |S IS NOT THE CAS|
00001420: 45 11 22 00 40 1C FA 01 99 22 20 20 20 50 4C 45 |E.".@...." PLE|
00001430: 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 |ASE CONTACT:..."|
00001440: 00 6A 1C FB 01 99 22 20 20 20 20 20 20 C3 4F 4D |.j...." .OM|
00001450: 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 |MODORE .USINESS |
00001460: CD 41 43 48 49 4E 45 53 11 22 00 8D 1C FC 01 99 |.ACHINES."......|
00001470: 22 20 20 20 20 20 20 20 20 20 20 33 33 37 30 20 |" 3370 |
00001480: D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 B1 1C |.HARMACY .VE....|
00001490: FD 01 99 22 20 20 20 20 20 20 20 20 20 20 C1 47 |..." .G|
000014A0: 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F |INCOURT, .NTARIO|
000014B0: 22 00 D3 1C FE 01 99 22 20 20 20 20 20 20 20 20 |"......" |
000014C0: 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 | .ANADA .1. 2|
000014D0: CB 34 22 00 F3 1C FF 01 99 22 20 20 20 20 20 20 |.4"......" |
000014E0: 20 20 20 20 28 34 31 36 29 20 34 39 39 2D 34 32 | (416) 499-42|
000014F0: 39 32 22 00 09 1D 00 02 55 50 B2 31 3A 8D 20 38 |92".....UP.1:. 8|
00001500: 33 35 3A 8D 20 38 35 30 3A 00 34 1D 01 02 99 22 |35:. 850:.4...."|
00001510: 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE | ...ROGRAM .|
00001520: 41 4D 45 3A 20 D6 45 43 54 4F 52 20 C1 4C 47 45 |AME: .ECTOR .LGE|
00001530: 42 52 41 11 00 56 1D 02 02 99 22 20 20 20 20 20 |BRA..V...." |
00001540: D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 D5 4E |.RITTEN .Y : .N|
00001550: 4B 4E 4F 57 4E 11 00 71 1D 03 02 99 22 20 20 20 |KNOWN..q...." |
00001560: 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 | .PGRADED .Y : |
00001570: 11 00 9C 1D 04 02 99 22 20 20 20 20 20 11 D4 48 |......." ..H|
00001580: 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 |IS PROGRAM WILL |
00001590: 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 BC 1D 07 |RUN ON ANY......|
000015A0: 02 99 22 20 20 20 20 20 20 20 20 20 D0 C5 D4 20 |.." ... |
000015B0: 36 34 20 C3 CF CD D0 D5 D4 C5 D2 11 00 E1 1D 08 |64 .............|
000015C0: 02 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD |.." ....|
000015D0: CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 |..... 64 .......|
000015E0: D2 00 00 1E 44 02 8D 38 33 35 3A 55 54 24 B2 22 |....D..835:UT$."|
000015F0: 20 56 45 43 54 4F 52 20 41 4C 47 45 42 52 41 22 | VECTOR ALGEBRA"|
00001600: 00 14 1E 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A |...N..UZ.1..UP%:|
00001610: 89 32 31 37 00 1A 1E 57 02 8E 00 40 1E 58 02 8F |.217...W...@.X..|
00001620: 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 | ** PROGRAM MODI|
00001630: 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A |FICATION INST **|
00001640: 00 51 1E 59 02 99 22 93 22 3A 97 55 54 2C 55 4C |.Q.Y..".":.UT,UL|
00001650: 25 00 71 1E 5D 02 55 50 B2 30 3A 55 47 24 B2 22 |%.q.].UP.0:UG$."|
00001660: D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 |.ROGRAM .OD":.85|
00001670: 30 00 7A 1E 94 02 8D 38 33 35 00 8E 1E B2 02 8B |0.z....835......|
00001680: 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 94 |UZ.1..UP%:.217..|
00001690: 1E BB 02 8E 00 B9 1E BC 02 8F 20 2A 2A 20 54 4F |.......... ** TO|
000016A0: 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 | USE 8032 LOAD C|
000016B0: 42 4D 34 30 33 32 20 2A 2A 00 EF 1E C6 02 99 22 |BM4032 **......"|
000016C0: 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E |.....BEFORE RUNN|
000016D0: 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D |ING THIS PROGRAM|
000016E0: 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 | ON AN 8032 ...|
000016F0: 25 1F D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 |%...." LOAD|
00001700: 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 | THE 'CBM 4032' |
00001710: 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 |PROGRAM.........|
00001720: 11 11 11 11 22 00 30 1F DA 02 9E 55 55 AA 37 31 |....".0....UU.71|
00001730: 00 36 1F E4 02 80 00 5B 1F 1D 03 8F 20 2A 2A 20 |.6.....[.... ** |
00001740: 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 |TO USE 8032 LOAD|
00001750: 20 43 42 4D 34 30 33 32 20 2A 2A 00 A6 1F 1E 03 | CBM4032 **.....|
00001760: 99 22 93 11 11 11 42 45 46 4F 52 45 20 52 55 4E |."....BEFORE RUN|
00001770: 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 |NING THIS PROGRA|
00001780: 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 |M ON AN 8032 ..|
00001790: 4C 4F 41 44 20 43 42 4D 20 34 30 33 32 20 50 52 |LOAD CBM 4032 PR|
000017A0: 4F 47 52 41 4D 22 00 B2 1F 1F 03 9E 31 30 39 33 |OGRAM"......1093|
000017B0: 3A 80 00 D2 1F 20 03 8F 20 2A 2A 20 54 20 49 20 |:.... .. ** T I |
000017C0: 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 20 |T L E P A G E |
000017D0: 2A 2A 00 06 20 22 03 99 22 93 11 1D 05 22 3B 3A |**.. ".."....";:|
000017E0: 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 |.UT,UU%:..(50003|
000017F0: 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 35 |).0..53280,14:.5|
00001800: 33 32 38 31 2C 36 00 1C 20 24 03 81 49 B2 31 A4 |3281,6.. $..I.1.|
00001810: 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 34 20 26 |38:."...";:..4 &|
00001820: 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 |..I.1.22:.".....|
00001830: 22 3B 3A 82 00 4C 20 28 03 81 49 B2 31 A4 33 37 |";:..L (..I.1.37|
00001840: 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 64 20 2A |:.".....";:..d *|
00001850: 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 |..I.1.22:.".....|
00001860: 22 3B 3A 82 00 89 20 2C 03 99 22 13 11 11 11 11 |";:... ,..".....|
00001870: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001880: 1D 1D 1D 1D 12 A9 20 20 92 00 AB 20 2E 03 99 22 |...... ... ..."|
00001890: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000018A0: 1D 1D 12 20 92 20 20 12 20 92 A9 00 CC 20 30 03 |... . . .... 0.|
000018B0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000018C0: 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 EA 20 32 |..... . ..... 2|
000018D0: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000018E0: 1D 1D 1D 1D 1D DF 12 20 20 92 00 12 21 34 03 99 |....... ...!4..|
000018F0: 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 |"..............C|
00001900: 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 | O M M O D O R E|
00001910: 11 11 00 35 21 36 03 99 22 1D 1D 1D 1D 1D 1D 1D |...5!6..".......|
00001920: 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F |........EDUCATIO|
00001930: 4E 41 4C 11 11 00 54 21 38 03 99 22 1D 1D 1D 1D |NAL...T!8.."....|
00001940: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 |............SOFT|
00001950: 57 41 52 45 00 6F 21 3A 03 8F 20 2A 2A 20 43 4F |WARE.o!:.. ** CO|
00001960: 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 |MMODORE LOGO **.|
00001970: A7 21 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |.!;...(UD$,24);"|
00001980: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 |..........PRESS |
00001990: 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 |SPACE BAR OR WAI|
000019A0: 54 92 22 3A 49 B2 30 00 C9 21 3C 03 A1 41 24 3A |T.":I.0..!<..A$:|
000019B0: 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B |.A$.." ".I.I.1:.|
000019C0: 49 B3 32 35 30 A7 38 32 38 00 ED 21 3E 03 54 31 |I.250.828..!>.T1|
000019D0: 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 |$."":T2$."":T3$.|
000019E0: 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 F6 21 |"":T4$."":I.0..!|
000019F0: 40 03 89 33 30 30 00 12 22 43 03 8F 20 2A 2A 20 |@..300.."C.. ** |
00001A00: 53 50 41 43 45 20 42 41 52 20 50 52 45 53 53 20 |SPACE BAR PRESS |
00001A10: 2A 2A 00 4D 22 48 03 99 C8 28 55 44 24 2C 32 34 |**.M"H...(UD$,24|
00001A20: 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 |);".......PRESS |
00001A30: 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E |SPACE BAR TO CON|
00001A40: 54 49 4E 55 45 92 22 3A 97 55 4F 2C 30 00 64 22 |TINUE.":.UO,0.d"|
00001A50: 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 |L..UI$:.UI$.." "|
00001A60: A7 38 34 34 00 6A 22 4E 03 8E 00 8A 22 52 03 8F |.844.j"N...."R..|
00001A70: 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 | ** PAGE DESIGN |
00001A80: 52 4F 55 54 49 4E 45 20 2A 2A 00 96 22 54 03 55 |ROUTINE **.."T.U|
00001A90: 50 B2 55 50 AA 31 00 C0 22 57 03 99 22 93 22 C8 |P.UP.1.."W..".".|
00001AA0: 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 |(UT$.UP$,21);.(U|
00001AB0: 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 |P$.UG$..(UP),18)|
00001AC0: 00 EF 22 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |.."\.." --------|
00001AD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001AE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00001AF0: 01 23 5E 03 8B 46 4B A7 46 4B B2 30 3A 89 38 37 |.#^..FK.FK.0:.87|
00001B00: 30 00 10 23 60 03 8B 55 48 B3 B1 30 A7 38 37 30 |0..#`..UH..0.870|
00001B10: 00 44 23 61 03 99 C8 28 55 44 24 2C 32 34 29 3B |.D#a...(UD$,24);|
00001B20: C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D |.(UP$,7);"HELP -|
00001B30: 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 | PRESS H <RETU|
00001B40: 52 4E 3E 22 00 55 23 66 03 55 48 B2 30 3A 99 22 |RN>".U#f.UH.0:."|
00001B50: 13 11 22 3A 8E 00 74 23 6B 03 8F 20 2A 2A 20 50 |..":..t#k.. ** P|
00001B60: 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 |LEASE WAIT REMAR|
00001B70: 4B 20 2A 2A 00 AA 23 70 03 99 C8 28 55 44 24 2C |K **..#p...(UD$,|
00001B80: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00001B90: 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 |ONE MOMENT PLEAS|
00001BA0: 45 2E 2E 2E 20 20 20 20 20 22 00 B0 23 75 03 8E |E... "..#u..|
00001BB0: 00 CD 23 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 |..#... ** SET UP|
00001BC0: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 18 24 | VARIABLES **..$|
00001BD0: 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 |..UX$."H":.UQ%(1|
00001BE0: 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 |000):UB.32768:U1|
00001BF0: B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 |.196:U2.197:U3.1|
00001C00: 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 |98:U4.216:UC.167|
00001C10: 3A 55 55 B2 31 30 32 34 00 56 24 86 03 55 54 B2 |:UU.1024.V$..UT.|
00001C20: 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 |59468:UU%.12:UL%|
00001C30: B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 |.14:UP%.1146:UM.|
00001C40: 33 32 37 36 38 3A 97 20 35 30 30 30 33 2C 30 3A |32768:. 50003,0:|
00001C50: 55 4F B2 31 35 38 00 99 24 87 03 8B C2 28 35 30 |UO.158..$....(50|
00001C60: 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 |003).0.UB.1024:U|
00001C70: 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 |1.209:U2.210:U3.|
00001C80: 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 |211:U4.214:UC.20|
00001C90: 34 3A 55 55 B2 32 30 34 38 00 D8 24 88 03 8B C2 |4:UU.2048..$....|
00001CA0: 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 |(50003).0.UT.532|
00001CB0: 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 |72:UU%.21:UL%.23|
00001CC0: 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 |:UP%.2139:UM.102|
00001CD0: 34 3A 55 4F B2 31 39 38 00 FC 24 89 03 55 44 24 |4:UO.198..$..UD$|
00001CE0: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001CF0: 11 11 11 11 11 11 11 11 11 11 11 22 00 2E 25 8A |..........."..%.|
00001D00: 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.UP$." |
00001D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 7B | ".{|
00001D30: 25 8B 03 55 54 24 B2 22 20 56 45 43 54 4F 52 20 |%..UT$." VECTOR |
00001D40: 41 4C 47 45 42 52 41 A0 A0 A0 A0 22 3A 8F 50 4C |ALGEBRA....":.PL|
00001D50: 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C |ACE PROGRAM TITL|
00001D60: 45 20 48 45 52 45 20 21 21 21 21 21 21 21 21 21 |E HERE !!!!!!!!!|
00001D70: 21 21 21 21 21 21 21 21 2A 2A 2A 00 9E 25 8C 03 |!!!!!!!!***..%..|
00001D80: 47 B2 32 35 3A 86 41 28 36 29 2C 42 28 47 29 2C |G.25:.A(6),B(G),|
00001D90: 4D 4D 28 47 2C 47 29 2C 57 28 47 2C 47 29 00 A4 |MM(G,G),W(G,G)..|
00001DA0: 25 8D 03 8E 00 BE 25 8E 03 8F 20 2A 2A 20 53 45 |%.....%... ** SE|
00001DB0: 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 C7 |T VARIABLES **..|
00001DC0: 25 93 03 8D 39 30 30 00 CD 25 95 03 3A 00 E8 25 |%...900..%..:..%|
00001DD0: 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 |... ** CHECK FOR|
00001DE0: 20 38 30 33 32 20 2A 2A 00 06 26 9D 03 99 22 93 | 8032 **..&...".|
00001DF0: 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 |":.".":. SHIFTED|
00001E00: 20 53 50 41 43 45 00 1D 26 A2 03 8B C2 28 55 42 | SPACE..&....(UB|
00001E10: AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 36 26 |.40)..96..700.6&|
00001E20: A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 |... ** MEMORY CH|
00001E30: 45 43 4B 20 2A 2A 00 4A 26 A4 03 8B 20 B8 28 30 |ECK **.J&... .(0|
00001E40: 29 B1 35 30 30 20 A7 39 33 37 00 78 26 A5 03 99 |).500 .937.x&...|
00001E50: 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E |"....THIS MACHIN|
00001E60: 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 |E DOES NOT HAVE |
00001E70: 45 4E 4F 55 47 48 11 22 00 9C 26 A6 03 99 22 4D |ENOUGH."..&..."M|
00001E80: 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 |EMORY TO RUN THI|
00001E90: 53 20 50 52 4F 47 52 41 4D 20 21 22 00 A7 26 A7 |S PROGRAM !"..&.|
00001EA0: 03 9E 55 55 AA 37 31 00 AD 26 A8 03 80 00 C7 26 |..UU.71..&.....&|
00001EB0: A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 |..."..":..(50003|
00001EC0: 29 B2 30 A7 39 36 32 00 F6 26 AC 03 8F 20 2A 2A |).0.962..&... **|
00001ED0: 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 | BASIC 2.0 OR |
00001EE0: 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 |4.0 OR C-64 SE|
00001EF0: 54 55 50 20 2A 2A 00 34 27 AD 03 97 31 30 37 35 |TUP **.4'...1075|
00001F00: 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 |,133:.1076,144:.|
00001F10: 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 |1077,234:.1079,4|
00001F20: 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 |:.1080,133:.1081|
00001F30: 2C 31 34 35 00 6A 27 AE 03 97 31 30 39 31 2C 31 |,145.j'...1091,1|
00001F40: 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 |55:.1098,133:.10|
00001F50: 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 |99,144:.1100,234|
00001F60: 3A 97 31 31 30 33 2C 31 33 33 00 8C 27 AF 03 97 |:.1103,133..'...|
00001F70: 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 |1104,145:.1105,2|
00001F80: 33 34 3A 97 31 30 38 32 2C 32 33 34 00 A3 27 B1 |34:.1082,234..'.|
00001F90: 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 |...(50003)..160.|
00001FA0: 39 35 35 00 D2 27 B6 03 97 31 30 39 33 2C 38 38 |955..'...1093,88|
00001FB0: 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 |:.1094,228:.1097|
00001FC0: 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 |,85:.1102,228:.9|
00001FD0: 36 35 00 E7 27 BB 03 8B C2 28 35 30 30 30 33 29 |65..'....(50003)|
00001FE0: B3 B1 31 A7 39 39 30 00 16 28 C0 03 97 31 30 39 |..1.990..(...109|
00001FF0: 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 |3,49:.1094,230:.|
00002000: 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 |1097,46:.1102,23|
00002010: 30 3A 89 39 36 35 00 50 28 C2 03 97 32 30 39 39 |0:.965.P(...2099|
00002020: 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 |,141:.2100,20:.2|
00002030: 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 |101,3:.2103,8:.2|
00002040: 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 |104,141:.2105,21|
00002050: 00 8C 28 C3 03 97 32 31 30 36 2C 33 3A 97 32 31 |..(...2106,3:.21|
00002060: 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A |15,145:.2117,52:|
00002070: 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C |.2118,234:.2121,|
00002080: 34 39 3A 97 32 31 32 32 2C 31 34 31 00 C6 28 C4 |49:.2122,141..(.|
00002090: 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C |..2123,20:.2124,|
000020A0: 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 |3:.2126,234:.212|
000020B0: 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 |7,141:.2128,21:.|
000020C0: 32 31 32 39 2C 33 00 E4 28 C5 03 9E 55 55 AA 34 |2129,3..(...UU.4|
000020D0: 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 |8:. DISABLE STOP|
000020E0: 20 4B 45 59 00 F5 28 CA 03 8D 38 30 30 3A 8F 20 | KEY..(...800:. |
000020F0: 54 49 54 4C 45 00 05 29 D4 03 89 33 30 30 3A 8F |TITLE..)...300:.|
00002100: 20 4D 45 4E 55 00 36 29 DE 03 99 22 93 54 48 45 | MENU.6)...".THE|
00002110: 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F | PGM WILL NOT WO|
00002120: 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 |RK ON THIS MACHI|
00002130: 4E 45 21 22 3A 80 00 6B 29 E8 03 8B 55 5A B2 31 |NE!":..k)...UZ.1|
00002140: A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A |..UP%:.UP%:UZ.0:|
00002150: 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 |. ** PROGRAM STA|
00002160: 52 54 53 20 48 45 52 45 20 2A 2A 00 97 29 E9 03 |RTS HERE **..)..|
00002170: 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 |."..";:.:..(5000|
00002180: 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 |3).0..53281,6:.5|
00002190: 33 32 38 30 2C 31 34 00 BD 29 F2 03 55 47 24 B2 |3280,14..)..UG$.|
000021A0: 22 49 4E 54 52 4F 44 55 43 54 49 4F 4E 22 3A 55 |"INTRODUCTION":U|
000021B0: 50 B2 30 3A 46 4B B2 31 3A 8D 38 35 30 00 DE 29 |P.0:FK.1:.850..)|
000021C0: FC 03 99 22 11 11 11 11 22 A6 31 32 29 22 12 56 |..."....".12)".V|
000021D0: 45 43 54 4F 52 20 41 4C 47 45 42 52 41 22 00 00 |ECTOR ALGEBRA"..|
000021E0: 2A 06 04 99 22 11 20 20 20 20 20 20 20 20 20 20 |*...". |
000021F0: 20 20 43 4F 50 59 52 49 47 48 54 20 31 39 37 38 | COPYRIGHT 1978|
00002200: 00 2D 2A 10 04 99 22 11 1D 1D 1D 1D 43 4F 4D 4D |.-*...".....COMM|
00002210: 4F 44 4F 52 45 20 42 55 53 49 4E 45 53 53 20 4D |ODORE BUSINESS M|
00002220: 41 43 48 49 4E 45 53 2C 49 4E 43 2E 22 00 56 2A |ACHINES,INC.".V*|
00002230: 19 04 47 B2 BA 28 28 B8 28 4F 29 AB 34 35 30 29 |..G..((.(O).450)|
00002240: AD 31 30 29 AB 31 3A 46 46 B2 30 3A 8B 47 B1 31 |.10).1:FF.0:.G.1|
00002250: 32 A7 47 B2 31 32 00 67 2A 1A 04 81 49 B2 31 A4 |2.G.12.g*...I.1.|
00002260: 33 30 30 30 3A 82 3A 00 75 2A 1B 04 55 50 B2 31 |3000:.:.u*..UP.1|
00002270: 3A 8D 38 35 30 00 87 2A 1F 04 99 20 22 11 11 11 |:.850..*... "...|
00002280: 1D 4E 4F 54 45 3A 22 00 99 2A 20 04 99 22 1D A3 |.NOTE:"..* .."..|
00002290: A3 A3 A3 A3 11 11 11 11 22 00 C7 2A 25 04 99 22 |........"..*%.."|
000022A0: 11 1D 54 48 45 20 56 45 43 54 4F 52 53 20 4D 41 |..THE VECTORS MA|
000022B0: 59 20 4E 4F 54 20 48 41 56 45 20 41 20 44 49 4D |Y NOT HAVE A DIM|
000022C0: 45 4E 53 49 4F 4E 22 00 E3 2A 26 04 99 22 11 1D |ENSION"..*&.."..|
000022D0: 47 52 45 41 54 45 52 20 54 48 41 4E 20 22 3B B5 |GREATER THAN ";.|
000022E0: 28 47 29 00 EC 2A 2E 04 8D 38 33 35 00 FA 2A 42 |(G)..*...835..*B|
000022F0: 04 55 50 B2 31 3A 8D 38 35 30 00 40 2B 4C 04 99 |.UP.1:.850.@+L..|
00002300: 22 11 1D 44 49 4D 45 4E 53 49 4F 4E 20 4F 46 20 |"..DIMENSION OF |
00002310: 56 45 43 54 4F 52 53 3F 20 22 3B 3A 55 4C B2 32 |VECTORS? ";:UL.2|
00002320: 3A 55 53 24 B2 22 30 31 32 33 34 35 36 37 38 39 |:US$."0123456789|
00002330: 48 22 3A 8D 33 35 3A 4E 25 B2 C5 28 55 52 24 29 |H":.35:N%..(UR$)|
00002340: 00 78 2B 56 04 8B 20 4E 25 B1 47 20 B0 20 4E 25 |.x+V.. N%.G . N%|
00002350: B1 31 32 A7 99 22 1D 12 11 44 49 4D 45 4E 53 49 |.12.."...DIMENSI|
00002360: 4F 4E 20 54 4F 4F 20 4C 41 52 47 45 22 3A 8D 38 |ON TOO LARGE":.8|
00002370: 33 35 3A 89 31 30 39 30 00 88 2B 60 04 8B 4E 25 |35:.1090..+`..N%|
00002380: B3 B2 35 A7 31 31 39 30 00 B7 2B 6A 04 99 22 11 |..5.1190..+j..".|
00002390: 1D 54 48 49 53 1D 44 49 4D 45 4E 53 49 4F 4E 20 |.THIS.DIMENSION |
000023A0: 49 53 20 54 4F 4F 20 4C 41 52 47 45 20 46 4F 52 |IS TOO LARGE FOR|
000023B0: 20 43 52 4F 53 53 22 00 E5 2B 74 04 99 22 11 1D | CROSS"..+t.."..|
000023C0: 50 52 4F 44 55 43 54 53 2E 20 57 4F 55 4C 44 20 |PRODUCTS. WOULD |
000023D0: 59 4F 55 20 4C 49 4B 45 20 54 4F 20 43 4F 4E 54 |YOU LIKE TO CONT|
000023E0: 49 4E 55 45 22 00 FD 2B 75 04 99 22 11 1D 41 4E |INUE"..+u.."..AN|
000023F0: 59 57 41 59 3F 28 59 2F 4E 29 20 22 3B 00 36 2C |YWAY?(Y/N) ";.6,|
00002400: 7E 04 55 4C B2 31 3A 55 53 24 B2 22 48 59 4E 22 |~.UL.1:US$."HYN"|
00002410: 3A 8D 33 35 3A 8B 55 52 24 B2 22 59 22 A7 31 31 |:.35:.UR$."Y".11|
00002420: 39 30 3A 8B 41 24 B2 22 59 22 A7 31 31 39 30 3A |90:.A$."Y".1190:|
00002430: 8D 31 30 30 30 30 00 40 2C 92 04 89 31 30 39 30 |.10000.@,...1090|
00002440: 00 50 2C A6 04 54 4B B2 28 41 24 B2 22 4E 22 29 |.P,..TK.(A$."N")|
00002450: 00 74 2C B0 04 55 48 B2 31 3A 55 47 24 B2 22 4F |.t,..UH.1:UG$."O|
00002460: 50 45 52 41 54 49 4F 4E 53 22 3A 55 50 B2 30 3A |PERATIONS":UP.0:|
00002470: 8D 38 35 30 00 AB 2C BA 04 99 22 11 1D 12 2B 92 |.850..,..."...+.|
00002480: 3A 41 44 44 20 20 20 12 4D 92 3A 52 45 4E 41 4D |:ADD .M.:RENAM|
00002490: 45 20 20 20 12 59 92 3A 44 49 53 50 4C 41 59 20 |E .Y.:DISPLAY |
000024A0: 12 43 92 3A 43 48 41 4E 47 45 22 00 E2 2C C4 04 |.C.:CHANGE"..,..|
000024B0: 99 22 11 1D 12 45 92 3A 45 4E 54 52 59 20 12 2D |."...E.:ENTRY .-|
000024C0: 92 3A 53 55 42 54 52 2E 20 20 20 12 4C 92 3A 4C |.:SUBTR. .L.:L|
000024D0: 45 4E 47 54 48 20 20 12 56 92 3A 43 52 4F 53 53 |ENGTH .V.:CROSS|
000024E0: 20 50 00 17 2D CE 04 99 22 11 1D 12 52 92 3A 52 | P..-..."...R.:R|
000024F0: 45 53 45 54 20 12 44 92 3A 44 4F 54 20 50 2E 20 |ESET .D.:DOT P. |
00002500: 20 20 12 41 92 3A 41 4E 47 4C 45 20 20 20 12 51 | .A.:ANGLE .Q|
00002510: 92 3A 51 55 49 54 22 00 60 2D 0A 05 99 22 11 1D |.:QUIT".`-..."..|
00002520: 45 4E 54 45 52 20 41 4E 20 4F 50 45 52 41 54 49 |ENTER AN OPERATI|
00002530: 4F 4E 20 54 4F 20 42 45 20 50 45 52 46 4F 52 4D |ON TO BE PERFORM|
00002540: 45 44 3A 20 22 3B 3A 55 4C B2 31 3A 55 53 24 B2 |ED: ";:UL.1:US$.|
00002550: 22 2B 2D 59 4D 4C 44 43 45 56 52 44 41 4E 51 22 |"+-YMLDCEVRDANQ"|
00002560: 00 6F 2D 0B 05 8D 33 35 3A 41 24 B2 55 52 24 00 |.o-...35:A$.UR$.|
00002570: 81 2D 0F 05 58 24 B2 22 20 22 3A 59 24 B2 22 20 |.-..X$." ":Y$." |
00002580: 22 00 91 2D 1E 05 58 41 B2 AB 31 3A 59 41 B2 AB |"..-..XA..1:YA..|
00002590: 31 00 A9 2D 1F 05 8B 41 24 B2 22 52 22 A7 9C 3A |1..-...A$."R"..:|
000025A0: 8D 39 30 30 3A 89 39 38 30 00 E4 2D 28 05 8B 41 |.900:.980..-(..A|
000025B0: 24 B2 22 45 22 A7 55 47 24 B2 22 45 4E 54 45 52 |$."E".UG$."ENTER|
000025C0: 20 56 45 43 54 4F 52 53 22 3A 55 50 B2 30 3A 55 | VECTORS":UP.0:U|
000025D0: 48 B2 31 3A 8D 38 35 30 3A 8D 31 34 34 30 3A 89 |H.1:.850:.1440:.|
000025E0: 31 32 30 30 00 1B 2E 32 05 8B 41 24 B2 22 43 22 |1200...2..A$."C"|
000025F0: A7 55 50 B2 30 3A 55 47 24 B2 22 43 48 41 4E 47 |.UP.0:UG$."CHANG|
00002600: 45 20 45 4C 45 4D 45 4E 54 22 3A 8D 38 35 30 3A |E ELEMENT":.850:|
00002610: 8D 31 34 39 30 3A 89 31 32 30 30 00 51 2E 3C 05 |.1490:.1200.Q.<.|
00002620: 8B 41 24 B2 22 59 22 A7 55 47 24 B2 22 44 49 53 |.A$."Y".UG$."DIS|
00002630: 50 4C 41 59 22 3A 55 50 B2 30 3A 8D 38 35 30 3A |PLAY":UP.0:.850:|
00002640: 8D 32 30 30 30 30 3A 8D 38 33 35 3A 89 31 32 30 |.20000:.835:.120|
00002650: 30 00 8C 2E 50 05 8B 41 24 B2 22 41 22 A7 55 47 |0...P..A$."A".UG|
00002660: 24 B2 22 41 4E 47 4C 45 20 42 45 54 57 45 45 4E |$."ANGLE BETWEEN|
00002670: 22 3A 55 50 B2 30 3A 8D 38 35 30 3A 8D 31 38 33 |":UP.0:.850:.183|
00002680: 30 3A 8D 38 33 35 3A 89 31 32 30 30 00 C0 2E 5A |0:.835:.1200...Z|
00002690: 05 8B 41 24 B2 22 4C 22 A7 55 47 24 B2 22 46 49 |..A$."L".UG$."FI|
000026A0: 4E 44 20 4C 45 4E 47 54 48 22 3A 55 50 B2 30 3A |ND LENGTH":UP.0:|
000026B0: 8D 38 35 30 3A 8D 32 32 36 30 3A 89 31 32 30 30 |.850:.2260:.1200|
000026C0: 00 F9 2E 5B 05 8B 41 24 B2 22 44 22 A7 55 47 24 |...[..A$."D".UG$|
000026D0: B2 22 44 4F 54 20 50 52 4F 44 55 43 54 22 3A 55 |."DOT PRODUCT":U|
000026E0: 50 B2 30 3A 8D 38 35 30 3A 8D 32 32 36 30 3A 8D |P.0:.850:.2260:.|
000026F0: 38 33 35 3A 89 31 32 30 30 00 39 2F 64 05 8B 41 |835:.1200.9/d..A|
00002700: 24 B2 22 56 22 A7 55 47 24 B2 22 43 52 4F 53 53 |$."V".UG$."CROSS|
00002710: 20 50 52 4F 44 55 43 54 22 3A 55 50 B2 30 3A 55 | PRODUCT":UP.0:U|
00002720: 48 B2 31 3A 8D 38 35 30 3A 8D 32 34 31 30 3A 8D |H.1:.850:.2410:.|
00002730: 38 33 35 3A 89 31 32 30 30 00 72 2F 6E 05 8B 41 |835:.1200.r/n..A|
00002740: 24 B2 22 2D 22 A7 55 47 24 B2 22 53 55 42 54 52 |$."-".UG$."SUBTR|
00002750: 41 43 54 49 4F 4E 22 3A 55 50 B2 30 3A 8D 38 35 |ACTION":UP.0:.85|
00002760: 30 3A 8D 32 35 39 30 3A 8D 38 33 35 3A 89 31 32 |0:.2590:.835:.12|
00002770: 30 30 00 A8 2F 6F 05 8B 41 24 B2 22 2B 22 A7 55 |00../o..A$."+".U|
00002780: 47 24 B2 22 41 44 44 49 54 49 4F 4E 22 3A 55 50 |G$."ADDITION":UP|
00002790: B2 30 3A 8D 38 35 30 3A 8D 32 35 39 30 3A 8D 38 |.0:.850:.2590:.8|
000027A0: 33 35 3A 89 31 32 30 30 00 E3 2F 78 05 8B 41 24 |35:.1200../x..A$|
000027B0: B2 22 4D 22 A7 55 47 24 B2 22 52 45 4E 41 4D 45 |."M".UG$."RENAME|
000027C0: 20 56 45 43 54 4F 52 22 3A 55 50 B2 30 3A 8D 38 | VECTOR":UP.0:.8|
000027D0: 35 30 3A 8D 32 30 34 30 3A 8D 38 33 35 3A 89 31 |50:.2040:.835:.1|
000027E0: 32 30 30 00 F1 2F 8C 05 8B 41 24 B2 22 51 22 A7 |200../...A$."Q".|
000027F0: 8E 00 22 30 96 05 99 22 12 57 52 4F 4E 47 20 45 |.."0...".WRONG E|
00002800: 4E 54 52 59 2E 20 45 4E 54 45 52 20 3F 20 46 4F |NTRY. ENTER ? FO|
00002810: 52 20 4C 49 53 54 22 3A 8D 38 33 35 3A 89 31 32 |R LIST":.835:.12|
00002820: 30 30 00 46 30 A0 05 99 22 11 1D 43 48 4F 4F 53 |00.F0..."..CHOOS|
00002830: 45 20 46 52 4F 4D 20 28 41 2C 42 2C 43 2C 44 2C |E FROM (A,B,C,D,|
00002840: 45 2C 46 29 2D 22 00 70 30 A1 05 99 22 11 1D 57 |E,F)-".p0..."..W|
00002850: 48 49 43 48 20 57 4F 55 4C 44 20 59 4F 55 20 4C |HICH WOULD YOU L|
00002860: 49 4B 45 20 54 4F 20 45 4E 54 45 52 3F 20 22 3B |IKE TO ENTER? ";|
00002870: 00 7A 30 AA 05 8D 31 37 38 30 00 88 30 B4 05 8B |.z0...1780..0...|
00002880: A8 54 4B A7 31 34 37 30 00 B2 30 BE 05 99 22 11 |.TK.1470..0...".|
00002890: 1D 56 45 43 54 4F 52 20 22 3B 58 24 3A 99 22 11 |.VECTOR ";X$:.".|
000028A0: 1D 45 4E 54 45 52 20 45 4C 45 4D 45 4E 54 23 3A |.ENTER ELEMENT#:|
000028B0: 11 22 00 CB 30 C0 05 81 49 B2 31 A4 4E 25 3A 8D |."..0...I.1.N%:.|
000028C0: 34 35 30 30 30 3A 99 48 59 24 3B 00 01 31 C5 05 |45000:.HY$;..1..|
000028D0: 8D 35 31 30 30 30 3A 55 53 24 B2 22 48 45 2D 30 |.51000:US$."HE-0|
000028E0: 31 32 33 34 35 36 37 38 39 2B 22 3A 8D 33 35 3A |123456789+":.35:|
000028F0: 4D 4D 28 52 25 2C 49 29 B2 C5 28 55 52 24 29 3A |MM(R%,I)..(UR$):|
00002900: 82 00 0C 31 C6 05 8D 34 38 30 30 30 00 24 31 C7 |...1...48000.$1.|
00002910: 05 8B 55 52 24 B2 22 59 22 A7 8D 38 35 30 3A 89 |..UR$."Y"..850:.|
00002920: 31 34 34 30 00 2A 31 C8 05 8E 00 3F 31 D2 05 8B |1440.*1....?1...|
00002930: 46 4C B2 31 A7 46 4C B2 30 3A 89 31 35 33 30 00 |FL.1.FL.0:.1530.|
00002940: 6F 31 D3 05 59 24 B2 22 46 22 3A 8D 35 30 30 30 |o1..Y$."F":.5000|
00002950: 30 3A 55 4C B2 31 3A 55 53 24 B2 22 48 41 42 43 |0:UL.1:US$."HABC|
00002960: 44 45 46 22 3A 8D 33 35 3A 58 24 B2 55 52 24 00 |DEF":.35:X$.UR$.|
00002970: 85 31 E6 05 8D 32 31 31 30 3A 8B 46 46 B2 31 A7 |.1...2110:.FF.1.|
00002980: 58 41 B2 30 3A 00 9A 31 FA 05 99 22 11 1D 22 3B |XA.0:..1..."..";|
00002990: 58 24 3B 3A 8D 33 30 30 30 30 00 D9 31 0E 06 99 |X$;:.30000..1...|
000029A0: 22 13 11 11 11 11 11 11 11 11 11 11 1D 57 4F 55 |"............WOU|
000029B0: 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F 20 4D |LD YOU LIKE TO M|
000029C0: 41 4B 45 20 41 20 43 48 41 4E 47 45 3F 28 59 2F |AKE A CHANGE?(Y/|
000029D0: 4E 29 20 20 9D 9D 20 22 3B 00 F1 31 18 06 55 4C |N) .. ";..1..UL|
000029E0: B2 31 3A 55 53 24 B2 22 59 48 4E 22 3A 8D 33 35 |.1:US$."YHN":.35|
000029F0: 3A 00 03 32 22 06 8B 55 52 24 B2 22 59 22 A7 31 |:..2"..UR$."Y".1|
00002A00: 36 30 30 00 16 32 2C 06 8B 55 52 24 B2 22 4E 22 |600..2,..UR$."N"|
00002A10: A7 49 B2 30 3A 8E 00 4C 32 40 06 99 22 11 1D 45 |.I.0:..L2@.."..E|
00002A20: 4E 54 45 52 20 54 48 45 20 4E 55 4D 42 45 52 20 |NTER THE NUMBER |
00002A30: 4F 46 20 54 48 45 20 45 4C 45 4D 45 4E 54 20 57 |OF THE ELEMENT W|
00002A40: 48 49 43 48 22 3A 8D 34 30 30 30 30 00 87 32 41 |HICH":.40000..2A|
00002A50: 06 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00002A60: 11 11 11 1D 49 53 20 54 4F 20 42 45 20 43 48 41 |....IS TO BE CHA|
00002A70: 4E 47 45 44 28 31 2D 22 3B 47 52 24 3B 22 20 20 |NGED(1-";GR$;" |
00002A80: 20 9D 9D 9D 20 22 3B 00 B7 32 42 06 55 4C B2 32 | ... ";..2B.UL.2|
00002A90: 3A 55 53 24 B2 22 2D 48 30 31 32 33 34 35 36 37 |:US$."-H01234567|
00002AA0: 38 39 22 3A 8D 33 35 3A 8B C5 28 55 52 24 29 B1 |89":.35:..(UR$).|
00002AB0: 4E 25 A7 31 36 30 31 00 C4 32 43 06 59 B2 C5 28 |N%.1601..2C.Y..(|
00002AC0: 55 52 24 29 00 01 33 44 06 99 22 11 1D 4E 45 57 |UR$)..3D.."..NEW|
00002AD0: 20 56 41 4C 55 45 20 4F 46 20 45 4C 45 4D 45 4E | VALUE OF ELEMEN|
00002AE0: 54 20 23 22 3B 59 3B 3A 55 4C B2 31 30 3A 8D 33 |T #";Y;:UL.10:.3|
00002AF0: 35 3A 4D 4D 28 52 25 2C 59 29 B2 C5 28 55 52 24 |5:MM(R%,Y)..(UR$|
00002B00: 29 00 15 33 4A 06 4D 4D 28 52 25 2C 59 29 B2 C5 |)..3J.MM(R%,Y)..|
00002B10: 28 55 52 24 29 00 29 33 54 06 8D 38 35 30 3A 46 |(UR$).)3T..850:F|
00002B20: 4C B2 31 3A 89 31 34 39 30 00 46 33 5E 06 41 30 |L.1:.1490.F3^.A0|
00002B30: 24 B2 22 12 20 92 22 3A 41 31 24 B2 22 20 22 3A |$.". .":A1$." ":|
00002B40: 41 41 24 B2 22 22 00 5F 33 68 06 99 41 30 24 22 |AA$.""._3h..A0$"|
00002B50: 9D 22 3B 3A 81 41 B2 31 A4 36 30 3A A1 41 24 00 |.";:.A.1.60:.A$.|
00002B60: 88 33 72 06 8B 41 24 B2 22 22 A7 82 3A 41 24 B2 |.3r..A$.""..:A$.|
00002B70: 41 30 24 3A 41 30 24 B2 41 31 24 3A 41 31 24 B2 |A0$:A0$.A1$:A1$.|
00002B80: 41 24 3A 89 31 36 34 30 00 AC 33 7C 06 41 B2 36 |A$:.1640..3|.A.6|
00002B90: 30 3A 82 3A 41 B2 C6 28 41 24 29 AF 31 32 37 3A |0:.:A..(A$).127:|
00002BA0: 8B 41 B2 31 33 A7 99 22 20 22 3A 8E 00 D1 33 86 |.A.13.." ":...3.|
00002BB0: 06 8B 41 B2 31 39 B0 41 B2 31 37 B0 41 B2 32 39 |..A.19.A.17.A.29|
00002BC0: B0 41 B2 33 34 B0 41 24 B2 22 94 22 A7 31 36 34 |.A.34.A$.".".164|
00002BD0: 30 00 E9 33 90 06 8B 41 B2 32 30 AF C3 28 41 41 |0..3...A.20..(AA|
00002BE0: 24 29 B3 31 A7 31 36 33 30 00 07 34 9A 06 8B 41 |$).1.1630..4...A|
00002BF0: B2 32 30 AF C3 28 41 41 24 29 B2 31 A7 99 41 24 |.20..(AA$).1..A$|
00002C00: 3B 3A 89 31 36 33 30 00 30 34 A4 06 41 41 24 B2 |;:.1630.04..AA$.|
00002C10: 41 41 24 AA 41 24 3A 8B 41 B2 32 30 A7 41 41 24 |AA$.A$:.A.20.AA$|
00002C20: B2 C8 28 41 41 24 2C C3 28 41 41 24 29 AB 32 29 |..(AA$,.(AA$).2)|
00002C30: 00 3F 34 AE 06 99 41 24 3B 3A 89 31 36 34 30 00 |.?4...A$;:.1640.|
00002C40: 67 34 B8 06 8B A8 58 41 A7 99 22 11 1D 43 48 4F |g4....XA.."..CHO|
00002C50: 4F 53 45 20 46 52 4F 4D 20 28 41 2C 42 2C 43 2C |OSE FROM (A,B,C,|
00002C60: 44 2C 45 2C 46 29 22 00 8A 34 BB 06 99 22 11 1D |D,E,F)"..4..."..|
00002C70: 56 45 43 54 4F 52 20 54 4F 20 42 45 20 44 49 53 |VECTOR TO BE DIS|
00002C80: 50 4C 41 59 45 44 3F 20 22 3B 00 AC 34 BC 06 55 |PLAYED? ";..4..U|
00002C90: 4C B2 31 3A 55 53 24 B2 22 48 41 42 43 44 45 46 |L.1:US$."HABCDEF|
00002CA0: 22 3A 8D 33 35 3A 58 24 B2 55 52 24 00 BD 34 C2 |":.35:X$.UR$..4.|
00002CB0: 06 59 24 B2 22 46 22 3A 8D 32 31 31 30 00 E3 34 |.Y$."F":.2110..4|
00002CC0: CC 06 8B 46 46 B2 31 A7 58 41 B2 30 3A 99 22 11 |...FF.1.XA.0:.".|
00002CD0: 1D 49 4E 50 55 54 20 45 52 52 4F 52 22 3A 89 31 |.INPUT ERROR":.1|
00002CE0: 37 32 30 00 F8 34 D6 06 99 22 11 1D 22 3B 58 24 |720..4..."..";X$|
00002CF0: 3B 3A 8D 33 30 30 30 30 00 31 35 E0 06 99 22 11 |;:.30000.15...".|
00002D00: 1D 44 49 53 50 4C 41 59 20 41 4E 4F 54 48 45 52 |.DISPLAY ANOTHER|
00002D10: 20 56 45 43 54 4F 52 3F 28 59 2F 4E 29 22 3B 3A | VECTOR?(Y/N)";:|
00002D20: 55 4C B2 31 3A 55 53 24 B2 22 59 4E 22 3A 8D 33 |UL.1:US$."YN":.3|
00002D30: 35 00 49 35 E2 06 8B 55 52 24 B2 22 59 22 A7 8D |5.I5...UR$."Y"..|
00002D40: 38 35 30 3A 89 31 37 32 30 00 52 35 E5 06 8D 38 |850:.1720.R5...8|
00002D50: 33 35 00 58 35 EA 06 8E 00 7A 35 F4 06 55 4C B2 |35.X5....z5..UL.|
00002D60: 31 3A 55 53 24 B2 22 48 41 42 43 44 45 46 22 3A |1:US$."HABCDEF":|
00002D70: 8D 33 35 3A 58 24 B2 55 52 24 00 A5 35 08 07 81 |.35:X$.UR$..5...|
00002D80: 49 B2 31 A4 36 3A 8B CA 28 22 41 42 43 44 45 46 |I.1.6:..("ABCDEF|
00002D90: 22 2C 49 2C 31 29 B2 58 24 A7 41 28 49 29 B2 31 |",I,1).X$.A(I).1|
00002DA0: 3A 52 25 B2 49 00 AB 35 0D 07 82 00 B1 35 12 07 |:R%.I..5.....5..|
00002DB0: 8E 00 E0 35 26 07 99 22 11 1D 46 49 4E 44 49 4E |...5&.."..FINDIN|
00002DC0: 47 20 54 48 45 20 41 4E 47 4C 45 20 42 45 54 57 |G THE ANGLE BETW|
00002DD0: 45 45 4E 20 54 57 4F 20 56 45 43 54 4F 52 53 22 |EEN TWO VECTORS"|
00002DE0: 00 03 36 30 07 99 22 11 1D 43 48 4F 4F 53 45 20 |..60.."..CHOOSE |
00002DF0: 46 52 4F 4D 20 28 41 2C 42 2C 43 2C 44 2C 45 2C |FROM (A,B,C,D,E,|
00002E00: 46 29 22 00 1F 36 31 07 99 22 11 1D 45 4E 54 45 |F)"..61.."..ENTE|
00002E10: 52 20 54 57 4F 20 56 45 43 54 4F 52 53 3A 22 00 |R TWO VECTORS:".|
00002E20: 5A 36 32 07 99 22 11 1D 56 45 43 54 4F 52 20 23 |Z62.."..VECTOR #|
00002E30: 31 3A 20 22 3B 3A 55 4C B2 31 3A 55 53 24 B2 22 |1: ";:UL.1:US$."|
00002E40: 41 42 43 44 45 46 48 22 3A 8D 33 35 3A 58 24 B2 |ABCDEFH":.35:X$.|
00002E50: 55 52 24 3A 8D 31 38 30 30 30 00 67 36 35 07 99 |UR$:.18000.g65..|
00002E60: 3A 8D 33 30 30 30 30 00 8F 36 3A 07 99 22 11 1D |:.30000..6:.."..|
00002E70: 56 45 43 54 4F 52 20 23 32 3A 20 22 3B 3A 8D 33 |VECTOR #2: ";:.3|
00002E80: 35 3A 59 24 B2 55 52 24 3A 8D 31 38 30 30 30 00 |5:Y$.UR$:.18000.|
00002E90: 9C 36 3B 07 99 3A 8D 33 30 30 30 30 00 A6 36 44 |.6;..:.30000..6D|
00002EA0: 07 8D 32 31 31 30 00 AE 36 4E 07 53 B2 30 00 D4 |..2110..6N.S.0..|
00002EB0: 36 58 07 81 4C B2 31 A4 4E 25 3A 8B 4D 4D 28 52 |6X..L.1.N%:.MM(R|
00002EC0: 25 2C 4C 29 B3 B1 AB 4D 4D 28 53 25 2C 4C 29 A7 |%,L)...MM(S%,L).|
00002ED0: 31 39 30 30 00 DB 36 62 07 82 3A 00 FB 36 6C 07 |1900..6b..:..6l.|
00002EE0: 8B 46 46 B2 31 A7 99 22 1D 49 4E 50 55 54 20 45 |.FF.1..".INPUT E|
00002EF0: 52 52 4F 52 22 3A 89 31 38 34 30 00 07 37 76 07 |RROR":.1840..7v.|
00002F00: 81 49 B2 31 A4 4E 25 00 2D 37 80 07 53 B2 53 AA |.I.1.N%.-7..S.S.|
00002F10: 4D 4D 28 52 25 2C 49 29 AC 4D 4D 28 53 25 2C 49 |MM(R%,I).MM(S%,I|
00002F20: 29 3A 82 3A 42 51 B2 30 3A 53 51 B2 30 00 69 37 |):.:BQ.0:SQ.0.i7|
00002F30: 8A 07 81 49 B2 31 A4 4E 25 3A 53 51 B2 53 51 AA |...I.1.N%:SQ.SQ.|
00002F40: 4D 4D 28 52 25 2C 49 29 AC 4D 4D 28 52 25 2C 49 |MM(R%,I).MM(R%,I|
00002F50: 29 3A 42 51 B2 42 51 AA 4D 4D 28 53 25 2C 49 29 |):BQ.BQ.MM(S%,I)|
00002F60: AC 4D 4D 28 53 25 2C 49 29 00 7E 37 94 07 82 3A |.MM(S%,I).~7...:|
00002F70: 54 51 B2 BA 28 53 51 29 AC BA 28 42 51 29 00 84 |TQ..(SQ)..(BQ)..|
00002F80: 37 9E 07 8F 00 9A 37 A8 07 8B 53 B2 30 A7 52 31 |7.....7...S.0.R1|
00002F90: B2 FF AD 32 3A 89 31 39 39 30 00 C8 37 B2 07 43 |...2:.1990..7..C|
00002FA0: 53 B2 53 AD 54 51 3A 53 49 B2 BA 28 31 AB 28 53 |S.S.TQ:SI..(1.(S|
00002FB0: AD 54 51 29 AC 28 53 AD 54 51 29 29 3A 52 31 B2 |.TQ).(S.TQ)):R1.|
00002FC0: C1 28 53 49 AD 43 53 29 00 DB 37 BC 07 8B 52 31 |.(SI.CS)..7...R1|
00002FD0: B3 30 A7 52 31 B2 B6 28 52 31 29 00 E1 37 C6 07 |.0.R1..(R1)..7..|
00002FE0: 8F 00 0F 38 CB 07 99 22 11 1D 4D 45 41 53 55 52 |...8..."..MEASUR|
00002FF0: 45 20 4F 46 20 41 4E 47 4C 45 20 42 45 54 57 45 |E OF ANGLE BETWE|
00003000: 45 4E 20 56 45 43 54 4F 52 53 20 49 53 3A 22 00 |EN VECTORS IS:".|
00003010: 3F 38 CC 07 99 22 11 1D 22 3B B5 28 52 31 AC 31 |?8..."..";.(R1.1|
00003020: 30 30 30 30 AA 2E 35 29 AD 31 30 30 30 30 3B 22 |0000..5).10000;"|
00003030: 20 52 41 44 49 41 4E 53 20 20 20 20 20 22 3B 00 | RADIANS ";.|
00003040: 6B 38 CD 07 99 B5 28 52 31 AC 31 38 30 AD FF AC |k8....(R1.180...|
00003050: 31 30 30 30 30 AA 2E 35 29 AD 31 30 30 30 30 3B |10000..5).10000;|
00003060: 22 20 44 45 47 52 45 45 53 22 3B 00 75 38 CE 07 |" DEGREES";.u8..|
00003070: 89 32 30 32 30 00 7B 38 DA 07 8F 00 8D 38 E4 07 |.2020.{8.....8..|
00003080: 53 B2 30 3A 53 51 B2 30 3A 42 51 B2 30 00 93 38 |S.0:SQ.0:BQ.0..8|
00003090: EE 07 8E 00 B7 38 F8 07 99 22 11 1D 43 48 4F 4F |.....8..."..CHOO|
000030A0: 53 45 20 46 52 4F 4D 20 28 41 2C 42 2C 43 2C 44 |SE FROM (A,B,C,D|
000030B0: 2C 45 2C 46 29 2D 22 00 D8 38 FD 07 99 22 11 1D |,E,F)-"..8..."..|
000030C0: 56 45 43 54 4F 52 20 54 4F 20 42 45 20 52 45 4E |VECTOR TO BE REN|
000030D0: 41 4D 45 44 3F 20 22 3B 00 FA 38 FE 07 55 4C B2 |AMED? ";..8..UL.|
000030E0: 31 3A 55 53 24 B2 22 48 41 42 43 44 45 46 22 3A |1:US$."HABCDEF":|
000030F0: 8D 33 35 3A 58 24 B2 55 52 24 00 1E 39 FF 07 99 |.35:X$.UR$..9...|
00003100: 22 11 1D 43 48 4F 4F 53 45 20 46 52 4F 4D 20 28 |"..CHOOSE FROM (|
00003110: 41 2C 42 2C 43 2C 44 2C 45 2C 46 29 2D 22 00 44 |A,B,C,D,E,F)-".D|
00003120: 39 00 08 99 22 11 1D 4E 45 57 20 4E 41 4D 45 20 |9..."..NEW NAME |
00003130: 46 4F 52 20 56 45 43 54 4F 52 20 22 3B 58 24 3B |FOR VECTOR ";X$;|
00003140: 22 20 22 3B 00 66 39 01 08 55 4C B2 31 3A 55 53 |" ";.f9..UL.1:US|
00003150: 24 B2 22 48 41 42 43 44 45 46 22 3A 8D 33 35 3A |$."HABCDEF":.35:|
00003160: 59 24 B2 55 52 24 00 6C 39 02 08 8F 00 76 39 0C |Y$.UR$.l9....v9.|
00003170: 08 8D 32 31 31 30 00 86 39 16 08 8B 46 46 B3 B1 |..2110..9...FF..|
00003180: 31 89 32 30 39 30 00 A7 39 20 08 99 22 1D 49 4E |1.2090..9 ..".IN|
00003190: 50 55 54 20 45 52 52 4F 52 2E 52 45 2D 54 52 59 |PUT ERROR.RE-TRY|
000031A0: 22 3A 89 32 30 35 30 00 C7 39 2A 08 81 4A B2 31 |":.2050..9*..J.1|
000031B0: A4 4E 25 3A 4D 4D 28 53 25 2C 4A 29 B2 4D 4D 28 |.N%:MM(S%,J).MM(|
000031C0: 52 25 2C 4A 29 3A 82 00 CD 39 34 08 8E 00 E9 39 |R%,J):...94....9|
000031D0: 3E 08 46 46 B2 30 3A 8B 58 24 B2 22 41 22 A7 52 |>.FF.0:.X$."A".R|
000031E0: 25 B2 31 3A 89 32 31 38 30 00 00 3A 48 08 8B 58 |%.1:.2180..:H..X|
000031F0: 24 B2 22 42 22 A7 52 25 B2 32 3A 89 32 31 38 30 |$."B".R%.2:.2180|
00003200: 00 17 3A 52 08 8B 58 24 B2 22 43 22 A7 52 25 B2 |..:R..X$."C".R%.|
00003210: 33 3A 89 32 31 38 30 00 2E 3A 5C 08 8B 58 24 B2 |3:.2180..:\..X$.|
00003220: 22 44 22 A7 52 25 B2 34 3A 89 32 31 38 30 00 45 |"D".R%.4:.2180.E|
00003230: 3A 66 08 8B 58 24 B2 22 45 22 A7 52 25 B2 35 3A |:f..X$."E".R%.5:|
00003240: 89 32 31 38 30 00 5C 3A 70 08 8B 58 24 B2 22 46 |.2180.\:p..X$."F|
00003250: 22 A7 52 25 B2 36 3A 89 32 31 38 30 00 6B 3A 7A |".R%.6:.2180.k:z|
00003260: 08 46 46 B2 31 3A 89 32 32 35 30 00 82 3A 84 08 |.FF.1:.2250..:..|
00003270: 8B 59 24 B2 22 41 22 A7 53 25 B2 31 3A 89 32 32 |.Y$."A".S%.1:.22|
00003280: 35 30 00 99 3A 8E 08 8B 59 24 B2 22 42 22 A7 53 |50..:...Y$."B".S|
00003290: 25 B2 32 3A 89 32 32 35 30 00 B0 3A 98 08 8B 59 |%.2:.2250..:...Y|
000032A0: 24 B2 22 43 22 A7 53 25 B2 33 3A 89 32 32 35 30 |$."C".S%.3:.2250|
000032B0: 00 C7 3A A2 08 8B 59 24 B2 22 44 22 A7 53 25 B2 |..:...Y$."D".S%.|
000032C0: 34 3A 89 32 32 35 30 00 DE 3A AC 08 8B 59 24 B2 |4:.2250..:...Y$.|
000032D0: 22 45 22 A7 53 25 B2 35 3A 89 32 32 35 30 00 F5 |"E".S%.5:.2250..|
000032E0: 3A B6 08 8B 59 24 B2 22 46 22 A7 53 25 B2 36 3A |:...Y$."F".S%.6:|
000032F0: 89 32 32 35 30 00 FF 3A C0 08 89 32 31 37 30 00 |.2250..:...2170.|
00003300: 05 3B CA 08 8E 00 16 3B D4 08 8B 41 24 B2 22 4C |.;.....;...A$."L|
00003310: 22 A7 32 33 35 30 00 46 3B DE 08 99 22 11 1D 46 |".2350.F;..."..F|
00003320: 49 4E 44 49 4E 47 20 54 48 45 20 44 4F 54 20 50 |INDING THE DOT P|
00003330: 52 4F 44 55 43 54 20 4F 46 20 54 57 4F 20 56 45 |RODUCT OF TWO VE|
00003340: 43 54 4F 52 53 22 00 6A 3B E8 08 99 22 11 1D 43 |CTORS".j;..."..C|
00003350: 48 4F 4F 53 45 20 46 52 4F 4D 20 28 41 2C 42 2C |HOOSE FROM (A,B,|
00003360: 43 2C 44 2C 45 2C 46 29 2D 22 00 86 3B F2 08 99 |C,D,E,F)-"..;...|
00003370: 22 11 1D 45 4E 54 45 52 20 54 57 4F 20 56 45 43 |"..ENTER TWO VEC|
00003380: 54 4F 52 53 3A 22 00 C9 3B F3 08 99 22 11 1D 56 |TORS:"..;..."..V|
00003390: 45 43 54 4F 52 20 23 31 3A 20 22 3B 3A 55 4C B2 |ECTOR #1: ";:UL.|
000033A0: 31 3A 55 53 24 B2 22 41 42 43 44 45 46 22 3A 8D |1:US$."ABCDEF":.|
000033B0: 33 35 3A 58 24 B2 55 52 24 3A 8D 31 38 30 30 30 |35:X$.UR$:.18000|
000033C0: 3A 99 3A 8D 33 30 30 30 30 00 FA 3B F4 08 99 22 |:.:.30000..;..."|
000033D0: 11 1D 56 45 43 54 4F 52 20 23 32 3A 20 22 3B 3A |..VECTOR #2: ";:|
000033E0: 8D 33 35 3A 59 24 B2 55 52 24 3A 8D 31 38 30 30 |.35:Y$.UR$:.1800|
000033F0: 30 3A 99 3A 8D 33 30 30 30 30 00 04 3C FC 08 8D |0:.:.30000..<...|
00003400: 32 31 31 30 00 24 3C 06 09 8B 46 46 B2 31 A7 99 |2110.$<...FF.1..|
00003410: 22 1D 49 4E 50 55 54 20 45 52 52 4F 52 22 3A 89 |".INPUT ERROR":.|
00003420: 32 32 38 30 00 4C 3C 10 09 53 B2 30 3A 81 49 B2 |2280.L<..S.0:.I.|
00003430: 31 A4 4E 25 3A 53 B2 53 AA 4D 4D 28 52 25 2C 49 |1.N%:S.S.MM(R%,I|
00003440: 29 AC 4D 4D 28 53 25 2C 49 29 3A 82 00 6B 3C 1A |).MM(S%,I):..k<.|
00003450: 09 99 22 11 1D 54 48 45 20 44 4F 54 20 50 52 4F |.."..THE DOT PRO|
00003460: 44 55 43 54 20 49 53 20 22 3B 53 00 71 3C 24 09 |DUCT IS ";S.q<$.|
00003470: 8E 00 7C 3C 2E 09 59 24 B2 22 46 22 00 A0 3C 33 |..|<..Y$."F"..<3|
00003480: 09 99 22 11 1D 43 48 4F 4F 53 45 20 46 52 4F 4D |.."..CHOOSE FROM|
00003490: 20 28 41 2C 42 2C 43 2C 44 2C 45 2C 46 29 2D 22 | (A,B,C,D,E,F)-"|
000034A0: 00 C2 3C 3E 09 99 22 11 1D 46 49 4E 44 20 4C 45 |..<>.."..FIND LE|
000034B0: 4E 47 54 48 20 4F 46 20 56 45 43 54 4F 52 3A 20 |NGTH OF VECTOR: |
000034C0: 22 3B 00 E4 3C 3F 09 55 4C B2 31 3A 55 53 24 B2 |";..<?.UL.1:US$.|
000034D0: 22 48 41 42 43 44 45 46 22 3A 8D 33 35 3A 58 24 |"HABCDEF":.35:X$|
000034E0: B2 55 52 24 00 F9 3C 42 09 8D 32 31 31 30 3A 8B |.UR$..<B..2110:.|
000034F0: 46 46 B2 31 A7 32 33 36 30 00 1A 3D 4C 09 53 B2 |FF.1.2360..=L.S.|
00003500: 30 3A 81 49 B2 31 A4 4E 25 3A 53 B2 53 AA 4D 4D |0:.I.1.N%:S.S.MM|
00003510: 28 52 25 2C 49 29 AE 32 3A 82 00 48 3D 56 09 53 |(R%,I).2:..H=V.S|
00003520: B2 BA 28 53 29 3A 99 22 11 11 1D 54 48 45 20 4C |..(S):."...THE L|
00003530: 45 4E 47 54 48 20 4F 46 20 56 45 43 54 4F 52 20 |ENGTH OF VECTOR |
00003540: 22 3B 58 24 3B 22 3A 22 00 55 3D 58 09 99 3A 8D |";X$;":".U=X..:.|
00003550: 33 30 30 30 30 00 65 3D 59 09 99 20 22 11 1D 49 |30000.e=Y.. "..I|
00003560: 53 20 22 3B 53 00 95 3D 5A 09 99 22 11 11 11 1D |S ";S..=Z.."....|
00003570: 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 |WOULD YOU LIKE T|
00003580: 4F 20 46 49 4E 44 20 54 48 45 20 4C 45 4E 47 54 |O FIND THE LENGT|
00003590: 48 20 4F 46 22 00 B5 3D 5B 09 99 22 11 1D 41 4E |H OF"..=[.."..AN|
000035A0: 4F 54 48 45 52 20 56 45 43 54 4F 52 3F 28 59 2F |OTHER VECTOR?(Y/|
000035B0: 4E 29 20 22 3B 00 E0 3D 5C 09 55 4C B2 31 3A 55 |N) ";..=\.UL.1:U|
000035C0: 53 24 B2 22 48 59 4E 22 3A 8D 33 35 3A 8B 55 52 |S$."HYN":.35:.UR|
000035D0: 24 B2 22 59 22 A7 8D 38 35 30 3A 89 32 33 35 30 |$."Y"..850:.2350|
000035E0: 00 E6 3D 60 09 8E 00 F8 3D 6A 09 8D 38 37 35 3A |..=`....=j..875:|
000035F0: 99 22 13 11 11 11 11 22 00 FE 3D 6C 09 8F 00 04 |."....."..=l....|
00003600: 3E 6D 09 8F 00 2A 3E 74 09 8B 4E 25 B3 33 A7 99 |>m...*>t..N%.3..|
00003610: 22 11 1D 12 44 49 4D 45 4E 53 49 4F 4E 20 54 4F |"...DIMENSION TO|
00003620: 4F 20 53 4D 41 4C 4C 22 3A 8E 00 50 3E 7E 09 8B |O SMALL":..P>~..|
00003630: 4E 25 B1 35 A7 99 22 11 1D 12 44 49 4D 45 4E 53 |N%.5.."...DIMENS|
00003640: 49 4F 4E 20 54 4F 4F 20 4C 41 52 47 45 22 3A 8E |ION TOO LARGE":.|
00003650: 00 6E 3E A8 09 4B 25 B2 30 3A 81 49 B2 31 A4 4E |.n>..K%.0:.I.1.N|
00003660: 25 3A 8B 41 28 49 29 B2 30 A7 32 34 39 30 00 93 |%:.A(I).0.2490..|
00003670: 3E AA 09 4B 25 B2 4B 25 AA 31 3A 81 4A B2 31 A4 |>..K%.K%.1:.J.1.|
00003680: 4E 25 3A 4D 4D 28 4B 25 2C 4A 29 B2 4D 4D 28 49 |N%:MM(K%,J).MM(I|
00003690: 2C 4A 29 00 99 3E B0 09 82 00 9F 3E BA 09 82 00 |,J)..>.....>....|
000036A0: B1 3E C4 09 4B 4B 25 B2 4E 25 AB 31 3A 5A 46 B2 |.>..KK%.N%.1:ZF.|
000036B0: 30 00 D2 3E CE 09 56 B2 31 3A 47 B2 30 3A 50 B2 |0..>..V.1:G.0:P.|
000036C0: 31 3A 81 51 B2 31 A4 4E 25 3A 81 42 B2 31 A4 4B |1:.Q.1.N%:.B.1.K|
000036D0: 4B 25 00 E8 3E D8 09 81 4A B2 31 A4 4E 25 3A 8B |K%..>...J.1.N%:.|
000036E0: 4A B2 51 89 32 35 34 30 00 01 3F E2 09 57 28 50 |J.Q.2540..?..W(P|
000036F0: 2C 56 29 B2 4D 4D 28 42 2C 4A 29 3A 56 B2 56 AA |,V).MM(B,J):V.V.|
00003700: 31 00 20 3F EC 09 82 3A 50 B2 50 AA 31 3A 56 B2 |1. ?...:P.P.1:V.|
00003710: 31 3A 82 3A 5A B2 28 AB 31 29 AE 28 31 AA 51 29 |1:.:Z.(.1).(1.Q)|
00003720: 00 2A 3F F6 09 8D 32 36 39 30 00 4A 3F 00 0A 47 |.*?...2690.J?..G|
00003730: B2 47 AA 31 3A 4D 4D 28 36 2C 47 29 B2 5A AC 4B |.G.1:MM(6,G).Z.K|
00003740: 3A 50 B2 31 3A 56 B2 31 3A 82 00 58 3F 0A 0A 41 |:P.1:V.1:..X?..A|
00003750: 41 24 B2 22 59 46 22 3A 00 83 3F 0B 0A 99 22 11 |A$."YF":..?...".|
00003760: 1D 54 48 45 20 43 52 4F 53 53 20 50 52 4F 44 55 |.THE CROSS PRODU|
00003770: 43 54 20 4F 46 20 54 48 45 20 4E 4F 4E 2D 5A 45 |CT OF THE NON-ZE|
00003780: 52 4F 22 00 A8 3F 0C 0A 99 22 11 1D 56 45 43 54 |RO"..?..."..VECT|
00003790: 4F 52 53 20 49 4E 20 54 48 45 20 52 45 47 49 53 |ORS IN THE REGIS|
000037A0: 54 45 52 20 49 53 3A 22 00 BA 3F 0D 0A 99 3A 52 |TER IS:"..?...:R|
000037B0: 25 B2 36 3A 8D 33 30 30 30 30 00 EB 3F 0E 0A 99 |%.6:.30000..?...|
000037C0: 22 11 1D 54 48 49 53 20 52 45 53 55 4C 54 20 48 |"..THIS RESULT H|
000037D0: 41 53 20 42 45 45 4E 20 53 54 4F 52 45 44 20 41 |AS BEEN STORED A|
000037E0: 53 20 56 45 43 54 4F 52 20 46 22 00 F1 3F 14 0A |S VECTOR F"..?..|
000037F0: 8E 00 0B 40 1E 0A 53 42 24 B2 22 41 44 44 45 44 |...@..SB$."ADDED|
00003800: 22 3A 54 54 24 B2 22 54 4F 22 3A 00 34 40 28 0A |":TT$."TO":.4@(.|
00003810: 8B 41 24 20 B2 22 2D 22 A7 53 42 24 B2 22 53 55 |.A$ ."-".SB$."SU|
00003820: 42 54 52 41 43 54 45 44 22 3A 54 54 24 B2 22 46 |BTRACTED":TT$."F|
00003830: 52 4F 4D 22 00 57 40 2D 0A 99 22 1D 43 48 4F 4F |ROM".W@-..".CHOO|
00003840: 53 45 20 46 52 4F 4D 20 28 41 2C 42 2C 43 2C 44 |SE FROM (A,B,C,D|
00003850: 2C 45 2C 46 29 2D 22 00 78 40 32 0A 99 22 11 1D |,E,F)-".x@2.."..|
00003860: 56 45 43 54 4F 52 20 54 4F 20 42 45 20 22 3B 53 |VECTOR TO BE ";S|
00003870: 42 24 3B 22 3F 20 22 3B 00 AA 40 33 0A 55 4C B2 |B$;"? ";..@3.UL.|
00003880: 31 3A 55 53 24 B2 22 48 41 42 43 44 45 46 22 3A |1:US$."HABCDEF":|
00003890: 8D 33 35 3A 58 24 B2 55 52 24 3A 8D 31 38 30 30 |.35:X$.UR$:.1800|
000038A0: 30 3A 99 3A 8D 33 30 30 30 30 00 DA 40 34 0A 99 |0:.:.30000..@4..|
000038B0: 22 11 1D 45 4E 54 45 52 20 54 48 45 1D 56 45 43 |"..ENTER THE.VEC|
000038C0: 54 4F 52 20 22 3B 54 54 24 3B 22 20 57 48 49 43 |TOR ";TT$;" WHIC|
000038D0: 48 20 56 45 43 54 4F 52 20 22 00 1C 41 35 0A 99 |H VECTOR "..A5..|
000038E0: 22 11 1D 22 3B 58 24 3B 22 20 49 53 20 54 4F 20 |"..";X$;" IS TO |
000038F0: 42 45 20 22 3B 53 42 24 3B 22 3A 20 22 3B 3A 55 |BE ";SB$;": ";:U|
00003900: 4C B2 31 3A 55 53 24 B2 22 48 41 42 43 44 45 46 |L.1:US$."HABCDEF|
00003910: 22 3A 8D 33 35 3A 59 24 B2 55 52 24 00 30 41 36 |":.35:Y$.UR$.0A6|
00003920: 0A 8D 31 38 30 30 30 3A 99 3A 8D 33 30 30 30 30 |..18000:.:.30000|
00003930: 00 45 41 46 0A 8D 32 31 31 30 3A 8B 46 46 B2 31 |.EAF..2110:.FF.1|
00003940: A7 32 36 31 30 00 5D 41 50 0A 53 4E B2 31 3A 8B |.2610.]AP.SN.1:.|
00003950: 20 41 24 B2 22 2D 22 A7 53 4E B2 AB 31 00 69 41 | A$."-".SN..1.iA|
00003960: 5A 0A 81 49 B2 31 A4 4E 25 00 8A 41 64 0A 4D 4D |Z..I.1.N%..Ad.MM|
00003970: 28 36 2C 49 29 B2 4D 4D 28 53 25 2C 49 29 AA 53 |(6,I).MM(S%,I).S|
00003980: 4E AC 4D 4D 28 52 25 2C 49 29 00 90 41 6E 0A 82 |N.MM(R%,I)..An..|
00003990: 00 A8 41 78 0A 52 25 B2 36 3A 99 22 11 1D 52 45 |..Ax.R%.6:."..RE|
000039A0: 53 55 4C 54 3A 1D 22 3B 00 B3 41 79 0A 8D 33 30 |SULT:.";..Ay..30|
000039B0: 30 30 30 00 E3 41 7A 0A 99 22 11 1D 54 48 49 53 |000..Az.."..THIS|
000039C0: 20 52 45 53 55 4C 54 20 48 41 53 20 42 45 45 4E | RESULT HAS BEEN|
000039D0: 20 53 41 56 45 44 20 41 53 20 56 45 43 54 4F 52 | SAVED AS VECTOR|
000039E0: 20 46 22 00 E9 41 7D 0A 8E 00 FF 41 82 0A 8D 32 | F"..A}....A...2|
000039F0: 37 31 30 3A 8D 32 38 35 30 3A 8D 32 38 33 30 00 |710:.2850:.2830.|
00003A00: 05 42 8C 0A 8E 00 12 42 96 0A 4A B2 31 3A 4A 4A |.B.....B..J.1:JJ|
00003A10: B2 31 00 27 42 A0 0A 8B 57 28 4A 2C 4A 4A 29 B3 |.1.'B...W(J,JJ).|
00003A20: B1 30 89 32 37 38 30 00 3F 42 AA 0A 4A B2 4A AA |.0.2780.?B..J.J.|
00003A30: 31 3A 8B 4A B3 B2 4E 25 AB 31 89 32 37 32 30 00 |1:.J..N%.1.2720.|
00003A40: 4E 42 B4 0A 8B 5A 46 B2 31 A7 32 37 37 30 00 7A |NB...ZF.1.2770.z|
00003A50: 42 BE 0A 99 22 1D 30 20 44 49 41 47 4F 4E 41 4C |B...".0 DIAGONAL|
00003A60: 20 45 4C 45 4D 45 4E 54 20 57 48 49 43 48 20 43 | ELEMENT WHICH C|
00003A70: 41 4E 4E 4F 54 20 42 45 20 22 00 9C 42 C8 0A 99 |ANNOT BE "..B...|
00003A80: 22 1D 52 45 53 4F 4C 56 45 44 1D 42 59 20 52 45 |".RESOLVED.BY RE|
00003A90: 2D 41 52 52 41 4E 47 49 4E 47 2E 22 00 B7 42 C9 |-ARRANGING."..B.|
00003AA0: 0A 99 22 1D 4D 41 59 20 42 45 20 46 41 54 41 4C |..".MAY BE FATAL|
00003AB0: 2E 22 3A 5A 46 B2 31 00 C1 42 D2 0A 89 32 38 32 |.":ZF.1..B...282|
00003AC0: 30 00 CF 42 DC 0A 8B 4A B2 31 A7 32 38 32 30 00 |0..B...J.1.2820.|
00003AD0: DD 42 E6 0A 81 43 B2 31 A4 4E 25 AB 31 00 F6 42 |.B...C.1.N%.1..B|
00003AE0: F0 0A 57 28 31 2C 43 29 B2 57 28 31 2C 43 29 AA |..W(1,C).W(1,C).|
00003AF0: 57 28 4A 2C 43 29 00 FC 42 FA 0A 82 00 02 43 04 |W(J,C)..B.....C.|
00003B00: 0B 8E 00 14 43 0E 0B 4B B2 31 3A 81 49 B2 31 A4 |....C..K.1:.I.1.|
00003B10: 4E 25 AB 31 00 27 43 18 0B 4B B2 4B AC 57 28 49 |N%.1.'C..K.K.W(I|
00003B20: 2C 49 29 3A 82 3A 8E 00 3F 43 22 0B 8F 20 54 52 |,I):.:..?C".. TR|
00003B30: 49 41 4E 47 55 4C 41 52 49 5A 41 54 49 4F 4E 00 |IANGULARIZATION.|
00003B40: 47 43 2C 0B 4B B2 31 00 60 43 36 0B 49 B2 4B AA |GC,.K.1.`C6.I.K.|
00003B50: 31 3A 8B 57 28 4B 2C 4B 29 B2 30 A7 32 39 35 30 |1:.W(K,K).0.2950|
00003B60: 00 7D 43 40 0B 4D B2 57 28 49 2C 4B 29 AD 57 28 |.}C@.M.W(I,K).W(|
00003B70: 4B 2C 4B 29 3A 57 28 49 2C 4B 29 B2 30 00 87 43 |K,K):W(I,K).0..C|
00003B80: 4A 0B 4A B2 4B AA 31 00 A2 43 54 0B 57 28 49 2C |J.J.K.1..CT.W(I,|
00003B90: 4A 29 B2 57 28 49 2C 4A 29 AB 4D AC 57 28 4B 2C |J).W(I,J).M.W(K,|
00003BA0: 4A 29 00 B5 43 5E 0B 8B 57 28 49 2C 49 29 B2 30 |J)..C^..W(I,I).0|
00003BB0: A7 32 39 35 30 00 CC 43 68 0B 8B 4A B3 B1 4E 25 |.2950..Ch..J..N%|
00003BC0: A7 4A B2 4A AA 31 3A 89 32 39 30 30 00 E5 43 72 |.J.J.1:.2900..Cr|
00003BD0: 0B 8B 49 B3 B1 4E 25 AB 31 A7 49 B2 49 AA 31 3A |..I..N%.1.I.I.1:|
00003BE0: 89 32 38 38 30 00 FE 43 7C 0B 8B 4B B3 B1 4E 25 |.2880..C|..K..N%|
00003BF0: AB 32 A7 4B B2 4B AA 31 3A 89 32 38 37 30 00 04 |.2.K.K.1:.2870..|
00003C00: 44 86 0B 8E 00 2B 44 10 27 8B 55 52 24 B2 22 4E |D....+D.'.UR$."N|
00003C10: 22 A7 99 22 11 11 11 12 54 52 59 20 41 47 41 49 |".."....TRY AGAI|
00003C20: 4E 2D 92 22 3A 8D 38 33 35 3A 8E 00 3C 44 50 46 |N-.":.835:..<DPF|
00003C30: 8B 58 24 B2 22 41 22 A7 52 25 B2 31 00 4D 44 5A |.X$."A".R%.1.MDZ|
00003C40: 46 8B 58 24 B2 22 42 22 A7 52 25 B2 32 00 5E 44 |F.X$."B".R%.2.^D|
00003C50: 64 46 8B 58 24 B2 22 43 22 A7 52 25 B2 33 00 6F |dF.X$."C".R%.3.o|
00003C60: 44 6E 46 8B 58 24 B2 22 44 22 A7 52 25 B2 34 00 |DnF.X$."D".R%.4.|
00003C70: 80 44 78 46 8B 58 24 B2 22 45 22 A7 52 25 B2 35 |.DxF.X$."E".R%.5|
00003C80: 00 91 44 82 46 8B 58 24 B2 22 46 22 A7 52 25 B2 |..D.F.X$."F".R%.|
00003C90: 36 00 A2 44 8C 46 8B 59 24 B2 22 41 22 A7 52 25 |6..D.F.Y$."A".R%|
00003CA0: B2 31 00 B3 44 96 46 8B 59 24 B2 22 42 22 A7 52 |.1..D.F.Y$."B".R|
00003CB0: 25 B2 32 00 C4 44 A0 46 8B 59 24 B2 22 43 22 A7 |%.2..D.F.Y$."C".|
00003CC0: 52 25 B2 33 00 D5 44 AA 46 8B 59 24 B2 22 44 22 |R%.3..D.F.Y$."D"|
00003CD0: A7 52 25 B2 34 00 E6 44 B4 46 8B 59 24 B2 22 45 |.R%.4..D.F.Y$."E|
00003CE0: 22 A7 52 25 B2 35 00 F7 44 BE 46 8B 59 24 B2 22 |".R%.5..D.F.Y$."|
00003CF0: 46 22 A7 52 25 B2 36 00 FD 44 C8 46 8E 00 15 45 |F".R%.6..D.F...E|
00003D00: 20 4E 99 22 11 1D 41 22 3B 3A 52 25 B2 31 3A 8D | N."..A";:R%.1:.|
00003D10: 33 30 30 30 30 00 2D 45 08 52 99 22 11 1D 42 22 |30000.-E.R."..B"|
00003D20: 3B 3A 52 25 B2 32 3A 8D 33 30 30 30 30 00 45 45 |;:R%.2:.30000.EE|
00003D30: F0 55 99 22 11 1D 43 22 3B 3A 52 25 B2 33 3A 8D |.U."..C";:R%.3:.|
00003D40: 33 30 30 30 30 00 5D 45 D8 59 99 22 11 1D 44 22 |30000.]E.Y."..D"|
00003D50: 3B 3A 52 25 B2 34 3A 8D 33 30 30 30 30 00 75 45 |;:R%.4:.30000.uE|
00003D60: C0 5D 99 22 11 1D 45 22 3B 3A 52 25 B2 35 3A 8D |.]."..E";:R%.5:.|
00003D70: 33 30 30 30 30 00 8D 45 A8 61 99 22 11 1D 46 22 |30000..E.a."..F"|
00003D80: 3B 3A 52 25 B2 36 3A 8D 33 30 30 30 30 00 93 45 |;:R%.6:.30000..E|
00003D90: 90 65 8E 00 99 45 30 75 8F 00 A1 45 8A 75 46 B2 |.e...E0u...E.uF.|
00003DA0: 31 00 BF 45 94 75 8B C8 28 C4 28 4D 4D 28 52 25 |1..E.u..(.(MM(R%|
00003DB0: 2C 31 29 29 2C 31 29 B2 22 2D 22 A7 46 B2 30 00 |,1)),1)."-".F.0.|
00003DC0: D2 45 24 77 51 24 B2 C4 28 4D 4D 28 52 25 2C 31 |.E$wQ$..(MM(R%,1|
00003DD0: 29 29 00 EF 45 88 77 51 24 B2 22 28 22 AA C9 28 |))..E.wQ$."("..(|
00003DE0: 51 24 2C C3 28 51 24 29 AB 46 29 AA 22 2C 22 00 |Q$,.(Q$).F).",".|
00003DF0: FC 45 EC 77 99 22 1D 22 3B 51 24 3B 00 0C 46 50 |.E.w.".";Q$;..FP|
00003E00: 78 8B 4E 25 B2 32 A7 33 34 30 30 30 00 1A 46 18 |x.N%.2.34000..F.|
00003E10: 79 81 49 B2 32 A4 4E 25 AB 31 00 22 46 A8 7A 46 |y.I.2.N%.1."F.zF|
00003E20: B2 31 00 40 46 DA 7A 8B C8 28 C4 28 4D 4D 28 52 |.1.@F.z..(.(MM(R|
00003E30: 25 2C 49 29 29 2C 31 29 B2 22 2D 22 A7 46 B2 30 |%,I)),1)."-".F.0|
00003E40: 00 53 46 0C 7B 51 24 B2 C4 28 4D 4D 28 52 25 2C |.SF.{Q$..(MM(R%,|
00003E50: 49 29 29 00 6C 46 00 7D 51 24 B2 C9 28 51 24 2C |I)).lF.}Q$..(Q$,|
00003E60: C3 28 51 24 29 AB 46 29 AA 22 2C 22 00 75 46 F4 |.(Q$).F).",".uF.|
00003E70: 7E 99 51 24 3B 00 7C 46 E8 80 82 49 00 84 46 DC |~.Q$;.|F...I..F.|
00003E80: 82 46 B2 31 00 A4 46 40 83 8B C8 28 C4 28 4D 4D |.F.1..F@...(.(MM|
00003E90: 28 52 25 2C 4E 25 29 29 2C 31 29 20 B2 22 2D 22 |(R%,N%)),1) ."-"|
00003EA0: A7 46 B2 30 00 B8 46 D0 84 51 24 B2 C4 28 4D 4D |.F.0..F..Q$..(MM|
00003EB0: 28 52 25 2C 4E 25 29 29 00 D1 46 34 85 51 24 B2 |(R%,N%))..F4.Q$.|
00003EC0: C9 28 51 24 2C C3 28 51 24 29 AB 46 29 AA 22 29 |.(Q$,.(Q$).F).")|
00003ED0: 22 00 D9 46 98 85 99 51 24 00 E3 46 FC 85 46 B2 |"..F...Q$..F..F.|
00003EE0: 30 3A 8E 00 FC 46 B8 88 51 24 B2 C9 28 51 24 2C |0:...F..Q$..(Q$,|
00003EF0: C3 28 51 24 29 AB 46 29 AA 22 29 22 00 04 47 AC |.(Q$).F).")"..G.|
00003F00: 8A 99 51 24 00 0E 47 A0 8C 46 B2 30 3A 8E 00 2E |..Q$..G..F.0:...|
00003F10: 47 40 9C 47 52 24 B2 C9 28 C4 28 4E 25 29 2C C3 |G@.GR$..(.(N%),.|
00003F20: 28 C4 28 52 25 29 29 AB 31 29 AA 22 29 22 00 4E |(.(R%)).1).")".N|
00003F30: 47 45 9C 47 52 24 B2 C9 28 C4 28 4E 25 29 2C C3 |GE.GR$..(.(N%),.|
00003F40: 28 C4 28 52 25 29 29 AB 46 29 AA 22 29 22 00 54 |(.(R%)).F).")".T|
00003F50: 47 4A 9C 8E 00 73 47 C8 AF 48 59 24 B2 C9 28 C4 |GJ...sG..HY$..(.|
00003F60: 28 49 29 2C C3 28 C4 28 49 29 29 AB 31 29 AA 22 |(I),.(.(I)).1)."|
00003F70: 2E 20 22 00 8D 47 D2 AF 8B C3 28 48 59 24 29 B2 |. "..G....(HY$).|
00003F80: 33 A7 48 59 24 B2 22 20 22 AA 48 59 24 00 A1 47 |3.HY$." ".HY$..G|
00003F90: D6 AF 8B 49 B2 31 39 A7 55 50 B2 31 3A 8D 38 35 |...I.19.UP.1:.85|
00003FA0: 30 00 BC 47 D7 AF 8B 49 B2 31 30 A7 99 22 13 11 |0..G...I.10.."..|
00003FB0: 11 11 11 11 11 11 11 11 11 11 22 3B 00 E3 47 D8 |..........";..G.|
00003FC0: AF 8B 49 B1 39 A7 48 59 24 B2 22 1D 1D 1D 1D 1D |..I.9.HY$.".....|
00003FD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 AA |..............".|
00003FE0: 48 59 24 00 E9 47 DC AF 8E 00 24 48 80 BB 99 22 |HY$..G....$H..."|
00003FF0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00004000: 11 11 11 11 11 11 1D 45 4E 54 45 52 20 41 4E 4F |.......ENTER ANO|
00004010: 54 48 45 52 20 56 45 43 54 4F 52 3F 28 59 2F 4E |THER VECTOR?(Y/N|
00004020: 29 20 22 3B 00 3B 48 8A BB 55 4C B2 31 3A 55 53 |) ";.;H..UL.1:US|
00004030: 24 B2 22 48 59 4E 22 3A 8D 33 35 00 41 48 94 BB |$."HYN":.35.AH..|
00004040: 8E 00 62 48 50 C3 99 22 11 1D 43 48 4F 4F 53 45 |..bHP.."..CHOOSE|
00004050: 20 46 52 4F 4D 20 28 41 2C 42 2C 43 2C 44 2C 45 | FROM (A,B,C,D,E|
00004060: 29 22 00 83 48 5A C3 99 22 11 1D 56 45 43 54 4F |)"..HZ.."..VECTO|
00004070: 52 20 54 4F 20 42 45 20 43 48 41 4E 47 45 44 3F |R TO BE CHANGED?|
00004080: 20 22 3B 00 89 48 64 C3 8E 00 A0 48 38 C7 8B 4E | ";..Hd....H8..N|
00004090: 25 B1 31 39 A7 55 4C B2 32 3A 89 35 31 30 36 30 |%.19.UL.2:.51060|
000040A0: 00 B7 48 42 C7 8B 4E 25 B1 31 35 A7 55 4C B2 33 |..HB..N%.15.UL.3|
000040B0: 3A 89 35 31 30 36 30 00 CE 48 4C C7 8B 4E 25 B1 |:.51060..HL..N%.|
000040C0: 31 32 A7 55 4C B2 34 3A 89 35 31 30 36 30 00 E5 |12.UL.4:.51060..|
000040D0: 48 56 C7 8B 4E 25 B1 31 30 A7 55 4C B2 35 3A 89 |HV..N%.10.UL.5:.|
000040E0: 35 31 30 36 30 00 FB 48 60 C7 8B 4E 25 B1 35 A7 |51060..H`..N%.5.|
000040F0: 55 4C B2 36 3A 89 35 31 30 36 30 00 05 49 6A C7 |UL.6:.51060..Ij.|
00004100: 55 4C B2 31 30 00 0B 49 74 C7 8E 00 00 00 |UL.10..It..... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(.UR$."":UI$."":.UO,0...*..UL.0.UL.80
.+.-.." ..";:.UC,0.?.2..UI$:.UI$."".50.
I.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.8
5.|.<..UI$.G(20).105...>.. C(UR$)..UL.50
...A..120:. CHECK FOR VALID CHARACTER.E.
F.UR$.UR$.UI$.O.K..UI$;.W.P..50...U.. ++
+ CHECK FOR HELP REQUEST +++.$.Z..UR$.UX
$.195:. EXIT TO HELP ROUTINE.3._..UF.1..
240.@.D.UF.0:.:..Y.F.. ++ CHECK DELETE +
+.J.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).
1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.M.}..C(US$).0.150...
...US.1.C(US$)......UI$.J(US$,US,1).....
........UI$."":..#.... ** STANDARD INPUT
**.4....F(UI$).46...E....UI$.G(32)...B.
..F(UI$).48.F(UI$).57.170.H..........F(
UI$).65.F(UI$).90.180............F(UI$).
193.F(UI$).218.UI$."":..R....B(UT).UU%.U
I$.G(F(UI$).128):..X.........UI$."":....
C.UF.1:. +++ HELP ROUTINE EXIT +++...E..
250...H..245.;.M..UQ.UB.(U2%.256.U1%.U3%
.2).W.R.UQ%(UQ.UB).B(UQ):.:.".".J.W.UZ.1
:UV%.B(UT).S.X..300...Y.UZ.0:US$.UJ$:UG$
.UK$:UP.UJ:UL.UK.O.Z..B(50003).0..53281,
1:.".";:.53281,6:.53280,14:.220.Y...."."
;.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1
%.U3%.3)......UQ,UQ%(UQ.UB):..)....U1,U1
%.5....U2,U2%.A....U4,U4%.O....U3,U3%.1.
W....35.....UD%.((U2%.256.U1%.U3%).UB).4
0:.H(UD$,UD%.1):..D....H(UD$,24);"
. HELP COMING . ":.....
.U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4)
.....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL
......./.,.. ** MENU **.5.-.:.D....".":.
UT,UU%:.B(50003).0..53281,9:.53280,8.J./
.:...1..". MENU"...6.." -
-------------------------------------"..
.;..".. 1. BEGIN VECTOR ALGEBRA"
...@..".. 2. STUDENT INSTRUCTION
S".4.E..".. 3. TEACHER INSTRUCTI
ONS".P.O..".. 4. QUIT.."..T.."
--------------------------------------".
..Y..".. PRESS A NUMBER KEY (1-4)
";.R.^.UL.1:US$."1234":.35:. INPUT ROUTI
NE...`.US$.""...C..E(UR$).1000,400,500,3
96...H..300.*.... ** RE-ENABLE STOP KEY
AND END **.Y....B(50003)..1.B(50003)..16
0.B(50003)..0.399......UU.71:.B(50003).0
..53281,6:.53280,14......"..":.......875
:....... ** STUDENT INSTRUCTIONS **.....
.".":.UT,UL%:.B(50003).0..53281,0:.53280
,0.!...UP.0:UT$." VECTOR ALGEBRA":UG$."S
TUDENT INST":.850.E...."..EXPLANATION OF
OPERATIONS:".H...."....................
......."......"..ADD, SUBTRACT: CALCULA
TES THE SUM OR".F...."..DIFFERENCE OF TW
O VECTORS. ENTER THE"......"..LETTER NA
MES OF THE VECTORS TO BE"......"..ADDED/
SUBTRACTED. THE COMPUTER WILL".L...."..
THEN PRINT OUT THE VECTORS AND THE ".W..
.."..SUM/DIFFERENCE IN COMPONENT FORM.".
....."..RENAME: USED FOR CHANGING THE LE
TTER".J. .."..NAME OF A VECTOR.":.835:.8
50......"....CROSS PRODUCT:"......"..NOT
E: BEFORE THE COMPUTER WILL BE.<...."..
ABLE TO CALCULATE THE CROSS PRODUCT".F..
.."..THE VECTORS MUST BE STORED IN THE..
...."..REGISTER IN THE ORDER IN WHICH YO
U.K...."..WANT TO CALCULATE THEIR CROSS
PRODUCT.":.835:.850......"........IF YOU
WISHED TO FIND"......"..(1,2,3)X(4,3,2)
, (1,2,3) WOULD HAVE".D...."..TO BE ENTE
RED IN THE REGISTER".R...."..AS VECTOR A
, (4,3,2) AS VECTOR B AND"......"..THE O
THER VECTORS WOULD HAVE TO BE".M...."..E
NTERED AS THE ZERO VECTOR.":.835:.850...
..."..DISPLAY: PRINTS OUT THE VECTORS A-
F"......"..IN COMPONENT FORM.".F...."...
ENTRY: YOU WILL BE ASKED TO SELECT A ".T
...."..LETTER NAME FOR THE VECTOR AND TH
EN "......"..ENTER IT IN COMPONENT FORM
ONE ELEMENT"......"..AFTER ANOTHER."....
.."...LENGTH: ENTER THE LETTER NAME OF T
HE "......"..VECTOR. THE COMPUTER WILL
PRINT THE ".V...."..VECTOR IN COMPONENT
FORM AND ITS LENGTH":.835:.850......"..D
OT PRODUCT: ENTER THE LETTER NAMES OF"..
...."..TWO VECTORS. THE COMPUTER WILL P
RINT"......"..THE VECTORS IN COMPONENT F
ORM AND......"..THEIR DOT PRODUCT.".+...
."...ANGLE: ENTER THE LETTER NAMES OF TW
O ".Z...."..VECTORS. THE COMPUTER WILL
PRINT THE"......"..VECTORS IN COMPONENT
FORM AND THE "......"..MEASURE OF THE AN
GLE BETWEEN THE.J...."..VECTORS":.835:.8
50...A.."..CHANGE: USED FOR CHANGING THE
VALUE"...B.."..OF ONE COMPONENT OF A VE
CTOR.".N.C.."....NOTE: YOU WILL BE ASKED
TO ENTER THE".}.D.."....DIMENSION OF TH
E VECTORS YOU WILL BE...E.."....WORKING
WITH. ENTER THE DIMENSION".W.F.."....OF
THE LARGEST OF THESE VECTORS."...G.."..
FOR EXAMPLE IF YOU WERE WORKING WITH".5.
H.."..(2,2) AND (3,1,4) YOU WOULD ENTER
THAT".C.I.."..YOU WILL BE WORKING IN 3 D
IMENSIONS."...K.."..YOU WOULD THEN ENTER
(2,2) AS (2,2,0)". .Q..835:.850.H.S..".
.NOTE: CROSS PRODUCTS CANNOT BE"...U..".
.CALCULATED FOR VECTORS WITH FEWER...W..
"..THAN THREE OR MORE THAN FIVE.,.X.."..
DIMENSIONS.".X.Y.."...NOTE: RESET CLEARS
THE REGISTER OF.N...."..ALL VECTORS."..
...."...IF AT ANY TIME YOU WISH TO RETUR
N".D...."..TO THE MENU ENTER 'H' AND PRE
SS "......"..THE <RETURN> KEY."......835
:UT$." VECTOR ALGEBRA"......UZ.1..UP%:.2
17.......9.... ** TEACHER INSTRUCTIONS *
*.I....".":.UT,UL%:.B(50003).0..53281,2:
.53280,10. ...UP.0:UT$." VECTOR ALGEBRA"
:UG$."TEACHER INST":.850.N....".. T
O THE BEST OF OUR KNOWLEDGE,."......"
THIS PROGRAM IS IN THE PUBLIC.".#...."
DOMAIN. IF THIS IS NOT THE CASE.".@...
." PLEASE CONTACT:...".J...." COM
MODORE BUSINESS MACHINES."......"
3370 PHARMACY AVE......." AG
INCOURT, ONTARIO".S...." CANADA
M1W 2K4"......" (416) 499-42
92".....UP.1:. 835:. 850:.4...." ..P
ROGRAM NAME: VECTOR ALGEBRA..V...."
WRITTEN BY : UNKNOWN..Q...." UPGRAD
ED BY : ......." .THIS PROGRAM WILL
RUN ON ANY........" PET 64 COMPU
TER......." COMMODORE 64 COMPUTE
R...D..835:UT$." VECTOR ALGEBRA"...N..UZ
.1..UP%:.217...W...@.X.. ** PROGRAM MODI
FICATION INST **.Q.Y..".":.UT,UL%.Q.].UP
.0:UG$."PROGRAM MOD":.850.Z....835......
UZ.1..UP%:.217............ ** TO USE 803
2 LOAD CBM4032 **...F..".....BEFORE RUNN
ING THIS PROGRAM ON AN 8032 ...%.P.."
LOAD THE 'CBM 4032' PROGRAM.........
....".0.Z..UU.71.6.....[.... ** TO USE 8
032 LOAD CBM4032 **......"....BEFORE RUN
NING THIS PROGRAM ON AN 8032 ..LOAD CBM
4032 PROGRAM"......1093:..R. .. ** T I
T L E P A G E **.. ".."....";:.UT,UU%:
.B(50003).0..53280,14:.53281,6.. $..I.1.
38:."...";:..4 &..I.1.22:.".....";:..L (
..I.1.37:.".....";:..D *..I.1.22:.".....
";:... ,.."...........................
... ..."................... . . ...L 0.
."................... . ..... 2..".....
............... ...!4.."..............C
O M M O D O R E...5!6.."...............
EDUCATIONAL...T!8.."................SOFT
WARE.O!:.. ** COMMODORE LOGO **..!;..H(U
D$,24);"..........PRESS SPACE BAR OR WAI
T.":I.0.I!<..A$:.A$.." ".I.I.1:.I.250.82
8..!>.T1$."":T2$."":T3$."":T4$."":I.0..!
@..300.."C.. ** SPACE BAR PRESS **.M"H..
H(UD$,24);".......PRESS SPACE BAR TO CON
TINUE.":.UO,0.D"L..UI$:.UI$.." ".844.J"N
...."R.. ** PAGE DESIGN ROUTINE **.."T.U
P.UP.1.."W.."."H(UT$.UP$,21);I(UP$.UG$.D
(UP),18).."\.." ------------------------
--------------"..#^..FK.FK.0:.870..#`..U
H..0.870.D#A..H(UD$,24);H(UP$,7);"HELP -
PRESS H <RETURN>".U#F.UH.0:."..":..T#
K.. ** PLEASE WAIT REMARK **..#P..H(UD$,
24);" ONE MOMENT PLEASE...
"..#U...M#... ** SET UP VARIABLES **..$
..UX$."H":.UQ%(1000):UB.32768:U1.196:U2.
197:U3.198:U4.216:UC.167:UU.1024.V$..UT.
59468:UU%.12:UL%.14:UP%.1146:UM.32768:.
50003,0:UO.158..$...B(50003).0.UB.1024:U
1.209:U2.210:U3.211:U4.214:UC.204:UU.204
8.X$...B(50003).0.UT.53272:UU%.21:UL%.23
:UP%.2139:UM.1024:UO.198..$..UD$."......
..................."..%..UP$."
".{%..UT$."
VECTOR ALGEBRA ":.PLACE PROGRAM TITL
E HERE !!!!!!!!!!!!!!!!!***..%..G.25:.A(
6),B(G),MM(G,G),W(G,G)..%.....%... ** SE
T VARIABLES **.G%...900.M%..:..%... ** C
HECK FOR 8032 **..&...".":." ":. SHIFTED
SPACE..&...B(UB.40)..96..700.6&... ** M
EMORY CHECK **.J&... .(0).500 .937.X&...
"....THIS MACHINE DOES NOT HAVE ENOUGH."
..&..."MEMORY TO RUN THIS PROGRAM !"..&.
..UU.71..&....G&..."..":.B(50003).0.962.
.&... ** BASIC 2.0 OR 4.0 OR C-64 SE
TUP **.4'...1075,133:.1076,144:.1077,234
:.1079,4:.1080,133:.1081,145.J'...1091,1
55:.1098,133:.1099,144:.1100,234:.1103,1
33..'...1104,145:.1105,234:.1082,234..'.
..B(50003)..160.955.R'...1093,88:.1094,2
28:.1097,85:.1102,228:.965..'...B(50003)
..1.990..(...1093,49:.1094,230:.1097,46:
.1102,230:.965.P(B..2099,141:.2100,20:.2
101,3:.2103,8:.2104,141:.2105,21..(C..21
06,3:.2115,145:.2117,52:.2118,234:.2121,
49:.2122,141.F(D..2123,20:.2124,3:.2126,
234:.2127,141:.2128,21:.2129,3..(E..UU.4
8:. DISABLE STOP KEY..(J..800:. TITLE..)
T..300:. MENU.6)...".THE PGM WILL NOT WO
RK ON THIS MACHINE!":..K)...UZ.1..UP%:.U
P%:UZ.0:. ** PROGRAM STARTS HERE **..)..
."..";:.:.B(50003).0..53281,6:.53280,14.
.)..UG$."INTRODUCTION":UP.0:FK.1:.850..)
..."....".12)".VECTOR ALGEBRA"..*...".
COPYRIGHT 1978.-*...".....COMM
ODORE BUSINESS MACHINES,INC.".V*..G..((.
(O).450).10).1:FF.0:.G.12.G.12.G*...I.1.
3000:.:.U*..UP.1:.850..*... "....NOTE:".
.* .."..........".G*%.."..THE VECTORS MA
Y NOT HAVE A DIMENSION"..*&.."..GREATER
THAN ";.(G)..*...835..*B.UP.1:.850.@+L..
"..DIMENSION OF VECTORS? ";:UL.2:US$."01
23456789H":.35:N%.E(UR$).X+V.. N%.G . N%
.12.."...DIMENSION TOO LARGE":.835:.1090
..+`..N%..5.1190..+J.."..THIS.DIMENSION
IS TOO LARGE FOR CROSS"..+T.."..PRODUCTS
. WOULD YOU LIKE TO CONTINUE"..+U.."..AN
YWAY?(Y/N) ";.6,~.UL.1:US$."HYN":.35:.UR
$."Y".1190:.A$."Y".1190:.10000.@,...1090
.P,..TK.(A$."N").T,..UH.1:UG$."OPERATION
S":UP.0:.850..,..."...+.:ADD .M.:RENAM
E .Y.:DISPLAY .C.:CHANGE"..,D.."...E.:
ENTRY .-.:SUBTR. .L.:LENGTH .V.:CROSS
P..-N.."...R.:RESET .D.:DOT P. .A.:AN
GLE .Q.:QUIT".`-..."..ENTER AN OPERATI
ON TO BE PERFORMED: ";:UL.1:US$."+-YMLDC
EVRDANQ".O-...35:A$.UR$..-..X$." ":Y$."
"..-..XA..1:YA..1..-...A$."R"..:.900:.98
0..-(..A$."E".UG$."ENTER VECTORS":UP.0:U
H.1:.850:.1440:.1200...2..A$."C".UP.0:UG
$."CHANGE ELEMENT":.850:.1490:.1200.Q.<.
.A$."Y".UG$."DISPLAY":UP.0:.850:.20000:.
835:.1200...P..A$."A".UG$."ANGLE BETWEEN
":UP.0:.850:.1830:.835:.1200...Z..A$."L"
.UG$."FIND LENGTH":UP.0:.850:.2260:.1200
...[..A$."D".UG$."DOT PRODUCT":UP.0:.850
:.2260:.835:.1200.9/D..A$."V".UG$."CROSS
PRODUCT":UP.0:UH.1:.850:.2410:.835:.120
0.R/N..A$."-".UG$."SUBTRACTION":UP.0:.85
0:.2590:.835:.1200../O..A$."+".UG$."ADDI
TION":UP.0:.850:.2590:.835:.1200../X..A$
."M".UG$."RENAME VECTOR":UP.0:.850:.2040
:.835:.1200../...A$."Q"..."0...".WRONG E
NTRY. ENTER ? FOR LIST":.835:.1200.F0 ..
"..CHOOSE FROM (A,B,C,D,E,F)-".P0..."..W
HICH WOULD YOU LIKE TO ENTER? ";.Z0...17
80..0....TK.1470..0..."..VECTOR ";X$:.".
.ENTER ELEMENT#:.".K0...I.1.N%:.45000:.H
Y$;..1E..51000:US$."HE-0123456789+":.35:
MM(R%,I).E(UR$):...1F..48000.$1G..UR$."Y
"..850:.1440.*1H...?1R..FL.1.FL.0:.1530.
O1S.Y$."F":.50000:UL.1:US$."HABCDEF":.35
:X$.UR$..1...2110:.FF.1.XA.0:..1..."..";
X$;:.30000.Y1..."............WOULD YOU L
IKE TO MAKE A CHANGE?(Y/N) .. ";..1..UL
.1:US$."YHN":.35:..2"..UR$."Y".1600..2,.
.UR$."N".I.0:..L2@.."..ENTER THE NUMBER
OF THE ELEMENT WHICH":.40000..2A..".....
............IS TO BE CHANGED(1-";GR$;"
... ";..2B.UL.2:US$."-H0123456789":.35:
.E(UR$).N%.1601.D2C.Y.E(UR$)..3D.."..NEW
VALUE OF ELEMENT #";Y;:UL.10:.35:MM(R%,
Y).E(UR$)..3J.MM(R%,Y).E(UR$).)3T..850:F
L.1:.1490.F3^.A0$.". .":A1$." ":AA$.""._
3H..A0$".";:.A.1.60:.A$..3R..A$.""..:A$.
A0$:A0$.A1$:A1$.A$:.1640..3|.A.60:.:A.F(
A$).127:.A.13.." ":..Q3...A.19.A.17.A.29
.A.34.A$.".".1640..3...A.20.C(AA$).1.163
0..4...A.20.C(AA$).1..A$;:.1630.04..AA$.
AA$.A$:.A.20.AA$.H(AA$,C(AA$).2).?4...A$
;:.1640.G4....XA.."..CHOOSE FROM (A,B,C,
D,E,F)"..4..."..VECTOR TO BE DISPLAYED?
";..4..UL.1:US$."HABCDEF":.35:X$.UR$..4B
.Y$."F":.2110..4L..FF.1.XA.0:."..INPUT E
RROR":.1720..4V.."..";X$;:.30000.15...".
.DISPLAY ANOTHER VECTOR?(Y/N)";:UL.1:US$
."YN":.35.I5...UR$."Y"..850:.1720.R5...8
35.X5....Z5..UL.1:US$."HABCDEF":.35:X$.U
R$..5...I.1.6:.J("ABCDEF",I,1).X$.A(I).1
:R%.I..5.....5.....5&.."..FINDING THE AN
GLE BETWEEN TWO VECTORS"..60.."..CHOOSE
FROM (A,B,C,D,E,F)"..61.."..ENTER TWO VE
CTORS:".Z62.."..VECTOR #1: ";:UL.1:US$."
ABCDEFH":.35:X$.UR$:.18000.G65..:.30000.
.6:.."..VECTOR #2: ";:.35:Y$.UR$:.18000.
.6;..:.30000..6D..2110..6N.S.0.T6X..L.1.
N%:.MM(R%,L)...MM(S%,L).1900..6B..:..6L.
.FF.1..".INPUT ERROR":.1840..7V..I.1.N%.
-7..S.S.MM(R%,I).MM(S%,I):.:BQ.0:SQ.0.I7
...I.1.N%:SQ.SQ.MM(R%,I).MM(R%,I):BQ.BQ.
MM(S%,I).MM(S%,I).~7...:TQ..(SQ)..(BQ)..
7.....7...S.0.R1...2:.1990.H7..CS.S.TQ:S
I..(1.(S.TQ).(S.TQ)):R1.A(SI.CS)..7...R1
.0.R1..(R1)..7F....8K.."..MEASURE OF ANG
LE BETWEEN VECTORS IS:".?8L.."..";.(R1.1
0000..5).10000;" RADIANS ";.K8M...(R
1.180...10000..5).10000;" DEGREES";.U8N.
.2020.{8Z....8..S.0:SQ.0:BQ.0..8.....8..
."..CHOOSE FROM (A,B,C,D,E,F)-".X8..."..
VECTOR TO BE RENAMED? ";..8..UL.1:US$."H
ABCDEF":.35:X$.UR$..9..."..CHOOSE FROM (
A,B,C,D,E,F)-".D9..."..NEW NAME FOR VECT
OR ";X$;" ";.F9..UL.1:US$."HABCDEF":.35:
Y$.UR$.L9....V9...2110..9...FF..1.2090..
9 ..".INPUT ERROR.RE-TRY":.2050.G9*..J.1
.N%:MM(S%,J).MM(R%,J):..M94....9>.FF.0:.
X$."A".R%.1:.2180..:H..X$."B".R%.2:.2180
..:R..X$."C".R%.3:.2180..:\..X$."D".R%.4
:.2180.E:F..X$."E".R%.5:.2180.\:P..X$."F
".R%.6:.2180.K:Z.FF.1:.2250..:...Y$."A".
S%.1:.2250..:...Y$."B".S%.2:.2250..:...Y
$."C".S%.3:.2250.G:...Y$."D".S%.4:.2250.
.:...Y$."E".S%.5:.2250..:...Y$."F".S%.6:
.2250..:...2170..;J....;T..A$."L".2350.F
;..."..FINDING THE DOT PRODUCT OF TWO VE
CTORS".J;..."..CHOOSE FROM (A,B,C,D,E,F)
-"..;..."..ENTER TWO VECTORS:".I;..."..V
ECTOR #1: ";:UL.1:US$."ABCDEF":.35:X$.UR
$:.18000:.:.30000..;..."..VECTOR #2: ";:
.35:Y$.UR$:.18000:.:.30000..<...2110.$<.
..FF.1..".INPUT ERROR":.2280.L<..S.0:.I.
1.N%:S.S.MM(R%,I).MM(S%,I):..K<..."..THE
DOT PRODUCT IS ";S.Q<$...|<..Y$."F". <3
.."..CHOOSE FROM (A,B,C,D,E,F)-".B<>..".
.FIND LENGTH OF VECTOR: ";..<?.UL.1:US$.
"HABCDEF":.35:X$.UR$..<B..2110:.FF.1.236
0..=L.S.0:.I.1.N%:S.S.MM(R%,I).2:..H=V.S
..(S):."...THE LENGTH OF VECTOR ";X$;":"
.U=X..:.30000.E=Y.. "..IS ";S..=Z.."....
WOULD YOU LIKE TO FIND THE LENGTH OF"..=
[.."..ANOTHER VECTOR?(Y/N) ";..=\.UL.1:U
S$."HYN":.35:.UR$."Y"..850:.2350..=`....
=J..875:."....."..=L....>M...*>T..N%.3..
"...DIMENSION TOO SMALL":..P>~..N%.5..".
..DIMENSION TOO LARGE":..N>..K%.0:.I.1.N
%:.A(I).0.2490..>..K%.K%.1:.J.1.N%:MM(K%
,J).MM(I,J)..>.....>.....>D.KK%.N%.1:ZF.
0.R>N.V.1:G.0:P.1:.Q.1.N%:.B.1.KK%..>X..
J.1.N%:.J.Q.2540..?..W(P,V).MM(B,J):V.V.
1. ?...:P.P.1:V.1:.:Z.(.1).(1.Q).*?...26
90.J?..G.G.1:MM(6,G).Z.K:P.1:V.1:..X?..A
A$."YF":..?..."..THE CROSS PRODUCT OF TH
E NON-ZERO"..?..."..VECTORS IN THE REGIS
TER IS:"..?...:R%.6:.30000..?..."..THIS
RESULT HAS BEEN STORED AS VECTOR F"..?..
...@..SB$."ADDED":TT$."TO":.4@(..A$ ."-"
.SB$."SUBTRACTED":TT$."FROM".W@-..".CHOO
SE FROM (A,B,C,D,E,F)-".X@2.."..VECTOR T
O BE ";SB$;"? ";..@3.UL.1:US$."HABCDEF":
.35:X$.UR$:.18000:.:.30000.Z@4.."..ENTER
THE.VECTOR ";TT$;" WHICH VECTOR "..A5..
"..";X$;" IS TO BE ";SB$;": ";:UL.1:US$.
"HABCDEF":.35:Y$.UR$.0A6..18000:.:.30000
.EAF..2110:.FF.1.2610.]AP.SN.1:. A$."-".
SN..1.IAZ..I.1.N%..AD.MM(6,I).MM(S%,I).S
N.MM(R%,I)..AN....AX.R%.6:."..RESULT:.";
..AY..30000..AZ.."..THIS RESULT HAS BEEN
SAVED AS VECTOR F"..A}....A...2710:.285
0:.2830..B.....B..J.1:JJ.1.'B ..W(J,JJ).
.0.2780.?B..J.J.1:.J..N%.1.2720.NB...ZF.
1.2770.ZB...".0 DIAGONAL ELEMENT WHICH C
ANNOT BE "..BH..".RESOLVED.BY RE-ARRANGI
NG."..BI..".MAY BE FATAL.":ZF.1.ABR..282
0.OB...J.1.2820..B...C.1.N%.1..B..W(1,C)
.W(1,C).W(J,C)..B.....C.....C..K.1:.I.1.
N%.1.'C..K.K.W(I,I):.:..?C".. TRIANGULAR
IZATION.GC,.K.1.`C6.I.K.1:.W(K,K).0.2950
.}C@.M.W(I,K).W(K,K):W(I,K).0..CJ.J.K.1.
.CT.W(I,J).W(I,J).M.W(K,J)..C^..W(I,I).0
.2950.LCH..J..N%.J.J.1:.2900..CR..I..N%.
1.I.I.1:.2880..C|..K..N%.2.K.K.1:.2870..
D....+D.'.UR$."N".."....TRY AGAIN-.":.83
5:..<DPF.X$."A".R%.1.MDZF.X$."B".R%.2.^D
DF.X$."C".R%.3.ODNF.X$."D".R%.4..DXF.X$.
"E".R%.5..D.F.X$."F".R%.6..D.F.Y$."A".R%
.1..D.F.Y$."B".R%.2.DD F.Y$."C".R%.3.UD.
F.Y$."D".R%.4..D.F.Y$."E".R%.5..D.F.Y$."
F".R%.6..DHF...E N."..A";:R%.1:.30000.-E
.R."..B";:R%.2:.30000.EE.U."..C";:R%.3:.
30000.]EXY."..D";:R%.4:.30000.UE.]."..E"
;:R%.5:.30000..E.A."..F";:R%.6:.30000..E
.E...E0U...E.UF.1..E.U.H(D(MM(R%,1)),1).
"-".F.0.RE$WQ$.D(MM(R%,1))..E.WQ$."(".I(
Q$,C(Q$).F).","..E.W.".";Q$;..FPX.N%.2.3
4000..F.Y.I.2.N%.1."F.ZF.1.@FZZ.H(D(MM(R
%,I)),1)."-".F.0.SF.{Q$.D(MM(R%,I)).LF.}
Q$.I(Q$,C(Q$).F).",".UF.~.Q$;.|F...I..F.
.F.1..F@..H(D(MM(R%,N%)),1) ."-".F.0..FP
.Q$.D(MM(R%,N%)).QF4.Q$.I(Q$,C(Q$).F).")
".YF...Q$..F..F.0:...F..Q$.I(Q$,C(Q$).F)
.")"..G...Q$..G .F.0:...G@.GR$.I(D(N%),C
(D(R%)).1).")".NGE.GR$.I(D(N%),C(D(R%)).
F).")".TGJ...SGH.HY$.I(D(I),C(D(I)).1)."
. "..GR..C(HY$).3.HY$." ".HY$..GV..I.19.
UP.1:.850..GW..I.10.."............";..GX
..I.9.HY$."...................".HY$..G..
..$H...".......................ENTER ANO
THER VECTOR?(Y/N) ";.;H..UL.1:US$."HYN":
.35.AH....BHPC."..CHOOSE FROM (A,B,C,D,E
)"..HZC."..VECTOR TO BE CHANGED? ";..HDC
.. H8G.N%.19.UL.2:.51060..HBG.N%.15.UL.3
:.51060.NHLG.N%.12.UL.4:.51060..HVG.N%.1
0.UL.5:.51060..H`G.N%.5.UL.6:.51060..IJG
UL.10..ITG....
> CLICK IMAGE PREVIEW FOR FULL MODAL