SLOPE AND INT.C3
FILE INFORMATION
FILENAME(S): SLOPE AND INT.C3
FILE TYPE(S): PRG
FILE SIZE: 9.6K
FIRST SEEN: 2025-11-30 01:07:55
APPEARS ON: 2 disk(s)
FILE HASH
2f593865d8bc81471e7959910bd929f75ed07966a539811efbe2bb1ded873d78
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | SLOPE AND INT.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 6 | DOWNLOAD FILE |
| L EHRNEN | SLOPE AND INT.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 6 | 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 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....|
00000050: 85 91 EA 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: 4C 09 17 00 8F 20 20 20 20 49 46 20 59 4F 55 20 |L.... IF YOU |
00000140: 48 41 56 45 20 43 4F 4E 54 41 52 59 00 69 09 18 |HAVE CONTARY.i..|
00000150: 00 8F 20 20 20 20 49 4E 46 4F 52 4D 41 54 49 4F |.. INFORMATIO|
00000160: 4E 2C 20 50 4C 45 41 53 45 00 8F 09 19 00 8F 20 |N, PLEASE...... |
00000170: 20 20 20 43 4F 4E 54 41 43 54 20 43 4F 4D 4D 4F | CONTACT COMMO|
00000180: 44 4F 52 45 20 43 41 4E 41 44 41 20 41 4E 44 00 |DORE CANADA AND.|
00000190: B5 09 1A 00 8F 20 20 20 20 45 56 45 52 59 20 45 |..... EVERY E|
000001A0: 46 46 4F 52 54 20 57 49 4C 4C 20 42 45 20 4D 41 |FFORT WILL BE MA|
000001B0: 44 45 20 54 4F 00 D6 09 1B 00 8F 20 20 20 20 57 |DE TO...... W|
000001C0: 49 54 48 44 52 41 57 20 43 4F 50 49 45 53 20 4F |ITHDRAW COPIES O|
000001D0: 46 20 54 48 49 53 00 E8 09 1C 00 8F 20 20 20 20 |F THIS...... |
000001E0: 50 52 4F 47 52 41 4D 2E 00 EE 09 1E 00 3A 00 0A |PROGRAM......:..|
000001F0: 0A 23 00 8F 20 2B 2B 2B 20 49 4E 50 55 54 20 53 |.#.. +++ INPUT S|
00000200: 45 43 54 49 4F 4E 20 2B 2B 2B 00 22 0A 28 00 97 |ECTION +++.".(..|
00000210: 55 4F 2C 30 3A 55 52 24 B2 22 22 3A 55 49 24 B2 |UO,0:UR$."":UI$.|
00000220: 22 22 00 32 0A 2A 00 8B 55 4C B2 30 A7 55 4C B2 |"".2.*..UL.0.UL.|
00000230: 38 30 00 4E 0A 2B 00 8B 20 55 53 24 B3 B1 22 22 |80.N.+.. US$..""|
00000240: 20 A7 20 55 53 24 B2 55 53 24 AA 55 58 24 00 61 | . US$.US$.UX$.a|
00000250: 0A 2D 00 99 22 20 20 9D 9D 22 3B 3A 97 55 43 2C |.-.." ..";:.UC,|
00000260: 30 00 75 0A 32 00 A1 55 49 24 3A 8B 55 49 24 B2 |0.u.2..UI$:.UI$.|
00000270: 22 22 A7 35 30 00 9F 0A 37 00 8B 55 49 24 B2 C7 |"".50...7..UI$..|
00000280: 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 97 |(13)..(UR$)..1..|
00000290: 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 00 |UC,1:." .";:.85.|
000002A0: B2 0A 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 31 |..<..UI$..(20).1|
000002B0: 30 35 00 C6 0A 3E 00 8B 20 C3 28 55 52 24 29 B2 |05...>.. .(UR$).|
000002C0: B1 55 4C A7 35 30 00 EB 0A 41 00 8D 31 32 30 3A |.UL.50...A..120:|
000002D0: 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 |. CHECK FOR VALI|
000002E0: 44 20 43 48 41 52 41 43 54 45 52 00 FB 0A 46 00 |D CHARACTER...F.|
000002F0: 55 52 24 B2 55 52 24 AA 55 49 24 00 05 0B 4B 00 |UR$.UR$.UI$...K.|
00000300: 99 55 49 24 3B 00 0D 0B 50 00 89 35 30 00 32 0B |.UI$;...P..50.2.|
00000310: 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 4F |U.. +++ CHECK FO|
00000320: 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 2B |R HELP REQUEST +|
00000330: 2B 2B 00 5A 0B 5A 00 8B 55 52 24 B2 55 58 24 A7 |++.Z.Z..UR$.UX$.|
00000340: 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 |195:. EXIT TO HE|
00000350: 4C 50 20 52 4F 55 54 49 4E 45 00 69 0B 5F 00 8B |LP ROUTINE.i._..|
00000360: 55 46 B2 31 A7 8D 32 34 30 00 76 0B 64 00 55 46 |UF.1..240.v.d.UF|
00000370: B2 30 3A 99 3A 8E 00 8F 0B 66 00 8F 20 2B 2B 20 |.0:.:....f.. ++ |
00000380: 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B 00 |CHECK DELETE ++.|
00000390: A0 0B 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 30 |..i...(UR$).1.50|
000003A0: 00 B8 0B 6E 00 55 52 24 B2 C8 28 55 52 24 2C C3 |...n.UR$..(UR$,.|
000003B0: 28 55 52 24 29 AB 31 29 00 CA 0B 73 00 99 22 9D |(UR$).1)...s..".|
000003C0: 20 20 9D 9D 22 3B 3A 89 35 30 00 F1 0B 78 00 8F | ..";:.50...x..|
000003D0: 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 41 | ++ CHECK FOR VA|
000003E0: 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 2B |LID CHARACTERS +|
000003F0: 2B 00 03 0C 7D 00 8B C3 28 55 53 24 29 B2 30 A7 |+...}...(US$).0.|
00000400: 31 35 30 00 14 0C 82 00 81 55 53 B2 31 A4 C3 28 |150......US.1..(|
00000410: 55 53 24 29 00 2B 0C 87 00 8B 55 49 24 B2 CA 28 |US$).+....UI$..(|
00000420: 55 53 24 2C 55 53 2C 31 29 A7 8E 00 31 0C 8C 00 |US$,US,1)...1...|
00000430: 82 00 3E 0C 91 00 55 49 24 B2 22 22 3A 8E 00 59 |..>...UI$."":..Y|
00000440: 0C 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 |.... ** STANDARD|
00000450: 20 49 4E 50 55 54 20 2A 2A 00 6A 0C 98 00 8B C6 | INPUT **.j.....|
00000460: 28 55 49 24 29 B2 34 36 A7 8E 00 7B 0C 9B 00 8B |(UI$).46...{....|
00000470: 55 49 24 B2 C7 28 33 32 29 A7 8E 00 98 0C A0 00 |UI$..(32).......|
00000480: 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 |..(UI$).48..(UI$|
00000490: 29 B1 35 37 A7 31 37 30 00 9E 0C A5 00 8E 00 BB |).57.170........|
000004A0: 0C AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 |.....(UI$).65..(|
000004B0: 55 49 24 29 B1 39 30 A7 31 38 30 00 C1 0C AF 00 |UI$).90.180.....|
000004C0: 8E 00 E5 0C B4 00 8B C6 28 55 49 24 29 B3 31 39 |........(UI$).19|
000004D0: 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 |3..(UI$).218.UI$|
000004E0: B2 22 22 3A 8E 00 08 0D B9 00 8B C2 28 55 54 29 |."":........(UT)|
000004F0: B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 |.UU%.UI$..(.(UI$|
00000500: 29 AB 31 32 38 29 3A 8E 00 0E 0D BB 00 8E 00 1B |).128):.........|
00000510: 0D BE 00 55 49 24 B2 22 22 3A 8E 00 40 0D C3 00 |...UI$."":..@...|
00000520: 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 |UF.1:. +++ HELP |
00000530: 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B 2B |ROUTINE EXIT +++|
00000540: 00 49 0D C5 00 8D 32 35 30 00 52 0D C8 00 8D 32 |.I....250.R....2|
00000550: 34 35 00 71 0D CD 00 81 55 51 B2 55 42 A4 28 55 |45.q....UQ.UB.(U|
00000560: 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 |2%.256.U1%.U3%.2|
00000570: 29 00 8D 0D D2 00 55 51 25 28 55 51 AB 55 42 29 |).....UQ%(UQ.UB)|
00000580: B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 A0 0D |..(UQ):.:."."...|
00000590: D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 |..UZ.1:UV%..(UT)|
000005A0: 00 A9 0D D8 00 89 33 30 30 00 CE 0D D9 00 55 5A |......300.....UZ|
000005B0: B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 |.0:US$.UJ$:UG$.U|
000005C0: 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 05 |K$:UP.UJ:UL.UK..|
000005D0: 0E DA 00 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |.....(50003).0..|
000005E0: 35 33 32 38 31 2C 31 3A 99 22 93 22 3B 3A 97 35 |53281,1:.".";:.5|
000005F0: 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 |3281,6:.53280,14|
00000600: 3A 89 32 32 30 00 0F 0E DB 00 99 22 93 22 3B 00 |:.220......".";.|
00000610: 3E 0E DC 00 55 54 24 B2 55 4C 24 3A 97 55 54 2C |>...UT$.UL$:.UT,|
00000620: 55 56 25 3A 81 55 51 B2 55 42 A4 28 55 32 25 AC |UV%:.UQ.UB.(U2%.|
00000630: 32 35 36 AA 55 31 25 AA 55 33 25 AB 33 29 00 53 |256.U1%.U3%.3).S|
00000640: 0E E1 00 97 55 51 2C 55 51 25 28 55 51 AB 55 42 |....UQ,UQ%(UQ.UB|
00000650: 29 3A 82 00 5F 0E E6 00 97 55 31 2C 55 31 25 00 |):.._....U1,U1%.|
00000660: 6B 0E E8 00 97 55 32 2C 55 32 25 00 77 0E E9 00 |k....U2,U2%.w...|
00000670: 97 55 34 2C 55 34 25 00 85 0E EA 00 97 55 33 2C |.U4,U4%......U3,|
00000680: 55 33 25 AB 31 00 8D 0E EB 00 89 33 35 00 BF 0E |U3%.1......35...|
00000690: F0 00 55 44 25 B2 28 28 55 32 25 AC 32 35 36 AA |..UD%.((U2%.256.|
000006A0: 55 31 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 3A |U1%.U3%).UB).40:|
000006B0: 99 C8 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 |..(UD$,UD%.1):..|
000006C0: FA 0E F5 00 99 C8 28 55 44 24 2C 32 34 29 3B 22 |......(UD$,24);"|
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 20 20 20 12 20 48 45 4C 50 20 43 4F 4D | . HELP COM|
000006F0: 49 4E 47 20 92 20 20 22 3A 8E 00 26 0F FA 00 55 |ING . ":..&...U|
00000700: 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 55 |1%..(U1):U2%..(U|
00000710: 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 25 |2):U3%..(U3):U4%|
00000720: B2 C2 28 55 34 29 00 4E 0F FB 00 55 4A 24 B2 55 |..(U4).N...UJ$.U|
00000730: 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 |S$:UK$.UG$:UL$.U|
00000740: 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 54 |T$:UJ.UP:UK.UL.T|
00000750: 0F FF 00 8E 00 65 0F 2C 01 8F 20 2A 2A 20 4D 45 |.....e.,.. ** ME|
00000760: 4E 55 20 2A 2A 00 6B 0F 2D 01 3A 00 9A 0F 2E 01 |NU **.k.-.:.....|
00000770: 99 22 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 |.".":.UT,UU%:..(|
00000780: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00000790: 39 3A 97 35 33 32 38 30 2C 38 00 A0 0F 2F 01 3A |9:.53280,8.../.:|
000007A0: 00 BD 0F 31 01 99 22 13 20 20 20 20 20 20 20 20 |...1..". |
000007B0: 20 20 20 20 20 20 20 20 4D 45 4E 55 22 00 EC 0F | MENU"...|
000007C0: 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |6.." -----------|
000007D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 1A 10 3B |-----------"...;|
000007F0: 01 99 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 |..".. 1. |
00000800: 20 42 45 47 49 4E 20 53 4C 4F 50 45 20 26 20 49 | BEGIN SLOPE & I|
00000810: 4E 54 45 52 43 45 50 54 53 22 00 44 10 40 01 99 |NTERCEPTS".D.@..|
00000820: 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 |".. 2. S|
00000830: 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 |TUDENT INSTRUCTI|
00000840: 4F 4E 53 22 00 6E 10 45 01 99 22 11 11 20 20 20 |ONS".n.E..".. |
00000850: 20 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 | 3. TEACHER|
00000860: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 8A | INSTRUCTIONS"..|
00000870: 10 4F 01 99 22 11 11 20 20 20 20 20 20 20 34 2E |.O..".. 4.|
00000880: 20 20 20 51 55 49 54 11 11 22 00 B9 10 54 01 99 | QUIT.."...T..|
00000890: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
000008A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008B0: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E4 10 59 01 99 22 |--------"...Y.."|
000008C0: 11 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 |.. PRESS A|
000008D0: 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 | NUMBER KEY (1-4|
000008E0: 29 20 22 3B 00 0C 11 5E 01 55 4C B2 31 3A 55 53 |) ";...^.UL.1:US|
000008F0: 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 |$."1234":.35:. I|
00000900: 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 1E 11 5F |NPUT ROUTINE..._|
00000910: 01 8B C3 28 55 52 24 29 B1 31 A7 33 30 30 00 29 |...(UR$).1.300.)|
00000920: 11 60 01 55 53 24 B2 22 22 00 46 11 63 01 91 C5 |.`.US$."".F.c...|
00000930: 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 |(UR$).1000,400,5|
00000940: 30 30 2C 33 39 36 00 4F 11 68 01 89 33 30 30 00 |00,396.O.h..300.|
00000950: 76 11 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 |v.... ** RE-ENAB|
00000960: 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 |LE STOP KEY AND |
00000970: 45 4E 44 20 2A 2A 00 A5 11 8C 01 8B C2 28 35 30 |END **.......(50|
00000980: 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 |003)..1..(50003)|
00000990: B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 |..160..(50003)..|
000009A0: 30 A7 33 39 39 00 CF 11 8D 01 9E 55 55 AA 37 31 |0.399......UU.71|
000009B0: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
000009C0: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 |281,6:.53280,14.|
000009D0: DB 11 8E 01 99 22 9A 93 22 3A 80 00 E6 11 8F 01 |....."..":......|
000009E0: 8D 38 37 35 3A 8E 00 07 12 90 01 8F 20 2A 2A 20 |.875:....... ** |
000009F0: 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 |STUDENT INSTRUCT|
00000A00: 49 4F 4E 53 20 2A 2A 00 36 12 95 01 99 22 93 22 |IONS **.6...."."|
00000A10: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000|
00000A20: 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 |3).0..53281,0:.5|
00000A30: 33 32 38 30 2C 30 00 57 12 9A 01 55 50 B2 30 3A |3280,0.W...UP.0:|
00000A40: 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E 53 |UG$.".TUDENT .NS|
00000A50: 54 22 3A 8D 38 35 30 00 87 12 9C 01 99 22 11 11 |T":.850......"..|
00000A60: 11 11 20 20 D4 48 49 53 20 50 52 4F 47 52 41 4D |.. .HIS PROGRAM|
00000A70: 20 47 49 56 45 53 20 41 4E 20 45 51 55 41 54 49 | GIVES AN EQUATI|
00000A80: 4F 4E 20 49 4E 20 22 00 B4 12 9E 01 99 22 11 20 |ON IN "......". |
00000A90: 53 54 41 4E 44 41 52 44 20 46 4F 52 4D 20 41 4E |STANDARD FORM AN|
00000AA0: 44 20 41 53 4B 53 20 59 4F 55 20 54 4F 20 49 4E |D ASKS YOU TO IN|
00000AB0: 50 55 54 22 00 E5 12 A0 01 99 22 11 20 54 48 45 |PUT"......". THE|
00000AC0: 20 56 41 4C 55 45 20 4F 46 20 54 48 45 20 53 4C | VALUE OF THE SL|
00000AD0: 4F 50 45 20 41 4E 44 20 54 48 45 20 59 2D 49 4E |OPE AND THE Y-IN|
00000AE0: 54 45 52 2D 22 00 14 13 A2 01 99 22 20 43 45 50 |TER-"......" CEP|
00000AF0: 54 20 41 53 20 44 45 46 49 4E 45 44 20 42 59 20 |T AS DEFINED BY |
00000B00: 54 48 45 20 47 49 56 45 4E 20 45 51 55 41 54 49 |THE GIVEN EQUATI|
00000B10: 4F 4E 2E 22 00 60 13 A4 01 99 22 11 20 D2 45 4D |ON.".`....". .EM|
00000B20: 45 4D 42 45 52 20 54 4F 20 50 52 45 53 53 20 12 |EMBER TO PRESS .|
00000B30: 52 45 54 55 52 4E 92 20 41 46 54 45 52 20 59 4F |RETURN. AFTER YO|
00000B40: 55 22 3A 99 22 11 20 48 41 56 45 20 45 4E 54 45 |U":.". HAVE ENTE|
00000B50: 52 45 44 20 59 4F 55 52 20 41 4E 53 57 45 52 2E |RED YOUR ANSWER.|
00000B60: 00 6E 13 A9 01 8D 38 33 35 3A 8D 38 35 30 00 8E |.n....835:.850..|
00000B70: 13 AE 01 99 22 11 11 11 20 C9 46 20 41 58 20 2B |...."... .F AX +|
00000B80: 20 42 59 20 2B 20 43 20 3D 20 30 22 3A 99 00 AA | BY + C = 0":...|
00000B90: 13 B0 01 99 22 11 20 54 48 45 4E 20 20 59 20 3D |....". THEN Y =|
00000BA0: 20 4D 58 20 2B 20 42 22 3A 99 00 CF 13 B2 01 99 | MX + B":.......|
00000BB0: 22 11 20 57 48 45 52 45 20 4D 20 3D 20 2D 41 2F |". WHERE M = -A/|
00000BC0: 42 20 20 41 4E 44 20 42 20 3D 20 2D 43 2F 42 00 |B AND B = -C/B.|
00000BD0: D7 13 B4 01 99 3A 99 00 04 14 B6 01 99 22 11 20 |.....:.......". |
00000BE0: CE 4F 54 45 20 54 48 41 54 20 4D 20 49 53 20 54 |.OTE THAT M IS T|
00000BF0: 48 45 20 53 4C 4F 50 45 20 4F 46 20 54 48 45 20 |HE SLOPE OF THE |
00000C00: 4C 49 4E 45 00 27 14 B9 01 99 22 11 20 41 4E 44 |LINE.'....". AND|
00000C10: 20 42 20 49 53 20 54 48 45 20 59 2D 49 4E 54 45 | B IS THE Y-INTE|
00000C20: 52 43 45 50 54 2E 22 00 35 14 BA 01 8D 38 33 35 |RCEPT.".5....835|
00000C30: 3A 8D 38 35 30 00 64 14 CC 01 99 22 11 11 20 CE |:.850.d....".. .|
00000C40: CF D4 C5 20 11 11 11 D4 4F 20 41 44 56 41 4E 43 |... ....O ADVANC|
00000C50: 45 20 46 52 4F 4D 20 4F 4E 45 20 51 55 45 53 54 |E FROM ONE QUEST|
00000C60: 49 4F 4E 22 00 8E 14 D6 01 99 22 11 20 54 4F 20 |ION"......". TO |
00000C70: 54 48 45 20 4E 45 58 54 20 50 52 45 53 53 20 54 |THE NEXT PRESS T|
00000C80: 48 45 20 53 50 41 43 45 20 42 41 52 2E 22 00 BE |HE SPACE BAR."..|
00000C90: 14 DB 01 99 22 11 11 1D 1D 1D 1D 1D C9 46 20 41 |...."........F A|
00000CA0: 54 20 41 4E 59 20 54 49 4D 45 20 59 4F 55 20 57 |T ANY TIME YOU W|
00000CB0: 49 53 48 20 54 4F 20 52 45 54 55 52 4E 22 00 E3 |ISH TO RETURN"..|
00000CC0: 14 E0 01 99 22 11 20 54 4F 20 54 48 45 20 4D 45 |....". TO THE ME|
00000CD0: 4E 55 20 50 52 45 53 53 20 48 20 52 45 54 55 52 |NU PRESS H RETUR|
00000CE0: 4E 2E 22 00 EC 14 E5 01 8D 38 33 35 00 00 15 EA |N."......835....|
00000CF0: 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 |..UZ.1..UP%:.217|
00000D00: 00 06 15 F3 01 8E 00 27 15 F4 01 8F 20 2A 2A 20 |.......'.... ** |
00000D10: 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 |TEACHER INSTRUCT|
00000D20: 49 4F 4E 53 20 2A 2A 00 57 15 F5 01 99 22 93 22 |IONS **.W...."."|
00000D30: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000|
00000D40: 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 |3).0..53281,2:.5|
00000D50: 33 32 38 30 2C 31 30 00 78 15 F6 01 55 50 B2 30 |3280,10.x...UP.0|
00000D60: 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E |:UG$.".EACHER .N|
00000D70: 53 54 22 3A 8D 38 35 30 00 A6 15 F7 01 99 22 11 |ST":.850......".|
00000D80: 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 |. .O THE BE|
00000D90: 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 |ST OF OUR KNOWLE|
00000DA0: 44 47 45 2C 11 22 00 CF 15 F8 01 99 22 20 20 20 |DGE,."......" |
00000DB0: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 |THIS PROGRAM IS |
00000DC0: 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 |IN THE PUBLIC.".|
00000DD0: FB 15 F9 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E |....." DOMAIN.|
00000DE0: 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 | .F THIS IS NOT|
00000DF0: 20 54 48 45 20 43 41 53 45 11 22 00 18 16 FA 01 | THE CASE.".....|
00000E00: 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 |." PLEASE CONT|
00000E10: 41 43 54 3A 11 11 11 22 00 42 16 FB 01 99 22 20 |ACT:...".B...." |
00000E20: 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 | .OMMODORE .|
00000E30: 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 |USINESS .ACHINES|
00000E40: 11 22 00 65 16 FC 01 99 22 20 20 20 20 20 20 20 |.".e...." |
00000E50: 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 59 | 3370 .HARMACY|
00000E60: 20 C1 56 45 2E 00 89 16 FD 01 99 22 20 20 20 20 | .VE......." |
00000E70: 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C | .GINCOURT,|
00000E80: 20 CF 4E 54 41 52 49 4F 22 00 AB 16 FE 01 99 22 | .NTARIO"......"|
00000E90: 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 | .ANADA|
00000EA0: 20 20 20 CD 31 D7 20 32 CB 34 22 00 CB 16 FF 01 | .1. 2.4".....|
00000EB0: 99 22 20 20 20 20 20 20 20 20 20 20 28 34 31 36 |." (416|
00000EC0: 29 20 34 39 39 2D 34 32 39 32 22 00 E1 16 00 02 |) 499-4292".....|
00000ED0: 55 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 |UP.1:. 835:. 850|
00000EE0: 3A 00 11 17 01 02 99 22 20 20 20 20 20 11 11 D0 |:......" ...|
00000EF0: 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 D3 4C 4F |ROGRAM .AME: .LO|
00000F00: 50 45 20 26 20 C9 4E 54 45 52 43 45 50 54 53 11 |PE & .NTERCEPTS.|
00000F10: 22 00 38 17 02 02 99 22 20 20 20 20 20 D7 52 49 |".8...." .RI|
00000F20: 54 54 45 4E 20 C2 59 20 20 3A 20 C3 2E 20 C5 2E |TTEN .Y : .. ..|
00000F30: 20 C4 45 48 4E 11 20 22 00 5C 17 03 02 99 22 20 | .EHN. ".\...." |
00000F40: 20 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 | .PGRADED .Y |
00000F50: 3A 20 20 20 20 20 20 20 20 20 20 11 00 87 17 04 |: .....|
00000F60: 02 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 |.." ..HIS PR|
00000F70: 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F |OGRAM WILL RUN O|
00000F80: 4E 20 41 4E 59 11 11 00 A7 17 07 02 99 22 20 20 |N ANY........" |
00000F90: 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 C3 CF | ... 64 ..|
00000FA0: CD D0 D5 D4 C5 D2 11 00 CC 17 08 02 99 22 20 20 |............." |
00000FB0: 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 | .........|
00000FC0: 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 DA 17 09 | 64 ............|
00000FD0: 02 8D 38 33 35 3A 8D 38 35 30 00 E0 17 0F 02 99 |..835:.850......|
00000FE0: 00 0B 18 10 02 99 22 20 20 20 20 C9 4E 20 54 48 |......" .N TH|
00000FF0: 49 53 20 50 52 4F 47 52 41 4D 2C 20 54 48 45 20 |IS PROGRAM, THE |
00001000: 53 54 55 44 45 4E 54 20 49 53 22 00 3B 18 12 02 |STUDENT IS".;...|
00001010: 99 22 11 20 45 58 50 45 43 54 45 44 20 54 4F 20 |.". EXPECTED TO |
00001020: 54 59 50 45 20 49 4E 20 54 48 45 20 53 4C 4F 50 |TYPE IN THE SLOP|
00001030: 45 20 41 4E 44 20 54 48 45 20 22 00 6B 18 14 02 |E AND THE ".k...|
00001040: 99 22 11 20 58 2D 49 4E 54 45 52 43 45 50 54 20 |.". X-INTERCEPT |
00001050: 4F 46 20 54 48 45 20 47 49 56 45 4E 20 45 51 55 |OF THE GIVEN EQU|
00001060: 41 54 49 4F 4E 20 28 49 4E 20 22 00 88 18 16 02 |ATION (IN ".....|
00001070: 99 22 11 20 54 48 45 20 46 49 52 53 54 20 53 45 |.". THE FIRST SE|
00001080: 43 54 49 4F 4E 29 2E 22 00 B8 18 18 02 99 3A 99 |CTION)."......:.|
00001090: 22 20 20 20 20 C9 4E 20 54 48 45 20 53 45 43 4F |" .N THE SECO|
000010A0: 4E 44 20 53 45 43 54 49 4F 4E 2C 20 54 48 45 20 |ND SECTION, THE |
000010B0: 53 54 55 44 45 4E 54 22 00 E9 18 1A 02 99 22 11 |STUDENT"......".|
000010C0: 20 49 53 20 53 55 50 50 4F 53 45 44 20 54 4F 20 | IS SUPPOSED TO |
000010D0: 49 4E 50 55 54 20 54 48 45 20 58 20 41 4E 44 20 |INPUT THE X AND |
000010E0: 59 20 49 4E 54 45 52 2D 22 00 14 19 1C 02 99 22 |Y INTER-"......"|
000010F0: 20 43 45 50 54 53 20 46 52 4F 4D 20 54 48 45 20 | CEPTS FROM THE |
00001100: 44 49 53 50 4C 41 59 45 44 20 45 51 55 41 54 49 |DISPLAYED EQUATI|
00001110: 4F 4E 2E 22 00 1D 19 44 02 8D 38 33 35 00 31 19 |ON."...D..835.1.|
00001120: 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 |N..UZ.1..UP%:.21|
00001130: 37 00 37 19 57 02 8E 00 5D 19 58 02 8F 20 2A 2A |7.7.W...].X.. **|
00001140: 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 | PROGRAM MODIFIC|
00001150: 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 6E 19 |ATION INST **.n.|
00001160: 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 8E |Y..".":.UT,UL%..|
00001170: 19 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 4F |.].UP.0:UG$.".RO|
00001180: 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 BE |GRAM .OD":.850..|
00001190: 19 62 02 99 22 11 1D 1D 1D 1D 11 11 11 11 11 11 |.b.."...........|
000011A0: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 4E 4F |..............NO|
000011B0: 54 20 41 50 50 4C 49 43 41 42 4C 45 92 22 00 C7 |T APPLICABLE."..|
000011C0: 19 94 02 8D 38 33 35 00 DB 19 B2 02 8B 55 5A B2 |....835......UZ.|
000011D0: 31 A7 9E 55 50 25 3A 89 32 31 37 00 E1 19 BB 02 |1..UP%:.217.....|
000011E0: 8E 00 06 1A BC 02 8F 20 2A 2A 20 54 4F 20 55 53 |....... ** TO US|
000011F0: 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 |E 8032 LOAD CBM4|
00001200: 30 33 32 20 2A 2A 00 3C 1A C6 02 99 22 93 11 11 |032 **.<...."...|
00001210: 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 |..BEFORE RUNNING|
00001220: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E | THIS PROGRAM ON|
00001230: 20 41 4E 20 38 30 33 32 20 20 11 11 00 72 1A D0 | AN 8032 ...r..|
00001240: 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 |.." LOAD TH|
00001250: 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F |E 'CBM 4032' PRO|
00001260: 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 |GRAM............|
00001270: 11 22 00 7D 1A DA 02 9E 55 55 AA 37 31 00 83 1A |.".}....UU.71...|
00001280: E4 02 80 00 A8 1A 1D 03 8F 20 2A 2A 20 54 4F 20 |......... ** TO |
00001290: 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 |USE 8032 LOAD CB|
000012A0: 4D 34 30 33 32 20 2A 2A 00 F3 1A 1E 03 99 22 93 |M4032 **......".|
000012B0: 11 11 11 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E |...BEFORE RUNNIN|
000012C0: 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F |G THIS PROGRAM O|
000012D0: 4E 20 41 4E 20 38 30 33 32 20 20 11 11 4C 4F 41 |N AN 8032 ..LOA|
000012E0: 44 20 43 42 4D 20 34 30 33 32 20 50 52 4F 47 52 |D CBM 4032 PROGR|
000012F0: 41 4D 22 00 FF 1A 1F 03 9E 31 30 39 33 3A 80 00 |AM"......1093:..|
00001300: 1F 1B 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C |.. .. ** T I T L|
00001310: 20 45 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 | E P A G E **.|
00001320: 53 1B 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 |S.".."....";:.UT|
00001330: 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UU%:..(50003).0|
00001340: A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |..53280,14:.5328|
00001350: 31 2C 36 00 69 1B 24 03 81 49 B2 31 A4 33 38 3A |1,6.i.$..I.1.38:|
00001360: 99 22 12 A6 92 22 3B 3A 82 00 81 1B 26 03 81 49 |."...";:....&..I|
00001370: B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A |.1.22:.".....";:|
00001380: 82 00 99 1B 28 03 81 49 B2 31 A4 33 37 3A 99 22 |....(..I.1.37:."|
00001390: 9D 9D 12 A6 92 22 3B 3A 82 00 B1 1B 29 03 A1 20 |.....";:....).. |
000013A0: 41 24 3A 8B 20 41 24 B3 B1 22 22 20 A7 20 33 30 |A$:. A$.."" . 30|
000013B0: 30 00 C9 1B 2A 03 81 49 B2 31 A4 32 32 3A 99 22 |0...*..I.1.22:."|
000013C0: 91 9D 12 A6 92 22 3B 3A 82 00 EE 1B 2C 03 99 22 |.....";:....,.."|
000013D0: 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000013E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 10 |........... ...|
000013F0: 1C 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
00001400: 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 |........ . . ..|
00001410: 00 31 1C 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |.1.0..".........|
00001420: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 |.......... . ..|
00001430: DF 00 4F 1C 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..O.2.."........|
00001440: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 |............ ..|
00001450: 77 1C 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D |w.4.."..........|
00001460: 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 |....C O M M O D |
00001470: 4F 20 52 20 45 11 11 00 9A 1C 36 03 99 22 1D 1D |O R E.....6.."..|
00001480: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 |.............EDU|
00001490: 43 41 54 49 4F 4E 41 4C 11 11 00 B9 1C 38 03 99 |CATIONAL.....8..|
000014A0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000014B0: 1D 53 4F 46 54 57 41 52 45 00 D4 1C 3A 03 8F 20 |.SOFTWARE...:.. |
000014C0: 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 |** COMMODORE LOG|
000014D0: 4F 20 2A 2A 00 0C 1D 3B 03 99 C8 28 55 44 24 2C |O **...;...(UD$,|
000014E0: 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 |24);"..........P|
000014F0: 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 4F |RESS SPACE BAR O|
00001500: 52 20 57 41 49 54 92 22 3A 49 B2 30 00 2E 1D 3C |R WAIT.":I.0...<|
00001510: 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 |..A$:.A$.." ".I.|
00001520: 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 52 |I.1:.I.250.828.R|
00001530: 1D 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 |.>.T1$."":T2$.""|
00001540: 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 |:T3$."":T4$."":I|
00001550: B2 30 00 5B 1D 40 03 89 33 30 30 00 77 1D 43 03 |.0.[.@..300.w.C.|
00001560: 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 |. ** SPACE BAR P|
00001570: 52 45 53 53 20 2A 2A 00 B2 1D 48 03 97 55 4F 2C |RESS **...H..UO,|
00001580: 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D |0:..(UD$,24);"..|
00001590: 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 |.....PRESS SPACE|
000015A0: 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | BAR TO CONTINUE|
000015B0: 92 22 00 C9 1D 4C 03 A1 55 49 24 3A 8B 55 49 24 |."...L..UI$:.UI$|
000015C0: B3 B1 22 20 22 A7 38 34 34 00 CF 1D 4E 03 8E 00 |.." ".844...N...|
000015D0: EF 1D 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 |..R.. ** PAGE DE|
000015E0: 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 |SIGN ROUTINE **.|
000015F0: FB 1D 54 03 55 50 B2 55 50 AA 31 00 25 1E 57 03 |..T.UP.UP.1.%.W.|
00001600: 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 |.".".(UT$.UP$,21|
00001610: 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 |);.(UP$.UG$..(UP|
00001620: 29 2C 31 38 29 00 54 1E 5C 03 99 22 20 2D 2D 2D |),18).T.\.." ---|
00001630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001650: 2D 2D 2D 22 00 63 1E 60 03 8B 55 48 B3 B1 30 A7 |---".c.`..UH..0.|
00001660: 38 37 30 00 97 1E 61 03 99 C8 28 55 44 24 2C 32 |870...a...(UD$,2|
00001670: 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C |4);.(UP$,7);"HEL|
00001680: 50 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 |P - PRESS H <R|
00001690: 45 54 55 52 4E 3E 22 00 A8 1E 66 03 55 48 B2 30 |ETURN>"...f.UH.0|
000016A0: 3A 99 22 13 11 22 3A 8E 00 C7 1E 6B 03 8F 20 2A |:."..":....k.. *|
000016B0: 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 |* PLEASE WAIT RE|
000016C0: 4D 41 52 4B 20 2A 2A 00 FD 1E 70 03 99 C8 28 55 |MARK **...p...(U|
000016D0: 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 |D$,24);" |
000016E0: 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C | ONE MOMENT PL|
000016F0: 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 03 1F |EASE... "...|
00001700: 75 03 8E 00 20 1F 84 03 8F 20 2A 2A 20 53 45 54 |u... .... ** SET|
00001710: 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A | UP VARIABLES **|
00001720: 00 6B 1F 85 03 55 58 24 B2 22 48 22 3A 86 55 51 |.k...UX$."H":.UQ|
00001730: 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 |%(1000):UB.32768|
00001740: 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 |:U1.196:U2.197:U|
00001750: 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 |3.198:U4.216:UC.|
00001760: 31 36 37 3A 55 55 B2 31 30 32 34 00 A9 1F 86 03 |167:UU.1024.....|
00001770: 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A |UT.59468:UU%.12:|
00001780: 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A |UL%.14:UP%.1146:|
00001790: 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A |UM.32768:UO.158:|
000017A0: 97 20 35 30 30 30 33 2C 30 00 EC 1F 87 03 8B C2 |. 50003,0.......|
000017B0: 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 |(50003).0.UB.102|
000017C0: 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A |4:U1.209:U2.210:|
000017D0: 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 |U3.211:U4.214:UC|
000017E0: B2 32 30 34 3A 55 55 B2 32 30 34 38 00 2B 20 88 |.204:UU.2048.+ .|
000017F0: 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 |...(50003).0.UT.|
00001800: 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 |53272:UU%.21:UL%|
00001810: B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 |.23:UP%.2139:UM.|
00001820: 31 30 32 34 3A 55 4F B2 31 39 38 00 4F 20 89 03 |1024:UO.198.O ..|
00001830: 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 |UD$."...........|
00001840: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".|
00001850: 81 20 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 |. ..UP$." |
00001860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001880: 22 00 CF 20 8B 03 55 54 24 B2 22 20 D3 CC CF D0 |".. ..UT$." ....|
00001890: C5 20 26 20 C9 CE D4 C5 D2 C3 C5 D0 D4 D3 22 3A |. & ..........":|
000018A0: 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 |. PLACE PROGRAM |
000018B0: 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 |TITLE HERE !!!!!|
000018C0: 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 |!!!!!!!!!!!!***.|
000018D0: D5 20 8C 03 8E 00 EF 20 8E 03 8F 20 2A 2A 20 53 |. ..... ... ** S|
000018E0: 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |ET VARIABLES **.|
000018F0: F8 20 93 03 8D 39 30 30 00 FE 20 94 03 3A 00 04 |. ...900.. ..:..|
00001900: 21 95 03 3A 00 1F 21 98 03 8F 20 2A 2A 20 43 48 |!..:..!... ** CH|
00001910: 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 |ECK FOR 8032 **.|
00001920: 3D 21 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 |=!...".":.".":. |
00001930: 53 48 49 46 54 45 44 20 53 50 41 43 45 00 54 21 |SHIFTED SPACE.T!|
00001940: A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 |....(UB.40)..96.|
00001950: 8D 37 30 30 00 6D 21 A3 03 8F 20 2A 2A 20 4D 45 |.700.m!... ** ME|
00001960: 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 81 21 |MORY CHECK **..!|
00001970: A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 |... .(0).2000.93|
00001980: 37 00 AF 21 A5 03 99 22 93 11 11 05 54 48 49 53 |7..!..."....THIS|
00001990: 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F | MACHINE DOES NO|
000019A0: 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 |T HAVE ENOUGH.".|
000019B0: D3 21 A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 |.!..."MEMORY TO |
000019C0: 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D |RUN THIS PROGRAM|
000019D0: 20 21 22 00 DE 21 A7 03 9E 55 55 AA 37 31 00 E4 | !"..!...UU.71..|
000019E0: 21 A8 03 80 00 FE 21 A9 03 99 22 93 05 22 3A 8B |!.....!..."..":.|
000019F0: C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 2D |.(50003).0.962.-|
00001A00: 22 AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E |"... ** BASIC 2.|
00001A10: 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 |0 OR 4.0 OR |
00001A20: 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 6B 22 |C-64 SETUP **.k"|
00001A30: AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 |...1075,133:.107|
00001A40: 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A |6,144:.1077,234:|
00001A50: 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 |.1079,4:.1080,13|
00001A60: 33 3A 97 31 30 38 31 2C 31 34 35 00 A1 22 AE 03 |3:.1081,145.."..|
00001A70: 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C |.1091,155:.1098,|
00001A80: 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 |133:.1099,144:.1|
00001A90: 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 |100,234:.1103,13|
00001AA0: 33 00 C3 22 AF 03 97 31 31 30 34 2C 31 34 35 3A |3.."...1104,145:|
00001AB0: 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C |.1105,234:.1082,|
00001AC0: 32 33 34 00 DA 22 B1 03 8B C2 28 35 30 30 30 33 |234.."....(50003|
00001AD0: 29 B3 B1 31 36 30 A7 39 35 35 00 09 23 B6 03 97 |)..160.955..#...|
00001AE0: 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 |1093,88:.1094,22|
00001AF0: 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 |8:.1097,85:.1102|
00001B00: 2C 32 32 38 3A 89 39 36 35 00 1E 23 BB 03 8B C2 |,228:.965..#....|
00001B10: 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 4D |(50003)..1.990.M|
00001B20: 23 C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 |#...1093,49:.109|
00001B30: 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 |4,230:.1097,46:.|
00001B40: 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 87 23 |1102,230:.965..#|
00001B50: C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 |...2099,141:.210|
00001B60: 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 |0,20:.2101,3:.21|
00001B70: 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 |03,8:.2104,141:.|
00001B80: 32 31 30 35 2C 32 31 00 C3 23 C3 03 97 32 31 30 |2105,21..#...210|
00001B90: 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 |6,3:.2115,145:.2|
00001BA0: 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 |117,52:.2118,234|
00001BB0: 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C |:.2121,49:.2122,|
00001BC0: 31 34 31 00 FD 23 C4 03 97 32 31 32 33 2C 32 30 |141..#...2123,20|
00001BD0: 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 |:.2124,3:.2126,2|
00001BE0: 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 |34:.2127,141:.21|
00001BF0: 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 1B 24 |28,21:.2129,3..$|
00001C00: C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 |...UU.48:. DISAB|
00001C10: 4C 45 20 53 54 4F 50 20 4B 45 59 00 2C 24 CA 03 |LE STOP KEY.,$..|
00001C20: 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 3C 24 D4 |.800:. TITLE.<$.|
00001C30: 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 6D 24 DE |..300:. MENU.m$.|
00001C40: 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C |..".THE PGM WILL|
00001C50: 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 | NOT WORK ON THI|
00001C60: 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 A2 24 |S MACHINE!":...$|
00001C70: E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 |...UZ.1..UP%:.UP|
00001C80: 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 |%:UZ.0:. ** PROG|
00001C90: 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 |RAM STARTS HERE |
00001CA0: 2A 2A 00 CE 24 E9 03 99 22 93 05 22 3B 3A 8C 3A |**..$..."..";:.:|
00001CB0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00001CC0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 F1 |81,6:.53280,14..|
00001CD0: 24 FC 03 8F 20 45 54 4F 42 49 43 4F 4B 45 20 42 |$... ETOBICOKE B|
00001CE0: 4F 41 52 44 20 4F 46 20 45 44 55 43 41 54 49 4F |OARD OF EDUCATIO|
00001CF0: 4E 00 2C 25 10 04 8F 20 22 53 4C 4F 50 45 20 41 |N.,%... "SLOPE A|
00001D00: 4E 44 20 59 2D 49 4E 54 45 52 43 45 50 54 20 20 |ND Y-INTERCEPT |
00001D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001D20: 20 42 59 20 43 20 45 A0 44 45 48 4E 00 4C 25 1A | BY C E.DEHN.L%.|
00001D30: 04 8F 20 22 50 45 54 20 43 4F 55 52 53 45 20 4D |.. "PET COURSE M|
00001D40: 41 52 43 48 20 31 32 2C 31 39 38 31 00 68 25 60 |ARCH 12,1981.h%`|
00001D50: 04 54 B2 54 49 3A 54 43 B2 31 3A 55 50 B2 54 43 |.T.TI:TC.1:UP.TC|
00001D60: 3A 97 55 54 2C 55 4C 25 00 82 25 74 04 55 47 24 |:.UT,UL%..%t.UG$|
00001D70: B2 22 22 3A 55 48 B2 31 3A 55 50 B2 30 3A 8D 38 |."":UH.1:UP.0:.8|
00001D80: 35 30 00 A1 25 7E 04 99 22 11 11 20 C9 46 20 41 |50..%~..".. .F A|
00001D90: 58 20 2B 20 42 59 20 2B 20 43 20 3D 20 30 22 3A |X + BY + C = 0":|
00001DA0: 99 00 BC 25 88 04 99 22 20 54 48 45 4E 20 20 59 |...%..." THEN Y|
00001DB0: 20 3D 20 4D 58 20 2B 20 42 22 3A 99 00 E0 25 92 | = MX + B":...%.|
00001DC0: 04 99 22 20 57 48 45 52 45 20 4D 20 3D 20 2D 41 |.." WHERE M = -A|
00001DD0: 2F 42 20 20 41 4E 44 20 42 20 3D 20 2D 43 2F 42 |/B AND B = -C/B|
00001DE0: 00 E8 25 9C 04 99 3A 99 00 15 26 A6 04 99 22 20 |..%...:...&..." |
00001DF0: CE 4F 54 45 20 54 48 41 54 20 4D 20 49 53 20 54 |.OTE THAT M IS T|
00001E00: 48 45 20 53 4C 4F 50 45 20 4F 46 20 54 48 45 20 |HE SLOPE OF THE |
00001E10: 4C 49 4E 45 22 00 38 26 B0 04 99 22 11 20 41 4E |LINE".8&...". AN|
00001E20: 44 20 42 20 49 53 20 54 48 45 20 59 2D 49 4E 54 |D B IS THE Y-INT|
00001E30: 45 52 43 45 50 54 2E 22 00 68 26 BA 04 99 3A 99 |ERCEPT.".h&...:.|
00001E40: 3A 99 22 20 C8 4F 57 20 4D 41 4E 59 20 45 58 41 |:." .OW MANY EXA|
00001E50: 4D 50 4C 45 53 20 57 4F 55 4C 44 20 59 4F 55 20 |MPLES WOULD YOU |
00001E60: 4C 49 4B 45 3F 20 22 3B 00 8F 26 C4 04 55 53 24 |LIKE? ";..&..US$|
00001E70: B2 22 30 31 32 33 34 35 36 37 38 39 22 3A 55 4C |."0123456789":UL|
00001E80: B2 32 3A 8D 33 35 3A 4E B2 C5 28 55 52 24 29 00 |.2:.35:N..(UR$).|
00001E90: 9D 26 CE 04 81 20 4B B2 31 20 A4 20 4E 00 C6 26 |.&... K.1 . N..&|
00001EA0: D3 04 55 47 24 B2 22 D1 55 45 53 54 49 4F 4E 20 |..UG$.".UESTION |
00001EB0: 23 22 3A 54 43 B2 54 43 AA 31 3A 55 50 B2 4B AB |#":TC.TC.1:UP.K.|
00001EC0: 31 3A 8D 38 35 30 00 DC 26 D8 04 42 B2 B5 28 32 |1:.850..&..B..(2|
00001ED0: 30 31 AC BB 28 31 29 AB 31 30 30 29 00 EC 26 E2 |01..(1).100)..&.|
00001EE0: 04 8B 20 42 B2 30 20 89 31 32 34 30 00 02 27 EC |.. B.0 .1240..'.|
00001EF0: 04 41 B2 B5 28 32 30 31 AC BB 28 31 29 AB 31 30 |.A..(201..(1).10|
00001F00: 30 29 00 1D 27 F6 04 8B 20 41 AD 42 AB B5 28 41 |0)..'... A.B..(A|
00001F10: AD 42 29 B3 B1 30 20 89 20 31 32 34 30 00 33 27 |.B)..0 . 1240.3'|
00001F20: 00 05 43 B2 B5 28 32 30 31 AC BB 28 31 29 AB 31 |..C..(201..(1).1|
00001F30: 30 30 29 00 4E 27 0A 05 8B 20 43 AD 42 AB B5 28 |00).N'... C.B..(|
00001F40: 43 AD 42 29 B3 B1 30 20 89 20 31 32 38 30 00 76 |C.B)..0 . 1280.v|
00001F50: 27 14 05 99 22 11 11 20 C9 46 20 22 3B 41 3B 22 |'...".. .F ";A;"|
00001F60: 58 20 2B 20 22 3B 42 3B 22 59 20 2B 20 22 3B 43 |X + ";B;"Y + ";C|
00001F70: 3B 22 20 3D 20 30 00 8E 27 1E 05 99 22 11 20 54 |;" = 0..'...". T|
00001F80: 48 45 4E 20 4D 20 3D 20 22 3B 3A 44 B2 30 00 AF |HEN M = ";:D.0..|
00001F90: 27 28 05 55 53 24 B2 22 2D 2E 30 31 32 33 34 35 |'(.US$."-.012345|
00001FA0: 36 37 38 39 22 3A 55 4C B2 34 3A 8D 20 33 35 00 |6789":UL.4:. 35.|
00001FB0: BC 27 2D 05 4D B2 C5 28 55 52 24 29 00 DF 27 32 |.'-.M..(UR$)..'2|
00001FC0: 05 8B 20 4D B2 AB 41 AD 42 20 A7 20 99 22 11 20 |.. M..A.B . .". |
00001FD0: C3 4F 52 52 45 43 54 11 22 3A 89 31 33 36 30 00 |.ORRECT.":.1360.|
00001FE0: F6 27 3C 05 44 B2 44 AA 31 3A 8B 20 44 B2 33 20 |.'<.D.D.1:. D.3 |
00001FF0: A7 20 31 33 35 32 00 24 28 46 05 99 22 20 D7 52 |. 1352.$(F.." .R|
00002000: 4F 4E 47 20 41 4E 53 57 45 52 2E 20 D4 52 59 20 |ONG ANSWER. .RY |
00002010: 41 47 41 49 4E 2E 20 4D 20 3D 20 22 3B 3A 89 20 |AGAIN. M = ";:. |
00002020: 31 33 32 30 00 42 28 48 05 99 3A 99 22 20 D4 48 |1320.B(H..:." .H|
00002030: 41 54 27 53 20 54 48 52 45 45 20 54 52 49 45 53 |AT'S THREE TRIES|
00002040: 2E 22 00 67 28 4A 05 99 22 20 D4 48 45 20 43 4F |.".g(J.." .HE CO|
00002050: 52 52 45 43 54 20 41 4E 53 57 45 52 20 57 41 53 |RRECT ANSWER WAS|
00002060: 20 22 3B AB 41 AD 42 00 80 28 50 05 99 3A 99 22 | ";.A.B..(P..:."|
00002070: 20 41 4E 44 20 20 42 20 3D 20 22 3B 3A 45 B2 30 | AND B = ";:E.0|
00002080: 00 A1 28 5A 05 55 53 24 B2 22 2D 2E 30 31 32 33 |..(Z.US$."-.0123|
00002090: 34 35 36 37 38 39 22 3A 55 4C B2 34 3A 8D 20 33 |456789":UL.4:. 3|
000020A0: 35 00 AF 28 5F 05 42 59 B2 C5 28 55 52 24 29 00 |5..(_.BY..(UR$).|
000020B0: D5 28 64 05 8B 20 42 59 B2 AB 43 AD 42 20 A7 20 |.(d.. BY..C.B . |
000020C0: 99 20 22 11 20 C3 4F 52 52 45 43 54 11 22 3A 89 |. ". .ORRECT.":.|
000020D0: 20 31 34 30 38 00 EB 28 69 05 45 B2 45 AA 31 3A | 1408..(i.E.E.1:|
000020E0: 8B 20 45 B2 33 20 A7 31 34 30 32 00 19 29 6E 05 |. E.3 .1402..)n.|
000020F0: 99 22 20 D7 52 4F 4E 47 20 41 4E 53 57 45 52 2E |." .RONG ANSWER.|
00002100: 20 D4 52 59 20 41 47 41 49 4E 2E 20 42 20 3D 20 | .RY AGAIN. B = |
00002110: 22 3B 3A 89 20 31 33 37 30 00 37 29 7A 05 99 3A |";:. 1370.7)z..:|
00002120: 99 22 20 D4 48 41 54 27 53 20 54 48 52 45 45 20 |." .HAT'S THREE |
00002130: 54 52 49 45 53 2E 22 00 5C 29 7C 05 99 22 20 D4 |TRIES.".\)|.." .|
00002140: 48 45 20 43 4F 52 52 45 43 54 20 41 4E 53 57 45 |HE CORRECT ANSWE|
00002150: 52 20 57 41 53 20 22 3B AB 43 AD 42 00 65 29 80 |R WAS ";.C.B.e).|
00002160: 05 8D 38 33 35 00 6D 29 82 05 82 20 4B 00 8F 29 |..835.m)... K..)|
00002170: 87 05 54 43 B2 54 43 AA 31 3A 55 48 B2 31 3A 55 |..TC.TC.1:UH.1:U|
00002180: 47 24 B2 22 22 3A 55 50 B2 30 3A 8D 38 35 30 00 |G$."":UP.0:.850.|
00002190: C0 29 8C 05 99 22 11 11 11 11 11 11 11 11 20 C4 |.)..."........ .|
000021A0: 4F 20 59 4F 55 20 57 49 53 48 20 41 4E 59 20 4D |O YOU WISH ANY M|
000021B0: 4F 52 45 20 45 58 41 4D 50 4C 45 53 3F 20 22 3B |ORE EXAMPLES? ";|
000021C0: 00 DE 29 A0 05 55 53 24 B2 22 59 4E 22 3A 55 4C |..)..US$."YN":UL|
000021D0: B2 31 3A 8D 20 33 35 3A 41 24 B2 55 52 24 00 F2 |.1:. 35:A$.UR$..|
000021E0: 29 AA 05 8B 20 41 24 B2 22 59 22 20 89 20 31 32 |)... A$."Y" . 12|
000021F0: 31 30 00 06 2A B4 05 8B 20 41 24 B3 B1 22 4E 22 |10..*... A$.."N"|
00002200: 20 89 31 34 34 30 00 18 2A B6 05 54 43 B2 54 43 | .1440..*..TC.TC|
00002210: AA 31 3A 55 50 B2 54 43 00 2D 2A B8 05 55 47 24 |.1:UP.TC.-*..UG$|
00002220: B2 22 22 3A 55 48 B2 31 3A 8D 38 35 30 00 59 2A |."":UH.1:.850.Y*|
00002230: BE 05 99 22 11 11 11 20 CE 4F 57 20 D0 C5 D4 20 |..."... .OW ... |
00002240: 57 49 4C 4C 20 50 52 49 4E 54 20 41 4E 20 45 51 |WILL PRINT AN EQ|
00002250: 55 41 54 49 4F 4E 20 49 4E 00 97 2A C8 05 99 22 |UATION IN..*..."|
00002260: 11 20 53 54 41 4E 44 41 52 44 20 46 4F 52 4D 20 |. STANDARD FORM |
00002270: 41 4E 44 20 41 53 4B 20 46 4F 52 20 54 48 45 20 |AND ASK FOR THE |
00002280: 54 57 4F 20 20 20 20 20 20 11 20 49 4E 54 45 52 |TWO . INTER|
00002290: 43 45 50 54 53 2E 22 00 C4 2A D2 05 99 3A 99 22 |CEPTS."..*...:."|
000022A0: 11 11 11 11 20 C8 4F 57 20 4D 41 4E 59 20 44 4F |.... .OW MANY DO|
000022B0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 44 4F 20 | YOU WISH TO DO |
000022C0: 3F 20 22 3B 00 E2 2A DC 05 55 53 24 B2 22 30 31 |? ";..*..US$."01|
000022D0: 32 33 34 35 36 37 38 39 22 3A 55 4C B2 32 3A 8D |23456789":UL.2:.|
000022E0: 33 35 00 EF 2A E1 05 4A B2 C5 28 55 52 24 29 00 |35..*..J..(UR$).|
000022F0: FD 2A E6 05 81 20 49 B2 31 20 A4 20 4A 00 26 2B |.*... I.1 . J.&+|
00002300: EB 05 55 47 24 B2 22 D1 55 45 53 54 49 4F 4E 20 |..UG$.".UESTION |
00002310: 23 22 3A 54 43 B2 54 43 AA 31 3A 55 50 B2 49 AB |#":TC.TC.1:UP.I.|
00002320: 31 3A 8D 38 35 30 00 3C 2B F0 05 43 B2 B5 28 32 |1:.850.<+..C..(2|
00002330: 30 31 AC BB 28 31 29 AB 31 30 30 29 00 52 2B FA |01..(1).100).R+.|
00002340: 05 41 B2 B5 28 32 30 31 AC BB 28 31 29 AB 31 30 |.A..(201..(1).10|
00002350: 30 29 00 63 2B 04 06 8B 20 41 B2 30 20 89 20 31 |0).c+... A.0 . 1|
00002360: 35 33 30 00 7E 2B 0E 06 8B 20 43 AD 41 AB B5 28 |530.~+... C.A..(|
00002370: 43 AD 41 29 B3 B1 30 20 89 20 31 35 33 30 00 94 |C.A)..0 . 1530..|
00002380: 2B 18 06 42 B2 B5 28 32 30 31 AC BB 28 31 29 AB |+..B..(201..(1).|
00002390: 31 30 30 29 00 A5 2B 22 06 8B 20 42 B2 30 20 89 |100)..+".. B.0 .|
000023A0: 20 31 35 36 30 00 C0 2B 2C 06 8B 20 43 AD 42 AB | 1560..+,.. C.B.|
000023B0: B5 28 43 AD 42 29 B3 B1 30 20 89 20 31 35 36 30 |.(C.B)..0 . 1560|
000023C0: 00 E8 2B 36 06 99 22 11 11 20 C9 46 20 22 3B 41 |..+6..".. .F ";A|
000023D0: 3B 22 58 20 2B 20 22 3B 42 3B 22 59 20 2B 20 22 |;"X + ";B;"Y + "|
000023E0: 3B 43 3B 22 20 3D 20 30 00 11 2C 40 06 99 22 11 |;C;" = 0..,@..".|
000023F0: 20 54 48 45 4E 20 54 48 45 20 58 2D 49 4E 54 45 | THEN THE X-INTE|
00002400: 52 43 45 50 54 20 49 53 20 3A 20 22 3B 3A 46 B2 |RCEPT IS : ";:F.|
00002410: 30 00 31 2C 4A 06 55 53 24 B2 22 2D 2E 30 31 32 |0.1,J.US$."-.012|
00002420: 33 34 35 36 37 38 39 22 3A 55 4C B2 34 3A 8D 33 |3456789":UL.4:.3|
00002430: 35 00 3E 2C 4F 06 58 B2 C5 28 55 52 24 29 00 61 |5.>,O.X..(UR$).a|
00002440: 2C 54 06 8B 20 58 B2 AB 43 AD 41 20 A7 20 99 22 |,T.. X..C.A . ."|
00002450: 11 20 C3 4F 52 52 45 43 54 11 22 3A 89 31 36 36 |. .ORRECT.":.166|
00002460: 30 00 77 2C 59 06 46 B2 46 AA 31 3A 8B 20 46 B2 |0.w,Y.F.F.1:. F.|
00002470: 33 20 A7 31 36 35 30 00 A8 2C 5E 06 99 22 20 D7 |3 .1650..,^.." .|
00002480: 52 4F 4E 47 2E 20 D4 52 59 20 41 47 41 49 4E 2E |RONG. .RY AGAIN.|
00002490: 20 58 2D 49 4E 54 45 52 43 45 50 54 20 3D 20 22 | X-INTERCEPT = "|
000024A0: 3B 3A 89 20 31 36 31 30 00 DA 2C 72 06 99 3A 99 |;:. 1610..,r..:.|
000024B0: 22 20 D4 48 41 54 27 53 20 54 48 52 45 45 20 54 |" .HAT'S THREE T|
000024C0: 52 49 45 53 2E 20 20 D4 48 45 20 43 4F 52 52 45 |RIES. .HE CORRE|
000024D0: 43 54 20 41 4E 53 57 45 52 22 00 EE 2C 77 06 99 |CT ANSWER"..,w..|
000024E0: 22 20 57 41 53 20 22 3B AB 43 AD 41 3A 99 00 11 |" WAS ";.C.A:...|
000024F0: 2D 7C 06 99 22 20 54 48 45 20 59 2D 49 4E 54 45 |-|.." THE Y-INTE|
00002500: 52 43 45 50 54 20 49 53 20 3A 20 22 3B 3A 47 B2 |RCEPT IS : ";:G.|
00002510: 30 00 31 2D 86 06 55 53 24 B2 22 2D 2E 30 31 32 |0.1-..US$."-.012|
00002520: 33 34 35 36 37 38 39 22 3A 55 4C B2 34 3A 8D 33 |3456789":UL.4:.3|
00002530: 35 00 3E 2D 8B 06 59 B2 C5 28 55 52 24 29 00 61 |5.>-..Y..(UR$).a|
00002540: 2D 90 06 8B 20 59 B2 AB 43 AD 42 20 A7 20 99 22 |-... Y..C.B . ."|
00002550: 11 20 C3 4F 52 52 45 43 54 11 22 3A 89 31 37 30 |. .ORRECT.":.170|
00002560: 37 00 78 2D 95 06 47 B2 47 AA 31 3A 8B 20 47 B2 |7.x-..G.G.1:. G.|
00002570: 33 20 A7 20 31 37 30 30 00 A9 2D 9A 06 99 22 20 |3 . 1700..-..." |
00002580: D7 52 4F 4E 47 2E 20 D4 52 59 20 41 47 41 49 4E |.RONG. .RY AGAIN|
00002590: 2E 20 59 2D 49 4E 54 45 52 43 45 50 54 20 3D 20 |. Y-INTERCEPT = |
000025A0: 22 3B 3A 89 20 31 36 37 30 00 DB 2D A4 06 99 3A |";:. 1670..-...:|
000025B0: 99 22 20 D4 48 41 54 27 53 20 54 48 52 45 45 20 |." .HAT'S THREE |
000025C0: 54 52 49 45 53 2E 20 20 54 48 45 20 43 4F 52 52 |TRIES. THE CORR|
000025D0: 45 43 54 20 41 4E 53 57 45 52 22 00 EF 2D A9 06 |ECT ANSWER"..-..|
000025E0: 99 22 20 57 41 53 20 22 3B AB 43 AD 42 3A 99 00 |." WAS ";.C.B:..|
000025F0: F8 2D AB 06 8D 38 33 35 00 00 2E AE 06 82 20 49 |.-...835...... I|
00002600: 00 22 2E B3 06 55 48 B2 31 3A 54 43 B2 54 43 AA |."...UH.1:TC.TC.|
00002610: 31 3A 55 47 24 B2 22 22 3A 55 50 B2 30 3A 8D 38 |1:UG$."":UP.0:.8|
00002620: 35 30 00 55 2E B8 06 99 22 11 11 11 11 11 11 11 |50.U....".......|
00002630: 11 11 20 C4 4F 20 59 4F 55 20 57 49 53 48 20 41 |.. .O YOU WISH A|
00002640: 4E 59 20 4D 4F 52 45 20 45 58 41 4D 50 4C 45 53 |NY MORE EXAMPLES|
00002650: 20 3F 20 22 3B 00 72 2E C2 06 55 53 24 B2 22 59 | ? ";.r...US$."Y|
00002660: 4E 22 3A 55 4C B2 31 3A 8D 33 35 3A 42 24 B2 55 |N":UL.1:.35:B$.U|
00002670: 52 24 00 86 2E CC 06 8B 20 42 24 B2 22 59 22 20 |R$...... B$."Y" |
00002680: 89 20 31 34 39 30 00 8C 2E EA 06 8E 00 00 00 |. 1490......... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...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..L.... IF YOU
HAVE CONTARY.I.... INFORMATION, PLEAS
E...... CONTACT COMMODORE CANADA AND.
..... EVERY EFFORT WILL BE MADE TO.V.
... WITHDRAW COPIES OF THIS......
PROGRAM......:...#.. +++ INPUT SECTION +
++.".(..UO,0:UR$."":UI$."".2.*..UL.0.UL.
80.N.+.. US$.."" . US$.US$.UX$.A.-.." .
.";:.UC,0.U.2..UI$:.UI$."".50...7..UI$.G
(13).C(UR$)..1..UC,1:." .";:.85...<..UI$
.G(20).105.F.>.. C(UR$)..UL.50...A..120:
. CHECK FOR VALID CHARACTER...F.UR$.UR$.
UI$...K..UI$;...P..50.2.U.. +++ CHECK FO
R HELP REQUEST +++.Z.Z..UR$.UX$.195:. EX
IT TO HELP ROUTINE.I._..UF.1..240.V.D.UF
.0:.:....F.. ++ CHECK DELETE ++. .I..C(U
R$).1.50...N.UR$.H(UR$,C(UR$).1).J.S..".
..";:.50...X.. ++ CHECK FOR VALID CHAR
ACTERS ++...}..C(US$).0.150......US.1.C(
US$).+....UI$.J(US$,US,1)...1.....>...UI
$."":..Y.... ** STANDARD INPUT **.J....F
(UI$).46...{....UI$.G(32)..... ..F(UI$).
48.F(UI$).57.170............F(UI$).65.F(
UI$).90.180.A..........F(UI$).193.F(UI$)
.218.UI$."":.......B(UT).UU%.UI$.G(F(UI$
).128):............UI$."":..@.C.UF.1:. +
++ HELP ROUTINE EXIT +++.I.E..250.R.H..2
45.Q.M..UQ.UB.(U2%.256.U1%.U3%.2)...R.UQ
%(UQ.UB).B(UQ):.:.".". .W.UZ.1:UV%.B(UT)
...X..300.N.Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ
:UL.UK...Z..B(50003).0..53281,1:.".";:.5
3281,6:.53280,14:.220......".";.>...UT$.
UL$:.UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.3).S
....UQ,UQ%(UQ.UB):.._....U1,U1%.K....U2,
U2%.W....U4,U4%......U3,U3%.1......35...
..UD%.((U2%.256.U1%.U3%).UB).40:.H(UD$,U
D%.1):.......H(UD$,24);"
. HELP COMING . ":..&...U1%.B(U1)
:U2%.B(U2):U3%.B(U3):U4%.B(U4).N...UJ$.U
S$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL.T.....E.,
.. ** MENU **.K.-.:......".":.UT,UU%:.B(
50003).0..53281,9:.53280,8. ./.:...1..".
MENU"...6.." -----------
---------------------------"...;.."..
1. BEGIN SLOPE & INTERCEPTS".D.@..
".. 2. STUDENT INSTRUCTIONS".N.E
..".. 3. TEACHER INSTRUCTIONS"..
.O..".. 4. QUIT.."...T.." ------
--------------------------------"...Y.."
.. PRESS A NUMBER KEY (1-4) ";...^
.UL.1:US$."1234":.35:. INPUT ROUTINE..._
..C(UR$).1.300.).`.US$."".F.C..E(UR$).10
00,400,500,396.O.H..300.V.... ** RE-ENAB
LE STOP KEY AND END **......B(50003)..1.
B(50003)..160.B(50003)..0.399.O....UU.71
:.B(50003).0..53281,6:.53280,14......"..
":.......875:....... ** STUDENT INSTRUCT
IONS **.6....".":.UT,UL%:.B(50003).0..53
281,0:.53280,0.W...UP.0:UG$."STUDENT INS
T":.850......".... THIS PROGRAM GIVES A
N EQUATION IN "......". STANDARD FORM AN
D ASKS YOU TO INPUT"... ..". THE VALUE O
F THE SLOPE AND THE Y-INTER-"......" CEP
T AS DEFINED BY THE GIVEN EQUATION.".`..
..". REMEMBER TO PRESS .RETURN. AFTER YO
U":.". HAVE ENTERED YOUR ANSWER..N....83
5:.850......"... IF AX + BY + C = 0":...
....". THEN Y = MX + B":..O....". WHERE
M = -A/B AND B = -C/B.W....:.......".
NOTE THAT M IS THE SLOPE OF THE LINE.'..
..". AND B IS THE Y-INTERCEPT.".5....835
:.850.D.L..".. NOTE ...TO ADVANCE FROM O
NE QUESTION"...V..". TO THE NEXT PRESS T
HE SPACE BAR."......".......IF AT ANY TI
ME YOU WISH TO RETURN"......". TO THE ME
NU PRESS H RETURN."......835......UZ.1..
UP%:.217.......'.... ** TEACHER INSTRUCT
IONS **.W....".":.UT,UL%:.B(50003).0..53
281,2:.53280,10.X...UP.0:UG$."TEACHER IN
ST":.850......".. TO THE BEST OF OU
R KNOWLEDGE,.".O...." THIS PROGRAM IS
IN THE PUBLIC."......" DOMAIN. IF THI
S IS NOT THE CASE."......" PLEASE CONT
ACT:...".B...." COMMODORE BUSINESS
MACHINES.".E...." 3370 PHARMACY
AVE......." AGINCOURT, ONTARIO
"......" CANADA M1W 2K4".K...
." (416) 499-4292".....UP.1:. 8
35:. 850:......" ..PROGRAM NAME: SLO
PE & INTERCEPTS.".8...." WRITTEN BY
: C. E. DEHN. ".\...." UPGRADED BY
: ......." .THIS PROGRAM WI
LL RUN ON ANY........" PET 64 CO
MPUTER..L...." COMMODORE 64 COMP
UTER.Z....835:.850............" IN TH
IS PROGRAM, THE STUDENT IS".;....". EXPE
CTED TO TYPE IN THE SLOPE AND THE ".K...
.". X-INTERCEPT OF THE GIVEN EQUATION (I
N "......". THE FIRST SECTION)."......:.
" IN THE SECOND SECTION, THE STUDENT"
......". IS SUPPOSED TO INPUT THE X AND
Y INTER-"......" CEPTS FROM THE DISPLAYE
D EQUATION."...D..835.1.N..UZ.1..UP%:.21
7.7.W...].X.. ** PROGRAM MODIFICATION IN
ST **.N.Y..".":.UT,UL%...].UP.0:UG$."PRO
GRAM MOD":.850...B.."...................
......NOT APPLICABLE.".G....835......UZ.
1..UP%:.217............ ** TO USE 8032 L
OAD CBM4032 **.<.F..".....BEFORE RUNNING
THIS PROGRAM ON AN 8032 ...R.P.."
LOAD THE 'CBM 4032' PROGRAM............
.".}.Z..UU.71............ ** TO USE 8032
LOAD CBM4032 **......"....BEFORE RUNNIN
G THIS PROGRAM ON AN 8032 ..LOAD CBM 40
32 PROGRAM"......1093:.... .. ** T I T L
E P A G E **.S.".."....";:.UT,UU%:.B(
50003).0..53280,14:.53281,6.I.$..I.1.38:
."...";:....&..I.1.22:.".....";:....(..I
.1.37:.".....";:....).. A$:. A$.."" . 30
0.I.*..I.1.22:.".....";:....,.."........
................... ......."...........
........ . . ...1.0..".................
.. . ....O.2..".................... ..
W.4.."..............C O M M O D O R E...
..6.."...............EDUCATIONAL.....8..
"................SOFTWARE.T.:.. ** COMMO
DORE LOGO **...;..H(UD$,24);"..........P
RESS SPACE BAR OR WAIT.":I.0...<..A$:.A$
.." ".I.I.1:.I.250.828.R.>.T1$."":T2$.""
:T3$."":T4$."":I.0.[.@..300.W.C.. ** SPA
CE BAR PRESS **...H..UO,0:.H(UD$,24);"..
.....PRESS SPACE BAR TO CONTINUE.".I.L..
UI$:.UI$.." ".844.O.N.....R.. ** PAGE DE
SIGN ROUTINE **...T.UP.UP.1.%.W.."."H(UT
$.UP$,21);I(UP$.UG$.D(UP),18).T.\.." ---
-----------------------------------".C.`
..UH..0.870...A..H(UD$,24);H(UP$,7);"HEL
P - PRESS H <RETURN>"...F.UH.0:."..":.
.G.K.. ** PLEASE WAIT REMARK **...P..H(U
D$,24);" ONE MOMENT PLEASE...
"...U... .... ** SET UP VARIABLES **
.K...UX$."H":.UQ%(1000):UB.32768:U1.196:
U2.197:U3.198:U4.216:UC.167:UU.1024.....
UT.59468:UU%.12:UL%.14:UP%.1146:UM.32768
:UO.158:. 50003,0......B(50003).0.UB.102
4:U1.209:U2.210:U3.211:U4.214:UC.204:UU.
2048.+ ...B(50003).0.UT.53272:UU%.21:UL%
.23:UP%.2139:UM.1024:UO.198.O ..UD$."...
......................".. ..UP$."
".O ..UT
$." SLOPE & INTERCEPTS":. PLACE PROGRAM
TITLE HERE !!!!!!!!!!!!!!!!!***.U .....
... ** SET VARIABLES **.. ...900.. ..:..
!..:..!... ** CHECK FOR 8032 **.=!..."."
:." ":. SHIFTED SPACE.T!...B(UB.40)..96.
.700.M!... ** MEMORY CHECK **..!... .(0)
.2000.937..!..."....THIS MACHINE DOES NO
T HAVE ENOUGH.".S!..."MEMORY TO RUN THIS
PROGRAM !"..!...UU.71..!.....!..."..":.
B(50003).0.962.-"... ** BASIC 2.0 OR 4
.0 OR C-64 SETUP **.K"...1075,133:.107
6,144:.1077,234:.1079,4:.1080,133:.1081,
145.."...1091,155:.1098,133:.1099,144:.1
100,234:.1103,133.C"...1104,145:.1105,23
4:.1082,234.Z"...B(50003)..160.955..#...
1093,88:.1094,228:.1097,85:.1102,228:.96
5..#...B(50003)..1.990.M#...1093,49:.109
4,230:.1097,46:.1102,230:.965..#B..2099,
141:.2100,20:.2101,3:.2103,8:.2104,141:.
2105,21.C#C..2106,3:.2115,145:.2117,52:.
2118,234:.2121,49:.2122,141..#D..2123,20
:.2124,3:.2126,234:.2127,141:.2128,21:.2
129,3..$E..UU.48:. DISABLE STOP KEY.,$J.
.800:. TITLE.<$T..300:. MENU.M$...".THE
PGM WILL NOT WORK ON THIS MACHINE!":...$
...UZ.1..UP%:.UP%:UZ.0:. ** PROGRAM STAR
TS HERE **.N$..."..";:.:.B(50003).0..532
81,6:.53280,14..$... ETOBICOKE BOARD OF
EDUCATION.,%... "SLOPE AND Y-INTERCEPT
BY C E DEHN.L%... "PET
COURSE MARCH 12,1981.H%`.T.TI:TC.1:UP.TC
:.UT,UL%..%T.UG$."":UH.1:UP.0:.850..%~..
".. IF AX + BY + C = 0":...%..." THEN Y
= MX + B":...%..." WHERE M = -A/B AND
B = -C/B..%...:...&..." NOTE THAT M IS T
HE SLOPE OF THE LINE".8&...". AND B IS T
HE Y-INTERCEPT.".H&...:.:." HOW MANY EXA
MPLES WOULD YOU LIKE? ";..&D.US$."012345
6789":UL.2:.35:N.E(UR$)..&N.. K.1 . N.F&
S.UG$."QUESTION #":TC.TC.1:UP.K.1:.850..
&X.B..(201..(1).100)..&... B.0 .1240..'.
.A..(201..(1).100)..'... A.B..(A.B)..0 .
1240.3'..C..(201..(1).100).N'... C.B..(
C.B)..0 . 1280.V'...".. IF ";A;"X + ";B;
"Y + ";C;" = 0..'...". THEN M = ";:D.0..
'(.US$."-.0123456789":UL.4:. 35..'-.M.E(
UR$)..'2.. M..A.B . .". CORRECT.":.1360.
.'<.D.D.1:. D.3 . 1352.$(F.." WRONG ANSW
ER. TRY AGAIN. M = ";:. 1320.B(H..:." TH
AT'S THREE TRIES.".G(J.." THE CORRECT AN
SWER WAS ";.A.B..(P..:." AND B = ";:E.0
..(Z.US$."-.0123456789":UL.4:. 35..(_.BY
.E(UR$).U(D.. BY..C.B . . ". CORRECT.":.
1408..(I.E.E.1:. E.3 .1402..)N.." WRONG
ANSWER. TRY AGAIN. B = ";:. 1370.7)Z..:
." THAT'S THREE TRIES.".\)|.." THE CORRE
CT ANSWER WAS ";.C.B.E)...835.M)... K..)
..TC.TC.1:UH.1:UG$."":UP.0:.850..)..."..
...... DO YOU WISH ANY MORE EXAMPLES? ";
..) .US$."YN":UL.1:. 35:A$.UR$..)... A$.
"Y" . 1210..*... A$.."N" .1440..*..TC.TC
.1:UP.TC.-*..UG$."":UH.1:.850.Y*..."...
NOW PET WILL PRINT AN EQUATION IN..*H.."
. STANDARD FORM AND ASK FOR THE TWO
. INTERCEPTS.".D*R..:.".... HOW MANY DO
YOU WISH TO DO ? ";..*..US$."0123456789
":UL.2:.35..*..J.E(UR$)..*... I.1 . J.&+
..UG$."QUESTION #":TC.TC.1:UP.I.1:.850.<
+..C..(201..(1).100).R+..A..(201..(1).10
0).C+... A.0 . 1530.~+... C.A..(C.A)..0
. 1530..+..B..(201..(1).100)..+".. B.0 .
1560..+,.. C.B..(C.B)..0 . 1560..+6..".
. IF ";A;"X + ";B;"Y + ";C;" = 0..,@..".
THEN THE X-INTERCEPT IS : ";:F.0.1,J.US
$."-.0123456789":UL.4:.35.>,O.X.E(UR$).A
,T.. X..C.A . .". CORRECT.":.1660.W,Y.F.
F.1:. F.3 .1650..,^.." WRONG. TRY AGAIN.
X-INTERCEPT = ";:. 1610.Z,R..:." THAT'S
THREE TRIES. THE CORRECT ANSWER"..,W..
" WAS ";.C.A:...-|.." THE Y-INTERCEPT IS
: ";:G.0.1-..US$."-.0123456789":UL.4:.3
5.>-..Y.E(UR$).A-... Y..C.B . .". CORREC
T.":.1707.X-..G.G.1:. G.3 . 1700..-..."
WRONG. TRY AGAIN. Y-INTERCEPT = ";:. 167
0..-...:." THAT'S THREE TRIES. THE CORR
ECT ANSWER"..-..." WAS ";.C.B:...-...835
...... I."...UH.1:TC.TC.1:UG$."":UP.0:.8
50.U...."......... DO YOU WISH ANY MORE
EXAMPLES ? ";.R.B.US$."YN":UL.1:.35:B$.U
R$...L.. B$."Y" . 1490.........
> CLICK IMAGE PREVIEW FOR FULL MODAL