SPELL.C

00000000: 01 08 29 08 05 00 8F 20  20 54 48 49 53 20 50 52  |..)....  THIS PR|
00000010: 4F 47 52 41 4D 20 57 49  4C 4C 20 52 45 41 44 20  |OGRAM WILL READ |
00000020: 41 4E 44 20 57 52 49 54  45 00 51 08 06 00 8F 20  |AND WRITE.Q.... |
00000030: 20 54 4F 20 41 20 44 49  53 4B 2C 20 53 4F 20 59  | TO A DISK, SO Y|
00000040: 4F 55 20 4D 55 53 54 20  4D 41 4B 45 20 53 55 52  |OU MUST MAKE SUR|
00000050: 45 00 74 08 07 00 8F 20  20 59 4F 55 20 4B 45 45  |E.t....  YOU KEE|
00000060: 50 20 4F 4E 45 20 49 4E  20 59 4F 55 52 20 44 52  |P ONE IN YOUR DR|
00000070: 49 56 45 2E 00 9B 08 08  00 8F 20 20 57 48 45 4E  |IVE.......  WHEN|
00000080: 20 59 4F 55 20 54 59 50  45 20 49 4E 20 41 20 4E  | YOU TYPE IN A N|
00000090: 45 57 20 4C 49 53 54 2C  20 49 54 00 C1 08 09 00  |EW LIST, IT.....|
000000A0: 8F 20 20 49 53 20 57 52  49 54 54 45 4E 20 54 4F  |.  IS WRITTEN TO|
000000B0: 20 54 48 45 20 44 49 53  4B 20 41 53 20 46 49 4C  | THE DISK AS FIL|
000000C0: 45 00 E7 08 0A 00 8F 20  22 D3 D0 C5 CC CC 31 2E  |E...... ".....1.|
000000D0: 4D 4D 2F 44 44 22 2C 20  57 48 45 52 45 20 4D 4D  |MM/DD", WHERE MM|
000000E0: 20 49 53 20 54 48 45 00  06 09 0B 00 8F 20 4D 4F  | IS THE...... MO|
000000F0: 4E 54 48 20 41 4E 44 20  44 44 20 49 53 20 54 48  |NTH AND DD IS TH|
00000100: 45 20 44 41 59 2E 00 0C  09 0C 00 8F 00 33 09 0E  |E DAY........3..|
00000110: 00 8F 20 20 20 20 54 48  49 53 20 44 49 53 4B 20  |..    THIS DISK |
00000120: 43 4F 4E 54 41 49 4E 53  20 4F 4E 45 20 53 41 4D  |CONTAINS ONE SAM|
00000130: 50 4C 45 00 5B 09 0F 00  8F 20 20 46 49 4C 45 20  |PLE.[....  FILE |
00000140: 4F 46 20 54 48 52 45 45  20 57 4F 52 44 53 2E 20  |OF THREE WORDS. |
00000150: 20 57 48 45 4E 20 41 53  4B 45 44 00 81 09 10 00  | WHEN ASKED.....|
00000160: 8F 20 20 46 4F 52 20 54  48 45 20 4D 4F 4E 54 48  |.  FOR THE MONTH|
00000170: 20 54 59 50 45 20 49 4E  20 22 31 22 3B 20 46 4F  | TYPE IN "1"; FO|
00000180: 52 00 9F 09 11 00 8F 20  20 54 48 45 20 4D 4F 4E  |R......  THE MON|
00000190: 54 48 20 54 59 50 45 20  49 4E 20 22 31 35 22 00  |TH TYPE IN "15".|
000001A0: A5 09 12 00 8F 00 BC 09  50 00 97 20 35 33 32 37  |........P.. 5327|
000001B0: 32 2C C2 28 35 33 32 37  32 29 B0 32 00 D7 09 5A  |2,.(53272).2...Z|
000001C0: 00 86 20 57 24 28 33 30  29 2C 44 24 28 33 30 29  |.. W$(30),D$(30)|
000001D0: 2C 45 52 28 33 30 29 00  08 0A 64 00 99 20 22 93  |,ER(30)...d.. ".|
000001E0: 11 11 11 11 11 D7 45 4C  43 4F 4D 45 20 54 4F 20  |......ELCOME TO |
000001F0: D2 49 43 48 49 45 27 53  20 D3 D0 C5 CC CC CD C1  |.ICHIE'S .......|
00000200: D3 D4 C5 D2 2D 36 34 22  00 33 0A 6E 00 99 20 22  |....-64".3.n.. "|
00000210: D9 4F 55 20 4D 41 59 20  45 49 54 48 45 52 20 45  |.OU MAY EITHER E|
00000220: 4E 54 45 52 20 41 20 4E  45 57 20 4C 49 53 54 20  |NTER A NEW LIST |
00000230: 4F 46 22 00 60 0A 78 00  99 20 22 57 4F 52 44 53  |OF".`.x.. "WORDS|
00000240: 20 4F 52 20 59 4F 55 20  4D 41 59 20 52 45 56 49  | OR YOU MAY REVI|
00000250: 45 57 20 41 4E 20 4F 4C  44 20 4C 49 53 54 2E 22  |EW AN OLD LIST."|
00000260: 00 66 0A 82 00 99 00 84  0A 8C 00 99 20 22 D3 45  |.f.......... ".E|
00000270: 4C 45 43 54 20 59 4F 55  52 20 43 48 4F 49 43 45  |LECT YOUR CHOICE|
00000280: 2E 3A 20 22 00 8A 0A 96  00 99 00 AE 0A A0 00 99  |.: "............|
00000290: 20 A6 31 30 29 3B 22 12  46 31 92 20 D2 45 56 49  | .10);".F1. .EVI|
000002A0: 45 57 20 4F 4C 44 20 4C  45 53 53 4F 4E 22 00 D1  |EW OLD LESSON"..|
000002B0: 0A AA 00 99 20 A6 31 30  29 3B 22 12 46 33 92 20  |.... .10);".F3. |
000002C0: C5 4E 54 45 52 20 4E 45  57 20 4C 45 53 53 4F 4E  |.NTER NEW LESSON|
000002D0: 22 00 E8 0A AF 00 99 20  A6 31 30 29 3B 22 12 46  |"...... .10);".F|
000002E0: 37 92 20 D1 55 49 54 22  00 00 0B B4 00 A1 20 41  |7. .UIT"...... A|
000002F0: 24 3A 20 8B 20 41 24 B2  22 22 20 89 20 31 38 30  |$: . A$."" . 180|
00000300: 00 14 0B B9 00 8B 20 C6  28 41 24 29 B2 31 33 36  |...... .(A$).136|
00000310: 20 A7 20 90 00 2B 0B BE  00 8B 20 C6 28 41 24 29  | . ..+.... .(A$)|
00000320: B2 31 33 33 20 89 20 33  30 30 30 00 42 0B C8 00  |.133 . 3000.B...|
00000330: 8B 20 C6 28 41 24 29 B3  B1 31 33 34 20 89 20 31  |. .(A$)..134 . 1|
00000340: 38 30 00 48 0B 2C 01 8F  00 5F 0B 36 01 8F 20 20  |80.H.,..._.6..  |
00000350: 45 4E 54 45 52 20 4E 45  57 20 57 4F 52 44 53 00  |ENTER NEW WORDS.|
00000360: 67 0B 40 01 4A B2 30 00  93 0B 5E 01 99 20 22 93  |g.@.J.0...^.. ".|
00000370: 11 11 11 20 20 20 C5 4E  54 45 52 20 57 4F 52 44  |...   .NTER WORD|
00000380: 20 4F 52 20 50 52 45 53  53 20 27 D2 C5 D4 D5 D2  | OR PRESS '.....|
00000390: CE 27 22 00 B4 0B 68 01  99 20 22 D7 4F 52 44 20  |.'"...h.. ".ORD |
000003A0: 4E 55 4D 42 45 52 22 3B  4A AA 31 3B 3A 85 20 57  |NUMBER";J.1;:. W|
000003B0: 24 28 4A 29 00 D3 0B 6D  01 8B 20 C3 28 57 24 28  |$(J)...m.. .(W$(|
000003C0: 4A 29 29 B2 30 20 A7 20  4A B2 4A AB 31 3A 89 20  |J)).0 . J.J.1:. |
000003D0: 34 36 30 00 FA 0B 72 01  99 20 22 93 11 11 11 C5  |460...r.. ".....|
000003E0: 4E 54 45 52 20 57 4F 52  44 20 41 47 41 49 4E 20  |NTER WORD AGAIN |
000003F0: 54 4F 20 56 45 52 49 46  59 22 00 03 0C 7C 01 85  |TO VERIFY"...|..|
00000400: 20 43 24 00 18 0C 86 01  8B 20 57 24 28 4A 29 B2  | C$...... W$(J).|
00000410: 43 24 20 89 20 34 35 30  00 41 0C 90 01 99 20 22  |C$ . 450.A.... "|
00000420: D9 4F 55 20 44 49 44 4E  27 54 20 53 50 45 4C 4C  |.OU DIDN'T SPELL|
00000430: 20 49 54 20 54 48 45 20  53 41 4D 45 20 57 41 59  | IT THE SAME WAY|
00000440: 22 00 5F 0C 95 01 99 20  22 42 4F 54 48 20 54 49  |"._.... "BOTH TI|
00000450: 4D 45 53 2E 20 D4 52 59  20 41 47 41 49 4E 2E 00  |MES. .RY AGAIN..|
00000460: 72 0C 9A 01 8D 20 31 31  30 30 30 3A 20 89 20 33  |r.... 11000: . 3|
00000470: 35 30 00 8B 0C C2 01 8D  20 31 31 32 30 30 3A 4A  |50...... 11200:J|
00000480: B2 4A AA 31 3A 20 89 20  33 35 30 00 9C 0C CC 01  |.J.1: . 350.....|
00000490: 8B 20 4A B2 AB 31 20 89  20 31 30 30 00 BE 0C D1  |. J..1 . 100....|
000004A0: 01 99 20 22 93 11 11 11  D7 48 41 54 20 49 53 20  |.. ".....HAT IS |
000004B0: 54 4F 44 41 59 27 53 20  44 41 54 45 3F 22 00 C4  |TODAY'S DATE?"..|
000004C0: 0C D6 01 99 00 E6 0C E0  01 85 20 22 CD 4F 4E 54  |.......... ".ONT|
000004D0: 48 20 28 CE D5 CD C2 C5  D2 20 50 4C 45 41 53 45  |H (...... PLEASE|
000004E0: 29 3A 22 3B 4D 24 00 F9  0C EA 01 41 24 B2 4D 24  |):";M$.....A$.M$|
000004F0: 3A 20 8D 20 31 31 31 30  30 00 09 0D F4 01 8B 20  |: . 11100...... |
00000500: 46 B2 30 20 89 20 35 32  30 00 30 0D FE 01 99 20  |F.0 . 520.0.... |
00000510: 22 D9 4F 55 20 4D 55 53  54 20 45 4E 54 45 52 20  |".OU MUST ENTER |
00000520: 41 20 CE D5 CD C2 C5 D2  22 3A 20 89 20 34 38 30  |A ......": . 480|
00000530: 00 50 0D 08 02 4D B2 C5  28 4D 24 29 3A 20 8B 20  |.P...M..(M$): . |
00000540: 4D B1 30 20 AF 20 4D B3  31 33 20 89 20 35 34 30  |M.0 . M.13 . 540|
00000550: 00 81 0D 12 02 99 20 22  CD 4F 4E 54 48 20 4E 55  |...... ".ONTH NU|
00000560: 4D 42 45 52 20 4D 55 53  54 20 42 45 20 42 45 54  |MBER MUST BE BET|
00000570: 57 45 45 4E 20 31 2D 31  32 22 3A 20 89 20 34 38  |WEEN 1-12": . 48|
00000580: 30 00 A2 0D 1C 02 85 20  22 C4 41 59 20 28 CE D5  |0...... ".AY (..|
00000590: CD C2 C5 D2 20 50 4C 45  41 53 45 29 20 22 3B 44  |.... PLEASE) ";D|
000005A0: 41 24 00 B6 0D 26 02 41  24 B2 44 41 24 3A 20 8D  |A$...&.A$.DA$: .|
000005B0: 20 31 31 31 30 30 00 C6  0D 30 02 8B 20 46 B2 30  | 11100...0.. F.0|
000005C0: 20 89 20 35 38 30 00 ED  0D 3A 02 99 20 22 D9 4F  | . 580...:.. ".O|
000005D0: 55 20 4D 55 53 54 20 45  4E 54 45 52 20 41 20 CE  |U MUST ENTER A .|
000005E0: D5 CD C2 C5 D2 22 3A 20  89 20 35 34 30 00 0E 0E  |.....": . 540...|
000005F0: 44 02 4D B2 C5 28 44 41  24 29 3A 20 8B 20 4D B1  |D.M..(DA$): . M.|
00000600: 30 20 AF 20 4D B3 33 32  20 89 20 36 30 30 00 3D  |0 . M.32 . 600.=|
00000610: 0E 4E 02 99 20 22 C4 41  59 20 4E 55 4D 42 45 52  |.N.. ".AY NUMBER|
00000620: 20 4D 55 53 54 20 42 45  20 42 45 54 57 45 45 4E  | MUST BE BETWEEN|
00000630: 20 31 2D 33 31 22 3A 20  89 20 35 34 30 00 67 0E  | 1-31": . 540.g.|
00000640: 58 02 9F 20 33 2C 38 2C  33 2C 22 30 3A 53 50 45  |X.. 3,8,3,"0:SPE|
00000650: 4C 4C 31 2E 22 AA 4D 24  AA 22 2F 22 AA 44 41 24  |LL1.".M$."/".DA$|
00000660: AA 22 2C 53 2C 57 22 00  7D 0E 5D 02 4E 57 B2 4A  |.",S,W".}.].NW.J|
00000670: 20 20 3A 20 43 52 24 B2  C7 28 31 33 29 00 86 0E  |  : CR$..(13)...|
00000680: 62 02 98 33 2C 4A 00 93  0E 6C 02 81 20 4A 4A B2  |b..3,J...l.. JJ.|
00000690: 30 A4 4A 00 B2 0E 76 02  98 33 2C 31 3B 43 52 24  |0.J...v..3,1;CR$|
000006A0: 3B 57 24 28 4A 4A 29 3B  43 52 24 3B 44 24 28 4A  |;W$(JJ);CR$;D$(J|
000006B0: 4A 29 00 BF 0E 7B 02 45  52 28 4A 4A 29 B2 31 00  |J)...{.ER(JJ).1.|
000006C0: C5 0E 80 02 82 00 CD 0E  8A 02 A0 20 33 00 D3 0E  |........... 3...|
000006D0: AC 03 8F 00 D9 0E B6 03  8F 00 F7 0E E8 03 99 20  |............... |
000006E0: A6 37 29 3B 22 12 11 11  11 46 31 92 20 C7 45 54  |.7);"....F1. .ET|
000006F0: 20 43 4C 55 45 53 22 00  26 0F F7 03 99 20 A6 37  | CLUES".&.... .7|
00000700: 29 3B 22 12 46 35 92 20  C5 4E 54 45 52 2F D2 45  |);".F5. .NTER/.E|
00000710: 54 52 49 45 56 45 20 41  4E 4F 54 48 45 52 20 4C  |TRIEVE ANOTHER L|
00000720: 45 53 53 4F 4E 22 00 3C  0F FA 03 99 20 A6 37 29  |ESSON".<.... .7)|
00000730: 3B 22 12 46 37 92 20 D1  55 49 54 22 00 42 0F FC  |;".F7. .UIT".B..|
00000740: 03 99 00 59 0F 06 04 A1  20 41 24 3A 8B 41 24 B2  |...Y.... A$:.A$.|
00000750: 22 22 20 89 20 31 30 33  30 00 70 0F 10 04 8B 20  |"" . 1030.p.... |
00000760: C6 28 41 24 29 B2 31 33  33 20 89 20 32 30 30 30  |.(A$).133 . 2000|
00000770: 00 87 0F 1A 04 8B 20 C6  28 41 24 29 B2 31 33 34  |...... .(A$).134|
00000780: 20 89 20 32 30 30 30 00  9D 0F 24 04 8B 20 C6 28  | . 2000...$.. .(|
00000790: 41 24 29 B2 31 33 35 20  89 20 31 33 30 00 B1 0F  |A$).135 . 130...|
000007A0: 29 04 8B 20 C6 28 41 24  29 B2 31 33 36 20 A7 20  |).. .(A$).136 . |
000007B0: 90 00 BC 0F 2E 04 89 20  31 30 30 30 00 C2 0F 38  |....... 1000...8|
000007C0: 04 8F 00 E4 0F 42 04 8F  20 20 52 4F 55 54 49 4E  |.....B..  ROUTIN|
000007D0: 45 20 54 4F 20 43 4F 4E  54 49 4E 55 45 20 41 43  |E TO CONTINUE AC|
000007E0: 54 49 4F 4E 00 EA 0F CE  07 8F 00 F3 0F D0 07 4B  |TION...........K|
000007F0: 4B B2 30 00 FF 0F D1 07  81 20 4B B2 30 A4 4A 00  |K.0...... K.0.J.|
00000800: 14 10 D2 07 8B 20 45 52  28 4B 29 B2 30 20 89 20  |..... ER(K).0 . |
00000810: 32 31 39 30 00 26 10 DA  07 54 52 B2 31 3A 20 4B  |2190.&...TR.1: K|
00000820: 4B B2 4B 4B AA 31 00 48  10 DF 07 99 20 22 93 20  |K.KK.1.H.... ". |
00000830: 20 20 20 20 11 11 11 D7  4F 52 44 20 4E 55 4D 42  |    ....ORD NUMB|
00000840: 45 52 22 3B 4B 4B 3A 99  00 6A 10 E4 07 99 20 A6  |ER";KK:..j.... .|
00000850: 31 30 29 3B 22 C8 45 52  45 20 49 53 20 54 48 45  |10);".ERE IS THE|
00000860: 20 43 4C 55 45 3A 22 3A  20 99 00 7E 10 0C 08 99  | CLUE:": ..~....|
00000870: 20 22 12 22 3B 44 24 28  4B 29 3B 22 92 22 00 84  | ".";D$(K);"."..|
00000880: 10 16 08 99 00 A1 10 20  08 85 20 22 D4 59 50 45  |....... .. ".YPE|
00000890: 20 49 4E 20 54 48 45 20  57 4F 52 44 20 22 3B 53  | IN THE WORD ";S|
000008A0: 24 00 B7 10 2A 08 8B 20  53 24 B2 57 24 28 4B 29  |$...*.. S$.W$(K)|
000008B0: 20 89 20 32 31 38 30 00  C9 10 34 08 8B 20 54 52  | . 2180...4.. TR|
000008C0: B1 31 20 89 20 32 31 33  30 00 F4 10 3E 08 99 20  |.1 . 2130...>.. |
000008D0: 22 CE 4F 2C 20 54 48 41  54 27 53 20 4E 4F 54 20  |".O, THAT'S NOT |
000008E0: 43 4F 52 52 45 43 54 2E  20 D4 52 59 20 41 47 41  |CORRECT. .RY AGA|
000008F0: 49 4E 2E 22 00 07 11 48  08 54 52 B2 54 52 AA 31  |IN."...H.TR.TR.1|
00000900: 3A 89 20 32 30 38 30 00  19 11 52 08 8B 20 54 52  |:. 2080...R.. TR|
00000910: B1 32 20 89 20 32 31 37  30 00 44 11 5C 08 99 20  |.2 . 2170.D.\.. |
00000920: 22 11 CF CB 2C 20 C8 45  52 45 20 41 52 45 20 54  |"..., .ERE ARE T|
00000930: 48 45 20 46 49 52 53 54  20 32 20 4C 45 54 54 45  |HE FIRST 2 LETTE|
00000940: 52 53 2E 22 00 57 11 61  08 99 20 22 D4 52 59 20  |RS.".W.a.. ".RY |
00000950: 41 47 41 49 4E 21 22 00  6A 11 66 08 99 20 CA 28  |AGAIN!".j.f.. .(|
00000960: 57 24 28 4B 29 2C 31 2C  32 29 00 7D 11 70 08 54  |W$(K),1,2).}.p.T|
00000970: 52 B2 54 52 AA 31 3A 89  20 32 30 38 30 00 AD 11  |R.TR.1:. 2080...|
00000980: 7A 08 99 20 22 CE 4F 2C  20 54 48 45 20 57 4F 52  |z.. ".O, THE WOR|
00000990: 44 20 57 41 53 20 22 3B  57 24 28 4B 29 3A 8D 20  |D WAS ";W$(K):. |
000009A0: 31 31 30 30 30 3A 20 89  20 32 31 39 30 00 D3 11  |11000: . 2190...|
000009B0: 84 08 99 20 22 C7 CF CF  C4 21 20 D4 48 41 54 27  |... "....! .HAT'|
000009C0: 53 20 43 4F 52 52 45 43  54 2E 22 3A 8D 20 31 31  |S CORRECT.":. 11|
000009D0: 30 30 30 00 E8 11 89 08  8B 20 54 52 B2 31 20 A7  |000...... TR.1 .|
000009E0: 20 45 52 28 4B 29 B2 30  00 EE 11 8E 08 82 00 F9  | ER(K).0........|
000009F0: 11 93 08 89 20 34 30 30  30 00 03 12 98 08 89 20  |.... 4000...... |
00000A00: 31 33 30 00 2D 12 B8 0B  99 20 22 93 11 11 11 C5  |130.-.... ".....|
00000A10: 4E 54 45 52 20 54 48 45  20 44 41 54 45 20 46 4F  |NTER THE DATE FO|
00000A20: 52 20 54 48 45 20 4C 45  53 53 4F 4E 22 00 33 12  |R THE LESSON".3.|
00000A30: C2 0B 99 00 53 12 CC 0B  85 20 22 C5 4E 54 45 52  |....S.... ".NTER|
00000A40: 20 4D 4F 4E 54 48 20 CE  D5 CD C2 C5 D2 20 3A 22  | MONTH ...... :"|
00000A50: 3B 4D 24 00 72 12 D6 0B  85 20 22 C5 4E 54 45 52  |;M$.r.... ".NTER|
00000A60: 20 44 41 59 20 CE D5 CD  C2 C5 D2 20 3A 22 3B 44  | DAY ...... :";D|
00000A70: 41 24 00 A6 12 E0 0B 9F  20 33 2C 38 2C 33 2C 22  |A$...... 3,8,3,"|
00000A80: 30 3A 53 50 45 4C 4C 31  2E 22 AA 4D 24 AA 22 2F  |0:SPELL1.".M$."/|
00000A90: 22 AA 44 41 24 AA 22 2C  53 2C 52 22 20 3A 20 8D  |".DA$.",S,R" : .|
00000AA0: 20 31 31 35 30 30 00 AE  12 E2 0B A0 20 33 00 D8  | 11500...... 3..|
00000AB0: 12 E4 0B 9F 20 33 2C 38  2C 33 2C 22 30 3A 53 50  |.... 3,8,3,"0:SP|
00000AC0: 45 4C 4C 31 2E 22 AA 4D  24 AA 22 2F 22 AA 44 41  |ELL1.".M$."/".DA|
00000AD0: 24 AA 22 2C 53 2C 52 22  00 E1 12 F4 0B 84 33 2C  |$.",S,R"......3,|
00000AE0: 4A 00 F0 12 FE 0B 4E 45  B2 30 3A 20 4E 57 B2 4A  |J.....NE.0: NW.J|
00000AF0: 00 FC 12 08 0C 81 20 4B  B2 30 A4 4A 00 15 13 12  |...... K.0.J....|
00000B00: 0C 84 33 2C 45 52 28 4B  29 2C 57 24 28 4B 29 2C  |..3,ER(K),W$(K),|
00000B10: 44 24 28 4B 29 00 2D 13  17 0C 8B 20 45 52 28 4B  |D$(K).-.... ER(K|
00000B20: 29 B2 4F 20 A7 20 4E 45  B2 4E 45 AA 31 00 33 13  |).O . NE.NE.1.3.|
00000B30: 1C 0C 82 00 3D 13 26 0C  A0 20 33 3A 99 00 51 13  |....=.&.. 3:..Q.|
00000B40: 30 0C 8B 20 4E 45 B2 4A  AA 31 20 89 20 33 32 30  |0.. NE.J.1 . 320|
00000B50: 30 00 93 13 3A 0C 99 20  22 CC 41 53 54 20 54 49  |0...:.. ".AST TI|
00000B60: 4D 45 20 59 4F 55 20 4D  49 53 53 45 44 20 22 3B  |ME YOU MISSED ";|
00000B70: 4A AA 31 AB 4E 45 3B 22  20 57 4F 52 44 53 20 49  |J.1.NE;" WORDS I|
00000B80: 4E 20 54 48 49 53 20 20  20 4C 45 53 53 4F 4E 2E  |N THIS   LESSON.|
00000B90: 20 22 3B 00 CB 13 44 0C  99 20 22 C8 45 52 45 20  | ";...D.. ".ERE |
00000BA0: 54 48 45 59 20 41 52 45  20 46 4F 52 20 59 4F 55  |THEY ARE FOR YOU|
00000BB0: 52 20 52 45 56 49 45 57  2E 22 3A 20 8D 20 31 31  |R REVIEW.": . 11|
00000BC0: 30 30 30 3A 20 89 20 31  30 30 30 00 D9 13 80 0C  |000: . 1000.....|
00000BD0: 81 20 4B B2 30 20 A4 20  4A 00 E8 13 8A 0C 45 52  |. K.0 . J.....ER|
00000BE0: 28 4B 29 B2 31 3A 20 82  00 1E 14 8F 0C 99 3A 20  |(K).1: .......: |
00000BF0: 99 20 22 D4 48 45 52 45  20 41 52 45 20 22 3B 4A  |. ".HERE ARE ";J|
00000C00: AA 31 3B 22 20 57 4F 52  44 53 20 49 4E 20 54 48  |.1;" WORDS IN TH|
00000C10: 49 53 20 4C 45 53 53 53  4F 4E 2E 22 3A 99 00 59  |IS LESSSON.":..Y|
00000C20: 14 94 0C 99 20 22 CC 41  53 54 20 54 49 4D 45 20  |.... ".AST TIME |
00000C30: 59 4F 55 20 47 4F 54 20  54 48 45 4D 20 41 4C 4C  |YOU GOT THEM ALL|
00000C40: 20 52 49 47 48 54 2E 22  3A 20 8D 20 31 31 30 30  | RIGHT.": . 1100|
00000C50: 30 3A 20 89 20 31 30 30  30 00 5F 14 9E 0F 8F 00  |0: . 1000._.....|
00000C60: 7B 14 9F 0F 8F 20 52 45  2D 57 52 49 54 45 20 46  |{.... RE-WRITE F|
00000C70: 49 4C 45 20 54 4F 20 44  49 53 4B 00 A6 14 A0 0F  |ILE TO DISK.....|
00000C80: 9F 20 33 2C 38 2C 33 2C  22 40 30 3A 53 50 45 4C  |. 3,8,3,"@0:SPEL|
00000C90: 4C 31 2E 22 AA 4D 24 AA  22 2F 22 AA 44 41 24 AA  |L1.".M$."/".DA$.|
00000CA0: 22 2C 53 2C 57 22 00 C4  14 A5 0F 99 3A 99 20 A6  |",S,W"......:. .|
00000CB0: 31 30 29 3B 22 12 D5 D0  C4 C1 D4 C9 CE C7 A0 C6  |10);"...........|
00000CC0: C9 CC C5 22 00 E0 14 AA  0F 98 33 2C 20 4E 57 20  |..."......3, NW |
00000CD0: 3A 20 43 52 24 B2 C7 28  31 33 29 3A 43 54 B2 30  |: CR$..(13):CT.0|
00000CE0: 00 EF 14 B4 0F 81 20 4B  B2 30 20 A4 20 4E 57 00  |...... K.0 . NW.|
00000CF0: 10 15 BE 0F 98 33 2C 45  52 28 4B 29 3B 43 52 24  |.....3,ER(K);CR$|
00000D00: 3B 57 24 28 4B 29 3B 43  52 24 3B 44 24 28 4B 29  |;W$(K);CR$;D$(K)|
00000D10: 00 28 15 C3 0F 8B 20 45  52 28 4B 29 B2 30 20 A7  |.(.... ER(K).0 .|
00000D20: 20 43 54 B2 43 54 AA 31  00 33 15 C8 0F 82 3A 20  | CT.CT.1.3....: |
00000D30: A0 20 33 00 61 15 CD 0F  99 3A 99 22 20 20 D9 4F  |. 3.a....:."  .O|
00000D40: 55 20 47 4F 54 22 3B 43  54 3B 22 4F 55 54 20 4F  |U GOT";CT;"OUT O|
00000D50: 46 22 3B 4E 57 AA 31 3B  22 43 4F 52 52 45 43 54  |F";NW.1;"CORRECT|
00000D60: 2E 00 6B 15 D2 0F 89 20  31 33 30 00 8A 15 F8 2A  |..k.... 130....*|
00000D70: 99 20 22 11 11 D0 52 45  53 53 20 46 37 20 54 4F  |. "...RESS F7 TO|
00000D80: 20 43 4F 4E 54 49 4E 55  45 22 00 A4 15 02 2B A1  | CONTINUE"....+.|
00000D90: 20 52 24 3A 20 8B 20 52  24 B2 22 22 20 89 20 31  | R$: . R$."" . 1|
00000DA0: 31 30 31 30 00 B8 15 0C  2B 8B 20 C6 28 52 24 29  |1010....+. .(R$)|
00000DB0: B2 31 33 36 20 A7 20 8E  00 C4 15 16 2B 89 20 31  |.136 . .....+. 1|
00000DC0: 31 30 31 30 00 CA 15 5A  2B 8F 00 D6 15 5C 2B 4C  |1010...Z+....\+L|
00000DD0: B2 C3 28 41 24 29 00 DE  15 66 2B 46 B2 30 00 EB  |..(A$)...f+F.0..|
00000DE0: 15 70 2B 81 20 4A 4A B2  31 A4 4C 00 FD 15 7A 2B  |.p+. JJ.1.L...z+|
00000DF0: 43 24 B2 CA 28 41 24 2C  4A 4A 2C 31 29 00 20 16  |C$..(A$,JJ,1). .|
00000E00: 84 2B 8B 20 C6 28 43 24  29 B3 34 38 20 B0 20 C6  |.+. .(C$).48 . .|
00000E10: 28 43 24 29 B1 35 37 20  A7 20 46 B2 31 3A 20 8E  |(C$).57 . F.1: .|
00000E20: 00 29 16 8E 2B 82 20 4A  4A 00 2F 16 98 2B 8E 00  |.)..+. JJ./..+..|
00000E30: 35 16 BE 2B 8F 00 64 16  C0 2B 99 20 22 93 11 11  |5..+..d..+. "...|
00000E40: 11 D4 59 50 45 20 49 4E  20 41 20 44 45 46 49 4E  |..YPE IN A DEFIN|
00000E50: 49 54 49 4F 4E 20 46 4F  52 20 54 48 49 53 20 57  |ITION FOR THIS W|
00000E60: 4F 52 44 22 00 71 16 CA  2B 85 20 20 44 24 28 4A  |ORD".q..+.  D$(J|
00000E70: 29 00 8C 16 D4 2B 99 20  22 11 11 C9 53 20 54 48  |)....+. "...S TH|
00000E80: 49 53 20 43 4F 52 52 45  43 54 3F 22 00 9B 16 DE  |IS CORRECT?"....|
00000E90: 2B 99 3A 20 99 20 44 24  28 4A 29 00 B2 16 E8 2B  |+.: . D$(J)....+|
00000EA0: 99 20 A6 31 30 29 3B 20  22 12 46 31 92 20 D9 C5  |. .10); ".F1. ..|
00000EB0: D3 22 00 C8 16 F2 2B 99  20 A6 31 30 29 3B 20 22  |."....+. .10); "|
00000EC0: 12 46 33 92 20 CE CF 22  00 E2 16 FC 2B A1 20 41  |.F3. .."....+. A|
00000ED0: 24 3A 20 8B 20 41 24 B2  22 22 20 89 20 31 31 32  |$: . A$."" . 112|
00000EE0: 36 30 00 F6 16 06 2C 8B  20 C6 28 41 24 29 B2 31  |60....,. .(A$).1|
00000EF0: 33 33 20 A7 20 8E 00 02  17 10 2C 89 20 31 31 32  |33 . .....,. 112|
00000F00: 30 30 00 10 17 EC 2C 9F  20 31 35 2C 38 2C 31 35  |00....,. 15,8,15|
00000F10: 00 23 17 F6 2C 84 31 35  2C 45 2C 42 24 2C 43 24  |.#..,.15,E,B$,C$|
00000F20: 2C 47 24 00 3A 17 00 2D  8B 20 45 B2 30 20 A7 20  |,G$.:..-. E.0 . |
00000F30: A0 20 33 3A A0 20 31 35  3A 8E 00 4D 17 0A 2D 99  |. 3:. 15:..M..-.|
00000F40: 3A 99 20 45 2C 42 24 2C  43 24 2C 47 24 00 56 17  |:. E,B$,C$,G$.V.|
00000F50: 0F 2D A0 20 31 35 00 5C  17 14 2D 90 00 00 00     |.-. 15.\..-.... |

