MICROMATH +-
FILE INFORMATION
FILENAME(S): MICROMATH +-
FILE TYPE(S): PRG
FILE SIZE: 12.3K
FIRST SEEN: 2025-12-02 00:17:26
APPEARS ON: 1 disk(s)
FILE HASH
38fd9af8eb235c517d2947b131d9878cebf3d4d96286ba5556d130d7576813ee
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUB DOMAIN | MICROMATH +- | PRG | Maestro | 25 | 9 | 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 30 2C 30 3A 55 52 24 B2 22 |...(..U0,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 22 09 2D 00 97 55 43 |.0.UL.80.".-..UC|
00000120: 2C 30 00 36 09 32 00 A1 55 49 24 3A 8B 55 49 24 |,0.6.2..UI$:.UI$|
00000130: B2 22 22 A7 35 30 00 60 09 37 00 8B 55 49 24 B2 |."".50.`.7..UI$.|
00000140: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
00000150: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
00000160: 00 73 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).|
00000170: 31 30 35 00 87 09 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000180: B2 B1 55 4C A7 35 30 00 AC 09 41 00 8D 31 32 30 |..UL.50...A..120|
00000190: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
000001A0: 49 44 20 43 48 41 52 41 43 54 45 52 00 BC 09 46 |ID CHARACTER...F|
000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 09 4B |.UR$.UR$.UI$...K|
000001C0: 00 99 55 49 24 3B 00 CE 09 50 00 89 35 30 00 F3 |..UI$;...P..50..|
000001D0: 09 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 |.U.. +++ CHECK F|
000001E0: 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 |OR HELP REQUEST |
000001F0: 2B 2B 2B 00 1B 0A 5A 00 8B 55 52 24 B2 55 58 24 |+++...Z..UR$.UX$|
00000200: A7 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 |.195:. EXIT TO H|
00000210: 45 4C 50 20 52 4F 55 54 49 4E 45 00 2A 0A 5F 00 |ELP ROUTINE.*._.|
00000220: 8B 55 46 B2 31 A7 8D 32 34 30 00 37 0A 64 00 55 |.UF.1..240.7.d.U|
00000230: 46 B2 30 3A 99 3A 8E 00 50 0A 66 00 8F 20 2B 2B |F.0:.:..P.f.. ++|
00000240: 20 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B | CHECK DELETE ++|
00000250: 00 61 0A 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 |.a.i...(UR$).1.5|
00000260: 30 00 79 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C |0.y.n.UR$..(UR$,|
00000270: C3 28 55 52 24 29 AB 31 29 00 8B 0A 73 00 99 22 |.(UR$).1)...s.."|
00000280: 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B2 0A 78 00 |. ..";:.50...x.|
00000290: 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 |. ++ CHECK FOR V|
000002A0: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 |ALID CHARACTERS |
000002B0: 2B 2B 00 C4 0A 7D 00 8B C3 28 55 53 24 29 B2 30 |++...}...(US$).0|
000002C0: A7 31 35 30 00 D5 0A 82 00 81 55 53 B2 31 A4 C3 |.150......US.1..|
000002D0: 28 55 53 24 29 00 EC 0A 87 00 8B 55 49 24 B2 CA |(US$)......UI$..|
000002E0: 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 F2 0A 8C |(US$,US,1)......|
000002F0: 00 82 00 FF 0A 91 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
00000300: 1A 0B 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 |..... ** STANDAR|
00000310: 44 20 49 4E 50 55 54 20 2A 2A 00 2B 0B 98 00 8B |D INPUT **.+....|
00000320: C6 28 55 49 24 29 B2 34 36 A7 8E 00 3C 0B 9B 00 |.(UI$).46...<...|
00000330: 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 59 0B A0 |.UI$..(32)...Y..|
00000340: 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 |...(UI$).48..(UI|
00000350: 24 29 B1 35 37 A7 31 37 30 00 5F 0B A5 00 8E 00 |$).57.170._.....|
00000360: 7C 0B AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 ||.....(UI$).65..|
00000370: 28 55 49 24 29 B1 39 30 A7 31 38 30 00 82 0B AF |(UI$).90.180....|
00000380: 00 8E 00 A6 0B B4 00 8B C6 28 55 49 24 29 B3 31 |.........(UI$).1|
00000390: 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 |93..(UI$).218.UI|
000003A0: 24 B2 22 22 3A 8E 00 C9 0B B9 00 8B C2 28 55 54 |$."":........(UT|
000003B0: 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 |).UU%.UI$..(.(UI|
000003C0: 24 29 AB 31 32 38 29 3A 8E 00 CF 0B BB 00 8E 00 |$).128):........|
000003D0: DC 0B BE 00 55 49 24 B2 22 22 3A 8E 00 01 0C C3 |....UI$."":.....|
000003E0: 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 |.UF.1:. +++ HELP|
000003F0: 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B | ROUTINE EXIT ++|
00000400: 2B 00 0A 0C C5 00 8D 32 35 30 00 13 0C C8 00 8D |+......250......|
00000410: 32 34 35 00 32 0C CD 00 81 55 51 B2 55 42 A4 28 |245.2....UQ.UB.(|
00000420: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
00000430: 32 29 00 4E 0C D2 00 55 51 25 28 55 51 AB 55 42 |2).N...UQ%(UQ.UB|
00000440: 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 61 |)..(UQ):.:.".".a|
00000450: 0C D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 |...UZ.1:UV%..(UT|
00000460: 29 00 6A 0C D8 00 89 33 30 30 00 AD 0C D9 00 55 |).j....300.....U|
00000470: 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 |Z.0:US$.UJ$:UG$.|
00000480: 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 3A |UK$:UP.UJ:UL.UK:|
00000490: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
000004A0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 36 00 E2 0C |81,6:.53280,6...|
000004B0: DC 00 55 54 24 B2 55 4C 24 3A 99 22 93 22 3B 3A |..UT$.UL$:.".";:|
000004C0: 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 |.UT,UV%:.UQ.UB.(|
000004D0: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
000004E0: 33 29 00 F7 0C E1 00 97 55 51 2C 55 51 25 28 55 |3)......UQ,UQ%(U|
000004F0: 51 AB 55 42 29 3A 82 00 03 0D E6 00 97 55 31 2C |Q.UB):.......U1,|
00000500: 55 31 25 00 0F 0D E8 00 97 55 32 2C 55 32 25 00 |U1%......U2,U2%.|
00000510: 1B 0D E9 00 97 55 34 2C 55 34 25 00 29 0D EA 00 |.....U4,U4%.)...|
00000520: 97 55 33 2C 55 33 25 AB 31 00 31 0D EB 00 89 33 |.U3,U3%.1.1....3|
00000530: 35 00 63 0D F0 00 55 44 25 B2 28 28 55 32 25 AC |5.c...UD%.((U2%.|
00000540: 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 |256.U1%.U3%).UB)|
00000550: AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 |.40:..(UD$,UD%.1|
00000560: 29 3A 8E 00 9E 0D F5 00 99 C8 28 55 44 24 2C 32 |):........(UD$,2|
00000570: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" |
00000580: 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 | . HELP|
00000590: 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 CA | COMING . ":...|
000005A0: 0D FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 |...U1%..(U1):U2%|
000005B0: B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 |..(U2):U3%..(U3)|
000005C0: 3A 55 34 25 B2 C2 28 55 34 29 00 F2 0D FB 00 55 |:U4%..(U4).....U|
000005D0: 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 |J$.US$:UK$.UG$:U|
000005E0: 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 |L$.UT$:UJ.UP:UK.|
000005F0: 55 4C 00 F8 0D FF 00 8E 00 09 0E 2C 01 8F 20 2A |UL.........,.. *|
00000600: 2A 20 4D 45 4E 55 20 2A 2A 00 0F 0E 2D 01 3A 00 |* MENU **...-.:.|
00000610: 3E 0E 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 25 |>....".":.UT,UU%|
00000620: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
00000630: 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 44 |281,9:.53280,8.D|
00000640: 0E 2F 01 3A 00 61 0E 31 01 99 22 13 20 20 20 20 |./.:.a.1..". |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E 55 | MENU|
00000660: 22 00 90 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D |"...6.." -------|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00000690: 00 B8 0E 3B 01 99 22 11 11 20 20 20 20 20 20 20 |...;..".. |
000006A0: 31 2E 20 20 20 42 45 47 49 4E 20 4D 49 43 52 4F |1. BEGIN MICRO|
000006B0: 4D 41 54 48 20 2B 2D 22 00 E2 0E 40 01 99 22 11 |MATH +-"...@..".|
000006C0: 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 54 55 |. 2. STU|
000006D0: 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E |DENT INSTRUCTION|
000006E0: 53 22 00 0C 0F 45 01 99 22 11 11 20 20 20 20 20 |S"...E..".. |
000006F0: 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 20 49 | 3. TEACHER I|
00000700: 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 28 0F 4F |NSTRUCTIONS".(.O|
00000710: 01 99 22 11 11 20 20 20 20 20 20 20 34 2E 20 20 |..".. 4. |
00000720: 20 51 55 49 54 11 11 22 00 57 0F 54 01 99 22 20 | QUIT..".W.T.." |
00000730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000750: 2D 2D 2D 2D 2D 2D 22 00 82 0F 59 01 99 22 11 11 |------"...Y.."..|
00000760: 20 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E | PRESS A N|
00000770: 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 29 20 |UMBER KEY (1-4) |
00000780: 22 3B 00 AA 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 |";...^.UL.1:US$.|
00000790: 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 |"1234":.35:. INP|
000007A0: 55 54 20 52 4F 55 54 49 4E 45 00 B5 0F 60 01 55 |UT ROUTINE...`.U|
000007B0: 53 24 B2 22 22 00 D2 0F 63 01 91 C5 28 55 52 24 |S$.""...c...(UR$|
000007C0: 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 |).1000,400,500,3|
000007D0: 39 36 00 DB 0F 68 01 89 33 30 30 00 02 10 8B 01 |96...h..300.....|
000007E0: 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 |. ** RE-ENABLE S|
000007F0: 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 |TOP KEY AND END |
00000800: 2A 2A 00 31 10 8C 01 8B C2 28 35 30 30 30 33 29 |**.1.....(50003)|
00000810: B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 |..1..(50003)..16|
00000820: 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 |0..(50003)..0.39|
00000830: 39 00 5B 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 |9.[....UU.71:..(|
00000840: 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C |50003).0..53281,|
00000850: 36 3A 97 35 33 32 38 30 2C 31 34 00 67 10 8E 01 |6:.53280,14.g...|
00000860: 99 22 9A 93 22 3A 80 00 72 10 8F 01 8D 38 37 35 |."..":..r....875|
00000870: 3A 8E 00 93 10 90 01 8F 20 2A 2A 20 53 54 55 44 |:....... ** STUD|
00000880: 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |ENT INSTRUCTIONS|
00000890: 20 2A 2A 00 C2 10 95 01 99 22 93 22 3A 97 55 54 | **......".":.UT|
000008A0: 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UL%:..(50003).0|
000008B0: A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 |..53281,0:.53280|
000008C0: 2C 30 00 E3 10 9A 01 55 50 B2 30 3A 55 47 24 B2 |,0.....UP.0:UG$.|
000008D0: 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A 8D |".TUDENT .NST":.|
000008E0: 38 35 30 00 16 11 9C 01 3A 20 20 99 22 11 11 11 |850.....: ."...|
000008F0: 11 20 20 20 20 D2 45 4D 45 4D 42 45 52 2C 20 48 |. .EMEMBER, H|
00000900: 49 54 20 3C 52 45 54 55 52 4E 3E 20 4B 45 59 20 |IT <RETURN> KEY |
00000910: 41 46 54 45 52 22 00 42 11 9E 01 3A 20 20 99 22 |AFTER".B...: ."|
00000920: 20 20 20 54 59 50 49 4E 47 20 59 4F 55 52 20 41 | TYPING YOUR A|
00000930: 4E 53 57 45 52 2E 20 D4 48 49 53 20 54 45 4C 4C |NSWER. .HIS TELL|
00000940: 53 22 00 6F 11 A0 01 3A 20 20 99 22 20 20 20 54 |S".o...: ." T|
00000950: 48 45 20 43 4F 4D 50 55 54 45 52 20 54 4F 20 41 |HE COMPUTER TO A|
00000960: 43 43 45 50 54 20 57 48 41 54 20 59 4F 55 22 00 |CCEPT WHAT YOU".|
00000970: 89 11 A2 01 3A 20 20 99 22 20 20 20 48 41 56 45 |....: ." HAVE|
00000980: 20 54 59 50 45 44 2E 11 22 00 B6 11 A4 01 3A 20 | TYPED..".....: |
00000990: 20 99 22 20 20 20 20 D4 59 50 45 20 3C 48 3E 20 | ." .YPE <H> |
000009A0: 41 54 20 41 4E 59 20 54 49 4D 45 20 54 4F 20 52 |AT ANY TIME TO R|
000009B0: 45 54 55 52 4E 22 00 E3 11 A6 01 3A 20 20 99 22 |ETURN".....: ."|
000009C0: 20 20 20 54 4F 20 54 48 45 20 4D 45 4E 55 20 46 | TO THE MENU F|
000009D0: 4F 52 20 48 45 4C 50 2E 20 20 D9 4F 55 20 57 49 |OR HELP. .OU WI|
000009E0: 4C 4C 22 00 10 12 A8 01 3A 20 20 99 22 20 20 20 |LL".....: ." |
000009F0: 42 45 20 52 45 54 55 52 4E 45 44 20 54 4F 20 54 |BE RETURNED TO T|
00000A00: 48 45 20 50 4C 41 43 45 20 49 4E 20 54 48 45 22 |HE PLACE IN THE"|
00000A10: 00 3B 12 AA 01 3A 20 20 99 22 20 20 20 50 52 4F |.;...: ." PRO|
00000A20: 47 52 41 4D 20 57 48 45 52 45 20 59 4F 55 20 4C |GRAM WHERE YOU L|
00000A30: 45 46 54 20 4F 46 46 20 41 53 22 00 69 12 AC 01 |EFT OFF AS".i...|
00000A40: 3A 20 20 99 22 20 20 20 53 4F 4F 4E 20 41 53 20 |: ." SOON AS |
00000A50: 54 48 45 20 4F 50 54 49 4F 4E 20 46 52 4F 4D 20 |THE OPTION FROM |
00000A60: 54 48 45 20 4D 45 4E 55 22 00 8D 12 AE 01 3A 20 |THE MENU".....: |
00000A70: 20 99 22 20 20 20 49 53 20 43 4F 4D 50 4C 45 54 | ." IS COMPLET|
00000A80: 45 2E 22 3A 8D 38 33 35 3A 8D 38 35 30 00 AF 12 |E.":.835:.850...|
00000A90: B8 01 99 22 11 11 20 20 20 20 20 20 20 20 20 20 |...".. |
00000AA0: 20 20 20 20 20 CD C9 C3 D2 CF CD C1 D4 C8 22 00 | .........".|
00000AB0: DF 12 B9 01 99 22 11 20 D9 4F 55 20 57 49 4C 4C |.....". .OU WILL|
00000AC0: 20 42 45 20 47 49 56 45 4E 20 41 20 4C 45 53 53 | BE GIVEN A LESS|
00000AD0: 4F 4E 20 4F 4E 20 41 44 44 49 54 49 4F 4E 22 00 |ON ON ADDITION".|
00000AE0: 0C 13 BA 01 99 22 11 20 41 4E 44 20 53 55 42 52 |.....". AND SUBR|
00000AF0: 41 43 54 49 4F 4E 2C 20 54 48 45 4E 20 41 20 53 |ACTION, THEN A S|
00000B00: 4D 41 4C 4C 20 54 45 53 54 2E 20 22 00 3D 13 BC |MALL TEST. ".=..|
00000B10: 01 99 22 11 20 C1 4E 53 57 45 52 20 51 55 45 53 |..". .NSWER QUES|
00000B20: 54 49 4F 4E 53 20 42 59 20 45 4E 54 45 52 49 4E |TIONS BY ENTERIN|
00000B30: 47 20 54 48 45 20 4E 55 4D 42 45 52 22 00 6A 13 |G THE NUMBER".j.|
00000B40: BD 01 99 22 20 45 49 54 48 45 52 20 50 4F 53 49 |..." EITHER POSI|
00000B50: 54 49 56 45 20 28 2B 29 20 4F 52 20 4E 45 47 41 |TIVE (+) OR NEGA|
00000B60: 54 49 56 45 20 28 2D 29 2E 22 00 73 13 E5 01 8D |TIVE (-).".s....|
00000B70: 38 33 35 00 87 13 EA 01 8B 55 5A B2 31 A7 9E 55 |835......UZ.1..U|
00000B80: 50 25 3A 89 32 31 37 00 8D 13 F3 01 8E 00 AE 13 |P%:.217.........|
00000B90: F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 |... ** TEACHER I|
00000BA0: 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 DE |NSTRUCTIONS **..|
00000BB0: 13 F5 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A |....".":.UT,UL%:|
00000BC0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00000BD0: 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 FF |81,2:.53280,10..|
00000BE0: 13 F6 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 |...UP.0:UG$.".EA|
00000BF0: 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 |CHER .NST":.850.|
00000C00: 2D 14 F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F |-....".. .O|
00000C10: 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 | THE BEST OF OUR|
00000C20: 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 56 14 | KNOWLEDGE,.".V.|
00000C30: F8 01 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 |..." THIS PROG|
00000C40: 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 |RAM IS IN THE PU|
00000C50: 42 4C 49 43 11 22 00 82 14 F9 01 99 22 20 20 20 |BLIC."......" |
00000C60: 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 |DOMAIN. .F THIS|
00000C70: 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 | IS NOT THE CASE|
00000C80: 11 22 00 9F 14 FA 01 99 22 20 20 20 50 4C 45 41 |."......" PLEA|
00000C90: 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 |SE CONTACT:...".|
00000CA0: C9 14 FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D |....." .OMM|
00000CB0: 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD |ODORE .USINESS .|
00000CC0: 41 43 48 49 4E 45 53 11 22 00 EC 14 FC 01 99 22 |ACHINES."......"|
00000CD0: 20 20 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 | 3370 .|
00000CE0: 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 10 15 FD |HARMACY .VE.....|
00000CF0: 01 99 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 |.." .GI|
00000D00: 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 |NCOURT, .NTARIO"|
00000D10: 00 32 15 FE 01 99 22 20 20 20 20 20 20 20 20 20 |.2...." |
00000D20: 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB | .ANADA .1. 2.|
00000D30: 34 22 00 52 15 FF 01 99 22 20 20 20 20 20 20 20 |4".R...." |
00000D40: 20 20 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 | (416) 499-429|
00000D50: 32 22 00 68 15 00 02 55 50 B2 31 3A 8D 20 38 33 |2".h...UP.1:. 83|
00000D60: 35 3A 8D 20 38 35 30 3A 00 92 15 01 02 99 22 20 |5:. 850:......" |
00000D70: 20 20 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 | ...ROGRAM .A|
00000D80: 4D 45 3A 20 CD 49 43 52 4F 4D 41 54 48 20 2B 2D |ME: .ICROMATH +-|
00000D90: 20 11 00 BD 15 02 02 99 22 20 20 20 20 20 D7 52 | ......." .R|
00000DA0: 49 54 54 45 4E 20 C2 59 20 20 3A 20 D3 48 45 52 |ITTEN .Y : .HER|
00000DB0: 49 44 41 4E 20 C3 4F 4C 4C 45 47 45 11 00 E1 15 |IDAN .OLLEGE....|
00000DC0: 03 02 99 22 20 20 20 20 20 D5 50 47 52 41 44 45 |..." .PGRADE|
00000DD0: 44 20 C2 59 20 3A 20 20 20 20 20 20 20 20 20 20 |D .Y : |
00000DE0: 11 00 0C 16 04 02 99 22 20 20 20 20 20 11 D4 48 |......." ..H|
00000DF0: 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 |IS PROGRAM WILL |
00000E00: 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 33 16 05 |RUN ON ANY...3..|
00000E10: 02 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 |.." ....|
00000E20: C3 A0 32 2E 30 20 D0 C5 D4 20 C3 CF CD D0 D5 D4 |..2.0 ... ......|
00000E30: C5 D2 11 00 5A 16 06 02 99 22 20 20 20 20 20 20 |....Z...." |
00000E40: 20 20 20 C2 C1 D3 C9 C3 20 34 2E 30 20 D0 C5 D4 | ..... 4.0 ...|
00000E50: A0 C3 CF CD D0 D5 D4 C5 D2 11 00 7C 16 07 02 99 |...........|....|
00000E60: 22 20 20 20 20 20 20 20 20 20 38 30 33 32 20 C3 |" 8032 .|
00000E70: C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 11 00 A1 16 08 |.. .............|
00000E80: 02 99 22 20 20 20 20 20 20 20 20 20 C3 CF CD CD |.." ....|
00000E90: CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 |..... 64 .......|
00000EA0: D2 00 AF 16 09 02 8D 38 33 35 3A 8D 38 35 30 00 |.......835:.850.|
00000EB0: DE 16 1D 02 99 22 11 20 20 20 D4 48 49 53 20 49 |.....". .HIS I|
00000EC0: 53 20 41 20 53 41 4D 50 4C 45 20 43 4F 50 59 20 |S A SAMPLE COPY |
00000ED0: 4F 46 20 CD C9 C3 D2 CF CD C1 D4 C8 2E 22 00 08 |OF .........."..|
00000EE0: 17 1E 02 99 22 11 20 D4 48 45 20 53 54 55 44 45 |....". .HE STUDE|
00000EF0: 4E 54 20 49 53 20 47 49 56 45 4E 20 41 20 4C 45 |NT IS GIVEN A LE|
00000F00: 53 53 4F 4E 20 4F 4E 22 00 2A 17 1F 02 99 22 11 |SSON ON".*....".|
00000F10: 20 41 44 44 49 54 49 4F 4E 20 41 4E 44 20 53 55 | ADDITION AND SU|
00000F20: 42 52 41 43 54 49 4F 4E 2E 22 00 58 17 20 02 99 |BRACTION.".X. ..|
00000F30: 22 11 20 20 20 D4 48 45 20 53 54 55 44 45 4E 54 |". .HE STUDENT|
00000F40: 20 49 53 20 54 48 45 4E 20 47 49 56 45 4E 20 41 | IS THEN GIVEN A|
00000F50: 20 53 48 4F 52 54 20 22 00 88 17 21 02 99 22 11 | SHORT "...!..".|
00000F60: 20 44 52 49 4C 4C 20 54 4F 20 54 45 53 54 20 48 | DRILL TO TEST H|
00000F70: 49 53 2F 48 45 52 20 4B 4E 4F 57 4C 45 44 47 45 |IS/HER KNOWLEDGE|
00000F80: 20 4F 46 20 54 48 45 22 00 B3 17 22 02 99 22 11 | OF THE"..."..".|
00000F90: 20 4C 45 53 53 4F 4E 2E 20 20 C9 46 20 54 48 45 | LESSON. .F THE|
00000FA0: 20 53 54 55 44 45 4E 54 20 52 45 51 55 49 52 45 | STUDENT REQUIRE|
00000FB0: 53 20 22 00 E2 17 23 02 99 22 11 20 4D 4F 52 45 |S "...#..". MORE|
00000FC0: 20 49 4E 53 54 52 55 43 54 49 4F 4E 2C 20 54 48 | INSTRUCTION, TH|
00000FD0: 45 20 D0 C5 D4 20 57 49 4C 4C 20 41 44 56 49 53 |E ... WILL ADVIS|
00000FE0: 45 22 00 0F 18 24 02 99 22 11 20 54 48 45 20 53 |E"...$..". THE S|
00000FF0: 54 55 44 45 4E 54 20 54 4F 20 43 4F 4E 53 55 4C |TUDENT TO CONSUL|
00001000: 54 20 54 48 45 20 54 45 41 43 48 45 52 2E 22 00 |T THE TEACHER.".|
00001010: 1D 18 25 02 8D 38 33 35 3A 8D 38 35 30 00 4B 18 |..%..835:.850.K.|
00001020: 26 02 99 22 11 11 11 11 11 20 D2 45 43 4F 4D 4D |&.."..... .ECOMM|
00001030: 45 4E 44 45 44 20 46 4F 52 20 4A 55 4E 49 4F 52 |ENDED FOR JUNIOR|
00001040: 20 53 54 55 44 45 4E 54 53 2E 22 00 77 18 2A 02 | STUDENTS.".w.*.|
00001050: 99 22 11 20 C6 4F 52 20 4D 4F 52 45 20 50 52 4F |.". .OR MORE PRO|
00001060: 47 52 41 4D 53 20 49 4E 20 54 48 49 53 20 53 45 |GRAMS IN THIS SE|
00001070: 52 49 45 53 2C 20 22 00 A4 18 2C 02 99 22 11 20 |RIES, "...,..". |
00001080: 43 4F 4E 54 41 43 54 20 D3 48 45 52 49 44 41 4E |CONTACT .HERIDAN|
00001090: 20 C3 4F 4C 4C 41 47 45 2C 20 CF 41 4B 56 49 4C | .OLLAGE, .AKVIL|
000010A0: 4C 45 2E 22 00 AD 18 44 02 8D 38 33 35 00 C1 18 |LE."...D..835...|
000010B0: 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 |N..UZ.1..UP%:.21|
000010C0: 37 00 C7 18 57 02 8E 00 ED 18 58 02 8F 20 2A 2A |7...W.....X.. **|
000010D0: 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 49 43 | PROGRAM MODIFIC|
000010E0: 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 FE 18 |ATION INST **...|
000010F0: 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 00 1E |Y..".":.UT,UL%..|
00001100: 19 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 4F |.].UP.0:UG$.".RO|
00001110: 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 27 |GRAM .OD":.850.'|
00001120: 19 94 02 8D 38 33 35 00 3B 19 B2 02 8B 55 5A B2 |....835.;....UZ.|
00001130: 31 A7 9E 55 50 25 3A 89 32 31 37 00 41 19 BB 02 |1..UP%:.217.A...|
00001140: 8E 00 66 19 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 |..f.... ** TO US|
00001150: 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 |E 8032 LOAD CBM4|
00001160: 30 33 32 20 2A 2A 00 9C 19 C6 02 99 22 93 11 11 |032 **......"...|
00001170: 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 |..BEFORE RUNNING|
00001180: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E | THIS PROGRAM ON|
00001190: 20 41 4E 20 38 30 33 32 20 20 11 11 00 D2 19 D0 | AN 8032 ......|
000011A0: 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 |.." LOAD TH|
000011B0: 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F |E 'CBM 4032' PRO|
000011C0: 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 |GRAM............|
000011D0: 11 22 00 DD 19 DA 02 9E 55 55 AA 37 31 00 E3 19 |."......UU.71...|
000011E0: E4 02 80 00 03 1A 20 03 8F 20 2A 2A 20 54 20 49 |...... .. ** T I|
000011F0: 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 | T L E P A G E|
00001200: 20 2A 2A 00 37 1A 22 03 99 22 93 11 1D 05 22 3B | **.7.".."....";|
00001210: 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 |:.UT,UU%:..(5000|
00001220: 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 |3).0..53280,14:.|
00001230: 35 33 32 38 31 2C 36 00 4D 1A 24 03 81 49 B2 31 |53281,6.M.$..I.1|
00001240: A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 65 1A |.38:."...";:..e.|
00001250: 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 |&..I.1.22:."....|
00001260: 92 22 3B 3A 82 00 7D 1A 28 03 81 49 B2 31 A4 33 |.";:..}.(..I.1.3|
00001270: 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 95 1A |7:.".....";:....|
00001280: 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 |*..I.1.22:."....|
00001290: 92 22 3B 3A 82 00 BA 1A 2C 03 99 22 13 11 11 11 |.";:....,.."....|
000012A0: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000012B0: 1D 1D 1D 1D 1D 12 A9 20 20 92 00 DC 1A 2E 03 99 |....... .......|
000012C0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000012D0: 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 FD 1A 30 |.... . . .....0|
000012E0: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000012F0: 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 1B 1B |...... . ......|
00001300: 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |2.."............|
00001310: 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 43 1B 34 03 |........ ..C.4.|
00001320: 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001330: 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 |C O M M O D O R |
00001340: 45 11 11 00 66 1B 36 03 99 22 1D 1D 1D 1D 1D 1D |E...f.6.."......|
00001350: 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 |.........EDUCATI|
00001360: 4F 4E 41 4C 11 11 00 85 1B 38 03 99 22 1D 1D 1D |ONAL.....8.."...|
00001370: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 |.............SOF|
00001380: 54 57 41 52 45 00 A0 1B 3A 03 8F 20 2A 2A 20 43 |TWARE...:.. ** C|
00001390: 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A |OMMODORE LOGO **|
000013A0: 00 D8 1B 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B |...;...(UD$,24);|
000013B0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 |"..........PRESS|
000013C0: 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 | SPACE BAR OR WA|
000013D0: 49 54 92 22 3A 49 B2 30 00 FA 1B 3C 03 A1 41 24 |IT.":I.0...<..A$|
000013E0: 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A |:.A$.." ".I.I.1:|
000013F0: 8B 49 B3 32 35 30 A7 38 32 38 00 1E 1C 3E 03 54 |.I.250.828...>.T|
00001400: 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 |1$."":T2$."":T3$|
00001410: B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 27 |."":T4$."":I.0.'|
00001420: 1C 40 03 89 33 30 30 00 43 1C 43 03 8F 20 2A 2A |.@..300.C.C.. **|
00001430: 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 53 | SPACE BAR PRESS|
00001440: 20 2A 2A 00 7E 1C 48 03 97 55 4F 2C 30 3A 99 C8 | **.~.H..UO,0:..|
00001450: 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D |(UD$,24);"......|
00001460: 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 |.PRESS SPACE BAR|
00001470: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 95 | TO CONTINUE."..|
00001480: 1C 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 |.L..UI$:.UI$.." |
00001490: 22 A7 38 34 34 00 9B 1C 4E 03 8E 00 BB 1C 52 03 |".844...N.....R.|
000014A0: 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E |. ** PAGE DESIGN|
000014B0: 20 52 4F 55 54 49 4E 45 20 2A 2A 00 C5 1C 53 03 | ROUTINE **...S.|
000014C0: 99 22 93 22 3B 00 D1 1C 54 03 55 50 B2 55 50 AA |.".";...T.UP.UP.|
000014D0: 31 00 F8 1C 57 03 99 C8 28 55 54 24 AA 55 50 24 |1...W...(UT$.UP$|
000014E0: 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 |,21);.(UP$.UG$..|
000014F0: 28 55 50 29 2C 31 38 29 00 27 1D 5C 03 99 22 20 |(UP),18).'.\.." |
00001500: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001520: 2D 2D 2D 2D 2D 2D 22 00 36 1D 60 03 8B 55 48 B3 |------".6.`..UH.|
00001530: B1 30 A7 38 37 30 00 6A 1D 61 03 99 C8 28 55 44 |.0.870.j.a...(UD|
00001540: 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 |$,24);.(UP$,7);"|
00001550: 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 |HELP - PRESS H|
00001560: 20 3C 52 45 54 55 52 4E 3E 22 00 7B 1D 66 03 55 | <RETURN>".{.f.U|
00001570: 48 B2 30 3A 99 22 13 11 22 3A 8E 00 9A 1D 6B 03 |H.0:."..":....k.|
00001580: 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 |. ** PLEASE WAIT|
00001590: 20 52 45 4D 41 52 4B 20 2A 2A 00 D0 1D 70 03 99 | REMARK **...p..|
000015A0: C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 |.(UD$,24);" |
000015B0: 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 | ONE MOMENT|
000015C0: 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 | PLEASE... "|
000015D0: 00 D6 1D 75 03 8E 00 F3 1D 84 03 8F 20 2A 2A 20 |...u........ ** |
000015E0: 53 45 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 |SET UP VARIABLES|
000015F0: 20 2A 2A 00 3E 1E 85 03 55 58 24 B2 22 48 22 3A | **.>...UX$."H":|
00001600: 86 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 |.UQ%(1000):UB.32|
00001610: 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 |768:U1.196:U2.19|
00001620: 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A |7:U3.198:U4.216:|
00001630: 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 7C |UC.167:UU.1024.||
00001640: 1E 86 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 |...UT.59468:UU%.|
00001650: 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 |12:UL%.14:UP%.11|
00001660: 34 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 |46:UM.32768:UO.1|
00001670: 35 38 3A 97 20 35 30 30 30 33 2C 30 00 BF 1E 87 |58:. 50003,0....|
00001680: 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 |...(50003).0.UB.|
00001690: 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 |1024:U1.209:U2.2|
000016A0: 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 |10:U3.211:U4.214|
000016B0: 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 |:UC.204:UU.2048.|
000016C0: FE 1E 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 |......(50003).0.|
000016D0: 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A |UT.53272:UU%.21:|
000016E0: 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A |UL%.23:UP%.2139:|
000016F0: 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 00 22 |UM.1024:UO.198."|
00001700: 1F 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 |...UD$."........|
00001710: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001720: 11 22 00 54 1F 8A 03 55 50 24 B2 22 20 20 20 20 |.".T...UP$." |
00001730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001750: 20 20 20 22 00 A1 1F 8B 03 55 54 24 B2 22 20 CD | ".....UT$." .|
00001760: C9 C3 D2 CF CD C1 D4 C8 20 2B 2D A0 A0 A0 A0 A0 |........ +-.....|
00001770: 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 |":. PLACE PROGRA|
00001780: 4D 20 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 |M TITLE HERE !!!|
00001790: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A |!!!!!!!!!!!!!!**|
000017A0: 2A 00 A7 1F 8C 03 8E 00 C1 1F 8E 03 8F 20 2A 2A |*............ **|
000017B0: 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A | SET VARIABLES *|
000017C0: 2A 00 CA 1F 93 03 8D 39 30 30 00 E5 1F 98 03 8F |*......900......|
000017D0: 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 | ** CHECK FOR 80|
000017E0: 33 32 20 2A 2A 00 03 20 9D 03 99 22 93 22 3A 99 |32 **.. ...".":.|
000017F0: 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 |".":. SHIFTED SP|
00001800: 41 43 45 00 1A 20 A2 03 8B C2 28 55 42 AA 34 30 |ACE.. ....(UB.40|
00001810: 29 B3 B1 39 36 A7 8D 37 30 30 00 33 20 A3 03 8F |)..96..700.3 ...|
00001820: 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B | ** MEMORY CHECK|
00001830: 20 2A 2A 00 47 20 A4 03 8B 20 B8 28 30 29 B1 32 | **.G ... .(0).2|
00001840: 30 30 30 A7 39 33 37 00 75 20 A5 03 99 22 93 11 |000.937.u ..."..|
00001850: 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 |..THIS MACHINE D|
00001860: 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F |OES NOT HAVE ENO|
00001870: 55 47 48 11 22 00 99 20 A6 03 99 22 4D 45 4D 4F |UGH.".. ..."MEMO|
00001880: 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 |RY TO RUN THIS P|
00001890: 52 4F 47 52 41 4D 20 21 22 00 A4 20 A7 03 9E 55 |ROGRAM !".. ...U|
000018A0: 55 AA 37 31 00 AA 20 A8 03 80 00 C4 20 A9 03 99 |U.71.. ..... ...|
000018B0: 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 |"..":..(50003).0|
000018C0: A7 39 36 32 00 F3 20 AC 03 8F 20 2A 2A 20 42 41 |.962.. ... ** BA|
000018D0: 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 |SIC 2.0 OR 4.0|
000018E0: 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 | OR C-64 SETUP|
000018F0: 20 2A 2A 00 31 21 AD 03 97 31 30 37 35 2C 31 33 | **.1!...1075,13|
00001900: 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 |3:.1076,144:.107|
00001910: 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 |7,234:.1079,4:.1|
00001920: 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 |080,133:.1081,14|
00001930: 35 00 67 21 AE 03 97 31 30 39 31 2C 31 35 35 3A |5.g!...1091,155:|
00001940: 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C |.1098,133:.1099,|
00001950: 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 |144:.1100,234:.1|
00001960: 31 30 33 2C 31 33 33 00 89 21 AF 03 97 31 31 30 |103,133..!...110|
00001970: 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A |4,145:.1105,234:|
00001980: 97 31 30 38 32 2C 32 33 34 00 A0 21 B1 03 8B C2 |.1082,234..!....|
00001990: 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 |(50003)..160.955|
000019A0: 00 CF 21 B6 03 97 31 30 39 33 2C 38 38 3A 97 31 |..!...1093,88:.1|
000019B0: 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 |094,228:.1097,85|
000019C0: 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 |:.1102,228:.965.|
000019D0: E4 21 BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 |.!....(50003)..1|
000019E0: A7 39 39 30 00 13 22 C0 03 97 31 30 39 33 2C 34 |.990.."...1093,4|
000019F0: 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 |9:.1094,230:.109|
00001A00: 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 |7,46:.1102,230:.|
00001A10: 39 36 35 00 4D 22 C2 03 97 32 30 39 39 2C 31 34 |965.M"...2099,14|
00001A20: 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 |1:.2100,20:.2101|
00001A30: 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 |,3:.2103,8:.2104|
00001A40: 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 89 22 |,141:.2105,21.."|
00001A50: C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C |...2106,3:.2115,|
00001A60: 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 |145:.2117,52:.21|
00001A70: 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A |18,234:.2121,49:|
00001A80: 97 32 31 32 32 2C 31 34 31 00 C3 22 C4 03 97 32 |.2122,141.."...2|
00001A90: 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 |123,20:.2124,3:.|
00001AA0: 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 |2126,234:.2127,1|
00001AB0: 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 |41:.2128,21:.212|
00001AC0: 39 2C 33 00 E1 22 C5 03 9E 55 55 AA 34 38 3A 8F |9,3.."...UU.48:.|
00001AD0: 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 | DISABLE STOP KE|
00001AE0: 59 00 F2 22 CA 03 8D 38 30 30 3A 8F 20 54 49 54 |Y.."...800:. TIT|
00001AF0: 4C 45 00 02 23 D4 03 89 33 30 30 3A 8F 20 4D 45 |LE..#...300:. ME|
00001B00: 4E 55 00 33 23 DE 03 99 22 93 54 48 45 20 50 47 |NU.3#...".THE PG|
00001B10: 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 |M WILL NOT WORK |
00001B20: 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 |ON THIS MACHINE!|
00001B30: 22 3A 80 00 68 23 E8 03 8B 55 5A B2 31 A7 9E 55 |":..h#...UZ.1..U|
00001B40: 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A |P%:.UP%:UZ.0:. *|
00001B50: 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 |* PROGRAM STARTS|
00001B60: 20 48 45 52 45 20 2A 2A 00 93 23 E9 03 99 22 93 | HERE **..#...".|
00001B70: 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 |.";:.:..(50003).|
00001B80: 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |0..53281,6:.5328|
00001B90: 30 2C 36 00 AC 23 FC 03 8F 20 20 20 20 22 B0 C0 |0,6..#... "..|
00001BA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 C5 23 06 |..........."..#.|
00001BB0: 04 8F 20 20 20 20 22 DD 20 49 4E 54 52 4F 20 31 |.. ". INTRO 1|
00001BC0: 2D 32 20 DD 22 00 DE 23 10 04 8F 20 20 20 20 22 |-2 ."..#... "|
00001BD0: AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 F9 |............."..|
00001BE0: 23 1A 04 97 55 54 2C 55 4C 25 3A 44 45 24 B2 22 |#...UT,UL%:DE$."|
00001BF0: 12 20 22 3A 8D 32 32 34 30 00 06 24 24 04 99 22 |. ":.2240..$$.."|
00001C00: 13 11 11 11 11 22 00 26 24 2E 04 99 A3 38 29 3B |.....".&$....8);|
00001C10: 22 D5 CE C9 D4 20 31 20 2D 20 CF C2 CA C5 C3 D4 |".... 1 - ......|
00001C20: C9 D6 C5 A0 32 22 00 46 24 38 04 99 A3 38 29 3B |....2".F$8...8);|
00001C30: 22 A3 A3 A3 A3 A0 A3 A0 A0 A0 A3 A3 A3 A3 A3 A3 |"...............|
00001C40: A3 A3 A3 A0 A3 22 00 52 24 42 04 99 22 11 11 11 |.....".R$B.."...|
00001C50: 11 22 00 7F 24 4C 04 99 A3 33 29 3B 22 D0 C5 D2 |."..$L...3);"...|
00001C60: C6 CF D2 CD C9 CE C7 20 C9 CE C4 C9 C3 C1 D4 C5 |....... ........|
00001C70: C4 20 C1 C4 C4 C9 D4 C9 CF CE A0 C1 CE C4 22 00 |. ............".|
00001C80: AC 24 56 04 99 A3 33 29 3B 22 A3 A3 A3 A3 A3 A3 |.$V...3);"......|
00001C90: A3 A3 A3 A3 A0 A3 A3 A3 A3 A3 A3 A3 A3 A3 A0 A3 |................|
00001CA0: A3 A3 A3 A3 A3 A3 A3 A0 A3 A3 A3 22 00 DA 24 60 |..........."..$`|
00001CB0: 04 99 3A 99 A3 31 33 29 3B 22 D3 D5 C2 D4 D2 C1 |..:..13);"......|
00001CC0: C3 D4 C9 CF CE 22 3A 99 A3 31 33 29 3B 22 A3 A3 |.....":..13);"..|
00001CD0: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 E3 24 6A 04 8D |........."..$j..|
00001CE0: 38 33 35 00 FC 24 74 04 8F 20 20 20 20 20 20 20 |835..$t.. |
00001CF0: 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 15 25 7E |".........."..%~|
00001D00: 04 8F 20 20 20 20 20 20 20 22 DD 20 27 4D 45 4E |.. ". 'MEN|
00001D10: 55 27 20 DD 22 00 2E 25 88 04 8F 20 20 20 20 20 |U' ."..%... |
00001D20: 20 20 22 AD C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 4B | "..........".K|
00001D30: 25 92 04 4F 42 B2 32 3A 8D 32 33 36 30 3A 8B 41 |%..OB.2:.2360:.A|
00001D40: 4E 24 B2 22 42 22 A7 31 37 35 30 00 65 25 9C 04 |N$."B".1750.e%..|
00001D50: 8F 20 20 20 20 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |. "..........|
00001D60: C0 C0 C0 AE 22 00 7F 25 A6 04 8F 20 20 20 20 22 |...."..%... "|
00001D70: DD 20 CC C5 D3 D3 CF CE 20 31 2D 32 20 DD 22 00 |. ...... 1-2 .".|
00001D80: 99 25 B0 04 8F 20 20 20 20 22 AD C0 C0 C0 C0 C0 |.%... "......|
00001D90: C0 C0 C0 C0 C0 C0 C0 BD 22 00 B5 25 BA 04 55 47 |........"..%..UG|
00001DA0: 24 B2 22 D2 45 56 49 45 57 20 22 3A 55 50 B2 30 |$.".EVIEW ":UP.0|
00001DB0: 3A 8D 38 35 30 00 EA 25 C4 04 99 A3 32 29 3B 22 |:.850..%....2);"|
00001DC0: 11 20 C9 4E 44 49 43 41 54 45 44 20 41 44 44 49 |. .NDICATED ADDI|
00001DD0: 54 49 4F 4E 20 41 4E 44 20 53 55 42 54 52 41 43 |TION AND SUBTRAC|
00001DE0: 54 49 4F 4E 22 3A 99 22 11 22 00 19 26 CE 04 99 |TION":."."..&...|
00001DF0: 22 20 D7 48 45 4E A0 54 48 45 20 53 49 47 4E 53 |" .HEN.THE SIGNS|
00001E00: 20 41 50 50 45 41 52 20 42 45 46 4F 52 45 20 41 | APPEAR BEFORE A|
00001E10: 20 4E 55 4D 42 45 52 2C 22 00 4A 26 D8 04 99 3A | NUMBER,".J&...:|
00001E20: 99 22 20 54 48 45 20 46 49 52 53 54 20 53 49 47 |." THE FIRST SIG|
00001E30: 4E 20 49 4E 44 49 43 41 54 45 53 20 54 48 45 20 |N INDICATES THE |
00001E40: 4F 50 45 52 41 54 49 4F 4E 22 00 7A 26 E2 04 99 |OPERATION".z&...|
00001E50: 22 11 20 54 4F 20 42 45 20 50 45 52 46 4F 52 4D |". TO BE PERFORM|
00001E60: 45 44 20 27 2B 27 20 49 4E 44 49 43 41 54 45 53 |ED '+' INDICATES|
00001E70: 20 41 44 44 49 54 49 4F 4E 22 00 A9 26 EC 04 99 | ADDITION"..&...|
00001E80: 3A 99 22 20 41 4E 44 20 27 2D 27 20 49 4E 44 49 |:." AND '-' INDI|
00001E90: 43 41 54 45 53 20 53 55 42 54 52 41 43 54 49 4F |CATES SUBTRACTIO|
00001EA0: 4E 20 57 48 49 4C 45 20 22 00 D7 26 F6 04 99 3A |N WHILE "..&...:|
00001EB0: 99 22 20 54 48 45 20 53 45 43 4F 4E 44 20 53 49 |." THE SECOND SI|
00001EC0: 47 4E 20 49 4E 44 49 43 41 54 45 53 20 57 48 45 |GN INDICATES WHE|
00001ED0: 54 48 45 52 20 20 22 00 05 27 00 05 99 3A 99 22 |THER "..'...:."|
00001EE0: 20 54 48 45 20 4E 55 4D 42 45 52 A0 49 53 20 50 | THE NUMBER.IS P|
00001EF0: 4F 53 49 54 49 56 45 A0 4F 52 20 4E 45 47 41 54 |OSITIVE.OR NEGAT|
00001F00: 49 56 45 2E 22 00 0E 27 14 05 8D 38 33 35 00 17 |IVE."..'...835..|
00001F10: 27 28 05 8D 38 35 30 00 40 27 32 05 99 22 28 C1 |'(..850.@'2.."(.|
00001F20: 29 20 20 34 20 2B 20 28 2B 33 29 20 CD C5 C1 CE |) 4 + (+3) ....|
00001F30: D3 3A 20 D4 CF A0 2B 34 20 C1 C4 C4 20 2B 33 22 |.: ...+4 ... +3"|
00001F40: 00 6B 27 3C 05 99 3A 99 22 28 C2 29 20 20 34 20 |.k'<..:."(.) 4 |
00001F50: 2B 20 28 2D 33 29 20 CD C5 C1 CE D3 3A 20 D4 CF |+ (-3) .....: ..|
00001F60: A0 2B 34 20 C1 C4 C4 A0 2D 33 22 00 9D 27 46 05 |.+4 ....-3"..'F.|
00001F70: 99 3A 99 22 28 C3 29 20 20 34 20 2D 20 28 2B 33 |.:."(.) 4 - (+3|
00001F80: 29 20 CD C5 C1 CE D3 3A 20 C6 D2 CF CD A0 2B 34 |) .....: .....+4|
00001F90: 20 D3 D5 C2 D4 D2 C1 C3 D4 A0 2B 33 22 00 CD 27 | .........+3"..'|
00001FA0: 50 05 99 22 28 C4 29 20 20 34 20 2D 20 28 2D 33 |P.."(.) 4 - (-3|
00001FB0: 29 20 CD C5 C1 CE D3 3A 20 C6 D2 CF CD 20 2B 34 |) .....: .... +4|
00001FC0: 20 D3 D5 C2 D4 D2 C1 C3 D4 20 2D 33 22 00 FB 27 | ........ -3"..'|
00001FD0: 5A 05 99 22 D4 CF A0 D3 CF CC D6 C5 A0 D3 D5 C3 |Z.."............|
00001FE0: C8 A0 D0 D2 CF C2 CC C5 CD D3 2C 20 D3 C9 CD D0 |.........., ....|
00001FF0: CC C9 C6 D9 20 C6 C9 D2 D3 D4 22 00 28 28 64 05 |.... .....".((d.|
00002000: 99 3A 99 22 C2 D9 A0 D2 C5 D0 CC C1 C3 C9 CE C7 |.:."............|
00002010: A0 D4 C8 C5 A0 D4 D7 CF A0 D3 C9 C7 CE D3 A0 C2 |................|
00002020: D9 A0 D5 D3 C9 CE C7 22 00 51 28 6E 05 99 3A 99 |.......".Q(n..:.|
00002030: 22 CF CE C5 A0 CF C6 A0 D4 C8 C5 A0 C6 CF CC CC |"...............|
00002040: CF D7 C9 CE C7 A0 D4 D7 CF A0 D2 D5 CC C5 D3 3A |...............:|
00002050: 22 00 94 28 78 05 99 3A 99 22 28 31 29 20 C9 C6 |"..(x..:."(1) ..|
00002060: A0 D4 C8 C5 A0 C6 C9 D2 D3 D4 A0 D3 C9 C7 CE A0 |................|
00002070: C9 D3 A0 27 2B 27 2C 20 CB C5 C5 D0 22 3A 99 3B |...'+', ....":.;|
00002080: A3 34 29 3B 22 D4 C8 C5 A0 D3 C5 C3 CF CE C4 A0 |.4);"...........|
00002090: D3 C9 C7 CE 00 C2 28 82 05 99 3A 99 22 28 32 29 |......(...:."(2)|
000020A0: 20 C9 C6 A0 D4 C8 C5 A0 C6 C9 D2 D3 D4 A0 D3 C9 | ...............|
000020B0: C7 CE A0 C9 D3 A0 27 2D 27 2C 20 C3 C8 C1 CE C7 |......'-', .....|
000020C0: C5 22 00 ED 28 8C 05 99 A3 34 29 3B 22 D4 C8 C5 |."..(....4);"...|
000020D0: A0 D3 C5 C3 CF CE C4 A0 D3 C9 C7 CE A0 C6 D2 CF |................|
000020E0: CD A0 27 2B 27 20 D4 CF A0 27 2D 27 22 00 0C 29 |..'+' ...'-'"..)|
000020F0: 96 05 99 A3 34 29 3B 22 CF D2 A0 C6 D2 CF CD 20 |....4);"....... |
00002100: 27 2D 27 20 D4 CF A0 27 2B 27 2E 22 00 1A 29 A0 |'-' ...'+'."..).|
00002110: 05 8D 38 33 35 3A 8D 38 35 30 00 3C 29 C8 05 99 |..835:.850.<)...|
00002120: 3A 99 22 28 C1 29 20 34 20 2B 20 28 2B 33 29 20 |:."(.) 4 + (+3) |
00002130: 3D 20 34 20 2B 20 33 20 3D 20 37 22 00 62 29 D2 |= 4 + 3 = 7".b).|
00002140: 05 99 3A 99 A3 32 29 3B 22 C6 C9 D2 D3 D4 A0 D3 |..:..2);".......|
00002150: C9 C7 CE 20 27 2B 27 3A 20 CB C5 C5 D0 A0 27 2B |... '+': .....'+|
00002160: 27 22 00 84 29 DC 05 99 3A 99 22 28 C2 29 20 34 |'"..)...:."(.) 4|
00002170: 20 2B 20 28 2D 33 29 20 3D 20 34 20 2D 20 33 20 | + (-3) = 4 - 3 |
00002180: 3D 20 31 22 00 AA 29 E6 05 99 3A 99 A3 32 29 3B |= 1"..)...:..2);|
00002190: 22 C6 C9 D2 D3 D4 A0 D3 C9 C7 CE A0 27 2B 27 3A |"...........'+':|
000021A0: 20 CB C5 C5 D0 A0 27 2D 27 22 00 CC 29 F0 05 99 | .....'-'"..)...|
000021B0: 3A 99 22 28 C3 29 20 34 20 2D 20 28 2B 33 29 20 |:."(.) 4 - (+3) |
000021C0: 3D 20 34 20 2D 20 33 20 3D 20 31 22 00 FB 29 FA |= 4 - 3 = 1"..).|
000021D0: 05 99 3A 99 A3 32 29 3B 22 C6 C9 D2 D3 D4 A0 D3 |..:..2);".......|
000021E0: C9 C7 CE A0 27 2D 27 3A 20 C3 C8 C1 CE C7 C5 20 |....'-': ...... |
000021F0: 27 2B 27 20 D4 CF 20 27 2D 27 22 00 1D 2A 04 06 |'+' .. '-'"..*..|
00002200: 99 3A 99 22 28 C4 29 20 34 20 2D 20 28 2D 33 29 |.:."(.) 4 - (-3)|
00002210: 20 3D 20 34 20 2B 20 33 20 3D 20 37 22 00 4C 2A | = 4 + 3 = 7".L*|
00002220: 0E 06 99 3A 99 A3 32 29 3B 22 C6 C9 D2 D3 D4 A0 |...:..2);"......|
00002230: D3 C9 C7 CE A0 27 2D 27 3A 20 C3 C8 C1 CE C7 C5 |.....'-': ......|
00002240: A0 27 2D 27 20 D4 CF 20 27 2B 27 22 00 5A 2A 18 |.'-' .. '+'".Z*.|
00002250: 06 8D 38 33 35 3A 8D 38 35 30 00 82 2A 36 06 99 |..835:.850..*6..|
00002260: 3A 99 22 28 C5 29 20 2D 36 20 2B 20 28 2D 32 29 |:."(.) -6 + (-2)|
00002270: 20 3D 20 28 2D 36 29 2B 28 2D 32 29 20 3D 20 2D | = (-6)+(-2) = -|
00002280: 38 22 00 A8 2A 40 06 99 3A 99 A3 32 29 3B 22 C6 |8"..*@..:..2);".|
00002290: C9 D2 D3 D4 20 D3 C9 C7 CE A0 27 2B 27 3A 20 CB |.... .....'+': .|
000022A0: C5 C5 D0 20 27 2D 27 22 00 CE 2A 4A 06 99 3A 99 |... '-'"..*J..:.|
000022B0: 22 28 C6 29 20 2D 33 20 2D 20 28 2D 37 29 20 3D |"(.) -3 - (-7) =|
000022C0: 20 28 2D 33 29 20 2B 20 37 20 3D 20 34 22 00 FD | (-3) + 7 = 4"..|
000022D0: 2A 54 06 99 3A 99 A3 32 29 3B 22 C6 C9 D2 D3 D4 |*T..:..2);".....|
000022E0: A0 D3 C9 C7 CE A0 27 2D 27 3A 20 C3 C8 C1 CE C7 |......'-': .....|
000022F0: C5 A0 27 2D 27 20 D4 CF 20 27 2B 27 22 00 21 2B |..'-' .. '+'".!+|
00002300: 5E 06 99 3A 99 22 28 C7 29 20 36 20 2D 20 28 38 |^..:."(.) 6 - (8|
00002310: 29 20 3D 20 36 20 2D 20 38 20 3D 20 28 2D 32 29 |) = 6 - 8 = (-2)|
00002320: 22 00 50 2B 68 06 99 3A 99 A3 32 29 3B 22 C6 C9 |".P+h..:..2);"..|
00002330: D2 D3 D4 20 D3 C9 C7 CE 20 27 2D 27 3A 20 C3 C8 |... .... '-': ..|
00002340: C1 CE C7 C5 A0 27 2B 27 20 54 4F 20 27 2D 27 22 |.....'+' TO '-'"|
00002350: 00 78 2B 72 06 99 3A 99 22 28 C8 29 20 2D 33 20 |.x+r..:."(.) -3 |
00002360: 2D 20 28 35 29 20 3D 20 28 2D 33 29 20 2D 20 35 |- (5) = (-3) - 5|
00002370: 20 3D 20 28 2D 38 29 22 00 A7 2B 7C 06 99 3A 99 | = (-8)"..+|..:.|
00002380: A3 32 29 3B 22 C6 C9 D2 D3 D4 A0 D3 C9 C7 CE A0 |.2);"...........|
00002390: 27 2D 27 3A 20 C3 C8 C1 CE C7 C5 A0 27 2B 27 20 |'-': .......'+' |
000023A0: D4 CF A0 27 2D 27 22 00 B5 2B 86 06 8D 38 33 35 |...'-'"..+...835|
000023B0: 3A 8D 38 35 30 00 C1 2B 90 06 99 22 11 11 11 11 |:.850..+..."....|
000023C0: 22 00 F0 2B 9A 06 99 22 D2 C5 CD C5 CD C2 C5 D2 |"..+..."........|
000023D0: 3A 20 C9 46 A0 41 20 4E 55 4D 42 45 52 20 49 53 |: .F.A NUMBER IS|
000023E0: 20 4E 4F 54 20 45 58 50 4C 49 43 49 54 4C 59 22 | NOT EXPLICITLY"|
000023F0: 00 1B 2C A4 06 99 3A 99 A3 31 30 29 3B 22 53 49 |..,...:..10);"SI|
00002400: 47 4E 45 44 20 54 48 45 4E 20 49 54 20 49 53 20 |GNED THEN IT IS |
00002410: 41 53 53 55 4D 45 44 20 54 4F 22 00 36 2C AE 06 |ASSUMED TO".6,..|
00002420: 99 3A 99 A3 31 30 29 3B 22 42 45 20 50 4F 53 49 |.:..10);"BE POSI|
00002430: 54 49 56 45 2E 22 00 5F 2C B8 06 99 22 11 11 11 |TIVE."._,..."...|
00002440: 22 3A 99 A3 32 29 3B 22 C5 D8 C1 CD D0 CC C5 3A |":..2);".......:|
00002450: 20 20 28 34 29 20 3D 20 2B 34 20 3D 20 34 22 00 | (4) = +4 = 4".|
00002460: 7A 2C C2 06 99 3A 99 A3 31 33 29 3B 22 33 20 3D |z,...:..13);"3 =|
00002470: 20 2B 33 20 3D 20 28 33 29 22 00 83 2C CC 06 8D | +3 = (3)"..,...|
00002480: 38 33 35 00 9C 2C D6 06 8F 20 20 20 20 20 22 B0 |835..,... ".|
00002490: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 B5 2C E0 |..........."..,.|
000024A0: 06 8F 20 20 20 20 20 22 DD 20 54 45 53 54 20 31 |.. ". TEST 1|
000024B0: 2D 32 20 DD 22 00 CE 2C EA 06 8F 20 20 20 20 20 |-2 ."..,... |
000024C0: 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 D8 |"............"..|
000024D0: 2C F4 06 99 22 93 11 22 00 00 2D FE 06 99 22 20 |,...".."..-..." |
000024E0: D3 C9 CD D0 CC C9 C6 D9 A0 C5 C1 C3 C8 A0 CF C6 |................|
000024F0: A0 D4 C8 C5 A0 C6 CF CC CC CF D7 C9 CE C7 3A 22 |..............:"|
00002500: 00 19 2D 08 07 52 31 B2 30 3A 43 54 B2 31 3A 4C |..-..R1.0:CT.1:L|
00002510: 31 B2 30 3A 48 31 B2 31 35 00 46 2D 12 07 8D 32 |1.0:H1.15.F-...2|
00002520: 37 39 30 3A 41 B2 4E 47 3A 41 24 B2 4E 24 3A 8D |790:A.NG:A$.N$:.|
00002530: 32 37 39 30 3A 42 B2 4E 47 3A 42 24 B2 4E 24 3A |2790:B.NG:B$.N$:|
00002540: 53 24 B2 22 2B 22 00 5A 2D 1C 07 8B BB 28 31 29 |S$."+".Z-....(1)|
00002550: B3 2E 35 A7 53 24 B2 22 2D 22 00 73 2D 26 07 8B |..5.S$."-".s-&..|
00002560: 53 24 B2 22 2D 22 A7 41 31 B2 41 AB 42 3A 89 31 |S$."-".A1.A.B:.1|
00002570: 38 35 30 00 7E 2D 30 07 41 31 B2 41 AA 42 00 C5 |850.~-0.A1.A.B..|
00002580: 2D 3A 07 99 22 11 22 3B 43 54 3B 22 9D 2E 20 22 |-:..".";CT;".. "|
00002590: 3B 41 24 3B 22 20 22 3B 53 24 3B 22 20 22 3B 42 |;A$;" ";S$;" ";B|
000025A0: 24 3B 22 20 3D 20 22 3B 3A 55 53 24 B2 22 31 32 |$;" = ";:US$."12|
000025B0: 33 34 35 36 37 38 39 30 2D 2B 48 22 3A 55 4C B2 |34567890-+H":UL.|
000025C0: 33 3A 8D 33 35 00 D3 2D 44 07 41 32 B2 C5 28 55 |3:.35..-D.A2..(U|
000025D0: 52 24 29 00 00 2E 4E 07 8B 41 31 B2 41 32 A7 99 |R$)...N..A1.A2..|
000025E0: 22 91 22 3B A3 32 33 29 3B 22 C3 CF D2 D2 C5 C3 |".";.23);"......|
000025F0: D4 22 3A 52 31 B2 52 31 AA 31 3A 89 31 39 30 30 |.":R1.R1.1:.1900|
00002600: 00 32 2E 58 07 8B B6 28 41 31 29 B2 B6 28 41 32 |.2.X...(A1)..(A2|
00002610: 29 A7 99 22 91 22 3B A3 32 33 29 22 D7 D2 CF CE |)..".";.23)"....|
00002620: C7 20 D3 C9 C7 CE 3B 20 22 3B 41 31 3A 8D 31 39 |. ....; ";A1:.19|
00002630: 30 30 00 53 2E 62 07 99 22 91 22 3B A3 32 33 29 |00.S.b..".";.23)|
00002640: 3B 22 D7 D2 CF CE C7 3B 20 22 3B 41 31 3A 89 31 |;".....; ";A1:.1|
00002650: 39 30 30 00 74 2E 6C 07 8F 20 20 20 20 20 20 20 |900.t.l.. |
00002660: 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
00002670: C0 C0 AE 22 00 95 2E 76 07 8F 20 20 20 20 20 20 |..."...v.. |
00002680: 20 22 DD 20 4D 41 52 4B 49 4E 47 20 53 55 42 52 | ". MARKING SUBR|
00002690: 54 4E 20 DD 22 00 B6 2E 80 07 8F 20 20 20 20 20 |TN ."...... |
000026A0: 20 20 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ".............|
000026B0: C0 C0 C0 C0 BD 22 00 CF 2E 8A 07 8F 20 20 43 54 |....."...... CT|
000026C0: 20 3D 20 51 55 45 53 54 49 4F 4E 20 43 54 52 00 | = QUESTION CTR.|
000026D0: EA 2E 94 07 8F 20 20 52 31 20 3D 20 4E 55 4D 42 |..... R1 = NUMB|
000026E0: 45 52 20 43 4F 52 52 45 43 54 00 F0 2E 9E 07 8F |ER CORRECT......|
000026F0: 00 04 2F A8 07 8B 43 54 B2 33 AF 52 31 B2 33 A7 |../...CT.3.R1.3.|
00002700: 32 30 31 30 00 18 2F B2 07 8B 43 54 B2 35 AF 52 |2010../...CT.5.R|
00002710: 31 B2 34 A7 32 30 31 30 00 27 2F BC 07 8B 43 54 |1.4.2010.'/...CT|
00002720: B2 38 A7 32 30 31 30 00 3B 2F C6 07 8B 43 54 B2 |.8.2010.;/...CT.|
00002730: 34 AF 52 31 B2 30 A7 32 30 31 30 00 4D 2F D0 07 |4.R1.0.2010.M/..|
00002740: 43 54 B2 43 54 AA 31 3A 89 31 38 31 30 00 65 2F |CT.CT.1:.1810.e/|
00002750: DA 07 8D 38 33 35 3A 44 45 24 B2 22 12 2A 22 3A |...835:DE$.".*":|
00002760: 8D 32 32 34 30 00 71 2F E4 07 99 22 13 11 11 11 |.2240.q/..."....|
00002770: 22 00 84 2F EE 07 4D 52 B2 28 52 31 AD 43 54 29 |"../..MR.(R1.CT)|
00002780: AC 31 30 30 00 95 2F F8 07 8B 4D 52 B1 B2 37 35 |.100../...MR..75|
00002790: A7 32 31 30 30 00 A6 2F 02 08 8B 4D 52 B1 B2 35 |.2100../...MR..5|
000027A0: 30 A7 32 31 37 30 00 CF 2F 0C 08 99 A3 33 29 22 |0.2170../....3)"|
000027B0: D0 4C 45 41 53 45 20 53 45 45 20 59 4F 55 52 20 |.LEASE SEE YOUR |
000027C0: 49 4E 53 54 52 55 43 54 4F 52 20 46 4F 52 22 00 |INSTRUCTOR FOR".|
000027D0: FA 2F 16 08 99 3A 99 A3 33 29 3B 22 41 53 53 49 |./...:..3);"ASSI|
000027E0: 53 54 41 4E 43 45 20 57 49 54 48 20 54 48 49 53 |STANCE WITH THIS|
000027F0: 20 4D 41 54 45 52 49 41 4C 22 00 18 30 20 08 99 | MATERIAL"..0 ..|
00002800: 3A 99 A3 33 29 3B 22 42 45 46 4F 52 45 20 47 4F |:..3);"BEFORE GO|
00002810: 49 4E 47 20 4F 4E 2E 22 00 35 30 2A 08 99 22 11 |ING ON.".50*..".|
00002820: 11 11 11 22 3A 8D 38 33 35 3A 9C 3A 8D 39 30 30 |...":.835:.:.900|
00002830: 3A 89 33 30 30 00 59 30 34 08 99 A3 33 29 3B 22 |:.300.Y04...3);"|
00002840: D9 4F 55 20 48 41 56 45 20 50 41 53 53 45 44 20 |.OU HAVE PASSED |
00002850: 54 48 45 20 54 45 53 54 22 00 7B 30 3E 08 99 3A |THE TEST".{0>..:|
00002860: 99 A3 33 29 3B 22 46 4F 52 20 54 48 49 53 20 4F |..3);"FOR THIS O|
00002870: 42 4A 45 43 54 49 56 45 2E 20 22 00 84 30 52 08 |BJECTIVE. "..0R.|
00002880: 8D 38 33 35 00 94 30 5C 08 9C 3A 8D 39 30 30 3A |.835..0\..:.900:|
00002890: 89 33 30 30 00 BA 30 66 08 99 3A 99 A3 33 29 3B |.300..0f..:..3);|
000028A0: 22 41 4E 53 57 45 52 20 27 59 27 20 4F 52 20 27 |"ANSWER 'Y' OR '|
000028B0: 4E 27 22 3B 3A 8D 32 36 33 30 00 C4 30 70 08 89 |N'";:.2630..0p..|
000028C0: 31 39 37 30 00 EF 30 7A 08 99 A3 33 29 3B 22 D9 |1970..0z...3);".|
000028D0: 4F 55 20 53 48 4F 55 4C 44 20 52 45 56 49 45 57 |OU SHOULD REVIEW|
000028E0: 20 54 48 49 53 20 4D 41 54 45 52 49 41 4C 22 00 | THIS MATERIAL".|
000028F0: 18 31 84 08 99 3A 99 A3 33 29 3B 22 42 45 46 4F |.1...:..3);"BEFO|
00002900: 52 45 20 59 4F 55 20 41 54 54 45 4D 50 54 20 54 |RE YOU ATTEMPT T|
00002910: 48 45 20 55 4E 49 54 22 00 46 31 8E 08 99 3A 99 |HE UNIT".F1...:.|
00002920: A3 33 29 3B 22 54 45 53 54 2E 20 C4 4F 20 59 4F |.3);"TEST. .O YO|
00002930: 55 20 57 49 53 48 20 54 4F 20 52 45 56 49 45 57 |U WISH TO REVIEW|
00002940: 20 4E 4F 57 3F 22 00 79 31 98 08 99 3A 99 A3 33 | NOW?".y1...:..3|
00002950: 29 3B 22 C1 4E 53 57 45 52 20 27 59 27 20 4F 52 |);".NSWER 'Y' OR|
00002960: 20 27 4E 27 20 22 3B 3A 55 53 24 B2 22 59 4E 22 | 'N' ";:US$."YN"|
00002970: 3A 55 4C B2 31 3A 8D 33 35 00 96 31 A2 08 41 24 |:UL.1:.35..1..A$|
00002980: B2 C8 28 55 52 24 2C 31 29 3A 8B 41 24 B2 22 59 |..(UR$,1):.A$."Y|
00002990: 22 A7 31 31 38 30 00 B6 31 AC 08 8B 41 24 B2 22 |".1180..1...A$."|
000029A0: 4E 22 A7 99 22 11 11 11 11 22 3A 9C 3A 8D 39 30 |N".."....":.:.90|
000029B0: 30 3A 89 33 30 30 00 C0 31 B6 08 89 32 32 30 30 |0:.300..1...2200|
000029C0: 00 E1 31 C0 08 8F 20 20 20 20 22 B0 C0 C0 C0 C0 |..1... ".....|
000029D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE |................|
000029E0: 22 00 02 32 CA 08 8F 20 20 20 20 22 DD 20 53 43 |"..2... ". SC|
000029F0: 52 45 45 4E 20 42 4F 52 44 45 52 20 20 20 20 20 |REEN BORDER |
00002A00: DD 22 00 23 32 D4 08 8F 20 20 20 20 22 AD C0 C0 |.".#2... "...|
00002A10: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002A20: C0 BD 22 00 42 32 DE 08 8F 2B 2B 2B 2B 2B 2B 2B |..".B2...+++++++|
00002A30: 2B 50 41 52 41 4D 45 54 45 52 53 2B 2B 2B 2B 2B |+PARAMETERS+++++|
00002A40: 2B 2B 00 62 32 E8 08 8F 20 20 20 20 20 44 45 24 |++.b2... DE$|
00002A50: 20 2D 20 50 52 49 4E 54 20 43 48 41 52 41 43 54 | - PRINT CHARACT|
00002A60: 45 52 00 6B 32 F2 08 99 22 93 22 00 84 32 FC 08 |ER.k2..."."..2..|
00002A70: 81 4A B2 31 A4 33 39 3A 99 22 91 22 3B 44 45 24 |.J.1.39:.".";DE$|
00002A80: 3B 3A 82 4A 00 8D 32 06 09 99 22 13 22 00 AA 32 |;:.J..2..."."..2|
00002A90: 10 09 81 4A B2 31 A4 32 33 3A 99 44 45 24 3B A3 |...J.1.23:.DE$;.|
00002AA0: 33 38 29 3B 44 45 24 3A 82 4A 00 B3 32 1A 09 99 |38);DE$:.J..2...|
00002AB0: 22 91 22 00 C8 32 24 09 81 4A B2 31 A4 33 39 3A |"."..2$..J.1.39:|
00002AC0: 99 44 45 24 3B 3A 82 4A 00 CE 32 2E 09 8E 00 EF |.DE$;:.J..2.....|
00002AD0: 32 38 09 8F 20 20 20 20 20 22 B0 C0 C0 C0 C0 C0 |28.. "......|
00002AE0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 |..............".|
00002AF0: 10 33 42 09 8F 20 20 20 20 20 22 DD 22 4D 45 4E |.3B.. "."MEN|
00002B00: 55 22 20 53 55 42 52 4F 55 54 49 4E 45 20 DD 22 |U" SUBROUTINE ."|
00002B10: 00 31 33 4C 09 8F 20 20 20 20 20 22 AD C0 C0 C0 |.13L.. "....|
00002B20: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD |................|
00002B30: 22 00 50 33 56 09 8F 2B 2B 2B 2B 2B 2B 2B 2B 50 |".P3V..++++++++P|
00002B40: 41 52 41 4D 45 54 45 52 53 2B 2B 2B 2B 2B 2B 2B |ARAMETERS+++++++|
00002B50: 00 71 33 60 09 8F 20 20 20 20 20 4F 42 31 20 2D |.q3`.. OB1 -|
00002B60: 20 4F 42 4A 45 43 54 49 56 45 20 4E 55 4D 42 45 | OBJECTIVE NUMBE|
00002B70: 52 00 92 33 6A 09 8F 20 20 20 20 20 41 4E 24 20 |R..3j.. AN$ |
00002B80: 2D 20 53 45 4C 45 43 54 49 4F 4E 20 49 4E 50 55 |- SELECTION INPU|
00002B90: 54 20 00 A5 33 74 09 44 45 24 B2 22 12 23 22 3A |T ..3t.DE$.".#":|
00002BA0: 8D 32 32 34 30 00 C9 33 7E 09 99 22 13 11 11 11 |.2240..3~.."....|
00002BB0: 11 22 3A 99 A3 38 29 3B 22 CF 42 4A 45 43 54 49 |.":..8);".BJECTI|
00002BC0: 56 45 20 23 22 3B 4F 42 31 00 E2 33 88 09 99 A3 |VE #";OB1..3....|
00002BD0: 38 29 3B 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A0 A3 A3 |8);"............|
00002BE0: A3 22 00 EC 33 92 09 99 22 11 11 22 00 07 34 9C |."..3...".."..4.|
00002BF0: 09 99 A3 38 29 3B 22 C4 CF A0 D9 CF D5 A0 D7 C9 |...8);".........|
00002C00: D3 C8 A0 D4 CF 3A 22 00 25 34 A6 09 99 3A 99 A3 |.....:".%4...:..|
00002C10: 34 29 3B 22 41 29 20 20 C8 C1 D6 C5 A0 C1 A0 CC |4);"A) ........|
00002C20: C5 D3 D3 CF CE 00 4A 34 B0 09 99 3A 99 A3 34 29 |......J4...:..4)|
00002C30: 3B 22 42 29 20 20 C4 CF A0 D0 D2 C1 C3 D4 C9 C3 |;"B) ..........|
00002C40: C5 A0 D0 D2 CF C2 CC C5 CD D3 00 86 34 BA 09 99 |............4...|
00002C50: 3A 99 A3 34 29 3B 22 28 C1 CE D3 D7 C5 D2 A0 C5 |:..4);"(........|
00002C60: C9 D4 C8 C5 D2 20 27 41 27 20 CF D2 20 27 42 27 |..... 'A' .. 'B'|
00002C70: 29 20 22 3B 3A 55 53 24 B2 22 41 42 22 3A 55 4C |) ";:US$."AB":UL|
00002C80: B2 31 3A 8D 33 35 00 93 34 C4 09 41 4E 24 B2 55 |.1:.35..4..AN$.U|
00002C90: 52 24 3A 00 99 34 E2 09 8E 00 B8 34 EC 09 8F 20 |R$:..4.....4... |
00002CA0: 20 20 20 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | "............|
00002CB0: C0 C0 C0 C0 C0 C0 AE 22 00 D7 34 F6 09 8F 20 20 |......."..4... |
00002CC0: 20 20 22 DD 20 42 52 45 41 4B 20 53 55 42 52 4F | ". BREAK SUBRO|
00002CD0: 55 54 49 4E 45 DD 22 00 F6 34 00 0A 8F 20 20 20 |UTINE."..4... |
00002CE0: 20 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | "..............|
00002CF0: C0 C0 C0 C0 BD 22 00 FF 34 0A 0A 8D 38 33 35 00 |....."..4...835.|
00002D00: 41 35 32 0A 99 22 13 11 11 11 11 11 11 11 11 11 |A52.."..........|
00002D10: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 99 |.............":.|
00002D20: A3 31 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |.1);" |
00002D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002D40: 22 00 47 35 3C 0A 8E 00 69 35 46 0A 8F 20 20 20 |".G5<...i5F.. |
00002D50: 20 20 20 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | "............|
00002D60: C0 C0 C0 C0 C0 C0 C0 AE 22 00 8B 35 50 0A 8F 20 |........"..5P.. |
00002D70: 20 20 20 20 20 22 DD 49 4E 50 55 54 20 53 55 42 | ".INPUT SUB|
00002D80: 52 4F 55 54 49 4E 45 20 20 DD 22 00 AD 35 5A 0A |ROUTINE ."..5Z.|
00002D90: 8F 20 20 20 20 20 20 22 AD C0 C0 C0 C0 C0 C0 C0 |. "........|
00002DA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 CE 35 |............"..5|
00002DB0: 64 0A 8F 2B 2B 2B 2B 2B 2B 2B 50 41 52 41 4D 45 |d..+++++++PARAME|
00002DC0: 54 45 52 53 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 ED |TERS++++++++++..|
00002DD0: 35 6E 0A 8F 20 20 20 20 20 20 20 49 4E 20 2D 20 |5n.. IN - |
00002DE0: 4E 55 4D 45 52 49 43 20 49 4E 50 55 54 00 0C 36 |NUMERIC INPUT..6|
00002DF0: 78 0A 8F 20 20 20 20 20 20 20 49 4E 24 20 2D 20 |x.. IN$ - |
00002E00: 53 54 52 49 4E 47 20 49 4E 50 55 54 00 2A 36 82 |STRING INPUT.*6.|
00002E10: 0A 99 50 52 24 3B 22 3F 20 22 3B 22 A1 22 3B 22 |..PR$;"? ";".";"|
00002E20: 9D 22 3B 3A 49 4E 24 B2 22 22 00 34 36 8C 0A 8D |.";:IN$."".46...|
00002E30: 33 35 3A 8E 00 54 36 96 0A 8B 53 53 24 B2 C7 28 |35:..T6...SS$..(|
00002E40: 31 33 29 A7 49 4E B2 C5 28 49 4E 24 29 3A 99 22 |13).IN..(IN$):."|
00002E50: 20 22 3A 8E 00 71 36 A0 0A 8B C3 28 49 4E 24 29 | ":..q6....(IN$)|
00002E60: B2 30 AF 53 53 24 B2 C7 28 32 30 29 A7 32 37 30 |.0.SS$..(20).270|
00002E70: 30 00 91 36 AA 0A 8B 53 53 24 B2 C7 28 31 33 29 |0..6...SS$..(13)|
00002E80: A7 49 4E B2 C5 28 49 4E 24 29 3A 99 22 20 22 3A |.IN..(IN$):." ":|
00002E90: 8E 00 A3 36 B4 0A 99 53 53 24 3B 22 A1 22 3B 22 |...6...SS$;".";"|
00002EA0: 9D 22 3B 00 D8 36 BE 0A 8B C3 28 49 4E 24 29 B1 |.";..6....(IN$).|
00002EB0: 31 AF 53 53 24 B2 C7 28 32 30 29 A7 49 4E 24 B2 |1.SS$..(20).IN$.|
00002EC0: C8 28 49 4E 24 2C 28 C3 28 49 4E 24 29 AB 31 29 |.(IN$,(.(IN$).1)|
00002ED0: 29 3A 53 53 24 B2 22 22 00 FE 36 C8 0A 8B C3 28 |):SS$.""..6....(|
00002EE0: 49 4E 24 29 B3 B2 31 AF 53 53 24 B2 C7 28 32 30 |IN$)..1.SS$..(20|
00002EF0: 29 A7 49 4E 24 B2 22 22 3A 89 32 37 30 30 00 0E |).IN$."":.2700..|
00002F00: 37 D2 0A 49 4E 24 B2 49 4E 24 AA 53 53 24 00 18 |7..IN$.IN$.SS$..|
00002F10: 37 DC 0A 89 32 37 30 30 00 39 37 E6 0A 8F 20 20 |7...2700.97... |
00002F20: 20 20 20 20 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | "...........|
00002F30: C0 C0 C0 C0 C0 C0 C0 AE 22 00 5A 37 F0 0A 8F 20 |........".Z7... |
00002F40: 20 20 20 20 20 22 DD 20 4E 55 4D 42 45 52 20 47 | ". NUMBER G|
00002F50: 45 4E 45 52 41 54 4F 52 DD 22 00 7B 37 FA 0A 8F |ENERATOR.".{7...|
00002F60: 20 20 20 20 20 20 22 AD C0 C0 C0 C0 C0 C0 C0 C0 | ".........|
00002F70: C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 9C 37 04 0B |.........."..7..|
00002F80: 8F 2B 2B 2B 2B 2B 2B 2B 50 41 52 41 4D 45 54 45 |.+++++++PARAMETE|
00002F90: 52 53 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 B7 37 0E |RS++++++++++..7.|
00002FA0: 0B 8F 20 20 20 20 20 20 20 4C 31 20 2D 20 4C 4F |.. L1 - LO|
00002FB0: 57 20 42 4F 55 4E 44 00 D1 37 18 0B 8F 20 20 20 |W BOUND..7... |
00002FC0: 20 20 20 20 48 31 20 2D 20 48 49 20 42 4F 55 4E | H1 - HI BOUN|
00002FD0: 44 00 E8 37 22 0B 8F 20 20 20 20 20 20 20 52 45 |D..7".. RE|
00002FE0: 54 55 52 4E 53 20 4E 47 00 F1 37 2C 0B 44 46 B2 |TURNS NG..7,.DF.|
00002FF0: 30 00 1A 38 36 0B 8B 4C 31 B3 B1 B5 28 4C 31 29 |0..86..L1...(L1)|
00003000: A7 4C 31 B2 4C 31 AC 31 30 3A 48 31 B2 48 31 AC |.L1.L1.10:H1.H1.|
00003010: 31 30 3A 44 46 B2 44 46 AA 31 00 40 38 40 0B 46 |10:DF.DF.1.@8@.F|
00003020: 24 B2 C4 28 4C 31 29 3A 4C 31 B2 C5 28 46 24 29 |$..(L1):L1..(F$)|
00003030: 3A 8B 4C 31 B3 B1 B5 28 4C 31 29 A7 32 38 37 30 |:.L1...(L1).2870|
00003040: 00 6F 38 4A 0B 8B 48 31 B3 B1 B5 28 48 31 29 A7 |.o8J..H1...(H1).|
00003050: 48 31 B2 48 31 AC 31 30 3A 4C 31 B2 4C 31 AC 31 |H1.H1.10:L1.L1.1|
00003060: 30 3A 44 46 B2 44 46 AA 31 3A 89 32 38 39 30 00 |0:DF.DF.1:.2890.|
00003070: 95 38 54 0B 46 24 B2 C4 28 48 31 29 3A 48 31 B2 |.8T.F$..(H1):H1.|
00003080: C5 28 46 24 29 3A 8B 48 31 B3 B1 B5 28 48 31 29 |.(F$):.H1...(H1)|
00003090: A7 32 39 30 30 00 A2 38 5E 0B 4D 47 B2 48 31 AB |.2900..8^.MG.H1.|
000030A0: 4C 31 00 C2 38 68 0B 4E 47 B2 28 B5 28 BB 28 54 |L1..8h.NG.(.(.(T|
000030B0: 49 29 AC 4D 47 29 AA 4C 31 29 AD 28 31 30 AE 44 |I).MG).L1).(10.D|
000030C0: 46 29 00 D8 38 72 0B 4E 24 B2 C4 28 4E 47 29 3A |F)..8r.N$..(NG):|
000030D0: 4E 47 B2 C5 28 4E 24 29 00 01 39 7C 0B 8B BB 28 |NG..(N$)..9|...(|
000030E0: 31 29 B3 2E 35 A7 4E 47 B2 4E 47 AC AB 31 3A 4E |1)..5.NG.NG..1:N|
000030F0: 24 B2 22 28 22 AA C4 28 4E 47 29 AA 22 29 22 3A |$."("..(NG).")":|
00003100: 8E 00 07 39 86 0B 8E 00 00 00 |...9...... |
.......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 +++
...(..U0,0:UR$."":UI$.""...*..UL.0.UL.80
.".-..UC,0.6.2..UI$:.UI$."".50.`.7..UI$.
G(13).C(UR$)..1..UC,1:." .";:.85.S.<..UI
$.G(20).105...>.. C(UR$)..UL.50...A..120
:. CHECK FOR VALID CHARACTER...F.UR$.UR$
.UI$.F.K..UI$;.N.P..50...U.. +++ CHECK F
OR HELP REQUEST +++...Z..UR$.UX$.195:. E
XIT TO HELP ROUTINE.*._..UF.1..240.7.D.U
F.0:.:..P.F.. ++ CHECK DELETE ++.A.I..C(
UR$).1.50.Y.N.UR$.H(UR$,C(UR$).1)...S.."
. ..";:.50...X.. ++ CHECK FOR VALID CHA
RACTERS ++.D.}..C(US$).0.150.U....US.1.C
(US$)......UI$.J(US$,US,1).............U
I$."":....... ** STANDARD INPUT **.+....
F(UI$).46...<....UI$.G(32)...Y. ..F(UI$)
.48.F(UI$).57.170._.....|....F(UI$).65.F
(UI$).90.180............F(UI$).193.F(UI$
).218.UI$."":..I....B(UT).UU%.UI$.G(F(UI
$).128):..O.........UI$."":....C.UF.1:.
+++ HELP ROUTINE EXIT +++...E..250...H..
245.2.M..UQ.UB.(U2%.256.U1%.U3%.2).N.R.U
Q%(UQ.UB).B(UQ):.:.".".A.W.UZ.1:UV%.B(UT
).J.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.U
J:UL.UK:.B(50003).0..53281,6:.53280,6...
..UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2%.256.
U1%.U3%.3)......UQ,UQ%(UQ.UB):.......U1,
U1%......U2,U2%......U4,U4%.)....U3,U3%.
1.1....35.C...UD%.((U2%.256.U1%.U3%).UB)
.40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . ":..J
...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(U
4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK.
UL.........,.. ** MENU **...-.:.>...."."
:.UT,UU%:.B(50003).0..53281,9:.53280,8.D
./.:.A.1..". MENU"...6.."
--------------------------------------"
...;..".. 1. BEGIN MICROMATH +-"
...@..".. 2. STUDENT INSTRUCTION
S"...E..".. 3. TEACHER INSTRUCTI
ONS".(.O..".. 4. QUIT..".W.T.."
--------------------------------------".
..Y..".. PRESS A NUMBER KEY (1-4)
";...^.UL.1:US$."1234":.35:. INPUT ROUTI
NE...`.US$."".R.C..E(UR$).1000,400,500,3
96...H..300...... ** RE-ENABLE STOP KEY
AND END **.1....B(50003)..1.B(50003)..16
0.B(50003)..0.399.[....UU.71:.B(50003).0
..53281,6:.53280,14.G...."..":..R....875
:....... ** STUDENT INSTRUCTIONS **.B...
.".":.UT,UL%:.B(50003).0..53281,0:.53280
,0.....UP.0:UG$."STUDENT INST":.850.....
: .".... REMEMBER, HIT <RETURN> KEY
AFTER".B...: ." TYPING YOUR ANSWER. T
HIS TELLS".O. .: ." THE COMPUTER TO A
CCEPT WHAT YOU".....: ." HAVE TYPED..
".....: ." TYPE <H> AT ANY TIME TO R
ETURN".....: ." TO THE MENU FOR HELP.
YOU WILL".....: ." BE RETURNED TO T
HE PLACE IN THE".;...: ." PROGRAM WHE
RE YOU LEFT OFF AS".I...: ." SOON AS
THE OPTION FROM THE MENU".....: ." IS
COMPLETE.":.835:.850......"..
MICROMATH"......". YOU WILL BE GIVE
N A LESSON ON ADDITION"......". AND SUBR
ACTION, THEN A SMALL TEST. ".=....". ANS
WER QUESTIONS BY ENTERING THE NUMBER".J.
..." EITHER POSITIVE (+) OR NEGATIVE (-)
.".S....835......UZ.1..UP%:.217.........
... ** TEACHER INSTRUCTIONS **......".":
.UT,UL%:.B(50003).0..53281,2:.53280,10..
...UP.0:UG$."TEACHER INST":.850.-...."..
TO THE BEST OF OUR KNOWLEDGE,.".V.
..." THIS PROGRAM IS IN THE PUBLIC."..
...." DOMAIN. IF THIS IS NOT THE CASE
."......" PLEASE CONTACT:...".I...."
COMMODORE BUSINESS MACHINES."......"
3370 PHARMACY AVE......."
AGINCOURT, ONTARIO".2...."
CANADA M1W 2K4".R...." (416)
499-4292".H...UP.1:. 835:. 850:......"
..PROGRAM NAME: MICROMATH +- .......
" WRITTEN BY : SHERIDAN COLLEGE....
..." UPGRADED BY : ......."
.THIS PROGRAM WILL RUN ON ANY...3..
.." BASIC 2.0 PET COMPUTER..Z...
." BASIC 4.0 PET COMPUTER..|....
" 8032 CBM COMPUTER......."
COMMODORE 64 COMPUTER......835:.850.
.....". THIS IS A SAMPLE COPY OF MICRO
MATH."......". THE STUDENT IS GIVEN A LE
SSON ON".*....". ADDITION AND SUBRACTION
.".X. ..". THE STUDENT IS THEN GIVEN A
SHORT "...!..". DRILL TO TEST HIS/HER K
NOWLEDGE OF THE"..."..". LESSON. IF THE
STUDENT REQUIRES "...#..". MORE INSTRUC
TION, THE PET WILL ADVISE"...$..". THE S
TUDENT TO CONSULT THE TEACHER."...%..835
:.850.K.&.."..... RECOMMENDED FOR JUNIOR
STUDENTS.".W.*..". FOR MORE PROGRAMS IN
THIS SERIES, "...,..". CONTACT SHERIDAN
COLLAGE, OAKVILLE."...D..835.A.N..UZ.1.
.UP%:.217.G.W.....X.. ** PROGRAM MODIFIC
ATION INST **...Y..".":.UT,UL%...].UP.0:
UG$."PROGRAM MOD":.850.'....835.;....UZ.
1..UP%:.217.A.....F.... ** TO USE 8032 L
OAD CBM4032 **...F..".....BEFORE RUNNING
THIS PROGRAM ON AN 8032 ...R.P.."
LOAD THE 'CBM 4032' PROGRAM............
."...Z..UU.71......... .. ** T I T L E
P A G E **.7.".."....";:.UT,UU%:.B(5000
3).0..53280,14:.53281,6.M.$..I.1.38:."..
.";:..E.&..I.1.22:.".....";:..}.(..I.1.3
7:.".....";:....*..I.1.22:.".....";:....
,.."........................... .......
"................... . . .....0..".....
.............. . ......2.."............
........ ..C.4.."..............C O M M
O D O R E...F.6.."...............EDUCATI
ONAL.....8.."................SOFTWARE. .
:.. ** COMMODORE LOGO **.X.;..H(UD$,24);
"..........PRESS SPACE BAR OR WAIT.":I.0
...<..A$:.A$.." ".I.I.1:.I.250.828...>.T
1$."":T2$."":T3$."":T4$."":I.0.'.@..300.
C.C.. ** SPACE BAR PRESS **.~.H..UO,0:.H
(UD$,24);".......PRESS SPACE BAR TO CONT
INUE."...L..UI$:.UI$.." ".844...N.....R.
. ** PAGE DESIGN ROUTINE **.E.S..".";.Q.
T.UP.UP.1...W..H(UT$.UP$,21);I(UP$.UG$.D
(UP),18).'.\.." ------------------------
--------------".6.`..UH..0.870.J.A..H(UD
$,24);H(UP$,7);"HELP - PRESS H <RETURN
>".{.F.UH.0:."..":....K.. ** PLEASE WAIT
REMARK **.P.P..H(UD$,24);" ON
E MOMENT PLEASE... ".V.U........ **
SET UP VARIABLES **.>...UX$."H":.UQ%(100
0):UB.32768:U1.196:U2.197:U3.198:U4.216:
UC.167:UU.1024.|...UT.59468:UU%.12:UL%.1
4:UP%.1146:UM.32768:UO.158:. 50003,0....
..B(50003).0.UB.1024:U1.209:U2.210:U3.21
1:U4.214:UC.204:UU.2048......B(50003).0.
UT.53272:UU%.21:UL%.23:UP%.2139:UM.1024:
UO.198."...UD$."........................
.".T...UP$."
".....UT$." MICROMATH +-
":. PLACE PROGRAM TITLE HERE !!!!!!!!!!!
!!!!!!***.......A.... ** SET VARIABLES *
*.J....900...... ** CHECK FOR 8032 **..
...".":." ":. SHIFTED SPACE.. ...B(UB.40
)..96..700.3 ... ** MEMORY CHECK **.G ..
. .(0).2000.937.U ..."....THIS MACHINE D
OES NOT HAVE ENOUGH.".. ..."MEMORY TO RU
N THIS PROGRAM !".. ...UU.71.. ....D ...
"..":.B(50003).0.962.. ... ** BASIC 2.0
OR 4.0 OR C-64 SETUP **.1!...1075,13
3:.1076,144:.1077,234:.1079,4:.1080,133:
.1081,145.G!...1091,155:.1098,133:.1099,
144:.1100,234:.1103,133..!...1104,145:.1
105,234:.1082,234. !...B(50003)..160.955
.O!...1093,88:.1094,228:.1097,85:.1102,2
28:.965..!...B(50003)..1.990.."...1093,4
9:.1094,230:.1097,46:.1102,230:.965.M"B.
.2099,141:.2100,20:.2101,3:.2103,8:.2104
,141:.2105,21.."C..2106,3:.2115,145:.211
7,52:.2118,234:.2121,49:.2122,141.C"D..2
123,20:.2124,3:.2126,234:.2127,141:.2128
,21:.2129,3.."E..UU.48:. DISABLE STOP KE
Y.."J..800:. TITLE..#T..300:. MENU.3#...
".THE PGM WILL NOT WORK ON THIS MACHINE!
":..H#...UZ.1..UP%:.UP%:UZ.0:. ** PROGRA
M STARTS HERE **..#..."..";:.:.B(50003).
0..53281,6:.53280,6..#... "..........
...".E#... ". INTRO 1-2 ."..#... "
............."..#...UT,UL%:DE$.". ":.224
0..$$..".....".&$....8);"UNIT 1 - OBJECT
IVE 2".F$8...8);".... . ......... .".R
$B.."....".$L...3);"PERFORMING INDICATE
D ADDITION AND"..$V...3);".......... ...
...... ........ ...".Z$`..:..13);"SUBTRA
CTION":..13);"..........."..$J..835..$T.
. ".........."..%~.. ". 'MEN
U' ."..%... "..........".K%..OB.2:
.2360:.AN$."B".1750.E%... "..........
....".%... ". LESSON 1-2 ."..%...
".............."..%..UG$."REVIEW ":UP.0
:.850..%D...2);". INDICATED ADDITION AND
SUBTRACTION":."."..&N.." WHEN THE SIGNS
APPEAR BEFORE A NUMBER,".J&X..:." THE F
IRST SIGN INDICATES THE OPERATION".Z&...
". TO BE PERFORMED '+' INDICATES ADDITIO
N"..&...:." AND '-' INDICATES SUBTRACTIO
N WHILE ".W&...:." THE SECOND SIGN INDIC
ATES WHETHER "..'...:." THE NUMBER IS P
OSITIVE OR NEGATIVE."..'...835..'(..850.
@'2.."(A) 4 + (+3) MEANS: TO +4 ADD +3"
.K'<..:."(B) 4 + (-3) MEANS: TO +4 ADD
-3"..'F..:."(C) 4 - (+3) MEANS: FROM +4
SUBTRACT +3".M'P.."(D) 4 - (-3) MEANS:
FROM +4 SUBTRACT -3"..'Z.."TO SOLVE SUC
H PROBLEMS, SIMPLIFY FIRST".((D..:."BY R
EPLACING THE TWO SIGNS BY USING".Q(N..:.
"ONE OF THE FOLLOWING TWO RULES:"..(X..:
."(1) IF THE FIRST SIGN IS '+', KEEP":.;
.4);"THE SECOND SIGN.B(...:."(2) IF THE
FIRST SIGN IS '-', CHANGE"..(....4);"THE
SECOND SIGN FROM '+' TO '-'"..)....4);"
OR FROM '-' TO '+'."..) ..835:.850.<)H..
:."(A) 4 + (+3) = 4 + 3 = 7".B)R..:..2);
"FIRST SIGN '+': KEEP '+'"..)...:."(B) 4
+ (-3) = 4 - 3 = 1"..)...:..2);"FIRST S
IGN '+': KEEP '-'".L)...:."(C) 4 - (+3)
= 4 - 3 = 1"..)...:..2);"FIRST SIGN '-':
CHANGE '+' TO '-'"..*...:."(D) 4 - (-3)
= 4 + 3 = 7".L*...:..2);"FIRST SIGN '-'
: CHANGE '-' TO '+'".Z*...835:.850..*6..
:."(E) -6 + (-2) = (-6)+(-2) = -8"..*@..
:..2);"FIRST SIGN '+': KEEP '-'".N*J..:.
"(F) -3 - (-7) = (-3) + 7 = 4"..*T..:..2
);"FIRST SIGN '-': CHANGE '-' TO '+'".!+
^..:."(G) 6 - (8) = 6 - 8 = (-2)".P+H..:
..2);"FIRST SIGN '-': CHANGE '+' TO '-'"
.X+R..:."(H) -3 - (5) = (-3) - 5 = (-8)"
..+|..:..2);"FIRST SIGN '-': CHANGE '+'
TO '-'"..+...835:.850.A+..."...."..+..."
REMEMBER: IF A NUMBER IS NOT EXPLICITLY"
..,...:..10);"SIGNED THEN IT IS ASSUMED
TO".6,...:..10);"BE POSITIVE."._,..."...
":..2);"EXAMPLE: (4) = +4 = 4".Z,B..:..
13);"3 = +3 = (3)"..,L..835..,V.. ".
..........."..,... ". TEST 1-2 .".N,
... "............".X,...".."..-..."
SIMPLIFY EACH OF THE FOLLOWING:"..-..R1.
0:CT.1:L1.0:H1.15.F-...2790:A.NG:A$.N$:.
2790:B.NG:B$.N$:S$."+".Z-....(1)..5.S$."
-".S-&..S$."-".A1.A.B:.1850.~-0.A1.A.B.E
-:..".";CT;".. ";A$;" ";S$;" ";B$;" = ";
:US$."1234567890-+H":UL.3:.35.S-D.A2.E(U
R$)...N..A1.A2..".";.23);"CORRECT":R1.R1
.1:.1900.2.X...(A1)..(A2)..".";.23)"WRON
G SIGN; ";A1:.1900.S.B..".";.23);"WRONG;
";A1:.1900.T.L.. "...............
..."...V.. ". MARKING SUBRTN ."...
... "..................".O.... CT
= QUESTION CTR...... R1 = NUMBER CORRE
CT......../...CT.3.R1.3.2010../...CT.5.R
1.4.2010.'/...CT.8.2010.;/F..CT.4.R1.0.2
010.M/P.CT.CT.1:.1810.E/Z..835:DE$.".*":
.2240.Q/..."...."../..MR.(R1.CT).100../.
..MR..75.2100../...MR..50.2170.O/....3)"
PLEASE SEE YOUR INSTRUCTOR FOR"../...:..
3);"ASSISTANCE WITH THIS MATERIAL"..0 ..
:..3);"BEFORE GOING ON.".50*.."....":.83
5:.:.900:.300.Y04...3);"YOU HAVE PASSED
THE TEST".{0>..:..3);"FOR THIS OBJECTIVE
. "..0R..835..0\..:.900:.300..0F..:..3);
"ANSWER 'Y' OR 'N'";:.2630.D0P..1970..0Z
...3);"YOU SHOULD REVIEW THIS MATERIAL".
.1...:..3);"BEFORE YOU ATTEMPT THE UNIT"
.F1...:..3);"TEST. DO YOU WISH TO REVIEW
NOW?".Y1...:..3);"ANSWER 'Y' OR 'N' ";:
US$."YN":UL.1:.35..1..A$.H(UR$,1):.A$."Y
".1180..1...A$."N".."....":.:.900:.300..
1...2200..1... ".....................
"..2J.. ". SCREEN BORDER .".#2T..
".....................".B2...+++++++
+PARAMETERS+++++++.B2... DE$ - PRINT
CHARACTER.K2..."."..2...J.1.39:.".";DE$
;:.J..2..."."..2...J.1.23:.DE$;.38);DE$:
.J..2...".".H2$..J.1.39:.DE$;:.J.N2.....
28.. "...................."..3B..
"."MENU" SUBROUTINE .".13L.. "....
................".P3V..++++++++PARAMETER
S+++++++.Q3`.. OB1 - OBJECTIVE NUMBE
R..3J.. AN$ - SELECTION INPUT ..3T.D
E$.".#":.2240.I3~..".....":..8);"OBJECTI
VE #";OB1..3....8);"......... ..."..3...
".."..4....8);"DO YOU WISH TO:".%4...:..
4);"A) HAVE A LESSON.J4...:..4);"B) DO
PRACTICE PROBLEMS..4...:..4);"(ANSWER E
ITHER 'A' OR 'B') ";:US$."AB":UL.1:.35..
4D.AN$.UR$:..4.....4... "............
.......".W4... ". BREAK SUBROUTINE.".
.4... "..................."..4...835.
A52..".......................":..1);"
".G5<...I5F..
"...................."..5P.. ".I
NPUT SUBROUTINE ."..5Z.. "........
............".N5D..+++++++PARAMETERS++++
++++++..5N.. IN - NUMERIC INPUT..6
X.. IN$ - STRING INPUT.*6...PR$;"?
";".";".";:IN$."".46...35:..T6...SS$.G(
13).IN.E(IN$):." ":..Q6 ..C(IN$).0.SS$.G
(20).2700..6...SS$.G(13).IN.E(IN$):." ":
...6...SS$;".";".";.X6...C(IN$).1.SS$.G(
20).IN$.H(IN$,(C(IN$).1)):SS$.""..6H..C(
IN$)..1.SS$.G(20).IN$."":.2700..7R.IN$.I
N$.SS$..7...2700.97... "...........
........".Z7... ". NUMBER GENERATOR
.".{7... "..................."..7..
.+++++++PARAMETERS++++++++++..7...
L1 - LOW BOUND.Q7... H1 - HI BOUN
D..7".. RETURNS NG..7,.DF.0..86..L
1...(L1).L1.L1.10:H1.H1.10:DF.DF.1.@8@.F
$.D(L1):L1.E(F$):.L1...(L1).2870.O8J..H1
...(H1).H1.H1.10:L1.L1.10:DF.DF.1:.2890.
.8T.F$.D(H1):H1.E(F$):.H1...(H1).2900..8
^.MG.H1.L1.B8H.NG.(.(.(TI).MG).L1).(10.D
F).X8R.N$.D(NG):NG.E(N$)..9|...(1)..5.NG
.NG..1:N$."(".D(NG).")":...9......
> CLICK IMAGE PREVIEW FOR FULL MODAL