RESULTANTS.C3
FILE INFORMATION
FILENAME(S): RESULTANTS.C3
FILE TYPE(S): PRG
FILE SIZE: 7.7K
FIRST SEEN: 2025-11-30 01:07:52
APPEARS ON: 2 disk(s)
FILE HASH
665c0c3ea457c4b0b69de68779c377cea5a042cb67bf7f601556c4b4b89511cd
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | RESULTANTS.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 34 | 1 | DOWNLOAD FILE |
| L EHRNEN | RESULTANTS.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 34 | 1 | 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 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."| 00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..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 2C 0A 5A | REQUEST +++.,.Z| 00000200: 00 8B 55 52 24 B2 55 58 24 A7 99 22 9D 20 22 3B |..UR$.UX$..". ";| 00000210: 3A 89 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 |:.195:. EXIT TO | 00000220: 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 3B 0A 5F |HELP ROUTINE.;._| 00000230: 00 8B 55 46 B2 31 A7 8D 32 34 30 00 48 0A 64 00 |..UF.1..240.H.d.| 00000240: 55 46 B2 30 3A 99 3A 8E 00 61 0A 66 00 8F 20 2B |UF.0:.:..a.f.. +| 00000250: 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B |+ CHECK DELETE +| 00000260: 2B 00 72 0A 69 00 8B C3 28 55 52 24 29 B3 31 A7 |+.r.i...(UR$).1.| 00000270: 35 30 00 8A 0A 6E 00 55 52 24 B2 C8 28 55 52 24 |50...n.UR$..(UR$| 00000280: 2C C3 28 55 52 24 29 AB 31 29 00 9C 0A 73 00 99 |,.(UR$).1)...s..| 00000290: 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 C3 0A 78 |". ..";:.50...x| 000002A0: 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 |.. ++ CHECK FOR | 000002B0: 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 |VALID CHARACTERS| 000002C0: 20 2B 2B 00 D5 0A 7D 00 8B C3 28 55 53 24 29 B2 | ++...}...(US$).| 000002D0: 30 A7 31 35 30 00 E6 0A 82 00 81 55 53 B2 31 A4 |0.150......US.1.| 000002E0: C3 28 55 53 24 29 00 FD 0A 87 00 8B 55 49 24 B2 |.(US$)......UI$.| 000002F0: CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 03 0B |.(US$,US,1).....| 00000300: 8C 00 82 00 10 0B 91 00 55 49 24 B2 22 22 3A 8E |........UI$."":.| 00000310: 00 2B 0B 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 |.+.... ** STANDA| 00000320: 52 44 20 49 4E 50 55 54 20 2A 2A 00 3C 0B 98 00 |RD INPUT **.<...| 00000330: 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 4D 0B 9B |..(UI$).46...M..| 00000340: 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 6A 0B |..UI$..(32)...j.| 00000350: A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 |....(UI$).48..(U| 00000360: 49 24 29 B1 35 37 A7 31 37 30 00 70 0B A5 00 8E |I$).57.170.p....| 00000370: 00 8D 0B AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 |.......(UI$).65.| 00000380: C6 28 55 49 24 29 B1 39 30 A7 31 38 30 00 93 0B |.(UI$).90.180...| 00000390: AF 00 8E 00 B7 0B B4 00 8B C6 28 55 49 24 29 B3 |..........(UI$).| 000003A0: 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 |193..(UI$).218.U| 000003B0: 49 24 B2 22 22 3A 8E 00 DA 0B B9 00 8B C2 28 55 |I$."":........(U| 000003C0: 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 |T).UU%.UI$..(.(U| 000003D0: 49 24 29 AB 31 32 38 29 3A 8E 00 E0 0B BB 00 8E |I$).128):.......| 000003E0: 00 ED 0B BE 00 55 49 24 B2 22 22 3A 8E 00 12 0C |.....UI$."":....| 000003F0: C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C |..UF.1:. +++ HEL| 00000400: 50 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B |P ROUTINE EXIT +| 00000410: 2B 2B 00 1B 0C C5 00 8D 32 35 30 00 24 0C C8 00 |++......250.$...| 00000420: 8D 32 34 35 00 39 0C CD 00 81 55 51 B2 55 42 A4 |.245.9....UQ.UB.| 00000430: 28 55 42 AA 31 30 32 34 29 00 55 0C D2 00 55 51 |(UB.1024).U...UQ| 00000440: 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 |%(UQ.UB)..(UQ):.| 00000450: 3A 99 22 93 22 00 68 0C D7 00 55 5A B2 31 3A 55 |:.".".h...UZ.1:U| 00000460: 56 25 B2 C2 28 55 54 29 00 71 0C D8 00 89 33 30 |V%..(UT).q....30| 00000470: 30 00 96 0C D9 00 55 5A B2 30 3A 55 53 24 B2 55 |0.....UZ.0:US$.U| 00000480: 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 55 4A |J$:UG$.UK$:UP.UJ| 00000490: 3A 55 4C B2 55 4B 00 CD 0C DA 00 8B C2 28 35 30 |:UL.UK.......(50| 000004A0: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 31 3A |003).0..53281,1:| 000004B0: 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 3A 97 |.".";:.53281,6:.| 000004C0: 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 D7 0C |53280,14:.220...| 000004D0: DB 00 99 22 93 22 3B 00 F7 0C DC 00 55 54 24 B2 |...".";.....UT$.| 000004E0: 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 |UL$:.UT,UV%:.UQ.| 000004F0: 55 42 A4 31 39 34 33 00 0C 0D E1 00 97 55 51 2C |UB.1943......UQ,| 00000500: 55 51 25 28 55 51 AB 55 42 29 3A 82 00 18 0D E6 |UQ%(UQ.UB):.....| 00000510: 00 97 55 31 2C 55 31 25 00 24 0D E8 00 97 55 32 |..U1,U1%.$....U2| 00000520: 2C 55 32 25 00 30 0D E9 00 97 55 34 2C 55 34 25 |,U2%.0....U4,U4%| 00000530: 00 3E 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 46 |.>....U3,U3%.1.F| 00000540: 0D EB 00 89 33 35 00 78 0D F0 00 55 44 25 B2 28 |....35.x...UD%.(| 00000550: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%| 00000560: 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 2C |).UB).40:..(UD$,| 00000570: 55 44 25 AA 31 29 3A 8E 00 B3 0D F5 00 99 C8 28 |UD%.1):........(| 00000580: 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 |UD$,24);" | 00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 | .| 000005A0: 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 20 | HELP COMING . | 000005B0: 22 3A 8E 00 DF 0D FA 00 55 31 25 B2 C2 28 55 31 |":......U1%..(U1| 000005C0: 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 B2 |):U2%..(U2):U3%.| 000005D0: C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 00 |.(U3):U4%..(U4).| 000005E0: 07 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 |....UJ$.US$:UK$.| 000005F0: 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 55 |UG$:UL$.UT$:UJ.U| 00000600: 50 3A 55 4B B2 55 4C 00 0D 0E FF 00 8E 00 1E 0E |P:UK.UL.........| 00000610: 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 24 |,.. ** MENU **.$| 00000620: 0E 2D 01 3A 00 53 0E 2E 01 99 22 93 22 3A 97 55 |.-.:.S....".":.U| 00000630: 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UU%:..(50003).| 00000640: 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 38 |0..53281,9:.5328| 00000650: 30 2C 38 00 59 0E 2F 01 3A 00 76 0E 31 01 99 22 |0,8.Y./.:.v.1.."| 00000660: 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000670: 20 4D 45 4E 55 22 00 A5 0E 36 01 99 22 20 2D 2D | MENU"...6.." --| 00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000006A0: 2D 2D 2D 2D 22 00 CA 0E 3B 01 99 22 11 11 20 20 |----"...;..".. | 000006B0: 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 4E 20 | 1. BEGIN | 000006C0: 52 45 53 55 4C 54 41 4E 54 22 00 F4 0E 40 01 99 |RESULTANT"...@..| 000006D0: 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 |".. 2. S| 000006E0: 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 |TUDENT INSTRUCTI| 000006F0: 4F 4E 53 22 00 1E 0F 45 01 99 22 11 11 20 20 20 |ONS"...E..".. | 00000700: 20 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 | 3. TEACHER| 00000710: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 3A | INSTRUCTIONS".:| 00000720: 0F 4F 01 99 22 11 11 20 20 20 20 20 20 20 34 2E |.O..".. 4.| 00000730: 20 20 20 51 55 49 54 11 11 22 00 69 0F 54 01 99 | QUIT..".i.T..| 00000740: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------| 00000750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000760: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 94 0F 59 01 99 22 |--------"...Y.."| 00000770: 11 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 |.. PRESS A| 00000780: 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 | NUMBER KEY (1-4| 00000790: 29 20 22 3B 00 BC 0F 5E 01 55 4C B2 31 3A 55 53 |) ";...^.UL.1:US| 000007A0: 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 |$."1234":.35:. I| 000007B0: 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 C7 0F 60 |NPUT ROUTINE...`| 000007C0: 01 55 53 24 B2 22 22 00 E4 0F 63 01 91 C5 28 55 |.US$.""...c...(U| 000007D0: 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 |R$).1000,400,500| 000007E0: 2C 33 39 36 00 ED 0F 68 01 89 33 30 30 00 14 10 |,396...h..300...| 000007F0: 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 |... ** RE-ENABLE| 00000800: 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E | STOP KEY AND EN| 00000810: 44 20 2A 2A 00 43 10 8C 01 8B C2 28 35 30 30 30 |D **.C.....(5000| 00000820: 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 |3)..1..(50003)..| 00000830: 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 |160..(50003)..0.| 00000840: 33 39 39 00 6D 10 8D 01 9E 55 55 AA 37 31 3A 8B |399.m....UU.71:.| 00000850: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328| 00000860: 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 79 10 |1,6:.53280,14.y.| 00000870: 8E 01 99 22 9A 93 22 3A 80 00 84 10 8F 01 8D 38 |..."..":.......8| 00000880: 37 35 3A 8E 00 A5 10 90 01 8F 20 2A 2A 20 53 54 |75:....... ** ST| 00000890: 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |UDENT INSTRUCTIO| 000008A0: 4E 53 20 2A 2A 00 D4 10 95 01 99 22 93 22 3A 97 |NS **......".":.| 000008B0: 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UL%:..(50003)| 000008C0: B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 |.0..53281,0:.532| 000008D0: 38 30 2C 30 00 0B 11 9A 01 55 54 24 B2 22 20 D2 |80,0.....UT$." .| 000008E0: C5 D3 D5 CC D4 C1 CE D4 22 3A 55 48 B2 31 3A 55 |........":UH.1:U| 000008F0: 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 |P.0:UG$.".TUDENT| 00000900: 20 C9 4E 53 54 22 3A 8D 38 35 30 00 39 11 9F 01 | .NST":.850.9...| 00000910: 99 22 11 20 11 11 20 20 20 1D 1D D4 48 49 53 20 |.". .. ...HIS | 00000920: 50 52 4F 47 52 41 4D 20 43 41 4E 20 42 45 20 55 |PROGRAM CAN BE U| 00000930: 53 45 44 20 41 53 20 41 22 00 66 11 A4 01 99 22 |SED AS A".f...."| 00000940: 11 20 20 20 20 20 20 44 52 49 4C 4C 20 4F 52 20 |. DRILL OR | 00000950: 53 49 4D 50 4C 59 20 41 20 4D 41 54 48 45 4D 41 |SIMPLY A MATHEMA| 00000960: 54 49 43 41 4C 22 00 B8 11 A8 01 99 22 11 20 20 |TICAL"......". | 00000970: 1D 1D 20 20 55 54 49 4C 49 54 59 2E 20 D9 4F 55 |.. UTILITY. .OU| 00000980: 20 49 4E 50 55 54 20 56 45 43 54 4F 52 53 20 49 | INPUT VECTORS I| 00000990: 4E 22 3A 99 22 11 20 20 20 1D 20 20 45 49 54 48 |N":.". . EITH| 000009A0: 45 52 20 50 4F 4C 41 52 20 4F 52 20 52 45 43 54 |ER POLAR OR RECT| 000009B0: 41 4E 47 55 4C 41 52 22 00 E2 11 AE 01 99 22 11 |ANGULAR"......".| 000009C0: 1D 20 20 20 20 1D 46 4F 52 4D 20 41 4E 44 20 54 |. .FORM AND T| 000009D0: 48 45 20 43 4F 4D 50 55 54 45 52 20 47 49 56 45 |HE COMPUTER GIVE| 000009E0: 53 22 00 22 12 B3 01 99 22 11 20 1D 1D 1D 20 20 |S"."....". ... | 000009F0: 59 4F 55 20 54 48 45 20 52 45 53 55 4C 54 41 4E |YOU THE RESULTAN| 00000A00: 54 20 56 45 43 54 4F 52 20 49 4E 22 3A 99 22 11 |T VECTOR IN":.".| 00000A10: 20 20 1D 20 20 20 50 4F 4C 41 52 20 46 4F 52 4D | . POLAR FORM| 00000A20: 2E 22 00 2B 12 B8 01 8D 38 33 35 00 3F 12 EA 01 |.".+....835.?...| 00000A30: 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 |.UZ.1..UP%:.217.| 00000A40: 45 12 F3 01 8E 00 66 12 F4 01 8F 20 2A 2A 20 54 |E.....f.... ** T| 00000A50: 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 |EACHER INSTRUCTI| 00000A60: 4F 4E 53 20 2A 2A 00 96 12 F5 01 99 22 93 22 3A |ONS **......".":| 00000A70: 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 |.UT,UL%:..(50003| 00000A80: 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 |).0..53281,2:.53| 00000A90: 32 38 30 2C 31 30 00 CD 12 F6 01 55 54 24 B2 22 |280,10.....UT$."| 00000AA0: 20 D2 C5 D3 D5 CC D4 C1 CE D4 22 3A 55 48 B2 31 | .........":UH.1| 00000AB0: 3A 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 |:UP.0:UG$.".EACH| 00000AC0: 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 FB 12 |ER .NST":.850...| 00000AD0: F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 |...".. .O T| 00000AE0: 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B |HE BEST OF OUR K| 00000AF0: 4E 4F 57 4C 45 44 47 45 2C 11 22 00 24 13 F8 01 |NOWLEDGE,.".$...| 00000B00: 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 |." THIS PROGRA| 00000B10: 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C |M IS IN THE PUBL| 00000B20: 49 43 11 22 00 50 13 F9 01 99 22 20 20 20 44 4F |IC.".P...." DO| 00000B30: 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 |MAIN. .F THIS I| 00000B40: 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 |S NOT THE CASE."| 00000B50: 00 6D 13 FA 01 99 22 20 20 20 50 4C 45 41 53 45 |.m...." PLEASE| 00000B60: 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 97 13 | CONTACT:..."...| 00000B70: FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 |..." .OMMOD| 00000B80: 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 |ORE .USINESS .AC| 00000B90: 48 49 4E 45 53 11 22 00 BA 13 FC 01 99 22 20 20 |HINES."......" | 00000BA0: 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 | 3370 .HA| 00000BB0: 52 4D 41 43 59 20 C1 56 45 2E 00 DE 13 FD 01 99 |RMACY .VE.......| 00000BC0: 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 |" .GINC| 00000BD0: 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 00 |OURT, .NTARIO"..| 00000BE0: 14 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 |...." .| 00000BF0: 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 |ANADA .1. 2.4"| 00000C00: 00 20 14 FF 01 99 22 20 20 20 20 20 20 20 20 20 |. ...." | 00000C10: 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 | (416) 499-4292"| 00000C20: 00 3B 14 00 02 55 48 B2 31 3A 55 50 B2 31 3A 8D |.;...UH.1:UP.1:.| 00000C30: 20 38 33 35 3A 8D 20 38 35 30 3A 00 61 14 01 02 | 835:. 850:.a...| 00000C40: 99 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D |." ...ROGRAM| 00000C50: 20 CE 41 4D 45 3A 20 D2 45 53 55 4C 54 41 4E 54 | .AME: .ESULTANT| 00000C60: 11 00 87 14 02 02 99 22 20 20 20 20 20 D7 52 49 |......." .RI| 00000C70: 54 54 45 4E 20 C2 59 20 20 3A 20 C1 4E 44 59 20 |TTEN .Y : .NDY | 00000C80: C7 41 4D 42 4C 45 11 00 AB 14 03 02 99 22 20 20 |.AMBLE......." | 00000C90: 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A | .PGRADED .Y :| 00000CA0: 20 CE 45 49 4C 20 C8 55 4E 54 11 00 D6 14 04 02 | .EIL .UNT......| 00000CB0: 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F |." ..HIS PRO| 00000CC0: 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E |GRAM WILL RUN ON| 00000CD0: 20 41 4E 59 11 11 00 F6 14 07 02 99 22 20 20 20 | ANY........" | 00000CE0: 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 C3 CF CD | ... 64 ...| 00000CF0: D0 D5 D4 C5 D2 11 00 1B 15 08 02 99 22 20 20 20 |............" | 00000D00: 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 | ......... | 00000D10: 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 24 15 12 02 |64 .........$...| 00000D20: 8D 38 33 35 00 38 15 4E 02 8B 55 5A B2 31 A7 9E |.835.8.N..UZ.1..| 00000D30: 55 50 25 3A 89 32 31 37 00 3E 15 57 02 8E 00 64 |UP%:.217.>.W...d| 00000D40: 15 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 |.X.. ** PROGRAM | 00000D50: 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 |MODIFICATION INS| 00000D60: 54 20 2A 2A 00 75 15 59 02 99 22 93 22 3A 97 55 |T **.u.Y..".":.U| 00000D70: 54 2C 55 4C 25 00 9A 15 5D 02 55 48 B2 31 3A 55 |T,UL%...].UH.1:U| 00000D80: 50 B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D |P.0:UG$.".ROGRAM| 00000D90: 20 CD 4F 44 22 3A 8D 38 35 30 00 A3 15 94 02 8D | .OD":.850......| 00000DA0: 38 33 35 00 B7 15 B2 02 8B 55 5A B2 31 A7 9E 55 |835......UZ.1..U| 00000DB0: 50 25 3A 89 32 31 37 00 BD 15 BB 02 8E 00 E2 15 |P%:.217.........| 00000DC0: BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 |... ** TO USE 80| 00000DD0: 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 |32 LOAD CBM4032 | 00000DE0: 2A 2A 00 18 16 C6 02 99 22 93 11 11 11 05 42 45 |**......".....BE| 00000DF0: 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 |FORE RUNNING THI| 00000E00: 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 |S PROGRAM ON AN | 00000E10: 38 30 33 32 20 20 11 11 00 4E 16 D0 02 99 22 20 |8032 ...N...." | 00000E20: 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 | LOAD THE 'C| 00000E30: 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D |BM 4032' PROGRAM| 00000E40: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 59 |.............".Y| 00000E50: 16 DA 02 9E 55 55 AA 37 31 00 5F 16 E4 02 80 00 |....UU.71._.....| 00000E60: 7F 16 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C |.. .. ** T I T L| 00000E70: 20 45 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 | E P A G E **.| 00000E80: B3 16 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 |..".."....";:.UT| 00000E90: 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UU%:..(50003).0| 00000EA0: A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |..53280,14:.5328| 00000EB0: 31 2C 36 00 C9 16 24 03 81 49 B2 31 A4 33 38 3A |1,6...$..I.1.38:| 00000EC0: 99 22 12 A6 92 22 3B 3A 82 00 E1 16 26 03 81 49 |."...";:....&..I| 00000ED0: B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A |.1.22:.".....";:| 00000EE0: 82 00 F9 16 28 03 81 49 B2 31 A4 33 37 3A 99 22 |....(..I.1.37:."| 00000EF0: 9D 9D 12 A6 92 22 3B 3A 82 00 11 17 2A 03 81 49 |.....";:....*..I| 00000F00: B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A |.1.22:.".....";:| 00000F10: 82 00 36 17 2C 03 99 22 13 11 11 11 11 11 11 1D |..6.,.."........| 00000F20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000F30: 1D 12 A9 20 20 92 00 58 17 2E 03 99 22 1D 1D 1D |... ..X...."...| 00000F40: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................| 00000F50: 20 92 20 20 12 20 92 A9 00 79 17 30 03 99 22 1D | . . ...y.0..".| 00000F60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000F70: 1D 12 20 92 20 20 12 A3 DF 00 97 17 32 03 99 22 |.. . ......2.."| 00000F80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000F90: 1D 1D DF 12 20 20 92 00 BF 17 34 03 99 22 11 11 |.... ....4.."..| 00000FA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 |............C O | 00000FB0: 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 00 |M M O D O R E...| 00000FC0: E2 17 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..6.."..........| 00000FD0: 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C |.....EDUCATIONAL| 00000FE0: 11 11 00 01 18 38 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....8..".......| 00000FF0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 |.........SOFTWAR| 00001000: 45 00 1C 18 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F |E...:.. ** COMMO| 00001010: 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 54 18 3B |DORE LOGO **.T.;| 00001020: 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D |...(UD$,24);"...| 00001030: 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 |.......PRESS SPA| 00001040: 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 92 22 |CE BAR OR WAIT."| 00001050: 3A 49 B2 30 00 76 18 3C 03 A1 41 24 3A 8B 41 24 |:I.0.v.<..A$:.A$| 00001060: B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 |.." ".I.I.1:.I.2| 00001070: 35 30 A7 38 32 38 00 9A 18 3E 03 54 31 24 B2 22 |50.828...>.T1$."| 00001080: 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A |":T2$."":T3$."":| 00001090: 54 34 24 B2 22 22 3A 49 B2 30 00 A3 18 40 03 89 |T4$."":I.0...@..| 000010A0: 33 30 30 00 BF 18 43 03 8F 20 2A 2A 20 53 50 41 |300...C.. ** SPA| 000010B0: 43 45 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 |CE BAR PRESS **.| 000010C0: FA 18 48 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 |..H..UO,0:..(UD$| 000010D0: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 |,24);".......PRE| 000010E0: 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 |SS SPACE BAR TO | 000010F0: 43 4F 4E 54 49 4E 55 45 92 22 00 11 19 4C 03 A1 |CONTINUE."...L..| 00001100: 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 |UI$:.UI$.." ".84| 00001110: 34 00 17 19 4E 03 8E 00 37 19 52 03 8F 20 2A 2A |4...N...7.R.. **| 00001120: 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 | PAGE DESIGN ROU| 00001130: 54 49 4E 45 20 2A 2A 00 43 19 54 03 55 50 B2 55 |TINE **.C.T.UP.U| 00001140: 50 AA 31 00 6D 19 57 03 99 22 93 22 C8 28 55 54 |P.1.m.W..".".(UT| 00001150: 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA |$.UP$,21);.(UP$.| 00001160: 55 47 24 AA C4 28 55 50 29 2C 31 38 29 00 9C 19 |UG$..(UP),18)...| 00001170: 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |\.." -----------| 00001180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 AB 19 60 |-----------"...`| 000011A0: 03 8B 55 48 B3 B1 30 A7 38 37 30 00 DF 19 61 03 |..UH..0.870...a.| 000011B0: 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 |..(UD$,24);.(UP$| 000011C0: 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 |,7);"HELP - PRES| 000011D0: 53 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 |S H <RETURN>".| 000011E0: F0 19 66 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E |..f.UH.0:."..":.| 000011F0: 00 0F 1A 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 |...k.. ** PLEASE| 00001200: 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 | WAIT REMARK **.| 00001210: 45 1A 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |E.p...(UD$,24);"| 00001220: 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D | ONE M| 00001230: 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 |OMENT PLEASE... | 00001240: 20 20 20 20 22 00 4B 1A 75 03 8E 00 68 1A 84 03 | ".K.u...h...| 00001250: 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 |. ** SET UP VARI| 00001260: 41 42 4C 45 53 20 2A 2A 00 B3 1A 85 03 55 58 24 |ABLES **.....UX$| 00001270: B2 22 48 22 3A 86 55 51 25 28 31 30 32 34 29 3A |."H":.UQ%(1024):| 00001280: 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A |UB.32768:U1.196:| 00001290: 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 |U2.197:U3.198:U4| 000012A0: B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 |.216:UC.167:UU.1| 000012B0: 30 32 34 00 F1 1A 86 03 55 54 B2 35 39 34 36 38 |024.....UT.59468| 000012C0: 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 |:UU%.12:UL%.14:U| 000012D0: 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 |P%.1146:UM.32768| 000012E0: 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 30 33 2C |:UO.158:. 50003,| 000012F0: 30 00 34 1B 87 03 8B C2 28 35 30 30 30 33 29 B2 |0.4.....(50003).| 00001300: 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 |0.UB.1024:U1.209| 00001310: 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 |:U2.210:U3.211:U| 00001320: 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 |4.214:UC.204:UU.| 00001330: 32 30 34 38 00 73 1B 88 03 8B C2 28 35 30 30 30 |2048.s.....(5000| 00001340: 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 |3).0.UT.53272:UU| 00001350: 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 |%.21:UL%.23:UP%.| 00001360: 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 |2139:UM.1024:UO.| 00001370: 31 39 38 00 97 1B 89 03 55 44 24 B2 22 13 11 11 |198.....UD$."...| 00001380: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00001390: 11 11 11 11 11 11 22 00 C9 1B 8A 03 55 50 24 B2 |......".....UP$.| 000013A0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 000013B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000013C0: 20 20 20 20 20 20 20 20 22 00 17 1C 8B 03 55 54 | ".....UT| 000013D0: 24 B2 22 20 D2 C5 D3 D5 CC D4 C1 CE D4 20 20 20 |$." ......... | 000013E0: A0 A0 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 20 |......":. PLACE | 000013F0: 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 48 45 |PROGRAM TITLE HE| 00001400: 52 45 20 21 21 21 21 21 21 21 21 21 21 21 21 21 |RE !!!!!!!!!!!!!| 00001410: 21 21 21 21 2A 2A 2A 00 1D 1C 8C 03 8E 00 37 1C |!!!!***.......7.| 00001420: 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 |... ** SET VARIA| 00001430: 42 4C 45 53 20 2A 2A 00 40 1C 93 03 8D 39 30 30 |BLES **.@....900| 00001440: 00 5B 1C 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 |.[.... ** CHECK | 00001450: 46 4F 52 20 38 30 33 32 20 2A 2A 00 79 1C 9D 03 |FOR 8032 **.y...| 00001460: 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 |.".":.".":. SHIF| 00001470: 54 45 44 20 53 50 41 43 45 00 90 1C A2 03 8B C2 |TED SPACE.......| 00001480: 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 |(UB.40)..96..700| 00001490: 00 A9 1C A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 |...... ** MEMORY| 000014A0: 20 43 48 45 43 4B 20 2A 2A 00 BD 1C A4 03 8B 20 | CHECK **...... | 000014B0: B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 EB 1C |.(0).2000.937...| 000014C0: A5 03 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 |..."....THIS MAC| 000014D0: 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 |HINE DOES NOT HA| 000014E0: 56 45 20 45 4E 4F 55 47 48 11 22 00 0F 1D A6 03 |VE ENOUGH.".....| 000014F0: 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 |."MEMORY TO RUN | 00001500: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 |THIS PROGRAM !".| 00001510: 1A 1D A7 03 9E 55 55 AA 37 31 00 20 1D A8 03 80 |.....UU.71. ....| 00001520: 00 3A 1D A9 03 99 22 93 05 22 3A 8B C2 28 35 30 |.:...."..":..(50| 00001530: 30 30 33 29 B2 30 A7 39 36 32 00 69 1D AC 03 8F |003).0.962.i....| 00001540: 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F | ** BASIC 2.0 O| 00001550: 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 |R 4.0 OR C-64| 00001560: 20 53 45 54 55 50 20 2A 2A 00 A7 1D AD 03 97 31 | SETUP **......1| 00001570: 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 |075,133:.1076,14| 00001580: 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 |4:.1077,234:.107| 00001590: 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 |9,4:.1080,133:.1| 000015A0: 30 38 31 2C 31 34 35 00 DD 1D AE 03 97 31 30 39 |081,145......109| 000015B0: 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A |1,155:.1098,133:| 000015C0: 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C |.1099,144:.1100,| 000015D0: 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 FF 1D |234:.1103,133...| 000015E0: AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 |...1104,145:.110| 000015F0: 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 |5,234:.1082,234.| 00001600: 16 1E B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 |......(50003)..1| 00001610: 36 30 A7 39 35 35 00 45 1E B6 03 97 31 30 39 33 |60.955.E....1093| 00001620: 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 |,88:.1094,228:.1| 00001630: 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 |097,85:.1102,228| 00001640: 3A 89 39 36 35 00 5A 1E BB 03 8B C2 28 35 30 30 |:.965.Z.....(500| 00001650: 30 33 29 B3 B1 31 A7 39 39 30 00 89 1E C0 03 97 |03)..1.990......| 00001660: 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 |1093,49:.1094,23| 00001670: 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 |0:.1097,46:.1102| 00001680: 2C 32 33 30 3A 89 39 36 35 00 C3 1E C2 03 97 32 |,230:.965......2| 00001690: 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 |099,141:.2100,20| 000016A0: 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 |:.2101,3:.2103,8| 000016B0: 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 |:.2104,141:.2105| 000016C0: 2C 32 31 00 FF 1E C3 03 97 32 31 30 36 2C 33 3A |,21......2106,3:| 000016D0: 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C |.2115,145:.2117,| 000016E0: 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 |52:.2118,234:.21| 000016F0: 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 |21,49:.2122,141.| 00001700: 39 1F C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 |9....2123,20:.21| 00001710: 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 |24,3:.2126,234:.| 00001720: 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 |2127,141:.2128,2| 00001730: 31 3A 97 32 31 32 39 2C 33 00 57 1F C5 03 9E 55 |1:.2129,3.W....U| 00001740: 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 |U.48:. DISABLE S| 00001750: 54 4F 50 20 4B 45 59 00 68 1F CA 03 8D 38 30 30 |TOP KEY.h....800| 00001760: 3A 8F 20 54 49 54 4C 45 00 78 1F D4 03 89 33 30 |:. TITLE.x....30| 00001770: 30 3A 8F 20 4D 45 4E 55 00 A9 1F DE 03 99 22 93 |0:. MENU......".| 00001780: 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 |THE PGM WILL NOT| 00001790: 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 | WORK ON THIS MA| 000017A0: 43 48 49 4E 45 21 22 3A 80 00 DE 1F E8 03 8B 55 |CHINE!":.......U| 000017B0: 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A |Z.1..UP%:.UP%:UZ| 000017C0: B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 |.0:. ** PROGRAM | 000017D0: 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A 00 0A |STARTS HERE **..| 000017E0: 20 E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 | ..."..";:.:..(5| 000017F0: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 |0003).0..53281,6| 00001800: 3A 97 35 33 32 38 30 2C 31 34 00 15 20 F2 03 55 |:.53280,14.. ..U| 00001810: 47 24 B2 22 22 00 3D 20 FC 03 8F 20 52 45 53 4F |G$."".= ... RESO| 00001820: 4C 56 49 4E 47 20 56 45 43 54 4F 52 53 20 3A 41 |LVING VECTORS :A| 00001830: 4E 44 59 20 47 41 4D 42 4C 45 20 37 39 00 53 20 |NDY GAMBLE 79.S | 00001840: 06 04 8F 43 4F 4C 55 4D 42 49 41 20 43 4F 4C 4C |...COLUMBIA COLL| 00001850: 45 47 45 00 73 20 10 04 8F 20 31 36 31 39 20 57 |EGE.s ... 1619 W| 00001860: 31 30 20 41 56 45 20 56 41 4E 43 4F 55 56 45 52 |10 AVE VANCOUVER| 00001870: 20 42 43 00 8D 20 1A 04 55 50 B2 30 3A 55 54 24 | BC.. ..UP.0:UT$| 00001880: B2 22 20 52 45 53 55 4C 54 41 4E 54 22 00 A4 20 |." RESULTANT".. | 00001890: 2E 04 8D 38 35 30 3A 99 3A 99 3A 58 31 B2 30 3A |...850:.:.:X1.0:| 000018A0: 59 31 B2 30 00 CB 20 38 04 99 22 20 20 20 41 52 |Y1.0.. 8.." AR| 000018B0: 45 20 59 4F 55 52 20 56 45 43 54 4F 52 53 20 47 |E YOUR VECTORS G| 000018C0: 49 56 45 4E 20 49 4E 3A 11 11 22 00 F2 20 42 04 |IVEN IN:..".. B.| 000018D0: 99 22 20 20 20 28 31 29 20 4D 41 47 4E 49 54 55 |." (1) MAGNITU| 000018E0: 44 45 20 41 4E 44 20 41 4E 47 4C 45 20 20 4F 52 |DE AND ANGLE OR| 000018F0: 11 22 00 10 21 4C 04 99 22 20 20 20 28 32 29 20 |."..!L.." (2) | 00001900: 58 2C 59 2D 43 4F 4F 52 44 49 4E 41 54 45 53 22 |X,Y-COORDINATES"| 00001910: 00 5A 21 56 04 99 22 91 91 91 91 91 91 1D 1D 1D |.Z!V..".........| 00001920: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001930: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 9D 9D |........... ..| 00001940: 9D 22 3B 3A 55 53 24 B2 22 31 32 48 22 3A 8D 33 |.";:US$."12H":.3| 00001950: 35 3A 5A B2 C5 28 55 52 24 29 00 A2 21 60 04 55 |5:Z..(UR$)..!`.U| 00001960: 4C B2 34 3A 99 22 11 11 11 11 11 20 11 20 20 48 |L.4:."..... . H| 00001970: 4F 57 20 4D 41 4E 59 20 56 45 43 54 4F 52 53 3F |OW MANY VECTORS?| 00001980: 1D 22 3B 3A 55 53 24 B2 22 30 31 48 32 33 34 35 |.";:US$."01H2345| 00001990: 36 37 38 39 22 3A 8D 33 35 3A 4E B2 C5 28 55 52 |6789":.35:N..(UR| 000019A0: 24 29 00 AC 21 65 04 8D 20 38 35 30 00 B2 21 6A |$)..!e.. 850..!j| 000019B0: 04 99 00 C0 21 74 04 8B 5A B2 32 A7 31 32 36 30 |....!t..Z.2.1260| 000019C0: 00 CA 21 7E 04 8D 31 34 36 30 00 D4 21 83 04 99 |..!~..1460..!...| 000019D0: 22 13 11 22 00 E1 21 88 04 99 3A 81 57 B2 31 A4 |".."..!...:.W.1.| 000019E0: 4E 00 F7 21 92 04 99 22 20 20 20 56 45 43 54 4F |N..!..." VECTO| 000019F0: 52 22 57 22 3A 11 22 00 39 22 9C 04 55 4C B2 34 |R"W":.".9"..UL.4| 00001A00: 3A 99 A3 35 29 3B 3A 99 22 20 20 4D 41 47 4E 49 |:..5);:." MAGNI| 00001A10: 54 55 44 45 3A 1D 22 3B 3A 55 53 24 B2 22 2D 2E |TUDE:.";:US$."-.| 00001A20: 30 31 32 33 34 35 36 37 38 39 48 22 3A 8D 33 35 |0123456789H":.35| 00001A30: 3A 4D B2 C5 28 55 52 24 29 00 74 22 A6 04 99 A3 |:M..(UR$).t"....| 00001A40: 35 29 3B 3A 99 22 20 20 41 4E 47 4C 45 3A 20 22 |5);:." ANGLE: "| 00001A50: 3B 3A 55 53 24 B2 22 2D 2E 30 31 32 33 34 35 36 |;:US$."-.0123456| 00001A60: 37 38 39 48 22 3A 8D 33 35 3A 41 B2 C5 28 55 52 |789H":.35:A..(UR| 00001A70: 24 29 3A 99 00 87 22 B0 04 58 B2 4D AC BE 28 41 |$):..."..X.M..(A| 00001A80: AC FF AD 31 38 30 29 00 9A 22 BA 04 59 B2 4D AC |...180).."..Y.M.| 00001A90: BF 28 41 AC FF AD 31 38 30 29 00 AE 22 C4 04 58 |.(A...180).."..X| 00001AA0: 31 B2 58 31 AA 58 3A 59 31 B2 59 31 AA 59 00 D0 |1.X1.X:Y1.Y1.Y..| 00001AB0: 22 C9 04 8B 20 B5 28 57 AD 34 29 B2 57 AD 34 A7 |"... .(W.4).W.4.| 00001AC0: 8D 38 35 30 3A 8D 31 34 36 30 3A 99 22 13 11 22 |.850:.1460:.".."| 00001AD0: 00 D6 22 CE 04 82 00 DC 22 D8 04 99 00 E6 22 E2 |..".....".....".| 00001AE0: 04 89 31 33 34 30 00 F1 22 EC 04 81 57 B2 31 A4 |..1340.."...W.1.| 00001AF0: 4E 00 07 23 F6 04 99 22 20 20 20 56 45 43 54 4F |N..#..." VECTO| 00001B00: 52 22 57 22 3A 11 22 00 47 23 00 05 55 4C B2 34 |R"W":.".G#..UL.4| 00001B10: 3A 99 A3 35 29 3B 3A 99 22 20 20 58 2D 43 4F 4F |:..5);:." X-COO| 00001B20: 52 44 3A 20 22 3B 3A 55 53 24 B2 22 2D 2E 30 31 |RD: ";:US$."-.01| 00001B30: 32 33 34 35 36 37 38 39 48 22 3A 8D 33 35 3A 58 |23456789H":.35:X| 00001B40: B2 C5 28 55 52 24 29 00 87 23 0A 05 55 4C B2 34 |..(UR$)..#..UL.4| 00001B50: 3A 99 A3 35 29 3B 3A 99 22 20 20 59 2D 43 4F 4F |:..5);:." Y-COO| 00001B60: 52 44 3A 20 22 3B 3A 55 53 24 B2 22 2D 2E 30 31 |RD: ";:US$."-.01| 00001B70: 32 33 34 35 36 37 38 39 48 22 3A 8D 33 35 3A 59 |23456789H":.35:Y| 00001B80: B2 C5 28 55 52 24 29 00 8D 23 14 05 99 00 A1 23 |..(UR$)..#.....#| 00001B90: 1E 05 58 31 B2 58 31 AA 58 3A 59 31 B2 59 31 AA |..X1.X1.X:Y1.Y1.| 00001BA0: 59 00 BD 23 23 05 8B 20 B5 28 57 AD 34 29 B2 57 |Y..##.. .(W.4).W| 00001BB0: AD 34 A7 8D 38 35 30 3A 99 22 13 11 22 00 C3 23 |.4..850:.".."..#| 00001BC0: 28 05 82 00 C9 23 32 05 99 00 DC 23 3C 05 52 B2 |(....#2....#<.R.| 00001BD0: BA 28 58 31 AE 32 AA 59 31 AE 32 29 00 03 24 46 |.(X1.2.Y1.2)..$F| 00001BE0: 05 8B 20 B6 28 58 31 29 B1 2E 30 30 30 35 B0 20 |.. .(X1)..0005. | 00001BF0: B6 28 59 31 29 B1 2E 30 30 30 35 A7 20 89 20 31 |.(Y1)..0005. . 1| 00001C00: 33 36 30 00 49 24 4B 05 99 22 13 11 11 11 11 11 |360.I$K.."......| 00001C10: 11 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D 52 |...............R| 00001C20: 45 53 55 4C 54 41 4E 54 20 54 4F 4F 20 53 4D 41 |ESULTANT TOO SMA| 00001C30: 4C 4C 20 46 4F 52 20 43 41 4C 43 55 4C 41 54 49 |LL FOR CALCULATI| 00001C40: 4F 4E 22 3A 89 31 34 33 30 00 64 24 50 05 8B 58 |ON":.1430.d$P..X| 00001C50: 31 B2 30 AF 59 31 B1 30 A7 41 31 B2 39 30 3A 89 |1.0.Y1.0.A1.90:.| 00001C60: 31 34 30 30 00 80 24 5A 05 8B 58 31 B2 30 AF 59 |1400..$Z..X1.0.Y| 00001C70: 31 B3 30 A7 41 31 B2 32 37 30 3A 89 31 34 30 30 |1.0.A1.270:.1400| 00001C80: 00 B2 24 64 05 8B 58 31 B2 30 AF 59 31 B2 30 A7 |..$d..X1.0.Y1.0.| 00001C90: 99 22 20 20 52 45 53 55 4C 54 41 4E 54 20 49 53 |." RESULTANT IS| 00001CA0: 20 5A 45 52 4F 20 56 45 43 54 4F 52 22 3A 8D 38 | ZERO VECTOR":.8| 00001CB0: 33 35 00 CA 24 6E 05 41 31 B2 28 C1 28 59 31 AD |35..$n.A1.(.(Y1.| 00001CC0: 58 31 29 29 AC 31 38 30 AD FF 00 E0 24 71 05 8B |X1)).180....$q..| 00001CD0: 58 31 B3 30 20 A7 20 41 31 B2 41 31 AA 31 38 30 |X1.0 . A1.A1.180| 00001CE0: 00 FC 24 74 05 8B 20 59 B3 30 20 AF 20 58 B1 30 |..$t.. Y.0 . X.0| 00001CF0: 20 A7 20 41 31 B2 41 31 AA 33 36 30 00 37 25 78 | . A1.A1.360.7%x| 00001D00: 05 55 48 B2 31 3A 8D 38 33 35 3A 8D 38 35 30 3A |.UH.1:.835:.850:| 00001D10: 99 22 11 11 11 11 20 20 52 45 53 55 4C 54 41 4E |.".... RESULTAN| 00001D20: 54 20 49 53 20 22 B5 28 52 AC 31 30 30 30 AA 2E |T IS ".(R.1000..| 00001D30: 35 29 AD 31 30 30 30 00 60 25 82 05 99 22 20 20 |5).1000.`%..." | 00001D40: 41 54 20 22 B5 28 41 31 AC 31 30 30 30 AA 2E 35 |AT ".(A1.1000..5| 00001D50: 29 AD 31 30 30 30 22 20 44 45 47 52 45 45 53 22 |).1000" DEGREES"| 00001D60: 00 6A 25 8C 05 8D 31 34 36 30 00 92 25 96 05 8D |.j%...1460..%...| 00001D70: 38 33 35 3A 20 55 48 B2 31 3A 55 50 B2 55 50 AA |835: UH.1:UP.UP.| 00001D80: 31 3A 8D 38 35 30 3A 99 22 13 11 11 11 11 11 11 |1:.850:.".......| 00001D90: 22 3B 00 CD 25 97 05 55 4C B2 34 3A 20 99 22 20 |";..%..UL.4: ." | 00001DA0: 20 20 20 20 20 20 20 20 20 20 20 20 54 52 59 20 | TRY | 00001DB0: 41 47 41 49 4E 3F 20 22 3B 3A 55 53 24 B2 22 59 |AGAIN? ";:US$."Y| 00001DC0: 4E 22 3A 8D 33 35 3A 53 24 B2 55 52 24 00 E4 25 |N":.35:S$.UR$..%| 00001DD0: A0 05 8B 53 24 B2 22 59 22 A7 55 50 B2 30 3A 89 |...S$."Y".UP.0:.| 00001DE0: 31 30 37 30 00 EA 25 AA 05 8E 00 0A 26 B4 05 99 |1070..%.....&...| 00001DF0: 22 13 22 3B A3 32 34 29 3B 22 11 11 11 11 11 11 |".";.24);"......| 00001E00: 11 11 11 11 20 20 20 39 30 22 00 1D 26 BE 05 99 |.... 90"..&...| 00001E10: 20 A3 32 34 29 3B 22 20 20 20 20 DD 22 00 32 26 | .24);" .".2&| 00001E20: C8 05 99 20 A3 32 34 29 3B 22 31 38 30 C0 DB C0 |... .24);"180...| 00001E30: 30 22 00 45 26 D2 05 99 20 A3 32 34 29 3B 22 20 |0".E&... .24);" | 00001E40: 20 20 20 DD 22 00 5F 26 DC 05 99 20 A3 32 34 29 | ."._&... .24)| 00001E50: 3B 22 20 20 20 32 37 30 11 11 11 11 11 11 22 00 |;" 270......".| 00001E60: 65 26 E6 05 8E 00 6F 26 50 C3 99 22 93 22 3B 00 |e&....o&P..".";.| 00001E70: 94 26 51 C3 99 22 13 11 11 11 11 11 11 11 11 11 |.&Q.."..........| 00001E80: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001E90: 1D 1D 22 3B 00 B1 26 52 C3 99 CA 28 54 49 24 2C |..";..&R...(TI$,| 00001EA0: 31 2C 32 29 22 3A 22 CA 28 54 49 24 2C 33 2C 32 |1,2)":".(TI$,3,2| 00001EB0: 29 00 BC 26 53 C3 89 35 30 30 30 31 00 00 00 |)..&S..50001... |
.......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 +++
...(..UO,0:UR$."":UI$.""...*..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.;._
..UF.1..240.H.D.UF.0:.:..A.F.. ++ CHECK
DELETE ++.R.I..C(UR$).1.50...N.UR$.H(UR$
,C(UR$).1)...S..". ..";:.50.C.X.. ++ CH
ECK FOR VALID CHARACTERS ++.U.}..C(US$).
0.150......US.1.C(US$)......UI$.J(US$,US
,1).............UI$."":..+.... ** STANDA
RD INPUT **.<....F(UI$).46...M....UI$.G(
32)...J. ..F(UI$).48.F(UI$).57.170.P....
......F(UI$).65.F(UI$).90.180...........
.F(UI$).193.F(UI$).218.UI$."":..Z....B(U
T).UU%.UI$.G(F(UI$).128):............UI$
."":....C.UF.1:. +++ HELP ROUTINE EXIT +
++...E..250.$.H..245.9.M..UQ.UB.(UB.1024
).U.R.UQ%(UQ.UB).B(UQ):.:.".".H.W.UZ.1:U
V%.B(UT).Q.X..300...Y.UZ.0:US$.UJ$:UG$.U
K$:UP.UJ:UL.UK.M.Z..B(50003).0..53281,1:
.".";:.53281,6:.53280,14:.220.W....".";.
....UT$.UL$:.UT,UV%:.UQ.UB.1943......UQ,
UQ%(UQ.UB):.......U1,U1%.$....U2,U2%.0..
..U4,U4%.>....U3,U3%.1.F....35.X...UD%.(
(U2%.256.U1%.U3%).UB).40:.H(UD$,UD%.1):.
......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.........,.. ** M
ENU **.$.-.:.S....".":.UT,UU%:.B(50003).
0..53281,9:.53280,8.Y./.:.V.1..".
MENU"...6.." ------------------
--------------------".J.;..".. 1.
BEGIN RESULTANT"...@..".. 2. S
TUDENT INSTRUCTIONS"...E..".. 3.
TEACHER INSTRUCTIONS".:.O..".. 4.
QUIT..".I.T.." ----------------------
----------------"...Y..".. PRESS A
NUMBER KEY (1-4) ";...^.UL.1:US$."1234"
:.35:. INPUT ROUTINE.G.`.US$.""...C..E(U
R$).1000,400,500,396...H..300...... ** R
E-ENABLE STOP KEY AND END **.C....B(5000
3)..1.B(50003)..160.B(50003)..0.399.M...
.UU.71:.B(50003).0..53281,6:.53280,14.Y.
..."..":.......875:....... ** STUDENT IN
STRUCTIONS **.T....".":.UT,UL%:.B(50003)
.0..53281,0:.53280,0.....UT$." RESULTANT
":UH.1:UP.0:UG$."STUDENT INST":.850.9...
.". .. ..THIS PROGRAM CAN BE USED AS A
".F....". DRILL OR SIMPLY A MATHEMA
TICAL"......". .. UTILITY. YOU INPUT V
ECTORS IN":.". . EITHER POLAR OR RECT
ANGULAR"......".. .FORM AND THE COMPU
TER GIVES"."....". ... YOU THE RESULTAN
T VECTOR IN":.". . POLAR FORM.".+....
835.?....UZ.1..UP%:.217.E.....F.... ** T
EACHER INSTRUCTIONS **......".":.UT,UL%:
.B(50003).0..53281,2:.53280,10.M...UT$."
RESULTANT":UH.1:UP.0:UG$."TEACHER INST"
:.850......".. TO THE BEST OF OUR K
NOWLEDGE,.".$...." THIS PROGRAM IS IN
THE PUBLIC.".P...." DOMAIN. IF THIS I
S NOT THE CASE.".M...." PLEASE CONTACT
:..."......" COMMODORE BUSINESS MAC
HINES."......" 3370 PHARMACY AV
E......." AGINCOURT, ONTARIO"..
...." CANADA M1W 2K4". ...."
(416) 499-4292".;...UH.1:UP.1:.
835:. 850:.A...." ..PROGRAM NAME: R
ESULTANT......." WRITTEN BY : ANDY
GAMBLE......." UPGRADED BY : NEIL HU
NT..V...." .THIS PROGRAM WILL RUN ON
ANY........" PET 64 COMPUTER...
...." COMMODORE 64 COMPUTER.$...
.835.8.N..UZ.1..UP%:.217.>.W...D.X.. **
PROGRAM MODIFICATION INST **.U.Y..".":.U
T,UL%...].UH.1:UP.0:UG$."PROGRAM MOD":.8
50......835......UZ.1..UP%:.217.........
... ** TO USE 8032 LOAD CBM4032 **...F..
".....BEFORE RUNNING THIS PROGRAM ON AN
8032 ...N.P.." LOAD THE 'CBM 4032'
PROGRAM.............".Y.Z..UU.71._.....
. .. ** T I T L E P A G E **...".."..
..";:.UT,UU%:.B(50003).0..53280,14:.5328
1,6.I.$..I.1.38:."...";:....&..I.1.22:."
.....";:....(..I.1.37:.".....";:....*..I
.1.22:.".....";:..6.,.."................
........... ..X...."...................
. . ...Y.0.."................... . ..
....2..".................... ....4.."..
............C O M M O D O R E.....6.."..
.............EDUCATIONAL.....8..".......
.........SOFTWARE...:.. ** COMMODORE LOG
O **.T.;..H(UD$,24);"..........PRESS SPA
CE BAR OR WAIT.":I.0.V.<..A$:.A$.." ".I.
I.1:.I.250.828...>.T1$."":T2$."":T3$."":
T4$."":I.0...@..300...C.. ** SPACE BAR P
RESS **...H..UO,0:.H(UD$,24);".......PRE
SS SPACE BAR TO CONTINUE."...L..UI$:.UI$
.." ".844...N...7.R.. ** PAGE DESIGN ROU
TINE **.C.T.UP.UP.1.M.W.."."H(UT$.UP$,21
);I(UP$.UG$.D(UP),18)...\.." -----------
---------------------------"...`..UH..0.
870...A..H(UD$,24);H(UP$,7);"HELP - PRES
S H <RETURN>"...F.UH.0:."..":....K.. *
* PLEASE WAIT REMARK **.E.P..H(UD$,24);"
ONE MOMENT PLEASE... ".K.
U...H.... ** SET UP VARIABLES **.....UX$
."H":.UQ%(1024):UB.32768:U1.196:U2.197:U
3.198:U4.216:UC.167:UU.1024.....UT.59468
:UU%.12:UL%.14:UP%.1146:UM.32768:UO.158:
. 50003,0.4....B(50003).0.UB.1024:U1.209
:U2.210:U3.211:U4.214:UC.204:UU.2048.S..
..B(50003).0.UT.53272:UU%.21:UL%.23:UP%.
2139:UM.1024:UO.198.....UD$."...........
..............".I...UP$."
".....UT$." RESU
LTANT ":. PLACE PROGRAM TITLE HE
RE !!!!!!!!!!!!!!!!!***.......7.... ** S
ET VARIABLES **.@....900.[.... ** CHECK
FOR 8032 **.Y....".":." ":. SHIFTED SPAC
E......B(UB.40)..96..700...... ** MEMORY
CHECK **...... .(0).2000.937......"....
THIS MACHINE DOES NOT HAVE ENOUGH.".....
."MEMORY TO RUN THIS PROGRAM !"......UU.
71. .....:...."..":.B(50003).0.962.I....
** BASIC 2.0 OR 4.0 OR C-64 SETUP *
*......1075,133:.1076,144:.1077,234:.107
9,4:.1080,133:.1081,145......1091,155:.1
098,133:.1099,144:.1100,234:.1103,133...
...1104,145:.1105,234:.1082,234......B(5
0003)..160.955.E....1093,88:.1094,228:.1
097,85:.1102,228:.965.Z....B(50003)..1.9
90......1093,49:.1094,230:.1097,46:.1102
,230:.965.C.B..2099,141:.2100,20:.2101,3
:.2103,8:.2104,141:.2105,21...C..2106,3:
.2115,145:.2117,52:.2118,234:.2121,49:.2
122,141.9.D..2123,20:.2124,3:.2126,234:.
2127,141:.2128,21:.2129,3.W.E..UU.48:. D
ISABLE STOP KEY.H.J..800:. TITLE.X.T..30
0:. MENU......".THE PGM WILL NOT WORK ON
THIS MACHINE!":.......UZ.1..UP%:.UP%:UZ
.0:. ** PROGRAM STARTS HERE **.. ...".."
;:.:.B(50003).0..53281,6:.53280,14.. ..U
G$."".= ... RESOLVING VECTORS :ANDY GAMB
LE 79.S ...COLUMBIA COLLEGE.S ... 1619 W
10 AVE VANCOUVER BC.. ..UP.0:UT$." RESUL
TANT".. ...850:.:.:X1.0:Y1.0.K 8.." AR
E YOUR VECTORS GIVEN IN:..".. B.." (1)
MAGNITUDE AND ANGLE OR."..!L.." (2)
X,Y-COORDINATES".Z!V..".................
................... ...";:US$."12H":.3
5:Z.E(UR$)..!`.UL.4:."..... . HOW MANY
VECTORS?.";:US$."01H23456789":.35:N.E(UR
$)..!E.. 850..!J....!T..Z.2.1260.J!~..14
60.T!...".."..!...:.W.1.N..!..." VECTO
R"W":.".9"..UL.4:..5);:." MAGNITUDE:.";
:US$."-.0123456789H":.35:M.E(UR$).T"....
5);:." ANGLE: ";:US$."-.0123456789H":.3
5:A.E(UR$):..."..X.M..(A...180).."..Y.M.
.(A...180).."D.X1.X1.X:Y1.Y1.Y.P"I.. .(W
.4).W.4..850:.1460:."..".V"N...."X....".
..1340.."...W.1.N..#..." VECTOR"W":.".
G#..UL.4:..5);:." X-COORD: ";:US$."-.01
23456789H":.35:X.E(UR$)..#..UL.4:..5);:.
" Y-COORD: ";:US$."-.0123456789H":.35:Y
.E(UR$)..#.....#..X1.X1.X:Y1.Y1.Y..##..
.(W.4).W.4..850:."..".C#(...I#2....#<.R.
.(X1.2.Y1.2)..$F.. .(X1)..0005. .(Y1)..0
005. . 1360.I$K..".....................R
ESULTANT TOO SMALL FOR CALCULATION":.143
0.D$P..X1.0.Y1.0.A1.90:.1400..$Z..X1.0.Y
1.0.A1.270:.1400..$D..X1.0.Y1.0.." RESU
LTANT IS ZERO VECTOR":.835.J$N.A1.(A(Y1.
X1)).180....$Q..X1.0 . A1.A1.180..$T.. Y
.0 . X.0 . A1.A1.360.7%X.UH.1:.835:.850:
.".... RESULTANT IS ".(R.1000..5).1000.
`%..." AT ".(A1.1000..5).1000" DEGREES"
.J%...1460..%...835: UH.1:UP.UP.1:.850:.
".......";.M%..UL.4: ." TRY
AGAIN? ";:US$."YN":.35:S$.UR$..% ..S$."Y
".UP.0:.1070..%.....&...".";.24);"......
.... 90"..&... .24);" .".2&H.. .24)
;"180...0".E&R.. .24);" ."._&... .24)
;" 270......".E&....O&PC.".";..&QC."..
..........................";..&RC.J(TI$,
1,2)":"J(TI$,3,2)..&SC.50001...
> CLICK IMAGE PREVIEW FOR FULL MODAL