..)....  THIS PROGRAM WILL READ AND WRIT
E.Q....  TO A DISK, SO YOU MUST MAKE SUR
E.T....  YOU KEEP ONE IN YOUR DRIVE.....
..  WHEN YOU TYPE IN A NEW LIST, IT.A...
.  IS WRITTEN TO THE DISK AS FILE...... 
"SPELL1.MM/DD", WHERE MM IS THE...... MO
NTH AND DD IS THE DAY........3....    TH
IS DISK CONTAINS ONE SAMPLE.[....  FILE 
OF THREE WORDS.  WHEN ASKED......  FOR T
HE MONTH TYPE IN "1"; FOR......  THE MON
TH TYPE IN "15".........P.. 53272,B(5327
2).2.W.Z.. W$(30),D$(30),ER(30)...D.. ".
.....WELCOME TO RICHIE'S SPELLMASTER-64"
.3.N.. "YOU MAY EITHER ENTER A NEW LIST 
OF".`.X.. "WORDS OR YOU MAY REVIEW AN OL
D LIST.".F.......... "SELECT YOUR CHOICE
.: "......... .. .10);".F1. REVIEW OLD L
ESSON".Q.... .10);".F3. ENTER NEW LESSON
"...... .10);".F7. QUIT"...... A$: . A$.
"" . 180...... F(A$).136 . ..+.... F(A$)
.133 . 3000.B.H.. F(A$)..134 . 180.H.,..
._.6..  ENTER NEW WORDS.G.@.J.0...^.. ".
...   ENTER WORD OR PRESS 'RETURN'"...H.
. "WORD NUMBER";J.1;:. W$(J).S.M.. C(W$(
J)).0 . J.J.1:. 460...R.. "....ENTER WOR
D AGAIN TO VERIFY"...|.. C$...... W$(J).
C$ . 450.A.... "YOU DIDN'T SPELL IT THE 
SAME WAY"._.... "BOTH TIMES. TRY AGAIN..
R.... 11000: . 350...B.. 11200:J.J.1: . 
350...L.. J..1 . 100...Q.. "....WHAT IS 
TODAY'S DATE?".D.V........ "MONTH (NUMBE
R PLEASE):";M$.....A$.M$: . 11100...... 
F.0 . 520.0.... "YOU MUST ENTER A NUMBER
": . 480.P...M.E(M$): . M.0 . M.13 . 540
...... "MONTH NUMBER MUST BE BETWEEN 1-1
2": . 480...... "DAY (NUMBER PLEASE) ";D
A$...&.A$.DA$: . 11100.F.0.. F.0 . 580..
.:.. "YOU MUST ENTER A NUMBER": . 540...
D.M.E(DA$): . M.0 . M.32 . 600.=.N.. "DA
Y NUMBER MUST BE BETWEEN 1-31": . 540.G.
X.. 3,8,3,"0:SPELL1.".M$."/".DA$.",S,W".
}.].NW.J  : CR$.G(13)...B..3,J...L.. JJ.
0.J...V..3,1;CR$;W$(JJ);CR$;D$(JJ)...{.E
R(JJ).1.E.....M...  3.S.....Y.......... 
.7);"....F1. GET CLUES".&.... .7);".F5. 
ENTER/RETRIEVE ANOTHER LESSON".<.... .7)
;".F7. QUIT".B.....Y.... A$:.A$."" . 103
0.P.... F(A$).133 . 2000...... F(A$).134
 . 2000...$.. F(A$).135 . 130...).. F(A$
).136 . ....... 1000.B.8.....B..  ROUTIN
E TO CONTINUE ACTION...N.....P.KK.0...Q.
. K.0.J...R.. ER(K).0 . 2190.&.Z.TR.1: K
K.KK.1.H.... ".     ...WORD NUMBER";KK:.
.J.... .10);"HERE IS THE CLUE:": ..~....
 ".";D$(K);"."......... .. "TYPE IN THE 
