MICROMATH +-.C3
FILE INFORMATION
FILENAME(S): MICROMATH +-.C3
FILE TYPE(S): PRG
FILE SIZE: 12.2K
FIRST SEEN: 2025-11-02 16:26:32
APPEARS ON: 1 disk(s)
FILE HASH
a2bf522488f030415c6023d26aa5bf4bf79d8331f21ea7084d214ee2a72debf2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCHU LERN 9 | MICROMATH +-.C3 | PRG | Treasure Chest - Murdock | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 2B 09 2D 00 99 22 20 |.0.UL.80.+.-.." |
00000120: 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 3F 09 32 00 | ..";:.UC,0.?.2.|
00000130: A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 00 |.UI$:.UI$."".50.|
00000140: 69 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF C3 |i.7..UI$..(13)..|
00000150: 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A 99 |(UR$)..1..UC,1:.|
00000160: 22 20 9D 22 3B 3A 89 38 35 00 7C 09 3C 00 8B 55 |" .";:.85.|.<..U|
00000170: 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 90 09 3E |I$..(20).105...>|
00000180: 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 30 |.. .(UR$)..UL.50|
00000190: 00 B5 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 43 |...A..120:. CHEC|
000001A0: 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 52 |K FOR VALID CHAR|
000001B0: 41 43 54 45 52 00 C5 09 46 00 55 52 24 B2 55 52 |ACTER...F.UR$.UR|
000001C0: 24 AA 55 49 24 00 CF 09 4B 00 99 55 49 24 3B 00 |$.UI$...K..UI$;.|
000001D0: D7 09 50 00 89 35 30 00 FC 09 55 00 8F 20 2B 2B |..P..50...U.. ++|
000001E0: 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C 50 |+ CHECK FOR HELP|
000001F0: 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 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 DE 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 4D 49 43 52 4F 4D 41 54 48 20 2B 2D 22 00 08 | MICROMATH +-"..|
000006E0: 0F 40 01 99 22 11 11 20 20 20 20 20 20 20 32 2E |.@..".. 2.|
000006F0: 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 | STUDENT INSTR|
00000700: 55 43 54 49 4F 4E 53 22 00 32 0F 45 01 99 22 11 |UCTIONS".2.E..".|
00000710: 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 41 |. 3. TEA|
00000720: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION|
00000730: 53 22 00 4E 0F 4F 01 99 22 11 11 20 20 20 20 20 |S".N.O..".. |
00000740: 20 20 34 2E 20 20 20 51 55 49 54 11 11 22 00 7D | 4. QUIT..".}|
00000750: 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.T.." ----------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A8 0F |------------"...|
00000780: 59 01 99 22 11 11 20 20 20 20 20 20 20 50 52 45 |Y..".. PRE|
00000790: 53 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 |SS A NUMBER KEY |
000007A0: 28 31 2D 34 29 20 22 3B 00 D0 0F 5E 01 55 4C B2 |(1-4) ";...^.UL.|
000007B0: 31 3A 55 53 24 B2 22 31 32 33 34 22 3A 8D 33 35 |1:US$."1234":.35|
000007C0: 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 |:. INPUT ROUTINE|
000007D0: 00 DB 0F 60 01 55 53 24 B2 22 22 00 F8 0F 63 01 |...`.US$.""...c.|
000007E0: 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 |..(UR$).1000,400|
000007F0: 2C 35 30 30 2C 33 39 36 00 01 10 68 01 89 33 30 |,500,396...h..30|
00000800: 30 00 28 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E |0.(.... ** RE-EN|
00000810: 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E |ABLE STOP KEY AN|
00000820: 44 20 45 4E 44 20 2A 2A 00 57 10 8C 01 8B C2 28 |D END **.W.....(|
00000830: 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 |50003)..1..(5000|
00000840: 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 |3)..160..(50003)|
00000850: B3 B1 30 A7 33 39 39 00 81 10 8D 01 9E 55 55 AA |..0.399......UU.|
00000860: 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |71:..(50003).0..|
00000870: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 |53281,6:.53280,1|
00000880: 34 00 8D 10 8E 01 99 22 9A 93 22 3A 80 00 98 10 |4......"..":....|
00000890: 8F 01 8D 38 37 35 3A 8E 00 B9 10 90 01 8F 20 2A |...875:....... *|
000008A0: 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 |* STUDENT INSTRU|
000008B0: 43 54 49 4F 4E 53 20 2A 2A 00 E8 10 95 01 99 22 |CTIONS **......"|
000008C0: 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 |.":.UT,UL%:..(50|
000008D0: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A |003).0..53281,0:|
000008E0: 97 35 33 32 38 30 2C 30 00 09 11 9A 01 55 50 B2 |.53280,0.....UP.|
000008F0: 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 |0:UG$.".TUDENT .|
00000900: 4E 53 54 22 3A 8D 38 35 30 00 3C 11 9C 01 3A 20 |NST":.850.<...: |
00000910: 20 99 22 11 11 11 11 20 20 20 20 D2 45 4D 45 4D | .".... .EMEM|
00000920: 42 45 52 2C 20 48 49 54 20 3C 52 45 54 55 52 4E |BER, HIT <RETURN|
00000930: 3E 20 4B 45 59 20 41 46 54 45 52 22 00 68 11 9E |> KEY AFTER".h..|
00000940: 01 3A 20 20 99 22 20 20 20 54 59 50 49 4E 47 20 |.: ." TYPING |
00000950: 59 4F 55 52 20 41 4E 53 57 45 52 2E 20 D4 48 49 |YOUR ANSWER. .HI|
00000960: 53 20 54 45 4C 4C 53 22 00 95 11 A0 01 3A 20 20 |S TELLS".....: |
00000970: 99 22 20 20 20 54 48 45 20 43 4F 4D 50 55 54 45 |." THE COMPUTE|
00000980: 52 20 54 4F 20 41 43 43 45 50 54 20 57 48 41 54 |R TO ACCEPT WHAT|
00000990: 20 59 4F 55 22 00 AF 11 A2 01 3A 20 20 99 22 20 | YOU".....: ." |
000009A0: 20 20 48 41 56 45 20 54 59 50 45 44 2E 11 22 00 | HAVE TYPED..".|
000009B0: DC 11 A4 01 3A 20 20 99 22 20 20 20 20 D4 59 50 |....: ." .YP|
000009C0: 45 20 3C 48 3E 20 41 54 20 41 4E 59 20 54 49 4D |E <H> AT ANY TIM|
000009D0: 45 20 54 4F 20 52 45 54 55 52 4E 22 00 09 12 A6 |E TO RETURN"....|
000009E0: 01 3A 20 20 99 22 20 20 20 54 4F 20 54 48 45 20 |.: ." TO THE |
000009F0: 4D 45 4E 55 20 46 4F 52 20 48 45 4C 50 2E 20 20 |MENU FOR HELP. |
00000A00: D9 4F 55 20 57 49 4C 4C 22 00 36 12 A8 01 3A 20 |.OU WILL".6...: |
00000A10: 20 99 22 20 20 20 42 45 20 52 45 54 55 52 4E 45 | ." BE RETURNE|
00000A20: 44 20 54 4F 20 54 48 45 20 50 4C 41 43 45 20 49 |D TO THE PLACE I|
00000A30: 4E 20 54 48 45 22 00 61 12 AA 01 3A 20 20 99 22 |N THE".a...: ."|
00000A40: 20 20 20 50 52 4F 47 52 41 4D 20 57 48 45 52 45 | PROGRAM WHERE|
00000A50: 20 59 4F 55 20 4C 45 46 54 20 4F 46 46 20 41 53 | YOU LEFT OFF AS|
00000A60: 22 00 8F 12 AC 01 3A 20 20 99 22 20 20 20 53 4F |".....: ." SO|
00000A70: 4F 4E 20 41 53 20 54 48 45 20 4F 50 54 49 4F 4E |ON AS THE OPTION|
00000A80: 20 46 52 4F 4D 20 54 48 45 20 4D 45 4E 55 22 00 | FROM THE MENU".|
00000A90: B3 12 AE 01 3A 20 20 99 22 20 20 20 49 53 20 43 |....: ." IS C|
00000AA0: 4F 4D 50 4C 45 54 45 2E 22 3A 8D 38 33 35 3A 8D |OMPLETE.":.835:.|
00000AB0: 38 35 30 00 D5 12 B8 01 99 22 11 11 20 20 20 20 |850......".. |
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 CD C9 C3 D2 CF | .....|
00000AD0: CD C1 D4 C8 22 00 05 13 B9 01 99 22 11 20 D9 4F |...."......". .O|
00000AE0: 55 20 57 49 4C 4C 20 42 45 20 47 49 56 45 4E 20 |U WILL BE GIVEN |
00000AF0: 41 20 4C 45 53 53 4F 4E 20 4F 4E 20 41 44 44 49 |A LESSON ON ADDI|
00000B00: 54 49 4F 4E 22 00 32 13 BA 01 99 22 11 20 41 4E |TION".2....". AN|
00000B10: 44 20 53 55 42 52 41 43 54 49 4F 4E 2C 20 54 48 |D SUBRACTION, TH|
00000B20: 45 4E 20 41 20 53 4D 41 4C 4C 20 54 45 53 54 2E |EN A SMALL TEST.|
00000B30: 20 22 00 63 13 BC 01 99 22 11 20 C1 4E 53 57 45 | ".c....". .NSWE|
00000B40: 52 20 51 55 45 53 54 49 4F 4E 53 20 42 59 20 45 |R QUESTIONS BY E|
00000B50: 4E 54 45 52 49 4E 47 20 54 48 45 20 4E 55 4D 42 |NTERING THE NUMB|
00000B60: 45 52 22 00 90 13 BD 01 99 22 20 45 49 54 48 45 |ER"......" EITHE|
00000B70: 52 20 50 4F 53 49 54 49 56 45 20 28 2B 29 20 4F |R POSITIVE (+) O|
00000B80: 52 20 4E 45 47 41 54 49 56 45 20 28 2D 29 2E 22 |R NEGATIVE (-)."|
00000B90: 00 99 13 E5 01 8D 38 33 35 00 AD 13 EA 01 8B 55 |......835......U|
00000BA0: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 B3 13 |Z.1..UP%:.217...|
00000BB0: F3 01 8E 00 D4 13 F4 01 8F 20 2A 2A 20 54 45 41 |......... ** TEA|
00000BC0: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION|
00000BD0: 53 20 2A 2A 00 04 14 F5 01 99 22 93 22 3A 97 55 |S **......".":.U|
00000BE0: 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 |T,UL%:..(50003).|
00000BF0: 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 |0..53281,2:.5328|
00000C00: 30 2C 31 30 00 25 14 F6 01 55 50 B2 30 3A 55 47 |0,10.%...UP.0:UG|
00000C10: 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 22 |$.".EACHER .NST"|
00000C20: 3A 8D 38 35 30 00 53 14 F7 01 99 22 11 11 20 20 |:.850.S....".. |
00000C30: 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 | .O THE BEST |
00000C40: 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 |OF OUR KNOWLEDGE|
00000C50: 2C 11 22 00 7C 14 F8 01 99 22 20 20 20 54 48 49 |,.".|...." THI|
00000C60: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 |S PROGRAM IS IN |
00000C70: 54 48 45 20 50 55 42 4C 49 43 11 22 00 A8 14 F9 |THE PUBLIC."....|
00000C80: 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 |.." DOMAIN. .|
00000C90: 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 |F THIS IS NOT TH|
00000CA0: 45 20 43 41 53 45 11 22 00 C5 14 FA 01 99 22 20 |E CASE."......" |
00000CB0: 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 | PLEASE CONTACT|
00000CC0: 3A 11 11 11 22 00 EF 14 FB 01 99 22 20 20 20 20 |:..."......" |
00000CD0: 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 | .OMMODORE .USI|
00000CE0: 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 |NESS .ACHINES.".|
00000CF0: 12 15 FC 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000D00: 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 |3370 .HARMACY .V|
00000D10: 45 2E 00 36 15 FD 01 99 22 20 20 20 20 20 20 20 |E..6...." |
00000D20: 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E | .GINCOURT, .N|
00000D30: 54 41 52 49 4F 22 00 58 15 FE 01 99 22 20 20 20 |TARIO".X...." |
00000D40: 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 | .ANADA |
00000D50: CD 31 D7 20 32 CB 34 22 00 78 15 FF 01 99 22 20 |.1. 2.4".x...." |
00000D60: 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 34 | (416) 4|
00000D70: 39 39 2D 34 32 39 32 22 00 8E 15 00 02 55 50 B2 |99-4292".....UP.|
00000D80: 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 B8 |1:. 835:. 850:..|
00000D90: 15 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 |...." ...ROG|
00000DA0: 52 41 4D 20 CE 41 4D 45 3A 20 CD 49 43 52 4F 4D |RAM .AME: .ICROM|
00000DB0: 41 54 48 20 2B 2D 20 11 00 E3 15 02 02 99 22 20 |ATH +- ......." |
00000DC0: 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 | .RITTEN .Y |
00000DD0: 3A 20 D3 48 45 52 49 44 41 4E 20 C3 4F 4C 4C 45 |: .HERIDAN .OLLE|
00000DE0: 47 45 11 00 07 16 03 02 99 22 20 20 20 20 20 D5 |GE......." .|
00000DF0: 50 47 52 41 44 45 44 20 C2 59 20 3A 20 20 20 20 |PGRADED .Y : |
00000E00: 20 20 20 20 20 20 11 00 32 16 04 02 99 22 20 20 | ..2...." |
00000E10: 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D | ..HIS PROGRAM|
00000E20: 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 | WILL RUN ON ANY|
00000E30: 11 11 00 51 16 07 02 99 22 20 20 20 20 20 20 20 |...Q...." |
00000E40: 20 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 D5 D4 C5 | ... 64 .......|
00000E50: D2 00 76 16 08 02 99 22 20 20 20 20 20 20 20 20 |..v...." |
00000E60: 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF | ......... 64 ..|
00000E70: CD D0 D5 D4 C5 D2 00 84 16 09 02 8D 38 33 35 3A |............835:|
00000E80: 8D 38 35 30 00 B3 16 1D 02 99 22 11 20 20 20 D4 |.850......". .|
00000E90: 48 49 53 20 49 53 20 41 20 53 41 4D 50 4C 45 20 |HIS IS A SAMPLE |
00000EA0: 43 4F 50 59 20 4F 46 20 CD C9 C3 D2 CF CD C1 D4 |COPY OF ........|
00000EB0: C8 2E 22 00 DD 16 1E 02 99 22 11 20 D4 48 45 20 |.."......". .HE |
00000EC0: 53 54 55 44 45 4E 54 20 49 53 20 47 49 56 45 4E |STUDENT IS GIVEN|
00000ED0: 20 41 20 4C 45 53 53 4F 4E 20 4F 4E 22 00 FF 16 | A LESSON ON"...|
00000EE0: 1F 02 99 22 11 20 41 44 44 49 54 49 4F 4E 20 41 |...". ADDITION A|
00000EF0: 4E 44 20 53 55 42 52 41 43 54 49 4F 4E 2E 22 00 |ND SUBRACTION.".|
00000F00: 2D 17 20 02 99 22 11 20 20 20 D4 48 45 20 53 54 |-. ..". .HE ST|
00000F10: 55 44 45 4E 54 20 49 53 20 54 48 45 4E 20 47 49 |UDENT IS THEN GI|
00000F20: 56 45 4E 20 41 20 53 48 4F 52 54 20 22 00 5D 17 |VEN A SHORT ".].|
00000F30: 21 02 99 22 11 20 44 52 49 4C 4C 20 54 4F 20 54 |!..". DRILL TO T|
00000F40: 45 53 54 20 48 49 53 2F 48 45 52 20 4B 4E 4F 57 |EST HIS/HER KNOW|
00000F50: 4C 45 44 47 45 20 4F 46 20 54 48 45 22 00 88 17 |LEDGE OF THE"...|
00000F60: 22 02 99 22 11 20 4C 45 53 53 4F 4E 2E 20 20 C9 |"..". LESSON. .|
00000F70: 46 20 54 48 45 20 53 54 55 44 45 4E 54 20 52 45 |F THE STUDENT RE|
00000F80: 51 55 49 52 45 53 20 22 00 B7 17 23 02 99 22 11 |QUIRES "...#..".|
00000F90: 20 4D 4F 52 45 20 49 4E 53 54 52 55 43 54 49 4F | MORE INSTRUCTIO|
00000FA0: 4E 2C 20 54 48 45 20 D0 C5 D4 20 57 49 4C 4C 20 |N, THE ... WILL |
00000FB0: 41 44 56 49 53 45 22 00 E4 17 24 02 99 22 11 20 |ADVISE"...$..". |
00000FC0: 54 48 45 20 53 54 55 44 45 4E 54 20 54 4F 20 43 |THE STUDENT TO C|
00000FD0: 4F 4E 53 55 4C 54 20 54 48 45 20 54 45 41 43 48 |ONSULT THE TEACH|
00000FE0: 45 52 2E 22 00 F2 17 25 02 8D 38 33 35 3A 8D 38 |ER."...%..835:.8|
00000FF0: 35 30 00 20 18 26 02 99 22 11 11 11 11 11 20 D2 |50. .&.."..... .|
00001000: 45 43 4F 4D 4D 45 4E 44 45 44 20 46 4F 52 20 4A |ECOMMENDED FOR J|
00001010: 55 4E 49 4F 52 20 53 54 55 44 45 4E 54 53 2E 22 |UNIOR STUDENTS."|
00001020: 00 4C 18 2A 02 99 22 11 20 C6 4F 52 20 4D 4F 52 |.L.*..". .OR MOR|
00001030: 45 20 50 52 4F 47 52 41 4D 53 20 49 4E 20 54 48 |E PROGRAMS IN TH|
00001040: 49 53 20 53 45 52 49 45 53 2C 20 22 00 79 18 2C |IS SERIES, ".y.,|
00001050: 02 99 22 11 20 43 4F 4E 54 41 43 54 20 D3 48 45 |..". CONTACT .HE|
00001060: 52 49 44 41 4E 20 C3 4F 4C 4C 41 47 45 2C 20 CF |RIDAN .OLLAGE, .|
00001070: 41 4B 56 49 4C 4C 45 2E 22 00 82 18 44 02 8D 38 |AKVILLE."...D..8|
00001080: 33 35 00 96 18 4E 02 8B 55 5A B2 31 A7 9E 55 50 |35...N..UZ.1..UP|
00001090: 25 3A 89 32 31 37 00 9C 18 57 02 8E 00 C2 18 58 |%:.217...W.....X|
000010A0: 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F |.. ** PROGRAM MO|
000010B0: 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 |DIFICATION INST |
000010C0: 2A 2A 00 D3 18 59 02 99 22 93 22 3A 97 55 54 2C |**...Y..".":.UT,|
000010D0: 55 4C 25 00 F3 18 5D 02 55 50 B2 30 3A 55 47 24 |UL%...].UP.0:UG$|
000010E0: B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D |.".ROGRAM .OD":.|
000010F0: 38 35 30 00 FC 18 94 02 8D 38 33 35 00 10 19 B2 |850......835....|
00001100: 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 |..UZ.1..UP%:.217|
00001110: 00 16 19 BB 02 8E 00 3B 19 BC 02 8F 20 2A 2A 20 |.......;.... ** |
00001120: 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 |TO USE 8032 LOAD|
00001130: 20 43 42 4D 34 30 33 32 20 2A 2A 00 71 19 C6 02 | CBM4032 **.q...|
00001140: 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 |.".....BEFORE RU|
00001150: 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 |NNING THIS PROGR|
00001160: 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 |AM ON AN 8032 .|
00001170: 11 00 A7 19 D0 02 99 22 20 20 20 20 20 20 4C 4F |......." LO|
00001180: 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 |AD THE 'CBM 4032|
00001190: 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 |' PROGRAM.......|
000011A0: 11 11 11 11 11 11 22 00 B2 19 DA 02 9E 55 55 AA |......"......UU.|
000011B0: 37 31 00 B8 19 E4 02 80 00 D8 19 20 03 8F 20 2A |71......... .. *|
000011C0: 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 50 20 |* T I T L E P |
000011D0: 41 20 47 20 45 20 2A 2A 00 0C 1A 22 03 99 22 93 |A G E **..."..".|
000011E0: 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 |...";:.UT,UU%:..|
000011F0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 30 |(50003).0..53280|
00001200: 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 22 1A 24 |,14:.53281,6.".$|
00001210: 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B |..I.1.38:."...";|
00001220: 3A 82 00 3A 1A 26 03 81 49 B2 31 A4 32 32 3A 99 |:..:.&..I.1.22:.|
00001230: 22 11 9D 12 A6 92 22 3B 3A 82 00 52 1A 28 03 81 |".....";:..R.(..|
00001240: 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B |I.1.37:.".....";|
00001250: 3A 82 00 6A 1A 2A 03 81 49 B2 31 A4 32 32 3A 99 |:..j.*..I.1.22:.|
00001260: 22 91 9D 12 A6 92 22 3B 3A 82 00 8F 1A 2C 03 99 |".....";:....,..|
00001270: 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001280: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 |............ ..|
00001290: B1 1A 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |....."..........|
000012A0: 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 |......... . . .|
000012B0: A9 00 D2 1A 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |....0.."........|
000012C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 |........... . .|
000012D0: A3 DF 00 F0 1A 32 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....2..".......|
000012E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 |............. .|
000012F0: 00 18 1B 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |...4..".........|
00001300: 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 |.....C O M M O D|
00001310: 20 4F 20 52 20 45 11 11 00 3B 1B 36 03 99 22 1D | O R E...;.6..".|
00001320: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 |..............ED|
00001330: 55 43 41 54 49 4F 4E 41 4C 11 11 00 5A 1B 38 03 |UCATIONAL...Z.8.|
00001340: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001350: 1D 1D 53 4F 46 54 57 41 52 45 00 75 1B 3A 03 8F |..SOFTWARE.u.:..|
00001360: 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F | ** COMMODORE LO|
00001370: 47 4F 20 2A 2A 00 AD 1B 3B 03 99 C8 28 55 44 24 |GO **...;...(UD$|
00001380: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |,24);"..........|
00001390: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
000013A0: 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 00 CF 1B |OR WAIT.":I.0...|
000013B0: 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 |<..A$:.A$.." ".I|
000013C0: B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 |.I.1:.I.250.828.|
000013D0: F3 1B 3E 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 |..>.T1$."":T2$."|
000013E0: 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A |":T3$."":T4$."":|
000013F0: 49 B2 30 00 FC 1B 40 03 89 33 30 30 00 18 1C 43 |I.0...@..300...C|
00001400: 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 52 20 |.. ** SPACE BAR |
00001410: 50 52 45 53 53 20 2A 2A 00 53 1C 48 03 97 55 4F |PRESS **.S.H..UO|
00001420: 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D |,0:..(UD$,24);".|
00001430: 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 |......PRESS SPAC|
00001440: 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 |E BAR TO CONTINU|
00001450: 45 92 22 00 6A 1C 4C 03 A1 55 49 24 3A 8B 55 49 |E.".j.L..UI$:.UI|
00001460: 24 B3 B1 22 20 22 A7 38 34 34 00 70 1C 4E 03 8E |$.." ".844.p.N..|
00001470: 00 90 1C 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 |...R.. ** PAGE D|
00001480: 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A |ESIGN ROUTINE **|
00001490: 00 9A 1C 53 03 99 22 93 22 3B 00 A6 1C 54 03 55 |...S..".";...T.U|
000014A0: 50 B2 55 50 AA 31 00 CD 1C 57 03 99 C8 28 55 54 |P.UP.1...W...(UT|
000014B0: 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA |$.UP$,21);.(UP$.|
000014C0: 55 47 24 AA C4 28 55 50 29 2C 31 38 29 00 FC 1C |UG$..(UP),18)...|
000014D0: 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |\.." -----------|
000014E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000014F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 0B 1D 60 |-----------"...`|
00001500: 03 8B 55 48 B3 B1 30 A7 38 37 30 00 3F 1D 61 03 |..UH..0.870.?.a.|
00001510: 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 |..(UD$,24);.(UP$|
00001520: 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 |,7);"HELP - PRES|
00001530: 53 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 |S H <RETURN>".|
00001540: 50 1D 66 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E |P.f.UH.0:."..":.|
00001550: 00 6F 1D 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 |.o.k.. ** PLEASE|
00001560: 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 | WAIT REMARK **.|
00001570: A5 1D 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |..p...(UD$,24);"|
00001580: 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D | ONE M|
00001590: 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 |OMENT PLEASE... |
000015A0: 20 20 20 20 22 00 AB 1D 75 03 8E 00 C8 1D 84 03 | "...u.......|
000015B0: 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 |. ** SET UP VARI|
000015C0: 41 42 4C 45 53 20 2A 2A 00 13 1E 85 03 55 58 24 |ABLES **.....UX$|
000015D0: B2 22 48 22 3A 86 55 51 25 28 31 30 30 30 29 3A |."H":.UQ%(1000):|
000015E0: 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A |UB.32768:U1.196:|
000015F0: 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 |U2.197:U3.198:U4|
00001600: B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 |.216:UC.167:UU.1|
00001610: 30 32 34 00 51 1E 86 03 55 54 B2 35 39 34 36 38 |024.Q...UT.59468|
00001620: 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 |:UU%.12:UL%.14:U|
00001630: 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 |P%.1146:UM.32768|
00001640: 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 30 33 2C |:UO.158:. 50003,|
00001650: 30 00 94 1E 87 03 8B C2 28 35 30 30 30 33 29 B2 |0.......(50003).|
00001660: 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 |0.UB.1024:U1.209|
00001670: 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 |:U2.210:U3.211:U|
00001680: 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 |4.214:UC.204:UU.|
00001690: 32 30 34 38 00 D3 1E 88 03 8B C2 28 35 30 30 30 |2048.......(5000|
000016A0: 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 |3).0.UT.53272:UU|
000016B0: 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 |%.21:UL%.23:UP%.|
000016C0: 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 |2139:UM.1024:UO.|
000016D0: 31 39 38 00 F7 1E 89 03 55 44 24 B2 22 13 11 11 |198.....UD$."...|
000016E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000016F0: 11 11 11 11 11 11 22 00 29 1F 8A 03 55 50 24 B2 |......".)...UP$.|
00001700: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001720: 20 20 20 20 20 20 20 20 22 00 76 1F 8B 03 55 54 | ".v...UT|
00001730: 24 B2 22 20 CD C9 C3 D2 CF CD C1 D4 C8 20 2B 2D |$." ......... +-|
00001740: A0 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 20 50 |.....":. PLACE P|
00001750: 52 4F 47 52 41 4D 20 54 49 54 4C 45 20 48 45 52 |ROGRAM TITLE HER|
00001760: 45 20 21 21 21 21 21 21 21 21 21 21 21 21 21 21 |E !!!!!!!!!!!!!!|
00001770: 21 21 21 2A 2A 2A 00 7C 1F 8C 03 8E 00 96 1F 8E |!!!***.|........|
00001780: 03 8F 20 2A 2A 20 53 45 54 20 56 41 52 49 41 42 |.. ** SET VARIAB|
00001790: 4C 45 53 20 2A 2A 00 9F 1F 93 03 8D 39 30 30 00 |LES **......900.|
000017A0: BA 1F 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 |..... ** CHECK F|
000017B0: 4F 52 20 38 30 33 32 20 2A 2A 00 D8 1F 9D 03 99 |OR 8032 **......|
000017C0: 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 |".":.".":. SHIFT|
000017D0: 45 44 20 53 50 41 43 45 00 EF 1F A2 03 8B C2 28 |ED SPACE.......(|
000017E0: 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 |UB.40)..96..700.|
000017F0: 08 20 A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 |. ... ** MEMORY |
00001800: 43 48 45 43 4B 20 2A 2A 00 1C 20 A4 03 8B 20 B8 |CHECK **.. ... .|
00001810: 28 30 29 B1 32 30 30 30 A7 39 33 37 00 4A 20 A5 |(0).2000.937.J .|
00001820: 03 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 |.."....THIS MACH|
00001830: 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 |INE DOES NOT HAV|
00001840: 45 20 45 4E 4F 55 47 48 11 22 00 6E 20 A6 03 99 |E ENOUGH.".n ...|
00001850: 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 |"MEMORY TO RUN T|
00001860: 48 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 79 |HIS PROGRAM !".y|
00001870: 20 A7 03 9E 55 55 AA 37 31 00 7F 20 A8 03 80 00 | ...UU.71.. ....|
00001880: 99 20 A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 |. ..."..":..(500|
00001890: 30 33 29 B2 30 A7 39 36 32 00 C8 20 AC 03 8F 20 |03).0.962.. ... |
000018A0: 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 |** BASIC 2.0 OR|
000018B0: 20 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 | 4.0 OR C-64 |
000018C0: 53 45 54 55 50 20 2A 2A 00 06 21 AD 03 97 31 30 |SETUP **..!...10|
000018D0: 37 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 |75,133:.1076,144|
000018E0: 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 |:.1077,234:.1079|
000018F0: 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 |,4:.1080,133:.10|
00001900: 38 31 2C 31 34 35 00 3C 21 AE 03 97 31 30 39 31 |81,145.<!...1091|
00001910: 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 |,155:.1098,133:.|
00001920: 31 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 |1099,144:.1100,2|
00001930: 33 34 3A 97 31 31 30 33 2C 31 33 33 00 5E 21 AF |34:.1103,133.^!.|
00001940: 03 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 |..1104,145:.1105|
00001950: 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 75 |,234:.1082,234.u|
00001960: 21 B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 |!....(50003)..16|
00001970: 30 A7 39 35 35 00 A4 21 B6 03 97 31 30 39 33 2C |0.955..!...1093,|
00001980: 38 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 |88:.1094,228:.10|
00001990: 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A |97,85:.1102,228:|
000019A0: 89 39 36 35 00 B9 21 BB 03 8B C2 28 35 30 30 30 |.965..!....(5000|
000019B0: 33 29 B3 B1 31 A7 39 39 30 00 E8 21 C0 03 97 31 |3)..1.990..!...1|
000019C0: 30 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 |093,49:.1094,230|
000019D0: 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C |:.1097,46:.1102,|
000019E0: 32 33 30 3A 89 39 36 35 00 22 22 C2 03 97 32 30 |230:.965.""...20|
000019F0: 39 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A |99,141:.2100,20:|
00001A00: 97 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A |.2101,3:.2103,8:|
00001A10: 97 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C |.2104,141:.2105,|
00001A20: 32 31 00 5E 22 C3 03 97 32 31 30 36 2C 33 3A 97 |21.^"...2106,3:.|
00001A30: 32 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 |2115,145:.2117,5|
00001A40: 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 |2:.2118,234:.212|
00001A50: 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 98 |1,49:.2122,141..|
00001A60: 22 C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 |"...2123,20:.212|
00001A70: 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 |4,3:.2126,234:.2|
00001A80: 31 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 |127,141:.2128,21|
00001A90: 3A 97 32 31 32 39 2C 33 00 B6 22 C5 03 9E 55 55 |:.2129,3.."...UU|
00001AA0: AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 |.48:. DISABLE ST|
00001AB0: 4F 50 20 4B 45 59 00 C7 22 CA 03 8D 38 30 30 3A |OP KEY.."...800:|
00001AC0: 8F 20 54 49 54 4C 45 00 D7 22 D4 03 89 33 30 30 |. TITLE.."...300|
00001AD0: 3A 8F 20 4D 45 4E 55 00 08 23 DE 03 99 22 93 54 |:. MENU..#...".T|
00001AE0: 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 |HE PGM WILL NOT |
00001AF0: 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 |WORK ON THIS MAC|
00001B00: 48 49 4E 45 21 22 3A 80 00 3D 23 E8 03 8B 55 5A |HINE!":..=#...UZ|
00001B10: B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 |.1..UP%:.UP%:UZ.|
00001B20: 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 |0:. ** PROGRAM S|
00001B30: 54 41 52 54 53 20 48 45 52 45 20 2A 2A 00 68 23 |TARTS HERE **.h#|
00001B40: E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 |..."..";:.:..(50|
00001B50: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A |003).0..53281,6:|
00001B60: 97 35 33 32 38 30 2C 36 00 81 23 FC 03 8F 20 20 |.53280,6..#... |
00001B70: 20 20 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE | ".............|
00001B80: 22 00 9A 23 06 04 8F 20 20 20 20 22 DD 20 49 4E |"..#... ". IN|
00001B90: 54 52 4F 20 31 2D 32 20 DD 22 00 B3 23 10 04 8F |TRO 1-2 ."..#...|
00001BA0: 20 20 20 20 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | "...........|
00001BB0: C0 BD 22 00 CE 23 1A 04 97 55 54 2C 55 4C 25 3A |.."..#...UT,UL%:|
00001BC0: 44 45 24 B2 22 12 20 22 3A 8D 32 32 34 30 00 DB |DE$.". ":.2240..|
00001BD0: 23 24 04 99 22 13 11 11 11 11 22 00 FB 23 2E 04 |#$.."....."..#..|
00001BE0: 99 A3 38 29 3B 22 D5 CE C9 D4 20 31 20 2D 20 CF |..8);".... 1 - .|
00001BF0: C2 CA C5 C3 D4 C9 D6 C5 A0 32 22 00 1B 24 38 04 |.........2"..$8.|
00001C00: 99 A3 38 29 3B 22 A3 A3 A3 A3 A0 A3 A0 A0 A0 A3 |..8);"..........|
00001C10: A3 A3 A3 A3 A3 A3 A3 A3 A0 A3 22 00 27 24 42 04 |..........".'$B.|
00001C20: 99 22 11 11 11 11 22 00 54 24 4C 04 99 A3 33 29 |."....".T$L...3)|
00001C30: 3B 22 D0 C5 D2 C6 CF D2 CD C9 CE C7 20 C9 CE C4 |;".......... ...|
00001C40: C9 C3 C1 D4 C5 C4 20 C1 C4 C4 C9 D4 C9 CF CE A0 |...... .........|
00001C50: C1 CE C4 22 00 81 24 56 04 99 A3 33 29 3B 22 A3 |..."..$V...3);".|
00001C60: A3 A3 A3 A3 A3 A3 A3 A3 A3 A0 A3 A3 A3 A3 A3 A3 |................|
00001C70: A3 A3 A3 A0 A3 A3 A3 A3 A3 A3 A3 A3 A0 A3 A3 A3 |................|
00001C80: 22 00 AF 24 60 04 99 3A 99 A3 31 33 29 3B 22 D3 |"..$`..:..13);".|
00001C90: D5 C2 D4 D2 C1 C3 D4 C9 CF CE 22 3A 99 A3 31 33 |..........":..13|
00001CA0: 29 3B 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 |);"...........".|
00001CB0: B8 24 6A 04 8D 38 33 35 00 D1 24 74 04 8F 20 20 |.$j..835..$t.. |
00001CC0: 20 20 20 20 20 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 AE | "..........|
00001CD0: 22 00 EA 24 7E 04 8F 20 20 20 20 20 20 20 22 DD |"..$~.. ".|
00001CE0: 20 27 4D 45 4E 55 27 20 DD 22 00 03 25 88 04 8F | 'MENU' ."..%...|
00001CF0: 20 20 20 20 20 20 20 22 AD C0 C0 C0 C0 C0 C0 C0 | "........|
00001D00: C0 BD 22 00 20 25 92 04 4F 42 B2 32 3A 8D 32 33 |..". %..OB.2:.23|
00001D10: 36 30 3A 8B 41 4E 24 B2 22 42 22 A7 31 37 35 30 |60:.AN$."B".1750|
00001D20: 00 3A 25 9C 04 8F 20 20 20 20 22 B0 C0 C0 C0 C0 |.:%... ".....|
00001D30: C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 54 25 A6 04 8F |.........".T%...|
00001D40: 20 20 20 20 22 DD 20 CC C5 D3 D3 CF CE 20 31 2D | ". ...... 1-|
00001D50: 32 20 DD 22 00 6E 25 B0 04 8F 20 20 20 20 22 AD |2 .".n%... ".|
00001D60: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 8A |............."..|
00001D70: 25 BA 04 55 47 24 B2 22 D2 45 56 49 45 57 20 22 |%..UG$.".EVIEW "|
00001D80: 3A 55 50 B2 30 3A 8D 38 35 30 00 BF 25 C4 04 99 |:UP.0:.850..%...|
00001D90: A3 32 29 3B 22 11 20 C9 4E 44 49 43 41 54 45 44 |.2);". .NDICATED|
00001DA0: 20 41 44 44 49 54 49 4F 4E 20 41 4E 44 20 53 55 | ADDITION AND SU|
00001DB0: 42 54 52 41 43 54 49 4F 4E 22 3A 99 22 11 22 00 |BTRACTION":.".".|
00001DC0: EE 25 CE 04 99 22 20 D7 48 45 4E A0 54 48 45 20 |.%..." .HEN.THE |
00001DD0: 53 49 47 4E 53 20 41 50 50 45 41 52 20 42 45 46 |SIGNS APPEAR BEF|
00001DE0: 4F 52 45 20 41 20 4E 55 4D 42 45 52 2C 22 00 1F |ORE A NUMBER,"..|
00001DF0: 26 D8 04 99 3A 99 22 20 54 48 45 20 46 49 52 53 |&...:." THE FIRS|
00001E00: 54 20 53 49 47 4E 20 49 4E 44 49 43 41 54 45 53 |T SIGN INDICATES|
00001E10: 20 54 48 45 20 4F 50 45 52 41 54 49 4F 4E 22 00 | THE OPERATION".|
00001E20: 4F 26 E2 04 99 22 11 20 54 4F 20 42 45 20 50 45 |O&...". TO BE PE|
00001E30: 52 46 4F 52 4D 45 44 20 27 2B 27 20 49 4E 44 49 |RFORMED '+' INDI|
00001E40: 43 41 54 45 53 20 41 44 44 49 54 49 4F 4E 22 00 |CATES ADDITION".|
00001E50: 7E 26 EC 04 99 3A 99 22 20 41 4E 44 20 27 2D 27 |~&...:." AND '-'|
00001E60: 20 49 4E 44 49 43 41 54 45 53 20 53 55 42 54 52 | INDICATES SUBTR|
00001E70: 41 43 54 49 4F 4E 20 57 48 49 4C 45 20 22 00 AC |ACTION WHILE "..|
00001E80: 26 F6 04 99 3A 99 22 20 54 48 45 20 53 45 43 4F |&...:." THE SECO|
00001E90: 4E 44 20 53 49 47 4E 20 49 4E 44 49 43 41 54 45 |ND SIGN INDICATE|
00001EA0: 53 20 57 48 45 54 48 45 52 20 20 22 00 DA 26 00 |S WHETHER "..&.|
00001EB0: 05 99 3A 99 22 20 54 48 45 20 4E 55 4D 42 45 52 |..:." THE NUMBER|
00001EC0: A0 49 53 20 50 4F 53 49 54 49 56 45 A0 4F 52 20 |.IS POSITIVE.OR |
00001ED0: 4E 45 47 41 54 49 56 45 2E 22 00 E3 26 14 05 8D |NEGATIVE."..&...|
00001EE0: 38 33 35 00 EC 26 28 05 8D 38 35 30 00 15 27 32 |835..&(..850..'2|
00001EF0: 05 99 22 28 C1 29 20 20 34 20 2B 20 28 2B 33 29 |.."(.) 4 + (+3)|
00001F00: 20 CD C5 C1 CE D3 3A 20 D4 CF A0 2B 34 20 C1 C4 | .....: ...+4 ..|
00001F10: C4 20 2B 33 22 00 40 27 3C 05 99 3A 99 22 28 C2 |. +3".@'<..:."(.|
00001F20: 29 20 20 34 20 2B 20 28 2D 33 29 20 CD C5 C1 CE |) 4 + (-3) ....|
00001F30: D3 3A 20 D4 CF A0 2B 34 20 C1 C4 C4 A0 2D 33 22 |.: ...+4 ....-3"|
00001F40: 00 72 27 46 05 99 3A 99 22 28 C3 29 20 20 34 20 |.r'F..:."(.) 4 |
00001F50: 2D 20 28 2B 33 29 20 CD C5 C1 CE D3 3A 20 C6 D2 |- (+3) .....: ..|
00001F60: CF CD A0 2B 34 20 D3 D5 C2 D4 D2 C1 C3 D4 A0 2B |...+4 .........+|
00001F70: 33 22 00 A2 27 50 05 99 22 28 C4 29 20 20 34 20 |3"..'P.."(.) 4 |
00001F80: 2D 20 28 2D 33 29 20 CD C5 C1 CE D3 3A 20 C6 D2 |- (-3) .....: ..|
00001F90: CF CD 20 2B 34 20 D3 D5 C2 D4 D2 C1 C3 D4 20 2D |.. +4 ........ -|
00001FA0: 33 22 00 D0 27 5A 05 99 22 D4 CF A0 D3 CF CC D6 |3"..'Z..".......|
00001FB0: C5 A0 D3 D5 C3 C8 A0 D0 D2 CF C2 CC C5 CD D3 2C |...............,|
00001FC0: 20 D3 C9 CD D0 CC C9 C6 D9 20 C6 C9 D2 D3 D4 22 | ........ ....."|
00001FD0: 00 FD 27 64 05 99 3A 99 22 C2 D9 A0 D2 C5 D0 CC |..'d..:.".......|
00001FE0: C1 C3 C9 CE C7 A0 D4 C8 C5 A0 D4 D7 CF A0 D3 C9 |................|
00001FF0: C7 CE D3 A0 C2 D9 A0 D5 D3 C9 CE C7 22 00 26 28 |............".&(|
00002000: 6E 05 99 3A 99 22 CF CE C5 A0 CF C6 A0 D4 C8 C5 |n..:."..........|
00002010: A0 C6 CF CC CC CF D7 C9 CE C7 A0 D4 D7 CF A0 D2 |................|
00002020: D5 CC C5 D3 3A 22 00 69 28 78 05 99 3A 99 22 28 |....:".i(x..:."(|
00002030: 31 29 20 C9 C6 A0 D4 C8 C5 A0 C6 C9 D2 D3 D4 A0 |1) .............|
00002040: D3 C9 C7 CE A0 C9 D3 A0 27 2B 27 2C 20 CB C5 C5 |........'+', ...|
00002050: D0 22 3A 99 3B A3 34 29 3B 22 D4 C8 C5 A0 D3 C5 |.":.;.4);"......|
00002060: C3 CF CE C4 A0 D3 C9 C7 CE 00 97 28 82 05 99 3A |...........(...:|
00002070: 99 22 28 32 29 20 C9 C6 A0 D4 C8 C5 A0 C6 C9 D2 |."(2) ..........|
00002080: D3 D4 A0 D3 C9 C7 CE A0 C9 D3 A0 27 2D 27 2C 20 |...........'-', |
00002090: C3 C8 C1 CE C7 C5 22 00 C2 28 8C 05 99 A3 34 29 |......"..(....4)|
000020A0: 3B 22 D4 C8 C5 A0 D3 C5 C3 CF CE C4 A0 D3 C9 C7 |;"..............|
000020B0: CE A0 C6 D2 CF CD A0 27 2B 27 20 D4 CF A0 27 2D |.......'+' ...'-|
000020C0: 27 22 00 E1 28 96 05 99 A3 34 29 3B 22 CF D2 A0 |'"..(....4);"...|
000020D0: C6 D2 CF CD 20 27 2D 27 20 D4 CF A0 27 2B 27 2E |.... '-' ...'+'.|
000020E0: 22 00 EF 28 A0 05 8D 38 33 35 3A 8D 38 35 30 00 |"..(...835:.850.|
000020F0: 11 29 C8 05 99 3A 99 22 28 C1 29 20 34 20 2B 20 |.)...:."(.) 4 + |
00002100: 28 2B 33 29 20 3D 20 34 20 2B 20 33 20 3D 20 37 |(+3) = 4 + 3 = 7|
00002110: 22 00 37 29 D2 05 99 3A 99 A3 32 29 3B 22 C6 C9 |".7)...:..2);"..|
00002120: D2 D3 D4 A0 D3 C9 C7 CE 20 27 2B 27 3A 20 CB C5 |........ '+': ..|
00002130: C5 D0 A0 27 2B 27 22 00 59 29 DC 05 99 3A 99 22 |...'+'".Y)...:."|
00002140: 28 C2 29 20 34 20 2B 20 28 2D 33 29 20 3D 20 34 |(.) 4 + (-3) = 4|
00002150: 20 2D 20 33 20 3D 20 31 22 00 7F 29 E6 05 99 3A | - 3 = 1"..)...:|
00002160: 99 A3 32 29 3B 22 C6 C9 D2 D3 D4 A0 D3 C9 C7 CE |..2);"..........|
00002170: A0 27 2B 27 3A 20 CB C5 C5 D0 A0 27 2D 27 22 00 |.'+': .....'-'".|
00002180: A1 29 F0 05 99 3A 99 22 28 C3 29 20 34 20 2D 20 |.)...:."(.) 4 - |
00002190: 28 2B 33 29 20 3D 20 34 20 2D 20 33 20 3D 20 31 |(+3) = 4 - 3 = 1|
000021A0: 22 00 D0 29 FA 05 99 3A 99 A3 32 29 3B 22 C6 C9 |"..)...:..2);"..|
000021B0: D2 D3 D4 A0 D3 C9 C7 CE A0 27 2D 27 3A 20 C3 C8 |.........'-': ..|
000021C0: C1 CE C7 C5 20 27 2B 27 20 D4 CF 20 27 2D 27 22 |.... '+' .. '-'"|
000021D0: 00 F2 29 04 06 99 3A 99 22 28 C4 29 20 34 20 2D |..)...:."(.) 4 -|
000021E0: 20 28 2D 33 29 20 3D 20 34 20 2B 20 33 20 3D 20 | (-3) = 4 + 3 = |
000021F0: 37 22 00 21 2A 0E 06 99 3A 99 A3 32 29 3B 22 C6 |7".!*...:..2);".|
00002200: C9 D2 D3 D4 A0 D3 C9 C7 CE A0 27 2D 27 3A 20 C3 |..........'-': .|
00002210: C8 C1 CE C7 C5 A0 27 2D 27 20 D4 CF 20 27 2B 27 |......'-' .. '+'|
00002220: 22 00 2F 2A 18 06 8D 38 33 35 3A 8D 38 35 30 00 |"./*...835:.850.|
00002230: 57 2A 36 06 99 3A 99 22 28 C5 29 20 2D 36 20 2B |W*6..:."(.) -6 +|
00002240: 20 28 2D 32 29 20 3D 20 28 2D 36 29 2B 28 2D 32 | (-2) = (-6)+(-2|
00002250: 29 20 3D 20 2D 38 22 00 7D 2A 40 06 99 3A 99 A3 |) = -8".}*@..:..|
00002260: 32 29 3B 22 C6 C9 D2 D3 D4 20 D3 C9 C7 CE A0 27 |2);"..... .....'|
00002270: 2B 27 3A 20 CB C5 C5 D0 20 27 2D 27 22 00 A3 2A |+': .... '-'"..*|
00002280: 4A 06 99 3A 99 22 28 C6 29 20 2D 33 20 2D 20 28 |J..:."(.) -3 - (|
00002290: 2D 37 29 20 3D 20 28 2D 33 29 20 2B 20 37 20 3D |-7) = (-3) + 7 =|
000022A0: 20 34 22 00 D2 2A 54 06 99 3A 99 A3 32 29 3B 22 | 4"..*T..:..2);"|
000022B0: C6 C9 D2 D3 D4 A0 D3 C9 C7 CE A0 27 2D 27 3A 20 |...........'-': |
000022C0: C3 C8 C1 CE C7 C5 A0 27 2D 27 20 D4 CF 20 27 2B |.......'-' .. '+|
000022D0: 27 22 00 F6 2A 5E 06 99 3A 99 22 28 C7 29 20 36 |'"..*^..:."(.) 6|
000022E0: 20 2D 20 28 38 29 20 3D 20 36 20 2D 20 38 20 3D | - (8) = 6 - 8 =|
000022F0: 20 28 2D 32 29 22 00 25 2B 68 06 99 3A 99 A3 32 | (-2)".%+h..:..2|
00002300: 29 3B 22 C6 C9 D2 D3 D4 20 D3 C9 C7 CE 20 27 2D |);"..... .... '-|
00002310: 27 3A 20 C3 C8 C1 CE C7 C5 A0 27 2B 27 20 54 4F |': .......'+' TO|
00002320: 20 27 2D 27 22 00 4D 2B 72 06 99 3A 99 22 28 C8 | '-'".M+r..:."(.|
00002330: 29 20 2D 33 20 2D 20 28 35 29 20 3D 20 28 2D 33 |) -3 - (5) = (-3|
00002340: 29 20 2D 20 35 20 3D 20 28 2D 38 29 22 00 7C 2B |) - 5 = (-8)".|+|
00002350: 7C 06 99 3A 99 A3 32 29 3B 22 C6 C9 D2 D3 D4 A0 ||..:..2);"......|
00002360: D3 C9 C7 CE A0 27 2D 27 3A 20 C3 C8 C1 CE C7 C5 |.....'-': ......|
00002370: A0 27 2B 27 20 D4 CF A0 27 2D 27 22 00 8A 2B 86 |.'+' ...'-'"..+.|
00002380: 06 8D 38 33 35 3A 8D 38 35 30 00 96 2B 90 06 99 |..835:.850..+...|
00002390: 22 11 11 11 11 22 00 C5 2B 9A 06 99 22 D2 C5 CD |"...."..+..."...|
000023A0: C5 CD C2 C5 D2 3A 20 C9 46 A0 41 20 4E 55 4D 42 |.....: .F.A NUMB|
000023B0: 45 52 20 49 53 20 4E 4F 54 20 45 58 50 4C 49 43 |ER IS NOT EXPLIC|
000023C0: 49 54 4C 59 22 00 F0 2B A4 06 99 3A 99 A3 31 30 |ITLY"..+...:..10|
000023D0: 29 3B 22 53 49 47 4E 45 44 20 54 48 45 4E 20 49 |);"SIGNED THEN I|
000023E0: 54 20 49 53 20 41 53 53 55 4D 45 44 20 54 4F 22 |T IS ASSUMED TO"|
000023F0: 00 0B 2C AE 06 99 3A 99 A3 31 30 29 3B 22 42 45 |..,...:..10);"BE|
00002400: 20 50 4F 53 49 54 49 56 45 2E 22 00 34 2C B8 06 | POSITIVE.".4,..|
00002410: 99 22 11 11 11 22 3A 99 A3 32 29 3B 22 C5 D8 C1 |."...":..2);"...|
00002420: CD D0 CC C5 3A 20 20 28 34 29 20 3D 20 2B 34 20 |....: (4) = +4 |
00002430: 3D 20 34 22 00 4F 2C C2 06 99 3A 99 A3 31 33 29 |= 4".O,...:..13)|
00002440: 3B 22 33 20 3D 20 2B 33 20 3D 20 28 33 29 22 00 |;"3 = +3 = (3)".|
00002450: 58 2C CC 06 8D 38 33 35 00 71 2C D6 06 8F 20 20 |X,...835.q,... |
00002460: 20 20 20 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE | "............|
00002470: 22 00 8A 2C E0 06 8F 20 20 20 20 20 22 DD 20 54 |"..,... ". T|
00002480: 45 53 54 20 31 2D 32 20 DD 22 00 A3 2C EA 06 8F |EST 1-2 ."..,...|
00002490: 20 20 20 20 20 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 | "..........|
000024A0: C0 BD 22 00 AD 2C F4 06 99 22 93 11 22 00 D5 2C |.."..,...".."..,|
000024B0: FE 06 99 22 20 D3 C9 CD D0 CC C9 C6 D9 A0 C5 C1 |..." ...........|
000024C0: C3 C8 A0 CF C6 A0 D4 C8 C5 A0 C6 CF CC CC CF D7 |................|
000024D0: C9 CE C7 3A 22 00 EE 2C 08 07 52 31 B2 30 3A 43 |...:"..,..R1.0:C|
000024E0: 54 B2 31 3A 4C 31 B2 30 3A 48 31 B2 31 35 00 1B |T.1:L1.0:H1.15..|
000024F0: 2D 12 07 8D 32 37 39 30 3A 41 B2 4E 47 3A 41 24 |-...2790:A.NG:A$|
00002500: B2 4E 24 3A 8D 32 37 39 30 3A 42 B2 4E 47 3A 42 |.N$:.2790:B.NG:B|
00002510: 24 B2 4E 24 3A 53 24 B2 22 2B 22 00 2F 2D 1C 07 |$.N$:S$."+"./-..|
00002520: 8B BB 28 31 29 B3 2E 35 A7 53 24 B2 22 2D 22 00 |..(1)..5.S$."-".|
00002530: 48 2D 26 07 8B 53 24 B2 22 2D 22 A7 41 31 B2 41 |H-&..S$."-".A1.A|
00002540: AB 42 3A 89 31 38 35 30 00 53 2D 30 07 41 31 B2 |.B:.1850.S-0.A1.|
00002550: 41 AA 42 00 9A 2D 3A 07 99 22 11 22 3B 43 54 3B |A.B..-:..".";CT;|
00002560: 22 9D 2E 20 22 3B 41 24 3B 22 20 22 3B 53 24 3B |".. ";A$;" ";S$;|
00002570: 22 20 22 3B 42 24 3B 22 20 3D 20 22 3B 3A 55 53 |" ";B$;" = ";:US|
00002580: 24 B2 22 31 32 33 34 35 36 37 38 39 30 2D 2B 48 |$."1234567890-+H|
00002590: 22 3A 55 4C B2 33 3A 8D 33 35 00 A8 2D 44 07 41 |":UL.3:.35..-D.A|
000025A0: 32 B2 C5 28 55 52 24 29 00 D5 2D 4E 07 8B 41 31 |2..(UR$)..-N..A1|
000025B0: B2 41 32 A7 99 22 91 22 3B A3 32 33 29 3B 22 C3 |.A2..".";.23);".|
000025C0: CF D2 D2 C5 C3 D4 22 3A 52 31 B2 52 31 AA 31 3A |......":R1.R1.1:|
000025D0: 89 31 39 30 30 00 07 2E 58 07 8B B6 28 41 31 29 |.1900...X...(A1)|
000025E0: B2 B6 28 41 32 29 A7 99 22 91 22 3B A3 32 33 29 |..(A2)..".";.23)|
000025F0: 22 D7 D2 CF CE C7 20 D3 C9 C7 CE 3B 20 22 3B 41 |"..... ....; ";A|
00002600: 31 3A 8D 31 39 30 30 00 28 2E 62 07 99 22 91 22 |1:.1900.(.b.."."|
00002610: 3B A3 32 33 29 3B 22 D7 D2 CF CE C7 3B 20 22 3B |;.23);".....; ";|
00002620: 41 31 3A 89 31 39 30 30 00 49 2E 6C 07 8F 20 20 |A1:.1900.I.l.. |
00002630: 20 20 20 20 20 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | "..........|
00002640: C0 C0 C0 C0 C0 C0 C0 AE 22 00 6A 2E 76 07 8F 20 |........".j.v.. |
00002650: 20 20 20 20 20 20 22 DD 20 4D 41 52 4B 49 4E 47 | ". MARKING|
00002660: 20 53 55 42 52 54 4E 20 DD 22 00 8B 2E 80 07 8F | SUBRTN ."......|
00002670: 20 20 20 20 20 20 20 22 AD C0 C0 C0 C0 C0 C0 C0 | "........|
00002680: C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 A4 2E 8A 07 |..........".....|
00002690: 8F 20 20 43 54 20 3D 20 51 55 45 53 54 49 4F 4E |. CT = QUESTION|
000026A0: 20 43 54 52 00 BF 2E 94 07 8F 20 20 52 31 20 3D | CTR...... R1 =|
000026B0: 20 4E 55 4D 42 45 52 20 43 4F 52 52 45 43 54 00 | NUMBER CORRECT.|
000026C0: C5 2E 9E 07 8F 00 D9 2E A8 07 8B 43 54 B2 33 AF |...........CT.3.|
000026D0: 52 31 B2 33 A7 32 30 31 30 00 ED 2E B2 07 8B 43 |R1.3.2010......C|
000026E0: 54 B2 35 AF 52 31 B2 34 A7 32 30 31 30 00 FC 2E |T.5.R1.4.2010...|
000026F0: BC 07 8B 43 54 B2 38 A7 32 30 31 30 00 10 2F C6 |...CT.8.2010../.|
00002700: 07 8B 43 54 B2 34 AF 52 31 B2 30 A7 32 30 31 30 |..CT.4.R1.0.2010|
00002710: 00 22 2F D0 07 43 54 B2 43 54 AA 31 3A 89 31 38 |."/..CT.CT.1:.18|
00002720: 31 30 00 3A 2F DA 07 8D 38 33 35 3A 44 45 24 B2 |10.:/...835:DE$.|
00002730: 22 12 2A 22 3A 8D 32 32 34 30 00 46 2F E4 07 99 |".*":.2240.F/...|
00002740: 22 13 11 11 11 22 00 59 2F EE 07 4D 52 B2 28 52 |"....".Y/..MR.(R|
00002750: 31 AD 43 54 29 AC 31 30 30 00 6A 2F F8 07 8B 4D |1.CT).100.j/...M|
00002760: 52 B1 B2 37 35 A7 32 31 30 30 00 7B 2F 02 08 8B |R..75.2100.{/...|
00002770: 4D 52 B1 B2 35 30 A7 32 31 37 30 00 A4 2F 0C 08 |MR..50.2170../..|
00002780: 99 A3 33 29 22 D0 4C 45 41 53 45 20 53 45 45 20 |..3)".LEASE SEE |
00002790: 59 4F 55 52 20 49 4E 53 54 52 55 43 54 4F 52 20 |YOUR INSTRUCTOR |
000027A0: 46 4F 52 22 00 CF 2F 16 08 99 3A 99 A3 33 29 3B |FOR"../...:..3);|
000027B0: 22 41 53 53 49 53 54 41 4E 43 45 20 57 49 54 48 |"ASSISTANCE WITH|
000027C0: 20 54 48 49 53 20 4D 41 54 45 52 49 41 4C 22 00 | THIS MATERIAL".|
000027D0: ED 2F 20 08 99 3A 99 A3 33 29 3B 22 42 45 46 4F |./ ..:..3);"BEFO|
000027E0: 52 45 20 47 4F 49 4E 47 20 4F 4E 2E 22 00 0A 30 |RE GOING ON."..0|
000027F0: 2A 08 99 22 11 11 11 11 22 3A 8D 38 33 35 3A 9C |*.."....":.835:.|
00002800: 3A 8D 39 30 30 3A 89 33 30 30 00 2E 30 34 08 99 |:.900:.300..04..|
00002810: A3 33 29 3B 22 D9 4F 55 20 48 41 56 45 20 50 41 |.3);".OU HAVE PA|
00002820: 53 53 45 44 20 54 48 45 20 54 45 53 54 22 00 50 |SSED THE TEST".P|
00002830: 30 3E 08 99 3A 99 A3 33 29 3B 22 46 4F 52 20 54 |0>..:..3);"FOR T|
00002840: 48 49 53 20 4F 42 4A 45 43 54 49 56 45 2E 20 22 |HIS OBJECTIVE. "|
00002850: 00 59 30 52 08 8D 38 33 35 00 69 30 5C 08 9C 3A |.Y0R..835.i0\..:|
00002860: 8D 39 30 30 3A 89 33 30 30 00 8F 30 66 08 99 3A |.900:.300..0f..:|
00002870: 99 A3 33 29 3B 22 41 4E 53 57 45 52 20 27 59 27 |..3);"ANSWER 'Y'|
00002880: 20 4F 52 20 27 4E 27 22 3B 3A 8D 32 36 33 30 00 | OR 'N'";:.2630.|
00002890: 99 30 70 08 89 31 39 37 30 00 C4 30 7A 08 99 A3 |.0p..1970..0z...|
000028A0: 33 29 3B 22 D9 4F 55 20 53 48 4F 55 4C 44 20 52 |3);".OU SHOULD R|
000028B0: 45 56 49 45 57 20 54 48 49 53 20 4D 41 54 45 52 |EVIEW THIS MATER|
000028C0: 49 41 4C 22 00 ED 30 84 08 99 3A 99 A3 33 29 3B |IAL"..0...:..3);|
000028D0: 22 42 45 46 4F 52 45 20 59 4F 55 20 41 54 54 45 |"BEFORE YOU ATTE|
000028E0: 4D 50 54 20 54 48 45 20 55 4E 49 54 22 00 1B 31 |MPT THE UNIT"..1|
000028F0: 8E 08 99 3A 99 A3 33 29 3B 22 54 45 53 54 2E 20 |...:..3);"TEST. |
00002900: C4 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 |.O YOU WISH TO R|
00002910: 45 56 49 45 57 20 4E 4F 57 3F 22 00 4E 31 98 08 |EVIEW NOW?".N1..|
00002920: 99 3A 99 A3 33 29 3B 22 C1 4E 53 57 45 52 20 27 |.:..3);".NSWER '|
00002930: 59 27 20 4F 52 20 27 4E 27 20 22 3B 3A 55 53 24 |Y' OR 'N' ";:US$|
00002940: B2 22 59 4E 22 3A 55 4C B2 31 3A 8D 33 35 00 6B |."YN":UL.1:.35.k|
00002950: 31 A2 08 41 24 B2 C8 28 55 52 24 2C 31 29 3A 8B |1..A$..(UR$,1):.|
00002960: 41 24 B2 22 59 22 A7 31 31 38 30 00 8B 31 AC 08 |A$."Y".1180..1..|
00002970: 8B 41 24 B2 22 4E 22 A7 99 22 11 11 11 11 22 3A |.A$."N".."....":|
00002980: 9C 3A 8D 39 30 30 3A 89 33 30 30 00 95 31 B6 08 |.:.900:.300..1..|
00002990: 89 32 32 30 30 00 B6 31 C0 08 8F 20 20 20 20 22 |.2200..1... "|
000029A0: B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000029B0: C0 C0 C0 C0 AE 22 00 D7 31 CA 08 8F 20 20 20 20 |....."..1... |
000029C0: 22 DD 20 53 43 52 45 45 4E 20 42 4F 52 44 45 52 |". SCREEN BORDER|
000029D0: 20 20 20 20 20 DD 22 00 F8 31 D4 08 8F 20 20 20 | ."..1... |
000029E0: 20 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | "..............|
000029F0: C0 C0 C0 C0 C0 C0 BD 22 00 17 32 DE 08 8F 2B 2B |......."..2...++|
00002A00: 2B 2B 2B 2B 2B 2B 50 41 52 41 4D 45 54 45 52 53 |++++++PARAMETERS|
00002A10: 2B 2B 2B 2B 2B 2B 2B 00 37 32 E8 08 8F 20 20 20 |+++++++.72... |
00002A20: 20 20 44 45 24 20 2D 20 50 52 49 4E 54 20 43 48 | DE$ - PRINT CH|
00002A30: 41 52 41 43 54 45 52 00 40 32 F2 08 99 22 93 22 |ARACTER.@2..."."|
00002A40: 00 59 32 FC 08 81 4A B2 31 A4 33 39 3A 99 22 91 |.Y2...J.1.39:.".|
00002A50: 22 3B 44 45 24 3B 3A 82 4A 00 62 32 06 09 99 22 |";DE$;:.J.b2..."|
00002A60: 13 22 00 7F 32 10 09 81 4A B2 31 A4 32 33 3A 99 |."..2...J.1.23:.|
00002A70: 44 45 24 3B A3 33 38 29 3B 44 45 24 3A 82 4A 00 |DE$;.38);DE$:.J.|
00002A80: 88 32 1A 09 99 22 91 22 00 9D 32 24 09 81 4A B2 |.2..."."..2$..J.|
00002A90: 31 A4 33 39 3A 99 44 45 24 3B 3A 82 4A 00 A3 32 |1.39:.DE$;:.J..2|
00002AA0: 2E 09 8E 00 C4 32 38 09 8F 20 20 20 20 20 22 B0 |.....28.. ".|
00002AB0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002AC0: C0 C0 AE 22 00 E5 32 42 09 8F 20 20 20 20 20 22 |..."..2B.. "|
00002AD0: DD 22 4D 45 4E 55 22 20 53 55 42 52 4F 55 54 49 |."MENU" SUBROUTI|
00002AE0: 4E 45 20 DD 22 00 06 33 4C 09 8F 20 20 20 20 20 |NE ."..3L.. |
00002AF0: 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
00002B00: C0 C0 C0 C0 BD 22 00 25 33 56 09 8F 2B 2B 2B 2B |.....".%3V..++++|
00002B10: 2B 2B 2B 2B 50 41 52 41 4D 45 54 45 52 53 2B 2B |++++PARAMETERS++|
00002B20: 2B 2B 2B 2B 2B 00 46 33 60 09 8F 20 20 20 20 20 |+++++.F3`.. |
00002B30: 4F 42 31 20 2D 20 4F 42 4A 45 43 54 49 56 45 20 |OB1 - OBJECTIVE |
00002B40: 4E 55 4D 42 45 52 00 67 33 6A 09 8F 20 20 20 20 |NUMBER.g3j.. |
00002B50: 20 41 4E 24 20 2D 20 53 45 4C 45 43 54 49 4F 4E | AN$ - SELECTION|
00002B60: 20 49 4E 50 55 54 20 00 7A 33 74 09 44 45 24 B2 | INPUT .z3t.DE$.|
00002B70: 22 12 23 22 3A 8D 32 32 34 30 00 9E 33 7E 09 99 |".#":.2240..3~..|
00002B80: 22 13 11 11 11 11 22 3A 99 A3 38 29 3B 22 CF 42 |".....":..8);".B|
00002B90: 4A 45 43 54 49 56 45 20 23 22 3B 4F 42 31 00 B7 |JECTIVE #";OB1..|
00002BA0: 33 88 09 99 A3 38 29 3B 22 A3 A3 A3 A3 A3 A3 A3 |3....8);".......|
00002BB0: A3 A3 A0 A3 A3 A3 22 00 C1 33 92 09 99 22 11 11 |......"..3..."..|
00002BC0: 22 00 DC 33 9C 09 99 A3 38 29 3B 22 C4 CF A0 D9 |"..3....8);"....|
00002BD0: CF D5 A0 D7 C9 D3 C8 A0 D4 CF 3A 22 00 FA 33 A6 |..........:"..3.|
00002BE0: 09 99 3A 99 A3 34 29 3B 22 41 29 20 20 C8 C1 D6 |..:..4);"A) ...|
00002BF0: C5 A0 C1 A0 CC C5 D3 D3 CF CE 00 1F 34 B0 09 99 |............4...|
00002C00: 3A 99 A3 34 29 3B 22 42 29 20 20 C4 CF A0 D0 D2 |:..4);"B) .....|
00002C10: C1 C3 D4 C9 C3 C5 A0 D0 D2 CF C2 CC C5 CD D3 00 |................|
00002C20: 5B 34 BA 09 99 3A 99 A3 34 29 3B 22 28 C1 CE D3 |[4...:..4);"(...|
00002C30: D7 C5 D2 A0 C5 C9 D4 C8 C5 D2 20 27 41 27 20 CF |.......... 'A' .|
00002C40: D2 20 27 42 27 29 20 22 3B 3A 55 53 24 B2 22 41 |. 'B') ";:US$."A|
00002C50: 42 22 3A 55 4C B2 31 3A 8D 33 35 00 68 34 C4 09 |B":UL.1:.35.h4..|
00002C60: 41 4E 24 B2 55 52 24 3A 00 6E 34 E2 09 8E 00 8D |AN$.UR$:.n4.....|
00002C70: 34 EC 09 8F 20 20 20 20 22 B0 C0 C0 C0 C0 C0 C0 |4... ".......|
00002C80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 AC 34 |............"..4|
00002C90: F6 09 8F 20 20 20 20 22 DD 20 42 52 45 41 4B 20 |... ". BREAK |
00002CA0: 53 55 42 52 4F 55 54 49 4E 45 DD 22 00 CB 34 00 |SUBROUTINE."..4.|
00002CB0: 0A 8F 20 20 20 20 22 AD C0 C0 C0 C0 C0 C0 C0 C0 |.. ".........|
00002CC0: C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 D4 34 0A 0A |.........."..4..|
00002CD0: 8D 38 33 35 00 16 35 32 0A 99 22 13 11 11 11 11 |.835..52..".....|
00002CE0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002CF0: 11 11 22 3A 99 A3 31 29 3B 22 20 20 20 20 20 20 |..":..1);" |
00002D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002D10: 20 20 20 20 20 22 00 1C 35 3C 0A 8E 00 3E 35 46 | "..5<...>5F|
00002D20: 0A 8F 20 20 20 20 20 20 22 B0 C0 C0 C0 C0 C0 C0 |.. ".......|
00002D30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 60 |.............".`|
00002D40: 35 50 0A 8F 20 20 20 20 20 20 22 DD 49 4E 50 55 |5P.. ".INPU|
00002D50: 54 20 53 55 42 52 4F 55 54 49 4E 45 20 20 DD 22 |T SUBROUTINE ."|
00002D60: 00 82 35 5A 0A 8F 20 20 20 20 20 20 22 AD C0 C0 |..5Z.. "...|
00002D70: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002D80: BD 22 00 A3 35 64 0A 8F 2B 2B 2B 2B 2B 2B 2B 50 |."..5d..+++++++P|
00002D90: 41 52 41 4D 45 54 45 52 53 2B 2B 2B 2B 2B 2B 2B |ARAMETERS+++++++|
00002DA0: 2B 2B 2B 00 C2 35 6E 0A 8F 20 20 20 20 20 20 20 |+++..5n.. |
00002DB0: 49 4E 20 2D 20 4E 55 4D 45 52 49 43 20 49 4E 50 |IN - NUMERIC INP|
00002DC0: 55 54 00 E1 35 78 0A 8F 20 20 20 20 20 20 20 49 |UT..5x.. I|
00002DD0: 4E 24 20 2D 20 53 54 52 49 4E 47 20 49 4E 50 55 |N$ - STRING INPU|
00002DE0: 54 00 FF 35 82 0A 99 50 52 24 3B 22 3F 20 22 3B |T..5...PR$;"? ";|
00002DF0: 22 A1 22 3B 22 9D 22 3B 3A 49 4E 24 B2 22 22 00 |".";".";:IN$."".|
00002E00: 09 36 8C 0A 8D 33 35 3A 8E 00 29 36 96 0A 8B 53 |.6...35:..)6...S|
00002E10: 53 24 B2 C7 28 31 33 29 A7 49 4E B2 C5 28 49 4E |S$..(13).IN..(IN|
00002E20: 24 29 3A 99 22 20 22 3A 8E 00 46 36 A0 0A 8B C3 |$):." ":..F6....|
00002E30: 28 49 4E 24 29 B2 30 AF 53 53 24 B2 C7 28 32 30 |(IN$).0.SS$..(20|
00002E40: 29 A7 32 37 30 30 00 66 36 AA 0A 8B 53 53 24 B2 |).2700.f6...SS$.|
00002E50: C7 28 31 33 29 A7 49 4E B2 C5 28 49 4E 24 29 3A |.(13).IN..(IN$):|
00002E60: 99 22 20 22 3A 8E 00 78 36 B4 0A 99 53 53 24 3B |." ":..x6...SS$;|
00002E70: 22 A1 22 3B 22 9D 22 3B 00 AD 36 BE 0A 8B C3 28 |".";".";..6....(|
00002E80: 49 4E 24 29 B1 31 AF 53 53 24 B2 C7 28 32 30 29 |IN$).1.SS$..(20)|
00002E90: A7 49 4E 24 B2 C8 28 49 4E 24 2C 28 C3 28 49 4E |.IN$..(IN$,(.(IN|
00002EA0: 24 29 AB 31 29 29 3A 53 53 24 B2 22 22 00 D3 36 |$).1)):SS$.""..6|
00002EB0: C8 0A 8B C3 28 49 4E 24 29 B3 B2 31 AF 53 53 24 |....(IN$)..1.SS$|
00002EC0: B2 C7 28 32 30 29 A7 49 4E 24 B2 22 22 3A 89 32 |..(20).IN$."":.2|
00002ED0: 37 30 30 00 E3 36 D2 0A 49 4E 24 B2 49 4E 24 AA |700..6..IN$.IN$.|
00002EE0: 53 53 24 00 ED 36 DC 0A 89 32 37 30 30 00 0E 37 |SS$..6...2700..7|
00002EF0: E6 0A 8F 20 20 20 20 20 20 22 B0 C0 C0 C0 C0 C0 |... "......|
00002F00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 2F |............."./|
00002F10: 37 F0 0A 8F 20 20 20 20 20 20 22 DD 20 4E 55 4D |7... ". NUM|
00002F20: 42 45 52 20 47 45 4E 45 52 41 54 4F 52 DD 22 00 |BER GENERATOR.".|
00002F30: 50 37 FA 0A 8F 20 20 20 20 20 20 22 AD C0 C0 C0 |P7... "....|
00002F40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 |..............."|
00002F50: 00 71 37 04 0B 8F 2B 2B 2B 2B 2B 2B 2B 50 41 52 |.q7...+++++++PAR|
00002F60: 41 4D 45 54 45 52 53 2B 2B 2B 2B 2B 2B 2B 2B 2B |AMETERS+++++++++|
00002F70: 2B 00 8C 37 0E 0B 8F 20 20 20 20 20 20 20 4C 31 |+..7... L1|
00002F80: 20 2D 20 4C 4F 57 20 42 4F 55 4E 44 00 A6 37 18 | - LOW BOUND..7.|
00002F90: 0B 8F 20 20 20 20 20 20 20 48 31 20 2D 20 48 49 |.. H1 - HI|
00002FA0: 20 42 4F 55 4E 44 00 BD 37 22 0B 8F 20 20 20 20 | BOUND..7".. |
00002FB0: 20 20 20 52 45 54 55 52 4E 53 20 4E 47 00 C6 37 | RETURNS NG..7|
00002FC0: 2C 0B 44 46 B2 30 00 EF 37 36 0B 8B 4C 31 B3 B1 |,.DF.0..76..L1..|
00002FD0: B5 28 4C 31 29 A7 4C 31 B2 4C 31 AC 31 30 3A 48 |.(L1).L1.L1.10:H|
00002FE0: 31 B2 48 31 AC 31 30 3A 44 46 B2 44 46 AA 31 00 |1.H1.10:DF.DF.1.|
00002FF0: 15 38 40 0B 46 24 B2 C4 28 4C 31 29 3A 4C 31 B2 |.8@.F$..(L1):L1.|
00003000: C5 28 46 24 29 3A 8B 4C 31 B3 B1 B5 28 4C 31 29 |.(F$):.L1...(L1)|
00003010: A7 32 38 37 30 00 44 38 4A 0B 8B 48 31 B3 B1 B5 |.2870.D8J..H1...|
00003020: 28 48 31 29 A7 48 31 B2 48 31 AC 31 30 3A 4C 31 |(H1).H1.H1.10:L1|
00003030: B2 4C 31 AC 31 30 3A 44 46 B2 44 46 AA 31 3A 89 |.L1.10:DF.DF.1:.|
00003040: 32 38 39 30 00 6A 38 54 0B 46 24 B2 C4 28 48 31 |2890.j8T.F$..(H1|
00003050: 29 3A 48 31 B2 C5 28 46 24 29 3A 8B 48 31 B3 B1 |):H1..(F$):.H1..|
00003060: B5 28 48 31 29 A7 32 39 30 30 00 77 38 5E 0B 4D |.(H1).2900.w8^.M|
00003070: 47 B2 48 31 AB 4C 31 00 97 38 68 0B 4E 47 B2 28 |G.H1.L1..8h.NG.(|
00003080: B5 28 BB 28 54 49 29 AC 4D 47 29 AA 4C 31 29 AD |.(.(TI).MG).L1).|
00003090: 28 31 30 AE 44 46 29 00 AD 38 72 0B 4E 24 B2 C4 |(10.DF)..8r.N$..|
000030A0: 28 4E 47 29 3A 4E 47 B2 C5 28 4E 24 29 00 D6 38 |(NG):NG..(N$)..8|
000030B0: 7C 0B 8B BB 28 31 29 B3 2E 35 A7 4E 47 B2 4E 47 ||...(1)..5.NG.NG|
000030C0: AC AB 31 3A 4E 24 B2 22 28 22 AA C4 28 4E 47 29 |..1:N$."("..(NG)|
000030D0: AA 22 29 22 3A 8E 00 DC 38 86 0B 8E 00 00 00 41 |.")":...8......A|
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.+.-.." ..";:.UC,0.?.2..UI$:.UI$."".50.
I.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.8
5.|.<..UI$.G(20).105...>.. C(UR$)..UL.50
...A..120:. CHECK FOR VALID CHARACTER.E.
F.UR$.UR$.UI$.O.K..UI$;.W.P..50...U.. ++
+ CHECK FOR HELP REQUEST +++.$.Z..UR$.UX
$.195:. EXIT TO HELP ROUTINE.3._..UF.1..
240.@.D.UF.0:.:..Y.F.. ++ CHECK DELETE +
+.J.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).
1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.M.}..C(US$).0.150...
...US.1.C(US$)......UI$.J(US$,US,1).....
........UI$."":..#.... ** STANDARD INPUT
**.4....F(UI$).46...E....UI$.G(32)...B.
..F(UI$).48.F(UI$).57.170.H..........F(
UI$).65.F(UI$).90.180............F(UI$).
193.F(UI$).218.UI$."":..R....B(UT).UU%.U
I$.G(F(UI$).128):..X.........UI$."":....
C.UF.1:. +++ HELP ROUTINE EXIT +++...E..
250...H..245.;.M..UQ.UB.(U2%.256.U1%.U3%
.2).W.R.UQ%(UQ.UB).B(UQ):.:.".".J.W.UZ.1
:UV%.B(UT).S.X..300...Y.UZ.0:US$.UJ$:UG$
.UK$:UP.UJ:UL.UK.O.Z..B(50003).0..53281,
1:.".";:.53281,6:.53280,14:.220.Y...."."
;.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1
%.U3%.3)......UQ,UQ%(UQ.UB):..)....U1,U1
%.5....U2,U2%.A....U4,U4%.O....U3,U3%.1.
W....35.....UD%.((U2%.256.U1%.U3%).UB).4
0:.H(UD$,UD%.1):..D....H(UD$,24);"
. HELP COMING . ":.....
.U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4)
.....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.UL
......./.,.. ** MENU **.5.-.:.D....".":.
UT,UU%:.B(50003).0..53281,9:.53280,8.J./
.:...1..". MENU"...6.." -
-------------------------------------"..
.;..".. 1. BEGIN MICROMATH +-"..
.@..".. 2. STUDENT INSTRUCTIONS"
.2.E..".. 3. TEACHER INSTRUCTION
S".N.O..".. 4. QUIT..".}.T.." --
------------------------------------"...
Y..".. PRESS A NUMBER KEY (1-4) ";
.P.^.UL.1:US$."1234":.35:. INPUT ROUTINE
...`.US$.""...C..E(UR$).1000,400,500,396
...H..300.(.... ** RE-ENABLE STOP KEY AN
D END **.W....B(50003)..1.B(50003)..160.
B(50003)..0.399......UU.71:.B(50003).0..
53281,6:.53280,14......"..":.......875:.
...... ** STUDENT INSTRUCTIONS **......"
.":.UT,UL%:.B(50003).0..53281,0:.53280,0
.....UP.0:UG$."STUDENT INST":.850.<...:
.".... REMEMBER, HIT <RETURN> KEY AF
TER".H...: ." TYPING YOUR ANSWER. THI
S TELLS"... .: ." THE COMPUTER TO ACC
EPT WHAT YOU".....: ." HAVE TYPED..".
....: ." TYPE <H> AT ANY TIME TO RET
URN".....: ." TO THE MENU FOR HELP.
YOU WILL".6...: ." BE RETURNED TO THE
PLACE IN THE".A...: ." PROGRAM WHERE
YOU LEFT OFF AS".....: ." SOON AS TH
E OPTION FROM THE MENU".....: ." IS C
OMPLETE.":.835:.850.U...."..
MICROMATH"......". YOU WILL BE GIVEN
A LESSON ON ADDITION".2....". AND SUBRAC
TION, THEN A SMALL TEST. ".C....". ANSWE
R QUESTIONS BY ENTERING THE NUMBER".....
." EITHER POSITIVE (+) OR NEGATIVE (-)."
......835......UZ.1..UP%:.217.......T...
. ** TEACHER INSTRUCTIONS **......".":.U
T,UL%:.B(50003).0..53281,2:.53280,10.%..
.UP.0:UG$."TEACHER INST":.850.S...."..
TO THE BEST OF OUR KNOWLEDGE,.".|...
." THIS PROGRAM IS IN THE PUBLIC."....
.." DOMAIN. IF THIS IS NOT THE CASE."
.E...." PLEASE CONTACT:..."......"
COMMODORE BUSINESS MACHINES."......"
3370 PHARMACY AVE..6...."
AGINCOURT, ONTARIO".X...." C
ANADA M1W 2K4".X...." (416) 4
99-4292".....UP.1:. 835:. 850:......"
..PROGRAM NAME: MICROMATH +- ......."
WRITTEN BY : SHERIDAN COLLEGE......
." UPGRADED BY : ..2...."
.THIS PROGRAM WILL RUN ON ANY...Q....
" PET 64 COMPUTER.V...."
COMMODORE 64 COMPUTER......835:.850....
..". THIS IS A SAMPLE COPY OF MICROMAT
H."......". THE STUDENT IS GIVEN A LESSO
N ON"......". ADDITION AND SUBRACTION.".
-. ..". THE STUDENT IS THEN GIVEN A SH
ORT ".].!..". DRILL TO TEST HIS/HER KNOW
LEDGE OF THE"..."..". LESSON. IF THE ST
UDENT REQUIRES "...#..". MORE INSTRUCTIO
N, THE PET WILL ADVISE"...$..". THE STUD
ENT TO CONSULT THE TEACHER."...%..835:.8
50. .&.."..... RECOMMENDED FOR JUNIOR ST
UDENTS.".L.*..". FOR MORE PROGRAMS IN TH
IS SERIES, ".Y.,..". CONTACT SHERIDAN CO
LLAGE, OAKVILLE."...D..835...N..UZ.1..UP
%:.217...W...B.X.. ** PROGRAM MODIFICATI
ON INST **.S.Y..".":.UT,UL%...].UP.0:UG$
."PROGRAM MOD":.850......835......UZ.1..
UP%:.217.......;.... ** TO USE 8032 LOAD
CBM4032 **.Q.F..".....BEFORE RUNNING TH
IS PROGRAM ON AN 8032 .....P.." LO
AD THE 'CBM 4032' PROGRAM.............".
..Z..UU.71.......X. .. ** T I T L E P
A G E **...".."....";:.UT,UU%:.B(50003).
0..53280,14:.53281,6.".$..I.1.38:."...";
:..:.&..I.1.22:.".....";:..R.(..I.1.37:.
".....";:..J.*..I.1.22:.".....";:....,..
"........................... ......."..
................. . . ...R.0.."........
........... . ......2.."...............
..... ....4.."..............C O M M O D
O R E...;.6.."...............EDUCATIONA
L...Z.8.."................SOFTWARE.U.:..
** COMMODORE LOGO **...;..H(UD$,24);"..
........PRESS SPACE BAR OR WAIT.":I.0.O.
<..A$:.A$.." ".I.I.1:.I.250.828...>.T1$.
"":T2$."":T3$."":T4$."":I.0...@..300...C
.. ** SPACE BAR PRESS **.S.H..UO,0:.H(UD
$,24);".......PRESS SPACE BAR TO CONTINU
E.".J.L..UI$:.UI$.." ".844.P.N.....R.. *
* PAGE DESIGN ROUTINE **...S..".";...T.U
P.UP.1.M.W..H(UT$.UP$,21);I(UP$.UG$.D(UP
),18)...\.." ---------------------------
-----------"...`..UH..0.870.?.A..H(UD$,2
4);H(UP$,7);"HELP - PRESS H <RETURN>".
P.F.UH.0:."..":..O.K.. ** PLEASE WAIT RE
MARK **...P..H(UD$,24);" ONE M
OMENT PLEASE... "...U...H.... ** SET
UP VARIABLES **.....UX$."H":.UQ%(1000):
UB.32768:U1.196:U2.197:U3.198:U4.216:UC.
167:UU.1024.Q...UT.59468:UU%.12:UL%.14:U
P%.1146:UM.32768:UO.158:. 50003,0......B
(50003).0.UB.1024:U1.209:U2.210:U3.211:U
4.214:UC.204:UU.2048.S....B(50003).0.UT.
53272:UU%.21:UL%.23:UP%.2139:UM.1024:UO.
198.....UD$.".........................".
)...UP$."
".V...UT$." MICROMATH +- ":.
PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!
!!!***.|.......... ** SET VARIABLES **..
....900...... ** CHECK FOR 8032 **.X....
".":." ":. SHIFTED SPACE......B(UB.40)..
96..700.. ... ** MEMORY CHECK **.. ... .
(0).2000.937.J ..."....THIS MACHINE DOES
NOT HAVE ENOUGH.".N ..."MEMORY TO RUN T
HIS PROGRAM !".Y ...UU.71. ..... ..."..
":.B(50003).0.962.H ... ** BASIC 2.0 OR
4.0 OR C-64 SETUP **..!...1075,133:.
1076,144:.1077,234:.1079,4:.1080,133:.10
81,145.<!...1091,155:.1098,133:.1099,144
:.1100,234:.1103,133.^!...1104,145:.1105
,234:.1082,234.U!...B(50003)..160.955..!
...1093,88:.1094,228:.1097,85:.1102,228:
.965..!...B(50003)..1.990..!...1093,49:.
1094,230:.1097,46:.1102,230:.965.""B..20
99,141:.2100,20:.2101,3:.2103,8:.2104,14
1:.2105,21.^"C..2106,3:.2115,145:.2117,5
2:.2118,234:.2121,49:.2122,141.."D..2123
,20:.2124,3:.2126,234:.2127,141:.2128,21
:.2129,3.."E..UU.48:. DISABLE STOP KEY.G
"J..800:. TITLE.W"T..300:. MENU..#...".T
HE PGM WILL NOT WORK ON THIS MACHINE!":.
.=#...UZ.1..UP%:.UP%:UZ.0:. ** PROGRAM S
TARTS HERE **.H#..."..";:.:.B(50003).0..
53281,6:.53280,6..#... ".............
"..#... ". INTRO 1-2 ."..#... "...
..........".N#...UT,UL%:DE$.". ":.2240..
#$.."....."..#....8);"UNIT 1 - OBJECTIVE
2"..$8...8);".... . ......... .".'$B.
."....".T$L...3);"PERFORMING INDICATED A
DDITION AND"..$V...3);".......... ......
... ........ ..."..$`..:..13);"SUBTRACTI
ON":..13);"..........."..$J..835.Q$T..
".........."..$~.. ". 'MENU'
."..%... "..........". %..OB.2:.23
60:.AN$."B".1750.:%... ".............
.".T%... ". LESSON 1-2 .".N%... ".
............."..%..UG$."REVIEW ":UP.0:.8
50..%D...2);". INDICATED ADDITION AND SU
BTRACTION":."."..%N.." WHEN THE SIGNS AP
PEAR BEFORE A NUMBER,"..&X..:." THE FIRS
T SIGN INDICATES THE OPERATION".O&...".
TO BE PERFORMED '+' INDICATES ADDITION".
~&...:." AND '-' INDICATES SUBTRACTION W
HILE "..&...:." THE SECOND SIGN INDICATE
S WHETHER ".Z&...:." THE NUMBER IS POSI
TIVE OR NEGATIVE."..&...835..&(..850..'2
.."(A) 4 + (+3) MEANS: TO +4 ADD +3".@'
<..:."(B) 4 + (-3) MEANS: TO +4 ADD -3"
.R'F..:."(C) 4 - (+3) MEANS: FROM +4 SU
BTRACT +3"..'P.."(D) 4 - (-3) MEANS: FR
OM +4 SUBTRACT -3".P'Z.."TO SOLVE SUCH P
ROBLEMS, SIMPLIFY FIRST"..'D..:."BY REPL
ACING THE TWO SIGNS BY USING".&(N..:."ON
E OF THE FOLLOWING TWO RULES:".I(X..:."(
1) IF THE FIRST SIGN IS '+', KEEP":.;.4)
;"THE SECOND SIGN..(...:."(2) IF THE FIR
ST SIGN IS '-', CHANGE".B(....4);"THE SE
COND SIGN FROM '+' TO '-'"..(....4);"OR
FROM '-' TO '+'."..( ..835:.850..)H..:."
(A) 4 + (+3) = 4 + 3 = 7".7)R..:..2);"FI
RST SIGN '+': KEEP '+'".Y)...:."(B) 4 +
(-3) = 4 - 3 = 1".)...:..2);"FIRST SIGN
'+': KEEP '-'"..)...:."(C) 4 - (+3) = 4
- 3 = 1".P)...:..2);"FIRST SIGN '-': CH
ANGE '+' TO '-'"..)...:."(D) 4 - (-3) =
4 + 3 = 7".!*...:..2);"FIRST SIGN '-': C
HANGE '-' TO '+'"./*...835:.850.W*6..:."
(E) -6 + (-2) = (-6)+(-2) = -8".}*@..:..
2);"FIRST SIGN '+': KEEP '-'"..*J..:."(F
) -3 - (-7) = (-3) + 7 = 4".R*T..:..2);"
FIRST SIGN '-': CHANGE '-' TO '+'"..*^..
:."(G) 6 - (8) = 6 - 8 = (-2)".%+H..:..2
);"FIRST SIGN '-': CHANGE '+' TO '-'".M+
R..:."(H) -3 - (5) = (-3) - 5 = (-8)".|+
|..:..2);"FIRST SIGN '-': CHANGE '+' TO
'-'"..+...835:.850..+..."....".E+..."REM
EMBER: IF A NUMBER IS NOT EXPLICITLY"..+
...:..10);"SIGNED THEN IT IS ASSUMED TO"
..,...:..10);"BE POSITIVE.".4,..."...":.
.2);"EXAMPLE: (4) = +4 = 4".O,B..:..13)
;"3 = +3 = (3)".X,L..835.Q,V.. "....
........"..,... ". TEST 1-2 ."..,...
"............"..,..."..".U,..." SIM
PLIFY EACH OF THE FOLLOWING:"..,..R1.0:C
T.1:L1.0:H1.15..-...2790:A.NG:A$.N$:.279
0:B.NG:B$.N$:S$."+"./-....(1)..5.S$."-".
H-&..S$."-".A1.A.B:.1850.S-0.A1.A.B..-:.
.".";CT;".. ";A$;" ";S$;" ";B$;" = ";:US
$."1234567890-+H":UL.3:.35..-D.A2.E(UR$)
.U-N..A1.A2..".";.23);"CORRECT":R1.R1.1:
.1900...X...(A1)..(A2)..".";.23)"WRONG S
IGN; ";A1:.1900.(.B..".";.23);"WRONG; ";
A1:.1900.I.L.. "..................
".J.V.. ". MARKING SUBRTN ."......
".................."...... CT =
QUESTION CTR...... R1 = NUMBER CORRECT.
E.....Y....CT.3.R1.3.2010......CT.5.R1.4
.2010......CT.8.2010../F..CT.4.R1.0.2010
."/P.CT.CT.1:.1810.:/Z..835:DE$.".*":.22
40.F/..."....".Y/..MR.(R1.CT).100.J/...M
R..75.2100.{/...MR..50.2170../....3)"PLE
ASE SEE YOUR INSTRUCTOR FOR".O/...:..3);
"ASSISTANCE WITH THIS MATERIAL"../ ..:..
3);"BEFORE GOING ON."..0*.."....":.835:.
:.900:.300..04...3);"YOU HAVE PASSED THE
TEST".P0>..:..3);"FOR THIS OBJECTIVE. "
.Y0R..835.I0\..:.900:.300..0F..:..3);"AN
SWER 'Y' OR 'N'";:.2630..0P..1970.D0Z...
3);"YOU SHOULD REVIEW THIS MATERIAL"..0.
..:..3);"BEFORE YOU ATTEMPT THE UNIT"..1
...:..3);"TEST. DO YOU WISH TO REVIEW NO
W?".N1...:..3);"ANSWER 'Y' OR 'N' ";:US$
."YN":UL.1:.35.K1..A$.H(UR$,1):.A$."Y".1
180..1...A$."N".."....":.:.900:.300..1..
.2200..1... ".....................".W
1J.. ". SCREEN BORDER ."..1T..
"....................."..2...++++++++PA
RAMETERS+++++++.72... DE$ - PRINT CH
ARACTER.@2...".".Y2...J.1.39:.".";DE$;:.
J.B2...".".2...J.1.23:.DE$;.38);DE$:.J.
.2..."."..2$..J.1.39:.DE$;:.J..2....D28.
. "...................."..2B.. "
."MENU" SUBROUTINE ."..3L.. ".......
.............".%3V..++++++++PARAMETERS++
+++++.F3`.. OB1 - OBJECTIVE NUMBER.G
3J.. AN$ - SELECTION INPUT .Z3T.DE$.
".#":.2240..3~..".....":..8);"OBJECTIVE
#";OB1..3....8);"......... ...".A3..."..
"..3....8);"DO YOU WISH TO:"..3...:..4);
"A) HAVE A LESSON..4...:..4);"B) DO PR
ACTICE PROBLEMS.[4...:..4);"(ANSWER EITH
ER 'A' OR 'B') ";:US$."AB":UL.1:.35.H4D.
AN$.UR$:.N4.....4... "...............
...."..4... ". BREAK SUBROUTINE.".K4.
.. "...................".T4...835..52
..".......................":..1);"
"..5<...>5F..
"....................".`5P.. ".INPU
T SUBROUTINE ."..5Z.. "...........
........."..5D..+++++++PARAMETERS+++++++
+++.B5N.. IN - NUMERIC INPUT..5X..
IN$ - STRING INPUT..5...PR$;"? ";
".";".";:IN$.""..6...35:..)6...SS$.G(13)
.IN.E(IN$):." ":..F6 ..C(IN$).0.SS$.G(20
).2700.F6...SS$.G(13).IN.E(IN$):." ":..X
6...SS$;".";".";..6...C(IN$).1.SS$.G(20)
.IN$.H(IN$,(C(IN$).1)):SS$."".S6H..C(IN$
)..1.SS$.G(20).IN$."":.2700..6R.IN$.IN$.
SS$..6...2700..7... "..............
....."./7... ". NUMBER GENERATOR.".
P7... "...................".Q7...++
+++++PARAMETERS++++++++++..7... L1
- LOW BOUND..7... H1 - HI BOUND..
7".. RETURNS NG.F7,.DF.0..76..L1..
.(L1).L1.L1.10:H1.H1.10:DF.DF.1..8@.F$.D
(L1):L1.E(F$):.L1...(L1).2870.D8J..H1...
(H1).H1.H1.10:L1.L1.10:DF.DF.1:.2890.J8T
.F$.D(H1):H1.E(F$):.H1...(H1).2900.W8^.M
G.H1.L1..8H.NG.(.(.(TI).MG).L1).(10.DF).
.8R.N$.D(NG):NG.E(N$).V8|...(1)..5.NG.NG
..1:N$."(".D(NG).")":...8......A
> CLICK IMAGE PREVIEW FOR FULL MODAL