LESSON1
FILE INFORMATION
FILENAME(S): LESSON1
FILE TYPE(S): PRG
FILE SIZE: 17.5K
FIRST SEEN: 2025-12-02 23:10:29
APPEARS ON: 1 disk(s)
FILE HASH
522030244ea2cf6707b08827dc47827c5b2c2e1212acde74ea6d0602c10f393b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES XLII | LESSON1 | PRG | swasti, chrisbitti1 | 28 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0A 00 8F 20 4C 45 53 53 4F 4E 20 23 |....... LESSON #|
00000010: 31 3A 4E 41 4D 45 53 20 26 20 46 41 43 45 53 00 |1:NAMES & FACES.|
00000020: 65 08 22 00 86 4D 45 4E 24 28 32 30 29 2C 57 4F |e."..MEN$(20),WO|
00000030: 4D 45 4E 24 28 32 30 29 3A 5A 45 24 B2 C7 28 30 |MEN$(20):ZE$..(0|
00000040: 29 3A 9F 20 31 2C 38 2C 31 35 3A 4E 4D B2 34 39 |):. 1,8,15:NM.49|
00000050: 36 36 38 3A 44 45 B2 34 39 36 36 37 3A 4C 44 B2 |668:DE.49667:LD.|
00000060: 34 39 35 39 34 00 9C 08 26 00 86 42 45 46 24 28 |49594...&..BEF$(|
00000070: 34 30 29 2C 41 46 54 24 28 34 30 29 2C 50 45 47 |40),AFT$(40),PEG|
00000080: 24 28 34 30 29 2C 54 4D 50 24 28 34 30 29 2C 48 |$(40),TMP$(40),H|
00000090: 46 25 28 39 29 2C 4C 46 25 28 39 29 00 D7 08 32 |F%(9),LF%(9)...2|
000000A0: 00 86 4D 53 47 24 28 34 30 29 3A 56 54 24 B2 22 |..MSG$(40):VT$."|
000000B0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000D0: 11 11 11 11 11 11 22 00 15 09 36 00 86 47 4D 24 |......"...6..GM$|
000000E0: 28 31 30 29 3A 45 4C 24 B2 22 20 20 20 20 20 20 |(10):EL$." |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 22 00 4C 09 3A 00 86 53 39 24 28 32 | ".L.:..S9$(2|
00000120: 34 29 3A 4D 55 B2 34 39 36 33 37 3A 45 52 B2 34 |4):MU.49637:ER.4|
00000130: 39 36 33 37 3A 47 52 B2 34 39 31 35 32 3A 99 22 |9637:GR.49152:."|
00000140: 05 22 3A 97 20 35 33 32 38 31 2C 30 00 55 09 3C |.":. 53281,0.U.<|
00000150: 00 89 31 30 30 00 5D 09 47 00 8D 37 35 00 69 09 |..100.].G..75.i.|
00000160: 48 00 97 20 32 30 34 2C 30 00 7B 09 49 00 A1 43 |H.. 204,0.{.I..C|
00000170: 24 3A 8B 43 24 B2 22 22 A7 37 33 00 A3 09 4A 00 |$:.C$."".73...J.|
00000180: 97 20 32 30 34 2C 31 3A 43 24 B2 C7 28 C6 28 43 |. 204,1:C$..(.(C|
00000190: 24 AA 5A 45 24 29 AF 31 32 37 29 3A 8D 39 36 30 |$.ZE$).127):.960|
000001A0: 30 3A 8E 00 BB 09 4B 00 81 58 42 B2 31 A4 31 30 |0:....K..XB.1.10|
000001B0: 3A A1 58 58 24 3A 82 58 42 3A 8E 00 D7 09 50 00 |:.XX$:.XB:....P.|
000001C0: 8F 20 53 50 45 43 49 41 4C 20 49 4E 50 55 54 20 |. SPECIAL INPUT |
000001D0: 52 4F 55 54 49 4E 45 00 00 0A 51 00 48 B2 C2 28 |ROUTINE...Q.H..(|
000001E0: 32 31 31 29 AA 31 3A 56 B2 C2 28 32 31 34 29 AA |211).1:V..(214).|
000001F0: 31 3A 4C 24 B2 22 22 3A 4C B2 31 32 3A 89 38 33 |1:L$."":L.12:.83|
00000200: 00 08 0A 52 00 8D 37 32 00 3B 0A 53 00 43 58 B2 |...R..72.;.S.CX.|
00000210: C6 28 43 24 AA 5A 45 24 29 3A 8B 43 58 B2 31 33 |.(C$.ZE$):.CX.13|
00000220: A7 99 C8 28 45 4C 24 2C 4C AB C3 28 4C 24 29 29 |...(EL$,L..(L$))|
00000230: 3A 97 32 31 31 2C 48 AB 31 3A 8E 00 4A 0A 56 00 |:.211,H.1:..J.V.|
00000240: 8B 20 51 4E B2 31 20 A7 20 8E 00 70 0A 57 00 8B |. QN.1 . ..p.W..|
00000250: 43 58 B2 32 31 20 AF 52 24 B1 22 22 A7 48 B2 48 |CX.21 .R$."".H.H|
00000260: AA 31 3A 4C 24 B2 4C 24 AA C8 28 52 24 2C 31 29 |.1:L$.L$..(R$,1)|
00000270: 00 8D 0A 58 00 8B 43 58 B3 33 32 20 A7 43 24 B2 |...X..CX.32 .C$.|
00000280: 22 22 3A 43 58 B2 30 3A 48 B2 48 AB 31 00 AB 0A |"":CX.0:H.H.1...|
00000290: 59 00 8B C3 28 4C 24 29 AA C3 28 43 24 29 B2 4C |Y...(L$)..(C$).L|
000002A0: A7 99 C7 28 37 29 3B 3A 89 38 32 00 D0 0A 5A 00 |...(7);:.82...Z.|
000002B0: 99 43 24 3B 3A 48 B2 48 AA 31 3A 56 54 25 B2 56 |.C$;:H.H.1:VT%.V|
000002C0: 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 48 AB 31 |:.30100:.211,H.1|
000002D0: 00 EC 0A 5B 00 4C 24 B2 4C 24 AA 43 24 3A 52 24 |...[.L$.L$.C$:R$|
000002E0: B2 CA 28 52 24 2C 32 29 3A 89 38 32 00 FE 0A 64 |..(R$,2):.82...d|
000002F0: 00 8D 31 33 30 30 30 3A 8D 31 30 30 30 30 00 2A |..13000:.10000.*|
00000300: 0B 6E 00 50 47 4D 24 28 31 29 B2 22 49 4E 54 52 |.n.PGM$(1)."INTR|
00000310: 4F 44 55 43 54 49 4F 4E 20 54 4F 20 4C 45 53 53 |ODUCTION TO LESS|
00000320: 4F 4E 20 23 31 22 3A 9E 45 52 00 54 0B 78 00 50 |ON #1":.ER.T.x.P|
00000330: 47 4D 24 28 32 29 B2 22 53 54 55 44 59 2F 43 48 |GM$(2)."STUDY/CH|
00000340: 41 4E 47 45 20 4D 41 4C 45 20 50 45 47 20 4E 41 |ANGE MALE PEG NA|
00000350: 4D 45 53 22 00 80 0B 82 00 50 47 4D 24 28 33 29 |MES".....PGM$(3)|
00000360: B2 22 53 54 55 44 59 2F 43 48 41 4E 47 45 20 46 |."STUDY/CHANGE F|
00000370: 45 4D 41 4C 45 20 50 45 47 20 4E 41 4D 45 53 22 |EMALE PEG NAMES"|
00000380: 00 AA 0B 8C 00 50 47 4D 24 28 34 29 B2 22 50 52 |.....PGM$(4)."PR|
00000390: 41 43 54 49 43 45 20 4D 41 54 43 48 49 4E 47 20 |ACTICE MATCHING |
000003A0: 50 45 47 20 4E 41 4D 45 53 22 00 DD 0B 96 00 50 |PEG NAMES".....P|
000003B0: 47 4D 24 28 35 29 B2 22 50 52 41 43 54 49 43 45 |GM$(5)."PRACTICE|
000003C0: 20 52 45 4D 45 4D 42 45 52 49 4E 47 20 4E 41 4D | REMEMBERING NAM|
000003D0: 45 53 20 41 4E 44 20 46 41 43 45 53 22 00 0E 0C |ES AND FACES"...|
000003E0: A0 00 50 47 4D 24 28 36 29 B2 22 52 45 54 55 52 |..PGM$(6)."RETUR|
000003F0: 4E 20 54 4F 20 4D 45 4D 4F 52 59 20 54 52 41 49 |N TO MEMORY TRAI|
00000400: 4E 45 52 20 4D 41 49 4E 20 4D 45 4E 55 22 00 3A |NER MAIN MENU".:|
00000410: 0C AA 00 50 47 4D 24 28 37 29 B2 22 51 55 49 54 |...PGM$(7)."QUIT|
00000420: 20 46 4F 52 20 4E 4F 57 22 3A 4D 41 58 B2 37 3A | FOR NOW":MAX.7:|
00000430: 8D 38 30 30 30 3A 51 4E B2 30 00 5E 0C B4 00 91 |.8000:QN.0.^....|
00000440: 43 89 31 39 30 2C 33 38 30 2C 34 33 30 2C 36 32 |C.190,380,430,62|
00000450: 30 2C 38 35 30 2C 37 31 30 30 2C 39 39 30 00 73 |0,850,7100,990.s|
00000460: 0C BE 00 46 49 4C 45 24 B2 22 4E 31 22 3A 8D 37 |...FILE$."N1":.7|
00000470: 35 30 30 00 84 0C BF 00 8B 20 51 4E B2 31 20 A7 |500...... QN.1 .|
00000480: 20 31 31 30 00 AF 0C C8 00 54 4D 41 58 B2 37 3A | 110.....TMAX.7:|
00000490: 44 54 49 4D 45 B2 33 3A 50 52 4F 4D 50 54 B2 31 |DTIME.3:PROMPT.1|
000004A0: 3A 8D 36 30 30 30 3A 99 C7 28 31 34 37 29 3B 00 |:.6000:..(147);.|
000004B0: C0 0C C9 00 8B 20 51 4E B2 31 20 A7 20 31 31 30 |..... QN.1 . 110|
000004C0: 00 F8 0C D2 00 56 54 25 B2 31 30 3A 8D 33 30 31 |.....VT%.10:.301|
000004D0: 30 30 3A 99 22 41 4C 4C 20 54 48 45 20 46 41 43 |00:."ALL THE FAC|
000004E0: 45 53 20 48 41 56 45 20 42 45 45 4E 20 50 52 45 |ES HAVE BEEN PRE|
000004F0: 53 45 4E 54 45 44 2E 22 00 36 0D DC 00 56 54 25 |SENTED.".6...VT%|
00000500: B2 32 34 3A 8D 33 30 31 30 30 3A 99 22 50 52 45 |.24:.30100:."PRE|
00000510: 53 53 20 3C 53 50 41 43 45 20 42 41 52 3E 20 54 |SS <SPACE BAR> T|
00000520: 4F 20 52 45 43 41 4C 4C 20 54 48 45 20 4E 41 4D |O RECALL THE NAM|
00000530: 45 53 2E 2E 22 3B 00 40 0D E6 00 8D 39 35 31 35 |ES..";.@....9515|
00000540: 00 51 0D E7 00 8B 20 51 4E B2 31 20 A7 20 31 31 |.Q.... QN.1 . 11|
00000550: 30 00 88 0D F0 00 99 C7 28 31 34 37 29 3B 3A 8D |0.......(147);:.|
00000560: 35 30 30 30 3A 8F 20 43 4F 4D 50 55 54 45 20 54 |5000:. COMPUTE T|
00000570: 48 45 20 41 43 54 55 41 4C 20 23 20 43 4F 52 52 |HE ACTUAL # CORR|
00000580: 45 43 54 20 48 45 52 45 00 99 0D F1 00 8B 20 51 |ECT HERE...... Q|
00000590: 4E B2 31 20 A7 20 31 31 30 00 CB 0D FA 00 53 4B |N.1 . 110.....SK|
000005A0: 49 50 B2 31 3A 8D 35 35 30 30 3A 53 4B 49 50 B2 |IP.1:.5500:SKIP.|
000005B0: 30 3A 8F 20 44 49 53 50 4C 41 59 20 43 4F 52 52 |0:. DISPLAY CORR|
000005C0: 45 43 54 20 41 4E 53 57 45 52 53 00 DC 0D FB 00 |ECT ANSWERS.....|
000005D0: 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 18 0E 04 |. QN.1 . 110....|
000005E0: 01 99 C7 28 31 34 37 29 3B 3A 46 49 4C 45 24 B2 |...(147);:FILE$.|
000005F0: 22 54 48 45 20 45 49 4E 53 54 45 49 4E 20 4D 45 |"THE EINSTEIN ME|
00000600: 4D 4F 52 59 20 54 52 41 49 4E 45 52 3A 20 4C 45 |MORY TRAINER: LE|
00000610: 53 53 4F 4E 20 23 31 22 00 33 0E 05 01 99 C7 28 |SSON #1".3.....(|
00000620: 31 38 29 3B 3A 8D 32 39 39 30 3A 99 C7 28 31 34 |18);:.2990:..(14|
00000630: 36 29 3B 00 6E 0E 0E 01 56 54 25 B2 31 30 3A 8D |6);.n...VT%.10:.|
00000640: 33 30 31 30 30 3A 46 49 4C 45 24 B2 22 20 48 4F |30100:FILE$." HO|
00000650: 57 20 47 4F 4F 44 20 57 41 53 20 59 4F 55 52 20 |W GOOD WAS YOUR |
00000660: 4D 45 4D 4F 52 59 3F 22 3A 8D 32 39 39 30 00 A1 |MEMORY?":.2990..|
00000670: 0E 0F 01 46 49 4C 45 24 B2 22 2D 2D 2D 20 2D 2D |...FILE$."--- --|
00000680: 2D 2D 20 2D 2D 2D 20 2D 2D 2D 2D 20 2D 2D 2D 2D |-- --- ---- ----|
00000690: 2D 2D 22 3A 56 54 25 B2 31 31 3A 8D 33 30 31 30 |--":VT%.11:.3010|
000006A0: 30 00 B9 0E 10 01 8D 32 39 39 30 3A 53 45 43 B2 |0......2990:SEC.|
000006B0: 31 2E 35 3A 8D 32 39 30 30 00 CA 0E 11 01 8B 20 |1.5:.2900...... |
000006C0: 51 4E B2 31 20 A7 20 31 31 30 00 04 0F 18 01 56 |QN.1 . 110.....V|
000006D0: 54 25 B2 31 33 3A 8D 33 30 31 30 30 3A 99 22 4D |T%.13:.30100:."M|
000006E0: 45 4D 4F 52 59 20 54 52 41 49 4E 45 52 20 57 49 |EMORY TRAINER WI|
000006F0: 4C 4C 20 4E 4F 57 20 53 48 4F 57 20 59 4F 55 20 |LL NOW SHOW YOU |
00000700: 54 48 45 22 00 3E 0F 19 01 56 54 25 B2 31 35 3A |THE".>...VT%.15:|
00000710: 8D 33 30 31 30 30 3A 99 22 51 55 49 43 4B 2C 20 |.30100:."QUICK, |
00000720: 45 41 53 59 20 41 4E 44 20 53 55 52 45 20 57 41 |EASY AND SURE WA|
00000730: 59 20 54 4F 20 52 45 4D 45 4D 42 45 52 22 00 63 |Y TO REMEMBER".c|
00000740: 0F 1A 01 56 54 25 B2 31 37 3A 8D 33 30 31 30 30 |...VT%.17:.30100|
00000750: 3A 99 22 50 45 4F 50 4C 45 27 53 20 4E 41 4D 45 |:."PEOPLE'S NAME|
00000760: 53 2E 22 00 8F 0F 22 01 46 49 4C 45 24 B2 22 37 |S."...".FILE$."7|
00000770: 38 37 35 33 39 39 37 38 37 35 32 39 39 38 37 35 |8753997875299875|
00000780: 32 31 32 39 39 31 32 22 3A 8D 31 36 30 30 30 00 |2129912":.16000.|
00000790: A0 0F 23 01 8B 20 51 4E B2 31 20 A7 20 31 31 30 |..#.. QN.1 . 110|
000007A0: 00 AA 0F 2C 01 8D 39 35 30 30 00 BB 0F 2D 01 8B |...,..9500...-..|
000007B0: 20 51 4E B2 31 20 A7 20 31 31 30 00 D0 0F 31 01 | QN.1 . 110...1.|
000007C0: 46 49 4C 45 24 B2 22 4E 32 22 3A 8D 37 35 30 30 |FILE$."N2":.7500|
000007D0: 00 E1 0F 32 01 8B 20 51 4E B2 31 20 A7 20 31 31 |...2.. QN.1 . 11|
000007E0: 30 00 F6 0F 36 01 46 49 4C 45 24 B2 22 4E 33 22 |0...6.FILE$."N3"|
000007F0: 3A 8D 37 35 30 30 00 07 10 37 01 8B 20 51 4E B2 |:.7500...7.. QN.|
00000800: 31 20 A7 20 31 31 30 00 1C 10 40 01 46 49 4C 45 |1 . 110...@.FILE|
00000810: 24 B2 22 4E 34 22 3A 8D 37 35 30 30 00 2D 10 41 |$."N4":.7500.-.A|
00000820: 01 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 42 10 |.. QN.1 . 110.B.|
00000830: 4A 01 46 49 4C 45 24 B2 22 4E 35 22 3A 8D 37 35 |J.FILE$."N5":.75|
00000840: 30 30 00 53 10 4B 01 8B 20 51 4E B2 31 20 A7 20 |00.S.K.. QN.1 . |
00000850: 31 31 30 00 6C 10 54 01 46 49 4C 45 24 B2 22 44 |110.l.T.FILE$."D|
00000860: 4F 4C 4C 41 52 22 3A 8D 36 36 30 30 00 7D 10 55 |OLLAR":.6600.}.U|
00000870: 01 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 92 10 |.. QN.1 . 110...|
00000880: 5E 01 46 49 4C 45 24 B2 22 4E 36 22 3A 8D 37 35 |^.FILE$."N6":.75|
00000890: 30 30 00 A3 10 5F 01 8B 20 51 4E B2 31 20 A7 20 |00..._.. QN.1 . |
000008A0: 31 31 30 00 BB 10 68 01 46 49 4C 45 24 B2 22 43 |110...h.FILE$."C|
000008B0: 48 41 49 4E 22 3A 8D 36 36 30 30 00 CC 10 69 01 |HAIN":.6600...i.|
000008C0: 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 E6 10 72 |. QN.1 . 110...r|
000008D0: 01 46 49 4C 45 24 B2 22 4E 37 22 3A 8D 37 35 30 |.FILE$."N7":.750|
000008E0: 30 3A 89 31 31 30 00 FC 10 7C 01 8F 20 53 54 55 |0:.110...|.. STU|
000008F0: 44 59 20 50 45 47 20 4E 41 4D 45 53 00 11 11 86 |DY PEG NAMES....|
00000900: 01 8B 56 56 B2 30 A7 8D 37 30 30 30 3A 56 56 B2 |..VV.0..7000:VV.|
00000910: 31 00 22 11 87 01 8B 20 51 4E B2 31 20 A7 20 31 |1.".... QN.1 . 1|
00000920: 31 30 00 45 11 90 01 4C 4F 57 B2 31 3A 48 49 47 |10.E...LOW.1:HIG|
00000930: 48 B2 31 30 3A 46 49 4C 45 24 B2 22 4E 38 22 3A |H.10:FILE$."N8":|
00000940: 8D 37 35 30 30 00 56 11 91 01 8B 20 51 4E B2 31 |.7500.V.... QN.1|
00000950: 20 A7 20 31 31 30 00 91 11 9A 01 81 49 B2 31 A4 | . 110......I.1.|
00000960: 32 30 3A 4D 53 47 24 28 49 29 B2 4D 45 4E 24 28 |20:MSG$(I).MEN$(|
00000970: 49 29 3A 54 4D 50 24 28 49 29 B2 50 45 47 24 28 |I):TMP$(I).PEG$(|
00000980: 49 29 3A 42 45 46 24 28 49 29 B2 22 40 22 3A 82 |I):BEF$(I)."@":.|
00000990: 49 00 C2 11 A4 01 58 58 B2 30 3A 89 34 36 30 3A |I.....XX.0:.460:|
000009A0: 8F 20 4D 41 49 4E 54 41 49 4E 20 50 45 47 20 4E |. MAINTAIN PEG N|
000009B0: 41 4D 45 53 20 46 4F 52 20 44 49 53 4B 20 46 49 |AMES FOR DISK FI|
000009C0: 4C 45 00 D7 11 AE 01 8B 56 56 B2 30 A7 8D 37 30 |LE......VV.0..70|
000009D0: 30 30 3A 56 56 B2 31 00 E8 11 AF 01 8B 20 51 4E |00:VV.1...... QN|
000009E0: B2 31 20 A7 20 31 31 30 00 0E 12 B8 01 4C 4F 57 |.1 . 110.....LOW|
000009F0: B2 31 3A 48 49 47 48 B2 31 30 3A 46 49 4C 45 24 |.1:HIGH.10:FILE$|
00000A00: B2 22 4E 38 2E 31 22 3A 8D 20 37 35 30 30 00 1F |."N8.1":. 7500..|
00000A10: 12 B9 01 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |.... QN.1 . 110.|
00000A20: 3D 12 C2 01 81 49 B2 31 A4 32 30 3A 4D 53 47 24 |=....I.1.20:MSG$|
00000A30: 28 49 29 B2 57 4F 4D 45 4E 24 28 49 29 00 69 12 |(I).WOMEN$(I).i.|
00000A40: C3 01 54 4D 50 24 28 49 29 B2 50 45 47 24 28 49 |..TMP$(I).PEG$(I|
00000A50: AA 32 30 29 3A 42 45 46 24 28 49 29 B2 22 40 22 |.20):BEF$(I)."@"|
00000A60: 3A 82 49 3A 58 58 B2 32 30 00 A3 12 CC 01 46 49 |:.I:XX.20.....FI|
00000A70: 4C 45 24 B2 22 53 54 55 44 59 20 41 4E 44 2F 4F |LE$."STUDY AND/O|
00000A80: 52 20 43 48 41 4E 47 45 20 50 45 47 20 4E 41 4D |R CHANGE PEG NAM|
00000A90: 45 3A 20 53 45 54 20 22 AA C4 28 48 49 47 48 AD |E: SET "..(HIGH.|
00000AA0: 31 30 29 00 C6 12 D6 01 4C 4D 41 52 47 49 4E B2 |10).....LMARGIN.|
00000AB0: 31 30 3A 43 4F 4C B2 31 3A 41 4E 24 B2 22 40 22 |10:COL.1:AN$."@"|
00000AC0: 3A 8D 32 30 30 30 00 D7 12 D7 01 8B 20 51 4E B2 |:.2000...... QN.|
00000AD0: 31 20 A7 20 31 31 30 00 04 13 EA 01 81 49 B2 4C |1 . 110......I.L|
00000AE0: 4F 57 A4 48 49 47 48 3A 8F 20 20 20 20 20 52 45 |OW.HIGH:. RE|
00000AF0: 4D 4F 56 45 20 54 52 41 49 4C 49 4E 47 20 42 4C |MOVE TRAILING BL|
00000B00: 41 4E 4B 53 00 19 13 F4 01 8B 41 46 54 24 28 49 |ANKS......AFT$(I|
00000B10: 29 B2 22 20 22 89 35 32 30 00 3D 13 FE 01 8B 41 |)." ".520.=....A|
00000B20: 46 54 24 28 49 29 B3 B1 22 22 A7 50 45 47 24 28 |FT$(I).."".PEG$(|
00000B30: 49 AA 58 58 29 B2 41 46 54 24 28 49 29 00 44 13 |I.XX).AFT$(I).D.|
00000B40: 08 02 82 49 00 6B 13 12 02 8B 28 51 55 49 54 B2 |...I.k....(QUIT.|
00000B50: 30 29 AF 28 48 49 47 48 B2 32 30 29 A7 8B 44 53 |0).(HIGH.20)..DS|
00000B60: 4B 24 B3 B1 22 59 22 89 31 31 30 00 8A 13 1C 02 |K$.."Y".110.....|
00000B70: 8B A8 28 28 51 55 49 54 B2 30 29 AF 28 48 49 47 |..((QUIT.0).(HIG|
00000B80: 48 B2 32 30 29 29 A7 35 35 30 00 B7 13 1D 02 52 |H.20)).550.....R|
00000B90: 57 24 B2 22 57 52 49 54 45 20 22 3A 53 44 24 B2 |W$."WRITE ":SD$.|
00000BA0: 22 41 22 3A 51 55 49 54 B2 32 3A 8D 37 32 32 30 |"A":QUIT.2:.7220|
00000BB0: 3A 51 55 49 54 B2 30 00 E2 13 1E 02 89 31 31 30 |:QUIT.0......110|
00000BC0: 3A 8F 20 55 50 44 41 54 45 20 50 45 52 53 4F 4E |:. UPDATE PERSON|
00000BD0: 41 4C 20 44 49 53 4B 20 49 46 20 44 45 53 49 52 |AL DISK IF DESIR|
00000BE0: 45 44 00 08 14 26 02 8B A8 28 28 51 55 49 54 B2 |ED...&...((QUIT.|
00000BF0: 31 29 AF 28 58 58 B2 30 29 AF 28 48 49 47 48 B2 |1).(XX.0).(HIGH.|
00000C00: 31 30 29 29 A7 35 36 30 00 20 14 27 02 48 49 47 |10)).560. .'.HIG|
00000C10: 48 B2 32 30 3A 4C 4F 57 B2 31 31 3A 89 34 31 30 |H.20:LOW.11:.410|
00000C20: 00 46 14 30 02 8B A8 28 28 51 55 49 54 B2 31 29 |.F.0...((QUIT.1)|
00000C30: AF 28 58 58 B2 30 29 AF 28 48 49 47 48 B2 32 30 |.(XX.0).(HIGH.20|
00000C40: 29 29 A7 35 37 30 00 5D 14 31 02 48 49 47 48 B2 |)).570.].1.HIGH.|
00000C50: 31 30 3A 4C 4F 57 B2 31 3A 89 34 31 30 00 84 14 |10:LOW.1:.410...|
00000C60: 3A 02 8B A8 28 28 51 55 49 54 B2 31 29 AF 28 58 |:...((QUIT.1).(X|
00000C70: 58 B2 32 30 29 AF 28 48 49 47 48 B2 31 30 29 29 |X.20).(HIGH.10))|
00000C80: A7 35 38 30 00 9C 14 3B 02 48 49 47 48 B2 32 30 |.580...;.HIGH.20|
00000C90: 3A 4C 4F 57 B2 31 31 3A 89 34 35 30 00 C3 14 44 |:LOW.11:.450...D|
00000CA0: 02 8B A8 28 28 51 55 49 54 B2 31 29 AF 28 58 58 |...((QUIT.1).(XX|
00000CB0: B2 32 30 29 AF 28 48 49 47 48 B2 32 30 29 29 A7 |.20).(HIGH.20)).|
00000CC0: 35 39 30 00 DA 14 45 02 48 49 47 48 B2 31 30 3A |590...E.HIGH.10:|
00000CD0: 4C 4F 57 B2 31 3A 89 34 35 30 00 ED 14 4E 02 48 |LOW.1:.450...N.H|
00000CE0: 49 47 48 B2 32 30 3A 4C 4F 57 B2 31 31 00 FB 14 |IGH.20:LOW.11...|
00000CF0: 58 02 8B 58 58 B2 30 89 34 31 30 00 0A 15 62 02 |X..XX.0.410...b.|
00000D00: 8B 58 58 B2 32 30 89 34 35 30 00 2D 15 6C 02 8F |.XX.20.450.-.l..|
00000D10: 20 50 52 41 43 54 49 43 45 20 52 45 43 41 4C 4C | PRACTICE RECALL|
00000D20: 49 4E 47 20 50 45 47 20 4E 41 4D 45 53 00 42 15 |ING PEG NAMES.B.|
00000D30: 76 02 8B 56 56 B2 30 A7 8D 37 30 30 30 3A 56 56 |v..VV.0..7000:VV|
00000D40: B2 31 00 53 15 77 02 8B 20 51 4E B2 31 20 A7 20 |.1.S.w.. QN.1 . |
00000D50: 31 31 30 00 68 15 80 02 46 49 4C 45 24 B2 22 4E |110.h...FILE$."N|
00000D60: 39 22 3A 8D 37 35 30 30 00 79 15 81 02 8B 20 51 |9":.7500.y.... Q|
00000D70: 4E B2 31 20 A7 20 31 31 30 00 94 15 8A 02 99 C7 |N.1 . 110.......|
00000D80: 28 31 34 37 29 3B 3A 56 54 25 B2 31 30 3A 8D 33 |(147);:VT%.10:.3|
00000D90: 30 31 30 30 00 D8 15 8B 02 46 49 4C 45 24 B2 22 |0100.....FILE$."|
00000DA0: 20 4D 49 58 49 4E 47 20 55 50 20 54 48 45 20 4E | MIXING UP THE N|
00000DB0: 41 4D 45 53 22 3A 8D 32 39 39 30 3A 99 3A 46 49 |AMES":.2990:.:FI|
00000DC0: 4C 45 24 B2 22 50 4C 45 41 53 45 20 57 41 49 54 |LE$."PLEASE WAIT|
00000DD0: 22 3A 8D 20 32 39 39 30 00 14 16 94 02 58 4E 55 |":. 2990.....XNU|
00000DE0: 4D B2 34 30 3A 58 4D 41 58 B2 34 30 3A 8D 31 35 |M.40:XMAX.40:.15|
00000DF0: 30 30 3A 8F 20 53 45 4C 45 43 54 20 34 30 20 4E |00:. SELECT 40 N|
00000E00: 41 4D 45 53 20 49 4E 20 52 41 4E 44 4F 4D 20 4F |AMES IN RANDOM O|
00000E10: 52 44 45 52 00 36 16 9E 02 4B 4D 41 58 B2 31 30 |RDER.6...KMAX.10|
00000E20: 3A 54 4D 41 58 B2 31 30 3A 4C 4F 57 B2 31 3A 48 |:TMAX.10:LOW.1:H|
00000E30: 49 47 48 B2 31 30 00 46 16 A8 02 81 49 B2 4C 4F |IGH.10.F....I.LO|
00000E40: 57 A4 48 49 47 48 00 5A 16 B2 02 54 4D 50 24 28 |W.HIGH.Z...TMP$(|
00000E50: 49 29 B2 22 2E 2E 2E 2E 2E 22 00 8A 16 BC 02 8B |I)."....."......|
00000E60: 52 44 52 25 28 49 29 B1 32 30 A7 4D 53 47 24 28 |RDR%(I).20.MSG$(|
00000E70: 49 29 B2 57 4F 4D 45 4E 24 28 52 44 52 25 28 49 |I).WOMEN$(RDR%(I|
00000E80: 29 AB 32 30 29 3A 89 37 32 30 00 A4 16 C6 02 4D |).20):.720.....M|
00000E90: 53 47 24 28 49 29 B2 4D 45 4E 24 28 52 44 52 25 |SG$(I).MEN$(RDR%|
00000EA0: 28 49 29 29 00 AB 16 D0 02 82 49 00 D2 16 DA 02 |(I))......I.....|
00000EB0: 46 49 4C 45 24 B2 22 45 4E 54 45 52 20 54 48 45 |FILE$."ENTER THE|
00000EC0: 20 43 4F 52 52 45 43 54 20 50 45 47 20 4E 41 4D | CORRECT PEG NAM|
00000ED0: 45 22 00 FB 16 E4 02 81 49 B2 4C 4F 57 A4 48 49 |E"......I.LOW.HI|
00000EE0: 47 48 3A 42 45 46 24 28 49 29 B2 50 45 47 24 28 |GH:BEF$(I).PEG$(|
00000EF0: 52 44 52 25 28 49 29 29 3A 82 49 00 28 17 E5 02 |RDR%(I)):.I.(...|
00000F00: 8F 20 4D 41 4C 45 20 26 20 46 45 4D 41 4C 45 20 |. MALE & FEMALE |
00000F10: 4E 41 4D 45 53 20 41 43 54 55 41 4C 4C 59 20 44 |NAMES ACTUALLY D|
00000F20: 49 53 50 4C 41 59 45 44 00 43 17 EE 02 43 4F 4C |ISPLAYED.C...COL|
00000F30: B2 31 3A 4C 4D 41 52 47 49 4E B2 31 30 3A 8D 32 |.1:LMARGIN.10:.2|
00000F40: 30 30 30 00 54 17 EF 02 8B 20 51 4E B2 31 20 A7 |000.T.... QN.1 .|
00000F50: 20 31 31 30 00 77 17 F8 02 81 49 B2 4C 4F 57 A4 | 110.w....I.LOW.|
00000F60: 48 49 47 48 3A 54 4D 50 24 28 49 29 B2 4D 53 47 |HIGH:TMP$(I).MSG|
00000F70: 24 28 49 29 3A 82 49 00 81 17 02 03 8D 33 30 30 |$(I):.I......300|
00000F80: 30 00 92 17 03 03 8B 20 51 4E B2 31 20 A7 20 31 |0...... QN.1 . 1|
00000F90: 31 30 00 B0 17 0C 03 54 4D 41 58 B2 31 30 3A 8D |10.....TMAX.10:.|
00000FA0: 33 37 30 30 3A 8B 43 24 B2 22 59 22 89 36 38 30 |3700:.C$."Y".680|
00000FB0: 00 C1 17 0D 03 8B 20 51 4E B2 31 20 A7 20 31 31 |...... QN.1 . 11|
00000FC0: 30 00 F5 17 16 03 8B 48 49 47 48 B2 34 30 89 38 |0......HIGH.40.8|
00000FD0: 34 30 3A 8F 20 41 4C 4C 20 54 48 45 20 4E 41 4D |40:. ALL THE NAM|
00000FE0: 45 53 20 48 41 56 45 20 42 45 45 4E 20 52 45 56 |ES HAVE BEEN REV|
00000FF0: 49 45 57 45 44 00 10 18 20 03 99 C7 28 31 34 37 |IEWED... ...(147|
00001000: 29 3B 3A 56 54 25 B2 31 30 3A 8D 33 30 31 30 30 |);:VT%.10:.30100|
00001010: 00 51 18 21 03 99 22 59 4F 55 20 48 41 56 45 20 |.Q.!.."YOU HAVE |
00001020: 4A 55 53 54 20 42 45 45 4E 20 54 45 53 54 45 44 |JUST BEEN TESTED|
00001030: 20 4F 4E 20 22 3B 48 49 47 48 3B 22 20 4F 46 20 | ON ";HIGH;" OF |
00001040: 34 30 22 3A 56 54 25 B2 31 32 3A 8D 33 30 31 30 |40":VT%.12:.3010|
00001050: 30 00 8B 18 22 03 99 22 50 45 47 20 57 4F 52 44 |0...".."PEG WORD|
00001060: 53 2E 20 4D 45 4D 4F 52 59 20 54 52 41 49 4E 45 |S. MEMORY TRAINE|
00001070: 52 20 45 4E 43 4F 55 52 41 47 45 53 22 3A 56 54 |R ENCOURAGES":VT|
00001080: 25 B2 31 34 3A 8D 33 30 31 30 30 00 B9 18 23 03 |%.14:.30100...#.|
00001090: 99 22 59 4F 55 20 54 4F 20 42 45 20 54 45 53 54 |."YOU TO BE TEST|
000010A0: 45 44 20 4F 4E 20 31 30 20 4D 4F 52 45 20 50 45 |ED ON 10 MORE PE|
000010B0: 47 20 4E 41 4D 45 53 2E 22 00 F3 18 2A 03 56 54 |G NAMES."...*.VT|
000010C0: 25 B2 31 36 3A 8D 33 30 31 30 30 3A 97 32 31 31 |%.16:.30100:.211|
000010D0: 2C 30 3A 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 |,0:."DO YOU WANT|
000010E0: 20 54 4F 20 44 4F 20 53 4F 3F 20 28 59 2F 4E 29 | TO DO SO? (Y/N)|
000010F0: 20 22 3B 00 FB 18 2B 03 8D 37 31 00 0C 19 2C 03 | ";...+..71...,.|
00001100: 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 35 19 34 |. QN.1 . 110.5.4|
00001110: 03 8B 43 24 B2 22 59 22 A7 48 49 47 48 B2 48 49 |..C$."Y".HIGH.HI|
00001120: 47 48 AA 31 30 3A 4C 4F 57 B2 4C 4F 57 AA 31 30 |GH.10:LOW.LOW.10|
00001130: 3A 89 36 38 30 00 46 19 3E 03 8B 43 24 B3 B1 22 |:.680.F.>..C$.."|
00001140: 4E 22 89 38 31 30 00 55 19 48 03 8D 33 38 30 30 |N".810.U.H..3800|
00001150: 3A 89 31 31 30 00 71 19 52 03 8F 20 44 49 53 50 |:.110.q.R.. DISP|
00001160: 4C 41 59 20 4E 41 4D 45 53 20 26 20 46 41 43 45 |LAY NAMES & FACE|
00001170: 53 00 86 19 5C 03 8B 56 56 B2 30 A7 8D 37 30 30 |S...\..VV.0..700|
00001180: 30 3A 56 56 B2 31 00 97 19 5D 03 8B 20 51 4E B2 |0:VV.1...].. QN.|
00001190: 31 20 A7 20 31 31 30 00 AD 19 66 03 46 49 4C 45 |1 . 110...f.FILE|
000011A0: 24 B2 22 4E 31 30 22 3A 8D 37 35 30 30 00 BE 19 |$."N10":.7500...|
000011B0: 67 03 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 D4 |g.. QN.1 . 110..|
000011C0: 19 6B 03 46 49 4C 45 24 B2 22 4E 31 31 22 3A 8D |.k.FILE$."N11":.|
000011D0: 37 35 30 30 00 E5 19 6C 03 8B 20 51 4E B2 31 20 |7500...l.. QN.1 |
000011E0: A7 20 31 31 30 00 0D 1A 70 03 4B 4D 41 58 B2 31 |. 110...p.KMAX.1|
000011F0: 32 3A 8D 31 37 30 30 3A 8F 20 50 41 52 41 4D 45 |2:.1700:. PARAME|
00001200: 54 45 52 20 53 45 4C 45 43 54 49 4F 4E 00 1E 1A |TER SELECTION...|
00001210: 71 03 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 44 |q.. QN.1 . 110.D|
00001220: 1A 7A 03 8D 31 33 30 30 30 3A 56 54 25 B2 31 32 |.z..13000:VT%.12|
00001230: 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 34 3A 53 |:.30100:.211,4:S|
00001240: 45 43 B2 33 00 7E 1A 7B 03 46 49 4C 45 24 B2 22 |EC.3.~.{.FILE$."|
00001250: 47 45 54 20 52 45 41 44 59 20 46 4F 52 20 4E 41 |GET READY FOR NA|
00001260: 4D 45 53 20 41 4E 44 20 46 41 43 45 53 22 3A 8D |MES AND FACES":.|
00001270: 33 30 30 30 30 3A 99 C7 28 31 34 36 29 3B 00 98 |30000:..(146);..|
00001280: 1A 84 03 4C 4F 57 B2 31 3A 48 49 47 48 B2 54 4D |...LOW.1:HIGH.TM|
00001290: 41 58 3A 8D 36 30 30 30 00 A9 1A 85 03 8B 20 51 |AX:.6000...... Q|
000012A0: 4E B2 31 20 A7 20 31 31 30 00 C4 1A 8E 03 99 C7 |N.1 . 110.......|
000012B0: 28 31 34 37 29 3B 3A 56 54 25 B2 31 30 3A 8D 33 |(147);:VT%.10:.3|
000012C0: 30 31 30 30 00 FC 1A 98 03 99 22 47 45 54 20 52 |0100......"GET R|
000012D0: 45 41 44 59 20 54 4F 20 52 45 4D 45 4D 42 45 52 |EADY TO REMEMBER|
000012E0: 20 57 48 4F 27 53 20 57 48 4F 2E 2E 2E 22 3A 56 | WHO'S WHO...":V|
000012F0: 54 25 B2 32 33 3A 8D 33 30 31 30 30 00 26 1B 99 |T%.23:.30100.&..|
00001300: 03 99 22 50 52 45 53 53 20 3C 53 50 41 43 45 20 |.."PRESS <SPACE |
00001310: 42 41 52 3E 20 54 4F 20 42 45 20 54 45 53 54 45 |BAR> TO BE TESTE|
00001320: 44 2E 2E 2E 22 3B 00 30 1B A2 03 8D 39 35 31 35 |D...";.0....9515|
00001330: 00 41 1B A3 03 8B 20 51 4E B2 31 20 A7 20 31 31 |.A.... QN.1 . 11|
00001340: 30 00 4B 1B A4 03 8D 35 30 30 30 00 5C 1B A5 03 |0.K....5000.\...|
00001350: 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 75 1B A7 |. QN.1 . 110.u..|
00001360: 03 8D 35 35 30 30 3A 8F 20 52 45 43 41 4C 4C 20 |..5500:. RECALL |
00001370: 46 41 43 45 53 00 86 1B A8 03 8B 20 51 4E B2 31 |FACES...... QN.1|
00001380: 20 A7 20 31 31 30 00 96 1B AC 03 8B 43 24 B2 22 | . 110......C$."|
00001390: 59 22 89 38 38 30 00 9F 1B B6 03 89 31 31 30 00 |Y".880......110.|
000013A0: CF 1B DE 03 8D 31 33 30 30 30 3A 56 54 25 B2 38 |.....13000:VT%.8|
000013B0: 3A 8D 33 30 31 30 30 3A 99 22 59 4F 55 20 48 41 |:.30100:."YOU HA|
000013C0: 56 45 20 4A 55 53 54 20 45 58 49 54 45 44 22 00 |VE JUST EXITED".|
000013D0: 07 1C DF 03 56 54 25 B2 31 30 3A 8D 33 30 31 30 |....VT%.10:.3010|
000013E0: 30 3A 99 C7 28 31 38 29 3B 22 54 48 45 20 45 49 |0:..(18);"THE EI|
000013F0: 4E 53 54 45 49 4E 20 4D 45 4D 4F 52 59 20 54 52 |NSTEIN MEMORY TR|
00001400: 41 49 4E 45 52 22 3B 00 3F 1C E0 03 99 C7 28 31 |AINER";.?.....(1|
00001410: 34 36 29 3B 22 2E 22 3A 56 54 25 B2 31 32 3A 8D |46);".":VT%.12:.|
00001420: 33 30 31 30 30 3A 99 22 54 48 41 4E 4B 20 59 4F |30100:."THANK YO|
00001430: 55 20 46 4F 52 20 50 4C 41 59 49 4E 47 21 22 00 |U FOR PLAYING!".|
00001440: 53 1C E1 03 56 54 25 B2 32 32 3A 8D 33 30 31 30 |S...VT%.22:.3010|
00001450: 30 3A 80 00 6F 1C DC 05 8F 20 52 41 4E 44 4F 4D |0:..o.... RANDOM|
00001460: 20 4F 52 44 45 52 20 53 45 4C 45 43 54 4F 52 00 | ORDER SELECTOR.|
00001470: 87 1C E6 05 52 44 52 25 28 31 29 B2 58 4E 55 4D |....RDR%(1).XNUM|
00001480: AC BB 28 31 29 AA 31 00 95 1C F0 05 81 49 B2 32 |..(1).1......I.2|
00001490: A4 58 4D 41 58 00 AD 1C FA 05 52 44 52 25 28 49 |.XMAX.....RDR%(I|
000014A0: 29 B2 58 4E 55 4D AC BB 28 31 29 AA 31 00 BA 1C |).XNUM..(1).1...|
000014B0: 04 06 81 4A B2 31 A4 49 AB 31 00 E9 1C 0E 06 8B |...J.1.I.1......|
000014C0: 52 44 52 25 28 49 29 B2 52 44 52 25 28 4A 29 89 |RDR%(I).RDR%(J).|
000014D0: 31 35 33 30 3A 8F 20 47 45 54 20 41 20 4E 45 57 |1530:. GET A NEW|
000014E0: 20 52 41 4E 44 4F 4D 20 23 00 F3 1C 18 06 82 4A | RANDOM #......J|
000014F0: 3A 82 49 00 F9 1C 3F 06 8E 00 14 1D A4 06 8F 20 |:.I...?........ |
00001500: 4D 45 4D 4F 52 59 20 4F 50 54 49 4F 4E 20 53 45 |MEMORY OPTION SE|
00001510: 4C 45 43 54 00 4B 1D AE 06 99 C7 28 31 34 37 29 |LECT.K.....(147)|
00001520: 3B C7 28 31 38 29 3B 3A 46 49 4C 45 24 B2 22 53 |;.(18);:FILE$."S|
00001530: 45 54 20 4D 45 4D 4F 52 59 20 50 52 41 43 54 49 |ET MEMORY PRACTI|
00001540: 43 45 20 4F 50 54 49 4F 4E 53 22 00 5E 1D AF 06 |CE OPTIONS".^...|
00001550: 8D 32 39 39 30 3A 99 C7 28 31 34 36 29 3B 00 76 |.2990:..(146);.v|
00001560: 1D B8 06 56 54 25 B2 34 3A 8D 33 30 31 30 30 3A |...VT%.4:.30100:|
00001570: 97 32 31 31 2C 30 00 AC 1D B9 06 99 22 4E 55 4D |.211,0......"NUM|
00001580: 42 45 52 20 4F 46 20 46 41 43 45 53 2F 4E 41 4D |BER OF FACES/NAM|
00001590: 45 53 20 28 35 20 54 4F 20 22 3B 4B 4D 41 58 3B |ES (5 TO ";KMAX;|
000015A0: 22 29 2E 2E 2E 22 3B A3 33 36 29 3B 00 CA 1D C2 |")...";.36);....|
000015B0: 06 8D 37 32 3A 8D 38 30 3A 54 4D 41 58 B2 C5 28 |..72:.80:TMAX..(|
000015C0: 4C 24 29 3A 97 32 31 31 2C 30 00 D9 1D C3 06 8B |L$):.211,0......|
000015D0: 20 51 4E B2 31 20 A7 20 8E 00 FB 1D CC 06 8B A8 | QN.1 . ........|
000015E0: 28 28 54 4D 41 58 B1 4B 4D 41 58 29 B0 28 54 4D |((TMAX.KMAX).(TM|
000015F0: 41 58 B3 35 29 29 A7 31 37 35 30 00 0C 1E CD 06 |AX.5)).1750.....|
00001600: 8D 33 30 32 30 30 3A 89 31 37 32 30 00 3D 1E CE |.30200:.1720.=..|
00001610: 06 99 22 49 4C 4C 45 47 41 4C 20 45 4E 54 52 59 |.."ILLEGAL ENTRY|
00001620: 21 20 50 4C 45 41 53 45 20 45 4E 54 45 52 20 41 |! PLEASE ENTER A|
00001630: 47 41 49 4E 22 3B C7 28 31 34 36 29 3B 00 6F 1E |GAIN";.(146);.o.|
00001640: D6 06 56 54 25 B2 36 3A 8D 33 30 31 30 30 3A 99 |..VT%.6:.30100:.|
00001650: 22 48 45 4C 50 20 57 49 54 48 20 50 45 47 20 4E |"HELP WITH PEG N|
00001660: 41 4D 45 53 2D 2D 22 3B 3A 8D 33 30 32 30 30 00 |AMES--";:.30200.|
00001670: 87 1E D8 06 56 54 25 B2 38 3A 8D 33 30 31 30 30 |....VT%.8:.30100|
00001680: 3A 97 32 31 31 2C 33 00 B6 1E D9 06 99 22 49 4E |:.211,3......"IN|
00001690: 20 4D 45 4D 4F 52 49 5A 49 4E 47 3A 20 28 59 29 | MEMORIZING: (Y)|
000016A0: 45 53 20 4F 52 20 28 4E 29 4F 2E 2E 2E 2E 2E 22 |ES OR (N)O....."|
000016B0: 3B A3 33 36 29 3B 00 C2 1E DA 06 8D 37 31 3A 99 |;.36);......71:.|
000016C0: 43 24 00 D1 1E DB 06 8B 20 51 4E B2 31 20 A7 20 |C$...... QN.1 . |
000016D0: 8E 00 EC 1E E0 06 8B 43 24 B2 22 59 22 A7 50 52 |.......C$."Y".PR|
000016E0: 4F 4D 50 54 B2 30 3A 89 31 37 37 32 00 07 1F E5 |OMPT.0:.1772....|
000016F0: 06 8B 43 24 B2 22 4E 22 A7 50 52 4F 4D 50 54 B2 |..C$."N".PROMPT.|
00001700: 31 3A 89 31 37 37 32 00 11 1F EA 06 89 31 37 35 |1:.1772......175|
00001710: 30 00 1A 1F EC 06 50 57 B2 30 00 33 1F FE 06 56 |0.....PW.0.3...V|
00001720: 54 25 B2 31 30 3A 8D 33 30 31 30 30 3A 97 32 31 |T%.10:.30100:.21|
00001730: 31 2C 30 00 65 1F FF 06 99 22 44 49 53 50 4C 41 |1,0.e...."DISPLA|
00001740: 59 20 53 50 45 45 44 3A 20 28 31 29 53 4C 4F 57 |Y SPEED: (1)SLOW|
00001750: 20 54 4F 20 28 34 29 46 41 53 54 2E 2E 2E 22 3B | TO (4)FAST...";|
00001760: A3 33 36 29 3B 00 79 1F 00 07 8D 37 31 3A 99 43 |.36);.y....71:.C|
00001770: 24 3A 58 B2 C5 28 43 24 29 00 88 1F 01 07 8B 20 |$:X..(C$)...... |
00001780: 51 4E B2 31 20 A7 20 8E 00 9E 1F 08 07 8B 28 58 |QN.1 . .......(X|
00001790: B1 34 29 B0 28 58 B2 30 29 89 31 37 39 30 00 AD |.4).(X.0).1790..|
000017A0: 1F 12 07 44 54 49 4D 45 B2 31 32 AD 58 00 B8 1F |...DTIME.12.X...|
000017B0: 1C 07 54 59 50 45 B2 31 00 E3 1F 30 07 53 43 B2 |..TYPE.1...0.SC.|
000017C0: 31 30 AC 28 50 52 4F 4D 50 54 AA 50 57 AA 31 29 |10.(PROMPT.PW.1)|
000017D0: AC 58 AC 54 59 50 45 3A 54 59 50 45 B2 54 59 50 |.X.TYPE:TYPE.TYP|
000017E0: 45 AB 31 00 1E 20 3A 07 56 54 25 B2 31 37 3A 8D |E.1.. :.VT%.17:.|
000017F0: 33 30 31 30 30 3A 99 22 53 43 4F 52 45 20 46 4F |30100:."SCORE FO|
00001800: 52 20 45 41 43 48 20 43 4F 52 52 45 43 54 20 41 |R EACH CORRECT A|
00001810: 4E 53 57 45 52 20 2E 2E 2E 2E 2E 2E 22 3B 00 40 |NSWER ......";.@|
00001820: 20 3B 07 99 A3 33 36 29 3B C7 28 31 38 29 3B 53 | ;...36);.(18);S|
00001830: 43 3B C7 28 31 34 36 29 3B 3A 8D 33 30 32 30 30 |C;.(146);:.30200|
00001840: 00 59 20 44 07 56 54 25 B2 32 31 3A 8D 33 30 31 |.Y D.VT%.21:.301|
00001850: 30 30 3A 97 32 31 31 2C 30 00 90 20 45 07 99 22 |00:.211,0.. E.."|
00001860: 41 52 45 20 54 48 45 53 45 20 54 48 45 20 4F 50 |ARE THESE THE OP|
00001870: 54 49 4F 4E 53 20 59 4F 55 20 57 41 4E 54 3F 20 |TIONS YOU WANT? |
00001880: 28 59 2F 4E 29 20 22 3B 3A 8D 37 31 3A 99 43 24 |(Y/N) ";:.71:.C$|
00001890: 00 9F 20 46 07 8B 20 51 4E B2 31 20 A7 20 8E 00 |.. F.. QN.1 . ..|
000018A0: B0 20 4E 07 8B 43 24 B2 22 59 22 89 31 38 39 39 |. N..C$."Y".1899|
000018B0: 00 C2 20 58 07 8B 43 24 B3 B1 22 4E 22 89 31 38 |.. X..C$.."N".18|
000018C0: 36 30 00 CC 20 62 07 89 31 37 32 30 00 D2 20 6B |60.. b..1720.. k|
000018D0: 07 8E 00 F2 20 D0 07 8F 20 55 4E 54 49 4D 45 44 |.... ... UNTIMED|
000018E0: 20 4B 45 59 42 4F 41 52 44 20 52 45 54 52 49 45 | KEYBOARD RETRIE|
000018F0: 56 45 00 18 21 DA 07 4B B2 4C 4F 57 3A 50 52 54 |VE..!..K.LOW:PRT|
00001900: B2 31 3A 51 55 49 54 B2 30 3A 99 C7 28 31 34 37 |.1:QUIT.0:..(147|
00001910: 29 3B 3A 43 24 B2 22 22 00 36 21 DB 07 81 49 B2 |);:C$."".6!...I.|
00001920: 4C 4F 57 A4 48 49 47 48 3A 41 46 54 24 28 49 29 |LOW.HIGH:AFT$(I)|
00001930: B2 22 22 3A 82 49 00 51 21 E4 07 99 C7 28 31 38 |."":.I.Q!....(18|
00001940: 29 3B 3A 8D 32 39 39 30 3A 99 C7 28 31 34 36 29 |);:.2990:..(146)|
00001950: 3B 00 67 21 E5 07 81 58 59 B2 31 A4 31 30 3A A1 |;.g!...XY.1.10:.|
00001960: 58 58 24 3A 82 58 59 00 90 21 EE 07 44 46 52 B2 |XX$:.XY..!..DFR.|
00001970: 28 48 49 47 48 AB 4C 4F 57 AA 31 29 AD 32 3A 8B |(HIGH.LOW.1).2:.|
00001980: 43 4F 4C B2 31 A7 44 46 52 B2 48 49 47 48 AA 31 |COL.1.DFR.HIGH.1|
00001990: 00 AB 21 F8 07 4F 46 46 53 45 54 B2 B5 28 28 48 |..!..OFFSET..((H|
000019A0: 49 47 48 AB 4C 4F 57 29 AD 32 29 00 BB 21 02 08 |IGH.LOW).2)..!..|
000019B0: 81 49 B2 4C 4F 57 A4 48 49 47 48 00 CA 21 0C 08 |.I.LOW.HIGH..!..|
000019C0: 41 48 B2 4C 4D 41 52 47 49 4E 00 EA 21 16 08 8B |AH.LMARGIN..!...|
000019D0: 28 49 AB 4C 4F 57 29 B1 B2 44 46 52 A7 41 48 B2 |(I.LOW)..DFR.AH.|
000019E0: 4C 4D 41 52 47 49 4E AA 32 31 00 FD 21 20 08 41 |LMARGIN.21..! .A|
000019F0: 56 B2 32 AC 28 49 AB 4C 4F 57 29 AA 33 00 25 22 |V.2.(I.LOW).3.%"|
00001A00: 21 08 8B 28 49 AB 4C 4F 57 29 B1 B2 44 46 52 A7 |!..(I.LOW)..DFR.|
00001A10: 41 56 B2 32 AC 28 49 AB 4C 4F 57 AB 4F 46 46 53 |AV.2.(I.LOW.OFFS|
00001A20: 45 54 29 AA 31 00 5A 22 2A 08 56 54 25 B2 41 56 |ET).1.Z"*.VT%.AV|
00001A30: 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 41 48 AB |:.30100:.211,AH.|
00001A40: 31 3A 99 4D 53 47 24 28 49 29 3B A3 41 48 AA 31 |1:.MSG$(I);.AH.1|
00001A50: 30 29 3B 54 4D 50 24 28 49 29 00 61 22 34 08 82 |0);TMP$(I).a"4..|
00001A60: 49 00 87 22 3E 08 56 54 25 B2 32 32 3A 8D 33 30 |I..">.VT%.22:.30|
00001A70: 31 30 30 3A 81 49 B2 30 A4 37 3A 99 22 2D 2D 2D |100:.I.0.7:."---|
00001A80: 2D 2D 22 3B 3A 82 49 00 AC 22 48 08 56 54 25 B2 |--";:.I.."H.VT%.|
00001A90: 32 33 3A 8D 33 30 31 30 30 3A 99 C7 28 31 38 29 |23:.30100:..(18)|
00001AA0: 3B 22 5E 22 3B C7 28 31 34 36 29 3B 00 CE 22 49 |;"^";.(146);.."I|
00001AB0: 08 99 22 20 46 4F 52 20 50 52 45 56 49 4F 55 53 |.." FOR PREVIOUS|
00001AC0: 20 4C 49 4E 45 3B 20 22 3B C7 28 31 38 29 00 05 | LINE; ";.(18)..|
00001AD0: 23 52 08 56 54 25 B2 32 34 3A 8D 33 30 31 30 30 |#R.VT%.24:.30100|
00001AE0: 3A 99 22 50 52 45 53 53 20 3C 52 45 54 55 52 4E |:."PRESS <RETURN|
00001AF0: 3E 20 41 46 54 45 52 20 45 41 43 48 20 45 4E 54 |> AFTER EACH ENT|
00001B00: 52 59 2E 22 3B 00 16 23 5C 08 8B 50 52 54 B2 31 |RY.";..#\..PRT.1|
00001B10: A7 8D 32 34 30 30 00 26 23 66 08 8D 37 33 3A 58 |..2400.&#f..73:X|
00001B20: B2 C6 28 43 24 29 00 35 23 67 08 8B 20 51 4E B2 |..(C$).5#g.. QN.|
00001B30: 31 20 A7 20 8E 00 5C 23 7A 08 8B 20 58 B2 31 37 |1 . ..\#z.. X.17|
00001B40: 20 B0 20 28 58 B2 31 33 29 89 32 32 32 30 3A 8F | . (X.13).2220:.|
00001B50: 20 52 49 47 48 54 20 41 52 52 4F 57 00 84 23 7F | RIGHT ARROW..#.|
00001B60: 08 8B 28 41 4E 24 B2 22 40 22 29 AF 28 28 58 B2 |..(AN$."@").((X.|
00001B70: 34 39 29 B0 28 58 B2 35 30 29 29 A7 51 55 49 54 |49).(X.50)).QUIT|
00001B80: B2 31 3A 8E 00 B7 23 80 08 8F 20 53 50 45 43 49 |.1:...#... SPECI|
00001B90: 41 4C 20 54 4F 47 47 4C 45 20 53 43 48 45 4D 45 |AL TOGGLE SCHEME|
00001BA0: 20 46 4F 52 20 4C 45 53 53 4F 4E 20 32 20 50 45 | FOR LESSON 2 PE|
00001BB0: 47 20 4E 41 4D 45 53 00 CF 23 84 08 8B 58 B2 34 |G NAMES..#...X.4|
00001BC0: 32 A7 20 51 55 49 54 B2 31 3A 89 32 32 32 30 00 |2. QUIT.1:.2220.|
00001BD0: F4 23 98 08 8B 28 58 B2 39 34 29 A7 8D 32 35 30 |.#...(X.94)..250|
00001BE0: 30 3A 89 32 32 34 30 3A 8F 20 42 41 43 4B 20 41 |0:.2240:. BACK A|
00001BF0: 52 52 4F 57 00 1E 24 9D 08 8B 28 58 B3 33 37 29 |RROW..$...(X.37)|
00001C00: B0 28 58 B2 33 32 29 89 32 32 38 30 3A 8F 20 43 |.(X.32).2280:. C|
00001C10: 4F 4E 54 49 4E 55 45 20 54 49 4D 49 4E 47 00 31 |ONTINUE TIMING.1|
00001C20: 24 A2 08 8D 38 30 3A 41 46 54 24 28 4B 29 B2 4C |$...80:AFT$(K).L|
00001C30: 24 00 40 24 A3 08 8B 20 51 4E B2 31 20 A7 20 8E |$.@$... QN.1 . .|
00001C40: 00 7A 24 AC 08 56 54 25 B2 41 56 3A 8D 33 30 31 |.z$..VT%.AV:.301|
00001C50: 30 30 3A 97 32 31 31 2C 41 48 AB 31 3A 99 4D 53 |00:.211,AH.1:.MS|
00001C60: 47 24 28 4B 29 3B C8 28 45 4C 24 2C 41 48 AA 31 |G$(K);.(EL$,AH.1|
00001C70: 30 AB C2 28 32 31 31 29 29 3B 00 AA 24 AD 08 8B |0..(211));..$...|
00001C80: C8 28 42 45 46 24 28 4B 29 2C 33 29 B2 C8 28 41 |.(BEF$(K),3)..(A|
00001C90: 46 54 24 28 4B 29 2C 33 29 A7 99 42 45 46 24 28 |FT$(K),3)..BEF$(|
00001CA0: 4B 29 3B 3A 8D 33 30 32 30 30 00 CC 24 B6 08 4B |K);:.30200..$..K|
00001CB0: B2 4B AA 31 3A 8B 51 55 49 54 B2 31 A7 4B B2 48 |.K.1:.QUIT.1.K.H|
00001CC0: 49 47 48 AA 31 3A 51 55 49 54 B2 30 00 D6 24 C0 |IGH.1:QUIT.0..$.|
00001CD0: 08 50 52 54 B2 31 00 DF 24 CA 08 9E 20 4D 55 00 |.PRT.1..$... MU.|
00001CE0: F7 24 D4 08 8D 20 37 35 3A 8F 20 52 45 53 45 54 |.$... 75:. RESET|
00001CF0: 20 53 54 52 4F 42 45 00 09 25 DE 08 8B 4B B1 48 | STROBE..%...K.H|
00001D00: 49 47 48 A7 8D 32 33 31 30 00 1A 25 E8 08 8B 43 |IGH..2310..%...C|
00001D10: 24 B2 22 59 22 89 32 33 30 30 00 36 25 F2 08 89 |$."Y".2300.6%...|
00001D20: 32 31 34 30 3A 8F 20 42 41 43 4B 20 54 4F 20 54 |2140:. BACK TO T|
00001D30: 48 45 20 54 4F 50 00 43 25 FC 08 51 55 49 54 B2 |HE TOP.C%..QUIT.|
00001D40: 30 3A 8E 00 5B 25 06 09 8F 20 41 4E 59 20 4D 4F |0:..[%... ANY MO|
00001D50: 52 45 20 43 48 41 4E 47 45 53 3F 00 66 25 10 09 |RE CHANGES?.f%..|
00001D60: 4B B2 48 49 47 48 00 97 25 1A 09 99 C8 28 56 54 |K.HIGH..%....(VT|
00001D70: 24 2C 32 33 29 3B 3A 99 C8 28 45 4C 24 2C 33 39 |$,23);:..(EL$,39|
00001D80: 29 3B 3A 8F 20 20 43 4C 45 41 52 20 54 4F 2D 45 |);:. CLEAR TO-E|
00001D90: 4E 44 2D 4F 46 2D 4C 00 BA 25 24 09 56 54 25 B2 |ND-OF-L..%$.VT%.|
00001DA0: 32 35 3A 8D 33 30 31 30 30 3A 99 22 91 22 3B 3A |25:.30100:.".";:|
00001DB0: 97 32 31 31 2C 30 3A 9E 4D 55 00 F1 25 25 09 99 |.211,0:.MU..%%..|
00001DC0: 22 41 52 45 20 59 4F 55 20 46 49 4E 49 53 48 45 |"ARE YOU FINISHE|
00001DD0: 44 20 4D 41 4B 49 4E 47 20 45 4E 54 52 49 45 53 |D MAKING ENTRIES|
00001DE0: 3F 20 28 59 2F 4E 29 20 22 3B 3A 8D 33 30 32 30 |? (Y/N) ";:.3020|
00001DF0: 30 00 0F 26 2E 09 56 54 25 B2 32 34 3A 8D 33 30 |0..&..VT%.24:.30|
00001E00: 31 30 30 3A 97 32 31 31 2C 33 39 3A 8D 37 31 00 |100:.211,39:.71.|
00001E10: 1E 26 2F 09 8B 20 51 4E B2 31 20 A7 20 8E 00 56 |.&/.. QN.1 . ..V|
00001E20: 26 38 09 8B 43 24 B2 22 59 22 89 32 33 39 30 3A |&8..C$."Y".2390:|
00001E30: 8F 20 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E |. RETURN TO MAIN|
00001E40: 20 50 4F 52 54 49 4F 4E 20 4F 46 20 53 55 42 52 | PORTION OF SUBR|
00001E50: 4F 55 54 49 4E 45 00 70 26 3D 09 8B 43 24 B2 C7 |OUTINE.p&=..C$..|
00001E60: 28 31 37 29 A7 4B B2 4C 4F 57 3A 89 32 33 38 30 |(17).K.LOW:.2380|
00001E70: 00 8A 26 42 09 8B 43 24 B2 22 4E 22 B0 43 24 B2 |..&B..C$."N".C$.|
00001E80: C7 28 39 34 29 89 32 33 38 30 00 94 26 47 09 89 |.(94).2380..&G..|
00001E90: 32 33 35 30 00 AC 26 4C 09 99 C8 28 56 54 24 2C |2350..&L...(VT$,|
00001EA0: 32 33 29 3B 3A 99 22 12 5E 92 22 3B 00 C8 26 4D |23);:.".^.";..&M|
00001EB0: 09 99 22 20 46 4F 52 20 50 52 45 56 49 4F 55 53 |.." FOR PREVIOUS|
00001EC0: 20 4C 49 4E 45 3B 20 22 00 06 27 51 09 56 54 25 | LINE; "..'Q.VT%|
00001ED0: B2 32 34 3A 8D 33 30 31 30 30 3A 99 22 4D 41 4B |.24:.30100:."MAK|
00001EE0: 45 20 43 48 41 4E 47 45 53 20 41 4E 44 20 52 45 |E CHANGES AND RE|
00001EF0: 54 55 52 4E 20 50 41 53 54 20 4C 41 53 54 20 45 |TURN PAST LAST E|
00001F00: 4E 54 52 59 22 3B 00 0C 27 56 09 8E 00 26 27 60 |NTRY";..'V...&'`|
00001F10: 09 8F 20 48 49 47 48 4C 49 47 48 54 20 4E 45 58 |.. HIGHLIGHT NEX|
00001F20: 54 20 4C 49 4E 45 00 35 27 6A 09 41 48 B2 4C 4D |T LINE.5'j.AH.LM|
00001F30: 41 52 47 49 4E 00 55 27 74 09 8B 28 4B AB 4C 4F |ARGIN.U't..(K.LO|
00001F40: 57 29 B1 B2 44 46 52 A7 41 48 B2 4C 4D 41 52 47 |W)..DFR.AH.LMARG|
00001F50: 49 4E AA 32 31 00 68 27 7E 09 41 56 B2 32 AC 28 |IN.21.h'~.AV.2.(|
00001F60: 4B AB 4C 4F 57 29 AA 33 00 90 27 7F 09 8B 28 4B |K.LOW).3..'...(K|
00001F70: AB 4C 4F 57 29 B1 B2 44 46 52 A7 41 56 B2 32 AC |.LOW)..DFR.AV.2.|
00001F80: 28 4B AB 4C 4F 57 AB 4F 46 46 53 45 54 29 AA 31 |(K.LOW.OFFSET).1|
00001F90: 00 C3 27 88 09 56 54 25 B2 41 56 3A 8D 33 30 31 |..'..VT%.AV:.301|
00001FA0: 30 30 3A 97 32 31 31 2C 41 48 AB 31 3A 99 C7 28 |00:.211,AH.1:..(|
00001FB0: 31 38 29 3B 4D 53 47 24 28 4B 29 3B C7 28 31 34 |18);MSG$(K);.(14|
00001FC0: 36 29 3B 00 D7 27 92 09 99 A3 41 48 AA 36 29 3B |6);..'....AH.6);|
00001FD0: 22 2D 2D 3E 20 22 3B 00 E1 27 9C 09 50 52 54 B2 |"--> ";..'..PRT.|
00001FE0: 30 00 E7 27 A6 09 8E 00 FF 27 C4 09 8F 20 42 41 |0..'.....'... BA|
00001FF0: 43 4B 53 50 41 43 45 20 48 41 4E 44 4C 45 52 00 |CKSPACE HANDLER.|
00002000: 39 28 CE 09 56 54 25 B2 41 56 3A 8D 33 30 31 30 |9(..VT%.AV:.3010|
00002010: 30 3A 97 32 31 31 2C 41 48 AB 31 3A 99 4D 53 47 |0:.211,AH.1:.MSG|
00002020: 24 28 4B 29 3B C8 28 45 4C 24 2C 41 48 AA 31 30 |$(K);.(EL$,AH.10|
00002030: AB C2 28 32 31 31 29 29 3B 00 43 28 D8 09 4B B2 |..(211));.C(..K.|
00002040: 4B AB 31 00 6F 28 E2 09 8B 4B B3 4C 4F 57 A7 4B |K.1.o(...K.LOW.K|
00002050: B2 4C 4F 57 3A 8F 20 50 52 45 56 45 4E 54 20 4F |.LOW:. PREVENT O|
00002060: 46 46 2D 53 43 52 45 45 4E 20 45 52 52 4F 52 00 |FF-SCREEN ERROR.|
00002070: 75 28 EC 09 8E 00 A6 28 54 0B 53 45 43 B2 53 45 |u(.....(T.SEC.SE|
00002080: 43 AA 32 AC 28 53 45 43 B2 30 29 3A 81 58 B2 31 |C.2.(SEC.0):.X.1|
00002090: A4 53 45 43 AC 37 35 3A A1 20 43 24 3A 8D 39 36 |.SEC.75:. C$:.96|
000020A0: 30 30 3A 82 3A 8E 00 CC 28 8C 0B 8D 33 30 31 30 |00:.:...(...3010|
000020B0: 30 3A 97 32 31 31 2C 34 30 AB 58 3A 99 C8 28 46 |0:.211,40.X:..(F|
000020C0: 49 4C 45 24 2C 58 29 3B 22 20 22 3B 00 E5 28 8D |ILE$,X);" ";..(.|
000020D0: 0B 8F 20 43 4C 49 43 4B 20 53 50 45 41 4B 45 52 |.. CLICK SPEAKER|
000020E0: 20 4F 4E 43 45 00 ED 28 8E 0B 82 3A 8E 00 00 29 | ONCE..(...:...)|
000020F0: A4 0B 8F 20 43 45 4E 54 45 52 20 53 4C 49 44 45 |... CENTER SLIDE|
00002100: 00 28 29 A9 0B 4C B2 C2 28 32 31 34 29 3A 81 58 |.()..L..(214):.X|
00002110: B2 31 A4 31 39 AA C3 28 46 49 4C 45 24 29 AD 32 |.1.19..(FILE$).2|
00002120: 3A 56 54 25 B2 4C AA 31 00 3C 29 AE 0B 8F 20 43 |:VT%.L.1.<)... C|
00002130: 45 4E 54 45 52 20 53 54 52 49 4E 47 00 61 29 B3 |ENTER STRING.a).|
00002140: 0B 99 A3 B5 28 28 34 30 AB C3 28 46 49 4C 45 24 |....((40..(FILE$|
00002150: 29 29 AD 32 29 29 3B 46 49 4C 45 24 3B A3 34 30 |)).2));FILE$;.40|
00002160: 29 00 6E 29 B4 0B 97 32 31 31 2C 30 3A 8E 00 82 |).n)...211,0:...|
00002170: 29 B8 0B 8F 20 52 45 43 41 4C 4C 20 54 45 53 54 |)... RECALL TEST|
00002180: 45 52 00 AC 29 C2 0B 41 4E 53 B2 30 3A 8F 20 5A |ER..)..ANS.0:. Z|
00002190: 45 52 4F 20 54 48 45 20 23 20 4F 46 20 43 4F 52 |ERO THE # OF COR|
000021A0: 52 45 43 54 20 41 4E 53 57 45 52 53 00 B7 29 CC |RECT ANSWERS..).|
000021B0: 0B 8D 31 33 30 30 30 00 DA 29 D6 0B 8D 33 33 30 |..13000..)...330|
000021C0: 30 3A 8F 20 52 45 4D 4F 56 45 20 54 52 41 49 4C |0:. REMOVE TRAIL|
000021D0: 49 4E 47 20 42 4C 41 4E 4B 53 00 04 2A E0 0B 8F |ING BLANKS..*...|
000021E0: 20 44 49 53 50 4C 41 59 20 43 4F 52 52 45 43 54 | DISPLAY CORRECT|
000021F0: 20 26 20 49 4E 43 4F 52 52 45 43 54 20 41 4E 53 | & INCORRECT ANS|
00002200: 57 45 52 53 00 39 2A EA 0B 46 49 4C 45 24 B2 22 |WERS.9*..FILE$."|
00002210: 59 4F 55 52 20 54 45 53 54 20 52 45 53 55 4C 54 |YOUR TEST RESULT|
00002220: 53 22 3A 99 C7 28 31 38 29 3B 3A 8D 32 39 39 30 |S":..(18);:.2990|
00002230: 3A 99 C7 28 31 34 36 29 3B 00 68 2A F4 0B 56 54 |:..(146);.h*..VT|
00002240: 25 B2 33 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C |%.3:.30100:.211,|
00002250: 35 3A 99 22 43 4F 52 52 45 43 54 22 3B A6 31 34 |5:."CORRECT";.14|
00002260: 29 3B 22 59 4F 55 52 22 00 99 2A FE 0B 56 54 25 |);"YOUR"..*..VT%|
00002270: B2 34 3A 8D 33 30 31 30 30 3A 99 A3 35 29 3B 22 |.4:.30100:..5);"|
00002280: 52 45 53 50 4F 4E 53 45 22 3B A3 32 34 29 3B 22 |RESPONSE";.24);"|
00002290: 52 45 53 50 4F 4E 53 45 22 00 B1 2A 08 0C 81 49 |RESPONSE"..*...I|
000022A0: B2 30 A4 37 3A 99 22 2D 2D 2D 2D 2D 22 3B 3A 82 |.0.7:."-----";:.|
000022B0: 49 00 C3 2A 12 0C 99 3A 81 49 B2 4C 4F 57 A4 48 |I..*...:.I.LOW.H|
000022C0: 49 47 48 00 FD 2A 1C 0C 8B 42 45 46 24 28 49 29 |IGH..*...BEF$(I)|
000022D0: B2 22 22 A7 42 45 46 24 28 49 29 B2 22 20 22 3A |."".BEF$(I)." ":|
000022E0: 8F 20 53 4B 49 50 20 54 48 49 53 20 4F 4E 45 20 |. SKIP THIS ONE |
000022F0: 49 46 20 49 54 27 53 20 42 4C 41 4E 4B 00 0F 2B |IF IT'S BLANK..+|
00002300: 26 0C 99 4D 53 47 24 28 49 29 3B A3 38 29 3B 00 |&..MSG$(I);.8);.|
00002310: 34 2B 30 0C 8B C8 28 42 45 46 24 28 49 29 2C 33 |4+0...(BEF$(I),3|
00002320: 29 B3 B1 C8 28 41 46 54 24 28 49 29 2C 33 29 A7 |)...(AFT$(I),3).|
00002330: 33 31 33 30 00 68 2B 31 0C 99 C8 28 42 45 46 24 |3130.h+1...(BEF$|
00002340: 28 49 29 2C 31 34 29 3B 3A 41 4E 53 B2 41 4E 53 |(I),14);:ANS.ANS|
00002350: AA 31 3A 41 46 54 24 28 49 29 B2 42 45 46 24 28 |.1:AFT$(I).BEF$(|
00002360: 49 29 3A 89 33 31 34 30 00 89 2B 3A 0C 99 C7 28 |I):.3140..+:...(|
00002370: 31 38 29 3B C8 28 42 45 46 24 28 49 29 2C 31 34 |18);.(BEF$(I),14|
00002380: 29 3B C7 28 31 34 36 29 3B 00 A4 2B 44 0C 97 32 |);.(146);..+D..2|
00002390: 31 31 2C 32 33 3A 99 C8 28 41 46 54 24 28 49 29 |11,23:..(AFT$(I)|
000023A0: 2C 31 34 29 00 AB 2B 4E 0C 82 49 00 CD 2B 58 0C |,14)..+N..I..+X.|
000023B0: 58 B2 B5 28 31 30 30 AC 41 4E 53 AD 28 48 49 47 |X..(100.ANS.(HIG|
000023C0: 48 AB 4C 4F 57 AA 31 29 AA 30 2E 35 29 00 F8 2B |H.LOW.1).0.5)..+|
000023D0: 62 0C 99 3A 99 22 59 4F 55 20 52 45 4D 45 4D 42 |b..:."YOU REMEMB|
000023E0: 45 52 45 44 20 22 3B C7 28 31 38 29 3B 41 4E 53 |ERED ";.(18);ANS|
000023F0: 3B C7 28 31 34 36 29 3B 00 23 2C 63 0C 99 22 20 |;.(146);.#,c.." |
00002400: 43 4F 52 52 45 43 54 4C 59 2C 20 4F 52 20 22 3B |CORRECTLY, OR ";|
00002410: C7 28 31 38 29 3B 58 3B 22 9D 25 22 C7 28 31 34 |.(18);X;".%".(14|
00002420: 36 29 3B 00 2D 2C 6C 0C 8D 39 35 30 30 00 33 2C |6);.-,l..9500.3,|
00002430: 80 0C 8E 00 58 2C E4 0C 8F 20 52 45 4D 4F 56 45 |....X,... REMOVE|
00002440: 20 54 52 41 49 4C 49 4E 47 20 42 4C 41 4E 4B 53 | TRAILING BLANKS|
00002450: 20 49 4E 20 41 46 54 24 00 68 2C EE 0C 81 49 B2 | IN AFT$.h,...I.|
00002460: 4C 4F 57 A4 48 49 47 48 00 85 2C F8 0C 58 B2 C3 |LOW.HIGH..,..X..|
00002470: 28 41 46 54 24 28 49 29 29 AB 31 3A 8B 58 B2 30 |(AFT$(I)).1:.X.0|
00002480: 89 33 33 35 30 00 B6 2C 02 0D 8B C9 28 41 46 54 |.3350..,....(AFT|
00002490: 24 28 49 29 2C 31 29 B2 22 20 22 A7 41 46 54 24 |$(I),1)." ".AFT$|
000024A0: 28 49 29 B2 C8 28 41 46 54 24 28 49 29 2C 58 29 |(I)..(AFT$(I),X)|
000024B0: 3A 89 33 33 32 30 00 E7 2C 0C 0D 8B C8 28 41 46 |:.3320..,....(AF|
000024C0: 54 24 28 49 29 2C 31 29 B2 22 20 22 A7 41 46 54 |T$(I),1)." ".AFT|
000024D0: 24 28 49 29 B2 C9 28 41 46 54 24 28 49 29 2C 58 |$(I)..(AFT$(I),X|
000024E0: 29 3A 89 33 33 32 30 00 F0 2C 16 0D 82 49 3A 8E |):.3320..,...I:.|
000024F0: 00 08 2D 74 0E 8F 20 57 49 4E 4E 45 52 27 53 20 |..-t.. WINNER'S |
00002500: 4D 45 53 53 41 47 45 53 00 1F 2D 7E 0E 8B 41 4E |MESSAGES..-~..AN|
00002510: 53 B3 30 2E 37 AC 54 4D 41 58 89 33 37 39 30 00 |S.0.7.TMAX.3790.|
00002520: 55 2D 88 0E 99 C7 28 31 34 37 29 3B 3A 56 54 25 |U-....(147);:VT%|
00002530: B2 39 3A 8D 33 30 31 30 30 3A 46 49 4C 45 24 B2 |.9:.30100:FILE$.|
00002540: 22 2D 2D 43 4F 4E 47 52 41 54 55 4C 41 54 49 4F |"--CONGRATULATIO|
00002550: 4E 53 2D 2D 22 00 63 2D 89 0E 8D 32 39 39 30 3A |NS--".c-...2990:|
00002560: 99 3A 99 00 99 2D 92 0E 8B 41 4E 53 B2 54 4D 41 |.:...-...ANS.TMA|
00002570: 58 A7 46 49 4C 45 24 B2 22 59 4F 55 52 20 4D 45 |X.FILE$."YOUR ME|
00002580: 4D 4F 52 59 20 57 41 53 20 50 45 52 46 45 43 54 |MORY WAS PERFECT|
00002590: 21 21 22 3A 89 33 37 36 30 00 D5 2D 9C 0E 8B 41 |!!":.3760..-...A|
000025A0: 4E 53 B1 B2 30 2E 39 AC 54 4D 41 58 A7 46 49 4C |NS..0.9.TMAX.FIL|
000025B0: 45 24 B2 22 59 4F 55 52 20 4D 45 4D 4F 52 59 20 |E$."YOUR MEMORY |
000025C0: 57 41 53 20 45 58 43 45 4C 4C 45 4E 54 21 22 3A |WAS EXCELLENT!":|
000025D0: 89 33 37 36 30 00 11 2E A6 0E 8B 41 4E 53 B1 B2 |.3760......ANS..|
000025E0: 30 2E 38 AC 54 4D 41 58 A7 46 49 4C 45 24 B2 22 |0.8.TMAX.FILE$."|
000025F0: 59 4F 55 52 20 4D 45 4D 4F 52 59 20 57 41 53 20 |YOUR MEMORY WAS |
00002600: 56 45 52 59 20 47 4F 4F 44 21 22 3A 89 33 37 36 |VERY GOOD!":.376|
00002610: 30 00 4E 2E AB 0E 8B 41 4E 53 B1 B2 30 2E 37 AC |0.N....ANS..0.7.|
00002620: 54 4D 41 58 A7 46 49 4C 45 24 B2 22 59 4F 55 52 |TMAX.FILE$."YOUR|
00002630: 20 4D 45 4D 4F 52 59 20 57 41 53 20 47 4F 4F 44 | MEMORY WAS GOOD|
00002640: 2E 20 4B 45 45 50 20 49 54 20 55 50 21 22 00 7C |. KEEP IT UP!".||
00002650: 2E B0 0E 8D 32 39 39 30 3A 46 49 4C 45 24 B2 22 |....2990:FILE$."|
00002660: 38 37 38 36 38 37 38 35 38 37 38 34 38 37 38 33 |8786878587848783|
00002670: 35 36 35 34 22 3A 8D 31 36 30 30 30 00 A6 2E B1 |5654":.16000....|
00002680: 0E 46 49 4C 45 24 B2 22 35 36 35 33 35 36 35 32 |.FILE$."56535652|
00002690: 39 33 39 34 39 35 39 36 39 37 39 39 38 31 22 3A |93949596979981":|
000026A0: 8D 31 36 30 30 30 00 B0 2E BA 0E 8D 39 35 30 30 |.16000......9500|
000026B0: 00 BF 2E BB 0E 8B 20 51 4E B2 31 20 A7 20 8E 00 |...... QN.1 . ..|
000026C0: DA 2E CE 0E 99 C7 28 31 34 37 29 3B 3A 56 54 25 |......(147);:VT%|
000026D0: B2 31 32 3A 8D 33 30 31 30 30 00 09 2F CF 0E 99 |.12:.30100../...|
000026E0: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 |"DO YOU WANT TO |
000026F0: 42 45 20 54 45 53 54 45 44 20 41 47 41 49 4E 3F |BE TESTED AGAIN?|
00002700: 20 28 59 2F 4E 29 20 22 3B 00 26 2F D3 0E 8D 37 | (Y/N) ";.&/...7|
00002710: 31 3A 8B 28 43 24 B2 22 59 22 29 B0 28 43 24 B2 |1:.(C$."Y").(C$.|
00002720: 22 4E 22 29 A7 8E 00 35 2F D4 0E 8B 20 51 4E B2 |"N")...5/... QN.|
00002730: 31 20 A7 20 8E 00 3F 2F D7 0E 89 33 37 39 35 00 |1 . ..?/...3795.|
00002740: 55 2F D8 0E 8F 20 4C 4F 53 45 52 27 53 20 4D 45 |U/... LOSER'S ME|
00002750: 53 53 41 47 45 00 6A 2F E2 0E 8B 41 4E 53 B1 B2 |SSAGE.j/...ANS..|
00002760: 30 2E 37 AC 54 4D 41 58 A7 8E 00 84 2F 00 0F 46 |0.7.TMAX..../..F|
00002770: 49 4C 45 24 B2 22 46 41 49 4C 55 52 45 22 3A 8D |ILE$."FAILURE":.|
00002780: 37 35 30 30 00 8A 2F 0A 0F 8E 00 A5 2F 88 13 8F |7500../...../...|
00002790: 20 52 45 43 41 4C 4C 20 4E 41 4D 45 53 20 26 20 | RECALL NAMES & |
000027A0: 46 41 43 45 53 00 AF 2F 92 13 41 4E 53 B2 30 00 |FACES../..ANS.0.|
000027B0: E1 2F 9C 13 58 4D 41 58 B2 54 4D 41 58 3A 58 4E |./..XMAX.TMAX:XN|
000027C0: 55 4D B2 54 4D 41 58 3A 8D 31 35 30 30 3A 8F 20 |UM.TMAX:.1500:. |
000027D0: 52 41 4E 44 4F 4D 20 52 45 2D 44 49 53 50 4C 41 |RANDOM RE-DISPLA|
000027E0: 59 00 EF 2F A6 13 81 49 B2 31 A4 54 4D 41 58 00 |Y../...I.1.TMAX.|
000027F0: 04 30 B0 13 5A B2 4E 46 25 28 31 2C 52 44 52 25 |.0..Z.NF%(1,RDR%|
00002800: 28 49 29 29 00 13 30 BA 13 8F 20 58 3D 46 52 45 |(I))..0... X=FRE|
00002810: 28 30 29 00 4C 30 C4 13 46 49 4C 45 24 B2 22 46 |(0).L0..FILE$."F|
00002820: 41 43 45 22 AA C9 28 C4 28 5A 29 2C C3 28 C4 28 |ACE"..(.(Z),.(.(|
00002830: 5A 29 29 AB 31 29 3A 8D 36 35 30 30 3A 8F 20 48 |Z)).1):.6500:. H|
00002840: 49 52 45 53 20 44 49 53 50 4C 41 59 00 5E 30 CE |IRES DISPLAY.^0.|
00002850: 13 56 54 25 B2 32 34 3A 8D 33 30 31 30 30 00 84 |.VT%.24:.30100..|
00002860: 30 CF 13 99 22 45 4E 54 45 52 20 4E 41 4D 45 20 |0..."ENTER NAME |
00002870: 41 4E 44 20 50 52 45 53 53 20 3C 52 45 54 55 52 |AND PRESS <RETUR|
00002880: 4E 3E 22 3B 00 B3 30 D8 13 56 54 25 B2 32 32 3A |N>";..0..VT%.22:|
00002890: 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 3A 99 C7 |.30100:.211,0:..|
000028A0: 28 31 38 29 3B 22 4E 41 4D 45 22 3B C7 28 31 34 |(18);"NAME";.(14|
000028B0: 36 29 3B 00 D9 30 D9 13 99 22 20 2D 2D 3E 20 2E |6);..0..." --> .|
000028C0: 2E 2E 2E 22 3A 56 54 25 B2 32 32 3A 8D 33 30 31 |...":VT%.22:.301|
000028D0: 30 30 3A 97 32 31 31 2C 39 00 F3 30 E2 13 81 58 |00:.211,9..0...X|
000028E0: 59 B2 31 A4 31 30 3A A1 58 58 24 3A 82 58 59 3A |Y.1.10:.XX$:.XY:|
000028F0: 8D 37 33 00 02 31 E3 13 8B 20 51 4E B2 31 20 A7 |.73..1... QN.1 .|
00002900: 20 8E 00 15 31 EC 13 8D 38 30 3A 41 46 54 24 28 | ...1...80:AFT$(|
00002910: 49 29 B2 4C 24 00 24 31 ED 13 8B 20 51 4E B2 31 |I).L$.$1... QN.1|
00002920: 20 A7 20 8E 00 3C 31 F6 13 9E 20 34 39 31 35 35 | . ..<1... 49155|
00002930: 3A 99 C7 28 31 34 37 29 3B 3A 82 49 00 58 31 00 |:..(147);:.I.X1.|
00002940: 14 4C 4F 57 B2 31 3A 48 49 47 48 B2 54 4D 41 58 |.LOW.1:HIGH.TMAX|
00002950: 3A 8D 33 33 30 30 3A 8E 00 75 31 7C 15 8F 20 43 |:.3300:..u1|.. C|
00002960: 4F 52 52 45 43 54 20 41 4E 53 57 45 52 20 44 49 |ORRECT ANSWER DI|
00002970: 53 50 4C 41 59 00 82 31 86 15 99 C7 28 31 34 37 |SPLAY..1....(147|
00002980: 29 3B 00 AB 31 90 15 4C 4F 57 B2 31 3A 48 49 47 |);..1..LOW.1:HIG|
00002990: 48 B2 54 4D 41 58 3A 8D 33 33 30 30 3A 8F 20 53 |H.TMAX:.3300:. S|
000029A0: 54 52 49 50 20 42 4C 41 4E 4B 53 00 E0 31 9A 15 |TRIP BLANKS..1..|
000029B0: 46 49 4C 45 24 B2 22 59 4F 55 52 20 54 45 53 54 |FILE$."YOUR TEST|
000029C0: 20 52 45 53 55 4C 54 53 22 3A 99 C7 28 31 38 29 | RESULTS":..(18)|
000029D0: 3B 3A 8D 32 39 39 30 3A 99 C7 28 31 34 36 29 3B |;:.2990:..(146);|
000029E0: 00 0F 32 A4 15 56 54 25 B2 33 3A 8D 33 30 31 30 |..2..VT%.3:.3010|
000029F0: 30 3A 97 32 31 31 2C 38 3A 99 22 43 4F 52 52 45 |0:.211,8:."CORRE|
00002A00: 43 54 22 3B A3 32 34 29 3B 22 59 4F 55 52 22 00 |CT";.24);"YOUR".|
00002A10: 36 32 A5 15 97 32 31 31 2C 38 3A 99 22 52 45 53 |62...211,8:."RES|
00002A20: 50 4F 4E 53 45 22 3B A3 32 34 29 3B 22 52 45 53 |PONSE";.24);"RES|
00002A30: 50 4F 4E 53 45 22 00 4C 32 AE 15 81 49 B2 31 A4 |PONSE".L2...I.1.|
00002A40: 33 39 3A 99 22 2D 22 3B 3A 82 3A 99 00 5A 32 B8 |39:."-";:.:..Z2.|
00002A50: 15 81 49 B2 31 A4 54 4D 41 58 00 84 32 C2 15 8B |..I.1.TMAX..2...|
00002A60: C8 28 41 46 54 24 28 49 29 2C 33 29 B2 C8 28 42 |.(AFT$(I),3)..(B|
00002A70: 45 46 24 28 52 44 52 25 28 49 29 29 2C 33 29 A7 |EF$(RDR%(I)),3).|
00002A80: 35 35 38 30 00 B8 32 C3 15 97 32 31 31 2C 39 3A |5580..2...211,9:|
00002A90: 99 C7 28 31 38 29 3B 42 45 46 24 28 52 44 52 25 |..(18);BEF$(RDR%|
00002AA0: 28 49 29 29 3B C7 28 31 34 36 29 3B A3 32 35 29 |(I));.(146);.25)|
00002AB0: 3B 41 46 54 24 28 49 29 00 C2 32 C4 15 89 35 35 |;AFT$(I)..2...55|
00002AC0: 39 30 00 F7 32 CC 15 41 4E 53 B2 41 4E 53 AA 31 |90..2..ANS.ANS.1|
00002AD0: 3A 99 A3 31 30 29 3B 42 45 46 24 28 52 44 52 25 |:..10);BEF$(RDR%|
00002AE0: 28 49 29 29 3B A3 32 35 29 3B 42 45 46 24 28 52 |(I));.25);BEF$(R|
00002AF0: 44 52 25 28 49 29 29 00 FE 32 D6 15 82 49 00 21 |DR%(I))..2...I.!|
00002B00: 33 E0 15 58 B2 B5 28 28 31 30 30 AC 41 4E 53 AD |3..X..((100.ANS.|
00002B10: 54 4D 41 58 29 AA 30 2E 35 29 3A 41 58 B2 41 4E |TMAX).0.5):AX.AN|
00002B20: 53 00 4C 33 EA 15 99 3A 99 22 59 4F 55 20 52 45 |S.L3...:."YOU RE|
00002B30: 4D 45 4D 42 45 52 45 44 20 22 3B C7 28 31 38 29 |MEMBERED ";.(18)|
00002B40: 3B 41 4E 53 3B C7 28 31 34 36 29 3B 00 76 33 EB |;ANS;.(146);.v3.|
00002B50: 15 99 22 20 43 4F 52 52 45 43 54 4C 59 2C 20 4F |.." CORRECTLY, O|
00002B60: 52 20 22 3B C7 28 31 38 29 3B 58 3B 22 25 22 3B |R ";.(18);X;"%";|
00002B70: C7 28 31 34 36 29 00 9A 33 F4 15 8B 53 4B 49 50 |.(146)..3...SKIP|
00002B80: B2 31 89 35 36 36 30 3A 8F 20 46 4F 52 20 49 4E |.1.5660:. FOR IN|
00002B90: 54 52 4F 44 55 43 54 49 4F 4E 00 C4 33 FE 15 56 |TRODUCTION..3..V|
00002BA0: 54 25 B2 32 31 3A 8D 33 30 31 30 30 3A 97 32 31 |T%.21:.30100:.21|
00002BB0: 31 2C 30 3A 99 22 59 4F 55 52 20 53 43 4F 52 45 |1,0:."YOUR SCORE|
00002BC0: 3A 20 22 3B 00 DD 33 FF 15 99 C7 28 31 38 29 3B |: ";..3....(18);|
00002BD0: 53 43 AC 41 58 3B C7 28 31 34 36 29 3B 00 08 34 |SC.AX;.(146);..4|
00002BE0: 08 16 8B 41 58 AC 53 43 B1 54 53 A7 54 53 B2 41 |...AX.SC.TS.TS.A|
00002BF0: 58 AC 53 43 3A 97 32 31 31 2C 31 39 3A 99 C7 28 |X.SC:.211,19:..(|
00002C00: 37 29 3B C7 28 37 29 3B 00 40 34 09 16 46 49 4C |7);.(7);.@4..FIL|
00002C10: 45 24 B2 22 48 49 47 48 45 53 54 20 53 43 4F 52 |E$."HIGHEST SCOR|
00002C20: 45 3A 20 22 AA C4 28 54 53 29 3A 53 45 43 B2 34 |E: "..(TS):SEC.4|
00002C30: 3A 8D 33 30 30 30 30 3A 99 C7 28 31 34 36 29 3B |:.30000:..(146);|
00002C40: 00 4F 34 0A 16 8B 20 51 4E B2 31 20 A7 20 8E 00 |.O4... QN.1 . ..|
00002C50: 7E 34 12 16 97 32 31 31 2C 31 39 3A 99 22 48 49 |~4...211,19:."HI|
00002C60: 47 48 45 53 54 20 53 43 4F 52 45 3A 20 22 3B C7 |GHEST SCORE: ";.|
00002C70: 28 31 38 29 3B 54 53 3B C7 28 31 34 36 29 00 88 |(18);TS;.(146)..|
00002C80: 34 1C 16 8D 39 35 30 30 00 97 34 1D 16 8B 20 51 |4...9500..4... Q|
00002C90: 4E B2 31 20 A7 20 8E 00 C2 34 26 16 8B 53 4B 49 |N.1 . ...4&..SKI|
00002CA0: 50 B2 31 89 35 36 39 30 3A 8F 20 47 4F 20 42 41 |P.1.5690:. GO BA|
00002CB0: 43 4B 20 54 4F 20 49 4E 54 52 4F 44 55 43 54 49 |CK TO INTRODUCTI|
00002CC0: 4F 4E 00 E8 34 30 16 8D 33 37 30 30 3A 8F 20 57 |ON..40..3700:. W|
00002CD0: 49 4E 4E 45 52 53 20 26 20 4C 4F 53 45 52 53 20 |INNERS & LOSERS |
00002CE0: 4D 45 53 53 41 47 45 53 00 EE 34 3A 16 8E 00 02 |MESSAGES..4:....|
00002CF0: 35 70 17 8F 20 44 49 53 50 4C 41 59 20 46 41 43 |5p.. DISPLAY FAC|
00002D00: 45 53 00 35 35 7A 17 58 4D 41 58 B2 54 4D 41 58 |ES.55z.XMAX.TMAX|
00002D10: 3A 58 4E 55 4D B2 32 30 3A 8D 31 35 30 30 3A 8F |:XNUM.20:.1500:.|
00002D20: 20 52 41 4E 44 4F 4D 20 46 41 43 45 20 53 45 4C | RANDOM FACE SEL|
00002D30: 45 43 54 4F 52 00 6A 35 84 17 81 49 B2 31 A4 54 |ECTOR.j5...I.1.T|
00002D40: 4D 41 58 3A 52 54 44 52 25 28 49 29 B2 52 44 52 |MAX:RTDR%(I).RDR|
00002D50: 25 28 49 29 3A 82 49 3A 8F 20 46 4F 52 20 52 41 |%(I):.I:. FOR RA|
00002D60: 4E 44 4F 4D 20 4E 41 4D 45 53 00 8B 35 8E 17 58 |NDOM NAMES..5..X|
00002D70: 4E 55 4D B2 32 38 3A 8D 31 35 30 30 3A 8F 20 52 |NUM.28:.1500:. R|
00002D80: 41 4E 44 4F 4D 20 46 41 43 45 53 00 99 35 98 17 |ANDOM FACES..5..|
00002D90: 81 49 B2 31 A4 54 4D 41 58 00 B2 35 A2 17 5A B2 |.I.1.TMAX..5..Z.|
00002DA0: 52 44 52 25 28 49 29 3A 59 B2 52 54 44 52 25 28 |RDR%(I):Y.RTDR%(|
00002DB0: 49 29 00 D5 35 AC 17 46 49 4C 45 24 B2 22 46 41 |I)..5..FILE$."FA|
00002DC0: 43 45 22 AA C9 28 C4 28 5A 29 2C C3 28 C4 28 5A |CE"..(.(Z),.(.(Z|
00002DD0: 29 29 AB 31 29 00 FE 35 B6 17 8D 36 35 30 30 3A |)).1)..5...6500:|
00002DE0: 8F 20 4D 41 43 48 49 4E 45 20 4C 41 4E 47 20 44 |. MACHINE LANG D|
00002DF0: 49 53 50 4C 41 59 20 52 4F 55 54 49 4E 45 00 06 |ISPLAY ROUTINE..|
00002E00: 36 C0 17 9E 4D 55 00 38 36 CA 17 8D 36 32 30 30 |6...MU.86...6200|
00002E10: 3A 8F 20 47 45 4E 45 52 41 54 45 20 41 43 54 55 |:. GENERATE ACTU|
00002E20: 41 4C 20 4E 41 4D 45 53 2F 44 41 54 45 53 20 4F |AL NAMES/DATES O|
00002E30: 52 20 50 48 4F 4E 45 53 00 58 36 D4 17 56 54 25 |R PHONES.X6..VT%|
00002E40: B2 32 32 3A 8D 33 30 31 30 30 3A 46 49 4C 45 24 |.22:.30100:FILE$|
00002E50: B2 42 45 46 24 28 49 29 00 6E 36 D5 17 53 45 43 |.BEF$(I).n6..SEC|
00002E60: B2 31 3A 8D 32 39 30 30 3A 8D 32 39 38 30 00 B3 |.1:.2900:.2980..|
00002E70: 36 DE 17 4E 46 25 28 31 2C 49 29 B2 5A 3A 8F 20 |6..NF%(1,I).Z:. |
00002E80: 53 54 4F 52 45 20 41 43 54 55 41 4C 20 46 41 43 |STORE ACTUAL FAC|
00002E90: 45 20 55 53 45 44 3B 20 57 49 4C 4C 20 42 45 20 |E USED; WILL BE |
00002EA0: 50 41 49 52 45 44 20 57 49 54 48 20 42 45 46 24 |PAIRED WITH BEF$|
00002EB0: 28 49 29 00 D0 36 E8 17 8B 50 52 4F 4D 50 54 B2 |(I)..6...PROMPT.|
00002EC0: 31 A7 46 49 4C 45 24 B2 22 22 3A 89 36 31 36 30 |1.FILE$."":.6160|
00002ED0: 00 F6 36 F2 17 8B 28 50 52 4F 4D 50 54 B2 30 29 |..6...(PROMPT.0)|
00002EE0: AF 28 5A B3 B2 31 34 29 A7 46 49 4C 45 24 B2 50 |.(Z..14).FILE$.P|
00002EF0: 45 47 24 28 59 29 00 1E 37 FC 17 8B 28 50 52 4F |EG$(Y)..7...(PRO|
00002F00: 4D 50 54 B2 30 29 AF 28 5A B1 31 34 29 A7 46 49 |MPT.0).(Z.14).FI|
00002F10: 4C 45 24 B2 50 45 47 24 28 59 AA 32 30 29 00 43 |LE$.PEG$(Y.20).C|
00002F20: 37 06 18 97 32 31 31 2C 30 3A 56 54 25 B2 32 34 |7...211,0:VT%.24|
00002F30: 3A 8D 33 30 31 30 30 3A 53 45 43 B2 31 3A 8D 32 |:.30100:SEC.1:.2|
00002F40: 39 30 30 00 69 37 07 18 99 22 50 45 47 20 4E 41 |900.i7..."PEG NA|
00002F50: 4D 45 3A 20 22 3B C7 28 31 38 29 3B 46 49 4C 45 |ME: ";.(18);FILE|
00002F60: 24 3B C7 28 31 34 36 29 3B 00 7D 37 10 18 53 45 |$;.(146);.}7..SE|
00002F70: 43 B2 44 54 49 4D 45 3A 8D 32 39 30 30 00 8C 37 |C.DTIME:.2900..7|
00002F80: 11 18 8B 20 51 4E B2 31 20 A7 20 8E 00 A4 37 1A |... QN.1 . ...7.|
00002F90: 18 9E 20 34 39 31 35 35 3A 99 C7 28 31 34 37 29 |.. 49155:..(147)|
00002FA0: 3B 3A 82 49 00 AA 37 24 18 8E 00 C8 37 38 18 8F |;:.I..7$....78..|
00002FB0: 20 43 4F 52 52 45 43 54 20 4E 41 4D 45 53 20 26 | CORRECT NAMES &|
00002FC0: 20 4E 55 4D 42 45 52 53 00 E3 37 4C 18 8B 5A B3 | NUMBERS..7L..Z.|
00002FD0: B2 31 34 A7 42 45 46 24 28 49 29 B2 4D 45 4E 24 |.14.BEF$(I).MEN$|
00002FE0: 28 59 29 00 FF 37 56 18 8B 5A B1 31 34 A7 42 45 |(Y)..7V..Z.14.BE|
00002FF0: 46 24 28 49 29 B2 57 4F 4D 45 4E 24 28 59 29 00 |F$(I).WOMEN$(Y).|
00003000: 05 38 9B 18 8E 00 1B 38 64 19 8F 20 48 49 52 45 |.8.....8d.. HIRE|
00003010: 53 20 44 49 53 50 4C 41 59 45 52 00 41 38 6E 19 |S DISPLAYER.A8n.|
00003020: 99 C7 28 31 34 37 29 3B 3A 8D 20 36 35 35 30 3A |..(147);:. 6550:|
00003030: 9E 20 34 39 31 35 38 3A 9E 20 34 39 31 35 32 3A |. 49158:. 49152:|
00003040: 8E 00 5F 38 78 19 8F 20 43 41 4C 4C 20 48 49 52 |.._8x.. CALL HIR|
00003050: 45 53 20 4C 4F 41 44 20 52 4F 55 54 49 4E 45 00 |ES LOAD ROUTINE.|
00003060: 72 38 96 19 8F 20 4C 4F 41 44 20 52 4F 55 54 49 |r8... LOAD ROUTI|
00003070: 4E 45 00 94 38 A0 19 9E 20 34 39 31 35 35 3A 4C |NE..8... 49155:L|
00003080: 53 B2 4C 44 AA 33 3A 97 20 4C 53 2C C3 28 46 49 |S.LD.3:. LS,.(FI|
00003090: 4C 45 24 29 00 C4 38 AA 19 81 20 54 B2 31 20 A4 |LE$)..8... T.1 .|
000030A0: 20 C3 28 46 49 4C 45 24 29 3A 97 20 4C 53 AA 54 | .(FILE$):. LS.T|
000030B0: 2C C6 28 CA 28 46 49 4C 45 24 2C 54 2C 31 29 29 |,.(.(FILE$,T,1))|
000030C0: 3A 82 20 54 00 E6 38 B4 19 9E 20 4C 44 3A A0 20 |:. T..8... LD:. |
000030D0: 34 3A 8B 20 28 53 54 20 AF 20 31 39 31 29 20 A7 |4:. (ST . 191) .|
000030E0: 20 31 37 30 30 30 00 EC 38 BE 19 8E 00 02 39 C8 | 17000..8.....9.|
000030F0: 19 8F 20 50 49 43 54 55 52 45 20 44 49 53 50 4C |.. PICTURE DISPL|
00003100: 41 59 00 1A 39 D2 19 8D 36 35 30 30 3A 8D 39 35 |AY..9...6500:.95|
00003110: 30 30 3A 9E 20 34 39 31 35 35 00 29 39 DC 19 99 |00:. 49155.)9...|
00003120: C7 28 31 34 37 29 3B 3A 8E 00 45 39 58 1B 8F 20 |.(147);:..E9X.. |
00003130: 50 45 52 53 4F 4E 41 4C 20 44 49 53 4B 20 53 45 |PERSONAL DISK SE|
00003140: 43 54 49 4F 4E 00 71 39 62 1B 8B 44 53 4B 24 B3 |CTION.q9b..DSK$.|
00003150: B1 22 59 22 A7 8E 3A 8F 20 53 55 42 4A 45 43 54 |."Y"..:. SUBJECT|
00003160: 20 48 41 53 20 4E 4F 20 44 49 53 4B 20 46 49 4C | HAS NO DISK FIL|
00003170: 45 00 91 39 6C 1B 52 57 24 B2 22 52 45 41 44 20 |E..9l.RW$."READ |
00003180: 22 3A 53 44 24 B2 22 41 22 3A 8D 37 32 30 30 3A |":SD$."A":.7200:|
00003190: 8E 00 AE 39 BC 1B 8F 20 57 52 49 54 45 20 54 4F |...9... WRITE TO|
000031A0: 20 50 45 52 53 4F 4E 41 4C 20 44 49 53 4B 00 CD | PERSONAL DISK..|
000031B0: 39 C6 1B 52 57 24 B2 22 57 52 49 54 45 20 22 3A |9..RW$."WRITE ":|
000031C0: 53 44 24 B2 22 41 22 3A 8D 37 34 35 30 00 01 3A |SD$."A":.7450..:|
000031D0: DA 1B 8D 31 33 30 30 30 3A 46 49 4C 45 24 B2 22 |...13000:FILE$."|
000031E0: 4C 4F 41 44 49 4E 47 20 4D 45 4D 4F 52 59 20 54 |LOADING MEMORY T|
000031F0: 52 41 49 4E 45 52 20 4D 41 49 4E 20 4D 45 4E 55 |RAINER MAIN MENU|
00003200: 22 00 2C 3A DB 1B 56 54 25 B2 31 32 3A 8D 33 30 |".,:..VT%.12:.30|
00003210: 31 30 30 3A 8D 32 39 39 30 3A 93 20 22 49 4E 54 |100:.2990:. "INT|
00003220: 52 4F 44 55 43 54 49 4F 4E 22 2C 38 00 44 3A E4 |RODUCTION",8.D:.|
00003230: 1B 89 31 31 30 3A 8F 20 4A 55 53 54 20 49 4E 20 |..110:. JUST IN |
00003240: 43 41 53 45 00 5D 3A 20 1C 8F 20 52 45 41 44 2F |CASE.]: .. READ/|
00003250: 57 52 49 54 45 20 54 4F 20 44 49 53 4B 00 87 3A |WRITE TO DISK..:|
00003260: 2A 1C 8B 44 53 4B 24 B3 B1 22 59 22 89 37 34 33 |*..DSK$.."Y".743|
00003270: 30 3A 8F 20 4E 4F 20 44 49 53 4B 20 46 49 4C 45 |0:. NO DISK FILE|
00003280: 3B 20 4C 45 41 56 45 00 AD 3A 34 1C 43 24 B2 22 |; LEAVE..:4.C$."|
00003290: 55 50 44 41 54 45 22 3A 8B 52 57 24 B2 22 52 45 |UPDATE":.RW$."RE|
000032A0: 41 44 20 22 A7 43 24 B2 22 55 53 45 22 00 C8 3A |AD ".C$."USE"..:|
000032B0: 3E 1C 99 C7 28 31 34 37 29 3B 3A 56 54 25 B2 31 |>...(147);:VT%.1|
000032C0: 30 3A 8D 33 30 31 30 30 00 F3 3A 3F 1C 99 22 44 |0:.30100..:?.."D|
000032D0: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 22 3B |O YOU WANT TO ";|
000032E0: 43 24 3B 22 20 54 48 45 20 50 45 47 20 4E 41 4D |C$;" THE PEG NAM|
000032F0: 45 53 22 00 27 3B 48 1C 56 54 25 B2 31 32 3A 8D |ES".';H.VT%.12:.|
00003300: 33 30 31 30 30 3A 99 22 4F 4E 20 59 4F 55 52 20 |30100:."ON YOUR |
00003310: 50 45 52 53 4F 4E 41 4C 20 44 49 53 4B 3F 20 28 |PERSONAL DISK? (|
00003320: 59 2F 4E 29 20 22 3B 00 33 3B 49 1C 8D 37 31 3A |Y/N) ";.3;I..71:|
00003330: 99 43 24 00 42 3B 4A 1C 8B 20 51 4E B2 31 20 A7 |.C$.B;J.. QN.1 .|
00003340: 20 8E 00 53 3B 52 1C 8B 43 24 B2 22 59 22 89 37 | ..S;R..C$."Y".7|
00003350: 32 39 30 00 7B 3B 5C 1C 8B 28 43 24 B2 22 4E 22 |290.{;\..(C$."N"|
00003360: 29 AF 28 28 53 44 24 B2 22 51 55 49 54 22 29 B0 |).((SD$."QUIT").|
00003370: 28 51 55 49 54 B2 32 29 29 A7 8E 00 96 3B 5D 1C |(QUIT.2))....;].|
00003380: 8F 20 51 55 49 54 20 46 4F 52 20 4E 4F 57 20 53 |. QUIT FOR NOW S|
00003390: 45 43 54 49 4F 4E 00 B4 3B 66 1C 8B 28 43 24 B2 |ECTION..;f..(C$.|
000033A0: 22 4E 22 29 AF 28 52 57 24 B2 22 52 45 41 44 20 |"N").(RW$."READ |
000033B0: 22 29 A7 8E 00 D6 3B 6B 1C 8B 28 43 24 B2 22 4E |")....;k..(C$."N|
000033C0: 22 29 AF 28 52 57 24 B2 22 57 52 49 54 45 20 22 |").(RW$."WRITE "|
000033D0: 29 89 37 34 35 30 00 EA 3B 70 1C 89 37 32 34 30 |).7450..;p..7240|
000033E0: 3A 8F 20 44 45 46 41 55 4C 54 00 1A 3C 7A 1C 99 |:. DEFAULT..<z..|
000033F0: C7 28 31 34 37 29 3B 3A 56 54 25 B2 31 30 3A 8D |.(147);:VT%.10:.|
00003400: 33 30 31 30 30 3A 9E 4D 55 3A 99 22 49 4E 53 45 |30100:.MU:."INSE|
00003410: 52 54 20 59 4F 55 52 20 22 3B 00 4E 3C 7B 1C 99 |RT YOUR ";.N<{..|
00003420: C7 28 31 38 29 3B 22 50 45 52 53 4F 4E 41 4C 20 |.(18);"PERSONAL |
00003430: 44 49 53 4B 22 3B C7 28 31 34 36 29 3B 22 20 49 |DISK";.(146);" I|
00003440: 4E 54 4F 20 44 52 49 56 45 20 23 31 2E 22 00 85 |NTO DRIVE #1."..|
00003450: 3C 7F 1C 56 54 25 B2 31 35 3A 8D 33 30 31 30 30 |<..VT%.15:.30100|
00003460: 3A 97 32 31 31 2C 30 3A 99 22 28 50 52 45 53 53 |:.211,0:."(PRESS|
00003470: 20 3C 43 54 52 4C 2D 43 3E 20 54 4F 20 43 41 4E | <CTRL-C> TO CAN|
00003480: 43 45 4C 29 22 00 8F 3C 84 1C 8D 39 35 30 30 00 |CEL)"..<...9500.|
00003490: 9E 3C 85 1C 8B 20 51 4E B2 31 20 A7 20 8E 00 CB |.<... QN.1 . ...|
000034A0: 3C 8E 1C 81 58 59 B2 31 A4 31 30 3A A1 58 58 24 |<...XY.1.10:.XX$|
000034B0: 3A 82 58 59 3A 99 C7 28 31 34 37 29 3B 3A 56 54 |:.XY:..(147);:VT|
000034C0: 25 B2 31 32 3A 8D 33 30 31 30 30 00 F6 3C 8F 1C |%.12:.30100..<..|
000034D0: 46 49 4C 45 24 B2 22 55 53 49 4E 47 20 59 4F 55 |FILE$."USING YOU|
000034E0: 52 20 50 45 52 53 4F 4E 41 4C 20 44 49 53 4B 22 |R PERSONAL DISK"|
000034F0: 3A 8D 32 39 39 30 00 0F 3D 98 1C 8F 20 41 43 54 |:.2990..=... ACT|
00003500: 55 41 4C 20 44 49 53 4B 20 41 43 43 45 53 53 00 |UAL DISK ACCESS.|
00003510: 57 3D A2 1C 8F 20 20 20 4F 50 45 4E 20 32 2C 38 |W=... OPEN 2,8|
00003520: 2C 32 2C 41 44 20 22 3B 46 4C 4E 4D 24 3A 52 45 |,2,AD ";FLNM$:RE|
00003530: 4D 20 31 53 54 20 43 48 45 43 4B 20 54 4F 20 53 |M 1ST CHECK TO S|
00003540: 45 45 20 49 46 20 54 48 45 20 46 49 4C 45 20 49 |EE IF THE FILE I|
00003550: 53 20 54 48 45 52 45 00 6F 3D AC 1C 8F 20 20 20 |S THERE.o=... |
00003560: 50 52 49 4E 54 44 24 3B 22 43 4C 4F 53 45 22 00 |PRINTD$;"CLOSE".|
00003570: 98 3D B6 1C 8B 20 52 57 24 B2 22 52 45 41 44 20 |.=... RW$."READ |
00003580: 22 20 A7 20 9F 20 32 2C 38 2C 32 2C 46 4C 4E 4D |" . . 2,8,2,FLNM|
00003590: 24 AA 22 2E 4E 41 4D 22 00 CD 3D BB 1C 8B 20 52 |$.".NAM"..=... R|
000035A0: 57 24 B2 22 57 52 49 54 45 20 22 20 A7 20 9F 20 |W$."WRITE " . . |
000035B0: 32 2C 38 2C 32 2C 22 40 3A 22 AA 46 4C 4E 4D 24 |2,8,2,"@:".FLNM$|
000035C0: AA 22 2E 4E 41 4D 2C 53 45 51 2C 57 22 00 EC 3D |.".NAM,SEQ,W"..=|
000035D0: C0 1C 8F 20 52 57 24 20 49 53 20 41 20 52 45 41 |... RW$ IS A REA|
000035E0: 44 2F 57 52 49 54 45 20 46 4C 41 47 00 19 3E CA |D/WRITE FLAG..>.|
000035F0: 1C 8B 52 57 24 B2 22 52 45 41 44 20 22 A7 84 32 |..RW$."READ "..2|
00003600: 2C 50 4C 4D 41 58 3A 8B 20 53 54 20 AF 20 31 39 |,PLMAX:. ST . 19|
00003610: 31 20 A7 20 31 37 30 30 30 00 50 3E D4 1C 8B 52 |1 . 17000.P>...R|
00003620: 57 24 B2 22 57 52 49 54 45 20 22 A7 50 4C 4D 41 |W$."WRITE ".PLMA|
00003630: 58 B2 31 30 3A 98 32 2C 50 4C 4D 41 58 3A 8B 20 |X.10:.2,PLMAX:. |
00003640: 53 54 20 AF 20 31 39 31 20 A7 20 31 37 30 30 30 |ST . 191 . 17000|
00003650: 00 5C 3E DE 1C 81 49 B2 31 A4 34 30 00 78 3E E8 |.\>...I.1.40.x>.|
00003660: 1C 8B 52 57 24 B2 22 52 45 41 44 20 22 A7 84 32 |..RW$."READ "..2|
00003670: 2C 50 45 47 24 28 49 29 00 A9 3E ED 1C 8B 52 57 |,PEG$(I)..>...RW|
00003680: 24 B2 22 57 52 49 54 45 20 22 A7 20 41 24 B2 50 |$."WRITE ". A$.P|
00003690: 45 47 24 28 49 29 3A 8B 20 41 24 B2 22 22 20 A7 |EG$(I):. A$."" .|
000036A0: 20 41 24 B2 22 58 58 58 22 00 C1 3E F2 1C 8B 52 | A$."XXX"..>...R|
000036B0: 57 24 B2 22 57 52 49 54 45 20 22 A7 98 32 2C 41 |W$."WRITE "..2,A|
000036C0: 24 00 CC 3E FC 1C 82 49 3A A0 20 32 00 E0 3E 06 |$..>...I:. 2..>.|
000036D0: 1D 8B 28 53 44 24 B2 22 51 55 49 54 22 29 A7 8E |..(SD$."QUIT")..|
000036E0: 00 FF 3E 1A 1D 99 C7 28 31 34 37 29 3B 3A 9E 4D |..>....(147);:.M|
000036F0: 55 3A 56 54 25 B2 31 30 3A 8D 33 30 31 30 30 00 |U:VT%.10:.30100.|
00003700: 37 3F 1B 1D 99 22 42 45 20 53 55 52 45 20 4D 45 |7?..."BE SURE ME|
00003710: 4D 4F 52 59 20 54 52 41 49 4E 45 52 20 22 3B C7 |MORY TRAINER ";.|
00003720: 28 31 38 29 3B 22 44 49 53 4B 20 22 3B 53 44 24 |(18);"DISK ";SD$|
00003730: 3B C7 28 31 34 36 29 00 70 3F 1C 1D 56 54 25 B2 |;.(146).p?..VT%.|
00003740: 31 32 3A 8D 33 30 31 30 30 3A 99 22 49 53 20 50 |12:.30100:."IS P|
00003750: 52 4F 50 45 52 4C 59 20 49 4E 53 45 52 54 45 44 |ROPERLY INSERTED|
00003760: 20 49 4E 54 4F 20 44 52 49 56 45 20 23 31 2E 22 | INTO DRIVE #1."|
00003770: 00 A0 3F 1F 1D 56 54 25 B2 31 36 3A 8D 33 30 31 |..?..VT%.16:.301|
00003780: 30 30 3A 99 22 28 50 52 45 53 53 20 3C 43 54 52 |00:."(PRESS <CTR|
00003790: 4C 2D 43 3E 20 54 4F 20 43 41 4E 43 45 4C 29 22 |L-C> TO CANCEL)"|
000037A0: 00 AC 3F 24 1D 8D 39 35 30 30 3A 8E 00 CA 3F 4C |..?$..9500:...?L|
000037B0: 1D 8F 20 54 45 58 54 20 46 49 4C 45 20 53 43 52 |.. TEXT FILE SCR|
000037C0: 45 45 4E 20 57 52 49 54 45 52 00 E9 3F 60 1D 9F |EEN WRITER..?`..|
000037D0: 20 32 2C 38 2C 32 2C 46 49 4C 45 24 3A 8B 20 53 | 2,8,2,FILE$:. S|
000037E0: 54 20 A7 20 31 37 30 30 30 00 F5 3F 6A 1D 81 49 |T . 17000..?j..I|
000037F0: B2 31 A4 32 34 00 23 40 74 1D 84 32 2C 53 39 24 |.1.24.#@t..2,S9$|
00003800: 28 49 29 3A 8B 20 28 49 B3 B1 32 34 20 B0 20 53 |(I):. (I..24 . S|
00003810: 54 B3 B1 36 34 29 20 AF 20 53 54 20 A7 20 31 37 |T..64) . ST . 17|
00003820: 30 30 30 00 2F 40 7E 1D 82 20 49 3A A0 20 32 00 |000./@~.. I:. 2.|
00003830: 62 40 88 1D 46 49 4C 45 24 B2 22 54 48 45 20 45 |b@..FILE$."THE E|
00003840: 49 4E 53 54 45 49 4E 20 4D 45 4D 4F 52 59 20 54 |INSTEIN MEMORY T|
00003850: 52 41 49 4E 45 52 3A 20 4C 45 53 53 4F 4E 20 23 |RAINER: LESSON #|
00003860: 31 22 00 83 40 89 1D 99 C7 28 31 34 37 29 3B C7 |1"..@....(147);.|
00003870: 28 31 38 29 3B 3A 8D 32 39 39 30 3A 99 C7 28 31 |(18);:.2990:..(1|
00003880: 34 36 29 00 8F 40 92 1D 81 49 B2 32 A4 32 32 00 |46)..@...I.2.22.|
00003890: 9E 40 9C 1D 99 53 39 24 28 49 29 3A 82 49 00 C7 |.@...S9$(I):.I..|
000038A0: 40 A6 1D 53 45 43 B2 2E 35 3A 8D 32 39 30 30 3A |@..SEC..5:.2900:|
000038B0: 56 54 25 B2 32 34 3A 8D 33 30 31 30 30 3A 99 53 |VT%.24:.30100:.S|
000038C0: 39 24 28 32 33 29 3B 00 D1 40 B0 1D 8D 39 35 31 |9$(23);..@...951|
000038D0: 35 00 DE 40 BA 1D 8D 31 33 30 30 30 3A 8E 00 F2 |5..@...13000:...|
000038E0: 40 40 1F 8F 20 4D 45 4E 55 20 53 45 4C 45 43 54 |@@.. MENU SELECT|
000038F0: 4F 52 00 11 41 4A 1F 99 C7 28 31 34 37 29 3B 3A |OR..AJ...(147);:|
00003900: 81 58 59 B2 31 A4 31 30 3A A1 58 58 24 3A 82 58 |.XY.1.10:.XX$:.X|
00003910: 59 00 39 41 54 1F 46 49 4C 45 24 B2 22 54 48 45 |Y.9AT.FILE$."THE|
00003920: 20 45 49 4E 53 54 45 49 4E 20 4D 45 4D 4F 52 59 | EINSTEIN MEMORY|
00003930: 20 54 52 41 49 4E 45 52 22 00 54 41 55 1F 99 C7 | TRAINER".TAU...|
00003940: 28 31 38 29 3B 3A 8D 32 39 39 30 3A 99 C7 28 31 |(18);:.2990:..(1|
00003950: 34 36 29 3B 00 89 41 5E 1F 56 54 25 B2 32 34 3A |46);..A^.VT%.24:|
00003960: 8D 33 30 31 30 30 3A 99 22 46 49 4C 45 20 4E 41 |.30100:."FILE NA|
00003970: 4D 45 3A 20 22 3B C7 28 31 38 29 3B 46 4C 4E 4D |ME: ";.(18);FLNM|
00003980: 24 3B C7 28 31 34 36 29 3B 00 A1 41 68 1F 56 54 |$;.(146);..Ah.VT|
00003990: 25 B2 34 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C |%.4:.30100:.211,|
000039A0: 30 00 CE 41 69 1F 46 49 4C 45 24 B2 22 4C 45 53 |0..Ai.FILE$."LES|
000039B0: 53 4F 4E 20 23 31 3A 20 4E 41 4D 45 53 20 41 4E |SON #1: NAMES AN|
000039C0: 44 20 46 41 43 45 53 22 3A 8D 32 39 39 30 00 DF |D FACES":.2990..|
000039D0: 41 72 1F 81 49 B2 36 35 A4 36 34 AA 4D 41 58 00 |Ar..I.65.64.MAX.|
000039E0: EA 41 7C 1F 53 B2 49 AB 36 34 00 0F 42 86 1F 56 |.A|.S.I.64..B..V|
000039F0: 54 25 B2 53 AA 36 3A 8D 33 30 31 30 30 3A 99 C7 |T%.S.6:.30100:..|
00003A00: 28 49 29 22 20 3A 20 22 50 47 4D 24 28 53 29 00 |(I)" : "PGM$(S).|
00003A10: 17 42 90 1F 82 3A 99 00 28 42 9A 1F 8B 50 56 24 |.B...:..(B...PV$|
00003A20: B2 22 22 89 38 31 31 30 00 65 42 A4 1F 56 54 25 |."".8110.eB..VT%|
00003A30: B2 32 30 3A 8D 33 30 31 30 30 3A 99 22 28 59 4F |.20:.30100:."(YO|
00003A40: 55 52 20 50 52 45 56 49 4F 55 53 20 53 45 4C 45 |UR PREVIOUS SELE|
00003A50: 43 54 49 4F 4E 20 57 41 53 20 27 22 3B 50 56 24 |CTION WAS '";PV$|
00003A60: 3B 22 27 29 22 00 8B 42 AE 1F 56 54 25 B2 31 38 |;"')"..B..VT%.18|
00003A70: 3A 8D 33 30 31 30 30 3A 99 22 53 45 4C 45 43 54 |:.30100:."SELECT|
00003A80: 20 4F 50 54 49 4F 4E 3A 20 22 3B 00 A5 42 AF 1F | OPTION: ";..B..|
00003A90: 8D 33 30 32 30 30 3A 8F 20 43 4C 45 41 52 20 54 |.30200:. CLEAR T|
00003AA0: 4F 20 45 4F 4C 00 BC 42 B8 1F 8D 37 31 3A 43 B2 |O EOL..B...71:C.|
00003AB0: C6 28 43 24 29 3A 41 4E 24 B2 43 24 00 D4 42 CC |.(C$):AN$.C$..B.|
00003AC0: 1F 8B 43 B3 36 35 B0 43 B1 36 34 AA 4D 41 58 89 |..C.65.C.64.MAX.|
00003AD0: 38 31 32 30 00 E1 42 D6 1F 99 3A 43 B2 43 AB 36 |8120..B...:C.C.6|
00003AE0: 34 00 F4 42 E0 1F 56 54 25 B2 43 AA 36 3A 8D 33 |4..B..VT%.C.6:.3|
00003AF0: 30 31 30 30 00 25 43 E1 1F 99 C7 28 31 38 29 3B |0100.%C....(18);|
00003B00: 41 4E 24 3B C7 28 31 34 36 29 3B 22 20 3A 20 22 |AN$;.(146);" : "|
00003B10: 3B C7 28 31 38 29 3B 50 47 4D 24 28 43 29 3B C7 |;.(18);PGM$(C);.|
00003B20: 28 31 34 36 29 00 62 43 EA 1F 56 54 25 B2 31 38 |(146).bC..VT%.18|
00003B30: 3A 8D 33 30 31 30 30 3A 99 22 49 53 20 54 48 49 |:.30100:."IS THI|
00003B40: 53 20 54 48 45 20 53 45 4C 45 43 54 49 4F 4E 20 |S THE SELECTION |
00003B50: 59 4F 55 20 57 41 4E 54 3F 20 28 59 2F 4E 29 20 |YOU WANT? (Y/N) |
00003B60: 22 3B 00 86 43 F4 1F 8D 37 31 3A 8B 43 24 B3 B1 |";..C...71:.C$..|
00003B70: 22 59 22 AF 43 24 B3 B1 22 4E 22 A7 99 42 24 3B |"Y".C$.."N"..B$;|
00003B80: 3A 89 38 31 38 30 00 A5 43 FE 1F 99 43 24 3A 8B |:.8180..C...C$:.|
00003B90: 43 24 B3 B1 22 4E 22 A7 50 56 24 B2 41 4E 24 3A |C$.."N".PV$.AN$:|
00003BA0: 89 38 32 31 30 00 CF 43 08 20 56 54 25 B2 43 AA |.8210..C. VT%.C.|
00003BB0: 36 3A 8D 33 30 31 30 30 3A 99 41 4E 24 22 20 3A |6:.30100:.AN$" :|
00003BC0: 20 22 50 47 4D 24 28 43 29 3A 89 38 31 31 30 00 | "PGM$(C):.8110.|
00003BD0: DA 43 12 20 99 22 93 22 3A 8E 00 FF 43 1C 25 8F |.C. .".":...C.%.|
00003BE0: 20 57 41 49 54 20 46 4F 52 20 53 50 41 43 45 20 | WAIT FOR SPACE |
00003BF0: 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 00 |BAR TO CONTINUE.|
00003C00: 36 44 26 25 56 54 25 B2 32 34 3A 8D 33 30 31 30 |6D&%VT%.24:.3010|
00003C10: 30 3A 99 22 50 52 45 53 53 20 3C 53 50 41 43 45 |0:."PRESS <SPACE|
00003C20: 20 42 41 52 3E 20 54 4F 20 43 4F 4E 54 49 4E 55 | BAR> TO CONTINU|
00003C30: 45 2E 2E 2E 22 3B 00 3F 44 2B 25 8D 20 37 35 00 |E...";.?D+%. 75.|
00003C40: 47 44 30 25 8D 37 33 00 56 44 31 25 8B 20 51 4E |GD0%.73.VD1%. QN|
00003C50: B2 31 20 A7 20 8E 00 6B 44 35 25 8B 20 43 24 B3 |.1 . ..kD5%. C$.|
00003C60: B1 22 20 22 20 A7 20 39 35 32 30 00 76 44 3A 25 |." " . 9520.vD:%|
00003C70: 8D 20 37 35 3A 8E 00 A1 44 80 25 8B 20 43 24 B2 |. 75:...D.%. C$.|
00003C80: C7 28 33 29 A7 20 97 20 32 30 34 2C 31 3A 50 56 |.(3). . 204,1:PV|
00003C90: 24 B2 22 22 3A 9E 20 34 39 31 35 35 3A 51 4E B2 |$."":. 49155:QN.|
00003CA0: 31 00 A7 44 8A 25 8E 00 BC 44 10 27 8F 20 49 4E |1..D.%...D.'. IN|
00003CB0: 49 54 49 41 4C 49 5A 41 54 49 4F 4E 00 DE 44 1A |ITIALIZATION..D.|
00003CC0: 27 86 52 44 52 25 28 34 30 29 2C 4E 46 25 28 32 |'.RDR%(40),NF%(2|
00003CD0: 2C 32 30 29 2C 52 54 44 52 25 28 32 30 29 00 00 |,20),RTDR%(20)..|
00003CE0: 45 24 27 4B 4D 41 58 B2 33 3A 44 54 49 4D 45 B2 |E$'KMAX.3:DTIME.|
00003CF0: 31 30 3A 44 24 B2 C7 28 31 33 29 AA C7 28 34 29 |10:D$..(13)..(4)|
00003D00: 00 1A 45 29 27 81 49 B2 31 A4 31 30 3A 50 47 4D |..E)'.I.1.10:PGM|
00003D10: 24 28 49 29 B2 22 22 3A 82 49 00 32 45 60 27 81 |$(I)."":.I.2E`'.|
00003D20: 49 B2 31 A4 32 30 3A 87 4D 45 4E 24 28 49 29 3A |I.1.20:.MEN$(I):|
00003D30: 82 49 00 6D 45 6A 27 83 20 42 49 4C 4C 2C 42 4F |.I.mEj'. BILL,BO|
00003D40: 42 2C 42 52 55 43 45 2C 43 48 55 43 4B 2C 44 41 |B,BRUCE,CHUCK,DA|
00003D50: 56 45 2C 44 45 4E 4E 49 53 2C 45 44 2C 46 52 41 |VE,DENNIS,ED,FRA|
00003D60: 4E 4B 2C 48 41 52 52 59 2C 4A 41 43 4B 00 A2 45 |NK,HARRY,JACK..E|
00003D70: 6B 27 83 20 4A 45 46 46 2C 4A 49 4D 2C 4A 4F 45 |k'. JEFF,JIM,JOE|
00003D80: 2C 4A 4F 48 4E 2C 4B 45 4E 2C 4D 41 52 4B 2C 4D |,JOHN,KEN,MARK,M|
00003D90: 49 4B 45 2C 50 48 49 4C 2C 53 54 45 56 45 2C 54 |IKE,PHIL,STEVE,T|
00003DA0: 4F 4D 00 BC 45 74 27 81 49 B2 31 A4 32 30 3A 87 |OM..Et'.I.1.20:.|
00003DB0: 57 4F 4D 45 4E 24 28 49 29 3A 82 49 00 FA 45 7E |WOMEN$(I):.I..E~|
00003DC0: 27 83 20 41 4C 49 43 45 2C 41 4E 4E 45 2C 43 41 |'. ALICE,ANNE,CA|
00003DD0: 52 4F 4C 2C 43 41 54 48 59 2C 44 4F 52 49 53 2C |ROL,CATHY,DORIS,|
00003DE0: 45 49 4C 45 45 4E 2C 47 41 49 4C 2C 4A 41 4E 45 |EILEEN,GAIL,JANE|
00003DF0: 2C 4A 45 41 4E 2C 4A 4F 41 4E 00 36 46 7F 27 83 |,JEAN,JOAN.6F.'.|
00003E00: 20 4A 4F 59 43 45 2C 4A 55 4C 49 45 2C 4B 41 54 | JOYCE,JULIE,KAT|
00003E10: 45 2C 4C 49 53 41 2C 4C 49 5A 2C 52 55 54 48 2C |E,LISA,LIZ,RUTH,|
00003E20: 53 41 4E 44 59 2C 53 48 45 52 52 59 2C 53 55 45 |SANDY,SHERRY,SUE|
00003E30: 2C 57 45 4E 44 59 00 63 46 82 27 81 49 B2 31 A4 |,WENDY.cF.'.I.1.|
00003E40: 32 30 3A 87 50 45 47 4E 41 4D 45 24 28 49 29 3A |20:.PEGNAME$(I):|
00003E50: 82 49 3A 8F 20 4D 41 4C 45 20 50 45 47 2D 4E 41 |.I:. MALE PEG-NA|
00003E60: 4D 45 53 00 A1 46 86 27 83 20 44 4F 4C 4C 41 52 |MES..F.'. DOLLAR|
00003E70: 20 42 49 4C 4C 2C 42 4F 42 53 4C 45 44 2C 4E 4F | BILL,BOBSLED,NO|
00003E80: 4F 53 45 2C 57 41 47 4F 4E 2C 57 41 56 45 2C 54 |OSE,WAGON,WAVE,T|
00003E90: 45 4E 4E 49 53 2C 42 45 44 2C 48 4F 54 20 44 4F |ENNIS,BED,HOT DO|
00003EA0: 47 00 D0 46 87 27 83 20 48 41 49 52 59 2C 42 45 |G..F.'. HAIRY,BE|
00003EB0: 41 4E 53 54 41 4C 4B 2C 43 48 45 46 2C 4A 55 4E |ANSTALK,CHEF,JUN|
00003EC0: 47 4C 45 2C 54 4F 45 2C 59 41 57 4E 2C 48 45 4E |GLE,TOE,YAWN,HEN|
00003ED0: 00 F8 46 88 27 83 20 53 48 41 52 4B 2C 4D 49 43 |..F.'. SHARK,MIC|
00003EE0: 52 4F 50 48 4F 4E 45 2C 50 49 4C 4C 2C 53 54 4F |ROPHONE,PILL,STO|
00003EF0: 56 45 2C 54 48 55 4D 42 00 28 47 8A 27 81 49 B2 |VE,THUMB.(G.'.I.|
00003F00: 32 31 A4 34 30 3A 87 50 45 47 4E 41 4D 45 24 28 |21.40:.PEGNAME$(|
00003F10: 49 29 3A 82 49 3A 8F 20 46 45 4D 41 4C 45 20 50 |I):.I:. FEMALE P|
00003F20: 45 47 2D 4E 41 4D 45 53 00 67 47 8E 27 83 20 50 |EG-NAMES.gG.'. P|
00003F30: 41 4C 41 43 45 2C 41 4E 54 2C 42 41 52 52 45 4C |ALACE,ANT,BARREL|
00003F40: 2C 43 41 54 2C 44 4F 4F 52 53 2C 49 53 4C 41 4E |,CAT,DOORS,ISLAN|
00003F50: 44 2C 53 41 49 4C 2C 43 48 41 49 4E 2C 4A 45 41 |D,SAIL,CHAIN,JEA|
00003F60: 4E 53 2C 42 4F 4E 45 00 AC 47 8F 27 83 20 4A 55 |NS,BONE..G.'. JU|
00003F70: 49 43 45 2C 4A 45 57 45 4C 52 59 2C 53 4B 41 54 |ICE,JEWELRY,SKAT|
00003F80: 45 2C 50 49 5A 5A 41 2C 4C 49 5A 41 52 44 2C 54 |E,PIZZA,LIZARD,T|
00003F90: 4F 4F 54 48 2C 42 45 41 43 48 2C 43 48 45 52 52 |OOTH,BEACH,CHERR|
00003FA0: 59 2C 53 48 4F 45 2C 57 49 4E 44 59 00 BE 47 CC |Y,SHOE,WINDY..G.|
00003FB0: 29 8F 20 4D 55 53 49 43 20 53 54 55 46 46 00 CB |). MUSIC STUFF..|
00003FC0: 47 D6 29 53 58 B2 35 34 32 37 32 00 F5 47 E0 29 |G.)SX.54272..G.)|
00003FD0: 81 20 54 B2 31 20 A4 20 39 3A 87 20 48 46 25 28 |. T.1 . 9:. HF%(|
00003FE0: 54 29 2C 4C 46 25 28 54 29 3A 82 20 54 3A 8F 20 |T),LF%(T):. T:. |
00003FF0: 46 52 45 51 2E 00 33 48 EA 29 83 20 31 36 2C 31 |FREQ..3H.). 16,1|
00004000: 39 35 2C 31 38 2C 32 30 39 2C 32 31 2C 33 31 2C |95,18,209,21,31,|
00004010: 32 32 2C 39 36 2C 32 35 2C 33 30 2C 32 38 2C 34 |22,96,25,30,28,4|
00004020: 39 2C 33 31 2C 31 36 35 2C 33 33 2C 31 33 35 2C |9,31,165,33,135,|
00004030: 30 2C 30 00 39 48 F4 29 8F 00 4E 48 F8 2A 8F 20 |0,0.9H.)..NH.*. |
00004040: 52 45 41 44 20 46 49 4C 45 20 4E 41 4D 45 00 89 |READ FILE NAME..|
00004050: 48 02 2B 46 4C 4E 4D 24 B2 22 22 3A 44 53 4B 24 |H.+FLNM$."":DSK$|
00004060: B2 C7 28 C2 28 44 45 29 29 3A 8B 44 53 4B 24 B3 |..(.(DE)):.DSK$.|
00004070: B1 22 59 22 A7 46 4C 4E 4D 24 B2 22 4E 4F 4E 45 |."Y".FLNM$."NONE|
00004080: 22 3A 89 20 31 31 37 30 30 00 B2 48 0C 2B 81 49 |":. 11700..H.+.I|
00004090: B2 31 A4 C2 28 4E 4D 29 3A 46 4C 4E 4D 24 B2 46 |.1..(NM):FLNM$.F|
000040A0: 4C 4E 4D 24 AA C7 28 C2 28 4E 4D AA 49 29 29 3A |LNM$..(.(NM.I)):|
000040B0: 82 49 00 CE 48 B4 2D 8F 20 52 45 41 4C 20 52 41 |.I..H.-. REAL RA|
000040C0: 4E 44 4F 4D 20 47 45 4E 45 52 41 54 4F 52 00 DA |NDOM GENERATOR..|
000040D0: 48 BE 2D 41 B2 C2 28 37 38 29 00 F3 48 C8 2D 42 |H.-A..(78)..H.-B|
000040E0: B2 41 AA 31 3A 8F 20 42 45 20 53 55 52 45 20 41 |.A.1:. BE SURE A|
000040F0: 3C 3E 30 00 12 49 D2 2D 81 58 B2 31 A4 31 30 3A |<>0..I.-.X.1.10:|
00004100: 97 32 30 32 2C 42 3A 41 4E 53 B2 BB 28 31 29 3A |.202,B:ANS..(1):|
00004110: 82 58 00 2A 49 72 2E 81 49 B2 30 A4 39 3A 87 50 |.X.*Ir..I.0.9:.P|
00004120: 49 54 43 48 28 49 29 3A 82 49 00 44 49 73 2E 97 |ITCH(I):.I.DIs..|
00004130: 30 2C 50 49 54 43 48 28 B5 28 37 AC BB 28 31 29 |0,PITCH(.(7..(1)|
00004140: 29 AA 31 29 00 6A 49 7C 2E 83 20 30 2C 31 33 33 |).1).jI|.. 0,133|
00004150: 2C 31 32 31 2C 31 30 37 2C 31 30 30 2C 39 30 2C |,121,107,100,90,|
00004160: 38 30 2C 37 30 2C 36 36 2C 31 00 70 49 DF 2E 8E |80,70,66,1.pI...|
00004170: 00 89 49 C8 32 8F 20 43 45 4E 54 45 52 2F 4F 55 |..I.2. CENTER/OU|
00004180: 54 20 57 49 50 45 4F 55 54 00 98 49 D2 32 99 C7 |T WIPEOUT..I.2..|
00004190: 28 31 34 37 29 3B 3A 8E 00 AC 49 80 3E 8F 20 4D |(147);:...I.>. M|
000041A0: 45 4C 4F 44 59 20 50 4C 41 59 45 52 00 BE 49 8A |ELODY PLAYER..I.|
000041B0: 3E 81 49 B2 31 A4 C3 28 46 49 4C 45 24 29 00 D4 |>.I.1..(FILE$)..|
000041C0: 49 94 3E 58 B2 C5 28 CA 28 46 49 4C 45 24 2C 49 |I.>X..(.(FILE$,I|
000041D0: 2C 31 29 29 00 0C 4A 9E 3E 97 20 53 58 AA 31 2C |,1))..J.>. SX.1,|
000041E0: 48 46 25 28 58 29 3A 97 20 53 58 2C 4C 46 25 28 |HF%(X):. SX,LF%(|
000041F0: 58 29 3A 97 20 53 58 AA 34 2C 33 33 3A 53 45 43 |X):. SX.4,33:SEC|
00004200: B2 30 2E 30 37 3A 8D 20 32 39 30 30 00 24 4A 9F |.0.07:. 2900.$J.|
00004210: 3E 8B 20 51 4E B2 31 20 A7 20 97 20 53 58 AA 34 |>. QN.1 . . SX.4|
00004220: 2C 30 3A 8E 00 35 4A A8 3E 97 20 53 58 AA 34 2C |,0:..5J.>. SX.4,|
00004230: 30 3A 82 20 49 00 3B 4A B2 3E 8E 00 50 4A 68 42 |0:. I.;J.>..PJhB|
00004240: 8F 20 45 52 52 4F 52 20 48 41 4E 44 4C 49 4E 47 |. ERROR HANDLING|
00004250: 00 68 4A 6D 42 9E 20 34 39 31 35 35 3A 84 31 2C |.hJmB. 49155:.1,|
00004260: 41 2C 42 24 3A A0 20 32 00 75 4A 72 42 99 C7 28 |A,B$:. 2.uJrB..(|
00004270: 31 34 37 29 3B 00 9D 4A 86 42 59 B2 41 3A 8F 20 |147);..J.BY.A:. |
00004280: 20 20 20 3A 58 3D 50 45 45 4B 28 32 31 38 29 2B | :X=PEEK(218)+|
00004290: 32 35 36 2A 50 45 45 4B 28 32 31 39 29 00 B7 4A |256*PEEK(219)..J|
000042A0: 87 42 8F 20 58 3D 4C 49 4E 45 20 23 3B 20 59 3D |.B. X=LINE #; Y=|
000042B0: 45 52 52 4F 52 20 23 00 D9 4A 9A 42 4C 24 B2 22 |ERROR #..J.BL$."|
000042C0: 41 31 22 3A 8F 20 52 45 56 49 53 49 4F 4E 20 26 |A1":. REVISION &|
000042D0: 20 4C 45 53 53 4F 4E 20 23 00 0D 4B A4 42 56 54 | LESSON #..K.BVT|
000042E0: 25 B2 32 3A 8D 33 30 31 30 30 3A 99 22 55 53 45 |%.2:.30100:."USE|
000042F0: 52 20 4E 41 4D 45 3A 20 22 3B C7 28 31 38 29 3B |R NAME: ";.(18);|
00004300: 46 4C 4E 4D 24 3B C7 28 31 34 36 29 3B 00 25 4B |FLNM$;.(146);.%K|
00004310: AE 42 56 54 25 B2 34 3A 8D 33 30 31 30 30 3A 97 |.BVT%.4:.30100:.|
00004320: 32 31 31 2C 30 00 49 4B AF 42 99 C7 28 31 34 36 |211,0.IK.B..(146|
00004330: 29 3B 22 41 4E 20 45 52 52 4F 52 20 48 41 53 20 |);"AN ERROR HAS |
00004340: 4F 43 43 55 52 45 44 21 22 00 7B 4B B8 42 56 54 |OCCURED!".{K.BVT|
00004350: 25 B2 36 3A 8D 33 30 31 30 30 3A 99 22 45 52 52 |%.6:.30100:."ERR|
00004360: 4F 52 20 43 4F 44 45 3A 20 23 22 3B 59 3B 22 20 |OR CODE: #";Y;" |
00004370: 20 20 20 20 22 3B 4C 24 3B 42 24 00 A1 4B C2 42 | ";L$;B$..K.B|
00004380: 56 54 25 B2 31 30 3A 8D 33 30 31 30 30 3A 99 22 |VT%.10:.30100:."|
00004390: 45 52 52 4F 52 20 4D 45 53 53 41 47 45 3A 20 22 |ERROR MESSAGE: "|
000043A0: 3B 00 C6 4B CC 42 8B 59 B2 32 36 A7 99 22 44 49 |;..K.B.Y.26.."DI|
000043B0: 53 4B 20 49 53 20 57 52 49 54 45 20 50 52 4F 54 |SK IS WRITE PROT|
000043C0: 45 43 54 45 44 22 00 E6 4B D6 42 8B 59 B2 36 32 |ECTED"..K.B.Y.62|
000043D0: A7 99 22 46 49 4C 45 20 57 41 53 20 4E 4F 54 20 |.."FILE WAS NOT |
000043E0: 46 4F 55 4E 44 22 00 05 4C EA 42 8B 59 B2 37 32 |FOUND"..L.B.Y.72|
000043F0: A7 99 22 59 4F 55 52 20 44 49 53 4B 20 49 53 20 |.."YOUR DISK IS |
00004400: 46 55 4C 4C 22 00 1E 4C FE 42 56 54 25 B2 31 32 |FULL"..L.BVT%.12|
00004410: 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 00 53 |:.30100:.211,0.S|
00004420: 4C FF 42 99 C7 28 31 38 29 3B 22 43 48 45 43 4B |L.B..(18);"CHECK|
00004430: 20 54 48 41 54 20 54 48 45 20 41 50 50 52 4F 50 | THAT THE APPROP|
00004440: 52 49 41 54 45 20 44 49 53 4B 22 3A 56 54 25 B2 |RIATE DISK":VT%.|
00004450: 31 34 3A 00 8A 4C 00 43 8D 33 30 31 30 30 3A 99 |14:..L.C.30100:.|
00004460: 22 49 53 20 50 52 4F 50 45 52 4C 59 20 49 4E 53 |"IS PROPERLY INS|
00004470: 45 52 54 45 44 20 49 4E 20 44 52 49 56 45 20 23 |ERTED IN DRIVE #|
00004480: 31 2E 22 3B C7 28 31 34 36 29 00 C6 4C 08 43 56 |1.";.(146)..L.CV|
00004490: 54 25 B2 32 34 3A 8D 33 30 31 30 30 3A 97 32 31 |T%.24:.30100:.21|
000044A0: 31 2C 30 3A 99 22 50 52 45 53 53 20 3C 53 50 41 |1,0:."PRESS <SPA|
000044B0: 43 45 20 42 41 52 3E 20 54 4F 20 52 45 53 55 4D |CE BAR> TO RESUM|
000044C0: 45 2E 2E 2E 22 3B 00 D0 4C 12 43 8D 39 35 31 35 |E...";..L.C.9515|
000044D0: 00 E8 4C 1C 43 89 31 31 30 3A 8F 20 54 4F 20 4D |..L.C.110:. TO M|
000044E0: 41 49 4E 20 4D 45 4E 55 00 FC 4C 30 75 8F 20 46 |AIN MENU..L0u. F|
000044F0: 4C 41 53 48 20 52 4F 55 54 49 4E 45 00 15 4D 3A |LASH ROUTINE..M:|
00004500: 75 56 54 25 B2 C2 28 32 31 34 29 3A 43 58 B2 C2 |uVT%..(214):CX..|
00004510: 28 32 31 31 29 00 47 4D 44 75 81 20 54 B2 31 20 |(211).GMDu. T.1 |
00004520: A4 20 36 3A 97 20 32 31 31 2C 43 58 3A 99 22 12 |. 6:. 211,CX:.".|
00004530: 22 3B 46 49 4C 45 24 3B 3A 53 45 43 B2 30 2E 31 |";FILE$;:SEC.0.1|
00004540: 3A 8D 20 32 39 30 30 00 6B 4D 4E 75 97 20 32 31 |:. 2900.kMNu. 21|
00004550: 31 2C 43 58 3A 99 22 92 22 3B 46 49 4C 45 24 3B |1,CX:.".";FILE$;|
00004560: 3A 8D 20 32 39 30 30 3A 82 20 54 00 71 4D 58 75 |:. 2900:. T.qMXu|
00004570: 8E 00 83 4D 94 75 8F 20 56 54 25 20 52 4F 55 54 |...M.u. VT% ROUT|
00004580: 49 4E 45 00 96 4D 9E 75 99 C8 28 56 54 24 2C 56 |INE..M.u..(VT$,V|
00004590: 54 25 29 3B 3A 8E 00 A7 4D F8 75 8F 20 45 4C 20 |T%);:...M.u. EL |
000045A0: 52 4F 55 54 49 4E 45 00 D2 4D 0C 76 43 55 B2 C2 |ROUTINE..M.vCU..|
000045B0: 28 32 30 34 29 3A 43 4C B2 C2 28 32 31 31 29 3A |(204):CL..(211):|
000045C0: 8B 20 43 4C B1 33 39 20 A7 20 43 4C B2 43 4C AB |. CL.39 . CL.CL.|
000045D0: 33 39 00 F2 4D 16 76 97 20 32 30 34 2C 30 3A 99 |39..M.v. 204,0:.|
000045E0: C8 28 45 4C 24 2C 33 39 AB 43 4C 29 3B 22 9D 9D |.(EL$,39.CL);"..|
000045F0: 22 3B 00 0A 4E 20 76 97 20 32 31 31 2C 43 4C 3A |";..N v. 211,CL:|
00004600: 97 20 32 30 34 2C 43 55 3A 8E 00 00 00 |. 204,CU:.... |
....... LESSON #1:NAMES & FACES.E."..MEN
$(20),WOMEN$(20):ZE$.G(0):. 1,8,15:NM.49
668:DE.49667:LD.49594...&..BEF$(40),AFT$
(40),PEG$(40),TMP$(40),HF%(9),LF%(9).W.2
..MSG$(40):VT$."........................
.............."...6..GM$(10):EL$."
".L.
:..S9$(24):MU.49637:ER.49637:GR.49152:."
.":. 53281,0.U.<..100.].G..75.I.H.. 204,
0.{.I..C$:.C$."".73...J.. 204,1:C$.G(F(C
$.ZE$).127):.9600:....K..XB.1.10:.XX$:.X
B:..W.P.. SPECIAL INPUT ROUTINE...Q.H.B(
211).1:V.B(214).1:L$."":L.12:.83...R..72
.;.S.CX.F(C$.ZE$):.CX.13..H(EL$,L.C(L$))
:.211,H.1:..J.V.. QN.1 . ..P.W..CX.21 .R
$."".H.H.1:L$.L$.H(R$,1)...X..CX.32 .C$.
"":CX.0:H.H.1...Y..C(L$).C(C$).L..G(7);:
.82.P.Z..C$;:H.H.1:VT%.V:.30100:.211,H.1
...[.L$.L$.C$:R$.J(R$,2):.82...D..13000:
.10000.*.N.PGM$(1)."INTRODUCTION TO LESS
ON #1":.ER.T.X.PGM$(2)."STUDY/CHANGE MAL
E PEG NAMES".....PGM$(3)."STUDY/CHANGE F
EMALE PEG NAMES".....PGM$(4)."PRACTICE M
ATCHING PEG NAMES".....PGM$(5)."PRACTICE
REMEMBERING NAMES AND FACES"... .PGM$(6
)."RETURN TO MEMORY TRAINER MAIN MENU".:
...PGM$(7)."QUIT FOR NOW":MAX.7:.8000:QN
.0.^....C.190,380,430,620,850,7100,990.S
...FILE$."N1":.7500...... QN.1 . 110...H
.TMAX.7:DTIME.3:PROMPT.1:.6000:.G(147);.
..I.. QN.1 . 110...R.VT%.10:.30100:."ALL
THE FACES HAVE BEEN PRESENTED.".6...VT%
.24:.30100:."PRESS <SPACE BAR> TO RECALL
THE NAMES..";.@....9515.Q.... QN.1 . 11
0......G(147);:.5000:. COMPUTE THE ACTUA
L # CORRECT HERE...... QN.1 . 110.K...SK
IP.1:.5500:SKIP.0:. DISPLAY CORRECT ANSW
ERS...... QN.1 . 110......G(147);:FILE$.
"THE EINSTEIN MEMORY TRAINER: LESSON #1"
.3....G(18);:.2990:.G(146);.N...VT%.10:.
30100:FILE$." HOW GOOD WAS YOUR MEMORY?"
:.2990.....FILE$."--- ---- --- ---- ----
--":VT%.11:.30100......2990:SEC.1.5:.290
0.J.... QN.1 . 110.....VT%.13:.30100:."M
EMORY TRAINER WILL NOW SHOW YOU THE".>..
.VT%.15:.30100:."QUICK, EASY AND SURE WA
Y TO REMEMBER".C...VT%.17:.30100:."PEOPL
E'S NAMES."...".FILE$."78753997875299875
2129912":.16000. .#.. QN.1 . 110...,..95
00...-.. QN.1 . 110.P.1.FILE$."N2":.7500
...2.. QN.1 . 110...6.FILE$."N3":.7500..
.7.. QN.1 . 110...@.FILE$."N4":.7500.-.A
.. QN.1 . 110.B.J.FILE$."N5":.7500.S.K..
QN.1 . 110.L.T.FILE$."DOLLAR":.6600.}.U
.. QN.1 . 110...^.FILE$."N6":.7500..._..
QN.1 . 110...H.FILE$."CHAIN":.6600.L.I.
. QN.1 . 110...R.FILE$."N7":.7500:.110..
.|.. STUDY PEG NAMES......VV.0..7000:VV.
1.".... QN.1 . 110.E...LOW.1:HIGH.10:FIL
E$."N8":.7500.V.... QN.1 . 110......I.1.
20:MSG$(I).MEN$(I):TMP$(I).PEG$(I):BEF$(
I)."@":.I.B...XX.0:.460:. MAINTAIN PEG N
AMES FOR DISK FILE.W....VV.0..7000:VV.1.
..... QN.1 . 110.....LOW.1:HIGH.10:FILE$
."N8.1":. 7500...... QN.1 . 110.=.B..I.1
.20:MSG$(I).WOMEN$(I).I.C.TMP$(I).PEG$(I
.20):BEF$(I)."@":.I:XX.20...L.FILE$."STU
DY AND/OR CHANGE PEG NAME: SET ".D(HIGH.
10).F.V.LMARGIN.10:COL.1:AN$."@":.2000.W
.W.. QN.1 . 110......I.LOW.HIGH:. RE
MOVE TRAILING BLANKS......AFT$(I)." ".52
0.=....AFT$(I).."".PEG$(I.XX).AFT$(I).D.
...I.K....(QUIT.0).(HIGH.20)..DSK$.."Y".
110.......((QUIT.0).(HIGH.20)).550.....R
W$."WRITE ":SD$."A":QUIT.2:.7220:QUIT.0.
.....110:. UPDATE PERSONAL DISK IF DESIR
ED...&...((QUIT.1).(XX.0).(HIGH.10)).560
. .'.HIGH.20:LOW.11:.410.F.0...((QUIT.1)
.(XX.0).(HIGH.20)).570.].1.HIGH.10:LOW.1
:.410...:...((QUIT.1).(XX.20).(HIGH.10))
.580...;.HIGH.20:LOW.11:.450.C.D...((QUI
T.1).(XX.20).(HIGH.20)).590.Z.E.HIGH.10:
LOW.1:.450...N.HIGH.20:LOW.11...X..XX.0.
410...B..XX.20.450.-.L.. PRACTICE RECALL
ING PEG NAMES.B.V..VV.0..7000:VV.1.S.W..
QN.1 . 110.H...FILE$."N9":.7500.Y.... Q
N.1 . 110......G(147);:VT%.10:.30100.X..
.FILE$." MIXING UP THE NAMES":.2990:.:FI
LE$."PLEASE WAIT":. 2990.....XNUM.40:XMA
X.40:.1500:. SELECT 40 NAMES IN RANDOM O
RDER.6...KMAX.10:TMAX.10:LOW.1:HIGH.10.F
....I.LOW.HIGH.Z...TMP$(I)."....."......
RDR%(I).20.MSG$(I).WOMEN$(RDR%(I).20):.7
20...F.MSG$(I).MEN$(RDR%(I))...P..I.R.Z.
FILE$."ENTER THE CORRECT PEG NAME"......
I.LOW.HIGH:BEF$(I).PEG$(RDR%(I)):.I.(...
. MALE & FEMALE NAMES ACTUALLY DISPLAYED
.C...COL.1:LMARGIN.10:.2000.T.... QN.1 .
110.W....I.LOW.HIGH:TMP$(I).MSG$(I):.I.
.....3000...... QN.1 . 110.....TMAX.10:.
3700:.C$."Y".680.A.... QN.1 . 110......H
IGH.40.840:. ALL THE NAMES HAVE BEEN REV
IEWED... ..G(147);:VT%.10:.30100.Q.!.."Y
OU HAVE JUST BEEN TESTED ON ";HIGH;" OF
40":VT%.12:.30100...".."PEG WORDS. MEMOR
Y TRAINER ENCOURAGES":VT%.14:.30100...#.
."YOU TO BE TESTED ON 10 MORE PEG NAMES.
"...*.VT%.16:.30100:.211,0:."DO YOU WANT
TO DO SO? (Y/N) ";...+..71...,.. QN.1 .
110.5.4..C$."Y".HIGH.HIGH.10:LOW.LOW.10
:.680.F.>..C$.."N".810.U.H..3800:.110.Q.
R.. DISPLAY NAMES & FACES...\..VV.0..700
0:VV.1...].. QN.1 . 110...F.FILE$."N10":
.7500...G.. QN.1 . 110.T.K.FILE$."N11":.
7500...L.. QN.1 . 110...P.KMAX.12:.1700:
. PARAMETER SELECTION...Q.. QN.1 . 110.D
.Z..13000:VT%.12:.30100:.211,4:SEC.3.~.{
.FILE$."GET READY FOR NAMES AND FACES":.
30000:.G(146);.....LOW.1:HIGH.TMAX:.6000
...... QN.1 . 110.D....G(147);:VT%.10:.3
0100......"GET READY TO REMEMBER WHO'S W
HO...":VT%.23:.30100.&...."PRESS <SPACE
BAR> TO BE TESTED...";.0....9515.A.... Q
N.1 . 110.K....5000.\.... QN.1 . 110.U..
..5500:. RECALL FACES...... QN.1 . 110..
....C$."Y".880......110.O....13000:VT%.8
:.30100:."YOU HAVE JUST EXITED".....VT%.
10:.30100:.G(18);"THE EINSTEIN MEMORY TR
AINER";.?....G(146);".":VT%.12:.30100:."
THANK YOU FOR PLAYING!".S...VT%.22:.3010
0:..O.... RANDOM ORDER SELECTOR.....RDR%
(1).XNUM..(1).1......I.2.XMAX.....RDR%(I
).XNUM..(1).1......J.1.I.1......RDR%(I).
RDR%(J).1530:. GET A NEW RANDOM #......J
:.I...?........ MEMORY OPTION SELECT.K..
..G(147);G(18);:FILE$."SET MEMORY PRACTI
CE OPTIONS".^....2990:.G(146);.V...VT%.4
:.30100:.211,0......"NUMBER OF FACES/NAM
ES (5 TO ";KMAX;")...";.36);.J.B..72:.80
:TMAX.E(L$):.211,0.Y.C.. QN.1 . ....L...
((TMAX.KMAX).(TMAX.5)).1750...M..30200:.
1720.=.N.."ILLEGAL ENTRY! PLEASE ENTER A
GAIN";G(146);.O.V.VT%.6:.30100:."HELP WI
TH PEG NAMES--";:.30200...X.VT%.8:.30100
:.211,3...Y.."IN MEMORIZING: (Y)ES OR (N
)O.....";.36);.B.Z..71:.C$.Q.... QN.1 .
.......C$."Y".PROMPT.0:.1772......C$."N"
.PROMPT.1:.1772......1750.....PW.0.3...V
T%.10:.30100:.211,0.E...."DISPLAY SPEED:
(1)SLOW TO (4)FAST...";.36);.Y....71:.C
$:X.E(C$)...... QN.1 . .......(X.4).(X.0
).1790.....DTIME.12.X.....TYPE.1...0.SC.
10.(PROMPT.PW.1).X.TYPE:TYPE.TYPE.1.. :.
VT%.17:.30100:."SCORE FOR EACH CORRECT A
NSWER ......";.@ ;...36);G(18);SC;G(146)
;:.30200.Y D.VT%.21:.30100:.211,0.. E.."
ARE THESE THE OPTIONS YOU WANT? (Y/N) ";
:.71:.C$.. F.. QN.1 . ... N..C$."Y".1899
.B X..C$.."N".1860.L B..1720.R K.... P..
UNTIMED KEYBOARD RETRIEVE..!Z.K.LOW:PRT
.1:QUIT.0:.G(147);:C$."".6!...I.LOW.HIGH
:AFT$(I)."":.I.Q!...G(18);:.2990:.G(146)
;.G!...XY.1.10:.XX$:.XY..!..DFR.(HIGH.LO
W.1).2:.COL.1.DFR.HIGH.1..!..OFFSET..((H
IGH.LOW).2)..!...I.LOW.HIGH.J!..AH.LMARG
IN..!...(I.LOW)..DFR.AH.LMARGIN.21..! .A
V.2.(I.LOW).3.%"!..(I.LOW)..DFR.AV.2.(I.
LOW.OFFSET).1.Z"*.VT%.AV:.30100:.211,AH.
1:.MSG$(I);.AH.10);TMP$(I).A"4..I..">.VT
%.22:.30100:.I.0.7:."-----";:.I.."H.VT%.
23:.30100:.G(18);"^";G(146);.N"I.." FOR
PREVIOUS LINE; ";G(18)..#R.VT%.24:.30100
:."PRESS <RETURN> AFTER EACH ENTRY.";..#
\..PRT.1..2400.&#F..73:X.F(C$).5#G.. QN.
1 . ..\#Z.. X.17 . (X.13).2220:. RIGHT A
RROW..#..(AN$."@").((X.49).(X.50)).QUIT
.1:...#... SPECIAL TOGGLE SCHEME FOR LES
SON 2 PEG NAMES.O#...X.42. QUIT.1:.2220.
.#...(X.94)..2500:.2240:. BACK ARROW..$.
..(X.37).(X.32).2280:. CONTINUE TIMING.1
$...80:AFT$(K).L$.@$... QN.1 . ..Z$..VT%
.AV:.30100:.211,AH.1:.MSG$(K);H(EL$,AH.1
0.B(211));..$...H(BEF$(K),3).H(AFT$(K),3
)..BEF$(K);:.30200.L$..K.K.1:.QUIT.1.K.H
IGH.1:QUIT.0.V$..PRT.1..$J.. MU..$T.. 75
:. RESET STROBE..%...K.HIGH..2310..%...C
$."Y".2300.6%...2140:. BACK TO THE TOP.C
%..QUIT.0:..[%... ANY MORE CHANGES?.F%..
K.HIGH..%...H(VT$,23);:.H(EL$,39);:. CL
EAR TO-END-OF-L..%$.VT%.25:.30100:.".";:
.211,0:.MU..%%.."ARE YOU FINISHED MAKING
ENTRIES? (Y/N) ";:.30200..&..VT%.24:.30
100:.211,39:.71..&/.. QN.1 . ..V&8..C$."
Y".2390:. RETURN TO MAIN PORTION OF SUBR
OUTINE.P&=..C$.G(17).K.LOW:.2380..&B..C$
."N".C$.G(94).2380..&G..2350..&L..H(VT$,
23);:.".^.";.H&M.." FOR PREVIOUS LINE; "
..'Q.VT%.24:.30100:."MAKE CHANGES AND RE
TURN PAST LAST ENTRY";..'V...&'`.. HIGHL
IGHT NEXT LINE.5'J.AH.LMARGIN.U'T..(K.LO
W)..DFR.AH.LMARGIN.21.H'~.AV.2.(K.LOW).3
..'..(K.LOW)..DFR.AV.2.(K.LOW.OFFSET).1
.C'..VT%.AV:.30100:.211,AH.1:.G(18);MSG$
(K);G(146);.W'....AH.6);"--> ";..'..PRT.
0..'.....'D.. BACKSPACE HANDLER.9(N.VT%.
AV:.30100:.211,AH.1:.MSG$(K);H(EL$,AH.10
.B(211));.C(X.K.K.1.O(...K.LOW.K.LOW:. P
REVENT OFF-SCREEN ERROR.U(.....(T.SEC.SE
C.2.(SEC.0):.X.1.SEC.75:. C$:.9600:.:..L
(...30100:.211,40.X:.H(FILE$,X);" ";..(.
.. CLICK SPEAKER ONCE..(...:...)... CENT
ER SLIDE.()..L.B(214):.X.1.19.C(FILE$).2
:VT%.L.1.<)... CENTER STRING.A).....((40
.C(FILE$)).2));FILE$;.40).N)...211,0:...
)... RECALL TESTER..)B.ANS.0:. ZERO THE
# OF CORRECT ANSWERS..)L..13000.Z)V..330
0:. REMOVE TRAILING BLANKS..*... DISPLAY
CORRECT & INCORRECT ANSWERS.9*..FILE$."
YOUR TEST RESULTS":.G(18);:.2990:.G(146)
;.H*..VT%.3:.30100:.211,5:."CORRECT";.14
);"YOUR"..*..VT%.4:.30100:..5);"RESPONSE
";.24);"RESPONSE"..*...I.0.7:."-----";:.
I.C*...:.I.LOW.HIGH..*...BEF$(I)."".BEF$
(I)." ":. SKIP THIS ONE IF IT'S BLANK..+
&..MSG$(I);.8);.4+0..H(BEF$(I),3)..H(AFT
$(I),3).3130.H+1..H(BEF$(I),14);:ANS.ANS
.1:AFT$(I).BEF$(I):.3140..+:..G(18);H(BE
F$(I),14);G(146);..+D..211,23:.H(AFT$(I)
,14)..+N..I.M+X.X..(100.ANS.(HIGH.LOW.1)
.0.5)..+B..:."YOU REMEMBERED ";G(18);ANS
;G(146);.#,C.." CORRECTLY, OR ";G(18);X;
".%"G(146);.-,L..9500.3,....X,... REMOVE
TRAILING BLANKS IN AFT$.H,...I.LOW.HIGH
..,..X.C(AFT$(I)).1:.X.0.3350..,...I(AFT
$(I),1)." ".AFT$(I).H(AFT$(I),X):.3320..
,...H(AFT$(I),1)." ".AFT$(I).I(AFT$(I),X
):.3320..,...I:...-T.. WINNER'S MESSAGES
..-~..ANS.0.7.TMAX.3790.U-...G(147);:VT%
.9:.30100:FILE$."--CONGRATULATIONS--".C-
...2990:.:...-...ANS.TMAX.FILE$."YOUR ME
MORY WAS PERFECT!!":.3760.U-...ANS..0.9.
TMAX.FILE$."YOUR MEMORY WAS EXCELLENT!":
.3760......ANS..0.8.TMAX.FILE$."YOUR MEM
ORY WAS VERY GOOD!":.3760.N....ANS..0.7.
TMAX.FILE$."YOUR MEMORY WAS GOOD. KEEP I
T UP!".|....2990:FILE$."8786878587848783
5654":.16000.....FILE$."5653565293949596
979981":.16000......9500...... QN.1 . ..
Z.N..G(147);:VT%.12:.30100../O.."DO YOU
WANT TO BE TESTED AGAIN? (Y/N) ";.&/S..7
1:.(C$."Y").(C$."N")...5/T.. QN.1 . ..?/
W..3795.U/X.. LOSER'S MESSAGE.J/...ANS..
0.7.TMAX..../..FILE$."FAILURE":.7500../.
..../... RECALL NAMES & FACES../..ANS.0.
./..XMAX.TMAX:XNUM.TMAX:.1500:. RANDOM R
E-DISPLAY../...I.1.TMAX..0..Z.NF%(1,RDR%
(I))..0... X=FRE(0).L0D.FILE$."FACE".I(D
(Z),C(D(Z)).1):.6500:. HIRES DISPLAY.^0N
.VT%.24:.30100..0O.."ENTER NAME AND PRES
S <RETURN>";..0X.VT%.22:.30100:.211,0:.G
(18);"NAME";G(146);.Y0Y.." --> ....":VT%
.22:.30100:.211,9..0...XY.1.10:.XX$:.XY:
.73..1... QN.1 . ...1...80:AFT$(I).L$.$1
... QN.1 . ..<1... 49155:.G(147);:.I.X1.
.LOW.1:HIGH.TMAX:.3300:..U1|.. CORRECT A
NSWER DISPLAY..1...G(147);..1..LOW.1:HIG
H.TMAX:.3300:. STRIP BLANKS..1..FILE$."Y
OUR TEST RESULTS":.G(18);:.2990:.G(146);
..2..VT%.3:.30100:.211,8:."CORRECT";.24)
;"YOUR".62...211,8:."RESPONSE";.24);"RES
PONSE".L2...I.1.39:."-";:.:..Z2...I.1.TM
AX..2B..H(AFT$(I),3).H(BEF$(RDR%(I)),3).
5580..2C..211,9:.G(18);BEF$(RDR%(I));G(1
46);.25);AFT$(I).B2D..5590..2L.ANS.ANS.1
:..10);BEF$(RDR%(I));.25);BEF$(RDR%(I)).
.2V..I.!3..X..((100.ANS.TMAX).0.5):AX.AN
S.L3...:."YOU REMEMBERED ";G(18);ANS;G(1
46);.V3..." CORRECTLY, OR ";G(18);X;"%";
G(146)..3...SKIP.1.5660:. FOR INTRODUCTI
ON.D3..VT%.21:.30100:.211,0:."YOUR SCORE
: ";..3...G(18);SC.AX;G(146);..4...AX.SC
.TS.TS.AX.SC:.211,19:.G(7);G(7);.@4..FIL
E$."HIGHEST SCORE: ".D(TS):SEC.4:.30000:
.G(146);.O4... QN.1 . ..~4...211,19:."HI
GHEST SCORE: ";G(18);TS;G(146)..4...9500
..4... QN.1 . ..B4&..SKIP.1.5690:. GO BA
CK TO INTRODUCTION..40..3700:. WINNERS &
LOSERS MESSAGES..4:....5P.. DISPLAY FAC
ES.55Z.XMAX.TMAX:XNUM.20:.1500:. RANDOM
FACE SELECTOR.J5...I.1.TMAX:RTDR%(I).RDR
%(I):.I:. FOR RANDOM NAMES..5..XNUM.28:.
1500:. RANDOM FACES..5...I.1.TMAX..5..Z.
RDR%(I):Y.RTDR%(I).U5..FILE$."FACE".I(D(
Z),C(D(Z)).1)..5...6500:. MACHINE LANG D
ISPLAY ROUTINE..6...MU.86J..6200:. GENER
ATE ACTUAL NAMES/DATES OR PHONES.X6T.VT%
.22:.30100:FILE$.BEF$(I).N6U.SEC.1:.2900
:.2980..6..NF%(1,I).Z:. STORE ACTUAL FAC
E USED; WILL BE PAIRED WITH BEF$(I).P6..
.PROMPT.1.FILE$."":.6160..6...(PROMPT.0)
.(Z..14).FILE$.PEG$(Y)..7...(PROMPT.0).(
Z.14).FILE$.PEG$(Y.20).C7...211,0:VT%.24
:.30100:SEC.1:.2900.I7..."PEG NAME: ";G(
18);FILE$;G(146);.}7..SEC.DTIME:.2900..7
... QN.1 . ...7... 49155:.G(147);:.I..7$
...H78.. CORRECT NAMES & NUMBERS..7L..Z.
.14.BEF$(I).MEN$(Y)..7V..Z.14.BEF$(I).WO
MEN$(Y)..8.....8D.. HIRES DISPLAYER.A8N.
.G(147);:. 6550:. 49158:. 49152:.._8X..
CALL HIRES LOAD ROUTINE.R8... LOAD ROUTI
NE..8 .. 49155:LS.LD.3:. LS,C(FILE$).D8.
.. T.1 . C(FILE$):. LS.T,F(J(FILE$,T,1))
:. T..8... LD: 4:. (ST . 191) . 17000..
8.....9H.. PICTURE DISPLAY..9R..6500:.95
00:. 49155.)9...G(147);:..E9X.. PERSONAL
DISK SECTION.Q9B..DSK$.."Y"..:. SUBJECT
HAS NO DISK FILE..9L.RW$."READ ":SD$."A
":.7200:...9... WRITE TO PERSONAL DISK.M
9F.RW$."WRITE ":SD$."A":.7450..:Z..13000
:FILE$."LOADING MEMORY TRAINER MAIN MENU
".,:..VT%.12:.30100:.2990:. "INTRODUCTIO
N",8.D:...110:. JUST IN CASE.]: .. READ/
WRITE TO DISK..:*..DSK$.."Y".7430:. NO D
ISK FILE; LEAVE..:4.C$."UPDATE":.RW$."RE
AD ".C$."USE".H:>..G(147);:VT%.10:.30100
..:?.."DO YOU WANT TO ";C$;" THE PEG NAM
ES".';H.VT%.12:.30100:."ON YOUR PERSONAL
DISK? (Y/N) ";.3;I..71:.C$.B;J.. QN.1 .
..S;R..C$."Y".7290.{;\..(C$."N").((SD$.
"QUIT").(QUIT.2))....;].. QUIT FOR NOW S
ECTION..;F..(C$."N").(RW$."READ ")...V;K
..(C$."N").(RW$."WRITE ").7450..;P..7240
:. DEFAULT..<Z..G(147);:VT%.10:.30100:.M
U:."INSERT YOUR ";.N<{..G(18);"PERSONAL
DISK";G(146);" INTO DRIVE #1."..<.VT%.1
5:.30100:.211,0:."(PRESS <CTRL-C> TO CAN
CEL)"..<...9500..<... QN.1 . ..K<...XY.1
.10:.XX$:.XY:.G(147);:VT%.12:.30100..<..
FILE$."USING YOUR PERSONAL DISK":.2990..
=... ACTUAL DISK ACCESS.W=... OPEN 2,8
,2,AD ";FLNM$:REM 1ST CHECK TO SEE IF TH
E FILE IS THERE.O=... PRINTD$;"CLOSE".
.=... RW$."READ " . . 2,8,2,FLNM$.".NAM"
.M=... RW$."WRITE " . . 2,8,2,"@:".FLNM$
.".NAM,SEQ,W"..=... RW$ IS A READ/WRITE
FLAG..>J..RW$."READ "..2,PLMAX:. ST . 19
1 . 17000.P>T..RW$."WRITE ".PLMAX.10:.2,
PLMAX:. ST . 191 . 17000.\>...I.1.40.X>.
..RW$."READ "..2,PEG$(I)..>...RW$."WRITE
". A$.PEG$(I):. A$."" . A$."XXX".A>...R
W$."WRITE "..2,A$.L>...I: 2..>...(SD$."
QUIT")....>...G(147);:.MU:VT%.10:.30100.
7?..."BE SURE MEMORY TRAINER ";G(18);"DI
SK ";SD$;G(146).P?..VT%.12:.30100:."IS P
ROPERLY INSERTED INTO DRIVE #1.". ?..VT%
.16:.30100:."(PRESS <CTRL-C> TO CANCEL)"
..?$..9500:..J?L.. TEXT FILE SCREEN WRIT
ER..?`.. 2,8,2,FILE$:. ST . 17000..?J..I
.1.24.#@T..2,S9$(I):. (I..24 . ST..64) .
ST . 17000./@~.. I: 2.B@..FILE$."THE E
INSTEIN MEMORY TRAINER: LESSON #1"..@...
G(147);G(18);:.2990:.G(146)..@...I.2.22.
.@...S9$(I):.I.G@..SEC..5:.2900:VT%.24:.
30100:.S9$(23);.Q@...9515..@...13000:...
@@.. MENU SELECTOR..AJ..G(147);:.XY.1.10
:.XX$:.XY.9AT.FILE$."THE EINSTEIN MEMORY
TRAINER".TAU..G(18);:.2990:.G(146);..A^
.VT%.24:.30100:."FILE NAME: ";G(18);FLNM
$;G(146);..AH.VT%.4:.30100:.211,0.NAI.FI
LE$."LESSON #1: NAMES AND FACES":.2990..
AR..I.65.64.MAX..A|.S.I.64..B..VT%.S.6:.
30100:.G(I)" : "PGM$(S)..B...:..(B...PV$
."".8110.EB..VT%.20:.30100:."(YOUR PREVI
OUS SELECTION WAS '";PV$;"')"..B..VT%.18
:.30100:."SELECT OPTION: ";..B...30200:.
CLEAR TO EOL..B...71:C.F(C$):AN$.C$.TBL
..C.65.C.64.MAX.8120..BV..:C.C.64..B..VT
%.C.6:.30100.%C...G(18);AN$;G(146);" : "
;G(18);PGM$(C);G(146).BC..VT%.18:.30100:
."IS THIS THE SELECTION YOU WANT? (Y/N)
";..C...71:.C$.."Y".C$.."N"..B$;:.8180..
C...C$:.C$.."N".PV$.AN$:.8210.OC. VT%.C.
6:.30100:.AN$" : "PGM$(C):.8110.ZC. ."."
:...C.%. WAIT FOR SPACE BAR TO CONTINUE.
6D&%VT%.24:.30100:."PRESS <SPACE BAR> TO
CONTINUE...";.?D+%. 75.GD0%.73.VD1%. QN
.1 . ..KD5%. C$.." " . 9520.VD:%. 75:...
D.%. C$.G(3). . 204,1:PV$."":. 49155:QN.
1..D.%...D.'. INITIALIZATION..D.'.RDR%(4
0),NF%(2,20),RTDR%(20)..E$'KMAX.3:DTIME.
10:D$.G(13).G(4)..E)'.I.1.10:PGM$(I)."":
.I.2E`'.I.1.20:.MEN$(I):.I.MEJ'. BILL,BO
B,BRUCE,CHUCK,DAVE,DENNIS,ED,FRANK,HARRY
,JACK..EK'. JEFF,JIM,JOE,JOHN,KEN,MARK,M
IKE,PHIL,STEVE,TOM..ET'.I.1.20:.WOMEN$(I
):.I..E~'. ALICE,ANNE,CAROL,CATHY,DORIS,
EILEEN,GAIL,JANE,JEAN,JOAN.6F'. JOYCE,J
ULIE,KATE,LISA,LIZ,RUTH,SANDY,SHERRY,SUE
,WENDY.CF.'.I.1.20:.PEGNAME$(I):.I:. MAL
E PEG-NAMES..F.'. DOLLAR BILL,BOBSLED,NO
OSE,WAGON,WAVE,TENNIS,BED,HOT DOG.PF.'.
HAIRY,BEANSTALK,CHEF,JUNGLE,TOE,YAWN,HEN
..F.'. SHARK,MICROPHONE,PILL,STOVE,THUMB
.(G.'.I.21.40:.PEGNAME$(I):.I:. FEMALE P
EG-NAMES.GG.'. PALACE,ANT,BARREL,CAT,DOO
RS,ISLAND,SAIL,CHAIN,JEANS,BONE..G.'. JU
ICE,JEWELRY,SKATE,PIZZA,LIZARD,TOOTH,BEA
CH,CHERRY,SHOE,WINDY..GL). MUSIC STUFF.K
GV)SX.54272..G.). T.1 . 9:. HF%(T),LF%(T
):. T:. FREQ..3H.). 16,195,18,209,21,31,
22,96,25,30,28,49,31,165,33,135,0,0.9H.)
..NH.*. READ FILE NAME..H.+FLNM$."":DSK$
.G(B(DE)):.DSK$.."Y".FLNM$."NONE":. 1170
0..H.+.I.1.B(NM):FLNM$.FLNM$.G(B(NM.I)):
.I.NH.-. REAL RANDOM GENERATOR.ZH.-A.B(7
8)..HH-B.A.1:. BE SURE A<>0..IR-.X.1.10:
.202,B:ANS..(1):.X.*IR..I.0.9:.PITCH(I):
.I.DIS..0,PITCH(.(7..(1)).1).JI|.. 0,133
,121,107,100,90,80,70,66,1.PI.....IH2. C
ENTER/OUT WIPEOUT..IR2.G(147);:...I.>. M
ELODY PLAYER..I.>.I.1.C(FILE$).TI.>X.E(J
(FILE$,I,1))..J.>. SX.1,HF%(X):. SX,LF%(
X):. SX.4,33:SEC.0.07:. 2900.$J.>. QN.1
. . SX.4,0:..5J.>. SX.4,0:. I.;J.>..PJHB
. ERROR HANDLING.HJMB. 49155:.1,A,B$: 2
.UJRB.G(147);..J.BY.A:. :X=PEEK(218)+
256*PEEK(219)..J.B. X=LINE #; Y=ERROR #.
YJ.BL$."A1":. REVISION & LESSON #..K.BVT
%.2:.30100:."USER NAME: ";G(18);FLNM$;G(
146);.%K.BVT%.4:.30100:.211,0.IK.B.G(146
);"AN ERROR HAS OCCURED!".{K.BVT%.6:.301
00:."ERROR CODE: #";Y;" ";L$;B$..KBB
VT%.10:.30100:."ERROR MESSAGE: ";.FKLB.Y
.26.."DISK IS WRITE PROTECTED"..KVB.Y.62
.."FILE WAS NOT FOUND"..L.B.Y.72.."YOUR
DISK IS FULL"..L.BVT%.12:.30100:.211,0.S
L.B.G(18);"CHECK THAT THE APPROPRIATE DI
SK":VT%.14:..L.C.30100:."IS PROPERLY INS
ERTED IN DRIVE #1.";G(146).FL.CVT%.24:.3
0100:.211,0:."PRESS <SPACE BAR> TO RESUM
E...";.PL.C.9515..L.C.110:. TO MAIN MENU
..L0U. FLASH ROUTINE..M:UVT%.B(214):CX.B
(211).GMDU. T.1 . 6:. 211,CX:.".";FILE$;
:SEC.0.1:. 2900.KMNU. 211,CX:.".";FILE$;
:. 2900:. T.QMXU...M.U. VT% ROUTINE..M.U
.H(VT$,VT%);:...M.U. EL ROUTINE.RM.VCU.B
(204):CL.B(211):. CL.39 . CL.CL.39..M.V.
204,0:.H(EL$,39.CL);"..";..N V. 211,CL:
. 204,CU:....
> CLICK IMAGE PREVIEW FOR FULL MODAL