LESSON3
FILE INFORMATION
FILENAME(S): LESSON3
FILE TYPE(S): PRG
FILE SIZE: 20.7K
FIRST SEEN: 2025-12-02 23:10:20
APPEARS ON: 1 disk(s)
FILE HASH
d1ccd673726df6243fdc3dfe6b5ffb5ae6d058bdf6a66b38b45cfaf806600039
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES XLIV | LESSON3 | PRG | swasti, chrisbitti1 | 22 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 09 00 8F 20 4C 45 53 53 4F 4E 20 33 |....... LESSON 3|
00000010: 3A 20 50 45 47 20 57 4F 52 44 53 00 4A 08 0F 00 |: PEG WORDS.J...|
00000020: 51 51 24 B2 22 12 20 49 4E 56 41 4C 49 44 20 45 |QQ$.". INVALID E|
00000030: 4E 54 52 59 21 20 50 4C 45 41 53 45 20 45 4E 54 |NTRY! PLEASE ENT|
00000040: 45 52 20 41 47 41 49 4E 2E 22 00 9A 08 14 00 56 |ER AGAIN.".....V|
00000050: 54 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |T$."............|
00000060: 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 4D 55 |............":MU|
00000070: B2 34 39 36 33 37 3A 45 52 B2 34 39 36 33 37 3A |.49637:ER.49637:|
00000080: 4E 4D B2 34 39 36 36 38 3A 44 45 B2 34 39 36 36 |NM.49668:DE.4966|
00000090: 37 3A 47 52 B2 34 39 31 35 32 00 C8 08 16 00 86 |7:GR.49152......|
000000A0: 42 45 46 24 28 36 30 29 2C 41 46 54 24 28 36 30 |BEF$(60),AFT$(60|
000000B0: 29 2C 54 4D 50 24 28 36 30 29 2C 48 46 25 28 39 |),TMP$(60),HF%(9|
000000C0: 29 2C 4C 46 25 28 39 29 00 D5 08 17 00 4C 44 B2 |),LF%(9).....LD.|
000000D0: 34 39 35 39 34 00 1D 09 19 00 45 4C 24 B2 22 20 |49594.....EL$." |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 20 22 3A 97 20 35 33 32 38 | ":. 5328|
00000110: 31 2C 30 3A 97 20 35 33 32 38 30 2C 30 00 2E 09 |1,0:. 53280,0...|
00000120: 1B 00 86 47 4D 24 28 39 29 3A 99 22 05 22 00 45 |...GM$(9):.".".E|
00000130: 09 20 00 86 4D 53 47 24 28 36 30 29 3A 9F 20 31 |. ..MSG$(60):. 1|
00000140: 2C 38 2C 31 35 00 5B 09 23 00 86 53 39 24 28 32 |,8,15.[.#..S9$(2|
00000150: 33 29 3A 5A 45 24 B2 C7 28 30 29 00 76 09 27 00 |3):ZE$..(0).v.'.|
00000160: 86 57 52 44 53 24 28 34 2C 34 37 29 2C 50 45 47 |.WRDS$(4,47),PEG|
00000170: 24 28 31 30 30 29 00 7F 09 3C 00 89 31 30 30 00 |$(100)...<..100.|
00000180: 97 09 46 00 81 58 58 B2 31 A4 31 30 3A A1 58 58 |..F..XX.1.10:.XX|
00000190: 24 3A 82 58 58 3A 8E 00 AD 09 47 00 81 58 58 B2 |$:.XX:....G..XX.|
000001A0: 31 A4 31 30 3A A1 58 58 24 3A 82 58 58 00 B9 09 |1.10:.XX$:.XX...|
000001B0: 48 00 97 20 32 30 34 2C 30 00 CB 09 49 00 A1 43 |H.. 204,0...I..C|
000001C0: 24 3A 8B 43 24 B2 22 22 A7 37 33 00 F3 09 4A 00 |$:.C$."".73...J.|
000001D0: 43 24 B2 C7 28 C6 28 43 24 AA 5A 45 24 29 AF 31 |C$..(.(C$.ZE$).1|
000001E0: 32 37 29 3A 8D 39 36 30 30 3A 97 20 32 30 34 2C |27):.9600:. 204,|
000001F0: 31 3A 8E 00 0F 0A 50 00 8F 20 53 50 45 43 49 41 |1:....P.. SPECIA|
00000200: 4C 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 |L INPUT ROUTINE.|
00000210: 3F 0A 51 00 4C 24 B2 22 22 3A 4C B2 39 3A 48 B2 |?.Q.L$."":L.9:H.|
00000220: C2 28 32 31 31 29 3A 56 B2 C2 28 32 31 34 29 AA |.(211):V..(214).|
00000230: 31 3A 43 58 B2 C6 28 43 24 29 3A 89 20 38 33 00 |1:CX..(C$):. 83.|
00000240: 72 0A 52 00 8D 37 32 3A 43 58 B2 C6 28 43 24 29 |r.R..72:CX..(C$)|
00000250: 3A 8B 43 58 B2 31 33 A7 99 C8 28 45 4C 24 2C 4C |:.CX.13...(EL$,L|
00000260: AB C3 28 4C 24 29 29 3A 97 32 31 31 2C 48 AB 31 |..(L$)):.211,H.1|
00000270: 3A 8E 00 82 0A 53 00 8B 43 58 B3 B1 32 30 20 A7 |:....S..CX..20 .|
00000280: 38 37 00 98 0A 54 00 52 24 B2 22 58 22 AA C9 28 |87...T.R$."X"..(|
00000290: 4C 24 2C 31 29 AA 52 24 00 BC 0A 55 00 8B 4C 24 |L$,1).R$...U..L$|
000002A0: B1 22 22 A7 48 B2 48 AB 31 3A 4C 24 B2 CA 28 4C |."".H.H.1:L$..(L|
000002B0: 24 2C 31 2C C3 28 4C 24 29 AB 31 29 00 E2 0A 57 |$,1,.(L$).1)...W|
000002C0: 00 8B 43 58 B2 32 39 20 AF 52 24 B1 22 22 A7 48 |..CX.29 .R$."".H|
000002D0: B2 48 AA 31 3A 4C 24 B2 4C 24 AA C8 28 52 24 2C |.H.1:L$.L$..(R$,|
000002E0: 31 29 00 FF 0A 58 00 8B 43 24 B3 22 20 22 A7 43 |1)...X..C$." ".C|
000002F0: 24 B2 22 22 3A 43 58 B2 30 3A 48 B2 48 AB 31 00 |$."":CX.0:H.H.1.|
00000300: 1D 0B 59 00 8B C3 28 4C 24 29 AA C3 28 43 24 29 |..Y...(L$)..(C$)|
00000310: B2 4C A7 99 C7 28 37 29 3B 3A 89 38 32 00 4B 0B |.L...(7);:.82.K.|
00000320: 5A 00 99 43 24 3B 3A 48 B2 48 AA 31 3A 56 54 25 |Z..C$;:H.H.1:VT%|
00000330: B2 56 3A 8D 33 32 31 30 30 3A 97 32 31 31 2C 48 |.V:.32100:.211,H|
00000340: 3A 8B 20 51 4E B2 31 20 A7 20 8E 00 67 0B 5B 00 |:. QN.1 . ..g.[.|
00000350: 4C 24 B2 4C 24 AA 43 24 3A 52 24 B2 CA 28 52 24 |L$.L$.C$:R$..(R$|
00000360: 2C 32 29 3A 89 38 32 00 8A 0B 64 00 8D 31 33 30 |,2):.82...d..130|
00000370: 30 30 3A 8D 31 30 30 30 30 3A 8F 20 49 4E 49 54 |00:.10000:. INIT|
00000380: 49 41 4C 49 5A 41 54 49 4F 4E 00 C8 0B 6E 00 50 |IALIZATION...n.P|
00000390: 47 4D 24 28 31 29 B2 22 49 4E 54 52 4F 44 55 43 |GM$(1)."INTRODUC|
000003A0: 54 49 4F 4E 20 54 4F 20 4C 45 53 53 4F 4E 20 23 |TION TO LESSON #|
000003B0: 33 22 3A 9E 45 52 3A 55 24 B2 22 22 3A 57 24 B2 |3":.ER:U$."":W$.|
000003C0: 22 22 3A 56 24 B2 22 22 00 ED 0B 78 00 50 47 4D |"":V$.""...x.PGM|
000003D0: 24 28 32 29 B2 22 52 45 56 49 45 57 20 53 54 41 |$(2)."REVIEW STA|
000003E0: 4E 44 41 52 44 20 53 4F 55 4E 44 53 22 00 14 0C |NDARD SOUNDS"...|
000003F0: 82 00 50 47 4D 24 28 33 29 B2 22 4C 45 41 52 4E |..PGM$(3)."LEARN|
00000400: 20 41 20 53 45 54 20 4F 46 20 50 45 47 20 57 4F | A SET OF PEG WO|
00000410: 52 44 53 22 00 41 0C 8C 00 50 47 4D 24 28 34 29 |RDS".A...PGM$(4)|
00000420: B2 22 54 52 41 4E 53 4C 41 54 45 20 50 45 47 20 |."TRANSLATE PEG |
00000430: 57 4F 52 44 53 20 54 4F 20 4E 55 4D 42 45 52 53 |WORDS TO NUMBERS|
00000440: 22 00 6E 0C 96 00 50 47 4D 24 28 35 29 B2 22 41 |".n...PGM$(5)."A|
00000450: 53 53 4F 43 49 41 54 45 20 49 54 45 4D 53 20 57 |SSOCIATE ITEMS W|
00000460: 49 54 48 20 50 45 47 20 57 4F 52 44 53 22 00 9A |ITH PEG WORDS"..|
00000470: 0C A0 00 50 47 4D 24 28 36 29 B2 22 4D 45 4D 4F |...PGM$(6)."MEMO|
00000480: 52 49 5A 45 20 4C 49 53 54 53 20 57 49 54 48 20 |RIZE LISTS WITH |
00000490: 50 45 47 20 57 4F 52 44 53 22 00 C2 0C AA 00 50 |PEG WORDS".....P|
000004A0: 47 4D 24 28 37 29 B2 22 41 44 56 41 4E 43 45 44 |GM$(7)."ADVANCED|
000004B0: 20 55 53 45 20 4F 46 20 50 45 47 20 57 4F 52 44 | USE OF PEG WORD|
000004C0: 53 22 00 F3 0C B4 00 50 47 4D 24 28 38 29 B2 22 |S".....PGM$(8)."|
000004D0: 52 45 54 55 52 4E 20 54 4F 20 4D 45 4D 4F 52 59 |RETURN TO MEMORY|
000004E0: 20 54 52 41 49 4E 45 52 20 4D 41 49 4E 20 4D 45 | TRAINER MAIN ME|
000004F0: 4E 55 22 00 0E 0D BE 00 50 47 4D 24 28 39 29 B2 |NU".....PGM$(9).|
00000500: 22 51 55 49 54 20 46 4F 52 20 4E 4F 57 22 00 28 |"QUIT FOR NOW".(|
00000510: 0D C8 00 41 59 B2 35 3A 4D 41 58 B2 39 3A 8D 38 |...AY.5:MAX.9:.8|
00000520: 30 30 30 3A 51 4E B2 30 00 56 0D D2 00 91 43 89 |000:QN.0.V....C.|
00000530: 32 32 30 2C 32 36 30 2C 33 36 30 2C 35 34 30 2C |220,260,360,540,|
00000540: 36 31 30 2C 38 32 30 2C 32 30 30 30 30 2C 37 31 |610,820,20000,71|
00000550: 30 30 2C 39 39 30 00 6B 0D DC 00 46 49 4C 45 24 |00,990.k...FILE$|
00000560: B2 22 50 31 22 3A 8D 37 35 30 30 00 7C 0D DD 00 |."P1":.7500.|...|
00000570: 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 91 0D E6 |. QN.1 . 110....|
00000580: 00 46 49 4C 45 24 B2 22 50 32 22 3A 8D 37 35 30 |.FILE$."P2":.750|
00000590: 30 00 A2 0D E7 00 8B 20 51 4E B2 31 20 A7 20 31 |0...... QN.1 . 1|
000005A0: 31 30 00 B7 0D F0 00 46 49 4C 45 24 B2 22 50 33 |10.....FILE$."P3|
000005B0: 22 3A 8D 37 35 30 30 00 C8 0D F1 00 8B 20 51 4E |":.7500...... QN|
000005C0: B2 31 20 A7 20 31 31 30 00 DD 0D FA 00 46 49 4C |.1 . 110.....FIL|
000005D0: 45 24 B2 22 50 34 22 3A 8D 37 35 30 30 00 EE 0D |E$."P4":.7500...|
000005E0: FB 00 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 0E |... QN.1 . 110..|
000005F0: 0E 04 01 81 49 B2 30 A4 39 3A 8F 20 44 49 53 50 |....I.0.9:. DISP|
00000600: 4C 41 59 20 50 45 47 20 53 4F 55 4E 44 53 00 44 |LAY PEG SOUNDS.D|
00000610: 0E 0E 01 9E 20 34 39 31 35 35 3A 99 22 93 22 3A |.... 49155:.".":|
00000620: 46 49 4C 45 24 B2 22 50 49 43 22 AA C9 28 C4 28 |FILE$."PIC"..(.(|
00000630: 49 29 2C 31 29 3A 99 C7 28 31 34 37 29 3B 3A 8D |I),1):..(147);:.|
00000640: 36 35 30 30 00 78 0E 18 01 8D 33 30 30 32 33 3A |6500.x....30023:|
00000650: 99 C7 28 31 38 29 3B 22 5E 22 3B C7 28 31 34 36 |..(18);"^";.(146|
00000660: 29 3B 22 20 50 52 45 56 49 4F 55 53 20 50 49 43 |);" PREVIOUS PIC|
00000670: 54 55 52 45 3B 20 22 3B 00 93 0E 19 01 99 22 3C |TURE; ";......"<|
00000680: 53 50 41 43 45 3E 20 54 4F 20 43 4F 4E 54 49 4E |SPACE> TO CONTIN|
00000690: 55 45 22 00 C6 0E 22 01 8D 33 30 30 32 34 3A 99 |UE"..."..30024:.|
000006A0: 22 50 52 45 53 53 20 3C 43 54 52 4C 2D 43 3E 20 |"PRESS <CTRL-C> |
000006B0: 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E |TO RETURN TO MEN|
000006C0: 55 2E 2E 2E 22 3B 00 DA 0E 23 01 81 58 58 B2 31 |U...";...#..XX.1|
000006D0: A4 31 30 3A A1 58 58 24 3A 82 00 E3 0E 2C 01 8D |.10:.XX$:....,..|
000006E0: 20 37 33 00 F4 0E 2D 01 8B 20 51 4E B2 31 20 A7 | 73...-.. QN.1 .|
000006F0: 20 31 31 30 00 15 0F 36 01 8B 28 43 24 B2 C7 28 | 110...6..(C$..(|
00000700: 39 34 29 29 AF 28 49 B1 30 29 A7 49 B2 49 AB 31 |94)).(I.0).I.I.1|
00000710: 3A 89 32 37 30 00 32 0F 40 01 8B 28 43 24 B2 C7 |:.270.2.@..(C$..|
00000720: 28 31 37 29 29 B0 28 43 24 B2 22 20 22 29 89 33 |(17)).(C$." ").3|
00000730: 34 30 00 3B 0F 4A 01 89 33 30 30 00 65 0F 54 01 |40.;.J..300.e.T.|
00000740: 82 49 3A 9E 20 34 39 31 35 35 3A 81 58 58 B2 31 |.I:. 49155:.XX.1|
00000750: A4 31 30 3A A1 58 58 24 3A 82 58 58 3A 99 C7 28 |.10:.XX$:.XX:..(|
00000760: 31 34 37 29 3B 00 7F 0F 5E 01 46 49 4C 45 24 B2 |147);...^.FILE$.|
00000770: 22 50 35 22 3A 8D 37 35 30 30 3A 89 31 31 30 00 |"P5":.7500:.110.|
00000780: 94 0F 68 01 46 49 4C 45 24 B2 22 50 36 22 3A 8D |..h.FILE$."P6":.|
00000790: 37 35 30 30 00 A5 0F 69 01 8B 20 51 4E B2 31 20 |7500...i.. QN.1 |
000007A0: A7 20 31 31 30 00 D3 0F 72 01 99 C7 28 31 34 37 |. 110...r...(147|
000007B0: 29 3B 3A 46 49 4C 45 24 B2 22 4D 45 4D 4F 52 49 |);:FILE$."MEMORI|
000007C0: 5A 45 20 54 48 45 53 45 20 50 45 47 20 57 4F 52 |ZE THESE PEG WOR|
000007D0: 44 53 22 00 EE 0F 73 01 99 C7 28 31 38 29 3B 3A |DS"...s...(18);:|
000007E0: 8D 32 39 39 30 3A 99 C7 28 31 34 36 29 3B 00 0B |.2990:..(146);..|
000007F0: 10 7C 01 81 49 B2 31 A4 31 30 3A 97 32 31 31 2C |.|..I.1.10:.211,|
00000800: 31 3A 56 54 25 B2 32 AC 49 AA 31 00 30 10 7D 01 |1:VT%.2.I.1.0.}.|
00000810: 8D 33 32 31 30 30 3A 99 22 28 22 3B 49 3B 22 29 |.32100:."(";I;")|
00000820: 22 3B A3 38 29 3B 50 45 47 24 28 49 29 3A 82 49 |";.8);PEG$(I):.I|
00000830: 00 54 10 86 01 81 49 B2 31 31 A4 32 30 3A 97 32 |.T....I.11.20:.2|
00000840: 31 31 2C 32 31 3A 56 54 25 B2 32 AC 28 49 AB 31 |11,21:VT%.2.(I.1|
00000850: 30 29 AA 31 00 7A 10 87 01 8D 33 32 31 30 30 3A |0).1.z....32100:|
00000860: 99 22 28 22 3B 49 3B 22 29 22 3B A3 32 38 29 3B |."(";I;")";.28);|
00000870: 50 45 47 24 28 49 29 3A 82 49 00 84 10 90 01 8D |PEG$(I):.I......|
00000880: 39 35 30 30 00 95 10 91 01 8B 20 51 4E B2 31 20 |9500...... QN.1 |
00000890: A7 20 31 31 30 00 C0 10 9A 01 99 C7 28 31 34 37 |. 110.......(147|
000008A0: 29 3B 3A 54 4D 41 58 B2 32 30 3A 58 4D 41 58 B2 |);:TMAX.20:XMAX.|
000008B0: 31 30 3A 58 4E 55 4D B2 31 30 3A 8D 31 35 30 30 |10:XNUM.10:.1500|
000008C0: 00 E5 10 A4 01 81 49 B2 31 A4 31 30 3A 52 44 52 |......I.1.10:RDR|
000008D0: 25 28 49 AA 31 30 29 B2 52 44 52 25 28 49 29 AA |%(I.10).RDR%(I).|
000008E0: 31 30 3A 82 49 00 0E 11 AE 01 81 49 B2 31 A4 54 |10:.I......I.1.T|
000008F0: 4D 41 58 3A 4D 53 47 24 28 49 29 B2 22 28 22 AA |MAX:MSG$(I)."(".|
00000900: C4 28 52 44 52 25 28 49 29 29 AA 22 29 22 00 36 |.(RDR%(I)).")".6|
00000910: 11 AF 01 42 45 46 24 28 49 29 B2 50 45 47 24 28 |...BEF$(I).PEG$(|
00000920: 52 44 52 25 28 49 29 29 3A 54 4D 50 24 28 49 29 |RDR%(I)):TMP$(I)|
00000930: B2 22 22 3A 82 49 00 43 11 B8 01 99 C7 28 31 34 |."":.I.C.....(14|
00000940: 37 29 3B 00 7B 11 B9 01 46 49 4C 45 24 B2 22 45 |7);.{...FILE$."E|
00000950: 4E 54 45 52 20 54 48 45 20 43 4F 52 52 45 53 50 |NTER THE CORRESP|
00000960: 4F 4E 44 49 4E 47 20 50 45 47 20 57 4F 52 44 22 |ONDING PEG WORD"|
00000970: 3A 41 4E 24 B2 22 2E 2E 2E 2E 22 00 AA 11 C2 01 |:AN$."....".....|
00000980: 4C 4F 57 B2 31 3A 48 49 47 48 B2 54 4D 41 58 3A |LOW.1:HIGH.TMAX:|
00000990: 4C 4D 41 52 47 49 4E B2 31 3A 41 59 B2 34 3A 43 |LMARGIN.1:AY.4:C|
000009A0: 4F 4C B2 32 3A 8D 32 30 30 30 00 BB 11 C3 01 8B |OL.2:.2000......|
000009B0: 20 51 4E B2 31 20 A7 20 31 31 30 00 D5 11 CC 01 | QN.1 . 110.....|
000009C0: 8D 39 30 30 30 3A 8F 20 42 55 42 42 4C 45 20 53 |.9000:. BUBBLE S|
000009D0: 4F 52 54 45 52 00 FB 11 D6 01 81 20 49 B2 31 20 |ORTER...... I.1 |
000009E0: A4 20 54 4D 41 58 3A 4D 53 47 24 28 49 29 B2 22 |. TMAX:MSG$(I)."|
000009F0: 28 22 AA C4 28 49 29 AA 22 29 22 00 12 12 D7 01 |("..(I).")".....|
00000A00: 42 45 46 24 28 49 29 B2 50 45 47 24 28 49 29 3A |BEF$(I).PEG$(I):|
00000A10: 82 49 00 36 12 E0 01 55 24 B2 22 40 22 3A 59 B2 |.I.6...U$."@":Y.|
00000A20: 32 3A 4D 44 B2 30 3A 41 58 B2 30 3A 4C 58 B2 31 |2:MD.0:AX.0:LX.1|
00000A30: 3A 4C 4F 57 B2 31 00 66 12 E1 01 8D 32 37 32 35 |:LOW.1.f....2725|
00000A40: 30 3A 8D 39 35 30 30 3A 8F 20 44 49 53 50 4C 41 |0:.9500:. DISPLA|
00000A50: 59 20 32 20 53 43 52 45 45 4E 53 20 4F 46 20 41 |Y 2 SCREENS OF A|
00000A60: 4E 53 57 45 52 53 00 77 12 E2 01 8B 20 51 4E B2 |NSWERS.w.... QN.|
00000A70: 31 20 A7 20 31 31 30 00 94 12 EA 01 8B 41 4E 53 |1 . 110......ANS|
00000A80: B1 30 2E 37 AC 54 4D 41 58 A7 50 4C 4D 41 58 B2 |.0.7.TMAX.PLMAX.|
00000A90: 54 4D 41 58 00 B0 12 F4 01 8D 33 37 30 30 3A 8F |TMAX......3700:.|
00000AA0: 20 57 49 4E 4E 45 52 53 20 4D 45 53 53 41 47 45 | WINNERS MESSAGE|
00000AB0: 00 C1 12 F5 01 8B 20 51 4E B2 31 20 A7 20 31 31 |...... QN.1 . 11|
00000AC0: 30 00 FA 12 FE 01 8B 28 43 24 B2 22 59 22 29 AF |0......(C$."Y").|
00000AD0: 28 41 4E 24 B2 22 40 22 29 89 35 34 30 3A 8F 20 |(AN$."@").540:. |
00000AE0: 54 52 41 4E 53 4C 41 54 45 20 57 4F 52 44 53 20 |TRANSLATE WORDS |
00000AF0: 54 4F 20 4E 55 4D 42 45 52 53 00 0A 13 08 02 8B |TO NUMBERS......|
00000B00: 43 24 B2 22 59 22 89 33 37 30 00 19 13 12 02 8D |C$."Y".370......|
00000B10: 33 38 30 30 3A 89 31 31 30 00 34 13 1C 02 8F 20 |3800:.110.4.... |
00000B20: 50 45 47 20 57 4F 52 44 53 20 54 4F 20 4E 55 4D |PEG WORDS TO NUM|
00000B30: 42 45 52 53 00 5A 13 26 02 54 4D 41 58 B2 32 30 |BERS.Z.&.TMAX.20|
00000B40: 3A 58 4D 41 58 B2 54 4D 41 58 3A 58 4E 55 4D B2 |:XMAX.TMAX:XNUM.|
00000B50: 54 4D 41 58 3A 8D 31 35 30 30 00 7E 13 30 02 81 |TMAX:.1500.~.0..|
00000B60: 49 B2 31 A4 54 4D 41 58 3A 4D 53 47 24 28 49 29 |I.1.TMAX:MSG$(I)|
00000B70: B2 50 45 47 24 28 52 44 52 25 28 49 29 29 00 A9 |.PEG$(RDR%(I))..|
00000B80: 13 31 02 41 24 B2 C4 28 52 44 52 25 28 49 29 29 |.1.A$..(RDR%(I))|
00000B90: 3A 42 45 46 24 28 49 29 B2 C9 28 41 24 2C C3 28 |:BEF$(I)..(A$,.(|
00000BA0: 41 24 29 AB 31 29 3A 82 49 00 E7 13 3A 02 99 C7 |A$).1):.I...:...|
00000BB0: 28 31 34 37 29 3B 3A 46 49 4C 45 24 B2 22 45 4E |(147);:FILE$."EN|
00000BC0: 54 45 52 20 54 48 45 20 43 4F 52 52 45 53 50 4F |TER THE CORRESPO|
00000BD0: 4E 44 49 4E 47 20 4E 55 4D 42 45 52 53 22 3A 41 |NDING NUMBERS":A|
00000BE0: 4E 24 B2 22 2E 2E 22 00 18 14 44 02 81 49 B2 31 |N$.".."...D..I.1|
00000BF0: A4 54 4D 41 58 3A 4D 53 47 24 28 49 29 B2 C8 28 |.TMAX:MSG$(I)..(|
00000C00: 4D 53 47 24 28 49 29 2C 36 29 3A 54 4D 50 24 28 |MSG$(I),6):TMP$(|
00000C10: 49 29 B2 22 22 3A 82 49 00 42 14 4E 02 4C 4F 57 |I)."":.I.B.N.LOW|
00000C20: B2 31 3A 48 49 47 48 B2 54 4D 41 58 3A 4C 4D 41 |.1:HIGH.TMAX:LMA|
00000C30: 52 47 49 4E B2 31 3A 43 4F 4C B2 32 3A 8D 32 30 |RGIN.1:COL.2:.20|
00000C40: 30 30 00 53 14 4F 02 8B 20 51 4E B2 31 20 A7 20 |00.S.O.. QN.1 . |
00000C50: 31 31 30 00 64 14 58 02 41 4E 24 B2 22 40 22 3A |110.d.X.AN$."@":|
00000C60: 89 34 38 30 00 89 14 62 02 8F 20 41 53 53 4F 43 |.480...b.. ASSOC|
00000C70: 49 41 54 45 20 49 54 45 4D 53 20 57 49 54 48 20 |IATE ITEMS WITH |
00000C80: 50 45 47 20 57 4F 52 44 53 00 9E 14 6C 02 46 49 |PEG WORDS...l.FI|
00000C90: 4C 45 24 B2 22 50 37 22 3A 8D 37 35 30 30 00 AF |LE$."P7":.7500..|
00000CA0: 14 6D 02 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |.m.. QN.1 . 110.|
00000CB0: C4 14 76 02 46 49 4C 45 24 B2 22 50 38 22 3A 8D |..v.FILE$."P8":.|
00000CC0: 37 35 30 30 00 D5 14 77 02 8B 20 51 4E B2 31 20 |7500...w.. QN.1 |
00000CD0: A7 20 31 31 30 00 EC 14 80 02 46 49 4C 45 24 B2 |. 110.....FILE$.|
00000CE0: 22 4B 4E 45 45 22 3A 8D 36 36 30 30 00 FD 14 81 |"KNEE":.6600....|
00000CF0: 02 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 12 15 |.. QN.1 . 110...|
00000D00: 8A 02 46 49 4C 45 24 B2 22 50 39 22 3A 8D 37 35 |..FILE$."P9":.75|
00000D10: 30 30 00 23 15 8B 02 8B 20 51 4E B2 31 20 A7 20 |00.#.... QN.1 . |
00000D20: 31 31 30 00 39 15 94 02 46 49 4C 45 24 B2 22 54 |110.9...FILE$."T|
00000D30: 49 45 22 3A 8D 36 36 30 30 00 4A 15 95 02 8B 20 |IE":.6600.J.... |
00000D40: 51 4E B2 31 20 A7 20 31 31 30 00 60 15 9E 02 46 |QN.1 . 110.`...F|
00000D50: 49 4C 45 24 B2 22 50 31 30 22 3A 8D 37 35 30 30 |ILE$."P10":.7500|
00000D60: 00 71 15 9F 02 8B 20 51 4E B2 31 20 A7 20 31 31 |.q.... QN.1 . 11|
00000D70: 30 00 87 15 A3 02 46 49 4C 45 24 B2 22 50 31 31 |0.....FILE$."P11|
00000D80: 22 3A 8D 37 35 30 30 00 98 15 A4 02 8B 20 51 4E |":.7500...... QN|
00000D90: B2 31 20 A7 20 31 31 30 00 BB 15 A8 02 54 59 50 |.1 . 110.....TYP|
00000DA0: 45 B2 30 3A 44 54 49 4D 45 B2 36 3A 4E 50 45 47 |E.0:DTIME.6:NPEG|
00000DB0: B2 31 30 3A 4B 4D 41 58 B2 31 30 00 ED 15 B2 02 |.10:KMAX.10.....|
00000DC0: 58 4D 41 58 B2 31 30 3A 58 4E 55 4D B2 34 38 3A |XMAX.10:XNUM.48:|
00000DD0: 8D 31 35 30 30 3A 8F 20 47 45 54 20 31 30 20 43 |.1500:. GET 10 C|
00000DE0: 4F 4E 43 52 45 54 45 20 57 4F 52 44 53 00 17 16 |ONCRETE WORDS...|
00000DF0: BC 02 81 49 B2 31 A4 31 30 3A 42 45 46 24 28 49 |...I.1.10:BEF$(I|
00000E00: 29 B2 57 52 44 53 24 28 30 2C 52 44 52 25 28 49 |).WRDS$(0,RDR%(I|
00000E10: 29 AB 31 29 3A 82 49 00 4C 16 C6 02 58 4D 41 58 |).1):.I.L...XMAX|
00000E20: B2 31 30 3A 58 4E 55 4D B2 31 30 3A 8D 31 35 30 |.10:XNUM.10:.150|
00000E30: 30 3A 8F 20 53 43 52 41 4D 42 4C 45 20 44 49 53 |0:. SCRAMBLE DIS|
00000E40: 50 4C 41 59 45 44 20 4F 52 44 45 52 00 73 16 D0 |PLAYED ORDER.s..|
00000E50: 02 8D 31 33 30 30 30 3A 99 C7 28 31 38 29 3B A6 |..13000:..(18);.|
00000E60: 34 29 3B 22 50 45 47 20 57 4F 52 44 22 3B A6 31 |4);"PEG WORD";.1|
00000E70: 31 29 3B 00 93 16 D1 02 99 22 49 54 45 4D 20 54 |1);......"ITEM T|
00000E80: 4F 20 4D 45 4D 4F 52 49 5A 45 20 22 3B C7 28 31 |O MEMORIZE ";.(1|
00000E90: 34 36 29 00 B7 16 DA 02 81 49 B2 31 A4 31 30 3A |46)......I.1.10:|
00000EA0: 97 32 31 31 2C 31 3A 56 54 25 B2 32 AC 49 AA 31 |.211,1:VT%.2.I.1|
00000EB0: 3A 8D 33 32 31 30 30 00 ED 16 DB 02 99 22 28 22 |:.32100......"("|
00000EC0: 3B 52 44 52 25 28 49 29 3B 22 29 20 22 3B A3 37 |;RDR%(I);") ";.7|
00000ED0: 29 3B 50 45 47 24 28 52 44 52 25 28 49 29 29 3B |);PEG$(RDR%(I));|
00000EE0: A3 31 35 29 3B 22 2D 2D 2D 2D 2D 22 3B 00 08 17 |.15);"-----";...|
00000EF0: DC 02 99 A3 32 34 29 3B 42 45 46 24 28 52 44 52 |....24);BEF$(RDR|
00000F00: 25 28 49 29 29 3A 82 49 00 39 17 E4 02 8D 33 30 |%(I)):.I.9....30|
00000F10: 30 32 34 3A 99 22 50 52 45 53 53 20 3C 53 50 41 |024:."PRESS <SPA|
00000F20: 43 45 20 42 41 52 3E 20 54 4F 20 42 45 20 54 45 |CE BAR> TO BE TE|
00000F30: 53 54 45 44 2E 2E 2E 22 3B 00 4F 17 E5 02 81 58 |STED...";.O....X|
00000F40: 58 B2 31 A4 31 30 3A A1 58 58 24 3A 82 58 58 00 |X.1.10:.XX$:.XX.|
00000F50: 66 17 EE 02 8D 39 35 32 30 3A 8B 20 51 4E B2 31 |f....9520:. QN.1|
00000F60: 20 A7 20 31 31 30 00 8E 17 F8 02 4C 4F 57 B2 31 | . 110.....LOW.1|
00000F70: 3A 48 49 47 48 B2 31 30 3A 4C 4D 41 52 47 49 4E |:HIGH.10:LMARGIN|
00000F80: B2 32 3A 41 59 B2 31 34 3A 43 4F 4C B2 31 00 C3 |.2:AY.14:COL.1..|
00000F90: 17 F9 02 46 49 4C 45 24 B2 22 45 4E 54 45 52 20 |...FILE$."ENTER |
00000FA0: 54 48 45 20 43 4F 52 52 45 53 50 4F 4E 44 49 4E |THE CORRESPONDIN|
00000FB0: 47 20 49 54 45 4D 53 22 3A 41 4E 24 B2 22 2E 2E |G ITEMS":AN$."..|
00000FC0: 2E 2E 22 00 F0 17 02 03 81 49 B2 31 A4 31 30 3A |.."......I.1.10:|
00000FD0: 4D 53 47 24 28 49 29 B2 22 28 22 AA C4 28 49 29 |MSG$(I)."("..(I)|
00000FE0: AA 22 29 20 22 AA 50 45 47 24 28 49 29 3A 82 49 |.") ".PEG$(I):.I|
00000FF0: 00 0D 18 0C 03 8D 32 30 30 30 3A 8D 33 33 30 30 |......2000:.3300|
00001000: 3A 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 37 18 |:. QN.1 . 110.7.|
00001010: 16 03 81 49 B2 31 A4 31 30 3A 4D 53 47 24 28 49 |...I.1.10:MSG$(I|
00001020: 29 B2 22 28 22 AA C4 28 49 29 AA 22 29 22 3A 82 |)."("..(I).")":.|
00001030: 49 3A 8D 33 30 30 30 00 55 18 20 03 54 4D 41 58 |I:.3000.U. .TMAX|
00001040: B2 31 30 3A 8D 33 37 30 30 3A 8B 43 24 B2 22 59 |.10:.3700:.C$."Y|
00001050: 22 89 36 39 30 00 66 18 21 03 8B 20 51 4E B2 31 |".690.f.!.. QN.1|
00001060: 20 A7 20 31 31 30 00 75 18 2A 03 8D 33 38 30 30 | . 110.u.*..3800|
00001070: 3A 89 31 31 30 00 99 18 34 03 8F 20 4D 45 4D 4F |:.110...4.. MEMO|
00001080: 52 49 5A 45 20 4C 49 53 54 53 20 57 49 54 48 20 |RIZE LISTS WITH |
00001090: 50 45 47 20 57 4F 52 44 53 00 AF 18 3E 03 46 49 |PEG WORDS...>.FI|
000010A0: 4C 45 24 B2 22 4C 31 33 22 3A 8D 37 35 30 30 00 |LE$."L13":.7500.|
000010B0: C0 18 3F 03 8B 20 51 4E B2 31 20 A7 20 31 31 30 |..?.. QN.1 . 110|
000010C0: 00 D6 18 43 03 46 49 4C 45 24 B2 22 4C 31 34 22 |...C.FILE$."L14"|
000010D0: 3A 8D 37 35 30 30 00 E7 18 44 03 8B 20 51 4E B2 |:.7500...D.. QN.|
000010E0: 31 20 A7 20 31 31 30 00 1A 19 48 03 4B 4D 41 58 |1 . 110...H.KMAX|
000010F0: B2 32 30 3A 57 24 B2 22 22 3A 8D 31 37 30 30 3A |.20:W$."":.1700:|
00001100: 8F 20 53 45 4C 45 43 54 20 4F 50 54 49 4F 4E 20 |. SELECT OPTION |
00001110: 50 41 52 41 4D 45 54 45 52 53 00 2B 19 49 03 8B |PARAMETERS.+.I..|
00001120: 20 51 4E B2 31 20 A7 20 31 31 30 00 4F 19 52 03 | QN.1 . 110.O.R.|
00001130: 55 24 B2 22 40 22 3A 4C 58 B2 31 3A 8D 32 37 30 |U$."@":LX.1:.270|
00001140: 35 30 3A 8D 32 37 33 33 30 3A 55 24 B2 22 22 00 |50:.27330:U$."".|
00001150: 60 19 53 03 8B 20 51 4E B2 31 20 A7 20 31 31 30 |`.S.. QN.1 . 110|
00001160: 00 69 19 5C 03 89 31 31 30 00 9F 19 DE 03 8D 31 |.i.\..110......1|
00001170: 33 30 30 30 3A 56 54 25 B2 38 3A 8D 33 32 31 30 |3000:VT%.8:.3210|
00001180: 30 3A 99 22 59 4F 55 20 48 41 56 45 20 4A 55 53 |0:."YOU HAVE JUS|
00001190: 54 20 45 58 49 54 45 44 22 3B C7 28 31 38 29 00 |T EXITED";.(18).|
000011A0: C0 19 DF 03 56 54 25 B2 31 30 3A 8D 33 32 31 30 |....VT%.10:.3210|
000011B0: 30 3A 99 45 24 3B C7 28 31 34 36 29 3B 22 2E 22 |0:.E$;.(146);"."|
000011C0: 00 EC 19 E0 03 56 54 25 B2 31 32 3A 8D 33 32 31 |.....VT%.12:.321|
000011D0: 30 30 3A 99 22 54 48 41 4E 4B 20 59 4F 55 20 46 |00:."THANK YOU F|
000011E0: 4F 52 20 50 4C 41 59 49 4E 47 21 22 00 00 1A E1 |OR PLAYING!"....|
000011F0: 03 56 54 25 B2 32 32 3A 8D 33 32 31 30 30 3A 80 |.VT%.22:.32100:.|
00001200: 00 13 1A E8 03 8F 20 57 4F 52 44 20 44 49 53 50 |...... WORD DISP|
00001210: 4C 41 59 00 4D 1A F2 03 99 C7 28 31 34 37 29 3B |LAY.M.....(147);|
00001220: 3A 56 54 25 B2 31 32 3A 8D 33 32 31 30 30 3A 46 |:VT%.12:.32100:F|
00001230: 49 4C 45 24 B2 22 47 45 54 20 52 45 41 44 59 20 |ILE$."GET READY |
00001240: 54 4F 20 42 45 20 54 45 53 54 45 44 22 00 57 1A |TO BE TESTED".W.|
00001250: F3 03 99 A3 39 29 3B 00 70 1A 06 04 58 4E 55 4D |....9);.p...XNUM|
00001260: B2 34 38 3A 58 4D 41 58 B2 58 3A 8D 31 35 30 30 |.48:XMAX.X:.1500|
00001270: 00 AE 1A 07 04 8F 20 42 45 20 43 41 52 45 46 55 |...... BE CAREFU|
00001280: 4C 3B 20 58 20 43 4F 55 4C 44 20 42 45 20 43 4F |L; X COULD BE CO|
00001290: 52 52 55 50 54 45 44 20 49 46 20 32 39 30 30 20 |RRUPTED IF 2900 |
000012A0: 49 53 20 43 41 4C 4C 45 44 20 31 53 54 21 00 D6 |IS CALLED 1ST!..|
000012B0: 1A 24 04 53 45 43 B2 34 3A 8D 33 32 30 30 30 3A |.$.SEC.4:.32000:|
000012C0: 99 C7 28 31 34 36 29 3B 3A 56 54 25 B2 31 32 3A |..(146);:VT%.12:|
000012D0: 8D 33 32 31 30 30 00 ED 1A 25 04 8D 33 32 32 30 |.32100...%..3220|
000012E0: 30 3A 53 45 43 B2 32 3A 8D 32 39 30 30 00 FC 1A |0:SEC.2:.2900...|
000012F0: 26 04 8B 20 51 4E B2 31 20 A7 20 8E 00 18 1B 2E |&.. QN.1 . .....|
00001300: 04 8F 20 44 49 53 50 4C 41 59 20 43 4F 4E 2F 41 |.. DISPLAY CON/A|
00001310: 42 53 20 57 4F 52 44 53 00 27 1B 38 04 81 49 B2 |BS WORDS.'.8..I.|
00001320: 4C 58 A4 54 4D 41 58 00 4E 1B 4C 04 42 45 46 24 |LX.TMAX.N.L.BEF$|
00001330: 28 49 29 B2 57 52 44 53 24 28 54 59 50 45 2C 52 |(I).WRDS$(TYPE,R|
00001340: 44 52 25 28 49 AB 4C 58 AA 31 29 AB 31 29 00 79 |DR%(I.LX.1).1).y|
00001350: 1B 60 04 56 54 25 B2 31 30 3A 8D 33 32 31 30 30 |.`.VT%.10:.32100|
00001360: 3A 97 32 31 31 2C 31 33 3A 99 C7 28 31 38 29 3B |:.211,13:..(18);|
00001370: C8 28 45 4C 24 2C 31 32 29 00 A9 1B 6A 04 56 54 |.(EL$,12)...j.VT|
00001380: 25 B2 31 34 3A 8D 33 32 31 30 30 3A 97 32 31 31 |%.14:.32100:.211|
00001390: 2C 31 33 3A 99 22 12 22 3B C8 28 45 4C 24 2C 31 |,13:.".";.(EL$,1|
000013A0: 32 29 3B C7 28 31 34 36 29 00 C6 1B 74 04 8D 33 |2);.(146)...t..3|
000013B0: 30 30 30 30 3A 56 54 25 B2 31 32 3A 8D 33 32 31 |0000:VT%.12:.321|
000013C0: 30 30 3A 9E 4D 55 00 EF 1B 75 04 99 A3 B5 28 28 |00:.MU...u....((|
000013D0: 34 30 AB C3 28 42 45 46 24 28 49 29 29 29 AD 32 |40..(BEF$(I))).2|
000013E0: 29 29 3B 42 45 46 24 28 49 29 3B A6 31 30 29 00 |));BEF$(I);.10).|
000013F0: 20 1C 7E 04 56 54 25 B2 31 32 3A 8D 33 32 31 30 | .~.VT%.12:.3210|
00001400: 30 3A 8D 33 30 30 30 30 3A 99 4D 53 47 24 28 49 |0:.30000:.MSG$(I|
00001410: 29 3A 8B 50 52 4F 4D 50 54 B2 31 89 31 31 37 30 |):.PROMPT.1.1170|
00001420: 00 46 1C 88 04 8D 33 30 30 32 33 3A 46 49 4C 45 |.F....30023:FILE|
00001430: 24 B2 54 4D 50 24 28 49 29 3A 8D 32 39 39 30 3A |$.TMP$(I):.2990:|
00001440: 8D 33 30 30 32 33 00 5E 1C 89 04 8D 33 30 30 30 |.30023.^....3000|
00001450: 30 3A 99 22 50 45 47 20 57 4F 52 44 3A 22 00 83 |0:."PEG WORD:"..|
00001460: 1C 92 04 53 45 43 B2 44 54 49 4D 45 3A 8F 20 55 |...SEC.DTIME:. U|
00001470: 53 45 52 20 53 45 4C 45 43 54 41 42 4C 45 20 54 |SER SELECTABLE T|
00001480: 49 4D 45 00 8D 1C 9C 04 8D 32 39 30 30 00 9C 1C |IME......2900...|
00001490: 9E 04 8B 20 51 4E B2 31 20 A7 20 8E 00 C5 1C A6 |... QN.1 . .....|
000014A0: 04 8F 20 42 4C 41 4E 4B 20 44 49 53 50 4C 41 59 |.. BLANK DISPLAY|
000014B0: 20 46 4F 52 20 30 2E 35 20 53 45 43 20 49 4E 54 | FOR 0.5 SEC INT|
000014C0: 45 52 56 41 4C 00 E5 1C B0 04 56 54 25 B2 31 32 |ERVAL.....VT%.12|
000014D0: 3A 8D 33 32 31 30 30 3A 8D 33 30 30 30 30 3A 8D |:.32100:.30000:.|
000014E0: 33 32 32 30 30 00 F7 1C BA 04 8D 33 30 30 32 33 |32200......30023|
000014F0: 3A 8D 33 32 32 30 30 00 07 1D C4 04 53 45 43 B2 |:.32200.....SEC.|
00001500: 31 3A 8D 32 39 30 30 00 16 1D C5 04 8B 20 51 4E |1:.2900...... QN|
00001510: B2 31 20 A7 20 8E 00 23 1D CE 04 8D 39 36 30 30 |.1 . ..#....9600|
00001520: 3A 82 49 00 29 1D D8 04 8E 00 45 1D DC 05 8F 20 |:.I.).....E.... |
00001530: 52 41 4E 44 4F 4D 20 4F 52 44 45 52 20 53 45 4C |RANDOM ORDER SEL|
00001540: 45 43 54 4F 52 00 70 1D E1 05 4C B2 31 3A 8B 56 |ECTOR.p...L.1:.V|
00001550: 24 B2 22 40 22 A7 4C B2 4C 58 3A 8F 20 53 50 45 |$."@".L.LX:. SPE|
00001560: 43 49 41 4C 20 46 4F 52 20 4C 45 53 53 4F 4E 33 |CIAL FOR LESSON3|
00001570: 00 88 1D E6 05 52 44 52 25 28 4C 29 B2 58 4E 55 |.....RDR%(L).XNU|
00001580: 4D AC BB 28 31 29 AA 4C 00 98 1D F0 05 81 49 B2 |M..(1).L......I.|
00001590: 4C AA 31 A4 58 4D 41 58 00 B0 1D FA 05 52 44 52 |L.1.XMAX.....RDR|
000015A0: 25 28 49 29 B2 58 4E 55 4D AC BB 28 31 29 AA 4C |%(I).XNUM..(1).L|
000015B0: 00 BD 1D 04 06 81 4A B2 4C A4 49 AB 31 00 EC 1D |......J.L.I.1...|
000015C0: 0E 06 8B 52 44 52 25 28 49 29 B2 52 44 52 25 28 |...RDR%(I).RDR%(|
000015D0: 4A 29 89 31 35 33 30 3A 8F 20 47 45 54 20 41 20 |J).1530:. GET A |
000015E0: 4E 45 57 20 52 41 4E 44 4F 4D 20 23 00 F6 1D 18 |NEW RANDOM #....|
000015F0: 06 82 4A 3A 82 49 00 FC 1D 3F 06 8E 00 17 1E A4 |..J:.I...?......|
00001600: 06 8F 20 4D 45 4D 4F 52 59 20 4F 50 54 49 4F 4E |.. MEMORY OPTION|
00001610: 20 53 45 4C 45 43 54 00 48 1E AE 06 99 C7 28 31 | SELECT.H.....(1|
00001620: 34 37 29 3B 3A 46 49 4C 45 24 B2 22 53 45 54 20 |47);:FILE$."SET |
00001630: 4D 45 4D 4F 52 59 20 50 52 41 43 54 49 43 45 20 |MEMORY PRACTICE |
00001640: 4F 50 54 49 4F 4E 53 22 00 63 1E AF 06 99 C7 28 |OPTIONS".c.....(|
00001650: 31 38 29 3B 3A 8D 32 39 39 30 3A 99 C7 28 31 34 |18);:.2990:..(14|
00001660: 36 29 3B 00 7B 1E B8 06 56 54 25 B2 34 3A 8D 33 |6);.{...VT%.4:.3|
00001670: 32 31 30 30 3A 8D 33 30 30 30 30 00 B6 1E B9 06 |2100:.30000.....|
00001680: 99 22 48 49 47 48 45 53 54 20 4E 55 4D 42 45 52 |."HIGHEST NUMBER|
00001690: 20 49 4E 20 4C 49 53 54 20 28 35 20 54 4F 20 22 | IN LIST (5 TO "|
000016A0: 3B 4B 4D 41 58 3B 22 9D 22 3B 22 29 2E 2E 2E 22 |;KMAX;".";")..."|
000016B0: 3B A3 33 37 29 3B 00 D4 1E C2 06 8D 38 30 3A 54 |;.37);......80:T|
000016C0: 4D 41 58 B2 C5 28 4C 24 29 3A 8B 20 51 4E B2 31 |MAX..(L$):. QN.1|
000016D0: 20 A7 20 8E 00 F2 1E CC 06 8B A8 28 54 4D 41 58 | . ........(TMAX|
000016E0: B1 4B 4D 41 58 B0 54 4D 41 58 B3 35 29 A7 31 37 |.KMAX.TMAX.5).17|
000016F0: 34 33 00 16 1F CD 06 97 20 32 31 31 2C 30 3A 56 |43...... 211,0:V|
00001700: 54 25 B2 35 3A 8D 33 32 31 30 30 3A 99 51 51 24 |T%.5:.32100:.QQ$|
00001710: 3A 89 31 37 32 30 00 3D 1F CF 06 8B 57 24 B3 B1 |:.1720.=....W$..|
00001720: 22 40 22 A7 99 22 13 11 11 11 11 22 3B C8 28 45 |"@"..".....";.(E|
00001730: 4C 24 2C 33 38 29 3B 3A 89 31 37 35 30 00 5A 1F |L$,38);:.1750.Z.|
00001740: D0 06 4C 59 B2 31 3A 8B 54 4D 41 58 B1 34 30 A7 |..LY.1:.TMAX.40.|
00001750: 4C 59 B2 54 4D 41 58 AB 33 39 00 68 1F D1 06 99 |LY.TMAX.39.h....|
00001760: 22 13 11 11 11 11 22 3B 00 A4 1F D2 06 99 22 20 |".....";......" |
00001770: 4C 4F 57 45 53 54 20 4E 55 4D 42 45 52 20 49 4E |LOWEST NUMBER IN|
00001780: 20 4C 49 53 54 20 28 22 3B 4C 59 3B 22 54 4F 22 | LIST (";LY;"TO"|
00001790: 3B 54 4D 41 58 AB 34 3B 22 29 2E 2E 2E 22 3B A3 |;TMAX.4;")...";.|
000017A0: 33 37 29 3B 00 CB 1F D3 06 8D 37 31 3A 8D 38 30 |37);......71:.80|
000017B0: 3A 4C 58 B2 C5 28 4C 24 29 3A 8D 33 30 30 30 30 |:LX..(L$):.30000|
000017C0: 3A 8B 20 51 4E B2 31 20 A7 20 8E 00 F0 1F D4 06 |:. QN.1 . ......|
000017D0: 8B 20 28 4C 58 B3 B2 54 4D 41 58 AB 34 29 20 AF |. (LX..TMAX.4) .|
000017E0: 20 28 4C 58 B1 B2 4C 59 29 20 A7 20 31 37 35 30 | (LX..LY) . 1750|
000017F0: 00 1B 20 D5 06 56 54 25 B2 36 3A 8D 33 32 31 30 |.. ..VT%.6:.3210|
00001800: 30 3A 97 20 32 31 31 2C 30 3A 99 51 51 24 3A 8D |0:. 211,0:.QQ$:.|
00001810: 33 32 32 30 30 3A 89 31 37 34 35 00 55 20 D6 06 |32200:.1745.U ..|
00001820: 97 20 32 31 31 2C 30 3A 56 54 25 B2 36 3A 8D 33 |. 211,0:VT%.6:.3|
00001830: 32 31 30 30 3A 99 22 48 45 4C 50 20 57 49 54 48 |2100:."HELP WITH|
00001840: 20 50 45 47 20 57 4F 52 44 53 2D 2D 22 3B 3A 8D | PEG WORDS--";:.|
00001850: 33 32 32 30 30 00 6D 20 D8 06 56 54 25 B2 38 3A |32200.m ..VT%.8:|
00001860: 8D 33 32 31 30 30 3A 97 32 31 31 2C 33 00 9C 20 |.32100:.211,3.. |
00001870: D9 06 99 22 49 4E 20 4D 45 4D 4F 52 49 5A 49 4E |..."IN MEMORIZIN|
00001880: 47 3A 20 28 59 29 45 53 20 4F 52 20 28 4E 29 4F |G: (Y)ES OR (N)O|
00001890: 2E 2E 2E 2E 2E 22 3B A3 33 38 29 3B 00 B3 20 DA |.....";.38);.. .|
000018A0: 06 8D 37 31 3A 99 43 24 3A 8B 20 51 4E B2 31 20 |..71:.C$:. QN.1 |
000018B0: A7 20 8E 00 CE 20 E0 06 8B 43 24 B2 22 59 22 A7 |. ... ...C$."Y".|
000018C0: 50 52 4F 4D 50 54 B2 30 3A 89 31 37 37 32 00 E9 |PROMPT.0:.1772..|
000018D0: 20 E5 06 8B 43 24 B2 22 4E 22 A7 50 52 4F 4D 50 | ...C$."N".PROMP|
000018E0: 54 B2 31 3A 89 31 37 37 32 00 F3 20 EA 06 89 31 |T.1:.1772.. ...1|
000018F0: 37 35 30 00 0C 21 EC 06 56 54 25 B2 31 30 3A 8D |750..!..VT%.10:.|
00001900: 33 32 31 30 30 3A 97 32 31 31 2C 33 00 3B 21 ED |32100:.211,3.;!.|
00001910: 06 99 22 49 4E 20 52 45 43 41 4C 4C 49 4E 47 3A |.."IN RECALLING:|
00001920: 20 20 28 59 29 45 53 20 4F 52 20 28 4E 29 4F 2E | (Y)ES OR (N)O.|
00001930: 2E 2E 2E 2E 22 3B A3 33 38 29 3B 00 52 21 EE 06 |....";.38);.R!..|
00001940: 8D 37 31 3A 99 43 24 3A 8B 20 51 4E B2 31 20 A7 |.71:.C$:. QN.1 .|
00001950: 20 8E 00 69 21 EF 06 8B 43 24 B2 22 59 22 A7 50 | ..i!...C$."Y".P|
00001960: 57 B2 30 3A 89 31 37 39 30 00 80 21 F0 06 8B 43 |W.0:.1790..!...C|
00001970: 24 B2 22 4E 22 A7 50 57 B2 31 3A 89 31 37 39 30 |$."N".PW.1:.1790|
00001980: 00 8A 21 F4 06 89 31 37 37 32 00 A3 21 FE 06 56 |..!...1772..!..V|
00001990: 54 25 B2 31 32 3A 8D 33 32 31 30 30 3A 8D 33 30 |T%.12:.32100:.30|
000019A0: 30 30 30 00 D5 21 FF 06 99 22 44 49 53 50 4C 41 |000..!..."DISPLA|
000019B0: 59 20 53 50 45 45 44 3A 20 28 31 29 53 4C 4F 57 |Y SPEED: (1)SLOW|
000019C0: 20 54 4F 20 28 34 29 46 41 53 54 2E 2E 2E 22 3B | TO (4)FAST...";|
000019D0: A3 33 38 29 3B 00 E9 21 00 07 8D 37 31 3A 99 43 |.38);..!...71:.C|
000019E0: 24 3A 58 B2 C5 28 43 24 29 00 F8 21 01 07 8B 20 |$:X..(C$)..!... |
000019F0: 51 4E B2 31 20 A7 20 8E 00 0E 22 08 07 8B 28 58 |QN.1 . ..."...(X|
00001A00: B1 34 29 B0 28 58 B2 30 29 89 31 37 39 30 00 1D |.4).(X.0).1790..|
00001A10: 22 12 07 44 54 49 4D 45 B2 32 30 AD 58 00 36 22 |"..DTIME.20.X.6"|
00001A20: 1C 07 56 54 25 B2 31 34 3A 8D 33 32 31 30 30 3A |..VT%.14:.32100:|
00001A30: 8D 33 30 30 30 30 00 68 22 1D 07 99 22 49 54 45 |.30000.h"..."ITE|
00001A40: 4D 20 44 49 46 46 49 43 55 4C 54 59 3A 20 28 31 |M DIFFICULTY: (1|
00001A50: 29 45 41 53 59 20 54 4F 20 28 35 29 48 41 52 44 |)EASY TO (5)HARD|
00001A60: 2E 22 3B A3 33 38 29 3B 00 74 22 1E 07 8D 37 31 |.";.38);.t"...71|
00001A70: 3A 99 43 24 00 83 22 1F 07 8B 20 51 4E B2 31 20 |:.C$.."... QN.1 |
00001A80: A7 20 8E 00 A6 22 26 07 54 59 50 45 B2 C5 28 43 |. ..."&.TYPE..(C|
00001A90: 24 29 3A 8B 54 59 50 45 B2 30 B0 54 59 50 45 B1 |$):.TYPE.0.TYPE.|
00001AA0: 35 89 31 38 32 30 00 D3 22 30 07 53 43 B2 31 30 |5.1820.."0.SC.10|
00001AB0: AC 28 32 AC 50 52 4F 4D 50 54 AA 50 57 AA 31 29 |.(2.PROMPT.PW.1)|
00001AC0: AC 58 AC 54 59 50 45 3A 54 59 50 45 B2 54 59 50 |.X.TYPE:TYPE.TYP|
00001AD0: 45 AB 31 00 0C 23 3A 07 56 54 25 B2 31 37 3A 8D |E.1..#:.VT%.17:.|
00001AE0: 33 32 31 30 30 3A 99 22 53 43 4F 52 45 20 46 4F |32100:."SCORE FO|
00001AF0: 52 20 45 41 43 48 20 43 4F 52 52 45 43 54 20 41 |R EACH CORRECT A|
00001B00: 4E 53 57 45 52 20 2E 2E 2E 2E 22 3B 00 2E 23 3B |NSWER ....";..#;|
00001B10: 07 99 A3 33 36 29 3B C7 28 31 38 29 3B 53 43 3B |...36);.(18);SC;|
00001B20: C7 28 31 34 36 29 3B 3A 8D 33 32 32 30 30 00 47 |.(146);:.32200.G|
00001B30: 23 44 07 56 54 25 B2 32 31 3A 8D 33 32 31 30 30 |#D.VT%.21:.32100|
00001B40: 3A 8D 33 30 30 30 30 00 7E 23 45 07 99 22 41 52 |:.30000.~#E.."AR|
00001B50: 45 20 54 48 45 53 45 20 54 48 45 20 4F 50 54 49 |E THESE THE OPTI|
00001B60: 4F 4E 53 20 59 4F 55 20 57 41 4E 54 3F 20 28 59 |ONS YOU WANT? (Y|
00001B70: 2F 4E 29 20 22 3B 3A 8D 37 31 3A 99 43 24 00 8D |/N) ";:.71:.C$..|
00001B80: 23 46 07 8B 20 51 4E B2 31 20 A7 20 8E 00 9E 23 |#F.. QN.1 . ...#|
00001B90: 4E 07 8B 43 24 B2 22 59 22 89 31 38 39 39 00 B0 |N..C$."Y".1899..|
00001BA0: 23 58 07 8B 43 24 B3 B1 22 4E 22 89 31 38 36 30 |#X..C$.."N".1860|
00001BB0: 00 BA 23 62 07 89 31 37 32 30 00 C0 23 6B 07 8E |..#b..1720..#k..|
00001BC0: 00 E0 23 D0 07 8F 20 55 4E 54 49 4D 45 44 20 4B |..#... UNTIMED K|
00001BD0: 45 59 42 4F 41 52 44 20 52 45 54 52 49 45 56 45 |EYBOARD RETRIEVE|
00001BE0: 00 06 24 DA 07 4B B2 4C 4F 57 3A 50 52 54 B2 31 |..$..K.LOW:PRT.1|
00001BF0: 3A 51 55 49 54 B2 30 3A 99 C7 28 31 34 37 29 3B |:QUIT.0:..(147);|
00001C00: 3A 43 24 B2 22 22 00 24 24 DB 07 81 49 B2 4C 4F |:C$."".$$...I.LO|
00001C10: 57 A4 48 49 47 48 3A 41 46 54 24 28 49 29 B2 22 |W.HIGH:AFT$(I)."|
00001C20: 22 3A 82 49 00 3F 24 E4 07 99 C7 28 31 38 29 3B |":.I.?$....(18);|
00001C30: 3A 8D 32 39 39 30 3A 99 C7 28 31 34 36 29 3B 00 |:.2990:..(146);.|
00001C40: 68 24 EE 07 44 46 52 B2 28 48 49 47 48 AB 4C 4F |h$..DFR.(HIGH.LO|
00001C50: 57 AA 31 29 AD 32 3A 8B 43 4F 4C B2 31 A7 44 46 |W.1).2:.COL.1.DF|
00001C60: 52 B2 48 49 47 48 AA 31 00 83 24 F8 07 4F 46 46 |R.HIGH.1..$..OFF|
00001C70: 53 45 54 B2 B5 28 28 48 49 47 48 AB 4C 4F 57 29 |SET..((HIGH.LOW)|
00001C80: AD 32 29 00 93 24 02 08 81 49 B2 4C 4F 57 A4 48 |.2)..$...I.LOW.H|
00001C90: 49 47 48 00 A2 24 0C 08 41 48 B2 4C 4D 41 52 47 |IGH..$..AH.LMARG|
00001CA0: 49 4E 00 C2 24 16 08 8B 28 49 AB 4C 4F 57 29 B1 |IN..$...(I.LOW).|
00001CB0: B2 44 46 52 A7 41 48 B2 4C 4D 41 52 47 49 4E AA |.DFR.AH.LMARGIN.|
00001CC0: 32 31 00 D5 24 20 08 41 56 B2 32 AC 28 49 AB 4C |21..$ .AV.2.(I.L|
00001CD0: 4F 57 29 AA 33 00 FD 24 21 08 8B 28 49 AB 4C 4F |OW).3..$!..(I.LO|
00001CE0: 57 29 B1 B2 44 46 52 A7 41 56 B2 32 AC 28 49 AB |W)..DFR.AV.2.(I.|
00001CF0: 4C 4F 57 AB 4F 46 46 53 45 54 29 AA 31 00 19 25 |LOW.OFFSET).1..%|
00001D00: 2A 08 56 54 25 B2 41 56 3A 8D 33 32 31 30 30 3A |*.VT%.AV:.32100:|
00001D10: 97 32 31 31 2C 41 48 AB 31 00 3C 25 2B 08 99 4D |.211,AH.1.<%+..M|
00001D20: 53 47 24 28 49 29 3B A3 41 48 AA 41 59 AA 34 29 |SG$(I);.AH.AY.4)|
00001D30: 3B 54 4D 50 24 28 49 29 3B 41 4E 24 00 43 25 34 |;TMP$(I);AN$.C%4|
00001D40: 08 82 49 00 78 25 3E 08 56 54 25 B2 32 32 3A 8D |..I.x%>.VT%.22:.|
00001D50: 33 32 31 30 30 3A 8D 33 30 30 30 30 3A 81 49 B2 |32100:.30000:.I.|
00001D60: 30 A4 36 3A 99 22 2D 2D 2D 2D 2D 22 3B 3A 82 49 |0.6:."-----";:.I|
00001D70: 3A 99 22 2D 2D 2D 2D 22 00 87 25 48 08 99 3A 8D |:."----"..%H..:.|
00001D80: 33 31 30 30 30 3A 99 00 B7 25 52 08 8D 33 30 30 |31000:...%R..300|
00001D90: 32 34 3A 99 22 50 52 45 53 53 20 3C 52 45 54 55 |24:."PRESS <RETU|
00001DA0: 52 4E 3E 20 41 46 54 45 52 20 45 41 43 48 20 45 |RN> AFTER EACH E|
00001DB0: 4E 54 52 59 2E 22 3B 00 C8 25 5C 08 8B 50 52 54 |NTRY.";..%\..PRT|
00001DC0: B2 31 A7 8D 32 34 30 30 00 DC 25 66 08 8D 37 30 |.1..2400..%f..70|
00001DD0: 3A 8D 37 33 3A 58 B2 C6 28 43 24 29 00 EB 25 67 |:.73:X..(C$)..%g|
00001DE0: 08 8B 20 51 4E B2 31 20 A7 20 8E 00 0E 26 70 08 |.. QN.1 . ...&p.|
00001DF0: 8B 43 24 B2 22 20 22 89 32 32 38 30 3A 8F 20 43 |.C$." ".2280:. C|
00001E00: 4F 4E 54 49 4E 55 45 20 54 49 4D 49 4E 47 00 2E |ONTINUE TIMING..|
00001E10: 26 7A 08 8B 28 58 B2 31 37 29 20 89 32 32 32 30 |&z..(X.17) .2220|
00001E20: 3A 8F 20 52 49 47 48 54 20 41 52 52 4F 57 00 52 |:. RIGHT ARROW.R|
00001E30: 26 84 08 8B 58 B2 34 32 A7 51 55 49 54 B2 31 3A |&...X.42.QUIT.1:|
00001E40: 89 32 32 32 30 3A 8F 20 45 53 43 41 50 45 20 4B |.2220:. ESCAPE K|
00001E50: 45 59 00 74 26 8E 08 8B 58 B2 31 33 20 89 32 32 |EY.t&...X.13 .22|
00001E60: 32 30 3A 8F 20 43 41 52 52 49 41 47 45 20 52 45 |20:. CARRIAGE RE|
00001E70: 54 55 52 4E 00 9F 26 98 08 8B 28 58 B2 39 34 29 |TURN..&...(X.94)|
00001E80: A7 8D 32 35 30 30 3A 89 32 32 34 30 3A 8F 20 42 |..2500:.2240:. B|
00001E90: 41 43 4B 20 4F 52 20 55 50 20 41 52 52 4F 57 00 |ACK OR UP ARROW.|
00001EA0: B2 26 A2 08 8D 38 30 3A 41 46 54 24 28 4B 29 B2 |.&...80:AFT$(K).|
00001EB0: 4C 24 00 C1 26 A3 08 8B 20 51 4E B2 31 20 A7 20 |L$..&... QN.1 . |
00001EC0: 8E 00 FD 26 AC 08 56 54 25 B2 41 56 3A 8D 33 32 |...&..VT%.AV:.32|
00001ED0: 31 30 30 3A 97 32 31 31 2C 41 48 AB 31 3A 99 4D |100:.211,AH.1:.M|
00001EE0: 53 47 24 28 4B 29 3B C8 28 45 4C 24 2C 41 48 AA |SG$(K);.(EL$,AH.|
00001EF0: 41 59 AA 34 AB C2 28 32 31 31 29 29 3B 00 2B 27 |AY.4..(211));.+'|
00001F00: AD 08 8B C8 28 42 45 46 24 28 4B 29 2C 33 29 B2 |....(BEF$(K),3).|
00001F10: C8 28 41 46 54 24 28 4B 29 2C 33 29 A7 99 42 45 |.(AFT$(K),3)..BE|
00001F20: 46 24 28 4B 29 3B 22 20 20 20 22 00 4D 27 B6 08 |F$(K);" ".M'..|
00001F30: 4B B2 4B AA 31 3A 8B 51 55 49 54 B2 31 A7 4B B2 |K.K.1:.QUIT.1.K.|
00001F40: 48 49 47 48 AA 31 3A 51 55 49 54 B2 30 00 57 27 |HIGH.1:QUIT.0.W'|
00001F50: C0 08 50 52 54 B2 31 00 60 27 CA 08 9E 20 4D 55 |..PRT.1.`'... MU|
00001F60: 00 85 27 D4 08 81 58 58 B2 31 A4 31 30 3A A1 58 |..'...XX.1.10:.X|
00001F70: 58 24 3A 82 58 58 3A 8F 20 52 45 53 45 54 20 53 |X$:.XX:. RESET S|
00001F80: 54 52 4F 42 45 00 97 27 DE 08 8B 4B B1 48 49 47 |TROBE..'...K.HIG|
00001F90: 48 A7 8D 32 33 31 30 00 A8 27 E8 08 8B 43 24 B2 |H..2310..'...C$.|
00001FA0: 22 59 22 89 32 33 30 30 00 C4 27 F2 08 89 32 31 |"Y".2300..'...21|
00001FB0: 34 30 3A 8F 20 42 41 43 4B 20 54 4F 20 54 48 45 |40:. BACK TO THE|
00001FC0: 20 54 4F 50 00 CA 27 FC 08 8E 00 E2 27 06 09 8F | TOP..'.....'...|
00001FD0: 20 41 4E 59 20 4D 4F 52 45 20 43 48 41 4E 47 45 | ANY MORE CHANGE|
00001FE0: 53 3F 00 ED 27 10 09 4B B2 48 49 47 48 00 1D 28 |S?..'..K.HIGH..(|
00001FF0: 1A 09 99 22 13 22 3A 97 20 32 31 34 2C 32 33 3A |...".":. 214,23:|
00002000: 99 22 91 22 3B C8 28 45 4C 24 2C 33 38 29 3A 8F |.".";.(EL$,38):.|
00002010: 20 43 4C 45 41 52 20 54 4F 20 45 4F 4C 00 35 28 | CLEAR TO EOL.5(|
00002020: 24 09 99 3A 8D 33 30 30 32 34 3A 8D 33 30 30 30 |$..:.30024:.3000|
00002030: 30 3A 9E 4D 55 00 64 28 25 09 99 22 41 52 45 20 |0:.MU.d(%.."ARE |
00002040: 59 4F 55 20 46 49 4E 49 53 48 45 44 20 4D 41 4B |YOU FINISHED MAK|
00002050: 49 4E 47 20 45 4E 54 52 49 45 53 3F 20 28 59 2F |ING ENTRIES? (Y/|
00002060: 4E 29 20 22 00 7B 28 2E 09 8D 33 30 30 32 34 3A |N) ".{(...30024:|
00002070: 97 32 31 31 2C 33 38 3A 8D 37 31 00 8A 28 2F 09 |.211,38:.71..(/.|
00002080: 8B 20 51 4E B2 31 20 A7 20 8E 00 C2 28 38 09 8B |. QN.1 . ...(8..|
00002090: 43 24 B2 22 59 22 89 32 33 39 30 3A 8F 20 52 45 |C$."Y".2390:. RE|
000020A0: 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 50 4F 52 |TURN TO MAIN POR|
000020B0: 54 49 4F 4E 20 4F 46 20 53 55 42 52 4F 55 54 49 |TION OF SUBROUTI|
000020C0: 4E 45 00 DC 28 3D 09 8B 43 24 B2 C7 28 31 37 29 |NE..(=..C$..(17)|
000020D0: A7 4B B2 4C 4F 57 3A 89 32 33 38 30 00 F6 28 42 |.K.LOW:.2380..(B|
000020E0: 09 8B 43 24 B2 22 4E 22 B0 43 24 B2 C7 28 39 34 |..C$."N".C$..(94|
000020F0: 29 89 32 33 38 30 00 00 29 47 09 89 32 33 35 30 |).2380..)G..2350|
00002100: 00 18 29 4C 09 99 22 13 22 3A 8D 33 31 30 30 30 |..)L..".":.31000|
00002110: 3A 97 20 32 31 31 2C 30 00 5C 29 51 09 99 22 13 |:. 211,0.\)Q..".|
00002120: 22 3A 97 20 32 31 34 2C 32 34 3A 99 22 91 22 3B |":. 214,24:.".";|
00002130: 3A 99 22 4D 41 4B 45 20 43 48 41 4E 47 45 53 20 |:."MAKE CHANGES |
00002140: 41 4E 44 20 52 45 54 55 52 4E 20 50 41 53 54 20 |AND RETURN PAST |
00002150: 4C 41 53 54 20 45 4E 54 52 59 22 3B 00 62 29 56 |LAST ENTRY";.b)V|
00002160: 09 8E 00 7C 29 60 09 8F 20 48 49 47 48 4C 49 47 |...|)`.. HIGHLIG|
00002170: 48 54 20 4E 45 58 54 20 4C 49 4E 45 00 8B 29 6A |HT NEXT LINE..)j|
00002180: 09 41 48 B2 4C 4D 41 52 47 49 4E 00 AB 29 74 09 |.AH.LMARGIN..)t.|
00002190: 8B 28 4B AB 4C 4F 57 29 B1 B2 44 46 52 A7 41 48 |.(K.LOW)..DFR.AH|
000021A0: B2 4C 4D 41 52 47 49 4E AA 32 31 00 BE 29 7E 09 |.LMARGIN.21..)~.|
000021B0: 41 56 B2 32 AC 28 4B AB 4C 4F 57 29 AA 33 00 E6 |AV.2.(K.LOW).3..|
000021C0: 29 7F 09 8B 28 4B AB 4C 4F 57 29 B1 B2 44 46 52 |)...(K.LOW)..DFR|
000021D0: A7 41 56 B2 32 AC 28 4B AB 4C 4F 57 AB 4F 46 46 |.AV.2.(K.LOW.OFF|
000021E0: 53 45 54 29 AA 31 00 19 2A 88 09 56 54 25 B2 41 |SET).1..*..VT%.A|
000021F0: 56 3A 8D 33 32 31 30 30 3A 97 32 31 31 2C 41 48 |V:.32100:.211,AH|
00002200: AB 31 3A 99 C7 28 31 38 29 3B 4D 53 47 24 28 4B |.1:..(18);MSG$(K|
00002210: 29 3B C7 28 31 34 36 29 3B 00 2E 2A 92 09 99 A3 |);.(146);..*....|
00002220: 41 48 AA 41 59 29 3B 22 2D 2D 3E 20 22 3B 00 3A |AH.AY);"--> ";.:|
00002230: 2A 9C 09 50 52 54 B2 30 3A 8E 00 52 2A C4 09 8F |*..PRT.0:..R*...|
00002240: 20 42 41 43 4B 53 50 41 43 45 20 48 41 4E 44 4C | BACKSPACE HANDL|
00002250: 45 52 00 8E 2A CE 09 56 54 25 B2 41 56 3A 8D 33 |ER..*..VT%.AV:.3|
00002260: 32 31 30 30 3A 97 32 31 31 2C 41 48 AB 31 3A 99 |2100:.211,AH.1:.|
00002270: 4D 53 47 24 28 4B 29 3B C8 28 45 4C 24 2C 41 48 |MSG$(K);.(EL$,AH|
00002280: AA 41 59 AA 34 AB C2 28 32 31 31 29 29 3B 00 98 |.AY.4..(211));..|
00002290: 2A D8 09 4B B2 4B AB 31 00 C4 2A E2 09 8B 4B B3 |*..K.K.1..*...K.|
000022A0: 4C 4F 57 A7 4B B2 4C 4F 57 3A 8F 20 50 52 45 56 |LOW.K.LOW:. PREV|
000022B0: 45 4E 54 20 4F 46 46 2D 53 43 52 45 45 4E 20 45 |ENT OFF-SCREEN E|
000022C0: 52 52 4F 52 00 CA 2A EC 09 8E 00 EE 2A 54 0B 53 |RROR..*.....*T.S|
000022D0: 45 43 B2 53 45 43 AA 28 32 AC 28 53 45 43 B2 30 |EC.SEC.(2.(SEC.0|
000022E0: 29 29 3A 81 58 B2 31 A4 53 45 43 AC 33 30 00 01 |)):.X.1.SEC.30..|
000022F0: 2B 55 0B A1 43 24 3A 8D 39 36 30 30 3A 82 58 3A |+U..C$:.9600:.X:|
00002300: 8E 00 16 2B AE 0B 8F 20 43 45 4E 54 45 52 20 4D |...+... CENTER M|
00002310: 45 53 53 41 47 45 00 3B 2B B3 0B 99 A3 B5 28 28 |ESSAGE.;+.....((|
00002320: 34 30 AB C3 28 46 49 4C 45 24 29 29 AD 32 29 29 |40..(FILE$)).2))|
00002330: 3B 46 49 4C 45 24 3B A3 34 30 29 00 48 2B B4 0B |;FILE$;.40).H+..|
00002340: 8D 33 30 30 30 30 3A 8E 00 5C 2B B8 0B 8F 20 52 |.30000:..\+... R|
00002350: 45 43 41 4C 4C 20 54 45 53 54 45 52 00 86 2B C2 |ECALL TESTER..+.|
00002360: 0B 41 4E 53 B2 30 3A 8F 20 5A 45 52 4F 20 54 48 |.ANS.0:. ZERO TH|
00002370: 45 20 23 20 4F 46 20 43 4F 52 52 45 43 54 20 41 |E # OF CORRECT A|
00002380: 4E 53 57 45 52 53 00 97 2B CC 0B 8D 31 33 30 30 |NSWERS..+...1300|
00002390: 30 3A 8D 33 33 30 30 00 C1 2B E0 0B 8F 20 44 49 |0:.3300..+... DI|
000023A0: 53 50 4C 41 59 20 43 4F 52 52 45 43 54 20 26 20 |SPLAY CORRECT & |
000023B0: 49 4E 43 4F 52 52 45 43 54 20 41 4E 53 57 45 52 |INCORRECT ANSWER|
000023C0: 53 00 E7 2B EA 0B 46 49 4C 45 24 B2 22 59 4F 55 |S..+..FILE$."YOU|
000023D0: 52 20 54 45 53 54 20 52 45 53 55 4C 54 53 22 3A |R TEST RESULTS":|
000023E0: 99 C7 28 31 38 29 3B 00 FA 2B EB 0B 8D 32 39 39 |..(18);..+...299|
000023F0: 30 3A 99 C7 28 31 34 36 29 3B 00 29 2C F4 0B 56 |0:..(146);.),..V|
00002400: 54 25 B2 33 3A 8D 33 32 31 30 30 3A 97 32 31 31 |T%.3:.32100:.211|
00002410: 2C 35 3A 99 22 43 4F 52 52 45 43 54 22 3B A6 31 |,5:."CORRECT";.1|
00002420: 34 29 3B 22 59 4F 55 52 22 00 5A 2C FE 0B 56 54 |4);"YOUR".Z,..VT|
00002430: 25 B2 34 3A 8D 33 32 31 30 30 3A 99 A3 35 29 3B |%.4:.32100:..5);|
00002440: 22 52 45 53 50 4F 4E 53 45 22 3B A3 32 34 29 3B |"RESPONSE";.24);|
00002450: 22 52 45 53 50 4F 4E 53 45 22 00 74 2C 08 0C 81 |"RESPONSE".t,...|
00002460: 49 B2 30 A4 37 3A 99 22 2D 2D 2D 2D 2D 22 3B 3A |I.0.7:."-----";:|
00002470: 82 49 3A 99 00 84 2C 12 0C 81 49 B2 4C 4F 57 A4 |.I:...,...I.LOW.|
00002480: 48 49 47 48 00 BE 2C 1C 0C 8B 42 45 46 24 28 49 |HIGH..,...BEF$(I|
00002490: 29 B2 22 22 A7 42 45 46 24 28 49 29 B2 22 20 22 |)."".BEF$(I)." "|
000024A0: 3A 8F 20 53 4B 49 50 20 54 48 49 53 20 4F 4E 45 |:. SKIP THIS ONE|
000024B0: 20 49 46 20 49 54 27 53 20 42 4C 41 4E 4B 00 D0 | IF IT'S BLANK..|
000024C0: 2C 26 0C 99 4D 53 47 24 28 49 29 3B A3 38 29 3B |,&..MSG$(I);.8);|
000024D0: 00 F5 2C 30 0C 8B C8 28 42 45 46 24 28 49 29 2C |..,0...(BEF$(I),|
000024E0: 33 29 B3 B1 C8 28 41 46 54 24 28 49 29 2C 33 29 |3)...(AFT$(I),3)|
000024F0: A7 33 31 33 30 00 23 2D 31 0C 99 C8 28 42 45 46 |.3130.#-1...(BEF|
00002500: 24 28 49 29 2C 31 38 29 3B 3A 41 4E 53 B2 41 4E |$(I),18);:ANS.AN|
00002510: 53 AA 31 3A 41 46 54 24 28 49 29 B2 42 45 46 24 |S.1:AFT$(I).BEF$|
00002520: 28 49 29 00 56 2D 3A 0C 8B 42 45 46 24 28 49 29 |(I).V-:..BEF$(I)|
00002530: B3 B1 41 46 54 24 28 49 29 A7 99 C7 28 31 38 29 |..AFT$(I)...(18)|
00002540: 3B C8 28 42 45 46 24 28 49 29 2C 31 38 29 3B C7 |;.(BEF$(I),18);.|
00002550: 28 31 34 36 29 3B 00 71 2D 44 0C 97 32 31 31 2C |(146);.q-D..211,|
00002560: 32 33 3A 99 C8 28 41 46 54 24 28 49 29 2C 31 36 |23:..(AFT$(I),16|
00002570: 29 00 78 2D 4E 0C 82 49 00 9A 2D 58 0C 58 B2 B5 |).x-N..I..-X.X..|
00002580: 28 31 30 30 AC 41 4E 53 AD 28 48 49 47 48 AB 4C |(100.ANS.(HIGH.L|
00002590: 4F 57 AA 31 29 AA 30 2E 35 29 00 C5 2D 62 0C 99 |OW.1).0.5)..-b..|
000025A0: 3A 99 22 59 4F 55 20 52 45 4D 45 4D 42 45 52 45 |:."YOU REMEMBERE|
000025B0: 44 20 22 3B C7 28 31 38 29 3B 41 4E 53 3B C7 28 |D ";.(18);ANS;.(|
000025C0: 31 34 36 29 3B 00 F3 2D 63 0C 99 22 20 43 4F 52 |146);..-c.." COR|
000025D0: 52 45 43 54 4C 59 2C 20 4F 52 20 22 3B C7 28 31 |RECTLY, OR ";.(1|
000025E0: 38 29 3B 58 3B 22 9D 22 3B 22 25 22 C7 28 31 34 |8);X;".";"%".(14|
000025F0: 36 29 3B 00 FF 2D 6C 0C 8D 39 35 30 30 3A 8E 00 |6);..-l..9500:..|
00002600: 24 2E E4 0C 8F 20 52 45 4D 4F 56 45 20 54 52 41 |$.... REMOVE TRA|
00002610: 49 4C 49 4E 47 20 42 4C 41 4E 4B 53 20 49 4E 20 |ILING BLANKS IN |
00002620: 41 46 54 24 00 34 2E EE 0C 81 49 B2 4C 4F 57 A4 |AFT$.4....I.LOW.|
00002630: 48 49 47 48 00 51 2E F8 0C 58 B2 C3 28 41 46 54 |HIGH.Q...X..(AFT|
00002640: 24 28 49 29 29 AB 31 3A 8B 58 B2 30 89 33 33 35 |$(I)).1:.X.0.335|
00002650: 30 00 82 2E 02 0D 8B C9 28 41 46 54 24 28 49 29 |0.......(AFT$(I)|
00002660: 2C 31 29 B2 22 20 22 A7 41 46 54 24 28 49 29 B2 |,1)." ".AFT$(I).|
00002670: C8 28 41 46 54 24 28 49 29 2C 58 29 3A 89 33 33 |.(AFT$(I),X):.33|
00002680: 32 30 00 B3 2E 0C 0D 8B C8 28 41 46 54 24 28 49 |20.......(AFT$(I|
00002690: 29 2C 31 29 B2 22 20 22 A7 41 46 54 24 28 49 29 |),1)." ".AFT$(I)|
000026A0: B2 C9 28 41 46 54 24 28 49 29 2C 58 29 3A 89 33 |..(AFT$(I),X):.3|
000026B0: 33 32 30 00 BC 2E 16 0D 82 49 3A 8E 00 D4 2E 74 |320......I:....t|
000026C0: 0E 8F 20 57 49 4E 4E 45 52 27 53 20 4D 45 53 53 |.. WINNER'S MESS|
000026D0: 41 47 45 53 00 EB 2E 7E 0E 8B 41 4E 53 B3 30 2E |AGES...~..ANS.0.|
000026E0: 37 AC 54 4D 41 58 89 33 37 39 30 00 21 2F 88 0E |7.TMAX.3790.!/..|
000026F0: 99 C7 28 31 34 37 29 3B 3A 56 54 25 B2 39 3A 8D |..(147);:VT%.9:.|
00002700: 33 32 31 30 30 3A 46 49 4C 45 24 B2 22 2D 2D 43 |32100:FILE$."--C|
00002710: 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 2D 2D |ONGRATULATIONS--|
00002720: 22 00 48 2F 89 0E 8D 32 39 39 30 3A 99 3A 99 3A |".H/...2990:.:.:|
00002730: 46 49 4C 45 24 B2 22 59 4F 55 52 20 4D 45 4D 4F |FILE$."YOUR MEMO|
00002740: 52 59 20 57 41 53 20 22 00 74 2F 92 0E 8B 41 4E |RY WAS ".t/...AN|
00002750: 53 B2 54 4D 41 58 A7 46 49 4C 45 24 B2 46 49 4C |S.TMAX.FILE$.FIL|
00002760: 45 24 AA 22 50 45 52 46 45 43 54 21 21 22 3A 89 |E$."PERFECT!!":.|
00002770: 33 37 36 30 00 A6 2F 9C 0E 8B 41 4E 53 B1 B2 30 |3760../...ANS..0|
00002780: 2E 39 AC 54 4D 41 58 A7 46 49 4C 45 24 B2 46 49 |.9.TMAX.FILE$.FI|
00002790: 4C 45 24 AA 22 45 58 43 45 4C 4C 45 4E 54 21 22 |LE$."EXCELLENT!"|
000027A0: 3A 89 33 37 36 30 00 D8 2F A6 0E 8B 41 4E 53 B1 |:.3760../...ANS.|
000027B0: B2 30 2E 38 AC 54 4D 41 58 A7 46 49 4C 45 24 B2 |.0.8.TMAX.FILE$.|
000027C0: 46 49 4C 45 24 AA 22 56 45 52 59 20 47 4F 4F 44 |FILE$."VERY GOOD|
000027D0: 21 22 3A 89 33 37 36 30 00 0B 30 AB 0E 8B 41 4E |!":.3760..0...AN|
000027E0: 53 B1 B2 30 2E 37 AC 54 4D 41 58 A7 46 49 4C 45 |S..0.7.TMAX.FILE|
000027F0: 24 B2 46 49 4C 45 24 AA 22 47 4F 4F 44 2E 20 4B |$.FILE$."GOOD. K|
00002800: 45 45 50 20 49 54 20 55 50 21 22 00 39 30 B0 0E |EEP IT UP!".90..|
00002810: 8D 32 39 39 30 3A 46 49 4C 45 24 B2 22 38 37 38 |.2990:FILE$."878|
00002820: 36 38 37 38 35 38 37 38 34 38 37 38 33 35 36 35 |6878587848783565|
00002830: 34 22 3A 8D 31 36 30 30 30 00 63 30 B1 0E 46 49 |4":.16000.c0..FI|
00002840: 4C 45 24 B2 22 35 36 35 33 35 36 35 32 39 33 39 |LE$."56535652939|
00002850: 34 39 35 39 36 39 37 39 39 38 31 22 3A 8D 31 36 |49596979981":.16|
00002860: 30 30 30 00 6D 30 BA 0E 8D 39 35 30 30 00 7C 30 |000.m0...9500.|0|
00002870: BB 0E 8B 20 51 4E B2 31 20 A7 20 8E 00 97 30 CE |... QN.1 . ...0.|
00002880: 0E 99 C7 28 31 34 37 29 3B 3A 56 54 25 B2 31 32 |...(147);:VT%.12|
00002890: 3A 8D 33 32 31 30 30 00 C6 30 CF 0E 99 22 44 4F |:.32100..0..."DO|
000028A0: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 42 45 20 | YOU WANT TO BE |
000028B0: 54 45 53 54 45 44 20 41 47 41 49 4E 3F 20 28 59 |TESTED AGAIN? (Y|
000028C0: 2F 4E 29 20 22 3B 00 E3 30 D3 0E 8D 37 31 3A 8B |/N) ";..0...71:.|
000028D0: 28 43 24 B2 22 59 22 29 B0 28 43 24 B2 22 4E 22 |(C$."Y").(C$."N"|
000028E0: 29 A7 8E 00 F2 30 D4 0E 8B 20 51 4E B2 31 20 A7 |)....0... QN.1 .|
000028F0: 20 8E 00 FC 30 D7 0E 89 33 37 39 35 00 12 31 D8 | ...0...3795..1.|
00002900: 0E 8F 20 4C 4F 53 45 52 27 53 20 4D 45 53 53 41 |.. LOSER'S MESSA|
00002910: 47 45 00 27 31 E2 0E 8B 41 4E 53 B1 B2 30 2E 37 |GE.'1...ANS..0.7|
00002920: AC 54 4D 41 58 A7 8E 00 41 31 00 0F 46 49 4C 45 |.TMAX...A1..FILE|
00002930: 24 B2 22 46 41 49 4C 55 52 45 22 3A 8D 37 35 30 |$."FAILURE":.750|
00002940: 30 00 47 31 0A 0F 8E 00 5D 31 64 19 8F 20 48 49 |0.G1....]1d.. HI|
00002950: 52 45 53 20 44 49 53 50 4C 41 59 45 52 00 83 31 |RES DISPLAYER..1|
00002960: 6E 19 99 C7 28 31 34 37 29 3B 3A 8D 20 36 35 35 |n...(147);:. 655|
00002970: 30 3A 9E 20 34 39 31 35 38 3A 9E 20 34 39 31 35 |0:. 49158:. 4915|
00002980: 32 3A 8E 00 A1 31 78 19 8F 20 43 41 4C 4C 20 48 |2:...1x.. CALL H|
00002990: 49 52 45 53 20 4C 4F 41 44 20 52 4F 55 54 49 4E |IRES LOAD ROUTIN|
000029A0: 45 00 B4 31 96 19 8F 20 4C 4F 41 44 20 52 4F 55 |E..1... LOAD ROU|
000029B0: 54 49 4E 45 00 CE 31 A0 19 4C 53 B2 4C 44 AA 33 |TINE..1..LS.LD.3|
000029C0: 3A 97 20 4C 53 2C C3 28 46 49 4C 45 24 29 00 FE |:. LS,.(FILE$)..|
000029D0: 31 AA 19 81 20 54 B2 31 20 A4 20 C3 28 46 49 4C |1... T.1 . .(FIL|
000029E0: 45 24 29 3A 97 20 4C 53 AA 54 2C C6 28 CA 28 46 |E$):. LS.T,.(.(F|
000029F0: 49 4C 45 24 2C 54 2C 31 29 29 3A 82 20 54 00 20 |ILE$,T,1)):. T. |
00002A00: 32 B4 19 9E 20 4C 44 3A A0 20 34 3A 8B 20 28 53 |2... LD:. 4:. (S|
00002A10: 54 20 AF 20 31 39 31 29 20 A7 20 31 37 30 30 30 |T . 191) . 17000|
00002A20: 00 26 32 BE 19 8E 00 3C 32 C8 19 8F 20 50 49 43 |.&2....<2... PIC|
00002A30: 54 55 52 45 20 44 49 53 50 4C 41 59 00 54 32 D2 |TURE DISPLAY.T2.|
00002A40: 19 8D 36 35 30 30 3A 8D 39 35 30 30 3A 9E 20 34 |..6500:.9500:. 4|
00002A50: 39 31 35 35 00 63 32 DC 19 99 C7 28 31 34 37 29 |9155.c2....(147)|
00002A60: 3B 3A 8E 00 7F 32 58 1B 8F 20 50 45 52 53 4F 4E |;:...2X.. PERSON|
00002A70: 41 4C 20 44 49 53 4B 20 53 45 43 54 49 4F 4E 00 |AL DISK SECTION.|
00002A80: AB 32 62 1B 8B 44 53 4B 24 B3 B1 22 59 22 A7 8E |.2b..DSK$.."Y"..|
00002A90: 3A 8F 20 53 55 42 4A 45 43 54 20 48 41 53 20 4E |:. SUBJECT HAS N|
00002AA0: 4F 20 44 49 53 4B 20 46 49 4C 45 00 CB 32 6C 1B |O DISK FILE..2l.|
00002AB0: 52 57 24 B2 22 52 45 41 44 20 22 3A 53 44 24 B2 |RW$."READ ":SD$.|
00002AC0: 22 42 22 3A 8D 37 32 30 30 3A 8E 00 E8 32 BC 1B |"B":.7200:...2..|
00002AD0: 8F 20 57 52 49 54 45 20 54 4F 20 50 45 52 53 4F |. WRITE TO PERSO|
00002AE0: 4E 41 4C 20 44 49 53 4B 00 07 33 C6 1B 52 57 24 |NAL DISK..3..RW$|
00002AF0: B2 22 57 52 49 54 45 20 22 3A 53 44 24 B2 22 41 |."WRITE ":SD$."A|
00002B00: 22 3A 8D 37 34 35 30 00 3B 33 DA 1B 8D 31 33 30 |":.7450.;3...130|
00002B10: 30 30 3A 46 49 4C 45 24 B2 22 4C 4F 41 44 49 4E |00:FILE$."LOADIN|
00002B20: 47 20 4D 45 4D 4F 52 59 20 54 52 41 49 4E 45 52 |G MEMORY TRAINER|
00002B30: 20 4D 41 49 4E 20 4D 45 4E 55 22 00 66 33 DB 1B | MAIN MENU".f3..|
00002B40: 56 54 25 B2 31 30 3A 8D 33 32 31 30 30 3A 8D 32 |VT%.10:.32100:.2|
00002B50: 39 39 30 3A 93 20 22 49 4E 54 52 4F 44 55 43 54 |990:. "INTRODUCT|
00002B60: 49 4F 4E 22 2C 38 00 7E 33 E4 1B 89 31 31 30 3A |ION",8.~3...110:|
00002B70: 8F 20 4A 55 53 54 20 49 4E 20 43 41 53 45 00 97 |. JUST IN CASE..|
00002B80: 33 20 1C 8F 20 52 45 41 44 2F 57 52 49 54 45 20 |3 .. READ/WRITE |
00002B90: 54 4F 20 44 49 53 4B 00 C2 33 2A 1C 8B 44 53 4B |TO DISK..3*..DSK|
00002BA0: 24 B3 B1 22 59 22 A7 51 55 49 54 B2 30 3A 89 37 |$.."Y".QUIT.0:.7|
00002BB0: 34 33 30 3A 8F 20 4E 4F 20 44 49 53 4B 20 46 49 |430:. NO DISK FI|
00002BC0: 4C 45 00 E8 33 34 1C 43 24 B2 22 55 50 44 41 54 |LE..34.C$."UPDAT|
00002BD0: 45 22 3A 8B 52 57 24 B2 22 52 45 41 44 20 22 A7 |E":.RW$."READ ".|
00002BE0: 43 24 B2 22 55 53 45 22 00 03 34 3E 1C 99 C7 28 |C$."USE"..4>...(|
00002BF0: 31 34 37 29 3B 3A 56 54 25 B2 31 30 3A 8D 33 32 |147);:VT%.10:.32|
00002C00: 31 30 30 00 2E 34 3F 1C 99 22 44 4F 20 59 4F 55 |100..4?.."DO YOU|
00002C10: 20 57 41 4E 54 20 54 4F 20 22 3B 43 24 3B 22 20 | WANT TO ";C$;" |
00002C20: 54 48 45 20 50 45 47 20 57 4F 52 44 53 22 00 62 |THE PEG WORDS".b|
00002C30: 34 48 1C 56 54 25 B2 31 32 3A 8D 33 32 31 30 30 |4H.VT%.12:.32100|
00002C40: 3A 99 22 4F 4E 20 59 4F 55 52 20 50 45 52 53 4F |:."ON YOUR PERSO|
00002C50: 4E 41 4C 20 44 49 53 4B 3F 20 28 59 2F 4E 29 20 |NAL DISK? (Y/N) |
00002C60: 22 3B 00 6E 34 49 1C 8D 37 31 3A 99 43 24 00 7D |";.n4I..71:.C$.}|
00002C70: 34 4A 1C 8B 20 51 4E B2 31 20 A7 20 8E 00 8E 34 |4J.. QN.1 . ...4|
00002C80: 52 1C 8B 43 24 B2 22 59 22 89 37 32 39 30 00 B6 |R..C$."Y".7290..|
00002C90: 34 5C 1C 8B 28 43 24 B2 22 4E 22 29 AF 28 28 53 |4\..(C$."N").((S|
00002CA0: 44 24 B2 22 51 55 49 54 22 29 B0 28 51 55 49 54 |D$."QUIT").(QUIT|
00002CB0: B2 32 29 29 A7 8E 00 D1 34 5D 1C 8F 20 51 55 49 |.2))....4].. QUI|
00002CC0: 54 20 46 4F 52 20 4E 4F 57 20 53 45 43 54 49 4F |T FOR NOW SECTIO|
00002CD0: 4E 00 EF 34 66 1C 8B 28 43 24 B2 22 4E 22 29 AF |N..4f..(C$."N").|
00002CE0: 28 52 57 24 B2 22 52 45 41 44 20 22 29 A7 8E 00 |(RW$."READ ")...|
00002CF0: 11 35 6B 1C 8B 28 43 24 B2 22 4E 22 29 AF 28 52 |.5k..(C$."N").(R|
00002D00: 57 24 B2 22 57 52 49 54 45 20 22 29 89 37 34 35 |W$."WRITE ").745|
00002D10: 30 00 25 35 70 1C 89 37 32 34 30 3A 8F 20 44 45 |0.%5p..7240:. DE|
00002D20: 46 41 55 4C 54 00 55 35 7A 1C 99 C7 28 31 34 37 |FAULT.U5z...(147|
00002D30: 29 3B 3A 56 54 25 B2 31 30 3A 8D 33 32 31 30 30 |);:VT%.10:.32100|
00002D40: 3A 9E 4D 55 3A 99 22 49 4E 53 45 52 54 20 59 4F |:.MU:."INSERT YO|
00002D50: 55 52 20 22 3B 00 89 35 7B 1C 99 C7 28 31 38 29 |UR ";..5{...(18)|
00002D60: 3B 22 50 45 52 53 4F 4E 41 4C 20 44 49 53 4B 22 |;"PERSONAL DISK"|
00002D70: 3B C7 28 31 34 36 29 3B 22 20 49 4E 54 4F 20 44 |;.(146);" INTO D|
00002D80: 52 49 56 45 20 23 31 2E 22 00 B9 35 7F 1C 56 54 |RIVE #1."..5..VT|
00002D90: 25 B2 31 35 3A 8D 33 32 31 30 30 3A 99 22 28 50 |%.15:.32100:."(P|
00002DA0: 52 45 53 53 20 3C 43 54 52 4C 2D 43 3E 20 54 4F |RESS <CTRL-C> TO|
00002DB0: 20 43 41 4E 43 45 4C 29 22 00 C3 35 84 1C 8D 39 | CANCEL)"..5...9|
00002DC0: 35 30 30 00 D2 35 85 1C 8B 20 51 4E B2 31 20 A7 |500..5... QN.1 .|
00002DD0: 20 8E 00 FF 35 8E 1C 81 58 58 B2 31 A4 31 30 3A | ...5...XX.1.10:|
00002DE0: A1 58 58 24 3A 82 58 58 3A 99 C7 28 31 34 37 29 |.XX$:.XX:..(147)|
00002DF0: 3B 3A 56 54 25 B2 31 32 3A 8D 33 32 31 30 30 00 |;:VT%.12:.32100.|
00002E00: 2A 36 8F 1C 46 49 4C 45 24 B2 22 55 53 49 4E 47 |*6..FILE$."USING|
00002E10: 20 59 4F 55 52 20 50 45 52 53 4F 4E 41 4C 20 44 | YOUR PERSONAL D|
00002E20: 49 53 4B 22 3A 8D 32 39 39 30 00 43 36 98 1C 8F |ISK":.2990.C6...|
00002E30: 20 41 43 54 55 41 4C 20 44 49 53 4B 20 41 43 43 | ACTUAL DISK ACC|
00002E40: 45 53 53 00 89 36 A2 1C 8F 20 50 52 49 4E 54 44 |ESS..6... PRINTD|
00002E50: 24 3B 22 52 45 41 44 20 22 3B 46 4C 4E 4D 24 3A |$;"READ ";FLNM$:|
00002E60: 52 45 4D 20 31 53 54 20 43 48 45 43 4B 20 54 4F |REM 1ST CHECK TO|
00002E70: 20 53 45 45 20 49 46 20 54 48 45 20 46 49 4C 45 | SEE IF THE FILE|
00002E80: 20 49 53 20 54 48 45 52 45 00 9A 36 AC 1C 8F 20 | IS THERE..6... |
00002E90: 47 4F 53 55 42 33 31 30 31 30 00 C9 36 B6 1C 8B |GOSUB31010..6...|
00002EA0: 20 52 57 24 B2 22 52 45 41 44 20 22 20 A7 20 9F | RW$."READ " . .|
00002EB0: 20 32 2C 38 2C 32 2C 46 4C 4E 4D 24 AA 22 2E 57 | 2,8,2,FLNM$.".W|
00002EC0: 52 44 2C 53 45 51 2C 52 22 00 FE 36 BB 1C 8B 20 |RD,SEQ,R"..6... |
00002ED0: 52 57 24 B2 22 57 52 49 54 45 20 22 20 A7 20 9F |RW$."WRITE " . .|
00002EE0: 20 32 2C 38 2C 32 2C 22 40 3A 22 AA 46 4C 4E 4D | 2,8,2,"@:".FLNM|
00002EF0: 24 AA 22 2E 57 52 44 2C 53 45 51 2C 57 22 00 25 |$.".WRD,SEQ,W".%|
00002F00: 37 CA 1C 8B 52 57 24 B2 22 52 45 41 44 20 22 A7 |7...RW$."READ ".|
00002F10: 84 32 2C 43 3A 8B 43 B1 50 4C 4D 41 58 A7 50 4C |.2,C:.C.PLMAX.PL|
00002F20: 4D 41 58 B2 43 00 40 37 D4 1C 8B 52 57 24 B2 22 |MAX.C.@7...RW$."|
00002F30: 57 52 49 54 45 20 22 A7 98 32 2C 50 4C 4D 41 58 |WRITE "..2,PLMAX|
00002F40: 00 51 37 D9 1C 8B 20 53 54 20 A7 20 31 37 30 30 |.Q7... ST . 1700|
00002F50: 30 00 5F 37 DE 1C 81 49 B2 31 20 A4 20 36 30 00 |0._7...I.1 . 60.|
00002F60: 7B 37 E8 1C 8B 52 57 24 B2 22 52 45 41 44 20 22 |{7...RW$."READ "|
00002F70: A7 84 32 2C 50 45 47 24 28 49 29 00 AC 37 ED 1C |..2,PEG$(I)..7..|
00002F80: 8B 52 57 24 B2 22 57 52 49 54 45 20 22 A7 20 41 |.RW$."WRITE ". A|
00002F90: 24 B2 50 45 47 24 28 49 29 3A 8B 20 41 24 B2 22 |$.PEG$(I):. A$."|
00002FA0: 22 20 A7 20 41 24 B2 22 58 58 58 22 00 C4 37 F2 |" . A$."XXX"..7.|
00002FB0: 1C 8B 52 57 24 B2 22 57 52 49 54 45 20 22 A7 98 |..RW$."WRITE "..|
00002FC0: 32 2C 41 24 00 CF 37 FC 1C 82 49 3A A0 20 32 00 |2,A$..7...I:. 2.|
00002FD0: E1 37 06 1D 8B 53 44 24 B2 22 51 55 49 54 22 A7 |.7...SD$."QUIT".|
00002FE0: 8E 00 00 38 1A 1D 99 C7 28 31 34 37 29 3B 3A 9E |...8....(147);:.|
00002FF0: 4D 55 3A 56 54 25 B2 31 30 3A 8D 33 32 31 30 30 |MU:VT%.10:.32100|
00003000: 00 38 38 1B 1D 99 22 42 45 20 53 55 52 45 20 4D |.88..."BE SURE M|
00003010: 45 4D 4F 52 59 20 54 52 41 49 4E 45 52 20 22 3B |EMORY TRAINER ";|
00003020: C7 28 31 38 29 3B 22 44 49 53 4B 20 22 3B 53 44 |.(18);"DISK ";SD|
00003030: 24 3B C7 28 31 34 36 29 00 71 38 1C 1D 56 54 25 |$;.(146).q8..VT%|
00003040: B2 31 32 3A 8D 33 32 31 30 30 3A 99 22 49 53 20 |.12:.32100:."IS |
00003050: 50 52 4F 50 45 52 4C 59 20 49 4E 53 45 52 54 45 |PROPERLY INSERTE|
00003060: 44 20 49 4E 54 4F 20 44 52 49 56 45 20 23 31 2E |D INTO DRIVE #1.|
00003070: 22 00 A1 38 1F 1D 56 54 25 B2 31 36 3A 8D 33 32 |"..8..VT%.16:.32|
00003080: 31 30 30 3A 99 22 28 50 52 45 53 53 20 3C 43 54 |100:."(PRESS <CT|
00003090: 52 4C 2D 43 3E 20 54 4F 20 43 41 4E 43 45 4C 29 |RL-C> TO CANCEL)|
000030A0: 22 00 AD 38 24 1D 8D 39 35 30 30 3A 8E 00 CB 38 |"..8$..9500:...8|
000030B0: 4C 1D 8F 20 54 45 58 54 20 46 49 4C 45 20 53 43 |L.. TEXT FILE SC|
000030C0: 52 45 45 4E 20 57 52 49 54 45 52 00 D8 38 56 1D |REEN WRITER..8V.|
000030D0: 99 C7 28 31 34 37 29 3B 00 F7 38 60 1D 9F 20 32 |..(147);..8`.. 2|
000030E0: 2C 38 2C 32 2C 46 49 4C 45 24 3A 8B 20 53 54 20 |,8,2,FILE$:. ST |
000030F0: A7 20 31 37 30 30 30 00 03 39 6A 1D 81 49 B2 30 |. 17000..9j..I.0|
00003100: A4 32 33 00 30 39 74 1D 84 32 2C 53 39 24 28 49 |.23.09t..2,S9$(I|
00003110: 29 3A 8B 20 53 54 20 AF 28 53 54 B3 B1 36 34 20 |):. ST .(ST..64 |
00003120: B0 20 49 B3 B1 32 33 29 20 A7 20 31 37 30 30 30 |. I..23) . 17000|
00003130: 00 3C 39 7E 1D 82 20 49 3A A0 20 32 00 66 39 88 |.<9~.. I:. 2.f9.|
00003140: 1D 99 C7 28 31 34 37 29 3B C7 28 31 38 29 3B 3A |...(147);.(18);:|
00003150: 46 49 4C 45 24 B2 45 24 AA 22 3A 20 4C 45 53 53 |FILE$.E$.": LESS|
00003160: 4F 4E 20 23 33 22 00 78 39 89 1D 8D 32 39 39 30 |ON #3".x9...2990|
00003170: 3A 99 C7 28 31 34 36 29 00 84 39 92 1D 81 49 B2 |:..(146)..9...I.|
00003180: 31 A4 32 31 00 93 39 9C 1D 99 53 39 24 28 49 29 |1.21..9...S9$(I)|
00003190: 3A 82 49 00 B5 39 A6 1D 53 45 43 B2 2E 35 3A 8D |:.I..9..SEC..5:.|
000031A0: 32 39 30 30 3A 8D 33 30 30 32 34 3A 99 53 39 24 |2900:.30024:.S9$|
000031B0: 28 32 32 29 3B 00 CB 39 A7 1D 81 58 58 B2 31 A4 |(22);..9...XX.1.|
000031C0: 31 30 3A A1 58 58 24 3A 82 58 58 00 E1 39 B0 1D |10:.XX$:.XX..9..|
000031D0: 8D 20 39 35 32 30 3A 8B 20 51 4E B2 31 20 A7 20 |. 9520:. QN.1 . |
000031E0: 8E 00 00 3A BA 1D 81 58 58 B2 31 A4 31 30 3A A1 |...:...XX.1.10:.|
000031F0: 58 58 24 3A 82 58 58 3A 8D 31 33 30 30 30 3A 8E |XX$:.XX:.13000:.|
00003200: 00 14 3A 40 1F 8F 20 4D 45 4E 55 20 53 45 4C 45 |..:@.. MENU SELE|
00003210: 43 54 4F 52 00 33 3A 4A 1F 99 C7 28 31 34 37 29 |CTOR.3:J...(147)|
00003220: 3B 3A 81 58 58 B2 31 A4 31 30 3A A1 58 58 24 3A |;:.XX.1.10:.XX$:|
00003230: 82 58 58 00 57 3A 54 1F 46 49 4C 45 24 B2 45 24 |.XX.W:T.FILE$.E$|
00003240: 3A 99 C7 28 31 38 29 3B 3A 8D 32 39 39 30 3A 99 |:..(18);:.2990:.|
00003250: C7 28 31 34 36 29 3B 00 85 3A 5E 1F 8D 33 30 30 |.(146);..:^..300|
00003260: 32 34 3A 99 22 46 49 4C 45 20 4E 41 4D 45 3A 20 |24:."FILE NAME: |
00003270: 22 3B C7 28 31 38 29 3B 46 4C 4E 4D 24 3B C7 28 |";.(18);FLNM$;.(|
00003280: 31 34 36 29 3B 00 C8 3A 68 1F 56 54 25 B2 34 3A |146);..:h.VT%.4:|
00003290: 8D 20 33 32 31 30 30 3A 97 20 32 31 31 2C 30 3A |. 32100:. 211,0:|
000032A0: 46 49 4C 45 24 B2 22 4C 45 53 53 4F 4E 20 23 33 |FILE$."LESSON #3|
000032B0: 3A 20 50 45 47 2D 57 4F 52 44 20 53 59 53 54 45 |: PEG-WORD SYSTE|
000032C0: 4D 22 3A 8D 32 39 39 30 00 E9 3A 6D 1F 8B 57 24 |M":.2990..:m..W$|
000032D0: B2 22 40 22 A7 56 54 25 B2 35 3A 8D 33 32 31 30 |."@".VT%.5:.3210|
000032E0: 30 3A 97 32 31 31 2C 31 37 00 1C 3B 6E 1F 8B 57 |0:.211,17..;n..W|
000032F0: 24 B2 22 40 22 A7 57 24 B2 22 22 3A 99 C7 28 31 |$."@".W$."":..(1|
00003300: 38 29 3B 22 41 44 56 41 4E 43 45 44 20 53 45 43 |8);"ADVANCED SEC|
00003310: 54 49 4F 4E 22 3B C7 28 31 34 36 29 00 2D 3B 72 |TION";.(146).-;r|
00003320: 1F 81 49 B2 36 35 A4 36 34 AA 4D 41 58 00 40 3B |..I.65.64.MAX.@;|
00003330: 7C 1F 53 B2 49 AB 36 34 3A 97 20 32 31 31 2C 30 ||.S.I.64:. 211,0|
00003340: 00 65 3B 86 1F 56 54 25 B2 53 AA 36 3A 8D 33 32 |.e;..VT%.S.6:.32|
00003350: 31 30 30 3A 99 C7 28 49 29 22 20 3A 20 22 50 47 |100:..(I)" : "PG|
00003360: 4D 24 28 53 29 00 6D 3B 90 1F 82 3A 99 00 7E 3B |M$(S).m;...:..~;|
00003370: 9A 1F 8B 50 56 24 B2 22 22 89 38 31 31 30 00 BB |...PV$."".8110..|
00003380: 3B A4 1F 56 54 25 B2 32 30 3A 8D 33 32 31 30 30 |;..VT%.20:.32100|
00003390: 3A 99 22 28 59 4F 55 52 20 50 52 45 56 49 4F 55 |:."(YOUR PREVIOU|
000033A0: 53 20 53 45 4C 45 43 54 49 4F 4E 20 57 41 53 20 |S SELECTION WAS |
000033B0: 27 22 3B 50 56 24 3B 22 27 29 22 00 E1 3B AE 1F |'";PV$;"')"..;..|
000033C0: 56 54 25 B2 31 38 3A 8D 33 32 31 30 30 3A 99 22 |VT%.18:.32100:."|
000033D0: 53 45 4C 45 43 54 20 4F 50 54 49 4F 4E 3A 20 22 |SELECT OPTION: "|
000033E0: 3B 00 03 3C AF 1F 8D 33 32 32 30 30 3A 8F 20 43 |;..<...32200:. C|
000033F0: 4C 45 41 52 20 54 4F 20 45 4E 44 2D 4F 46 2D 4C |LEAR TO END-OF-L|
00003400: 49 4E 45 00 1E 3C B8 1F 8D 37 31 3A 43 B2 C6 28 |INE..<...71:C..(|
00003410: 43 24 AA 5A 45 24 29 3A 41 4E 24 B2 43 24 00 36 |C$.ZE$):AN$.C$.6|
00003420: 3C CC 1F 8B 43 B3 36 35 B0 43 B1 36 34 AA 4D 41 |<...C.65.C.64.MA|
00003430: 58 89 38 31 32 30 00 43 3C D6 1F 99 3A 43 B2 43 |X.8120.C<...:C.C|
00003440: AB 36 34 00 56 3C E0 1F 56 54 25 B2 43 AA 36 3A |.64.V<..VT%.C.6:|
00003450: 8D 33 32 31 30 30 00 87 3C E1 1F 99 C7 28 31 38 |.32100..<....(18|
00003460: 29 3B 41 4E 24 3B C7 28 31 34 36 29 3B 22 20 3A |);AN$;.(146);" :|
00003470: 20 22 3B C7 28 31 38 29 3B 50 47 4D 24 28 43 29 | ";.(18);PGM$(C)|
00003480: 3B C7 28 31 34 36 29 00 C4 3C EA 1F 56 54 25 B2 |;.(146)..<..VT%.|
00003490: 31 38 3A 8D 33 32 31 30 30 3A 99 22 49 53 20 54 |18:.32100:."IS T|
000034A0: 48 49 53 20 54 48 45 20 53 45 4C 45 43 54 49 4F |HIS THE SELECTIO|
000034B0: 4E 20 59 4F 55 20 57 41 4E 54 3F 20 28 59 2F 4E |N YOU WANT? (Y/N|
000034C0: 29 20 22 3B 00 E8 3C F4 1F 8D 37 31 3A 8B 43 24 |) ";..<...71:.C$|
000034D0: B3 B1 22 59 22 AF 43 24 B3 B1 22 4E 22 A7 99 42 |.."Y".C$.."N"..B|
000034E0: 24 3B 3A 89 38 31 38 30 00 07 3D FE 1F 99 43 24 |$;:.8180..=...C$|
000034F0: 3A 8B 43 24 B3 B1 22 4E 22 A7 50 56 24 B2 41 4E |:.C$.."N".PV$.AN|
00003500: 24 3A 89 38 32 31 30 00 31 3D 08 20 56 54 25 B2 |$:.8210.1=. VT%.|
00003510: 43 AA 36 3A 8D 33 32 31 30 30 3A 99 41 4E 24 22 |C.6:.32100:.AN$"|
00003520: 20 3A 20 22 50 47 4D 24 28 43 29 3A 89 38 31 31 | : "PGM$(C):.811|
00003530: 30 00 37 3D 12 20 8E 00 4B 3D 28 23 8F 20 42 55 |0.7=. ..K=(#. BU|
00003540: 42 42 4C 45 20 53 4F 52 54 45 52 00 56 3D 2D 23 |BBLE SORTER.V=-#|
00003550: 8D 31 33 30 30 30 00 6B 3D 32 23 4C B2 31 3A 8B |.13000.k=2#L.1:.|
00003560: 56 24 B2 22 40 22 A7 4C B2 4C 58 00 79 3D 3C 23 |V$."@".L.LX.y=<#|
00003570: 81 4A B2 4C A4 54 4D 41 58 00 89 3D 46 23 81 49 |.J.L.TMAX..=F#.I|
00003580: B2 4C A4 54 4D 41 58 AB 31 00 A5 3D 50 23 8B 52 |.L.TMAX.1..=P#.R|
00003590: 44 52 25 28 49 29 B3 52 44 52 25 28 49 AA 31 29 |DR%(I).RDR%(I.1)|
000035A0: 89 39 30 38 30 00 C1 3D 5A 23 54 45 4D 50 B2 52 |.9080..=Z#TEMP.R|
000035B0: 44 52 25 28 49 29 3A 52 24 B2 41 46 54 24 28 49 |DR%(I):R$.AFT$(I|
000035C0: 29 00 E9 3D 64 23 52 44 52 25 28 49 29 B2 52 44 |)..=d#RDR%(I).RD|
000035D0: 52 25 28 49 AA 31 29 3A 41 46 54 24 28 49 29 B2 |R%(I.1):AFT$(I).|
000035E0: 41 46 54 24 28 49 AA 31 29 00 09 3E 6E 23 52 44 |AFT$(I.1)..>n#RD|
000035F0: 52 25 28 49 AA 31 29 B2 54 45 4D 50 3A 41 46 54 |R%(I.1).TEMP:AFT|
00003600: 24 28 49 AA 31 29 B2 52 24 00 15 3E 78 23 82 49 |$(I.1).R$..>x#.I|
00003610: 3A 82 4A 3A 8E 00 3A 3E 1C 25 8F 20 57 41 49 54 |:.J:..:>.%. WAIT|
00003620: 20 46 4F 52 20 53 50 41 43 45 20 42 41 52 20 54 | FOR SPACE BAR T|
00003630: 4F 20 43 4F 4E 54 49 4E 55 45 00 72 3E 26 25 97 |O CONTINUE.r>&%.|
00003640: 20 32 31 31 2C 30 3A 8D 33 30 30 32 34 3A 99 22 | 211,0:.30024:."|
00003650: 50 52 45 53 53 20 3C 53 50 41 43 45 20 42 41 52 |PRESS <SPACE BAR|
00003660: 3E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 2E 2E |> TO CONTINUE...|
00003670: 22 3B 00 88 3E 27 25 81 58 58 B2 31 A4 31 30 3A |";..>'%.XX.1.10:|
00003680: A1 58 58 24 3A 82 58 58 00 A1 3E 30 25 A1 43 24 |.XX$:.XX..>0%.C$|
00003690: 3A 8D 39 36 30 30 3A 8B 20 51 4E B2 31 20 A7 20 |:.9600:. QN.1 . |
000036A0: 8E 00 B3 3E 35 25 8B 43 24 B3 B1 22 20 22 89 39 |...>5%.C$.." ".9|
000036B0: 35 32 30 00 CB 3E 3A 25 81 58 58 B2 31 A4 31 30 |520..>:%.XX.1.10|
000036C0: 3A A1 58 58 24 3A 82 58 58 3A 8E 00 F4 3E 80 25 |:.XX$:.XX:...>.%|
000036D0: 8B 43 24 B2 C7 28 33 29 A7 97 20 32 30 34 2C 31 |.C$..(3).. 204,1|
000036E0: 3A 9E 20 34 39 31 35 35 3A 50 56 24 B2 22 22 3A |:. 49155:PV$."":|
000036F0: 51 4E B2 31 00 FA 3E 8A 25 8E 00 0F 3F 10 27 8F |QN.1..>.%...?.'.|
00003700: 20 49 4E 49 54 49 41 4C 49 5A 41 54 49 4F 4E 00 | INITIALIZATION.|
00003710: 27 3F 1A 27 86 52 44 52 25 28 36 30 29 2C 50 49 |'?.'.RDR%(60),PI|
00003720: 54 43 48 28 31 30 29 00 49 3F 1F 27 44 24 B2 C7 |TCH(10).I?.'D$..|
00003730: 28 31 33 29 AA C7 28 34 29 3A 4B 4D 41 58 B2 32 |(13)..(4):KMAX.2|
00003740: 30 3A 50 4C 4D 41 58 B2 30 00 6E 3F 24 27 45 24 |0:PLMAX.0.n?$'E$|
00003750: B2 22 54 48 45 20 45 49 4E 53 54 45 49 4E 20 4D |."THE EINSTEIN M|
00003760: 45 4D 4F 52 59 20 54 52 41 49 4E 45 52 22 00 93 |EMORY TRAINER"..|
00003770: 3F 4C 27 9F 20 32 2C 38 2C 32 2C 22 57 4F 52 44 |?L'. 2,8,2,"WORD|
00003780: 20 46 49 4C 45 22 3A 8B 20 53 54 20 A7 20 31 37 | FILE":. ST . 17|
00003790: 30 30 30 00 9E 3F 56 27 81 49 B2 30 A4 34 00 AB |000..?V'.I.0.4..|
000037A0: 3F 60 27 81 49 49 B2 30 A4 34 37 00 CB 3F 6A 27 |?`'.II.0.47..?j'|
000037B0: 84 32 2C 57 52 44 53 24 28 49 2C 49 49 29 3A 8B |.2,WRDS$(I,II):.|
000037C0: 20 53 54 20 A7 20 31 37 30 30 30 00 DA 3F 74 27 | ST . 17000..?t'|
000037D0: 82 49 49 3A 82 49 3A A0 20 32 00 FF 3F 92 27 9F |.II:.I:. 2..?.'.|
000037E0: 20 32 2C 38 2C 32 2C 22 50 45 47 20 57 4F 52 44 | 2,8,2,"PEG WORD|
000037F0: 53 22 3A 8B 20 53 54 20 A7 20 31 37 30 30 30 00 |S":. ST . 17000.|
00003800: 0C 40 9C 27 81 49 B2 31 A4 31 30 30 00 28 40 A6 |.@.'.I.1.100.(@.|
00003810: 27 84 32 2C 50 45 47 24 28 49 29 3A 8B 20 53 54 |'.2,PEG$(I):. ST|
00003820: 20 A7 20 31 37 30 30 30 00 34 40 B0 27 82 20 49 | . 17000.4@.'. I|
00003830: 3A A0 20 32 00 46 40 CC 29 8F 20 4D 55 53 49 43 |:. 2.F@.). MUSIC|
00003840: 20 53 54 55 46 46 00 53 40 D6 29 53 58 B2 35 34 | STUFF.S@.)SX.54|
00003850: 32 37 32 00 75 40 E0 29 81 20 54 B2 31 20 A4 20 |272.u@.). T.1 . |
00003860: 39 3A 87 20 48 46 25 28 54 29 2C 4C 46 25 28 54 |9:. HF%(T),LF%(T|
00003870: 29 3A 82 20 54 00 B3 40 EA 29 83 20 31 36 2C 31 |):. T..@.). 16,1|
00003880: 39 35 2C 31 38 2C 32 30 39 2C 32 31 2C 33 31 2C |95,18,209,21,31,|
00003890: 32 32 2C 39 36 2C 32 35 2C 33 30 2C 32 38 2C 34 |22,96,25,30,28,4|
000038A0: 39 2C 33 31 2C 31 36 35 2C 33 33 2C 31 33 35 2C |9,31,165,33,135,|
000038B0: 30 2C 30 00 B9 40 F4 29 8F 00 CE 40 F8 2A 8F 20 |0,0..@.)...@.*. |
000038C0: 52 45 41 44 20 46 49 4C 45 20 4E 41 4D 45 00 09 |READ FILE NAME..|
000038D0: 41 02 2B 46 4C 4E 4D 24 B2 22 22 3A 44 53 4B 24 |A.+FLNM$."":DSK$|
000038E0: B2 C7 28 C2 28 44 45 29 29 3A 8B 44 53 4B 24 B3 |..(.(DE)):.DSK$.|
000038F0: B1 22 59 22 A7 46 4C 4E 4D 24 B2 22 4E 4F 4E 45 |."Y".FLNM$."NONE|
00003900: 22 3A 89 20 31 31 38 39 30 00 32 41 0C 2B 81 49 |":. 11890.2A.+.I|
00003910: B2 31 A4 C2 28 4E 4D 29 3A 46 4C 4E 4D 24 B2 46 |.1..(NM):FLNM$.F|
00003920: 4C 4E 4D 24 AA C7 28 C2 28 4E 4D AA 49 29 29 3A |LNM$..(.(NM.I)):|
00003930: 82 49 00 4A 41 72 2E 81 49 B2 30 A4 39 3A 87 50 |.I.JAr..I.0.9:.P|
00003940: 49 54 43 48 28 49 29 3A 82 49 00 64 41 73 2E 97 |ITCH(I):.I.dAs..|
00003950: 30 2C 50 49 54 43 48 28 B5 28 37 AC BB 28 31 29 |0,PITCH(.(7..(1)|
00003960: 29 AA 31 29 00 8A 41 7C 2E 83 20 30 2C 31 33 33 |).1)..A|.. 0,133|
00003970: 2C 31 32 31 2C 31 30 37 2C 31 30 30 2C 39 30 2C |,121,107,100,90,|
00003980: 38 30 2C 37 30 2C 36 36 2C 31 00 90 41 DF 2E 8E |80,70,66,1..A...|
00003990: 00 A9 41 C8 32 8F 20 43 45 4E 54 45 52 2F 4F 55 |..A.2. CENTER/OU|
000039A0: 54 20 57 49 50 45 4F 55 54 00 B8 41 D2 32 99 C7 |T WIPEOUT..A.2..|
000039B0: 28 31 34 37 29 3B 3A 8E 00 CC 41 80 3E 8F 20 4D |(147);:...A.>. M|
000039C0: 45 4C 4F 44 59 20 50 4C 41 59 45 52 00 DE 41 8A |ELODY PLAYER..A.|
000039D0: 3E 81 49 B2 31 A4 C3 28 46 49 4C 45 24 29 00 F4 |>.I.1..(FILE$)..|
000039E0: 41 94 3E 58 B2 C5 28 CA 28 46 49 4C 45 24 2C 49 |A.>X..(.(FILE$,I|
000039F0: 2C 31 29 29 00 2C 42 9E 3E 97 20 53 58 AA 31 2C |,1)).,B.>. SX.1,|
00003A00: 48 46 25 28 58 29 3A 97 20 53 58 2C 4C 46 25 28 |HF%(X):. SX,LF%(|
00003A10: 58 29 3A 97 20 53 58 AA 34 2C 33 33 3A 53 45 43 |X):. SX.4,33:SEC|
00003A20: B2 30 2E 31 33 3A 8D 20 32 39 30 30 00 44 42 9F |.0.13:. 2900.DB.|
00003A30: 3E 8B 20 51 4E B2 31 20 A7 20 97 20 53 58 AA 34 |>. QN.1 . . SX.4|
00003A40: 2C 30 3A 8E 00 57 42 A8 3E 97 20 53 58 AA 34 2C |,0:..WB.>. SX.4,|
00003A50: 30 3A 82 20 49 3A 8E 00 6C 42 68 42 8F 20 45 52 |0:. I:..lBhB. ER|
00003A60: 52 4F 52 20 48 41 4E 44 4C 49 4E 47 00 78 42 6A |ROR HANDLING.xBj|
00003A70: 42 9E 20 34 39 31 35 35 00 88 42 6D 42 84 31 2C |B. 49155..BmB.1,|
00003A80: 41 2C 42 24 3A A0 20 32 00 95 42 72 42 99 C7 28 |A,B$:. 2..BrB..(|
00003A90: 31 34 37 29 3B 00 B9 42 86 42 59 B2 41 3A 8F 20 |147);..B.BY.A:. |
00003AA0: 58 3D 50 45 45 4B 28 32 31 38 29 2B 32 35 36 2A |X=PEEK(218)+256*|
00003AB0: 50 45 45 4B 28 32 31 39 29 00 D3 42 87 42 8F 20 |PEEK(219)..B.B. |
00003AC0: 58 3D 4C 49 4E 45 20 23 3B 20 59 3D 45 52 52 4F |X=LINE #; Y=ERRO|
00003AD0: 52 20 23 00 F5 42 9A 42 4C 24 B2 22 41 33 22 3A |R #..B.BL$."A3":|
00003AE0: 8F 20 52 45 56 49 53 49 4F 4E 20 26 20 4C 45 53 |. REVISION & LES|
00003AF0: 53 4F 4E 20 23 00 29 43 A4 42 56 54 25 B2 32 3A |SON #.)C.BVT%.2:|
00003B00: 8D 33 32 31 30 30 3A 99 22 55 53 45 52 20 4E 41 |.32100:."USER NA|
00003B10: 4D 45 3A 20 22 3B C7 28 31 38 29 3B 46 4C 4E 4D |ME: ";.(18);FLNM|
00003B20: 24 3B C7 28 31 34 36 29 3B 00 41 43 AE 42 56 54 |$;.(146);.AC.BVT|
00003B30: 25 B2 34 3A 8D 33 32 31 30 30 3A 8D 33 30 30 30 |%.4:.32100:.3000|
00003B40: 30 00 65 43 AF 42 99 C7 28 31 34 36 29 3B 22 41 |0.eC.B..(146);"A|
00003B50: 4E 20 45 52 52 4F 52 20 48 41 53 20 4F 43 43 55 |N ERROR HAS OCCU|
00003B60: 52 45 44 21 22 00 97 43 B8 42 56 54 25 B2 36 3A |RED!"..C.BVT%.6:|
00003B70: 8D 33 32 31 30 30 3A 99 22 45 52 52 4F 52 20 43 |.32100:."ERROR C|
00003B80: 4F 44 45 3A 20 23 22 3B 59 3B 22 20 20 20 20 20 |ODE: #";Y;" |
00003B90: 22 3B 4C 24 3B 42 24 00 BD 43 C2 42 56 54 25 B2 |";L$;B$..C.BVT%.|
00003BA0: 31 30 3A 8D 33 32 31 30 30 3A 99 22 45 52 52 4F |10:.32100:."ERRO|
00003BB0: 52 20 4D 45 53 53 41 47 45 3A 20 22 3B 00 E2 43 |R MESSAGE: ";..C|
00003BC0: CC 42 8B 59 B2 32 36 A7 99 22 44 49 53 4B 20 49 |.B.Y.26.."DISK I|
00003BD0: 53 20 57 52 49 54 45 20 50 52 4F 54 45 43 54 45 |S WRITE PROTECTE|
00003BE0: 44 22 00 02 44 D6 42 8B 59 B2 36 32 A7 99 22 46 |D"..D.B.Y.62.."F|
00003BF0: 49 4C 45 20 57 41 53 20 4E 4F 54 20 46 4F 55 4E |ILE WAS NOT FOUN|
00003C00: 44 22 00 21 44 EA 42 8B 59 B2 37 32 A7 99 22 59 |D".!D.B.Y.72.."Y|
00003C10: 4F 55 52 20 44 49 53 4B 20 49 53 20 46 55 4C 4C |OUR DISK IS FULL|
00003C20: 22 00 3A 44 FE 42 56 54 25 B2 31 32 3A 8D 33 32 |".:D.BVT%.12:.32|
00003C30: 31 30 30 3A 8D 33 30 30 30 30 00 75 44 FF 42 99 |100:.30000.uD.B.|
00003C40: C7 28 31 38 29 3B 22 43 48 45 43 4B 20 54 48 41 |.(18);"CHECK THA|
00003C50: 54 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 54 |T THE APPROPRIAT|
00003C60: 45 20 44 49 53 4B 22 3A 56 54 25 B2 31 34 3A 8D |E DISK":VT%.14:.|
00003C70: 33 32 31 30 30 00 A5 44 00 43 99 22 49 53 20 50 |32100..D.C."IS P|
00003C80: 52 4F 50 45 52 4C 59 20 49 4E 53 45 52 54 45 44 |ROPERLY INSERTED|
00003C90: 20 49 4E 20 44 52 49 56 45 20 23 31 2E 22 3B C7 | IN DRIVE #1.";.|
00003CA0: 28 31 34 36 29 00 DB 44 08 43 8D 33 30 30 32 34 |(146)..D.C.30024|
00003CB0: 3A 8D 33 30 30 30 30 3A 3A 99 22 50 52 45 53 53 |:.30000::."PRESS|
00003CC0: 20 3C 53 50 41 43 45 20 42 41 52 3E 20 54 4F 20 | <SPACE BAR> TO |
00003CD0: 52 45 53 55 4D 45 2E 2E 2E 22 3B 00 F1 44 09 43 |RESUME...";..D.C|
00003CE0: 81 58 58 B2 31 A4 31 30 3A A1 58 58 24 3A 82 58 |.XX.1.10:.XX$:.X|
00003CF0: 58 00 08 45 12 43 8D 37 33 3A 8B 43 24 B3 B1 22 |X..E.C.73:.C$.."|
00003D00: 20 22 89 31 37 31 37 30 00 20 45 1C 43 89 31 31 | ".17170. E.C.11|
00003D10: 30 3A 8F 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 |0:. TO MAIN MENU|
00003D20: 00 40 45 20 4E 8F 20 41 44 56 41 4E 43 45 44 20 |.@E N. ADVANCED |
00003D30: 55 53 45 20 4F 46 20 50 45 47 20 57 4F 52 44 53 |USE OF PEG WORDS|
00003D40: 00 5C 45 2A 4E 50 56 24 B2 22 22 3A 8B 56 56 B2 |.\E*NPV$."":.VV.|
00003D50: 30 A7 8D 37 30 30 30 3A 56 56 B2 31 00 6D 45 2F |0..7000:VV.1.mE/|
00003D60: 4E 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 9E 45 |N. QN.1 . 110..E|
00003D70: 34 4E 50 47 4D 24 28 31 29 B2 22 49 4E 54 52 4F |4NPGM$(1)."INTRO|
00003D80: 44 55 43 54 49 4F 4E 20 54 4F 20 41 44 56 41 4E |DUCTION TO ADVAN|
00003D90: 43 45 44 20 50 45 47 20 57 4F 52 44 53 22 00 C4 |CED PEG WORDS"..|
00003DA0: 45 3E 4E 50 47 4D 24 28 32 29 B2 22 43 52 45 41 |E>NPGM$(2)."CREA|
00003DB0: 54 45 2F 45 58 54 45 4E 44 20 50 45 47 20 57 4F |TE/EXTEND PEG WO|
00003DC0: 52 44 53 22 00 EA 45 48 4E 50 47 4D 24 28 33 29 |RDS"..EHNPGM$(3)|
00003DD0: B2 22 52 45 56 49 45 57 2F 43 48 41 4E 47 45 20 |."REVIEW/CHANGE |
00003DE0: 50 45 47 20 57 4F 52 44 53 22 00 1A 46 52 4E 50 |PEG WORDS"..FRNP|
00003DF0: 47 4D 24 28 34 29 B2 22 50 52 41 43 54 49 43 45 |GM$(4)."PRACTICE|
00003E00: 20 57 49 54 48 20 4C 49 53 54 53 20 41 4E 44 20 | WITH LISTS AND |
00003E10: 50 45 47 20 57 4F 52 44 53 22 00 4A 46 5C 4E 50 |PEG WORDS".JF\NP|
00003E20: 47 4D 24 28 35 29 B2 22 52 45 54 55 52 4E 20 54 |GM$(5)."RETURN T|
00003E30: 4F 20 50 52 45 56 49 4F 55 53 20 4C 45 53 53 4F |O PREVIOUS LESSO|
00003E40: 4E 20 23 33 20 4D 45 4E 55 22 00 7B 46 66 4E 50 |N #3 MENU".{FfNP|
00003E50: 47 4D 24 28 36 29 B2 22 52 45 54 55 52 4E 20 54 |GM$(6)."RETURN T|
00003E60: 4F 20 4D 45 4D 4F 52 59 20 54 52 41 49 4E 45 52 |O MEMORY TRAINER|
00003E70: 20 4D 41 49 4E 20 4D 45 4E 55 22 00 96 46 70 4E | MAIN MENU"..FpN|
00003E80: 50 47 4D 24 28 37 29 B2 22 51 55 49 54 20 46 4F |PGM$(7)."QUIT FO|
00003E90: 52 20 4E 4F 57 22 00 AD 46 7A 4E 57 24 B2 22 40 |R NOW"..FzNW$."@|
00003EA0: 22 3A 4D 41 58 B2 37 3A 8D 38 30 30 30 00 DB 46 |":MAX.7:.8000..F|
00003EB0: 84 4E 91 43 89 32 34 30 30 30 2C 32 35 30 30 30 |.N.C.24000,25000|
00003EC0: 2C 32 36 30 30 30 2C 32 37 30 30 30 2C 32 30 31 |,26000,27000,201|
00003ED0: 31 30 2C 37 31 30 30 2C 39 39 30 00 01 47 8E 4E |10,7100,990..G.N|
00003EE0: 81 49 B2 31 A4 36 30 3A 54 4D 50 24 28 49 29 B2 |.I.1.60:TMP$(I).|
00003EF0: 22 22 3A 82 49 3A 50 56 24 B2 22 22 3A 89 31 31 |"":.I:PV$."":.11|
00003F00: 30 00 20 47 C0 5D 8F 20 49 4E 54 52 4F 20 46 4F |0. G.]. INTRO FO|
00003F10: 52 20 41 44 56 41 4E 43 45 44 20 55 53 45 52 53 |R ADVANCED USERS|
00003F20: 00 3D 47 CA 5D 46 49 4C 45 24 B2 22 50 31 32 22 |.=G.]FILE$."P12"|
00003F30: 3A 8D 37 35 30 30 3A 89 32 30 30 30 30 00 54 47 |:.7500:.20000.TG|
00003F40: A8 61 8F 20 45 58 54 45 4E 44 20 50 45 47 20 57 |.a. EXTEND PEG W|
00003F50: 4F 52 44 53 00 75 47 B2 61 8B 28 50 4C 4D 41 58 |ORDS.uG.a.(PLMAX|
00003F60: B3 31 30 29 B0 28 50 4C 4D 41 58 B1 36 30 29 89 |.10).(PLMAX.60).|
00003F70: 32 36 30 31 30 00 93 47 BC 61 46 49 4C 45 24 B2 |26010..G.aFILE$.|
00003F80: 22 50 31 33 22 3A 8D 37 35 30 30 3A 43 B2 50 4C |"P13":.7500:C.PL|
00003F90: 4D 41 58 00 BB 47 BD 61 8F 20 46 4C 41 47 20 54 |MAX..G.a. FLAG T|
00003FA0: 4F 20 53 54 4F 52 45 20 4E 55 4D 42 45 52 20 4F |O STORE NUMBER O|
00003FB0: 46 20 50 45 47 20 57 4F 52 44 53 00 CC 47 BE 61 |F PEG WORDS..G.a|
00003FC0: 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 F0 47 C6 |. QN.1 . 110..G.|
00003FD0: 61 4C 4F 57 B2 50 4C 4D 41 58 AA 31 3A 48 49 47 |aLOW.PLMAX.1:HIG|
00003FE0: 48 B2 50 4C 4D 41 58 AA 31 30 3A 43 4F 4C B2 31 |H.PLMAX.10:COL.1|
00003FF0: 00 10 48 D0 61 81 49 B2 4C 4F 57 A4 48 49 47 48 |..H.a.I.LOW.HIGH|
00004000: 3A 54 4D 50 24 28 49 29 B2 50 45 47 24 28 49 29 |:TMP$(I).PEG$(I)|
00004010: 00 38 48 D1 61 4D 53 47 24 28 49 29 B2 22 28 22 |.8H.aMSG$(I)."("|
00004020: AA C4 28 49 29 AA 22 29 22 3A 42 45 46 24 28 49 |..(I).")":BEF$(I|
00004030: 29 B2 22 58 22 3A 82 49 00 70 48 DA 61 4C 4D 41 |)."X":.I.pH.aLMA|
00004040: 52 47 49 4E B2 32 3A 46 49 4C 45 24 B2 22 53 54 |RGIN.2:FILE$."ST|
00004050: 55 44 59 20 41 4E 44 2F 4F 52 20 43 48 41 4E 47 |UDY AND/OR CHANG|
00004060: 45 20 54 48 45 20 50 45 47 20 57 4F 52 44 53 22 |E THE PEG WORDS"|
00004070: 00 8C 48 DB 61 41 4E 24 B2 22 22 3A 41 59 B2 34 |..H.aAN$."":AY.4|
00004080: 3A 43 4F 4C B2 31 3A 8D 32 30 30 30 00 9D 48 DC |:COL.1:.2000..H.|
00004090: 61 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 B6 48 |a. QN.1 . 110..H|
000040A0: E4 61 8D 33 33 30 30 3A 8F 20 53 54 52 49 50 20 |.a.3300:. STRIP |
000040B0: 42 4C 41 4E 4B 53 00 E6 48 EE 61 81 49 B2 4C 4F |BLANKS..H.a.I.LO|
000040C0: 57 A4 48 49 47 48 3A 8F 20 43 48 45 43 4B 20 46 |W.HIGH:. CHECK F|
000040D0: 4F 52 20 41 4E 59 20 41 4C 54 45 52 45 44 20 45 |OR ANY ALTERED E|
000040E0: 4E 54 52 49 45 53 00 1B 49 F8 61 8B 41 46 54 24 |NTRIES..I.a.AFT$|
000040F0: 28 49 29 B2 22 20 22 89 32 35 31 30 30 3A 8F 20 |(I)." ".25100:. |
00004100: 47 55 41 52 44 20 41 47 41 49 4E 53 54 20 42 4C |GUARD AGAINST BL|
00004110: 41 4E 4B 20 45 4E 54 52 49 45 53 00 3C 49 02 62 |ANK ENTRIES.<I.b|
00004120: 8B 41 46 54 24 28 49 29 B3 B1 22 22 A7 50 45 47 |.AFT$(I).."".PEG|
00004130: 24 28 49 29 B2 41 46 54 24 28 49 29 00 43 49 0C |$(I).AFT$(I).CI.|
00004140: 62 82 49 00 5D 49 16 62 8F 20 53 54 55 44 59 20 |b.I.]I.b. STUDY |
00004150: 54 48 45 20 50 45 47 20 57 4F 52 44 53 00 80 49 |THE PEG WORDS..I|
00004160: 20 62 81 49 B2 4C 4F 57 A4 48 49 47 48 3A 54 4D | b.I.LOW.HIGH:TM|
00004170: 50 24 28 49 29 B2 50 45 47 24 28 49 29 3A 82 49 |P$(I).PEG$(I):.I|
00004180: 00 B4 49 2A 62 99 C7 28 31 34 37 29 3B 3A 46 49 |..I*b..(147);:FI|
00004190: 4C 45 24 B2 22 53 54 55 44 59 20 59 4F 55 52 20 |LE$."STUDY YOUR |
000041A0: 50 45 47 20 57 4F 52 44 53 20 43 41 52 45 46 55 |PEG WORDS CAREFU|
000041B0: 4C 4C 59 22 00 CF 49 2B 62 99 C7 28 31 38 29 3B |LLY"..I+b..(18);|
000041C0: 3A 8D 32 39 39 30 3A 99 C7 28 31 34 36 29 3B 00 |:.2990:..(146);.|
000041D0: DB 49 34 62 81 49 B2 31 A4 31 30 00 EA 49 3E 62 |.I4b.I.1.10..I>b|
000041E0: 41 48 B2 4C 4D 41 52 47 49 4E 00 09 4A 48 62 56 |AH.LMARGIN..JHbV|
000041F0: 54 25 B2 32 AC 49 AA 31 3A 8D 33 32 31 30 30 3A |T%.2.I.1:.32100:|
00004200: 97 32 31 31 2C 41 48 AB 31 00 2D 4A 49 62 99 22 |.211,AH.1.-JIb."|
00004210: 28 22 3B 4C 4F 57 AB 31 AA 49 3B 22 29 20 22 3B |(";LOW.1.I;") ";|
00004220: 50 45 47 24 28 4C 4F 57 AB 31 AA 49 29 00 34 4A |PEG$(LOW.1.I).4J|
00004230: 52 62 82 49 00 57 4A 5C 62 81 49 B2 4C 4F 57 A4 |Rb.I.WJ\b.I.LOW.|
00004240: 48 49 47 48 3A 42 45 46 24 28 49 29 B2 50 45 47 |HIGH:BEF$(I).PEG|
00004250: 24 28 49 29 3A 82 49 00 8E 4A 66 62 8D 33 30 30 |$(I):.I..Jfb.300|
00004260: 32 34 3A 99 22 50 55 53 48 20 3C 53 50 41 43 45 |24:."PUSH <SPACE|
00004270: 20 42 41 52 3E 20 46 4F 52 20 54 45 53 54 20 4F | BAR> FOR TEST O|
00004280: 4E 20 50 45 47 20 57 4F 52 44 53 2E 22 3B 00 A4 |N PEG WORDS.";..|
00004290: 4A 67 62 81 58 58 B2 31 A4 31 30 3A A1 58 58 24 |Jgb.XX.1.10:.XX$|
000042A0: 3A 82 58 58 00 AE 4A 70 62 8D 39 35 32 30 00 BF |:.XX..Jpb.9520..|
000042B0: 4A 71 62 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |Jqb. QN.1 . 110.|
000042C0: DD 4A 7A 62 8F 20 54 45 53 54 20 41 44 56 41 4E |.Jzb. TEST ADVAN|
000042D0: 43 45 44 20 50 45 47 20 57 4F 52 44 53 00 13 4B |CED PEG WORDS..K|
000042E0: 84 62 46 49 4C 45 24 B2 22 52 45 43 41 4C 4C 20 |.bFILE$."RECALL |
000042F0: 59 4F 55 52 20 50 45 47 20 57 4F 52 44 53 20 49 |YOUR PEG WORDS I|
00004300: 4E 20 4F 52 44 45 52 22 3A 41 4E 24 B2 22 2E 2E |N ORDER":AN$."..|
00004310: 2E 2E 22 00 31 4B 8E 62 81 49 B2 4C 4F 57 A4 48 |..".1K.b.I.LOW.H|
00004320: 49 47 48 3A 54 4D 50 24 28 49 29 B2 22 22 3A 82 |IGH:TMP$(I)."":.|
00004330: 49 00 53 4B 98 62 4C 4D 41 52 47 49 4E B2 32 3A |I.SK.bLMARGIN.2:|
00004340: 8D 32 30 30 30 3A 8B 51 55 49 54 B2 31 89 32 30 |.2000:.QUIT.1.20|
00004350: 30 30 30 00 64 4B 99 62 8B 20 51 4E B2 31 20 A7 |000.dK.b. QN.1 .|
00004360: 20 31 31 30 00 7E 4B A2 62 8D 33 30 30 30 3A 8F | 110.~K.b.3000:.|
00004370: 20 52 45 43 41 4C 4C 20 54 45 53 54 45 52 00 8F | RECALL TESTER..|
00004380: 4B A3 62 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |K.b. QN.1 . 110.|
00004390: C1 4B AC 62 54 4D 41 58 B2 31 30 3A 8D 33 37 30 |.K.bTMAX.10:.370|
000043A0: 30 3A 8B 43 24 B2 22 59 22 89 32 35 31 33 30 3A |0:.C$."Y".25130:|
000043B0: 8F 20 57 49 4E 4E 45 52 53 20 4D 45 53 53 41 47 |. WINNERS MESSAG|
000043C0: 45 00 D2 4B AD 62 8B 20 51 4E B2 31 20 A7 20 31 |E..K.b. QN.1 . 1|
000043D0: 31 30 00 02 4C B6 62 8B 41 4E 53 B1 B2 37 A7 50 |10..L.b.ANS..7.P|
000043E0: 4C 4D 41 58 B2 50 4C 4D 41 58 AA 31 30 3A 8B 50 |LMAX.PLMAX.10:.P|
000043F0: 4C 4D 41 58 B1 B2 36 30 A7 50 4C 4D 41 58 B2 31 |LMAX..60.PLMAX.1|
00004400: 30 30 00 16 4C C0 62 8B 50 4C 4D 41 58 B1 36 30 |00..L.b.PLMAX.60|
00004410: 89 32 30 30 30 30 00 31 4C CA 62 99 C7 28 31 34 |.20000.1L.b..(14|
00004420: 37 29 3B 3A 56 54 25 B2 31 31 3A 8D 33 32 31 30 |7);:VT%.11:.3210|
00004430: 30 00 6F 4C CB 62 99 22 59 4F 55 20 4E 4F 57 20 |0.oL.b."YOU NOW |
00004440: 4B 4E 4F 57 20 22 3B 50 4C 4D 41 58 3B 22 20 50 |KNOW ";PLMAX;" P|
00004450: 45 47 20 57 4F 52 44 53 2E 20 44 4F 20 59 4F 55 |EG WORDS. DO YOU|
00004460: 22 3A 56 54 25 B2 31 33 3A 8D 33 32 31 30 30 00 |":VT%.13:.32100.|
00004470: 9D 4C CC 62 99 22 57 41 4E 54 20 54 4F 20 4C 45 |.L.b."WANT TO LE|
00004480: 41 52 4E 20 41 4E 4F 54 48 45 52 20 53 45 54 3F |ARN ANOTHER SET?|
00004490: 20 28 59 2F 4E 29 20 22 3B 3A 8D 37 31 00 AE 4C | (Y/N) ";:.71..L|
000044A0: CD 62 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 C0 |.b. QN.1 . 110..|
000044B0: 4C D4 62 8B 43 24 B2 22 4E 22 89 32 35 33 33 30 |L.b.C$."N".25330|
000044C0: 00 D2 4C DE 62 8B 43 24 B2 22 59 22 89 32 35 30 |..L.b.C$."Y".250|
000044D0: 33 30 00 DD 4C E8 62 89 32 35 32 39 30 00 00 4D |30..L.b.25290..M|
000044E0: F2 62 8B A8 28 28 44 53 4B 24 B2 22 59 22 29 AF |.b..((DSK$."Y").|
000044F0: 28 50 4C 4D 41 58 B1 43 29 29 A7 32 35 33 34 30 |(PLMAX.C)).25340|
00004500: 00 2D 4D F3 62 51 55 49 54 B2 32 3A 53 44 24 B2 |.-M.bQUIT.2:SD$.|
00004510: 22 42 22 3A 52 57 24 B2 22 57 52 49 54 45 20 22 |"B":RW$."WRITE "|
00004520: 3A 8D 37 32 32 30 3A 51 55 49 54 B2 30 00 38 4D |:.7220:QUIT.0.8M|
00004530: FC 62 89 32 30 30 30 30 00 56 4D 90 65 8F 20 52 |.b.20000.VM.e. R|
00004540: 45 56 49 45 57 2F 43 48 41 4E 47 45 20 50 45 47 |EVIEW/CHANGE PEG|
00004550: 20 57 4F 52 44 53 00 82 4D 9A 65 8B 50 4C 4D 41 | WORDS..M.e.PLMA|
00004560: 58 B3 31 30 A7 46 49 4C 45 24 B2 22 50 31 35 22 |X.10.FILE$."P15"|
00004570: 3A 8D 37 35 30 30 3A 50 56 24 B2 22 22 3A 89 31 |:.7500:PV$."":.1|
00004580: 31 30 00 98 4D A4 65 46 49 4C 45 24 B2 22 50 31 |10..M.eFILE$."P1|
00004590: 34 22 3A 8D 37 35 30 30 00 A9 4D A5 65 8B 20 51 |4":.7500..M.e. Q|
000045A0: 4E B2 31 20 A7 20 31 31 30 00 DD 4D AE 65 99 22 |N.1 . 110..M.e."|
000045B0: 93 22 3A 99 C7 28 31 34 37 29 3B 3A 8D 33 30 30 |.":..(147);:.300|
000045C0: 32 34 3A 99 22 50 52 45 53 53 20 3C 22 3B C7 28 |24:."PRESS <";.(|
000045D0: 31 38 29 3B 22 52 45 54 55 52 4E 22 3B 00 FD 4D |18);"RETURN";..M|
000045E0: B0 65 99 22 92 3E 20 46 4F 52 20 41 44 56 41 4E |.e.".> FOR ADVAN|
000045F0: 43 45 44 20 4D 45 4E 55 2E 2E 2E 22 3B 00 0E 4E |CED MENU...";..N|
00004600: B1 65 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 46 |.e. QN.1 . 110.F|
00004610: 4E B8 65 56 54 25 B2 31 30 3A 8D 33 32 31 30 30 |N.eVT%.10:.32100|
00004620: 3A 8D 33 30 30 30 30 3A 99 22 57 48 49 43 48 20 |:.30000:."WHICH |
00004630: 47 52 4F 55 50 20 4F 46 20 31 30 20 50 45 47 20 |GROUP OF 10 PEG |
00004640: 57 4F 52 44 53 22 00 88 4E BA 65 56 54 25 B2 31 |WORDS"..N.eVT%.1|
00004650: 32 3A 8D 20 33 32 31 30 30 3A 99 22 44 4F 20 59 |2:. 32100:."DO Y|
00004660: 4F 55 20 57 41 4E 54 20 54 4F 20 52 45 56 49 45 |OU WANT TO REVIE|
00004670: 57 3F 20 28 31 20 54 4F 22 3B 50 4C 4D 41 58 AD |W? (1 TO";PLMAX.|
00004680: 31 30 3B 22 29 20 22 3B 00 A2 4E C2 65 8D 37 31 |10;") ";..N.e.71|
00004690: 3A 8B 28 43 24 B2 C7 28 31 33 29 29 89 32 36 31 |:.(C$..(13)).261|
000046A0: 39 30 00 B3 4E C3 65 8B 20 51 4E B2 31 20 A7 20 |90..N.e. QN.1 . |
000046B0: 31 31 30 00 EC 4E CC 65 8D 38 30 3A 43 24 B2 4C |110..N.e.80:C$.L|
000046C0: 24 3A 54 4D 41 58 B2 C5 28 43 24 29 3A 8B 28 54 |$:TMAX..(C$):.(T|
000046D0: 4D 41 58 B1 50 4C 4D 41 58 AD 31 30 29 B0 28 54 |MAX.PLMAX.10).(T|
000046E0: 4D 41 58 B3 31 29 89 32 36 30 33 30 00 FD 4E CD |MAX.1).26030..N.|
000046F0: 65 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 19 4F |e. QN.1 . 110..O|
00004700: D6 65 48 49 47 48 B2 31 30 AC 54 4D 41 58 3A 4C |.eHIGH.10.TMAX:L|
00004710: 4F 57 B2 48 49 47 48 AB 39 00 52 4F E0 65 8B 54 |OW.HIGH.9.RO.e.T|
00004720: 4D 41 58 B1 36 89 32 38 30 30 30 3A 8F 20 4A 55 |MAX.6.28000:. JU|
00004730: 53 54 20 44 49 53 50 4C 41 59 20 54 48 45 20 52 |ST DISPLAY THE R|
00004740: 45 4D 41 49 4E 49 4E 47 20 50 45 47 20 57 4F 52 |EMAINING PEG WOR|
00004750: 44 53 00 82 4F EA 65 46 49 4C 45 24 B2 22 52 45 |DS..O.eFILE$."RE|
00004760: 56 49 45 57 2F 43 48 41 4E 47 45 20 59 4F 55 52 |VIEW/CHANGE YOUR|
00004770: 20 50 45 47 20 57 4F 52 44 53 22 3A 41 4E 24 B2 | PEG WORDS":AN$.|
00004780: 22 22 00 BB 4F F4 65 8B 54 4D 41 58 B1 37 89 32 |""..O.e.TMAX.7.2|
00004790: 38 30 30 30 3A 8F 20 4A 55 53 54 20 44 49 53 50 |8000:. JUST DISP|
000047A0: 4C 41 59 20 54 48 45 20 52 45 4D 41 49 4E 49 4E |LAY THE REMAININ|
000047B0: 47 20 50 45 47 20 57 4F 52 44 53 00 DB 4F FE 65 |G PEG WORDS..O.e|
000047C0: 81 4A B2 4C 4F 57 A4 48 49 47 48 3A 54 4D 50 24 |.J.LOW.HIGH:TMP$|
000047D0: 28 4A 29 B2 50 45 47 24 28 4A 29 00 03 50 FF 65 |(J).PEG$(J)..P.e|
000047E0: 4D 53 47 24 28 4A 29 B2 22 28 22 AA C4 28 4A 29 |MSG$(J)."("..(J)|
000047F0: AA 22 29 22 3A 42 45 46 24 28 4A 29 B2 22 58 22 |.")":BEF$(J)."X"|
00004800: 3A 82 4A 00 1D 50 08 66 4C 4D 41 52 47 49 4E B2 |:.J..P.fLMARGIN.|
00004810: 32 3A 43 4F 4C B2 31 3A 8D 32 30 30 30 00 2E 50 |2:COL.1:.2000..P|
00004820: 09 66 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 47 |.f. QN.1 . 110.G|
00004830: 50 12 66 8D 33 33 30 30 3A 8F 20 53 54 52 49 50 |P.f.3300:. STRIP|
00004840: 20 42 4C 41 4E 4B 53 00 7B 50 1C 66 81 49 B2 4C | BLANKS.{P.f.I.L|
00004850: 4F 57 A4 48 49 47 48 3A 8F 20 41 44 44 20 41 4E |OW.HIGH:. ADD AN|
00004860: 59 20 43 48 41 4E 47 45 44 20 50 45 47 20 57 4F |Y CHANGED PEG WO|
00004870: 52 44 53 20 54 4F 20 50 45 47 24 00 8D 50 1D 66 |RDS TO PEG$..P.f|
00004880: 56 54 25 B2 31 32 3A 8D 33 32 31 30 30 00 A4 50 |VT%.12:.32100..P|
00004890: 26 66 8B 41 46 54 24 28 49 29 B2 22 20 22 89 32 |&f.AFT$(I)." ".2|
000048A0: 36 31 37 30 00 D4 50 27 66 8F 20 47 55 41 52 44 |6170..P'f. GUARD|
000048B0: 20 41 47 41 49 4E 53 54 20 42 4C 41 4E 4B 20 45 | AGAINST BLANK E|
000048C0: 4E 54 52 49 45 53 20 46 4F 52 20 50 45 47 20 57 |NTRIES FOR PEG W|
000048D0: 4F 52 44 53 00 F5 50 30 66 8B 41 46 54 24 28 49 |ORDS..P0f.AFT$(I|
000048E0: 29 B3 B1 22 22 A7 50 45 47 24 28 49 29 B2 41 46 |).."".PEG$(I).AF|
000048F0: 54 24 28 49 29 00 FC 50 3A 66 82 49 00 07 51 44 |T$(I)..P:f.I..QD|
00004900: 66 89 32 36 30 33 30 00 3E 51 4E 66 8B 44 53 4B |f.26030.>QNf.DSK|
00004910: 24 B2 22 59 22 A7 51 55 49 54 B2 32 3A 53 44 24 |$."Y".QUIT.2:SD$|
00004920: B2 22 42 22 3A 52 57 24 B2 22 57 52 49 54 45 20 |."B":RW$."WRITE |
00004930: 22 3A 8D 37 32 32 30 3A 51 55 49 54 B2 30 00 49 |":.7220:QUIT.0.I|
00004940: 51 58 66 89 32 30 30 30 30 00 67 51 78 69 8F 20 |QXf.20000.gQxi. |
00004950: 50 52 41 43 54 49 43 45 20 57 49 54 48 20 50 45 |PRACTICE WITH PE|
00004960: 47 20 57 4F 52 44 53 00 A3 51 82 69 8B 50 4C 4D |G WORDS..Q.i.PLM|
00004970: 41 58 B3 31 30 89 32 36 30 31 30 3A 8F 20 4E 4F |AX.10.26010:. NO|
00004980: 20 50 45 52 53 4F 4E 41 4C 20 4C 4F 43 49 20 57 | PERSONAL LOCI W|
00004990: 45 52 45 20 4C 45 41 52 4E 45 44 2E 2E 2E 4C 45 |ERE LEARNED...LE|
000049A0: 41 56 45 00 B9 51 8C 69 46 49 4C 45 24 B2 22 4C |AVE..Q.iFILE$."L|
000049B0: 31 33 22 3A 8D 37 35 30 30 00 CA 51 8D 69 8B 20 |13":.7500..Q.i. |
000049C0: 51 4E B2 31 20 A7 20 31 31 30 00 E0 51 91 69 46 |QN.1 . 110..Q.iF|
000049D0: 49 4C 45 24 B2 22 4C 31 34 22 3A 8D 37 35 30 30 |ILE$."L14":.7500|
000049E0: 00 F1 51 92 69 8B 20 51 4E B2 31 20 A7 20 31 31 |..Q.i. QN.1 . 11|
000049F0: 30 00 12 52 96 69 4B 4D 41 58 B2 50 4C 4D 41 58 |0..R.iKMAX.PLMAX|
00004A00: 3A 8B 50 4C 4D 41 58 B1 36 30 A7 4B 4D 41 58 B2 |:.PLMAX.60.KMAX.|
00004A10: 36 30 00 38 52 97 69 8F 20 4C 49 4D 49 54 20 4E |60.8R.i. LIMIT N|
00004A20: 55 4D 42 45 52 20 4F 46 20 44 49 53 50 4C 41 59 |UMBER OF DISPLAY|
00004A30: 45 44 20 57 4F 52 44 53 00 6D 52 A0 69 57 24 B2 |ED WORDS.mR.iW$.|
00004A40: 22 40 22 3A 8D 31 37 30 30 3A 8D 31 33 30 30 30 |"@":.1700:.13000|
00004A50: 3A 57 24 B2 22 22 3A 48 49 47 48 B2 54 4D 41 58 |:W$."":HIGH.TMAX|
00004A60: 3A 4C 4F 57 B2 4C 58 3A 55 24 B2 22 22 00 7E 52 |:LOW.LX:U$."".~R|
00004A70: A1 69 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 B2 |.i. QN.1 . 110..|
00004A80: 52 AA 69 58 B2 54 4D 41 58 AB 4C 58 AA 31 3A 58 |R.iX.TMAX.LX.1:X|
00004A90: 4E 55 4D B2 58 3A 58 4D 41 58 B2 54 4D 41 58 3A |NUM.X:XMAX.TMAX:|
00004AA0: 56 24 B2 22 40 22 3A 8D 31 35 30 30 3A 56 24 B2 |V$."@":.1500:V$.|
00004AB0: 22 22 00 D7 52 B4 69 81 49 B2 4C 58 A4 54 4D 41 |""..R.i.I.LX.TMA|
00004AC0: 58 3A 54 4D 50 24 28 49 29 B2 50 45 47 24 28 52 |X:TMP$(I).PEG$(R|
00004AD0: 44 52 25 28 49 29 29 00 0C 53 B5 69 4D 53 47 24 |DR%(I))..S.iMSG$|
00004AE0: 28 49 29 B2 22 28 22 AA C4 28 52 44 52 25 28 49 |(I)."("..(RDR%(I|
00004AF0: 29 29 AA 22 29 22 3A 41 46 54 24 28 49 29 B2 C4 |)).")":AFT$(I)..|
00004B00: 28 52 44 52 25 28 49 29 29 3A 82 49 00 25 53 BE |(RDR%(I)):.I.%S.|
00004B10: 69 8D 31 30 30 30 3A 8F 20 57 4F 52 44 20 44 49 |i.1000:. WORD DI|
00004B20: 53 50 4C 41 59 00 36 53 BF 69 8B 20 51 4E B2 31 |SPLAY.6S.i. QN.1|
00004B30: 20 A7 20 31 31 30 00 6B 53 C8 69 81 49 B2 4C 58 | . 110.kS.i.I.LX|
00004B40: A4 54 4D 41 58 3A 52 44 52 25 28 49 29 B2 C5 28 |.TMAX:RDR%(I)..(|
00004B50: 41 46 54 24 28 49 29 29 3A 41 46 54 24 28 49 29 |AFT$(I)):AFT$(I)|
00004B60: B2 42 45 46 24 28 49 29 3A 82 49 00 8B 53 C9 69 |.BEF$(I):.I..S.i|
00004B70: 99 C7 28 31 34 37 29 3B 3A 56 24 B2 22 40 22 3A |..(147);:V$."@":|
00004B80: 8D 39 30 31 30 3A 56 24 B2 22 22 00 AD 53 D2 69 |.9010:V$.""..S.i|
00004B90: 81 49 B2 4C 58 A4 54 4D 41 58 3A 42 45 46 24 28 |.I.LX.TMAX:BEF$(|
00004BA0: 49 29 B2 41 46 54 24 28 49 29 3A 82 49 00 C0 53 |I).AFT$(I):.I..S|
00004BB0: DC 69 8F 20 57 4F 52 44 20 44 49 53 50 4C 41 59 |.i. WORD DISPLAY|
00004BC0: 00 F0 53 E6 69 58 B2 54 4D 41 58 AB 4C 58 AA 31 |..S.iX.TMAX.LX.1|
00004BD0: 3A 59 B2 B5 28 58 AD 31 30 29 3A 4D 44 B2 58 AB |:Y..(X.10):MD.X.|
00004BE0: 28 31 30 AC 59 29 3A 8F 20 4D 4F 44 55 4C 55 53 |(10.Y):. MODULUS|
00004BF0: 00 19 54 F0 69 8B 4D 44 B1 30 A7 59 B2 59 AA 31 |..T.i.MD.0.Y.Y.1|
00004C00: 3A 8F 20 44 49 53 50 4C 41 59 20 31 20 45 58 54 |:. DISPLAY 1 EXT|
00004C10: 52 41 20 53 43 52 45 45 4E 00 24 54 FA 69 4C 4F |RA SCREEN.$T.iLO|
00004C20: 57 B2 4C 58 00 44 54 04 6A 81 49 49 B2 31 A4 59 |W.LX.DT.j.II.1.Y|
00004C30: 3A 8F 20 4E 55 4D 42 45 52 20 4F 46 20 53 43 52 |:. NUMBER OF SCR|
00004C40: 45 45 4E 53 00 84 54 0E 6A 46 49 4C 45 24 B2 22 |EENS..T.jFILE$."|
00004C50: 45 4E 54 45 52 20 49 54 45 4D 53 20 46 52 4F 4D |ENTER ITEMS FROM|
00004C60: 20 53 45 54 20 22 AA C4 28 49 49 29 AA 22 20 49 | SET "..(II)." I|
00004C70: 4E 20 4F 52 44 45 52 22 3A 41 4E 24 B2 22 2E 2E |N ORDER":AN$."..|
00004C80: 2E 2E 2E 22 00 A3 54 18 6A 48 49 47 48 B2 4C 4F |..."..T.jHIGH.LO|
00004C90: 57 AA 39 3A 4C 4D 41 52 47 49 4E B2 31 30 3A 41 |W.9:LMARGIN.10:A|
00004CA0: 59 B2 35 00 C5 54 22 6A 8B 28 4D 44 B3 B1 30 29 |Y.5..T"j.(MD..0)|
00004CB0: AF 28 49 49 B2 59 29 A7 48 49 47 48 B2 4C 4F 57 |.(II.Y).HIGH.LOW|
00004CC0: AA 4D 44 AB 31 00 EA 54 2C 6A 81 49 B2 4C 4F 57 |.MD.1..T,j.I.LOW|
00004CD0: A4 48 49 47 48 3A 4D 53 47 24 28 49 29 B2 22 28 |.HIGH:MSG$(I)."(|
00004CE0: 22 AA C4 28 49 29 AA 22 29 22 00 16 55 2D 6A 8B |"..(I).")"..U-j.|
00004CF0: 50 57 B2 30 A7 4D 53 47 24 28 49 29 B2 4D 53 47 |PW.0.MSG$(I).MSG|
00004D00: 24 28 49 29 AA 22 20 22 AA 50 45 47 24 28 49 29 |$(I)." ".PEG$(I)|
00004D10: 3A 41 59 B2 31 34 00 28 55 36 6A 54 4D 50 24 28 |:AY.14.(U6jTMP$(|
00004D20: 49 29 B2 22 22 3A 82 49 00 38 55 40 6A 43 4F 4C |I)."":.I.8U@jCOL|
00004D30: B2 31 3A 8D 32 30 30 30 00 49 55 41 6A 8B 20 51 |.1:.2000.IUAj. Q|
00004D40: 4E B2 31 20 A7 20 31 31 30 00 58 55 4A 6A 4C 4F |N.1 . 110.XUJjLO|
00004D50: 57 B2 4C 4F 57 AA 31 30 00 60 55 54 6A 82 49 49 |W.LOW.10.`UTj.II|
00004D60: 00 7C 55 5E 6A 8F 20 44 49 53 50 4C 41 59 20 43 |.|U^j. DISPLAY C|
00004D70: 4F 52 52 45 43 54 20 57 4F 52 44 53 00 8C 55 68 |ORRECT WORDS..Uh|
00004D80: 6A 4C 4F 57 B2 4C 58 3A 41 58 B2 30 00 98 55 72 |jLOW.LX:AX.0..Ur|
00004D90: 6A 81 49 49 B2 31 A4 59 00 C5 55 7C 6A 48 49 47 |j.II.1.Y..U|jHIG|
00004DA0: 48 B2 4C 4F 57 AA 39 3A 8B 28 4D 44 B3 B1 30 29 |H.LOW.9:.(MD..0)|
00004DB0: AF 28 49 49 B2 59 29 A7 48 49 47 48 B2 4C 4F 57 |.(II.Y).HIGH.LOW|
00004DC0: AA 4D 44 AB 31 00 F3 55 86 6A 81 49 B2 4C 4F 57 |.MD.1..U.j.I.LOW|
00004DD0: A4 48 49 47 48 3A 4D 53 47 24 28 49 29 B2 22 28 |.HIGH:MSG$(I)."(|
00004DE0: 22 AA C4 28 49 29 AA 22 29 22 3A 82 49 3A 8D 33 |"..(I).")":.I:.3|
00004DF0: 30 30 30 00 04 56 87 6A 8B 20 51 4E B2 31 20 A7 |000..V.j. QN.1 .|
00004E00: 20 31 31 30 00 1D 56 90 6A 4C 4F 57 B2 4C 4F 57 | 110..V.jLOW.LOW|
00004E10: AA 31 30 3A 41 58 B2 41 58 AA 41 4E 53 00 25 56 |.10:AX.AX.ANS.%V|
00004E20: 9A 6A 82 49 49 00 4C 56 A4 6A 58 B2 B5 28 31 30 |.j.II.LV.jX..(10|
00004E30: 30 AC 41 58 AD 28 54 4D 41 58 AB 4C 58 AA 31 29 |0.AX.(TMAX.LX.1)|
00004E40: AA 30 2E 35 29 3A 41 4E 53 B2 41 58 00 71 56 AE |.0.5):ANS.AX.qV.|
00004E50: 6A 8D 33 30 30 30 30 3A 56 54 25 B2 32 30 3A 8D |j.30000:VT%.20:.|
00004E60: 33 32 31 30 30 3A 9E 4D 55 3A 99 C7 28 31 38 29 |32100:.MU:..(18)|
00004E70: 3B 00 B9 56 AF 6A 99 22 54 4F 54 41 4C 20 43 4F |;..V.j."TOTAL CO|
00004E80: 52 52 45 43 54 3A 22 3B 41 58 3B 22 9D 22 3B 22 |RRECT:";AX;".";"|
00004E90: 20 4F 55 54 20 4F 46 22 3B 54 4D 41 58 AB 4C 58 | OUT OF";TMAX.LX|
00004EA0: AA 31 3B 22 9D 22 3B 22 20 28 4F 52 22 3B 58 3B |.1;".";" (OR";X;|
00004EB0: 22 9D 22 3B 22 25 29 92 22 00 E3 56 B8 6A 8B 55 |".";"%)."..V.j.U|
00004EC0: 24 B2 22 40 22 A7 8E 3A 8F 20 42 41 43 4B 20 54 |$."@"..:. BACK T|
00004ED0: 4F 20 42 45 47 47 49 4E 45 52 53 20 53 45 43 54 |O BEGGINERS SECT|
00004EE0: 49 4F 4E 00 19 57 C2 6A 56 54 25 B2 32 32 3A 8D |ION..W.jVT%.22:.|
00004EF0: 33 32 31 30 30 3A 99 22 59 4F 55 52 20 53 43 4F |32100:."YOUR SCO|
00004F00: 52 45 3A 20 22 3B C7 28 31 38 29 3B 53 43 AC 41 |RE: ";.(18);SC.A|
00004F10: 58 3B C7 28 31 34 36 29 3B 00 2E 57 CC 6A 8B 41 |X;.(146);..W.j.A|
00004F20: 58 AC 53 43 B3 B2 54 53 A7 32 37 33 35 30 00 4F |X.SC..TS.27350.O|
00004F30: 57 CD 6A 54 53 B2 41 58 AC 53 43 3A 97 32 31 31 |W.jTS.AX.SC:.211|
00004F40: 2C 31 39 3A 99 C7 28 37 29 3B C7 28 37 29 3B 00 |,19:..(7);.(7);.|
00004F50: 77 57 CE 6A 46 49 4C 45 24 B2 22 48 49 47 48 45 |wW.jFILE$."HIGHE|
00004F60: 53 54 20 53 43 4F 52 45 3A 20 22 AA C4 28 54 53 |ST SCORE: "..(TS|
00004F70: 29 3A 53 45 43 B2 34 00 8B 57 CF 6A 8D 33 32 30 |):SEC.4..W.j.320|
00004F80: 30 30 3A 99 C7 28 31 34 36 29 3B 00 BA 57 D6 6A |00:..(146);..W.j|
00004F90: 97 32 31 31 2C 31 39 3A 99 22 48 49 47 48 45 53 |.211,19:."HIGHES|
00004FA0: 54 20 53 43 4F 52 45 3A 20 22 3B C7 28 31 38 29 |T SCORE: ";.(18)|
00004FB0: 3B 54 53 3B C7 28 31 34 36 29 00 DF 57 E0 6A 8D |;TS;.(146)..W.j.|
00004FC0: 39 35 30 30 3A 8B 55 24 B2 22 40 22 A7 8E 3A 8F |9500:.U$."@"..:.|
00004FD0: 20 54 4F 20 53 45 43 54 49 4F 4E 20 27 45 27 00 | TO SECTION 'E'.|
00004FE0: F0 57 E1 6A 8B 20 51 4E B2 31 20 A7 20 31 31 30 |.W.j. QN.1 . 110|
00004FF0: 00 17 58 EA 6A 54 4D 41 58 B2 54 4D 41 58 AB 4C |..X.jTMAX.TMAX.L|
00005000: 58 AA 31 3A 8D 33 37 30 30 3A 8B 43 24 B2 22 59 |X.1:.3700:.C$."Y|
00005010: 22 89 32 37 30 33 30 00 22 58 F4 6A 89 32 30 30 |".27030."X.j.200|
00005020: 30 30 00 33 58 FF 6A 8B 20 51 4E B2 31 20 A7 20 |00.3X.j. QN.1 . |
00005030: 31 31 30 00 51 58 60 6D 8F 20 48 49 47 48 45 52 |110.QX`m. HIGHER|
00005040: 20 50 45 47 20 57 4F 52 44 20 44 49 53 50 4C 41 | PEG WORD DISPLA|
00005050: 59 00 7D 58 6A 6D 99 C7 28 31 34 37 29 3B 3A 46 |Y.}Xjm..(147);:F|
00005060: 49 4C 45 24 B2 22 52 45 56 49 45 57 20 54 48 45 |ILE$."REVIEW THE|
00005070: 53 45 20 50 45 47 20 57 4F 52 44 53 22 00 98 58 |SE PEG WORDS"..X|
00005080: 6B 6D 99 C7 28 31 38 29 3B 3A 8D 32 39 39 30 3A |km..(18);:.2990:|
00005090: 99 C7 28 31 34 36 29 3B 00 BC 58 74 6D 81 4A B2 |..(146);..Xtm.J.|
000050A0: 31 A4 31 30 3A 56 54 25 B2 32 AC 4A AA 31 3A 8D |1.10:VT%.2.J.1:.|
000050B0: 33 32 31 30 30 3A 97 32 31 31 2C 31 00 E3 58 75 |32100:.211,1..Xu|
000050C0: 6D 99 22 28 22 3B 4C 4F 57 AB 31 AA 4A 3B 22 29 |m."(";LOW.1.J;")|
000050D0: 20 22 3B 50 45 47 24 28 4C 4F 57 AB 31 AA 4A 29 | ";PEG$(LOW.1.J)|
000050E0: 3A 82 4A 00 FA 58 7E 6D 8D 39 35 30 30 3A 8B 20 |:.J..X~m.9500:. |
000050F0: 51 4E B2 31 20 A7 20 31 31 30 00 05 59 83 6D 89 |QN.1 . 110..Y.m.|
00005100: 32 36 30 33 30 00 12 59 30 75 97 32 31 31 2C 30 |26030..Y0u.211,0|
00005110: 3A 8E 00 2E 59 47 75 99 3A 99 22 13 22 3A 97 20 |:...YGu.:.".":. |
00005120: 32 31 34 2C 32 33 3A 99 22 91 22 3B 3A 8E 00 42 |214,23:.".";:..B|
00005130: 59 48 75 56 54 25 B2 32 34 3A 8D 33 32 31 30 30 |YHuVT%.24:.32100|
00005140: 3A 8E 00 5B 59 18 79 99 22 13 22 3B 3A 97 20 32 |:..[Y.y.".";:. 2|
00005150: 31 34 2C 32 33 3A 99 22 91 22 3B 00 72 59 1B 79 |14,23:.".";.rY.y|
00005160: 99 C7 28 31 38 29 3B 22 5E 22 3B C7 28 31 34 36 |..(18);"^";.(146|
00005170: 29 3B 00 8E 59 1C 79 99 22 20 46 4F 52 20 50 52 |);..Y.y." FOR PR|
00005180: 45 56 49 4F 55 53 20 4C 49 4E 45 3B 20 22 00 94 |EVIOUS LINE; "..|
00005190: 59 1D 79 8E 00 A8 59 00 7D 8F 20 46 4C 41 53 48 |Y.y...Y.}. FLASH|
000051A0: 20 52 4F 55 54 49 4E 45 00 D9 59 0A 7D 52 58 B2 | ROUTINE..Y.}RX.|
000051B0: C2 28 32 31 31 29 3A 81 20 54 44 B2 31 20 A4 20 |.(211):. TD.1 . |
000051C0: 36 3A 53 45 43 B2 30 2E 33 3A 97 20 32 31 31 2C |6:SEC.0.3:. 211,|
000051D0: 52 58 3A 8D 20 32 39 30 30 00 0A 5A 14 7D 99 22 |RX:. 2900..Z.}."|
000051E0: 12 22 3B 46 49 4C 45 24 3B 3A 8D 20 32 39 30 30 |.";FILE$;:. 2900|
000051F0: 3A 97 20 32 31 31 2C 52 58 3A 99 22 92 22 3B 46 |:. 211,RX:.".";F|
00005200: 49 4C 45 24 3B 3A 82 20 54 44 00 19 5A 28 7D 97 |ILE$;:. TD..Z(}.|
00005210: 20 32 31 31 2C 52 58 3A 8E 00 2A 5A 64 7D 8F 20 | 211,RX:..*Zd}. |
00005220: 56 54 20 52 4F 55 54 49 4E 45 00 50 5A 6E 7D 52 |VT ROUTINE.PZn}R|
00005230: 58 B2 C2 28 32 31 31 29 3A 99 C8 28 56 54 24 2C |X..(211):..(VT$,|
00005240: 56 54 25 29 3B 3A 97 20 32 31 31 2C 52 58 3A 8E |VT%);:. 211,RX:.|
00005250: 00 61 5A C8 7D 8F 20 45 4C 20 52 4F 55 54 49 4E |.aZ.}. EL ROUTIN|
00005260: 45 00 82 5A DC 7D 52 58 B2 C2 28 32 31 31 29 3A |E..Z.}RX..(211):|
00005270: 8B 20 52 58 B1 34 30 20 A7 20 52 58 B2 52 58 AB |. RX.40 . RX.RX.|
00005280: 34 30 00 A0 5A E1 7D 99 C8 28 45 4C 24 2C 33 39 |40..Z.}..(EL$,39|
00005290: AB 52 58 29 3B 3A 97 20 32 31 31 2C 52 58 3A 8E |.RX);:. 211,RX:.|
000052A0: 00 00 00 |... |
....... LESSON 3: PEG WORDS.J...QQ$.". I
NVALID ENTRY! PLEASE ENTER AGAIN.".....V
T$."........................":MU.49637:E
R.49637:NM.49668:DE.49667:GR.49152.H....
BEF$(60),AFT$(60),TMP$(60),HF%(9),LF%(9)
.U...LD.49594.....EL$."
":. 53281,0:. 53
280,0......GM$(9):.".".E. ..MSG$(60):. 1
,8,15.[.#..S9$(23):ZE$.G(0).V.'..WRDS$(4
,47),PEG$(100)..<..100...F..XX.1.10:.XX
$:.XX:....G..XX.1.10:.XX$:.XX...H.. 204,
0.K.I..C$:.C$."".73...J.C$.G(F(C$.ZE$).1
27):.9600:. 204,1:....P.. SPECIAL INPUT
ROUTINE.?.Q.L$."":L.9:H.B(211):V.B(214).
1:CX.F(C$):. 83.R.R..72:CX.F(C$):.CX.13.
.H(EL$,L.C(L$)):.211,H.1:....S..CX..20 .
87...T.R$."X".I(L$,1).R$...U..L$."".H.H.
1:L$.J(L$,1,C(L$).1)...W..CX.29 .R$."".H
.H.1:L$.L$.H(R$,1)...X..C$." ".C$."":CX.
0:H.H.1...Y..C(L$).C(C$).L..G(7);:.82.K.
Z..C$;:H.H.1:VT%.V:.32100:.211,H:. QN.1
. ..G.[.L$.L$.C$:R$.J(R$,2):.82...D..130
00:.10000:. INITIALIZATION.H.N.PGM$(1)."
INTRODUCTION TO LESSON #3":.ER:U$."":W$.
"":V$.""...X.PGM$(2)."REVIEW STANDARD SO
UNDS".....PGM$(3)."LEARN A SET OF PEG WO
RDS".A...PGM$(4)."TRANSLATE PEG WORDS TO
NUMBERS".N...PGM$(5)."ASSOCIATE ITEMS W
ITH PEG WORDS"... .PGM$(6)."MEMORIZE LIS
TS WITH PEG WORDS".B...PGM$(7)."ADVANCED
USE OF PEG WORDS".....PGM$(8)."RETURN T
O MEMORY TRAINER MAIN MENU".....PGM$(9).
"QUIT FOR NOW".(.H.AY.5:MAX.9:.8000:QN.0
.V.R..C.220,260,360,540,610,820,20000,71
00,990.K...FILE$."P1":.7500.|.... QN.1 .
110.....FILE$."P2":.7500...... QN.1 . 1
10.....FILE$."P3":.7500.H.... QN.1 . 110
.....FILE$."P4":.7500...... QN.1 . 110..
....I.0.9:. DISPLAY PEG SOUNDS.D.... 491
55:.".":FILE$."PIC".I(D(I),1):.G(147);:.
6500.X....30023:.G(18);"^";G(146);" PREV
IOUS PICTURE; ";......"<SPACE> TO CONTIN
UE".F."..30024:."PRESS <CTRL-C> TO RETUR
N TO MENU...";.Z.#..XX.1.10:.XX$:....,..
73...-.. QN.1 . 110...6..(C$.G(94)).(I.
0).I.I.1:.270.2.@..(C$.G(17)).(C$." ").3
40.;.J..300.E.T..I:. 49155:.XX.1.10:.XX$
:.XX:.G(147);..^.FILE$."P5":.7500:.110.
..H.FILE$."P6":.7500...I.. QN.1 . 110.S.
R..G(147);:FILE$."MEMORIZE THESE PEG WOR
DS"...S..G(18);:.2990:.G(146);...|..I.1.
10:.211,1:VT%.2.I.1.0.}..32100:."(";I;")
";.8);PEG$(I):.I.T....I.11.20:.211,21:VT
%.2.(I.10).1.Z....32100:."(";I;")";.28);
PEG$(I):.I......9500...... QN.1 . 110...
...G(147);:TMAX.20:XMAX.10:XNUM.10:.1500
......I.1.10:RDR%(I.10).RDR%(I).10:.I...
...I.1.TMAX:MSG$(I)."(".D(RDR%(I)).")".6
...BEF$(I).PEG$(RDR%(I)):TMP$(I)."":.I.C
....G(147);.{...FILE$."ENTER THE CORRESP
ONDING PEG WORD":AN$."...."...B.LOW.1:HI
GH.TMAX:LMARGIN.1:AY.4:COL.2:.2000...C..
QN.1 . 110.U.L..9000:. BUBBLE SORTER...
V.. I.1 . TMAX:MSG$(I)."(".D(I).")"...W.
BEF$(I).PEG$(I):.I.6...U$."@":Y.2:MD.0:A
X.0:LX.1:LOW.1.F....27250:.9500:. DISPLA
Y 2 SCREENS OF ANSWERS.W.... QN.1 . 110.
.....ANS.0.7.TMAX.PLMAX.TMAX......3700:.
WINNERS MESSAGE.A.... QN.1 . 110......(
C$."Y").(AN$."@").540:. TRANSLATE WORDS
TO NUMBERS......C$."Y".370......3800:.11
0.4.... PEG WORDS TO NUMBERS.Z.&.TMAX.20
:XMAX.TMAX:XNUM.TMAX:.1500.~.0..I.1.TMAX
:MSG$(I).PEG$(RDR%(I))...1.A$.D(RDR%(I))
:BEF$(I).I(A$,C(A$).1):.I...:..G(147);:F
ILE$."ENTER THE CORRESPONDING NUMBERS":A
N$.".."...D..I.1.TMAX:MSG$(I).H(MSG$(I),
6):TMP$(I)."":.I.B.N.LOW.1:HIGH.TMAX:LMA
RGIN.1:COL.2:.2000.S.O.. QN.1 . 110.D.X.
AN$."@":.480...B.. ASSOCIATE ITEMS WITH
PEG WORDS...L.FILE$."P7":.7500...M.. QN.
1 . 110.D.V.FILE$."P8":.7500.U.W.. QN.1
. 110.....FILE$."KNEE":.6600...... QN.1
. 110.....FILE$."P9":.7500.#.... QN.1 .
110.9...FILE$."TIE":.6600.J.... QN.1 . 1
10.`...FILE$."P10":.7500.Q.... QN.1 . 11
0.....FILE$."P11":.7500...... QN.1 . 110
.....TYPE.0:DTIME.6:NPEG.10:KMAX.10.....
XMAX.10:XNUM.48:.1500:. GET 10 CONCRETE
WORDS......I.1.10:BEF$(I).WRDS$(0,RDR%(I
).1):.I.L.F.XMAX.10:XNUM.10:.1500:. SCRA
MBLE DISPLAYED ORDER.S.P..13000:.G(18);.
4);"PEG WORD";.11);...Q.."ITEM TO MEMORI
ZE ";G(146)...Z..I.1.10:.211,1:VT%.2.I.1
:.32100......"(";RDR%(I);") ";.7);PEG$(R
DR%(I));.15);"-----";.......24);BEF$(RDR
%(I)):.I.9....30024:."PRESS <SPACE BAR>
TO BE TESTED...";.O....XX.1.10:.XX$:.XX.
F....9520:. QN.1 . 110.....LOW.1:HIGH.10
:LMARGIN.2:AY.14:COL.1.C...FILE$."ENTER
THE CORRESPONDING ITEMS":AN$."....".....
.I.1.10:MSG$(I)."(".D(I).") ".PEG$(I):.I
......2000:.3300:. QN.1 . 110.7....I.1.1
0:MSG$(I)."(".D(I).")":.I:.3000.U. .TMAX
.10:.3700:.C$."Y".690.F.!.. QN.1 . 110.U
.*..3800:.110...4.. MEMORIZE LISTS WITH
PEG WORDS...>.FILE$."L13":.7500...?.. QN
.1 . 110.V.C.FILE$."L14":.7500...D.. QN.
1 . 110...H.KMAX.20:W$."":.1700:. SELECT
OPTION PARAMETERS.+.I.. QN.1 . 110.O.R.
U$."@":LX.1:.27050:.27330:U$."".`.S.. QN
.1 . 110.I.\..110......13000:VT%.8:.3210
0:."YOU HAVE JUST EXITED";G(18).....VT%.
10:.32100:.E$;G(146);".".....VT%.12:.321
00:."THANK YOU FOR PLAYING!".....VT%.22:
.32100:....... WORD DISPLAY.M....G(147);
:VT%.12:.32100:FILE$."GET READY TO BE TE
STED".W.....9);.P...XNUM.48:XMAX.X:.1500
...... BE CAREFUL; X COULD BE CORRUPTED
IF 2900 IS CALLED 1ST!.V.$.SEC.4:.32000:
.G(146);:VT%.12:.32100...%..32200:SEC.2:
.2900...&.. QN.1 . ....... DISPLAY CON/A
BS WORDS.'.8..I.LX.TMAX.N.L.BEF$(I).WRDS
$(TYPE,RDR%(I.LX.1).1).Y.`.VT%.10:.32100
:.211,13:.G(18);H(EL$,12)...J.VT%.14:.32
100:.211,13:.".";H(EL$,12);G(146).F.T..3
0000:VT%.12:.32100:.MU...U....((40.C(BEF
$(I))).2));BEF$(I);.10). .~.VT%.12:.3210
0:.30000:.MSG$(I):.PROMPT.1.1170.F....30
023:FILE$.TMP$(I):.2990:.30023.^....3000
0:."PEG WORD:".....SEC.DTIME:. USER SELE
CTABLE TIME......2900...... QN.1 . ..E..
.. BLANK DISPLAY FOR 0.5 SEC INTERVAL...
..VT%.12:.32100:.30000:.32200......30023
:.32200...D.SEC.1:.2900...E.. QN.1 . ..#
.N..9600:.I.).X...E.... RANDOM ORDER SEL
ECTOR.P...L.1:.V$."@".L.LX:. SPECIAL FOR
LESSON3.....RDR%(L).XNUM..(1).L......I.
L.1.XMAX.....RDR%(I).XNUM..(1).L......J.
L.I.1......RDR%(I).RDR%(J).1530:. GET A
NEW RANDOM #......J:.I...?........ MEMOR
Y OPTION SELECT.H....G(147);:FILE$."SET
MEMORY PRACTICE OPTIONS".C....G(18);:.29
90:.G(146);.{...VT%.4:.32100:.30000.....
."HIGHEST NUMBER IN LIST (5 TO ";KMAX;".
";")...";.37);.T.B..80:TMAX.E(L$):. QN.1
. ....L...(TMAX.KMAX.TMAX.5).1743...M..
211,0:VT%.5:.32100:.QQ$:.1720.=.O..W$..
"@"..".....";H(EL$,38);:.1750.Z.P.LY.1:.
TMAX.40.LY.TMAX.39.H.Q..".....";...R.."
LOWEST NUMBER IN LIST (";LY;"TO";TMAX.4;
")...";.37);.K.S..71:.80:LX.E(L$):.30000
:. QN.1 . ....T.. (LX..TMAX.4) . (LX..LY
) . 1750.. U.VT%.6:.32100:. 211,0:.QQ$:.
32200:.1745.U V.. 211,0:VT%.6:.32100:."H
ELP WITH PEG WORDS--";:.32200.M X.VT%.8:
.32100:.211,3.. Y.."IN MEMORIZING: (Y)ES
OR (N)O.....";.38);.. Z..71:.C$:. QN.1
. ..N ...C$."Y".PROMPT.0:.1772.. ...C$."
N".PROMPT.1:.1772.. ...1750..!..VT%.10:.
32100:.211,3.;!..."IN RECALLING: (Y)ES
OR (N)O.....";.38);.R!...71:.C$:. QN.1 .
..I!...C$."Y".PW.0:.1790..!...C$."N".PW
.1:.1790..!...1772..!..VT%.12:.32100:.30
000.U!..."DISPLAY SPEED: (1)SLOW TO (4)F
AST...";.38);..!...71:.C$:X.E(C$)..!...
QN.1 . ..."...(X.4).(X.0).1790.."..DTIME
.20.X.6"..VT%.14:.32100:.30000.H"..."ITE
M DIFFICULTY: (1)EASY TO (5)HARD.";.38);
.T"...71:.C$.."... QN.1 . ..."&.TYPE.E(C
$):.TYPE.0.TYPE.5.1820.S"0.SC.10.(2.PROM
PT.PW.1).X.TYPE:TYPE.TYPE.1..#:.VT%.17:.
32100:."SCORE FOR EACH CORRECT ANSWER ..
..";..#;...36);G(18);SC;G(146);:.32200.G
#D.VT%.21:.32100:.30000.~#E.."ARE THESE
THE OPTIONS YOU WANT? (Y/N) ";:.71:.C$..
#F.. QN.1 . ...#N..C$."Y".1899..#X..C$..
"N".1860..#B..1720..#K....#P.. UNTIMED K
EYBOARD RETRIEVE..$Z.K.LOW:PRT.1:QUIT.0:
.G(147);:C$."".$$...I.LOW.HIGH:AFT$(I)."
":.I.?$...G(18);:.2990:.G(146);.H$..DFR.
(HIGH.LOW.1).2:.COL.1.DFR.HIGH.1..$..OFF
SET..((HIGH.LOW).2)..$...I.LOW.HIGH..$..
AH.LMARGIN.B$...(I.LOW)..DFR.AH.LMARGIN.
21.U$ .AV.2.(I.LOW).3..$!..(I.LOW)..DFR.
AV.2.(I.LOW.OFFSET).1..%*.VT%.AV:.32100:
.211,AH.1.<%+..MSG$(I);.AH.AY.4);TMP$(I)
;AN$.C%4..I.X%>.VT%.22:.32100:.30000:.I.
0.6:."-----";:.I:."----"..%H..:.31000:..
.%R..30024:."PRESS <RETURN> AFTER EACH E
NTRY.";.H%\..PRT.1..2400..%F..70:.73:X.F
(C$)..%G.. QN.1 . ...&P..C$." ".2280:. C
ONTINUE TIMING..&Z..(X.17) .2220:. RIGHT
ARROW.R&...X.42.QUIT.1:.2220:. ESCAPE K
EY.T&...X.13 .2220:. CARRIAGE RETURN..&.
..(X.94)..2500:.2240:. BACK OR UP ARROW.
.&...80:AFT$(K).L$.A&... QN.1 . ...&..VT
%.AV:.32100:.211,AH.1:.MSG$(K);H(EL$,AH.
AY.4.B(211));.+'...H(BEF$(K),3).H(AFT$(K
),3)..BEF$(K);" ".M'..K.K.1:.QUIT.1.K.
HIGH.1:QUIT.0.W'..PRT.1.`'J.. MU..'T..XX
.1.10:.XX$:.XX:. RESET STROBE..'...K.HIG
H..2310..'...C$."Y".2300.D'...2140:. BAC
K TO THE TOP.J'.....'... ANY MORE CHANGE
S?..'..K.HIGH..(...".":. 214,23:.".";H(E
L$,38):. CLEAR TO EOL.5($..:.30024:.3000
0:.MU.D(%.."ARE YOU FINISHED MAKING ENTR
IES? (Y/N) ".{(...30024:.211,38:.71..(/.
. QN.1 . ..B(8..C$."Y".2390:. RETURN TO
MAIN PORTION OF SUBROUTINE..(=..C$.G(17)
.K.LOW:.2380..(B..C$."N".C$.G(94).2380..
)G..2350..)L..".":.31000:. 211,0.\)Q..".
":. 214,24:.".";:."MAKE CHANGES AND RETU
RN PAST LAST ENTRY";.B)V...|)`.. HIGHLIG
HT NEXT LINE..)J.AH.LMARGIN..)T..(K.LOW)
..DFR.AH.LMARGIN.21..)~.AV.2.(K.LOW).3..
)..(K.LOW)..DFR.AV.2.(K.LOW.OFFSET).1..
*..VT%.AV:.32100:.211,AH.1:.G(18);MSG$(K
);G(146);..*....AH.AY);"--> ";.:*..PRT.0
:..R*D.. BACKSPACE HANDLER..*N.VT%.AV:.3
2100:.211,AH.1:.MSG$(K);H(EL$,AH.AY.4.B(
211));..*X.K.K.1.D*...K.LOW.K.LOW:. PREV
ENT OFF-SCREEN ERROR.J*.....*T.SEC.SEC.(
2.(SEC.0)):.X.1.SEC.30..+U..C$:.9600:.X:
...+... CENTER MESSAGE.;+.....((40.C(FIL
E$)).2));FILE$;.40).H+...30000:..\+... R
ECALL TESTER..+B.ANS.0:. ZERO THE # OF C
ORRECT ANSWERS..+L..13000:.3300.A+... DI
SPLAY CORRECT & INCORRECT ANSWERS..+..FI
LE$."YOUR TEST RESULTS":.G(18);..+...299
0:.G(146);.),..VT%.3:.32100:.211,5:."COR
RECT";.14);"YOUR".Z,..VT%.4:.32100:..5);
"RESPONSE";.24);"RESPONSE".T,...I.0.7:."
-----";:.I:...,...I.LOW.HIGH..,...BEF$(I
)."".BEF$(I)." ":. SKIP THIS ONE IF IT'S
BLANK.P,&..MSG$(I);.8);..,0..H(BEF$(I),
3)..H(AFT$(I),3).3130.#-1..H(BEF$(I),18)
;:ANS.ANS.1:AFT$(I).BEF$(I).V-:..BEF$(I)
..AFT$(I)..G(18);H(BEF$(I),18);G(146);.Q
-D..211,23:.H(AFT$(I),16).X-N..I..-X.X..
(100.ANS.(HIGH.LOW.1).0.5).E-B..:."YOU R
EMEMBERED ";G(18);ANS;G(146);..-C.." COR
RECTLY, OR ";G(18);X;".";"%"G(146);..-L.
.9500:..$.... REMOVE TRAILING BLANKS IN
AFT$.4....I.LOW.HIGH.Q...X.C(AFT$(I)).1:
.X.0.3350......I(AFT$(I),1)." ".AFT$(I).
H(AFT$(I),X):.3320......H(AFT$(I),1)." "
.AFT$(I).I(AFT$(I),X):.3320......I:..T.T
.. WINNER'S MESSAGES...~..ANS.0.7.TMAX.3
790.!/...G(147);:VT%.9:.32100:FILE$."--C
ONGRATULATIONS--".H/...2990:.:.:FILE$."Y
OUR MEMORY WAS ".T/...ANS.TMAX.FILE$.FIL
E$."PERFECT!!":.3760../...ANS..0.9.TMAX.
FILE$.FILE$."EXCELLENT!":.3760.X/...ANS.
.0.8.TMAX.FILE$.FILE$."VERY GOOD!":.3760
..0...ANS..0.7.TMAX.FILE$.FILE$."GOOD. K
EEP IT UP!".90...2990:FILE$."87868785878
487835654":.16000.C0..FILE$."56535652939
49596979981":.16000.M0...9500.|0... QN.1
. ...0N..G(147);:VT%.12:.32100.F0O.."DO
YOU WANT TO BE TESTED AGAIN? (Y/N) ";..
0S..71:.(C$."Y").(C$."N")....0T.. QN.1 .
...0W..3795..1X.. LOSER'S MESSAGE.'1...
ANS..0.7.TMAX...A1..FILE$."FAILURE":.750
0.G1....]1D.. HIRES DISPLAYER..1N..G(147
);:. 6550:. 49158:. 49152:...1X.. CALL H
IRES LOAD ROUTINE..1... LOAD ROUTINE.N1
.LS.LD.3:. LS,C(FILE$)..1... T.1 . C(FIL
E$):. LS.T,F(J(FILE$,T,1)):. T. 2... LD:
4:. (ST . 191) . 17000.&2....<2H.. PIC
TURE DISPLAY.T2R..6500:.9500:. 49155.C2.
..G(147);:..2X.. PERSONAL DISK SECTION.
.2B..DSK$.."Y"..:. SUBJECT HAS NO DISK F
ILE.K2L.RW$."READ ":SD$."B":.7200:...2..
. WRITE TO PERSONAL DISK..3F.RW$."WRITE
":SD$."A":.7450.;3Z..13000:FILE$."LOADIN
G MEMORY TRAINER MAIN MENU".F3..VT%.10:.
32100:.2990:. "INTRODUCTION",8.~3...110:
. JUST IN CASE..3 .. READ/WRITE TO DISK.
B3*..DSK$.."Y".QUIT.0:.7430:. NO DISK FI
LE..34.C$."UPDATE":.RW$."READ ".C$."USE"
..4>..G(147);:VT%.10:.32100..4?.."DO YOU
WANT TO ";C$;" THE PEG WORDS".B4H.VT%.1
2:.32100:."ON YOUR PERSONAL DISK? (Y/N)
";.N4I..71:.C$.}4J.. QN.1 . ...4R..C$."Y
".7290..4\..(C$."N").((SD$."QUIT").(QUIT
.2))...Q4].. QUIT FOR NOW SECTION..4F..(
C$."N").(RW$."READ ")....5K..(C$."N").(R
W$."WRITE ").7450.%5P..7240:. DEFAULT.U5
Z..G(147);:VT%.10:.32100:.MU:."INSERT YO
UR ";..5{..G(18);"PERSONAL DISK";G(146);
" INTO DRIVE #1."..5.VT%.15:.32100:."(P
RESS <CTRL-C> TO CANCEL)".C5...9500.R5..
. QN.1 . ...5...XX.1.10:.XX$:.XX:.G(147)
;:VT%.12:.32100.*6..FILE$."USING YOUR PE
RSONAL DISK":.2990.C6... ACTUAL DISK ACC
ESS..6... PRINTD$;"READ ";FLNM$:REM 1ST
CHECK TO SEE IF THE FILE IS THERE..6...
GOSUB31010.I6... RW$."READ " . . 2,8,2,F
LNM$.".WRD,SEQ,R"..6... RW$."WRITE " . .
2,8,2,"@:".FLNM$.".WRD,SEQ,W".%7J..RW$.
"READ "..2,C:.C.PLMAX.PLMAX.C.@7T..RW$."
WRITE "..2,PLMAX.Q7Y.. ST . 17000._7...I
.1 . 60.{7...RW$."READ "..2,PEG$(I)..7..
.RW$."WRITE ". A$.PEG$(I):. A$."" . A$."
XXX".D7...RW$."WRITE "..2,A$.O7...I: 2.
.7...SD$."QUIT"....8...G(147);:.MU:VT%.1
0:.32100.88..."BE SURE MEMORY TRAINER ";
G(18);"DISK ";SD$;G(146).Q8..VT%.12:.321
00:."IS PROPERLY INSERTED INTO DRIVE #1.
"..8..VT%.16:.32100:."(PRESS <CTRL-C> TO
CANCEL)"..8$..9500:..K8L.. TEXT FILE SC
REEN WRITER.X8V..G(147);..8`.. 2,8,2,FIL
E$:. ST . 17000..9J..I.0.23.09T..2,S9$(I
):. ST .(ST..64 . I..23) . 17000.<9~.. I
: 2.F9...G(147);G(18);:FILE$.E$.": LESS
ON #3".X9...2990:.G(146)..9...I.1.21..9.
..S9$(I):.I..9..SEC..5:.2900:.30024:.S9$
(22);.K9...XX.1.10:.XX$:.XX..9... 9520:.
QN.1 . ...:...XX.1.10:.XX$:.XX:.13000:.
..:@.. MENU SELECTOR.3:J..G(147);:.XX.1.
10:.XX$:.XX.W:T.FILE$.E$:.G(18);:.2990:.
G(146);..:^..30024:."FILE NAME: ";G(18);
FLNM$;G(146);.H:H.VT%.4:. 32100:. 211,0:
FILE$."LESSON #3: PEG-WORD SYSTEM":.2990
..:M..W$."@".VT%.5:.32100:.211,17..;N..W
$."@".W$."":.G(18);"ADVANCED SECTION";G(
146).-;R..I.65.64.MAX.@;|.S.I.64:. 211,0
.E;..VT%.S.6:.32100:.G(I)" : "PGM$(S).M;
...:..~;...PV$."".8110..;..VT%.20:.32100
:."(YOUR PREVIOUS SELECTION WAS '";PV$;"
')"..;..VT%.18:.32100:."SELECT OPTION: "
;..<...32200:. CLEAR TO END-OF-LINE..<..
.71:C.F(C$.ZE$):AN$.C$.6<L..C.65.C.64.MA
X.8120.C<V..:C.C.64.V<..VT%.C.6:.32100..
<...G(18);AN$;G(146);" : ";G(18);PGM$(C)
;G(146).D<..VT%.18:.32100:."IS THIS THE
SELECTION YOU WANT? (Y/N) ";..<...71:.C$
.."Y".C$.."N"..B$;:.8180..=...C$:.C$.."N
".PV$.AN$:.8210.1=. VT%.C.6:.32100:.AN$"
: "PGM$(C):.8110.7=. ..K=(#. BUBBLE SOR
TER.V=-#.13000.K=2#L.1:.V$."@".L.LX.Y=<#
.J.L.TMAX..=F#.I.L.TMAX.1..=P#.RDR%(I).R
DR%(I.1).9080.A=Z#TEMP.RDR%(I):R$.AFT$(I
)..=D#RDR%(I).RDR%(I.1):AFT$(I).AFT$(I.1
)..>N#RDR%(I.1).TEMP:AFT$(I.1).R$..>X#.I
:.J:..:>.%. WAIT FOR SPACE BAR TO CONTIN
UE.R>&%. 211,0:.30024:."PRESS <SPACE BAR
> TO CONTINUE...";..>'%.XX.1.10:.XX$:.XX
..>0%.C$:.9600:. QN.1 . ...>5%.C$.." ".9
520.K>:%.XX.1.10:.XX$:.XX:...>.%.C$.G(3)
.. 204,1:. 49155:PV$."":QN.1..>.%...?.'.
INITIALIZATION.'?.'.RDR%(60),PITCH(10).
I?.'D$.G(13).G(4):KMAX.20:PLMAX.0.N?$'E$
."THE EINSTEIN MEMORY TRAINER"..?L'. 2,8
,2,"WORD FILE":. ST . 17000..?V'.I.0.4..
?`'.II.0.47.K?J'.2,WRDS$(I,II):. ST . 17
000.Z?T'.II:.I: 2..?.'. 2,8,2,"PEG WORD
S":. ST . 17000..@.'.I.1.100.(@.'.2,PEG$
(I):. ST . 17000.4@.'. I: 2.F@L). MUSIC
STUFF.S@V)SX.54272.U@.). T.1 . 9:. HF%(
T),LF%(T):. T..@.). 16,195,18,209,21,31,
22,96,25,30,28,49,31,165,33,135,0,0..@.)
..N@.*. READ FILE NAME..A.+FLNM$."":DSK$
.G(B(DE)):.DSK$.."Y".FLNM$."NONE":. 1189
0.2A.+.I.1.B(NM):FLNM$.FLNM$.G(B(NM.I)):
.I.JAR..I.0.9:.PITCH(I):.I.DAS..0,PITCH(
.(7..(1)).1)..A|.. 0,133,121,107,100,90,
80,70,66,1..A.....AH2. CENTER/OUT WIPEOU
T..AR2.G(147);:..LA.>. MELODY PLAYER..A.
>.I.1.C(FILE$)..A.>X.E(J(FILE$,I,1)).,B.
>. SX.1,HF%(X):. SX,LF%(X):. SX.4,33:SEC
.0.13:. 2900.DB.>. QN.1 . . SX.4,0:..WB.
>. SX.4,0:. I:..LBHB. ERROR HANDLING.XBJ
B. 49155..BMB.1,A,B$: 2..BRB.G(147);..B
.BY.A:. X=PEEK(218)+256*PEEK(219).SB.B.
X=LINE #; Y=ERROR #..B.BL$."A3":. REVISI
ON & LESSON #.)C.BVT%.2:.32100:."USER NA
ME: ";G(18);FLNM$;G(146);.AC.BVT%.4:.321
00:.30000.EC.B.G(146);"AN ERROR HAS OCCU
RED!"..C.BVT%.6:.32100:."ERROR CODE: #";
Y;" ";L$;B$..CBBVT%.10:.32100:."ERRO
R MESSAGE: ";..CLB.Y.26.."DISK IS WRITE
PROTECTED"..DVB.Y.62.."FILE WAS NOT FOUN
D".!D.B.Y.72.."YOUR DISK IS FULL".:D.BVT
%.12:.32100:.30000.UD.B.G(18);"CHECK THA
T THE APPROPRIATE DISK":VT%.14:.32100..D
.C."IS PROPERLY INSERTED IN DRIVE #1.";G
(146)..D.C.30024:.30000::."PRESS <SPACE
BAR> TO RESUME...";..D.C.XX.1.10:.XX$:.X
X..E.C.73:.C$.." ".17170. E.C.110:. TO M
AIN MENU.@E N. ADVANCED USE OF PEG WORDS
.\E*NPV$."":.VV.0..7000:VV.1.ME/N. QN.1
. 110..E4NPGM$(1)."INTRODUCTION TO ADVAN
CED PEG WORDS".DE>NPGM$(2)."CREATE/EXTEN
D PEG WORDS"..EHNPGM$(3)."REVIEW/CHANGE
PEG WORDS"..FRNPGM$(4)."PRACTICE WITH LI
STS AND PEG WORDS".JF\NPGM$(5)."RETURN T
O PREVIOUS LESSON #3 MENU".{FFNPGM$(6)."
RETURN TO MEMORY TRAINER MAIN MENU"..FPN
PGM$(7)."QUIT FOR NOW"..FZNW$."@":MAX.7:
.8000..F.N.C.24000,25000,26000,27000,201
10,7100,990..G.N.I.1.60:TMP$(I)."":.I:PV
$."":.110. G.]. INTRO FOR ADVANCED USERS
.=GJ]FILE$."P12":.7500:.20000.TG.A. EXTE
ND PEG WORDS.UG.A.(PLMAX.10).(PLMAX.60).
26010..G.AFILE$."P13":.7500:C.PLMAX..G.A
. FLAG TO STORE NUMBER OF PEG WORDS.LG.A
. QN.1 . 110..GFALOW.PLMAX.1:HIGH.PLMAX.
10:COL.1..HPA.I.LOW.HIGH:TMP$(I).PEG$(I)
.8HQAMSG$(I)."(".D(I).")":BEF$(I)."X":.I
.PHZALMARGIN.2:FILE$."STUDY AND/OR CHANG
E THE PEG WORDS"..H.AAN$."":AY.4:COL.1:.
2000..H.A. QN.1 . 110..H.A.3300:. STRIP
BLANKS..H.A.I.LOW.HIGH:. CHECK FOR ANY A
LTERED ENTRIES..I.A.AFT$(I)." ".25100:.
GUARD AGAINST BLANK ENTRIES.<I.B.AFT$(I)
.."".PEG$(I).AFT$(I).CI.B.I.]I.B. STUDY
THE PEG WORDS..I B.I.LOW.HIGH:TMP$(I).PE
G$(I):.I..I*B.G(147);:FILE$."STUDY YOUR
PEG WORDS CAREFULLY".OI+B.G(18);:.2990:.
G(146);..I4B.I.1.10..I>BAH.LMARGIN..JHBV
T%.2.I.1:.32100:.211,AH.1.-JIB."(";LOW.1
.I;") ";PEG$(LOW.1.I).4JRB.I.WJ\B.I.LOW.
HIGH:BEF$(I).PEG$(I):.I..JFB.30024:."PUS
H <SPACE BAR> FOR TEST ON PEG WORDS.";..
JGB.XX.1.10:.XX$:.XX..JPB.9520..JQB. QN.
1 . 110..JZB. TEST ADVANCED PEG WORDS..K
.BFILE$."RECALL YOUR PEG WORDS IN ORDER"
:AN$."....".1K.B.I.LOW.HIGH:TMP$(I)."":.
I.SK.BLMARGIN.2:.2000:.QUIT.1.20000.DK.B
. QN.1 . 110.~K.B.3000:. RECALL TESTER..
K.B. QN.1 . 110.AK.BTMAX.10:.3700:.C$."Y
".25130:. WINNERS MESSAGE.RK.B. QN.1 . 1
10..L.B.ANS..7.PLMAX.PLMAX.10:.PLMAX..60
.PLMAX.100..L.B.PLMAX.60.20000.1LJB.G(14
7);:VT%.11:.32100.OLKB."YOU NOW KNOW ";P
LMAX;" PEG WORDS. DO YOU":VT%.13:.32100.
.LLB."WANT TO LEARN ANOTHER SET? (Y/N) "
;:.71..LMB. QN.1 . 110..LTB.C$."N".25330
.RL.B.C$."Y".25030..L.B.25290..M.B..((DS
K$."Y").(PLMAX.C)).25340.-M.BQUIT.2:SD$.
"B":RW$."WRITE ":.7220:QUIT.0.8M.B.20000
.VM.E. REVIEW/CHANGE PEG WORDS..M.E.PLMA
X.10.FILE$."P15":.7500:PV$."":.110..M.EF
ILE$."P14":.7500..M.E. QN.1 . 110..M.E."
.":.G(147);:.30024:."PRESS <";G(18);"RET
URN";..M.E.".> FOR ADVANCED MENU...";..N
.E. QN.1 . 110.FN.EVT%.10:.32100:.30000:
."WHICH GROUP OF 10 PEG WORDS"..N.EVT%.1
2:. 32100:."DO YOU WANT TO REVIEW? (1 TO
";PLMAX.10;") ";..NBE.71:.(C$.G(13)).261
90..NCE. QN.1 . 110..NLE.80:C$.L$:TMAX.E
(C$):.(TMAX.PLMAX.10).(TMAX.1).26030..NM
E. QN.1 . 110..OVEHIGH.10.TMAX:LOW.HIGH.
9.RO.E.TMAX.6.28000:. JUST DISPLAY THE R
EMAINING PEG WORDS..O.EFILE$."REVIEW/CHA
NGE YOUR PEG WORDS":AN$.""..O.E.TMAX.7.2
8000:. JUST DISPLAY THE REMAINING PEG WO
RDS..O.E.J.LOW.HIGH:TMP$(J).PEG$(J)..P.E
MSG$(J)."(".D(J).")":BEF$(J)."X":.J..P.F
LMARGIN.2:COL.1:.2000..P.F. QN.1 . 110.G
P.F.3300:. STRIP BLANKS.{P.F.I.LOW.HIGH:
. ADD ANY CHANGED PEG WORDS TO PEG$..P.F
VT%.12:.32100..P&F.AFT$(I)." ".26170.TP'
F. GUARD AGAINST BLANK ENTRIES FOR PEG W
ORDS..P0F.AFT$(I).."".PEG$(I).AFT$(I)..P
:F.I..QDF.26030.>QNF.DSK$."Y".QUIT.2:SD$
."B":RW$."WRITE ":.7220:QUIT.0.IQXF.2000
0.GQXI. PRACTICE WITH PEG WORDS..Q.I.PLM
AX.10.26010:. NO PERSONAL LOCI WERE LEAR
NED...LEAVE..Q.IFILE$."L13":.7500.JQ.I.
QN.1 . 110..Q.IFILE$."L14":.7500..Q.I. Q
N.1 . 110..R.IKMAX.PLMAX:.PLMAX.60.KMAX.
60.8R.I. LIMIT NUMBER OF DISPLAYED WORDS
.MR IW$."@":.1700:.13000:W$."":HIGH.TMAX
:LOW.LX:U$."".~R.I. QN.1 . 110..R.IX.TMA
X.LX.1:XNUM.X:XMAX.TMAX:V$."@":.1500:V$.
"".WR.I.I.LX.TMAX:TMP$(I).PEG$(RDR%(I)).
.S.IMSG$(I)."(".D(RDR%(I)).")":AFT$(I).D
(RDR%(I)):.I.%S.I.1000:. WORD DISPLAY.6S
.I. QN.1 . 110.KSHI.I.LX.TMAX:RDR%(I).E(
AFT$(I)):AFT$(I).BEF$(I):.I..SII.G(147);
:V$."@":.9010:V$.""..SRI.I.LX.TMAX:BEF$(
I).AFT$(I):.I..S.I. WORD DISPLAY..S.IX.T
MAX.LX.1:Y..(X.10):MD.X.(10.Y):. MODULUS
..T.I.MD.0.Y.Y.1:. DISPLAY 1 EXTRA SCREE
N.$T.ILOW.LX.DT.J.II.1.Y:. NUMBER OF SCR
EENS..T.JFILE$."ENTER ITEMS FROM SET ".D
(II)." IN ORDER":AN$."....."..T.JHIGH.LO
W.9:LMARGIN.10:AY.5.ET"J.(MD..0).(II.Y).
HIGH.LOW.MD.1..T,J.I.LOW.HIGH:MSG$(I)."(
".D(I).")"..U-J.PW.0.MSG$(I).MSG$(I)." "
.PEG$(I):AY.14.(U6JTMP$(I)."":.I.8U@JCOL
.1:.2000.IUAJ. QN.1 . 110.XUJJLOW.LOW.10
.`UTJ.II.|U^J. DISPLAY CORRECT WORDS..UH
JLOW.LX:AX.0..URJ.II.1.Y.EU|JHIGH.LOW.9:
.(MD..0).(II.Y).HIGH.LOW.MD.1..U.J.I.LOW
.HIGH:MSG$(I)."(".D(I).")":.I:.3000..V.J
. QN.1 . 110..V.JLOW.LOW.10:AX.AX.ANS.%V
.J.II.LV.JX..(100.AX.(TMAX.LX.1).0.5):AN
S.AX.QV.J.30000:VT%.20:.32100:.MU:.G(18)
;..V.J."TOTAL CORRECT:";AX;".";" OUT OF"
;TMAX.LX.1;".";" (OR";X;".";"%)."..V.J.U
$."@"..:. BACK TO BEGGINERS SECTION..WBJ
VT%.22:.32100:."YOUR SCORE: ";G(18);SC.A
X;G(146);..WLJ.AX.SC..TS.27350.OWMJTS.AX
.SC:.211,19:.G(7);G(7);.WWNJFILE$."HIGHE
ST SCORE: ".D(TS):SEC.4..WOJ.32000:.G(14
6);..WVJ.211,19:."HIGHEST SCORE: ";G(18)
;TS;G(146)..W.J.9500:.U$."@"..:. TO SECT
ION 'E'..W.J. QN.1 . 110..X.JTMAX.TMAX.L
X.1:.3700:.C$."Y".27030."X.J.20000.3X.J.
QN.1 . 110.QX`M. HIGHER PEG WORD DISPLA
Y.}XJM.G(147);:FILE$."REVIEW THESE PEG W
ORDS"..XKM.G(18);:.2990:.G(146);..XTM.J.
1.10:VT%.2.J.1:.32100:.211,1..XUM."(";LO
W.1.J;") ";PEG$(LOW.1.J):.J..X~M.9500:.
QN.1 . 110..Y.M.26030..Y0U.211,0:...YGU.
:.".":. 214,23:.".";:..BYHUVT%.24:.32100
:..[Y.Y.".";:. 214,23:.".";.RY.Y.G(18);"
^";G(146);..Y.Y." FOR PREVIOUS LINE; "..
Y.Y...Y.}. FLASH ROUTINE.YY.}RX.B(211):.
TD.1 . 6:SEC.0.3:. 211,RX:. 2900..Z.}."
.";FILE$;:. 2900:. 211,RX:.".";FILE$;:.
TD..Z(}. 211,RX:..*ZD}. VT ROUTINE.PZN}R
X.B(211):.H(VT$,VT%);:. 211,RX:..AZH}. E
L ROUTINE..Z.}RX.B(211):. RX.40 . RX.RX.
40. Z.}.H(EL$,39.RX);:. 211,RX:....
> CLICK IMAGE PREVIEW FOR FULL MODAL