TUT4
FILE INFORMATION
FILENAME(S): TUT4
FILE TYPE(S): PRG
FILE SIZE: 10.1K
FIRST SEEN: 2025-10-19 22:48:23
APPEARS ON: 3 disk(s)
FILE HASH
9db9ee080f8d2d7b7dcbbc2bd20e6e6701cfff2210e391840aa625cece51cb5c
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BANKSTREETWRITER | TUT4 | PRG | Radd Maxx | 10 | 0 | DOWNLOAD FILE |
| MM UTILITY | TUT4 | PRG | Radd Maxx | 10 | 0 | DOWNLOAD FILE |
| BANKSTREETWRITER | TUT4 | PRG | DuncanTwain | 10 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 01 00 8F 20 22 40 30 3A 54 55 54 34 |....... "@0:TUT4|
00000010: 22 2C 38 00 19 08 02 00 9C 00 4D 08 05 00 41 24 |",8.......M...A$|
00000020: B2 22 22 3A 41 31 24 B2 22 22 3A 41 32 24 B2 22 |."":A1$."":A2$."|
00000030: 22 3A 41 33 24 B2 22 22 3A 41 34 24 B2 22 22 3A |":A3$."":A4$."":|
00000040: 41 35 24 B2 22 22 3A 41 36 24 B2 22 22 00 58 08 |A5$."":A6$."".X.|
00000050: 0A 00 8D 20 36 30 30 30 00 63 08 14 00 8D 20 38 |... 6000.c.... 8|
00000060: 31 30 30 00 6D 08 8C 00 89 20 32 39 30 00 73 08 |100.m.... 290.s.|
00000070: 96 00 9C 00 7E 08 A0 00 8D 20 36 30 30 30 00 89 |....~.... 6000..|
00000080: 08 AA 00 8D 20 38 31 30 30 00 BD 08 B4 00 41 24 |.... 8100.....A$|
00000090: B2 22 22 3A 41 31 24 B2 22 22 3A 41 32 24 B2 22 |."":A1$."":A2$."|
000000A0: 22 3A 41 33 24 B2 22 22 3A 41 34 24 B2 22 22 3A |":A3$."":A4$."":|
000000B0: 41 35 24 B2 22 22 3A 41 36 24 B2 22 22 00 C8 08 |A5$."":A6$.""...|
000000C0: C8 00 8D 20 37 30 30 30 00 E8 08 FA 00 99 20 3A |... 7000...... :|
000000D0: 99 20 22 C2 41 4E 4B 20 D3 54 52 45 45 54 20 D7 |. ".ANK .TREET .|
000000E0: 52 49 54 45 52 22 3A 99 00 FB 08 04 01 99 20 22 |RITER":....... "|
000000F0: D4 D5 D4 CF D2 C9 C1 CC 22 3A 99 00 06 09 0E 01 |........":......|
00000100: 8D 20 37 35 30 30 00 28 09 18 01 99 20 22 CC 45 |. 7500.(.... ".E|
00000110: 53 53 4F 4E 20 32 3A 20 C3 55 52 53 4F 52 20 CD |SSON 2: .URSOR .|
00000120: 4F 56 45 4D 45 4E 54 22 00 33 09 1D 01 8D 20 38 |OVEMENT".3.... 8|
00000130: 39 30 30 00 3F 09 1F 01 8D 20 31 30 31 30 30 00 |900.?.... 10100.|
00000140: 55 09 22 01 8D 20 37 31 30 30 3A 59 B2 39 3A 8D |U.".. 7100:Y.9:.|
00000150: 20 35 30 33 30 00 82 09 2C 01 99 20 22 CF 4E 45 | 5030...,.. ".NE|
00000160: 20 4F 46 20 54 48 45 20 42 45 53 54 20 54 48 49 | OF THE BEST THI|
00000170: 4E 47 53 20 41 42 4F 55 54 20 57 52 49 54 49 4E |NGS ABOUT WRITIN|
00000180: 47 22 00 AD 09 36 01 99 20 22 57 49 54 48 20 41 |G"...6.. "WITH A|
00000190: 20 54 45 58 54 20 45 44 49 54 4F 52 20 49 53 20 | TEXT EDITOR IS |
000001A0: 54 48 41 54 20 43 48 41 4E 47 45 53 22 00 DC 09 |THAT CHANGES"...|
000001B0: 40 01 99 20 22 41 4E 44 20 43 4F 52 52 45 43 54 |@.. "AND CORRECT|
000001C0: 49 4F 4E 53 20 41 52 45 20 56 45 52 59 20 45 41 |IONS ARE VERY EA|
000001D0: 53 59 20 54 4F 20 4D 41 4B 45 2E 22 00 09 0A 4A |SY TO MAKE."...J|
000001E0: 01 99 20 22 D4 48 45 20 46 49 52 53 54 20 53 54 |.. ".HE FIRST ST|
000001F0: 45 50 20 49 4E 20 4D 41 4B 49 4E 47 20 43 4F 52 |EP IN MAKING COR|
00000200: 52 45 43 54 49 4F 4E 53 22 00 33 0A 54 01 99 20 |RECTIONS".3.T.. |
00000210: 22 49 53 20 4B 4E 4F 57 49 4E 47 20 48 4F 57 20 |"IS KNOWING HOW |
00000220: 54 4F 20 4D 4F 56 45 20 54 48 45 20 43 55 52 53 |TO MOVE THE CURS|
00000230: 4F 52 22 00 4C 0A 5E 01 99 20 22 41 52 4F 55 4E |OR".L.^.. "AROUN|
00000240: 44 20 54 48 45 20 54 45 58 54 2E 22 00 57 0A 60 |D THE TEXT.".W.`|
00000250: 01 8D 20 34 39 30 30 00 62 0A 66 01 8D 20 39 34 |.. 4900.b.f.. 94|
00000260: 30 30 00 74 0A 68 01 8D 20 37 32 30 30 3A 8D 20 |00.t.h.. 7200:. |
00000270: 37 30 30 30 00 86 0A 72 01 8D 20 37 37 30 30 3A |7000...r.. 7700:|
00000280: 8D 20 38 37 30 30 00 AD 0A 7C 01 8D 20 37 31 30 |. 8700...|.. 710|
00000290: 30 3A 59 B2 32 3A 8D 20 35 30 33 30 3A 8D 20 37 |0:Y.2:. 5030:. 7|
000002A0: 35 30 30 3A 99 20 22 C5 D2 C1 D3 C5 22 00 B8 0A |500:. "....."...|
000002B0: 86 01 8D 20 38 39 30 30 00 CE 0A B8 01 9E 28 53 |... 8900......(S|
000002C0: 57 49 4E 44 4F 57 29 3A 8D 20 37 39 30 30 00 D7 |WINDOW):. 7900..|
000002D0: 0A BB 01 4B B2 31 30 00 E2 0A BD 01 8D 20 37 32 |...K.10...... 72|
000002E0: 35 30 00 F9 0A C2 01 8D 20 37 31 30 30 3A 59 B2 |50...... 7100:Y.|
000002F0: 31 34 3A 8D 20 35 30 33 30 00 27 0B CC 01 99 20 |14:. 5030.'.... |
00000300: 22 20 C8 45 52 45 20 49 53 20 41 20 50 4F 45 4D |" .ERE IS A POEM|
00000310: 20 54 48 41 54 20 4E 45 45 44 53 20 53 4F 4D 45 | THAT NEEDS SOME|
00000320: 20 48 45 4C 50 2E 22 00 50 0B D6 01 99 20 22 20 | HELP.".P.... " |
00000330: C2 55 54 20 46 49 52 53 54 20 4C 45 54 27 53 20 |.UT FIRST LET'S |
00000340: 50 52 41 43 54 49 43 45 20 4D 4F 56 49 4E 47 22 |PRACTICE MOVING"|
00000350: 00 80 0B E0 01 99 20 22 20 54 48 45 20 43 55 52 |...... " THE CUR|
00000360: 53 4F 52 2E 20 28 D4 48 41 54 27 53 20 54 48 45 |SOR. (.HAT'S THE|
00000370: 20 46 4C 41 53 48 49 4E 47 20 57 48 49 54 45 22 | FLASHING WHITE"|
00000380: 00 8D 0B EA 01 99 22 20 42 4F 58 29 22 00 9F 0B |......" BOX)"...|
00000390: F4 01 8D 20 37 32 30 30 3A 8D 20 37 32 35 30 00 |... 7200:. 7250.|
000003A0: B6 0B 08 02 8D 20 37 31 30 30 3A 59 B2 31 34 3A |..... 7100:Y.14:|
000003B0: 8D 20 35 30 33 30 00 E0 0B 12 02 99 20 22 20 D4 |. 5030...... " .|
000003C0: 48 45 52 45 20 41 52 45 20 54 57 4F 20 4B 45 59 |HERE ARE TWO KEY|
000003D0: 53 20 54 48 41 54 20 4D 4F 56 45 20 54 48 45 22 |S THAT MOVE THE"|
000003E0: 00 0C 0C 1C 02 99 20 22 20 43 55 52 53 4F 52 2E |...... " CURSOR.|
000003F0: 20 CF 4E 45 20 49 53 20 4D 41 52 4B 45 44 20 C3 | .NE IS MARKED .|
00000400: D2 D3 D2 20 41 4E 44 20 48 41 53 22 00 3A 0C 26 |... AND HAS".:.&|
00000410: 02 99 20 22 20 4C 45 46 54 20 41 4E 44 20 52 49 |.. " LEFT AND RI|
00000420: 47 48 54 20 41 52 52 4F 57 53 20 4F 4E 20 49 54 |GHT ARROWS ON IT|
00000430: 2E 20 D0 52 45 53 53 45 44 22 00 66 0C 2B 02 99 |. .RESSED".f.+..|
00000440: 20 22 20 41 4C 4F 4E 45 20 54 48 49 53 20 4B 45 | " ALONE THIS KE|
00000450: 59 20 4D 4F 56 45 53 20 54 48 45 20 43 55 52 53 |Y MOVES THE CURS|
00000460: 4F 52 20 54 4F 22 00 94 0C 30 02 99 20 22 20 54 |OR TO"...0.. " T|
00000470: 48 45 20 52 49 47 48 54 2E 20 D4 4F 20 4D 4F 56 |HE RIGHT. .O MOV|
00000480: 45 20 54 48 45 20 43 55 52 53 4F 52 20 54 4F 20 |E THE CURSOR TO |
00000490: 54 48 45 22 00 C0 0C 35 02 99 20 22 20 4C 45 46 |THE"...5.. " LEF|
000004A0: 54 2C 20 50 52 45 53 53 20 54 48 49 53 20 4B 45 |T, PRESS THIS KE|
000004B0: 59 20 54 4F 47 45 54 48 45 52 20 57 49 54 48 22 |Y TOGETHER WITH"|
000004C0: 00 D8 0C 3A 02 99 20 22 20 54 48 45 20 D3 C8 C9 |...:.. " THE ...|
000004D0: C6 D4 20 4B 45 59 2E 22 00 EA 0C 4E 02 8D 20 37 |.. KEY."...N.. 7|
000004E0: 32 30 30 3A 8D 20 37 32 35 30 00 01 0D 58 02 8D |200:. 7250...X..|
000004F0: 20 37 31 30 30 3A 59 B2 31 34 3A 8D 20 35 30 33 | 7100:Y.14:. 503|
00000500: 30 00 2B 0D 62 02 99 20 22 20 D4 48 45 20 4F 54 |0.+.b.. " .HE OT|
00000510: 48 45 52 20 43 55 52 53 4F 52 20 4D 4F 56 45 4D |HER CURSOR MOVEM|
00000520: 45 4E 54 20 4B 45 59 20 49 53 22 00 59 0D 6C 02 |ENT KEY IS".Y.l.|
00000530: 99 20 22 20 4D 41 52 4B 45 44 20 C3 D2 D3 D2 20 |. " MARKED .... |
00000540: 57 49 54 48 20 55 50 20 41 4E 44 20 44 4F 57 4E |WITH UP AND DOWN|
00000550: 20 41 52 52 4F 57 53 2E 22 00 86 0D 76 02 99 20 | ARROWS."...v.. |
00000560: 22 20 D4 48 49 53 20 4B 45 59 20 4D 4F 56 45 53 |" .HIS KEY MOVES|
00000570: 20 54 48 45 20 43 55 52 53 4F 52 20 44 4F 57 4E | THE CURSOR DOWN|
00000580: 20 57 48 45 4E 22 00 B1 0D 80 02 99 20 22 20 50 | WHEN"...... " P|
00000590: 52 45 53 53 45 44 20 41 4C 4F 4E 45 20 41 4E 44 |RESSED ALONE AND|
000005A0: 20 55 50 20 57 48 45 4E 20 50 52 45 53 53 45 44 | UP WHEN PRESSED|
000005B0: 22 00 D0 0D 85 02 99 20 22 20 57 49 54 48 20 54 |"...... " WITH T|
000005C0: 48 45 20 D3 C8 C9 C6 D4 20 4B 45 59 2E 22 3A 99 |HE ..... KEY.":.|
000005D0: 00 F9 0D 8A 02 99 20 22 20 D4 48 45 20 D3 C8 C9 |...... " .HE ...|
000005E0: C6 D4 20 4B 45 59 20 48 41 53 20 54 48 45 20 45 |.. KEY HAS THE E|
000005F0: 46 46 45 43 54 20 4F 46 22 00 24 0E 8F 02 99 20 |FFECT OF".$.... |
00000600: 22 20 43 48 41 4E 47 49 4E 47 20 54 48 45 20 44 |" CHANGING THE D|
00000610: 49 52 45 43 54 49 4F 4E 20 4F 46 20 54 48 45 20 |IRECTION OF THE |
00000620: 54 57 4F 22 00 43 0E 94 02 99 20 22 20 43 55 52 |TWO".C.... " CUR|
00000630: 53 4F 52 20 4D 4F 56 45 4D 45 4E 54 20 4B 45 59 |SOR MOVEMENT KEY|
00000640: 53 2E 22 00 55 0E 9E 02 8D 20 37 32 30 30 3A 8D |S.".U.... 7200:.|
00000650: 20 37 32 35 30 00 6C 0E A8 02 8D 20 37 31 30 30 | 7250.l.... 7100|
00000660: 3A 59 B2 31 34 3A 8D 20 35 30 33 30 00 9B 0E B2 |:Y.14:. 5030....|
00000670: 02 99 20 22 C6 4F 52 20 43 4F 4E 56 45 4E 49 45 |.. ".OR CONVENIE|
00000680: 4E 43 45 20 59 4F 55 20 43 41 4E 20 54 48 49 4E |NCE YOU CAN THIN|
00000690: 4B 20 4F 46 20 54 48 45 53 45 22 00 BC 0E BC 02 |K OF THESE".....|
000006A0: 99 20 22 41 53 20 46 4F 55 52 20 53 45 50 41 52 |. "AS FOUR SEPAR|
000006B0: 41 54 45 20 4B 45 59 53 3A 22 3A 99 00 F3 0E C6 |ATE KEYS:":.....|
000006C0: 02 99 20 22 12 22 3B C7 28 31 38 37 29 3B 22 92 |.. ".";.(187);".|
000006D0: 20 49 53 20 54 48 45 20 CC C5 C6 D4 2D D2 C9 C7 | IS THE ....-...|
000006E0: C8 D4 20 41 52 52 4F 57 20 4B 45 59 20 41 4C 4F |.. ARROW KEY ALO|
000006F0: 4E 45 22 00 23 0F D0 02 99 20 22 5F 20 49 53 20 |NE".#.... "_ IS |
00000700: 54 48 45 20 CC C5 C6 D4 2D D2 C9 C7 C8 D4 20 41 |THE ....-..... A|
00000710: 52 52 4F 57 20 4B 45 59 20 41 4E 44 20 D3 C8 C9 |RROW KEY AND ...|
00000720: C6 D4 22 00 57 0F DA 02 99 20 22 12 22 3B C7 28 |..".W.... ".";.(|
00000730: 32 35 32 29 3B 22 92 20 49 53 20 54 48 45 20 D5 |252);". IS THE .|
00000740: D0 2D C4 CF D7 CE 20 41 52 52 4F 57 20 4B 45 59 |.-.... ARROW KEY|
00000750: 20 41 4C 4F 4E 45 22 00 84 0F E4 02 99 20 22 5E | ALONE"...... "^|
00000760: 20 49 53 20 54 48 45 20 D5 D0 2D C4 CF D7 CE 20 | IS THE ..-.... |
00000770: 41 52 52 4F 57 20 4B 45 59 20 41 4E 44 20 D3 C8 |ARROW KEY AND ..|
00000780: C9 C6 D4 22 00 9B 0F EE 02 8D 20 37 32 30 30 3A |..."...... 7200:|
00000790: 4B B2 31 31 3A 8D 20 37 32 35 30 00 B2 0F F8 02 |K.11:. 7250.....|
000007A0: 8D 20 37 31 30 30 3A 59 B2 31 34 3A 8D 20 35 30 |. 7100:Y.14:. 50|
000007B0: 33 30 00 E2 0F 02 03 99 20 22 20 D4 52 59 20 4D |30...... " .RY M|
000007C0: 4F 56 49 4E 47 20 54 48 45 20 43 55 52 53 4F 52 |OVING THE CURSOR|
000007D0: 20 57 49 54 48 20 54 48 45 53 45 20 4B 45 59 53 | WITH THESE KEYS|
000007E0: 2E 22 00 1A 10 0C 03 99 20 22 20 D5 53 45 20 12 |."...... " .SE .|
000007F0: 22 3B C7 28 31 38 37 29 3B 22 92 20 28 54 48 45 |";.(187);". (THE|
00000800: 20 CC C5 C6 D4 2D D2 C9 C7 C8 D4 20 41 52 52 4F | ....-..... ARRO|
00000810: 57 20 4B 45 59 29 20 54 4F 22 00 47 10 16 03 99 |W KEY) TO".G....|
00000820: 20 22 20 4D 4F 56 45 20 54 4F 20 54 48 45 20 52 | " MOVE TO THE R|
00000830: 49 47 48 54 2E 20 D5 53 45 20 5F 20 28 D3 C8 C9 |IGHT. .SE _ (...|
00000840: C6 D4 20 41 4E 44 22 00 75 10 20 03 99 20 22 20 |.. AND".u. .. " |
00000850: 54 48 45 20 CC C5 C6 D4 2D D2 C9 C7 C8 D4 20 41 |THE ....-..... A|
00000860: 52 52 4F 57 20 4B 45 59 29 20 54 4F 20 4D 4F 56 |RROW KEY) TO MOV|
00000870: 45 20 54 4F 22 00 A4 10 2A 03 99 20 22 20 54 48 |E TO"...*.. " TH|
00000880: 45 20 4C 45 46 54 2E 20 D4 52 59 20 54 48 45 20 |E LEFT. .RY THE |
00000890: 55 50 20 41 4E 44 20 44 4F 57 4E 20 4B 45 59 53 |UP AND DOWN KEYS|
000008A0: 20 41 53 22 00 B5 10 34 03 99 20 22 20 57 45 4C | AS"...4.. " WEL|
000008B0: 4C 2E 22 3A 99 00 DF 10 3E 03 99 20 22 20 D0 52 |L.":....>.. " .R|
000008C0: 45 53 53 20 22 3B 3A 8D 20 39 37 30 30 3A 99 20 |ESS ";:. 9700:. |
000008D0: 22 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3B 00 |" TO CONTINUE";.|
000008E0: EA 10 5C 03 8D 20 38 38 30 30 00 08 11 84 03 8D |..\.. 8800......|
000008F0: 20 37 32 35 30 3A 8D 20 37 31 30 30 3A 59 B2 31 | 7250:. 7100:Y.1|
00000900: 34 3A 8D 20 35 30 33 30 00 36 11 8E 03 99 20 22 |4:. 5030.6.... "|
00000910: 20 CE 4F 54 49 43 45 20 54 48 45 20 41 52 52 4F | .OTICE THE ARRO|
00000920: 57 53 20 49 4E 20 54 48 45 20 55 50 50 45 52 20 |WS IN THE UPPER |
00000930: 52 49 47 48 54 22 00 64 11 98 03 99 20 22 20 48 |RIGHT".d.... " H|
00000940: 41 4E 44 20 43 4F 52 4E 45 52 2E 20 D9 4F 55 20 |AND CORNER. .OU |
00000950: 43 41 4E 20 4D 4F 56 45 20 54 48 45 20 43 55 52 |CAN MOVE THE CUR|
00000960: 53 4F 52 22 00 94 11 A2 03 99 20 22 20 57 48 45 |SOR"...... " WHE|
00000970: 4E 45 56 45 52 20 54 48 45 53 45 20 41 52 52 4F |NEVER THESE ARRO|
00000980: 57 53 20 41 50 50 45 41 52 2E 20 D4 48 45 59 20 |WS APPEAR. .HEY |
00000990: 41 52 45 22 00 C0 11 AC 03 99 20 22 20 54 4F 20 |ARE"...... " TO |
000009A0: 52 45 4D 49 4E 44 20 59 4F 55 20 57 48 45 4E 20 |REMIND YOU WHEN |
000009B0: 41 4E 44 20 48 4F 57 20 59 4F 55 20 43 41 4E 22 |AND HOW YOU CAN"|
000009C0: 00 DA 11 B6 03 99 20 22 20 4D 4F 56 45 20 54 48 |...... " MOVE TH|
000009D0: 45 20 43 55 52 53 4F 52 2E 22 00 EA 11 C0 03 8D |E CURSOR."......|
000009E0: 20 37 32 30 30 3A 4B B2 31 30 00 08 12 E8 03 8D | 7200:K.10......|
000009F0: 20 37 32 35 30 3A 8D 20 37 31 30 30 3A 59 B2 31 | 7250:. 7100:Y.1|
00000A00: 34 3A 8D 20 35 30 33 30 00 32 12 F2 03 99 20 22 |4:. 5030.2.... "|
00000A10: 20 CE 4F 57 20 54 48 41 54 20 59 4F 55 20 43 41 | .OW THAT YOU CA|
00000A20: 4E 20 4D 4F 56 45 20 54 48 45 20 43 55 52 53 4F |N MOVE THE CURSO|
00000A30: 52 22 00 5E 12 FC 03 99 20 22 20 41 52 4F 55 4E |R".^.... " AROUN|
00000A40: 44 20 59 4F 55 20 41 52 45 20 52 45 41 44 59 20 |D YOU ARE READY |
00000A50: 54 4F 20 4D 41 4B 45 20 4D 49 4E 4F 52 22 00 80 |TO MAKE MINOR"..|
00000A60: 12 06 04 99 20 22 20 43 4F 52 52 45 43 54 49 4F |.... " CORRECTIO|
00000A70: 4E 53 20 49 4E 20 54 48 45 20 54 45 58 54 2E 22 |NS IN THE TEXT."|
00000A80: 00 97 12 10 04 4B B2 31 31 3A 8D 20 37 32 30 30 |.....K.11:. 7200|
00000A90: 3A 8D 20 37 32 35 30 00 AE 12 1A 04 8D 20 37 31 |:. 7250...... 71|
00000AA0: 30 30 3A 59 B2 31 34 3A 8D 20 35 30 33 30 00 DB |00:Y.14:. 5030..|
00000AB0: 12 24 04 99 20 22 20 C6 49 52 53 54 20 4C 45 54 |.$.. " .IRST LET|
00000AC0: 27 53 20 43 4F 52 52 45 43 54 20 54 48 45 20 4D |'S CORRECT THE M|
00000AD0: 49 53 53 50 45 4C 4C 49 4E 47 22 00 09 13 2E 04 |ISSPELLING".....|
00000AE0: 99 20 22 20 4F 4E 20 4C 49 4E 45 20 4F 4E 45 20 |. " ON LINE ONE |
00000AF0: 42 59 20 43 48 41 4E 47 49 4E 47 20 27 57 52 49 |BY CHANGING 'WRI|
00000B00: 54 54 4F 52 27 20 54 4F 22 00 20 13 38 04 99 20 |TTOR' TO". .8.. |
00000B10: 22 20 27 57 52 49 54 45 52 27 2E 22 3A 99 3A 99 |" 'WRITER'.":.:.|
00000B20: 00 2B 13 42 04 8D 20 34 38 35 30 00 3D 13 4C 04 |.+.B.. 4850.=.L.|
00000B30: 8D 20 39 31 30 30 3A 8D 20 38 38 30 30 00 48 13 |. 9100:. 8800.H.|
00000B40: 56 04 8D 20 34 37 30 30 00 5A 13 60 04 8B 20 4D |V.. 4700.Z.`.. M|
00000B50: 31 B2 30 20 A7 20 31 31 35 30 00 65 13 6A 04 8D |1.0 . 1150.e.j..|
00000B60: 20 34 38 30 30 00 77 13 6F 04 8D 20 34 36 32 30 | 4800.w.o.. 4620|
00000B70: 3A 8D 20 34 36 30 30 00 82 13 74 04 89 20 31 30 |:. 4600...t.. 10|
00000B80: 39 30 00 8F 13 7E 04 45 52 52 43 4E 54 B2 30 00 |90...~.ERRCNT.0.|
00000B90: A1 13 88 04 8D 20 34 36 32 30 3A 8D 20 34 36 30 |..... 4620:. 460|
00000BA0: 30 00 AC 13 92 04 8D 20 34 35 30 30 00 C3 13 9C |0...... 4500....|
00000BB0: 04 9E 20 28 53 57 49 4E 44 4F 57 29 3A 8D 20 37 |.. (SWINDOW):. 7|
00000BC0: 38 30 30 00 CE 13 A6 04 8D 20 34 34 30 30 00 E0 |800...... 4400..|
00000BD0: 13 B0 04 8B 20 4D 31 B2 30 20 A7 20 31 32 34 30 |.... M1.0 . 1240|
00000BE0: 00 EF 13 BA 04 42 B2 39 3A 8D 20 34 33 30 30 00 |.....B.9:. 4300.|
00000BF0: 01 14 C4 04 8D 20 34 36 32 30 3A 8D 20 34 36 30 |..... 4620:. 460|
00000C00: 30 00 0C 14 CE 04 89 20 31 31 37 30 00 19 14 D8 |0...... 1170....|
00000C10: 04 45 52 52 43 4E 54 B2 30 00 4C 14 DD 04 41 31 |.ERRCNT.0.L...A1|
00000C20: 24 B2 22 C1 20 57 52 49 54 45 52 20 57 48 4F 20 |$.". WRITER WHO |
00000C30: 43 41 4D 45 20 46 52 4F 4D 20 C2 41 4E 4B 20 D3 |CAME FROM .ANK .|
00000C40: 54 52 45 45 54 22 AA C7 28 31 33 29 00 57 14 E2 |TREET"..(13).W..|
00000C50: 04 8D 20 38 37 30 30 00 7E 14 EC 04 8D 20 37 31 |.. 8700.~.... 71|
00000C60: 30 30 3A 59 B2 32 3A 8D 20 35 30 33 30 3A 8D 20 |00:Y.2:. 5030:. |
00000C70: 37 35 30 30 3A 99 20 22 C5 D2 C1 D3 C5 22 00 8E |7500:. "....."..|
00000C80: 14 F6 04 4B B2 31 31 3A 8D 20 37 32 35 30 00 A5 |...K.11:. 7250..|
00000C90: 14 00 05 8D 20 37 31 30 30 3A 59 B2 31 34 3A 8D |.... 7100:Y.14:.|
00000CA0: 20 35 30 33 30 00 D2 14 0A 05 99 20 22 20 CE 4F | 5030...... " .O|
00000CB0: 57 20 4C 45 54 27 53 20 43 41 50 49 54 41 4C 49 |W LET'S CAPITALI|
00000CC0: 5A 45 20 54 48 45 20 27 53 27 20 49 4E 20 54 48 |ZE THE 'S' IN TH|
00000CD0: 45 22 00 FE 14 14 05 99 20 22 20 57 4F 52 44 20 |E"...... " WORD |
00000CE0: 27 53 4F 27 20 49 4E 20 54 48 45 20 54 48 49 52 |'SO' IN THE THIR|
00000CF0: 44 20 4C 49 4E 45 2E 22 3A 99 3A 99 3A 99 00 09 |D LINE.":.:.:...|
00000D00: 15 1E 05 8D 20 34 32 30 30 00 1B 15 28 05 8D 20 |.... 4200...(.. |
00000D10: 39 31 30 30 3A 8D 20 38 38 30 30 00 26 15 32 05 |9100:. 8800.&.2.|
00000D20: 8D 20 34 31 30 30 00 38 15 3C 05 8B 20 4D 31 B2 |. 4100.8.<.. M1.|
00000D30: 30 20 A7 20 31 33 37 30 00 43 15 46 05 8D 20 34 |0 . 1370.C.F.. 4|
00000D40: 38 30 30 00 55 15 50 05 8D 20 34 36 32 30 3A 8D |800.U.P.. 4620:.|
00000D50: 20 34 36 30 30 00 60 15 55 05 89 20 31 33 31 30 | 4600.`.U.. 1310|
00000D60: 00 6D 15 5A 05 45 52 52 43 4E 54 B2 30 00 7F 15 |.m.Z.ERRCNT.0...|
00000D70: 64 05 8D 20 34 36 32 30 3A 8D 20 34 36 30 30 00 |d.. 4620:. 4600.|
00000D80: 8A 15 6E 05 8D 20 34 30 30 30 00 A1 15 78 05 9E |..n.. 4000...x..|
00000D90: 20 28 53 57 49 4E 44 4F 57 29 3A 8D 20 37 38 30 | (SWINDOW):. 780|
00000DA0: 30 00 AC 15 82 05 8D 20 33 39 30 30 00 BE 15 8C |0...... 3900....|
00000DB0: 05 8B 20 4D 31 B2 30 20 A7 20 31 34 36 30 00 CE |.. M1.0 . 1460..|
00000DC0: 15 96 05 42 B2 37 33 3A 8D 20 34 33 30 30 00 E0 |...B.73:. 4300..|
00000DD0: 15 A0 05 8D 20 34 36 32 30 3A 8D 20 34 36 30 30 |.... 4620:. 4600|
00000DE0: 00 EB 15 AA 05 89 20 31 33 39 30 00 F8 15 B4 05 |...... 1390.....|
00000DF0: 45 52 52 43 4E 54 B2 30 00 1D 16 B9 05 41 33 24 |ERRCNT.0.....A3$|
00000E00: B2 22 20 20 20 D3 4F 20 4D 45 53 53 59 20 48 45 |." .O MESSY HE|
00000E10: 20 57 52 4F 54 45 22 AA C7 28 31 33 29 00 28 16 | WROTE"..(13).(.|
00000E20: BE 05 8D 20 38 37 30 30 00 4F 16 C8 05 8D 20 37 |... 8700.O.... 7|
00000E30: 31 30 30 3A 59 B2 32 3A 8D 20 35 30 33 30 3A 8D |100:Y.2:. 5030:.|
00000E40: 20 37 35 30 30 3A 99 20 22 C5 D2 C1 D3 C5 22 00 | 7500:. ".....".|
00000E50: 5F 16 D2 05 4B B2 31 31 3A 8D 20 37 32 35 30 00 |_...K.11:. 7250.|
00000E60: 76 16 DC 05 8D 20 37 31 30 30 3A 59 B2 31 34 3A |v.... 7100:Y.14:|
00000E70: 8D 20 35 30 33 30 00 A3 16 E6 05 99 20 22 20 CE |. 5030...... " .|
00000E80: 4F 57 20 4C 45 54 27 53 20 46 49 58 20 54 48 45 |OW LET'S FIX THE|
00000E90: 20 52 48 59 4D 45 20 49 4E 20 54 48 45 20 4C 41 | RHYME IN THE LA|
00000EA0: 53 54 22 00 CE 16 F0 05 99 20 22 20 4C 49 4E 45 |ST"...... " LINE|
00000EB0: 20 42 59 20 43 48 41 4E 47 49 4E 47 20 27 4D 55 | BY CHANGING 'MU|
00000EC0: 43 48 20 42 45 54 54 45 52 27 20 54 4F 22 00 E8 |CH BETTER' TO"..|
00000ED0: 16 FA 05 99 20 22 20 27 4D 4F 52 45 20 4E 45 41 |.... " 'MORE NEA|
00000EE0: 54 27 2E 22 3A 99 3A 99 00 F3 16 04 06 8D 20 33 |T'.":.:....... 3|
00000EF0: 38 30 30 00 05 17 0E 06 8D 20 39 31 30 30 3A 8D |800...... 9100:.|
00000F00: 20 38 38 30 30 00 10 17 18 06 8D 20 33 37 30 30 | 8800...... 3700|
00000F10: 00 22 17 22 06 8B 20 4D 31 B2 30 20 A7 20 31 36 |.".".. M1.0 . 16|
00000F20: 31 30 00 2D 17 2C 06 8D 20 34 38 30 30 00 3F 17 |10.-.,.. 4800.?.|
00000F30: 36 06 8D 20 34 36 32 30 3A 8D 20 34 36 30 30 00 |6.. 4620:. 4600.|
00000F40: 4A 17 40 06 89 20 31 35 34 30 00 57 17 4A 06 45 |J.@.. 1540.W.J.E|
00000F50: 52 52 43 4E 54 B2 30 00 69 17 54 06 8D 20 34 36 |RRCNT.0.i.T.. 46|
00000F60: 32 30 3A 8D 20 34 36 30 30 00 74 17 5E 06 8D 20 |20:. 4600.t.^.. |
00000F70: 33 36 30 30 00 8B 17 68 06 9E 20 28 53 57 49 4E |3600...h.. (SWIN|
00000F80: 44 4F 57 29 3A 8D 20 37 38 30 30 00 96 17 72 06 |DOW):. 7800...r.|
00000F90: 8D 20 33 35 30 30 00 A8 17 7C 06 8B 20 4D 31 B2 |. 3500...|.. M1.|
00000FA0: 30 20 A7 20 31 37 30 30 00 B9 17 86 06 42 B2 31 |0 . 1700.....B.1|
00000FB0: 37 36 3A 8D 20 34 33 30 30 00 CB 17 90 06 8D 20 |76:. 4300...... |
00000FC0: 34 36 32 30 3A 8D 20 34 36 30 30 00 D6 17 9A 06 |4620:. 4600.....|
00000FD0: 89 20 31 36 33 30 00 E1 17 A4 06 8D 20 38 37 30 |. 1630...... 870|
00000FE0: 30 00 08 18 AE 06 8D 20 37 31 30 30 3A 59 B2 32 |0...... 7100:Y.2|
00000FF0: 3A 8D 20 35 30 33 30 3A 8D 20 37 35 30 30 3A 99 |:. 5030:. 7500:.|
00001000: 20 22 C5 D2 C1 D3 C5 22 00 13 18 B3 06 8D 20 38 | "....."...... 8|
00001010: 39 30 30 00 23 18 B8 06 4B B2 31 31 3A 8D 20 37 |900.#...K.11:. 7|
00001020: 32 35 30 00 3A 18 C2 06 8D 20 37 31 30 30 3A 59 |250.:.... 7100:Y|
00001030: B2 31 34 3A 8D 20 35 30 33 30 00 67 18 CC 06 99 |.14:. 5030.g....|
00001040: 20 22 20 D9 4F 55 20 48 41 56 45 20 46 49 4E 49 | " .OU HAVE FINI|
00001050: 53 48 45 44 20 CC 45 53 53 4F 4E 20 32 2E 20 D9 |SHED .ESSON 2. .|
00001060: 4F 55 20 43 41 4E 22 00 8C 18 D6 06 99 20 22 20 |OU CAN"...... " |
00001070: 4E 4F 57 20 44 4F 20 4F 4E 45 20 4F 46 20 54 48 |NOW DO ONE OF TH|
00001080: 52 45 45 20 54 48 49 4E 47 53 2E 22 00 AF 18 E0 |REE THINGS."....|
00001090: 06 99 3A 99 20 22 20 31 2E 20 C4 4F 20 54 48 49 |..:. " 1. .O THI|
000010A0: 53 20 4C 45 53 53 4F 4E 20 41 47 41 49 4E 22 00 |S LESSON AGAIN".|
000010B0: D4 18 EA 06 99 20 22 20 32 2E 20 C7 4F 20 4F 4E |..... " 2. .O ON|
000010C0: 20 54 4F 20 54 48 45 20 4E 45 58 54 20 4C 45 53 | TO THE NEXT LES|
000010D0: 53 4F 4E 22 00 FC 18 F4 06 99 20 22 20 33 2E 20 |SON"...... " 3. |
000010E0: D2 45 54 55 52 4E 20 54 4F 20 54 48 45 20 D4 55 |.ETURN TO THE .U|
000010F0: 54 4F 52 49 41 4C 20 4D 45 4E 55 22 00 24 19 FE |TORIAL MENU".$..|
00001100: 06 99 3A 99 20 22 20 D7 48 41 54 20 57 4F 55 4C |..:. " .HAT WOUL|
00001110: 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F 20 44 4F |D YOU LIKE TO DO|
00001120: 3F 20 22 3B 00 2F 19 08 07 8D 20 37 34 30 30 00 |? ";./.... 7400.|
00001130: 39 19 0A 07 4E 24 B2 53 24 00 62 19 0D 07 8B 20 |9...N$.S$.b.... |
00001140: 4E 24 B3 B1 22 31 22 20 AF 20 4E 24 B3 B1 22 32 |N$.."1" . N$.."2|
00001150: 22 20 AF 20 4E 24 B3 B1 22 33 22 20 A7 20 31 38 |" . N$.."3" . 18|
00001160: 30 30 00 6C 19 0F 07 99 20 4E 24 3B 00 7F 19 12 |00.l.... N$;....|
00001170: 07 8B 20 4E 24 B2 22 31 22 20 A7 20 31 35 30 00 |.. N$."1" . 150.|
00001180: 9C 19 14 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
00001190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B8 19 15 |************....|
000011A0: 07 8F 20 20 20 4C 4F 41 44 20 43 55 52 52 45 4E |.. LOAD CURREN|
000011B0: 54 20 56 41 4C 55 45 53 00 BE 19 17 07 8F 00 DC |T VALUES........|
000011C0: 19 18 07 9F 20 33 2C 38 2C 33 2C 22 40 30 3A 55 |.... 3,8,3,"@0:U|
000011D0: 54 49 4C 44 41 54 41 2C 53 2C 52 22 00 E7 19 19 |TILDATA,S,R"....|
000011E0: 07 8D 20 39 38 30 30 00 EF 19 1A 07 A0 20 33 00 |.. 9800...... 3.|
000011F0: FF 19 1B 07 8B 20 4E 52 20 A7 20 31 38 32 35 00 |..... NR . 1825.|
00001200: 0A 1A 1C 07 8D 20 39 39 30 30 00 15 1A 1E 07 89 |..... 9900......|
00001210: 20 31 38 31 32 00 29 1A 21 07 8B 20 4E 24 B2 22 | 1812.).!.. N$."|
00001220: 32 22 20 A7 20 31 38 33 30 00 3F 1A 23 07 8D 20 |2" . 1830.?.#.. |
00001230: 31 30 30 30 30 3A 93 22 54 55 54 32 22 2C 38 00 |10000:."TUT2",8.|
00001240: 4A 1A 26 07 8D 20 37 30 30 30 00 68 1A 30 07 99 |J.&.. 7000.h.0..|
00001250: 20 3A 99 20 22 C2 41 4E 4B 20 D3 54 52 45 45 54 | :. ".ANK .TREET|
00001260: 20 D7 52 49 54 45 52 22 00 7B 1A 3A 07 99 3A 99 | .RITER".{.:..:.|
00001270: 20 22 D4 D5 D4 CF D2 C9 C1 CC 22 00 88 1A 44 07 | "........"...D.|
00001280: 99 3A 8D 20 37 35 30 30 00 AC 1A 4E 07 99 20 22 |.:. 7500...N.. "|
00001290: CC C5 D3 D3 CF CE 20 33 3A 20 C5 52 41 53 45 20 |...... 3: .RASE |
000012A0: 41 4E 44 20 D5 4E 45 52 41 53 45 22 00 B7 1A 58 |AND .NERASE"...X|
000012B0: 07 8D 20 38 39 30 30 00 CD 1A 62 07 8D 20 31 30 |.. 8900...b.. 10|
000012C0: 30 30 30 3A 93 22 54 55 54 35 22 2C 38 00 E5 1A |000:."TUT5",8...|
000012D0: AC 0D 4D 31 B2 30 20 3A 8F 20 45 52 52 4F 52 20 |..M1.0 :. ERROR |
000012E0: 43 48 45 43 4B 00 EB 1A AE 0D 8C 00 F3 1A B0 0D |CHECK...........|
000012F0: 87 20 44 00 06 1B B2 0D 8B 20 44 B3 B1 AB 32 20 |. D...... D...2 |
00001300: A7 20 33 35 30 34 00 18 1B B6 0D 81 20 49 B2 31 |. 3504...... I.1|
00001310: 36 34 20 A4 20 31 37 33 00 20 1B C0 0D 87 20 44 |64 . 173. .... D|
00001320: 00 39 1B CA 0D 8B 20 C2 28 42 55 46 AA 49 29 B3 |.9.... .(BUF.I).|
00001330: B1 44 20 A7 20 4D 31 B2 31 00 41 1B D4 0D 82 20 |.D . M1.1.A.... |
00001340: 49 00 47 1B DE 0D 8E 00 75 1B 10 0E 99 20 22 20 |I.G.....u.... " |
00001350: 33 2E 20 C5 52 41 53 45 20 54 48 45 20 57 4F 52 |3. .RASE THE WOR|
00001360: 44 53 20 27 4D 55 43 48 20 42 45 54 54 45 52 27 |DS 'MUCH BETTER'|
00001370: 20 41 4E 44 22 00 A0 1B 1A 0E 99 20 22 20 20 20 | AND"...... " |
00001380: 20 54 59 50 45 20 27 4D 4F 52 45 20 4E 45 41 54 | TYPE 'MORE NEAT|
00001390: 27 2E 20 28 C4 C5 CC 20 45 52 41 53 45 53 29 22 |'. (... ERASES)"|
000013A0: 00 BD 1B 24 0E 99 3A 99 20 22 20 34 2E 20 D0 52 |...$..:. " 4. .R|
000013B0: 45 53 53 20 22 3B 3A 8D 20 39 37 30 30 00 C3 1B |ESS ";:. 9700...|
000013C0: 2E 0E 8E 00 DC 1B 74 0E 4D 31 B2 30 20 3A 20 8F |......t.M1.0 : .|
000013D0: 20 45 52 52 4F 52 20 43 48 45 43 4B 00 E7 1B 7E | ERROR CHECK...~|
000013E0: 0E 8D 20 39 32 30 30 00 FC 1B 88 0E 8B 20 59 5A |.. 9200...... YZ|
000013F0: B3 B1 31 37 36 20 A7 20 4D 31 B2 31 00 02 1C 92 |..176 . M1.1....|
00001400: 0E 8E 00 31 1C D8 0E 99 20 22 20 31 2E 20 D0 4C |...1.... " 1. .L|
00001410: 41 43 45 20 54 48 45 20 43 55 52 53 4F 52 20 41 |ACE THE CURSOR A|
00001420: 54 20 54 48 45 20 45 4E 44 20 4F 46 20 54 48 45 |T THE END OF THE|
00001430: 22 00 52 1C E2 0E 99 20 22 20 20 20 20 54 45 58 |".R.... " TEX|
00001440: 54 20 28 41 46 54 45 52 20 54 48 45 20 27 52 27 |T (AFTER THE 'R'|
00001450: 29 22 00 6F 1C EC 0E 99 3A 99 20 22 20 32 2E 20 |)".o....:. " 2. |
00001460: D0 52 45 53 53 20 22 3B 3A 8D 20 39 37 30 30 00 |.RESS ";:. 9700.|
00001470: 75 1C F6 0E 8E 00 8D 1C 3C 0F 4D 31 B2 30 20 3A |u.......<.M1.0 :|
00001480: 8F 20 45 52 52 4F 52 20 43 48 45 43 4B 00 93 1C |. ERROR CHECK...|
00001490: 3E 0F 8C 00 9B 1C 40 0F 87 20 44 00 AE 1C 42 0F |>.....@.. D...B.|
000014A0: 8B 20 44 B3 B1 AB 31 20 A7 20 33 39 30 34 00 BE |. D...1 . 3904..|
000014B0: 1C 46 0F 81 20 49 B2 36 39 20 A4 20 37 33 00 C6 |.F.. I.69 . 73..|
000014C0: 1C 50 0F 87 20 44 00 DF 1C 5A 0F 8B 20 C2 28 42 |.P.. D...Z.. .(B|
000014D0: 55 46 AA 49 29 B3 B1 44 20 A7 20 4D 31 B2 31 00 |UF.I)..D . M1.1.|
000014E0: E7 1C 64 0F 82 20 49 00 ED 1C 82 0F 8E 00 16 1D |..d.. I.........|
000014F0: A0 0F 99 20 22 20 33 2E 20 D0 52 45 53 53 20 C4 |... " 3. .RESS .|
00001500: C5 CC 20 4F 4E 43 45 20 41 4E 44 20 54 48 45 4E |.. ONCE AND THEN|
00001510: 20 54 59 50 45 22 00 3A 1D AA 0F 99 20 22 20 20 | TYPE".:.... " |
00001520: 20 20 27 D3 27 20 57 49 54 48 20 54 48 45 20 53 | '.' WITH THE S|
00001530: 48 49 46 54 20 4B 45 59 2E 22 00 57 1D B4 0F 99 |HIFT KEY.".W....|
00001540: 3A 99 20 22 20 34 2E 20 D0 52 45 53 53 20 22 3B |:. " 4. .RESS ";|
00001550: 3A 8D 20 39 37 30 30 00 5D 1D BE 0F 8E 00 6D 1D |:. 9700.].....m.|
00001560: 04 10 4D 31 B2 30 3A 8D 20 39 32 30 30 00 81 1D |..M1.0:. 9200...|
00001570: 0E 10 8B 20 59 5A B3 B1 37 33 20 A7 20 4D 31 B2 |... YZ..73 . M1.|
00001580: 31 00 87 1D 18 10 8E 00 B1 1D 68 10 99 20 22 20 |1.........h.. " |
00001590: 31 2E 20 CD 4F 56 45 20 54 48 45 20 43 55 52 53 |1. .OVE THE CURS|
000015A0: 4F 52 20 54 4F 20 54 48 45 20 27 4F 27 20 49 4E |OR TO THE 'O' IN|
000015B0: 22 00 DE 1D 72 10 99 20 22 20 20 20 20 54 48 45 |"...r.. " THE|
000015C0: 20 57 4F 52 44 20 27 53 4F 27 20 49 4E 20 54 48 | WORD 'SO' IN TH|
000015D0: 45 20 54 48 49 52 44 20 4C 49 4E 45 2E 22 00 FB |E THIRD LINE."..|
000015E0: 1D 7C 10 99 3A 99 20 22 20 32 2E 20 D0 52 45 53 |.|..:. " 2. .RES|
000015F0: 53 20 22 3B 3A 8D 20 39 37 30 30 00 01 1E 86 10 |S ";:. 9700.....|
00001600: 8E 00 13 1E CC 10 8D 20 34 36 32 30 3A 8D 20 34 |....... 4620:. 4|
00001610: 36 30 30 00 1E 1E D1 10 8D 20 38 33 30 30 00 34 |600...... 8300.4|
00001620: 1E D3 10 8B 20 45 52 52 43 4E 54 B2 30 20 A7 20 |.... ERRCNT.0 . |
00001630: 34 33 32 32 00 5A 1E D6 10 99 20 22 20 D9 4F 55 |4322.Z.... " .OU|
00001640: 20 44 49 44 20 4E 4F 54 20 4D 41 4B 45 20 54 48 | DID NOT MAKE TH|
00001650: 45 20 43 4F 52 52 45 43 54 22 00 7C 1E E0 10 99 |E CORRECT".|....|
00001660: 20 22 20 53 55 42 53 54 49 54 55 54 49 4F 4E 2E | " SUBSTITUTION.|
00001670: 20 D4 52 59 20 41 47 41 49 4E 2E 22 00 8E 1E E2 | .RY AGAIN."....|
00001680: 10 8D 20 38 31 30 30 3A 8D 20 39 34 30 30 00 A4 |.. 8100:. 9400..|
00001690: 1E E5 10 9E 28 53 57 49 4E 44 4F 57 29 3A 8D 20 |....(SWINDOW):. |
000016A0: 37 39 30 30 00 AF 1E E7 10 8D 20 39 33 30 30 00 |7900...... 9300.|
000016B0: B5 1E 08 11 8E 00 CD 1E 30 11 4D 31 B2 30 20 3A |........0.M1.0 :|
000016C0: 8F 20 45 52 52 4F 52 20 43 48 45 43 4B 00 D3 1E |. ERROR CHECK...|
000016D0: 35 11 8C 00 E1 1E 3A 11 81 20 49 B2 30 20 A4 20 |5.....:.. I.0 . |
000016E0: 39 00 E9 1E 44 11 87 20 44 00 02 1F 4E 11 8B 20 |9...D.. D...N.. |
000016F0: C2 28 42 55 46 AA 49 29 B3 B1 44 20 A7 20 4D 31 |.(BUF.I)..D . M1|
00001700: B2 31 00 0A 1F 58 11 82 20 49 00 2F 1F 62 11 83 |.1...X.. I./.b..|
00001710: 20 31 39 33 2C 33 32 2C 38 37 2C 38 32 2C 37 33 | 193,32,87,82,73|
00001720: 2C 38 34 2C 36 39 2C 38 32 2C 33 32 2C 38 37 00 |,84,69,82,32,87.|
00001730: 48 1F 6C 11 83 20 2D 31 2C 33 32 2C 33 32 2C 33 |H.l.. -1,32,32,3|
00001740: 32 2C 32 31 31 2C 37 39 00 6F 1F 71 11 83 20 2D |2,211,79.o.q.. -|
00001750: 32 2C 33 32 2C 37 37 2C 37 39 2C 38 32 2C 36 39 |2,32,77,79,82,69|
00001760: 2C 33 32 2C 37 38 2C 36 39 2C 36 35 2C 38 34 00 |,32,78,69,65,84.|
00001770: 75 1F 76 11 8E 00 9A 1F 94 11 99 20 22 20 33 2E |u.v........ " 3.|
00001780: 20 D0 52 45 53 53 20 C4 C5 CC 20 54 48 52 45 45 | .RESS ... THREE|
00001790: 20 54 49 4D 45 53 20 54 4F 22 00 C1 1F 9E 11 99 | TIMES TO"......|
000017A0: 20 22 20 20 20 20 45 52 41 53 45 20 54 48 45 20 | " ERASE THE |
000017B0: 27 52 27 20 27 4F 27 20 41 4E 44 20 27 54 27 2C |'R' 'O' AND 'T',|
000017C0: 22 00 E3 1F A8 11 99 20 22 20 20 20 20 54 48 45 |"...... " THE|
000017D0: 4E 20 54 59 50 45 20 27 45 27 20 41 4E 44 20 27 |N TYPE 'E' AND '|
000017E0: 52 27 22 00 FE 1F B2 11 99 20 22 20 34 2E 20 D0 |R'"...... " 4. .|
000017F0: 52 45 53 53 20 22 3B 3A 8D 20 39 37 30 30 00 04 |RESS ";:. 9700..|
00001800: 20 BC 11 8E 00 1B 20 F8 11 8D 20 37 31 30 30 3A | ..... ... 7100:|
00001810: 59 B2 31 39 3A 8D 20 35 30 33 30 00 21 20 02 12 |Y.19:. 5030.! ..|
00001820: 8E 00 2C 20 0C 12 8D 20 34 36 30 30 00 3B 20 16 |.., ... 4600.; .|
00001830: 12 4B B2 34 3A 8D 20 37 32 36 30 00 41 20 20 12 |.K.4:. 7260.A .|
00001840: 8E 00 4A 20 5C 12 4D 31 B2 30 00 55 20 66 12 8D |..J \.M1.0.U f..|
00001850: 20 39 32 30 30 00 68 20 70 12 8B 20 59 5A B3 B1 | 9200.h p.. YZ..|
00001860: 39 20 A7 20 4D 31 B2 31 00 6E 20 7A 12 8E 00 80 |9 . M1.1.n z....|
00001870: 20 C0 12 8D 20 34 36 32 30 3A 8D 20 34 36 30 30 | ... 4620:. 4600|
00001880: 00 8B 20 CA 12 8D 20 38 33 30 30 00 A1 20 CF 12 |.. ... 8300.. ..|
00001890: 8B 20 45 52 52 43 4E 54 B2 30 20 A7 20 34 38 34 |. ERRCNT.0 . 484|
000018A0: 35 00 C9 20 D4 12 99 20 22 20 D9 4F 55 20 48 41 |5.. ... " .OU HA|
000018B0: 56 45 20 4E 4F 54 20 50 4C 41 43 45 44 20 54 48 |VE NOT PLACED TH|
000018C0: 45 20 43 55 52 53 4F 52 22 00 E8 20 DE 12 99 20 |E CURSOR".. ... |
000018D0: 22 20 43 4F 52 52 45 43 54 4C 59 2E 20 D4 52 59 |" CORRECTLY. .RY|
000018E0: 20 41 47 41 49 4E 2E 22 00 F3 20 E8 12 8D 20 38 | AGAIN.".. ... 8|
000018F0: 34 30 30 00 F9 20 ED 12 8E 00 22 21 F2 12 99 20 |400.. ...."!... |
00001900: 22 20 31 2E 20 CD 4F 56 45 20 54 48 45 20 43 55 |" 1. .OVE THE CU|
00001910: 52 53 4F 52 20 54 4F 20 54 48 45 20 53 50 41 43 |RSOR TO THE SPAC|
00001920: 45 22 00 4C 21 FC 12 99 20 22 20 20 20 20 42 45 |E".L!... " BE|
00001930: 54 57 45 45 4E 20 27 57 52 49 54 54 4F 52 27 20 |TWEEN 'WRITTOR' |
00001940: 41 4E 44 20 27 57 48 4F 27 22 3A 99 00 67 21 06 |AND 'WHO'":..g!.|
00001950: 13 99 20 22 20 32 2E 20 D0 52 45 53 53 20 22 3B |.. " 2. .RESS ";|
00001960: 3A 8D 20 39 37 30 30 00 6D 21 10 13 8E 00 A1 21 |:. 9700.m!.....!|
00001970: 24 13 41 31 24 B2 22 C1 20 57 52 49 54 54 4F 52 |$.A1$.". WRITTOR|
00001980: 20 57 48 4F 20 43 41 4D 45 20 46 52 4F 4D 20 C2 | WHO CAME FROM .|
00001990: 41 4E 4B 20 D3 54 52 45 45 54 22 AA C7 28 31 33 |ANK .TREET"..(13|
000019A0: 29 00 D3 21 2E 13 41 32 24 B2 22 C8 41 44 20 44 |)..!..A2$.".AD D|
000019B0: 45 41 44 4C 49 4E 45 53 20 48 45 20 4E 45 56 45 |EADLINES HE NEVE|
000019C0: 52 20 43 4F 55 4C 44 20 4D 45 45 54 22 AA C7 28 |R COULD MEET"..(|
000019D0: 31 33 29 00 F8 21 38 13 41 33 24 B2 22 20 20 20 |13)..!8.A3$." |
000019E0: 53 4F 20 4D 45 53 53 59 20 48 45 20 57 52 4F 54 |SO MESSY HE WROT|
000019F0: 45 22 AA C7 28 31 33 29 00 22 22 42 13 41 34 24 |E"..(13).""B.A4$|
00001A00: B2 22 20 20 20 C1 4C 4C 20 54 48 4F 55 47 48 54 |." .LL THOUGHT|
00001A10: 20 48 49 4D 20 41 20 4A 4F 4B 45 22 AA C7 28 31 | HIM A JOKE"..(1|
00001A20: 33 29 00 57 22 4C 13 41 35 24 B2 22 D4 49 4C 4C |3).W"L.A5$.".ILL|
00001A30: 20 41 20 57 4F 52 44 20 50 52 4F 43 45 53 53 4F | A WORD PROCESSO|
00001A40: 52 20 4D 41 44 45 20 48 49 4D 20 57 52 49 54 45 |R MADE HIM WRITE|
00001A50: 22 AA C7 28 31 33 29 00 79 22 56 13 41 36 24 B2 |"..(13).y"V.A6$.|
00001A60: 22 20 20 20 20 20 20 20 20 20 20 20 20 4D 55 43 |" MUC|
00001A70: 48 20 42 45 54 54 45 52 22 00 7F 22 60 13 8E 00 |H BETTER".."`...|
00001A80: 85 22 87 13 80 00 A6 22 88 13 81 20 49 B2 31 20 |."....."... I.1 |
00001A90: A4 20 58 20 3A 8F 20 50 4F 53 49 54 49 4F 4E 20 |. X :. POSITION |
00001AA0: 43 55 52 53 4F 52 00 B1 22 92 13 99 20 22 1D 22 |CURSOR.."... "."|
00001AB0: 3B 00 B9 22 9C 13 82 20 49 00 E6 22 A6 13 81 20 |;.."... I.."... |
00001AC0: 4A B2 31 20 A4 20 59 20 3A 8F 20 4D 4F 56 45 20 |J.1 . Y :. MOVE |
00001AD0: 43 55 52 53 4F 52 20 44 4F 57 4E 20 54 48 45 20 |CURSOR DOWN THE |
00001AE0: 53 43 52 45 45 4E 00 F1 22 B0 13 99 20 22 11 22 |SCREEN.."... "."|
00001AF0: 3B 00 F9 22 BA 13 82 20 4A 00 FF 22 C4 13 8E 00 |;.."... J.."....|
00001B00: 1D 23 70 17 42 41 53 45 B2 36 AC 34 30 39 36 20 |.#p.BASE.6.4096 |
00001B10: 3A 8F 20 49 4E 49 54 49 41 4C 49 5A 45 00 2B 23 |:. INITIALIZE.+#|
00001B20: 72 17 42 55 46 B2 34 39 31 35 32 00 37 23 73 17 |r.BUF.49152.7#s.|
00001B30: 42 4C 45 B2 42 55 46 00 4B 23 75 17 42 32 B2 39 |BLE.BUF.K#u.B2.9|
00001B40: AC 34 30 39 36 AA 35 AC 32 35 36 00 58 23 77 17 |.4096.5.256.X#w.|
00001B50: 45 52 52 43 4E 54 B2 30 00 79 23 7A 17 49 4E 49 |ERRCNT.0.y#z.INI|
00001B60: 54 55 54 B2 C2 28 42 41 53 45 29 AA C2 28 42 41 |TUT..(BASE)..(BA|
00001B70: 53 45 AA 31 29 AC 32 35 36 00 9D 23 7F 17 4D 4F |SE.1).256..#..MO|
00001B80: 56 45 43 55 52 B2 C2 28 42 41 53 45 AA 34 29 AA |VECUR..(BASE.4).|
00001B90: C2 28 42 41 53 45 AA 35 29 AC 32 35 36 00 BF 23 |.(BASE.5).256..#|
00001BA0: 84 17 42 4F 58 B2 C2 28 42 41 53 45 AA 35 34 29 |..BOX..(BASE.54)|
00001BB0: AA C2 28 42 41 53 45 AA 35 35 29 AC 32 35 36 00 |..(BASE.55).256.|
00001BC0: E4 23 89 17 46 4F 55 52 41 52 B2 C2 28 42 41 53 |.#..FOURAR..(BAS|
00001BD0: 45 AA 34 32 29 AA C2 28 42 41 53 45 AA 34 33 29 |E.42)..(BASE.43)|
00001BE0: AC 32 35 36 00 08 24 8E 17 47 4B 42 44 20 B2 C2 |.256..$..GKBD ..|
00001BF0: 28 42 41 53 45 AA 35 36 29 AA C2 28 42 41 53 45 |(BASE.56)..(BASE|
00001C00: AA 35 37 29 AC 32 35 36 00 2E 24 93 17 53 57 49 |.57).256..$..SWI|
00001C10: 4E 44 4F 57 B2 C2 28 42 41 53 45 AA 35 38 29 AA |NDOW..(BASE.58).|
00001C20: C2 28 42 41 53 45 AA 35 39 29 AC 32 35 36 00 4F |.(BASE.59).256.O|
00001C30: 24 98 17 49 53 52 54 B2 C2 28 42 41 53 45 AA 36 |$..ISRT..(BASE.6|
00001C40: 29 AA C2 28 42 41 53 45 AA 37 29 AC 32 35 36 00 |)..(BASE.7).256.|
00001C50: 73 24 A7 17 43 4D 57 52 54 B2 C2 28 42 41 53 45 |s$..CMWRT..(BASE|
00001C60: AA 33 36 29 AA C2 28 42 41 53 45 AA 33 37 29 AC |.36)..(BASE.37).|
00001C70: 32 35 36 00 94 24 AC 17 52 45 44 4F B2 C2 28 42 |256..$..REDO..(B|
00001C80: 41 53 45 AA 32 29 AA C2 28 42 41 53 45 AA 33 29 |ASE.2)..(BASE.3)|
00001C90: AC 32 35 36 00 B8 24 B1 17 57 54 45 4E 54 B2 C2 |.256..$..WTENT..|
00001CA0: 28 42 41 53 45 AA 33 38 29 AA C2 28 42 41 53 45 |(BASE.38)..(BASE|
00001CB0: AA 33 39 29 AC 32 35 36 00 DD 24 B6 17 57 52 54 |.39).256..$..WRT|
00001CC0: 45 4E 31 B2 C2 28 42 41 53 45 AA 35 30 29 AA C2 |EN1..(BASE.50)..|
00001CD0: 28 42 41 53 45 AA 35 31 29 AC 32 35 36 00 02 25 |(BASE.51).256..%|
00001CE0: BB 17 4D 59 42 45 4C 32 B2 C2 28 42 41 53 45 AA |..MYBEL2..(BASE.|
00001CF0: 35 32 29 AA C2 28 42 41 53 45 AA 35 33 29 AC 32 |52)..(BASE.53).2|
00001D00: 35 36 00 11 25 C0 17 4C 42 55 46 42 45 47 B2 42 |56..%..LBUFBEG.B|
00001D10: 32 00 22 25 C5 17 48 42 55 46 42 45 47 B2 42 32 |2."%..HBUFBEG.B2|
00001D20: AA 31 00 30 25 CA 17 4C 4D 49 4E B2 42 32 AA 32 |.1.0%..LMIN.B2.2|
00001D30: 00 3E 25 CF 17 48 4D 49 4E B2 42 32 AA 33 00 4D |.>%..HMIN.B2.3.M|
00001D40: 25 D4 17 4C 4F 4D 41 58 B2 42 32 AA 34 00 5C 25 |%..LOMAX.B2.4.\%|
00001D50: D9 17 48 49 4D 41 58 B2 42 32 AA 35 00 6B 25 DE |..HIMAX.B2.5.k%.|
00001D60: 17 4C 50 54 45 4E B2 42 32 AA 36 00 7A 25 E3 17 |.LPTEN.B2.6.z%..|
00001D70: 48 50 54 45 4E B2 42 32 AA 37 00 8A 25 E8 17 47 |HPTEN.B2.7..%..G|
00001D80: 43 46 4C 41 47 B2 42 32 AA 38 00 98 25 ED 17 57 |CFLAG.B2.8..%..W|
00001D90: 42 54 4D B2 42 32 AA 39 00 A9 25 F2 17 4D 49 44 |BTM.B2.9..%..MID|
00001DA0: 4C 49 4E B2 42 32 AA 31 30 00 B9 25 F7 17 44 4C |LIN.B2.10..%..DL|
00001DB0: 49 4E 45 B2 42 32 AA 31 31 00 C9 25 FC 17 43 44 |INE.B2.11..%..CD|
00001DC0: 4E 55 4D B2 42 32 AA 31 32 00 D8 25 01 18 43 48 |NUM.B2.12..%..CH|
00001DD0: 41 52 B2 42 32 AA 31 33 00 E9 25 06 18 53 43 52 |AR.B2.13..%..SCR|
00001DE0: 41 4D 54 B2 42 32 AA 31 34 00 F9 25 10 18 4C 4F |AMT.B2.14..%..LO|
00001DF0: 4C 44 32 B2 42 32 AA 33 39 00 09 26 1A 18 48 4F |LD2.B2.39..&..HO|
00001E00: 4C 44 32 B2 42 32 AA 34 30 00 18 26 24 18 4C 43 |LD2.B2.40..&$.LC|
00001E10: 55 52 50 54 B2 32 35 31 00 27 26 2E 18 48 43 55 |URPT.251.'&..HCU|
00001E20: 52 50 54 B2 32 35 32 00 35 26 6A 18 97 20 57 42 |RPT.252.5&j.. WB|
00001E30: 54 4D 2C 31 32 00 44 26 B0 18 97 20 47 43 46 4C |TM,12.D&... GCFL|
00001E40: 41 47 2C 31 00 53 26 BA 18 97 20 4D 49 44 4C 49 |AG,1.S&... MIDLI|
00001E50: 4E 2C 39 00 61 26 C4 18 97 20 44 4C 49 4E 45 2C |N,9.a&... DLINE,|
00001E60: 38 00 70 26 CE 18 97 20 43 44 4E 55 4D 2C 31 35 |8.p&... CDNUM,15|
00001E70: 00 7F 26 D8 18 97 20 53 43 52 41 4D 54 2C 34 00 |..&... SCRAMT,4.|
00001E80: 85 26 F4 1A 8E 00 AA 26 58 1B 99 22 93 22 3B 3A |.&.....&X..".";:|
00001E90: 8F 20 43 4C 45 41 52 20 53 43 52 45 45 4E 20 48 |. CLEAR SCREEN H|
00001EA0: 4F 4D 45 20 43 55 52 53 4F 52 00 B0 26 62 1B 8E |OME CURSOR..&b..|
00001EB0: 00 C9 26 BC 1B 99 22 13 22 3B 20 3A 8F 20 48 4F |..&..."."; :. HO|
00001EC0: 4D 45 20 43 55 52 53 4F 52 00 CF 26 C6 1B 8E 00 |ME CURSOR..&....|
00001ED0: ED 26 20 1C 8F 20 54 45 53 54 20 46 4F 52 20 53 |.& .. TEST FOR S|
00001EE0: 50 41 43 45 20 42 41 52 20 50 55 53 48 00 06 27 |PACE BAR PUSH..'|
00001EF0: 21 1C 8D 37 31 30 30 3A 58 B2 34 3A 59 B2 32 34 |!..7100:X.4:Y.24|
00001F00: 3A 8D 35 30 30 30 00 2F 27 23 1C 99 20 22 5B D0 |:.5000./'#.. "[.|
00001F10: 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 |RESS SPACE BAR T|
00001F20: 4F 20 43 4F 4E 54 49 4E 55 45 5D 20 9D 22 3B 00 |O CONTINUE] .";.|
00001F30: 3A 27 25 1C 8D 20 37 34 30 30 00 51 27 34 1C 8B |:'%.. 7400.Q'4..|
00001F40: 20 53 24 20 B3 B1 20 22 20 22 20 A7 20 37 32 30 | S$ .. " " . 720|
00001F50: 35 00 57 27 3E 1C 8E 00 80 27 52 1C 8D 20 37 31 |5.W'>....'R.. 71|
00001F60: 30 30 20 20 20 3A 8F 20 43 4C 45 41 52 20 42 4F |00 :. CLEAR BO|
00001F70: 54 54 4F 4D 20 48 41 4C 46 20 53 43 52 45 45 4E |TTOM HALF SCREEN|
00001F80: 00 92 27 57 1C 59 B2 31 33 20 3A 20 8D 20 35 30 |..'W.Y.13 : . 50|
00001F90: 33 30 00 A0 27 5C 1C 81 20 49 B2 31 20 A4 20 4B |30..'\.. I.1 . K|
00001FA0: 00 D0 27 66 1C 99 20 22 20 20 20 20 20 20 20 20 |..'f.. " |
00001FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001FD0: 00 D8 27 70 1C 82 20 49 00 09 28 7A 1C 99 20 22 |..'p.. I..(z.. "|
00001FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002000: 20 20 20 20 20 20 20 22 3B 00 0F 28 7F 1C 8E 00 | ";..(....|
00002010: 34 28 84 1C 8D 20 37 34 30 30 20 3A 8F 20 54 45 |4(... 7400 :. TE|
00002020: 53 54 20 46 4F 52 20 59 2F 4E 20 4B 45 59 20 50 |ST FOR Y/N KEY P|
00002030: 52 45 53 53 00 67 28 8E 1C 8B 20 53 24 B3 B1 22 |RESS.g(... S$.."|
00002040: 59 22 20 AF 20 53 24 B3 B1 22 D9 22 20 AF 20 53 |Y" . S$.."." . S|
00002050: 24 B3 B1 22 4E 22 20 AF 20 53 24 B3 B1 22 CE 22 |$.."N" . S$.."."|
00002060: 20 A7 20 37 33 30 30 00 96 28 98 1C 8B 20 53 24 | . 7300..(... S$|
00002070: B2 22 59 22 20 B0 20 53 24 B2 22 D9 22 20 A7 20 |."Y" . S$."." . |
00002080: 99 20 22 D9 22 3B 20 3A 4E 24 B2 22 33 22 3A 20 |. "."; :N$."3": |
00002090: 89 20 31 38 31 32 00 A1 28 A2 1C 99 20 22 CE 22 |. 1812..(... "."|
000020A0: 3B 00 A7 28 AC 1C 8E 00 D2 28 E8 1C 9E 28 47 4B |;..(.....(...(GK|
000020B0: 42 44 29 20 3A 8F 20 47 45 54 20 43 48 41 52 41 |BD) :. GET CHARA|
000020C0: 43 54 4F 52 20 46 52 4F 4D 20 4B 45 59 42 4F 41 |CTOR FROM KEYBOA|
000020D0: 52 44 00 E4 28 F2 1C 53 24 B2 C7 28 C2 28 43 48 |RD..(..S$..(.(CH|
000020E0: 41 52 29 29 00 EA 28 FC 1C 8E 00 08 29 4C 1D 99 |AR))..(.....)L..|
000020F0: 20 22 12 22 3B 20 3A 8F 20 54 55 52 4E 20 52 45 | "."; :. TURN RE|
00002100: 56 45 52 53 45 20 4F 4E 00 0E 29 56 1D 8E 00 2C |VERSE ON..)V...,|
00002110: 29 B0 1D 99 20 22 92 22 20 3A 8F 20 54 55 52 4E |)... "." :. TURN|
00002120: 20 4F 46 46 20 52 45 56 45 52 53 45 00 32 29 BA | OFF REVERSE.2).|
00002130: 1D 8E 00 4A 29 14 1E 9E 20 28 42 4F 58 29 20 3A |...J)... (BOX) :|
00002140: 8F 20 44 52 41 57 20 42 4F 58 00 50 29 1E 1E 8E |. DRAW BOX.P)...|
00002150: 00 66 29 78 1E 8F 20 41 4C 4C 4F 57 20 49 4E 53 |.f)x.. ALLOW INS|
00002160: 45 52 54 49 4F 4E 00 71 29 82 1E 8D 20 37 39 30 |ERTION.q)... 790|
00002170: 30 00 7E 29 8C 1E 9E 20 28 49 53 52 54 29 00 84 |0.~)... (ISRT)..|
00002180: 29 96 1E 8E 00 94 29 DC 1E 9E 20 28 52 45 44 4F |).....)... (REDO|
00002190: 29 20 3A 8F 00 9A 29 E6 1E 8E 00 AC 29 A4 1F 9E |) :...).....)...|
000021A0: 20 28 49 4E 49 54 55 54 29 20 3A 8F 00 B2 29 AE | (INITUT) :...).|
000021B0: 1F 8E 00 D8 29 08 20 9E 20 28 57 52 54 45 4E 31 |....). . (WRTEN1|
000021C0: 29 20 3A 8F 20 50 52 49 4E 54 20 54 4F 50 20 4F |) :. PRINT TOP O|
000021D0: 46 20 53 43 52 45 45 4E 00 DE 29 12 20 8E 00 FE |F SCREEN..). ...|
000021E0: 29 6C 20 9E 20 28 4D 59 42 45 4C 32 29 20 3A 8F |)l . (MYBEL2) :.|
000021F0: 20 45 52 52 4F 52 20 52 4F 55 54 49 4E 45 00 12 | ERROR ROUTINE..|
00002200: 2A 76 20 45 52 52 43 4E 54 B2 45 52 52 43 4E 54 |*v ERRCNT.ERRCNT|
00002210: AA 31 00 25 2A 80 20 8B 20 45 52 52 43 4E 54 B3 |.1.%*. . ERRCNT.|
00002220: 34 20 A7 20 8E 00 32 2A 99 20 45 52 52 43 4E 54 |4 . ..2*. ERRCNT|
00002230: B2 30 00 61 2A 9E 20 99 20 22 20 D9 4F 55 20 41 |.0.a*. . " .OU A|
00002240: 50 50 45 41 52 20 54 4F 20 42 45 20 48 41 56 49 |PPEAR TO BE HAVI|
00002250: 4E 47 20 53 4F 4D 45 20 54 52 4F 55 42 4C 45 2E |NG SOME TROUBLE.|
00002260: 22 00 8B 2A A3 20 99 20 22 20 D7 4F 55 4C 44 20 |"..*. . " .OULD |
00002270: 59 4F 55 20 4C 49 4B 45 20 54 4F 20 52 45 54 55 |YOU LIKE TO RETU|
00002280: 52 4E 20 54 4F 20 54 48 45 20 22 00 AC 2A A8 20 |RN TO THE "..*. |
00002290: 99 20 22 20 D4 55 54 4F 52 49 41 4C 20 4D 45 4E |. " .UTORIAL MEN|
000022A0: 55 20 28 D9 2F CE 29 20 20 9D 22 3B 00 B7 2A AD |U (./.) .";..*.|
000022B0: 20 8D 20 37 33 30 30 00 C9 2A B2 20 8D 20 34 36 | . 7300..*. . 46|
000022C0: 32 30 3A 8D 20 34 36 30 30 00 CF 2A C6 20 8E 00 |20:. 4600..*. ..|
000022D0: E8 2A D0 20 81 20 49 B2 31 20 A4 20 38 30 30 20 |.*. . I.1 . 800 |
000022E0: 3A 8F 20 50 41 55 53 45 00 F0 2A DA 20 82 20 49 |:. PAUSE..*. . I|
000022F0: 00 F6 2A E4 20 8E 00 23 2B 34 21 8D 20 38 31 30 |..*. ..#+4!. 810|
00002300: 30 20 20 3A 8F 20 47 49 56 45 53 20 57 52 49 54 |0 :. GIVES WRIT|
00002310: 45 20 4F 52 20 43 4F 52 52 45 43 54 20 53 43 52 |E OR CORRECT SCR|
00002320: 45 45 4E 00 2E 2B 3E 21 8D 20 37 39 30 30 00 3C |EEN..+>!. 7900.<|
00002330: 2B 48 21 9E 20 28 57 54 45 4E 54 29 00 42 2B 52 |+H!. (WTENT).B+R|
00002340: 21 8E 00 60 2B 98 21 8F 20 50 4F 4B 45 20 53 54 |!..`+.!. POKE ST|
00002350: 52 49 4E 47 20 49 4E 54 4F 20 42 55 46 46 45 52 |RING INTO BUFFER|
00002360: 00 73 2B A2 21 42 4C 45 B2 54 42 55 46 AA C3 28 |.s+.!BLE.TBUF..(|
00002370: 41 24 29 00 7F 2B AC 21 41 B2 C3 28 41 24 29 00 |A$)..+.!A..(A$).|
00002380: 8D 2B B6 21 81 20 49 B2 31 20 A4 20 41 00 AB 2B |.+.!. I.1 . A..+|
00002390: C0 21 97 20 28 54 42 55 46 AA 49 AB 31 29 2C C6 |.!. (TBUF.I.1),.|
000023A0: 28 CA 28 41 24 2C 49 2C 31 29 29 00 B3 2B C5 21 |(.(A$,I,1))..+.!|
000023B0: 82 20 49 00 D4 2B CA 21 97 20 4C 50 54 45 4E 2C |. I..+.!. LPTEN,|
000023C0: 42 4C 45 AB 28 32 35 36 AC B5 28 42 4C 45 AD 32 |BLE.(256..(BLE.2|
000023D0: 35 36 29 29 00 EB 2B CF 21 97 20 48 50 54 45 4E |56))..+.!. HPTEN|
000023E0: 2C B5 28 42 4C 45 AD 32 35 36 29 00 0D 2C D4 21 |,.(BLE.256)..,.!|
000023F0: 97 20 4C 43 55 52 50 54 2C 42 4C 45 AB 28 32 35 |. LCURPT,BLE.(25|
00002400: 36 AC B5 28 42 4C 45 AD 32 35 36 29 29 00 25 2C |6..(BLE.256)).%,|
00002410: D9 21 97 20 48 43 55 52 50 54 2C B5 28 42 4C 45 |.!. HCURPT,.(BLE|
00002420: AD 32 35 36 29 00 2B 2C DE 21 8E 00 50 2C FC 21 |.256).+,.!..P,.!|
00002430: 9E 20 28 43 4D 57 52 54 29 20 3A 8F 20 47 49 56 |. (CMWRT) :. GIV|
00002440: 45 53 20 52 45 54 55 52 4E 20 53 43 52 45 45 4E |ES RETURN SCREEN|
00002450: 00 56 2C 06 22 8E 00 6D 2C 60 22 9E 20 28 53 57 |.V,."..m,`". (SW|
00002460: 49 4E 44 4F 57 29 3A 8D 20 37 39 30 30 00 7D 2C |INDOW):. 7900.},|
00002470: 65 22 9E 20 28 4D 4F 56 45 43 55 52 29 00 83 2C |e". (MOVECUR)..,|
00002480: 6A 22 8E 00 A7 2C C4 22 9E 20 28 46 4F 55 52 41 |j"...,.". (FOURA|
00002490: 52 29 20 3A 8F 20 44 52 41 57 53 20 46 4F 55 52 |R) :. DRAWS FOUR|
000024A0: 20 41 52 52 4F 57 53 00 AD 2C CE 22 8E 00 DB 2C | ARROWS..,."...,|
000024B0: 8C 23 8F 20 50 4C 41 43 45 53 20 43 55 52 53 4F |.#. PLACES CURSO|
000024C0: 52 20 50 54 52 20 41 54 20 42 45 47 49 4E 49 4E |R PTR AT BEGININ|
000024D0: 47 20 4F 46 20 42 55 46 46 45 52 00 FD 2C 91 23 |G OF BUFFER..,.#|
000024E0: 97 20 4C 43 55 52 50 54 2C 42 55 46 AB 28 32 35 |. LCURPT,BUF.(25|
000024F0: 36 AC B5 28 42 55 46 AD 32 35 36 29 29 00 15 2D |6..(BUF.256))..-|
00002500: 96 23 97 20 48 43 55 52 50 54 2C B5 28 42 55 46 |.#. HCURPT,.(BUF|
00002510: AD 32 35 36 29 00 1B 2D A0 23 8E 00 47 2D F0 23 |.256)..-.#..G-.#|
00002520: 59 B2 C2 28 4C 43 55 52 50 54 29 3A 20 20 20 8F |Y..(LCURPT): .|
00002530: 20 4C 4F 43 41 54 45 53 20 43 55 52 20 50 4F 53 | LOCATES CUR POS|
00002540: 20 4F 46 46 53 45 54 00 5B 2D FA 23 5A B2 C2 28 | OFFSET.[-.#Z..(|
00002550: 48 43 55 52 50 54 29 AC 32 35 36 00 6A 2D 04 24 |HCURPT).256.j-.$|
00002560: 59 5A B2 59 AA 5A AB 42 55 46 00 70 2D 0E 24 8E |YZ.Y.Z.BUF.p-.$.|
00002570: 00 A7 2D 54 24 8F 20 50 4C 41 43 45 53 20 43 55 |..-T$. PLACES CU|
00002580: 52 53 4F 52 20 50 54 52 20 41 54 20 42 45 47 49 |RSOR PTR AT BEGI|
00002590: 4E 49 4E 47 20 4F 46 20 42 55 46 46 45 52 20 2B |NING OF BUFFER +|
000025A0: 20 4F 46 46 53 45 54 00 CB 2D 59 24 97 20 4C 43 | OFFSET..-Y$. LC|
000025B0: 55 52 50 54 2C 42 55 46 AA 42 AB 28 32 35 36 AC |URPT,BUF.B.(256.|
000025C0: B5 28 42 55 46 AD 32 35 36 29 29 00 E3 2D 5E 24 |.(BUF.256))..-^$|
000025D0: 97 20 48 43 55 52 50 54 2C B5 28 42 55 46 AD 32 |. HCURPT,.(BUF.2|
000025E0: 35 36 29 00 E9 2D 68 24 8E 00 F6 2D B8 24 54 42 |56)..-h$...-.$TB|
000025F0: 55 46 B2 42 55 46 00 11 2E C2 24 41 24 B2 41 31 |UF.BUF....$A$.A1|
00002600: 24 3A 8D 20 38 36 30 30 3A 54 42 55 46 B2 42 4C |$:. 8600:TBUF.BL|
00002610: 45 00 2C 2E C7 24 41 24 B2 41 32 24 3A 8D 20 38 |E.,..$A$.A2$:. 8|
00002620: 36 30 30 3A 54 42 55 46 B2 42 4C 45 00 47 2E CC |600:TBUF.BLE.G..|
00002630: 24 41 24 B2 41 33 24 3A 8D 20 38 36 30 30 3A 54 |$A$.A3$:. 8600:T|
00002640: 42 55 46 B2 42 4C 45 00 62 2E D1 24 41 24 B2 41 |BUF.BLE.b..$A$.A|
00002650: 34 24 3A 8D 20 38 36 30 30 3A 54 42 55 46 B2 42 |4$:. 8600:TBUF.B|
00002660: 4C 45 00 7D 2E D6 24 41 24 B2 41 35 24 3A 8D 20 |LE.}..$A$.A5$:. |
00002670: 38 36 30 30 3A 54 42 55 46 B2 42 4C 45 00 8F 2E |8600:TBUF.BLE...|
00002680: DB 24 41 24 B2 41 36 24 3A 8D 20 38 36 30 30 00 |.$A$.A6$:. 8600.|
00002690: 95 2E E0 24 8E 00 B9 2E E4 25 99 20 22 12 22 3B |...$.....%. ".";|
000026A0: C7 28 31 36 35 29 3B C7 28 31 36 37 29 3B C7 28 |.(165);.(167);.(|
000026B0: 31 36 39 29 3B 22 92 22 3B 00 BF 2E EE 25 8E 00 |169);".";....%..|
000026C0: DF 2E 48 26 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..H&. **********|
000026D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000026E0: FC 2E 52 26 8F 20 20 20 43 48 45 43 4B 20 46 4F |..R&. CHECK FO|
000026F0: 52 20 44 49 53 4B 20 45 52 52 4F 52 00 02 2F 5C |R DISK ERROR../\|
00002700: 26 8F 00 0B 2F 66 26 4E 52 B2 31 00 19 2F 70 26 |&.../f&NR.1../p&|
00002710: 9F 20 31 35 2C 38 2C 31 35 00 2E 2F 7A 26 84 31 |. 15,8,15../z&.1|
00002720: 35 2C 45 4E 2C 45 44 24 2C 45 46 2C 45 53 00 37 |5,EN,ED$,EF,ES.7|
00002730: 2F 84 26 A0 20 31 35 00 4A 2F 8E 26 8B 20 45 4E |/.&. 15.J/.&. EN|
00002740: B3 B1 30 20 A7 20 4E 52 B2 30 00 50 2F 98 26 8E |..0 . NR.0.P/.&.|
00002750: 00 67 2F AC 26 8D 20 37 30 30 30 3A 59 B2 31 30 |.g/.&. 7000:Y.10|
00002760: 3A 8D 20 35 30 33 30 00 8F 2F B6 26 99 20 22 D5 |:. 5030../.&. ".|
00002770: 4E 41 42 4C 45 20 54 4F 20 4C 4F 43 41 54 45 20 |NABLE TO LOCATE |
00002780: 54 55 54 4F 52 49 41 4C 20 46 49 4C 45 53 22 00 |TUTORIAL FILES".|
00002790: 9E 2F B8 26 9E 20 28 4D 59 42 45 4C 32 29 00 A9 |./.&. (MYBEL2)..|
000027A0: 2F BB 26 8D 20 37 32 30 30 00 B4 2F BD 26 8D 20 |/.&. 7200../.&. |
000027B0: 37 30 30 30 00 BA 2F C0 26 8E 00 C0 2F 0F 27 80 |7000../.&.../.'.|
000027C0: 00 DB 2F 10 27 8D 20 37 31 30 30 3A 59 B2 32 34 |../.'. 7100:Y.24|
000027D0: 3A 58 B2 34 3A 8D 20 35 30 30 30 00 05 30 1A 27 |:X.4:. 5000..0.'|
000027E0: 99 20 22 CC 4F 41 44 49 4E 47 2C 20 50 4C 45 41 |. ".OADING, PLEA|
000027F0: 53 45 20 57 41 49 54 20 20 20 20 20 20 20 20 20 |SE WAIT |
00002800: 20 20 20 22 3B 00 0B 30 24 27 8E 00 26 30 74 27 | ";..0$'..&0t'|
00002810: 8D 20 37 31 30 30 3A 59 B2 32 34 3A 58 B2 34 3A |. 7100:Y.24:X.4:|
00002820: 8D 20 35 30 30 30 00 50 30 7E 27 99 20 22 20 20 |. 5000.P0~'. " |
00002830: 20 20 20 20 20 20 20 D0 4C 45 41 53 45 20 57 41 | .LEASE WA|
00002840: 49 54 20 20 20 20 20 20 20 20 20 20 20 20 22 3B |IT ";|
00002850: 00 56 30 88 27 8E 00 00 00 |.V0.'.... |
....... "@0:TUT4",8.......M...A$."":A1$.
"":A2$."":A3$."":A4$."":A5$."":A6$."".X.
... 6000.C.... 8100.M.... 290.S.....~. .
. 6000...... 8100.....A$."":A1$."":A2$."
":A3$."":A4$."":A5$."":A6$."".H.H.. 7000
...... :. "BANK STREET WRITER":....... "
TUTORIAL":....... 7500.(.... "LESSON 2:
CURSOR MOVEMENT".3.... 8900.?.... 10100.
U.".. 7100:Y.9:. 5030...,.. "ONE OF THE
BEST THINGS ABOUT WRITING"...6.. "WITH A
TEXT EDITOR IS THAT CHANGES"...@.. "AND
CORRECTIONS ARE VERY EASY TO MAKE."...J
.. "THE FIRST STEP IN MAKING CORRECTIONS
".3.T.. "IS KNOWING HOW TO MOVE THE CURS
OR".L.^.. "AROUND THE TEXT.".W.`.. 4900.
B.F.. 9400.T.H.. 7200:. 7000...R.. 7700:
. 8700...|.. 7100:Y.2:. 5030:. 7500:. "E
RASE"...... 8900.N....(SWINDOW):. 7900.W
...K.10...... 7250...B.. 7100:Y.14:. 503
0.'.L.. " HERE IS A POEM THAT NEEDS SOME
HELP.".P.V.. " BUT FIRST LET'S PRACTICE
MOVING"...... " THE CURSOR. (THAT'S THE
FLASHING WHITE"......" BOX)"...... 7200
:. 7250...... 7100:Y.14:. 5030...... " T
HERE ARE TWO KEYS THAT MOVE THE"...... "
CURSOR. ONE IS MARKED CRSR AND HAS".:.&
.. " LEFT AND RIGHT ARROWS ON IT. PRESSE
D".F.+.. " ALONE THIS KEY MOVES THE CURS
OR TO"...0.. " THE RIGHT. TO MOVE THE CU
RSOR TO THE"...5.. " LEFT, PRESS THIS KE
Y TOGETHER WITH".X.:.. " THE SHIFT KEY."
...N.. 7200:. 7250...X.. 7100:Y.14:. 503
0.+.B.. " THE OTHER CURSOR MOVEMENT KEY
IS".Y.L.. " MARKED CRSR WITH UP AND DOWN
ARROWS."...V.. " THIS KEY MOVES THE CUR
SOR DOWN WHEN"...... " PRESSED ALONE AND
UP WHEN PRESSED".P.... " WITH THE SHIFT
KEY.":....... " THE SHIFT KEY HAS THE E
FFECT OF".$.... " CHANGING THE DIRECTION
OF THE TWO".C.... " CURSOR MOVEMENT KEY
S.".U.... 7200:. 7250.L.... 7100:Y.14:.
5030...... "FOR CONVENIENCE YOU CAN THIN
K OF THESE"...... "AS FOUR SEPARATE KEYS
:":....F.. ".";G(187);". IS THE LEFT-RIG
HT ARROW KEY ALONE".#.P.. "_ IS THE LEFT
-RIGHT ARROW KEY AND SHIFT".W.Z.. ".";G(
252);". IS THE UP-DOWN ARROW KEY ALONE".
..... "^ IS THE UP-DOWN ARROW KEY AND SH
IFT"...... 7200:K.11:. 7250...... 7100:Y
.14:. 5030...... " TRY MOVING THE CURSOR
WITH THESE KEYS."...... " USE .";G(187)
;". (THE LEFT-RIGHT ARROW KEY) TO".G....
" MOVE TO THE RIGHT. USE _ (SHIFT AND".
U. .. " THE LEFT-RIGHT ARROW KEY) TO MOV
E TO"...*.. " THE LEFT. TRY THE UP AND D
OWN KEYS AS"...4.. " WELL.":....>.. " PR
ESS ";:. 9700:. " TO CONTINUE";...\.. 88
00...... 7250:. 7100:Y.14:. 5030.6.... "
NOTICE THE ARROWS IN THE UPPER RIGHT".D
.... " HAND CORNER. YOU CAN MOVE THE CUR
SOR"...... " WHENEVER THESE ARROWS APPEA
R. THEY ARE"...... " TO REMIND YOU WHEN
AND HOW YOU CAN".Z.... " MOVE THE CURSOR
."...... 7200:K.10...... 7250:. 7100:Y.1
4:. 5030.2.... " NOW THAT YOU CAN MOVE T
HE CURSOR".^.... " AROUND YOU ARE READY
TO MAKE MINOR"...... " CORRECTIONS IN TH
E TEXT.".....K.11:. 7200:. 7250...... 71
00:Y.14:. 5030...$.. " FIRST LET'S CORRE
CT THE MISSPELLING"...... " ON LINE ONE
BY CHANGING 'WRITTOR' TO". .8.. " 'WRITE
R'.":.:..+.B.. 4850.=.L.. 9100:. 8800.H.
V.. 4700.Z.`.. M1.0 . 1150.E.J.. 4800.W.
O.. 4620:. 4600...T.. 1090...~.ERRCNT.0.
..... 4620:. 4600...... 4500.C.... (SWIN
DOW):. 7800.N.... 4400...... M1.0 . 1240
.....B.9:. 4300...D.. 4620:. 4600...N..
1170...X.ERRCNT.0.L...A1$."A WRITER WHO
CAME FROM BANK STREET".G(13).W.... 8700.
~.... 7100:Y.2:. 5030:. 7500:. "ERASE"..
...K.11:. 7250...... 7100:Y.14:. 5030.R.
... " NOW LET'S CAPITALIZE THE 'S' IN TH
E"...... " WORD 'SO' IN THE THIRD LINE."
:.:.:....... 4200...(.. 9100:. 8800.&.2.
. 4100.8.<.. M1.0 . 1370.C.F.. 4800.U.P.
. 4620:. 4600.`.U.. 1310.M.Z.ERRCNT.0..
D.. 4620:. 4600...N.. 4000...X.. (SWINDO
W):. 7800...... 3900...... M1.0 . 1460.N
...B.73:. 4300... .. 4620:. 4600...... 1
390.....ERRCNT.0.....A3$." SO MESSY HE
WROTE".G(13).(.... 8700.O.H.. 7100:Y.2:
. 5030:. 7500:. "ERASE"._.R.K.11:. 7250.
V.... 7100:Y.14:. 5030...... " NOW LET'S
FIX THE RHYME IN THE LAST".N.... " LINE
BY CHANGING 'MUCH BETTER' TO"...... " '
MORE NEAT'.":.:....... 3800...... 9100:.
8800...... 3700.".".. M1.0 . 1610.-.,..
4800.?.6.. 4620:. 4600.J.@.. 1540.W.J.E
RRCNT.0.I.T.. 4620:. 4600.T.^.. 3600...H
.. (SWINDOW):. 7800...R.. 3500...|.. M1.
0 . 1700.....B.176:. 4300.K.... 4620:. 4
600.V.... 1630...... 8700...... 7100:Y.2
:. 5030:. 7500:. "ERASE"...... 8900.#...
K.11:. 7250.:.B.. 7100:Y.14:. 5030.G.L..
" YOU HAVE FINISHED LESSON 2. YOU CAN".
..V.. " NOW DO ONE OF THREE THINGS."....
..:. " 1. DO THIS LESSON AGAIN".T.... "
2. GO ON TO THE NEXT LESSON"...... " 3.
RETURN TO THE TUTORIAL MENU".$....:. " W
HAT WOULD YOU LIKE TO DO? ";./.... 7400.
9...N$.S$.B.... N$.."1" . N$.."2" . N$..
"3" . 1800.L.... N$;..... N$."1" . 150.
..... **********************...... LOA
D CURRENT VALUES............ 3,8,3,"@0:U
TILDATA,S,R"...... 9800..... 3...... NR
. 1825...... 9900...... 1812.).!.. N$."
2" . 1830.?.#.. 10000:."TUT2",8.J.&.. 70
00.H.0.. :. "BANK STREET WRITER".{.:..:.
"TUTORIAL"...D..:. 7500...N.. "LESSON 3
: ERASE AND UNERASE"...X.. 8900.M.B.. 10
000:."TUT5",8.....M1.0 :. ERROR CHECK...
......... D...... D...2 . 3504...... I.1
64 . 173. .... D.9.J.. B(BUF.I)..D . M1.
1.A.T.. I.G.....U.... " 3. ERASE THE WOR
DS 'MUCH BETTER' AND". .... " TYPE 'M
ORE NEAT'. (DEL ERASES)"...$..:. " 4. PR
ESS ";:. 9700.C.......T.M1.0 : . ERROR C
HECK...~.. 9200...... YZ..176 . M1.1....
...1.X.. " 1. PLACE THE CURSOR AT THE EN
D OF THE".R.... " TEXT (AFTER THE 'R'
)".O....:. " 2. PRESS ";:. 9700.U.......
<.M1.0 :. ERROR CHECK...>.....@.. D...B.
. D...1 . 3904...F.. I.69 . 73.F.P.. D..
.Z.. B(BUF.I)..D . M1.1...D.. I.........
.. " 3. PRESS DEL ONCE AND THEN TYPE".:
.... " 'S' WITH THE SHIFT KEY.".W....
:. " 4. PRESS ";:. 9700.].....M...M1.0:.
9200...... YZ..73 . M1.1.........H.. "
1. MOVE THE CURSOR TO THE 'O' IN"...R..
" THE WORD 'SO' IN THE THIRD LINE."..
.|..:. " 2. PRESS ";:. 9700.........L..
4620:. 4600...Q.. 8300.4.S.. ERRCNT.0 .
4322.Z.V.. " YOU DID NOT MAKE THE CORREC
T".|.... " SUBSTITUTION. TRY AGAIN."....
.. 8100:. 9400......(SWINDOW):. 7900....
.. 9300.......M.0.M1.0 :. ERROR CHECK.S.
5.....:.. I.0 . 9...D.. D...N.. B(BUF.I)
..D . M1.1...X.. I./.B.. 193,32,87,82,73
,84,69,82,32,87.H.L.. -1,32,32,32,211,79
.O.Q.. -2,32,77,79,82,69,32,78,69,65,84.
U.V........ " 3. PRESS DEL THREE TIMES T
O".A.... " ERASE THE 'R' 'O' AND 'T',
"...... " THEN TYPE 'E' AND 'R'".....
. " 4. PRESS ";:. 9700.. ..... ... 7100:
Y.19:. 5030.! ...., ... 4600.; ..K.4:. 7
260.A ...J \.M1.0.U F.. 9200.H P.. YZ..
9 . M1.1.N Z.... ... 4620:. 4600.. J.. 8
300.. O.. ERRCNT.0 . 4845.I T.. " YOU HA
VE NOT PLACED THE CURSOR".. ... " CORREC
TLY. TRY AGAIN.".. ... 8400.. ...."!...
" 1. MOVE THE CURSOR TO THE SPACE".L!...
" BETWEEN 'WRITTOR' AND 'WHO'":..G!.
.. " 2. PRESS ";:. 9700.M!.....!$.A1$."A
WRITTOR WHO CAME FROM BANK STREET".G(13
).S!..A2$."HAD DEADLINES HE NEVER COULD
MEET".G(13)..!8.A3$." SO MESSY HE WROT
E".G(13).""B.A4$." ALL THOUGHT HIM A J
OKE".G(13).W"L.A5$."TILL A WORD PROCESSO
R MADE HIM WRITE".G(13).Y"V.A6$."
MUCH BETTER"."`...."....."... I.1
. X :. POSITION CURSOR.."... ".";.."...
I.."... J.1 . Y :. MOVE CURSOR DOWN THE
SCREEN.."... ".";.."... J.."D....#P.BASE
.6.4096 :. INITIALIZE.+#R.BUF.49152.7#S.
BLE.BUF.K#U.B2.9.4096.5.256.X#W.ERRCNT.0
.Y#Z.INITUT.B(BASE).B(BASE.1).256..#.MO
VECUR.B(BASE.4).B(BASE.5).256..#..BOX.B(
BASE.54).B(BASE.55).256..#..FOURAR.B(BAS
E.42).B(BASE.43).256..$..GKBD .B(BASE.56
).B(BASE.57).256..$..SWINDOW.B(BASE.58).
B(BASE.59).256.O$..ISRT.B(BASE.6).B(BASE
.7).256.S$..CMWRT.B(BASE.36).B(BASE.37).
256..$..REDO.B(BASE.2).B(BASE.3).256..$.
.WTENT.B(BASE.38).B(BASE.39).256..$..WRT
EN1.B(BASE.50).B(BASE.51).256..%..MYBEL2
.B(BASE.52).B(BASE.53).256..%..LBUFBEG.B
2."%E.HBUFBEG.B2.1.0%J.LMIN.B2.2.>%O.HMI
N.B2.3.M%T.LOMAX.B2.4.\%Y.HIMAX.B2.5.K%.
.LPTEN.B2.6.Z%..HPTEN.B2.7..%..GCFLAG.B2
.8..%..WBTM.B2.9..%..MIDLIN.B2.10..%..DL
INE.B2.11.I%..CDNUM.B2.12.X%..CHAR.B2.13
..%..SCRAMT.B2.14..%..LOLD2.B2.39..&..HO
LD2.B2.40..&$.LCURPT.251.'&..HCURPT.252.
5&J.. WBTM,12.D&... GCFLAG,1.S&... MIDLI
N,9.A&D.. DLINE,8.P&N.. CDNUM,15.&X.. S
CRAMT,4..&.....&X..".";:. CLEAR SCREEN H
OME CURSOR..&B...I&..."."; :. HOME CURSO
R.O&F....& .. TEST FOR SPACE BAR PUSH..'
!..7100:X.4:Y.24:.5000./'#.. "[PRESS SPA
CE BAR TO CONTINUE] .";.:'%.. 7400.Q'4..
S$ .. " " . 7205.W'>....'R.. 7100 :.
CLEAR BOTTOM HALF SCREEN..'W.Y.13 : . 50
30. '\.. I.1 . K.P'F.. "
".X'P.. I..(Z.. "
"
;..(...4(... 7400 :. TEST FOR Y/N KEY P
RESS.G(... S$.."Y" . S$.."Y" . S$.."N" .
S$.."N" . 7300..(... S$."Y" . S$."Y" .
. "Y"; :N$."3": . 1812..(... "N";..(....
R(...(GKBD) :. GET CHARACTOR FROM KEYBOA
RD..(..S$.G(B(CHAR))..(.....)L.. "."; :.
TURN REVERSE ON..)V...,)... "." :. TURN
OFF REVERSE.2)....J)... (BOX) :. DRAW B
OX.P)....F)X.. ALLOW INSERTION.Q)... 790
0.~)... (ISRT)..).....)... (REDO) :...).
....)... (INITUT) :...)....X). . (WRTEN1
) :. PRINT TOP OF SCREEN..). ...)L . (MY
BEL2) :. ERROR ROUTINE..*V ERRCNT.ERRCNT
.1.%*. . ERRCNT.4 . ..2*. ERRCNT.0.A*. .
" YOU APPEAR TO BE HAVING SOME TROUBLE.
"..*. . " WOULD YOU LIKE TO RETURN TO TH
E "..*. . " TUTORIAL MENU (Y/N) .";..*.
. 7300.I*. . 4620:. 4600.O*F ...*P . I.
1 . 800 :. PAUSE..*Z . I..*. ..#+4!. 810
0 :. GIVES WRITE OR CORRECT SCREEN..+>!
. 7900.<+H!. (WTENT).B+R!..`+.!. POKE ST
RING INTO BUFFER.S+.!BLE.TBUF.C(A$).+.!
A.C(A$)..+.!. I.1 . A..+.!. (TBUF.I.1),F
(J(A$,I,1))..+E!. I.T+J!. LPTEN,BLE.(256
..(BLE.256))..+O!. HPTEN,.(BLE.256)..,T!
. LCURPT,BLE.(256..(BLE.256)).%,Y!. HCUR
PT,.(BLE.256).+,.!..P,.!. (CMWRT) :. GIV
ES RETURN SCREEN.V,."..M,`". (SWINDOW):.
7900.},E". (MOVECUR)..,J"...,D". (FOURA
R) :. DRAWS FOUR ARROWS..,N"...,.#. PLAC
ES CURSOR PTR AT BEGINING OF BUFFER..,.#
. LCURPT,BUF.(256..(BUF.256))..-.#. HCUR
PT,.(BUF.256)..- #..G-.#Y.B(LCURPT): .
LOCATES CUR POS OFFSET.[-.#Z.B(HCURPT).
256.J-.$YZ.Y.Z.BUF.P-.$...-T$. PLACES CU
RSOR PTR AT BEGINING OF BUFFER + OFFSET.
K-Y$. LCURPT,BUF.B.(256..(BUF.256))..-^$
. HCURPT,.(BUF.256)..-H$...-.$TBUF.BUF..
.B$A$.A1$:. 8600:TBUF.BLE.,.G$A$.A2$:. 8
600:TBUF.BLE.G.L$A$.A3$:. 8600:TBUF.BLE.
B.Q$A$.A4$:. 8600:TBUF.BLE.}.V$A$.A5$:.
8600:TBUF.BLE....$A$.A6$:. 8600....$....
.%. ".";G(165);G(167);G(169);".";....%..
..H&. *************************...R&.
CHECK FOR DISK ERROR../\&.../F&NR.1../P&
. 15,8,15../Z&.15,EN,ED$,EF,ES.7/.& 15.
J/.&. EN..0 . NR.0.P/.&..G/.&. 7000:Y.10
:. 5030../.&. "UNABLE TO LOCATE TUTORIAL
FILES"../.&. (MYBEL2)../.&. 7200../.&.
7000../.&.../.'.../.'. 7100:Y.24:X.4:. 5
000..0.'. "LOADING, PLEASE WAIT
";..0$'..&0T'. 7100:Y.24:X.4:. 5000.P
0~'. " PLEASE WAIT ";
.V0.'....
> CLICK IMAGE PREVIEW FOR FULL MODAL