3.0 LESSON
FILE INFORMATION
FILENAME(S): 3.0 LESSON
FILE TYPE(S): PRG
FILE SIZE: 8.9K
FIRST SEEN: 2025-12-02 23:23:03
APPEARS ON: 1 disk(s)
FILE HASH
3cb5ef970cbf45f4811c62e81d0ecca949f7e29041bba71c06e96eef4276c547
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ASS KURS ENGL 2 | 3.0 LESSON | PRG | swasti, dinkel | 6 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 01 31 34 33 00 30 30 30 30 30 30 FF 04 FF 20 |..143.000000... |
00000010: FF 24 FF 00 BF 00 FF 00 FF 7F 81 46 FF 00 FF 00 |.$.........F....|
00000020: FF 00 FF 00 FF 00 FF 00 FF 14 FF 54 EF 00 FF 00 |...........T....|
00000030: FF 00 FB 00 FF 00 FF 00 FF 00 FF 00 FF 56 FF 00 |.............V..|
00000040: FF 04 3F FF 7D EA 01 00 A8 7D EA 00 A8 ED E9 ED |..?.}....}......|
00000050: ED 26 F6 02 02 02 02 02 02 02 02 02 02 02 02 02 |.&..............|
00000060: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................|
00000070: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................|
00000080: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................|
00000090: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................|
000000A0: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................|
000000B0: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................|
000000C0: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................|
000000D0: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................|
000000E0: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................|
000000F0: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................|
00000100: 02 02 EA EA EA 78 A2 00 9A A9 01 48 48 48 48 48 |.....x.....HHHHH|
00000110: A9 05 85 C6 A5 2B 85 2D A5 2C 85 2E A0 00 A2 03 |.....+.-.,......|
00000120: B1 2D E6 2D D0 02 E6 2E C9 00 D0 F2 CA D0 F1 A9 |.-.-............|
00000130: FF 8D 29 03 AC FF FF C8 D0 FE 4C 83 A4 FF 00 FF |..).......L.....|
00000140: 00 FF 00 95 24 FF 94 A5 00 FF 00 FF 00 FF 00 FF |....$...........|
00000150: 04 7F 88 FF 00 FF 9D F5 1C FF 00 FF 00 FF 00 FF |................|
00000160: 00 FF 1C FF 00 AD 94 9D 9C BD 91 FF 00 FF 0C FF |................|
00000170: 00 FF 9C FF 00 FF 10 FF 00 13 52 55 4E 0D 00 00 |..........RUN...|
00000180: 00 00 00 00 08 00 A0 00 0E F6 04 0A 00 02 10 00 |................|
00000190: 00 48 EB 00 00 00 00 00 00 00 00 00 00 00 00 00 |.H..............|
000001A0: 00 00 00 00 00 00 00 F9 01 00 00 00 00 00 00 00 |................|
000001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000200: 00 00 8B E3 FB C5 7C A5 1A A7 E4 A7 86 AE 00 00 |......|.........|
00000210: 00 00 4C 48 B2 00 31 EA FB C5 47 FE 4A F3 91 F2 |..LH..1...G.J...|
00000220: 0E F2 50 F2 33 F3 57 F1 CA F1 ED F6 3E F1 2F F3 |..P.3.W.....>./.|
00000230: 66 FE A5 F4 ED F5 00 00 00 00 00 00 00 00 00 00 |f...............|
00000240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000250: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000290: 00 00 00 00 00 00 00 00 00 00 FF 00 00 28 00 99 |.............(..|
000002A0: 22 3F 97 1D BF 9D 22 3B 00 00 00 29 00 9F 31 2C |"?....";...)..1,|
000002B0: 30 3A 84 31 2C 5A 24 3A A0 31 3A 99 22 98 22 3A |0:.1,Z$:.1:.".":|
000002C0: 8E 00 FF 00 00 A9 FF 8D 29 03 A9 02 85 C6 A9 13 |........).......|
000002D0: 8D 77 02 A9 0D 8D 78 02 A9 FB 8D 02 03 A9 C5 8D |.w....x.........|
000002E0: 03 03 4C 83 A4 00 00 00 00 00 00 00 00 00 00 00 |..L.............|
000002F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000300: 00 00 12 15 0E 39 39 39 20 20 20 20 20 20 20 20 |.....999 |
00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C | L|
00000350: 7E 05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |~. |
00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 20 20 20 84 0E A0 38 4C 7D 05 20 20 20 20 20 20 | ...8L}. |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 BE | .|
00000480: 60 03 E8 18 8E C2 03 E8 8A 0A 0A 0A 85 0F 0A 4C |`..............L|
00000490: CF 05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004D0: 20 6D E6 07 8D E6 07 AD E7 07 69 00 8D E7 07 4C | m........i....L|
000004E0: 1D 06 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 18 | .|
00000520: 69 60 81 0D A0 57 B1 0E 85 0E 46 0F 8A 25 BA 4C |i`...W....F..%.L|
00000530: 51 06 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |Q. |
00000540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000550: 20 20 20 AA 8E 5B 08 4C 1C 07 20 20 20 20 20 20 | ..[.L.. |
00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A0 27 | .'|
00000620: D0 1D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 B9 | .|
00000640: 99 03 99 C3 03 88 10 F7 30 11 20 20 20 20 20 20 |........0. |
00000650: 20 20 20 20 20 20 20 20 20 20 20 A9 C3 8D 4F 08 | ...O.|
00000660: A9 03 8D 50 08 A9 D1 8D C3 03 A9 03 8D C4 03 4C |...P...........L|
00000670: 87 07 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000680: 20 20 20 20 20 20 20 20 20 A9 5C 8D D1 03 A9 08 | .\.....|
00000690: 8D D2 03 A9 60 8D 58 08 D0 1B 20 20 20 20 20 20 |....`.X... |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006B0: 20 20 20 20 20 A9 89 8D 53 08 A9 8F 8D 57 08 4C | ...S....W.L|
000006C0: E5 07 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 20 20 20 20 6C FE FF 99 00 08 88 D0 FA | l........|
000006F0: 4C E2 FC 8C 00 BC DC FF 00 FF 04 9D 9C FF 04 FF |L...............|
00000700: 00 FF 00 4F 08 0A 00 9E 32 30 32 34 3A 8F 22 14 |...O....2024:.".|
00000710: 14 14 14 14 14 14 14 14 14 14 14 52 45 4D 20 57 |...........REM W|
00000720: 2E 4F 57 45 4E 20 4D 55 52 43 4F 54 54 20 46 45 |.OWEN MURCOTT FE|
00000730: 42 52 55 41 52 59 20 31 39 38 33 20 20 20 20 20 |BRUARY 1983 |
00000740: 20 20 20 20 20 20 20 57 4F 4D 46 49 53 20 36 34 | WOMFIS 64|
00000750: 00 5C 08 0B 00 00 35 30 3A 4D 4C C1 04 00 86 08 |.\....50:ML.....|
00000760: 32 00 9C 3A 42 24 B2 22 1D 1D 1D 1D 1D 22 3A 45 |2..:B$.".....":E|
00000770: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00000780: 20 20 20 20 20 20 22 00 96 08 33 00 4C 24 B2 22 | "...3.L$."|
00000790: 11 11 11 11 11 11 22 00 E4 08 34 00 46 24 B2 22 |......"...4.F$."|
000007A0: 11 1F D3 50 45 43 49 46 49 43 41 54 49 4F 4E 3A |...PECIFICATION:|
000007B0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 11 A3 |................|
000007C0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 97 22 3A 47 |.............":G|
000007D0: 24 B2 22 11 1C C8 49 4E 54 3A 98 9D 9D 9D 9D 9D |$."...INT:......|
000007E0: 11 A3 A3 A3 A3 00 22 09 35 00 48 24 B2 22 D9 4F |......".5.H$.".O|
000007F0: 55 20 43 41 4E 20 45 4E 54 45 52 20 54 48 45 20 |U CAN ENTER THE |
00000800: 52 4F 55 54 49 4E 45 20 46 52 4F 4D 20 44 49 52 |ROUTINE FROM DIR|
00000810: 45 43 54 20 20 20 4D 4F 44 45 20 12 53 59 53 2E |ECT MODE .SYS.|
00000820: 2E 2E 2E 00 56 09 36 00 4B 24 B2 22 11 1E C0 C0 |....V.6.K$."....|
00000830: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000840: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000850: C0 C0 C0 C0 C0 C0 22 00 6C 09 3C 00 53 48 B2 36 |......".l.<.SH.6|
00000860: 35 33 3A 43 43 B2 36 3A 8D 35 30 30 30 00 A8 09 |53:CC.6:.5000...|
00000870: 64 00 99 22 93 22 C7 28 31 34 29 4C 24 2C 2C 22 |d..".".(14)L$,,"|
00000880: 9A 9D 9D AC 12 AC BB 92 BB 9D 9D 9D 9D 11 20 AC |.............. .|
00000890: 12 BE 92 BE 9D 9D 9D 9D 11 AC BB 12 A1 92 A1 9D |................|
000008A0: 9D 9D 9D 11 20 12 A2 A2 92 00 D4 09 65 00 99 42 |.... .......e..B|
000008B0: 24 22 11 11 11 12 2A 20 20 D3 CF C6 D4 D7 C1 D2 |$"....* .......|
000008C0: C5 20 C1 CE C4 20 D0 D2 CF C7 D2 C1 CD CD C9 CE |. ... ..........|
000008D0: C7 20 20 2A 22 00 0E 0A 66 00 99 42 24 22 11 11 |. *"...f..B$"..|
000008E0: 11 98 20 20 33 2E 30 20 20 D0 D2 CF C7 D2 C1 CD |.. 3.0 .......|
000008F0: CD C9 CE C7 20 C5 D8 C5 D2 C3 C9 D3 C5 D3 22 3A |.... .........":|
00000900: 54 B2 33 3A 8D 31 30 30 30 3A 8D 36 30 30 30 00 |T.3:.1000:.6000.|
00000910: 30 0A 78 00 43 43 B2 31 35 3A 8D 35 30 30 30 3A |0.x.CC.15:.5000:|
00000920: 99 22 93 12 1F C9 CE D4 D2 CF C4 D5 C3 D4 C9 CF |."..............|
00000930: CE 00 60 0A 79 00 99 4C 24 22 97 D4 48 45 53 45 |..`.y..L$"..HESE|
00000940: A0 45 58 45 52 43 49 53 45 53 A0 41 52 45 A0 53 |.EXERCISES.ARE.S|
00000950: 45 51 55 45 4E 43 45 44 A0 49 4E A0 4F 52 44 45 |EQUENCED.IN.ORDE|
00000960: 52 00 8D 0A 7A 00 99 22 4F 46 A0 43 4F 4D 50 4C |R...z.."OF.COMPL|
00000970: 45 58 49 54 59 2E 20 20 D9 4F 55 20 53 48 4F 55 |EXITY. .OU SHOU|
00000980: 4C 44 A0 48 41 56 45 A0 56 49 45 57 45 44 00 BC |LD.HAVE.VIEWED..|
00000990: 0A 7B 00 99 22 41 4C 4C A0 4C 45 53 53 4F 4E 53 |.{.."ALL.LESSONS|
000009A0: A0 42 45 46 4F 52 45 A0 53 54 41 52 54 49 4E 47 |.BEFORE.STARTING|
000009B0: A0 54 48 45 4D 2E 22 3A 8D 31 31 30 30 00 EF 0A |.THEM.":.1100...|
000009C0: 82 00 99 22 93 22 4C 24 22 97 D4 48 45 52 45 A0 |..."."L$"..HERE.|
000009D0: 41 52 45 A0 4E 4F A0 53 4F 4C 55 54 49 4F 4E 53 |ARE.NO.SOLUTIONS|
000009E0: 20 47 49 56 45 4E 20 20 2E 2E 2E 20 20 54 48 45 | GIVEN ... THE|
000009F0: 00 37 0B 83 00 99 22 4F 4E 4C 59 A0 53 4F 4C 55 |.7...."ONLY.SOLU|
00000A00: 54 49 4F 4E A0 49 53 A0 41 A0 50 52 4F 47 52 41 |TION.IS.A.PROGRA|
00000A10: 4D A0 57 48 49 43 48 A0 4D 45 45 54 53 20 20 54 |M.WHICH.MEETS T|
00000A20: 48 45 A0 53 50 45 43 49 46 49 43 41 54 49 4F 4E |HE.SPECIFICATION|
00000A30: 21 22 3A 8D 31 31 30 30 00 46 0B 8C 00 43 43 B2 |!":.1100.F...CC.|
00000A40: 33 3A 8D 35 30 30 30 00 90 0B 8D 00 99 22 93 11 |3:.5000......"..|
00000A50: 11 11 97 22 42 24 22 12 31 92 22 42 24 22 D5 53 |..."B$".1."B$".S|
00000A60: 49 4E 47 A0 54 48 45 A0 53 43 52 45 45 4E 22 3A |ING.THE.SCREEN":|
00000A70: 99 22 11 11 22 42 24 22 12 32 92 22 42 24 22 D5 |.".."B$".2."B$".|
00000A80: 53 49 4E 47 A0 54 48 45 A0 4B 45 59 42 4F 41 52 |SING.THE.KEYBOAR|
00000A90: 44 00 D2 0B 8E 00 99 22 11 11 22 42 24 22 12 33 |D......".."B$".3|
00000AA0: 92 22 42 24 22 C1 52 49 54 48 4D 45 54 49 43 22 |."B$".RITHMETIC"|
00000AB0: 3A 99 22 11 11 22 42 24 22 12 34 92 22 42 24 22 |:.".."B$".4."B$"|
00000AC0: C1 43 43 45 53 53 49 4E 47 A0 56 41 52 49 41 42 |.CCESSING.VARIAB|
00000AD0: 4C 45 53 00 FC 0B 8F 00 99 22 11 11 22 42 24 22 |LES......".."B$"|
00000AE0: 12 35 92 22 42 24 22 C5 4E 44 22 3A 99 4C 24 22 |.5."B$".ND":.L$"|
00000AF0: 98 C3 48 4F 4F 53 45 20 20 2E 2E 2E 22 00 1B 0C |..HOOSE ..."...|
00000B00: 90 00 8D 31 32 30 30 3A 5A B2 C5 28 5A 24 29 3A |...1200:Z..(Z$):|
00000B10: 8B 5A B3 31 B0 5A B1 35 89 31 34 34 00 36 0C 91 |.Z.1.Z.5.144.6..|
00000B20: 00 91 5A 89 31 35 30 2C 33 30 30 2C 34 35 30 2C |..Z.150,300,450,|
00000B30: 36 30 30 2C 39 35 30 00 71 0C 96 00 99 22 93 22 |600,950.q...."."|
00000B40: 4C 24 4C 24 2C 22 1F 20 12 20 D5 D3 C9 CE C7 20 |L$L$,". . ..... |
00000B50: D4 C8 C5 20 D3 C3 D2 C5 C5 CE 20 22 3A 54 B2 33 |... ...... ":T.3|
00000B60: 3A 8D 31 30 30 30 3A 43 43 B2 31 35 3A 8D 35 30 |:.1000:CC.15:.50|
00000B70: 30 30 00 87 0C C8 00 99 22 93 12 1F C5 D8 C5 D2 |00......".......|
00000B80: C3 C9 D3 C5 20 31 2E 31 00 BA 0C C9 00 99 4B 24 |.... 1.1......K$|
00000B90: 46 24 3A 99 22 CD 4F 44 49 46 59 A0 54 48 45 A0 |F$:.".ODIFY.THE.|
00000BA0: 52 4F 55 54 49 4E 45 A0 49 4E A0 33 2E 35 20 C1 |ROUTINE.IN.3.5 .|
00000BB0: D3 D3 C5 CD C2 CC C5 D2 20 54 4F 00 EE 0C CA 00 |........ TO.....|
00000BC0: 99 22 52 45 56 45 52 53 45 20 4E 4F 4E 2D 53 50 |."REVERSE NON-SP|
00000BD0: 41 43 45 A0 43 48 41 52 41 43 54 45 52 53 20 4F |ACE.CHARACTERS O|
00000BE0: 4E 4C 59 2E 22 3A 54 B2 33 3A 8D 31 30 30 30 00 |NLY.":T.3:.1000.|
00000BF0: 29 0D CB 00 99 4B 24 47 24 3A 99 22 D4 45 53 54 |)....K$G$:.".EST|
00000C00: A0 54 48 45 A0 43 48 41 52 41 43 54 45 52 A0 4C |.THE.CHARACTER.L|
00000C10: 4F 41 44 45 44 A0 41 54 A0 4C 49 4E 45 20 31 31 |OADED.AT.LINE 11|
00000C20: 32 30 2E 22 3A 8D 31 31 30 30 00 3F 0D D2 00 99 |20.":.1100.?....|
00000C30: 22 93 12 1F C5 D8 C5 D2 C3 C9 D3 C5 20 31 2E 32 |"........... 1.2|
00000C40: 00 68 0D D3 00 99 4B 24 46 24 3A 99 22 C3 4C 45 |.h....K$F$:.".LE|
00000C50: 41 52 A0 54 48 45 A0 53 43 52 45 45 4E 2E 22 3A |AR.THE.SCREEN.":|
00000C60: 54 B2 32 3A 8D 31 30 30 30 00 97 0D D4 00 99 4B |T.2:.1000......K|
00000C70: 24 47 24 3A 99 22 D0 52 49 4E 54 A0 24 32 30 20 |$G$:.".RINT.$20 |
00000C80: 49 4E A0 45 41 43 48 A0 4C 4F 43 41 54 49 4F 4E |IN.EACH.LOCATION|
00000C90: 2E 22 3A 8D 31 30 30 30 00 CE 0D D5 00 99 22 11 |.":.1000......".|
00000CA0: D4 48 45 4E A0 54 52 59 A0 50 52 49 4E 54 49 4E |.HEN.TRY.PRINTIN|
00000CB0: 47 A0 41 A0 44 49 46 46 45 52 45 4E 54 A0 43 48 |G.A.DIFFERENT.CH|
00000CC0: 41 52 41 43 54 45 52 2E 22 3A 8D 31 30 30 30 00 |ARACTER.":.1000.|
00000CD0: DC 0D D6 00 99 48 24 3A 8D 31 31 30 30 00 F2 0D |.....H$:.1100...|
00000CE0: DC 00 99 22 93 12 1F C5 D8 C5 D2 C3 C9 D3 C5 20 |..."........... |
00000CF0: 31 2E 33 00 25 0E DD 00 99 4B 24 46 24 3A 99 22 |1.3.%....K$F$:."|
00000D00: C1 44 44 A0 54 4F 20 C5 58 45 52 43 49 53 45 A0 |.DD.TO .XERCISE.|
00000D10: 31 2E 32 A0 54 48 45 A0 53 54 45 50 53 A0 54 4F |1.2.THE.STEPS.TO|
00000D20: A0 50 52 49 4E 54 00 54 0E DE 00 99 22 59 4F 55 |.PRINT.T...."YOU|
00000D30: 52 A0 4E 41 4D 45 A0 4F 4E 20 54 48 45 A0 53 45 |R.NAME.ON THE.SE|
00000D40: 43 4F 4E 44 A0 4C 49 4E 45 2E 22 3A 54 B2 33 3A |COND.LINE.":T.3:|
00000D50: 8D 31 30 30 30 00 91 0E DF 00 99 4B 24 47 24 3A |.1000......K$G$:|
00000D60: 99 22 D5 53 45 20 12 2E 42 59 54 92 20 46 4F 52 |.".SE ..BYT. FOR|
00000D70: A0 54 48 45 A0 53 54 52 49 4E 47 A0 4F 46 A0 43 |.THE.STRING.OF.C|
00000D80: 48 41 52 41 43 54 45 52 53 2E 11 22 3A 8D 31 30 |HARACTERS..":.10|
00000D90: 30 30 00 9F 0E E0 00 99 48 24 3A 8D 31 31 30 30 |00......H$:.1100|
00000DA0: 00 B5 0E E6 00 99 22 93 12 1F C5 D8 C5 D2 C3 C9 |......".........|
00000DB0: D3 C5 20 31 2E 34 00 E9 0E E7 00 99 4B 24 46 24 |.. 1.4......K$F$|
00000DC0: 3A 99 22 D0 52 49 4E 54 A0 41 4E 59 A0 53 54 52 |:.".RINT.ANY.STR|
00000DD0: 49 4E 47 A0 4F 46 A0 43 48 41 52 41 43 54 45 52 |ING.OF.CHARACTER|
00000DE0: 53 20 28 4D 41 58 20 34 30 29 00 15 0F E8 00 99 |S (MAX 40)......|
00000DF0: 22 4F 4E 20 41 4E 59 20 4C 49 4E 45 20 4F 46 20 |"ON ANY LINE OF |
00000E00: 54 48 45 20 53 43 52 45 45 4E 2E 22 3A 54 B2 34 |THE SCREEN.":T.4|
00000E10: 3A 8D 31 30 30 30 00 46 0F E9 00 99 4B 24 47 24 |:.1000.F....K$G$|
00000E20: 3A 99 22 CD 4F 44 49 46 59 A0 C5 58 45 52 43 49 |:.".ODIFY..XERCI|
00000E30: 53 45 20 31 2E 33 20 54 4F A0 47 45 54 A0 54 48 |SE 1.3 TO.GET.TH|
00000E40: 45 4D 2C 20 54 48 45 00 86 0F EA 00 99 22 4C 49 |EM, THE......"LI|
00000E50: 4E 45 A0 4E 55 4D 42 45 52 20 41 4E 44 A0 4C 45 |NE.NUMBER AND.LE|
00000E60: 4E 47 54 48 A0 46 52 4F 4D A0 50 52 45 2D 44 45 |NGTH.FROM.PRE-DE|
00000E70: 46 49 4E 45 44 A0 4C 4F 43 41 54 49 4F 4E 53 2E |FINED.LOCATIONS.|
00000E80: 22 3A 8D 31 30 30 30 00 B3 0F EC 00 99 22 11 D0 |":.1000......"..|
00000E90: 52 49 4D 45 20 54 48 45 4D A0 57 49 54 48 A0 50 |RIME THEM.WITH.P|
00000EA0: 4F 4B 45 53 20 42 45 46 4F 52 45 A0 45 4E 54 45 |OKES BEFORE.ENTE|
00000EB0: 52 49 4E 47 00 D2 0F ED 00 99 22 54 48 45 20 CD |RING......"THE .|
00000EC0: C1 C3 C8 C9 CE C5 20 C3 CF C4 C5 2E 22 3A 8D 31 |...... .....":.1|
00000ED0: 31 30 30 00 E8 0F F0 00 99 22 93 12 1F C5 D8 C5 |100......"......|
00000EE0: D2 C3 C9 D3 C5 20 31 2E 35 00 1B 10 F1 00 99 4B |..... 1.5......K|
00000EF0: 24 46 24 3A 99 22 CD 4F 44 49 46 59 A0 54 48 45 |$F$:.".ODIFY.THE|
00000F00: A0 52 4F 55 54 49 4E 45 A0 49 4E A0 33 2E 35 20 |.ROUTINE.IN.3.5 |
00000F10: C1 D3 D3 C5 CD C2 CC C5 D2 20 54 4F 00 4C 10 F2 |......... TO.L..|
00000F20: 00 99 22 52 45 56 45 52 53 45 20 43 48 41 52 41 |.."REVERSE CHARA|
00000F30: 43 54 45 52 53 A0 4F 4E 4C 59 20 49 4E A0 41 A0 |CTERS.ONLY IN.A.|
00000F40: 27 57 49 4E 44 4F 57 27 20 31 30 22 3B 00 73 10 |'WINDOW' 10";.s.|
00000F50: F3 00 99 22 50 4F 53 49 54 49 4F 4E 53 A0 57 49 |..."POSITIONS.WI|
00000F60: 44 45 A0 41 4E 44 A0 33 20 4C 49 4E 45 53 A0 44 |DE.AND.3 LINES.D|
00000F70: 45 45 50 2E 00 A1 10 F4 00 99 22 11 D4 48 45 20 |EEP......."..HE |
00000F80: 54 4F 50 A0 4C 45 46 54 20 50 4F 53 49 54 49 4F |TOP.LEFT POSITIO|
00000F90: 4E A0 4F 46 A0 54 48 45 A0 57 49 4E 44 4F 57 A0 |N.OF.THE.WINDOW.|
00000FA0: 49 53 00 D8 10 F5 00 99 22 54 4F 20 42 45 20 50 |IS......"TO BE P|
00000FB0: 4F 4B 45 44 20 46 52 4F 4D A0 C2 C1 D3 C9 C3 2C |OKED FROM......,|
00000FC0: 20 42 45 46 4F 52 45 A0 45 4E 54 52 59 2E 22 3A | BEFORE.ENTRY.":|
00000FD0: 54 B2 36 3A 8D 31 30 30 30 00 1F 11 F6 00 99 4B |T.6:.1000......K|
00000FE0: 24 47 24 3A 99 22 D4 48 45 A0 C2 C1 D3 C9 C3 20 |$G$:.".HE...... |
00000FF0: 52 4F 55 54 49 4E 45 A0 53 48 4F 55 4C 44 A0 43 |ROUTINE.SHOULD.C|
00001000: 48 45 43 4B A0 43 4F 4C 55 4D 4E 20 20 20 41 4E |HECK.COLUMN AN|
00001010: 44 A0 4C 49 4E 45 A0 4C 45 47 41 4C 49 54 59 2E |D.LINE.LEGALITY.|
00001020: 00 29 11 F7 00 8D 31 31 30 30 00 3F 11 FA 00 99 |.)....1100.?....|
00001030: 22 93 12 1F C5 D8 C5 D2 C3 C9 D3 C5 20 31 2E 36 |"........... 1.6|
00001040: 00 71 11 FB 00 99 4B 24 46 24 3A 99 22 CD 4F 44 |.q....K$F$:.".OD|
00001050: 49 46 59 A0 54 48 45 A0 C2 C1 D3 C9 C3 20 52 4F |IFY.THE...... RO|
00001060: 55 54 49 4E 45 A0 46 4F 52 A0 C5 58 45 52 43 49 |UTINE.FOR..XERCI|
00001070: 53 45 00 B3 11 FC 00 99 22 31 2E 35 20 54 4F A0 |SE......"1.5 TO.|
00001080: 4D 4F 56 45 A0 54 48 45 A0 57 49 4E 44 4F 57 A0 |MOVE.THE.WINDOW.|
00001090: 55 4E 44 45 52 A0 54 48 45 A0 43 4F 4E 54 52 4F |UNDER.THE.CONTRO|
000010A0: 4C 4F 46 20 C3 D2 D3 D2 2E 22 3A 54 B2 34 3A 8D |LOF .....":T.4:.|
000010B0: 31 30 30 30 00 FC 11 FD 00 99 22 11 D4 48 45 4E |1000......"..HEN|
000010C0: A0 4D 4F 44 49 46 59 A0 46 55 52 54 48 45 52 A0 |.MODIFY.FURTHER.|
000010D0: 54 4F A0 43 4F 4E 54 52 4F 4C A0 54 48 45 A0 53 |TO.CONTROL.THE.S|
000010E0: 49 5A 45 20 4F 46 A0 54 48 45 A0 57 49 4E 44 4F |IZE OF.THE.WINDO|
000010F0: 57 2E 22 3A 54 B2 32 3A 8D 31 30 30 30 00 11 12 |W.":T.2:.1000...|
00001100: FE 00 99 4B 24 47 24 3A 99 22 D5 53 45 A0 12 C7 |...K$G$:.".SE...|
00001110: C5 D4 00 3D 12 FF 00 99 42 24 22 11 12 5D 92 22 |...=....B$"..]."|
00001120: 2C 22 C3 C8 D2 24 28 32 39 29 22 2C 42 24 22 12 |,"...$(29)",B$".|
00001130: DD 92 22 2C 22 C3 C8 D2 24 28 31 35 37 29 00 70 |..","...$(157).p|
00001140: 12 00 01 99 42 24 22 11 12 D1 92 22 2C 22 C3 C8 |....B$"....","..|
00001150: D2 24 28 31 37 29 22 2C 42 24 22 12 51 92 22 2C |.$(17)",B$".Q.",|
00001160: 22 C3 C8 D2 24 28 31 34 35 29 22 3A 8D 31 31 30 |"...$(145)":.110|
00001170: 30 00 86 12 04 01 99 22 93 12 1F C5 D8 C5 D2 C3 |0......"........|
00001180: C9 D3 C5 20 31 2E 37 00 B8 12 05 01 99 4B 24 46 |... 1.7......K$F|
00001190: 24 3A 99 22 C3 4C 45 41 52 A0 54 48 45 A0 53 43 |$:.".LEAR.THE.SC|
000011A0: 52 45 45 4E 2E 20 20 D0 52 49 4E 54 A0 41 A0 53 |REEN. .RINT.A.S|
000011B0: 48 41 50 45 A0 4D 41 44 45 00 E9 12 06 01 99 22 |HAPE.MADE......"|
000011C0: 46 52 4F 4D A0 41 A0 42 4C 4F 43 4B A0 4F 46 A0 |FROM.A.BLOCK.OF.|
000011D0: 47 52 41 50 48 49 43 53 A0 53 59 4D 42 4F 4C 53 |GRAPHICS.SYMBOLS|
000011E0: 2C 20 34 58 34 20 41 54 22 3B 00 1A 13 07 01 99 |, 4X4 AT";......|
000011F0: 22 54 48 45 A0 54 4F 50 A0 4C 45 46 54 A0 43 4F |"THE.TOP.LEFT.CO|
00001200: 52 4E 45 52 2E 20 20 CD 4F 56 45 A0 49 54 A0 42 |RNER. .OVE.IT.B|
00001210: 59 A0 54 45 53 54 49 4E 47 22 3B 00 4C 13 08 01 |Y.TESTING";.L...|
00001220: 99 22 57 48 49 43 48 A0 46 55 4E 43 54 49 4F 4E |."WHICH.FUNCTION|
00001230: A0 4B 45 59 A0 49 53 A0 48 45 4C 44 A0 44 4F 57 |.KEY.IS.HELD.DOW|
00001240: 4E 2E 22 3A 54 B2 36 3A 8D 31 30 30 30 00 80 13 |N.":T.6:.1000...|
00001250: 0A 01 99 4B 24 47 24 3A 99 22 D9 4F 55 A0 57 49 |...K$G$:.".OU.WI|
00001260: 4C 4C A0 4E 45 45 44 A0 41 20 44 45 4C 41 59 A0 |LL.NEED.A DELAY.|
00001270: 4C 4F 4F 50 A0 42 45 54 57 45 45 4E A0 45 41 43 |LOOP.BETWEEN.EAC|
00001280: 48 00 AD 13 0B 01 99 22 54 45 53 54 2E 20 20 CC |H......"TEST. .|
00001290: 4F 43 41 54 49 4F 4E 20 24 43 35 20 43 4F 4E 54 |OCATION $C5 CONT|
000012A0: 41 49 4E 53 A0 54 48 45 A0 4B 45 59 27 53 00 CC |AINS.THE.KEY'S..|
000012B0: 13 0C 01 99 22 43 4F 2D 4F 52 44 49 4E 41 54 45 |...."CO-ORDINATE|
000012C0: 53 3A 22 3A 54 B2 34 3A 8D 31 30 30 30 00 FD 13 |S:":T.4:.1000...|
000012D0: 0D 01 99 22 11 12 46 31 92 20 20 34 22 42 24 22 |..."..F1. 4"B$"|
000012E0: 12 46 33 92 20 20 35 22 42 24 22 12 46 35 92 20 |.F3. 5"B$".F5. |
000012F0: 20 36 22 42 24 22 12 46 37 92 20 20 33 22 00 18 | 6"B$".F7. 3"..|
00001300: 14 0F 01 99 22 11 12 CE 4F A0 4B 45 59 92 20 20 |...."...O.KEY. |
00001310: 36 34 22 3A 8D 31 31 30 30 00 2E 14 18 01 99 22 |64":.1100......"|
00001320: 93 12 1F C5 D8 C5 D2 C3 C9 D3 C5 20 31 2E 38 00 |........... 1.8.|
00001330: 5D 14 19 01 99 4B 24 46 24 3A 99 22 D2 4F 54 41 |]....K$F$:.".OTA|
00001340: 54 45 A0 54 48 45 A0 53 43 52 45 45 4E A0 48 4F |TE.THE.SCREEN.HO|
00001350: 52 49 5A 4F 4E 54 41 4C 4C 59 A0 41 4E 44 00 8A |RIZONTALLY.AND..|
00001360: 14 1A 01 99 22 56 45 52 54 49 43 41 4C 4C 59 20 |...."VERTICALLY |
00001370: 55 4E 44 45 52 A0 43 4F 4E 54 52 4F 4C A0 4F 46 |UNDER.CONTROL.OF|
00001380: A0 54 48 45 A0 4E 55 4D 42 45 52 00 A1 14 1B 01 |.THE.NUMBER.....|
00001390: 99 22 4B 45 59 53 2E 22 3A 54 B2 34 3A 8D 31 30 |."KEYS.":T.4:.10|
000013A0: 30 30 00 EA 14 1C 01 99 4B 24 47 24 3A 99 22 C6 |00......K$G$:.".|
000013B0: 49 4C 4C A0 54 48 45 A0 53 43 52 45 45 4E A0 57 |ILL.THE.SCREEN.W|
000013C0: 49 54 48 A0 41 A0 50 41 54 54 45 52 4E A0 49 4E |ITH.A.PATTERN.IN|
000013D0: A0 C2 C1 D3 C9 C3 20 54 4F A0 43 48 45 43 4B A0 |...... TO.CHECK.|
000013E0: 54 48 45 A0 45 46 46 45 43 54 2E 00 F9 14 1D 01 |THE.EFFECT......|
000013F0: 8D 31 31 30 30 3A 89 31 34 30 00 35 15 2C 01 99 |.1100:.140.5.,..|
00001400: 22 93 22 4C 24 4C 24 2C 22 12 1F 20 D5 D3 C9 CE |"."L$L$,".. ....|
00001410: C7 20 D4 C8 C5 20 CB C5 D9 C2 CF C1 D2 C4 20 22 |. ... ........ "|
00001420: 3A 54 B2 33 3A 8D 31 30 30 30 3A 43 43 B2 31 35 |:T.3:.1000:CC.15|
00001430: 3A 8D 35 30 30 30 00 4B 15 2D 01 99 22 93 12 1F |:.5000.K.-.."...|
00001440: C5 D8 C5 D2 C3 C9 D3 C5 20 32 2E 31 00 7F 15 2E |........ 2.1....|
00001450: 01 99 4B 24 46 24 3A 99 22 D0 52 49 4E 54 A0 41 |..K$F$:.".RINT.A|
00001460: A0 4C 49 4E 45 A0 4F 46 A0 54 45 58 54 A0 43 41 |.LINE.OF.TEXT.CA|
00001470: 4C 4C 49 4E 47 A0 46 4F 52 A0 49 4E 50 55 54 2E |LLING.FOR.INPUT.|
00001480: 00 AD 15 2F 01 99 22 C7 45 54 A0 43 48 41 52 41 |.../..".ET.CHARA|
00001490: 43 54 45 52 53 A0 46 52 4F 4D A0 54 48 45 A0 49 |CTERS.FROM.THE.I|
000014A0: 4E 50 55 54 A0 42 55 46 46 45 52 A0 54 4F 00 D8 |NPUT.BUFFER.TO..|
000014B0: 15 30 01 99 22 41 A0 D2 C5 D4 D5 D2 CE 2C 20 41 |.0.."A......., A|
000014C0: 4E 44 A0 50 52 49 4E 54 A0 54 48 45 4D 20 4F 4E |ND.PRINT.THEM ON|
000014D0: A0 54 48 45 A0 4E 45 58 54 00 EF 15 31 01 99 22 |.THE.NEXT...1.."|
000014E0: 4C 49 4E 45 2E 22 3A 54 B2 36 3A 8D 31 30 30 30 |LINE.":T.6:.1000|
000014F0: 00 21 16 32 01 99 4B 24 47 24 3A 99 22 C4 4F A0 |.!.2..K$G$:.".O.|
00001500: 4E 4F 54 A0 46 4F 52 47 45 54 A0 54 4F A0 44 45 |NOT.FORGET.TO.DE|
00001510: 43 52 45 4D 45 4E 54 A0 54 48 45 A0 42 55 46 46 |CREMENT.THE.BUFF|
00001520: 45 52 00 4A 16 33 01 99 22 43 4F 55 4E 54 45 52 |ER.J.3.."COUNTER|
00001530: 2C 20 41 4E 44 A0 53 48 49 46 54 A0 54 48 45 A0 |, AND.SHIFT.THE.|
00001540: 43 48 41 52 41 43 54 45 52 53 2E 00 79 16 34 01 |CHARACTERS..y.4.|
00001550: 99 22 11 D5 53 45 20 12 97 53 45 49 98 92 20 54 |."..SE ..SEI.. T|
00001560: 4F A0 44 49 53 41 42 4C 45 A0 49 4E 54 45 52 52 |O.DISABLE.INTERR|
00001570: 55 50 54 53 20 57 48 49 4C 45 00 B0 16 35 01 99 |UPTS WHILE...5..|
00001580: 22 4C 4F 41 44 49 4E 47 20 41 A0 43 48 41 52 41 |"LOADING A.CHARA|
00001590: 43 54 45 52 2E 20 20 12 97 43 4C 49 98 92 20 41 |CTER. ..CLI.. A|
000015A0: 46 54 45 52 57 41 52 44 53 2E 22 3A 8D 31 31 30 |FTERWARDS.":.110|
000015B0: 30 00 C6 16 36 01 99 22 93 12 1F C5 D8 C5 D2 C3 |0...6.."........|
000015C0: C9 D3 C5 20 32 2E 32 00 F8 16 37 01 99 4B 24 46 |... 2.2...7..K$F|
000015D0: 24 3A 99 22 CD 4F 44 49 46 59 A0 C5 58 45 52 43 |$:.".ODIFY..XERC|
000015E0: 49 53 45 20 32 2E 32 20 54 4F A0 41 43 43 45 50 |ISE 2.2 TO.ACCEP|
000015F0: 54 A0 4E 55 4D 45 52 49 43 00 26 17 38 01 99 22 |T.NUMERIC.&.8.."|
00001600: 43 48 41 52 41 43 54 45 52 53 A0 4F 4E 4C 59 20 |CHARACTERS.ONLY |
00001610: 41 4E 44 A0 52 45 50 45 41 54 A0 54 48 45 A0 43 |AND.REPEAT.THE.C|
00001620: 41 4C 4C A0 46 4F 52 00 5B 17 39 01 99 22 49 4E |ALL.FOR.[.9.."IN|
00001630: 50 55 54 A0 49 46 A0 4E 4F 4E 2D 4E 55 4D 45 52 |PUT.IF.NON-NUMER|
00001640: 49 43 53 20 41 52 45 A0 45 4E 54 45 52 45 44 2E |ICS ARE.ENTERED.|
00001650: 22 3A 8D 31 31 30 30 3A 89 31 34 30 00 93 17 C2 |":.1100:.140....|
00001660: 01 99 22 93 22 4C 24 4C 24 2C 22 20 20 20 20 12 |.."."L$L$," .|
00001670: 1F 20 C1 D2 C9 D4 C8 CD C5 D4 C9 C3 20 22 3A 54 |. .......... ":T|
00001680: B2 33 3A 8D 31 30 30 30 3A 43 43 B2 31 35 3A 8D |.3:.1000:CC.15:.|
00001690: 35 30 30 30 00 A9 17 CC 01 99 22 93 12 1F C5 D8 |5000......".....|
000016A0: C5 D2 C3 C9 D3 C5 20 33 2E 31 00 E0 17 CD 01 99 |...... 3.1......|
000016B0: 4B 24 46 24 3A 99 22 C3 4F 4E 56 45 52 54 A0 41 |K$F$:.".ONVERT.A|
000016C0: A0 31 2D 42 59 54 45 20 C2 C3 C4 20 4E 55 4D 42 |.1-BYTE ... NUMB|
000016D0: 45 52 20 54 4F A0 43 48 41 52 41 43 54 45 52 22 |ER TO.CHARACTER"|
000016E0: 3B 00 04 18 CE 01 99 22 46 4F 52 4D A0 41 4E 44 |;......"FORM.AND|
000016F0: A0 50 52 49 4E 54 A0 49 54 2E 22 3A 54 B2 33 3A |.PRINT.IT.":T.3:|
00001700: 8D 31 30 30 30 00 36 18 CF 01 99 4B 24 47 24 3A |.1000.6....K$G$:|
00001710: 99 22 C3 52 45 41 54 45 A0 54 48 45 A0 4E 55 4D |.".REATE.THE.NUM|
00001720: 42 45 52 A0 49 4E A0 C2 C1 D3 C9 C3 20 28 3C 31 |BER.IN...... (<1|
00001730: 30 30 29 20 41 4E 44 00 67 18 D0 01 99 22 50 4F |00) AND.g...."PO|
00001740: 4B 45 20 49 54 A0 49 4E 54 4F A0 54 48 45 A0 42 |KE IT.INTO.THE.B|
00001750: 59 54 45 A0 42 45 46 4F 52 45 A0 45 4E 54 52 59 |YTE.BEFORE.ENTRY|
00001760: 2E 22 3A 8D 31 31 30 30 00 7D 18 D6 01 99 22 93 |.":.1100.}....".|
00001770: 12 1F C5 D8 C5 D2 C3 C9 D3 C5 20 33 2E 32 00 AD |.......... 3.2..|
00001780: 18 D8 01 99 4B 24 46 24 3A 99 22 CD 4F 44 49 46 |....K$F$:.".ODIF|
00001790: 59 A0 C5 58 45 52 43 49 53 45 20 33 2E 31 20 54 |Y..XERCISE 3.1 T|
000017A0: 4F A0 54 41 4B 45 A0 54 57 4F 20 C2 C3 C4 00 E5 |O.TAKE.TWO .....|
000017B0: 18 D9 01 99 22 42 59 54 45 53 2C 20 41 44 44 A0 |...."BYTES, ADD.|
000017C0: 54 48 45 4D 2C 20 41 4E 44 A0 50 52 49 4E 54 A0 |THEM, AND.PRINT.|
000017D0: 54 48 45 A0 52 45 53 55 4C 54 2E 22 3A 54 B2 33 |THE.RESULT.":T.3|
000017E0: 3A 8D 31 30 30 30 00 1F 19 DA 01 99 4B 24 47 24 |:.1000......K$G$|
000017F0: 3A 99 22 D4 48 45 A0 52 45 53 55 4C 54 A0 4D 41 |:.".HE.RESULT.MA|
00001800: 59 A0 42 45 20 32 2D 42 59 54 45 2E 20 20 D4 45 |Y.BE 2-BYTE. .E|
00001810: 53 54 A0 C3 C1 D2 D2 D9 2E 22 3A 8D 31 31 30 30 |ST.......":.1100|
00001820: 00 35 19 E0 01 99 22 93 12 1F C5 D8 C5 D2 C3 C9 |.5....".........|
00001830: D3 C5 20 33 2E 33 00 6C 19 E1 01 99 4B 24 46 24 |.. 3.3.l....K$F$|
00001840: 3A 99 22 CE 4F 57 20 4D 4F 44 49 46 59 A0 C5 58 |:.".OW MODIFY..X|
00001850: 45 52 43 49 53 45 20 33 2E 32 20 54 4F A0 5A 45 |ERCISE 3.2 TO.ZE|
00001860: 52 4F 2D 53 55 50 50 52 45 53 53 22 3B 00 89 19 |RO-SUPPRESS";...|
00001870: E2 01 99 22 54 48 45 A0 52 45 53 55 4C 54 2E 22 |..."THE.RESULT."|
00001880: 3A 54 B2 33 3A 8D 31 30 30 30 00 BD 19 E3 01 99 |:T.3:.1000......|
00001890: 4B 24 47 24 3A 99 22 D0 52 49 4E 54 A0 D3 D0 C1 |K$G$:.".RINT....|
000018A0: C3 C5 20 28 24 32 30 29 20 46 4F 52 20 45 41 43 |.. ($20) FOR EAC|
000018B0: 48 A0 5A 45 52 4F A0 51 55 41 52 54 45 54 00 D6 |H.ZERO.QUARTET..|
000018C0: 19 E4 01 99 22 4F 46 A0 42 49 54 53 A0 49 4E A0 |...."OF.BITS.IN.|
000018D0: 41 20 42 59 54 45 2E 00 05 1A E5 01 99 22 11 C4 |A BYTE......."..|
000018E0: 4F 4E 27 54 A0 46 4F 52 47 45 54 A0 54 4F A0 50 |ON'T.FORGET.TO.P|
000018F0: 52 49 4E 54 A0 41 A0 53 49 4E 47 4C 45 20 30 20 |RINT.A.SINGLE 0 |
00001900: 46 4F 52 A0 41 4E 00 21 1A E6 01 99 22 41 4C 4C |FOR.AN.!...."ALL|
00001910: 2D 5A 45 52 4F 20 42 59 54 45 21 22 3A 8D 31 31 |-ZERO BYTE!":.11|
00001920: 30 30 00 37 1A EA 01 99 22 93 12 1F C5 D8 C5 D2 |00.7....".......|
00001930: C3 C9 D3 C5 20 33 2E 34 00 6A 1A EB 01 99 4B 24 |.... 3.4.j....K$|
00001940: 46 24 3A 99 22 DA 41 4B 53 2C 20 50 41 47 45 53 |F$:.".AKS, PAGES|
00001950: 20 36 38 20 4F 4E 2C 20 44 45 53 43 52 49 42 45 | 68 ON, DESCRIBE|
00001960: 53 A0 41 A0 52 4F 55 54 49 4E 45 00 9F 1A EC 01 |S.A.ROUTINE.....|
00001970: 99 22 46 4F 52 20 4D 55 4C 54 49 50 4C 59 49 4E |."FOR MULTIPLYIN|
00001980: 47 20 46 49 58 45 44 2D 50 4F 49 4E 54 A0 42 49 |G FIXED-POINT.BI|
00001990: 4E 41 52 59 22 3A 99 22 4E 55 4D 42 45 52 53 2E |NARY":."NUMBERS.|
000019A0: 00 CD 1A ED 01 99 22 11 C3 4F 44 45 A0 54 48 45 |......"..ODE.THE|
000019B0: A0 52 4F 55 54 49 4E 45 A0 41 54 A0 50 41 47 45 |.ROUTINE.AT.PAGE|
000019C0: A0 38 34 20 54 4F A0 4F 50 45 52 41 54 45 00 FE |.84 TO.OPERATE..|
000019D0: 1A EE 01 99 22 4F 4E A0 54 57 4F A0 42 59 54 45 |...."ON.TWO.BYTE|
000019E0: 53 A0 57 48 4F 53 45 20 56 41 4C 55 45 53 A0 41 |S.WHOSE VALUES.A|
000019F0: 52 45 A0 50 4F 4B 45 44 20 46 52 4F 4D 22 3B 00 |RE.POKED FROM";.|
00001A00: 2B 1B EF 01 99 22 C2 C1 D3 C9 C3 2C 20 41 4E 44 |+...."....., AND|
00001A10: A0 54 4F A0 50 52 49 4E 54 A0 54 48 45 A0 52 45 |.TO.PRINT.THE.RE|
00001A20: 53 55 4C 54 2E 22 3A 8D 31 31 30 30 00 41 1B F4 |SULT.":.1100.A..|
00001A30: 01 99 22 93 12 1F C5 D8 C5 D2 C3 C9 D3 C5 20 33 |.."........... 3|
00001A40: 2E 35 00 72 1B F5 01 99 4B 24 46 24 3A 99 22 CD |.5.r....K$F$:.".|
00001A50: 4F 44 49 46 59 A0 54 48 45 A0 4D 55 4C 54 49 50 |ODIFY.THE.MULTIP|
00001A60: 4C 49 43 41 54 49 4F 4E A0 52 4F 55 54 49 4E 45 |LICATION.ROUTINE|
00001A70: A0 54 4F 00 9B 1B F6 01 99 22 41 43 43 45 50 54 |.TO......"ACCEPT|
00001A80: A0 41 A0 32 2D 42 59 54 45 20 4D 55 4C 54 49 50 |.A.2-BYTE MULTIP|
00001A90: 4C 49 43 41 4E 44 A0 41 4E 44 A0 41 00 BF 1B F7 |LICAND.AND.A....|
00001AA0: 01 99 22 31 2D 42 59 54 45 A0 4D 55 4C 54 49 50 |.."1-BYTE.MULTIP|
00001AB0: 4C 49 45 52 2E 22 3A 54 B2 34 3A 8D 31 30 30 30 |LIER.":T.4:.1000|
00001AC0: 00 ED 1B F8 01 99 4B 24 47 24 3A 99 22 31 2D 42 |......K$G$:."1-B|
00001AD0: 59 54 45 20 58 20 32 2D 42 59 54 45 20 49 53 A0 |YTE X 2-BYTE IS.|
00001AE0: 33 2D 42 59 54 45 20 52 45 53 55 4C 54 2E 00 19 |3-BYTE RESULT...|
00001AF0: 1C F9 01 99 22 11 97 C2 D9 D4 C5 20 58 20 C8 49 |...."...... X .I|
00001B00: CC 4F 20 3D 20 C2 D9 D4 C5 20 58 20 C8 49 20 2B |.O = .... X .I +|
00001B10: 20 C2 D9 D4 C5 20 58 20 CC 4F 00 4D 1C FA 01 99 | .... X .O.M....|
00001B20: 22 11 98 D5 53 45 20 54 48 45 A0 31 58 31 20 52 |"...SE THE.1X1 R|
00001B30: 4F 55 54 49 4E 45 A0 41 53 A0 41 A0 53 55 42 52 |OUTINE.AS.A.SUBR|
00001B40: 4F 55 54 49 4E 45 2E 22 3A 8D 31 31 30 30 00 63 |OUTINE.":.1100.c|
00001B50: 1C FE 01 99 22 93 12 1F C5 D8 C5 D2 C3 C9 D3 C5 |...."...........|
00001B60: 20 33 2E 36 00 9D 1C FF 01 99 4B 24 46 24 3A 99 | 3.6......K$F$:.|
00001B70: 22 CE 4F 57 20 4D 41 4B 45 A0 41 A0 32 58 32 20 |".OW MAKE.A.2X2 |
00001B80: 4D 55 4C 54 49 50 4C 49 43 41 54 49 4F 4E 20 52 |MULTIPLICATION R|
00001B90: 4F 55 54 49 4E 45 2E 22 3A 8D 31 31 30 30 00 B3 |OUTINE.":.1100..|
00001BA0: 1C 08 02 99 22 93 12 1F C5 D8 C5 D2 C3 C9 D3 C5 |...."...........|
00001BB0: 20 33 2E 37 00 EA 1C 09 02 99 4B 24 46 24 3A 99 | 3.7......K$F$:.|
00001BC0: 22 DA 41 4B 53 A0 50 41 47 45 A0 38 39 20 47 49 |".AKS.PAGE.89 GI|
00001BD0: 56 45 53 A0 41 A0 52 4F 55 54 49 4E 45 A0 54 4F |VES.A.ROUTINE.TO|
00001BE0: A0 44 49 56 49 44 45 20 41 22 3B 00 15 1D 0A 02 |.DIVIDE A";.....|
00001BF0: 99 22 32 2D 42 59 54 45 20 44 49 56 49 44 45 4E |."2-BYTE DIVIDEN|
00001C00: 44 20 42 59 A0 41 A0 31 2D 42 59 54 45 A0 44 49 |D BY.A.1-BYTE.DI|
00001C10: 56 49 53 4F 52 2C 00 3D 1D 0B 02 99 22 47 49 56 |VISOR,.=...."GIV|
00001C20: 49 4E 47 A0 54 48 45 A0 52 45 53 55 4C 54 A0 41 |ING.THE.RESULT.A|
00001C30: 53 A0 51 55 4F 54 49 45 4E 54 A0 41 4E 44 00 78 |S.QUOTIENT.AND.x|
00001C40: 1D 0C 02 99 22 52 45 4D 41 49 4E 44 45 52 2E 22 |...."REMAINDER."|
00001C50: 3A 99 22 11 C3 4F 44 45 A0 54 48 49 53 A0 54 4F |:."..ODE.THIS.TO|
00001C60: A0 44 49 56 49 44 45 A0 56 41 4C 55 45 53 20 50 |.DIVIDE.VALUES P|
00001C70: 4F 4B 45 44 20 46 52 4F 4D 00 90 1D 0D 02 99 22 |OKED FROM......"|
00001C80: C2 C1 D3 C9 C3 2E 22 3A 54 B2 38 3A 8D 31 30 30 |......":T.8:.100|
00001C90: 30 00 C4 1D 0E 02 99 4B 24 47 24 3A 99 22 CE 4F |0......K$G$:.".O|
00001CA0: 54 45 20 54 48 41 54 A0 54 48 45 A0 51 55 4F 54 |TE THAT.THE.QUOT|
00001CB0: 49 45 4E 54 A0 43 4F 55 4C 44 A0 42 45 A0 32 2D |IENT.COULD.BE.2-|
00001CC0: 42 59 54 45 21 00 E4 1D 0F 02 99 22 32 35 36 2F |BYTE!......"256/|
00001CD0: 31 20 49 53 20 32 35 36 20 52 45 4D 41 49 4E 44 |1 IS 256 REMAIND|
00001CE0: 45 52 20 30 2E 00 15 1E 10 02 99 22 11 1C D9 4F |ER 0......."...O|
00001CF0: 55 A0 4E 45 45 44 A0 54 4F A0 4D 4F 44 49 46 59 |U.NEED.TO.MODIFY|
00001D00: A0 48 49 53 A0 41 4C 47 4F 52 49 54 48 4D 2E 22 |.HIS.ALGORITHM."|
00001D10: 3A 8D 31 31 30 30 00 2B 1E 12 02 99 22 93 12 1F |:.1100.+...."...|
00001D20: C5 D8 C5 D2 C3 C9 D3 C5 20 33 2E 38 00 68 1E 13 |........ 3.8.h..|
00001D30: 02 99 4B 24 46 24 3A 99 22 CE 4F 57 A0 4D 41 4B |..K$F$:.".OW.MAK|
00001D40: 45 A0 41 A0 33 2F 31 20 41 4E 44 A0 41 A0 34 2F |E.A.3/1 AND.A.4/|
00001D50: 31 20 44 49 56 49 53 49 4F 4E 20 53 55 42 2D 20 |1 DIVISION SUB- |
00001D60: 20 52 4F 55 54 49 4E 45 2E 00 77 1E 14 02 8D 31 | ROUTINE..w....1|
00001D70: 31 30 30 3A 89 31 34 30 00 B4 1E 58 02 99 22 93 |100:.140...X..".|
00001D80: 22 4C 24 4C 24 2C 22 12 1F 20 C1 C3 C3 C5 D3 D3 |"L$L$,".. ......|
00001D90: C9 CE C7 20 D6 C1 D2 C9 C1 C2 CC C5 D3 20 22 3A |... ......... ":|
00001DA0: 54 B2 33 3A 8D 31 30 30 30 3A 43 43 B2 31 35 3A |T.3:.1000:CC.15:|
00001DB0: 8D 35 30 30 30 00 CA 1E 62 02 99 22 93 12 1F C5 |.5000...b.."....|
00001DC0: D8 C5 D2 C3 C9 D3 C5 20 34 2E 31 00 E9 1E 63 02 |....... 4.1...c.|
00001DD0: 99 4B 24 46 24 3A 99 22 D2 55 4E 20 54 48 49 53 |.K$F$:.".UN THIS|
00001DE0: 20 49 4E 20 C2 C1 D3 C9 C3 3A 00 1F 1F 64 02 99 | IN .....:...d..|
00001DF0: 22 11 1F 20 31 30 20 5A 24 3D 22 C7 28 33 34 29 |".. 10 Z$=".(34)|
00001E00: 22 D3 D4 D2 C9 CE C7 20 D6 C1 D2 C9 C1 C2 CC C5 |"...... ........|
00001E10: 22 C7 28 33 34 29 22 3A 53 59 53 2E 2E 2E 2E 97 |".(34)":SYS.....|
00001E20: 00 56 1F 65 02 99 22 11 C1 43 43 45 53 53 20 5A |.V.e.."..CCESS Z|
00001E30: 24 20 49 4E 20 C1 D3 D3 C5 CD C2 CC C5 D2 20 41 |$ IN ......... A|
00001E40: 4E 44 20 50 52 49 4E 54 20 49 54 2E 22 3A 54 B2 |ND PRINT IT.":T.|
00001E50: 36 3A 8D 31 30 30 30 00 8D 1F 66 02 99 4B 24 47 |6:.1000...f..K$G|
00001E60: 24 3A 99 22 DA 24 20 57 49 4C 4C A0 42 45 A0 41 |$:.".$ WILL.BE.A|
00001E70: 54 A0 54 48 45 A0 53 54 41 52 54 A0 4F 46 A0 56 |T.THE.START.OF.V|
00001E80: 41 52 49 41 42 4C 45 53 20 41 4E 44 22 3B 00 B0 |ARIABLES AND";..|
00001E90: 1F 67 02 99 22 50 4F 49 4E 54 53 A0 54 4F A0 49 |.g.."POINTS.TO.I|
00001EA0: 54 53 A0 53 54 52 49 4E 47 2E 22 3A 8D 31 31 30 |TS.STRING.":.110|
00001EB0: 30 00 C6 1F 6C 02 99 22 93 12 1F C5 D8 C5 D2 C3 |0...l.."........|
00001EC0: C9 D3 C5 20 34 2E 32 00 F6 1F 6D 02 99 4B 24 46 |... 4.2...m..K$F|
00001ED0: 24 3A 99 22 CD 4F 44 49 46 59 A0 C5 58 45 52 43 |$:.".ODIFY..XERC|
00001EE0: 49 53 45 20 34 2E 31 20 54 4F A0 48 41 56 45 A0 |ISE 4.1 TO.HAVE.|
00001EF0: DA 24 20 41 53 A0 41 00 23 20 6E 02 99 22 53 49 |.$ AS.A.# n.."SI|
00001F00: 4E 47 4C 45 2D 44 49 4D 45 4E 53 49 4F 4E A0 41 |NGLE-DIMENSION.A|
00001F10: 52 52 41 59 A0 4F 46 A0 31 30 20 45 4C 45 4D 45 |RRAY.OF.10 ELEME|
00001F20: 4E 54 53 2C 00 50 20 6F 02 99 22 41 4E 44 A0 54 |NTS,.P o.."AND.T|
00001F30: 4F A0 50 52 49 4E 54 A0 54 48 45 A0 CE 54 48 A0 |O.PRINT.THE..TH.|
00001F40: 45 4C 45 4D 45 4E 54 2E 20 20 CE 20 49 53 A0 54 |ELEMENT. . IS.T|
00001F50: 4F 00 76 20 70 02 99 22 42 45 A0 D0 CF CB C5 C4 |O.v p.."BE......|
00001F60: 20 46 52 4F 4D A0 C2 C1 D3 C9 C3 2E 22 3A 54 B2 | FROM.......":T.|
00001F70: 36 3A 8D 31 30 30 30 00 AA 20 71 02 99 4B 24 47 |6:.1000.. q..K$G|
00001F80: 24 3A 99 22 D5 53 45 A0 57 4F 52 44 53 20 2D 20 |$:.".SE.WORDS - |
00001F90: DA C5 D2 CF 2C 20 CF CE C5 2C 20 D4 D7 CF 2C 20 |...., ..., ..., |
00001FA0: 45 54 43 A0 54 4F A0 4D 41 4B 45 00 C8 20 72 02 |ETC.TO.MAKE.. r.|
00001FB0: 99 22 49 54 A0 45 41 53 59 A0 54 4F A0 43 48 45 |."IT.EASY.TO.CHE|
00001FC0: 43 4B 22 3A 8D 31 31 30 30 00 DE 20 76 02 99 22 |CK":.1100.. v.."|
00001FD0: 93 12 1F C5 D8 C5 D2 C3 C9 D3 C5 20 34 2E 33 00 |........... 4.3.|
00001FE0: 15 21 77 02 99 4B 24 46 24 3A 99 22 C1 43 43 45 |.!w..K$F$:.".CCE|
00001FF0: 53 53 A0 54 57 4F A0 49 4E 54 45 47 45 52 A0 56 |SS.TWO.INTEGER.V|
00002000: 41 52 49 41 42 4C 45 53 A0 46 52 4F 4D A0 C2 C1 |ARIABLES.FROM...|
00002010: D3 C9 C3 2C 22 3B 00 4F 21 78 02 99 22 41 44 44 |...,";.O!x.."ADD|
00002020: A0 54 48 45 4D 2C 20 41 4E 44 A0 50 55 54 A0 54 |.THEM, AND.PUT.T|
00002030: 48 45 A0 52 45 53 55 4C 54 A0 49 4E A0 41 A0 54 |HE.RESULT.IN.A.T|
00002040: 48 49 52 44 2E 22 3A 54 B2 34 3A 8D 31 30 30 30 |HIRD.":T.4:.1000|
00002050: 00 86 21 79 02 99 4B 24 47 24 3A 99 22 C4 45 46 |..!y..K$G$:.".EF|
00002060: 49 4E 45 A0 41 4C 4C A0 54 48 52 45 45 A0 49 4E |INE.ALL.THREE.IN|
00002070: A0 C2 C1 D3 C9 C3 2C 20 42 45 46 4F 52 45 A0 45 |......, BEFORE.E|
00002080: 4E 54 52 59 2E 22 3B 00 B9 21 7A 02 99 22 11 1C |NTRY.";..!z.."..|
00002090: C4 4F A0 4E 4F 54 A0 45 58 43 45 45 44 A0 33 32 |.O.NOT.EXCEED.32|
000020A0: 37 36 37 20 49 4E A0 54 48 45 A0 52 45 53 55 4C |767 IN.THE.RESUL|
000020B0: 54 20 28 43 48 45 43 4B 22 3B 00 EA 21 7B 02 99 |T (CHECK";..!{..|
000020C0: 22 41 4E 44 A0 52 45 50 4F 52 54 20 46 52 4F 4D |"AND.REPORT FROM|
000020D0: A0 CD C1 C3 C8 C9 CE C5 20 C3 CF C4 C5 29 2E 22 |........ ....)."|
000020E0: 3A 8D 31 31 30 30 3A 89 31 34 30 00 F4 21 B6 03 |:.1100:.140..!..|
000020F0: 99 22 93 98 22 00 10 22 B7 03 9E 32 30 32 34 3A |."..".."...2024:|
00002100: 8F 22 14 14 14 14 14 14 14 14 14 14 14 14 45 4E |."............EN|
00002110: 44 00 3A 22 E7 03 9E 32 31 33 36 3A 89 35 30 3A |D.:"...2136:.50:|
00002120: 8F 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |."..............|
00002130: 14 14 14 14 14 47 4F 54 4F 35 30 00 5E 22 E8 03 |.....GOTO50.^"..|
00002140: 5A B2 54 49 AA 38 30 AC 54 3A 9E 32 30 34 38 3A |Z.TI.80.T:.2048:|
00002150: 8F 22 14 14 14 14 14 14 14 14 14 14 14 14 14 00 |."..............|
00002160: 70 22 E9 03 8B 5A B3 54 49 B0 C2 28 53 48 29 A7 |p"...Z.TI..(SH).|
00002170: 8E 00 7A 22 EA 03 89 31 30 30 31 00 9E 22 4C 04 |..z"...1001.."L.|
00002180: 99 22 13 22 4C 24 4C 24 4C 24 4C 24 22 91 91 22 |."."L$L$L$L$".."|
00002190: 4B 24 22 12 9A 43 92 4F 4E 54 49 4E 55 45 13 00 |K$"..C.ONTINUE..|
000021A0: B6 22 4F 04 8D 31 32 30 30 3A 8B 5A 24 B3 B1 22 |."O..1200:.Z$.."|
000021B0: 43 22 89 31 31 30 33 00 C0 22 50 04 89 31 31 31 |C".1103.."P..111|
000021C0: 32 00 F0 22 56 04 99 22 13 22 4C 24 4C 24 4C 24 |2.."V.."."L$L$L$|
000021D0: 4C 24 22 12 41 92 47 41 49 4E 20 20 20 12 42 92 |L$".A.GAIN .B.|
000021E0: 41 43 4B 20 20 20 12 43 92 4F 4E 54 49 4E 55 45 |ACK .C.ONTINUE|
000021F0: 13 00 15 23 57 04 5A B2 BB 28 31 29 3A 8D 31 32 |...#W.Z..(1):.12|
00002200: 30 30 3A 8B 5A 24 B3 22 41 22 B0 5A 24 B1 22 43 |00:.Z$."A".Z$."C|
00002210: 22 89 31 31 31 31 00 26 23 58 04 5A B2 C6 28 5A |".1111.&#X.Z..(Z|
00002220: 24 29 AB 36 34 3A 8E 00 4D 23 60 04 99 22 13 22 |$).64:..M#`.."."|
00002230: 4C 24 4C 24 4C 24 4C 24 22 92 D0 52 45 53 53 A0 |L$L$L$L$"..RESS.|
00002240: 12 D2 C5 D4 D5 D2 CE 92 22 45 24 22 13 22 00 67 |........"E$".".g|
00002250: 23 61 04 8D 31 32 30 30 3A 8B 5A 24 B3 B1 C7 28 |#a..1200:.Z$...(|
00002260: 31 33 29 89 31 31 32 31 00 81 23 62 04 99 22 13 |13).1121..#b..".|
00002270: 22 4C 24 4C 24 4C 24 4C 24 45 24 45 24 22 13 22 |"L$L$L$L$E$E$"."|
00002280: 3A 8E 00 96 23 B0 04 A1 5A 24 3A 8B 5A 24 B3 B1 |:...#...Z$:.Z$..|
00002290: 22 22 89 31 32 30 30 00 AA 23 B1 04 A1 5A 24 3A |"".1200..#...Z$:|
000022A0: 8B 5A 24 B2 22 22 89 31 32 30 31 00 D2 23 B2 04 |.Z$."".1201..#..|
000022B0: 9E 32 30 34 38 3A 8E 3A 8F 22 14 14 14 14 14 14 |.2048:.:."......|
000022C0: 14 14 14 14 14 14 14 14 14 14 14 14 14 52 45 54 |.............RET|
000022D0: 55 52 4E 00 0E 24 88 13 97 35 33 32 38 30 2C 43 |URN..$...53280,C|
000022E0: 43 3A 97 35 33 32 38 31 2C 43 43 3A 9E 32 30 34 |C:.53281,CC:.204|
000022F0: 38 3A 8E 3A 8F 22 14 14 14 14 14 14 14 14 14 14 |8:.:."..........|
00002300: 14 14 14 14 14 14 14 14 14 52 45 54 55 52 4E 00 |.........RETURN.|
00002310: 1B 24 70 17 8F 31 35 2C 38 2C 31 35 00 41 24 71 |.$p..15,8,15.A$q|
00002320: 17 8F 31 2C 38 2C 38 2C 22 44 41 54 41 2C 53 2C |..1,8,8,"DATA,S,|
00002330: 52 22 3A 8D 36 30 31 30 3A 8B 45 4E A7 9E 32 30 |R":.6010:.EN..20|
00002340: 32 34 00 48 24 72 17 A0 31 00 7B 24 73 17 8F 32 |24.H$r..1.{$s..2|
00002350: 2C 38 2C 32 2C 22 23 22 3A 98 31 35 2C 22 55 31 |,8,2,"#":.15,"U1|
00002360: 3A 22 3B 32 3B 30 3B 31 3B 30 3A 8D 36 30 31 30 |:";2;0;1;0:.6010|
00002370: 3A 8B 45 4E B2 30 A7 9E 32 30 32 34 00 88 24 74 |:.EN.0..2024..$t|
00002380: 17 A0 32 3A A0 31 35 3A 8E 00 9D 24 7A 17 84 31 |..2:.15:...$z..1|
00002390: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 A3 |5,EN,EM$,ET,ES..|
000023A0: 24 7B 17 8E 00 00 00 AA 49 47 55 |${......IGU |
..143.000000... .$........F............
...T.................V....?.}....}......
.&......................................
........................................
........................................
........................................
.....................X.....HHHHH...F.+.-
.,.. ....-.-P...I.P.JP....)....HP.L.....
....$..................................
..................RUN......... .........
.H......................................
........................................
.....................................E|.
..........LH..1..EG.J.....P.3.W.J...>./.
F.......................................
........................................
.............................(.."?....";
...)..1,0:.1,Z$: 1:.".":........)....F..
.W....X.......E...L.....................
.............999
L~.
.. 8L}.
.`....B..
.......LO.
M......
..I....L..
.I`.. W..
..F..%.LQ.
..[.L..
'P. .
...C....0. .C.O....P..Q.
C....D.L.. .\.Q...
.R..`.X.P. ...
S....W.L..
L......P.L..................O....
2024:."............REM W.OWEN MURCOTT FE
BRUARY 1983 WOMFIS 64.\....50
:MLA....2..:B$.".....":E$."
"...3.L$."......"...4.F$."..SPECIF
ICATION:.............................":G
$."..HINT:............".5.H$."YOU CAN EN
TER THE ROUTINE FROM DIRECT MODE .SYS.
....V.6.K$."............................
..............".L.<.SH.653:CC.6:.5000...
D.."."G(14)L$,,".............. .........
............ .....T.E..B$"....* SOFTWAR
E AND PROGRAMMING *"...F..B$".... 3.0
PROGRAMMING EXERCISES":T.3:.1000:.6000.
0.X.CC.15:.5000:."...INTRODUCTION.`.Y..L
$".THESE EXERCISES ARE SEQUENCED IN ORDE
R...Z.."OF COMPLEXITY. YOU SHOULD HAVE
VIEWED...{.."ALL LESSONS BEFORE STARTING
THEM.":.1100......"."L$".THERE ARE NO S
OLUTIONS GIVEN ... THE.7...."ONLY SOLU
TION IS A PROGRAM WHICH MEETS THE SPECI
FICATION!":.1100.F...CC.3:.5000......"..
..."B$".1."B$"USING THE SCREEN":.".."B$"
.2."B$"USING THE KEYBOARD.R....".."B$".3
."B$"ARITHMETIC":.".."B$".4."B$"ACCESSIN
G VARIABLES......".."B$".5."B$"END":.L$"
.CHOOSE ..."......1200:Z.E(Z$):.Z.1.Z.5
.144.6....Z.150,300,450,600,950.Q...."."
L$L$,". . USING THE SCREEN ":T.3:.1000:C
C.15:.5000...H.."...EXERCISE 1.1...I..K$
F$:."MODIFY THE ROUTINE IN 3.5 ASSEMBLER
TO...J.."REVERSE NON-SPACE CHARACTERS O
NLY.":T.3:.1000.).K..K$G$:."TEST THE CHA
RACTER LOADED AT LINE 1120.":.1100.?.R..
"...EXERCISE 1.2.H.S..K$F$:."CLEAR THE S
CREEN.":T.2:.1000...T..K$G$:."PRINT $20
IN EACH LOCATION.":.1000.N.U..".THEN TRY
PRINTING A DIFFERENT CHARACTER.":.1000.
..V..H$:.1100......"...EXERCISE 1.3.%...
.K$F$:."ADD TO EXERCISE 1.2 THE STEPS TO
PRINT.T...."YOUR NAME ON THE SECOND LIN
E.":T.3:.1000......K$G$:."USE ..BYT. FOR
THE STRING OF CHARACTERS..":.1000......
H$:.1100......"...EXERCISE 1.4......K$F$
:."PRINT ANY STRING OF CHARACTERS (MAX 4
0)......"ON ANY LINE OF THE SCREEN.":T.4
:.1000.F....K$G$:."MODIFY EXERCISE 1.3 T
O GET THEM, THE......"LINE NUMBER AND LE
NGTH FROM PRE-DEFINED LOCATIONS.":.1000.
.....".PRIME THEM WITH POKES BEFORE ENTE
RING.R...."THE MACHINE CODE.":.1100.....
."...EXERCISE 1.5......K$F$:."MODIFY THE
ROUTINE IN 3.5 ASSEMBLER TO.L...."REVER
SE CHARACTERS ONLY IN A 'WINDOW' 10";.S.
..."POSITIONS WIDE AND 3 LINES DEEP.....
..".THE TOP LEFT POSITION OF THE WINDOW
IS.X...."TO BE POKED FROM BASIC, BEFORE
ENTRY.":T.6:.1000......K$G$:."THE BASIC
ROUTINE SHOULD CHECK COLUMN AND LINE L
EGALITY..)....1100.?...."...EXERCISE 1.6
.Q....K$F$:."MODIFY THE BASIC ROUTINE FO
R EXERCISE......"1.5 TO MOVE THE WINDOW
UNDER THE CONTROLOF CRSR.":T.4:.1000....
..".THEN MODIFY FURTHER TO CONTROL THE S
IZE OF THE WINDOW.":T.2:.1000......K$G$:
."USE .GET.=....B$"..].","CHR$(29)",B$".
..","CHR$(157).P....B$"..Q.","CHR$(17)",
B$".Q.","CHR$(145)":.1100......"...EXERC
ISE 1.7......K$F$:."CLEAR THE SCREEN. P
RINT A SHAPE MADE......"FROM A BLOCK OF
GRAPHICS SYMBOLS, 4X4 AT";......"THE TOP
LEFT CORNER. MOVE IT BY TESTING";.L...
."WHICH FUNCTION KEY IS HELD DOWN.":T.6:
.1000......K$G$:."YOU WILL NEED A DELAY
LOOP BETWEEN EACH......"TEST. LOCATION
$C5 CONTAINS THE KEY'S.L...."CO-ORDINATE
S:":T.4:.1000......"..F1. 4"B$".F3. 5"
B$".F5. 6"B$".F7. 3"......"..NO KEY.
64":.1100......"...EXERCISE 1.8.]....K$F
$:."ROTATE THE SCREEN HORIZONTALLY AND..
...."VERTICALLY UNDER CONTROL OF THE NUM
BER......"KEYS.":T.4:.1000......K$G$:."F
ILL THE SCREEN WITH A PATTERN IN BASIC T
O CHECK THE EFFECT.......1100:.140.5.,..
"."L$L$,".. USING THE KEYBOARD ":T.3:.10
00:CC.15:.5000.K.-.."...EXERCISE 2.1...
..K$F$:."PRINT A LINE OF TEXT CALLING FO
R INPUT..../.."GET CHARACTERS FROM THE I
NPUT BUFFER TO.X.0.."A RETURN, AND PRINT
THEM ON THE NEXT...1.."LINE.":T.6:.1000
.!.2..K$G$:."DO NOT FORGET TO DECREMENT
THE BUFFER.J.3.."COUNTER, AND SHIFT THE
CHARACTERS..Y.4..".USE ..SEI.. TO DISABL
E INTERRUPTS WHILE...5.."LOADING A CHARA
CTER. ..CLI.. AFTERWARDS.":.1100.F.6.."
...EXERCISE 2.2...7..K$F$:."MODIFY EXERC
ISE 2.2 TO ACCEPT NUMERIC.&.8.."CHARACTE
RS ONLY AND REPEAT THE CALL FOR.[.9.."IN
PUT IF NON-NUMERICS ARE ENTERED.":.1100:
.140...B.."."L$L$," .. ARITHMETIC ":T
.3:.1000:CC.15:.5000...L.."...EXERCISE 3
.1...M..K$F$:."CONVERT A 1-BYTE BCD NUMB
ER TO CHARACTER";...N.."FORM AND PRINT I
T.":T.3:.1000.6.O..K$G$:."CREATE THE NUM
BER IN BASIC (<100) AND.G.P.."POKE IT IN
TO THE BYTE BEFORE ENTRY.":.1100.}.V..".
..EXERCISE 3.2...X..K$F$:."MODIFY EXERCI
SE 3.1 TO TAKE TWO BCD...Y.."BYTES, ADD
THEM, AND PRINT THE RESULT.":T.3:.1000..
.Z..K$G$:."THE RESULT MAY BE 2-BYTE. TE
ST CARRY.":.1100.5...."...EXERCISE 3.3.L
....K$F$:."NOW MODIFY EXERCISE 3.2 TO ZE
RO-SUPPRESS";......"THE RESULT.":T.3:.10
00......K$G$:."PRINT SPACE ($20) FOR EAC
H ZERO QUARTET.V...."OF BITS IN A BYTE..
.....".DON'T FORGET TO PRINT A SINGLE 0
FOR AN.!...."ALL-ZERO BYTE!":.1100.7....
"...EXERCISE 3.4.J....K$F$:."ZAKS, PAGES
68 ON, DESCRIBES A ROUTINE......"FOR MU
LTIPLYING FIXED-POINT BINARY":."NUMBERS.
.M....".CODE THE ROUTINE AT PAGE 84 TO O
PERATE......"ON TWO BYTES WHOSE VALUES A
RE POKED FROM";.+...."BASIC, AND TO PRIN
T THE RESULT.":.1100.A...."...EXERCISE 3
.5.R....K$F$:."MODIFY THE MULTIPLICATION
ROUTINE TO......"ACCEPT A 2-BYTE MULTIP
LICAND AND A......"1-BYTE MULTIPLIER.":T
.4:.1000......K$G$:."1-BYTE X 2-BYTE IS
3-BYTE RESULT......."..BYTE X HILO = BYT
E X HI + BYTE X LO.M...."..USE THE 1X1 R
OUTINE AS A SUBROUTINE.":.1100.C...."...
EXERCISE 3.6......K$F$:."NOW MAKE A 2X2
MULTIPLICATION ROUTINE.":.1100......"...
EXERCISE 3.7......K$F$:."ZAKS PAGE 89 GI
VES A ROUTINE TO DIVIDE A";......"2-BYTE
DIVIDEND BY A 1-BYTE DIVISOR,.=...."GIV
ING THE RESULT AS QUOTIENT AND.X...."REM
AINDER.":.".CODE THIS TO DIVIDE VALUES P
OKED FROM......"BASIC.":T.8:.1000.D....K
$G$:."NOTE THAT THE QUOTIENT COULD BE 2-
BYTE!......"256/1 IS 256 REMAINDER 0....
..."..YOU NEED TO MODIFY HIS ALGORITHM."
:.1100.+...."...EXERCISE 3.8.H....K$F$:.
"NOW MAKE A 3/1 AND A 4/1 DIVISION SUB-
ROUTINE..W....1100:.140...X.."."L$L$,".
. ACCESSING VARIABLES ":T.3:.1000:CC.15:
.5000.J.B.."...EXERCISE 4.1...C..K$F$:."
RUN THIS IN BASIC:...D..".. 10 Z$="G(34)
"STRING VARIABLE"G(34)":SYS......V.E..".
ACCESS Z$ IN ASSEMBLER AND PRINT IT.":T.
6:.1000...F..K$G$:."Z$ WILL BE AT THE ST
ART OF VARIABLES AND";...G.."POINTS TO I
TS STRING.":.1100.F.L.."...EXERCISE 4.2.
..M..K$F$:."MODIFY EXERCISE 4.1 TO HAVE
Z$ AS A.# N.."SINGLE-DIMENSION ARRAY OF
10 ELEMENTS,.P O.."AND TO PRINT THE NTH
ELEMENT. N IS TO.V P.."BE POKED FROM BA
SIC.":T.6:.1000.. Q..K$G$:."USE WORDS -
ZERO, ONE, TWO, ETC TO MAKE.H R.."IT EAS
Y TO CHECK":.1100.. V.."...EXERCISE 4.3.
.!W..K$F$:."ACCESS TWO INTEGER VARIABLES
FROM BASIC,";.O!X.."ADD THEM, AND PUT T
HE RESULT IN A THIRD.":T.4:.1000..!Y..K$
G$:."DEFINE ALL THREE IN BASIC, BEFORE E
NTRY.";..!Z.."..DO NOT EXCEED 32767 IN T
HE RESULT (CHECK";..!{.."AND REPORT FROM
MACHINE CODE).":.1100:.140..!..."..".."
...2024:."............END.:"...2136:.50:
."...................GOTO50.^"..Z.TI.80.
T:.2048:."..............P"...Z.TI.B(SH).
..Z"...1001.."L.."."L$L$L$L$".."K$"..C.O
NTINUE..."O..1200:.Z$.."C".1103.."P..111
2.."V.."."L$L$L$L$".A.GAIN .B.ACK .C
.ONTINUE...#W.Z..(1):.1200:.Z$."A".Z$."C
".1111.&#X.Z.F(Z$).64:..M#`.."."L$L$L$L$
".PRESS .RETURN."E$".".G#A..1200:.Z$..G(
13).1121..#B.."."L$L$L$L$E$E$".":...#...
Z$:.Z$.."".1200..#...Z$:.Z$."".1201.R#..
.2048:.:."...................RETURN..$..
.53280,CC:.53281,CC:.2048:.:."..........
.........RETURN..$P..15,8,15.A$Q..1,8,8,
"DATA,S,R":.6010:.EN..2024.H$R. 1.{$S..2
,8,2,"#":.15,"U1:";2;0;1;0:.6010:.EN.0..
2024..$T. 2: 15:...$Z..15,EN,EM$,ET,ES..
${......IGU
> CLICK IMAGE PREVIEW FOR FULL MODAL