HI-CALC.C3
FILE INFORMATION
FILENAME(S): HI-CALC.C3
FILE TYPE(S): PRG
FILE SIZE: 13.1K
FIRST SEEN: 2025-11-30 01:07:52
APPEARS ON: 2 disk(s)
FILE HASH
6a9963a44a6409ba4bfd3f8e6b13d27660dbf346a91df528d12468f8af9de650
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | HI-CALC.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 26 | 2 | DOWNLOAD FILE |
| L EHRNEN | HI-CALC.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 26 | 2 | 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 F2 |UTINE **.....:..| 000000D0: 08 14 00 8F 20 2A 2A 20 54 4F 20 4F 55 52 20 42 |.... ** TO OUR B| 000000E0: 45 53 54 20 4B 4E 4F 57 4C 45 44 47 45 20 54 48 |EST KNOWLEDGE TH| 000000F0: 49 53 00 0F 09 15 00 8F 20 20 20 20 50 52 4F 47 |IS...... PROG| 00000100: 52 41 4D 20 49 53 20 46 52 45 45 20 46 4F 52 00 |RAM IS FREE FOR.| 00000110: 2F 09 16 00 8F 20 20 20 20 44 55 50 4C 49 43 41 |/.... DUPLICA| 00000120: 54 49 4F 4E 20 49 4E 20 43 41 4E 41 44 41 2E 00 |TION IN CANADA..| 00000130: 4D 09 17 00 8F 20 20 20 20 49 46 20 59 4F 55 20 |M.... IF YOU | 00000140: 48 41 56 45 20 43 4F 4E 54 52 41 52 59 00 6A 09 |HAVE CONTRARY.j.| 00000150: 18 00 8F 20 20 20 20 49 4E 46 4F 52 4D 41 54 49 |... INFORMATI| 00000160: 4F 4E 2C 20 50 4C 45 41 53 45 00 90 09 19 00 8F |ON, PLEASE......| 00000170: 20 20 20 20 43 4F 4E 54 41 43 54 20 43 4F 4D 4D | CONTACT COMM| 00000180: 4F 44 4F 52 45 20 43 41 4E 41 44 41 20 41 4E 44 |ODORE CANADA AND| 00000190: 00 B6 09 1A 00 8F 20 20 20 20 45 56 45 52 59 20 |...... EVERY | 000001A0: 45 46 46 4F 52 54 20 57 49 4C 4C 20 42 45 20 4D |EFFORT WILL BE M| 000001B0: 41 44 45 20 54 4F 00 D7 09 1B 00 8F 20 20 20 20 |ADE TO...... | 000001C0: 57 49 54 48 44 52 41 57 20 43 4F 50 49 45 53 20 |WITHDRAW COPIES | 000001D0: 4F 46 20 54 48 49 53 00 E9 09 1C 00 8F 20 20 20 |OF THIS...... | 000001E0: 20 50 52 4F 47 52 41 4D 2E 00 EF 09 1E 00 3A 00 | PROGRAM......:.| 000001F0: 0B 0A 23 00 8F 20 2B 2B 2B 20 49 4E 50 55 54 20 |..#.. +++ INPUT | 00000200: 53 45 43 54 49 4F 4E 20 2B 2B 2B 00 23 0A 28 00 |SECTION +++.#.(.| 00000210: 97 55 4F 2C 30 3A 55 52 24 B2 22 22 3A 55 49 24 |.UO,0:UR$."":UI$| 00000220: B2 22 22 00 33 0A 2A 00 8B 55 4C B2 30 A7 55 4C |."".3.*..UL.0.UL| 00000230: B2 38 30 00 46 0A 2D 00 99 22 20 20 9D 9D 22 3B |.80.F.-.." ..";| 00000240: 3A 97 55 43 2C 30 00 5A 0A 32 00 A1 55 49 24 3A |:.UC,0.Z.2..UI$:| 00000250: 8B 55 49 24 B2 22 22 A7 35 30 00 84 0A 37 00 8B |.UI$."".50...7..| 00000260: 55 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 24 29 |UI$..(13)..(UR$)| 00000270: B1 B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B |..1..UC,1:." .";| 00000280: 3A 89 38 35 00 97 0A 3C 00 8B 55 49 24 B2 C7 28 |:.85...<..UI$..(| 00000290: 32 30 29 A7 31 30 35 00 AB 0A 3E 00 8B 20 C3 28 |20).105...>.. .(| 000002A0: 55 52 24 29 B2 B1 55 4C A7 35 30 00 D0 0A 41 00 |UR$)..UL.50...A.| 000002B0: 8D 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 |.120:. CHECK FOR| 000002C0: 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 | VALID CHARACTER| 000002D0: 00 E0 0A 46 00 55 52 24 B2 55 52 24 AA 55 49 24 |...F.UR$.UR$.UI$| 000002E0: 00 EA 0A 4B 00 99 55 49 24 3B 00 F2 0A 50 00 89 |...K..UI$;...P..| 000002F0: 35 30 00 17 0B 55 00 8F 20 2B 2B 2B 20 43 48 45 |50...U.. +++ CHE| 00000300: 43 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 51 55 |CK FOR HELP REQU| 00000310: 45 53 54 20 2B 2B 2B 00 3F 0B 5A 00 8B 55 52 24 |EST +++.?.Z..UR$| 00000320: B2 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 |.UX$.195:. EXIT | 00000330: 54 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 |TO HELP ROUTINE.| 00000340: 4E 0B 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 00 5B |N._..UF.1..240.[| 00000350: 0B 64 00 55 46 B2 30 3A 99 3A 8E 00 74 0B 66 00 |.d.UF.0:.:..t.f.| 00000360: 8F 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 |. ++ CHECK DELET| 00000370: 45 20 2B 2B 00 85 0B 69 00 8B C3 28 55 52 24 29 |E ++...i...(UR$)| 00000380: B3 31 A7 35 30 00 9D 0B 6E 00 55 52 24 B2 C8 28 |.1.50...n.UR$..(| 00000390: 55 52 24 2C C3 28 55 52 24 29 AB 31 29 00 AF 0B |UR$,.(UR$).1)...| 000003A0: 73 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 |s..". ..";:.50.| 000003B0: D6 0B 78 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 |..x.. ++ CHECK F| 000003C0: 4F 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 |OR VALID CHARACT| 000003D0: 45 52 53 20 2B 2B 00 E8 0B 7D 00 8B C3 28 55 53 |ERS ++...}...(US| 000003E0: 24 29 B2 30 A7 31 35 30 00 F9 0B 82 00 81 55 53 |$).0.150......US| 000003F0: B2 31 A4 C3 28 55 53 24 29 00 10 0C 87 00 8B 55 |.1..(US$)......U| 00000400: 49 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E |I$..(US$,US,1)..| 00000410: 00 16 0C 8C 00 82 00 23 0C 91 00 55 49 24 B2 22 |.......#...UI$."| 00000420: 22 3A 8E 00 3E 0C 96 00 8F 20 2A 2A 20 53 54 41 |":..>.... ** STA| 00000430: 4E 44 41 52 44 20 49 4E 50 55 54 20 2A 2A 00 4F |NDARD INPUT **.O| 00000440: 0C 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 |.....(UI$).46...| 00000450: 60 0C 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E |`....UI$..(32)..| 00000460: 00 7D 0C A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 |.}.....(UI$).48.| 00000470: C6 28 55 49 24 29 B1 35 37 A7 31 37 30 00 83 0C |.(UI$).57.170...| 00000480: A5 00 8E 00 A0 0C AA 00 8B C6 28 55 49 24 29 B3 |..........(UI$).| 00000490: 36 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 30 |65..(UI$).90.180| 000004A0: 00 A6 0C AF 00 8E 00 CA 0C B4 00 8B C6 28 55 49 |.............(UI| 000004B0: 24 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 |$).193..(UI$).21| 000004C0: 38 A7 55 49 24 B2 22 22 3A 8E 00 ED 0C B9 00 8B |8.UI$."":.......| 000004D0: C2 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 |.(UT).UU%.UI$..(| 000004E0: C6 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 F3 0C |.(UI$).128):....| 000004F0: BB 00 8E 00 00 0D BE 00 55 49 24 B2 22 22 3A 8E |........UI$."":.| 00000500: 00 25 0D C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 |.%...UF.1:. +++ | 00000510: 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 49 |HELP ROUTINE EXI| 00000520: 54 20 2B 2B 2B 00 2E 0D C5 00 8D 32 35 30 00 37 |T +++......250.7| 00000530: 0D C8 00 8D 32 34 35 00 56 0D CD 00 81 55 51 B2 |....245.V....UQ.| 00000540: 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA |UB.(U2%.256.U1%.| 00000550: 55 33 25 AB 32 29 00 72 0D D2 00 55 51 25 28 55 |U3%.2).r...UQ%(U| 00000560: 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 |Q.UB)..(UQ):.:."| 00000570: 93 22 00 85 0D D7 00 55 5A B2 31 3A 55 56 25 B2 |.".....UZ.1:UV%.| 00000580: C2 28 55 54 29 00 8E 0D D8 00 89 33 30 30 00 B3 |.(UT)......300..| 00000590: 0D D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A |...UZ.0:US$.UJ$:| 000005A0: 55 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C |UG$.UK$:UP.UJ:UL| 000005B0: B2 55 4B 00 EA 0D DA 00 8B C2 28 35 30 30 30 33 |.UK.......(50003| 000005C0: 29 B2 30 A7 97 35 33 32 38 31 2C 31 3A 99 22 93 |).0..53281,1:.".| 000005D0: 22 3B 3A 97 35 33 32 38 31 2C 36 3A 97 35 33 32 |";:.53281,6:.532| 000005E0: 38 30 2C 31 34 3A 89 32 32 30 00 F4 0D DB 00 99 |80,14:.220......| 000005F0: 22 93 22 3B 00 23 0E DC 00 55 54 24 B2 55 4C 24 |".";.#...UT$.UL$| 00000600: 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 |:.UT,UV%:.UQ.UB.| 00000610: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%| 00000620: AB 33 29 00 38 0E E1 00 97 55 51 2C 55 51 25 28 |.3).8....UQ,UQ%(| 00000630: 55 51 AB 55 42 29 3A 82 00 44 0E E6 00 97 55 31 |UQ.UB):..D....U1| 00000640: 2C 55 31 25 00 50 0E E8 00 97 55 32 2C 55 32 25 |,U1%.P....U2,U2%| 00000650: 00 5C 0E E9 00 97 55 34 2C 55 34 25 00 6A 0E EA |.\....U4,U4%.j..| 00000660: 00 97 55 33 2C 55 33 25 AB 31 00 81 0E EB 00 55 |..U3,U3%.1.....U| 00000670: 54 24 B2 22 20 48 49 2D 43 41 4C 43 22 3A 89 33 |T$." HI-CALC":.3| 00000680: 35 00 B3 0E F0 00 55 44 25 B2 28 28 55 32 25 AC |5.....UD%.((U2%.| 00000690: 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 |256.U1%.U3%).UB)| 000006A0: AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 |.40:..(UD$,UD%.1| 000006B0: 29 3A 8E 00 EE 0E F5 00 99 C8 28 55 44 24 2C 32 |):........(UD$,2| 000006C0: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" | 000006D0: 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 | . HELP| 000006E0: 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 1A | COMING . ":...| 000006F0: 0F FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 |...U1%..(U1):U2%| 00000700: B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 |..(U2):U3%..(U3)| 00000710: 3A 55 34 25 B2 C2 28 55 34 29 00 42 0F FB 00 55 |:U4%..(U4).B...U| 00000720: 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 |J$.US$:UK$.UG$:U| 00000730: 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 |L$.UT$:UJ.UP:UK.| 00000740: 55 4C 00 48 0F FF 00 8E 00 59 0F 2C 01 8F 20 2A |UL.H.....Y.,.. *| 00000750: 2A 20 4D 45 4E 55 20 2A 2A 00 5F 0F 2D 01 3A 00 |* MENU **._.-.:.| 00000760: 8E 0F 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 |.....".":.UT,UU%| 00000770: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53| 00000780: 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 94 |281,9:.53280,8..| 00000790: 0F 2F 01 3A 00 B1 0F 31 01 99 22 13 20 20 20 20 |./.:...1..". | 000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 | MENU| 000007B0: 22 00 E0 0F 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D |"...6.." -------| 000007C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000007D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"| 000007E0: 00 03 10 3B 01 99 22 11 11 20 20 20 20 20 20 20 |...;..".. | 000007F0: 31 2E 20 20 20 42 45 47 49 4E 20 48 49 2D 43 41 |1. BEGIN HI-CA| 00000800: 4C 43 22 00 2D 10 40 01 99 22 11 11 20 20 20 20 |LC".-.@..".. | 00000810: 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E 54 20 | 2. STUDENT | 00000820: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 57 10 |INSTRUCTIONS".W.| 00000830: 45 01 99 22 11 11 20 20 20 20 20 20 20 33 2E 20 |E..".. 3. | 00000840: 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 | TEACHER INSTRU| 00000850: 43 54 49 4F 4E 53 22 00 73 10 4F 01 99 22 11 11 |CTIONS".s.O.."..| 00000860: 20 20 20 20 20 20 20 34 2E 20 20 20 51 55 49 54 | 4. QUIT| 00000870: 11 11 22 00 A2 10 54 01 99 22 20 2D 2D 2D 2D 2D |.."...T.." -----| 00000880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008A0: 2D 22 00 CD 10 59 01 99 22 11 11 20 20 20 20 20 |-"...Y..".. | 000008B0: 20 20 50 52 45 53 53 20 41 20 4E 55 4D 42 45 52 | PRESS A NUMBER| 000008C0: 20 4B 45 59 20 28 31 2D 34 29 20 22 3B 00 F5 10 | KEY (1-4) ";...| 000008D0: 5E 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 |^.UL.1:US$."1234| 000008E0: 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 20 52 4F |":.35:. INPUT RO| 000008F0: 55 54 49 4E 45 00 00 11 60 01 55 53 24 B2 22 22 |UTINE...`.US$.""| 00000900: 00 1D 11 63 01 91 C5 28 55 52 24 29 8D 31 30 30 |...c...(UR$).100| 00000910: 30 2C 34 30 30 2C 35 30 30 2C 33 39 36 00 26 11 |0,400,500,396.&.| 00000920: 68 01 89 33 30 30 00 4D 11 8B 01 8F 20 2A 2A 20 |h..300.M.... ** | 00000930: 52 45 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B |RE-ENABLE STOP K| 00000940: 45 59 20 41 4E 44 20 45 4E 44 20 2A 2A 00 7C 11 |EY AND END **.|.| 00000950: 8C 01 8B C2 28 35 30 30 30 33 29 B3 B1 31 AF C2 |....(50003)..1..| 00000960: 28 35 30 30 30 33 29 B3 B1 31 36 30 AF C2 28 35 |(50003)..160..(5| 00000970: 30 30 30 33 29 B3 B1 30 A7 33 39 39 00 A6 11 8D |0003)..0.399....| 00000980: 01 9E 55 55 AA 37 31 3A 8B C2 28 35 30 30 30 33 |..UU.71:..(50003| 00000990: 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 |).0..53281,6:.53| 000009A0: 32 38 30 2C 31 34 00 B2 11 8E 01 99 22 9A 93 22 |280,14......".."| 000009B0: 3A 80 00 BD 11 8F 01 8D 38 37 35 3A 8E 00 DE 11 |:.......875:....| 000009C0: 90 01 8F 20 2A 2A 20 53 54 55 44 45 4E 54 20 49 |... ** STUDENT I| 000009D0: 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 0D |NSTRUCTIONS **..| 000009E0: 12 95 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A |....".":.UT,UL%:| 000009F0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532| 00000A00: 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 29 12 |81,0:.53280,0.).| 00000A10: 9A 01 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 |..UP.0:UG$.".TUD| 00000A20: 45 4E 54 20 C9 4E 53 54 22 00 38 12 9F 01 8D 38 |ENT .NST".8....8| 00000A30: 35 30 3A 89 31 31 33 30 00 3E 12 A4 01 8F 00 70 |50:.1130.>.....p| 00000A40: 12 CC 01 99 22 11 20 CE 4F 54 45 3A 11 11 9D 9D |....". .OTE:....| 00000A50: 9D 9D 9D D4 4F 20 41 44 56 41 4E 43 45 20 46 52 |....O ADVANCE FR| 00000A60: 4F 4D 20 4F 4E 45 20 51 55 45 53 54 49 4F 4E 22 |OM ONE QUESTION"| 00000A70: 00 9A 12 D6 01 99 22 11 20 54 4F 20 54 48 45 20 |......". TO THE | 00000A80: 4E 45 58 54 20 50 52 45 53 53 20 54 48 45 20 D3 |NEXT PRESS THE .| 00000A90: D0 C1 C3 C5 20 42 41 52 2E 22 00 CA 12 DB 01 99 |.... BAR."......| 00000AA0: 22 11 11 20 20 20 20 20 C9 46 20 41 54 20 41 4E |".. .F AT AN| 00000AB0: 59 20 54 49 4D 45 20 59 4F 55 20 57 49 53 48 20 |Y TIME YOU WISH | 00000AC0: 54 4F 20 52 45 54 55 52 4E 22 00 F2 12 E0 01 99 |TO RETURN"......| 00000AD0: 22 11 20 54 4F 20 54 48 45 20 CD C5 CE D5 2C 20 |". TO THE ...., | 00000AE0: 50 52 45 53 53 20 27 C8 27 20 D2 C5 D4 D5 D2 CE |PRESS '.' ......| 00000AF0: 2E 22 00 3A 13 E1 01 99 22 11 20 D9 4F 55 20 57 |.".:....". .OU W| 00000B00: 49 4C 4C 20 48 41 56 45 20 54 4F 20 57 41 49 54 |ILL HAVE TO WAIT| 00000B10: 20 41 42 4F 55 54 20 4F 4E 45 20 4D 49 4E 55 54 | ABOUT ONE MINUT| 00000B20: 45 20 20 11 46 4F 52 20 C8 C9 2D C3 C1 CC C3 20 |E .FOR ..-.... | 00000B30: 54 4F 20 53 54 41 52 54 2E 22 00 73 13 E2 01 99 |TO START.".s....| 00000B40: 22 11 20 D2 45 4D 45 4D 42 45 52 20 54 4F 20 50 |". .EMEMBER TO P| 00000B50: 52 45 53 53 20 D2 C5 D4 D5 D2 CE 20 41 46 54 45 |RESS ...... AFTE| 00000B60: 52 20 45 56 45 52 59 20 20 20 20 11 49 4E 50 55 |R EVERY .INPU| 00000B70: 54 2E 22 00 7C 13 E5 01 8D 38 33 35 00 90 13 EA |T.".|....835....| 00000B80: 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 |..UZ.1..UP%:.217| 00000B90: 00 96 13 F3 01 8E 00 B7 13 F4 01 8F 20 2A 2A 20 |............ ** | 00000BA0: 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 |TEACHER INSTRUCT| 00000BB0: 49 4F 4E 53 20 2A 2A 00 E7 13 F5 01 99 22 93 22 |IONS **......"."| 00000BC0: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000| 00000BD0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 |3).0..53281,2:.5| 00000BE0: 33 32 38 30 2C 31 30 00 08 14 F6 01 55 50 B2 30 |3280,10.....UP.0| 00000BF0: 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E |:UG$.".EACHER .N| 00000C00: 53 54 22 3A 8D 38 35 30 00 36 14 F7 01 99 22 11 |ST":.850.6....".| 00000C10: 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 |. .O THE BE| 00000C20: 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 |ST OF OUR KNOWLE| 00000C30: 44 47 45 2C 11 22 00 5F 14 F8 01 99 22 20 20 20 |DGE,."._...." | 00000C40: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 |THIS PROGRAM IS | 00000C50: 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 |IN THE PUBLIC.".| 00000C60: 8B 14 F9 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E |....." DOMAIN.| 00000C70: 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 | .F THIS IS NOT| 00000C80: 20 54 48 45 20 43 41 53 45 11 22 00 A8 14 FA 01 | THE CASE.".....| 00000C90: 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 |." PLEASE CONT| 00000CA0: 41 43 54 3A 11 11 11 22 00 D2 14 FB 01 99 22 20 |ACT:..."......" | 00000CB0: 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 | .OMMODORE .| 00000CC0: 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 |USINESS .ACHINES| 00000CD0: 11 22 00 F5 14 FC 01 99 22 20 20 20 20 20 20 20 |."......" | 00000CE0: 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 59 | 3370 .HARMACY| 00000CF0: 20 C1 56 45 2E 00 19 15 FD 01 99 22 20 20 20 20 | .VE......." | 00000D00: 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C | .GINCOURT,| 00000D10: 20 CF 4E 54 41 52 49 4F 22 00 3B 15 FE 01 99 22 | .NTARIO".;...."| 00000D20: 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 | .ANADA| 00000D30: 20 20 20 CD 31 D7 20 32 CB 34 22 00 5B 15 FF 01 | .1. 2.4".[...| 00000D40: 99 22 20 20 20 20 20 20 20 20 20 20 28 34 31 36 |." (416| 00000D50: 29 20 34 39 39 2D 34 32 39 32 22 00 6C 15 00 02 |) 499-4292".l...| 00000D60: 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 96 15 01 |. 835:. 850:....| 00000D70: 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 |.." ...ROGRA| 00000D80: 4D 20 CE 41 4D 45 3A 20 C8 C9 2D C3 C1 CC C3 20 |M .AME: ..-.... | 00000D90: 20 20 20 20 20 11 00 BF 15 02 02 99 22 20 20 20 | ......." | 00000DA0: 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 | .RITTEN .Y : | 00000DB0: CA 4F 20 C1 4E 4E 20 C3 4F 4D 49 54 4F 11 22 00 |.O .NN .OMITO.".| 00000DC0: E3 15 03 02 99 22 20 20 20 20 20 D5 50 47 52 41 |....." .PGRA| 00000DD0: 44 45 44 20 C2 59 20 3A 20 20 20 20 20 20 20 20 |DED .Y : | 00000DE0: 20 20 11 00 0E 16 04 02 99 22 20 20 20 20 20 11 | ......." .| 00000DF0: D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C |.HIS PROGRAM WIL| 00000E00: 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 2D |L RUN ON ANY...-| 00000E10: 16 07 02 99 22 20 20 20 20 20 20 20 20 20 D0 C5 |...." ..| 00000E20: D4 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 52 16 |. 64 .........R.| 00000E30: 08 02 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD |..." ...| 00000E40: CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 |...... 64 ......| 00000E50: C5 D2 00 60 16 09 02 8D 38 33 35 3A 8D 38 35 30 |...`....835:.850| 00000E60: 00 AC 16 0D 02 99 22 11 11 20 D4 48 49 53 20 50 |......".. .HIS P| 00000E70: 52 4F 47 52 41 4D 20 49 53 20 55 53 45 44 20 46 |ROGRAM IS USED F| 00000E80: 4F 52 20 54 45 41 43 48 49 4E 47 20 20 20 20 20 |OR TEACHING | 00000E90: 20 11 20 54 48 45 20 55 53 45 20 4F 46 20 43 4F | . THE USE OF CO| 00000EA0: 45 46 46 49 43 49 45 4E 54 53 2E 22 00 E8 16 0E |EFFICIENTS."....| 00000EB0: 02 99 22 11 20 C6 4F 52 20 55 53 45 20 57 49 54 |..". .OR USE WIT| 00000EC0: 48 20 49 4E 54 45 52 4D 45 44 49 41 54 45 20 41 |H INTERMEDIATE A| 00000ED0: 4E 44 20 53 45 43 4F 4E 44 41 52 59 20 11 53 54 |ND SECONDARY .ST| 00000EE0: 55 44 45 4E 54 53 2E 22 00 08 17 0F 02 99 22 11 |UDENTS."......".| 00000EF0: 20 D2 45 51 55 49 52 45 53 20 41 54 20 4C 45 41 | .EQUIRES AT LEA| 00000F00: 53 54 20 31 36 4B 2E 22 00 16 17 10 02 8D 38 33 |ST 16K."......83| 00000F10: 35 3A 8D 38 35 30 00 44 17 11 02 99 22 11 11 20 |5:.850.D....".. | 00000F20: D4 48 45 20 53 54 55 44 45 4E 54 20 49 53 20 47 |.HE STUDENT IS G| 00000F30: 49 56 45 4E 20 41 4E 20 45 58 50 52 45 53 53 49 |IVEN AN EXPRESSI| 00000F40: 4F 4E 2E 22 00 92 17 12 02 99 22 11 20 D0 52 4F |ON."......". .RO| 00000F50: 56 49 44 45 44 20 57 49 54 48 20 54 48 45 20 56 |VIDED WITH THE V| 00000F60: 41 4C 55 45 20 4F 46 20 58 20 41 4E 44 20 54 48 |ALUE OF X AND TH| 00000F70: 45 20 20 20 20 11 56 41 4C 55 45 53 20 4F 46 20 |E .VALUES OF | 00000F80: 54 48 45 20 43 4F 45 46 46 49 43 49 45 4E 54 53 |THE COEFFICIENTS| 00000F90: 2C 22 00 E2 17 1C 02 99 22 11 20 54 48 45 20 53 |,"......". THE S| 00000FA0: 54 55 44 45 4E 54 20 4D 55 53 54 20 44 45 54 45 |TUDENT MUST DETE| 00000FB0: 52 4D 49 4E 45 20 54 48 45 20 4F 52 44 45 52 20 |RMINE THE ORDER | 00000FC0: 11 20 20 20 4F 46 20 54 48 45 20 43 4F 45 46 46 |. OF THE COEFF| 00000FD0: 49 43 49 45 4E 54 53 20 54 48 41 54 20 57 49 4C |ICIENTS THAT WIL| 00000FE0: 4C 22 00 07 18 1D 02 99 22 11 20 45 51 55 41 4C |L"......". EQUAL| 00000FF0: 20 54 48 45 20 4D 41 58 20 28 41 4C 53 4F 20 47 | THE MAX (ALSO G| 00001000: 49 56 45 4E 29 2E 22 00 43 18 20 02 99 22 11 20 |IVEN).".C. ..". | 00001010: D4 48 45 52 45 20 41 52 45 20 34 20 44 49 46 46 |.HERE ARE 4 DIFF| 00001020: 45 52 45 4E 54 20 45 58 50 52 45 53 53 49 4F 4E |ERENT EXPRESSION| 00001030: 53 20 11 20 20 20 20 20 20 49 4E 20 54 4F 54 41 |S . IN TOTA| 00001040: 4C 2E 22 00 51 18 26 02 8D 38 33 35 3A 8D 38 35 |L.".Q.&..835:.85| 00001050: 30 00 A2 18 27 02 99 22 11 11 20 D4 48 45 20 50 |0...'..".. .HE P| 00001060: 4C 41 43 45 4D 45 4E 54 20 4F 46 20 43 4F 45 46 |LACEMENT OF COEF| 00001070: 46 49 43 49 45 4E 54 53 20 49 53 20 11 20 20 20 |FICIENTS IS . | 00001080: 20 20 20 20 49 4E 44 49 43 41 54 45 44 20 42 59 | INDICATED BY| 00001090: 20 54 48 45 20 41 52 52 4F 57 20 49 4E 20 54 48 | THE ARROW IN TH| 000010A0: 45 22 00 BC 18 28 02 99 22 11 20 41 50 50 52 4F |E"...(..". APPRO| 000010B0: 50 52 49 41 54 45 20 42 4F 58 2E 22 00 07 19 29 |PRIATE BOX."...)| 000010C0: 02 99 22 11 20 D4 48 45 20 53 54 55 44 45 4E 54 |..". .HE STUDENT| 000010D0: 53 20 43 41 4E 20 54 52 59 20 54 4F 20 41 4E 53 |S CAN TRY TO ANS| 000010E0: 57 45 52 20 45 41 43 48 20 20 20 20 20 11 51 55 |WER EACH .QU| 000010F0: 45 53 54 49 4F 4E 20 41 53 20 4D 41 4E 59 20 54 |ESTION AS MANY T| 00001100: 49 4D 45 53 20 41 53 00 53 19 2A 02 99 22 11 20 |IMES AS.S.*..". | 00001110: 54 48 45 59 20 4C 49 4B 45 2E 20 C9 46 20 54 48 |THEY LIKE. .F TH| 00001120: 45 59 20 46 41 49 4C 20 54 4F 20 46 49 4E 44 20 |EY FAIL TO FIND | 00001130: 54 48 45 20 20 20 11 20 20 43 4F 52 52 45 43 54 |THE . CORRECT| 00001140: 20 53 4F 4C 55 54 49 4F 4E 2C 20 49 54 20 57 49 | SOLUTION, IT WI| 00001150: 4C 4C 22 00 73 19 2B 02 99 22 11 20 42 45 20 44 |LL".s.+..". BE D| 00001160: 49 53 50 4C 41 59 45 44 20 46 4F 52 20 54 48 45 |ISPLAYED FOR THE| 00001170: 4D 2E 22 00 86 19 44 02 8D 38 33 35 3A 97 35 39 |M."...D..835:.59| 00001180: 34 36 38 2C 31 32 00 9A 19 4E 02 8B 55 5A B2 31 |468,12...N..UZ.1| 00001190: A7 9E 55 50 25 3A 89 32 31 37 00 A0 19 57 02 8E |..UP%:.217...W..| 000011A0: 00 C6 19 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 |...X.. ** PROGRA| 000011B0: 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 |M MODIFICATION I| 000011C0: 4E 53 54 20 2A 2A 00 D7 19 59 02 99 22 93 22 3A |NST **...Y..".":| 000011D0: 97 55 54 2C 55 4C 25 00 F7 19 5D 02 55 50 B2 30 |.UT,UL%...].UP.0| 000011E0: 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F |:UG$.".ROGRAM .O| 000011F0: 44 22 3A 8D 38 35 30 00 00 1A 94 02 8D 38 33 35 |D":.850......835| 00001200: 00 14 1A B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A |......UZ.1..UP%:| 00001210: 89 32 31 37 00 1A 1A BB 02 8E 00 3F 1A BC 02 8F |.217.......?....| 00001220: 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 | ** TO USE 8032 | 00001230: 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 |LOAD CBM4032 **.| 00001240: 75 1A C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 |u....".....BEFOR| 00001250: 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 |E RUNNING THIS P| 00001260: 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 |ROGRAM ON AN 803| 00001270: 32 20 20 11 11 00 AB 1A D0 02 99 22 20 20 20 20 |2 ........" | 00001280: 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 | LOAD THE 'CBM | 00001290: 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 |4032' PROGRAM...| 000012A0: 11 11 11 11 11 11 11 11 11 11 22 00 B6 1A DA 02 |..........".....| 000012B0: 9E 55 55 AA 37 31 00 BC 1A E4 02 80 00 E1 1A 1D |.UU.71..........| 000012C0: 03 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 |.. ** TO USE 803| 000012D0: 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A |2 LOAD CBM4032 *| 000012E0: 2A 00 2C 1B 1E 03 99 22 93 11 11 11 42 45 46 4F |*.,...."....BEFO| 000012F0: 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 |RE RUNNING THIS | 00001300: 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 |PROGRAM ON AN 80| 00001310: 33 32 20 20 11 11 4C 4F 41 44 20 43 42 4D 20 34 |32 ..LOAD CBM 4| 00001320: 30 33 32 20 50 52 4F 47 52 41 4D 22 00 38 1B 1F |032 PROGRAM".8..| 00001330: 03 9E 31 30 39 33 3A 80 00 58 1B 20 03 8F 20 2A |..1093:..X. .. *| 00001340: 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 |* T I T L E P | 00001350: 41 20 47 20 45 20 2A 2A 00 8C 1B 22 03 99 22 93 |A G E **..."..".| 00001360: 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 |...";:.UT,UU%:..| 00001370: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 |(50003).0..53280| 00001380: 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 A2 1B 24 |,14:.53281,6...$| 00001390: 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B |..I.1.38:."...";| 000013A0: 3A 82 00 BA 1B 26 03 81 49 B2 31 A4 32 32 3A 99 |:....&..I.1.22:.| 000013B0: 22 11 9D 12 A6 92 22 3B 3A 82 00 D2 1B 28 03 81 |".....";:....(..| 000013C0: 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B |I.1.37:.".....";| 000013D0: 3A 82 00 EA 1B 2A 03 81 49 B2 31 A4 32 32 3A 99 |:....*..I.1.22:.| 000013E0: 22 91 9D 12 A6 92 22 3B 3A 82 00 0F 1C 2C 03 99 |".....";:....,..| 000013F0: 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |"...............| 00001400: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 |............ ..| 00001410: 31 1C 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |1...."..........| 00001420: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 |......... . . .| 00001430: A9 00 52 1C 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..R.0.."........| 00001440: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 |........... . .| 00001450: A3 DF 00 70 1C 32 03 99 22 1D 1D 1D 1D 1D 1D 1D |...p.2..".......| 00001460: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 |............. .| 00001470: 00 98 1C 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |...4..".........| 00001480: 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 |.....C O M M O D| 00001490: 20 4F 20 52 20 45 11 11 00 BB 1C 36 03 99 22 1D | O R E.....6..".| 000014A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 |..............ED| 000014B0: 55 43 41 54 49 4F 4E 41 4C 11 11 00 DA 1C 38 03 |UCATIONAL.....8.| 000014C0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............| 000014D0: 1D 1D 53 4F 46 54 57 41 52 45 00 F5 1C 3A 03 8F |..SOFTWARE...:..| 000014E0: 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F | ** COMMODORE LO| 000014F0: 47 4F 20 2A 2A 00 2D 1D 3B 03 99 C8 28 55 44 24 |GO **.-.;...(UD$| 00001500: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |,24);"..........| 00001510: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR | 00001520: 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 00 4F 1D |OR WAIT.":I.0.O.| 00001530: 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 |<..A$:.A$.." ".I| 00001540: B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 |.I.1:.I.250.828.| 00001550: 73 1D 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 |s.>.T1$."":T2$."| 00001560: 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A |":T3$."":T4$."":| 00001570: 49 B2 30 00 7C 1D 40 03 89 33 30 30 00 98 1D 43 |I.0.|.@..300...C| 00001580: 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 |.. ** SPACE BAR | 00001590: 50 52 45 53 53 20 2A 2A 00 D3 1D 48 03 97 55 4F |PRESS **...H..UO| 000015A0: 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D |,0:..(UD$,24);".| 000015B0: 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 |......PRESS SPAC| 000015C0: 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 |E BAR TO CONTINU| 000015D0: 45 92 22 00 EA 1D 4C 03 A1 55 49 24 3A 8B 55 49 |E."...L..UI$:.UI| 000015E0: 24 B3 B1 22 20 22 A7 38 34 34 00 F0 1D 4E 03 8E |$.." ".844...N..| 000015F0: 00 10 1E 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 |...R.. ** PAGE D| 00001600: 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A |ESIGN ROUTINE **| 00001610: 00 1C 1E 54 03 55 50 B2 55 50 AA 31 00 46 1E 57 |...T.UP.UP.1.F.W| 00001620: 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 |..".".(UT$.UP$,2| 00001630: 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 |1);.(UP$.UG$..(U| 00001640: 50 29 2C 31 38 29 00 75 1E 5C 03 99 22 20 2D 2D |P),18).u.\.." --| 00001650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001670: 2D 2D 2D 2D 22 00 84 1E 60 03 8B 55 48 B3 B1 30 |----"...`..UH..0| 00001680: A7 38 37 30 00 B8 1E 61 03 99 C8 28 55 44 24 2C |.870...a...(UD$,| 00001690: 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 |24);.(UP$,7);"HE| 000016A0: 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C |LP - PRESS H <| 000016B0: 52 45 54 55 52 4E 3E 22 00 C9 1E 66 03 55 48 B2 |RETURN>"...f.UH.| 000016C0: 30 3A 99 22 13 11 22 3A 8E 00 E8 1E 6B 03 8F 20 |0:."..":....k.. | 000016D0: 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 |** PLEASE WAIT R| 000016E0: 45 4D 41 52 4B 20 2A 2A 00 1E 1F 70 03 99 C8 28 |EMARK **...p...(| 000016F0: 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 |UD$,24);" | 00001700: 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 | ONE MOMENT P| 00001710: 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 24 |LEASE... ".$| 00001720: 1F 75 03 8E 00 41 1F 84 03 8F 20 2A 2A 20 53 45 |.u...A.... ** SE| 00001730: 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A |T UP VARIABLES *| 00001740: 2A 00 8C 1F 85 03 55 58 24 B2 22 48 22 3A 86 55 |*.....UX$."H":.U| 00001750: 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 |Q%(1000):UB.3276| 00001760: 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A |8:U1.196:U2.197:| 00001770: 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 |U3.198:U4.216:UC| 00001780: B2 31 36 37 3A 55 55 B2 31 30 32 34 00 CA 1F 86 |.167:UU.1024....| 00001790: 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 |.UT.59468:UU%.12| 000017A0: 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 |:UL%.14:UP%.1146| 000017B0: 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 38 |:UM.32768:UO.158| 000017C0: 3A 97 20 35 30 30 30 33 2C 30 00 0D 20 87 03 8B |:. 50003,0.. ...| 000017D0: C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 |.(50003).0.UB.10| 000017E0: 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 |24:U1.209:U2.210| 000017F0: 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 |:U3.211:U4.214:U| 00001800: 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 4C 20 |C.204:UU.2048.L | 00001810: 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 |....(50003).0.UT| 00001820: B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C |.53272:UU%.21:UL| 00001830: 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D |%.23:UP%.2139:UM| 00001840: B2 31 30 32 34 3A 55 4F B2 31 39 38 00 70 20 89 |.1024:UO.198.p .| 00001850: 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.UD$."..........| 00001860: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."| 00001870: 00 A2 20 8A 03 55 50 24 B2 22 20 20 20 20 20 20 |.. ..UP$." | 00001880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000018A0: 20 22 00 EF 20 8B 03 55 54 24 B2 22 20 C8 C9 2D | ".. ..UT$." ..-| 000018B0: C3 C1 CC C3 20 20 20 20 20 20 A0 A0 A0 A0 22 3A |.... ....":| 000018C0: 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 |. PLACE PROGRAM | 000018D0: 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 |TITLE HERE !!!!!| 000018E0: 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 |!!!!!!!!!!!!***.| 000018F0: F5 20 8C 03 8E 00 0F 21 8E 03 8F 20 2A 2A 20 53 |. .....!... ** S| 00001900: 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |ET VARIABLES **.| 00001910: 18 21 93 03 8D 39 30 30 00 1E 21 94 03 3A 00 24 |.!...900..!..:.$| 00001920: 21 95 03 3A 00 3F 21 98 03 8F 20 2A 2A 20 43 48 |!..:.?!... ** CH| 00001930: 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 |ECK FOR 8032 **.| 00001940: 5D 21 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 |]!...".":.".":. | 00001950: 53 48 49 46 54 45 44 20 53 50 41 43 45 00 74 21 |SHIFTED SPACE.t!| 00001960: A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 |....(UB.40)..96.| 00001970: 8D 37 30 30 00 8D 21 A3 03 8F 20 2A 2A 20 4D 45 |.700..!... ** ME| 00001980: 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 A1 21 |MORY CHECK **..!| 00001990: A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 |... .(0).2000.93| 000019A0: 37 00 CF 21 A5 03 99 22 93 11 11 05 54 48 49 53 |7..!..."....THIS| 000019B0: 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F | MACHINE DOES NO| 000019C0: 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 |T HAVE ENOUGH.".| 000019D0: F3 21 A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 |.!..."MEMORY TO | 000019E0: 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D |RUN THIS PROGRAM| 000019F0: 20 21 22 00 FE 21 A7 03 9E 55 55 AA 37 31 00 04 | !"..!...UU.71..| 00001A00: 22 A8 03 80 00 1E 22 A9 03 99 22 93 05 22 3A 8B |"....."..."..":.| 00001A10: C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 4D |.(50003).0.962.M| 00001A20: 22 AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E |"... ** BASIC 2.| 00001A30: 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 |0 OR 4.0 OR | 00001A40: 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 8B 22 |C-64 SETUP **.."| 00001A50: AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 |...1075,133:.107| 00001A60: 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A |6,144:.1077,234:| 00001A70: 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 |.1079,4:.1080,13| 00001A80: 33 3A 97 31 30 38 31 2C 31 34 35 00 C1 22 AE 03 |3:.1081,145.."..| 00001A90: 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C |.1091,155:.1098,| 00001AA0: 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 |133:.1099,144:.1| 00001AB0: 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 |100,234:.1103,13| 00001AC0: 33 00 E3 22 AF 03 97 31 31 30 34 2C 31 34 35 3A |3.."...1104,145:| 00001AD0: 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C |.1105,234:.1082,| 00001AE0: 32 33 34 00 FA 22 B1 03 8B C2 28 35 30 30 30 33 |234.."....(50003| 00001AF0: 29 B3 B1 31 36 30 A7 39 35 35 00 29 23 B6 03 97 |)..160.955.)#...| 00001B00: 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 |1093,88:.1094,22| 00001B10: 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 |8:.1097,85:.1102| 00001B20: 2C 32 32 38 3A 89 39 36 35 00 3E 23 BB 03 8B C2 |,228:.965.>#....| 00001B30: 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 6D |(50003)..1.990.m| 00001B40: 23 C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 |#...1093,49:.109| 00001B50: 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 |4,230:.1097,46:.| 00001B60: 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 A7 23 |1102,230:.965..#| 00001B70: C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 |...2099,141:.210| 00001B80: 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 |0,20:.2101,3:.21| 00001B90: 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 |03,8:.2104,141:.| 00001BA0: 32 31 30 35 2C 32 31 00 E3 23 C3 03 97 32 31 30 |2105,21..#...210| 00001BB0: 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 |6,3:.2115,145:.2| 00001BC0: 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 |117,52:.2118,234| 00001BD0: 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C |:.2121,49:.2122,| 00001BE0: 31 34 31 00 1D 24 C4 03 97 32 31 32 33 2C 32 30 |141..$...2123,20| 00001BF0: 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 |:.2124,3:.2126,2| 00001C00: 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 |34:.2127,141:.21| 00001C10: 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 3B 24 |28,21:.2129,3.;$| 00001C20: C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 |...UU.48:. DISAB| 00001C30: 4C 45 20 53 54 4F 50 20 4B 45 59 00 4C 24 CA 03 |LE STOP KEY.L$..| 00001C40: 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 5C 24 D4 |.800:. TITLE.\$.| 00001C50: 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 8D 24 DE |..300:. MENU..$.| 00001C60: 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C |..".THE PGM WILL| 00001C70: 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 | NOT WORK ON THI| 00001C80: 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 C2 24 |S MACHINE!":...$| 00001C90: E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 |...UZ.1..UP%:.UP| 00001CA0: 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 |%:UZ.0:. ** PROG| 00001CB0: 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 |RAM STARTS HERE | 00001CC0: 2A 2A 00 ED 24 E9 03 99 22 93 05 22 3B 3A 8C 3A |**..$..."..";:.:| 00001CD0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532| 00001CE0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 36 00 07 25 |81,6:.53280,6..%| 00001CF0: FC 03 8F 2A 2A 20 20 20 20 20 48 49 2D 43 41 4C |...** HI-CAL| 00001D00: 43 20 20 20 20 2A 2A 00 21 25 06 04 8F 2A 2A 42 |C **.!%...**B| 00001D10: 59 20 4A 4F 20 41 4E 4E 20 43 4F 4D 49 54 4F 2A |Y JO ANN COMITO*| 00001D20: 2A 00 3B 25 10 04 8F 2A 2A 43 4F 50 59 52 49 47 |*.;%...**COPYRIG| 00001D30: 48 54 20 53 45 50 2D 37 38 2A 2A 00 55 25 1A 04 |HT SEP-78**.U%..| 00001D40: 8F 2A 2A 53 55 4E 59 20 53 54 4F 4E 59 20 42 52 |.**SUNY STONY BR| 00001D50: 4F 4F 4B 2A 2A 00 6F 25 24 04 8F 2A 2A 20 20 20 |OOK**.o%$..** | 00001D60: 20 39 2F 31 2F 37 38 20 20 20 20 20 20 2A 2A 00 | 9/1/78 **.| 00001D70: 92 25 25 04 44 24 B2 22 11 11 11 11 11 11 11 11 |.%%.D$."........| 00001D80: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00001D90: 11 22 00 C4 25 26 04 52 24 B2 22 1D 1D 1D 1D 1D |."..%&.R$.".....| 00001DA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001DB0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001DC0: 1D 1D 1D 22 00 DF 25 29 04 8C 3A 55 54 24 B2 22 |..."..%)..:UT$."| 00001DD0: 20 48 49 2D 43 41 4C 43 22 3A 89 31 33 30 30 00 | HI-CALC":.1300.| 00001DE0: 01 26 6A 04 99 22 11 20 20 20 20 20 12 D7 C5 CC |.&j..". ....| 00001DF0: C3 CF CD C5 20 D4 CF 20 C8 C9 2D C3 C1 CC C3 92 |.... .. ..-.....| 00001E00: 22 00 30 26 74 04 99 22 11 11 1D 1D 1D 1D 1D D0 |".0&t.."........| 00001E10: 45 54 20 57 49 4C 4C 20 47 49 56 45 20 59 4F 55 |ET WILL GIVE YOU| 00001E20: 20 53 4F 4D 45 20 41 4C 47 45 42 52 41 49 43 22 | SOME ALGEBRAIC"| 00001E30: 00 5C 26 7E 04 99 22 11 20 45 58 50 52 45 53 53 |.\&~..". EXPRESS| 00001E40: 49 4F 4E 53 20 57 49 54 48 20 54 48 45 20 43 4F |IONS WITH THE CO| 00001E50: 45 46 46 49 43 49 45 4E 54 53 20 22 00 87 26 88 |EFFICIENTS "..&.| 00001E60: 04 99 22 11 20 4D 49 53 53 49 4E 47 2E 20 D0 45 |..". MISSING. .E| 00001E70: 54 20 57 49 4C 4C 20 41 4C 53 4F 20 47 49 56 45 |T WILL ALSO GIVE| 00001E80: 20 59 4F 55 20 41 22 00 B0 26 92 04 99 22 11 20 | YOU A"..&...". | 00001E90: 56 41 4C 55 45 20 46 4F 52 20 58 20 41 4E 44 20 |VALUE FOR X AND | 00001EA0: 54 48 45 20 56 41 4C 55 45 53 20 4F 46 20 35 22 |THE VALUES OF 5"| 00001EB0: 00 C8 26 9C 04 99 22 11 20 43 4F 45 46 46 49 43 |..&...". COEFFIC| 00001EC0: 49 45 4E 54 53 2E 20 22 00 F6 26 A6 04 99 22 11 |IENTS. "..&...".| 00001ED0: 11 1D 1D 1D 1D 1D D9 4F 55 52 20 4A 4F 42 20 49 |.......OUR JOB I| 00001EE0: 53 20 54 4F 20 41 52 52 41 4E 47 45 20 54 48 45 |S TO ARRANGE THE| 00001EF0: 20 46 49 56 45 22 00 21 27 B0 04 99 22 11 20 43 | FIVE".!'...". C| 00001F00: 4F 45 46 46 49 43 49 45 4E 54 53 20 53 4F 20 54 |OEFFICIENTS SO T| 00001F10: 48 41 54 20 54 48 45 20 56 41 4C 55 45 20 4F 46 |HAT THE VALUE OF| 00001F20: 22 00 47 27 BA 04 99 22 11 20 54 48 45 20 45 58 |".G'...". THE EX| 00001F30: 50 52 45 53 53 49 4F 4E 20 49 53 20 4D 41 58 49 |PRESSION IS MAXI| 00001F40: 4D 49 5A 45 44 2E 22 00 55 27 BF 04 8D 38 33 35 |MIZED.".U'...835| 00001F50: 3A 8D 38 35 30 00 85 27 C4 04 99 22 11 11 20 20 |:.850..'...".. | 00001F60: 20 20 20 CD 41 4B 45 20 53 55 52 45 20 54 48 41 | .AKE SURE THA| 00001F70: 54 20 59 4F 55 20 57 41 49 54 20 55 4E 54 49 4C |T YOU WAIT UNTIL| 00001F80: 20 54 48 45 22 00 B0 27 CE 04 99 22 11 20 41 52 | THE"..'...". AR| 00001F90: 52 4F 57 20 5E 20 41 50 50 45 41 52 53 20 49 4E |ROW ^ APPEARS IN| 00001FA0: 20 54 48 45 20 42 4F 58 20 42 45 46 4F 52 45 22 | THE BOX BEFORE"| 00001FB0: 00 DE 27 D8 04 99 22 11 20 54 59 50 49 4E 47 20 |..'...". TYPING | 00001FC0: 54 48 45 20 4C 45 54 54 45 52 20 4F 46 20 54 48 |THE LETTER OF TH| 00001FD0: 45 20 43 4F 45 46 46 49 43 49 45 4E 54 22 00 0A |E COEFFICIENT"..| 00001FE0: 28 E2 04 99 22 11 20 59 4F 55 20 57 41 4E 54 20 |(...". YOU WANT | 00001FF0: D0 45 54 20 54 4F 20 57 52 49 54 45 20 49 4E 20 |.ET TO WRITE IN | 00002000: 54 48 41 54 20 42 4F 58 2E 22 00 3B 28 EC 04 99 |THAT BOX.".;(...| 00002010: 22 11 11 1D 1D 1D 1D 1D D4 48 45 52 45 20 57 49 |"........HERE WI| 00002020: 4C 4C 20 42 45 20 41 20 54 4F 54 41 4C 20 4F 46 |LL BE A TOTAL OF| 00002030: 20 34 20 52 4F 55 4E 44 53 2E 22 00 4E 28 F6 04 | 4 ROUNDS.".N(..| 00002040: 8D 38 33 35 3A 8D 38 35 30 3A 89 34 32 30 00 57 |.835:.850:.420.W| 00002050: 28 00 05 8D 38 33 35 00 84 28 14 05 81 49 B2 31 |(...835..(...I.1| 00002060: A4 36 3A 87 58 28 49 29 2C 41 28 49 29 2C 42 28 |.6:.X(I),A(I),B(| 00002070: 49 29 2C 43 28 49 29 2C 44 28 49 29 2C 45 28 49 |I),C(I),D(I),E(I| 00002080: 29 3A 82 49 00 C3 28 1E 05 83 31 2C 31 2C 33 2C |):.I..(...1,1,3,| 00002090: 2D 35 2C 2D 32 2C 38 2C 32 2C 32 2C 2D 31 2C 32 |-5,-2,8,2,2,-1,2| 000020A0: 2C 2D 35 2C 2D 31 2C 33 2C 34 2C 2D 34 2C 39 2C |,-5,-1,3,4,-4,9,| 000020B0: 31 2C 2D 35 2C 2D 31 2C 2D 32 2C 2D 32 2C 34 2C |1,-5,-1,-2,-2,4,| 000020C0: 32 2C 32 00 E6 28 28 05 83 2D 32 2C 35 2C 2D 33 |2,2..((..-2,5,-3| 000020D0: 2C 31 2C 34 2C 2D 31 2C 2D 33 2C 36 2C 39 2C 33 |,1,4,-1,-3,6,9,3| 000020E0: 2C 2D 33 2C 2D 33 00 FB 28 32 05 81 49 B2 31 A4 |,-3,-3..(2..I.1.| 000020F0: 35 3A 87 43 24 28 49 29 3A 82 49 00 14 29 3C 05 |5:.C$(I):.I..)<.| 00002100: 83 22 41 22 2C 22 42 22 2C 22 43 22 2C 22 44 22 |."A","B","C","D"| 00002110: 2C 22 45 22 00 25 29 46 05 8B 46 4C 41 47 B2 31 |,"E".%)F..FLAG.1| 00002120: A7 31 38 31 30 00 48 29 50 05 99 22 93 22 3A 8D |.1810.H)P..".":.| 00002130: 33 34 30 30 3A 99 22 13 20 20 20 50 4C 45 41 53 |3400:.". PLEAS| 00002140: 45 20 57 41 49 54 22 3B 00 64 29 5A 05 8F 2A 2A |E WAIT";.d)Z..**| 00002150: 47 45 4E 45 52 41 54 45 20 45 51 55 41 54 49 4F |GENERATE EQUATIO| 00002160: 4E 53 2A 2A 00 6F 29 64 05 81 49 B2 31 A4 36 00 |NS**.o)d..I.1.6.| 00002170: 81 29 6E 05 4E B2 B5 28 BB 28 31 29 AC 36 AA 31 |.)n.N..(.(1).6.1| 00002180: 29 00 91 29 78 05 8B 49 B2 31 A7 58 B2 58 28 4E |)..)x..I.1.X.X(N| 00002190: 29 00 A5 29 82 05 8B 49 B2 32 A7 45 51 28 31 29 |)..)...I.2.EQ(1)| 000021A0: B2 41 28 4E 29 00 B9 29 8C 05 8B 49 B2 33 A7 45 |.A(N)..)...I.3.E| 000021B0: 51 28 32 29 B2 42 28 4E 29 00 CD 29 96 05 8B 49 |Q(2).B(N)..)...I| 000021C0: B2 34 A7 45 51 28 33 29 B2 43 28 4E 29 00 E1 29 |.4.EQ(3).C(N)..)| 000021D0: A0 05 8B 49 B2 35 A7 45 51 28 34 29 B2 44 28 4E |...I.5.EQ(4).D(N| 000021E0: 29 00 F5 29 AA 05 8B 49 B2 36 A7 45 51 28 35 29 |)..)...I.6.EQ(5)| 000021F0: B2 45 28 4E 29 00 02 2A B4 05 82 49 3A 99 22 2E |.E(N)..*...I:.".| 00002200: 22 3B 00 10 2A BE 05 52 4F 55 B2 52 4F 55 AA 31 |";..*..ROU.ROU.1| 00002210: 00 20 2A C8 05 8B 52 4F 55 B1 34 A7 32 30 38 30 |. *...ROU.4.2080| 00002220: 00 32 2A D2 05 8F 2A 2A 46 49 4E 44 20 4D 41 58 |.2*...**FIND MAX| 00002230: 2A 2A 00 41 2A DC 05 4D 41 58 B2 AB 39 39 39 39 |**.A*..MAX..9999| 00002240: 39 00 4C 2A E6 05 81 49 B2 31 A4 35 00 5D 2A F0 |9.L*...I.1.5.]*.| 00002250: 05 81 4A B2 31 A4 35 3A 99 22 2E 22 3B 00 6B 2A |..J.1.5:.".";.k*| 00002260: FA 05 8B 4A B2 49 A7 31 37 30 30 00 76 2A 04 06 |...J.I.1700.v*..| 00002270: 81 4B B2 31 A4 35 00 88 2A 0E 06 8B 4B B2 49 B0 |.K.1.5..*...K.I.| 00002280: 4B B2 4A A7 31 36 39 30 00 93 2A 18 06 81 4C B2 |K.J.1690..*...L.| 00002290: 31 A4 35 00 A9 2A 22 06 8B 4C B2 49 B0 4C B2 4A |1.5..*"..L.I.L.J| 000022A0: B0 4C B2 4B A7 31 36 38 30 00 B4 2A 2C 06 81 4D |.L.K.1680..*,..M| 000022B0: B2 31 A4 35 00 CE 2A 36 06 8B 4D B2 49 B0 4D B2 |.1.5..*6..M.I.M.| 000022C0: 4A B0 4D B2 4B B0 4D B2 4C A7 31 36 37 30 00 0C |J.M.K.M.L.1670..| 000022D0: 2B 40 06 8B 52 4F 55 B2 31 A7 20 56 41 58 B2 45 |+@..ROU.1. VAX.E| 000022E0: 51 28 49 29 AC 58 AC 58 AA 45 51 28 4A 29 AC 58 |Q(I).X.X.EQ(J).X| 000022F0: AB 45 51 28 4B 29 AA 28 45 51 28 4C 29 AC 58 AA |.EQ(K).(EQ(L).X.| 00002300: 32 29 AC 28 45 51 28 4D 29 AB 58 29 00 2C 2B 4A |2).(EQ(M).X).,+J| 00002310: 06 8B 52 4F 55 B2 32 AF 45 51 28 4C 29 AC 58 AA |..ROU.2.EQ(L).X.| 00002320: 45 51 28 4D 29 B2 30 A7 31 36 37 30 00 65 2B 54 |EQ(M).0.1670.e+T| 00002330: 06 8B 52 4F 55 B2 32 A7 56 41 58 B2 28 45 51 28 |..ROU.2.VAX.(EQ(| 00002340: 49 29 AC 58 AC 58 AB 45 51 28 4A 29 AC 58 AA 45 |I).X.X.EQ(J).X.E| 00002350: 51 28 4B 29 29 AD 28 45 51 28 4C 29 AC 58 AA 45 |Q(K)).(EQ(L).X.E| 00002360: 51 28 4D 29 29 00 A2 2B 5E 06 8B 52 4F 55 B2 33 |Q(M))..+^..ROU.3| 00002370: A7 56 41 58 B2 45 51 28 49 29 AC 58 AC 58 AA 28 |.VAX.EQ(I).X.X.(| 00002380: 45 51 28 4A 29 AC 58 AC 58 AA 45 51 28 4B 29 AC |EQ(J).X.X.EQ(K).| 00002390: 58 AB 45 51 28 4C 29 29 AC 28 45 51 28 4D 29 AC |X.EQ(L)).(EQ(M).| 000023A0: 58 29 00 BC 2B 68 06 8B 52 4F 55 B2 34 AF 45 51 |X)..+h..ROU.4.EQ| 000023B0: 28 4D 29 AC 58 B2 30 A7 31 36 37 30 00 FE 2B 72 |(M).X.0.1670..+r| 000023C0: 06 8B 52 4F 55 B2 34 A7 56 41 58 B2 28 45 51 28 |..ROU.4.VAX.(EQ(| 000023D0: 49 29 AC 58 AE 33 AA 45 51 28 4A 29 AC 58 AC 58 |I).X.3.EQ(J).X.X| 000023E0: AB 45 51 28 4B 29 AC 58 AA 45 51 28 4C 29 29 AD |.EQ(K).X.EQ(L)).| 000023F0: 28 28 AB 31 29 AC 45 51 28 4D 29 AC 58 29 00 36 |((.1).EQ(M).X).6| 00002400: 2C 7C 06 8B 56 41 58 B1 4D 41 58 A7 4D 41 58 B2 |,|..VAX.MAX.MAX.| 00002410: 56 41 58 3A 4D 28 31 29 B2 49 3A 4D 28 32 29 B2 |VAX:M(1).I:M(2).| 00002420: 4A 3A 4D 28 33 29 B2 4B 3A 4D 28 34 29 B2 4C 3A |J:M(3).K:M(4).L:| 00002430: 4D 28 35 29 B2 4D 00 3D 2C 86 06 82 4D 00 44 2C |M(5).M.=,...M.D,| 00002440: 90 06 82 4C 00 4B 2C 9A 06 82 4B 00 52 2C A4 06 |...L.K,...K.R,..| 00002450: 82 4A 00 59 2C AE 06 82 49 00 6D 2C B8 06 8B 4D |.J.Y,...I.m,...M| 00002460: 41 58 B2 AB 39 39 39 39 A7 31 33 37 30 00 86 2C |AX..9999.1370..,| 00002470: C2 06 8F 2A 2A 47 45 4E 45 52 41 54 45 20 53 43 |...**GENERATE SC| 00002480: 52 45 45 4E 2A 2A 00 C3 2C CC 06 8F 20 50 52 49 |REEN**..,... PRI| 00002490: 4E 54 22 93 22 3B 3A 47 4F 53 55 42 38 36 35 3A |NT".";:GOSUB865:| 000024A0: 50 52 49 4E 54 22 13 22 3B 4C 45 46 54 24 28 52 |PRINT".";LEFT$(R| 000024B0: 24 2C 31 36 29 3B 22 52 4F 55 4E 44 22 3B 52 4F |$,16);"ROUND";RO| 000024C0: 55 4E 44 00 E3 2C D1 06 55 47 24 B2 22 52 4F 55 |UND..,..UG$."ROU| 000024D0: 4E 44 22 3A 55 50 B2 52 4F 55 4E 44 AB 31 3A 8D |ND":UP.ROUND.1:.| 000024E0: 38 35 30 00 10 2D D6 06 99 3A 99 22 20 20 20 20 |850..-...:." | 000024F0: 58 20 20 20 20 20 41 20 20 20 20 20 42 20 20 20 |X A B | 00002500: 20 20 43 20 20 20 20 20 44 20 20 20 20 20 45 22 | C D E"| 00002510: 00 3C 2D E0 06 99 22 20 20 20 A4 A4 A4 20 20 20 |.<-..." ... | 00002520: A4 A4 A4 20 20 20 A4 A4 A4 20 20 20 A4 A4 A4 20 |... ... ... | 00002530: 20 20 A4 A4 A4 20 20 20 A4 A4 A4 22 00 47 2D EA | ... ...".G-.| 00002540: 06 81 50 B2 31 A4 33 00 76 2D F4 06 99 22 20 20 |..P.1.3.v-..." | 00002550: A7 12 20 20 20 92 A5 20 A7 20 20 20 A5 20 A7 20 |.. .. . . . | 00002560: 20 20 A5 20 A7 20 20 20 A5 20 A7 20 20 20 A5 20 | . . . . . | 00002570: A7 20 20 20 A5 22 00 7D 2D FE 06 82 50 00 A9 2D |. .".}-...P..-| 00002580: 08 07 99 22 20 20 20 A3 A3 A3 20 20 20 A3 A3 A3 |..." ... ...| 00002590: 20 20 20 A3 A3 A3 20 20 20 A3 A3 A3 20 20 20 A3 | ... ... .| 000025A0: A3 A3 20 20 20 A3 A3 A3 22 00 C5 2D 12 07 8F 2A |.. ..."..-...*| 000025B0: 2A 50 55 54 20 43 4F 45 46 46 20 49 4E 20 42 4F |*PUT COEFF IN BO| 000025C0: 58 45 53 2A 2A 00 D0 2D 1C 07 81 49 B2 31 A4 36 |XES**..-...I.1.6| 000025D0: 00 EA 2D 26 07 44 B2 35 3A 52 B2 33 AA 28 49 AB |..-&.D.5:R.3.(I.| 000025E0: 31 29 AC 36 3A 8D 32 31 30 30 00 FE 2D 30 07 8B |1).6:.2100..-0..| 000025F0: 49 B2 31 A7 99 22 12 22 3B 58 3B 22 92 22 00 10 |I.1..".";X;"."..| 00002600: 2E 3A 07 8B 49 B1 31 A7 99 45 51 28 49 AB 31 29 |.:..I.1..EQ(I.1)| 00002610: 00 17 2E 44 07 82 49 00 38 2E 4E 07 91 20 52 4F |...D..I.8.N.. RO| 00002620: 55 4E 44 20 8D 32 31 33 30 2C 32 32 30 30 2C 32 |UND .2130,2200,2| 00002630: 33 33 30 2C 32 34 30 30 00 58 2E 58 07 91 52 4F |330,2400.X.X..RO| 00002640: 55 4E 44 20 8D 32 35 33 30 2C 32 36 36 30 2C 32 |UND .2530,2660,2| 00002650: 38 30 30 2C 32 39 33 30 00 6B 2E 62 07 44 B2 32 |800,2930.k.b.D.2| 00002660: 30 3A 52 B2 31 3A 8D 32 31 30 30 00 AB 2E 6C 07 |0:R.1:.2100...l.| 00002670: 99 22 49 53 20 41 52 52 41 4E 47 45 4D 45 4E 54 |."IS ARRANGEMENT| 00002680: 20 4F 4B 3F 20 20 20 20 20 20 20 20 20 20 20 20 | OK? | 00002690: 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D | .........| 000026A0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 C8 2E 6D 07 |.........";...m.| 000026B0: 55 4C B2 31 3A 55 53 24 B2 22 59 4E 22 3A 8D 33 |UL.1:US$."YN":.3| 000026C0: 35 3A 41 24 B2 55 52 24 00 E8 2E 76 07 8B C8 28 |5:A$.UR$...v...(| 000026D0: 41 24 2C 31 29 B2 22 4E 22 A7 46 4C 41 47 B2 31 |A$,1)."N".FLAG.1| 000026E0: 3A 8C 3A 89 31 33 30 30 00 20 2F 80 07 8B 52 4F |:.:.1300. /...RO| 000026F0: 55 B2 31 A7 56 41 58 B2 45 28 31 29 AC 58 AC 58 |U.1.VAX.E(1).X.X| 00002700: AA 45 28 32 29 AC 58 AB 45 28 33 29 AA 28 45 28 |.E(2).X.E(3).(E(| 00002710: 34 29 AC 58 AA 32 29 AC 28 45 28 35 29 AB 58 29 |4).X.2).(E(5).X)| 00002720: 00 54 2F 8A 07 8B 52 4F 55 B2 32 A7 56 41 58 B2 |.T/...ROU.2.VAX.| 00002730: 28 45 28 31 29 AC 58 AC 58 AB 45 28 32 29 AC 58 |(E(1).X.X.E(2).X| 00002740: AA 45 28 33 29 29 AD 28 45 28 34 29 AC 58 AA 45 |.E(3)).(E(4).X.E| 00002750: 28 35 29 29 00 8C 2F 94 07 8B 52 4F 55 B2 33 A7 |(5))../...ROU.3.| 00002760: 56 41 58 B2 45 28 31 29 AC 58 AC 58 AA 28 45 28 |VAX.E(1).X.X.(E(| 00002770: 32 29 AC 58 AC 58 AA 45 28 33 29 AC 58 AB 45 28 |2).X.X.E(3).X.E(| 00002780: 34 29 29 AC 28 45 28 35 29 AC 58 29 00 C9 2F 9E |4)).(E(5).X)../.| 00002790: 07 8B 52 4F 55 B2 34 A7 56 41 58 B2 28 45 28 31 |..ROU.4.VAX.(E(1| 000027A0: 29 AC 58 AE 33 AA 45 28 32 29 AC 58 AC 58 AB 45 |).X.3.E(2).X.X.E| 000027B0: 28 33 29 AC 58 AA 45 28 34 29 29 AD 28 28 AB 31 |(3).X.E(4)).((.1| 000027C0: 29 AC 45 28 35 29 AC 58 29 00 F5 2F A8 07 44 B2 |).E(5).X)../..D.| 000027D0: 32 32 3A 52 B2 31 3A 8D 32 31 30 30 3A 99 22 56 |22:R.1:.2100:."V| 000027E0: 41 4C 55 45 3D 22 3B 56 41 58 2C 22 4D 41 58 3D |ALUE=";VAX,"MAX=| 000027F0: 22 3B 4D 41 58 00 05 30 B2 07 81 54 B2 31 A4 35 |";MAX..0...T.1.5| 00002800: 30 30 3A 82 54 00 17 30 BC 07 8B 4D 41 58 B2 56 |00:.T..0...MAX.V| 00002810: 41 58 A7 32 30 33 30 00 4C 30 C6 07 44 B2 32 30 |AX.2030.L0..D.20| 00002820: 3A 52 B2 31 3A 8D 32 31 30 30 3A 99 22 57 41 4E |:R.1:.2100:."WAN| 00002830: 54 20 54 4F 20 49 4D 50 52 4F 56 45 20 41 52 52 |T TO IMPROVE ARR| 00002840: 41 4E 47 45 4D 45 4E 54 3F 20 22 3B 00 69 30 C7 |ANGEMENT? ";.i0.| 00002850: 07 55 4C B2 31 3A 55 53 24 B2 22 59 4E 22 3A 8D |.UL.1:US$."YN":.| 00002860: 33 35 3A 41 24 B2 55 52 24 00 AB 30 D0 07 8B 28 |35:A$.UR$..0...(| 00002870: 41 24 29 B2 22 59 22 A7 99 C8 28 55 44 24 2C 32 |A$)."Y"...(UD$,2| 00002880: 33 29 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |3)" | 00002890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000028A0: 20 20 20 20 20 20 20 20 20 20 22 00 CB 30 D5 07 | "..0..| 000028B0: 8B C8 28 41 24 2C 31 29 B2 22 59 22 A7 46 4C 41 |..(A$,1)."Y".FLA| 000028C0: 47 B2 31 3A 8C 3A 89 31 33 30 30 00 D6 30 DA 07 |G.1:.:.1300..0..| 000028D0: 46 4C 41 47 B2 32 00 F5 30 E4 07 91 52 4F 55 4E |FLAG.2..0...ROUN| 000028E0: 44 8D 32 35 33 30 2C 32 36 36 30 2C 32 38 30 30 |D.2530,2660,2800| 000028F0: 2C 32 39 33 30 00 08 31 EE 07 44 B2 32 30 3A 52 |,2930..1..D.20:R| 00002900: B2 31 3A 8D 32 31 30 30 00 11 31 F8 07 8D 38 33 |.1:.2100..1...83| 00002910: 35 00 17 31 0C 08 8C 00 28 31 16 08 46 4C 41 47 |5..1....(1..FLAG| 00002920: B2 30 3A 89 31 33 30 30 00 53 31 20 08 99 22 93 |.0:.1300.S1 ..".| 00002930: 20 20 20 54 48 41 4E 4B 20 59 4F 55 20 46 4F 52 | THANK YOU FOR| 00002940: 20 50 4C 41 59 49 4E 47 20 12 48 49 2D 43 41 4C | PLAYING .HI-CAL| 00002950: 43 92 22 00 59 31 2A 08 8E 00 71 31 34 08 8F 2A |C.".Y1*...q14..*| 00002960: 2A 43 55 52 53 4F 52 20 41 44 44 52 45 53 53 2A |*CURSOR ADDRESS*| 00002970: 2A 00 8C 31 3E 08 50 24 B2 22 13 22 AA C8 28 44 |*..1>.P$."."..(D| 00002980: 24 2C 44 29 AA C8 28 52 24 2C 52 29 00 97 31 48 |$,D)..(R$,R)..1H| 00002990: 08 99 50 24 3B 3A 8E 00 B4 31 52 08 8F 2A 2A 50 |..P$;:...1R..**P| 000029A0: 52 49 4E 54 20 52 4F 55 4E 44 20 31 20 42 4F 58 |RINT ROUND 1 BOX| 000029B0: 45 53 2A 2A 00 EB 31 5C 08 99 3A 99 3A 99 3A 99 |ES**..1\..:.:.:.| 000029C0: 22 20 A4 A4 A4 20 20 20 20 20 A4 A4 A4 20 20 20 |" ... ... | 000029D0: 20 A4 A4 A4 20 20 B0 20 A4 A4 A4 20 20 20 20 AE | ... . ... .| 000029E0: B0 20 A4 A4 A4 20 20 20 AE 22 3B 00 1C 32 66 08 |. ... .";..2f.| 000029F0: 99 22 A7 20 20 20 A5 20 32 20 A7 20 20 20 A5 20 |.". . 2 . . | 00002A00: 20 A7 20 20 20 A5 20 DD A7 20 20 20 A5 20 20 20 | . . .. . | 00002A10: DD DD A7 20 20 20 A5 20 20 DD 22 3B 00 4D 32 70 |... . .";.M2p| 00002A20: 08 99 22 A7 20 20 20 A5 58 20 2B A7 20 20 20 A5 |..". .X +. .| 00002A30: 58 2D A7 20 20 20 A5 2B DD A7 20 20 20 A5 58 2B |X-. .+.. .X+| 00002A40: 32 DD DD A7 20 20 20 A5 2D 58 DD 22 3B 00 7E 32 |2... .-X.";.~2| 00002A50: 7A 08 99 22 A7 20 20 20 A5 20 20 20 A7 20 20 20 |z..". . . | 00002A60: A5 20 20 A7 20 20 20 A5 20 DD A7 20 20 20 A5 20 |. . . .. . | 00002A70: 20 20 DD DD A7 20 20 20 A5 20 20 DD 22 3B 00 AF | ... . .";..| 00002A80: 32 84 08 99 22 20 A3 A3 A3 20 20 20 20 20 A3 A3 |2..." ... ..| 00002A90: A3 20 20 20 20 A3 A3 A3 20 20 AD 20 A3 A3 A3 20 |. ... . ... | 00002AA0: 20 20 20 BD AD 20 A3 A3 A3 20 20 20 BD 22 3B 00 | .. ... .";.| 00002AB0: B5 32 8E 08 8E 00 D2 32 98 08 8F 2A 2A 50 52 49 |.2.....2...**PRI| 00002AC0: 4E 54 20 52 4F 55 4E 44 20 32 20 42 4F 58 45 53 |NT ROUND 2 BOXES| 00002AD0: 2A 2A 00 F5 32 A2 08 99 3A 99 3A 99 A3 39 29 3B |**..2...:.:..9);| 00002AE0: 22 20 A4 A4 A4 20 20 20 20 20 A4 A4 A4 20 20 20 |" ... ... | 00002AF0: 20 A4 A4 A4 22 00 15 33 AC 08 99 A3 39 29 3B 22 | ..."..3....9);"| 00002B00: A7 20 20 20 A5 20 32 20 A7 20 20 20 A5 20 20 A7 |. . 2 . . .| 00002B10: 20 20 20 A5 22 00 35 33 B6 08 99 A3 39 29 3B 22 | .".53....9);"| 00002B20: A7 20 20 20 A5 58 20 2D A7 20 20 20 A5 58 2B A7 |. .X -. .X+.| 00002B30: 20 20 20 A5 22 00 55 33 C0 08 99 A3 39 29 3B 22 | .".U3....9);"| 00002B40: A7 20 20 20 A5 20 20 20 A7 20 20 20 A5 20 20 A7 |. . . . .| 00002B50: 20 20 20 A5 22 00 74 33 CA 08 99 A3 39 29 3B 22 | .".t3....9);"| 00002B60: 20 A3 A3 A3 20 20 20 20 20 A3 A3 A3 20 20 20 20 | ... ... | 00002B70: A3 A3 A3 22 00 9D 33 D4 08 99 A3 34 29 3B 22 C0 |..."..3....4);".| 00002B80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00002B90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 B5 33 |............"..3| 00002BA0: DE 08 99 A3 31 33 29 3B 22 20 A4 A4 A4 20 20 20 |....13);" ... | 00002BB0: 20 A4 A4 A4 22 00 CE 33 E8 08 99 A3 31 33 29 3B | ..."..3....13);| 00002BC0: 22 A7 20 20 20 A5 20 20 A7 20 20 20 A5 22 00 E7 |". . . ."..| 00002BD0: 33 F2 08 99 A3 31 33 29 3B 22 A7 20 20 20 A5 58 |3....13);". .X| 00002BE0: 2B A7 20 20 20 A5 22 00 00 34 FC 08 99 A3 31 33 |+. ."..4....13| 00002BF0: 29 3B 22 A7 20 20 20 A5 20 20 A7 20 20 20 A5 22 |);". . . ."| 00002C00: 00 18 34 06 09 99 A3 31 33 29 3B 22 20 A3 A3 A3 |..4....13);" ...| 00002C10: A0 A0 A0 A0 A3 A3 A3 22 00 1E 34 10 09 8E 00 3A |......."..4....:| 00002C20: 34 1A 09 8F 2A 2A 50 52 49 4E 54 20 52 4F 55 4E |4...**PRINT ROUN| 00002C30: 44 33 20 42 4F 58 45 53 2A 2A 00 6D 34 24 09 99 |D3 BOXES**.m4$..| 00002C40: 3A 99 3A 99 22 20 A4 A4 A4 20 20 20 20 B0 20 A4 |:.:." ... . .| 00002C50: A4 A4 20 20 20 20 20 A4 A4 A4 20 20 20 20 A4 A4 |.. ... ..| 00002C60: A4 20 AE B0 20 20 A4 A4 A4 20 20 AE 22 00 9C 34 |. .. ... ."..4| 00002C70: 2E 09 99 22 A7 20 20 20 A5 20 32 20 DD A7 20 20 |...". . 2 .. | 00002C80: 20 A5 20 32 20 A7 20 20 20 A5 20 20 A7 20 20 20 | . 2 . . . | 00002C90: A5 DD DD 20 A7 20 20 20 A5 20 DD 22 00 CB 34 38 |... . . ."..48| 00002CA0: 09 99 22 A7 20 20 20 A5 58 20 2B DD A7 20 20 20 |..". .X +.. | 00002CB0: A5 58 20 2B A7 20 20 20 A5 58 2D A7 20 20 20 A5 |.X +. .X-. .| 00002CC0: DD DD 20 A7 20 20 20 A5 58 DD 22 00 FA 34 42 09 |.. . .X."..4B.| 00002CD0: 99 22 A7 20 20 20 A5 20 20 20 DD A7 20 20 20 A5 |.". . .. .| 00002CE0: 20 20 20 A7 20 20 20 A5 20 20 A7 20 20 20 A5 DD | . . . ..| 00002CF0: DD 20 A7 20 20 20 A5 20 DD 22 00 29 35 4C 09 99 |. . . .".)5L..| 00002D00: 22 20 A3 A3 A3 20 20 20 20 AD 20 A3 A3 A3 20 20 |" ... . ... | 00002D10: 20 20 20 A3 A3 A3 20 20 20 20 A3 A3 A3 20 BD AD | ... ... ..| 00002D20: 20 20 A3 A3 A3 20 20 BD 22 00 2F 35 56 09 8E 00 | ... ."./5V...| 00002D30: 4C 35 60 09 8F 2A 2A 50 52 49 4E 54 20 52 4F 55 |L5`..**PRINT ROU| 00002D40: 4E 44 20 34 20 42 4F 58 45 53 2A 2A 00 79 35 6A |ND 4 BOXES**.y5j| 00002D50: 09 99 3A 99 3A 99 22 20 20 20 20 20 20 20 A4 A4 |..:.:." ..| 00002D60: A4 20 20 20 20 20 A4 A4 A4 20 20 20 20 20 A4 A4 |. ... ..| 00002D70: A4 20 20 20 20 A4 A4 A4 22 00 A3 35 74 09 99 22 |. ..."..5t.."| 00002D80: 20 20 20 20 20 20 A7 20 20 20 A5 20 33 20 A7 20 | . . 3 . | 00002D90: 20 20 A5 20 32 20 A7 20 20 20 A5 20 20 A7 20 20 | . 2 . . . | 00002DA0: 20 A5 22 00 CD 35 7E 09 99 22 20 20 20 20 20 20 | ."..5~.." | 00002DB0: A7 20 20 20 A5 58 20 2B A7 20 20 20 A5 58 20 2D |. .X +. .X -| 00002DC0: A7 20 20 20 A5 58 2B A7 20 20 20 A5 22 00 F7 35 |. .X+. ."..5| 00002DD0: 88 09 99 22 20 20 20 20 20 20 A7 20 20 20 A5 20 |..." . . | 00002DE0: 20 20 A7 20 20 20 A5 20 20 20 A7 20 20 20 A5 20 | . . . . | 00002DF0: 20 A7 20 20 20 A5 22 00 20 36 92 09 99 22 20 20 | . .". 6..." | 00002E00: 20 20 20 20 20 A3 A3 A3 20 20 20 20 20 A3 A3 A3 | ... ...| 00002E10: 20 20 20 20 20 A3 A3 A3 20 20 20 20 A3 A3 A3 22 | ... ..."| 00002E20: 00 4D 36 9C 09 99 22 20 20 20 C0 C0 C0 C0 C0 C0 |.M6..." ......| 00002E30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00002E40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 5D 36 |............".]6| 00002E50: A6 09 99 A3 31 39 29 3B 22 A4 A4 A4 22 00 6F 36 |....19);"...".o6| 00002E60: B0 09 99 A3 31 38 29 3B 22 A7 20 20 20 A5 22 00 |....18);". .".| 00002E70: 83 36 BA 09 99 A3 31 37 29 3B 22 2D A7 20 20 20 |.6....17);"-. | 00002E80: A5 58 22 00 95 36 C4 09 99 A3 31 38 29 3B 22 A7 |.X"..6....18);".| 00002E90: 20 20 20 A5 22 00 A5 36 CE 09 99 A3 31 39 29 3B | ."..6....19);| 00002EA0: 22 A3 A3 A3 22 00 AB 36 D8 09 8E 00 BB 36 E2 09 |"..."..6.....6..| 00002EB0: 8F 2A 2A 52 4F 55 4E 44 31 2A 2A 00 C6 36 EC 09 |.**ROUND1**..6..| 00002EC0: 81 49 B2 31 A4 35 00 D7 36 F6 09 8B 46 4C 41 47 |.I.1.5..6...FLAG| 00002ED0: B2 32 A7 32 35 37 30 00 E2 36 00 0A 46 4C 41 47 |.2.2570..6..FLAG| 00002EE0: B2 30 00 EC 36 0A 0A 44 31 B2 31 31 00 FA 36 14 |.0..6..D1.11..6.| 00002EF0: 0A 8B 49 B2 31 A7 52 31 B2 32 00 09 37 1E 0A 8B |..I.1.R1.2..7...| 00002F00: 49 B2 32 A7 52 31 B2 31 30 00 18 37 28 0A 8B 49 |I.2.R1.10..7(..I| 00002F10: B2 33 A7 52 31 B2 31 37 00 27 37 32 0A 8B 49 B2 |.3.R1.17.'72..I.| 00002F20: 34 A7 52 31 B2 32 34 00 36 37 3C 0A 8B 49 B2 35 |4.R1.24.67<..I.5| 00002F30: A7 52 31 B2 33 34 00 40 37 46 0A 8D 33 30 36 30 |.R1.34.@7F..3060| 00002F40: 00 47 37 50 0A 82 49 00 4D 37 5A 0A 8E 00 5E 37 |.G7P..I.M7Z...^7| 00002F50: 64 0A 8F 2A 2A 52 4F 55 4E 44 20 32 2A 2A 00 69 |d..**ROUND 2**.i| 00002F60: 37 6E 0A 81 49 B2 31 A4 35 00 7A 37 78 0A 8B 46 |7n..I.1.5.z7x..F| 00002F70: 4C 41 47 B2 32 A7 32 37 30 30 00 85 37 82 0A 46 |LAG.2.2700..7..F| 00002F80: 4C 41 47 B2 30 00 94 37 8C 0A 8B 49 B3 34 A7 44 |LAG.0..7...I.4.D| 00002F90: 31 B2 31 30 00 A3 37 96 0A 8B 49 B1 33 A7 44 31 |1.10..7...I.3.D1| 00002FA0: B2 31 36 00 B2 37 A0 0A 8B 49 B2 31 A7 52 31 B2 |.16..7...I.1.R1.| 00002FB0: 31 31 00 C1 37 AA 0A 8B 49 B2 32 A7 52 31 B2 31 |11..7...I.2.R1.1| 00002FC0: 39 00 D0 37 B4 0A 8B 49 B2 33 A7 52 31 B2 32 36 |9..7...I.3.R1.26| 00002FD0: 00 DF 37 BE 0A 8B 49 B2 34 A7 52 31 B2 31 35 00 |..7...I.4.R1.15.| 00002FE0: EE 37 C8 0A 8B 49 B2 35 A7 52 31 B2 32 32 00 F8 |.7...I.5.R1.22..| 00002FF0: 37 D2 0A 8D 33 30 36 30 00 FF 37 DC 0A 82 49 00 |7...3060..7...I.| 00003000: 05 38 E6 0A 8E 00 16 38 F0 0A 8F 2A 2A 52 4F 55 |.8.....8...**ROU| 00003010: 4E 44 20 33 2A 2A 00 21 38 FA 0A 81 49 B2 31 A4 |ND 3**.!8...I.1.| 00003020: 35 00 32 38 04 0B 8B 46 4C 41 47 B2 32 A7 32 38 |5.28...FLAG.2.28| 00003030: 34 30 00 3D 38 0E 0B 46 4C 41 47 B2 30 00 47 38 |40.=8..FLAG.0.G8| 00003040: 18 0B 44 31 B2 31 30 00 55 38 22 0B 8B 49 B2 31 |..D1.10.U8"..I.1| 00003050: A7 52 31 B2 32 00 64 38 2C 0B 8B 49 B2 32 A7 52 |.R1.2.d8,..I.2.R| 00003060: 31 B2 31 31 00 73 38 36 0B 8B 49 B2 33 A7 52 31 |1.11.s86..I.3.R1| 00003070: B2 31 39 00 82 38 40 0B 8B 49 B2 34 A7 52 31 B2 |.19..8@..I.4.R1.| 00003080: 32 36 00 91 38 4A 0B 8B 49 B2 35 A7 52 31 B2 33 |26..8J..I.5.R1.3| 00003090: 34 00 9B 38 54 0B 8D 33 30 36 30 00 A2 38 5E 0B |4..8T..3060..8^.| 000030A0: 82 49 00 A8 38 68 0B 8E 00 B9 38 72 0B 8F 2A 2A |.I..8h....8r..**| 000030B0: 52 4F 55 4E 44 20 34 2A 2A 00 C4 38 7C 0B 81 49 |ROUND 4**..8|..I| 000030C0: B2 31 A4 35 00 D5 38 86 0B 8B 46 4C 41 47 B2 32 |.1.5..8...FLAG.2| 000030D0: A7 32 39 37 30 00 E0 38 90 0B 46 4C 41 47 B2 30 |.2970..8..FLAG.0| 000030E0: 00 EA 38 9A 0B 44 31 B2 31 30 00 F8 38 A4 0B 8B |..8..D1.10..8...| 000030F0: 49 B2 31 A7 52 31 B2 38 00 07 39 AE 0B 8B 49 B2 |I.1.R1.8..9...I.| 00003100: 32 A7 52 31 B2 31 36 00 16 39 B8 0B 8B 49 B2 33 |2.R1.16..9...I.3| 00003110: A7 52 31 B2 32 34 00 25 39 C2 0B 8B 49 B2 34 A7 |.R1.24.%9...I.4.| 00003120: 52 31 B2 33 31 00 3A 39 CC 0B 8B 49 B2 35 A7 52 |R1.31.:9...I.5.R| 00003130: 31 B2 32 30 3A 44 31 B2 31 36 00 44 39 D6 0B 8D |1.20:D1.16.D9...| 00003140: 33 30 36 30 00 4B 39 E0 0B 82 49 00 51 39 EA 0B |3060.K9...I.Q9..| 00003150: 8E 00 71 39 F4 0B 8F 2A 2A 46 4C 41 53 48 20 41 |..q9...**FLASH A| 00003160: 52 52 4F 57 20 52 45 43 4F 52 44 20 41 4E 53 2A |RROW RECORD ANS*| 00003170: 2A 00 82 39 FE 0B 8B 46 4C 41 47 B2 32 A7 33 31 |*..9...FLAG.2.31| 00003180: 34 30 00 9B 39 08 0C 44 B2 44 31 3A 52 B2 52 31 |40..9..D.D1:R.R1| 00003190: 3A 8D 32 31 30 30 3A 99 22 5E 22 00 A5 39 12 0C |:.2100:."^"..9..| 000031A0: 8D 33 31 38 30 00 B6 39 1C 0C 8B 46 4C 41 47 B2 |.3180..9...FLAG.| 000031B0: 31 A7 33 31 34 30 00 CF 39 26 0C 44 B2 44 31 3A |1.3140..9&.D.D1:| 000031C0: 52 B2 52 31 3A 8D 32 31 30 30 3A 99 22 20 22 00 |R.R1:.2100:." ".| 000031D0: DF 39 30 0C 81 54 B2 31 A4 31 30 30 3A 82 54 00 |.90..T.1.100:.T.| 000031E0: E9 39 3A 0C 89 33 30 38 30 00 FF 39 44 0C 44 B2 |.9:..3080..9D.D.| 000031F0: 44 31 3A 52 B2 52 31 AB 31 3A 8D 32 31 30 30 00 |D1:R.R1.1:.2100.| 00003200: 17 3A 4E 0C 8B 46 4C 41 47 B2 32 A7 99 45 51 28 |.:N..FLAG.2..EQ(| 00003210: 4D 28 49 29 29 3A 8E 00 22 3A 58 0C 99 45 51 28 |M(I)):..":X..EQ(| 00003220: 51 29 00 31 3A 62 0C 45 28 49 29 B2 45 51 28 51 |Q).1:b.E(I).EQ(Q| 00003230: 29 00 37 3A 67 0C 8E 00 53 3A 6C 0C 8F 2A 2A 47 |).7:g...S:l..**G| 00003240: 45 54 20 53 54 55 44 45 4E 54 20 43 48 4F 49 43 |ET STUDENT CHOIC| 00003250: 45 2A 2A 00 66 3A 76 0C 44 B2 32 30 3A 52 B2 31 |E**.f:v.D.20:R.1| 00003260: 3A 8D 32 31 30 30 00 9A 3A 80 0C 99 22 57 48 49 |:.2100..:..."WHI| 00003270: 43 48 20 43 4F 45 46 46 49 43 49 45 4E 54 20 28 |CH COEFFICIENT (| 00003280: 41 2D 45 29 20 47 4F 45 53 20 48 45 52 45 3F 20 |A-E) GOES HERE? | 00003290: 20 20 20 20 9D 9D 9D 9D 22 3B 00 CE 3A 8A 0C 55 | ....";..:..U| 000032A0: 4C B2 31 3A 55 53 24 B2 22 22 3A 81 54 B2 31 A4 |L.1:US$."":.T.1.| 000032B0: 36 3A 55 53 24 B2 55 53 24 AA 43 24 28 54 29 3A |6:US$.US$.C$(T):| 000032C0: 82 54 3A 55 53 24 B2 55 53 24 AA 22 48 22 00 DD |.T:US$.US$."H"..| 000032D0: 3A 94 0C 8D 33 35 3A 43 24 B2 55 52 24 00 E7 3A |:...35:C$.UR$..:| 000032E0: 9E 0C 89 33 32 35 30 00 ED 3A A8 0C 8E 00 05 3B |...3250..:.....;| 000032F0: B2 0C 8B 43 24 B3 22 41 22 B0 43 24 B1 22 45 22 |...C$."A".C$."E"| 00003300: A7 33 31 39 30 00 20 3B BC 0C 8B 43 24 28 C6 28 |.3190. ;...C$(.(| 00003310: 43 24 29 AB 36 34 29 B2 22 20 22 A7 33 31 39 30 |C$).64)." ".3190| 00003320: 00 2F 3B D0 0C 81 54 B2 31 A4 35 30 3A 82 54 00 |./;...T.1.50:.T.| 00003330: 3E 3B DA 0C 51 B2 C6 28 43 24 29 AB 36 34 00 4C |>;..Q..(C$).64.L| 00003340: 3B E4 0C 43 24 28 51 29 B2 22 20 22 00 65 3B EE |;..C$(Q)." ".e;.| 00003350: 0C 8F 2A 2A 45 52 41 53 49 4E 47 20 52 4F 55 54 |..**ERASING ROUT| 00003360: 49 4E 45 2A 2A 00 7D 3B F8 0C 44 B2 35 3A 52 B2 |INE**.};..D.5:R.| 00003370: 36 AC 28 51 29 AA 33 3A 8D 32 31 30 30 00 87 3B |6.(Q).3:.2100..;| 00003380: 02 0D 99 22 20 20 22 00 92 3B 0C 0D 46 4C 41 47 |..." "..;..FLAG| 00003390: B2 31 00 98 3B 16 0D 8E 00 A9 3B 48 0D 99 22 11 |.1..;.....;H..".| 000033A0: 11 11 11 11 11 11 11 11 22 00 CE 3B 52 0D 99 22 |........"..;R.."| 000033B0: 20 20 20 20 B6 20 20 20 B5 B6 20 20 20 B6 B8 B8 | . .. ...| 000033C0: B8 B6 B8 B8 B5 B6 20 20 20 B6 B8 B8 B8 22 00 F0 |...... ...."..| 000033D0: 3B 5C 0D 99 22 20 20 20 20 B6 B9 B9 B9 B5 B6 20 |;\.." ...... | 000033E0: B9 B9 B6 20 20 20 B6 B9 B9 B5 B6 20 20 20 B6 22 |... ..... ."| 000033F0: 00 12 3C 66 0D 99 22 20 20 20 20 B6 20 20 20 B5 |..<f.." . .| 00003400: B6 20 B7 B7 B6 20 20 20 B6 20 20 B5 B6 20 20 20 |. ... . .. | 00003410: B6 22 00 37 3C 70 0D 99 22 20 20 20 20 B6 20 20 |.".7<p.." . | 00003420: 20 B5 B6 20 20 20 B6 B9 B9 B9 B6 20 20 B5 B6 B9 | .. ..... ...| 00003430: B9 B9 B6 B9 B9 B9 22 00 3D 3C 7A 0D 8E 00 00 00 |......".=<z.....|
.......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...:...... ** TO OUR BEST KNOWLEDGE TH
IS...... PROGRAM IS FREE FOR./....
DUPLICATION IN CANADA..M.... IF YOU
HAVE CONTRARY.J.... INFORMATION, PLEA
SE...... CONTACT COMMODORE CANADA AND
...... EVERY EFFORT WILL BE MADE TO.W
.... WITHDRAW COPIES OF THIS......
PROGRAM......:...#.. +++ INPUT SECTION
+++.#.(..UO,0:UR$."":UI$."".3.*..UL.0.UL
.80.F.-.." ..";:.UC,0.Z.2..UI$:.UI$."".
50...7..UI$.G(13).C(UR$)..1..UC,1:." .";
:.85...<..UI$.G(20).105...>.. C(UR$)..UL
.50.P.A..120:. CHECK FOR VALID CHARACTER
...F.UR$.UR$.UI$...K..UI$;...P..50...U..
+++ CHECK FOR HELP REQUEST +++.?.Z..UR$
.UX$.195:. EXIT TO HELP ROUTINE.N._..UF.
1..240.[.D.UF.0:.:..T.F.. ++ CHECK DELET
E ++...I..C(UR$).1.50...N.UR$.H(UR$,C(UR
$).1)...S..". ..";:.50.V.X.. ++ CHECK F
OR VALID CHARACTERS ++...}..C(US$).0.150
......US.1.C(US$)......UI$.J(US$,US,1)..
.......#...UI$."":..>.... ** STANDARD IN
PUT **.O....F(UI$).46...`....UI$.G(32)..
.}. ..F(UI$).48.F(UI$).57.170....... ...
.F(UI$).65.F(UI$).90.180.......J....F(UI
$).193.F(UI$).218.UI$."":.......B(UT).UU
%.UI$.G(F(UI$).128):............UI$."":.
.%.C.UF.1:. +++ HELP ROUTINE EXIT +++...
E..250.7.H..245.V.M..UQ.UB.(U2%.256.U1%.
U3%.2).R.R.UQ%(UQ.UB).B(UQ):.:."."...W.U
Z.1:UV%.B(UT)...X..300...Y.UZ.0:US$.UJ$:
UG$.UK$:UP.UJ:UL.UK...Z..B(50003).0..532
81,1:.".";:.53281,6:.53280,14:.220......
".";.#...UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256
.U1%.U3%.3).8....UQ,UQ%(UQ.UB):..D....U1
,U1%.P....U2,U2%.\....U4,U4%.J....U3,U3%
.1.....UT$." HI-CALC":.35.....UD%.((U2%.
256.U1%.U3%).UB).40:.H(UD$,UD%.1):......
.H(UD$,24);" . HELP
COMING . ":......U1%.B(U1):U2%.B(U2):U
3%.B(U3):U4%.B(U4).B...UJ$.US$:UK$.UG$:U
L$.UT$:UJ.UP:UK.UL.H.....Y.,.. ** MENU *
*._.-.:......".":.UT,UU%:.B(50003).0..53
281,9:.53280,8.../.:...1..".
MENU"...6.." -----------------------
---------------"...;..".. 1. BEG
IN HI-CALC".-.@..".. 2. STUDENT
INSTRUCTIONS".W.E..".. 3. TEACHE
R INSTRUCTIONS".S.O..".. 4. QUIT
.."...T.." -----------------------------
---------".M.Y..".. PRESS A NUMBER
KEY (1-4) ";...^.UL.1:US$."1234":.35:.
INPUT ROUTINE...`.US$.""...C..E(UR$).100
0,400,500,396.&.H..300.M.... ** RE-ENABL
E STOP KEY AND END **.|....B(50003)..1.B
(50003)..160.B(50003)..0.399......UU.71:
.B(50003).0..53281,6:.53280,14......".."
:.......875:....... ** STUDENT INSTRUCTI
ONS **......".":.UT,UL%:.B(50003).0..532
81,0:.53280,0.)...UP.0:UG$."STUDENT INST
".8....850:.1130.>.....P.L..". NOTE:....
...TO ADVANCE FROM ONE QUESTION"...V..".
TO THE NEXT PRESS THE SPACE BAR.".J....
".. IF AT ANY TIME YOU WISH TO RETUR
N"......". TO THE MENU, PRESS 'H' RETURN
.".:....". YOU WILL HAVE TO WAIT ABOUT O
NE MINUTE .FOR HI-CALC TO START.".S....
". REMEMBER TO PRESS RETURN AFTER EVERY
.INPUT.".|....835......UZ.1..UP%:.217
............ ** TEACHER INSTRUCTIONS **.
.....".":.UT,UL%:.B(50003).0..53281,2:.5
3280,10.....UP.0:UG$."TEACHER INST":.850
.6....".. TO THE BEST OF OUR KNOWLE
DGE,."._...." THIS PROGRAM IS IN THE P
UBLIC."......" DOMAIN. IF THIS IS NOT
THE CASE."......" PLEASE CONTACT:..."
.R...." COMMODORE BUSINESS MACHINES
."......" 3370 PHARMACY AVE....
..." AGINCOURT, ONTARIO".;...."
CANADA M1W 2K4".[...."
(416) 499-4292".L.... 835:. 850:....
.." ..PROGRAM NAME: HI-CALC ...
...." WRITTEN BY : JO ANN COMITO.".
....." UPGRADED BY : ......
." .THIS PROGRAM WILL RUN ON ANY...-
...." PET 64 COMPUTER.R...."
COMMODORE 64 COMPUTER.`....835:.850
......".. THIS PROGRAM IS USED FOR TEACH
ING . THE USE OF COEFFICIENTS."....
..". FOR USE WITH INTERMEDIATE AND SECON
DARY .STUDENTS."......". REQUIRES AT LEA
ST 16K."......835:.850.D....".. THE STUD
ENT IS GIVEN AN EXPRESSION."......". PRO
VIDED WITH THE VALUE OF X AND THE .VA
LUES OF THE COEFFICIENTS,"......". THE S
TUDENT MUST DETERMINE THE ORDER . OF T
HE COEFFICIENTS THAT WILL"......". EQUAL
THE MAX (ALSO GIVEN).".C. ..". THERE AR
E 4 DIFFERENT EXPRESSIONS . IN TOTA
L.".Q.&..835:.850...'..".. THE PLACEMENT
OF COEFFICIENTS IS . INDICATED BY
THE ARROW IN THE"...(..". APPROPRIATE B
OX."...)..". THE STUDENTS CAN TRY TO ANS
WER EACH .QUESTION AS MANY TIMES AS.
S.*..". THEY LIKE. IF THEY FAIL TO FIND
THE . CORRECT SOLUTION, IT WILL".S.+.
.". BE DISPLAYED FOR THEM."...D..835:.59
468,12...N..UZ.1..UP%:.217. .W...F.X.. *
* PROGRAM MODIFICATION INST **.W.Y..".":
.UT,UL%...].UP.0:UG$."PROGRAM MOD":.850.
.....835......UZ.1..UP%:.217.......?....
** TO USE 8032 LOAD CBM4032 **.U.F.."..
...BEFORE RUNNING THIS PROGRAM ON AN 803
2 .....P.." LOAD THE 'CBM 4032' PR
OGRAM............."...Z..UU.71..........
.. ** TO USE 8032 LOAD CBM4032 **.,...."
....BEFORE RUNNING THIS PROGRAM ON AN 80
32 ..LOAD CBM 4032 PROGRAM".8....1093:.
.X. .. ** T I T L E P A G E **..."..".
...";:.UT,UU%:.B(50003).0..53280,14:.532
81,6...$..I.1.38:."...";:....&..I.1.22:.
".....";:..R.(..I.1.37:.".....";:....*..
I.1.22:.".....";:....,.."...............
............ ..1...."..................
. . . ...R.0.."................... . .
...P.2..".................... ....4..".
.............C O M M O D O R E.....6..".
..............EDUCATIONAL...Z.8.."......
..........SOFTWARE...:.. ** COMMODORE LO
GO **.-.;..H(UD$,24);"..........PRESS SP
ACE BAR OR WAIT.":I.0.O.<..A$:.A$.." ".I
.I.1:.I.250.828.S.>.T1$."":T2$."":T3$.""
:T4$."":I.0.|.@..300...C.. ** SPACE BAR
PRESS **.S.H..UO,0:.H(UD$,24);".......PR
ESS SPACE BAR TO CONTINUE."...L..UI$:.UI
$.." ".844...N.....R.. ** PAGE DESIGN RO
UTINE **...T.UP.UP.1.F.W.."."H(UT$.UP$,2
1);I(UP$.UG$.D(UP),18).U.\.." ----------
----------------------------"...`..UH..0
.870...A..H(UD$,24);H(UP$,7);"HELP - PRE
SS H <RETURN>".I.F.UH.0:."..":....K..
** PLEASE WAIT REMARK **...P..H(UD$,24);
" ONE MOMENT PLEASE... ".$
.U...A.... ** SET UP VARIABLES **.....UX
$."H":.UQ%(1000):UB.32768:U1.196:U2.197:
U3.198:U4.216:UC.167:UU.1024.J...UT.5946
8:UU%.12:UL%.14:UP%.1146:UM.32768:UO.158
:. 50003,0.. ...B(50003).0.UB.1024:U1.20
9:U2.210:U3.211:U4.214:UC.204:UU.2048.L
...B(50003).0.UT.53272:UU%.21:UL%.23:UP%
.2139:UM.1024:UO.198.P ..UD$."..........
...............".. ..UP$."
".. ..UT$." HI-
CALC ":. PLACE PROGRAM TITLE HE
RE !!!!!!!!!!!!!!!!!***.. .....!... ** S
ET VARIABLES **..!...900..!..:.$!..:.?!.
.. ** CHECK FOR 8032 **.]!...".":." ":.
SHIFTED SPACE.T!...B(UB.40)..96..700..!.
.. ** MEMORY CHECK **..!... .(0).2000.93
7.O!..."....THIS MACHINE DOES NOT HAVE E
NOUGH."..!..."MEMORY TO RUN THIS PROGRAM
!"..!...UU.71.."....."..."..":.B(50003)
.0.962.M"... ** BASIC 2.0 OR 4.0 OR
C-64 SETUP **.."...1075,133:.1076,144:.1
077,234:.1079,4:.1080,133:.1081,145.A"..
.1091,155:.1098,133:.1099,144:.1100,234:
.1103,133.."...1104,145:.1105,234:.1082,
234.."...B(50003)..160.955.)#...1093,88:
.1094,228:.1097,85:.1102,228:.965.>#...B
(50003)..1.990.M#...1093,49:.1094,230:.1
097,46:.1102,230:.965..#B..2099,141:.210
0,20:.2101,3:.2103,8:.2104,141:.2105,21.
.#C..2106,3:.2115,145:.2117,52:.2118,234
:.2121,49:.2122,141..$D..2123,20:.2124,3
:.2126,234:.2127,141:.2128,21:.2129,3.;$
E..UU.48:. DISABLE STOP KEY.L$J..800:. T
ITLE.\$T..300:. MENU..$...".THE PGM WILL
NOT WORK ON THIS MACHINE!":..B$...UZ.1.
.UP%:.UP%:UZ.0:. ** PROGRAM STARTS HERE
**..$..."..";:.:.B(50003).0..53281,6:.53
280,6..%...** HI-CALC **.!%...**B
Y JO ANN COMITO**.;%...**COPYRIGHT SEP-7
8**.U%...**SUNY STONY BROOK**.O%$..**
9/1/78 **..%%.D$."................
.........".D%&.R$.".....................
..................."..%)..:UT$." HI-CALC
":.1300..&J..". .WELCOME TO HI-CALC.
".0&T..".......PET WILL GIVE YOU SOME AL
GEBRAIC".\&~..". EXPRESSIONS WITH THE CO
EFFICIENTS "..&...". MISSING. PET WILL A
LSO GIVE YOU A"..&...". VALUE FOR X AND
THE VALUES OF 5".H&...". COEFFICIENTS. "
..&...".......YOUR JOB IS TO ARRANGE THE
FIVE".!'...". COEFFICIENTS SO THAT THE
VALUE OF".G'...". THE EXPRESSION IS MAXI
MIZED.".U'...835:.850..'D..".. MAKE
SURE THAT YOU WAIT UNTIL THE"..'N..". AR
ROW ^ APPEARS IN THE BOX BEFORE"..'X..".
TYPING THE LETTER OF THE COEFFICIENT"..
(...". YOU WANT PET TO WRITE IN THAT BOX
.".;(...".......THERE WILL BE A TOTAL OF
4 ROUNDS.".N(...835:.850:.420.W(...835.
.(...I.1.6:.X(I),A(I),B(I),C(I),D(I),E(I
):.I.C(...1,1,3,-5,-2,8,2,2,-1,2,-5,-1,3
,4,-4,9,1,-5,-1,-2,-2,4,2,2..((..-2,5,-3
,1,4,-1,-3,6,9,3,-3,-3..(2..I.1.5:.C$(I)
:.I..)<.."A","B","C","D","E".%)F..FLAG.1
.1810.H)P..".":.3400:.". PLEASE WAIT";
.D)Z..**GENERATE EQUATIONS**.O)D..I.1.6.
.)N.N..(.(1).6.1)..)X..I.1.X.X(N)..)...I
.2.EQ(1).A(N)..)...I.3.EQ(2).B(N).M)...I
.4.EQ(3).C(N)..) ..I.5.EQ(4).D(N)..)...I
.6.EQ(5).E(N)..*...I:.".";..*..ROU.ROU.1
. *H..ROU.4.2080.2*R..**FIND MAX**.A*..M
AX..99999.L*...I.1.5.]*...J.1.5:.".";.K*
...J.I.1700.V*...K.1.5..*...K.I.K.J.1690
..*...L.1.5..*"..L.I.L.J.L.K.1680..*,..M
.1.5.N*6..M.I.M.J.M.K.M.L.1670..+@..ROU.
1. VAX.EQ(I).X.X.EQ(J).X.EQ(K).(EQ(L).X.
2).(EQ(M).X).,+J..ROU.2.EQ(L).X.EQ(M).0.
1670.E+T..ROU.2.VAX.(EQ(I).X.X.EQ(J).X.E
Q(K)).(EQ(L).X.EQ(M))..+^..ROU.3.VAX.EQ(
I).X.X.(EQ(J).X.X.EQ(K).X.EQ(L)).(EQ(M).
X)..+H..ROU.4.EQ(M).X.0.1670..+R..ROU.4.
VAX.(EQ(I).X.3.EQ(J).X.X.EQ(K).X.EQ(L)).
((.1).EQ(M).X).6,|..VAX.MAX.MAX.VAX:M(1)
.I:M(2).J:M(3).K:M(4).L:M(5).M.=,...M.D,
...L.K,...K.R,...J.Y,...I.M,...MAX..9999
.1370..,B..**GENERATE SCREEN**.C,L.. PRI
NT".";:GOSUB865:PRINT".";LEFT$(R$,16);"R
OUND";ROUND..,Q.UG$."ROUND":UP.ROUND.1:.
850..-V..:." X A B C
D E".<-..." ... ... ... ...
... ...".G-...P.1.3.V-..." .. ..
. . . . . . . . . .".}-...P..-
..." ... ... ... ... ... ...
".E-...**PUT COEFF IN BOXES**.P-...I.1.6
..-&.D.5:R.3.(I.1).6:.2100..-0..I.1.."."
;X;"."...:..I.1..EQ(I.1)...D..I.8.N.. RO
UND .2130,2200,2330,2400.X.X..ROUND .253
0,2660,2800,2930.K.B.D.20:R.1:.2100...L.
."IS ARRANGEMENT OK? .
.................";.H.M.UL.1:US$."YN":.3
5:A$.UR$...V..H(A$,1)."N".FLAG.1:.:.1300
. /...ROU.1.VAX.E(1).X.X.E(2).X.E(3).(E(
4).X.2).(E(5).X).T/...ROU.2.VAX.(E(1).X.
X.E(2).X.E(3)).(E(4).X.E(5))../...ROU.3.
VAX.E(1).X.X.(E(2).X.X.E(3).X.E(4)).(E(5
).X).I/...ROU.4.VAX.(E(1).X.3.E(2).X.X.E
(3).X.E(4)).((.1).E(5).X)../..D.22:R.1:.
2100:."VALUE=";VAX,"MAX=";MAX..0...T.1.5
00:.T..0...MAX.VAX.2030.L0F.D.20:R.1:.21
00:."WANT TO IMPROVE ARRANGEMENT? ";.I0G
.UL.1:US$."YN":.35:A$.UR$..0P..(A$)."Y".
.H(UD$,23)"
".K0U..H(A$,1)."Y".FLAG.1:.:.1
300.V0Z.FLAG.2..0...ROUND.2530,2660,2800
,2930..1..D.20:R.1:.2100..1...835..1....
(1..FLAG.0:.1300.S1 ..". THANK YOU FOR
PLAYING .HI-CALC.".Y1*...Q14..**CURSOR
ADDRESS**..1>.P$.".".H(D$,D).H(R$,R)..1H
..P$;:...1R..**PRINT ROUND 1 BOXES**..1\
..:.:.:." ... ... ... . ... .
. ... .";..2F..". . 2 . . . . .
. . ... . .";.M2P..". .X +. .
X-. .+.. .X+2... .-X.";.~2Z..".
. . . . . .. . ... . .";..
2..." ... ... ... . ... .. ..
. .";..2....R2...**PRINT ROUND 2 BOXES
**..2...:.:..9);" ... ... ..."..3
....9);". . 2 . . . .".53....9);"
. .X -. .X+. .".U3....9);". .
. . . .".T3J...9);" ... ...
..."..3T...4);".........................
...."..3....13);" ... ...".N3....13);
". . . ."..3....13);". .X+. .".
.4....13);". . . ."..4....13);" ...
..."..4....:4...**PRINT ROUND3 BOXES
**.M4$..:.:." ... . ... ... ..
. .. ... ."..4...". . 2 .. . 2 .
. . ... . . .".K48..". .X +..
.X +. .X-. ... . .X."..4B..". .
.. . . . . ... . . .".)5L..
" ... . ... ... ... .. ... .
"./5V...L5`..**PRINT ROUND 4 BOXES**.Y5J
..:.:." ... ... ... ...
"..5T.." . . 3 . . 2 . . .
.".M5~.." . .X +. .X -. .X+.
."..5..." . . . . . .
. .". 6..." ... ... ...
...".M6..." ......................
............".]6....19);"...".O6....18);
". ."..6....17);"-. .X"..6D...18);".
."..6N...19);"..."..6X....6...**ROUND
1**.F6...I.1.5.W6...FLAG.2.2570..6..FLAG
.0..6..D1.11..6...I.1.R1.2..7...I.2.R1.1
0..7(..I.3.R1.17.'72..I.4.R1.24.67<..I.5
.R1.34.@7F..3060.G7P..I.M7Z...^7D..**ROU
ND 2**.I7N..I.1.5.Z7X..FLAG.2.2700..7..F
LAG.0..7...I.4.D1.10..7...I.3.D1.16..7 .
.I.1.R1.11.A7...I.2.R1.19.P7...I.3.R1.26
..7...I.4.R1.15..7H..I.5.R1.22..7R..3060
..7...I..8.....8...**ROUND 3**.!8...I.1.
5.28...FLAG.2.2840.=8..FLAG.0.G8..D1.10.
U8"..I.1.R1.2.D8,..I.2.R1.11.S86..I.3.R1
.19..8@..I.4.R1.26..8J..I.5.R1.34..8T..3
060..8^..I..8H....8R..**ROUND 4**.D8|..I
.1.5.U8...FLAG.2.2970..8..FLAG.0..8..D1.
10..8...I.1.R1.8..9...I.2.R1.16..9...I.3
.R1.24.%9B..I.4.R1.31.:9L..I.5.R1.20:D1.
16.D9V..3060.K9...I.Q9....Q9...**FLASH A
RROW RECORD ANS**..9...FLAG.2.3140..9..D
.D1:R.R1:.2100:."^"..9...3180..9...FLAG.
1.3140.O9&.D.D1:R.R1:.2100:." "..90..T.1
.100:.T..9:..3080..9D.D.D1:R.R1.1:.2100.
.:N..FLAG.2..EQ(M(I)):..":X..EQ(Q).1:B.E
(I).EQ(Q).7:G...S:L..**GET STUDENT CHOIC
E**.F:V.D.20:R.1:.2100..:..."WHICH COEFF
ICIENT (A-E) GOES HERE? ....";.N:..U
L.1:US$."":.T.1.6:US$.US$.C$(T):.T:US$.U
S$."H"..:...35:C$.UR$..:...3250..:.....;
...C$."A".C$."E".3190. ;...C$(F(C$).64).
" ".3190./;P..T.1.50:.T.>;Z.Q.F(C$).64.L
;..C$(Q)." ".E;...**ERASING ROUTINE**.};
..D.5:R.6.(Q).3:.2100..;..." "..;..FLAG
.1..;.....;H..".........".N;R.." .
.. ......... ...."..;\.." ......
... ..... ."..<F.." . .. ...
. .. .".7<P.." . .. ..... ...
......".=<Z.....
> CLICK IMAGE PREVIEW FOR FULL MODAL