WORD ";S$...*.. S$.W$(K) . 2180.I.4.. TR
.1 . 2130...>.. "NO, THAT'S NOT CORRECT.
 TRY AGAIN."...H.TR.TR.1:. 2080...R.. TR
.2 . 2170.D.\.. ".OK, HERE ARE THE FIRST
 2 LETTERS.".W.A.. "TRY AGAIN!".J.F.. J(
W$(K),1,2).}.P.TR.TR.1:. 2080...Z.. "NO,
 THE WORD WAS ";W$(K):. 11000: . 2190.S.
... "GOOD! THAT'S CORRECT.":. 11000.....
. TR.1 . ER(K).0............ 4000...... 
130.-.... "....ENTER THE DATE FOR THE LE
SSON".3.B...S.L.. "ENTER MONTH NUMBER :"
;M$.R.V.. "ENTER DAY NUMBER :";DA$......
 3,8,3,"0:SPELL1.".M$."/".DA$.",S,R" : .
 11500.....  3.X.... 3,8,3,"0:SPELL1.".M
$."/".DA$.",S,R"......3,J.....NE.0: NW.J
...... K.0.J......3,ER(K),W$(K),D$(K).-.
... ER(K).O . NE.NE.1.3.....=.&.  3:..Q.
0.. NE.J.1 . 3200...:.. "LAST TIME YOU M
ISSED ";J.1.NE;" WORDS IN THIS   LESSON.
 ";.K.D.. "HERE THEY ARE FOR YOUR REVIEW
