LIMITS.C3
FILE INFORMATION
FILENAME(S): LIMITS.C3
FILE TYPE(S): PRG
FILE SIZE: 10.6K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 2 disk(s)
FILE HASH
6dbbe522bad1f58c5015681c8b8af5995a09859e4c18cbe5c2caa374f51e1e78
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | LIMITS.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 26 | 5 | DOWNLOAD FILE |
| L EHRNEN | LIMITS.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 26 | 5 | 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 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 2B 09 2D 00 99 22 20 |.0.UL.80.+.-.." |
00000120: 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 3F 09 32 00 | ..";:.UC,0.?.2.|
00000130: A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 |.UI$:.UI$."".50.|
00000140: 69 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 |i.7..UI$..(13)..|
00000150: 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 |(UR$)..1..UC,1:.|
00000160: 22 20 9D 22 3B 3A 89 38 35 00 7C 09 3C 00 8B 55 |" .";:.85.|.<..U|
00000170: 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 90 09 3E |I$..(20).105...>|
00000180: 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 |.. .(UR$)..UL.50|
00000190: 00 B5 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 |...A..120:. CHEC|
000001A0: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR|
000001B0: 41 43 54 45 52 00 C5 09 46 00 55 52 24 B2 55 52 |ACTER...F.UR$.UR|
000001C0: 24 AA 55 49 24 00 CF 09 4B 00 99 55 49 24 3B 00 |$.UI$...K..UI$;.|
000001D0: D7 09 50 00 89 35 30 00 FC 09 55 00 8F 20 2B 2B |..P..50...U.. ++|
000001E0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 |+ CHECK FOR HELP|
000001F0: 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 24 0A 5A | REQUEST +++.$.Z|
00000200: 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F 20 |..UR$.UX$.195:. |
00000210: 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 |EXIT TO HELP ROU|
00000220: 54 49 4E 45 00 33 0A 5F 00 8B 55 46 B2 31 A7 8D |TINE.3._..UF.1..|
00000230: 32 34 30 00 40 0A 64 00 55 46 B2 30 3A 99 3A 8E |240.@.d.UF.0:.:.|
00000240: 00 59 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 |.Y.f.. ++ CHECK |
00000250: 44 45 4C 45 54 45 20 2B 2B 00 6A 0A 69 00 8B C3 |DELETE ++.j.i...|
00000260: 28 55 52 24 29 B3 31 A7 35 30 00 82 0A 6E 00 55 |(UR$).1.50...n.U|
00000270: 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB |R$..(UR$,.(UR$).|
00000280: 31 29 00 94 0A 73 00 99 22 9D 20 20 9D 9D 22 3B |1)...s..". ..";|
00000290: 3A 89 35 30 00 BB 0A 78 00 8F 20 2B 2B 20 43 48 |:.50...x.. ++ CH|
000002A0: 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 |ECK FOR VALID CH|
000002B0: 41 52 41 43 54 45 52 53 20 2B 2B 00 CD 0A 7D 00 |ARACTERS ++...}.|
000002C0: 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DE 0A |..(US$).0.150...|
000002D0: 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 F5 |...US.1..(US$)..|
000002E0: 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 |....UI$..(US$,US|
000002F0: 2C 31 29 A7 8E 00 FB 0A 8C 00 82 00 08 0B 91 00 |,1).............|
00000300: 55 49 24 B2 22 22 3A 8E 00 23 0B 96 00 8F 20 2A |UI$."":..#.... *|
00000310: 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 |* STANDARD INPUT|
00000320: 20 2A 2A 00 34 0B 98 00 8B C6 28 55 49 24 29 B2 | **.4.....(UI$).|
00000330: 34 36 A7 8E 00 45 0B 9B 00 8B 55 49 24 B2 C7 28 |46...E....UI$..(|
00000340: 33 32 29 A7 8E 00 62 0B A0 00 8B C6 28 55 49 24 |32)...b.....(UI$|
00000350: 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 31 |).48..(UI$).57.1|
00000360: 37 30 00 68 0B A5 00 8E 00 85 0B AA 00 8B C6 28 |70.h...........(|
00000370: 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 39 |UI$).65..(UI$).9|
00000380: 30 A7 31 38 30 00 8B 0B AF 00 8E 00 AF 0B B4 00 |0.180...........|
00000390: 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 49 |..(UI$).193..(UI|
000003A0: 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E 00 |$).218.UI$."":..|
000003B0: D2 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 55 |......(UT).UU%.U|
000003C0: 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 29 |I$..(.(UI$).128)|
000003D0: 3A 8E 00 D8 0B BB 00 8E 00 E5 0B BE 00 55 49 24 |:............UI$|
000003E0: B2 22 22 3A 8E 00 0A 0C C3 00 55 46 B2 31 3A 8F |."":......UF.1:.|
000003F0: 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 4E | +++ HELP ROUTIN|
00000400: 45 20 45 58 49 54 20 2B 2B 2B 00 13 0C C5 00 8D |E EXIT +++......|
00000410: 32 35 30 00 1C 0C C8 00 8D 32 34 35 00 3B 0C CD |250......245.;..|
00000420: 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 |..UQ.UB.(U2%.256|
00000430: AA 55 31 25 AA 55 33 25 AB 32 29 00 57 0C D2 00 |.U1%.U3%.2).W...|
00000440: 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 29 |UQ%(UQ.UB)..(UQ)|
00000450: 3A 82 3A 99 22 93 22 00 6A 0C D7 00 55 5A B2 31 |:.:.".".j...UZ.1|
00000460: 3A 55 56 25 B2 C2 28 55 54 29 00 73 0C D8 00 89 |:UV%..(UT).s....|
00000470: 33 30 30 00 98 0C D9 00 55 5A B2 30 3A 55 53 24 |300.....UZ.0:US$|
00000480: B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 |.UJ$:UG$.UK$:UP.|
00000490: 55 4A 3A 55 4C B2 55 4B 00 CF 0C DA 00 8B C2 28 |UJ:UL.UK.......(|
000004A0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
000004B0: 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C 36 |1:.".";:.53281,6|
000004C0: 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 00 |:.53280,14:.220.|
000004D0: D9 0C DB 00 99 22 93 22 3B 00 08 0D DC 00 55 54 |.....".";.....UT|
000004E0: 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 55 |$.UL$:.UT,UV%:.U|
000004F0: 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 |Q.UB.(U2%.256.U1|
00000500: 25 AA 55 33 25 AB 33 29 00 1D 0D E1 00 97 55 51 |%.U3%.3)......UQ|
00000510: 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 29 0D |,UQ%(UQ.UB):..).|
00000520: E6 00 97 55 31 2C 55 31 25 00 35 0D E8 00 97 55 |...U1,U1%.5....U|
00000530: 32 2C 55 32 25 00 41 0D E9 00 97 55 34 2C 55 34 |2,U2%.A....U4,U4|
00000540: 25 00 4F 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 |%.O....U3,U3%.1.|
00000550: 57 0D EB 00 89 33 35 00 89 0D F0 00 55 44 25 B2 |W....35.....UD%.|
00000560: 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |((U2%.256.U1%.U3|
00000570: 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 |%).UB).40:..(UD$|
00000580: 2C 55 44 25 AA 31 29 3A 8E 00 C4 0D F5 00 99 C8 |,UD%.1):........|
00000590: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 |. HELP COMING . |
000005C0: 20 22 3A 8E 00 F0 0D FA 00 55 31 25 B2 C2 28 55 | ":......U1%..(U|
000005D0: 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 |1):U2%..(U2):U3%|
000005E0: B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 |..(U3):U4%..(U4)|
000005F0: 00 18 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 |.....UJ$.US$:UK$|
00000600: B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 |.UG$:UL$.UT$:UJ.|
00000610: 55 50 3A 55 4B B2 55 4C 00 1E 0E FF 00 8E 00 2F |UP:UK.UL......./|
00000620: 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 |.,.. ** MENU **.|
00000630: 35 0E 2D 01 3A 00 64 0E 2E 01 99 22 93 22 3A 97 |5.-.:.d....".":.|
00000640: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)|
00000650: B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 32 |.0..53281,9:.532|
00000660: 38 30 2C 38 00 6A 0E 2F 01 3A 00 87 0E 31 01 99 |80,8.j./.:...1..|
00000670: 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000680: 20 20 4D 45 4E 55 22 00 B6 0E 36 01 99 22 20 2D | MENU"...6.." -|
00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 22 00 D7 0E 3B 01 99 22 11 11 20 |-----"...;..".. |
000006C0: 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 4E | 1. BEGIN|
000006D0: 20 4C 49 4D 49 54 53 00 01 0F 40 01 99 22 11 11 | LIMITS...@.."..|
000006E0: 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 | 2. STUD|
000006F0: 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ENT INSTRUCTIONS|
00000700: 22 00 2B 0F 45 01 99 22 11 11 20 20 20 20 20 20 |".+.E..".. |
00000710: 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E | 3. TEACHER IN|
00000720: 53 54 52 55 43 54 49 4F 4E 53 22 00 47 0F 4F 01 |STRUCTIONS".G.O.|
00000730: 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 |.".. 4. |
00000740: 51 55 49 54 11 11 22 00 76 0F 54 01 99 22 20 2D |QUIT..".v.T.." -|
00000750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 22 00 A1 0F 59 01 99 22 11 11 20 |-----"...Y..".. |
00000780: 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 | PRESS A NU|
00000790: 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 20 22 |MBER KEY (1-4) "|
000007A0: 3B 00 C9 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 22 |;...^.UL.1:US$."|
000007B0: 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 |1234":.35:. INPU|
000007C0: 54 20 52 4F 55 54 49 4E 45 00 D4 0F 60 01 55 53 |T ROUTINE...`.US|
000007D0: 24 B2 22 22 00 F1 0F 63 01 91 C5 28 55 52 24 29 |$.""...c...(UR$)|
000007E0: 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 39 |.1000,400,500,39|
000007F0: 36 00 FA 0F 68 01 89 33 30 30 00 21 10 8B 01 8F |6...h..300.!....|
00000800: 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 | ** RE-ENABLE ST|
00000810: 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A |OP KEY AND END *|
00000820: 2A 00 50 10 8C 01 8B C2 28 35 30 30 30 33 29 B3 |*.P.....(50003).|
00000830: B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |.1..(50003)..160|
00000840: AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 |..(50003)..0.399|
00000850: 00 7A 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 |.z....UU.71:..(5|
00000860: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 |0003).0..53281,6|
00000870: 3A 97 35 33 32 38 30 2C 31 34 00 86 10 8E 01 99 |:.53280,14......|
00000880: 22 9A 93 22 3A 80 00 91 10 8F 01 8D 38 37 35 3A |"..":.......875:|
00000890: 8E 00 B2 10 90 01 8F 20 2A 2A 20 53 54 55 44 45 |....... ** STUDE|
000008A0: 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |NT INSTRUCTIONS |
000008B0: 2A 2A 00 E1 10 95 01 99 22 93 22 3A 97 55 54 2C |**......".":.UT,|
000008C0: 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |UL%:..(50003).0.|
000008D0: 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C |.53281,0:.53280,|
000008E0: 30 00 03 11 9A 01 55 50 B2 30 3A 55 47 24 B2 22 |0.....UP.0:UG$."|
000008F0: D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D 31 |.TUDENT .NST":.1|
00000900: 31 30 30 00 36 11 C8 01 8D 38 35 30 3A 99 22 11 |100.6....850:.".|
00000910: 11 11 11 20 20 20 20 D2 45 4D 45 4D 42 45 52 20 |... .EMEMBER |
00000920: 54 4F 20 48 49 54 20 3C 52 45 54 55 52 4E 3E 20 |TO HIT <RETURN> |
00000930: 41 46 54 45 52 22 00 60 11 CA 01 99 22 20 20 20 |AFTER".`...." |
00000940: 20 54 59 50 49 4E 47 20 59 4F 55 52 20 41 4E 53 | TYPING YOUR ANS|
00000950: 57 45 52 2E 20 D4 48 49 53 20 54 45 4C 4C 53 22 |WER. .HIS TELLS"|
00000960: 00 8B 11 CC 01 99 22 20 20 20 20 54 48 45 20 43 |......" THE C|
00000970: 4F 4D 50 55 54 45 52 20 54 4F 20 41 43 43 45 50 |OMPUTER TO ACCEP|
00000980: 54 20 57 48 41 54 20 59 4F 55 22 00 A4 11 CE 01 |T WHAT YOU".....|
00000990: 99 22 20 20 20 20 48 41 56 45 20 54 59 50 45 44 |." HAVE TYPED|
000009A0: 2E 11 11 22 00 CE 11 D0 01 99 22 20 20 20 20 D4 |..."......" .|
000009B0: 59 50 45 20 3C 48 3E 20 41 54 20 41 4E 59 20 54 |YPE <H> AT ANY T|
000009C0: 49 4D 45 20 54 4F 20 52 45 54 55 52 4E 22 00 F9 |IME TO RETURN"..|
000009D0: 11 D2 01 99 22 20 20 20 20 54 4F 20 54 48 45 20 |...." TO THE |
000009E0: 4D 45 4E 55 20 46 4F 52 20 48 45 4C 50 2E 20 20 |MENU FOR HELP. |
000009F0: D9 4F 55 20 57 49 4C 4C 22 00 24 12 D4 01 99 22 |.OU WILL".$...."|
00000A00: 20 20 20 20 42 45 20 52 45 54 55 52 4E 45 44 20 | BE RETURNED |
00000A10: 54 4F 20 54 48 45 20 50 4C 41 43 45 20 49 4E 20 |TO THE PLACE IN |
00000A20: 54 48 45 22 00 4D 12 D6 01 99 22 20 20 20 20 50 |THE".M...." P|
00000A30: 52 4F 47 52 41 4D 20 57 48 45 52 45 20 59 4F 55 |ROGRAM WHERE YOU|
00000A40: 20 4C 45 46 54 20 4F 46 46 20 41 53 22 00 79 12 | LEFT OFF AS".y.|
00000A50: D8 01 99 22 20 20 20 20 53 4F 4F 4E 20 41 53 20 |..." SOON AS |
00000A60: 54 48 45 20 4F 50 54 49 4F 4E 20 46 52 4F 4D 20 |THE OPTION FROM |
00000A70: 54 48 45 20 4D 45 4E 55 22 00 91 12 DA 01 99 22 |THE MENU"......"|
00000A80: 20 20 20 20 49 53 20 43 4F 4D 50 4C 45 54 45 2E | IS COMPLETE.|
00000A90: 22 00 9A 12 E5 01 8D 38 33 35 00 AE 12 EA 01 8B |"......835......|
00000AA0: 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 B4 |UZ.1..UP%:.217..|
00000AB0: 12 F3 01 8E 00 D5 12 F4 01 8F 20 2A 2A 20 54 45 |.......... ** TE|
00000AC0: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO|
00000AD0: 4E 53 20 2A 2A 00 05 13 F5 01 99 22 93 22 3A 97 |NS **......".":.|
00000AE0: 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UL%:..(50003)|
00000AF0: B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 |.0..53281,2:.532|
00000B00: 38 30 2C 31 30 00 26 13 F6 01 55 50 B2 30 3A 55 |80,10.&...UP.0:U|
00000B10: 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 |G$.".EACHER .NST|
00000B20: 22 3A 8D 38 35 30 00 54 13 F7 01 99 22 11 11 20 |":.850.T....".. |
00000B30: 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 | .O THE BEST|
00000B40: 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 | OF OUR KNOWLEDG|
00000B50: 45 2C 11 22 00 7D 13 F8 01 99 22 20 20 20 54 48 |E,.".}...." TH|
00000B60: 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E |IS PROGRAM IS IN|
00000B70: 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 A9 13 | THE PUBLIC."...|
00000B80: F9 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 |..." DOMAIN. |
00000B90: C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 |.F THIS IS NOT T|
00000BA0: 48 45 20 43 41 53 45 11 22 00 C6 13 FA 01 99 22 |HE CASE."......"|
00000BB0: 20 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 | PLEASE CONTAC|
00000BC0: 54 3A 11 11 11 22 00 F0 13 FB 01 99 22 20 20 20 |T:..."......" |
00000BD0: 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 | .OMMODORE .US|
00000BE0: 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 |INESS .ACHINES."|
00000BF0: 00 13 14 FC 01 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000C00: 20 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 | 3370 .HARMACY .|
00000C10: 56 45 2E 00 37 14 FD 01 99 22 20 20 20 20 20 20 |VE..7...." |
00000C20: 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF | .GINCOURT, .|
00000C30: 4E 54 41 52 49 4F 22 00 59 14 FE 01 99 22 20 20 |NTARIO".Y...." |
00000C40: 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 | .ANADA |
00000C50: 20 CD 31 D7 20 32 CB 34 22 00 79 14 FF 01 99 22 | .1. 2.4".y...."|
00000C60: 20 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 | (416) |
00000C70: 34 39 39 2D 34 32 39 32 22 00 88 14 40 02 8D 38 |499-4292"...@..8|
00000C80: 33 35 3A 8D 38 35 30 3A 00 AB 14 42 02 99 22 20 |35:.850:...B.." |
00000C90: 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 | ...ROGRAM .A|
00000CA0: 4D 45 3A 20 CC 49 4D 49 54 53 11 00 D2 14 44 02 |ME: .IMITS....D.|
00000CB0: 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 |." .RITTEN .|
00000CC0: 59 20 20 3A 20 C2 4F 42 20 D3 48 45 50 48 45 52 |Y : .OB .HEPHER|
00000CD0: 44 11 00 ED 14 46 02 99 22 20 20 20 20 20 D5 50 |D....F.." .P|
00000CE0: 47 52 41 44 45 44 20 C2 59 20 3A 20 11 00 18 15 |GRADED .Y : ....|
00000CF0: 48 02 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 |H.." ..HIS P|
00000D00: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 |ROGRAM WILL RUN |
00000D10: 4F 4E 20 41 4E 59 11 11 00 38 15 4E 02 99 22 20 |ON ANY...8.N.." |
00000D20: 20 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 C3 | ... 64 .|
00000D30: CF CD D0 D5 D4 C5 D2 11 00 5D 15 50 02 99 22 20 |.........].P.." |
00000D40: 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 | ........|
00000D50: C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 66 15 |. 64 .........f.|
00000D60: 52 02 8D 38 33 35 00 7A 15 54 02 8B 55 5A B2 31 |R..835.z.T..UZ.1|
00000D70: A7 9E 55 50 25 3A 89 32 31 37 00 80 15 56 02 8E |..UP%:.217...V..|
00000D80: 00 A6 15 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 |...X.. ** PROGRA|
00000D90: 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 |M MODIFICATION I|
00000DA0: 4E 53 54 20 2A 2A 00 B7 15 59 02 99 22 93 22 3A |NST **...Y..".":|
00000DB0: 97 55 54 2C 55 4C 25 00 D7 15 5D 02 55 50 B2 30 |.UT,UL%...].UP.0|
00000DC0: 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F |:UG$.".ROGRAM .O|
00000DD0: 44 22 3A 8D 38 35 30 00 E0 15 94 02 8D 38 33 35 |D":.850......835|
00000DE0: 00 F4 15 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A |......UZ.1..UP%:|
00000DF0: 89 32 31 37 00 FA 15 BB 02 8E 00 1F 16 BC 02 8F |.217............|
00000E00: 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 | ** TO USE 8032 |
00000E10: 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 |LOAD CBM4032 **.|
00000E20: 55 16 C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 |U....".....BEFOR|
00000E30: 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 |E RUNNING THIS P|
00000E40: 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 |ROGRAM ON AN 803|
00000E50: 32 20 20 11 11 00 8B 16 D0 02 99 22 20 20 20 20 |2 ........" |
00000E60: 20 20 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 | LOAD THE 'CBM |
00000E70: 34 30 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 |4032' PROGRAM...|
00000E80: 11 11 11 11 11 11 11 11 11 11 22 00 96 16 DA 02 |..........".....|
00000E90: 9E 55 55 AA 37 31 00 9C 16 E4 02 80 00 BC 16 20 |.UU.71......... |
00000EA0: 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 |.. ** T I T L E |
00000EB0: 20 20 50 20 41 20 47 20 45 20 2A 2A 00 F0 16 22 | P A G E **..."|
00000EC0: 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 |.."....";:.UT,UU|
00000ED0: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00000EE0: 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 |3280,14:.53281,6|
00000EF0: 00 06 17 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 |...$..I.1.38:.".|
00000F00: A6 92 22 3B 3A 82 00 1E 17 26 03 81 49 B2 31 A4 |..";:....&..I.1.|
00000F10: 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 36 |22:.".....";:..6|
00000F20: 17 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 |.(..I.1.37:."...|
00000F30: A6 92 22 3B 3A 82 00 4E 17 2A 03 81 49 B2 31 A4 |..";:..N.*..I.1.|
00000F40: 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 73 |22:.".....";:..s|
00000F50: 17 2C 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D |.,.."...........|
00000F60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 |................|
00000F70: 20 20 92 00 95 17 2E 03 99 22 1D 1D 1D 1D 1D 1D | ......."......|
00000F80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 |............. . |
00000F90: 20 12 20 92 A9 00 B6 17 30 03 99 22 1D 1D 1D 1D | . .....0.."....|
00000FA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 |............... |
00000FB0: 92 20 20 12 A3 DF 00 D4 17 32 03 99 22 1D 1D 1D |. ......2.."...|
00000FC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF |................|
00000FD0: 12 20 20 92 00 FC 17 34 03 99 22 11 11 1D 1D 1D |. ....4..".....|
00000FE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D |.........C O M M|
00000FF0: 20 4F 20 44 20 4F 20 52 20 45 11 11 00 1F 18 36 | O D O R E.....6|
00001000: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001010: 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 |..EDUCATIONAL...|
00001020: 3E 18 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |>.8.."..........|
00001030: 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 59 |......SOFTWARE.Y|
00001040: 18 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 |.:.. ** COMMODOR|
00001050: 45 20 4C 4F 47 4F 20 2A 2A 00 91 18 3B 03 99 C8 |E LOGO **...;...|
00001060: 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D |(UD$,24);"......|
00001070: 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 |....PRESS SPACE |
00001080: 42 41 52 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 |BAR OR WAIT.":I.|
00001090: 30 00 B3 18 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 |0...<..A$:.A$.."|
000010A0: 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 | ".I.I.1:.I.250.|
000010B0: 38 32 38 00 D7 18 3E 03 54 31 24 B2 22 22 3A 54 |828...>.T1$."":T|
000010C0: 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 |2$."":T3$."":T4$|
000010D0: B2 22 22 3A 49 B2 30 00 E0 18 40 03 89 33 30 30 |."":I.0...@..300|
000010E0: 00 FC 18 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 |...C.. ** SPACE |
000010F0: 42 41 52 20 50 52 45 53 53 20 2A 2A 00 37 19 48 |BAR PRESS **.7.H|
00001100: 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 |..UO,0:..(UD$,24|
00001110: 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 |);".......PRESS |
00001120: 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E |SPACE BAR TO CON|
00001130: 54 49 4E 55 45 92 22 00 4E 19 4C 03 A1 55 49 24 |TINUE.".N.L..UI$|
00001140: 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 54 |:.UI$.." ".844.T|
00001150: 19 4E 03 8E 00 74 19 52 03 8F 20 2A 2A 20 50 41 |.N...t.R.. ** PA|
00001160: 47 45 20 44 45 53 49 47 4E 20 52 4F 55 54 49 4E |GE DESIGN ROUTIN|
00001170: 45 20 2A 2A 00 80 19 54 03 55 50 B2 55 50 AA 31 |E **...T.UP.UP.1|
00001180: 00 AA 19 57 03 99 22 93 22 C8 28 55 54 24 AA 55 |...W..".".(UT$.U|
00001190: 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 |P$,21);.(UP$.UG$|
000011A0: AA C4 28 55 50 29 2C 31 38 29 00 D9 19 5C 03 99 |..(UP),18)...\..|
000011B0: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
000011C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011D0: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E8 19 60 03 8B 55 |--------"...`..U|
000011E0: 48 B3 B1 30 A7 38 37 30 00 1C 1A 61 03 99 C8 28 |H..0.870...a...(|
000011F0: 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 |UD$,24);.(UP$,7)|
00001200: 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 |;"HELP - PRESS |
00001210: 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 2D 1A 66 | H <RETURN>".-.f|
00001220: 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 4C 1A |.UH.0:."..":..L.|
00001230: 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 |k.. ** PLEASE WA|
00001240: 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 82 1A 70 |IT REMARK **...p|
00001250: 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 |...(UD$,24);" |
00001260: 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 | ONE MOME|
00001270: 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 |NT PLEASE... |
00001280: 20 22 00 88 1A 75 03 8E 00 A5 1A 84 03 8F 20 2A | "...u........ *|
00001290: 2A 20 53 45 54 20 55 50 20 56 41 52 49 41 42 4C |* SET UP VARIABL|
000012A0: 45 53 20 2A 2A 00 F0 1A 85 03 55 58 24 B2 22 48 |ES **.....UX$."H|
000012B0: 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 42 B2 |":.UQ%(1000):UB.|
000012C0: 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 |32768:U1.196:U2.|
000012D0: 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 |197:U3.198:U4.21|
000012E0: 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 |6:UC.167:UU.1024|
000012F0: 00 2E 1B 86 03 55 54 B2 35 39 34 36 38 3A 55 55 |.....UT.59468:UU|
00001300: 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 |%.12:UL%.14:UP%.|
00001310: 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F |1146:UM.32768:UO|
00001320: B2 31 35 38 3A 97 20 35 30 30 30 33 2C 30 00 71 |.158:. 50003,0.q|
00001330: 1B 87 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 |.....(50003).0.U|
00001340: 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 |B.1024:U1.209:U2|
00001350: B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 |.210:U3.211:U4.2|
00001360: 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 |14:UC.204:UU.204|
00001370: 38 00 B0 1B 88 03 8B C2 28 35 30 30 30 33 29 B2 |8.......(50003).|
00001380: 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 |0.UT.53272:UU%.2|
00001390: 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 |1:UL%.23:UP%.213|
000013A0: 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 |9:UM.1024:UO.198|
000013B0: 00 D4 1B 89 03 55 44 24 B2 22 13 11 11 11 11 11 |.....UD$."......|
000013C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000013D0: 11 11 11 22 00 06 1C 8A 03 55 50 24 B2 22 20 20 |...".....UP$." |
000013E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001400: 20 20 20 20 20 22 00 18 1C 8B 03 55 54 24 B2 22 | ".....UT$."|
00001410: 20 CC C9 CD C9 D4 D3 22 00 1E 1C 8C 03 8E 00 38 | ......".......8|
00001420: 1C 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 |.... ** SET VARI|
00001430: 41 42 4C 45 53 20 2A 2A 00 41 1C 93 03 8D 39 30 |ABLES **.A....90|
00001440: 30 00 5C 1C 98 03 8F 20 2A 2A 20 43 48 45 43 4B |0.\.... ** CHECK|
00001450: 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 7A 1C 9D | FOR 8032 **.z..|
00001460: 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 |..".":.".":. SHI|
00001470: 46 54 45 44 20 53 50 41 43 45 00 91 1C A2 03 8B |FTED SPACE......|
00001480: C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 |.(UB.40)..96..70|
00001490: 30 00 AA 1C A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 |0...... ** MEMOR|
000014A0: 59 20 43 48 45 43 4B 20 2A 2A 00 BE 1C A4 03 8B |Y CHECK **......|
000014B0: 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 00 EC | .(0).2000.937..|
000014C0: 1C A5 03 99 22 93 11 11 05 54 48 49 53 20 4D 41 |...."....THIS MA|
000014D0: 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 |CHINE DOES NOT H|
000014E0: 41 56 45 20 45 4E 4F 55 47 48 11 22 00 10 1D A6 |AVE ENOUGH."....|
000014F0: 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E |.."MEMORY TO RUN|
00001500: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 21 22 | THIS PROGRAM !"|
00001510: 00 1B 1D A7 03 9E 55 55 AA 37 31 00 21 1D A8 03 |......UU.71.!...|
00001520: 80 00 3B 1D A9 03 99 22 93 05 22 3A 8B C2 28 35 |..;...."..":..(5|
00001530: 30 30 30 33 29 B2 30 A7 39 36 32 00 6A 1D AC 03 |0003).0.962.j...|
00001540: 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 20 |. ** BASIC 2.0 |
00001550: 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 |OR 4.0 OR C-6|
00001560: 34 20 53 45 54 55 50 20 2A 2A 00 A8 1D AD 03 97 |4 SETUP **......|
00001570: 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 |1075,133:.1076,1|
00001580: 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 30 |44:.1077,234:.10|
00001590: 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 |79,4:.1080,133:.|
000015A0: 31 30 38 31 2C 31 34 35 00 DE 1D AE 03 97 31 30 |1081,145......10|
000015B0: 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 33 |91,155:.1098,133|
000015C0: 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 30 30 |:.1099,144:.1100|
000015D0: 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 00 00 |,234:.1103,133..|
000015E0: 1E AF 03 97 31 31 30 34 2C 31 34 35 3A 97 31 31 |....1104,145:.11|
000015F0: 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 34 |05,234:.1082,234|
00001600: 00 17 1E B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 |.......(50003)..|
00001610: 31 36 30 A7 39 35 35 00 46 1E B6 03 97 31 30 39 |160.955.F....109|
00001620: 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 |3,88:.1094,228:.|
00001630: 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 |1097,85:.1102,22|
00001640: 38 3A 89 39 36 35 00 5B 1E BB 03 8B C2 28 35 30 |8:.965.[.....(50|
00001650: 30 30 33 29 B3 B1 31 A7 39 39 30 00 8A 1E C0 03 |003)..1.990.....|
00001660: 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 |.1093,49:.1094,2|
00001670: 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 30 |30:.1097,46:.110|
00001680: 32 2C 32 33 30 3A 89 39 36 35 00 C4 1E C2 03 97 |2,230:.965......|
00001690: 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 |2099,141:.2100,2|
000016A0: 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 33 2C |0:.2101,3:.2103,|
000016B0: 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 31 30 |8:.2104,141:.210|
000016C0: 35 2C 32 31 00 00 1F C3 03 97 32 31 30 36 2C 33 |5,21......2106,3|
000016D0: 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 31 37 |:.2115,145:.2117|
000016E0: 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 |,52:.2118,234:.2|
000016F0: 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 |121,49:.2122,141|
00001700: 00 3A 1F C4 03 97 32 31 32 33 2C 32 30 3A 97 32 |.:....2123,20:.2|
00001710: 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A |124,3:.2126,234:|
00001720: 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 38 2C |.2127,141:.2128,|
00001730: 32 31 3A 97 32 31 32 39 2C 33 00 58 1F C5 03 9E |21:.2129,3.X....|
00001740: 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 |UU.48:. DISABLE |
00001750: 53 54 4F 50 20 4B 45 59 00 69 1F CA 03 8D 38 30 |STOP KEY.i....80|
00001760: 30 3A 8F 20 54 49 54 4C 45 00 79 1F D4 03 89 33 |0:. TITLE.y....3|
00001770: 30 30 3A 8F 20 4D 45 4E 55 00 AA 1F DE 03 99 22 |00:. MENU......"|
00001780: 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F |.THE PGM WILL NO|
00001790: 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D |T WORK ON THIS M|
000017A0: 41 43 48 49 4E 45 21 22 3A 80 00 DF 1F E8 03 8B |ACHINE!":.......|
000017B0: 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 |UZ.1..UP%:.UP%:U|
000017C0: 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D |Z.0:. ** PROGRAM|
000017D0: 20 53 54 41 52 54 53 20 48 45 52 45 20 2A 2A 00 | STARTS HERE **.|
000017E0: 0B 20 E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 |. ..."..";:.:..(|
000017F0: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00001800: 36 3A 97 35 33 32 38 30 2C 31 34 00 2F 20 FC 03 |6:.53280,14./ ..|
00001810: 8F 20 2A 2A 2A 2A 20 33 2E 30 20 2A 2A 2A 2A 20 |. **** 3.0 **** |
00001820: 20 31 2F 32 2F 38 31 20 20 53 59 53 38 38 30 00 | 1/2/81 SYS880.|
00001830: 42 20 01 04 4B 5A B2 30 3A 52 5A B2 30 3A 5A 5A |B ..KZ.0:RZ.0:ZZ|
00001840: B2 30 00 53 20 06 04 97 55 54 2C 55 4C 25 3A 55 |.0.S ...UT,UL%:U|
00001850: 50 B2 30 00 68 20 10 04 4F B2 38 3A 50 B2 31 30 |P.0.h ..O.8:P.10|
00001860: AE 4F 3A 89 31 34 30 30 00 9D 20 4C 04 8D 38 35 |.O:.1400.. L..85|
00001870: 30 3A 99 22 11 11 11 11 11 11 11 20 20 20 20 20 |0:."....... |
00001880: 20 20 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 | .HIS PROGRAM W|
00001890: 49 4C 4C 20 49 4E 54 52 4F 44 55 43 45 00 C6 20 |ILL INTRODUCE.. |
000018A0: 56 04 99 22 11 20 20 20 20 20 20 20 59 4F 55 20 |V..". YOU |
000018B0: 54 4F 20 54 48 45 20 43 4F 4E 43 45 50 54 20 4F |TO THE CONCEPT O|
000018C0: 46 20 54 48 45 22 00 F6 20 5B 04 99 22 11 20 20 |F THE".. [..". |
000018D0: 20 20 20 20 20 12 4C 49 4D 49 54 92 20 4F 46 20 | .LIMIT. OF |
000018E0: 41 20 53 45 51 55 45 4E 43 45 2E 22 3A 8D 38 33 |A SEQUENCE.":.83|
000018F0: 35 3A 8D 38 35 30 00 25 21 60 04 99 22 11 11 11 |5:.850.%!`.."...|
00001900: 11 11 11 20 20 20 20 20 20 D7 45 27 4C 4C 20 4C |... .E'LL L|
00001910: 4F 4F 4B 20 41 54 20 41 20 53 45 51 55 45 4E 43 |OOK AT A SEQUENC|
00001920: 45 20 41 4E 44 00 50 21 6A 04 99 22 11 20 20 20 |E AND.P!j..". |
00001930: 20 20 20 44 49 53 43 4F 56 45 52 20 57 48 41 54 | DISCOVER WHAT|
00001940: 20 48 41 50 50 45 4E 53 20 54 4F 20 54 48 45 22 | HAPPENS TO THE"|
00001950: 00 7B 21 74 04 99 22 11 20 20 20 20 20 20 54 45 |.{!t..". TE|
00001960: 52 4D 53 20 20 54 28 4E 29 20 20 41 53 20 20 4E |RMS T(N) AS N|
00001970: 20 20 53 54 52 49 43 54 4C 59 22 00 94 21 7E 04 | STRICTLY"..!~.|
00001980: 99 22 11 20 20 20 20 20 20 49 4E 43 52 45 41 53 |.". INCREAS|
00001990: 45 53 2E 22 00 9F 21 C4 04 8D 38 33 35 3A 8E 00 |ES."..!...835:..|
000019A0: A9 21 78 05 8D 32 36 37 30 00 B9 21 8C 05 8B 53 |.!x..2670..!...S|
000019B0: 45 B2 36 A7 8D 32 38 37 30 00 C2 21 A0 05 5A 5A |E.6..2870..!..ZZ|
000019C0: B2 30 00 CB 21 E1 05 8D 38 35 30 00 FF 21 E6 05 |.0..!...850..!..|
000019D0: 99 22 11 11 20 20 20 20 20 CC 45 54 27 53 20 4F |.".. .ET'S O|
000019E0: 42 53 45 52 56 45 20 41 20 46 45 57 20 22 3B 3A |BSERVE A FEW ";:|
000019F0: 8B 5A 5A B1 30 A7 99 22 4D 4F 52 45 20 22 3B 00 |.ZZ.0.."MORE ";.|
00001A00: 2D 22 EB 05 99 22 54 45 52 4D 53 2E 22 3A 99 22 |-"..."TERMS.":."|
00001A10: 11 11 20 20 20 20 20 D7 4F 55 4C 44 20 59 4F 55 |.. .OULD YOU|
00001A20: 20 4C 49 4B 45 20 54 4F 20 53 45 45 22 00 59 22 | LIKE TO SEE".Y"|
00001A30: F0 05 99 22 11 20 20 20 20 20 20 20 20 12 41 92 |...". .A.|
00001A40: 20 20 45 56 45 52 59 20 43 4F 4E 53 45 43 55 54 | EVERY CONSECUT|
00001A50: 49 56 45 20 54 45 52 4D 2C 00 7E 22 FA 05 99 22 |IVE TERM,.~"..."|
00001A60: 11 20 20 20 20 20 20 20 20 12 42 92 20 20 45 56 |. .B. EV|
00001A70: 45 52 59 20 31 30 54 48 20 54 45 52 4D 2C 00 A7 |ERY 10TH TERM,..|
00001A80: 22 04 06 99 22 11 20 20 20 20 20 20 20 20 12 43 |"...". .C|
00001A90: 92 20 20 45 56 45 52 59 20 31 30 30 54 48 20 54 |. EVERY 100TH T|
00001AA0: 45 52 4D 2C 20 4F 52 00 D1 22 0E 06 99 22 11 20 |ERM, OR.."...". |
00001AB0: 20 20 20 20 20 20 20 12 44 92 20 20 45 56 45 52 | .D. EVER|
00001AC0: 59 20 31 30 30 30 54 48 20 54 45 52 4D 3F 11 11 |Y 1000TH TERM?..|
00001AD0: 22 00 E0 22 36 06 8B 5A 5A B2 30 A7 31 36 30 35 |".."6..ZZ.0.1605|
00001AE0: 00 10 23 40 06 99 22 11 11 20 20 20 20 20 D9 4F |..#@..".. .O|
00001AF0: 55 52 20 4C 41 53 54 20 43 48 4F 49 43 45 20 57 |UR LAST CHOICE W|
00001B00: 41 53 20 12 22 43 48 24 22 92 2E 91 91 91 91 22 |AS ."CH$"......"|
00001B10: 00 1E 23 45 06 99 22 20 20 20 20 20 22 3B 00 50 |..#E.." ";.P|
00001B20: 23 4A 06 55 53 24 B2 22 48 41 42 43 44 22 3A 55 |#J.US$."HABCD":U|
00001B30: 4C B2 31 3A 8D 33 35 3A 43 48 24 B2 55 52 24 3A |L.1:.35:CH$.UR$:|
00001B40: 58 B2 31 30 AE 28 C6 28 55 52 24 29 AB 36 35 29 |X.10.(.(UR$).65)|
00001B50: 00 5C 23 B8 06 8D 32 34 39 30 3A 99 00 9D 23 C2 |.\#...2490:...#.|
00001B60: 06 81 4E B2 58 AA 5A 5A A4 31 30 AC 58 AA 5A 5A |..N.X.ZZ.10.X.ZZ|
00001B70: A9 58 3A 4E B2 B5 28 4E AA 2E 30 31 29 3A 5A 54 |.X:N..(N..01):ZT|
00001B80: 24 B2 22 20 20 20 20 20 20 54 28 22 AA CA 28 C4 |$." T("..(.|
00001B90: 28 4E 29 2C 32 29 AA 22 29 20 3D 20 22 00 CE 23 |(N),2).") = "..#|
00001BA0: C7 06 8B 4E B1 31 32 36 AF 45 B2 34 A7 99 5A 54 |...N.126.E.4..ZT|
00001BB0: 24 22 2A 2A 2A 20 4F 56 45 52 46 4C 4F 57 20 2A |$"*** OVERFLOW *|
00001BC0: 2A 2A 22 3A 8D 38 33 35 3A 89 33 30 30 30 00 DD |**":.835:.3000..|
00001BD0: 23 CC 06 8B 53 45 B2 31 A7 59 B2 AB 35 00 EB 23 |#...SE.1.Y..5..#|
00001BE0: D6 06 8B 53 45 B2 32 A7 59 B2 4E 00 FD 23 E0 06 |...SE.2.Y.N..#..|
00001BF0: 8B 53 45 B2 33 A7 59 B2 34 AC 4E AB 36 00 13 24 |.SE.3.Y.4.N.6..$|
00001C00: EA 06 8B 53 45 B2 34 A7 59 B2 33 AC 4E AD 28 4E |...SE.4.Y.3.N.(N|
00001C10: AA 35 29 00 32 24 F4 06 8B 53 45 B2 35 A7 59 B2 |.5).2$...SE.5.Y.|
00001C20: 28 35 AC 4E AA 39 29 AD 28 AB 32 30 AC 4E AA 31 |(5.N.9).(.20.N.1|
00001C30: 31 29 00 64 24 FE 06 8B 53 45 B2 36 AF 28 43 AC |1).d$...SE.6.(C.|
00001C40: 4E AA 44 29 B2 30 A7 99 5A 54 24 22 2A 2A 2A 20 |N.D).0..ZT$"*** |
00001C50: 55 4E 44 45 46 49 4E 45 44 20 2A 2A 2A 22 3A 89 |UNDEFINED ***":.|
00001C60: 31 39 30 30 00 80 24 08 07 8B 53 45 B2 36 A7 59 |1900..$...SE.6.Y|
00001C70: B2 28 41 AC 4E AA 42 29 AD 28 43 AC 4E AA 44 29 |.(A.N.B).(C.N.D)|
00001C80: 00 98 24 12 07 8B 45 B2 31 A7 59 B2 BF 28 28 FF |..$...E.1.Y..((.|
00001C90: AD 31 38 30 29 AC 4E 29 00 CE 24 1C 07 8B 45 B2 |.180).N)..$...E.|
00001CA0: 32 AF BE 28 28 FF AD 31 38 30 29 AC 4E 29 B2 30 |2..((..180).N).0|
00001CB0: A7 99 5A 54 24 22 2A 2A 2A 20 55 4E 44 45 46 49 |..ZT$"*** UNDEFI|
00001CC0: 4E 45 44 20 2A 2A 2A 22 3A 89 31 39 30 30 00 E6 |NED ***":.1900..|
00001CD0: 24 26 07 8B 45 B2 32 A7 59 B2 C0 28 28 FF AD 31 |$&..E.2.Y..((..1|
00001CE0: 38 30 29 AC 4E 29 00 F6 24 30 07 8B 45 B2 33 A7 |80).N)..$0..E.3.|
00001CF0: 59 B2 BC 28 4E 29 00 05 25 3A 07 8B 45 B2 34 A7 |Y..(N)..%:..E.4.|
00001D00: 59 B2 32 AE 4E 00 18 25 44 07 8B 45 B2 35 A7 59 |Y.2.N..%D..E.5.Y|
00001D10: B2 32 AE 28 31 AD 4E 29 00 2E 25 4E 07 8B 45 B2 |.2.(1.N)..%N..E.|
00001D20: 36 A7 59 B2 C1 28 4E 29 AC 31 38 30 AD FF 00 59 |6.Y..(N).180...Y|
00001D30: 25 58 07 8B 45 B2 37 A7 59 B2 28 32 AC 28 4E AE |%X..E.7.Y.(2.(N.|
00001D40: 32 29 AA 35 AC 4E AB 38 29 AD 28 35 AC 28 4E AE |2).5.N.8).(5.(N.|
00001D50: 32 29 AB 36 AC 4E AA 37 29 00 82 25 5D 07 8B 59 |2).6.N.7)..%]..Y|
00001D60: B1 31 45 39 A7 99 5A 54 24 3B 59 3A 89 31 39 30 |.1E9..ZT$;Y:.190|
00001D70: 30 3A 8F 28 49 4E 54 28 50 2A 59 2B 2E 35 29 2F |0:.(INT(P*Y+.5)/|
00001D80: 50 29 00 99 25 62 07 99 5A 54 24 3B 28 B5 28 50 |P)..%b..ZT$;(.(P|
00001D90: AC 59 AA 2E 35 29 AD 50 29 00 AB 25 6C 07 82 4E |.Y..5).P)..%l..N|
00001DA0: 3A 5A 5A B2 5A 5A AA 31 30 AC 58 00 BC 25 8A 07 |:ZZ.ZZ.10.X..%..|
00001DB0: 99 3A 8B 45 B3 B1 30 A7 32 31 32 30 00 E6 25 94 |.:.E..0.2120..%.|
00001DC0: 07 99 22 20 20 20 20 D7 48 41 54 20 44 4F 20 59 |.." .HAT DO Y|
00001DD0: 4F 55 20 54 48 49 4E 4B 20 49 53 20 54 48 45 20 |OU THINK IS THE |
00001DE0: 4C 49 4D 49 54 22 00 13 26 9E 07 99 22 11 11 20 |LIMIT"..&...".. |
00001DF0: 20 20 20 28 C9 46 20 4E 4F 20 4C 49 4D 49 54 20 | (.F NO LIMIT |
00001E00: 45 58 49 53 54 53 2C 20 45 4E 54 45 52 20 12 4E |EXISTS, ENTER .N|
00001E10: 92 3B 22 00 43 26 A8 07 99 22 20 20 20 20 49 46 |.;".C&..." IF|
00001E20: 20 59 4F 55 20 41 52 45 20 4E 4F 54 20 53 55 52 | YOU ARE NOT SUR|
00001E30: 45 2C 20 45 4E 54 45 52 20 12 3F 92 2E 29 91 91 |E, ENTER .?..)..|
00001E40: 91 91 22 00 62 26 AD 07 99 22 20 20 20 20 4F 46 |..".b&..." OF|
00001E50: 20 54 48 49 53 20 53 45 51 55 45 4E 43 45 3F 20 | THIS SEQUENCE? |
00001E60: 22 3B 00 93 26 B2 07 55 53 24 B2 22 48 30 31 32 |";..&..US$."H012|
00001E70: 33 34 35 36 37 38 39 2E 4E 2D 3F 22 3A 55 4C B2 |3456789.N-?":UL.|
00001E80: 38 3A 8D 33 35 3A 99 22 91 91 91 22 3A 54 24 B2 |8:.35:."...":T$.|
00001E90: 55 52 24 00 D7 26 B7 07 81 5A 49 B2 31 A4 35 3A |UR$..&...ZI.1.5:|
00001EA0: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00001EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001EC0: 20 20 20 20 20 20 20 20 22 3A 82 5A 49 3A 99 22 | ":.ZI:."|
00001ED0: 91 91 91 91 91 91 22 00 E8 26 BC 07 8B 54 24 B2 |......"..&...T$.|
00001EE0: 22 3F 22 A7 32 31 32 30 00 F4 26 C6 07 4C B2 C5 |"?".2120..&..L..|
00001EF0: 28 54 24 29 00 08 27 D0 07 8B 53 45 B2 31 AF 4C |(T$)..'...SE.1.L|
00001F00: B2 AB 35 A7 32 31 30 30 00 1E 27 DA 07 8B 53 45 |..5.2100..'...SE|
00001F10: B2 32 AF 54 24 B2 22 4E 22 A7 32 31 30 30 00 34 |.2.T$."N".2100.4|
00001F20: 27 E4 07 8B 53 45 B2 33 AF 54 24 B2 22 4E 22 A7 |'...SE.3.T$."N".|
00001F30: 32 31 30 30 00 47 27 EE 07 8B 53 45 B2 34 AF 4C |2100.G'...SE.4.L|
00001F40: B2 33 A7 32 31 30 30 00 5D 27 F8 07 8B 53 45 B2 |.3.2100.]'...SE.|
00001F50: 35 AF 4C B2 AB 2E 32 35 A7 32 31 30 30 00 6B 27 |5.L...25.2100.k'|
00001F60: 02 08 8B 43 B2 30 A7 32 31 31 30 00 8D 27 0C 08 |...C.0.2110..'..|
00001F70: 4B B2 28 B5 28 28 31 30 AE 38 29 AC 28 41 AD 43 |K.(.((10.8).(A.C|
00001F80: 29 AA 2E 35 29 29 AD 28 31 30 AE 38 29 00 A5 27 |)..5)).(10.8)..'|
00001F90: 16 08 4C B2 B5 28 31 30 AE 38 AC 4C AA 2E 35 29 |..L..(10.8.L..5)|
00001FA0: AD 31 30 AE 38 00 BD 27 20 08 8B 43 B3 B1 30 AF |.10.8..' ..C..0.|
00001FB0: 53 45 B2 36 AF 4C B2 4B A7 32 31 30 30 00 C7 27 |SE.6.L.K.2100..'|
00001FC0: 2A 08 89 32 31 31 30 00 EE 27 34 08 99 22 20 20 |*..2110..'4.." |
00001FD0: 20 20 20 20 20 20 D4 45 52 52 49 46 49 43 20 2D | .ERRIFIC -|
00001FE0: 20 59 4F 55 20 47 4F 54 20 49 54 21 11 22 00 FD | YOU GOT IT!."..|
00001FF0: 27 39 08 8D 38 33 35 3A 89 32 31 39 30 00 16 28 |'9..835:.2190..(|
00002000: 3E 08 99 22 20 20 20 20 CE 4F 54 20 43 4F 52 52 |>.." .OT CORR|
00002010: 45 43 54 2E 11 22 00 40 28 48 08 99 22 20 20 20 |ECT..".@(H.." |
00002020: 20 C4 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 | .O YOU WISH TO |
00002030: 53 45 45 20 4D 4F 52 45 20 4F 46 20 54 48 49 53 |SEE MORE OF THIS|
00002040: 00 55 28 52 08 99 22 20 20 20 20 53 45 51 55 45 |.U(R.." SEQUE|
00002050: 4E 43 45 22 3B 00 8D 28 57 08 8B 58 B3 31 30 30 |NCE";..(W..X.100|
00002060: 30 A7 99 22 2C 20 50 45 52 48 41 50 53 20 57 49 |0..", PERHAPS WI|
00002070: 54 48 20 41 20 4C 41 52 47 45 52 22 3A 99 22 20 |TH A LARGER":." |
00002080: 20 20 20 49 4E 54 45 52 56 41 4C 22 3B 00 B2 28 | INTERVAL";..(|
00002090: 5C 08 99 22 3F 20 22 3B 3A 55 53 24 B2 22 59 4E |\.."? ";:US$."YN|
000020A0: 48 22 3A 55 4C B2 31 3A 8D 33 35 3A 52 24 B2 55 |H":UL.1:.35:R$.U|
000020B0: 52 24 00 C3 28 70 08 8B 52 24 B2 22 59 22 A7 31 |R$..(p..R$."Y".1|
000020C0: 35 30 35 00 D7 28 8E 08 8B 4B 5A B2 31 B0 52 5A |505..(...KZ.1.RZ|
000020D0: B2 31 A7 33 30 30 30 00 08 29 93 08 58 B2 30 3A |.1.3000..)..X.0:|
000020E0: 45 B2 30 3A 53 45 B2 30 3A 55 47 24 B2 22 D4 48 |E.0:SE.0:UG$.".H|
000020F0: 45 20 D3 45 43 4F 4E 44 20 CC 49 53 54 22 3A 55 |E .ECOND .IST":U|
00002100: 48 B2 31 3A 8D 38 35 30 00 32 29 94 08 99 22 11 |H.1:.850.2)...".|
00002110: 20 20 20 20 20 C8 45 52 45 20 41 52 45 20 53 4F | .ERE ARE SO|
00002120: 4D 45 20 4D 4F 52 45 20 53 45 51 55 45 4E 43 45 |ME MORE SEQUENCE|
00002130: 53 2E 00 5C 29 95 08 99 22 20 20 20 20 20 28 D4 |S..\)..." (.|
00002140: 48 49 53 20 54 49 4D 45 2C 20 59 4F 55 20 44 4F |HIS TIME, YOU DO|
00002150: 4E 27 54 20 48 41 56 45 20 54 4F 22 00 86 29 96 |N'T HAVE TO"..).|
00002160: 08 99 22 20 20 20 20 20 47 55 45 53 53 20 54 48 |.." GUESS TH|
00002170: 45 20 4C 49 4D 49 54 3B 20 4A 55 53 54 20 4F 42 |E LIMIT; JUST OB|
00002180: 53 45 52 56 45 22 00 A0 29 97 08 99 22 20 20 20 |SERVE"..)..." |
00002190: 20 20 54 48 45 20 50 41 54 54 45 52 4E 2E 29 11 | THE PATTERN.).|
000021A0: 00 D1 29 98 08 99 22 20 20 20 12 31 92 20 54 28 |..)..." .1. T(|
000021B0: 4E 29 20 3D 20 53 49 4E 20 28 4E 29 20 20 12 32 |N) = SIN (N) .2|
000021C0: 92 20 54 28 4E 29 20 3D 20 54 41 4E 20 28 4E 29 |. T(N) = TAN (N)|
000021D0: 11 00 FE 29 AC 08 99 22 20 20 20 12 33 92 20 54 |...)..." .3. T|
000021E0: 28 4E 29 20 3D 20 4C 4F 47 20 28 4E 29 20 20 12 |(N) = LOG (N) .|
000021F0: 34 92 20 54 28 4E 29 20 3D 20 32 5E 4E 11 00 1C |4. T(N) = 2^N...|
00002200: 2A C0 08 99 A3 31 30 29 22 12 35 92 20 54 28 4E |*....10)".5. T(N|
00002210: 29 20 3D 20 32 5E 28 31 2F 4E 29 11 00 3D 2A CA |) = 2^(1/N)..=*.|
00002220: 08 99 A3 31 30 29 22 12 36 92 20 54 28 4E 29 20 |...10)".6. T(N) |
00002230: 3D 20 41 52 43 54 41 4E 20 28 4E 29 11 00 46 2A |= ARCTAN (N)..F*|
00002240: CF 08 52 5A B2 31 00 5B 2A D4 08 99 A3 31 39 29 |..RZ.1.[*....19)|
00002250: 3B 22 32 4E 5E 32 2B 35 4E 2D 38 00 7B 2A DE 08 |;"2N^2+5N-8.{*..|
00002260: 99 A3 31 30 29 3B 22 12 37 92 20 54 28 4E 29 20 |..10);".7. T(N) |
00002270: 3D 20 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 90 2A E8 08 |= ...........*..|
00002280: 99 A3 31 39 29 3B 22 35 4E 5E 32 2D 36 4E 2B 37 |..19);"5N^2-6N+7|
00002290: 00 BB 2A 06 09 99 22 11 20 20 20 20 20 D7 48 49 |..*...". .HI|
000022A0: 43 48 20 53 45 51 55 45 4E 43 45 20 57 4F 55 4C |CH SEQUENCE WOUL|
000022B0: 44 20 59 4F 55 20 4C 49 4B 45 22 00 DB 2A 07 09 |D YOU LIKE"..*..|
000022C0: 99 22 20 20 20 20 20 54 4F 20 4F 42 53 45 52 56 |." TO OBSERV|
000022D0: 45 3F 20 28 31 2D 37 29 20 22 3B 00 FD 2A 0B 09 |E? (1-7) ";..*..|
000022E0: 55 53 24 B2 22 31 32 33 34 35 36 37 22 3A 55 4C |US$."1234567":UL|
000022F0: B2 31 3A 8D 33 35 3A 45 24 B2 55 52 24 00 0F 2B |.1:.35:E$.UR$..+|
00002300: 1A 09 45 B2 B5 28 B6 28 C5 28 45 24 29 29 29 00 |..E..(.(.(E$))).|
00002310: 19 2B 38 09 89 31 34 34 30 00 28 2B BA 09 8D 38 |.+8..1440.(+...8|
00002320: 35 30 3A 99 A3 36 29 3B 00 42 2B CE 09 8B 53 45 |50:..6);.B+...SE|
00002330: B2 31 A7 99 22 11 54 28 4E 29 20 3D 20 2D 35 22 |.1..".T(N) = -5"|
00002340: 3A 8E 00 5B 2B D8 09 8B 53 45 B2 32 A7 99 22 11 |:..[+...SE.2..".|
00002350: 54 28 4E 29 20 3D 20 4E 22 3A 8E 00 77 2B E2 09 |T(N) = N":..w+..|
00002360: 8B 53 45 B2 33 A7 99 22 11 54 28 4E 29 20 3D 20 |.SE.3..".T(N) = |
00002370: 34 4E 2D 36 22 3A 8E 00 B0 2B EC 09 8B 53 45 B2 |4N-6":...+...SE.|
00002380: 34 A7 99 22 20 20 20 20 20 20 20 20 33 4E 9D 9D |4.." 3N..|
00002390: 9D 9D 9D 9D 9D 9D 9D 9D 11 54 28 4E 29 20 3D 20 |.........T(N) = |
000023A0: C0 C0 C0 C0 9D 9D 9D 9D 11 31 4E 2B 35 22 3A 8E |.........1N+5":.|
000023B0: 00 F8 2B F6 09 8B 53 45 B2 35 A7 99 22 20 20 20 |..+...SE.5.." |
000023C0: 20 20 20 20 20 20 35 4E 2B 39 9D 9D 9D 9D 9D 9D | 5N+9......|
000023D0: 9D 9D 9D 9D 9D 9D 9D 11 54 28 4E 29 20 3D 20 C0 |........T(N) = .|
000023E0: C0 C0 C0 C0 C0 C0 9D 9D 9D 9D 9D 9D 9D 11 2D 32 |..............-2|
000023F0: 30 4E 2B 31 31 22 3A 8E 00 29 2C 00 0A 8B 53 45 |0N+11":..),...SE|
00002400: B2 36 A7 99 22 11 54 28 4E 29 20 3D 20 20 C0 C0 |.6..".T(N) = ..|
00002410: C0 C0 C0 C0 C0 9D 9D 9D 9D 9D 9D 9D 9D 91 22 3B |..............";|
00002420: 41 3B 22 4E 20 2B 22 3B 42 00 4C 2C 0A 0A 8B 53 |A;"N +";B.L,...S|
00002430: 45 B2 36 A7 99 A3 36 29 22 11 20 20 20 20 20 20 |E.6...6)". |
00002440: 20 22 43 22 4E 20 2B 22 3B 44 3A 8E 00 78 2C 14 | "C"N +";D:..x,.|
00002450: 0A 8B 45 B2 31 A7 99 22 11 54 28 4E 29 20 3D 20 |..E.1..".T(N) = |
00002460: 53 49 4E 20 28 4E 29 20 20 5B 4E 20 49 4E 20 44 |SIN (N) [N IN D|
00002470: 45 47 52 45 45 53 5D 22 00 A3 2C 1E 0A 8B 45 B2 |EGREES]"..,...E.|
00002480: 32 A7 99 22 11 54 28 4E 29 20 3D 20 54 41 4E 20 |2..".T(N) = TAN |
00002490: 28 4E 29 20 20 5B 4E 20 49 4E 20 44 45 47 52 45 |(N) [N IN DEGRE|
000024A0: 45 53 5D 00 C8 2C 28 0A 8B 45 B2 33 A7 99 22 11 |ES]..,(..E.3..".|
000024B0: 54 28 4E 29 20 3D 20 4C 4F 47 20 28 4E 29 20 20 |T(N) = LOG (N) |
000024C0: 5B 42 41 53 45 20 45 5D 00 DF 2C 32 0A 8B 45 B2 |[BASE E]..,2..E.|
000024D0: 34 A7 99 22 11 54 28 4E 29 20 3D 20 32 5E 4E 00 |4..".T(N) = 2^N.|
000024E0: FA 2C 3C 0A 8B 45 B2 35 A7 99 22 11 54 28 4E 29 |.,<..E.5..".T(N)|
000024F0: 20 3D 20 32 5E 28 31 2F 4E 29 00 27 2D 46 0A 8B | = 2^(1/N).'-F..|
00002500: 45 B2 36 A7 99 22 11 54 28 4E 29 20 3D 20 41 52 |E.6..".T(N) = AR|
00002510: 43 54 41 4E 20 28 4E 29 20 20 5B 49 4E 20 44 45 |CTAN (N) [IN DE|
00002520: 47 52 45 45 53 5D 22 00 64 2D 50 0A 8B 45 B2 37 |GREES]".d-P..E.7|
00002530: A7 99 22 20 20 20 20 20 20 20 32 4E 5E 32 2B 35 |.." 2N^2+5|
00002540: 4E 2D 38 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |N-8.............|
00002550: 9D 9D 9D 11 54 28 4E 29 20 3D 20 C0 C0 C0 C0 C0 |....T(N) = .....|
00002560: C0 C0 C0 C0 00 84 2D 5A 0A 8B 45 B2 37 A7 99 A3 |......-Z..E.7...|
00002570: 36 29 22 20 20 20 20 20 20 20 35 4E 5E 32 2D 36 |6)" 5N^2-6|
00002580: 4E 2B 37 22 00 8A 2D 64 0A 8E 00 B0 2D 6E 0A 45 |N+7"..-d....-n.E|
00002590: B2 30 3A 53 45 B2 30 3A 58 B2 30 3A 55 47 24 B2 |.0:SE.0:X.0:UG$.|
000025A0: 22 D4 48 45 20 C6 49 52 53 54 20 CC 49 53 54 22 |".HE .IRST .IST"|
000025B0: 00 F2 2D 7D 0A 58 B2 30 3A 45 B2 30 3A 53 45 B2 |..-}.X.0:E.0:SE.|
000025C0: 30 3A 55 48 B2 31 3A 8D 38 35 30 3A 99 22 11 20 |0:UH.1:.850:.". |
000025D0: 20 20 20 20 20 CC 45 54 20 54 28 4E 29 20 44 45 | .ET T(N) DE|
000025E0: 46 49 4E 45 53 20 54 48 45 20 47 45 4E 45 52 41 |FINES THE GENERA|
000025F0: 4C 22 00 18 2E 80 0A 99 22 20 20 20 20 20 20 54 |L"......" T|
00002600: 45 52 4D 20 4F 46 20 54 48 45 53 45 20 53 45 51 |ERM OF THESE SEQ|
00002610: 55 45 4E 43 45 53 3A 11 00 44 2E 82 0A 99 A3 34 |UENCES:..D.....4|
00002620: 29 3B 22 12 31 92 20 20 54 28 4E 29 20 3D 20 2D |);".1. T(N) = -|
00002630: 35 20 20 20 20 20 20 12 32 92 20 20 54 28 4E 29 |5 .2. T(N)|
00002640: 20 3D 20 4E 00 53 2E 96 0A 99 A3 33 33 29 3B 22 | = N.S.....33);"|
00002650: 11 33 4E 00 82 2E A0 0A 99 A3 34 29 3B 22 12 33 |.3N.......4);".3|
00002660: 92 20 20 54 28 4E 29 20 3D 20 34 4E 2D 36 20 20 |. T(N) = 4N-6 |
00002670: 20 20 12 34 92 20 20 54 28 4E 29 20 3D 20 C0 C0 | .4. T(N) = ..|
00002680: C0 C0 00 92 2E B4 0A 99 A3 33 32 29 3B 22 31 4E |.........32);"1N|
00002690: 2B 35 00 A3 2E BE 0A 99 A3 32 33 29 3B 22 11 35 |+5.......23);".5|
000026A0: 4E 2B 39 00 C2 2E C8 0A 99 A3 31 31 29 3B 22 12 |N+9.......11);".|
000026B0: 35 92 20 20 54 28 4E 29 20 3D 20 C0 C0 C0 C0 C0 |5. T(N) = .....|
000026C0: C0 C0 00 D5 2E D2 0A 99 A3 32 31 29 3B 22 2D 32 |.........21);"-2|
000026D0: 30 4E 2B 31 31 00 EA 2E DC 0A 99 A3 32 31 29 3B |0N+11.......21);|
000026E0: 22 11 12 41 92 4E 2B 12 42 92 00 06 2F E6 0A 99 |"..A.N+.B.../...|
000026F0: A3 31 31 29 3B 22 12 36 92 20 20 54 28 4E 29 20 |.11);".6. T(N) |
00002700: 3D 20 C0 C0 C0 C0 00 1A 2F F0 0A 99 A3 32 31 29 |= ....../....21)|
00002710: 3B 22 12 43 92 4E 2B 12 44 92 00 23 2F F5 0A 4B |;".C.N+.D..#/..K|
00002720: 5A B2 31 00 4C 2F FA 0A 99 22 11 20 20 20 20 20 |Z.1.L/...". |
00002730: 20 D7 48 49 43 48 20 53 45 51 55 45 4E 43 45 20 | .HICH SEQUENCE |
00002740: 44 4F 20 59 4F 55 20 57 49 53 48 22 00 6D 2F FB |DO YOU WISH".m/.|
00002750: 0A 99 22 20 20 20 20 20 20 54 4F 20 4F 42 53 45 |.." TO OBSE|
00002760: 52 56 45 3F 20 28 31 2D 36 29 20 22 3B 00 99 2F |RVE? (1-6) ";../|
00002770: FF 0A 55 53 24 B2 22 31 32 33 34 35 36 22 3A 55 |..US$."123456":U|
00002780: 4C B2 31 3A 8D 33 35 3A 53 45 24 B2 55 52 24 3A |L.1:.35:SE$.UR$:|
00002790: 53 45 B2 C5 28 55 52 24 29 00 9F 2F 2C 0B 8E 00 |SE..(UR$)../,...|
000027A0: CD 2F 36 0B 8D 38 35 30 3A 99 22 11 11 11 20 20 |./6..850:."... |
000027B0: 20 20 D4 59 50 45 20 49 4E 20 59 4F 55 52 20 56 | .YPE IN YOUR V|
000027C0: 41 4C 55 45 53 20 46 4F 52 20 54 48 45 00 F5 2F |ALUES FOR THE../|
000027D0: 40 0B 99 22 20 20 20 20 43 4F 4E 53 54 41 4E 54 |@.." CONSTANT|
000027E0: 53 20 49 4E 20 54 48 49 53 20 45 58 50 52 45 53 |S IN THIS EXPRES|
000027F0: 53 49 4F 4E 3A 00 36 30 4A 0B 99 22 11 11 11 20 |SION:.60J.."... |
00002800: 20 20 20 20 20 20 54 28 4E 29 20 3D 22 3B 22 91 | T(N) =";".|
00002810: 20 20 41 4E 20 2B 20 42 9D 9D 9D 9D 9D 9D 11 C0 | AN + B........|
00002820: C0 C0 C0 C0 C0 9D 9D 9D 9D 9D 9D 11 43 4E 20 2B |............CN +|
00002830: 20 44 11 11 11 22 00 6A 30 68 0B 99 A3 34 29 3B | D...".j0h...4);|
00002840: 22 41 3D 20 22 3B 3A 55 53 24 B2 22 30 31 32 33 |"A= ";:US$."0123|
00002850: 34 35 36 37 38 39 48 22 3A 55 4C B2 33 3A 8D 33 |456789H":UL.3:.3|
00002860: 35 3A 41 B2 C5 28 55 52 24 29 00 9E 30 72 0B 99 |5:A..(UR$)..0r..|
00002870: A3 34 29 3B 22 42 3D 20 22 3B 3A 55 53 24 B2 22 |.4);"B= ";:US$."|
00002880: 30 31 32 33 34 35 36 37 38 39 48 22 3A 55 4C B2 |0123456789H":UL.|
00002890: 33 3A 8D 33 35 3A 42 B2 C5 28 55 52 24 29 00 D2 |3:.35:B..(UR$)..|
000028A0: 30 7C 0B 99 A3 34 29 3B 22 43 3D 20 22 3B 3A 55 |0|...4);"C= ";:U|
000028B0: 53 24 B2 22 30 31 32 33 34 35 36 37 38 39 48 22 |S$."0123456789H"|
000028C0: 3A 55 4C B2 33 3A 8D 33 35 3A 43 B2 C5 28 55 52 |:UL.3:.35:C..(UR|
000028D0: 24 29 00 06 31 86 0B 99 A3 34 29 3B 22 44 3D 20 |$)..1....4);"D= |
000028E0: 22 3B 3A 55 53 24 B2 22 30 31 32 33 34 35 36 37 |";:US$."01234567|
000028F0: 38 39 48 22 3A 55 4C B2 33 3A 8D 33 35 3A 44 B2 |89H":UL.3:.35:D.|
00002900: C5 28 55 52 24 29 00 0C 31 90 0B 8E 00 12 31 9A |.(UR$)..1.....1.|
00002910: 0B 3A 00 18 31 A4 0B 80 00 51 31 B8 0B 55 48 B2 |.:..1....Q1..UH.|
00002920: 31 3A 55 47 24 B2 22 22 3A 8D 38 35 30 3A 99 22 |1:UG$."":.850:."|
00002930: 11 11 11 11 20 20 20 20 20 20 20 20 20 20 20 D7 |.... .|
00002940: 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F |OULD YOU LIKE TO|
00002950: 3A 00 7B 31 BD 0B 99 22 11 20 20 20 20 20 20 20 |:.{1...". |
00002960: 20 12 31 92 20 20 53 45 45 20 54 48 45 20 46 49 | .1. SEE THE FI|
00002970: 52 53 54 20 4C 49 53 54 20 4F 46 00 97 31 BF 0B |RST LIST OF..1..|
00002980: 99 22 20 20 20 20 20 20 20 20 20 20 20 53 45 51 |." SEQ|
00002990: 55 45 4E 43 45 53 3B 00 C2 31 C2 0B 99 22 11 20 |UENCES;..1...". |
000029A0: 20 20 20 20 20 20 20 12 32 92 20 20 53 45 45 20 | .2. SEE |
000029B0: 54 48 45 20 53 45 43 4F 4E 44 20 4C 49 53 54 20 |THE SECOND LIST |
000029C0: 4F 46 00 E1 31 C3 0B 99 22 20 20 20 20 20 20 20 |OF..1..." |
000029D0: 20 20 20 20 53 45 51 55 45 4E 43 45 53 3B 20 4F | SEQUENCES; O|
000029E0: 52 00 09 32 C4 0B 99 22 11 20 20 20 20 20 20 20 |R..2...". |
000029F0: 20 12 33 92 20 20 52 45 54 55 52 4E 20 54 4F 20 | .3. RETURN TO |
00002A00: 54 48 45 20 CD 41 49 4E 22 00 33 32 C5 0B 99 22 |THE .AIN".32..."|
00002A10: 20 20 20 20 20 20 20 20 20 20 20 CD 45 4E 55 3F | .ENU?|
00002A20: 22 3A 99 22 11 11 20 20 20 20 20 20 20 20 20 20 |":.".. |
00002A30: 20 22 3B 00 52 32 C6 0B 55 53 24 B2 22 31 32 33 | ";.R2..US$."123|
00002A40: 22 3A 55 4C B2 31 3A 8D 33 35 3A 4B 4C 24 B2 55 |":UL.1:.35:KL$.U|
00002A50: 52 24 00 68 32 C7 0B 91 C5 28 55 52 24 29 89 31 |R$.h2....(UR$).1|
00002A60: 34 30 30 2C 33 30 32 35 00 6E 32 CC 0B 8E 00 82 |400,3025.n2.....|
00002A70: 32 D1 0B 4B 5A B2 30 3A 52 5A B2 30 3A 89 32 31 |2..KZ.0:RZ.0:.21|
00002A80: 39 35 00 00 00 |95... |
.......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...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.+.-.." ..";:.UC,0.?.2..UI$:.UI$."".50.
I.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.8
5.|.<..UI$.G(20).105...>.. C(UR$)..UL.50
...A..120:. CHECK FOR VALID CHARACTER.E.
F.UR$.UR$.UI$.O.K..UI$;.W.P..50...U.. ++
+ CHECK FOR HELP REQUEST +++.$.Z..UR$.UX
$.195:. EXIT TO HELP ROUTINE.3._..UF.1..
240.@.D.UF.0:.:..Y.F.. ++ CHECK DELETE +
+.J.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).
1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.M.}..C(US$).0.150...
...US.1.C(US$)......UI$.J(US$,US,1).....
........UI$."":..#.... ** STANDARD INPUT
**.4....F(UI$).46...E....UI$.G(32)...B.
..F(UI$).48.F(UI$).57.170.H..........F(
UI$).65.F(UI$).90.180............F(UI$).
193.F(UI$).218.UI$."":..R....B(UT).UU%.U
I$.G(F(UI$).128):..X.........UI$."":....
C.UF.1:. +++ HELP ROUTINE EXIT +++...E..
250...H..245.;.M..UQ.UB.(U2%.256.U1%.U3%
.2).W.R.UQ%(UQ.UB).B(UQ):.:.".".J.W.UZ.1
:UV%.B(UT).S.X..300...Y.UZ.0:US$.UJ$:UG$
.UK$:UP.UJ:UL.UK.O.Z..B(50003).0..53281,
1:.".";:.53281,6:.53280,14:.220.Y...."."
;.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1
%.U3%.3)......UQ,UQ%(UQ.UB):..)....U1,U1
%.5....U2,U2%.A....U4,U4%.O....U3,U3%.1.
W....35.....UD%.((U2%.256.U1%.U3%).UB).4
0:.H(UD$,UD%.1):..D....H(UD$,24);"
. HELP COMING . ":.....
.U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4)
.....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL
......./.,.. ** MENU **.5.-.:.D....".":.
UT,UU%:.B(50003).0..53281,9:.53280,8.J./
.:...1..". MENU"...6.." -
-------------------------------------".W
.;..".. 1. BEGIN LIMITS...@.."..
2. STUDENT INSTRUCTIONS".+.E.."
.. 3. TEACHER INSTRUCTIONS".G.O.
.".. 4. QUIT..".V.T.." ---------
-----------------------------"...Y.."..
PRESS A NUMBER KEY (1-4) ";.I.^.UL
.1:US$."1234":.35:. INPUT ROUTINE.T.`.US
$.""...C..E(UR$).1000,400,500,396...H..3
00.!.... ** RE-ENABLE STOP KEY AND END *
*.P....B(50003)..1.B(50003)..160.B(50003
)..0.399.Z....UU.71:.B(50003).0..53281,6
:.53280,14......"..":.......875:.......
** STUDENT INSTRUCTIONS **......".":.UT,
UL%:.B(50003).0..53281,0:.53280,0.....UP
.0:UG$."STUDENT INST":.1100.6.H..850:.".
... REMEMBER TO HIT <RETURN> AFTER".`
.J.." TYPING YOUR ANSWER. THIS TELLS"
...L.." THE COMPUTER TO ACCEPT WHAT Y
OU"...N.." HAVE TYPED...".N.P.." T
YPE <H> AT ANY TIME TO RETURN"...R.."
TO THE MENU FOR HELP. YOU WILL".$.T.."
BE RETURNED TO THE PLACE IN THE".M.V
.." PROGRAM WHERE YOU LEFT OFF AS".Y.
X.." SOON AS THE OPTION FROM THE MENU
"...Z.." IS COMPLETE."......835......
UZ.1..UP%:.217.......U.... ** TEACHER IN
STRUCTIONS **......".":.UT,UL%:.B(50003)
.0..53281,2:.53280,10.&...UP.0:UG$."TEAC
HER INST":.850.T....".. TO THE BEST
OF OUR KNOWLEDGE,.".}...." THIS PROGR
AM IS IN THE PUBLIC."......" DOMAIN.
IF THIS IS NOT THE CASE.".F...." PLEAS
E CONTACT:..."......" COMMODORE BUS
INESS MACHINES."......" 3370 PH
ARMACY AVE..7...." AGINCOURT, O
NTARIO".Y...." CANADA M1W 2K4
".Y...." (416) 499-4292"...@..8
35:.850:...B.." ..PROGRAM NAME: LIMI
TS..R.D.." WRITTEN BY : BOB SHEPHER
D....F.." UPGRADED BY : ....H.."
.THIS PROGRAM WILL RUN ON ANY...8.N.."
PET 64 COMPUTER..].P.."
COMMODORE 64 COMPUTER.F.R..835.Z.T..UZ.1
..UP%:.217...V.....X.. ** PROGRAM MODIFI
CATION INST **...Y..".":.UT,UL%.W.].UP.0
:UG$."PROGRAM MOD":.850......835......UZ
.1..UP%:.217............ ** TO USE 8032
LOAD CBM4032 **.U.F..".....BEFORE RUNNIN
G THIS PROGRAM ON AN 8032 .....P.."
LOAD THE 'CBM 4032' PROGRAM...........
.."...Z..UU.71......... .. ** T I T L E
P A G E **...".."....";:.UT,UU%:.B(500
03).0..53280,14:.53281,6...$..I.1.38:.".
..";:....&..I.1.22:.".....";:..6.(..I.1.
37:.".....";:..N.*..I.1.22:.".....";:..S
.,.."........................... ......
."................... . . .....0.."....
............... . ....T.2.."...........
......... ....4.."..............C O M M
O D O R E.....6.."...............EDUCAT
IONAL...>.8.."................SOFTWARE.Y
.:.. ** COMMODORE LOGO **...;..H(UD$,24)
;"..........PRESS SPACE BAR OR WAIT.":I.
0...<..A$:.A$.." ".I.I.1:.I.250.828.W.>.
T1$."":T2$."":T3$."":T4$."":I.0...@..300
...C.. ** SPACE BAR PRESS **.7.H..UO,0:.
H(UD$,24);".......PRESS SPACE BAR TO CON
TINUE.".N.L..UI$:.UI$.." ".844.T.N...T.R
.. ** PAGE DESIGN ROUTINE **...T.UP.UP.1
...W.."."H(UT$.UP$,21);I(UP$.UG$.D(UP),1
8).Y.\.." ------------------------------
--------"...`..UH..0.870...A..H(UD$,24);
H(UP$,7);"HELP - PRESS H <RETURN>".-.F
.UH.0:."..":..L.K.. ** PLEASE WAIT REMAR
K **...P..H(UD$,24);" ONE MOME
NT PLEASE... "...U........ ** SET UP
VARIABLES **.....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.Q....B(50
003).0.UB.1024:U1.209:U2.210:U3.211:U4.2
14:UC.204:UU.2048......B(50003).0.UT.532
72:UU%.21:UL%.23:UP%.2139:UM.1024:UO.198
.T...UD$."........................."....
.UP$."
".....UT$." LIMITS".......8.... **
SET VARIABLES **.A....900.\.... ** CHECK
FOR 8032 **.Z....".":." ":. SHIFTED SPA
CE......B(UB.40)..96..700...... ** MEMOR
Y CHECK **...... .(0).2000.937......"...
.THIS MACHINE DOES NOT HAVE ENOUGH."....
.."MEMORY TO RUN THIS PROGRAM !"......UU
.71.!.....;...."..":.B(50003).0.962.J...
. ** BASIC 2.0 OR 4.0 OR C-64 SETUP
**......1075,133:.1076,144:.1077,234:.10
79,4:.1080,133:.1081,145......1091,155:.
1098,133:.1099,144:.1100,234:.1103,133..
....1104,145:.1105,234:.1082,234......B(
50003)..160.955.F....1093,88:.1094,228:.
1097,85:.1102,228:.965.[....B(50003)..1.
990......1093,49:.1094,230:.1097,46:.110
2,230:.965.D.B..2099,141:.2100,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.X.E..UU.48:.
DISABLE STOP KEY.I.J..800:. TITLE.Y.T..3
00:. MENU......".THE PGM WILL NOT WORK O
N THIS MACHINE!":.......UZ.1..UP%:.UP%:U
Z.0:. ** PROGRAM STARTS HERE **.. ..."..
";:.:.B(50003).0..53281,6:.53280,14./ ..
. **** 3.0 **** 1/2/81 SYS880.B ..KZ.0
:RZ.0:ZZ.0.S ...UT,UL%:UP.0.H ..O.8:P.10
.O:.1400.. L..850:."....... THIS P
ROGRAM WILL INTRODUCE.F V..". YOU
TO THE CONCEPT OF THE".. [..". .LI
MIT. OF A SEQUENCE.":.835:.850.%!`.."...
... WE'LL LOOK AT A SEQUENCE AND.P!
J..". DISCOVER WHAT HAPPENS TO THE"
.{!T..". TERMS T(N) AS N STRICT
LY"..!~..". INCREASES."..!D..835:..
.!X..2670..!...SE.6..2870.B! .ZZ.0.K!...
850..!...".. LET'S OBSERVE A FEW ";:
.ZZ.0.."MORE ";.-"..."TERMS.":.".. W
OULD YOU LIKE TO SEE".Y"...". .A.
EVERY CONSECUTIVE TERM,.~"...".
.B. EVERY 10TH TERM,.."...". .C
. EVERY 100TH TERM, OR.Q"...". .
D. EVERY 1000TH TERM?..".."6..ZZ.0.1605
..#@..".. YOUR LAST CHOICE WAS ."CH$
"......"..#E.." ";.P#J.US$."HABCD":U
L.1:.35:CH$.UR$:X.10.(F(UR$).65).\#...24
90:...#B..N.X.ZZ.10.X.ZZ.X:N..(N..01):ZT
$." T(".J(D(N),2).") = ".N#G..N.126
.E.4..ZT$"*** OVERFLOW ***":.835:.3000..
#L..SE.1.Y..5..#V..SE.2.Y.N..#...SE.3.Y.
4.N.6..$...SE.4.Y.3.N.(N.5).2$...SE.5.Y.
(5.N.9).(.20.N.11).D$...SE.6.(C.N.D).0..
ZT$"*** UNDEFINED ***":.1900..$...SE.6.Y
.(A.N.B).(C.N.D)..$...E.1.Y..((..180).N)
.N$...E.2..((..180).N).0..ZT$"*** UNDEFI
NED ***":.1900..$&..E.2.Y..((..180).N)..
$0..E.3.Y..(N)..%:..E.4.Y.2.N..%D..E.5.Y
.2.(1.N)..%N..E.6.Y.A(N).180...Y%X..E.7.
Y.(2.(N.2).5.N.8).(5.(N.2).6.N.7)..%]..Y
.1E9..ZT$;Y:.1900:.(INT(P*Y+.5)/P)..%B..
ZT$;(.(P.Y..5).P)..%L..N:ZZ.ZZ.10.X..%..
.:.E..0.2120..%..." WHAT DO YOU THINK
IS THE LIMIT"..&...".. (IF NO LIMIT
EXISTS, ENTER .N.;".C&..." IF YOU ARE
NOT SURE, ENTER .?..)....".B&..." OF
THIS SEQUENCE? ";..&..US$."H0123456789.
N-?":UL.8:.35:."...":T$.UR$.W&...ZI.1.5:
."
":.ZI:."......"..&...T$."?".2120..&F.L.E
(T$)..'P..SE.1.L..5.2100..'Z..SE.2.T$."N
".2100.4'...SE.3.T$."N".2100.G'...SE.4.L
.3.2100.]'...SE.5.L...25.2100.K'...C.0.2
110..'..K.(.((10.8).(A.C)..5)).(10.8)..'
..L..(10.8.L..5).10.8..' ..C..0.SE.6.L.K
.2100.G'*..2110..'4.." TERRIFIC -
YOU GOT IT!."..'9..835:.2190..(>.."
NOT CORRECT..".@(H.." DO YOU WISH TO
SEE MORE OF THIS.U(R.." SEQUENCE";..(
W..X.1000..", PERHAPS WITH A LARGER":."
INTERVAL";..(\.."? ";:US$."YNH":UL.1:
.35:R$.UR$.C(P..R$."Y".1505.W(...KZ.1.RZ
.1.3000..)..X.0:E.0:SE.0:UG$."THE SECOND
LIST":UH.1:.850.2)...". HERE ARE SO
ME MORE SEQUENCES..\)..." (THIS TIME
, YOU DON'T HAVE TO"..)..." GUESS TH
E LIMIT; JUST OBSERVE". )..." THE PA
TTERN.)..Q)..." .1. T(N) = SIN (N) .2
. T(N) = TAN (N)...)..." .3. T(N) = LO
G (N) .4. T(N) = 2^N...*....10)".5. T(N
) = 2^(1/N)..=*J...10)".6. T(N) = ARCTAN
(N)..F*O.RZ.1.[*T...19);"2N^2+5N-8.{*..
..10);".7. T(N) = ...........*....19);"5
N^2-6N+7..*...". WHICH SEQUENCE WOUL
D YOU LIKE"..*..." TO OBSERVE? (1-7)
";..*..US$."1234567":UL.1:.35:E$.UR$..+
..E..(.(E(E$)))..+8..1440.(+...850:..6);
.B+N..SE.1..".T(N) = -5":..[+X..SE.2..".
T(N) = N":..W+...SE.3..".T(N) = 4N-6":..
.+...SE.4.." 3N...........T(N) =
.........1N+5":...+...SE.5.." 5N
+9..............T(N) = ...............-2
0N+11":..),...SE.6..".T(N) = ..........
......";A;"N +";B.L,...SE.6...6)".
"C"N +";D:..X,...E.1..".T(N) = SIN (N)
[N IN DEGREES]"..,...E.2..".T(N) = TAN
(N) [N IN DEGREES].H,(..E.3..".T(N) = L
OG (N) [BASE E]..,2..E.4..".T(N) = 2^N.
.,<..E.5..".T(N) = 2^(1/N).'-F..E.6..".T
(N) = ARCTAN (N) [IN DEGREES]".D-P..E.7
.." 2N^2+5N-8.................T(N)
= ...........-Z..E.7...6)" 5N^2-6
N+7"..-D....-N.E.0:SE.0:X.0:UG$."THE FIR
ST LIST"..-}.X.0:E.0:SE.0:UH.1:.850:.".
LET T(N) DEFINES THE GENERAL"......
" TERM OF THESE SEQUENCES:..D.....4
);".1. T(N) = -5 .2. T(N) = N.S..
...33);".3N... ...4);".3. T(N) = 4N-6
.4. T(N) = ...........32);"1N+5......
.23);".5N+9.B.H...11);".5. T(N) = .....
...U.R...21);"-20N+11.......21);"..A.N+.
B.../....11);".6. T(N) = ....../....21)
;".C.N+.D..#/..KZ.1.L/...". WHICH S
EQUENCE DO YOU WISH".M/..." TO OBSE
RVE? (1-6) ";../..US$."123456":UL.1:.35:
SE$.UR$:SE.E(UR$)../,...M/6..850:."...
TYPE IN YOUR VALUES FOR THE../@.."
CONSTANTS IN THIS EXPRESSION:.60J.."...
T(N) =";". AN + B................
....CN + D...".J0H...4);"A= ";:US$."0123
456789H":UL.3:.35:A.E(UR$)..0R...4);"B=
";:US$."0123456789H":UL.3:.35:B.E(UR$).R
0|...4);"C= ";:US$."0123456789H":UL.3:.3
5:C.E(UR$)..1....4);"D= ";:US$."01234567
89H":UL.3:.35:D.E(UR$)..1.....1..:..1...
.Q1..UH.1:UG$."":.850:.".... W
OULD YOU LIKE TO:.{1...". .1. SE
E THE FIRST LIST OF..1..." SEQ
UENCES;.B1B..". .2. SEE THE SECO
ND LIST OF..1C.." SEQUENCES; O
R..2D..". .3. RETURN TO THE MAIN
".32E.." MENU?":."..
";.R2F.US$."123":UL.1:.35:KL$.UR$.H2G..
E(UR$).1400,3025.N2L....2Q.KZ.0:RZ.0:.21
95...
> CLICK IMAGE PREVIEW FOR FULL MODAL