LESSON2
FILE INFORMATION
FILENAME(S): LESSON2
FILE TYPE(S): PRG
FILE SIZE: 19K
FIRST SEEN: 2025-12-02 23:10:20
APPEARS ON: 1 disk(s)
FILE HASH
575e52e3420f1d4034208e93c201efbe4ee69bb3e1ad98f39eafdb8e67dd338f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES XLIV | LESSON2 | PRG | swasti, chrisbitti1 | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 01 00 8F 20 2C 58 58 25 3A 52 45 4D |.. .... ,XX%:REM|
00000010: 20 52 45 53 54 4F 52 45 20 48 4F 52 20 50 4F 53 | RESTORE HOR POS|
00000020: 00 38 08 05 00 9C 3A 9F 20 31 2C 38 2C 31 35 3A |.8....:. 1,8,15:|
00000030: 5A 45 24 B2 C7 28 30 29 00 48 08 0A 00 8F 20 4C |ZE$..(0).H.... L|
00000040: 45 53 53 4F 4E 20 23 32 00 8C 08 0F 00 4D 55 B2 |ESSON #2.....MU.|
00000050: 34 39 36 33 37 3A 45 52 B2 34 39 36 33 37 3A 47 |49637:ER.49637:G|
00000060: 52 B2 34 39 31 35 32 3A 56 54 24 B2 22 13 11 11 |R.49152:VT$."...|
00000070: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000080: 11 11 11 11 11 11 11 11 11 11 11 22 00 DB 08 12 |..........."....|
00000090: 00 45 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.EL$." |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000000C0: 3A 44 45 B2 34 39 36 36 37 3A 4E 4D B2 34 39 36 |:DE.49667:NM.496|
000000D0: 36 38 3A 4C 44 B2 34 39 35 39 34 00 F8 08 14 00 |68:LD.49594.....|
000000E0: 99 22 05 22 3A 97 20 35 33 32 38 31 2C 30 3A 97 |.".":. 53281,0:.|
000000F0: 20 35 33 32 38 30 2C 30 00 17 09 22 00 86 57 52 | 53280,0..."..WR|
00000100: 44 53 24 28 34 2C 34 37 29 2C 48 46 25 28 39 29 |DS$(4,47),HF%(9)|
00000110: 2C 4C 46 25 28 39 29 00 46 09 26 00 86 42 45 46 |,LF%(9).F.&..BEF|
00000120: 24 28 34 30 29 2C 41 46 54 24 28 34 30 29 2C 58 |$(40),AFT$(40),X|
00000130: 4C 4F 43 55 53 24 28 31 30 29 2C 59 4C 4F 43 55 |LOCUS$(10),YLOCU|
00000140: 53 24 28 34 30 29 00 5D 09 32 00 86 4D 53 47 24 |S$(40).].2..MSG$|
00000150: 28 34 30 29 2C 54 4D 50 24 28 34 30 29 00 6A 09 |(40),TMP$(40).j.|
00000160: 36 00 86 47 4D 24 28 31 30 29 00 77 09 3A 00 86 |6..GM$(10).w.:..|
00000170: 53 39 24 28 32 33 29 00 80 09 3C 00 89 31 30 30 |S9$(23)...<..100|
00000180: 00 96 09 47 00 81 58 58 B2 31 A4 31 30 3A A1 58 |...G..XX.1.10:.X|
00000190: 58 24 3A 82 58 58 00 A2 09 48 00 97 20 32 30 34 |X$:.XX...H.. 204|
000001A0: 2C 30 00 B4 09 49 00 A1 43 24 3A 8B 43 24 B2 22 |,0...I..C$:.C$."|
000001B0: 22 A7 37 33 00 DD 09 4A 00 43 24 B2 C7 28 C6 28 |".73...J.C$..(.(|
000001C0: 43 24 AA 5A 45 24 29 AF 31 32 37 29 3A 97 20 32 |C$.ZE$).127):. 2|
000001D0: 30 34 2C 31 3A 8D 20 39 36 30 30 3A 8E 00 F9 09 |04,1:. 9600:....|
000001E0: 50 00 8F 20 53 50 45 43 49 41 4C 20 49 4E 50 55 |P.. SPECIAL INPU|
000001F0: 54 20 52 4F 55 54 49 4E 45 00 30 0A 51 00 48 B2 |T ROUTINE.0.Q.H.|
00000200: C2 28 32 31 31 29 AA 31 3A 56 B2 C2 28 32 31 34 |.(211).1:V..(214|
00000210: 29 AA 31 3A 4C 24 B2 22 22 3A 4C B2 31 36 3A 43 |).1:L$."":L.16:C|
00000220: 58 B2 C6 28 43 24 AA 5A 45 24 29 3A 89 20 38 33 |X..(C$.ZE$):. 83|
00000230: 00 67 0A 52 00 8D 37 32 3A 43 58 B2 C6 28 43 24 |.g.R..72:CX..(C$|
00000240: AA 5A 45 24 29 3A 8B 43 58 B2 31 33 A7 99 C8 28 |.ZE$):.CX.13...(|
00000250: 45 4C 24 2C 4C AB C3 28 4C 24 29 29 3A 97 32 31 |EL$,L..(L$)):.21|
00000260: 31 2C 48 AB 31 3A 8E 00 76 0A 53 00 8B 43 58 B3 |1,H.1:..v.S..CX.|
00000270: B1 32 30 A7 38 36 00 8C 0A 54 00 52 24 B2 22 58 |.20.86...T.R$."X|
00000280: 22 AA C9 28 4C 24 2C 31 29 AA 52 24 00 B8 0A 55 |"..(L$,1).R$...U|
00000290: 00 8B 4C 24 B1 22 22 A7 48 B2 48 AB 31 3A 4C 24 |..L$."".H.H.1:L$|
000002A0: B2 CA 28 4C 24 2C 31 2C C3 28 4C 24 29 AB 31 29 |..(L$,1,.(L$).1)|
000002B0: 3A 99 22 20 9D 9D 22 3B 00 C7 0A 56 00 8B 20 51 |:." ..";...V.. Q|
000002C0: 4E B2 31 20 A7 20 8E 00 E0 0A 57 00 8B 20 43 58 |N.1 . ....W.. CX|
000002D0: B1 39 30 20 B0 20 43 58 B3 34 38 20 A7 20 38 32 |.90 . CX.48 . 82|
000002E0: 00 FD 0A 58 00 8B 43 58 B3 33 32 20 A7 43 24 B2 |...X..CX.32 .C$.|
000002F0: 22 22 3A 43 58 B2 30 3A 48 B2 48 AB 31 00 1B 0B |"":CX.0:H.H.1...|
00000300: 59 00 8B C3 28 4C 24 29 AA C3 28 43 24 29 B2 4C |Y...(L$)..(C$).L|
00000310: A7 99 C7 28 37 29 3B 3A 89 38 32 00 40 0B 5A 00 |...(7);:.82.@.Z.|
00000320: 99 43 24 3B 3A 48 B2 48 AA 31 3A 56 54 25 B2 56 |.C$;:H.H.1:VT%.V|
00000330: 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 48 AB 31 |:.30100:.211,H.1|
00000340: 00 5C 0B 5B 00 4C 24 B2 4C 24 AA 43 24 3A 52 24 |.\.[.L$.L$.C$:R$|
00000350: B2 CA 28 52 24 2C 32 29 3A 89 38 32 00 7F 0B 64 |..(R$,2):.82...d|
00000360: 00 8D 31 33 30 30 30 3A 8D 31 30 30 30 30 3A 8F |..13000:.10000:.|
00000370: 20 49 4E 49 54 49 41 4C 49 5A 41 54 49 4F 4E 00 | INITIALIZATION.|
00000380: AB 0B 6E 00 50 47 4D 24 28 31 29 B2 22 49 4E 54 |..n.PGM$(1)."INT|
00000390: 52 4F 44 55 43 54 49 4F 4E 20 54 4F 20 4C 45 53 |RODUCTION TO LES|
000003A0: 53 4F 4E 20 23 32 22 3A 9E 45 52 00 CD 0B 78 00 |SON #2":.ER...x.|
000003B0: 50 47 4D 24 28 32 29 B2 22 4C 45 41 52 4E 20 41 |PGM$(2)."LEARN A|
000003C0: 20 53 45 54 20 4F 46 20 4C 4F 43 49 22 00 FA 0B | SET OF LOCI"...|
000003D0: 82 00 50 47 4D 24 28 33 29 B2 22 41 53 53 4F 43 |..PGM$(3)."ASSOC|
000003E0: 49 41 54 45 20 45 41 53 59 20 49 54 45 4D 53 20 |IATE EASY ITEMS |
000003F0: 57 49 54 48 20 4C 4F 43 49 22 00 27 0C 8C 00 50 |WITH LOCI".'...P|
00000400: 47 4D 24 28 34 29 B2 22 41 53 53 4F 43 49 41 54 |GM$(4)."ASSOCIAT|
00000410: 45 20 48 41 52 44 20 49 54 45 4D 53 20 57 49 54 |E HARD ITEMS WIT|
00000420: 48 20 4C 4F 43 49 22 00 59 0C 96 00 50 47 4D 24 |H LOCI".Y...PGM$|
00000430: 28 35 29 B2 22 50 52 41 43 54 49 43 45 20 4D 45 |(5)."PRACTICE ME|
00000440: 4D 4F 52 49 5A 49 4E 47 20 4C 49 53 54 53 20 57 |MORIZING LISTS W|
00000450: 49 54 48 20 4C 4F 43 49 22 00 85 0C A0 00 50 47 |ITH LOCI".....PG|
00000460: 4D 24 28 36 29 B2 22 41 44 56 41 4E 43 45 44 20 |M$(6)."ADVANCED |
00000470: 55 53 45 20 4F 46 20 50 45 52 53 4F 4E 41 4C 20 |USE OF PERSONAL |
00000480: 4C 4F 43 49 22 00 CD 0C AA 00 50 47 4D 24 28 37 |LOCI".....PGM$(7|
00000490: 29 B2 22 52 45 54 55 52 4E 20 54 4F 20 4D 45 4D |)."RETURN TO MEM|
000004A0: 4F 52 59 20 54 52 41 49 4E 45 52 20 4D 41 49 4E |ORY TRAINER MAIN|
000004B0: 20 4D 45 4E 55 22 3A 50 47 4D 24 28 38 29 B2 22 | MENU":PGM$(8)."|
000004C0: 51 55 49 54 20 46 4F 52 20 4E 4F 57 22 00 E2 0C |QUIT FOR NOW"...|
000004D0: B4 00 4D 41 58 B2 38 3A 8D 38 30 30 30 3A 51 4E |..MAX.8:.8000:QN|
000004E0: B2 30 00 16 0D BE 00 91 43 89 32 30 30 30 30 2C |.0......C.20000,|
000004F0: 32 31 30 30 30 2C 32 32 30 30 30 2C 32 33 30 30 |21000,22000,2300|
00000500: 30 2C 32 34 30 30 30 2C 32 35 30 30 30 2C 37 31 |0,24000,25000,71|
00000510: 30 30 2C 39 39 30 00 46 0D DE 03 8D 31 33 30 30 |00,990.F....1300|
00000520: 30 3A 56 54 25 B2 38 3A 8D 33 30 31 30 30 3A 99 |0:VT%.8:.30100:.|
00000530: 22 59 4F 55 20 48 41 56 45 20 4A 55 53 54 20 45 |"YOU HAVE JUST E|
00000540: 58 49 54 45 44 22 00 7E 0D DF 03 56 54 25 B2 31 |XITED".~...VT%.1|
00000550: 30 3A 8D 33 30 31 30 30 3A 99 C7 28 31 38 29 3B |0:.30100:..(18);|
00000560: 22 54 48 45 20 45 49 4E 53 54 45 49 4E 20 4D 45 |"THE EINSTEIN ME|
00000570: 4D 4F 52 59 20 54 52 41 49 4E 45 52 22 3B 00 9C |MORY TRAINER";..|
00000580: 0D E0 03 99 C7 28 31 34 36 29 3B 22 2E 22 3A 56 |.....(146);".":V|
00000590: 54 25 B2 31 32 3A 8D 33 30 31 30 30 00 CA 0D E1 |T%.12:.30100....|
000005A0: 03 99 22 54 48 41 4E 4B 20 59 4F 55 20 46 4F 52 |.."THANK YOU FOR|
000005B0: 20 50 4C 41 59 49 4E 47 21 22 3A 56 54 25 B2 32 | PLAYING!":VT%.2|
000005C0: 32 3A 8D 33 30 31 30 30 3A 80 00 DD 0D E8 03 8F |2:.30100:.......|
000005D0: 20 57 4F 52 44 20 44 49 53 50 4C 41 59 00 17 0E | WORD DISPLAY...|
000005E0: F2 03 99 C7 28 31 34 37 29 3B 3A 56 54 25 B2 31 |....(147);:VT%.1|
000005F0: 32 3A 8D 33 30 31 30 30 3A 46 49 4C 45 24 B2 22 |2:.30100:FILE$."|
00000600: 47 45 54 20 52 45 41 44 59 20 54 4F 20 42 45 20 |GET READY TO BE |
00000610: 54 45 53 54 45 44 22 00 37 0E F3 03 99 A3 39 29 |TESTED".7.....9)|
00000620: 3B 3A 53 45 43 B2 34 3A 8D 33 30 30 30 30 3A 99 |;:SEC.4:.30000:.|
00000630: C7 28 31 34 36 29 3B 00 43 0E FC 03 58 4E 55 4D |.(146);.C...XNUM|
00000640: B2 34 38 00 58 0E 10 04 58 4D 41 58 B2 54 4D 41 |.48.X...XMAX.TMA|
00000650: 58 3A 8D 20 31 35 30 30 00 85 0E 24 04 97 20 32 |X:. 1500...$.. 2|
00000660: 31 31 2C 30 3A 56 54 25 B2 31 32 3A 8D 33 30 31 |11,0:VT%.12:.301|
00000670: 30 30 3A 8D 33 30 32 30 30 3A 53 45 43 B2 32 3A |00:.30200:SEC.2:|
00000680: 8D 32 39 30 30 00 94 0E 25 04 8B 20 51 4E B2 31 |.2900...%.. QN.1|
00000690: 20 A7 20 8E 00 BA 0E 2E 04 8F 20 44 49 53 50 4C | . ....... DISPL|
000006A0: 41 59 20 43 4F 4E 43 52 45 54 45 2F 41 42 53 54 |AY CONCRETE/ABST|
000006B0: 52 41 43 54 20 57 4F 52 44 53 00 C8 0E 38 04 81 |RACT WORDS...8..|
000006C0: 49 B2 31 A4 54 4D 41 58 00 D7 0E 39 04 8B 20 51 |I.1.TMAX...9.. Q|
000006D0: 4E B2 31 20 A7 20 8E 00 F9 0E 4C 04 42 45 46 24 |N.1 . ....L.BEF$|
000006E0: 28 49 29 B2 57 52 44 53 24 28 54 59 50 45 2C 52 |(I).WRDS$(TYPE,R|
000006F0: 44 52 25 28 49 29 AB 31 29 00 2A 0F 60 04 56 54 |DR%(I).1).*.`.VT|
00000700: 25 B2 31 30 3A 8D 33 30 31 30 30 3A 97 32 31 31 |%.10:.30100:.211|
00000710: 2C 31 33 3A 99 C7 28 31 38 29 3B 22 20 20 20 20 |,13:..(18);" |
00000720: 20 20 20 20 20 20 20 20 22 3B 00 5B 0F 6A 04 56 | ";.[.j.V|
00000730: 54 25 B2 31 34 3A 8D 33 30 31 30 30 3A 97 32 31 |T%.14:.30100:.21|
00000740: 31 2C 31 33 3A 99 22 20 20 20 20 20 20 20 20 20 |1,13:." |
00000750: 20 20 20 22 3B C7 28 31 34 36 29 00 78 0F 74 04 | ";.(146).x.t.|
00000760: 97 32 31 31 2C 30 3A 56 54 25 B2 31 32 3A 8D 33 |.211,0:VT%.12:.3|
00000770: 30 31 30 30 3A 9E 4D 55 00 A1 0F 75 04 99 A3 B5 |0100:.MU...u....|
00000780: 28 28 34 30 AB C3 28 42 45 46 24 28 49 29 29 29 |((40..(BEF$(I)))|
00000790: AD 32 29 29 3B 42 45 46 24 28 49 29 3B A6 31 30 |.2));BEF$(I);.10|
000007A0: 29 00 C5 0F 7E 04 56 54 25 B2 31 32 3A 8D 33 30 |)...~.VT%.12:.30|
000007B0: 31 30 30 3A 97 32 31 31 2C 30 3A 99 22 28 22 3B |100:.211,0:."(";|
000007C0: 49 3B 22 29 22 00 D8 0F 7F 04 8B 50 52 4F 4D 50 |I;")"......PROMP|
000007D0: 54 B2 31 89 31 31 37 30 00 FE 0F 88 04 56 54 25 |T.1.1170.....VT%|
000007E0: B2 32 33 3A 8D 33 30 31 30 30 3A 46 49 4C 45 24 |.23:.30100:FILE$|
000007F0: B2 54 4D 50 24 28 49 29 3A 8D 32 39 39 30 00 24 |.TMP$(I):.2990.$|
00000800: 10 89 04 56 54 25 B2 32 33 3A 8D 33 30 31 30 30 |...VT%.23:.30100|
00000810: 3A 97 32 31 31 2C 30 3A 99 22 4C 4F 43 41 54 49 |:.211,0:."LOCATI|
00000820: 4F 4E 3A 22 00 49 10 92 04 53 45 43 B2 44 54 49 |ON:".I...SEC.DTI|
00000830: 4D 45 3A 8F 20 55 53 45 52 20 53 45 4C 45 43 54 |ME:. USER SELECT|
00000840: 41 42 4C 45 20 54 49 4D 45 00 53 10 9C 04 8D 32 |ABLE TIME.S....2|
00000850: 39 30 30 00 7C 10 A6 04 8F 20 42 4C 41 4E 4B 20 |900.|.... BLANK |
00000860: 44 49 53 50 4C 41 59 20 46 4F 52 20 30 2E 35 20 |DISPLAY FOR 0.5 |
00000870: 53 45 43 20 49 4E 54 45 52 56 41 4C 00 9C 10 B0 |SEC INTERVAL....|
00000880: 04 56 54 25 B2 31 32 3A 8D 33 30 31 30 30 3A 97 |.VT%.12:.30100:.|
00000890: 32 31 31 2C 30 3A 8D 33 30 32 30 30 00 BC 10 BA |211,0:.30200....|
000008A0: 04 56 54 25 B2 32 33 3A 8D 33 30 31 30 30 3A 97 |.VT%.23:.30100:.|
000008B0: 32 31 31 2C 30 3A 8D 33 30 32 30 30 00 CC 10 C4 |211,0:.30200....|
000008C0: 04 53 45 43 B2 31 3A 8D 32 39 30 30 00 DB 10 C5 |.SEC.1:.2900....|
000008D0: 04 8B 20 51 4E B2 31 20 A7 20 8E 00 E2 10 CE 04 |.. QN.1 . ......|
000008E0: 82 49 00 E8 10 D8 04 8E 00 04 11 DC 05 8F 20 52 |.I............ R|
000008F0: 41 4E 44 4F 4D 20 4F 52 44 45 52 20 53 45 4C 45 |ANDOM ORDER SELE|
00000900: 43 54 4F 52 00 1C 11 E6 05 52 44 52 25 28 31 29 |CTOR.....RDR%(1)|
00000910: B2 58 4E 55 4D AC BB 28 31 29 AA 31 00 2A 11 F0 |.XNUM..(1).1.*..|
00000920: 05 81 49 B2 32 A4 58 4D 41 58 00 42 11 FA 05 52 |..I.2.XMAX.B...R|
00000930: 44 52 25 28 49 29 B2 58 4E 55 4D AC BB 28 31 29 |DR%(I).XNUM..(1)|
00000940: AA 31 00 4F 11 04 06 81 4A B2 31 A4 49 AB 31 00 |.1.O....J.1.I.1.|
00000950: 7E 11 0E 06 8B 52 44 52 25 28 49 29 B2 52 44 52 |~....RDR%(I).RDR|
00000960: 25 28 4A 29 89 31 35 33 30 3A 8F 20 47 45 54 20 |%(J).1530:. GET |
00000970: 41 20 4E 45 57 20 52 41 4E 44 4F 4D 20 23 00 88 |A NEW RANDOM #..|
00000980: 11 18 06 82 4A 3A 82 49 00 8E 11 3F 06 8E 00 A9 |....J:.I...?....|
00000990: 11 A4 06 8F 20 4D 45 4D 4F 52 59 20 4F 50 54 49 |.... MEMORY OPTI|
000009A0: 4F 4E 20 53 45 4C 45 43 54 00 DA 11 AE 06 99 C7 |ON SELECT.......|
000009B0: 28 31 34 37 29 3B 3A 46 49 4C 45 24 B2 22 53 45 |(147);:FILE$."SE|
000009C0: 54 20 4D 45 4D 4F 52 59 20 50 52 41 43 54 49 43 |T MEMORY PRACTIC|
000009D0: 45 20 4F 50 54 49 4F 4E 53 22 00 F5 11 AF 06 99 |E OPTIONS"......|
000009E0: C7 28 31 38 29 3B 3A 8D 32 39 39 30 3A 99 C7 28 |.(18);:.2990:..(|
000009F0: 31 34 36 29 3B 00 0D 12 B8 06 56 54 25 B2 34 3A |146);.....VT%.4:|
00000A00: 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 00 45 12 |.30100:.211,0.E.|
00000A10: B9 06 99 22 4E 55 4D 42 45 52 20 4F 46 20 49 54 |..."NUMBER OF IT|
00000A20: 45 4D 53 20 49 4E 20 4C 49 53 54 20 28 35 20 54 |EMS IN LIST (5 T|
00000A30: 4F 20 22 3B 4B 4D 41 58 3B 22 29 2E 2E 2E 22 3B |O ";KMAX;")...";|
00000A40: A3 33 38 29 3B 00 64 12 C2 06 8D 20 37 31 3A 8D |.38);.d.... 71:.|
00000A50: 38 30 3A 54 4D 41 58 B2 C5 28 4C 24 29 3A 97 32 |80:TMAX..(L$):.2|
00000A60: 31 31 2C 30 00 73 12 C3 06 8B 20 51 4E B2 31 20 |11,0.s.... QN.1 |
00000A70: A7 20 8E 00 91 12 CC 06 8B A8 28 54 4D 41 58 B1 |. ........(TMAX.|
00000A80: 4B 4D 41 58 B0 54 4D 41 58 B3 35 29 A7 31 37 35 |KMAX.TMAX.5).175|
00000A90: 30 00 AF 12 CD 06 56 54 25 B2 36 3A 8D 33 30 31 |0.....VT%.6:.301|
00000AA0: 30 30 3A 99 C7 28 31 38 29 3B C7 28 37 29 3B 00 |00:..(18);.(7);.|
00000AB0: E0 12 CE 06 99 22 49 4C 4C 45 47 41 4C 20 45 4E |....."ILLEGAL EN|
00000AC0: 54 52 59 21 20 50 4C 45 41 53 45 20 45 4E 54 45 |TRY! PLEASE ENTE|
00000AD0: 52 20 41 47 41 49 4E 22 3B C7 28 31 34 36 29 3B |R AGAIN";.(146);|
00000AE0: 00 F1 12 CF 06 8D 33 30 32 30 30 3A 89 31 37 32 |......30200:.172|
00000AF0: 30 00 1E 13 D6 06 56 54 25 B2 36 3A 8D 33 30 31 |0.....VT%.6:.301|
00000B00: 30 30 3A 99 22 48 45 4C 50 20 57 49 54 48 20 4C |00:."HELP WITH L|
00000B10: 4F 43 49 2D 2D 22 3B 3A 8D 33 30 32 30 30 00 36 |OCI--";:.30200.6|
00000B20: 13 D8 06 56 54 25 B2 38 3A 8D 33 30 31 30 30 3A |...VT%.8:.30100:|
00000B30: 97 32 31 31 2C 33 00 65 13 D9 06 99 22 49 4E 20 |.211,3.e...."IN |
00000B40: 4D 45 4D 4F 52 49 5A 49 4E 47 3A 20 28 59 29 45 |MEMORIZING: (Y)E|
00000B50: 53 20 4F 52 20 28 4E 29 4F 2E 2E 2E 2E 2E 22 3B |S OR (N)O.....";|
00000B60: A3 33 38 29 3B 00 71 13 DA 06 8D 37 31 3A 99 43 |.38);.q....71:.C|
00000B70: 24 00 80 13 DB 06 8B 20 51 4E B2 31 20 A7 20 8E |$...... QN.1 . .|
00000B80: 00 9B 13 E0 06 8B 43 24 B2 22 59 22 A7 50 52 4F |......C$."Y".PRO|
00000B90: 4D 50 54 B2 30 3A 89 31 37 37 32 00 B6 13 E5 06 |MPT.0:.1772.....|
00000BA0: 8B 43 24 B2 22 4E 22 A7 50 52 4F 4D 50 54 B2 31 |.C$."N".PROMPT.1|
00000BB0: 3A 89 31 37 37 32 00 C0 13 EA 06 89 31 37 35 30 |:.1772......1750|
00000BC0: 00 D9 13 EC 06 56 54 25 B2 31 30 3A 8D 33 30 31 |.....VT%.10:.301|
00000BD0: 30 30 3A 97 32 31 31 2C 33 00 08 14 ED 06 99 22 |00:.211,3......"|
00000BE0: 49 4E 20 52 45 43 41 4C 4C 49 4E 47 3A 20 20 28 |IN RECALLING: (|
00000BF0: 59 29 45 53 20 4F 52 20 28 4E 29 4F 2E 2E 2E 2E |Y)ES OR (N)O....|
00000C00: 2E 22 3B A3 33 38 29 3B 00 1F 14 EE 06 8D 37 31 |.";.38);......71|
00000C10: 3A 99 43 24 3A 8B 20 51 4E B2 31 20 A7 20 8E 00 |:.C$:. QN.1 . ..|
00000C20: 36 14 EF 06 8B 43 24 B2 22 59 22 A7 50 57 B2 30 |6....C$."Y".PW.0|
00000C30: 3A 89 31 37 39 30 00 4D 14 F0 06 8B 43 24 B2 22 |:.1790.M....C$."|
00000C40: 4E 22 A7 50 57 B2 31 3A 89 31 37 39 30 00 57 14 |N".PW.1:.1790.W.|
00000C50: F4 06 89 31 37 37 32 00 70 14 FE 06 56 54 25 B2 |...1772.p...VT%.|
00000C60: 31 32 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 |12:.30100:.211,0|
00000C70: 00 A2 14 FF 06 99 22 44 49 53 50 4C 41 59 20 53 |......"DISPLAY S|
00000C80: 50 45 45 44 3A 20 28 31 29 53 4C 4F 57 20 54 4F |PEED: (1)SLOW TO|
00000C90: 20 28 34 29 46 41 53 54 2E 2E 2E 22 3B A3 33 38 | (4)FAST...";.38|
00000CA0: 29 3B 00 B6 14 00 07 8D 37 31 3A 99 43 24 3A 58 |);......71:.C$:X|
00000CB0: B2 C5 28 43 24 29 00 C5 14 01 07 8B 20 51 4E B2 |..(C$)...... QN.|
00000CC0: 31 20 A7 20 8E 00 DB 14 08 07 8B 28 58 B1 34 29 |1 . .......(X.4)|
00000CD0: B0 28 58 B2 30 29 89 31 37 39 30 00 EA 14 12 07 |.(X.0).1790.....|
00000CE0: 44 54 49 4D 45 B2 32 30 AD 58 00 03 15 1C 07 56 |DTIME.20.X.....V|
00000CF0: 54 25 B2 31 34 3A 8D 33 30 31 30 30 3A 97 32 31 |T%.14:.30100:.21|
00000D00: 31 2C 30 00 35 15 1D 07 99 22 49 54 45 4D 20 44 |1,0.5...."ITEM D|
00000D10: 49 46 46 49 43 55 4C 54 59 3A 20 28 31 29 45 41 |IFFICULTY: (1)EA|
00000D20: 53 59 20 54 4F 20 28 35 29 48 41 52 44 2E 22 3B |SY TO (5)HARD.";|
00000D30: A3 33 38 29 3B 00 41 15 1E 07 8D 37 31 3A 99 43 |.38);.A....71:.C|
00000D40: 24 00 50 15 1F 07 8B 20 51 4E B2 31 20 A7 20 8E |$.P.... QN.1 . .|
00000D50: 00 73 15 26 07 54 59 50 45 B2 C5 28 43 24 29 3A |.s.&.TYPE..(C$):|
00000D60: 8B 54 59 50 45 B2 30 B0 54 59 50 45 B1 35 89 31 |.TYPE.0.TYPE.5.1|
00000D70: 38 32 30 00 A0 15 30 07 53 43 B2 31 30 AC 28 32 |820...0.SC.10.(2|
00000D80: AC 50 52 4F 4D 50 54 AA 50 57 AA 31 29 AC 58 AC |.PROMPT.PW.1).X.|
00000D90: 54 59 50 45 3A 54 59 50 45 B2 54 59 50 45 AB 31 |TYPE:TYPE.TYPE.1|
00000DA0: 00 D9 15 3A 07 56 54 25 B2 31 37 3A 8D 33 30 31 |...:.VT%.17:.301|
00000DB0: 30 30 3A 99 22 53 43 4F 52 45 20 46 4F 52 20 45 |00:."SCORE FOR E|
00000DC0: 41 43 48 20 43 4F 52 52 45 43 54 20 41 4E 53 57 |ACH CORRECT ANSW|
00000DD0: 45 52 20 2E 2E 2E 2E 22 3B 00 FB 15 3B 07 99 A3 |ER ....";...;...|
00000DE0: 33 36 29 3B C7 28 31 38 29 3B 53 43 3B C7 28 31 |36);.(18);SC;.(1|
00000DF0: 34 36 29 3B 3A 8D 33 30 32 30 30 00 14 16 44 07 |46);:.30200...D.|
00000E00: 56 54 25 B2 32 31 3A 8D 33 30 31 30 30 3A 97 32 |VT%.21:.30100:.2|
00000E10: 31 31 2C 30 00 4B 16 45 07 99 22 41 52 45 20 54 |11,0.K.E.."ARE T|
00000E20: 48 45 53 45 20 54 48 45 20 4F 50 54 49 4F 4E 53 |HESE THE OPTIONS|
00000E30: 20 59 4F 55 20 57 41 4E 54 3F 20 28 59 2F 4E 29 | YOU WANT? (Y/N)|
00000E40: 20 22 3B 3A 8D 37 31 3A 99 43 24 00 5A 16 46 07 | ";:.71:.C$.Z.F.|
00000E50: 8B 20 51 4E B2 31 20 A7 20 8E 00 6B 16 4E 07 8B |. QN.1 . ..k.N..|
00000E60: 43 24 B2 22 59 22 89 31 38 39 39 00 7D 16 58 07 |C$."Y".1899.}.X.|
00000E70: 8B 43 24 B3 B1 22 4E 22 89 31 38 36 30 00 87 16 |.C$.."N".1860...|
00000E80: 62 07 89 31 37 32 30 00 8D 16 6B 07 8E 00 A6 16 |b..1720...k.....|
00000E90: D0 07 8F 20 4B 45 59 42 4F 41 52 44 20 52 45 54 |... KEYBOARD RET|
00000EA0: 52 49 45 56 41 4C 00 CC 16 DA 07 4B B2 4C 4F 57 |RIEVAL.....K.LOW|
00000EB0: 3A 50 52 54 B2 31 3A 51 55 49 54 B2 30 3A 99 C7 |:PRT.1:QUIT.0:..|
00000EC0: 28 31 34 37 29 3B 3A 43 24 B2 22 22 00 EA 16 DB |(147);:C$.""....|
00000ED0: 07 81 49 B2 4C 4F 57 A4 48 49 47 48 3A 41 46 54 |..I.LOW.HIGH:AFT|
00000EE0: 24 28 49 29 B2 22 22 3A 82 49 00 05 17 E4 07 99 |$(I)."":.I......|
00000EF0: C7 28 31 38 29 3B 3A 8D 32 39 39 30 3A 99 C7 28 |.(18);:.2990:..(|
00000F00: 31 34 36 29 3B 00 1B 17 E5 07 81 58 58 B2 31 A4 |146);......XX.1.|
00000F10: 31 30 3A A1 58 58 24 3A 82 58 58 00 44 17 EE 07 |10:.XX$:.XX.D...|
00000F20: 44 46 52 B2 28 48 49 47 48 AB 4C 4F 57 AA 31 29 |DFR.(HIGH.LOW.1)|
00000F30: AD 32 3A 8B 43 4F 4C B2 31 A7 44 46 52 B2 48 49 |.2:.COL.1.DFR.HI|
00000F40: 47 48 AA 31 00 5F 17 F8 07 4F 46 46 53 45 54 B2 |GH.1._...OFFSET.|
00000F50: B5 28 28 48 49 47 48 AB 4C 4F 57 29 AD 32 29 00 |.((HIGH.LOW).2).|
00000F60: 6F 17 02 08 81 49 B2 4C 4F 57 A4 48 49 47 48 00 |o....I.LOW.HIGH.|
00000F70: 90 17 0C 08 41 48 B2 4C 4D 41 52 47 49 4E 3A 8B |....AH.LMARGIN:.|
00000F80: 49 B1 39 A7 41 48 B2 4C 4D 41 52 47 49 4E AB 31 |I.9.AH.LMARGIN.1|
00000F90: 00 B0 17 16 08 8B 28 49 AB 4C 4F 57 29 B1 B2 44 |......(I.LOW)..D|
00000FA0: 46 52 A7 41 48 B2 4C 4D 41 52 47 49 4E AA 32 30 |FR.AH.LMARGIN.20|
00000FB0: 00 C3 17 20 08 41 56 B2 32 AC 28 49 AB 4C 4F 57 |... .AV.2.(I.LOW|
00000FC0: 29 AA 33 00 EB 17 21 08 8B 28 49 AB 4C 4F 57 29 |).3...!..(I.LOW)|
00000FD0: B1 B2 44 46 52 A7 41 56 B2 32 AC 28 49 AB 4C 4F |..DFR.AV.2.(I.LO|
00000FE0: 57 AB 4F 46 46 53 45 54 29 AA 31 00 07 18 2A 08 |W.OFFSET).1...*.|
00000FF0: 56 54 25 B2 41 56 3A 8D 33 30 31 30 30 3A 97 32 |VT%.AV:.30100:.2|
00001000: 31 31 2C 41 48 AB 31 00 2E 18 2B 08 99 4D 53 47 |11,AH.1...+..MSG|
00001010: 24 28 49 29 3B A3 52 4D 41 52 47 49 4E 29 3B A6 |$(I);.RMARGIN);.|
00001020: 34 29 3B 54 4D 50 24 28 49 29 3B 41 4E 24 00 35 |4);TMP$(I);AN$.5|
00001030: 18 34 08 82 49 00 5B 18 3E 08 56 54 25 B2 32 32 |.4..I.[.>.VT%.22|
00001040: 3A 8D 33 30 31 30 30 3A 81 49 B2 30 A4 37 3A 99 |:.30100:.I.0.7:.|
00001050: 22 2D 2D 2D 2D 2D 22 3B 3A 82 49 00 80 18 48 08 |"-----";:.I...H.|
00001060: 56 54 25 B2 32 33 3A 8D 33 30 31 30 30 3A 99 C7 |VT%.23:.30100:..|
00001070: 28 31 38 29 3B 22 5E 22 3B C7 28 31 34 36 29 3B |(18);"^";.(146);|
00001080: 00 9C 18 49 08 99 22 20 46 4F 52 20 50 52 45 56 |...I.." FOR PREV|
00001090: 49 4F 55 53 20 4C 49 4E 45 3B 20 22 00 D3 18 52 |IOUS LINE; "...R|
000010A0: 08 56 54 25 B2 32 34 3A 8D 33 30 31 30 30 3A 99 |.VT%.24:.30100:.|
000010B0: 22 50 52 45 53 53 20 3C 52 45 54 55 52 4E 3E 20 |"PRESS <RETURN> |
000010C0: 41 46 54 45 52 20 45 41 43 48 20 45 4E 54 52 59 |AFTER EACH ENTRY|
000010D0: 2E 22 3B 00 E4 18 5C 08 8B 50 52 54 B2 31 A7 8D |.";...\..PRT.1..|
000010E0: 32 34 30 30 00 F4 18 66 08 8D 37 33 3A 58 B2 C6 |2400...f..73:X..|
000010F0: 28 43 24 29 00 03 19 67 08 8B 20 51 4E B2 31 20 |(C$)...g.. QN.1 |
00001100: A7 20 8E 00 22 19 7A 08 8B 28 58 B2 31 37 29 A7 |. ..".z..(X.17).|
00001110: 32 32 32 30 3A 8F 20 52 49 47 48 54 20 41 52 52 |2220:. RIGHT ARR|
00001120: 4F 57 00 46 19 84 08 8B 58 B2 34 32 A7 51 55 49 |OW.F....X.42.QUI|
00001130: 54 B2 31 3A 89 32 32 32 30 3A 8F 20 45 53 43 41 |T.1:.2220:. ESCA|
00001140: 50 45 20 4B 45 59 00 68 19 8E 08 8B 58 B2 31 33 |PE KEY.h....X.13|
00001150: 20 A7 32 32 32 30 3A 8F 20 43 41 52 52 49 41 47 | .2220:. CARRIAG|
00001160: 45 20 52 45 54 55 52 4E 00 8D 19 98 08 8B 28 58 |E RETURN......(X|
00001170: B2 39 34 29 A7 8D 32 35 30 30 3A 89 32 32 34 30 |.94)..2500:.2240|
00001180: 3A 8F 20 42 41 43 4B 20 41 52 52 4F 57 00 BB 19 |:. BACK ARROW...|
00001190: 9D 08 8B 28 58 B3 36 35 29 B0 28 58 B2 31 36 30 |...(X.65).(X.160|
000011A0: 29 B0 28 58 B1 39 30 29 A7 32 32 38 30 3A 8F 20 |).(X.90).2280:. |
000011B0: 4B 45 45 50 20 54 49 4D 49 4E 47 00 DD 19 A2 08 |KEEP TIMING.....|
000011C0: 97 32 31 31 2C 52 4D 41 52 47 49 4E AA 34 3A 8D |.211,RMARGIN.4:.|
000011D0: 38 30 3A 41 46 54 24 28 4B 29 B2 4C 24 00 EC 19 |80:AFT$(K).L$...|
000011E0: A3 08 8B 20 51 4E B2 31 20 A7 20 8E 00 08 1A AC |... QN.1 . .....|
000011F0: 08 56 54 25 B2 41 56 3A 8D 33 30 31 30 30 3A 97 |.VT%.AV:.30100:.|
00001200: 32 31 31 2C 41 48 AB 31 00 2E 1A AD 08 99 4D 53 |211,AH.1......MS|
00001210: 47 24 28 4B 29 3B C8 28 45 4C 24 2C 52 4D 41 52 |G$(K);.(EL$,RMAR|
00001220: 47 49 4E AA 34 AB C2 28 32 31 31 29 29 3B 00 55 |GIN.4..(211));.U|
00001230: 1A AE 08 8B A8 28 C8 28 42 45 46 24 28 4B 29 2C |.....(.(BEF$(K),|
00001240: 33 29 B2 C8 28 41 46 54 24 28 4B 29 2C 33 29 29 |3)..(AFT$(K),3))|
00001250: A7 32 32 33 30 00 6A 1A AF 08 99 42 45 46 24 28 |.2230.j....BEF$(|
00001260: 4B 29 3B 3A 8D 33 30 32 30 30 00 8C 1A B6 08 4B |K);:.30200.....K|
00001270: B2 4B AA 31 3A 8B 51 55 49 54 B2 31 A7 4B B2 48 |.K.1:.QUIT.1.K.H|
00001280: 49 47 48 AA 31 3A 51 55 49 54 B2 30 00 96 1A C0 |IGH.1:QUIT.0....|
00001290: 08 50 52 54 B2 31 00 9F 1A CA 08 9E 20 4D 55 00 |.PRT.1...... MU.|
000012A0: C4 1A D4 08 81 58 58 B2 31 A4 31 30 3A A1 58 58 |.....XX.1.10:.XX|
000012B0: 24 3A 82 58 58 3A 8F 20 52 45 53 45 54 20 53 54 |$:.XX:. RESET ST|
000012C0: 52 4F 42 45 00 D6 1A DE 08 8B 4B B1 48 49 47 48 |ROBE......K.HIGH|
000012D0: A7 8D 32 33 31 30 00 E7 1A E8 08 8B 43 24 B2 22 |..2310......C$."|
000012E0: 59 22 89 32 33 30 30 00 03 1B F2 08 89 32 31 34 |Y".2300......214|
000012F0: 30 3A 8F 20 42 41 43 4B 20 54 4F 20 54 48 45 20 |0:. BACK TO THE |
00001300: 54 4F 50 00 09 1B FC 08 8E 00 21 1B 06 09 8F 20 |TOP.......!.... |
00001310: 41 4E 59 20 4D 4F 52 45 20 43 48 41 4E 47 45 53 |ANY MORE CHANGES|
00001320: 3F 00 2C 1B 10 09 4B B2 48 49 47 48 00 67 1B 1A |?.,...K.HIGH.g..|
00001330: 09 56 54 25 B2 32 35 3A 8D 33 30 31 30 30 3A 97 |.VT%.25:.30100:.|
00001340: 32 31 31 2C 30 3A 99 22 91 91 22 3B C8 28 45 4C |211,0:."..";.(EL|
00001350: 24 2C 33 39 29 3B 3A 8F 20 54 4F 20 45 4E 44 2D |$,39);:. TO END-|
00001360: 4F 46 2D 4C 49 4E 45 00 84 1B 24 09 56 54 25 B2 |OF-LINE...$.VT%.|
00001370: 32 34 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 |24:.30100:.211,0|
00001380: 3A 9E 4D 55 00 B4 1B 25 09 99 22 41 52 45 20 59 |:.MU...%.."ARE Y|
00001390: 4F 55 20 46 49 4E 49 53 48 45 44 20 4D 41 4B 49 |OU FINISHED MAKI|
000013A0: 4E 47 20 45 4E 54 52 49 45 53 3F 20 28 59 2F 4E |NG ENTRIES? (Y/N|
000013B0: 29 20 22 3B 00 D2 1B 2E 09 56 54 25 B2 32 34 3A |) ";.....VT%.24:|
000013C0: 8D 33 30 31 30 30 3A 97 32 31 31 2C 33 39 3A 8D |.30100:.211,39:.|
000013D0: 37 31 00 E1 1B 2F 09 8B 20 51 4E B2 31 20 A7 20 |71.../.. QN.1 . |
000013E0: 8E 00 19 1C 38 09 8B 43 24 B2 22 59 22 89 32 33 |....8..C$."Y".23|
000013F0: 39 30 3A 8F 20 52 45 54 55 52 4E 20 54 4F 20 4D |90:. RETURN TO M|
00001400: 41 49 4E 20 50 4F 52 54 49 4F 4E 20 4F 46 20 53 |AIN PORTION OF S|
00001410: 55 42 52 4F 55 54 49 4E 45 00 33 1C 3D 09 8B 43 |UBROUTINE.3.=..C|
00001420: 24 B2 C7 28 31 37 29 A7 4B B2 4C 4F 57 3A 89 32 |$..(17).K.LOW:.2|
00001430: 33 38 30 00 4D 1C 42 09 8B 43 24 B2 22 4E 22 B0 |380.M.B..C$."N".|
00001440: 43 24 B2 C7 28 39 34 29 89 32 33 38 30 00 57 1C |C$..(94).2380.W.|
00001450: 47 09 89 32 33 35 30 00 88 1C 4C 09 56 54 25 B2 |G..2350...L.VT%.|
00001460: 32 35 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 |25:.30100:.211,0|
00001470: 3A 99 22 91 91 22 3B C7 28 31 38 29 3B 22 5E 22 |:."..";.(18);"^"|
00001480: 3B C7 28 31 34 36 29 3B 00 A4 1C 4D 09 99 22 20 |;.(146);...M.." |
00001490: 46 4F 52 20 50 52 45 56 49 4F 55 53 20 4C 49 4E |FOR PREVIOUS LIN|
000014A0: 45 3B 20 22 00 E3 1C 51 09 56 54 25 B2 32 34 3A |E; "...Q.VT%.24:|
000014B0: 8D 33 30 31 30 30 3A 99 22 4D 41 4B 45 20 43 48 |.30100:."MAKE CH|
000014C0: 41 4E 47 45 53 20 41 4E 44 20 52 45 54 55 52 4E |ANGES AND RETURN|
000014D0: 20 50 41 53 54 20 4C 41 53 54 20 45 4E 54 52 59 | PAST LAST ENTRY|
000014E0: 20 22 3B 00 E9 1C 56 09 8E 00 03 1D 60 09 8F 20 | ";...V.....`.. |
000014F0: 48 49 47 48 4C 49 47 48 54 20 4E 45 58 54 20 4C |HIGHLIGHT NEXT L|
00001500: 49 4E 45 00 24 1D 6A 09 41 48 B2 4C 4D 41 52 47 |INE.$.j.AH.LMARG|
00001510: 49 4E 3A 8B 4B B1 39 A7 41 48 B2 4C 4D 41 52 47 |IN:.K.9.AH.LMARG|
00001520: 49 4E AB 31 00 44 1D 74 09 8B 28 4B AB 4C 4F 57 |IN.1.D.t..(K.LOW|
00001530: 29 B1 B2 44 46 52 A7 41 48 B2 4C 4D 41 52 47 49 |)..DFR.AH.LMARGI|
00001540: 4E AA 32 30 00 57 1D 7E 09 41 56 B2 32 AC 28 4B |N.20.W.~.AV.2.(K|
00001550: AB 4C 4F 57 29 AA 33 00 7D 1D 7F 09 8B 28 4B AB |.LOW).3.}....(K.|
00001560: 4C 4F 57 29 B1 B2 44 46 52 A7 41 56 B2 32 AC 28 |LOW)..DFR.AV.2.(|
00001570: 4B AB 4C 4F 57 AB 4F 46 46 53 45 54 29 00 B0 1D |K.LOW.OFFSET)...|
00001580: 88 09 56 54 25 B2 41 56 3A 8D 33 30 31 30 30 3A |..VT%.AV:.30100:|
00001590: 97 32 31 31 2C 41 48 AB 31 3A 99 C7 28 31 38 29 |.211,AH.1:..(18)|
000015A0: 3B 4D 53 47 24 28 4B 29 3B C7 28 31 34 36 29 3B |;MSG$(K);.(146);|
000015B0: 00 CB 1D 92 09 97 32 31 31 2C 52 4D 41 52 47 49 |......211,RMARGI|
000015C0: 4E AB 31 3A 99 22 2D 2D 3E 22 3B 00 D5 1D 9C 09 |N.1:."-->";.....|
000015D0: 50 52 54 B2 30 00 DB 1D A6 09 8E 00 F3 1D C4 09 |PRT.0...........|
000015E0: 8F 20 42 41 43 4B 53 50 41 43 45 20 48 41 4E 44 |. BACKSPACE HAND|
000015F0: 4C 45 52 00 30 1E CE 09 56 54 25 B2 41 56 3A 8D |LER.0...VT%.AV:.|
00001600: 33 30 31 30 30 3A 97 32 31 31 2C 41 48 AB 31 3A |30100:.211,AH.1:|
00001610: 99 4D 53 47 24 28 4B 29 3B C8 28 45 4C 24 2C 52 |.MSG$(K);.(EL$,R|
00001620: 4D 41 52 47 49 4E AA 34 AB C2 28 32 31 31 29 29 |MARGIN.4..(211))|
00001630: 00 62 1E D8 09 4B B2 4B AB 31 3A 8B 4B B3 4C 4F |.b...K.K.1:.K.LO|
00001640: 57 A7 4B B2 4C 4F 57 3A 8F 20 50 52 45 56 45 4E |W.K.LOW:. PREVEN|
00001650: 54 20 4F 46 46 2D 53 43 52 45 45 4E 20 45 52 52 |T OFF-SCREEN ERR|
00001660: 4F 52 00 68 1E E2 09 8E 00 7E 1E 54 0B 53 45 43 |OR.h.....~.T.SEC|
00001670: B2 53 45 43 AA 32 AC 28 53 45 43 B2 30 29 00 9F |.SEC.2.(SEC.0)..|
00001680: 1E 55 0B 81 58 B2 31 A4 53 45 43 AC 36 30 3A 8D |.U..X.1.SEC.60:.|
00001690: 39 36 30 30 3A 82 58 3A 8E 3A 8F 20 36 33 30 00 |9600:.X:.:. 630.|
000016A0: C4 1E AE 0B 99 A3 B5 28 28 34 30 AB C3 28 46 49 |.......((40..(FI|
000016B0: 4C 45 24 29 29 AD 32 29 29 3B 46 49 4C 45 24 3B |LE$)).2));FILE$;|
000016C0: A3 34 30 29 00 D1 1E AF 0B 97 32 31 31 2C 30 3A |.40)......211,0:|
000016D0: 8E 00 E5 1E B8 0B 8F 20 52 45 43 41 4C 4C 20 54 |....... RECALL T|
000016E0: 45 53 54 45 52 00 0F 1F C2 0B 41 4E 53 B2 30 3A |ESTER.....ANS.0:|
000016F0: 8F 20 5A 45 52 4F 20 54 48 45 20 23 20 4F 46 20 |. ZERO THE # OF |
00001700: 43 4F 52 52 45 43 54 20 41 4E 53 57 45 52 53 00 |CORRECT ANSWERS.|
00001710: 1A 1F CC 0B 8D 31 33 30 30 30 00 3D 1F D6 0B 8D |.....13000.=....|
00001720: 33 33 30 30 3A 8F 20 52 45 4D 4F 56 45 20 54 52 |3300:. REMOVE TR|
00001730: 41 49 4C 49 4E 47 20 42 4C 41 4E 4B 53 00 67 1F |AILING BLANKS.g.|
00001740: E0 0B 8F 20 44 49 53 50 4C 41 59 20 43 4F 52 52 |... DISPLAY CORR|
00001750: 45 43 54 20 26 20 49 4E 43 4F 52 52 45 43 54 20 |ECT & INCORRECT |
00001760: 41 4E 53 57 45 52 53 00 8D 1F EA 0B 46 49 4C 45 |ANSWERS.....FILE|
00001770: 24 B2 22 59 4F 55 52 20 54 45 53 54 20 52 45 53 |$."YOUR TEST RES|
00001780: 55 4C 54 53 22 3A 99 C7 28 31 38 29 3B 00 A0 1F |ULTS":..(18);...|
00001790: EB 0B 8D 32 39 39 30 3A 99 C7 28 31 34 36 29 3B |...2990:..(146);|
000017A0: 00 CF 1F F4 0B 56 54 25 B2 33 3A 8D 33 30 31 30 |.....VT%.3:.3010|
000017B0: 30 3A 97 32 31 31 2C 35 3A 99 22 43 4F 52 52 45 |0:.211,5:."CORRE|
000017C0: 43 54 22 3B A6 31 34 29 3B 22 59 4F 55 52 22 00 |CT";.14);"YOUR".|
000017D0: 00 20 FE 0B 56 54 25 B2 34 3A 8D 33 30 31 30 30 |. ..VT%.4:.30100|
000017E0: 3A 99 A3 35 29 3B 22 52 45 53 50 4F 4E 53 45 22 |:..5);"RESPONSE"|
000017F0: 3B A3 32 34 29 3B 22 52 45 53 50 4F 4E 53 45 22 |;.24);"RESPONSE"|
00001800: 00 1A 20 08 0C 81 49 B2 30 A4 37 3A 99 22 2D 2D |.. ...I.0.7:."--|
00001810: 2D 2D 2D 22 3B 3A 82 49 3A 99 00 2A 20 12 0C 81 |---";:.I:..* ...|
00001820: 49 B2 4C 4F 57 A4 48 49 47 48 00 64 20 1C 0C 8B |I.LOW.HIGH.d ...|
00001830: 42 45 46 24 28 49 29 B2 22 22 A7 42 45 46 24 28 |BEF$(I)."".BEF$(|
00001840: 49 29 B2 22 20 22 3A 8F 20 53 4B 49 50 20 54 48 |I)." ":. SKIP TH|
00001850: 49 53 20 4F 4E 45 20 49 46 20 49 54 27 53 20 42 |IS ONE IF IT'S B|
00001860: 4C 41 4E 4B 00 78 20 26 0C 99 22 28 22 3B 49 3B |LANK.x &.."(";I;|
00001870: 22 29 22 3B A3 36 29 3B 00 9F 20 30 0C 8B A8 28 |")";.6);.. 0...(|
00001880: C8 28 42 45 46 24 28 49 29 2C 33 29 B2 C8 28 41 |.(BEF$(I),3)..(A|
00001890: 46 54 24 28 49 29 2C 33 29 29 A7 33 31 33 30 00 |FT$(I),3)).3130.|
000018A0: CD 20 31 0C 99 C8 28 42 45 46 24 28 49 29 2C 31 |. 1...(BEF$(I),1|
000018B0: 38 29 3B 3A 41 4E 53 B2 41 4E 53 AA 31 3A 41 46 |8);:ANS.ANS.1:AF|
000018C0: 54 24 28 49 29 B2 42 45 46 24 28 49 29 00 F5 20 |T$(I).BEF$(I).. |
000018D0: 3A 0C 8B A8 28 C8 28 42 45 46 24 28 49 29 2C 33 |:...(.(BEF$(I),3|
000018E0: 29 B3 B1 C8 28 41 46 54 24 28 49 29 2C 33 29 29 |)...(AFT$(I),3))|
000018F0: A7 33 31 34 30 00 16 21 3B 0C 99 C7 28 31 38 29 |.3140..!;...(18)|
00001900: 3B C8 28 42 45 46 24 28 49 29 2C 31 38 29 3B C7 |;.(BEF$(I),18);.|
00001910: 28 31 34 36 29 3B 00 31 21 44 0C 97 32 31 31 2C |(146);.1!D..211,|
00001920: 32 33 3A 99 C8 28 41 46 54 24 28 49 29 2C 31 36 |23:..(AFT$(I),16|
00001930: 29 00 38 21 4E 0C 82 49 00 5A 21 58 0C 58 B2 B5 |).8!N..I.Z!X.X..|
00001940: 28 31 30 30 AC 41 4E 53 AD 28 48 49 47 48 AB 4C |(100.ANS.(HIGH.L|
00001950: 4F 57 AA 31 29 AA 30 2E 35 29 00 85 21 62 0C 99 |OW.1).0.5)..!b..|
00001960: 3A 99 22 59 4F 55 20 52 45 4D 45 4D 42 45 52 45 |:."YOU REMEMBERE|
00001970: 44 20 22 3B C7 28 31 38 29 3B 41 4E 53 3B C7 28 |D ";.(18);ANS;.(|
00001980: 31 34 36 29 3B 00 B3 21 63 0C 99 22 20 43 4F 52 |146);..!c.." COR|
00001990: 52 45 43 54 4C 59 2C 20 4F 52 20 22 3B C7 28 31 |RECTLY, OR ";.(1|
000019A0: 38 29 3B 58 3B 22 9D 22 3B 22 25 22 C7 28 31 34 |8);X;".";"%".(14|
000019B0: 36 29 3B 00 BD 21 76 0C 8D 39 35 31 30 00 C3 21 |6);..!v..9510..!|
000019C0: 80 0C 8E 00 E8 21 E4 0C 8F 20 52 45 4D 4F 56 45 |.....!... REMOVE|
000019D0: 20 54 52 41 49 4C 49 4E 47 20 42 4C 41 4E 4B 53 | TRAILING BLANKS|
000019E0: 20 49 4E 20 41 46 54 24 00 F8 21 EE 0C 81 49 B2 | IN AFT$..!...I.|
000019F0: 4C 4F 57 A4 48 49 47 48 00 15 22 F8 0C 58 B2 C3 |LOW.HIGH.."..X..|
00001A00: 28 41 46 54 24 28 49 29 29 AB 31 3A 8B 58 B2 30 |(AFT$(I)).1:.X.0|
00001A10: 89 33 33 35 30 00 46 22 02 0D 8B C9 28 41 46 54 |.3350.F"....(AFT|
00001A20: 24 28 49 29 2C 31 29 B2 22 20 22 A7 41 46 54 24 |$(I),1)." ".AFT$|
00001A30: 28 49 29 B2 C8 28 41 46 54 24 28 49 29 2C 58 29 |(I)..(AFT$(I),X)|
00001A40: 3A 89 33 33 32 30 00 77 22 0C 0D 8B C8 28 41 46 |:.3320.w"....(AF|
00001A50: 54 24 28 49 29 2C 31 29 B2 22 20 22 A7 41 46 54 |T$(I),1)." ".AFT|
00001A60: 24 28 49 29 B2 C9 28 41 46 54 24 28 49 29 2C 58 |$(I)..(AFT$(I),X|
00001A70: 29 3A 89 33 33 32 30 00 7E 22 16 0D 82 49 00 84 |):.3320.~"...I..|
00001A80: 22 47 0D 8E 00 9C 22 74 0E 8F 20 57 49 4E 4E 45 |"G...."t.. WINNE|
00001A90: 52 27 53 20 4D 45 53 53 41 47 45 53 00 B3 22 7E |R'S MESSAGES.."~|
00001AA0: 0E 8B 41 4E 53 B3 30 2E 37 AC 54 4D 41 58 89 33 |..ANS.0.7.TMAX.3|
00001AB0: 37 39 30 00 CD 22 88 0E 99 C7 28 31 34 37 29 3B |790.."....(147);|
00001AC0: 3A 56 54 25 B2 39 3A 8D 33 30 31 30 30 00 F7 22 |:VT%.9:.30100.."|
00001AD0: 89 0E 46 49 4C 45 24 B2 22 2D 2D 43 4F 4E 47 52 |..FILE$."--CONGR|
00001AE0: 41 54 55 4C 41 54 49 4F 4E 53 2D 2D 22 3A 8D 32 |ATULATIONS--":.2|
00001AF0: 39 39 30 3A 99 3A 99 00 2D 23 92 0E 8B 41 4E 53 |990:.:..-#...ANS|
00001B00: B2 54 4D 41 58 A7 46 49 4C 45 24 B2 22 59 4F 55 |.TMAX.FILE$."YOU|
00001B10: 52 20 4D 45 4D 4F 52 59 20 57 41 53 20 50 45 52 |R MEMORY WAS PER|
00001B20: 46 45 43 54 21 21 22 3A 89 33 37 36 30 00 69 23 |FECT!!":.3760.i#|
00001B30: 9C 0E 8B 41 4E 53 B1 B2 30 2E 39 AC 54 4D 41 58 |...ANS..0.9.TMAX|
00001B40: A7 46 49 4C 45 24 B2 22 59 4F 55 52 20 4D 45 4D |.FILE$."YOUR MEM|
00001B50: 4F 52 59 20 57 41 53 20 45 58 43 45 4C 4C 45 4E |ORY WAS EXCELLEN|
00001B60: 54 21 22 3A 89 33 37 36 30 00 A5 23 A6 0E 8B 41 |T!":.3760..#...A|
00001B70: 4E 53 B1 B2 30 2E 38 AC 54 4D 41 58 A7 46 49 4C |NS..0.8.TMAX.FIL|
00001B80: 45 24 B2 22 59 4F 55 52 20 4D 45 4D 4F 52 59 20 |E$."YOUR MEMORY |
00001B90: 57 41 53 20 56 45 52 59 20 47 4F 4F 44 21 22 3A |WAS VERY GOOD!":|
00001BA0: 89 33 37 36 30 00 E2 23 AB 0E 8B 41 4E 53 B1 B2 |.3760..#...ANS..|
00001BB0: 30 2E 37 AC 54 4D 41 58 A7 46 49 4C 45 24 B2 22 |0.7.TMAX.FILE$."|
00001BC0: 59 4F 55 52 20 4D 45 4D 4F 52 59 20 57 41 53 20 |YOUR MEMORY WAS |
00001BD0: 47 4F 4F 44 2E 20 4B 45 45 50 20 49 54 20 55 50 |GOOD. KEEP IT UP|
00001BE0: 21 22 00 10 24 B0 0E 8D 32 39 39 30 3A 46 49 4C |!"..$...2990:FIL|
00001BF0: 45 24 B2 22 38 37 38 36 38 37 38 35 38 37 38 34 |E$."878687858784|
00001C00: 38 37 38 33 35 36 35 34 22 3A 8D 31 36 30 30 30 |87835654":.16000|
00001C10: 00 3A 24 B1 0E 46 49 4C 45 24 B2 22 35 36 35 33 |.:$..FILE$."5653|
00001C20: 35 36 35 32 39 33 39 34 39 35 39 36 39 37 39 39 |5652939495969799|
00001C30: 38 31 22 3A 8D 31 36 30 30 30 00 44 24 BA 0E 8D |81":.16000.D$...|
00001C40: 39 35 30 30 00 53 24 BB 0E 8B 20 51 4E B2 31 20 |9500.S$... QN.1 |
00001C50: A7 20 8E 00 6E 24 CE 0E 99 C7 28 31 34 37 29 3B |. ..n$....(147);|
00001C60: 3A 56 54 25 B2 31 32 3A 8D 33 30 31 30 30 00 9D |:VT%.12:.30100..|
00001C70: 24 CF 0E 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 |$..."DO YOU WANT|
00001C80: 20 54 4F 20 42 45 20 54 45 53 54 45 44 20 41 47 | TO BE TESTED AG|
00001C90: 41 49 4E 3F 20 28 59 2F 4E 29 20 22 3B 00 BA 24 |AIN? (Y/N) ";..$|
00001CA0: D3 0E 8D 37 31 3A 8B 28 43 24 B2 22 59 22 29 B0 |...71:.(C$."Y").|
00001CB0: 28 43 24 B2 22 4E 22 29 A7 8E 00 C9 24 D4 0E 8B |(C$."N")....$...|
00001CC0: 20 51 4E B2 31 20 A7 20 8E 00 D3 24 D7 0E 89 33 | QN.1 . ...$...3|
00001CD0: 37 39 35 00 E9 24 D8 0E 8F 20 4C 4F 53 45 52 27 |795..$... LOSER'|
00001CE0: 53 20 4D 45 53 53 41 47 45 00 FE 24 E2 0E 8B 41 |S MESSAGE..$...A|
00001CF0: 4E 53 B1 B2 30 2E 37 AC 54 4D 41 58 A7 8E 00 18 |NS..0.7.TMAX....|
00001D00: 25 00 0F 46 49 4C 45 24 B2 22 46 41 49 4C 55 52 |%..FILE$."FAILUR|
00001D10: 45 22 3A 8D 37 35 30 30 00 1E 25 0A 0F 8E 00 34 |E":.7500..%....4|
00001D20: 25 64 19 8F 20 48 49 52 45 53 20 44 49 53 50 4C |%d.. HIRES DISPL|
00001D30: 41 59 45 52 00 54 25 6E 19 99 22 93 22 3A 8D 20 |AYER.T%n..".":. |
00001D40: 36 35 35 30 3A 9E 20 34 39 31 35 38 3A 9E 20 34 |6550:. 49158:. 4|
00001D50: 39 31 35 32 00 82 25 78 19 8E 3A 8F 20 43 41 4C |9152..%x..:. CAL|
00001D60: 4C 20 48 49 52 45 53 20 4C 4F 41 44 20 52 4F 55 |L HIRES LOAD ROU|
00001D70: 54 49 4E 45 2C 55 4E 43 4F 4D 50 2F 52 41 53 54 |TINE,UNCOMP/RAST|
00001D80: 45 52 00 9C 25 96 19 4C 53 B2 4C 44 AA 33 3A 97 |ER..%..LS.LD.3:.|
00001D90: 20 4C 53 2C C3 28 46 49 4C 45 24 29 00 CC 25 A0 | LS,.(FILE$)..%.|
00001DA0: 19 81 20 54 B2 31 20 A4 20 C3 28 46 49 4C 45 24 |.. T.1 . .(FILE$|
00001DB0: 29 3A 97 20 4C 53 AA 54 2C C6 28 CA 28 46 49 4C |):. LS.T,.(.(FIL|
00001DC0: 45 24 2C 54 2C 31 29 29 3A 82 20 54 00 D7 25 AA |E$,T,1)):. T..%.|
00001DD0: 19 9E 20 4C 44 3A 8E 00 ED 25 C8 19 8F 20 50 49 |.. LD:...%... PI|
00001DE0: 43 54 55 52 45 20 44 49 53 50 4C 41 59 00 05 26 |CTURE DISPLAY..&|
00001DF0: D2 19 8D 36 35 30 30 3A 8D 39 35 30 30 3A 9E 20 |...6500:.9500:. |
00001E00: 34 39 31 35 35 00 14 26 DC 19 99 C7 28 31 34 37 |49155..&....(147|
00001E10: 29 3B 3A 8E 00 30 26 58 1B 8F 20 50 45 52 53 4F |);:..0&X.. PERSO|
00001E20: 4E 41 4C 20 44 49 53 4B 20 53 45 43 54 49 4F 4E |NAL DISK SECTION|
00001E30: 00 5C 26 62 1B 8B 44 53 4B 24 B3 B1 22 59 22 A7 |.\&b..DSK$.."Y".|
00001E40: 8E 3A 8F 20 53 55 42 4A 45 43 54 20 48 41 53 20 |.:. SUBJECT HAS |
00001E50: 4E 4F 20 44 49 53 4B 20 46 49 4C 45 00 7C 26 6C |NO DISK FILE.|&l|
00001E60: 1B 52 57 24 B2 22 52 45 41 44 20 22 3A 53 44 24 |.RW$."READ ":SD$|
00001E70: B2 22 42 22 3A 8D 37 32 30 30 3A 8E 00 99 26 BC |."B":.7200:...&.|
00001E80: 1B 8F 20 57 52 49 54 45 20 54 4F 20 50 45 52 53 |.. WRITE TO PERS|
00001E90: 4F 4E 41 4C 20 44 49 53 4B 00 B8 26 C6 1B 52 57 |ONAL DISK..&..RW|
00001EA0: 24 B2 22 57 52 49 54 45 20 22 3A 53 44 24 B2 22 |$."WRITE ":SD$."|
00001EB0: 41 22 3A 8D 37 34 35 30 00 F3 26 DA 1B 8D 31 33 |A":.7450..&...13|
00001EC0: 30 30 30 3A 46 49 4C 45 24 B2 22 4C 4F 41 44 49 |000:FILE$."LOADI|
00001ED0: 4E 47 20 4D 45 4D 4F 52 59 20 54 52 41 49 4E 45 |NG MEMORY TRAINE|
00001EE0: 52 20 4D 41 49 4E 20 4D 45 4E 55 22 3A 56 54 25 |R MAIN MENU":VT%|
00001EF0: B2 31 30 00 17 27 DB 1B 8D 33 30 31 30 30 3A 8D |.10..'...30100:.|
00001F00: 32 39 39 30 3A 93 20 22 49 4E 54 52 4F 44 55 43 |2990:. "INTRODUC|
00001F10: 54 49 4F 4E 22 2C 38 00 2F 27 E4 1B 89 31 31 30 |TION",8./'...110|
00001F20: 3A 8F 20 4A 55 53 54 20 49 4E 20 43 41 53 45 00 |:. JUST IN CASE.|
00001F30: 48 27 20 1C 8F 20 52 45 41 44 2F 57 52 49 54 45 |H' .. READ/WRITE|
00001F40: 20 54 4F 20 44 49 53 4B 00 73 27 2A 1C 8B 44 53 | TO DISK.s'*..DS|
00001F50: 4B 24 B3 B1 22 59 22 A7 51 55 49 54 B2 30 3A 89 |K$.."Y".QUIT.0:.|
00001F60: 37 34 33 30 3A 8F 20 4E 4F 20 44 49 53 4B 20 46 |7430:. NO DISK F|
00001F70: 49 4C 45 00 99 27 34 1C 43 24 B2 22 55 50 44 41 |ILE..'4.C$."UPDA|
00001F80: 54 45 22 3A 8B 52 57 24 B2 22 52 45 41 44 20 22 |TE":.RW$."READ "|
00001F90: A7 43 24 B2 22 55 53 45 22 00 B4 27 3E 1C 99 C7 |.C$."USE"..'>...|
00001FA0: 28 31 34 37 29 3B 3A 56 54 25 B2 31 30 3A 8D 33 |(147);:VT%.10:.3|
00001FB0: 30 31 30 30 00 DA 27 3F 1C 99 22 44 4F 20 59 4F |0100..'?.."DO YO|
00001FC0: 55 20 57 41 4E 54 20 54 4F 20 22 3B 43 24 3B 22 |U WANT TO ";C$;"|
00001FD0: 20 54 48 45 20 4C 4F 43 49 22 00 0E 28 48 1C 56 | THE LOCI"..(H.V|
00001FE0: 54 25 B2 31 32 3A 8D 33 30 31 30 30 3A 99 22 4F |T%.12:.30100:."O|
00001FF0: 4E 20 59 4F 55 52 20 50 45 52 53 4F 4E 41 4C 20 |N YOUR PERSONAL |
00002000: 44 49 53 4B 3F 20 28 59 2F 4E 29 20 22 3B 00 1A |DISK? (Y/N) ";..|
00002010: 28 49 1C 8D 37 31 3A 99 43 24 00 29 28 4A 1C 8B |(I..71:.C$.)(J..|
00002020: 20 51 4E B2 31 20 A7 20 8E 00 3A 28 52 1C 8B 43 | QN.1 . ..:(R..C|
00002030: 24 B2 22 59 22 89 37 32 39 30 00 62 28 5C 1C 8B |$."Y".7290.b(\..|
00002040: 28 43 24 B2 22 4E 22 29 AF 28 28 53 44 24 B2 22 |(C$."N").((SD$."|
00002050: 51 55 49 54 22 29 B0 28 51 55 49 54 B2 32 29 29 |QUIT").(QUIT.2))|
00002060: A7 8E 00 7D 28 5D 1C 8F 20 51 55 49 54 20 46 4F |...}(].. QUIT FO|
00002070: 52 20 4E 4F 57 20 53 45 43 54 49 4F 4E 00 9B 28 |R NOW SECTION..(|
00002080: 66 1C 8B 28 43 24 B2 22 4E 22 29 AF 28 52 57 24 |f..(C$."N").(RW$|
00002090: B2 22 52 45 41 44 20 22 29 A7 8E 00 BD 28 6B 1C |."READ ")....(k.|
000020A0: 8B 28 43 24 B2 22 4E 22 29 AF 28 52 57 24 B2 22 |.(C$."N").(RW$."|
000020B0: 57 52 49 54 45 20 22 29 89 37 34 35 30 00 D1 28 |WRITE ").7450..(|
000020C0: 70 1C 89 37 32 34 30 3A 8F 20 44 45 46 41 55 4C |p..7240:. DEFAUL|
000020D0: 54 00 01 29 7A 1C 99 C7 28 31 34 37 29 3B 3A 56 |T..)z...(147);:V|
000020E0: 54 25 B2 31 30 3A 8D 33 30 31 30 30 3A 9E 4D 55 |T%.10:.30100:.MU|
000020F0: 3A 99 22 49 4E 53 45 52 54 20 59 4F 55 52 20 22 |:."INSERT YOUR "|
00002100: 3B 00 35 29 7B 1C 99 C7 28 31 38 29 3B 22 50 45 |;.5){...(18);"PE|
00002110: 52 53 4F 4E 41 4C 20 44 49 53 4B 22 3B C7 28 31 |RSONAL DISK";.(1|
00002120: 34 36 29 3B 22 20 49 4E 54 4F 20 44 52 49 56 45 |46);" INTO DRIVE|
00002130: 20 23 31 2E 22 00 6C 29 7F 1C 56 54 25 B2 31 35 | #1.".l)..VT%.15|
00002140: 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 3A 99 |:.30100:.211,0:.|
00002150: 22 28 50 52 45 53 53 20 3C 43 54 52 4C 2D 43 3E |"(PRESS <CTRL-C>|
00002160: 20 54 4F 20 43 41 4E 43 45 4C 29 22 00 76 29 84 | TO CANCEL)".v).|
00002170: 1C 8D 39 35 30 30 00 85 29 85 1C 8B 20 51 4E B2 |..9500..)... QN.|
00002180: 31 20 A7 20 8E 00 AB 29 8E 1C 81 58 58 B2 31 A4 |1 . ...)...XX.1.|
00002190: 31 30 3A A1 58 58 24 3A 82 58 58 3A 99 C7 28 31 |10:.XX$:.XX:..(1|
000021A0: 34 37 29 3B 3A 56 54 25 B2 31 32 00 DD 29 8F 1C |47);:VT%.12..)..|
000021B0: 8D 33 30 31 30 30 3A 46 49 4C 45 24 B2 22 55 53 |.30100:FILE$."US|
000021C0: 49 4E 47 20 59 4F 55 52 20 50 45 52 53 4F 4E 41 |ING YOUR PERSONA|
000021D0: 4C 20 44 49 53 4B 22 3A 8D 32 39 39 30 00 F6 29 |L DISK":.2990..)|
000021E0: 98 1C 8F 20 41 43 54 55 41 4C 20 44 49 53 4B 20 |... ACTUAL DISK |
000021F0: 41 43 43 45 53 53 00 32 2A B6 1C 8B 20 52 57 24 |ACCESS.2*... RW$|
00002200: B2 22 52 45 41 44 20 22 20 A7 20 9F 20 32 2C 38 |."READ " . . 2,8|
00002210: 2C 32 2C 46 4C 4E 4D 24 AA 22 2E 4C 4F 43 2C 53 |,2,FLNM$.".LOC,S|
00002220: 45 51 2C 52 22 3A 8B 20 53 54 20 A7 20 31 37 30 |EQ,R":. ST . 170|
00002230: 30 30 00 67 2A BB 1C 8B 20 52 57 24 B2 22 57 52 |00.g*... RW$."WR|
00002240: 49 54 45 20 22 20 A7 20 9F 20 32 2C 38 2C 32 2C |ITE " . . 2,8,2,|
00002250: 22 40 3A 22 AA 46 4C 4E 4D 24 AA 22 2E 4C 4F 43 |"@:".FLNM$.".LOC|
00002260: 2C 53 45 51 2C 57 22 00 6D 2A C0 1C 8F 00 9A 2A |,SEQ,W".m*.....*|
00002270: CA 1C 8B 52 57 24 B2 22 52 45 41 44 20 22 A7 84 |...RW$."READ "..|
00002280: 32 2C 50 4C 4D 41 58 3A 8B 20 53 54 20 AF 20 31 |2,PLMAX:. ST . 1|
00002290: 39 31 20 A7 20 31 37 30 30 30 00 C8 2A D4 1C 8B |91 . 17000..*...|
000022A0: 52 57 24 B2 22 57 52 49 54 45 20 22 A7 98 32 2C |RW$."WRITE "..2,|
000022B0: 50 4C 4D 41 58 3A 8B 20 53 54 20 AF 20 31 39 31 |PLMAX:. ST . 191|
000022C0: 20 A7 20 31 37 30 30 30 00 D4 2A DE 1C 81 49 B2 | . 17000..*...I.|
000022D0: 31 A4 34 30 00 F3 2A E8 1C 8B 52 57 24 B2 22 52 |1.40..*...RW$."R|
000022E0: 45 41 44 20 22 A7 84 32 2C 59 4C 4F 43 55 53 24 |EAD "..2,YLOCUS$|
000022F0: 28 49 29 00 27 2B ED 1C 8B 52 57 24 B2 22 57 52 |(I).'+...RW$."WR|
00002300: 49 54 45 20 22 A7 20 41 24 B2 59 4C 4F 43 55 53 |ITE ". A$.YLOCUS|
00002310: 24 28 49 29 3A 8B 20 41 24 B2 22 22 20 A7 20 41 |$(I):. A$."" . A|
00002320: 24 B2 22 58 58 58 22 00 3F 2B F2 1C 8B 52 57 24 |$."XXX".?+...RW$|
00002330: B2 22 57 52 49 54 45 20 22 A7 98 32 2C 41 24 00 |."WRITE "..2,A$.|
00002340: 4A 2B FC 1C 82 49 3A A0 20 32 00 5C 2B 06 1D 8B |J+...I:. 2.\+...|
00002350: 53 44 24 B2 22 51 55 49 54 22 A7 8E 00 7B 2B 1A |SD$."QUIT"...{+.|
00002360: 1D 99 C7 28 31 34 37 29 3B 3A 9E 4D 55 3A 56 54 |...(147);:.MU:VT|
00002370: 25 B2 31 30 3A 8D 33 30 31 30 30 00 AC 2B 1B 1D |%.10:.30100..+..|
00002380: 99 22 42 45 20 53 55 52 45 20 4D 45 4D 4F 52 59 |."BE SURE MEMORY|
00002390: 20 54 52 41 49 4E 45 52 20 22 3B C7 28 31 38 29 | TRAINER ";.(18)|
000023A0: 3B 22 44 49 53 4B 20 22 3B 53 44 24 00 E5 2B 1C |;"DISK ";SD$..+.|
000023B0: 1D 56 54 25 B2 31 32 3A 8D 33 30 31 30 30 3A 99 |.VT%.12:.30100:.|
000023C0: 22 49 53 20 50 52 4F 50 45 52 4C 59 20 49 4E 53 |"IS PROPERLY INS|
000023D0: 45 52 54 45 44 20 49 4E 54 4F 20 44 52 49 56 45 |ERTED INTO DRIVE|
000023E0: 20 23 31 2E 22 00 15 2C 1F 1D 56 54 25 B2 31 36 | #1."..,..VT%.16|
000023F0: 3A 8D 33 30 31 30 30 3A 99 22 28 50 52 45 53 53 |:.30100:."(PRESS|
00002400: 20 3C 43 54 52 4C 2D 43 3E 20 54 4F 20 43 41 4E | <CTRL-C> TO CAN|
00002410: 43 45 4C 29 22 00 21 2C 24 1D 8D 39 35 30 30 3A |CEL)".!,$..9500:|
00002420: 8E 00 3F 2C 4C 1D 8F 20 54 45 58 54 20 46 49 4C |..?,L.. TEXT FIL|
00002430: 45 20 53 43 52 45 45 4E 20 57 52 49 54 45 52 00 |E SCREEN WRITER.|
00002440: 67 2C 60 1D 9F 20 32 2C 38 2C 32 2C 46 49 4C 45 |g,`.. 2,8,2,FILE|
00002450: 24 3A 99 C7 28 31 34 37 29 3B 3A 8B 20 53 54 20 |$:..(147);:. ST |
00002460: A7 20 31 37 30 30 30 00 73 2C 6A 1D 81 49 B2 30 |. 17000.s,j..I.0|
00002470: A4 32 32 00 8E 2C 74 1D 84 32 2C 53 39 24 28 49 |.22..,t..2,S9$(I|
00002480: 29 3A 8B 20 53 54 20 A7 20 31 37 30 30 31 00 B3 |):. ST . 17001..|
00002490: 2C 7E 1D 82 49 3A 84 32 2C 53 39 24 28 32 33 29 |,~..I:.2,S9$(23)|
000024A0: 3A 8B 20 53 54 20 AF 20 31 39 31 20 A7 20 31 37 |:. ST . 191 . 17|
000024B0: 30 30 30 00 F3 2C 88 1D A0 20 32 3A 46 49 4C 45 |000..,... 2:FILE|
000024C0: 24 B2 22 54 48 45 20 45 49 4E 53 54 45 49 4E 20 |$."THE EINSTEIN |
000024D0: 4D 45 4D 4F 52 59 20 54 52 41 49 4E 45 52 3A 20 |MEMORY TRAINER: |
000024E0: 4C 45 53 53 4F 4E 20 23 32 22 3A 99 C7 28 31 34 |LESSON #2":..(14|
000024F0: 37 29 3B 00 0D 2D 89 1D 99 C7 28 31 38 29 3B 3A |7);..-....(18);:|
00002500: 8D 32 39 39 30 3A 99 C7 28 31 34 36 29 00 19 2D |.2990:..(146)..-|
00002510: 92 1D 81 49 B2 31 A4 32 31 00 28 2D 9C 1D 99 53 |...I.1.21.(-...S|
00002520: 39 24 28 49 29 3A 82 49 00 51 2D A6 1D 53 45 43 |9$(I):.I.Q-..SEC|
00002530: B2 2E 35 3A 8D 32 39 30 30 3A 56 54 25 B2 32 34 |..5:.2900:VT%.24|
00002540: 3A 8D 33 30 31 30 30 3A 99 53 39 24 28 32 32 29 |:.30100:.S9$(22)|
00002550: 3B 00 67 2D A7 1D 81 58 58 B2 31 A4 31 30 3A A1 |;.g-...XX.1.10:.|
00002560: 58 58 24 3A 82 58 58 00 71 2D B0 1D 8D 39 35 32 |XX$:.XX.q-...952|
00002570: 30 00 7E 2D BA 1D 8D 31 33 30 30 30 3A 8E 00 92 |0.~-...13000:...|
00002580: 2D 40 1F 8F 20 4D 45 4E 55 20 53 45 4C 45 43 54 |-@.. MENU SELECT|
00002590: 4F 52 00 B1 2D 4A 1F 99 C7 28 31 34 37 29 3B 3A |OR..-J...(147);:|
000025A0: 81 58 58 B2 31 A4 31 30 3A A1 58 58 24 3A 82 58 |.XX.1.10:.XX$:.X|
000025B0: 58 00 E1 2D 54 1F 46 49 4C 45 24 B2 22 54 48 45 |X..-T.FILE$."THE|
000025C0: 20 45 49 4E 53 54 45 49 4E 20 4D 45 4D 4F 52 59 | EINSTEIN MEMORY|
000025D0: 20 54 52 41 49 4E 45 52 22 3A 99 C7 28 31 38 29 | TRAINER":..(18)|
000025E0: 3B 00 F4 2D 55 1F 8D 32 39 39 30 3A 99 C7 28 31 |;..-U..2990:..(1|
000025F0: 34 36 29 3B 00 29 2E 5E 1F 56 54 25 B2 32 34 3A |46);.).^.VT%.24:|
00002600: 8D 33 30 31 30 30 3A 99 22 46 49 4C 45 20 4E 41 |.30100:."FILE NA|
00002610: 4D 45 3A 20 22 3B C7 28 31 38 29 3B 46 4C 4E 4D |ME: ";.(18);FLNM|
00002620: 24 3B C7 28 31 34 36 29 3B 00 41 2E 68 1F 56 54 |$;.(146);.A.h.VT|
00002630: 25 B2 34 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C |%.4:.30100:.211,|
00002640: 30 00 6D 2E 69 1F 46 49 4C 45 24 B2 22 4C 45 53 |0.m.i.FILE$."LES|
00002650: 53 4F 4E 20 23 32 3A 20 4D 45 54 48 4F 44 20 4F |SON #2: METHOD O|
00002660: 46 20 4C 4F 43 49 22 3A 8D 32 39 39 30 00 7F 2E |F LOCI":.2990...|
00002670: 6D 1F 8B 57 24 B3 B1 22 40 22 A7 38 30 35 30 00 |m..W$.."@".8050.|
00002680: 9F 2E 6E 1F 56 54 25 B2 35 3A 8D 33 30 31 30 30 |..n.VT%.5:.30100|
00002690: 3A 97 32 31 31 2C 31 37 3A 3A 57 24 B2 22 22 00 |:.211,17::W$."".|
000026A0: C3 2E 6F 1F 99 C7 28 31 38 29 3B 22 41 44 56 41 |..o...(18);"ADVA|
000026B0: 4E 43 45 44 20 53 45 43 54 49 4F 4E 22 C7 28 31 |NCED SECTION".(1|
000026C0: 34 36 29 00 D4 2E 72 1F 81 49 B2 36 35 A4 36 34 |46)...r..I.65.64|
000026D0: AA 4D 41 58 00 E7 2E 7C 1F 53 B2 49 AB 36 34 3A |.MAX...|.S.I.64:|
000026E0: 97 20 32 31 31 2C 30 00 0C 2F 86 1F 56 54 25 B2 |. 211,0../..VT%.|
000026F0: 53 AA 36 3A 8D 33 30 31 30 30 3A 99 C7 28 49 29 |S.6:.30100:..(I)|
00002700: 22 20 3A 20 22 50 47 4D 24 28 53 29 00 14 2F 90 |" : "PGM$(S)../.|
00002710: 1F 82 3A 99 00 25 2F 9A 1F 8B 50 56 24 B2 22 22 |..:..%/...PV$.""|
00002720: 89 38 31 31 30 00 62 2F A4 1F 56 54 25 B2 32 30 |.8110.b/..VT%.20|
00002730: 3A 8D 33 30 31 30 30 3A 99 22 28 59 4F 55 52 20 |:.30100:."(YOUR |
00002740: 50 52 45 56 49 4F 55 53 20 53 45 4C 45 43 54 49 |PREVIOUS SELECTI|
00002750: 4F 4E 20 57 41 53 20 27 22 3B 50 56 24 3B 22 27 |ON WAS '";PV$;"'|
00002760: 29 22 00 9C 2F AE 1F 56 54 25 B2 31 38 3A 8D 33 |)"../..VT%.18:.3|
00002770: 30 31 30 30 3A 99 22 53 45 4C 45 43 54 20 4F 50 |0100:."SELECT OP|
00002780: 54 49 4F 4E 3A 20 22 3B 3A 8D 33 30 32 30 30 3A |TION: ";:.30200:|
00002790: 8F 20 43 4C 52 20 54 4F 20 45 4F 4C 00 B3 2F B8 |. CLR TO EOL../.|
000027A0: 1F 8D 37 31 3A 43 B2 C6 28 43 24 29 3A 41 4E 24 |..71:C..(C$):AN$|
000027B0: B2 43 24 00 CB 2F CC 1F 8B 43 B3 36 35 B0 43 B1 |.C$../...C.65.C.|
000027C0: 36 34 AA 4D 41 58 89 38 31 32 30 00 D8 2F D6 1F |64.MAX.8120../..|
000027D0: 99 3A 43 B2 43 AB 36 34 00 04 30 E0 1F 56 54 25 |.:C.C.64..0..VT%|
000027E0: B2 43 AA 36 3A 8D 33 30 31 30 30 3A 99 C7 28 31 |.C.6:.30100:..(1|
000027F0: 38 29 3B 41 4E 24 3B C7 28 31 34 36 29 3B 22 20 |8);AN$;.(146);" |
00002800: 3A 20 22 3B 00 1E 30 E1 1F 99 C7 28 31 38 29 3B |: ";..0....(18);|
00002810: 50 47 4D 24 28 43 29 C7 28 31 34 36 29 3B 00 62 |PGM$(C).(146);.b|
00002820: 30 EA 1F 56 54 25 B2 31 38 3A 8D 33 30 31 30 30 |0..VT%.18:.30100|
00002830: 3A 97 32 31 31 2C 30 3A 99 22 49 53 20 54 48 49 |:.211,0:."IS THI|
00002840: 53 20 54 48 45 20 53 45 4C 45 43 54 49 4F 4E 20 |S THE SELECTION |
00002850: 59 4F 55 20 57 41 4E 54 3F 20 28 59 2F 4E 29 20 |YOU WANT? (Y/N) |
00002860: 22 3B 00 86 30 F4 1F 8D 37 31 3A 8B 43 24 B3 B1 |";..0...71:.C$..|
00002870: 22 59 22 AF 43 24 B3 B1 22 4E 22 A7 99 42 24 3B |"Y".C$.."N"..B$;|
00002880: 3A 89 38 31 38 30 00 A5 30 FE 1F 99 43 24 3A 8B |:.8180..0...C$:.|
00002890: 43 24 B3 B1 22 4E 22 A7 50 56 24 B2 41 4E 24 3A |C$.."N".PV$.AN$:|
000028A0: 89 38 32 31 30 00 CF 30 08 20 56 54 25 B2 43 AA |.8210..0. VT%.C.|
000028B0: 36 3A 8D 33 30 31 30 30 3A 99 41 4E 24 22 20 3A |6:.30100:.AN$" :|
000028C0: 20 22 50 47 4D 24 28 43 29 3A 89 38 31 31 30 00 | "PGM$(C):.8110.|
000028D0: D5 30 12 20 8E 00 EE 30 1C 25 8F 20 57 41 49 54 |.0. ...0.%. WAIT|
000028E0: 20 46 4F 52 20 53 50 41 43 45 20 42 41 52 00 2D | FOR SPACE BAR.-|
000028F0: 31 26 25 56 54 25 B2 32 34 3A 8D 33 30 31 30 30 |1&%VT%.24:.30100|
00002900: 3A 97 20 32 31 31 2C 30 3A 99 22 50 52 45 53 53 |:. 211,0:."PRESS|
00002910: 20 3C 53 50 41 43 45 20 42 41 52 3E 20 54 4F 20 | <SPACE BAR> TO |
00002920: 43 4F 4E 54 49 4E 55 45 2E 2E 2E 22 3B 00 43 31 |CONTINUE...";.C1|
00002930: 27 25 81 58 58 B2 31 A4 31 30 3A A1 58 58 24 3A |'%.XX.1.10:.XX$:|
00002940: 82 58 58 00 51 31 30 25 8D 37 33 3A 8D 39 36 30 |.XX.Q10%.73:.960|
00002950: 30 00 60 31 31 25 8B 20 51 4E B2 31 20 A7 20 8E |0.`11%. QN.1 . .|
00002960: 00 72 31 35 25 8B 43 24 B3 B1 22 20 22 89 39 35 |.r15%.C$.." ".95|
00002970: 32 30 00 8A 31 3A 25 81 58 58 B2 31 A4 31 30 3A |20..1:%.XX.1.10:|
00002980: A1 58 58 24 3A 82 58 58 3A 8E 00 B3 31 80 25 8B |.XX$:.XX:...1.%.|
00002990: 43 24 B2 C7 28 33 29 A7 50 56 24 B2 22 22 3A 97 |C$..(3).PV$."":.|
000029A0: 20 32 30 34 2C 31 3A 9E 20 34 39 31 35 35 3A 51 | 204,1:. 49155:Q|
000029B0: 4E B2 31 00 B9 31 8A 25 8E 00 CF 31 10 27 8F 20 |N.1..1.%...1.'. |
000029C0: 49 4E 54 49 54 49 41 4C 49 5A 41 54 49 4F 4E 00 |INTITIALIZATION.|
000029D0: E7 31 1A 27 86 52 44 52 25 28 34 30 29 2C 50 49 |.1.'.RDR%(40),PI|
000029E0: 54 43 48 28 31 30 29 00 12 32 24 27 4B 4D 41 58 |TCH(10)..2$'KMAX|
000029F0: B2 31 30 3A 50 4C 4D 41 58 B2 30 3A 48 49 47 48 |.10:PLMAX.0:HIGH|
00002A00: B2 4B 4D 41 58 3A 4C 4F 57 B2 31 3A 50 56 24 B2 |.KMAX:LOW.1:PV$.|
00002A10: 22 22 00 2A 32 2E 27 9F 20 32 2C 38 2C 32 2C 22 |"".*2.'. 2,8,2,"|
00002A20: 57 4F 52 44 20 46 49 4C 45 22 00 35 32 38 27 81 |WORD FILE".528'.|
00002A30: 49 B2 30 A4 34 00 42 32 42 27 81 49 49 B2 30 A4 |I.0.4.B2B'.II.0.|
00002A40: 34 37 00 62 32 4C 27 84 32 2C 57 52 44 53 24 28 |47.b2L'.2,WRDS$(|
00002A50: 49 2C 49 49 29 3A 8B 20 53 54 20 A7 20 31 37 30 |I,II):. ST . 170|
00002A60: 30 30 00 6D 32 56 27 82 49 49 3A 82 49 00 75 32 |00.m2V'.II:.I.u2|
00002A70: 58 27 A0 20 32 00 92 32 6A 27 81 49 B2 31 A4 4B |X'. 2..2j'.I.1.K|
00002A80: 4D 41 58 3A 87 58 4C 4F 43 55 53 24 28 49 29 3A |MAX:.XLOCUS$(I):|
00002A90: 82 49 00 CA 32 74 27 83 20 45 4E 54 52 41 4E 43 |.I..2t'. ENTRANC|
00002AA0: 45 2C 43 41 53 48 49 45 52 2C 54 49 43 4B 45 54 |E,CASHIER,TICKET|
00002AB0: 20 54 41 4B 45 52 2C 4C 4F 42 42 59 2C 50 4F 50 | TAKER,LOBBY,POP|
00002AC0: 43 4F 52 4E 20 53 54 41 4E 44 00 F5 32 75 27 83 |CORN STAND..2u'.|
00002AD0: 20 54 48 45 41 54 45 52 20 44 4F 4F 52 53 2C 41 | THEATER DOORS,A|
00002AE0: 49 53 4C 45 2C 53 45 41 54 2C 53 43 52 45 45 4E |ISLE,SEAT,SCREEN|
00002AF0: 2C 45 58 49 54 00 07 33 CC 29 8F 20 4D 55 53 49 |,EXIT..3.). MUSI|
00002B00: 43 20 53 54 55 46 46 00 14 33 D6 29 53 58 B2 35 |C STUFF..3.)SX.5|
00002B10: 34 32 37 32 00 36 33 E0 29 81 20 54 B2 31 20 A4 |4272.63.). T.1 .|
00002B20: 20 39 3A 87 20 48 46 25 28 54 29 2C 4C 46 25 28 | 9:. HF%(T),LF%(|
00002B30: 54 29 3A 82 20 54 00 74 33 EA 29 83 20 31 36 2C |T):. T.t3.). 16,|
00002B40: 31 39 35 2C 31 38 2C 32 30 39 2C 32 31 2C 33 31 |195,18,209,21,31|
00002B50: 2C 32 32 2C 39 36 2C 32 35 2C 33 30 2C 32 38 2C |,22,96,25,30,28,|
00002B60: 34 39 2C 33 31 2C 31 36 35 2C 33 33 2C 31 33 35 |49,31,165,33,135|
00002B70: 2C 30 2C 30 00 7A 33 F4 29 8F 00 8F 33 F8 2A 8F |,0,0.z3.)...3.*.|
00002B80: 20 52 45 41 44 20 46 49 4C 45 20 4E 41 4D 45 00 | READ FILE NAME.|
00002B90: BF 33 02 2B 46 4C 4E 4D 24 B2 22 4E 4F 4E 45 22 |.3.+FLNM$."NONE"|
00002BA0: 3A 44 53 4B 24 B2 C7 28 C2 28 44 45 29 29 3A 8B |:DSK$..(.(DE)):.|
00002BB0: 44 53 4B 24 B3 B1 22 59 22 A7 31 31 38 39 30 00 |DSK$.."Y".11890.|
00002BC0: F1 33 0C 2B 46 4C 4E 4D 24 B2 22 22 3A 81 49 B2 |.3.+FLNM$."":.I.|
00002BD0: 31 A4 C2 28 4E 4D 29 3A 46 4C 4E 4D 24 B2 46 4C |1..(NM):FLNM$.FL|
00002BE0: 4E 4D 24 AA C7 28 C2 28 4E 4D AA 49 29 29 3A 82 |NM$..(.(NM.I)):.|
00002BF0: 49 00 F7 33 72 2E 8F 00 FD 33 DF 2E 8E 00 16 34 |I..3r....3.....4|
00002C00: C8 32 8F 20 43 45 4E 54 45 52 2F 4F 55 54 20 57 |.2. CENTER/OUT W|
00002C10: 49 50 45 4F 55 54 00 25 34 D2 32 99 C7 28 31 34 |IPEOUT.%4.2..(14|
00002C20: 37 29 3B 3A 8E 00 39 34 80 3E 8F 20 4D 45 4C 4F |7);:..94.>. MELO|
00002C30: 44 59 20 50 4C 41 59 45 52 00 4B 34 8A 3E 81 49 |DY PLAYER.K4.>.I|
00002C40: B2 31 A4 C3 28 46 49 4C 45 24 29 00 61 34 94 3E |.1..(FILE$).a4.>|
00002C50: 58 B2 C5 28 CA 28 46 49 4C 45 24 2C 49 2C 31 29 |X..(.(FILE$,I,1)|
00002C60: 29 00 99 34 9E 3E 97 20 53 58 AA 31 2C 48 46 25 |)..4.>. SX.1,HF%|
00002C70: 28 58 29 3A 97 20 53 58 2C 4C 46 25 28 58 29 3A |(X):. SX,LF%(X):|
00002C80: 97 20 53 58 AA 34 2C 33 33 3A 53 45 43 B2 30 2E |. SX.4,33:SEC.0.|
00002C90: 30 37 3A 8D 20 32 39 30 30 00 B1 34 9F 3E 8B 20 |07:. 2900..4.>. |
00002CA0: 51 4E B2 31 20 A7 20 97 20 53 58 AA 34 2C 30 3A |QN.1 . . SX.4,0:|
00002CB0: 8E 00 C4 34 A8 3E 97 20 53 58 AA 34 2C 30 3A 82 |...4.>. SX.4,0:.|
00002CC0: 20 49 3A 8E 00 D9 34 68 42 8F 20 45 52 52 4F 52 | I:...4hB. ERROR|
00002CD0: 20 48 41 4E 44 4C 49 4E 47 00 F1 34 6D 42 9E 20 | HANDLING..4mB. |
00002CE0: 34 39 31 35 35 3A 84 31 2C 59 2C 42 24 3A A0 20 |49155:.1,Y,B$:. |
00002CF0: 32 00 FE 34 72 42 99 C7 28 31 34 37 29 3B 00 3F |2..4rB..(147);.?|
00002D00: 35 86 42 8F 20 20 59 3D 50 45 45 4B 28 32 32 32 |5.B. Y=PEEK(222|
00002D10: 29 3A 58 3D 50 45 45 4B 28 32 31 38 29 2B 32 35 |):X=PEEK(218)+25|
00002D20: 36 2A 50 45 45 4B 28 32 31 39 29 3A 52 45 4D 20 |6*PEEK(219):REM |
00002D30: 58 3D 4C 49 4E 45 3B 20 59 3D 45 52 52 4F 52 00 |X=LINE; Y=ERROR.|
00002D40: 61 35 9A 42 4C 24 B2 22 41 32 22 3A 8F 20 52 45 |a5.BL$."A2":. RE|
00002D50: 56 49 53 49 4F 4E 20 26 20 4C 45 53 53 4F 4E 20 |VISION & LESSON |
00002D60: 23 00 95 35 A4 42 56 54 25 B2 32 3A 8D 33 30 31 |#..5.BVT%.2:.301|
00002D70: 30 30 3A 99 22 55 53 45 52 20 4E 41 4D 45 3A 20 |00:."USER NAME: |
00002D80: 22 3B C7 28 31 38 29 3B 46 4C 4E 4D 24 3B C7 28 |";.(18);FLNM$;.(|
00002D90: 31 34 36 29 3B 00 CD 35 AE 42 56 54 25 B2 34 3A |146);..5.BVT%.4:|
00002DA0: 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 3A 99 C7 |.30100:.211,0:..|
00002DB0: 28 31 34 36 29 3B 22 41 4E 20 45 52 52 4F 52 20 |(146);"AN ERROR |
00002DC0: 48 41 53 20 4F 43 43 55 52 45 44 21 22 00 FF 35 |HAS OCCURED!"..5|
00002DD0: B8 42 56 54 25 B2 36 3A 8D 33 30 31 30 30 3A 99 |.BVT%.6:.30100:.|
00002DE0: 22 45 52 52 4F 52 20 43 4F 44 45 3A 20 23 22 3B |"ERROR CODE: #";|
00002DF0: 59 3B 22 20 20 20 20 20 22 3B 4C 24 3B 42 24 00 |Y;" ";L$;B$.|
00002E00: 25 36 C2 42 56 54 25 B2 31 30 3A 8D 33 30 31 30 |%6.BVT%.10:.3010|
00002E10: 30 3A 99 22 45 52 52 4F 52 20 4D 45 53 53 41 47 |0:."ERROR MESSAG|
00002E20: 45 3A 20 22 3B 00 4A 36 CC 42 8B 59 B2 32 36 A7 |E: ";.J6.B.Y.26.|
00002E30: 99 22 44 49 53 4B 20 49 53 20 57 52 49 54 45 20 |."DISK IS WRITE |
00002E40: 50 52 4F 54 45 43 54 45 44 22 00 6A 36 D6 42 8B |PROTECTED".j6.B.|
00002E50: 59 B2 36 32 A7 99 22 46 49 4C 45 20 57 41 53 20 |Y.62.."FILE WAS |
00002E60: 4E 4F 54 20 46 4F 55 4E 44 22 00 89 36 EA 42 8B |NOT FOUND"..6.B.|
00002E70: 59 B2 37 32 A7 99 22 59 4F 55 52 20 44 49 53 4B |Y.72.."YOUR DISK|
00002E80: 20 49 53 20 46 55 4C 4C 22 00 A2 36 FE 42 56 54 | IS FULL"..6.BVT|
00002E90: 25 B2 31 32 3A 8D 33 30 31 30 30 3A 97 32 31 31 |%.12:.30100:.211|
00002EA0: 2C 30 00 DD 36 FF 42 99 C7 28 31 38 29 3B 22 43 |,0..6.B..(18);"C|
00002EB0: 48 45 43 4B 20 54 48 41 54 20 54 48 45 20 41 50 |HECK THAT THE AP|
00002EC0: 50 52 4F 50 52 49 41 54 45 20 44 49 53 4B 22 3A |PROPRIATE DISK":|
00002ED0: 56 54 25 B2 31 34 3A 8D 33 30 31 30 30 00 0D 37 |VT%.14:.30100..7|
00002EE0: 00 43 99 22 49 53 20 50 52 4F 50 45 52 4C 59 20 |.C."IS PROPERLY |
00002EF0: 49 4E 53 45 52 54 45 44 20 49 4E 20 44 52 49 56 |INSERTED IN DRIV|
00002F00: 45 20 23 31 2E 22 3B C7 28 31 34 36 29 00 49 37 |E #1.";.(146).I7|
00002F10: 08 43 56 54 25 B2 32 34 3A 8D 33 30 31 30 30 3A |.CVT%.24:.30100:|
00002F20: 97 32 31 31 2C 30 3A 99 22 50 52 45 53 53 20 3C |.211,0:."PRESS <|
00002F30: 53 50 41 43 45 20 42 41 52 3E 20 54 4F 20 52 45 |SPACE BAR> TO RE|
00002F40: 53 55 4D 45 2E 2E 2E 22 3B 00 5F 37 09 43 81 58 |SUME...";._7.C.X|
00002F50: 58 B2 31 A4 31 30 3A A1 58 58 24 3A 82 58 58 00 |X.1.10:.XX$:.XX.|
00002F60: 76 37 12 43 8D 37 33 3A 8B 43 24 B3 B1 22 20 22 |v7.C.73:.C$.." "|
00002F70: A7 31 37 31 37 30 00 8E 37 1C 43 89 31 31 30 3A |.17170..7.C.110:|
00002F80: 8F 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 AE |. TO MAIN MENU..|
00002F90: 37 20 4E 8F 20 49 4E 54 52 4F 44 55 43 54 49 4F |7 N. INTRODUCTIO|
00002FA0: 4E 20 54 4F 20 4C 45 53 53 4F 4E 20 23 32 00 B9 |N TO LESSON #2..|
00002FB0: 37 2A 4E 8D 31 33 30 30 30 00 CE 37 34 4E 46 49 |7*N.13000..74NFI|
00002FC0: 4C 45 24 B2 22 4C 31 22 3A 8D 37 35 30 30 00 DF |LE$."L1":.7500..|
00002FD0: 37 35 4E 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |75N. QN.1 . 110.|
00002FE0: F4 37 3E 4E 46 49 4C 45 24 B2 22 4C 32 22 3A 8D |.7>NFILE$."L2":.|
00002FF0: 37 35 30 30 00 05 38 3F 4E 8B 20 51 4E B2 31 20 |7500..8?N. QN.1 |
00003000: A7 20 31 31 30 00 1A 38 48 4E 46 49 4C 45 24 B2 |. 110..8HNFILE$.|
00003010: 22 4C 33 22 3A 8D 37 35 30 30 00 23 38 52 4E 89 |"L3":.7500.#8RN.|
00003020: 31 31 30 00 3D 38 08 52 8F 20 4C 45 41 52 4E 20 |110.=8.R. LEARN |
00003030: 41 20 53 45 54 20 4F 46 20 4C 4F 43 49 00 52 38 |A SET OF LOCI.R8|
00003040: 12 52 46 49 4C 45 24 B2 22 4C 34 22 3A 8D 37 35 |.RFILE$."L4":.75|
00003050: 30 30 00 63 38 13 52 8B 20 51 4E B2 31 20 A7 20 |00.c8.R. QN.1 . |
00003060: 31 31 30 00 9A 38 1C 52 99 C7 28 31 34 37 29 3B |110..8.R..(147);|
00003070: C7 28 31 38 29 3B 3A 46 49 4C 45 24 B2 22 53 55 |.(18);:FILE$."SU|
00003080: 47 47 45 53 54 45 44 20 4C 4F 43 49 3A 20 53 54 |GGESTED LOCI: ST|
00003090: 55 44 59 20 54 48 45 4D 21 22 00 AD 38 1D 52 8D |UDY THEM!"..8.R.|
000030A0: 32 39 39 30 3A 99 C7 28 31 34 36 29 3B 00 D1 38 |2990:..(146);..8|
000030B0: 26 52 81 49 B2 31 A4 31 30 3A 97 32 31 31 2C 33 |&R.I.1.10:.211,3|
000030C0: 3A 56 54 25 B2 32 AC 49 AA 31 3A 8D 33 30 31 30 |:VT%.2.I.1:.3010|
000030D0: 30 00 F2 38 27 52 99 22 28 22 3B 49 3B 22 29 22 |0..8'R."(";I;")"|
000030E0: 3B A3 39 29 3B 58 4C 4F 43 55 53 24 28 49 29 3A |;.9);XLOCUS$(I):|
000030F0: 82 49 00 2F 39 30 52 56 54 25 B2 32 33 3A 8D 33 |.I./90RVT%.23:.3|
00003100: 30 31 30 30 3A 99 22 50 55 53 48 20 3C 53 50 41 |0100:."PUSH <SPA|
00003110: 43 45 20 42 41 52 3E 20 54 4F 20 42 45 20 54 45 |CE BAR> TO BE TE|
00003120: 53 54 45 44 20 4F 4E 20 4C 4F 43 49 2E 2E 22 00 |STED ON LOCI..".|
00003130: 45 39 31 52 81 58 58 B2 31 A4 31 30 3A A1 58 58 |E91R.XX.1.10:.XX|
00003140: 24 3A 82 58 58 00 4F 39 3A 52 8D 39 35 32 30 00 |$:.XX.O9:R.9520.|
00003150: 60 39 3B 52 8B 20 51 4E B2 31 20 A7 20 31 31 30 |`9;R. QN.1 . 110|
00003160: 00 76 39 44 52 81 58 58 B2 31 A4 31 30 3A A1 58 |.v9DR.XX.1.10:.X|
00003170: 58 24 3A 82 58 58 00 8D 39 4E 52 81 49 B2 31 A4 |X$:.XX..9NR.I.1.|
00003180: 31 30 3A 54 4D 50 24 28 49 29 B2 22 22 00 BC 39 |10:TMP$(I).""..9|
00003190: 4F 52 4D 53 47 24 28 49 29 B2 22 28 22 AA C4 28 |ORMSG$(I)."("..(|
000031A0: 49 29 AA 22 29 22 3A 42 45 46 24 28 49 29 B2 58 |I).")":BEF$(I).X|
000031B0: 4C 4F 43 55 53 24 28 49 29 3A 82 49 00 EE 39 58 |LOCUS$(I):.I..9X|
000031C0: 52 46 49 4C 45 24 B2 22 45 4E 54 45 52 20 54 48 |RFILE$."ENTER TH|
000031D0: 45 20 4C 4F 43 49 20 46 52 4F 4D 20 4D 45 4D 4F |E LOCI FROM MEMO|
000031E0: 52 59 22 3A 41 4E 24 B2 22 2E 2E 2E 2E 22 00 20 |RY":AN$."....". |
000031F0: 3A 62 52 4C 4D 41 52 47 49 4E B2 32 3A 52 4D 41 |:bRLMARGIN.2:RMA|
00003200: 52 47 49 4E B2 37 3A 4C 4F 57 B2 31 3A 48 49 47 |RGIN.7:LOW.1:HIG|
00003210: 48 B2 31 30 3A 43 4F 4C B2 31 3A 8D 32 30 30 30 |H.10:COL.1:.2000|
00003220: 00 32 3A 63 52 8B 51 55 49 54 B2 31 89 32 31 30 |.2:cR.QUIT.1.210|
00003230: 32 30 00 43 3A 64 52 8B 20 51 4E B2 31 20 A7 20 |20.C:dR. QN.1 . |
00003240: 31 31 30 00 6E 3A 6C 52 8D 33 30 30 30 3A 54 4D |110.n:lR.3000:TM|
00003250: 41 58 B2 31 30 3A 8D 33 37 30 30 3A 8F 20 57 49 |AX.10:.3700:. WI|
00003260: 4E 4E 45 52 53 20 4D 45 53 53 41 47 45 53 00 7F |NNERS MESSAGES..|
00003270: 3A 6D 52 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |:mR. QN.1 . 110.|
00003280: A3 3A 76 52 8B 43 24 B2 22 59 22 89 32 31 30 32 |.:vR.C$."Y".2102|
00003290: 30 3A 8F 20 42 45 20 54 45 53 54 45 44 20 41 47 |0:. BE TESTED AG|
000032A0: 41 49 4E 00 BF 3A 80 52 8D 33 38 30 30 3A 8F 20 |AIN..:.R.3800:. |
000032B0: 54 45 53 54 20 46 4F 52 20 4C 4F 53 45 52 53 00 |TEST FOR LOSERS.|
000032C0: C8 3A 8A 52 89 31 31 30 00 E0 3A F0 55 8F 20 41 |.:.R.110..:.U. A|
000032D0: 53 53 2E 20 49 54 45 4D 53 20 57 2F 4C 4F 43 49 |SS. ITEMS W/LOCI|
000032E0: 00 F5 3A FA 55 46 49 4C 45 24 B2 22 4C 35 22 3A |..:.UFILE$."L5":|
000032F0: 8D 37 35 30 30 00 06 3B FB 55 8B 20 51 4E B2 31 |.7500..;.U. QN.1|
00003300: 20 A7 20 31 31 30 00 1D 3B 04 56 46 49 4C 45 24 | . 110..;.VFILE$|
00003310: B2 22 46 52 4F 47 22 3A 8D 36 36 30 30 00 2E 3B |."FROG":.6600..;|
00003320: 05 56 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 43 |.V. QN.1 . 110.C|
00003330: 3B 0E 56 46 49 4C 45 24 B2 22 4C 36 22 3A 8D 37 |;.VFILE$."L6":.7|
00003340: 35 30 30 00 54 3B 0F 56 8B 20 51 4E B2 31 20 A7 |500.T;.V. QN.1 .|
00003350: 20 31 31 30 00 6A 3B 18 56 46 49 4C 45 24 B2 22 | 110.j;.VFILE$."|
00003360: 44 4F 47 22 3A 8D 36 36 30 30 00 7B 3B 19 56 8B |DOG":.6600.{;.V.|
00003370: 20 51 4E B2 31 20 A7 20 31 31 30 00 90 3B 22 56 | QN.1 . 110..;"V|
00003380: 46 49 4C 45 24 B2 22 4C 37 22 3A 8D 37 35 30 30 |FILE$."L7":.7500|
00003390: 00 A1 3B 23 56 8B 20 51 4E B2 31 20 A7 20 31 31 |..;#V. QN.1 . 11|
000033A0: 30 00 AC 3B 2C 56 54 59 50 45 B2 30 00 CD 3B 36 |0..;,VTYPE.0..;6|
000033B0: 56 54 4D 50 24 28 31 29 B2 22 46 52 4F 47 22 3A |VTMP$(1)."FROG":|
000033C0: 54 4D 50 24 28 32 29 B2 22 44 4F 47 22 00 FC 3B |TMP$(2)."DOG"..;|
000033D0: 37 56 8B 54 59 50 45 B2 34 A7 54 4D 50 24 28 31 |7V.TYPE.4.TMP$(1|
000033E0: 29 B2 22 46 52 45 45 44 4F 4D 22 3A 54 4D 50 24 |)."FREEDOM":TMP$|
000033F0: 28 32 29 B2 22 48 45 41 56 45 4E 22 00 15 3C 40 |(2)."HEAVEN"..<@|
00003400: 56 58 4E 55 4D B2 34 37 3A 58 4D 41 58 B2 38 3A |VXNUM.47:XMAX.8:|
00003410: 8D 31 35 30 30 00 21 3C 4A 56 81 49 B2 33 A4 31 |.1500.!<JV.I.3.1|
00003420: 30 00 43 3C 54 56 54 4D 50 24 28 49 29 B2 57 52 |0.C<TVTMP$(I).WR|
00003430: 44 53 24 28 54 59 50 45 2C 52 44 52 25 28 49 AB |DS$(TYPE,RDR%(I.|
00003440: 32 29 29 00 4A 3C 5E 56 82 49 00 71 3C 68 56 8D |2)).J<^V.I.q<hV.|
00003450: 31 33 30 30 30 3A 99 C7 28 31 38 29 3B A6 34 29 |13000:..(18);.4)|
00003460: 3B 22 4C 4F 43 41 54 49 4F 4E 22 3B A6 31 31 29 |;"LOCATION";.11)|
00003470: 3B 00 91 3C 69 56 99 22 49 54 45 4D 20 54 4F 20 |;..<iV."ITEM TO |
00003480: 4D 45 4D 4F 52 49 5A 45 20 22 3B C7 28 31 34 36 |MEMORIZE ";.(146|
00003490: 29 00 9D 3C 72 56 81 49 B2 31 A4 31 30 00 C2 3C |)..<rV.I.1.10..<|
000034A0: 7C 56 56 54 25 B2 32 AC 49 AA 31 3A 8D 33 30 31 ||VVT%.2.I.1:.301|
000034B0: 30 30 3A 99 22 28 22 3B 49 3B 22 29 22 3B A3 36 |00:."(";I;")";.6|
000034C0: 29 3B 00 EC 3C 7D 56 99 58 4C 4F 43 55 53 24 28 |);..<}V.XLOCUS$(|
000034D0: 49 29 3B A3 32 30 29 3B 22 2D 2D 2D 2D 2D 2D 22 |I);.20);"------"|
000034E0: 3B A6 33 29 3B 54 4D 50 24 28 49 29 00 F3 3C 86 |;.3);TMP$(I)..<.|
000034F0: 56 82 49 00 1A 3D 90 56 81 58 58 B2 31 A4 31 30 |V.I..=.V.XX.1.10|
00003500: 3A A1 58 58 24 3A 82 58 58 3A 8F 20 43 4C 45 41 |:.XX$:.XX:. CLEA|
00003510: 52 20 4B 45 59 42 4F 41 52 44 00 54 3D 9A 56 56 |R KEYBOARD.T=.VV|
00003520: 54 25 B2 32 34 3A 8D 33 30 31 30 30 3A 99 22 50 |T%.24:.30100:."P|
00003530: 52 45 53 53 20 3C 53 50 41 43 45 20 42 41 52 3E |RESS <SPACE BAR>|
00003540: 20 57 48 45 4E 20 4D 45 4D 4F 52 49 5A 45 44 2E | WHEN MEMORIZED.|
00003550: 2E 2E 22 3B 00 5E 3D A4 56 8D 39 35 32 30 00 6F |..";.^=.V.9520.o|
00003560: 3D A5 56 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |=.V. QN.1 . 110.|
00003570: 85 3D AE 56 81 58 58 B2 31 A4 31 30 3A A1 58 58 |.=.V.XX.1.10:.XX|
00003580: 24 3A 82 58 58 00 AB 3D C2 56 99 C7 28 31 34 37 |$:.XX..=.V..(147|
00003590: 29 3B 3A 8F 20 49 54 45 4D 53 20 57 2F 53 55 47 |);:. ITEMS W/SUG|
000035A0: 47 45 53 54 45 44 20 4C 4F 43 49 00 D5 3D CC 56 |GESTED LOCI..=.V|
000035B0: 81 49 B2 31 A4 31 30 3A 42 45 46 24 28 49 29 B2 |.I.1.10:BEF$(I).|
000035C0: 54 4D 50 24 28 49 29 3A 54 4D 50 24 28 49 29 B2 |TMP$(I):TMP$(I).|
000035D0: 22 22 3A 82 49 00 05 3E D6 56 81 49 B2 31 A4 31 |"":.I..>.V.I.1.1|
000035E0: 30 3A 4D 53 47 24 28 49 29 B2 22 28 22 AA C4 28 |0:MSG$(I)."("..(|
000035F0: 49 29 AA 22 29 20 22 AA 58 4C 4F 43 55 53 24 28 |I).") ".XLOCUS$(|
00003600: 49 29 3A 82 49 00 17 3E E0 56 4C 4F 57 B2 31 3A |I):.I..>.VLOW.1:|
00003610: 48 49 47 48 B2 31 30 00 42 3E EA 56 4C 4D 41 52 |HIGH.10.B>.VLMAR|
00003620: 47 49 4E B2 32 3A 52 4D 41 52 47 49 4E B2 32 31 |GIN.2:RMARGIN.21|
00003630: 3A 43 4F 4C B2 31 3A 41 4E 24 B2 22 2E 2E 2E 2E |:COL.1:AN$."....|
00003640: 2E 22 00 76 3E EB 56 46 49 4C 45 24 B2 22 45 4E |.".v>.VFILE$."EN|
00003650: 54 45 52 20 49 54 45 4D 53 20 43 4F 52 52 45 53 |TER ITEMS CORRES|
00003660: 50 4F 4E 44 49 4E 47 20 54 4F 20 4C 4F 43 49 22 |PONDING TO LOCI"|
00003670: 3A 8D 32 30 30 30 00 8F 3E EC 56 8F 20 4B 45 59 |:.2000..>.V. KEY|
00003680: 42 4F 41 52 44 20 52 45 54 52 49 45 56 41 4C 00 |BOARD RETRIEVAL.|
00003690: A0 3E ED 56 8B 20 51 4E B2 31 20 A7 20 31 31 30 |.>.V. QN.1 . 110|
000036A0: 00 BA 3E F4 56 8D 33 30 30 30 3A 8F 20 52 45 43 |..>.V.3000:. REC|
000036B0: 41 4C 4C 20 54 45 53 54 45 52 00 CB 3E F5 56 8B |ALL TESTER..>.V.|
000036C0: 20 51 4E B2 31 20 A7 20 31 31 30 00 EB 3E FE 56 | QN.1 . 110..>.V|
000036D0: 54 4D 41 58 B2 31 30 3A 8D 33 37 30 30 3A 8B 43 |TMAX.10:.3700:.C|
000036E0: 24 B2 22 59 22 89 32 32 30 37 30 00 FC 3E FF 56 |$."Y".22070..>.V|
000036F0: 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 17 3F 08 |. QN.1 . 110..?.|
00003700: 57 8D 33 38 30 30 3A 8F 20 4C 4F 53 45 52 53 20 |W.3800:. LOSERS |
00003710: 4D 45 53 53 41 47 45 00 3B 3F 12 57 81 49 B2 31 |MESSAGE.;?.W.I.1|
00003720: A4 31 30 3A 4D 53 47 24 28 49 29 B2 22 28 22 AA |.10:MSG$(I)."(".|
00003730: C4 28 49 29 AA 22 29 22 3A 82 49 00 44 3F 1C 57 |.(I).")":.I.D?.W|
00003740: 89 31 31 30 00 5C 3F D8 59 8F 20 48 41 52 44 20 |.110.\?.Y. HARD |
00003750: 49 54 45 4D 53 20 57 2F 4C 4F 43 49 00 71 3F E2 |ITEMS W/LOCI.q?.|
00003760: 59 46 49 4C 45 24 B2 22 4C 38 22 3A 8D 37 35 30 |YFILE$."L8":.750|
00003770: 30 00 82 3F E3 59 8B 20 51 4E B2 31 20 A7 20 31 |0..?.Y. QN.1 . 1|
00003780: 31 30 00 BC 3F EC 59 56 54 25 B2 31 30 3A 8D 33 |10..?.YVT%.10:.3|
00003790: 30 31 30 30 3A 99 22 44 4F 20 59 4F 55 20 57 41 |0100:."DO YOU WA|
000037A0: 4E 54 20 54 4F 20 4C 45 41 52 4E 20 48 4F 57 20 |NT TO LEARN HOW |
000037B0: 54 4F 20 52 45 4D 45 4D 42 45 52 22 00 ED 3F ED |TO REMEMBER"..?.|
000037C0: 59 56 54 25 B2 31 32 3A 8D 33 30 31 30 30 3A 99 |YVT%.12:.30100:.|
000037D0: 22 48 41 52 44 20 57 4F 52 44 53 3F 20 28 59 2F |"HARD WORDS? (Y/|
000037E0: 4E 29 20 22 3B 3A 8D 37 31 3A 99 43 24 00 FE 3F |N) ";:.71:.C$..?|
000037F0: EE 59 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 10 |.Y. QN.1 . 110..|
00003800: 40 F6 59 8B 43 24 B2 22 59 22 89 32 33 30 36 30 |@.Y.C$."Y".23060|
00003810: 00 20 40 00 5A 8B 43 24 B2 22 4E 22 89 31 31 30 |. @.Z.C$."N".110|
00003820: 00 2B 40 0A 5A 89 32 33 30 32 30 00 40 40 14 5A |.+@.Z.23020.@@.Z|
00003830: 46 49 4C 45 24 B2 22 4C 39 22 3A 8D 37 35 30 30 |FILE$."L9":.7500|
00003840: 00 51 40 15 5A 8B 20 51 4E B2 31 20 A7 20 31 31 |.Q@.Z. QN.1 . 11|
00003850: 30 00 6B 40 1E 5A 46 49 4C 45 24 B2 22 4C 49 42 |0.k@.ZFILE$."LIB|
00003860: 45 52 54 59 22 3A 8D 36 36 30 30 00 7C 40 1F 5A |ERTY":.6600.|@.Z|
00003870: 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 92 40 28 |. QN.1 . 110..@(|
00003880: 5A 46 49 4C 45 24 B2 22 4C 31 30 22 3A 8D 37 35 |ZFILE$."L10":.75|
00003890: 30 30 00 A3 40 29 5A 8B 20 51 4E B2 31 20 A7 20 |00..@)Z. QN.1 . |
000038A0: 31 31 30 00 B9 40 32 5A 46 49 4C 45 24 B2 22 4C |110..@2ZFILE$."L|
000038B0: 31 31 22 3A 8D 37 35 30 30 00 CA 40 33 5A 8B 20 |11":.7500..@3Z. |
000038C0: 51 4E B2 31 20 A7 20 31 31 30 00 E2 40 3C 5A 46 |QN.1 . 110..@<ZF|
000038D0: 49 4C 45 24 B2 22 41 4E 47 45 4C 22 3A 8D 36 36 |ILE$."ANGEL":.66|
000038E0: 30 30 00 F3 40 3D 5A 8B 20 51 4E B2 31 20 A7 20 |00..@=Z. QN.1 . |
000038F0: 31 31 30 00 10 41 46 5A 46 49 4C 45 24 B2 22 4C |110..AFZFILE$."L|
00003900: 31 32 22 3A 8D 37 35 30 30 3A 54 59 50 45 B2 34 |12":.7500:TYPE.4|
00003910: 00 21 41 47 5A 8B 20 51 4E B2 31 20 A7 20 31 31 |.!AGZ. QN.1 . 11|
00003920: 30 00 4C 41 50 5A 89 32 32 30 37 30 3A 8F 20 44 |0.LAPZ.22070:. D|
00003930: 49 53 50 4C 41 59 20 53 49 4D 49 4C 41 52 20 54 |ISPLAY SIMILAR T|
00003940: 4F 20 45 41 53 59 20 57 4F 52 44 53 00 73 41 C0 |O EASY WORDS.sA.|
00003950: 5D 8F 20 50 52 41 43 54 49 43 45 20 4D 45 4D 4F |]. PRACTICE MEMO|
00003960: 52 49 5A 49 4E 47 20 4C 49 53 54 53 20 57 2F 4C |RIZING LISTS W/L|
00003970: 4F 43 49 00 89 41 CA 5D 46 49 4C 45 24 B2 22 4C |OCI..A.]FILE$."L|
00003980: 31 33 22 3A 8D 37 35 30 30 00 9A 41 CB 5D 8B 20 |13":.7500..A.]. |
00003990: 51 4E B2 31 20 A7 20 31 31 30 00 B0 41 CF 5D 46 |QN.1 . 110..A.]F|
000039A0: 49 4C 45 24 B2 22 4C 31 34 22 3A 8D 37 35 30 30 |ILE$."L14":.7500|
000039B0: 00 C1 41 D0 5D 8B 20 51 4E B2 31 20 A7 20 31 31 |..A.]. QN.1 . 11|
000039C0: 30 00 D3 41 D4 5D 4B 4D 41 58 B2 31 30 3A 8D 31 |0..A.]KMAX.10:.1|
000039D0: 37 30 30 00 E4 41 D5 5D 8B 20 51 4E B2 31 20 A7 |700..A.]. QN.1 .|
000039E0: 20 31 31 30 00 06 42 DE 5D 81 49 B2 31 A4 31 30 | 110..B.].I.1.10|
000039F0: 3A 54 4D 50 24 28 49 29 B2 58 4C 4F 43 55 53 24 |:TMP$(I).XLOCUS$|
00003A00: 28 49 29 3A 82 49 00 1F 42 E8 5D 8D 31 30 30 30 |(I):.I..B.].1000|
00003A10: 3A 8F 20 57 4F 52 44 20 44 49 53 50 4C 41 59 00 |:. WORD DISPLAY.|
00003A20: 30 42 E9 5D 8B 20 51 4E B2 31 20 A7 20 31 31 30 |0B.]. QN.1 . 110|
00003A30: 00 47 42 F2 5D 81 49 B2 31 A4 31 30 3A 54 4D 50 |.GB.].I.1.10:TMP|
00003A40: 24 28 49 29 B2 22 22 00 58 42 FC 5D 8B 50 57 B3 |$(I)."".XB.].PW.|
00003A50: B1 30 A7 32 34 30 37 30 00 87 42 FD 5D 4D 53 47 |.0.24070..B.]MSG|
00003A60: 24 28 49 29 B2 22 28 22 AA C4 28 49 29 AA 22 29 |$(I)."("..(I).")|
00003A70: 20 22 AA 58 4C 4F 43 55 53 24 28 49 29 3A 4C 4D | ".XLOCUS$(I):LM|
00003A80: 41 52 47 49 4E B2 32 00 B1 42 06 5E 8B 50 57 B2 |ARGIN.2..B.^.PW.|
00003A90: 31 A7 4D 53 47 24 28 49 29 B2 22 28 22 AA C4 28 |1.MSG$(I)."("..(|
00003AA0: 49 29 AA 22 29 22 3A 4C 4D 41 52 47 49 4E B2 31 |I).")":LMARGIN.1|
00003AB0: 32 00 B8 42 10 5E 82 49 00 D0 42 1A 5E 55 24 B2 |2..B.^.I..B.^U$.|
00003AC0: 22 40 22 3A 8D 32 37 31 32 30 3A 55 24 B2 22 22 |"@":.27120:U$.""|
00003AD0: 00 E1 42 1B 5E 8B 20 51 4E B2 31 20 A7 20 31 31 |..B.^. QN.1 . 11|
00003AE0: 30 00 F9 42 1F 5E 8D 33 37 30 30 3A 8B 43 24 B2 |0..B.^.3700:.C$.|
00003AF0: 22 59 22 89 32 34 30 32 30 00 0A 43 20 5E 8B 20 |"Y".24020..C ^. |
00003B00: 51 4E B2 31 20 A7 20 31 31 30 00 19 43 24 5E 8D |QN.1 . 110..C$^.|
00003B10: 33 38 30 30 3A 89 31 31 30 00 3D 43 A8 61 8F 20 |3800:.110.=C.a. |
00003B20: 41 44 56 41 4E 43 45 44 20 55 53 45 20 4F 46 20 |ADVANCED USE OF |
00003B30: 50 45 52 53 4F 4E 41 4C 20 4C 4F 43 49 00 52 43 |PERSONAL LOCI.RC|
00003B40: B2 61 8B 56 56 B2 30 A7 8D 37 30 30 30 3A 56 56 |.a.VV.0..7000:VV|
00003B50: B2 31 00 63 43 B7 61 8B 20 51 4E B2 31 20 A7 20 |.1.cC.a. QN.1 . |
00003B60: 31 31 30 00 8F 43 BC 61 50 47 4D 24 28 31 29 B2 |110..C.aPGM$(1).|
00003B70: 22 49 4E 54 52 4F 44 55 43 54 49 4F 4E 20 54 4F |"INTRODUCTION TO|
00003B80: 20 41 44 56 41 4E 43 45 44 20 4C 4F 43 49 22 00 | ADVANCED LOCI".|
00003B90: B9 43 C6 61 50 47 4D 24 28 32 29 B2 22 43 52 45 |.C.aPGM$(2)."CRE|
00003BA0: 41 54 45 2F 45 58 54 45 4E 44 20 50 45 52 53 4F |ATE/EXTEND PERSO|
00003BB0: 4E 41 4C 20 4C 4F 43 49 22 00 E3 43 D0 61 50 47 |NAL LOCI"..C.aPG|
00003BC0: 4D 24 28 33 29 B2 22 52 45 56 49 45 57 2F 43 48 |M$(3)."REVIEW/CH|
00003BD0: 41 4E 47 45 20 50 45 52 53 4F 4E 41 4C 20 4C 4F |ANGE PERSONAL LO|
00003BE0: 43 49 22 00 15 44 DA 61 50 47 4D 24 28 34 29 B2 |CI"..D.aPGM$(4).|
00003BF0: 22 50 52 41 43 54 49 43 45 20 57 49 54 48 20 4C |"PRACTICE WITH L|
00003C00: 49 53 54 53 20 26 20 50 45 52 53 4F 4E 41 4C 20 |ISTS & PERSONAL |
00003C10: 4C 4F 43 49 22 00 45 44 E4 61 50 47 4D 24 28 35 |LOCI".ED.aPGM$(5|
00003C20: 29 B2 22 52 45 54 55 52 4E 20 54 4F 20 50 52 45 |)."RETURN TO PRE|
00003C30: 56 49 4F 55 53 20 4C 45 53 53 4F 4E 20 23 32 20 |VIOUS LESSON #2 |
00003C40: 4D 45 4E 55 22 00 76 44 EE 61 50 47 4D 24 28 36 |MENU".vD.aPGM$(6|
00003C50: 29 B2 22 52 45 54 55 52 4E 20 54 4F 20 4D 45 4D |)."RETURN TO MEM|
00003C60: 4F 52 59 20 54 52 41 49 4E 45 52 20 4D 41 49 4E |ORY TRAINER MAIN|
00003C70: 20 4D 45 4E 55 22 00 91 44 F8 61 50 47 4D 24 28 | MENU"..D.aPGM$(|
00003C80: 37 29 B2 22 51 55 49 54 20 46 4F 52 20 4E 4F 57 |7)."QUIT FOR NOW|
00003C90: 22 00 AF 44 02 62 50 56 24 B2 22 22 3A 57 24 B2 |"..D.bPV$."":W$.|
00003CA0: 22 40 22 3A 4D 41 58 B2 37 3A 8D 38 30 30 30 00 |"@":MAX.7:.8000.|
00003CB0: DD 44 0C 62 91 43 89 32 35 31 32 30 2C 32 35 31 |.D.b.C.25120,251|
00003CC0: 35 30 2C 32 36 30 30 30 2C 32 37 30 30 30 2C 32 |50,26000,27000,2|
00003CD0: 35 31 31 30 2C 37 31 30 30 2C 39 39 30 00 ED 44 |5110,7100,990..D|
00003CE0: 16 62 50 56 24 B2 22 22 3A 89 31 31 30 00 11 45 |.bPV$."":.110..E|
00003CF0: 20 62 8F 20 49 4E 54 52 4F 44 55 43 54 49 4F 4E | b. INTRODUCTION|
00003D00: 20 54 4F 20 41 44 56 41 4E 43 45 44 20 4C 4F 43 | TO ADVANCED LOC|
00003D10: 49 00 27 45 2A 62 46 49 4C 45 24 B2 22 4C 31 35 |I.'E*bFILE$."L15|
00003D20: 22 3A 8D 37 35 30 30 00 37 45 2B 62 8B 20 51 4E |":.7500.7E+b. QN|
00003D30: B2 31 A7 20 31 31 30 00 54 45 34 62 46 49 4C 45 |.1. 110.TE4bFILE|
00003D40: 24 B2 22 4C 31 36 22 3A 8D 37 35 30 30 3A 89 32 |$."L16":.7500:.2|
00003D50: 35 30 30 30 00 76 45 3E 62 8F 20 43 52 45 41 54 |5000.vE>b. CREAT|
00003D60: 45 2F 45 58 54 45 4E 44 20 50 45 52 53 4F 4E 41 |E/EXTEND PERSONA|
00003D70: 4C 20 4C 4F 43 49 00 8B 45 48 62 8B 50 4C 4D 41 |L LOCI..EHb.PLMA|
00003D80: 58 B1 B2 34 30 89 32 36 30 30 30 00 A1 45 52 62 |X..40.26000..ERb|
00003D90: 46 49 4C 45 24 B2 22 4C 31 37 22 3A 8D 37 35 30 |FILE$."L17":.750|
00003DA0: 30 00 B2 45 53 62 8B 20 51 4E B2 31 20 A7 20 31 |0..ESb. QN.1 . 1|
00003DB0: 31 30 00 D6 45 5C 62 4C 4F 57 B2 50 4C 4D 41 58 |10..E\bLOW.PLMAX|
00003DC0: AA 31 3A 48 49 47 48 B2 50 4C 4D 41 58 AA 31 30 |.1:HIGH.PLMAX.10|
00003DD0: 3A 43 4F 4C B2 31 00 F1 45 66 62 81 49 B2 4C 4F |:COL.1..Efb.I.LO|
00003DE0: 57 A4 48 49 47 48 3A 54 4D 50 24 28 49 29 B2 22 |W.HIGH:TMP$(I)."|
00003DF0: 22 00 19 46 67 62 4D 53 47 24 28 49 29 B2 22 28 |"..FgbMSG$(I)."(|
00003E00: 22 AA C4 28 49 29 AA 22 29 22 3A 42 45 46 24 28 |"..(I).")":BEF$(|
00003E10: 49 29 B2 22 40 22 3A 82 49 00 5B 46 70 62 4C 4D |I)."@":.I.[FpbLM|
00003E20: 41 52 47 49 4E B2 32 3A 52 4D 41 52 47 49 4E B2 |ARGIN.2:RMARGIN.|
00003E30: 36 3A 46 49 4C 45 24 B2 22 45 4E 54 45 52 20 59 |6:FILE$."ENTER Y|
00003E40: 4F 55 52 20 50 45 52 53 4F 4E 41 4C 20 4C 4F 43 |OUR PERSONAL LOC|
00003E50: 49 20 49 4E 20 4F 52 44 45 52 22 00 7E 46 71 62 |I IN ORDER".~Fqb|
00003E60: 41 4E 24 B2 22 2E 2E 2E 2E 22 3A 8D 32 30 30 30 |AN$."....":.2000|
00003E70: 3A 8B 51 55 49 54 B2 31 89 32 35 30 30 30 00 9E |:.QUIT.1.25000..|
00003E80: 46 72 62 8F 20 55 4E 54 49 4D 45 44 20 4B 45 59 |Frb. UNTIMED KEY|
00003E90: 42 4F 41 52 44 20 52 45 54 52 49 45 56 45 00 AF |BOARD RETRIEVE..|
00003EA0: 46 73 62 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |Fsb. QN.1 . 110.|
00003EB0: C8 46 7A 62 8D 33 33 30 30 3A 8F 20 53 54 52 49 |.Fzb.3300:. STRI|
00003EC0: 50 20 42 4C 41 4E 4B 53 00 EE 46 84 62 81 49 B2 |P BLANKS..F.b.I.|
00003ED0: 4C 4F 57 A4 48 49 47 48 3A 59 4C 4F 43 55 53 24 |LOW.HIGH:YLOCUS$|
00003EE0: 28 49 29 B2 41 46 54 24 28 49 29 3A 82 49 00 07 |(I).AFT$(I):.I..|
00003EF0: 47 8E 62 8F 20 50 45 52 53 4F 4E 41 4C 20 4C 4F |G.b. PERSONAL LO|
00003F00: 43 49 20 54 45 53 54 00 22 47 98 62 81 49 B2 4C |CI TEST."G.b.I.L|
00003F10: 4F 57 A4 48 49 47 48 3A 54 4D 50 24 28 49 29 B2 |OW.HIGH:TMP$(I).|
00003F20: 22 22 00 51 47 A2 62 99 C7 28 31 34 37 29 3B 3A |"".QG.b..(147);:|
00003F30: 46 49 4C 45 24 B2 22 53 54 55 44 59 20 59 4F 55 |FILE$."STUDY YOU|
00003F40: 52 20 4C 4F 43 49 20 43 41 52 45 46 55 4C 4C 59 |R LOCI CAREFULLY|
00003F50: 22 00 6C 47 A3 62 99 C7 28 31 38 29 3B 3A 8D 32 |".lG.b..(18);:.2|
00003F60: 39 39 30 3A 99 C7 28 31 34 36 29 3B 00 78 47 AC |990:..(146);.xG.|
00003F70: 62 81 49 B2 31 A4 31 30 00 81 47 B6 62 41 48 B2 |b.I.1.10..G.bAH.|
00003F80: 35 00 A0 47 C0 62 56 54 25 B2 32 AC 49 AA 31 3A |5..G.bVT%.2.I.1:|
00003F90: 8D 33 30 31 30 30 3A 97 32 31 31 2C 41 48 AB 31 |.30100:.211,AH.1|
00003FA0: 00 C7 47 C1 62 99 22 28 22 3B 4C 4F 57 AB 31 AA |..G.b."(";LOW.1.|
00003FB0: 49 3B 22 29 20 22 3B 59 4C 4F 43 55 53 24 28 4C |I;") ";YLOCUS$(L|
00003FC0: 4F 57 AB 31 AA 49 29 00 CE 47 CA 62 82 49 00 F4 |OW.1.I)..G.b.I..|
00003FD0: 47 D4 62 81 49 B2 4C 4F 57 A4 48 49 47 48 3A 42 |G.b.I.LOW.HIGH:B|
00003FE0: 45 46 24 28 49 29 B2 59 4C 4F 43 55 53 24 28 49 |EF$(I).YLOCUS$(I|
00003FF0: 29 3A 82 49 00 32 48 DE 62 56 54 25 B2 32 34 3A |):.I.2H.bVT%.24:|
00004000: 8D 33 30 31 30 30 3A 99 22 50 55 53 48 20 3C 53 |.30100:."PUSH <S|
00004010: 50 41 43 45 20 42 41 52 3E 20 54 4F 20 42 45 20 |PACE BAR> TO BE |
00004020: 54 45 53 54 45 44 20 4F 4E 20 4C 4F 43 49 2E 2E |TESTED ON LOCI..|
00004030: 22 3B 00 3C 48 E8 62 8D 39 35 32 30 00 4D 48 E9 |";.<H.b.9520.MH.|
00004040: 62 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 63 48 |b. QN.1 . 110.cH|
00004050: F2 62 81 58 58 B2 31 A4 31 30 3A A1 58 58 24 3A |.b.XX.1.10:.XX$:|
00004060: 82 58 58 00 7C 48 FC 62 8F 20 54 45 53 54 20 50 |.XX.|H.b. TEST P|
00004070: 45 52 53 4F 4E 41 4C 20 4C 4F 43 49 00 AB 48 06 |ERSONAL LOCI..H.|
00004080: 63 46 49 4C 45 24 B2 22 52 45 43 41 4C 4C 20 59 |cFILE$."RECALL Y|
00004090: 4F 55 52 20 50 45 52 53 4F 4E 41 4C 20 4C 4F 43 |OUR PERSONAL LOC|
000040A0: 49 20 49 4E 20 4F 52 44 45 52 22 00 D5 48 10 63 |I IN ORDER"..H.c|
000040B0: 4C 4D 41 52 47 49 4E B2 32 3A 52 4D 41 52 47 49 |LMARGIN.2:RMARGI|
000040C0: 4E B2 36 3A 41 4E 24 B2 22 2E 2E 2E 2E 2E 22 3A |N.6:AN$.".....":|
000040D0: 8D 32 30 30 30 00 E7 48 11 63 8B 51 55 49 54 B2 |.2000..H.c.QUIT.|
000040E0: 31 89 32 35 32 35 30 00 F8 48 12 63 8B 20 51 4E |1.25250..H.c. QN|
000040F0: B2 31 20 A7 20 31 31 30 00 12 49 1A 63 8D 33 30 |.1 . 110..I.c.30|
00004100: 30 30 3A 8F 20 52 45 43 41 4C 4C 20 54 45 53 54 |00:. RECALL TEST|
00004110: 45 52 00 23 49 1B 63 8B 20 51 4E B2 31 20 A7 20 |ER.#I.c. QN.1 . |
00004120: 31 31 30 00 55 49 24 63 54 4D 41 58 B2 31 30 3A |110.UI$cTMAX.10:|
00004130: 8D 33 37 30 30 3A 8B 43 24 B2 22 59 22 89 32 35 |.3700:.C$."Y".25|
00004140: 32 35 30 3A 8F 20 57 49 4E 4E 45 52 53 20 4D 45 |250:. WINNERS ME|
00004150: 53 53 41 47 45 00 66 49 25 63 8B 20 51 4E B2 31 |SSAGE.fI%c. QN.1|
00004160: 20 A7 20 31 31 30 00 77 49 2E 63 8B 41 4E 53 B3 | . 110.wI.c.ANS.|
00004170: 37 89 32 35 34 31 30 00 9B 49 38 63 50 4C 4D 41 |7.25410..I8cPLMA|
00004180: 58 B2 50 4C 4D 41 58 AA 31 30 3A 8B 44 53 4B 24 |X.PLMAX.10:.DSK$|
00004190: B3 B1 22 59 22 A7 32 35 34 31 30 00 AE 49 39 63 |.."Y".25410..I9c|
000041A0: 51 55 49 54 B2 32 3A 53 44 24 B2 22 42 22 00 D8 |QUIT.2:SD$."B"..|
000041B0: 49 3A 63 43 24 B2 22 55 50 44 41 54 45 22 3A 52 |I:cC$."UPDATE":R|
000041C0: 57 24 B2 22 57 52 49 54 45 20 22 3A 8D 37 32 32 |W$."WRITE ":.722|
000041D0: 30 3A 51 55 49 54 B2 30 00 E3 49 42 63 89 32 35 |0:QUIT.0..IBc.25|
000041E0: 30 30 30 00 05 4A 90 65 8F 20 52 45 56 49 45 57 |000..J.e. REVIEW|
000041F0: 2F 43 48 41 4E 47 45 20 50 45 52 53 4F 4E 41 4C |/CHANGE PERSONAL|
00004200: 20 4C 4F 43 49 00 2C 4A 9A 65 8B 50 4C 4D 41 58 | LOCI.,J.e.PLMAX|
00004210: B3 31 30 A7 46 49 4C 45 24 B2 22 4C 31 38 22 3A |.10.FILE$."L18":|
00004220: 8D 37 35 30 30 3A 89 32 35 30 30 30 00 42 4A A4 |.7500:.25000.BJ.|
00004230: 65 46 49 4C 45 24 B2 22 4C 31 39 22 3A 8D 37 35 |eFILE$."L19":.75|
00004240: 30 30 00 53 4A A5 65 8B 20 51 4E B2 31 20 A7 20 |00.SJ.e. QN.1 . |
00004250: 31 31 30 00 6C 4A AE 65 8D 31 33 30 30 30 3A 56 |110.lJ.e.13000:V|
00004260: 54 25 B2 32 34 3A 8D 33 30 31 30 30 00 98 4A AF |T%.24:.30100..J.|
00004270: 65 99 22 50 52 45 53 53 20 3C 53 50 41 43 45 20 |e."PRESS <SPACE |
00004280: 42 41 52 3E 20 54 4F 20 52 45 54 55 52 4E 20 54 |BAR> TO RETURN T|
00004290: 4F 20 4D 45 4E 55 22 3B 00 B1 4A B8 65 56 54 25 |O MENU";..J.eVT%|
000042A0: B2 31 30 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C |.10:.30100:.211,|
000042B0: 30 00 EB 4A B9 65 99 22 57 48 49 43 48 20 47 52 |0..J.e."WHICH GR|
000042C0: 4F 55 50 20 4F 46 20 31 30 20 50 45 52 53 4F 4E |OUP OF 10 PERSON|
000042D0: 41 4C 20 4C 4F 43 41 54 49 4F 4E 53 22 3A 56 54 |AL LOCATIONS":VT|
000042E0: 25 B2 31 32 3A 8D 33 30 31 30 30 00 28 4B BA 65 |%.12:.30100.(K.e|
000042F0: 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F |."DO YOU WANT TO|
00004300: 20 52 45 56 49 45 57 3F 20 28 31 20 54 4F 20 22 | REVIEW? (1 TO "|
00004310: 3B 50 4C 4D 41 58 AD 31 30 3B 22 29 20 22 3B 22 |;PLMAX.10;") ";"|
00004320: 20 20 20 9D 9D 9D 22 3B 00 4F 4B C2 65 8D 37 31 | ...";.OK.e.71|
00004330: 3A 54 4D 41 58 B2 C5 28 43 24 29 3A 99 54 4D 41 |:TMAX..(C$):.TMA|
00004340: 58 3A 8B 43 24 B2 22 20 22 89 32 35 30 30 30 00 |X:.C$." ".25000.|
00004350: 60 4B C3 65 8B 20 51 4E B2 31 20 A7 20 31 31 30 |`K.e. QN.1 . 110|
00004360: 00 80 4B CC 65 8B 54 4D 41 58 B1 50 4C 4D 41 58 |..K.e.TMAX.PLMAX|
00004370: AD 31 30 B0 54 4D 41 58 B3 31 89 32 36 30 34 30 |.10.TMAX.1.26040|
00004380: 00 9C 4B D6 65 48 49 47 48 B2 31 30 AC 54 4D 41 |..K.eHIGH.10.TMA|
00004390: 58 3A 4C 4F 57 B2 48 49 47 48 AB 39 00 D0 4B E0 |X:LOW.HIGH.9..K.|
000043A0: 65 46 49 4C 45 24 B2 22 52 45 56 49 45 57 2F 43 |eFILE$."REVIEW/C|
000043B0: 48 41 4E 47 45 20 59 4F 55 52 20 50 45 52 53 4F |HANGE YOUR PERSO|
000043C0: 4E 41 4C 20 4C 4F 43 49 22 3A 41 4E 24 B2 22 22 |NAL LOCI":AN$.""|
000043D0: 00 F3 4B EA 65 81 4A B2 4C 4F 57 A4 48 49 47 48 |..K.e.J.LOW.HIGH|
000043E0: 3A 54 4D 50 24 28 4A 29 B2 59 4C 4F 43 55 53 24 |:TMP$(J).YLOCUS$|
000043F0: 28 4A 29 00 1B 4C EB 65 4D 53 47 24 28 4A 29 B2 |(J)..L.eMSG$(J).|
00004400: 22 28 22 AA C4 28 4A 29 AA 22 29 22 3A 42 45 46 |"("..(J).")":BEF|
00004410: 24 28 4A 29 B2 22 40 22 3A 82 4A 00 3F 4C F4 65 |$(J)."@":.J.?L.e|
00004420: 4C 4D 41 52 47 49 4E B2 32 3A 52 4D 41 52 47 49 |LMARGIN.2:RMARGI|
00004430: 4E B2 36 3A 43 4F 4C B2 31 3A 8D 32 30 31 30 00 |N.6:COL.1:.2010.|
00004440: 50 4C F5 65 8B 20 51 4E B2 31 20 A7 20 31 31 30 |PL.e. QN.1 . 110|
00004450: 00 69 4C FE 65 8D 33 33 30 30 3A 8F 20 53 54 52 |.iL.e.3300:. STR|
00004460: 49 50 20 42 4C 41 4E 4B 53 00 9B 4C 08 66 81 49 |IP BLANKS..L.f.I|
00004470: B2 4C 4F 57 A4 48 49 47 48 3A 8F 20 41 44 44 20 |.LOW.HIGH:. ADD |
00004480: 41 4E 59 20 43 48 41 4E 47 45 44 20 4C 4F 43 49 |ANY CHANGED LOCI|
00004490: 20 54 4F 20 59 4C 4F 43 55 53 24 00 BF 4C 12 66 | TO YLOCUS$..L.f|
000044A0: 8B 41 46 54 24 28 49 29 B3 B1 22 22 A7 59 4C 4F |.AFT$(I).."".YLO|
000044B0: 43 55 53 24 28 49 29 B2 41 46 54 24 28 49 29 00 |CUS$(I).AFT$(I).|
000044C0: C6 4C 1C 66 82 49 00 0A 4D 26 66 8B 44 53 4B 24 |.L.f.I..M&f.DSK$|
000044D0: B2 22 59 22 A7 51 55 49 54 B2 32 3A 53 44 24 B2 |."Y".QUIT.2:SD$.|
000044E0: 22 42 22 3A 43 24 B2 22 55 50 44 41 54 45 22 3A |"B":C$."UPDATE":|
000044F0: 52 57 24 B2 22 57 52 49 54 45 20 22 3A 8D 20 37 |RW$."WRITE ":. 7|
00004500: 32 32 30 3A 51 55 49 54 B2 30 00 1B 4D 27 66 8B |220:QUIT.0..M'f.|
00004510: 20 51 4E B2 31 20 A7 20 31 31 30 00 26 4D 30 66 | QN.1 . 110.&M0f|
00004520: 89 32 36 30 33 30 00 50 4D 78 69 8F 20 50 52 41 |.26030.PMxi. PRA|
00004530: 43 54 49 43 45 20 57 49 54 48 20 4C 49 53 54 53 |CTICE WITH LISTS|
00004540: 20 26 20 50 45 52 53 4F 4E 41 4C 20 4C 4F 43 49 | & PERSONAL LOCI|
00004550: 00 8C 4D 82 69 8B 50 4C 4D 41 58 B3 31 30 89 32 |..M.i.PLMAX.10.2|
00004560: 36 30 31 30 3A 8F 20 4E 4F 20 50 45 52 53 4F 4E |6010:. NO PERSON|
00004570: 41 4C 20 4C 4F 43 49 20 57 45 52 45 20 4C 45 41 |AL LOCI WERE LEA|
00004580: 52 4E 45 44 2E 2E 2E 4C 45 41 56 45 00 A2 4D 8C |RNED...LEAVE..M.|
00004590: 69 46 49 4C 45 24 B2 22 4C 31 33 22 3A 8D 37 35 |iFILE$."L13":.75|
000045A0: 30 30 00 B3 4D 8D 69 8B 20 51 4E B2 31 20 A7 20 |00..M.i. QN.1 . |
000045B0: 31 31 30 00 C9 4D 91 69 46 49 4C 45 24 B2 22 4C |110..M.iFILE$."L|
000045C0: 31 34 22 3A 8D 37 35 30 30 00 DA 4D 92 69 8B 20 |14":.7500..M.i. |
000045D0: 51 4E B2 31 20 A7 20 31 31 30 00 05 4E 96 69 4B |QN.1 . 110..N.iK|
000045E0: 4D 41 58 B2 50 4C 4D 41 58 3A 8D 31 37 30 30 3A |MAX.PLMAX:.1700:|
000045F0: 48 49 47 48 B2 54 4D 41 58 3A 4C 4F 57 B2 31 3A |HIGH.TMAX:LOW.1:|
00004600: 55 24 B2 22 22 00 16 4E 97 69 8B 20 51 4E B2 31 |U$.""..N.i. QN.1|
00004610: 20 A7 20 31 31 30 00 3C 4E A0 69 81 49 B2 4C 4F | . 110.<N.i.I.LO|
00004620: 57 A4 48 49 47 48 3A 54 4D 50 24 28 49 29 B2 59 |W.HIGH:TMP$(I).Y|
00004630: 4C 4F 43 55 53 24 28 49 29 3A 82 49 00 55 4E AA |LOCUS$(I):.I.UN.|
00004640: 69 8D 31 30 30 30 3A 8F 20 57 4F 52 44 20 44 49 |i.1000:. WORD DI|
00004650: 53 50 4C 41 59 00 66 4E AB 69 8B 20 51 4E B2 31 |SPLAY.fN.i. QN.1|
00004660: 20 A7 20 31 31 30 00 79 4E B4 69 8F 20 57 4F 52 | . 110.yN.i. WOR|
00004670: 44 20 44 49 53 50 4C 41 59 00 89 4E BE 69 81 49 |D DISPLAY..N.i.I|
00004680: B2 4C 4F 57 A4 48 49 47 48 00 98 4E C8 69 54 4D |.LOW.HIGH..N.iTM|
00004690: 50 24 28 49 29 B2 22 22 00 A9 4E D2 69 8B 50 57 |P$(I).""..N.i.PW|
000046A0: B3 B1 30 A7 32 37 31 30 30 00 D8 4E D3 69 4D 53 |..0.27100..N.iMS|
000046B0: 47 24 28 49 29 B2 22 28 22 AA C4 28 49 29 AA 22 |G$(I)."("..(I)."|
000046C0: 29 20 22 AA 59 4C 4F 43 55 53 24 28 49 29 3A 4C |) ".YLOCUS$(I):L|
000046D0: 4D 41 52 47 49 4E B2 32 00 03 4F DC 69 8B 50 57 |MARGIN.2..O.i.PW|
000046E0: B2 31 A7 4D 53 47 24 28 49 29 B2 22 28 22 AA C4 |.1.MSG$(I)."("..|
000046F0: 28 49 29 AA 22 29 20 22 3A 4C 4D 41 52 47 49 4E |(I).") ":LMARGIN|
00004700: B2 31 32 00 0A 4F E6 69 82 49 00 34 4F F0 69 59 |.12..O.i.I.4O.iY|
00004710: B2 B5 28 54 4D 41 58 AD 31 30 29 3A 4D 44 B2 54 |..(TMAX.10):MD.T|
00004720: 4D 41 58 AB 28 31 30 AC 59 29 3A 8F 20 4D 4F 44 |MAX.(10.Y):. MOD|
00004730: 55 4C 55 53 00 5D 4F FA 69 8B 4D 44 B1 30 A7 59 |ULUS.]O.i.MD.0.Y|
00004740: B2 59 AA 31 3A 8F 20 44 49 53 50 4C 41 59 20 31 |.Y.1:. DISPLAY 1|
00004750: 20 45 58 54 52 41 20 53 43 52 45 45 4E 00 7B 4F | EXTRA SCREEN.{O|
00004760: 04 6A 48 49 47 48 B2 31 30 3A 81 58 58 B2 31 A4 |.jHIGH.10:.XX.1.|
00004770: 31 30 3A A1 58 58 24 3A 82 58 58 00 9B 4F 0E 6A |10:.XX$:.XX..O.j|
00004780: 81 49 49 B2 31 A4 59 3A 8F 20 4E 55 4D 42 45 52 |.II.1.Y:. NUMBER|
00004790: 20 4F 46 20 53 43 52 45 45 4E 53 00 D1 4F 18 6A | OF SCREENS..O.j|
000047A0: 46 49 4C 45 24 B2 22 45 4E 54 45 52 20 4E 55 4D |FILE$."ENTER NUM|
000047B0: 42 45 52 45 44 20 49 54 45 4D 53 20 49 4E 20 4F |BERED ITEMS IN O|
000047C0: 52 44 45 52 22 3A 41 4E 24 B2 22 2E 2E 2E 2E 2E |RDER":AN$.".....|
000047D0: 22 00 E0 4F 22 6A 4C 4F 57 B2 48 49 47 48 AB 39 |"..O"jLOW.HIGH.9|
000047E0: 00 02 50 2C 6A 8B 28 4D 44 B3 B1 30 29 AF 28 49 |..P,j.(MD..0).(I|
000047F0: 49 B2 59 29 A7 48 49 47 48 B2 4C 4F 57 AA 4D 44 |I.Y).HIGH.LOW.MD|
00004800: AB 31 00 1D 50 36 6A 52 4D 41 52 47 49 4E B2 32 |.1..P6jRMARGIN.2|
00004810: 30 3A 43 4F 4C B2 31 3A 8D 32 30 30 30 00 2E 50 |0:COL.1:.2000..P|
00004820: 37 6A 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 3F |7j. QN.1 . 110.?|
00004830: 50 40 6A 48 49 47 48 B2 48 49 47 48 AA 31 30 00 |P@jHIGH.HIGH.10.|
00004840: 47 50 4A 6A 82 49 49 00 63 50 54 6A 8F 20 44 49 |GPJj.II.cPTj. DI|
00004850: 53 50 4C 41 59 20 43 4F 52 52 45 43 54 20 57 4F |SPLAY CORRECT WO|
00004860: 52 44 53 00 74 50 5E 6A 48 49 47 48 B2 31 30 3A |RDS.tP^jHIGH.10:|
00004870: 41 58 B2 30 00 80 50 68 6A 81 49 49 B2 31 A4 59 |AX.0..Phj.II.1.Y|
00004880: 00 8F 50 72 6A 4C 4F 57 B2 48 49 47 48 AB 39 00 |..PrjLOW.HIGH.9.|
00004890: B1 50 7C 6A 8B 28 4D 44 B3 B1 30 29 AF 28 49 49 |.P|j.(MD..0).(II|
000048A0: B2 59 29 A7 48 49 47 48 B2 4C 4F 57 AA 4D 44 AB |.Y).HIGH.LOW.MD.|
000048B0: 31 00 D2 50 86 6A 8D 33 30 30 30 3A 48 49 47 48 |1..P.j.3000:HIGH|
000048C0: B2 48 49 47 48 AA 31 30 3A 41 58 B2 41 58 AA 41 |.HIGH.10:AX.AX.A|
000048D0: 4E 53 00 E3 50 87 6A 8B 20 51 4E B2 31 20 A7 20 |NS..P.j. QN.1 . |
000048E0: 31 31 30 00 EB 50 90 6A 82 49 49 00 06 51 9A 6A |110..P.j.II..Q.j|
000048F0: 58 B2 B5 28 28 31 30 30 AC 41 58 AD 54 4D 41 58 |X..((100.AX.TMAX|
00004900: 29 AA 30 2E 35 29 00 1F 51 A4 6A 97 32 31 31 2C |).0.5)..Q.j.211,|
00004910: 30 3A 56 54 25 B2 31 39 3A 8D 33 30 31 30 30 00 |0:VT%.19:.30100.|
00004920: 4D 51 A5 6A 99 C7 28 31 38 29 3B 22 54 4F 54 41 |MQ.j..(18);"TOTA|
00004930: 4C 20 43 4F 52 52 45 43 54 3A 22 3B 41 58 3B 22 |L CORRECT:";AX;"|
00004940: 9D 22 3B 22 20 4F 55 54 20 4F 46 22 3B 00 74 51 |.";" OUT OF";.tQ|
00004950: A6 6A 99 54 4D 41 58 3B 22 9D 22 3B 22 20 28 4F |.j.TMAX;".";" (O|
00004960: 52 22 3B 58 3B 22 9D 22 3B 22 25 29 22 3B C7 28 |R";X;".";"%)";.(|
00004970: 31 34 36 29 00 A9 51 AE 6A 56 54 25 B2 32 31 3A |146)..Q.jVT%.21:|
00004980: 8D 33 30 31 30 30 3A 99 22 59 4F 55 52 20 53 43 |.30100:."YOUR SC|
00004990: 4F 52 45 3A 22 3B C7 28 31 38 29 3B 53 43 AC 41 |ORE:";.(18);SC.A|
000049A0: 58 3B C7 28 31 34 36 29 3B 00 BE 51 B8 6A 8B 41 |X;.(146);..Q.j.A|
000049B0: 58 AC 53 43 B3 B2 54 53 A7 32 37 33 33 30 00 DF |X.SC..TS.27330..|
000049C0: 51 B9 6A 54 53 B2 41 58 AC 53 43 3A 97 32 31 31 |Q.jTS.AX.SC:.211|
000049D0: 2C 31 39 3A 99 C7 28 37 29 3B C7 28 37 29 3B 00 |,19:..(7);.(7);.|
000049E0: 16 52 BA 6A 46 49 4C 45 24 B2 22 48 49 47 48 45 |.R.jFILE$."HIGHE|
000049F0: 53 54 20 53 43 4F 52 45 3A 22 AA C4 28 54 53 29 |ST SCORE:"..(TS)|
00004A00: 3A 53 45 43 B2 34 3A 8D 33 30 30 30 30 3A 99 C7 |:SEC.4:.30000:..|
00004A10: 28 31 34 36 29 3B 00 44 52 C2 6A 97 32 31 31 2C |(146);.DR.j.211,|
00004A20: 31 39 3A 99 22 48 49 47 48 45 53 54 20 53 43 4F |19:."HIGHEST SCO|
00004A30: 52 45 3A 22 3B C7 28 31 38 29 3B 54 53 3B C7 28 |RE:";.(18);TS;.(|
00004A40: 31 34 36 29 00 58 52 CC 6A 8D 39 35 30 30 3A 8B |146).XR.j.9500:.|
00004A50: 55 24 B2 22 40 22 A7 8E 00 7A 52 CD 6A 8F 20 47 |U$."@"...zR.j. G|
00004A60: 4F 20 42 41 43 4B 20 54 4F 20 42 45 47 49 4E 4E |O BACK TO BEGINN|
00004A70: 45 52 53 20 4C 45 53 53 4F 4E 00 92 52 D6 6A 8D |ERS LESSON..R.j.|
00004A80: 33 37 30 30 3A 8B 43 24 B2 22 59 22 89 32 37 30 |3700:.C$."Y".270|
00004A90: 33 30 00 A3 52 D7 6A 8B 20 51 4E B2 31 20 A7 20 |30..R.j. QN.1 . |
00004AA0: 31 31 30 00 AE 52 E0 6A 89 32 35 30 30 30 00 C2 |110..R.j.25000..|
00004AB0: 52 30 75 8F 20 46 4C 41 53 48 20 52 4F 55 54 49 |R0u. FLASH ROUTI|
00004AC0: 4E 45 00 E1 52 3A 75 43 58 B2 C2 28 32 31 31 29 |NE..R:uCX..(211)|
00004AD0: 3A 43 58 B2 43 58 AB 28 43 58 B1 33 39 29 AC 34 |:CX.CX.(CX.39).4|
00004AE0: 30 00 1E 53 44 75 53 45 43 B2 30 2E 33 3A 81 54 |0..SDuSEC.0.3:.T|
00004AF0: 44 B2 31 20 A4 20 35 3A 97 20 32 31 31 2C 43 58 |D.1 . 5:. 211,CX|
00004B00: 3A 99 22 12 22 3B 46 49 4C 45 24 3B 22 92 22 3B |:.".";FILE$;".";|
00004B10: 3A 97 32 31 31 2C 43 58 3A 8D 32 39 30 30 00 35 |:.211,CX:.2900.5|
00004B20: 53 4E 75 99 46 49 4C 45 24 3B 3A 8D 32 39 30 30 |SNu.FILE$;:.2900|
00004B30: 3A 82 20 54 44 00 3B 53 58 75 8E 00 4E 53 94 75 |:. TD.;SXu..NS.u|
00004B40: 8F 20 56 54 41 42 20 52 4F 55 54 49 4E 45 00 5F |. VTAB ROUTINE._|
00004B50: 53 9E 75 8F 20 52 4F 57 20 49 4E 20 56 54 25 00 |S.u. ROW IN VT%.|
00004B60: 7C 53 A8 75 58 58 25 B2 C2 28 32 31 31 29 3A 8F ||S.uXX%..(211):.|
00004B70: 20 47 45 54 20 48 4F 52 20 50 4F 53 00 8D 53 B2 | GET HOR POS..S.|
00004B80: 75 99 C8 28 56 54 24 2C 56 54 25 29 3B 00 AC 53 |u..(VT$,VT%);..S|
00004B90: BC 75 97 32 31 31 2C 58 58 25 3A 8F 20 52 45 53 |.u.211,XX%:. RES|
00004BA0: 54 4F 52 45 20 48 4F 52 20 50 4F 53 00 B2 53 C6 |TORE HOR POS..S.|
00004BB0: 75 8E 00 C3 53 F8 75 8F 20 45 4C 20 52 4F 55 54 |u...S.u. EL ROUT|
00004BC0: 49 4E 45 00 E4 53 0C 76 52 58 B2 C2 28 32 31 31 |INE..S.vRX..(211|
00004BD0: 29 3A 8B 20 52 58 B1 33 39 20 A7 20 52 58 B2 52 |):. RX.39 . RX.R|
00004BE0: 58 AB 34 30 00 02 54 16 76 99 C8 28 45 4C 24 2C |X.40..T.v..(EL$,|
00004BF0: 33 39 AB 52 58 29 3B 3A 97 20 32 31 31 2C 52 58 |39.RX);:. 211,RX|
00004C00: 3A 8E 00 00 00 3B 3A 97 20 32 31 31 2C 52 58 3A |:....;:. 211,RX:|
00004C10: 8E 00 00 00 |.... |
.. .... ,XX%:REM RESTORE HOR POS.8....:.
1,8,15:ZE$.G(0).H.... LESSON #2.....MU.
49637:ER.49637:GR.49152:VT$."...........
...................".....EL$."
":DE.4966
7:NM.49668:LD.49594......".":. 53281,0:.
53280,0..."..WRDS$(4,47),HF%(9),LF%(9).
F.&..BEF$(40),AFT$(40),XLOCUS$(10),YLOCU
S$(40).].2..MSG$(40),TMP$(40).J.6..GM$(1
0).W.:..S9$(23)...<..100...G..XX.1.10:.X
X$:.XX...H.. 204,0...I..C$:.C$."".73...J
.C$.G(F(C$.ZE$).127):. 204,1:. 9600:....
P.. SPECIAL INPUT ROUTINE.0.Q.H.B(211).1
:V.B(214).1:L$."":L.16:CX.F(C$.ZE$):. 83
.G.R..72:CX.F(C$.ZE$):.CX.13..H(EL$,L.C(
L$)):.211,H.1:..V.S..CX..20.86...T.R$."X
".I(L$,1).R$...U..L$."".H.H.1:L$.J(L$,1,
C(L$).1):." ..";.G.V.. QN.1 . ....W.. CX
.90 . CX.48 . 82...X..CX.32 .C$."":CX.0:
H.H.1...Y..C(L$).C(C$).L..G(7);:.82.@.Z.
.C$;:H.H.1:VT%.V:.30100:.211,H.1.\.[.L$.
L$.C$:R$.J(R$,2):.82..D..13000:.10000:.
INITIALIZATION...N.PGM$(1)."INTRODUCTIO
N TO LESSON #2":.ER.M.X.PGM$(2)."LEARN A
SET OF LOCI".....PGM$(3)."ASSOCIATE EAS
Y ITEMS WITH LOCI".'...PGM$(4)."ASSOCIAT
E HARD ITEMS WITH LOCI".Y...PGM$(5)."PRA
CTICE MEMORIZING LISTS WITH LOCI"... .PG
M$(6)."ADVANCED USE OF PERSONAL LOCI".M.
..PGM$(7)."RETURN TO MEMORY TRAINER MAIN
MENU":PGM$(8)."QUIT FOR NOW".....MAX.8:
.8000:QN.0......C.20000,21000,22000,2300
0,24000,25000,7100,990.F....13000:VT%.8:
.30100:."YOU HAVE JUST EXITED".~...VT%.1
0:.30100:.G(18);"THE EINSTEIN MEMORY TRA
INER";......G(146);".":VT%.12:.30100.J..
.."THANK YOU FOR PLAYING!":VT%.22:.30100
:....... WORD DISPLAY......G(147);:VT%.1
2:.30100:FILE$."GET READY TO BE TESTED".
7.....9);:SEC.4:.30000:.G(146);.C...XNUM
.48.X...XMAX.TMAX:. 1500...$.. 211,0:VT%
.12:.30100:.30200:SEC.2:.2900...%.. QN.1
. ....... DISPLAY CONCRETE/ABSTRACT WOR
DS.H.8..I.1.TMAX.W.9.. QN.1 . ....L.BEF$
(I).WRDS$(TYPE,RDR%(I).1).*.`.VT%.10:.30
100:.211,13:.G(18);" ";.[.J.V
T%.14:.30100:.211,13:." ";G(1
46).X.T..211,0:VT%.12:.30100:.MU...U....
((40.C(BEF$(I))).2));BEF$(I);.10).E.~.VT
%.12:.30100:.211,0:."(";I;")".X...PROMP
T.1.1170.....VT%.23:.30100:FILE$.TMP$(I)
:.2990.$...VT%.23:.30100:.211,0:."LOCATI
ON:".I...SEC.DTIME:. USER SELECTABLE TIM
E.S....2900.|.... BLANK DISPLAY FOR 0.5
SEC INTERVAL.....VT%.12:.30100:.211,0:.3
0200.....VT%.23:.30100:.211,0:.30200.L.D
.SEC.1:.2900...E.. QN.1 . ....N..I...X..
...... RANDOM ORDER SELECTOR.....RDR%(1)
.XNUM..(1).1.*....I.2.XMAX.B...RDR%(I).X
NUM..(1).1.O....J.1.I.1.~....RDR%(I).RDR
%(J).1530:. GET A NEW RANDOM #......J:.I
...?........ MEMORY OPTION SELECT.Z....G
(147);:FILE$."SET MEMORY PRACTICE OPTION
S"......G(18);:.2990:.G(146);.....VT%.4:
.30100:.211,0.E...."NUMBER OF ITEMS IN L
IST (5 TO ";KMAX;")...";.38);.D.B.. 71:.
80:TMAX.E(L$):.211,0.S.C.. QN.1 . ....L.
..(TMAX.KMAX.TMAX.5).1750...M.VT%.6:.301
00:.G(18);G(7);...N.."ILLEGAL ENTRY! PLE
ASE ENTER AGAIN";G(146);...O..30200:.172
0...V.VT%.6:.30100:."HELP WITH LOCI--";:
.30200.6.X.VT%.8:.30100:.211,3.E.Y.."IN
MEMORIZING: (Y)ES OR (N)O.....";.38);.Q.
Z..71:.C$...... QN.1 . .......C$."Y".PRO
MPT.0:.1772......C$."N".PROMPT.1:.1772..
....1750.Y...VT%.10:.30100:.211,3......"
IN RECALLING: (Y)ES OR (N)O.....";.38);
......71:.C$:. QN.1 . ..6....C$."Y".PW.0
:.1790.M....C$."N".PW.1:.1790.W....1772.
P...VT%.12:.30100:.211,0......"DISPLAY S
PEED: (1)SLOW TO (4)FAST...";.38);......
71:.C$:X.E(C$).E.... QN.1 . .......(X.4)
.(X.0).1790.....DTIME.20.X.....VT%.14:.3
0100:.211,0.5...."ITEM DIFFICULTY: (1)EA
SY TO (5)HARD.";.38);.A....71:.C$.P....
QN.1 . ..S.&.TYPE.E(C$):.TYPE.0.TYPE.5.1
820. .0.SC.10.(2.PROMPT.PW.1).X.TYPE:TYP
E.TYPE.1.Y.:.VT%.17:.30100:."SCORE FOR E
ACH CORRECT ANSWER ....";...;...36);G(18
);SC;G(146);:.30200...D.VT%.21:.30100:.2
11,0.K.E.."ARE THESE THE OPTIONS YOU WAN
T? (Y/N) ";:.71:.C$.Z.F.. QN.1 . ..K.N..
C$."Y".1899.}.X..C$.."N".1860...B..1720.
..K.....P.. KEYBOARD RETRIEVAL.L.Z.K.LOW
:PRT.1:QUIT.0:.G(147);:C$.""......I.LOW.
HIGH:AFT$(I)."":.I......G(18);:.2990:.G(
146);......XX.1.10:.XX$:.XX.D...DFR.(HIG
H.LOW.1).2:.COL.1.DFR.HIGH.1._...OFFSET.
.((HIGH.LOW).2).O....I.LOW.HIGH.....AH.L
MARGIN:.I.9.AH.LMARGIN.1......(I.LOW)..D
FR.AH.LMARGIN.20.C. .AV.2.(I.LOW).3...!.
.(I.LOW)..DFR.AV.2.(I.LOW.OFFSET).1...*.
VT%.AV:.30100:.211,AH.1...+..MSG$(I);.RM
ARGIN);.4);TMP$(I);AN$.5.4..I.[.>.VT%.22
:.30100:.I.0.7:."-----";:.I...H.VT%.23:.
30100:.G(18);"^";G(146);...I.." FOR PREV
IOUS LINE; ".S.R.VT%.24:.30100:."PRESS <
RETURN> AFTER EACH ENTRY.";...\..PRT.1..
2400...F..73:X.F(C$)...G.. QN.1 . ..".Z.
.(X.17).2220:. RIGHT ARROW.F....X.42.QUI
T.1:.2220:. ESCAPE KEY.H....X.13 .2220:.
CARRIAGE RETURN......(X.94)..2500:.2240
:. BACK ARROW......(X.65).(X.160).(X.90)
.2280:. KEEP TIMING......211,RMARGIN.4:.
80:AFT$(K).L$...... QN.1 . ......VT%.AV:
.30100:.211,AH.1......MSG$(K);H(EL$,RMAR
GIN.4.B(211));.U.....(H(BEF$(K),3).H(AFT
$(K),3)).2230.J....BEF$(K);:.30200.....K
.K.1:.QUIT.1.K.HIGH.1:QUIT.0.....PRT.1..
.J.. MU.D.T..XX.1.10:.XX$:.XX:. RESET ST
ROBE.V....K.HIGH..2310......C$."Y".2300.
.....2140:. BACK TO THE TOP.......!....
ANY MORE CHANGES?.,...K.HIGH.G...VT%.25:
.30100:.211,0:."..";H(EL$,39);:. TO END-
OF-LINE...$.VT%.24:.30100:.211,0:.MU...%
.."ARE YOU FINISHED MAKING ENTRIES? (Y/N
) ";.R...VT%.24:.30100:.211,39:.71.../..
QN.1 . ....8..C$."Y".2390:. RETURN TO M
AIN PORTION OF SUBROUTINE.3.=..C$.G(17).
K.LOW:.2380.M.B..C$."N".C$.G(94).2380.W.
G..2350...L.VT%.25:.30100:.211,0:."..";G
(18);"^";G(146);...M.." FOR PREVIOUS LIN
E; "...Q.VT%.24:.30100:."MAKE CHANGES AN
D RETURN PAST LAST ENTRY ";...V.....`..
HIGHLIGHT NEXT LINE.$.J.AH.LMARGIN:.K.9.
AH.LMARGIN.1.D.T..(K.LOW)..DFR.AH.LMARGI
N.20.W.~.AV.2.(K.LOW).3.}...(K.LOW)..DF
R.AV.2.(K.LOW.OFFSET).....VT%.AV:.30100:
.211,AH.1:.G(18);MSG$(K);G(146);.K....21
1,RMARGIN.1:."-->";.U...PRT.0.........D.
. BACKSPACE HANDLER.0.N.VT%.AV:.30100:.2
11,AH.1:.MSG$(K);H(EL$,RMARGIN.4.B(211))
.B.X.K.K.1:.K.LOW.K.LOW:. PREVENT OFF-SC
REEN ERROR.H.....~.T.SEC.SEC.2.(SEC.0)..
.U..X.1.SEC.60:.9600:.X:.:. 630.D......(
(40.C(FILE$)).2));FILE$;.40).Q....211,0:
....... RECALL TESTER...B.ANS.0:. ZERO T
HE # OF CORRECT ANSWERS...L..13000.=.V..
3300:. REMOVE TRAILING BLANKS.G.... DISP
LAY CORRECT & INCORRECT ANSWERS.....FILE
$."YOUR TEST RESULTS":.G(18);. ....2990:
.G(146);.O...VT%.3:.30100:.211,5:."CORRE
CT";.14);"YOUR".. ..VT%.4:.30100:..5);"R
ESPONSE";.24);"RESPONSE".. ...I.0.7:."--
---";:.I:..* ...I.LOW.HIGH.D ...BEF$(I).
"".BEF$(I)." ":. SKIP THIS ONE IF IT'S B
LANK.X &.."(";I;")";.6);.. 0...(H(BEF$(I
),3).H(AFT$(I),3)).3130.M 1..H(BEF$(I),1
8);:ANS.ANS.1:AFT$(I).BEF$(I).. :...(H(B
EF$(I),3)..H(AFT$(I),3)).3140..!;..G(18)
;H(BEF$(I),18);G(146);.1!D..211,23:.H(AF
T$(I),16).8!N..I.Z!X.X..(100.ANS.(HIGH.L
OW.1).0.5)..!B..:."YOU REMEMBERED ";G(18
);ANS;G(146);..!C.." CORRECTLY, OR ";G(1
8);X;".";"%"G(146);..!V..9510.C!.....!..
. REMOVE TRAILING BLANKS IN AFT$..!...I.
LOW.HIGH.."..X.C(AFT$(I)).1:.X.0.3350.F"
...I(AFT$(I),1)." ".AFT$(I).H(AFT$(I),X)
:.3320.W"...H(AFT$(I),1)." ".AFT$(I).I(A
FT$(I),X):.3320.~"...I.."G...."T.. WINNE
R'S MESSAGES.."~..ANS.0.7.TMAX.3790.M"..
.G(147);:VT%.9:.30100.."..FILE$."--CONGR
ATULATIONS--":.2990:.:..-#...ANS.TMAX.FI
LE$."YOUR MEMORY WAS PERFECT!!":.3760.I#
...ANS..0.9.TMAX.FILE$."YOUR MEMORY WAS
EXCELLENT!":.3760..#...ANS..0.8.TMAX.FIL
E$."YOUR MEMORY WAS VERY GOOD!":.3760..#
...ANS..0.7.TMAX.FILE$."YOUR MEMORY WAS
GOOD. KEEP IT UP!"..$...2990:FILE$."8786
8785878487835654":.16000.:$..FILE$."5653
565293949596979981":.16000.D$...9500.S$.
.. QN.1 . ..N$N..G(147);:VT%.12:.30100..
$O.."DO YOU WANT TO BE TESTED AGAIN? (Y/
N) ";..$S..71:.(C$."Y").(C$."N")...I$T..
QN.1 . ..S$W..3795..$X.. LOSER'S MESSAG
E..$...ANS..0.7.TMAX....%..FILE$."FAILUR
E":.7500..%....4%D.. HIRES DISPLAYER.T%N
..".":. 6550:. 49158:. 49152..%X..:. CAL
L HIRES LOAD ROUTINE,UNCOMP/RASTER..%..L
S.LD.3:. LS,C(FILE$).L% .. T.1 . C(FILE$
):. LS.T,F(J(FILE$,T,1)):. T.W%... LD:..
.%H.. PICTURE DISPLAY..&R..6500:.9500:.
49155..&...G(147);:..0&X.. PERSONAL DISK
SECTION.\&B..DSK$.."Y"..:. SUBJECT HAS
NO DISK FILE.|&L.RW$."READ ":SD$."B":.72
00:...&... WRITE TO PERSONAL DISK..&F.RW
$."WRITE ":SD$."A":.7450..&Z..13000:FILE
$."LOADING MEMORY TRAINER MAIN MENU":VT%
.10..'...30100:.2990:. "INTRODUCTION",8.
/'...110:. JUST IN CASE.H' .. READ/WRITE
TO DISK.S'*..DSK$.."Y".QUIT.0:.7430:. N
O DISK FILE..'4.C$."UPDATE":.RW$."READ "
.C$."USE"..'>..G(147);:VT%.10:.30100.Z'?
.."DO YOU WANT TO ";C$;" THE LOCI"..(H.V
T%.12:.30100:."ON YOUR PERSONAL DISK? (Y
/N) ";..(I..71:.C$.)(J.. QN.1 . ..:(R..C
$."Y".7290.B(\..(C$."N").((SD$."QUIT").(
QUIT.2))...}(].. QUIT FOR NOW SECTION..(
F..(C$."N").(RW$."READ ")....(K..(C$."N"
).(RW$."WRITE ").7450.Q(P..7240:. DEFAUL
T..)Z..G(147);:VT%.10:.30100:.MU:."INSER
T YOUR ";.5){..G(18);"PERSONAL DISK";G(1
46);" INTO DRIVE #1.".L).VT%.15:.30100:
.211,0:."(PRESS <CTRL-C> TO CANCEL)".V).
..9500..)... QN.1 . ...)...XX.1.10:.XX$:
.XX:.G(147);:VT%.12..)...30100:FILE$."US
ING YOUR PERSONAL DISK":.2990..)... ACTU
AL DISK ACCESS.2*... RW$."READ " . . 2,8
,2,FLNM$.".LOC,SEQ,R":. ST . 17000.G*...
RW$."WRITE " . . 2,8,2,"@:".FLNM$.".LOC
,SEQ,W".M*.....*J..RW$."READ "..2,PLMAX:
. ST . 191 . 17000.H*T..RW$."WRITE "..2,
PLMAX:. ST . 191 . 17000.T*...I.1.40..*.
..RW$."READ "..2,YLOCUS$(I).'+...RW$."WR
ITE ". A$.YLOCUS$(I):. A$."" . A$."XXX".
?+...RW$."WRITE "..2,A$.J+...I: 2.\+...
SD$."QUIT"...{+...G(147);:.MU:VT%.10:.30
100..+..."BE SURE MEMORY TRAINER ";G(18)
;"DISK ";SD$..+..VT%.12:.30100:."IS PROP
ERLY INSERTED INTO DRIVE #1."..,..VT%.16
:.30100:."(PRESS <CTRL-C> TO CANCEL)".!,
$..9500:..?,L.. TEXT FILE SCREEN WRITER.
G,`.. 2,8,2,FILE$:.G(147);:. ST . 17000.
S,J..I.0.22..,T..2,S9$(I):. ST . 17001..
,~..I:.2,S9$(23):. ST . 191 . 17000..,..
2:FILE$."THE EINSTEIN MEMORY TRAINER:
LESSON #2":.G(147);..-...G(18);:.2990:.G
(146)..-...I.1.21.(-...S9$(I):.I.Q-..SEC
..5:.2900:VT%.24:.30100:.S9$(22);.G-...X
X.1.10:.XX$:.XX.Q-...9520.~-...13000:...
-@.. MENU SELECTOR..-J..G(147);:.XX.1.10
:.XX$:.XX..-T.FILE$."THE EINSTEIN MEMORY
TRAINER":.G(18);..-U..2990:.G(146);.).^
.VT%.24:.30100:."FILE NAME: ";G(18);FLNM
$;G(146);.A.H.VT%.4:.30100:.211,0.M.I.FI
LE$."LESSON #2: METHOD OF LOCI":.2990..
M..W$.."@".8050...N.VT%.5:.30100:.211,17
::W$."".C.O..G(18);"ADVANCED SECTION"G(1
46).T.R..I.65.64.MAX...|.S.I.64:. 211,0.
./..VT%.S.6:.30100:.G(I)" : "PGM$(S)../.
..:..%/...PV$."".8110.B/..VT%.20:.30100:
."(YOUR PREVIOUS SELECTION WAS '";PV$;"'
)"../..VT%.18:.30100:."SELECT OPTION: ";
:.30200:. CLR TO EOL../...71:C.F(C$):AN$
.C$.K/L..C.65.C.64.MAX.8120.X/V..:C.C.64
..0..VT%.C.6:.30100:.G(18);AN$;G(146);"
: ";..0...G(18);PGM$(C)G(146);.B0..VT%.1
8:.30100:.211,0:."IS THIS THE SELECTION
YOU WANT? (Y/N) ";..0...71:.C$.."Y".C$..
"N"..B$;:.8180..0...C$:.C$.."N".PV$.AN$:
.8210.O0. VT%.C.6:.30100:.AN$" : "PGM$(C
):.8110.U0. ...0.%. WAIT FOR SPACE BAR.-
1&%VT%.24:.30100:. 211,0:."PRESS <SPACE
BAR> TO CONTINUE...";.C1'%.XX.1.10:.XX$:
.XX.Q10%.73:.9600.`11%. QN.1 . ..R15%.C$
.." ".9520..1:%.XX.1.10:.XX$:.XX:...1.%.
C$.G(3).PV$."":. 204,1:. 49155:QN.1..1.%
..O1.'. INTITIALIZATION..1.'.RDR%(40),PI
TCH(10)..2$'KMAX.10:PLMAX.0:HIGH.KMAX:LO
W.1:PV$."".*2.'. 2,8,2,"WORD FILE".528'.
I.0.4.B2B'.II.0.47.B2L'.2,WRDS$(I,II):.
ST . 17000.M2V'.II:.I.U2X' 2..2J'.I.1.K
MAX:.XLOCUS$(I):.I.J2T'. ENTRANCE,CASHIE
R,TICKET TAKER,LOBBY,POPCORN STAND..2U'.
THEATER DOORS,AISLE,SEAT,SCREEN,EXIT..3
L). MUSIC STUFF..3V)SX.54272.63.). T.1 .
9:. HF%(T),LF%(T):. T.T3.). 16,195,18,2
09,21,31,22,96,25,30,28,49,31,165,33,135
,0,0.Z3.)...3.*. READ FILE NAME..3.+FLNM
$."NONE":DSK$.G(B(DE)):.DSK$.."Y".11890.
.3.+FLNM$."":.I.1.B(NM):FLNM$.FLNM$.G(B(
NM.I)):.I..3R....3.....4H2. CENTER/OUT W
IPEOUT.%4R2.G(147);:..94.>. MELODY PLAYE
R.K4.>.I.1.C(FILE$).A4.>X.E(J(FILE$,I,1)
)..4.>. SX.1,HF%(X):. SX,LF%(X):. SX.4,3
3:SEC.0.07:. 2900..4.>. QN.1 . . SX.4,0:
..D4.>. SX.4,0:. I:..Y4HB. ERROR HANDLIN
G..4MB. 49155:.1,Y,B$: 2..4RB.G(147);.?
5.B. Y=PEEK(222):X=PEEK(218)+256*PEEK(2
19):REM X=LINE; Y=ERROR.A5.BL$."A2":. RE
VISION & LESSON #..5.BVT%.2:.30100:."USE
R NAME: ";G(18);FLNM$;G(146);.M5.BVT%.4:
.30100:.211,0:.G(146);"AN ERROR HAS OCCU
RED!"..5.BVT%.6:.30100:."ERROR CODE: #";
Y;" ";L$;B$.%6BBVT%.10:.30100:."ERRO
R MESSAGE: ";.J6LB.Y.26.."DISK IS WRITE
PROTECTED".J6VB.Y.62.."FILE WAS NOT FOUN
D"..6.B.Y.72.."YOUR DISK IS FULL"..6.BVT
%.12:.30100:.211,0..6.B.G(18);"CHECK THA
T THE APPROPRIATE DISK":VT%.14:.30100..7
.C."IS PROPERLY INSERTED IN DRIVE #1.";G
(146).I7.CVT%.24:.30100:.211,0:."PRESS <
SPACE BAR> TO RESUME...";._7.C.XX.1.10:.
XX$:.XX.V7.C.73:.C$.." ".17170..7.C.110:
. TO MAIN MENU..7 N. INTRODUCTION TO LES
SON #2..7*N.13000.N74NFILE$."L1":.7500..
75N. QN.1 . 110..7>NFILE$."L2":.7500..8?
N. QN.1 . 110..8HNFILE$."L3":.7500.#8RN.
110.=8.R. LEARN A SET OF LOCI.R8.RFILE$.
"L4":.7500.C8.R. QN.1 . 110..8.R.G(147);
G(18);:FILE$."SUGGESTED LOCI: STUDY THEM
!"..8.R.2990:.G(146);.Q8&R.I.1.10:.211,3
:VT%.2.I.1:.30100..8'R."(";I;")";.9);XLO
CUS$(I):.I./90RVT%.23:.30100:."PUSH <SPA
CE BAR> TO BE TESTED ON LOCI..".E91R.XX.
1.10:.XX$:.XX.O9:R.9520.`9;R. QN.1 . 110
.V9DR.XX.1.10:.XX$:.XX..9NR.I.1.10:TMP$(
I).""..9ORMSG$(I)."(".D(I).")":BEF$(I).X
LOCUS$(I):.I..9XRFILE$."ENTER THE LOCI F
ROM MEMORY":AN$."....". :BRLMARGIN.2:RMA
RGIN.7:LOW.1:HIGH.10:COL.1:.2000.2:CR.QU
IT.1.21020.C:DR. QN.1 . 110.N:LR.3000:TM
AX.10:.3700:. WINNERS MESSAGES.:MR. QN.
1 . 110..:VR.C$."Y".21020:. BE TESTED AG
AIN..:.R.3800:. TEST FOR LOSERS.H:.R.110
..:.U. ASS. ITEMS W/LOCI..:.UFILE$."L5":
.7500..;.U. QN.1 . 110..;.VFILE$."FROG":
.6600..;.V. QN.1 . 110.C;.VFILE$."L6":.7
500.T;.V. QN.1 . 110.J;.VFILE$."DOG":.66
00.{;.V. QN.1 . 110..;"VFILE$."L7":.7500
..;#V. QN.1 . 110..;,VTYPE.0.M;6VTMP$(1)
."FROG":TMP$(2)."DOG"..;7V.TYPE.4.TMP$(1
)."FREEDOM":TMP$(2)."HEAVEN"..<@VXNUM.47
:XMAX.8:.1500.!<JV.I.3.10.C<TVTMP$(I).WR
DS$(TYPE,RDR%(I.2)).J<^V.I.Q<HV.13000:.G
(18);.4);"LOCATION";.11);..<IV."ITEM TO
MEMORIZE ";G(146)..<RV.I.1.10.B<|VVT%.2.
I.1:.30100:."(";I;")";.6);..<}V.XLOCUS$(
I);.20);"------";.3);TMP$(I)..<.V.I..=.V
.XX.1.10:.XX$:.XX:. CLEAR KEYBOARD.T=.VV
T%.24:.30100:."PRESS <SPACE BAR> WHEN ME
MORIZED...";.^=.V.9520.O=.V. QN.1 . 110.
.=.V.XX.1.10:.XX$:.XX..=BV.G(147);:. ITE
MS W/SUGGESTED LOCI.U=LV.I.1.10:BEF$(I).
TMP$(I):TMP$(I)."":.I..>VV.I.1.10:MSG$(I
)."(".D(I).") ".XLOCUS$(I):.I..>.VLOW.1:
HIGH.10.B>.VLMARGIN.2:RMARGIN.21:COL.1:A
N$.".....".V>.VFILE$."ENTER ITEMS CORRES
PONDING TO LOCI":.2000..>.V. KEYBOARD RE
TRIEVAL. >.V. QN.1 . 110..>.V.3000:. REC
ALL TESTER.K>.V. QN.1 . 110..>.VTMAX.10:
.3700:.C$."Y".22070..>.V. QN.1 . 110..?.
W.3800:. LOSERS MESSAGE.;?.W.I.1.10:MSG$
(I)."(".D(I).")":.I.D?.W.110.\?XY. HARD
ITEMS W/LOCI.Q?.YFILE$."L8":.7500..?.Y.
QN.1 . 110..?.YVT%.10:.30100:."DO YOU WA
NT TO LEARN HOW TO REMEMBER"..?.YVT%.12:
.30100:."HARD WORDS? (Y/N) ";:.71:.C$..?
.Y. QN.1 . 110..@.Y.C$."Y".23060. @.Z.C$
."N".110.+@.Z.23020.@@.ZFILE$."L9":.7500
.Q@.Z. QN.1 . 110.K@.ZFILE$."LIBERTY":.6
600.|@.Z. QN.1 . 110..@(ZFILE$."L10":.75
00..@)Z. QN.1 . 110..@2ZFILE$."L11":.750
0.J@3Z. QN.1 . 110..@<ZFILE$."ANGEL":.66
00..@=Z. QN.1 . 110..AFZFILE$."L12":.750
0:TYPE.4.!AGZ. QN.1 . 110.LAPZ.22070:. D
ISPLAY SIMILAR TO EASY WORDS.SA.]. PRACT
ICE MEMORIZING LISTS W/LOCI..AJ]FILE$."L
13":.7500..AK]. QN.1 . 110..AO]FILE$."L1
4":.7500.AAP]. QN.1 . 110.SAT]KMAX.10:.1
700..AU]. QN.1 . 110..B.].I.1.10:TMP$(I)
.XLOCUS$(I):.I..B.].1000:. WORD DISPLAY.
0B.]. QN.1 . 110.GB.].I.1.10:TMP$(I)."".
XB.].PW..0.24070..B.]MSG$(I)."(".D(I).")
".XLOCUS$(I):LMARGIN.2..B.^.PW.1.MSG$(I
)."(".D(I).")":LMARGIN.12..B.^.I.PB.^U$.
"@":.27120:U$.""..B.^. QN.1 . 110..B.^.3
700:.C$."Y".24020..C ^. QN.1 . 110..C$^.
3800:.110.=C.A. ADVANCED USE OF PERSONAL
LOCI.RC.A.VV.0..7000:VV.1.CC.A. QN.1 .
110..C.APGM$(1)."INTRODUCTION TO ADVANCE
D LOCI"..CFAPGM$(2)."CREATE/EXTEND PERSO
NAL LOCI"..CPAPGM$(3)."REVIEW/CHANGE PER
SONAL LOCI"..DZAPGM$(4)."PRACTICE WITH L
ISTS & PERSONAL LOCI".ED.APGM$(5)."RETUR
N TO PREVIOUS LESSON #2 MENU".VD.APGM$(6
)."RETURN TO MEMORY TRAINER MAIN MENU"..
D.APGM$(7)."QUIT FOR NOW"..D.BPV$."":W$.
"@":MAX.7:.8000..D.B.C.25120,25150,26000
,27000,25110,7100,990..D.BPV$."":.110..E
B. INTRODUCTION TO ADVANCED LOCI.'E*BFI
LE$."L15":.7500.7E+B. QN.1. 110.TE4BFILE
$."L16":.7500:.25000.VE>B. CREATE/EXTEND
PERSONAL LOCI..EHB.PLMAX..40.26000..ERB
FILE$."L17":.7500..ESB. QN.1 . 110.VE\BL
OW.PLMAX.1:HIGH.PLMAX.10:COL.1..EFB.I.LO
W.HIGH:TMP$(I).""..FGBMSG$(I)."(".D(I)."
)":BEF$(I)."@":.I.[FPBLMARGIN.2:RMARGIN.
6:FILE$."ENTER YOUR PERSONAL LOCI IN ORD
ER".~FQBAN$."....":.2000:.QUIT.1.25000..
FRB. UNTIMED KEYBOARD RETRIEVE..FSB. QN.
1 . 110.HFZB.3300:. STRIP BLANKS..F.B.I.
LOW.HIGH:YLOCUS$(I).AFT$(I):.I..G.B. PER
SONAL LOCI TEST."G.B.I.LOW.HIGH:TMP$(I).
"".QG.B.G(147);:FILE$."STUDY YOUR LOCI C
AREFULLY".LG.B.G(18);:.2990:.G(146);.XG.
B.I.1.10..G.BAH.5. G.BVT%.2.I.1:.30100:.
211,AH.1.GGAB."(";LOW.1.I;") ";YLOCUS$(L
OW.1.I).NGJB.I..GTB.I.LOW.HIGH:BEF$(I).Y
LOCUS$(I):.I.2H.BVT%.24:.30100:."PUSH <S
PACE BAR> TO BE TESTED ON LOCI..";.<H.B.
9520.MH.B. QN.1 . 110.CH.B.XX.1.10:.XX$:
.XX.|H.B. TEST PERSONAL LOCI..H.CFILE$."
RECALL YOUR PERSONAL LOCI IN ORDER".UH.C
LMARGIN.2:RMARGIN.6:AN$.".....":.2000..H
.C.QUIT.1.25250..H.C. QN.1 . 110..I.C.30
00:. RECALL TESTER.#I.C. QN.1 . 110.UI$C
TMAX.10:.3700:.C$."Y".25250:. WINNERS ME
SSAGE.FI%C. QN.1 . 110.WI.C.ANS.7.25410.
.I8CPLMAX.PLMAX.10:.DSK$.."Y".25410..I9C
QUIT.2:SD$."B".XI:CC$."UPDATE":RW$."WRIT
E ":.7220:QUIT.0..IBC.25000..J.E. REVIEW
/CHANGE PERSONAL LOCI.,J.E.PLMAX.10.FILE
$."L18":.7500:.25000.BJ.EFILE$."L19":.75
00.SJ.E. QN.1 . 110.LJ.E.13000:VT%.24:.3
0100..J.E."PRESS <SPACE BAR> TO RETURN T
O MENU";..J.EVT%.10:.30100:.211,0..J.E."
WHICH GROUP OF 10 PERSONAL LOCATIONS":VT
%.12:.30100.(K.E."DO YOU WANT TO REVIEW?
(1 TO ";PLMAX.10;") ";" ...";.OKBE.71
:TMAX.E(C$):.TMAX:.C$." ".25000.`KCE. QN
.1 . 110..KLE.TMAX.PLMAX.10.TMAX.1.26040
..KVEHIGH.10.TMAX:LOW.HIGH.9.PK.EFILE$."
REVIEW/CHANGE YOUR PERSONAL LOCI":AN$.""
..K.E.J.LOW.HIGH:TMP$(J).YLOCUS$(J)..L.E
MSG$(J)."(".D(J).")":BEF$(J)."@":.J.?L.E
LMARGIN.2:RMARGIN.6:COL.1:.2010.PL.E. QN
.1 . 110.IL.E.3300:. STRIP BLANKS..L.F.I
.LOW.HIGH:. ADD ANY CHANGED LOCI TO YLOC
US$..L.F.AFT$(I).."".YLOCUS$(I).AFT$(I).
FL.F.I..M&F.DSK$."Y".QUIT.2:SD$."B":C$."
UPDATE":RW$."WRITE ":. 7220:QUIT.0..M'F.
QN.1 . 110.&M0F.26030.PMXI. PRACTICE WI
TH LISTS & PERSONAL LOCI..M.I.PLMAX.10.2
6010:. NO PERSONAL LOCI WERE LEARNED...L
EAVE..M.IFILE$."L13":.7500..M.I. QN.1 .
110.IM.IFILE$."L14":.7500.ZM.I. QN.1 . 1
10..N.IKMAX.PLMAX:.1700:HIGH.TMAX:LOW.1:
U$.""..N.I. QN.1 . 110.<N I.I.LOW.HIGH:T
MP$(I).YLOCUS$(I):.I.UN.I.1000:. WORD DI
SPLAY.FN.I. QN.1 . 110.YN.I. WORD DISPLA
Y..N.I.I.LOW.HIGH..NHITMP$(I).""..NRI.PW
..0.27100.XNSIMSG$(I)."(".D(I).") ".YLOC
US$(I):LMARGIN.2..O.I.PW.1.MSG$(I)."(".D
(I).") ":LMARGIN.12..O.I.I.4O.IY..(TMAX.
10):MD.TMAX.(10.Y):. MODULUS.]O.I.MD.0.Y
.Y.1:. DISPLAY 1 EXTRA SCREEN.{O.JHIGH.1
0:.XX.1.10:.XX$:.XX..O.J.II.1.Y:. NUMBER
OF SCREENS.QO.JFILE$."ENTER NUMBERED IT
EMS IN ORDER":AN$."....."..O"JLOW.HIGH.9
..P,J.(MD..0).(II.Y).HIGH.LOW.MD.1..P6JR
MARGIN.20:COL.1:.2000..P7J. QN.1 . 110.?
P@JHIGH.HIGH.10.GPJJ.II.CPTJ. DISPLAY CO
RRECT WORDS.TP^JHIGH.10:AX.0..PHJ.II.1.Y
..PRJLOW.HIGH.9..P|J.(MD..0).(II.Y).HIGH
.LOW.MD.1.RP.J.3000:HIGH.HIGH.10:AX.AX.A
NS..P.J. QN.1 . 110..P.J.II..Q.JX..((100
.AX.TMAX).0.5)..Q.J.211,0:VT%.19:.30100.
MQ.J.G(18);"TOTAL CORRECT:";AX;".";" OUT
OF";.TQ.J.TMAX;".";" (OR";X;".";"%)";G(
146)..Q.JVT%.21:.30100:."YOUR SCORE:";G(
18);SC.AX;G(146);..Q.J.AX.SC..TS.27330..
Q.JTS.AX.SC:.211,19:.G(7);G(7);..R.JFILE
$."HIGHEST SCORE:".D(TS):SEC.4:.30000:.G
(146);.DRBJ.211,19:."HIGHEST SCORE:";G(1
8);TS;G(146).XRLJ.9500:.U$."@"...ZRMJ. G
O BACK TO BEGINNERS LESSON..RVJ.3700:.C$
."Y".27030..RWJ. QN.1 . 110..R.J.25000.B
R0U. FLASH ROUTINE..R:UCX.B(211):CX.CX.(
CX.39).40..SDUSEC.0.3:.TD.1 . 5:. 211,CX
:.".";FILE$;".";:.211,CX:.2900.5SNU.FILE
$;:.2900:. TD.;SXU..NS.U. VTAB ROUTINE._
S.U. ROW IN VT%.|S.UXX%.B(211):. GET HOR
POS..S.U.H(VT$,VT%);..S.U.211,XX%:. RES
TORE HOR POS..SFU..CS.U. EL ROUTINE..S.V
RX.B(211):. RX.39 . RX.RX.40..T.V.H(EL$,
39.RX);:. 211,RX:....;:. 211,RX:....
> CLICK IMAGE PREVIEW FOR FULL MODAL