.": . 11000: . 1000.Y.... K.0 . J.....ER
(K).1: .......: . "THERE ARE ";J.1;" WOR
DS IN THIS LESSSON.":..Y.... "LAST TIME 
YOU GOT THEM ALL RIGHT.": . 11000: . 100
0._.....{.... RE-WRITE FILE TO DISK... .
. 3,8,3,"@0:SPELL1.".M$."/".DA$.",S,W".D
....:. .10);".UPDATING FILE"......3, NW 
: CR$.G(13):CT.0...... K.0 . NW......3,E
R(K);CR$;W$(K);CR$;D$(K).(.C.. ER(K).0 .
 CT.CT.1.3.H..:   3.A.M..:."  YOU GOT";C
T;"OUT OF";NW.1;"CORRECT..K.R.. 130....*
. "..PRESS F7 TO CONTINUE"....+. R$: . R
$."" . 11010....+. F(R$).136 . ..D..+. 1
1010.J.Z+..V.\+L.C(A$)...F+F.0...P+. JJ.
1.L...Z+C$.J(A$,JJ,1). ..+. F(C$).48 . F
(C$).57 . F.1: ..)..+. JJ./..+..5..+..D.
.+. "....TYPE IN A DEFINITION FOR THIS W
ORD".Q.J+.  D$(J)...T+. "..IS THIS CORRE
CT?"....+.: . D$(J)....+. .10); ".F1. YE
S".H..+. .10); ".F3. NO"....+. A$: . A$.
"" . 11260....,. F(A$).133 . .....,. 112
00....,. 15,8,15.#..,.15,E,B$,C$,G$.:..-
. E.0 .   3:  15:..M..-.:. E,B$,C$,G$.V.
.-  15.\..-....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL