LESSON5
FILE INFORMATION
FILENAME(S): LESSON5
FILE TYPE(S): PRG
FILE SIZE: 17.1K
FIRST SEEN: 2025-12-02 23:10:09
APPEARS ON: 1 disk(s)
FILE HASH
9d6d85ecf3682c87874169b00ee95daf49e108960d2ffb1da3fef7d4b41086af
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES XLVI | LESSON5 | PRG | swasti, chrisbitti1 | 14 | 1 | 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: 35 3A 50 48 4F 4E 45 20 4E 55 4D 42 45 52 53 00 |5:PHONE NUMBERS.|
00000020: 45 08 14 00 9F 20 31 2C 38 2C 31 35 3A 97 20 35 |E.... 1,8,15:. 5|
00000030: 33 32 38 31 2C 30 3A 97 20 35 33 32 38 30 2C 30 |3281,0:. 53280,0|
00000040: 3A 99 22 05 22 00 88 08 15 00 4D 55 B2 34 39 36 |:.".".....MU.496|
00000050: 33 37 3A 45 4C B2 34 39 36 33 37 3A 47 52 B2 34 |37:EL.49637:GR.4|
00000060: 39 36 33 37 3A 45 52 B2 34 39 36 33 37 3A 44 45 |9637:ER.49637:DE|
00000070: B2 34 39 36 36 37 3A 4E 4D B2 34 39 36 36 38 3A |.49667:NM.49668:|
00000080: 4C 44 B2 34 39 35 39 34 00 BD 08 17 00 45 4C 24 |LD.49594.....EL$|
00000090: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 EF 08 | "...|
000000C0: 19 00 56 54 24 B2 22 13 11 11 11 11 11 11 11 11 |..VT$.".........|
000000D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000E0: 11 11 11 11 11 22 3A 5A 45 24 B2 C7 28 30 29 00 |.....":ZE$..(0).|
000000F0: 08 09 22 00 86 4D 45 4E 24 28 32 30 29 2C 57 4F |.."..MEN$(20),WO|
00000100: 4D 45 4E 24 28 32 30 29 00 26 09 26 00 86 54 31 |MEN$(20).&.&..T1|
00000110: 24 28 31 30 29 2C 41 46 54 24 28 31 30 29 2C 44 |$(10),AFT$(10),D|
00000120: 31 24 28 31 30 29 00 45 09 2A 00 86 20 20 4E 24 |1$(10).E.*.. N$|
00000130: 28 32 2C 31 30 29 2C 44 32 24 28 31 30 29 2C 44 |(2,10),D2$(10),D|
00000140: 33 24 28 35 29 00 6A 09 2E 00 86 42 45 46 24 28 |3$(5).j....BEF$(|
00000150: 31 30 29 2C 4D 53 47 24 28 31 30 29 2C 48 46 25 |10),MSG$(10),HF%|
00000160: 28 39 29 2C 4C 46 25 28 39 29 00 8A 09 32 00 86 |(9),LF%(9)...2..|
00000170: 54 4D 50 24 28 31 30 29 2C 50 45 47 24 28 34 30 |TMP$(10),PEG$(40|
00000180: 29 2C 45 47 24 28 31 30 30 29 00 97 09 36 00 86 |),EG$(100)...6..|
00000190: 20 47 4D 24 28 36 29 00 A4 09 3A 00 86 53 39 24 | GM$(6)...:..S9$|
000001A0: 28 32 34 29 00 AD 09 3C 00 89 31 30 30 00 B6 09 |(24)...<..100...|
000001B0: 47 00 8D 20 37 36 00 C9 09 48 00 97 20 32 30 34 |G.. 76...H.. 204|
000001C0: 2C 30 3A 99 22 1D 9D 22 3B 00 DB 09 49 00 A1 43 |,0:."..";...I..C|
000001D0: 24 3A 8B 43 24 B2 22 22 A7 37 33 00 F5 09 4A 00 |$:.C$."".73...J.|
000001E0: 97 20 32 30 34 2C 31 3A 99 22 1D 9D 22 3B 3A 8D |. 204,1:."..";:.|
000001F0: 20 39 36 30 30 00 10 0A 4B 00 43 24 B2 C7 28 C6 | 9600...K.C$..(.|
00000200: 28 43 24 AA 5A 45 24 29 AF 20 31 32 37 29 3A 8E |(C$.ZE$). 127):.|
00000210: 00 2D 0A 4C 00 81 20 58 58 B2 31 20 A4 20 31 30 |.-.L.. XX.1 . 10|
00000220: 3A A1 20 58 58 24 3A 82 20 58 58 3A 8E 00 49 0A |:. XX$:. XX:..I.|
00000230: 4F 00 8F 20 53 50 45 43 49 41 4C 20 49 4E 50 55 |O.. SPECIAL INPU|
00000240: 54 20 52 4F 55 54 49 4E 45 00 73 0A 50 00 48 B2 |T ROUTINE.s.P.H.|
00000250: C2 28 32 31 31 29 AA 31 3A 56 B2 C2 28 32 31 34 |.(211).1:V..(214|
00000260: 29 AA 31 3A 4C 24 B2 22 22 3A 4C B2 31 31 3A 89 |).1:L$."":L.11:.|
00000270: 20 38 32 00 86 0A 51 00 8D 37 32 3A 8B 20 51 4E | 82...Q..72:. QN|
00000280: B2 31 20 A7 20 8E 00 B9 0A 52 00 43 58 B2 C6 28 |.1 . ....R.CX..(|
00000290: 43 24 AA 5A 45 24 29 3A 8B 43 58 B2 31 33 A7 99 |C$.ZE$):.CX.13..|
000002A0: C8 28 45 4C 24 2C 4C AB C3 28 4C 24 29 29 3A 97 |.(EL$,L..(L$)):.|
000002B0: 32 31 31 2C 48 AB 31 3A 8E 00 C9 0A 53 00 8B 43 |211,H.1:....S..C|
000002C0: 58 B3 B1 32 30 20 A7 38 36 00 DF 0A 54 00 52 24 |X..20 .86...T.R$|
000002D0: B2 22 58 22 AA C9 28 4C 24 2C 31 29 AA 52 24 00 |."X"..(L$,1).R$.|
000002E0: 03 0B 55 00 8B 4C 24 B1 22 22 A7 48 B2 48 AB 31 |..U..L$."".H.H.1|
000002F0: 3A 4C 24 B2 CA 28 4C 24 2C 31 2C C3 28 4C 24 29 |:L$..(L$,1,.(L$)|
00000300: AB 31 29 00 28 0B 56 00 8B 43 58 B2 32 31 AF 52 |.1).(.V..CX.21.R|
00000310: 24 B1 22 22 A7 48 B2 48 AA 31 3A 4C 24 B2 4C 24 |$."".H.H.1:L$.L$|
00000320: AA C8 28 52 24 2C 31 29 00 3F 0B 58 00 8B 43 58 |..(R$,1).?.X..CX|
00000330: B3 33 32 A7 43 24 B2 22 22 3A 48 B2 48 AB 31 00 |.32.C$."":H.H.1.|
00000340: 5D 0B 59 00 8B C3 28 4C 24 29 AA C3 28 43 24 29 |].Y...(L$)..(C$)|
00000350: B2 4C A7 99 C7 28 37 29 3B 3A 89 38 31 00 8B 0B |.L...(7);:.81...|
00000360: 5A 00 99 43 24 3B 3A 48 B2 48 AA 31 3A 56 54 25 |Z..C$;:H.H.1:VT%|
00000370: B2 56 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 48 |.V:.30100:.211,H|
00000380: AB 31 3A 4C 24 B2 4C 24 AA 43 24 00 9E 0B 5B 00 |.1:L$.L$.C$...[.|
00000390: 52 24 B2 CA 28 52 24 2C 32 29 3A 89 38 31 00 B0 |R$..(R$,2):.81..|
000003A0: 0B 64 00 8D 31 33 30 30 30 3A 8D 31 30 30 30 30 |.d..13000:.10000|
000003B0: 00 DC 0B 6E 00 50 47 4D 24 28 31 29 B2 22 49 4E |...n.PGM$(1)."IN|
000003C0: 54 52 4F 44 55 43 54 49 4F 4E 20 54 4F 20 4C 45 |TRODUCTION TO LE|
000003D0: 53 53 4F 4E 20 23 35 22 3A 9E 45 52 00 0C 0C 78 |SSON #5":.ER...x|
000003E0: 00 50 47 4D 24 28 32 29 B2 22 41 53 53 4F 43 49 |.PGM$(2)."ASSOCI|
000003F0: 41 54 45 20 57 4F 52 44 53 20 41 4E 44 20 50 48 |ATE WORDS AND PH|
00000400: 4F 4E 45 20 4E 55 4D 42 45 52 53 22 00 3C 0C 82 |ONE NUMBERS".<..|
00000410: 00 50 47 4D 24 28 33 29 B2 22 52 45 4D 45 4D 42 |.PGM$(3)."REMEMB|
00000420: 45 52 20 4E 41 4D 45 53 20 57 49 54 48 20 50 48 |ER NAMES WITH PH|
00000430: 4F 4E 45 20 4E 55 4D 42 45 52 53 22 00 6C 0C 8C |ONE NUMBERS".l..|
00000440: 00 50 47 4D 24 28 34 29 B2 22 50 52 41 43 54 49 |.PGM$(4)."PRACTI|
00000450: 43 45 20 4D 45 4D 4F 52 49 5A 49 4E 47 20 50 48 |CE MEMORIZING PH|
00000460: 4F 4E 45 20 4E 55 4D 42 45 52 53 22 00 9D 0C 96 |ONE NUMBERS"....|
00000470: 00 50 47 4D 24 28 35 29 B2 22 52 45 54 55 52 4E |.PGM$(5)."RETURN|
00000480: 20 54 4F 20 4D 41 49 4E 20 4D 45 4D 4F 52 59 20 | TO MAIN MEMORY |
00000490: 54 52 41 49 4E 45 52 20 4D 45 4E 55 22 00 B8 0C |TRAINER MENU"...|
000004A0: A0 00 50 47 4D 24 28 36 29 B2 22 51 55 49 54 20 |..PGM$(6)."QUIT |
000004B0: 46 4F 52 20 4E 4F 57 22 00 CD 0C AA 00 4D 41 58 |FOR NOW".....MAX|
000004C0: B2 36 3A 8D 38 30 30 30 3A 51 4E B2 30 00 ED 0C |.6:.8000:QN.0...|
000004D0: B4 00 91 43 89 31 39 30 2C 32 33 30 2C 34 35 30 |...C.190,230,450|
000004E0: 2C 36 38 30 2C 37 31 30 30 2C 39 39 37 00 03 0D |,680,7100,997...|
000004F0: BE 00 46 49 4C 45 24 B2 22 50 48 31 22 3A 8D 37 |..FILE$."PH1":.7|
00000500: 35 30 30 00 14 0D BF 00 8B 20 51 4E B2 31 20 A7 |500...... QN.1 .|
00000510: 20 31 31 30 00 2A 0D C8 00 46 49 4C 45 24 B2 22 | 110.*...FILE$."|
00000520: 50 48 32 22 3A 8D 37 35 30 30 00 3B 0D C9 00 8B |PH2":.7500.;....|
00000530: 20 51 4E B2 31 20 A7 20 31 31 30 00 54 0D D2 00 | QN.1 . 110.T...|
00000540: 46 49 4C 45 24 B2 22 52 41 42 42 49 54 22 3A 8D |FILE$."RABBIT":.|
00000550: 36 36 30 30 00 65 0D D3 00 8B 20 51 4E B2 31 20 |6600.e.... QN.1 |
00000560: A7 20 31 31 30 00 80 0D DC 00 46 49 4C 45 24 B2 |. 110.....FILE$.|
00000570: 22 50 48 33 22 3A 8D 37 35 30 30 3A 89 31 31 30 |"PH3":.7500:.110|
00000580: 00 96 0D E6 00 46 49 4C 45 24 B2 22 50 48 34 22 |.....FILE$."PH4"|
00000590: 3A 8D 37 35 30 30 00 A7 0D E7 00 8B 20 51 4E B2 |:.7500...... QN.|
000005A0: 31 20 A7 20 31 31 30 00 CB 0D F0 00 4C 4D 41 52 |1 . 110.....LMAR|
000005B0: 47 49 4E B2 36 3A 4C 4F 57 B2 31 3A 48 49 47 48 |GIN.6:LOW.1:HIGH|
000005C0: B2 37 3A 99 C7 28 31 34 37 29 3B 00 F4 0D FA 00 |.7:..(147);.....|
000005D0: 81 49 B2 31 A4 31 30 3A 4D 53 47 24 28 49 29 B2 |.I.1.10:MSG$(I).|
000005E0: 22 28 22 AA C4 28 49 29 AA 22 29 20 22 AA 44 31 |"("..(I).") ".D1|
000005F0: 24 28 49 29 00 0A 0E FB 00 42 45 46 24 28 49 29 |$(I).....BEF$(I)|
00000600: B2 44 32 24 28 49 29 3A 82 49 00 40 0E 04 01 4C |.D2$(I):.I.@...L|
00000610: 4D 41 52 47 49 4E B2 32 3A 52 4D 41 52 47 49 4E |MARGIN.2:RMARGIN|
00000620: B2 32 36 3A 4C 4F 57 B2 31 3A 48 49 47 48 B2 31 |.26:LOW.1:HIGH.1|
00000630: 30 3A 41 4E 24 B2 22 2E 2E 2E 2D 2E 2E 2E 2E 22 |0:AN$."...-...."|
00000640: 00 81 0E 09 01 46 49 4C 45 24 B2 22 20 45 4E 54 |.....FILE$." ENT|
00000650: 45 52 20 54 48 45 20 43 4F 52 52 45 53 50 4F 4E |ER THE CORRESPON|
00000660: 44 49 4E 47 20 50 48 4F 4E 45 20 4E 55 4D 42 45 |DING PHONE NUMBE|
00000670: 52 53 20 22 3A 43 4F 4C B2 31 3A 8D 20 32 30 30 |RS ":COL.1:. 200|
00000680: 30 00 92 0E 0A 01 8B 20 51 4E B2 31 20 A7 20 31 |0...... QN.1 . 1|
00000690: 31 30 00 C3 0E 0E 01 81 49 B2 31 A4 31 30 3A 4D |10......I.1.10:M|
000006A0: 53 47 24 28 49 29 B2 22 28 22 AA C4 28 49 29 AA |SG$(I)."("..(I).|
000006B0: 22 29 22 3A 82 49 3A 8D 31 33 30 30 30 3A 8D 33 |")":.I:.13000:.3|
000006C0: 33 30 30 00 04 0F 18 01 54 4D 41 58 B2 31 30 3A |300.....TMAX.10:|
000006D0: 8D 33 34 30 30 3A 8D 33 30 30 30 3A 8F 20 41 44 |.3400:.3000:. AD|
000006E0: 44 20 48 59 50 48 45 4E 20 49 46 20 4E 45 43 45 |D HYPHEN IF NECE|
000006F0: 53 53 41 52 59 3B 20 52 45 43 41 4C 4C 20 54 45 |SSARY; RECALL TE|
00000700: 53 54 45 52 00 1A 0F 22 01 8D 33 37 30 30 3A 8B |STER..."..3700:.|
00000710: 43 24 B2 22 59 22 89 32 34 30 00 4A 0F 2C 01 8B |C$."Y".240.J.,..|
00000720: 41 4E 53 B3 28 30 2E 37 AC 54 4D 41 58 29 A7 46 |ANS.(0.7.TMAX).F|
00000730: 49 4C 45 24 B2 22 50 48 41 49 4C 55 52 45 22 3A |ILE$."PHAILURE":|
00000740: 8D 37 35 30 30 3A 89 31 31 30 00 72 0F 2D 01 8F |.7500:.110.r.-..|
00000750: 20 44 4F 4E 27 54 20 41 4C 4C 4F 57 20 53 55 42 | DON'T ALLOW SUB|
00000760: 4A 45 43 54 20 54 4F 20 47 4F 20 46 55 52 54 48 |JECT TO GO FURTH|
00000770: 45 52 00 88 0F 36 01 46 49 4C 45 24 B2 22 50 48 |ER...6.FILE$."PH|
00000780: 35 22 3A 8D 37 35 30 30 00 99 0F 37 01 8B 20 51 |5":.7500...7.. Q|
00000790: 4E B2 31 20 A7 20 31 31 30 00 CD 0F 40 01 81 49 |N.1 . 110...@..I|
000007A0: B2 31 A4 35 3A 50 4E 24 28 32 2C 49 29 B2 44 33 |.1.5:PN$(2,I).D3|
000007B0: 24 28 49 29 3A 4D 53 47 24 28 49 29 B2 C8 28 50 |$(I):MSG$(I)..(P|
000007C0: 4E 24 28 32 2C 49 29 2C 34 29 3A 82 49 00 09 10 |N$(2,I),4):.I...|
000007D0: 4A 01 46 49 4C 45 24 B2 22 20 20 20 20 20 43 4F |J.FILE$." CO|
000007E0: 4D 50 4C 45 54 45 20 54 48 45 20 50 48 4F 4E 45 |MPLETE THE PHONE|
000007F0: 20 4E 55 4D 42 45 52 53 20 20 20 20 20 22 3A 41 | NUMBERS ":A|
00000800: 4E 24 B2 22 2E 2E 2E 2E 22 00 3C 10 54 01 4C 4D |N$."....".<.T.LM|
00000810: 41 52 47 49 4E B2 31 32 3A 52 4D 41 52 47 49 4E |ARGIN.12:RMARGIN|
00000820: B2 32 30 3A 4C 4F 57 B2 31 3A 48 49 47 48 B2 35 |.20:LOW.1:HIGH.5|
00000830: 3A 43 4F 4C B2 31 3A 8D 32 30 30 30 00 4C 10 55 |:COL.1:.2000.L.U|
00000840: 01 8B 51 55 49 54 B2 31 89 31 31 30 00 5D 10 56 |..QUIT.1.110.].V|
00000850: 01 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 7F 10 |.. QN.1 . 110...|
00000860: 5E 01 81 49 B2 31 A4 54 4D 41 58 3A 42 45 46 24 |^..I.1.TMAX:BEF$|
00000870: 28 49 29 B2 50 4E 24 28 32 2C 49 29 3A 82 49 00 |(I).PN$(2,I):.I.|
00000880: AB 10 72 01 81 49 B2 31 A4 54 4D 41 58 3A 41 46 |..r..I.1.TMAX:AF|
00000890: 54 24 28 49 29 B2 C8 28 50 4E 24 28 32 2C 49 29 |T$(I)..(PN$(2,I)|
000008A0: 2C 34 29 AA 41 46 54 24 28 49 29 00 C7 10 73 01 |,4).AFT$(I)...s.|
000008B0: 4D 53 47 24 28 49 29 B2 22 28 22 AA C4 28 49 29 |MSG$(I)."("..(I)|
000008C0: AA 22 29 22 3A 82 49 00 E1 10 7C 01 8D 33 30 30 |.")":.I...|..300|
000008D0: 30 3A 8F 20 52 45 43 41 4C 4C 20 54 45 53 54 45 |0:. RECALL TESTE|
000008E0: 52 00 F2 10 7D 01 8B 20 51 4E B2 31 20 A7 20 31 |R...}.. QN.1 . 1|
000008F0: 31 30 00 0F 11 86 01 54 4D 41 58 B2 35 3A 8D 33 |10.....TMAX.5:.3|
00000900: 37 30 30 3A 8B 43 24 B2 22 59 22 89 33 31 30 00 |700:.C$."Y".310.|
00000910: 20 11 87 01 8B 20 51 4E B2 31 20 A7 20 31 31 30 | .... QN.1 . 110|
00000920: 00 2F 11 90 01 8D 33 38 30 30 3A 89 31 31 30 00 |./....3800:.110.|
00000930: 52 11 9A 01 8F 20 4C 45 41 52 4E 20 4C 49 53 54 |R.... LEARN LIST|
00000940: 53 20 4F 46 20 50 48 4F 4E 45 20 4E 55 4D 42 45 |S OF PHONE NUMBE|
00000950: 52 53 00 6B 11 A4 01 54 4D 41 58 B2 35 3A 4B 4D |RS.k...TMAX.5:KM|
00000960: 41 58 B2 31 30 3A 8D 34 30 30 30 00 A8 11 AE 01 |AX.10:.4000.....|
00000970: 99 C7 28 31 34 37 29 3B 3A 46 49 4C 45 24 B2 22 |..(147);:FILE$."|
00000980: 20 20 4D 45 4D 4F 52 49 5A 45 20 54 48 49 53 20 | MEMORIZE THIS |
00000990: 4C 49 53 54 20 4F 46 20 50 48 4F 4E 45 20 4E 55 |LIST OF PHONE NU|
000009A0: 4D 42 45 52 53 20 20 22 00 C3 11 AF 01 99 C7 28 |MBERS ".......(|
000009B0: 31 38 29 3B 3A 8D 32 39 39 30 3A 99 C7 28 31 34 |18);:.2990:..(14|
000009C0: 36 29 3B 00 D5 11 B8 01 4F 46 46 53 45 54 B2 33 |6);.....OFFSET.3|
000009D0: 3A 89 33 33 30 00 F3 11 C2 01 8F 20 4D 41 54 43 |:.330...... MATC|
000009E0: 48 20 4E 41 4D 45 53 20 57 2F 50 48 4F 4E 45 20 |H NAMES W/PHONE |
000009F0: 23 27 53 00 09 12 CC 01 46 49 4C 45 24 B2 22 50 |#'S.....FILE$."P|
00000A00: 48 37 22 3A 8D 37 35 30 30 00 1A 12 CD 01 8B 20 |H7":.7500...... |
00000A10: 51 4E B2 31 20 A7 20 31 31 30 00 30 12 D6 01 46 |QN.1 . 110.0...F|
00000A20: 49 4C 45 24 B2 22 50 48 38 22 3A 8D 37 35 30 30 |ILE$."PH8":.7500|
00000A30: 00 41 12 D7 01 8B 20 51 4E B2 31 20 A7 20 31 31 |.A.... QN.1 . 11|
00000A40: 30 00 5B 12 E0 01 46 49 4C 45 24 B2 22 43 41 54 |0.[...FILE$."CAT|
00000A50: 42 45 4C 4C 22 3A 8D 36 36 30 30 00 6C 12 E1 01 |BELL":.6600.l...|
00000A60: 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 82 12 E5 |. QN.1 . 110....|
00000A70: 01 46 49 4C 45 24 B2 22 50 48 39 22 3A 8D 37 35 |.FILE$."PH9":.75|
00000A80: 30 30 00 93 12 E6 01 8B 20 51 4E B2 31 20 A7 20 |00...... QN.1 . |
00000A90: 31 31 30 00 A8 12 EA 01 8B 56 56 B2 30 A7 8D 37 |110......VV.0..7|
00000AA0: 30 30 30 3A 56 56 B2 31 00 B9 12 EB 01 8B 20 51 |000:VV.1...... Q|
00000AB0: 4E B2 31 20 A7 20 31 31 30 00 DD 12 F4 01 54 4D |N.1 . 110.....TM|
00000AC0: 41 58 B2 35 3A 8D 34 30 30 30 3A 8F 20 52 41 4E |AX.5:.4000:. RAN|
00000AD0: 44 4F 4D 20 50 48 4F 4E 45 20 23 27 53 00 18 13 |DOM PHONE #'S...|
00000AE0: FE 01 46 49 4C 45 24 B2 22 20 43 4F 44 45 20 41 |..FILE$." CODE A|
00000AF0: 4E 44 20 4C 49 4E 4B 20 54 48 45 53 45 20 4E 41 |ND LINK THESE NA|
00000B00: 4D 45 53 20 41 4E 44 20 4E 55 4D 42 45 52 53 20 |MES AND NUMBERS |
00000B10: 22 3A 99 22 93 12 22 3B 00 2B 13 FF 01 8D 32 39 |":."..";.+....29|
00000B20: 39 30 3A 99 C7 28 31 34 36 29 3B 00 67 13 08 02 |90:..(146);.g...|
00000B30: 56 54 25 B2 33 3A 8D 33 30 31 30 30 3A 99 22 28 |VT%.3:.30100:."(|
00000B40: 43 48 4F 4F 53 45 20 50 45 47 20 57 4F 52 44 28 |CHOOSE PEG WORD(|
00000B50: 53 29 20 46 4F 52 20 46 49 52 53 54 20 33 20 44 |S) FOR FIRST 3 D|
00000B60: 49 47 49 54 53 29 22 00 75 13 12 02 81 49 B2 31 |IGITS)".u....I.1|
00000B70: A4 54 4D 41 58 00 91 13 1C 02 56 54 25 B2 32 AC |.TMAX.....VT%.2.|
00000B80: 49 AA 34 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C |I.4:.30100:.211,|
00000B90: 30 00 B9 13 1D 02 99 50 4E 24 28 31 2C 49 29 3B |0......PN$(1,I);|
00000BA0: A3 37 29 3B 22 2E 2E 2E 20 22 3B 50 4E 24 28 32 |.7);"... ";PN$(2|
00000BB0: 2C 49 29 3B A3 32 33 29 3B 00 DE 13 26 02 99 22 |,I);.23);...&.."|
00000BC0: 3F 3F 3F 2D 22 3B 45 47 24 28 C5 28 CA 28 50 4E |???-";EG$(.(.(PN|
00000BD0: 24 28 32 2C 49 29 2C 35 2C 32 29 29 29 3B 00 FD |$(2,I),5,2)));..|
00000BE0: 13 27 02 99 22 2D 22 3B 45 47 24 28 C5 28 C9 28 |.'.."-";EG$(.(.(|
00000BF0: 50 4E 24 28 32 2C 49 29 2C 32 29 29 29 00 04 14 |PN$(2,I),2)))...|
00000C00: 30 02 82 49 00 3E 14 3A 02 56 54 25 B2 32 34 3A |0..I.>.:.VT%.24:|
00000C10: 8D 33 30 31 30 30 3A 99 22 50 52 45 53 53 20 3C |.30100:."PRESS <|
00000C20: 53 50 41 43 45 20 42 41 52 3E 20 57 48 45 4E 20 |SPACE BAR> WHEN |
00000C30: 4D 45 4D 4F 52 49 5A 45 44 2E 2E 2E 22 3B 00 52 |MEMORIZED...";.R|
00000C40: 14 3B 02 81 58 58 B2 31 A4 31 30 3A A1 58 58 24 |.;..XX.1.10:.XX$|
00000C50: 3A 82 00 5D 14 44 02 8D 20 39 35 32 30 00 7F 14 |:..].D.. 9520...|
00000C60: 4E 02 81 49 B2 31 A4 54 4D 41 58 3A 4D 53 47 24 |N..I.1.TMAX:MSG$|
00000C70: 28 49 29 B2 50 4E 24 28 31 2C 49 29 3A 82 49 00 |(I).PN$(1,I):.I.|
00000C80: A1 14 58 02 81 49 B2 31 A4 54 4D 41 58 3A 42 45 |..X..I.1.TMAX:BE|
00000C90: 46 24 28 49 29 B2 50 4E 24 28 32 2C 49 29 3A 82 |F$(I).PN$(2,I):.|
00000CA0: 49 00 E3 14 62 02 46 49 4C 45 24 B2 22 20 45 4E |I...b.FILE$." EN|
00000CB0: 54 45 52 20 54 48 45 20 43 4F 52 52 45 53 50 4F |TER THE CORRESPO|
00000CC0: 4E 44 49 4E 47 20 50 48 4F 4E 45 20 4E 55 4D 42 |NDING PHONE NUMB|
00000CD0: 45 52 20 22 3A 41 4E 24 B2 22 2E 2E 2E 2D 2E 2E |ER ":AN$."...-..|
00000CE0: 2E 2E 22 00 19 15 6C 02 4C 4D 41 52 47 49 4E B2 |.."...l.LMARGIN.|
00000CF0: 31 32 3A 52 4D 41 52 47 49 4E B2 32 32 3A 4C 4F |12:RMARGIN.22:LO|
00000D00: 57 B2 31 3A 48 49 47 48 B2 54 4D 41 58 3A 43 4F |W.1:HIGH.TMAX:CO|
00000D10: 4C B2 31 3A 8D 32 30 30 30 00 2A 15 6D 02 8B 20 |L.1:.2000.*.m.. |
00000D20: 51 4E B2 31 20 A7 20 31 31 30 00 4C 15 76 02 81 |QN.1 . 110.L.v..|
00000D30: 49 B2 31 A4 54 4D 41 58 3A 4D 53 47 24 28 49 29 |I.1.TMAX:MSG$(I)|
00000D40: B2 50 4E 24 28 31 2C 49 29 3A 82 49 00 78 15 80 |.PN$(1,I):.I.x..|
00000D50: 02 8D 33 34 30 30 3A 8D 33 30 30 30 3A 8F 20 41 |..3400:.3000:. A|
00000D60: 44 44 20 48 59 50 48 45 4E 3B 20 52 45 43 41 4C |DD HYPHEN; RECAL|
00000D70: 4C 20 54 45 53 54 45 52 00 89 15 81 02 8B 20 51 |L TESTER...... Q|
00000D80: 4E B2 31 20 A7 20 31 31 30 00 9F 15 8A 02 8D 33 |N.1 . 110......3|
00000D90: 37 30 30 3A 8B 43 24 B2 22 59 22 89 35 30 30 00 |700:.C$."Y".500.|
00000DA0: B0 15 8B 02 8B 20 51 4E B2 31 20 A7 20 31 31 30 |..... QN.1 . 110|
00000DB0: 00 CC 15 94 02 8D 33 38 30 30 3A 8F 20 4C 4F 53 |......3800:. LOS|
00000DC0: 45 52 53 20 4D 45 53 53 41 47 45 53 00 D5 15 9E |ERS MESSAGES....|
00000DD0: 02 89 31 31 30 00 F9 15 A8 02 8F 20 41 44 56 41 |..110...... ADVA|
00000DE0: 4E 43 45 44 20 55 53 45 20 4F 46 20 50 48 4F 4E |NCED USE OF PHON|
00000DF0: 45 20 4E 55 4D 42 45 52 53 00 0E 16 B2 02 8B 56 |E NUMBERS......V|
00000E00: 56 B2 30 A7 8D 37 30 30 30 3A 56 56 B2 31 00 1F |V.0..7000:VV.1..|
00000E10: 16 B3 02 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |.... QN.1 . 110.|
00000E20: 36 16 BC 02 46 49 4C 45 24 B2 22 50 48 31 30 22 |6...FILE$."PH10"|
00000E30: 3A 8D 37 35 30 30 00 47 16 BD 02 8B 20 51 4E B2 |:.7500.G.... QN.|
00000E40: 31 20 A7 20 31 31 30 00 5E 16 C1 02 46 49 4C 45 |1 . 110.^...FILE|
00000E50: 24 B2 22 50 48 31 31 22 3A 8D 37 35 30 30 00 6F |$."PH11":.7500.o|
00000E60: 16 C2 02 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |.... QN.1 . 110.|
00000E70: 81 16 C6 02 4B 4D 41 58 B2 31 30 3A 8D 31 37 30 |....KMAX.10:.170|
00000E80: 30 00 92 16 C7 02 8B 20 51 4E B2 31 20 A7 20 31 |0...... QN.1 . 1|
00000E90: 31 30 00 B8 16 D0 02 8D 34 30 30 30 3A 8F 20 47 |10......4000:. G|
00000EA0: 45 4E 45 52 41 54 45 20 52 41 4E 44 4F 4D 20 50 |ENERATE RANDOM P|
00000EB0: 48 4F 4E 45 20 23 27 53 00 EC 16 DA 02 81 49 B2 |HONE #'S......I.|
00000EC0: 31 A4 54 4D 41 58 3A 42 45 46 24 28 49 29 B2 50 |1.TMAX:BEF$(I).P|
00000ED0: 4E 24 28 31 2C 49 29 AA 22 20 2E 2E 2E 2E 20 22 |N$(1,I)." .... "|
00000EE0: AA 50 4E 24 28 32 2C 49 29 3A 82 49 00 0E 17 E4 |.PN$(2,I):.I....|
00000EF0: 02 8D 31 30 30 30 3A 8F 20 4D 4F 44 49 46 49 45 |..1000:. MODIFIE|
00000F00: 44 20 57 4F 52 44 20 44 49 53 50 4C 41 59 00 1F |D WORD DISPLAY..|
00000F10: 17 E5 02 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |.... QN.1 . 110.|
00000F20: 5C 17 EE 02 58 4D 41 58 B2 54 4D 41 58 3A 58 4E |\...XMAX.TMAX:XN|
00000F30: 55 4D B2 54 4D 41 58 3A 8D 31 35 30 30 3A 8F 20 |UM.TMAX:.1500:. |
00000F40: 53 43 52 41 4D 42 4C 45 20 52 45 44 49 53 50 4C |SCRAMBLE REDISPL|
00000F50: 41 59 45 44 20 4E 55 4D 42 45 52 53 00 84 17 F8 |AYED NUMBERS....|
00000F60: 02 81 49 B2 31 A4 4B 4D 41 58 3A 4D 53 47 24 28 |..I.1.KMAX:MSG$(|
00000F70: 49 29 B2 50 4E 24 28 31 2C 52 44 52 25 28 49 29 |I).PN$(1,RDR%(I)|
00000F80: 29 3A 82 49 00 C5 17 02 03 46 49 4C 45 24 B2 22 |):.I.....FILE$."|
00000F90: 45 4E 54 45 52 20 54 48 45 20 43 4F 52 52 45 53 |ENTER THE CORRES|
00000FA0: 50 4F 4E 44 49 4E 47 20 50 48 4F 4E 45 20 4E 55 |PONDING PHONE NU|
00000FB0: 4D 42 45 52 53 22 3A 41 4E 24 B2 22 2E 2E 2E 2D |MBERS":AN$."...-|
00000FC0: 2E 2E 2E 2E 22 00 F5 17 0C 03 4C 4F 57 B2 31 3A |....".....LOW.1:|
00000FD0: 48 49 47 48 B2 54 4D 41 58 3A 4C 4D 41 52 47 49 |HIGH.TMAX:LMARGI|
00000FE0: 4E B2 31 32 3A 52 4D 41 52 47 49 4E B2 32 34 3A |N.12:RMARGIN.24:|
00000FF0: 43 4F 4C B2 31 00 14 18 0D 03 99 C7 28 31 34 37 |COL.1.......(147|
00001000: 29 3B 3A 8D 32 30 30 30 3A 8B 51 55 49 54 B2 31 |);:.2000:.QUIT.1|
00001010: 89 31 31 30 00 24 18 0E 03 8B 20 51 4E B2 31 A7 |.110.$.... QN.1.|
00001020: 20 31 31 30 00 4C 18 16 03 81 49 B2 31 A4 4B 4D | 110.L....I.1.KM|
00001030: 41 58 3A 42 45 46 24 28 49 29 B2 50 4E 24 28 32 |AX:BEF$(I).PN$(2|
00001040: 2C 52 44 52 25 28 49 29 29 3A 82 49 00 76 18 20 |,RDR%(I)):.I.v. |
00001050: 03 8D 33 33 30 30 3A 8D 33 34 30 30 3A 8D 33 30 |..3300:.3400:.30|
00001060: 30 30 3A 8D 32 37 33 34 30 3A 8B 20 51 4E B2 31 |00:.27340:. QN.1|
00001070: 20 A7 20 31 31 30 00 8C 18 21 03 8D 33 37 30 30 | . 110...!..3700|
00001080: 3A 8B 43 24 B2 22 59 22 89 37 31 30 00 95 18 2A |:.C$."Y".710...*|
00001090: 03 89 31 31 30 00 CD 18 E5 03 8D 31 33 30 30 30 |..110......13000|
000010A0: 3A 56 54 25 B2 38 3A 8D 33 30 31 30 30 3A 99 22 |:VT%.8:.30100:."|
000010B0: 59 4F 55 20 48 41 56 45 20 4A 55 53 54 20 45 58 |YOU HAVE JUST EX|
000010C0: 49 54 45 44 22 3A 99 C7 28 31 38 29 3B 00 08 19 |ITED":..(18);...|
000010D0: E6 03 56 54 25 B2 31 30 3A 8D 33 30 31 30 30 3A |..VT%.10:.30100:|
000010E0: 99 22 54 48 45 20 45 49 4E 53 54 45 49 4E 20 4D |."THE EINSTEIN M|
000010F0: 45 4D 4F 52 59 20 54 52 41 49 4E 45 52 22 3B 3A |EMORY TRAINER";:|
00001100: 99 C7 28 31 34 36 29 3B 00 49 19 E7 03 99 22 2E |..(146);.I....".|
00001110: 22 3A 56 54 25 B2 31 32 3A 8D 33 30 31 30 30 3A |":VT%.12:.30100:|
00001120: 99 22 54 48 41 4E 4B 20 59 4F 55 20 46 4F 52 20 |."THANK YOU FOR |
00001130: 50 4C 41 59 49 4E 47 21 22 3A 56 54 25 B2 32 32 |PLAYING!":VT%.22|
00001140: 3A 8D 33 30 31 30 30 3A 80 00 5C 19 E8 03 8F 20 |:.30100:..\.... |
00001150: 57 4F 52 44 20 44 49 53 50 4C 41 59 00 96 19 F2 |WORD DISPLAY....|
00001160: 03 99 C7 28 31 34 37 29 3B 3A 56 54 25 B2 31 32 |...(147);:VT%.12|
00001170: 3A 8D 33 30 31 30 30 3A 46 49 4C 45 24 B2 22 47 |:.30100:FILE$."G|
00001180: 45 54 20 52 45 41 44 59 20 54 4F 20 42 45 20 54 |ET READY TO BE T|
00001190: 45 53 54 45 44 22 00 B6 19 F3 03 99 A3 39 29 3B |ESTED".......9);|
000011A0: 3A 53 45 43 B2 34 3A 8D 33 30 30 30 30 3A 99 C7 |:SEC.4:.30000:..|
000011B0: 28 31 34 36 29 3B 00 D8 19 24 04 56 54 25 B2 31 |(146);...$.VT%.1|
000011C0: 32 3A 8D 33 30 31 30 30 3A 9E 45 4C 3A 53 45 43 |2:.30100:.EL:SEC|
000011D0: B2 32 3A 8D 32 39 30 30 00 E7 19 25 04 8B 20 51 |.2:.2900...%.. Q|
000011E0: 4E B2 31 20 A7 20 8E 00 F5 19 38 04 81 49 B2 31 |N.1 . ....8..I.1|
000011F0: A4 54 4D 41 58 00 32 1A 60 04 56 54 25 B2 31 30 |.TMAX.2.`.VT%.10|
00001200: 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 37 3A 99 |:.30100:.211,7:.|
00001210: C7 28 31 38 29 3B 3A 99 22 20 20 20 20 20 20 20 |.(18);:." |
00001220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001230: 20 22 00 70 1A 6A 04 56 54 25 B2 31 34 3A 8D 33 | ".p.j.VT%.14:.3|
00001240: 30 31 30 30 3A 97 32 31 31 2C 37 3A 99 22 12 20 |0100:.211,7:.". |
00001250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001260: 20 20 20 20 20 20 20 22 3B C7 28 31 34 36 29 3B | ";.(146);|
00001270: 00 95 1A 74 04 97 32 31 31 2C 30 3A 56 54 25 B2 |...t..211,0:VT%.|
00001280: 31 32 3A 8D 33 30 31 30 30 3A 9E 4D 55 3A 8D 20 |12:.30100:.MU:. |
00001290: 33 30 32 30 30 00 BE 1A 75 04 99 A3 B5 28 28 34 |30200...u....((4|
000012A0: 30 AB C3 28 42 45 46 24 28 49 29 29 29 AD 32 29 |0..(BEF$(I))).2)|
000012B0: 29 3B 42 45 46 24 28 49 29 3B A6 31 30 29 00 CD |);BEF$(I);.10)..|
000012C0: 1A 7E 04 8B 50 52 B2 31 89 31 31 36 30 00 05 1B |.~..PR.1.1160...|
000012D0: 83 04 56 54 25 B2 31 39 3A 8D 33 30 31 30 30 3A |..VT%.19:.30100:|
000012E0: 97 32 31 31 2C 31 31 3A 99 54 31 24 28 49 29 3B |.211,11:.T1$(I);|
000012F0: 3A 97 32 31 31 2C 30 3A 99 22 50 45 47 20 4E 41 |:.211,0:."PEG NA|
00001300: 4D 45 3A 20 22 00 14 1B 88 04 8B 50 57 B2 31 89 |ME: "......PW.1.|
00001310: 31 31 37 30 00 37 1B 8D 04 56 54 25 B2 32 31 3A |1170.7...VT%.21:|
00001320: 8D 33 30 31 30 30 3A 97 32 31 31 2C 31 31 3A 99 |.30100:.211,11:.|
00001330: 22 3F 3F 3F 2D 22 3B 00 59 1B 8E 04 99 45 47 24 |"???-";.Y....EG$|
00001340: 28 C5 28 CA 28 50 4E 24 28 32 2C 49 29 2C 35 2C |(.(.(PN$(2,I),5,|
00001350: 32 29 29 29 3B 22 2D 22 3B 00 75 1B 8F 04 99 45 |2)));"-";.u....E|
00001360: 47 24 28 C5 28 C9 28 50 4E 24 28 32 2C 49 29 2C |G$(.(.(PN$(2,I),|
00001370: 32 29 29 29 3B 00 8F 1B 90 04 97 32 31 31 2C 30 |2)));......211,0|
00001380: 3A 99 22 50 45 47 20 57 4F 52 44 53 3A 20 22 00 |:."PEG WORDS: ".|
00001390: BC 1B 92 04 56 54 25 B2 32 34 3A 8D 33 30 31 30 |....VT%.24:.3010|
000013A0: 30 3A 97 32 31 31 2C 30 3A 99 22 50 52 45 53 53 |0:.211,0:."PRESS|
000013B0: 20 3C 22 3B 3A 99 C7 28 31 38 29 3B 00 EF 1B 93 | <";:..(18);....|
000013C0: 04 99 22 53 50 41 43 45 20 42 41 52 22 3B 3A 99 |.."SPACE BAR";:.|
000013D0: C7 28 31 34 36 29 3B 3A 99 22 3E 20 57 48 45 4E |.(146);:."> WHEN|
000013E0: 20 4D 45 4D 4F 52 49 5A 45 44 2E 2E 2E 22 3B 00 | MEMORIZED...";.|
000013F0: 03 1C 94 04 81 58 58 B2 31 A4 31 30 3A A1 58 58 |.....XX.1.10:.XX|
00001400: 24 3A 82 00 1A 1C 9C 04 8D 20 39 35 32 30 3A 8F |$:....... 9520:.|
00001410: 20 53 50 41 43 45 20 42 41 52 00 29 1C 9D 04 8B | SPACE BAR.)....|
00001420: 20 51 4E B2 31 20 A7 20 8E 00 52 1C A6 04 8F 20 | QN.1 . ..R.... |
00001430: 42 4C 41 4E 4B 20 44 49 53 50 4C 41 59 20 46 4F |BLANK DISPLAY FO|
00001440: 52 20 30 2E 35 20 53 45 43 20 49 4E 54 45 52 56 |R 0.5 SEC INTERV|
00001450: 41 4C 00 87 1C B0 04 56 54 25 B2 31 32 3A 8D 33 |AL.....VT%.12:.3|
00001460: 30 31 30 30 3A 97 32 31 31 2C 30 3A 8D 33 30 32 |0100:.211,0:.302|
00001470: 30 30 3A 56 54 25 B2 32 31 3A 8D 33 30 31 30 30 |00:VT%.21:.30100|
00001480: 3A 97 32 31 31 2C 30 00 9B 1C B5 04 8D 20 33 30 |:.211,0...... 30|
00001490: 32 30 30 3A 8F 20 45 2D 4F 2D 4C 00 D0 1C BA 04 |200:. E-O-L.....|
000014A0: 56 54 25 B2 32 34 3A 8D 33 30 31 30 30 3A 97 32 |VT%.24:.30100:.2|
000014B0: 31 31 2C 30 3A 8D 33 30 32 30 30 3A 56 54 25 B2 |11,0:.30200:VT%.|
000014C0: 31 39 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 |19:.30100:.211,0|
000014D0: 00 E8 1C C4 04 8D 20 33 30 32 30 30 3A 53 45 43 |...... 30200:SEC|
000014E0: B2 31 3A 8D 32 39 30 30 00 F7 1C C5 04 8B 20 51 |.1:.2900...... Q|
000014F0: 4E B2 31 20 A7 20 8E 00 FE 1C CE 04 82 49 00 04 |N.1 . .......I..|
00001500: 1D D8 04 8E 00 20 1D DC 05 8F 20 52 41 4E 44 4F |..... .... RANDO|
00001510: 4D 20 4F 52 44 45 52 20 53 45 4C 45 43 54 4F 52 |M ORDER SELECTOR|
00001520: 00 38 1D E6 05 52 44 52 25 28 31 29 B2 58 4E 55 |.8...RDR%(1).XNU|
00001530: 4D AC BB 28 31 29 AA 31 00 46 1D F0 05 81 49 B2 |M..(1).1.F....I.|
00001540: 32 A4 58 4D 41 58 00 5E 1D FA 05 52 44 52 25 28 |2.XMAX.^...RDR%(|
00001550: 49 29 B2 58 4E 55 4D AC BB 28 31 29 AA 31 00 6B |I).XNUM..(1).1.k|
00001560: 1D 04 06 81 4A B2 31 A4 49 AB 31 00 9A 1D 0E 06 |....J.1.I.1.....|
00001570: 8B 52 44 52 25 28 49 29 B2 52 44 52 25 28 4A 29 |.RDR%(I).RDR%(J)|
00001580: 89 31 35 33 30 3A 8F 20 47 45 54 20 41 20 4E 45 |.1530:. GET A NE|
00001590: 57 20 52 41 4E 44 4F 4D 20 23 00 A4 1D 18 06 82 |W RANDOM #......|
000015A0: 4A 3A 82 49 00 AA 1D 3F 06 8E 00 C5 1D A4 06 8F |J:.I...?........|
000015B0: 20 4D 45 4D 4F 52 59 20 4F 50 54 49 4F 4E 20 53 | MEMORY OPTION S|
000015C0: 45 4C 45 43 54 00 03 1E AE 06 99 C7 28 31 34 37 |ELECT.......(147|
000015D0: 29 3B 3A 46 49 4C 45 24 B2 22 20 20 20 20 20 20 |);:FILE$." |
000015E0: 20 53 45 54 20 4D 45 4D 4F 52 59 20 50 52 41 43 | SET MEMORY PRAC|
000015F0: 54 49 43 45 20 4F 50 54 49 4F 4E 53 20 20 20 20 |TICE OPTIONS |
00001600: 20 20 22 00 1E 1E AF 06 99 C7 28 31 38 29 3B 3A | ".......(18);:|
00001610: 8D 32 39 39 30 3A 99 C7 28 31 34 36 29 3B 00 36 |.2990:..(146);.6|
00001620: 1E B8 06 56 54 25 B2 34 3A 8D 33 30 31 30 30 3A |...VT%.4:.30100:|
00001630: 97 32 31 31 2C 30 00 76 1E B9 06 99 22 4E 55 4D |.211,0.v...."NUM|
00001640: 42 45 52 20 4F 46 20 50 48 4F 4E 45 20 4E 55 4D |BER OF PHONE NUM|
00001650: 42 45 52 53 20 28 35 20 54 4F 20 22 3B 4B 4D 41 |BERS (5 TO ";KMA|
00001660: 58 3B 22 29 2E 2E 2E 22 3B A3 33 37 29 3B 3A 8D |X;")...";.37);:.|
00001670: 20 33 30 32 30 30 00 8E 1E BD 06 81 20 54 B2 31 | 30200...... T.1|
00001680: 20 A4 20 31 30 3A A1 20 41 24 3A 82 20 54 00 AD | . 10:. A$:. T..|
00001690: 1E C2 06 8D 20 37 32 3A 8D 37 39 3A 54 4D 41 58 |.... 72:.79:TMAX|
000016A0: B2 C5 28 4C 24 29 3A 97 32 31 31 2C 30 00 BC 1E |..(L$):.211,0...|
000016B0: C3 06 8B 20 51 4E B2 31 20 A7 20 8E 00 D9 1E C7 |... QN.1 . .....|
000016C0: 06 8B 54 4D 41 58 B3 B2 4B 4D 41 58 AF 54 4D 41 |..TMAX..KMAX.TMA|
000016D0: 58 B1 B2 35 A7 31 37 35 30 00 F2 1E CC 06 99 C7 |X..5.1750.......|
000016E0: 28 31 38 29 3B 3A 56 54 25 B2 36 3A 8D 33 30 31 |(18);:VT%.6:.301|
000016F0: 30 30 00 2A 1F CD 06 99 C7 28 37 29 3B 22 49 4C |00.*.....(7);"IL|
00001700: 4C 45 47 41 4C 20 45 4E 54 52 59 21 20 50 4C 45 |LEGAL ENTRY! PLE|
00001710: 41 53 45 20 45 4E 54 45 52 20 41 47 41 49 4E 22 |ASE ENTER AGAIN"|
00001720: 3B 3A 99 C7 28 31 34 36 29 3B 00 3C 1F CE 06 8D |;:..(146);.<....|
00001730: 20 33 30 32 30 30 3A 89 31 37 32 30 00 6F 1F D6 | 30200:.1720.o..|
00001740: 06 56 54 25 B2 36 3A 8D 33 30 31 30 30 3A 99 22 |.VT%.6:.30100:."|
00001750: 48 45 4C 50 20 57 49 54 48 20 50 45 47 20 57 4F |HELP WITH PEG WO|
00001760: 52 44 53 2D 2D 22 3B 3A 8D 20 33 30 32 30 30 00 |RDS--";:. 30200.|
00001770: AE 1F D8 06 56 54 25 B2 38 3A 8D 33 30 31 30 30 |....VT%.8:.30100|
00001780: 3A 97 32 31 31 2C 33 3A 99 22 46 4F 52 20 4E 41 |:.211,3:."FOR NA|
00001790: 4D 45 53 3A 20 28 59 29 45 53 20 4F 52 20 28 4E |MES: (Y)ES OR (N|
000017A0: 29 4F 2E 2E 2E 2E 2E 22 3B A3 33 38 29 3B 00 BA |)O.....";.38);..|
000017B0: 1F D9 06 8D 37 32 3A 99 43 24 00 C9 1F DA 06 8B |....72:.C$......|
000017C0: 20 51 4E B2 31 20 A7 20 8E 00 E4 1F E0 06 8B 43 | QN.1 . .......C|
000017D0: 24 B2 22 59 22 A7 50 52 4F 4D 50 54 B2 30 3A 89 |$."Y".PROMPT.0:.|
000017E0: 31 37 37 32 00 FF 1F E5 06 8B 43 24 B2 22 4E 22 |1772......C$."N"|
000017F0: A7 50 52 4F 4D 50 54 B2 31 3A 89 31 37 37 32 00 |.PROMPT.1:.1772.|
00001800: 09 20 EA 06 89 31 37 35 30 00 4A 20 EC 06 56 54 |. ...1750.J ..VT|
00001810: 25 B2 31 30 3A 8D 33 30 31 30 30 3A 97 32 31 31 |%.10:.30100:.211|
00001820: 2C 33 3A 99 22 46 4F 52 20 4E 55 4D 42 45 52 53 |,3:."FOR NUMBERS|
00001830: 3A 20 28 59 29 45 53 20 4F 52 20 28 4E 29 4F 2E |: (Y)ES OR (N)O.|
00001840: 2E 2E 2E 2E 22 3B A3 33 38 29 00 56 20 ED 06 8D |....";.38).V ...|
00001850: 37 32 3A 99 43 24 00 65 20 EE 06 8B 20 51 4E B2 |72:.C$.e ... QN.|
00001860: 31 20 A7 20 8E 00 7C 20 EF 06 8B 43 24 B2 22 59 |1 . ..| ...C$."Y|
00001870: 22 A7 50 57 B2 30 3A 89 31 37 39 30 00 93 20 F0 |".PW.0:.1790.. .|
00001880: 06 8B 43 24 B2 22 4E 22 A7 50 57 B2 31 3A 89 31 |..C$."N".PW.1:.1|
00001890: 37 39 30 00 9D 20 F4 06 89 31 37 37 32 00 A5 20 |790.. ...1772.. |
000018A0: FE 06 58 B2 31 00 B0 20 26 07 54 59 50 45 B2 31 |..X.1.. &.TYPE.1|
000018B0: 00 CE 20 30 07 53 43 B2 31 30 30 AC 28 32 AC 50 |.. 0.SC.100.(2.P|
000018C0: 57 AA 50 52 AA 31 29 AC 58 AC 54 59 50 45 00 0E |W.PR.1).X.TYPE..|
000018D0: 21 3A 07 56 54 25 B2 31 37 3A 8D 33 30 31 30 30 |!:.VT%.17:.30100|
000018E0: 3A 99 22 53 43 4F 52 45 20 46 4F 52 20 45 41 43 |:."SCORE FOR EAC|
000018F0: 48 20 43 4F 52 52 45 43 54 20 41 4E 53 57 45 52 |H CORRECT ANSWER|
00001900: 20 2E 2E 2E 2E 2E 2E 22 3B A3 33 36 29 3B 00 2C | ......";.36);.,|
00001910: 21 3B 07 99 C7 28 31 38 29 3B 3A 99 53 43 3B 3A |!;...(18);:.SC;:|
00001920: 99 C7 28 31 34 36 29 3B 3A 9E 45 4C 00 70 21 44 |..(146);:.EL.p!D|
00001930: 07 56 54 25 B2 32 31 3A 8D 33 30 31 30 30 3A 97 |.VT%.21:.30100:.|
00001940: 32 31 31 2C 30 3A 99 22 41 52 45 20 54 48 45 53 |211,0:."ARE THES|
00001950: 45 20 54 48 45 20 4F 50 54 49 4F 4E 53 20 59 4F |E THE OPTIONS YO|
00001960: 55 20 57 41 4E 54 3F 20 28 59 2F 4E 29 20 22 3B |U WANT? (Y/N) ";|
00001970: 00 7C 21 45 07 8D 37 32 3A 99 43 24 00 8B 21 46 |.|!E..72:.C$..!F|
00001980: 07 8B 20 51 4E B2 31 20 A7 20 8E 00 9C 21 4E 07 |.. QN.1 . ...!N.|
00001990: 8B 43 24 B2 22 59 22 89 31 38 39 39 00 AE 21 58 |.C$."Y".1899..!X|
000019A0: 07 8B 43 24 B3 B1 22 4E 22 89 31 38 36 30 00 B8 |..C$.."N".1860..|
000019B0: 21 62 07 89 31 37 32 30 00 BE 21 6B 07 8E 00 DE |!b..1720..!k....|
000019C0: 21 D0 07 8F 20 55 4E 54 49 4D 45 44 20 4B 45 59 |!... UNTIMED KEY|
000019D0: 42 4F 41 52 44 20 52 45 54 52 49 45 56 45 00 04 |BOARD RETRIEVE..|
000019E0: 22 DA 07 4B B2 4C 4F 57 3A 50 52 54 B2 31 3A 51 |"..K.LOW:PRT.1:Q|
000019F0: 55 49 54 B2 30 3A 99 C7 28 31 34 37 29 3B 3A 43 |UIT.0:..(147);:C|
00001A00: 24 B2 22 22 00 22 22 DB 07 81 49 B2 4C 4F 57 A4 |$."".""...I.LOW.|
00001A10: 48 49 47 48 3A 41 46 54 24 28 49 29 B2 22 22 3A |HIGH:AFT$(I)."":|
00001A20: 82 49 00 3D 22 E4 07 99 C7 28 31 38 29 3B 3A 8D |.I.="....(18);:.|
00001A30: 32 39 39 30 3A 99 C7 28 31 34 36 29 3B 00 51 22 |2990:..(146);.Q"|
00001A40: E5 07 81 58 58 B2 31 A4 31 30 3A A1 58 58 24 3A |...XX.1.10:.XX$:|
00001A50: 82 00 7A 22 EE 07 44 46 52 B2 28 48 49 47 48 AB |..z"..DFR.(HIGH.|
00001A60: 4C 4F 57 AA 31 29 AD 32 3A 8B 43 4F 4C B2 31 A7 |LOW.1).2:.COL.1.|
00001A70: 44 46 52 B2 48 49 47 48 AA 31 00 95 22 F8 07 4F |DFR.HIGH.1.."..O|
00001A80: 46 46 53 45 54 B2 B5 28 28 48 49 47 48 AB 4C 4F |FFSET..((HIGH.LO|
00001A90: 57 29 AD 32 29 00 A5 22 02 08 81 49 B2 4C 4F 57 |W).2).."...I.LOW|
00001AA0: A4 48 49 47 48 00 B4 22 0C 08 41 48 B2 4C 4D 41 |.HIGH.."..AH.LMA|
00001AB0: 52 47 49 4E 00 D4 22 16 08 8B 28 49 AB 4C 4F 57 |RGIN.."...(I.LOW|
00001AC0: 29 B1 B2 44 46 52 A7 41 48 B2 4C 4D 41 52 47 49 |)..DFR.AH.LMARGI|
00001AD0: 4E AA 32 31 00 E7 22 20 08 41 56 B2 32 AC 28 49 |N.21.." .AV.2.(I|
00001AE0: AB 4C 4F 57 29 AA 33 00 0F 23 21 08 8B 28 49 AB |.LOW).3..#!..(I.|
00001AF0: 4C 4F 57 29 B1 B2 44 46 52 A7 41 56 B2 32 AC 28 |LOW)..DFR.AV.2.(|
00001B00: 49 AB 4C 4F 57 AB 4F 46 46 53 45 54 29 AA 31 00 |I.LOW.OFFSET).1.|
00001B10: 44 23 2A 08 56 54 25 B2 41 56 3A 8D 33 30 31 30 |D#*.VT%.AV:.3010|
00001B20: 30 3A 97 32 31 31 2C 41 48 AB 31 3A 99 4D 53 47 |0:.211,AH.1:.MSG|
00001B30: 24 28 49 29 3B A3 52 4D 41 52 47 49 4E AA 31 29 |$(I);.RMARGIN.1)|
00001B40: 3B 41 4E 24 00 4B 23 34 08 82 49 00 71 23 3E 08 |;AN$.K#4..I.q#>.|
00001B50: 56 54 25 B2 32 32 3A 8D 33 30 31 30 30 3A 81 49 |VT%.22:.30100:.I|
00001B60: B2 30 A4 37 3A 99 22 2D 2D 2D 2D 2D 22 3B 3A 82 |.0.7:."-----";:.|
00001B70: 49 00 9A 23 48 08 56 54 25 B2 32 33 3A 8D 33 30 |I..#H.VT%.23:.30|
00001B80: 31 30 30 3A 99 C7 28 31 38 29 3B 3A 99 22 5E 22 |100:..(18);:."^"|
00001B90: 3B 3A 99 C7 28 31 34 36 29 3B 00 B6 23 49 08 99 |;:..(146);..#I..|
00001BA0: 22 20 46 4F 52 20 50 52 45 56 49 4F 55 53 20 4C |" FOR PREVIOUS L|
00001BB0: 49 4E 45 3B 20 22 00 ED 23 52 08 56 54 25 B2 32 |INE; "..#R.VT%.2|
00001BC0: 34 3A 8D 33 30 31 30 30 3A 99 22 50 52 45 53 53 |4:.30100:."PRESS|
00001BD0: 20 3C 52 45 54 55 52 4E 3E 20 41 46 54 45 52 20 | <RETURN> AFTER |
00001BE0: 45 41 43 48 20 45 4E 54 52 59 2E 22 3B 00 FE 23 |EACH ENTRY.";..#|
00001BF0: 5C 08 8B 50 52 54 B2 31 A7 8D 32 34 30 30 00 07 |\..PRT.1..2400..|
00001C00: 24 61 08 8D 20 37 33 00 16 24 62 08 8B 20 51 4E |$a.. 73..$b.. QN|
00001C10: B2 31 20 A7 20 8E 00 2E 24 66 08 58 58 24 B2 43 |.1 . ...$f.XX$.C|
00001C20: 24 3A 58 B2 C6 28 58 58 24 AA 5A 45 24 29 00 55 |$:X..(XX$.ZE$).U|
00001C30: 24 7A 08 8B 28 58 B2 31 37 29 89 32 32 32 30 3A |$z..(X.17).2220:|
00001C40: 8F 20 52 49 47 48 54 20 4F 52 20 44 4F 57 4E 20 |. RIGHT OR DOWN |
00001C50: 41 52 52 4F 57 00 7D 24 84 08 8B 58 B2 34 32 A7 |ARROW.}$...X.42.|
00001C60: 51 55 49 54 B2 31 3A 89 32 32 32 30 3A 8F 20 45 |QUIT.1:.2220:. E|
00001C70: 53 43 41 50 45 20 4B 45 59 20 28 2A 29 00 A0 24 |SCAPE KEY (*)..$|
00001C80: 8E 08 8B 58 B2 31 33 20 A7 20 32 32 32 30 3A 8F |...X.13 . 2220:.|
00001C90: 20 43 41 52 52 49 41 47 45 20 52 45 54 55 52 4E | CARRIAGE RETURN|
00001CA0: 00 C4 24 98 08 8B 28 58 B2 39 34 29 A7 8D 32 35 |..$...(X.94)..25|
00001CB0: 30 30 3A 89 32 32 34 30 3A 8F 20 55 50 20 41 52 |00:.2240:. UP AR|
00001CC0: 52 4F 57 53 00 EF 24 9D 08 8B 28 58 B3 34 38 29 |ROWS..$...(X.48)|
00001CD0: B0 28 58 B2 B1 39 30 29 89 32 32 38 30 3A 8F 20 |.(X..90).2280:. |
00001CE0: 43 4F 4E 54 49 4E 55 45 20 54 49 4D 49 4E 47 00 |CONTINUE TIMING.|
00001CF0: 02 25 A2 08 8D 37 39 3A 41 46 54 24 28 4B 29 B2 |.%...79:AFT$(K).|
00001D00: 4C 24 00 11 25 A3 08 8B 20 51 4E B2 31 20 A7 20 |L$..%... QN.1 . |
00001D10: 8E 00 4F 25 AC 08 56 54 25 B2 41 56 3A 8D 33 30 |..O%..VT%.AV:.30|
00001D20: 31 30 30 3A 97 32 31 31 2C 41 48 AB 31 3A 99 4D |100:.211,AH.1:.M|
00001D30: 53 47 24 28 4B 29 3B C8 28 45 4C 24 2C 52 4D 41 |SG$(K);.(EL$,RMA|
00001D40: 52 47 49 4E AA 31 AB C2 28 32 31 31 29 29 3B 00 |RGIN.1..(211));.|
00001D50: 71 25 B6 08 4B B2 4B AA 31 3A 8B 51 55 49 54 B2 |q%..K.K.1:.QUIT.|
00001D60: 31 A7 4B B2 48 49 47 48 AA 31 3A 51 55 49 54 B2 |1.K.HIGH.1:QUIT.|
00001D70: 30 00 7B 25 C0 08 50 52 54 B2 31 00 84 25 CA 08 |0.{%..PRT.1..%..|
00001D80: 9E 20 4D 55 00 A7 25 D4 08 81 58 58 B2 31 A4 31 |. MU..%...XX.1.1|
00001D90: 30 3A A1 58 58 24 3A 82 3A 8F 20 52 45 53 45 54 |0:.XX$:.:. RESET|
00001DA0: 20 53 54 52 4F 42 45 00 B9 25 DE 08 8B 4B B1 48 | STROBE..%...K.H|
00001DB0: 49 47 48 A7 8D 32 33 31 30 00 CA 25 E8 08 8B 43 |IGH..2310..%...C|
00001DC0: 24 B2 22 59 22 89 32 33 30 30 00 E6 25 F2 08 89 |$."Y".2300..%...|
00001DD0: 32 31 34 30 3A 8F 20 42 41 43 4B 20 54 4F 20 54 |2140:. BACK TO T|
00001DE0: 48 45 20 54 4F 50 00 EC 25 FC 08 8E 00 04 26 06 |HE TOP..%.....&.|
00001DF0: 09 8F 20 41 4E 59 20 4D 4F 52 45 20 43 48 41 4E |.. ANY MORE CHAN|
00001E00: 47 45 53 3F 00 0F 26 10 09 4B B2 48 49 47 48 00 |GES?..&..K.HIGH.|
00001E10: 45 26 1A 09 97 32 31 34 2C 32 33 3A 99 22 91 22 |E&...214,23:."."|
00001E20: 3A 97 32 31 31 2C 30 3A 99 22 91 22 3B C8 28 45 |:.211,0:.".";.(E|
00001E30: 4C 24 2C 33 38 29 3B 3A 8F 20 45 4E 44 2D 4F 46 |L$,38);:. END-OF|
00001E40: 2D 4C 49 4E 45 00 62 26 24 09 56 54 25 B2 32 34 |-LINE.b&$.VT%.24|
00001E50: 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 3A 9E |:.30100:.211,0:.|
00001E60: 4D 55 00 96 26 25 09 99 22 41 52 45 20 59 4F 55 |MU..&%.."ARE YOU|
00001E70: 20 46 49 4E 49 53 48 45 44 20 4D 41 4B 49 4E 47 | FINISHED MAKING|
00001E80: 20 45 4E 54 52 49 45 53 3F 20 28 59 2F 4E 29 20 | ENTRIES? (Y/N) |
00001E90: 22 3B 3A 9E 45 4C 00 BA 26 2E 09 8F 20 20 56 54 |";:.EL..&... VT|
00001EA0: 25 3D 32 34 3A 47 4F 53 55 42 33 30 31 30 30 3A |%=24:GOSUB30100:|
00001EB0: 50 4F 4B 45 32 31 31 2C 33 37 00 C3 26 33 09 8D |POKE211,37..&3..|
00001EC0: 20 37 31 00 03 27 38 09 8B 43 24 B2 22 59 22 20 | 71..'8..C$."Y" |
00001ED0: A7 20 99 22 93 22 3A 89 32 33 39 30 3A 8F 20 52 |. .".":.2390:. R|
00001EE0: 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 50 4F |ETURN TO MAIN PO|
00001EF0: 52 54 49 4F 4E 20 4F 46 20 53 55 42 52 4F 55 54 |RTION OF SUBROUT|
00001F00: 49 4E 45 00 1B 27 3D 09 8B 43 24 B2 C7 28 31 37 |INE..'=..C$..(17|
00001F10: 29 A7 4B B2 31 3A 89 32 33 38 30 00 35 27 42 09 |).K.1:.2380.5'B.|
00001F20: 8B 43 24 B2 22 4E 22 B0 43 24 B2 C7 28 39 34 29 |.C$."N".C$..(94)|
00001F30: 89 32 33 38 30 00 3F 27 47 09 89 32 33 35 30 00 |.2380.?'G..2350.|
00001F40: 73 27 4C 09 97 20 32 31 31 2C 30 3A 56 54 25 B2 |s'L.. 211,0:VT%.|
00001F50: 32 33 3A 8D 33 30 31 30 30 3A 99 22 11 22 3B 3A |23:.30100:.".";:|
00001F60: 20 99 C7 28 31 38 29 3B 22 5E 22 3B C7 28 31 34 | ..(18);"^";.(14|
00001F70: 36 29 3B 00 8F 27 4D 09 99 22 20 46 4F 52 20 50 |6);..'M.." FOR P|
00001F80: 52 45 56 49 4F 55 53 20 4C 49 4E 45 3B 20 22 00 |REVIOUS LINE; ".|
00001F90: 9B 27 4E 09 97 20 32 31 31 2C 30 00 D9 27 51 09 |.'N.. 211,0..'Q.|
00001FA0: 56 54 25 B2 32 34 3A 8D 33 30 31 30 30 3A 99 22 |VT%.24:.30100:."|
00001FB0: 4D 41 4B 45 20 43 48 41 4E 47 45 53 20 41 4E 44 |MAKE CHANGES AND|
00001FC0: 20 52 45 54 55 52 4E 20 50 41 53 54 20 4C 41 53 | RETURN PAST LAS|
00001FD0: 54 20 45 4E 54 52 59 22 3B 00 DF 27 56 09 8E 00 |T ENTRY";..'V...|
00001FE0: F9 27 60 09 8F 20 48 49 47 48 4C 49 47 48 54 20 |.'`.. HIGHLIGHT |
00001FF0: 4E 45 58 54 20 4C 49 4E 45 00 08 28 6A 09 41 48 |NEXT LINE..(j.AH|
00002000: B2 4C 4D 41 52 47 49 4E 00 28 28 74 09 8B 28 4B |.LMARGIN.((t..(K|
00002010: AB 4C 4F 57 29 B1 B2 44 46 52 A7 41 48 B2 4C 4D |.LOW)..DFR.AH.LM|
00002020: 41 52 47 49 4E AA 32 31 00 3B 28 7E 09 41 56 B2 |ARGIN.21.;(~.AV.|
00002030: 32 AC 28 4B AB 4C 4F 57 29 AA 33 00 63 28 7F 09 |2.(K.LOW).3.c(..|
00002040: 8B 28 4B AB 4C 4F 57 29 B1 B2 44 46 52 A7 41 56 |.(K.LOW)..DFR.AV|
00002050: B2 32 AC 28 4B AB 4C 4F 57 AB 4F 46 46 53 45 54 |.2.(K.LOW.OFFSET|
00002060: 29 AA 31 00 87 28 88 09 56 54 25 B2 41 56 3A 8D |).1..(..VT%.AV:.|
00002070: 33 30 31 30 30 3A 97 32 31 31 2C 41 48 AB 31 3A |30100:.211,AH.1:|
00002080: 99 C7 28 31 38 29 3B 00 9E 28 89 09 99 4D 53 47 |..(18);..(...MSG|
00002090: 24 28 4B 29 3B 3A 99 C7 28 31 34 36 29 3B 00 B7 |$(K);:..(146);..|
000020A0: 28 92 09 99 A3 52 4D 41 52 47 49 4E AB 33 29 3B |(....RMARGIN.3);|
000020B0: 22 2D 2D 3E 20 22 3B 00 C1 28 9C 09 50 52 54 B2 |"--> ";..(..PRT.|
000020C0: 30 00 C7 28 A6 09 8E 00 DF 28 C4 09 8F 20 42 41 |0..(.....(... BA|
000020D0: 43 4B 53 50 41 43 45 20 48 41 4E 44 4C 45 52 00 |CKSPACE HANDLER.|
000020E0: 1D 29 CE 09 56 54 25 B2 41 56 3A 8D 33 30 31 30 |.)..VT%.AV:.3010|
000020F0: 30 3A 97 32 31 31 2C 41 48 AB 31 3A 99 4D 53 47 |0:.211,AH.1:.MSG|
00002100: 24 28 4B 29 3B C8 28 45 4C 24 2C 52 4D 41 52 47 |$(K);.(EL$,RMARG|
00002110: 49 4E AA 31 AB C2 28 32 31 31 29 29 3B 00 27 29 |IN.1..(211));.')|
00002120: D8 09 4B B2 4B AB 31 00 53 29 E2 09 8B 4B B3 4C |..K.K.1.S)...K.L|
00002130: 4F 57 A7 4B B2 4C 4F 57 3A 8F 20 50 52 45 56 45 |OW.K.LOW:. PREVE|
00002140: 4E 54 20 4F 46 46 2D 53 43 52 45 45 4E 20 45 52 |NT OFF-SCREEN ER|
00002150: 52 4F 52 00 59 29 EC 09 8E 00 86 29 54 0B 53 45 |ROR.Y).....)T.SE|
00002160: 43 B2 53 45 43 AA 32 AC 28 53 45 43 B2 30 29 3A |C.SEC.2.(SEC.0):|
00002170: 81 58 B2 31 A4 53 45 43 AC 37 35 3A 8D 20 39 36 |.X.1.SEC.75:. 96|
00002180: 30 30 3A 82 3A 8E 00 9B 29 AE 0B 8F 20 43 45 4E |00:.:...)... CEN|
00002190: 54 45 52 20 53 54 52 49 4E 47 53 00 C0 29 B3 0B |TER STRINGS..)..|
000021A0: 99 A3 B5 28 28 34 30 AB C3 28 46 49 4C 45 24 29 |...((40..(FILE$)|
000021B0: 29 AD 32 29 29 3B 46 49 4C 45 24 3B A3 34 30 29 |).2));FILE$;.40)|
000021C0: 00 CD 29 B4 0B 97 32 31 31 2C 30 3A 8E 00 E1 29 |..)...211,0:...)|
000021D0: B8 0B 8F 20 52 45 43 41 4C 4C 20 54 45 53 54 45 |... RECALL TESTE|
000021E0: 52 00 0B 2A C2 0B 41 4E 53 B2 30 3A 8F 20 5A 45 |R..*..ANS.0:. ZE|
000021F0: 52 4F 20 54 48 45 20 23 20 4F 46 20 43 4F 52 52 |RO THE # OF CORR|
00002200: 45 43 54 20 41 4E 53 57 45 52 53 00 16 2A CC 0B |ECT ANSWERS..*..|
00002210: 8D 31 33 30 30 30 00 39 2A D6 0B 8D 33 33 30 30 |.13000.9*...3300|
00002220: 3A 8F 20 52 45 4D 4F 56 45 20 54 52 41 49 4C 49 |:. REMOVE TRAILI|
00002230: 4E 47 20 42 4C 41 4E 4B 53 00 63 2A E0 0B 8F 20 |NG BLANKS.c*... |
00002240: 44 49 53 50 4C 41 59 20 43 4F 52 52 45 43 54 20 |DISPLAY CORRECT |
00002250: 26 20 49 4E 43 4F 52 52 45 43 54 20 41 4E 53 57 |& INCORRECT ANSW|
00002260: 45 52 53 00 98 2A EA 0B 46 49 4C 45 24 B2 22 20 |ERS..*..FILE$." |
00002270: 20 20 20 20 20 20 20 59 4F 55 52 20 54 45 53 54 | YOUR TEST|
00002280: 20 52 45 53 55 4C 54 53 20 20 20 20 20 20 20 22 | RESULTS "|
00002290: 3A 99 C7 28 31 38 29 3B 00 AB 2A EB 0B 8D 32 39 |:..(18);..*...29|
000022A0: 39 30 3A 99 C7 28 31 34 36 29 3B 00 DA 2A F4 0B |90:..(146);..*..|
000022B0: 56 54 25 B2 33 3A 8D 33 30 31 30 30 3A 97 32 31 |VT%.3:.30100:.21|
000022C0: 31 2C 38 3A 99 22 43 4F 52 52 45 43 54 22 3B A6 |1,8:."CORRECT";.|
000022D0: 31 31 29 3B 22 59 4F 55 52 22 00 0B 2B FE 0B 56 |11);"YOUR"..+..V|
000022E0: 54 25 B2 34 3A 8D 33 30 31 30 30 3A 99 A3 38 29 |T%.4:.30100:..8)|
000022F0: 3B 22 52 45 53 50 4F 4E 53 45 22 3B A3 32 34 29 |;"RESPONSE";.24)|
00002300: 3B 22 52 45 53 50 4F 4E 53 45 22 00 25 2B 08 0C |;"RESPONSE".%+..|
00002310: 81 49 B2 30 A4 37 3A 99 22 2D 2D 2D 2D 2D 22 3B |.I.0.7:."-----";|
00002320: 3A 82 49 3A 99 00 35 2B 12 0C 81 49 B2 4C 4F 57 |:.I:..5+...I.LOW|
00002330: A4 48 49 47 48 00 6F 2B 1C 0C 8B 42 45 46 24 28 |.HIGH.o+...BEF$(|
00002340: 49 29 B2 22 22 A7 42 45 46 24 28 49 29 B2 22 20 |I)."".BEF$(I)." |
00002350: 22 3A 8F 20 53 4B 49 50 20 54 48 49 53 20 4F 4E |":. SKIP THIS ON|
00002360: 45 20 49 46 20 49 54 27 53 20 42 4C 41 4E 4B 00 |E IF IT'S BLANK.|
00002370: 85 2B 26 0C 99 4D 53 47 24 28 49 29 3B 3A 97 20 |.+&..MSG$(I);:. |
00002380: 32 31 31 2C 38 00 B4 2B 30 0C 8B 42 45 46 24 28 |211,8..+0..BEF$(|
00002390: 49 29 B2 41 46 54 24 28 49 29 A7 99 C8 28 42 45 |I).AFT$(I)...(BE|
000023A0: 46 24 28 49 29 2C 31 38 29 3B 3A 41 4E 53 B2 41 |F$(I),18);:ANS.A|
000023B0: 4E 53 AA 31 00 EC 2B 3A 0C 8B 42 45 46 24 28 49 |NS.1..+:..BEF$(I|
000023C0: 29 B3 B1 41 46 54 24 28 49 29 A7 20 99 C7 28 31 |)..AFT$(I). ..(1|
000023D0: 38 29 3B 3A 99 C8 28 42 45 46 24 28 49 29 2C 31 |8);:..(BEF$(I),1|
000023E0: 38 29 3B 3A 99 C7 28 31 34 36 29 3B 00 07 2C 44 |8);:..(146);..,D|
000023F0: 0C 97 32 31 31 2C 32 33 3A 99 C8 28 41 46 54 24 |..211,23:..(AFT$|
00002400: 28 49 29 2C 31 35 29 00 0E 2C 4E 0C 82 49 00 30 |(I),15)..,N..I.0|
00002410: 2C 58 0C 58 B2 B5 28 31 30 30 AC 41 4E 53 AD 28 |,X.X..(100.ANS.(|
00002420: 48 49 47 48 AB 4C 4F 57 AA 31 29 AA 30 2E 35 29 |HIGH.LOW.1).0.5)|
00002430: 00 58 2C 62 0C 99 3A 99 22 59 4F 55 20 52 45 4D |.X,b..:."YOU REM|
00002440: 45 4D 42 45 52 45 44 20 22 3B 3A 99 C7 28 31 38 |EMBERED ";:..(18|
00002450: 29 3B 3A 99 41 4E 53 3B 00 81 2C 63 0C 99 C7 28 |);:.ANS;..,c...(|
00002460: 31 34 36 29 3B 3A 99 22 20 43 4F 52 52 45 43 54 |146);:." CORRECT|
00002470: 4C 59 2C 20 4F 52 20 22 3B 3A 99 C7 28 31 38 29 |LY, OR ";:..(18)|
00002480: 3B 00 99 2C 64 0C 99 58 3B 22 9D 22 3B 22 25 22 |;..,d..X;".";"%"|
00002490: 3A 99 C7 28 31 34 36 29 3B 00 D0 2C 6C 0C 56 54 |:..(146);..,l.VT|
000024A0: 25 B2 32 34 3A 8D 33 30 31 30 30 3A 99 22 50 52 |%.24:.30100:."PR|
000024B0: 45 53 53 20 3C 53 50 41 43 45 20 42 41 52 3E 20 |ESS <SPACE BAR> |
000024C0: 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 2E 2E 22 3B |TO CONTINUE...";|
000024D0: 00 E4 2C 6D 0C 81 58 58 B2 31 A4 31 30 3A A1 58 |..,m..XX.1.10:.X|
000024E0: 58 24 3A 82 00 EF 2C 76 0C 8D 20 39 35 32 30 00 |X$:...,v.. 9520.|
000024F0: F5 2C 80 0C 8E 00 1A 2D E4 0C 8F 20 52 45 4D 4F |.,.....-... REMO|
00002500: 56 45 20 54 52 41 49 4C 49 4E 47 20 42 4C 41 4E |VE TRAILING BLAN|
00002510: 4B 53 20 49 4E 20 41 46 54 24 00 2A 2D EE 0C 81 |KS IN AFT$.*-...|
00002520: 49 B2 4C 4F 57 A4 48 49 47 48 00 47 2D F8 0C 58 |I.LOW.HIGH.G-..X|
00002530: B2 C3 28 41 46 54 24 28 49 29 29 AB 31 3A 8B 58 |..(AFT$(I)).1:.X|
00002540: B2 30 89 33 33 35 30 00 78 2D 02 0D 8B C9 28 41 |.0.3350.x-....(A|
00002550: 46 54 24 28 49 29 2C 31 29 B2 22 20 22 A7 41 46 |FT$(I),1)." ".AF|
00002560: 54 24 28 49 29 B2 C8 28 41 46 54 24 28 49 29 2C |T$(I)..(AFT$(I),|
00002570: 58 29 3A 89 33 33 32 30 00 A9 2D 0C 0D 8B C8 28 |X):.3320..-....(|
00002580: 41 46 54 24 28 49 29 2C 31 29 B2 22 20 22 A7 41 |AFT$(I),1)." ".A|
00002590: 46 54 24 28 49 29 B2 C9 28 41 46 54 24 28 49 29 |FT$(I)..(AFT$(I)|
000025A0: 2C 58 29 3A 89 33 33 32 30 00 B0 2D 16 0D 82 49 |,X):.3320..-...I|
000025B0: 00 B6 2D 47 0D 8E 00 D3 2D 48 0D 8F 20 20 49 20 |..-G....-H.. I |
000025C0: 54 48 49 4E 4B 20 4A 55 53 54 20 41 20 52 45 4D |THINK JUST A REM|
000025D0: 41 52 4B 00 FB 2D 52 0D 81 49 B2 31 A4 54 4D 41 |ARK..-R..I.1.TMA|
000025E0: 58 3A 8F 20 59 50 48 45 4E 20 46 4F 52 20 50 48 |X:. YPHEN FOR PH|
000025F0: 4F 4E 45 20 4E 55 4D 42 45 52 53 00 12 2E 5C 0D |ONE NUMBERS...\.|
00002600: 8B C3 28 41 46 54 24 28 49 29 29 B3 37 89 33 34 |..(AFT$(I)).7.34|
00002610: 34 30 00 3C 2E 66 0D 41 46 54 24 28 49 29 B2 C8 |40.<.f.AFT$(I)..|
00002620: 28 41 46 54 24 28 49 29 2C 33 29 AA 22 2D 22 AA |(AFT$(I),3)."-".|
00002630: C9 28 41 46 54 24 28 49 29 2C 34 29 00 45 2E 70 |.(AFT$(I),4).E.p|
00002640: 0D 82 49 3A 8E 00 5D 2E 74 0E 8F 20 57 49 4E 4E |..I:..].t.. WINN|
00002650: 45 52 27 53 20 4D 45 53 53 41 47 45 53 00 74 2E |ER'S MESSAGES.t.|
00002660: 7E 0E 8B 41 4E 53 B3 30 2E 37 AC 54 4D 41 58 89 |~..ANS.0.7.TMAX.|
00002670: 33 37 39 30 00 AA 2E 88 0E 99 C7 28 31 34 37 29 |3790.......(147)|
00002680: 3B 3A 56 54 25 B2 39 3A 8D 33 30 31 30 30 3A 46 |;:VT%.9:.30100:F|
00002690: 49 4C 45 24 B2 22 2D 2D 43 4F 4E 47 52 41 54 55 |ILE$."--CONGRATU|
000026A0: 4C 41 54 49 4F 4E 53 2D 2D 22 00 B8 2E 89 0E 8D |LATIONS--"......|
000026B0: 32 39 39 30 3A 99 3A 99 00 EE 2E 92 0E 8B 41 4E |2990:.:.......AN|
000026C0: 53 B2 54 4D 41 58 A7 46 49 4C 45 24 B2 22 59 4F |S.TMAX.FILE$."YO|
000026D0: 55 52 20 4D 45 4D 4F 52 59 20 57 41 53 20 50 45 |UR MEMORY WAS PE|
000026E0: 52 46 45 43 54 21 21 22 3A 89 33 37 36 30 00 2A |RFECT!!":.3760.*|
000026F0: 2F 9C 0E 8B 41 4E 53 B1 B2 30 2E 39 AC 54 4D 41 |/...ANS..0.9.TMA|
00002700: 58 A7 46 49 4C 45 24 B2 22 59 4F 55 52 20 4D 45 |X.FILE$."YOUR ME|
00002710: 4D 4F 52 59 20 57 41 53 20 45 58 43 45 4C 4C 45 |MORY WAS EXCELLE|
00002720: 4E 54 21 22 3A 89 33 37 36 30 00 66 2F A6 0E 8B |NT!":.3760.f/...|
00002730: 41 4E 53 B1 B2 30 2E 38 AC 54 4D 41 58 A7 46 49 |ANS..0.8.TMAX.FI|
00002740: 4C 45 24 B2 22 59 4F 55 52 20 4D 45 4D 4F 52 59 |LE$."YOUR MEMORY|
00002750: 20 57 41 53 20 56 45 52 59 20 47 4F 4F 44 21 22 | WAS VERY GOOD!"|
00002760: 3A 89 33 37 36 30 00 A3 2F AB 0E 8B 41 4E 53 B1 |:.3760../...ANS.|
00002770: B2 30 2E 37 AC 54 4D 41 58 A7 46 49 4C 45 24 B2 |.0.7.TMAX.FILE$.|
00002780: 22 59 4F 55 52 20 4D 45 4D 4F 52 59 20 57 41 53 |"YOUR MEMORY WAS|
00002790: 20 47 4F 4F 44 2E 20 4B 45 45 50 20 49 54 20 55 | GOOD. KEEP IT U|
000027A0: 50 21 22 00 D1 2F B0 0E 8D 32 39 39 30 3A 46 49 |P!"../...2990:FI|
000027B0: 4C 45 24 B2 22 38 37 38 36 38 37 38 35 38 37 38 |LE$."87868785878|
000027C0: 34 38 37 38 33 35 36 35 34 22 3A 8D 31 36 30 30 |487835654":.1600|
000027D0: 30 00 FB 2F B1 0E 46 49 4C 45 24 B2 22 35 36 35 |0../..FILE$."565|
000027E0: 33 35 36 35 32 39 33 39 34 39 35 39 36 39 37 39 |3565293949596979|
000027F0: 39 38 31 22 3A 8D 31 36 30 30 30 00 05 30 BA 0E |981":.16000..0..|
00002800: 8D 39 35 30 30 00 20 30 CE 0E 99 C7 28 31 34 37 |.9500. 0....(147|
00002810: 29 3B 3A 56 54 25 B2 31 32 3A 8D 33 30 31 30 30 |);:VT%.12:.30100|
00002820: 00 4F 30 CF 0E 99 22 44 4F 20 59 4F 55 20 57 41 |.O0..."DO YOU WA|
00002830: 4E 54 20 54 4F 20 42 45 20 54 45 53 54 45 44 20 |NT TO BE TESTED |
00002840: 41 47 41 49 4E 3F 20 28 59 2F 4E 29 20 22 3B 00 |AGAIN? (Y/N) ";.|
00002850: 6C 30 D3 0E 8D 37 32 3A 8B 28 43 24 B2 22 59 22 |l0...72:.(C$."Y"|
00002860: 29 B0 28 43 24 B2 22 4E 22 29 A7 8E 00 7B 30 D4 |).(C$."N")...{0.|
00002870: 0E 8B 20 51 4E B2 31 20 A7 20 8E 00 85 30 D7 0E |.. QN.1 . ...0..|
00002880: 89 33 37 39 35 00 9B 30 D8 0E 8F 20 4C 4F 53 45 |.3795..0... LOSE|
00002890: 52 27 53 20 4D 45 53 53 41 47 45 00 B0 30 E2 0E |R'S MESSAGE..0..|
000028A0: 8B 41 4E 53 B1 B2 30 2E 37 AC 54 4D 41 58 A7 8E |.ANS..0.7.TMAX..|
000028B0: 00 CA 30 00 0F 46 49 4C 45 24 B2 22 46 41 49 4C |..0..FILE$."FAIL|
000028C0: 55 52 45 22 3A 8D 37 35 30 30 00 D0 30 0A 0F 8E |URE":.7500..0...|
000028D0: 00 EF 30 A0 0F 8F 20 4E 41 4D 45 20 26 20 50 48 |..0... NAME & PH|
000028E0: 4F 4E 45 20 23 20 47 45 4E 45 52 41 54 4F 52 00 |ONE # GENERATOR.|
000028F0: 25 31 AA 0F 58 4D 41 58 B2 54 4D 41 58 3A 58 4E |%1..XMAX.TMAX:XN|
00002900: 55 4D B2 34 30 3A 8D 31 35 30 30 3A 8F 20 52 41 |UM.40:.1500:. RA|
00002910: 4E 44 4F 4D 20 4E 55 4D 42 45 52 20 47 45 4E 45 |NDOM NUMBER GENE|
00002920: 52 41 54 4F 52 00 33 31 B4 0F 81 49 B2 31 A4 4B |RATOR.31...I.1.K|
00002930: 4D 41 58 00 5F 31 BE 0F 8B 52 44 52 25 28 49 29 |MAX._1...RDR%(I)|
00002940: B1 32 30 A7 50 4E 24 28 31 2C 49 29 B2 57 4F 4D |.20.PN$(1,I).WOM|
00002950: 45 4E 24 28 52 44 52 25 28 49 29 AB 32 30 29 00 |EN$(RDR%(I).20).|
00002960: 87 31 C8 0F 8B 52 44 52 25 28 49 29 B3 B2 32 30 |.1...RDR%(I)..20|
00002970: A7 50 4E 24 28 31 2C 49 29 B2 4D 45 4E 24 28 52 |.PN$(1,I).MEN$(R|
00002980: 44 52 25 28 49 29 29 00 A0 31 D2 0F 54 31 24 28 |DR%(I))..1..T1$(|
00002990: 49 29 B2 50 45 47 24 28 52 44 52 25 28 49 29 29 |I).PEG$(RDR%(I))|
000029A0: 00 BB 31 DC 0F 8F 20 37 20 44 49 47 49 54 20 50 |..1... 7 DIGIT P|
000029B0: 48 4F 4E 45 20 4E 55 4D 42 45 52 00 CA 31 E6 0F |HONE NUMBER..1..|
000029C0: 4E 55 4D 42 45 52 24 B2 22 22 00 D5 31 F0 0F 81 |NUMBER$.""..1...|
000029D0: 4A B2 31 A4 37 00 E6 31 FA 0F 59 B2 B5 28 31 30 |J.1.7..1..Y..(10|
000029E0: AC BB 28 31 29 29 00 FC 31 04 10 8B 28 4A B2 31 |..(1))..1...(J.1|
000029F0: 29 AF 28 59 B3 32 29 89 34 30 39 30 00 1A 32 0E |).(Y.2).4090..2.|
00002A00: 10 4E 55 4D 42 45 52 24 B2 4E 55 4D 42 45 52 24 |.NUMBER$.NUMBER$|
00002A10: AA C9 28 C4 28 59 29 2C 31 29 00 21 32 18 10 82 |..(.(Y),1).!2...|
00002A20: 4A 00 4C 32 22 10 50 4E 24 28 32 2C 49 29 B2 C8 |J.L2".PN$(2,I)..|
00002A30: 28 4E 55 4D 42 45 52 24 2C 33 29 AA 22 2D 22 AA |(NUMBER$,3)."-".|
00002A40: C9 28 4E 55 4D 42 45 52 24 2C 34 29 00 53 32 2C |.(NUMBER$,4).S2,|
00002A50: 10 82 49 00 59 32 36 10 8E 00 6F 32 64 19 8F 20 |..I.Y26...o2d.. |
00002A60: 48 49 52 45 53 20 44 49 53 50 4C 41 59 45 52 00 |HIRES DISPLAYER.|
00002A70: 95 32 6E 19 99 C7 28 31 34 37 29 3B 3A 8D 20 36 |.2n...(147);:. 6|
00002A80: 35 35 30 3A 9E 20 34 39 31 35 38 3A 9E 20 34 39 |550:. 49158:. 49|
00002A90: 31 35 32 3A 8E 00 BB 32 78 19 8F 20 43 41 4C 4C |152:...2x.. CALL|
00002AA0: 20 48 49 52 45 53 20 55 4E 43 4F 50 2F 52 41 53 | HIRES UNCOP/RAS|
00002AB0: 54 45 52 20 52 4F 55 54 49 4E 45 00 CE 32 96 19 |TER ROUTINE..2..|
00002AC0: 8F 20 4C 4F 41 44 20 52 4F 55 54 49 4E 45 00 E8 |. LOAD ROUTINE..|
00002AD0: 32 A0 19 4C 53 B2 4C 44 AA 33 3A 97 20 4C 53 2C |2..LS.LD.3:. LS,|
00002AE0: C3 28 46 49 4C 45 24 29 00 18 33 AA 19 81 20 54 |.(FILE$)..3... T|
00002AF0: B2 31 20 A4 20 C3 28 46 49 4C 45 24 29 3A 97 20 |.1 . .(FILE$):. |
00002B00: 4C 53 AA 54 2C C6 28 CA 28 46 49 4C 45 24 2C 54 |LS.T,.(.(FILE$,T|
00002B10: 2C 31 29 29 3A 82 20 54 00 27 33 B4 19 9E 20 4C |,1)):. T.'3... L|
00002B20: 44 3A A0 20 34 3A 8E 00 3D 33 C8 19 8F 20 50 49 |D:. 4:..=3... PI|
00002B30: 43 54 55 52 45 20 44 49 53 50 4C 41 59 00 55 33 |CTURE DISPLAY.U3|
00002B40: D2 19 8D 36 35 30 30 3A 8D 39 35 30 30 3A 9E 20 |...6500:.9500:. |
00002B50: 34 39 31 35 35 00 64 33 DC 19 99 C7 28 31 34 37 |49155.d3....(147|
00002B60: 29 3B 3A 8E 00 80 33 58 1B 8F 20 50 45 52 53 4F |);:...3X.. PERSO|
00002B70: 4E 41 4C 20 44 49 53 4B 20 53 45 43 54 49 4F 4E |NAL DISK SECTION|
00002B80: 00 AC 33 62 1B 8B 44 53 4B 24 B3 B1 22 59 22 A7 |..3b..DSK$.."Y".|
00002B90: 8E 3A 8F 20 53 55 42 4A 45 43 54 20 48 41 53 20 |.:. SUBJECT HAS |
00002BA0: 4E 4F 20 44 49 53 4B 20 46 49 4C 45 00 D1 33 6C |NO DISK FILE..3l|
00002BB0: 1B 99 22 93 22 3A 52 57 24 B2 22 52 45 41 44 20 |..".":RW$."READ |
00002BC0: 22 3A 53 44 24 B2 22 43 22 3A 8D 37 32 30 30 3A |":SD$."C":.7200:|
00002BD0: 8E 00 EE 33 BC 1B 8F 20 57 52 49 54 45 20 54 4F |...3... WRITE TO|
00002BE0: 20 50 45 52 53 4F 4E 41 4C 20 44 49 53 4B 00 0D | PERSONAL DISK..|
00002BF0: 34 C6 1B 52 57 24 B2 22 57 52 49 54 45 20 22 3A |4..RW$."WRITE ":|
00002C00: 53 44 24 B2 22 41 22 3A 8D 37 34 35 30 00 41 34 |SD$."A":.7450.A4|
00002C10: DA 1B 8D 31 33 30 30 30 3A 46 49 4C 45 24 B2 22 |...13000:FILE$."|
00002C20: 4C 4F 41 44 49 4E 47 20 4D 45 4D 4F 52 59 20 54 |LOADING MEMORY T|
00002C30: 52 41 49 4E 45 52 20 4D 41 49 4E 20 4D 45 4E 55 |RAINER MAIN MENU|
00002C40: 22 00 6C 34 DB 1B 56 54 25 B2 31 30 3A 8D 33 30 |".l4..VT%.10:.30|
00002C50: 31 30 30 3A 8D 32 39 39 30 3A 93 20 22 49 4E 54 |100:.2990:. "INT|
00002C60: 52 4F 44 55 43 54 49 4F 4E 22 2C 38 00 84 34 E4 |RODUCTION",8..4.|
00002C70: 1B 89 31 31 30 3A 8F 20 4A 55 53 54 20 49 4E 20 |..110:. JUST IN |
00002C80: 43 41 53 45 00 9D 34 20 1C 8F 20 52 45 41 44 2F |CASE..4 .. READ/|
00002C90: 57 52 49 54 45 20 54 4F 20 44 49 53 4B 00 C8 34 |WRITE TO DISK..4|
00002CA0: 2A 1C 8B 44 53 4B 24 B3 B1 22 59 22 A7 51 55 49 |*..DSK$.."Y".QUI|
00002CB0: 54 B2 30 3A 89 37 34 33 30 3A 8F 20 4E 4F 20 44 |T.0:.7430:. NO D|
00002CC0: 49 53 4B 20 46 49 4C 45 00 EE 34 34 1C 43 24 B2 |ISK FILE..44.C$.|
00002CD0: 22 55 50 44 41 54 45 22 3A 8B 52 57 24 B2 22 52 |"UPDATE":.RW$."R|
00002CE0: 45 41 44 20 22 A7 43 24 B2 22 55 53 45 22 00 28 |EAD ".C$."USE".(|
00002CF0: 35 3E 1C 56 54 25 B2 31 30 3A 8D 20 33 30 31 30 |5>.VT%.10:. 3010|
00002D00: 30 3A 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 |0:."DO YOU WANT |
00002D10: 54 4F 20 22 3B 43 24 3B 22 20 54 48 45 20 50 45 |TO ";C$;" THE PE|
00002D20: 47 20 57 4F 52 44 53 22 00 5C 35 48 1C 56 54 25 |G WORDS".\5H.VT%|
00002D30: B2 31 32 3A 8D 33 30 31 30 30 3A 99 22 4F 4E 20 |.12:.30100:."ON |
00002D40: 59 4F 55 52 20 50 45 52 53 4F 4E 41 4C 20 44 49 |YOUR PERSONAL DI|
00002D50: 53 4B 3F 20 28 59 2F 4E 29 20 22 3B 00 73 35 49 |SK? (Y/N) ";.s5I|
00002D60: 1C 8D 37 31 3A 99 43 24 3A 8B 20 51 4E B2 31 20 |..71:.C$:. QN.1 |
00002D70: A7 20 8E 00 84 35 52 1C 8B 43 24 B2 22 59 22 89 |. ...5R..C$."Y".|
00002D80: 37 32 39 30 00 B8 35 5C 1C 8B 28 43 24 B2 22 4E |7290..5\..(C$."N|
00002D90: 22 29 AF 28 53 44 24 B2 22 51 55 49 54 22 29 A7 |").(SD$."QUIT").|
00002DA0: 8E 3A 8F 20 51 55 49 54 20 46 4F 52 20 4E 4F 57 |.:. QUIT FOR NOW|
00002DB0: 20 53 45 43 54 49 4F 4E 00 D6 35 66 1C 8B 28 43 | SECTION..5f..(C|
00002DC0: 24 B2 22 4E 22 29 AF 28 52 57 24 B2 22 52 45 41 |$."N").(RW$."REA|
00002DD0: 44 20 22 29 A7 8E 00 F8 35 6B 1C 8B 28 43 24 B2 |D ")....5k..(C$.|
00002DE0: 22 4E 22 29 AF 28 52 57 24 B2 22 57 52 49 54 45 |"N").(RW$."WRITE|
00002DF0: 20 22 29 89 37 34 35 30 00 0C 36 70 1C 89 37 32 | ").7450..6p..72|
00002E00: 34 30 3A 8F 20 44 45 46 41 55 4C 54 00 3C 36 7A |40:. DEFAULT.<6z|
00002E10: 1C 99 C7 28 31 34 37 29 3B 3A 56 54 25 B2 31 30 |...(147);:VT%.10|
00002E20: 3A 8D 33 30 31 30 30 3A 9E 4D 55 3A 99 22 49 4E |:.30100:.MU:."IN|
00002E30: 53 45 52 54 20 59 4F 55 52 20 22 3B 00 5A 36 7B |SERT YOUR ";.Z6{|
00002E40: 1C 99 C7 28 31 38 29 3B 3A 99 22 50 45 52 53 4F |...(18);:."PERSO|
00002E50: 4E 41 4C 20 44 49 53 4B 22 3B 00 7A 36 7C 1C 99 |NAL DISK";.z6|..|
00002E60: C7 28 31 34 36 29 3B 3A 99 22 20 49 4E 54 4F 20 |.(146);:." INTO |
00002E70: 44 52 49 56 45 20 23 31 2E 22 00 B1 36 7F 1C 56 |DRIVE #1."..6..V|
00002E80: 54 25 B2 31 35 3A 8D 33 30 31 30 30 3A 97 32 31 |T%.15:.30100:.21|
00002E90: 31 2C 30 3A 99 22 28 50 52 45 53 53 20 3C 43 54 |1,0:."(PRESS <CT|
00002EA0: 52 4C 2D 43 3E 20 54 4F 20 43 41 4E 43 45 4C 29 |RL-C> TO CANCEL)|
00002EB0: 22 00 C6 36 84 1C 8D 39 35 30 30 3A 8B 20 51 4E |"..6...9500:. QN|
00002EC0: B2 31 20 A7 20 8E 00 E1 36 8E 1C 99 C7 28 31 34 |.1 . ...6....(14|
00002ED0: 37 29 3B 3A 56 54 25 B2 31 30 3A 8D 33 30 31 30 |7);:VT%.10:.3010|
00002EE0: 30 00 0E 37 8F 1C 46 49 4C 45 24 B2 22 52 45 41 |0..7..FILE$."REA|
00002EF0: 44 49 4E 47 20 59 4F 55 52 20 50 45 52 53 4F 4E |DING YOUR PERSON|
00002F00: 41 4C 20 44 49 53 4B 22 3A 8D 32 39 39 30 00 27 |AL DISK":.2990.'|
00002F10: 37 98 1C 8F 20 41 43 54 55 41 4C 20 44 49 53 4B |7... ACTUAL DISK|
00002F20: 20 41 43 43 45 53 53 00 6E 37 A2 1C 8F 20 20 50 | ACCESS.n7... P|
00002F30: 52 49 4E 54 44 24 3B 22 52 45 41 44 20 22 3B 46 |RINTD$;"READ ";F|
00002F40: 4C 4E 4D 24 3A 52 45 4D 20 31 53 54 20 43 48 45 |LNM$:REM 1ST CHE|
00002F50: 43 4B 20 54 4F 20 53 45 45 20 49 46 20 54 48 45 |CK TO SEE IF THE|
00002F60: 20 46 49 4C 45 20 49 53 20 54 48 45 52 45 00 84 | FILE IS THERE..|
00002F70: 37 AC 1C 8F 20 50 52 49 4E 54 44 24 3B 22 43 4C |7... PRINTD$;"CL|
00002F80: 4F 53 45 22 00 8A 37 B6 1C 8F 00 A4 37 B7 1C 8B |OSE"..7.....7...|
00002F90: 20 52 57 24 B3 B1 22 52 45 41 44 20 22 20 A7 20 | RW$.."READ " . |
00002FA0: 37 33 36 30 00 D0 37 B8 1C 9F 20 32 2C 38 2C 32 |7360..7... 2,8,2|
00002FB0: 2C 46 4C 4E 4D 24 AA 22 2E 4E 41 4D 2C 53 45 51 |,FLNM$.".NAM,SEQ|
00002FC0: 2C 52 22 3A 8B 20 53 54 20 A7 20 31 37 30 30 30 |,R":. ST . 17000|
00002FD0: 00 E6 37 B9 1C 84 32 2C 41 3A 8B 20 53 54 20 A7 |..7...2,A:. ST .|
00002FE0: 20 31 37 30 30 30 00 03 38 BA 1C 81 20 49 B2 31 | 17000..8... I.1|
00002FF0: 20 A4 20 34 30 3A 84 32 2C 50 45 47 24 28 49 29 | . 40:.2,PEG$(I)|
00003000: 3A 82 49 00 26 38 C0 1C A0 20 32 3A 8F 20 52 57 |:.I.&8... 2:. RW|
00003010: 24 20 49 53 20 41 20 52 45 41 44 2F 57 52 49 54 |$ IS A READ/WRIT|
00003020: 45 20 46 4C 41 47 00 58 38 CA 1C 9F 20 32 2C 38 |E FLAG.X8... 2,8|
00003030: 2C 32 2C 46 4C 4E 4D 24 AA 22 2E 57 52 44 2C 53 |,2,FLNM$.".WRD,S|
00003040: 45 51 2C 52 22 3A 8B 20 53 54 20 AF 20 31 39 31 |EQ,R":. ST . 191|
00003050: 20 A7 20 31 37 30 30 30 00 65 38 D4 1C 84 32 2C | . 17000.e8...2,|
00003060: 50 4C 4D 41 58 00 73 38 DE 1C 81 49 B2 31 20 A4 |PLMAX.s8...I.1 .|
00003070: 20 36 30 00 8E 38 E8 1C 8B 52 57 24 B2 22 52 45 | 60..8...RW$."RE|
00003080: 41 44 20 22 A7 84 32 2C 45 47 24 28 49 29 00 99 |AD "..2,EG$(I)..|
00003090: 38 FC 1C 82 49 3A A0 20 32 00 AB 38 06 1D 8B 53 |8...I:. 2..8...S|
000030A0: 44 24 B2 22 51 55 49 54 22 A7 8E 00 E6 38 1A 1D |D$."QUIT"....8..|
000030B0: 99 C7 28 31 34 37 29 3B 3A 56 54 25 B2 31 30 3A |..(147);:VT%.10:|
000030C0: 8D 33 30 31 30 30 3A 9E 4D 55 3A 99 22 42 45 20 |.30100:.MU:."BE |
000030D0: 53 55 52 45 20 4D 45 4D 4F 52 59 20 54 52 41 49 |SURE MEMORY TRAI|
000030E0: 4E 45 52 20 22 3B 00 08 39 1B 1D 99 C7 28 31 38 |NER ";..9....(18|
000030F0: 29 3B 3A 99 22 44 49 53 4B 20 22 3B 53 44 24 3A |);:."DISK ";SD$:|
00003100: 99 C7 28 31 34 36 29 3B 00 41 39 1C 1D 56 54 25 |..(146);.A9..VT%|
00003110: B2 31 32 3A 8D 33 30 31 30 30 3A 99 22 49 53 20 |.12:.30100:."IS |
00003120: 50 52 4F 50 45 52 4C 59 20 49 4E 53 45 52 54 45 |PROPERLY INSERTE|
00003130: 44 20 49 4E 54 4F 20 44 52 49 56 45 20 23 31 2E |D INTO DRIVE #1.|
00003140: 22 00 71 39 1F 1D 56 54 25 B2 31 36 3A 8D 33 30 |".q9..VT%.16:.30|
00003150: 31 30 30 3A 99 22 28 50 52 45 53 53 20 3C 43 54 |100:."(PRESS <CT|
00003160: 52 4C 2D 43 3E 20 54 4F 20 43 41 4E 43 45 4C 29 |RL-C> TO CANCEL)|
00003170: 22 00 7D 39 24 1D 8D 39 35 30 30 3A 8E 00 9B 39 |".}9$..9500:...9|
00003180: 4C 1D 8F 20 54 45 58 54 20 46 49 4C 45 20 53 43 |L.. TEXT FILE SC|
00003190: 52 45 45 4E 20 57 52 49 54 45 52 00 C6 39 56 1D |REEN WRITER..9V.|
000031A0: 9F 20 32 2C 38 2C 32 2C 46 49 4C 45 24 3A 99 C7 |. 2,8,2,FILE$:..|
000031B0: 28 31 34 37 29 3B 3A 84 31 2C 41 3A 8B 20 41 B1 |(147);:.1,A:. A.|
000031C0: 31 39 20 A7 20 90 00 01 3A 60 1D 99 22 93 22 3B |19 . ...:`..".";|
000031D0: 3A 46 49 4C 45 24 B2 22 20 54 48 45 20 45 49 4E |:FILE$." THE EIN|
000031E0: 53 54 45 49 4E 20 4D 45 4D 4F 52 59 20 54 52 41 |STEIN MEMORY TRA|
000031F0: 49 4E 45 52 3A 20 4C 45 53 53 4F 4E 20 23 35 20 |INER: LESSON #5 |
00003200: 22 00 1E 3A 61 1D 99 C7 28 31 38 29 3B 3A 8D 32 |"..:a...(18);:.2|
00003210: 39 39 30 3A 99 C7 28 31 34 36 29 3B 3A 99 00 4A |990:..(146);:..J|
00003220: 3A 6A 1D 81 20 54 B2 31 20 A4 20 32 34 3A 84 32 |:j.. T.1 . 24:.2|
00003230: 2C 53 39 24 28 54 29 3A 84 31 2C 41 2C 42 24 3A |,S9$(T):.1,A,B$:|
00003240: 8B 20 41 B1 31 39 20 A7 20 90 00 56 3A 74 1D 82 |. A.19 . ..V:t..|
00003250: 20 54 3A A0 20 32 00 71 3A 79 1D 81 20 54 B2 32 | T:. 2.q:y.. T.2|
00003260: 20 A4 20 32 32 3A 99 53 39 24 28 54 29 3A 82 20 | . 22:.S9$(T):. |
00003270: 54 00 9A 3A A6 1D 53 45 43 B2 2E 35 3A 8D 32 39 |T..:..SEC..5:.29|
00003280: 30 30 3A 56 54 25 B2 32 34 3A 8D 33 30 31 30 30 |00:VT%.24:.30100|
00003290: 3A 99 53 39 24 28 32 33 29 3B 00 AE 3A A7 1D 81 |:.S9$(23);..:...|
000032A0: 58 58 B2 31 A4 31 30 3A A1 58 58 24 3A 82 00 B8 |XX.1.10:.XX$:...|
000032B0: 3A B0 1D 8D 39 35 32 30 00 D5 3A BA 1D 81 58 58 |:...9520..:...XX|
000032C0: B2 31 A4 31 30 3A A1 58 58 24 3A 82 3A 8D 31 33 |.1.10:.XX$:.:.13|
000032D0: 30 30 30 3A 8E 00 E9 3A 40 1F 8F 20 4D 45 4E 55 |000:...:@.. MENU|
000032E0: 20 53 45 4C 45 43 54 4F 52 00 06 3B 4A 1F 99 C7 | SELECTOR..;J...|
000032F0: 28 31 34 37 29 3B 3A 81 58 58 B2 31 A4 31 30 3A |(147);:.XX.1.10:|
00003300: A1 58 58 24 3A 82 00 3A 3B 54 1F 46 49 4C 45 24 |.XX$:..:;T.FILE$|
00003310: B2 22 20 20 20 20 20 20 54 48 45 20 45 49 4E 53 |." THE EINS|
00003320: 54 45 49 4E 20 4D 45 4D 4F 52 59 20 54 52 41 49 |TEIN MEMORY TRAI|
00003330: 4E 45 52 20 20 20 20 20 20 22 00 55 3B 55 1F 99 |NER ".U;U..|
00003340: C7 28 31 38 29 3B 3A 8D 32 39 39 30 3A 99 C7 28 |.(18);:.2990:..(|
00003350: 31 34 36 29 3B 00 7F 3B 5E 1F 56 54 25 B2 32 34 |146);..;^.VT%.24|
00003360: 3A 8D 33 30 31 30 30 3A 99 22 46 49 4C 45 20 4E |:.30100:."FILE N|
00003370: 41 4D 45 3A 20 22 3B 3A 99 C7 28 31 38 29 3B 00 |AME: ";:..(18);.|
00003380: 94 3B 5F 1F 99 46 4C 4E 4D 24 3B 3A 99 C7 28 31 |.;_..FLNM$;:..(1|
00003390: 34 36 29 3B 00 D3 3B 68 1F 56 54 25 B2 34 3A 8D |46);..;h.VT%.4:.|
000033A0: 33 30 31 30 30 3A 97 32 31 31 2C 30 3A 46 49 4C |30100:.211,0:FIL|
000033B0: 45 24 B2 22 4C 45 53 53 4F 4E 20 23 35 3A 20 50 |E$."LESSON #5: P|
000033C0: 48 4F 4E 45 20 4E 55 4D 42 45 52 53 22 3A 8D 32 |HONE NUMBERS":.2|
000033D0: 39 39 30 00 E4 3B 72 1F 81 49 B2 36 35 A4 36 34 |990..;r..I.65.64|
000033E0: AA 4D 41 58 00 EF 3B 7C 1F 53 B2 49 AB 36 34 00 |.MAX..;|.S.I.64.|
000033F0: 14 3C 86 1F 56 54 25 B2 53 AA 36 3A 8D 33 30 31 |.<..VT%.S.6:.301|
00003400: 30 30 3A 99 C7 28 49 29 22 20 3A 20 22 50 47 4D |00:..(I)" : "PGM|
00003410: 24 28 53 29 00 1C 3C 90 1F 82 3A 99 00 2D 3C 9A |$(S)..<...:..-<.|
00003420: 1F 8B 50 56 24 B2 22 22 89 38 31 31 30 00 6A 3C |..PV$."".8110.j<|
00003430: A4 1F 56 54 25 B2 32 30 3A 8D 33 30 31 30 30 3A |..VT%.20:.30100:|
00003440: 99 22 28 59 4F 55 52 20 50 52 45 56 49 4F 55 53 |."(YOUR PREVIOUS|
00003450: 20 53 45 4C 45 43 54 49 4F 4E 20 57 41 53 20 27 | SELECTION WAS '|
00003460: 22 3B 50 56 24 3B 22 27 29 22 00 A9 3C AE 1F 56 |";PV$;"')"..<..V|
00003470: 54 25 B2 31 38 3A 8D 33 30 31 30 30 3A 99 22 53 |T%.18:.30100:."S|
00003480: 45 4C 45 43 54 20 4F 50 54 49 4F 4E 3A 20 22 3B |ELECT OPTION: ";|
00003490: 3A 8D 20 33 30 32 30 30 3A 8F 20 54 4F 20 45 4E |:. 30200:. TO EN|
000034A0: 44 2D 4F 46 2D 4C 49 4E 45 00 C4 3C B8 1F 8D 37 |D-OF-LINE..<...7|
000034B0: 32 3A 43 B2 C6 28 43 24 AA 5A 45 24 29 3A 41 4E |2:C..(C$.ZE$):AN|
000034C0: 24 B2 43 24 00 DC 3C CC 1F 8B 43 B3 36 35 B0 43 |$.C$..<...C.65.C|
000034D0: B1 36 34 AA 4D 41 58 89 38 31 32 30 00 E9 3C D6 |.64.MAX.8120..<.|
000034E0: 1F 99 3A 43 B2 43 AB 36 34 00 13 3D E0 1F 56 54 |..:C.C.64..=..VT|
000034F0: 25 B2 43 AA 36 3A 8D 33 30 31 30 30 3A 99 C7 28 |%.C.6:.30100:..(|
00003500: 31 38 29 3B 3A 99 41 4E 24 3B 3A 99 C7 28 31 34 |18);:.AN$;:..(14|
00003510: 36 29 3B 00 39 3D E1 1F 99 22 20 3A 20 22 3B 3A |6);.9=..." : ";:|
00003520: 99 C7 28 31 38 29 3B 3A 99 50 47 4D 24 28 43 29 |..(18);:.PGM$(C)|
00003530: 3A 99 C7 28 31 34 36 29 3B 00 76 3D EA 1F 56 54 |:..(146);.v=..VT|
00003540: 25 B2 31 38 3A 8D 33 30 31 30 30 3A 99 22 49 53 |%.18:.30100:."IS|
00003550: 20 54 48 49 53 20 54 48 45 20 53 45 4C 45 43 54 | THIS THE SELECT|
00003560: 49 4F 4E 20 59 4F 55 20 57 41 4E 54 3F 20 28 59 |ION YOU WANT? (Y|
00003570: 2F 4E 29 20 22 3B 00 7E 3D F4 1F 8D 37 31 00 B0 |/N) ";.~=...71..|
00003580: 3D F5 1F 8B 43 24 B3 B1 22 59 22 AF 43 24 B3 B1 |=...C$.."Y".C$..|
00003590: 22 4E 22 A7 38 31 38 30 3A 8F 20 43 48 43 4B 20 |"N".8180:. CHCK |
000035A0: 41 50 50 4C 45 20 4C 49 53 54 49 4E 47 3F 3F 3F |APPLE LISTING???|
000035B0: 00 CF 3D FE 1F 99 43 24 3A 8B 43 24 B3 B1 22 4E |..=...C$:.C$.."N|
000035C0: 22 A7 50 56 24 B2 41 4E 24 3A 89 38 32 31 30 00 |".PV$.AN$:.8210.|
000035D0: F9 3D 08 20 56 54 25 B2 43 AA 36 3A 8D 33 30 31 |.=. VT%.C.6:.301|
000035E0: 30 30 3A 99 41 4E 24 22 20 3A 20 22 50 47 4D 24 |00:.AN$" : "PGM$|
000035F0: 28 43 29 3A 89 38 31 31 30 00 FF 3D 12 20 8E 00 |(C):.8110..=. ..|
00003600: 18 3E 1C 25 8F 20 57 41 49 54 20 46 4F 52 20 53 |.>.%. WAIT FOR S|
00003610: 50 41 43 45 20 42 41 52 00 57 3E 26 25 97 20 32 |PACE BAR.W>&%. 2|
00003620: 31 31 2C 30 3A 56 54 25 B2 32 34 3A 8D 33 30 31 |11,0:VT%.24:.301|
00003630: 30 30 3A 99 22 50 52 45 53 53 20 3C 53 50 41 43 |00:."PRESS <SPAC|
00003640: 45 20 42 41 52 3E 20 54 4F 20 43 4F 4E 54 49 4E |E BAR> TO CONTIN|
00003650: 55 45 2E 2E 2E 22 3B 00 6B 3E 27 25 81 58 58 B2 |UE...";.k>'%.XX.|
00003660: 31 A4 31 30 3A A1 58 58 24 3A 82 00 7F 3E 30 25 |1.10:.XX$:...>0%|
00003670: 8D 20 37 33 3A 8B 20 51 4E B2 31 20 A7 20 8E 00 |. 73:. QN.1 . ..|
00003680: 94 3E 35 25 8B 20 43 24 B3 B1 22 20 22 20 A7 20 |.>5%. C$.." " . |
00003690: 39 35 32 30 00 AA 3E 3A 25 81 58 58 B2 31 A4 31 |9520..>:%.XX.1.1|
000036A0: 30 3A A1 58 58 24 3A 82 3A 8E 00 CF 3E 80 25 8B |0:.XX$:.:...>.%.|
000036B0: 20 43 24 B2 C7 28 33 29 20 A7 20 3A 97 20 32 30 | C$..(3) . :. 20|
000036C0: 34 2C 31 3A 9E 34 39 31 35 35 3A 51 4E B2 31 00 |4,1:.49155:QN.1.|
000036D0: D5 3E E4 25 8E 00 EA 3E 10 27 8F 20 49 4E 49 54 |.>.%...>.'. INIT|
000036E0: 49 41 4C 49 5A 41 54 49 4F 4E 00 F8 3E 1A 27 86 |IALIZATION..>.'.|
000036F0: 52 44 52 25 28 32 30 29 00 12 3F 1F 27 53 44 24 |RDR%(20)..?.'SD$|
00003700: B2 22 41 22 3A 44 24 B2 C7 28 31 33 29 AA C7 28 |."A":D$..(13)..(|
00003710: 34 29 00 29 3F 24 27 81 49 B2 31 A4 31 30 3A 87 |4).)?$'.I.1.10:.|
00003720: 44 31 24 28 49 29 3A 82 49 00 6A 3F 2E 27 83 20 |D1$(I):.I.j?.'. |
00003730: 53 48 41 52 4B 2D 4E 41 49 4C 2D 54 41 43 4B 2C |SHARK-NAIL-TACK,|
00003740: 46 41 52 4D 2D 42 41 54 2D 50 49 4E 2C 43 41 4D |FARM-BAT-PIN,CAM|
00003750: 50 2D 46 49 4E 2D 53 4F 55 50 2C 20 4D 41 50 53 |P-FIN-SOUP, MAPS|
00003760: 2D 50 49 50 45 2D 46 4F 4F 54 00 9F 3F 2F 27 83 |-PIPE-FOOT..?/'.|
00003770: 20 42 41 4E 4B 2D 46 41 4E 2D 53 48 41 43 4B 2C | BANK-FAN-SHACK,|
00003780: 4C 41 42 45 4C 2D 43 4F 41 4C 2D 46 49 52 45 2C |LABEL-COAL-FIRE,|
00003790: 4D 4F 54 4F 52 2D 4E 4F 53 45 2D 50 49 4C 4C 00 |MOTOR-NOSE-PILL.|
000037A0: D3 3F 30 27 83 20 4A 55 4E 4B 2D 4D 4F 56 49 45 |.?0'. JUNK-MOVIE|
000037B0: 2D 52 4F 41 52 2C 43 41 52 54 2D 4A 41 4D 2D 4C |-ROAR,CART-JAM-L|
000037C0: 49 50 2C 4E 49 43 4B 45 4C 2D 42 55 53 48 2D 53 |IP,NICKEL-BUSH-S|
000037D0: 48 49 50 00 EA 3F 38 27 81 49 B2 31 A4 31 30 3A |HIP..?8'.I.1.10:|
000037E0: 87 44 32 24 28 49 29 3A 82 49 00 26 40 42 27 83 |.D2$(I):.I.&@B'.|
000037F0: 20 36 34 37 2D 32 35 31 37 2C 38 34 33 2D 39 31 | 647-2517,843-91|
00003800: 39 32 2C 37 33 39 2D 38 32 30 39 2C 33 39 30 2D |92,739-8209,390-|
00003810: 39 39 38 31 2C 39 32 37 2D 38 32 36 37 2C 35 39 |9981,927-8267,59|
00003820: 35 2D 37 35 38 34 00 50 40 43 27 83 20 33 31 34 |5-7584.P@C'. 314|
00003830: 2D 32 30 39 35 2C 36 32 37 2D 33 38 34 34 2C 37 |-2095,627-3844,7|
00003840: 34 31 2D 36 33 35 39 2C 32 37 35 2D 39 36 36 39 |41-6359,275-9669|
00003850: 00 6B 40 4C 27 4B 4D 41 58 B2 35 3A 48 49 47 48 |.k@L'KMAX.5:HIGH|
00003860: B2 4B 4D 41 58 3A 4C 4F 57 B2 31 00 83 40 60 27 |.KMAX:LOW.1..@`'|
00003870: 81 49 B2 31 A4 32 30 3A 87 4D 45 4E 24 28 49 29 |.I.1.20:.MEN$(I)|
00003880: 3A 82 49 00 C3 40 6A 27 83 20 42 49 4C 4C 2C 42 |:.I..@j'. BILL,B|
00003890: 4F 42 2C 42 52 55 43 45 2C 43 48 55 43 4B 2C 44 |OB,BRUCE,CHUCK,D|
000038A0: 41 56 45 2C 44 45 4E 4E 49 53 2C 45 44 2C 46 52 |AVE,DENNIS,ED,FR|
000038B0: 41 4E 4B 2C 48 41 52 52 59 2C 4A 41 43 4B 2C 4A |ANK,HARRY,JACK,J|
000038C0: 45 46 46 00 F3 40 6B 27 83 20 4A 49 4D 2C 4A 4F |EFF..@k'. JIM,JO|
000038D0: 45 2C 4A 4F 48 4E 2C 4B 45 4E 2C 4D 41 52 4B 2C |E,JOHN,KEN,MARK,|
000038E0: 4D 49 4B 45 2C 50 48 49 4C 2C 53 54 45 56 45 2C |MIKE,PHIL,STEVE,|
000038F0: 54 4F 4D 00 0D 41 74 27 81 49 B2 31 A4 32 30 3A |TOM..At'.I.1.20:|
00003900: 87 57 4F 4D 45 4E 24 28 49 29 3A 82 49 00 4B 41 |.WOMEN$(I):.I.KA|
00003910: 7E 27 83 20 41 4C 49 43 45 2C 41 4E 4E 45 2C 43 |~'. ALICE,ANNE,C|
00003920: 41 52 4F 4C 2C 43 41 54 48 59 2C 44 4F 52 49 53 |AROL,CATHY,DORIS|
00003930: 2C 45 49 4C 45 45 4E 2C 47 41 49 4C 2C 4A 41 4E |,EILEEN,GAIL,JAN|
00003940: 45 2C 4A 45 41 4E 2C 4A 4F 41 4E 00 87 41 7F 27 |E,JEAN,JOAN..A.'|
00003950: 83 20 4A 4F 59 43 45 2C 4A 55 4C 49 45 2C 4B 41 |. JOYCE,JULIE,KA|
00003960: 54 45 2C 4C 49 53 41 2C 4C 49 5A 2C 52 55 54 48 |TE,LISA,LIZ,RUTH|
00003970: 2C 53 41 4E 44 59 2C 53 48 45 52 52 59 2C 53 55 |,SANDY,SHERRY,SU|
00003980: 45 2C 57 45 4E 44 59 00 B4 41 82 27 81 49 B2 31 |E,WENDY..A.'.I.1|
00003990: A4 32 30 3A 87 50 45 47 4E 41 4D 45 24 28 49 29 |.20:.PEGNAME$(I)|
000039A0: 3A 82 49 3A 8F 20 4D 41 4C 45 20 50 45 47 2D 4E |:.I:. MALE PEG-N|
000039B0: 41 4D 45 53 00 EA 41 86 27 83 20 44 4F 4C 4C 41 |AMES..A.'. DOLLA|
000039C0: 52 20 42 49 4C 4C 2C 42 4F 42 53 4C 45 44 2C 4E |R BILL,BOBSLED,N|
000039D0: 4F 4F 53 45 2C 57 41 47 4F 4E 2C 57 41 56 45 2C |OOSE,WAGON,WAVE,|
000039E0: 54 45 4E 4E 49 53 2C 42 45 44 00 1D 42 87 27 83 |TENNIS,BED..B.'.|
000039F0: 20 48 4F 54 20 44 4F 47 2C 48 41 49 52 59 2C 42 | HOT DOG,HAIRY,B|
00003A00: 45 41 4E 53 54 41 4C 4B 2C 43 48 45 46 2C 4A 55 |EANSTALK,CHEF,JU|
00003A10: 4E 47 4C 45 2C 54 4F 45 2C 59 41 57 4E 00 49 42 |NGLE,TOE,YAWN.IB|
00003A20: 88 27 83 20 48 45 4E 2C 53 48 41 52 4B 2C 4D 49 |.'. HEN,SHARK,MI|
00003A30: 43 52 4F 50 48 4F 4E 45 2C 50 49 4C 4C 2C 53 54 |CROPHONE,PILL,ST|
00003A40: 4F 56 45 2C 54 48 55 4D 42 00 79 42 8A 27 81 49 |OVE,THUMB.yB.'.I|
00003A50: B2 32 31 A4 34 30 3A 87 50 45 47 4E 41 4D 45 24 |.21.40:.PEGNAME$|
00003A60: 28 49 29 3A 82 49 3A 8F 20 46 45 4D 41 4C 45 20 |(I):.I:. FEMALE |
00003A70: 50 45 47 2D 4E 41 4D 45 53 00 B8 42 8E 27 83 20 |PEG-NAMES..B.'. |
00003A80: 50 41 4C 41 43 45 2C 41 4E 54 2C 42 41 52 52 45 |PALACE,ANT,BARRE|
00003A90: 4C 2C 43 41 54 2C 44 4F 4F 52 53 2C 49 53 4C 41 |L,CAT,DOORS,ISLA|
00003AA0: 4E 44 2C 53 41 49 4C 2C 43 48 41 49 4E 2C 4A 45 |ND,SAIL,CHAIN,JE|
00003AB0: 41 4E 53 2C 42 4F 4E 45 00 FD 42 8F 27 83 20 4A |ANS,BONE..B.'. J|
00003AC0: 55 49 43 45 2C 4A 45 57 45 4C 52 59 2C 53 4B 41 |UICE,JEWELRY,SKA|
00003AD0: 54 45 2C 50 49 5A 5A 41 2C 4C 49 5A 41 52 44 2C |TE,PIZZA,LIZARD,|
00003AE0: 54 4F 4F 54 48 2C 42 45 41 43 48 2C 43 48 45 52 |TOOTH,BEACH,CHER|
00003AF0: 52 59 2C 53 48 4F 45 2C 57 49 4E 44 59 00 22 43 |RY,SHOE,WINDY."C|
00003B00: 9C 27 9F 20 32 2C 38 2C 32 2C 22 50 45 47 20 57 |.'. 2,8,2,"PEG W|
00003B10: 4F 52 44 53 22 3A 8B 20 53 54 20 A7 20 31 37 30 |ORDS":. ST . 170|
00003B20: 30 30 00 45 43 A6 27 81 49 B2 31 A4 39 39 3A 84 |00.EC.'.I.1.99:.|
00003B30: 32 2C 45 47 24 28 49 29 3A 8B 20 53 54 20 A7 20 |2,EG$(I):. ST . |
00003B40: 31 37 30 30 30 00 4C 43 AD 27 82 49 00 61 43 B0 |17000.LC.'.I.aC.|
00003B50: 27 A0 20 32 3A 8B 20 53 54 20 A7 20 31 37 30 30 |'. 2:. ST . 1700|
00003B60: 30 00 98 43 BA 27 81 49 B2 31 A4 35 3A 87 44 33 |0..C.'.I.1.5:.D3|
00003B70: 24 28 49 29 3A 82 49 3A 8F 20 49 4E 49 54 49 41 |$(I):.I:. INITIA|
00003B80: 4C 49 5A 45 20 46 4F 52 20 31 53 54 20 52 45 43 |LIZE FOR 1ST REC|
00003B90: 41 4C 4C 20 54 45 53 54 00 CB 43 BF 27 83 20 33 |ALL TEST..C.'. 3|
00003BA0: 39 30 2D 31 31 32 38 2C 36 34 37 2D 34 39 36 33 |90-1128,647-4963|
00003BB0: 2C 34 33 39 2D 36 31 34 33 2C 38 34 33 2D 31 39 |,439-6143,843-19|
00003BC0: 35 38 2C 39 32 37 2D 33 33 38 34 00 E1 43 C4 27 |58,927-3384..C.'|
00003BD0: 81 49 B2 30 A4 39 3A 87 45 47 24 28 49 29 3A 82 |.I.0.9:.EG$(I):.|
00003BE0: 49 00 19 44 CE 27 83 20 53 41 55 43 45 2C 53 45 |I..D.'. SAUCE,SE|
00003BF0: 41 54 2C 53 55 4E 2C 53 45 41 4D 2C 53 4F 52 45 |AT,SUN,SEAM,SORE|
00003C00: 2C 53 45 41 4C 2C 53 41 53 48 2C 53 4F 43 4B 2C |,SEAL,SASH,SOCK,|
00003C10: 53 41 46 45 2C 53 4F 55 50 00 2B 44 CC 29 8F 20 |SAFE,SOUP.+D.). |
00003C20: 4D 55 53 49 43 20 53 54 55 46 46 00 38 44 D6 29 |MUSIC STUFF.8D.)|
00003C30: 53 58 B2 35 34 32 37 32 00 5A 44 E0 29 81 20 54 |SX.54272.ZD.). T|
00003C40: B2 31 20 A4 20 39 3A 87 20 48 46 25 28 54 29 2C |.1 . 9:. HF%(T),|
00003C50: 4C 46 25 28 54 29 3A 82 20 54 00 98 44 EA 29 83 |LF%(T):. T..D.).|
00003C60: 20 31 36 2C 31 39 35 2C 31 38 2C 32 30 39 2C 32 | 16,195,18,209,2|
00003C70: 31 2C 33 31 2C 32 32 2C 39 36 2C 32 35 2C 33 30 |1,31,22,96,25,30|
00003C80: 2C 32 38 2C 34 39 2C 33 31 2C 31 36 35 2C 33 33 |,28,49,31,165,33|
00003C90: 2C 31 33 35 2C 30 2C 30 00 9E 44 F4 29 8F 00 B3 |,135,0,0..D.)...|
00003CA0: 44 F8 2A 8F 20 52 45 41 44 20 46 49 4C 45 20 4E |D.*. READ FILE N|
00003CB0: 41 4D 45 00 E5 44 02 2B 44 53 4B 24 B2 C7 28 C2 |AME..D.+DSK$..(.|
00003CC0: 28 44 45 29 29 3A 8B 44 53 4B 24 B3 B1 22 59 22 |(DE)):.DSK$.."Y"|
00003CD0: A7 46 4C 4E 4D 24 B2 22 4E 4F 4E 45 22 3A 89 20 |.FLNM$."NONE":. |
00003CE0: 31 31 37 30 30 00 FD 44 0C 2B 46 4C 4E 4D 24 B2 |11700..D.+FLNM$.|
00003CF0: 22 22 3A 81 49 B2 31 A4 C2 28 4E 4D 29 00 1B 45 |"":.I.1..(NM)..E|
00003D00: 0D 2B 46 4C 4E 4D 24 B2 46 4C 4E 4D 24 AA C7 28 |.+FLNM$.FLNM$..(|
00003D10: C2 28 4E 4D AA 49 29 29 3A 82 49 00 37 45 B4 2D |.(NM.I)):.I.7E.-|
00003D20: 8F 20 52 45 41 4C 20 52 41 4E 44 4F 4D 20 47 45 |. REAL RANDOM GE|
00003D30: 4E 45 52 41 54 4F 52 00 4F 45 BE 2D 41 B2 C2 28 |NERATOR.OE.-A..(|
00003D40: 37 38 29 3A 8F 20 37 38 20 49 53 20 24 34 45 00 |78):. 78 IS $4E.|
00003D50: 68 45 C8 2D 42 B2 41 AA 31 3A 8F 20 42 45 20 53 |hE.-B.A.1:. BE S|
00003D60: 55 52 45 20 41 3C 3E 30 00 87 45 D2 2D 81 58 B2 |URE A<>0..E.-.X.|
00003D70: 31 A4 31 30 3A 97 32 30 32 2C 42 3A 41 4E 53 B2 |1.10:.202,B:ANS.|
00003D80: BB 28 31 29 3A 82 58 00 9F 45 72 2E 81 49 B2 30 |.(1):.X..Er..I.0|
00003D90: A4 39 3A 87 50 49 54 43 48 28 49 29 3A 82 49 00 |.9:.PITCH(I):.I.|
00003DA0: B9 45 73 2E 97 30 2C 50 49 54 43 48 28 B5 28 37 |.Es..0,PITCH(.(7|
00003DB0: AC BB 28 31 29 29 AA 31 29 00 DF 45 7C 2E 83 20 |..(1)).1)..E|.. |
00003DC0: 30 2C 31 33 33 2C 31 32 31 2C 31 30 37 2C 31 30 |0,133,121,107,10|
00003DD0: 30 2C 39 30 2C 38 30 2C 37 30 2C 36 36 2C 31 00 |0,90,80,70,66,1.|
00003DE0: E5 45 DF 2E 8E 00 FE 45 C8 32 8F 20 43 45 4E 54 |.E.....E.2. CENT|
00003DF0: 45 52 2F 4F 55 54 20 57 49 50 45 4F 55 54 00 26 |ER/OUT WIPEOUT.&|
00003E00: 46 36 33 81 49 B2 31 A4 31 32 3A 97 33 34 2C 31 |F63.I.1.12:.34,1|
00003E10: 32 AB 49 3A 97 33 35 2C 31 32 AA 49 3A 97 33 33 |2.I:.35,12.I:.33|
00003E20: 2C 34 AA 33 AC 49 00 46 46 37 33 97 33 32 2C 32 |,4.3.I.FF73.32,2|
00003E30: 34 AB 32 AC 49 3A 99 C7 28 31 34 37 29 3B 3A 81 |4.2.I:..(147);:.|
00003E40: 4A B2 31 A4 36 30 00 52 46 38 33 82 4A 3A 82 49 |J.1.60.RF83.J:.I|
00003E50: 3A 8E 00 66 46 80 3E 8F 20 4D 45 4C 4F 44 59 20 |:..fF.>. MELODY |
00003E60: 50 4C 41 59 45 52 00 78 46 8A 3E 81 49 B2 31 A4 |PLAYER.xF.>.I.1.|
00003E70: C3 28 46 49 4C 45 24 29 00 8E 46 94 3E 58 B2 C5 |.(FILE$)..F.>X..|
00003E80: 28 CA 28 46 49 4C 45 24 2C 49 2C 31 29 29 00 C6 |(.(FILE$,I,1))..|
00003E90: 46 9E 3E 97 20 53 58 AA 31 2C 48 46 25 28 58 29 |F.>. SX.1,HF%(X)|
00003EA0: 3A 97 20 53 58 2C 4C 46 25 28 58 29 3A 97 20 53 |:. SX,LF%(X):. S|
00003EB0: 58 AA 34 2C 33 33 3A 53 45 43 B2 30 2E 30 37 3A |X.4,33:SEC.0.07:|
00003EC0: 8D 20 32 39 30 30 00 DE 46 9F 3E 8B 20 51 4E B2 |. 2900..F.>. QN.|
00003ED0: 31 20 A7 20 97 20 53 58 AA 34 2C 30 3A 8E 00 F1 |1 . . SX.4,0:...|
00003EE0: 46 A8 3E 97 20 53 58 AA 34 2C 30 3A 82 20 49 3A |F.>. SX.4,0:. I:|
00003EF0: 8E 00 06 47 68 42 8F 20 45 52 52 4F 52 20 48 41 |...GhB. ERROR HA|
00003F00: 4E 44 4C 49 4E 47 00 1B 47 72 42 9E 20 34 39 31 |NDLING..GrB. 491|
00003F10: 35 35 3A 99 C7 28 31 34 37 29 3B 00 2B 47 7C 42 |55:..(147);.+G|B|
00003F20: 84 31 2C 59 2C 42 24 3A A0 20 32 00 58 47 86 42 |.1,Y,B$:. 2.XG.B|
00003F30: 8F 20 20 59 3D 50 45 45 4B 28 32 32 32 29 3A 58 |. Y=PEEK(222):X|
00003F40: 3D 50 45 45 4B 28 32 31 38 29 2B 32 35 36 2A 50 |=PEEK(218)+256*P|
00003F50: 45 45 4B 28 32 31 39 29 00 72 47 87 42 8F 20 58 |EEK(219).rG.B. X|
00003F60: 3D 4C 49 4E 45 20 23 3B 20 59 3D 45 52 52 4F 52 |=LINE #; Y=ERROR|
00003F70: 20 23 00 94 47 9A 42 4C 24 B2 22 41 35 22 3A 8F | #..G.BL$."A5":.|
00003F80: 20 52 45 56 49 53 49 4F 4E 20 26 20 4C 45 53 53 | REVISION & LESS|
00003F90: 4F 4E 20 23 00 BD 47 A4 42 56 54 25 B2 32 3A 8D |ON #..G.BVT%.2:.|
00003FA0: 33 30 31 30 30 3A 99 22 55 53 45 52 20 4E 41 4D |30100:."USER NAM|
00003FB0: 45 3A 20 22 3B 3A 99 C7 28 31 38 29 3B 00 D2 47 |E: ";:..(18);..G|
00003FC0: A5 42 99 46 4C 4E 4D 24 3B 3A 99 C7 28 31 34 36 |.B.FLNM$;:..(146|
00003FD0: 29 3B 00 F3 47 AE 42 56 54 25 B2 34 3A 8D 33 30 |);..G.BVT%.4:.30|
00003FE0: 31 30 30 3A 97 32 31 31 2C 30 3A 99 C7 28 31 34 |100:.211,0:..(14|
00003FF0: 36 29 3B 00 10 48 AF 42 99 22 41 4E 20 45 52 52 |6);..H.B."AN ERR|
00004000: 4F 52 20 48 41 53 20 4F 43 43 55 52 45 44 21 22 |OR HAS OCCURED!"|
00004010: 00 42 48 B8 42 56 54 25 B2 36 3A 8D 33 30 31 30 |.BH.BVT%.6:.3010|
00004020: 30 3A 99 22 45 52 52 4F 52 20 43 4F 44 45 3A 20 |0:."ERROR CODE: |
00004030: 23 22 3B 59 3B 22 20 20 20 20 20 22 3B 4C 24 3B |#";Y;" ";L$;|
00004040: 42 24 00 68 48 C2 42 56 54 25 B2 31 30 3A 8D 33 |B$.hH.BVT%.10:.3|
00004050: 30 31 30 30 3A 99 22 45 52 52 4F 52 20 4D 45 53 |0100:."ERROR MES|
00004060: 53 41 47 45 3A 20 22 3B 00 8D 48 CC 42 8B 59 B2 |SAGE: ";..H.B.Y.|
00004070: 32 36 A7 99 22 44 49 53 4B 20 49 53 20 57 52 49 |26.."DISK IS WRI|
00004080: 54 45 20 50 52 4F 54 45 43 54 45 44 22 00 AD 48 |TE PROTECTED"..H|
00004090: D6 42 8B 59 B2 36 32 A7 99 22 46 49 4C 45 20 57 |.B.Y.62.."FILE W|
000040A0: 41 53 20 4E 4F 54 20 46 4F 55 4E 44 22 00 CC 48 |AS NOT FOUND"..H|
000040B0: EA 42 8B 59 B2 37 32 A7 99 22 59 4F 55 52 20 44 |.B.Y.72.."YOUR D|
000040C0: 49 53 4B 20 49 53 20 46 55 4C 4C 22 00 ED 48 FE |ISK IS FULL"..H.|
000040D0: 42 56 54 25 B2 31 32 3A 8D 33 30 31 30 30 3A 97 |BVT%.12:.30100:.|
000040E0: 32 31 31 2C 30 3A 99 C7 28 31 38 29 3B 00 22 49 |211,0:..(18);."I|
000040F0: FF 42 99 22 43 48 45 43 4B 20 54 48 41 54 20 54 |.B."CHECK THAT T|
00004100: 48 45 20 41 50 50 52 4F 50 52 49 41 54 45 20 44 |HE APPROPRIATE D|
00004110: 49 53 4B 22 3A 56 54 25 B2 31 34 3A 8D 33 30 31 |ISK":VT%.14:.301|
00004120: 30 30 00 54 49 00 43 99 22 49 53 20 50 52 4F 50 |00.TI.C."IS PROP|
00004130: 45 52 4C 59 20 49 4E 53 45 52 54 45 44 20 49 4E |ERLY INSERTED IN|
00004140: 20 44 52 49 56 45 20 23 31 2E 22 3A 99 C7 28 31 | DRIVE #1.":..(1|
00004150: 34 36 29 3B 00 90 49 08 43 56 54 25 B2 32 34 3A |46);..I.CVT%.24:|
00004160: 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 3A 99 22 |.30100:.211,0:."|
00004170: 50 52 45 53 53 20 3C 53 50 41 43 45 20 42 41 52 |PRESS <SPACE BAR|
00004180: 3E 20 54 4F 20 52 45 53 55 4D 45 2E 2E 2E 22 3B |> TO RESUME...";|
00004190: 00 A4 49 09 43 81 58 58 B2 31 A4 31 30 3A A1 58 |..I.C.XX.1.10:.X|
000041A0: 58 24 3A 82 00 CC 49 12 43 A1 58 58 24 3A 58 B2 |X$:...I.C.XX$:X.|
000041B0: C6 28 58 58 24 AA 5A 45 24 29 AA 31 32 38 3A 8B |.(XX$.ZE$).128:.|
000041C0: 58 B3 B1 31 36 30 89 31 37 31 37 30 00 E4 49 1C |X..160.17170..I.|
000041D0: 43 89 31 31 30 3A 8F 20 54 4F 20 4D 41 49 4E 20 |C.110:. TO MAIN |
000041E0: 4D 45 4E 55 00 15 4A CC 6A 56 54 25 B2 32 31 3A |MENU..J.jVT%.21:|
000041F0: 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 3A 41 58 |.30100:.211,0:AX|
00004200: B2 41 4E 53 3A 99 22 59 4F 55 52 20 53 43 4F 52 |.ANS:."YOUR SCOR|
00004210: 45 3A 20 22 3B 00 32 4A CD 6A 99 C7 28 31 38 29 |E: ";.2J.j..(18)|
00004220: 3B 3A 99 53 43 AC 41 58 3B 3A 99 C7 28 31 34 36 |;:.SC.AX;:..(146|
00004230: 29 3B 00 46 4A D6 6A 8B 41 58 AC 53 43 B3 54 53 |);.FJ.j.AX.SC.TS|
00004240: A7 32 37 33 36 30 00 81 4A D7 6A 54 53 B2 41 58 |.27360..J.jTS.AX|
00004250: AC 53 43 3A 97 20 32 31 31 2C 32 30 3A 99 C7 28 |.SC:. 211,20:..(|
00004260: 37 29 3B 3A 46 49 4C 45 24 B2 22 48 49 47 48 45 |7);:FILE$."HIGHE|
00004270: 53 54 20 53 43 4F 52 45 3A 20 22 AA C4 28 54 53 |ST SCORE: "..(TS|
00004280: 29 00 9C 4A D8 6A 53 45 43 B2 34 3A 8D 20 33 30 |)..J.jSEC.4:. 30|
00004290: 30 30 30 3A 99 C7 28 31 34 36 29 3B 00 C4 4A E0 |000:..(146);..J.|
000042A0: 6A 97 32 31 31 2C 32 30 3A 99 22 48 49 47 48 45 |j.211,20:."HIGHE|
000042B0: 53 54 20 53 43 4F 52 45 3A 20 22 3B 3A 99 C7 28 |ST SCORE: ";:..(|
000042C0: 31 38 29 3B 00 D6 4A E1 6A 99 54 53 3B 3A 99 C7 |18);..J.j.TS;:..|
000042D0: 28 31 34 36 29 3B 00 E2 4A EA 6A 8D 39 35 30 30 |(146);..J.j.9500|
000042E0: 3A 8E 00 F6 4A 30 75 8F 20 46 4C 41 53 48 20 52 |:...J0u. FLASH R|
000042F0: 4F 55 54 49 4E 45 00 19 4B 3A 75 8F 20 53 54 52 |OUTINE..K:u. STR|
00004300: 49 4E 47 20 49 4E 20 46 49 4C 45 24 2C 20 54 49 |ING IN FILE$, TI|
00004310: 4D 45 20 49 4E 20 53 45 43 00 42 4B 44 75 56 54 |ME IN SEC.BKDuVT|
00004320: 25 B2 C2 28 32 31 34 29 AA 31 3A 48 54 25 B2 C2 |%..(214).1:HT%..|
00004330: 28 32 31 31 29 3A 54 49 24 B2 22 30 30 30 30 30 |(211):TI$."00000|
00004340: 30 22 00 68 4B 4E 75 97 20 32 31 31 2C 48 54 25 |0".hKNu. 211,HT%|
00004350: 3A 8D 20 33 30 31 30 30 3A 99 22 12 22 3B 46 49 |:. 30100:.".";FI|
00004360: 4C 45 24 3B 22 92 22 3B 00 97 4B 58 75 81 20 54 |LE$;".";..KXu. T|
00004370: 44 B2 31 20 A4 20 36 30 3A 82 20 54 44 3A 97 20 |D.1 . 60:. TD:. |
00004380: 32 31 31 2C 48 54 25 3A 8D 20 33 30 31 30 30 3A |211,HT%:. 30100:|
00004390: 99 46 49 4C 45 24 3B 00 AC 4B 62 75 81 20 54 44 |.FILE$;..Kbu. TD|
000043A0: B2 31 20 A4 20 36 30 3A 82 20 54 44 00 C4 4B 6C |.1 . 60:. TD..Kl|
000043B0: 75 8B 20 54 49 B3 53 45 43 AC 36 30 20 A7 20 33 |u. TI.SEC.60 . 3|
000043C0: 30 30 33 30 00 CA 4B 76 75 8E 00 DD 4B 94 75 8F |0030..Kvu...K.u.|
000043D0: 20 56 54 41 42 20 52 4F 55 54 49 4E 45 00 F0 4B | VTAB ROUTINE..K|
000043E0: 9E 75 8F 20 52 4F 57 20 23 20 49 4E 20 56 54 25 |.u. ROW # IN VT%|
000043F0: 00 FF 4B A8 75 58 58 25 B2 C2 28 32 31 31 29 00 |..K.uXX%..(211).|
00004400: 10 4C B2 75 99 C8 28 56 54 24 2C 56 54 25 29 3B |.L.u..(VT$,VT%);|
00004410: 00 1D 4C BC 75 97 32 31 31 2C 58 58 25 00 23 4C |..L.u.211,XX%.#L|
00004420: C6 75 8E 00 34 4C F8 75 8F 20 45 4C 20 52 4F 55 |.u..4L.u. EL ROU|
00004430: 54 49 4E 45 00 42 4C 0C 76 52 58 B2 C2 28 32 31 |TINE.BL.vRX..(21|
00004440: 31 29 00 5B 4C 16 76 99 C8 28 45 4C 24 2C 34 30 |1).[L.v..(EL$,40|
00004450: AB 52 58 29 3B 22 9D 9D 9D 22 3B 00 6A 4C 20 76 |.RX);"...";.jL v|
00004460: 97 20 32 31 31 2C 52 58 3A 8E 00 00 00 |. 211,RX:.... |
....... LESSON #5:PHONE NUMBERS.E.... 1,
8,15:. 53281,0:. 53280,0:.".".....MU.496
37:EL.49637:GR.49637:ER.49637:DE.49667:N
M.49668:LD.49594.....EL$."
".....VT$.".
.............................":ZE$.G(0).
.."..MEN$(20),WOMEN$(20).&.&..T1$(10),AF
T$(10),D1$(10).E.*.. N$(2,10),D2$(10),D
3$(5).J....BEF$(10),MSG$(10),HF%(9),LF%(
9)...2..TMP$(10),PEG$(40),EG$(100)...6..
GM$(6)...:..S9$(24)...<..100...G.. 76.I
.H.. 204,0:."..";...I..C$:.C$."".73...J.
. 204,1:."..";:. 9600...K.C$.G(F(C$.ZE$)
. 127):..-.L.. XX.1 . 10:. XX$:. XX:..I.
O.. SPECIAL INPUT ROUTINE.S.P.H.B(211).1
:V.B(214).1:L$."":L.11:. 82...Q..72:. QN
.1 . ....R.CX.F(C$.ZE$):.CX.13..H(EL$,L.
C(L$)):.211,H.1:..I.S..CX..20 .86...T.R$
."X".I(L$,1).R$...U..L$."".H.H.1:L$.J(L$
,1,C(L$).1).(.V..CX.21.R$."".H.H.1:L$.L$
.H(R$,1).?.X..CX.32.C$."":H.H.1.].Y..C(L
$).C(C$).L..G(7);:.81...Z..C$;:H.H.1:VT%
.V:.30100:.211,H.1:L$.L$.C$...[.R$.J(R$,
2):.81...D..13000:.10000...N.PGM$(1)."IN
TRODUCTION TO LESSON #5":.ER...X.PGM$(2)
."ASSOCIATE WORDS AND PHONE NUMBERS".<..
.PGM$(3)."REMEMBER NAMES WITH PHONE NUMB
ERS".L...PGM$(4)."PRACTICE MEMORIZING PH
ONE NUMBERS".....PGM$(5)."RETURN TO MAIN
MEMORY TRAINER MENU"... .PGM$(6)."QUIT
FOR NOW".M...MAX.6:.8000:QN.0......C.190
,230,450,680,7100,997.....FILE$."PH1":.7
500...... QN.1 . 110.*.H.FILE$."PH2":.75
00.;.I.. QN.1 . 110.T.R.FILE$."RABBIT":.
6600.E.S.. QN.1 . 110.....FILE$."PH3":.7
500:.110.....FILE$."PH4":.7500...... QN.
1 . 110.K...LMARGIN.6:LOW.1:HIGH.7:.G(14
7);......I.1.10:MSG$(I)."(".D(I).") ".D1
$(I).....BEF$(I).D2$(I):.I.@...LMARGIN.2
:RMARGIN.26:LOW.1:HIGH.10:AN$."...-...."
.....FILE$." ENTER THE CORRESPONDING PHO
NE NUMBERS ":COL.1:. 2000...... QN.1 . 1
10.C....I.1.10:MSG$(I)."(".D(I).")":.I:.
13000:.3300.....TMAX.10:.3400:.3000:. AD
D HYPHEN IF NECESSARY; RECALL TESTER..."
..3700:.C$."Y".240.J.,..ANS.(0.7.TMAX).F
ILE$."PHAILURE":.7500:.110.R.-.. DON'T A
LLOW SUBJECT TO GO FURTHER...6.FILE$."PH
5":.7500...7.. QN.1 . 110.M.@..I.1.5:PN$
(2,I).D3$(I):MSG$(I).H(PN$(2,I),4):.I...
J.FILE$." COMPLETE THE PHONE NUMBERS
":AN$."....".<.T.LMARGIN.12:RMARGIN
.20:LOW.1:HIGH.5:COL.1:.2000.L.U..QUIT.1
.110.].V.. QN.1 . 110..^..I.1.TMAX:BEF$
(I).PN$(2,I):.I...R..I.1.TMAX:AFT$(I).H(
PN$(2,I),4).AFT$(I).G.S.MSG$(I)."(".D(I)
.")":.I...|..3000:. RECALL TESTER...}..
QN.1 . 110.....TMAX.5:.3700:.C$."Y".310.
.... QN.1 . 110./....3800:.110.R.... LE
ARN LISTS OF PHONE NUMBERS.K...TMAX.5:KM
AX.10:.4000......G(147);:FILE$." MEMORI
ZE THIS LIST OF PHONE NUMBERS ".C....G(
18);:.2990:.G(146);.U...OFFSET.3:.330...
B.. MATCH NAMES W/PHONE #'S...L.FILE$."P
H7":.7500...M.. QN.1 . 110.0.V.FILE$."PH
8":.7500.A.W.. QN.1 . 110.[...FILE$."CAT
BELL":.6600.L.... QN.1 . 110.....FILE$."
PH9":.7500...... QN.1 . 110......VV.0..7
000:VV.1...... QN.1 . 110.....TMAX.5:.40
00:. RANDOM PHONE #'S.....FILE$." CODE A
ND LINK THESE NAMES AND NUMBERS ":."..";
.+....2990:.G(146);.G...VT%.3:.30100:."(
CHOOSE PEG WORD(S) FOR FIRST 3 DIGITS)".
U....I.1.TMAX.....VT%.2.I.4:.30100:.211,
0......PN$(1,I);.7);"... ";PN$(2,I);.23)
;...&.."???-";EG$(E(J(PN$(2,I),5,2)));..
.'.."-";EG$(E(I(PN$(2,I),2)))...0..I.>.:
.VT%.24:.30100:."PRESS <SPACE BAR> WHEN
MEMORIZED...";.R.;..XX.1.10:.XX$:..].D..
9520..N..I.1.TMAX:MSG$(I).PN$(1,I):.I.
..X..I.1.TMAX:BEF$(I).PN$(2,I):.I...B.FI
LE$." ENTER THE CORRESPONDING PHONE NUMB
ER ":AN$."...-...."...L.LMARGIN.12:RMARG
IN.22:LOW.1:HIGH.TMAX:COL.1:.2000.*.M..
QN.1 . 110.L.V..I.1.TMAX:MSG$(I).PN$(1,I
):.I.X....3400:.3000:. ADD HYPHEN; RECAL
L TESTER...... QN.1 . 110......3700:.C$.
"Y".500...... QN.1 . 110.L....3800:. LOS
ERS MESSAGES.U....110...... ADVANCED USE
OF PHONE NUMBERS......VV.0..7000:VV.1..
.... QN.1 . 110.6...FILE$."PH10":.7500.G
.... QN.1 . 110.^.A.FILE$."PH11":.7500.O
.B.. QN.1 . 110...F.KMAX.10:.1700...G..
QN.1 . 110...P..4000:. GENERATE RANDOM P
HONE #'S...Z..I.1.TMAX:BEF$(I).PN$(1,I).
" .... ".PN$(2,I):.I......1000:. MODIFIE
D WORD DISPLAY...... QN.1 . 110.\...XMAX
.TMAX:XNUM.TMAX:.1500:. SCRAMBLE REDISPL
AYED NUMBERS......I.1.KMAX:MSG$(I).PN$(1
,RDR%(I)):.I.E...FILE$."ENTER THE CORRES
PONDING PHONE NUMBERS":AN$."...-...."...
..LOW.1:HIGH.TMAX:LMARGIN.12:RMARGIN.24:
COL.1......G(147);:.2000:.QUIT.1.110.$..
.. QN.1. 110.L....I.1.KMAX:BEF$(I).PN$(2
,RDR%(I)):.I.V. ..3300:.3400:.3000:.2734
0:. QN.1 . 110...!..3700:.C$."Y".710...*
..110.M....13000:VT%.8:.30100:."YOU HAVE
JUST EXITED":.G(18);.....VT%.10:.30100:
."THE EINSTEIN MEMORY TRAINER";:.G(146);
.I....".":VT%.12:.30100:."THANK YOU FOR
PLAYING!":VT%.22:.30100:..\.... WORD DIS
PLAY......G(147);:VT%.12:.30100:FILE$."G
ET READY TO BE TESTED".......9);:SEC.4:.
30000:.G(146);.X.$.VT%.12:.30100:.EL:SEC
.2:.2900...%.. QN.1 . ....8..I.1.TMAX.2.
`.VT%.10:.30100:.211,7:.G(18);:."
".P.J.VT%.14:.30100:.21
1,7:.". ";G(146);
...T..211,0:VT%.12:.30100:.MU:. 30200...
U....((40.C(BEF$(I))).2));BEF$(I);.10).M
.~..PR.1.1160.....VT%.19:.30100:.211,11:
.T1$(I);:.211,0:."PEG NAME: "......PW.1.
1170.7...VT%.21:.30100:.211,11:."???-";.
Y....EG$(E(J(PN$(2,I),5,2)));"-";.U....E
G$(E(I(PN$(2,I),2)));......211,0:."PEG W
ORDS: ".....VT%.24:.30100:.211,0:."PRESS
<";:.G(18);......"SPACE BAR";:.G(146);:
."> WHEN MEMORIZED...";......XX.1.10:.XX
$:....... 9520:. SPACE BAR.).... QN.1 .
..R.... BLANK DISPLAY FOR 0.5 SEC INTERV
AL.....VT%.12:.30100:.211,0:.30200:VT%.2
1:.30100:.211,0...... 30200:. E-O-L.P...
VT%.24:.30100:.211,0:.30200:VT%.19:.3010
0:.211,0...D.. 30200:SEC.1:.2900...E.. Q
N.1 . ....N..I...X... .... RANDOM ORDER
SELECTOR.8...RDR%(1).XNUM..(1).1.F....I.
2.XMAX.^...RDR%(I).XNUM..(1).1.K....J.1.
I.1......RDR%(I).RDR%(J).1530:. GET A NE
W RANDOM #......J:.I...?...E.... MEMORY
OPTION SELECT......G(147);:FILE$."
SET MEMORY PRACTICE OPTIONS ".....
.G(18);:.2990:.G(146);.6...VT%.4:.30100:
.211,0.V...."NUMBER OF PHONE NUMBERS (5
TO ";KMAX;")...";.37);:. 30200...... T.1
. 10:. A$:. T...B.. 72:.79:TMAX.E(L$):.
211,0...C.. QN.1 . ..Y.G..TMAX..KMAX.TMA
X..5.1750...L..G(18);:VT%.6:.30100.*.M..
G(7);"ILLEGAL ENTRY! PLEASE ENTER AGAIN"
;:.G(146);.<.N.. 30200:.1720.O.V.VT%.6:.
30100:."HELP WITH PEG WORDS--";:. 30200.
..X.VT%.8:.30100:.211,3:."FOR NAMES: (Y)
ES OR (N)O.....";.38);...Y..72:.C$.I.Z..
QN.1 . .......C$."Y".PROMPT.0:.1772....
..C$."N".PROMPT.1:.1772.. ...1750.J ..VT
%.10:.30100:.211,3:."FOR NUMBERS: (Y)ES
OR (N)O.....";.38).V ...72:.C$.E ... QN.
1 . ..| ...C$."Y".PW.0:.1790.. ...C$."N"
.PW.1:.1790.. ...1772.. ..X.1.. &.TYPE.1
.N 0.SC.100.(2.PW.PR.1).X.TYPE..!:.VT%.1
7:.30100:."SCORE FOR EACH CORRECT ANSWER
......";.36);.,!;..G(18);:.SC;:.G(146);
:.EL.P!D.VT%.21:.30100:.211,0:."ARE THES
E THE OPTIONS YOU WANT? (Y/N) ";.|!E..72
:.C$..!F.. QN.1 . ...!N..C$."Y".1899..!X
..C$.."N".1860..!B..1720..!K....!P.. UNT
IMED KEYBOARD RETRIEVE.."Z.K.LOW:PRT.1:Q
UIT.0:.G(147);:C$."".""...I.LOW.HIGH:AFT
$(I)."":.I.="...G(18);:.2990:.G(146);.Q"
...XX.1.10:.XX$:..Z"..DFR.(HIGH.LOW.1).2
:.COL.1.DFR.HIGH.1.."..OFFSET..((HIGH.LO
W).2).."...I.LOW.HIGH.."..AH.LMARGIN.T".
..(I.LOW)..DFR.AH.LMARGIN.21.." .AV.2.(I
.LOW).3..#!..(I.LOW)..DFR.AV.2.(I.LOW.OF
FSET).1.D#*.VT%.AV:.30100:.211,AH.1:.MSG
$(I);.RMARGIN.1);AN$.K#4..I.Q#>.VT%.22:.
30100:.I.0.7:."-----";:.I..#H.VT%.23:.30
100:.G(18);:."^";:.G(146);..#I.." FOR PR
EVIOUS LINE; "..#R.VT%.24:.30100:."PRESS
<RETURN> AFTER EACH ENTRY.";..#\..PRT.1
..2400..$A.. 73..$B.. QN.1 . ...$F.XX$.C
$:X.F(XX$.ZE$).U$Z..(X.17).2220:. RIGHT
OR DOWN ARROW.}$...X.42.QUIT.1:.2220:. E
SCAPE KEY (*). $...X.13 . 2220:. CARRIAG
E RETURN.D$...(X.94)..2500:.2240:. UP AR
ROWS..$...(X.48).(X..90).2280:. CONTINUE
TIMING..%...79:AFT$(K).L$..%... QN.1 .
..O%..VT%.AV:.30100:.211,AH.1:.MSG$(K);H
(EL$,RMARGIN.1.B(211));.Q%..K.K.1:.QUIT.
1.K.HIGH.1:QUIT.0.{%..PRT.1..%J.. MU..%T
..XX.1.10:.XX$:.:. RESET STROBE..%...K.H
IGH..2310.J%...C$."Y".2300..%...2140:. B
ACK TO THE TOP..%.....&... ANY MORE CHAN
GES?..&..K.HIGH.E&...214,23:.".":.211,0:
.".";H(EL$,38);:. END-OF-LINE.B&$.VT%.24
:.30100:.211,0:.MU..&%.."ARE YOU FINISHE
D MAKING ENTRIES? (Y/N) ";:.EL..&... VT
%=24:GOSUB30100:POKE211,37.C&3.. 71..'8.
.C$."Y" . .".":.2390:. RETURN TO MAIN PO
RTION OF SUBROUTINE..'=..C$.G(17).K.1:.2
380.5'B..C$."N".C$.G(94).2380.?'G..2350.
S'L.. 211,0:VT%.23:.30100:.".";: .G(18);
"^";G(146);..'M.." FOR PREVIOUS LINE; ".
.'N.. 211,0.Y'Q.VT%.24:.30100:."MAKE CHA
NGES AND RETURN PAST LAST ENTRY";..'V...
.'`.. HIGHLIGHT NEXT LINE..(J.AH.LMARGIN
.((T..(K.LOW)..DFR.AH.LMARGIN.21.;(~.AV.
2.(K.LOW).3.C(..(K.LOW)..DFR.AV.2.(K.LO
W.OFFSET).1..(..VT%.AV:.30100:.211,AH.1:
.G(18);..(...MSG$(K);:.G(146);..(....RMA
RGIN.3);"--> ";.A(..PRT.0.G(.....(D.. BA
CKSPACE HANDLER..)N.VT%.AV:.30100:.211,A
H.1:.MSG$(K);H(EL$,RMARGIN.1.B(211));.')
X.K.K.1.S)...K.LOW.K.LOW:. PREVENT OFF-S
CREEN ERROR.Y).....)T.SEC.SEC.2.(SEC.0):
.X.1.SEC.75:. 9600:.:...)... CENTER STRI
NGS..).....((40.C(FILE$)).2));FILE$;.40)
.M)...211,0:...)... RECALL TESTER..*B.AN
S.0:. ZERO THE # OF CORRECT ANSWERS..*L.
.13000.9*V..3300:. REMOVE TRAILING BLANK
S.C*... DISPLAY CORRECT & INCORRECT ANSW
ERS..*..FILE$." YOUR TEST RESULTS
":.G(18);..*...2990:.G(146);.Z*..
VT%.3:.30100:.211,8:."CORRECT";.11);"YOU
R"..+..VT%.4:.30100:..8);"RESPONSE";.24)
;"RESPONSE".%+...I.0.7:."-----";:.I:..5+
...I.LOW.HIGH.O+...BEF$(I)."".BEF$(I)."
":. SKIP THIS ONE IF IT'S BLANK..+&..MSG
$(I);:. 211,8..+0..BEF$(I).AFT$(I)..H(BE
F$(I),18);:ANS.ANS.1..+:..BEF$(I)..AFT$(
I). .G(18);:.H(BEF$(I),18);:.G(146);..,D
..211,23:.H(AFT$(I),15)..,N..I.0,X.X..(1
00.ANS.(HIGH.LOW.1).0.5).X,B..:."YOU REM
EMBERED ";:.G(18);:.ANS;..,C..G(146);:."
CORRECTLY, OR ";:.G(18);..,D..X;".";"%"
:.G(146);.P,L.VT%.24:.30100:."PRESS <SPA
CE BAR> TO CONTINUE...";..,M..XX.1.10:.X
X$:...,V.. 9520..,.....-... REMOVE TRAIL
ING BLANKS IN AFT$.*-...I.LOW.HIGH.G-..X
.C(AFT$(I)).1:.X.0.3350.X-...I(AFT$(I),1
)." ".AFT$(I).H(AFT$(I),X):.3320..-...H(
AFT$(I),1)." ".AFT$(I).I(AFT$(I),X):.332
0..-...I..-G...S-H.. I THINK JUST A REM
ARK..-R..I.1.TMAX:. YPHEN FOR PHONE NUMB
ERS...\..C(AFT$(I)).7.3440.<.F.AFT$(I).H
(AFT$(I),3)."-".I(AFT$(I),4).E.P..I:..].
T.. WINNER'S MESSAGES.T.~..ANS.0.7.TMAX.
3790......G(147);:VT%.9:.30100:FILE$."--
CONGRATULATIONS--"......2990:.:.......AN
S.TMAX.FILE$."YOUR MEMORY WAS PERFECT!!"
:.3760.*/...ANS..0.9.TMAX.FILE$."YOUR ME
MORY WAS EXCELLENT!":.3760.F/...ANS..0.8
.TMAX.FILE$."YOUR MEMORY WAS VERY GOOD!"
:.3760../...ANS..0.7.TMAX.FILE$."YOUR ME
MORY WAS GOOD. KEEP IT UP!".Q/...2990:FI
LE$."87868785878487835654":.16000../..FI
LE$."5653565293949596979981":.16000..0..
.9500. 0N..G(147);:VT%.12:.30100.O0O.."D
O YOU WANT TO BE TESTED AGAIN? (Y/N) ";.
L0S..72:.(C$."Y").(C$."N")...{0T.. QN.1
. ...0W..3795..0X.. LOSER'S MESSAGE..0..
.ANS..0.7.TMAX...J0..FILE$."FAILURE":.75
00.P0.....0 .. NAME & PHONE # GENERATOR.
%1..XMAX.TMAX:XNUM.40:.1500:. RANDOM NUM
BER GENERATOR.31...I.1.KMAX._1...RDR%(I)
.20.PN$(1,I).WOMEN$(RDR%(I).20)..1H..RDR
%(I)..20.PN$(1,I).MEN$(RDR%(I)). 1R.T1$(
I).PEG$(RDR%(I))..1... 7 DIGIT PHONE NUM
BER.J1..NUMBER$."".U1...J.1.7..1..Y..(10
..(1))..1...(J.1).(Y.2).4090..2..NUMBER$
.NUMBER$.I(D(Y),1).!2...J.L2".PN$(2,I).H
(NUMBER$,3)."-".I(NUMBER$,4).S2,..I.Y26.
..O2D.. HIRES DISPLAYER..2N..G(147);:. 6
550:. 49158:. 49152:...2X.. CALL HIRES U
NCOP/RASTER ROUTINE.N2... LOAD ROUTINE..
2 .LS.LD.3:. LS,C(FILE$)..3... T.1 . C(F
ILE$):. LS.T,F(J(FILE$,T,1)):. T.'3... L
D: 4:..=3H.. PICTURE DISPLAY.U3R..6500:
.9500:. 49155.D3...G(147);:...3X.. PERSO
NAL DISK SECTION..3B..DSK$.."Y"..:. SUBJ
ECT HAS NO DISK FILE.Q3L..".":RW$."READ
":SD$."C":.7200:...3... WRITE TO PERSONA
L DISK..4F.RW$."WRITE ":SD$."A":.7450.A4
Z..13000:FILE$."LOADING MEMORY TRAINER M
AIN MENU".L4..VT%.10:.30100:.2990:. "INT
RODUCTION",8..4...110:. JUST IN CASE..4
.. READ/WRITE TO DISK.H4*..DSK$.."Y".QUI
T.0:.7430:. NO DISK FILE..44.C$."UPDATE"
:.RW$."READ ".C$."USE".(5>.VT%.10:. 3010
0:."DO YOU WANT TO ";C$;" THE PEG WORDS"
.\5H.VT%.12:.30100:."ON YOUR PERSONAL DI
SK? (Y/N) ";.S5I..71:.C$:. QN.1 . ...5R.
.C$."Y".7290..5\..(C$."N").(SD$."QUIT").
.:. QUIT FOR NOW SECTION.V5F..(C$."N").(
RW$."READ ")....5K..(C$."N").(RW$."WRITE
").7450..6P..7240:. DEFAULT.<6Z..G(147)
;:VT%.10:.30100:.MU:."INSERT YOUR ";.Z6{
..G(18);:."PERSONAL DISK";.Z6|..G(146);:
." INTO DRIVE #1."..6.VT%.15:.30100:.21
1,0:."(PRESS <CTRL-C> TO CANCEL)".F6...9
500:. QN.1 . ...6...G(147);:VT%.10:.3010
0..7..FILE$."READING YOUR PERSONAL DISK"
:.2990.'7... ACTUAL DISK ACCESS.N7... P
RINTD$;"READ ";FLNM$:REM 1ST CHECK TO SE
E IF THE FILE IS THERE..7... PRINTD$;"CL
OSE"..7.....7... RW$.."READ " . 7360.P7.
.. 2,8,2,FLNM$.".NAM,SEQ,R":. ST . 17000
..7...2,A:. ST . 17000..8... I.1 . 40:.2
,PEG$(I):.I.&8.. 2:. RW$ IS A READ/WRIT
E FLAG.X8J.. 2,8,2,FLNM$.".WRD,SEQ,R":.
ST . 191 . 17000.E8T..2,PLMAX.S8...I.1 .
60..8...RW$."READ "..2,EG$(I)..8...I:
2..8...SD$."QUIT"....8...G(147);:VT%.10:
.30100:.MU:."BE SURE MEMORY TRAINER ";..
9...G(18);:."DISK ";SD$:.G(146);.A9..VT%
.12:.30100:."IS PROPERLY INSERTED INTO D
RIVE #1.".Q9..VT%.16:.30100:."(PRESS <CT
RL-C> TO CANCEL)".}9$..9500:...9L.. TEXT
FILE SCREEN WRITER.F9V.. 2,8,2,FILE$:.G
(147);:.1,A:. A.19 . ...:`..".";:FILE$."
THE EINSTEIN MEMORY TRAINER: LESSON #5
"..:A..G(18);:.2990:.G(146);:..J:J.. T.1
. 24:.2,S9$(T):.1,A,B$:. A.19 . ..V:T..
T: 2.Q:Y.. T.2 . 22:.S9$(T):. T..:..SE
C..5:.2900:VT%.24:.30100:.S9$(23);..:...
XX.1.10:.XX$:...:...9520.U:...XX.1.10:.X
X$:.:.13000:...:@.. MENU SELECTOR..;J..G
(147);:.XX.1.10:.XX$:..:;T.FILE$."
THE EINSTEIN MEMORY TRAINER ".U;U..
G(18);:.2990:.G(146);.;^.VT%.24:.30100:
."FILE NAME: ";:.G(18);..;_..FLNM$;:.G(1
46);.S;H.VT%.4:.30100:.211,0:FILE$."LESS
ON #5: PHONE NUMBERS":.2990..;R..I.65.64
.MAX..;|.S.I.64..<..VT%.S.6:.30100:.G(I)
" : "PGM$(S)..<...:..-<...PV$."".8110.J<
..VT%.20:.30100:."(YOUR PREVIOUS SELECTI
ON WAS '";PV$;"')"..<..VT%.18:.30100:."S
ELECT OPTION: ";:. 30200:. TO END-OF-LIN
E.D<...72:C.F(C$.ZE$):AN$.C$..<L..C.65.C
.64.MAX.8120..<V..:C.C.64..=..VT%.C.6:.3
0100:.G(18);:.AN$;:.G(146);.9=..." : ";:
.G(18);:.PGM$(C):.G(146);.V=..VT%.18:.30
100:."IS THIS THE SELECTION YOU WANT? (Y
/N) ";.~=...71..=...C$.."Y".C$.."N".8180
:. CHCK APPLE LISTING???.O=...C$:.C$.."N
".PV$.AN$:.8210..=. VT%.C.6:.30100:.AN$"
: "PGM$(C):.8110..=. ...>.%. WAIT FOR S
PACE BAR.W>&%. 211,0:VT%.24:.30100:."PRE
SS <SPACE BAR> TO CONTINUE...";.K>'%.XX.
1.10:.XX$:..>0%. 73:. QN.1 . ...>5%. C$
.." " . 9520..>:%.XX.1.10:.XX$:.:..O>.%.
C$.G(3) . :. 204,1:.49155:QN.1.U>.%...>
.'. INITIALIZATION..>.'.RDR%(20)..?.'SD$
."A":D$.G(13).G(4).)?$'.I.1.10:.D1$(I):.
I.J?.'. SHARK-NAIL-TACK,FARM-BAT-PIN,CAM
P-FIN-SOUP, MAPS-PIPE-FOOT..?/'. BANK-FA
N-SHACK,LABEL-COAL-FIRE,MOTOR-NOSE-PILL.
S?0'. JUNK-MOVIE-ROAR,CART-JAM-LIP,NICKE
L-BUSH-SHIP..?8'.I.1.10:.D2$(I):.I.&@B'.
647-2517,843-9192,739-8209,390-9981,927
-8267,595-7584.P@C'. 314-2095,627-3844,7
41-6359,275-9669.K@L'KMAX.5:HIGH.KMAX:LO
W.1..@`'.I.1.20:.MEN$(I):.I.C@J'. BILL,B
OB,BRUCE,CHUCK,DAVE,DENNIS,ED,FRANK,HARR
Y,JACK,JEFF..@K'. JIM,JOE,JOHN,KEN,MARK,
MIKE,PHIL,STEVE,TOM..AT'.I.1.20:.WOMEN$(
I):.I.KA~'. ALICE,ANNE,CAROL,CATHY,DORIS
,EILEEN,GAIL,JANE,JEAN,JOAN..A'. JOYCE,
JULIE,KATE,LISA,LIZ,RUTH,SANDY,SHERRY,SU
E,WENDY..A.'.I.1.20:.PEGNAME$(I):.I:. MA
LE PEG-NAMES..A.'. DOLLAR BILL,BOBSLED,N
OOSE,WAGON,WAVE,TENNIS,BED..B.'. HOT DOG
,HAIRY,BEANSTALK,CHEF,JUNGLE,TOE,YAWN.IB
.'. HEN,SHARK,MICROPHONE,PILL,STOVE,THUM
B.YB.'.I.21.40:.PEGNAME$(I):.I:. FEMALE
PEG-NAMES..B.'. PALACE,ANT,BARREL,CAT,DO
ORS,ISLAND,SAIL,CHAIN,JEANS,BONE..B.'. J
UICE,JEWELRY,SKATE,PIZZA,LIZARD,TOOTH,BE
ACH,CHERRY,SHOE,WINDY."C.'. 2,8,2,"PEG W
ORDS":. ST . 17000.EC.'.I.1.99:.2,EG$(I)
:. ST . 17000.LC.'.I.AC.' 2:. ST . 1700
0..C.'.I.1.5:.D3$(I):.I:. INITIALIZE FOR
1ST RECALL TEST.KC.'. 390-1128,647-4963
,439-6143,843-1958,927-3384..CD'.I.0.9:.
EG$(I):.I..DN'. SAUCE,SEAT,SUN,SEAM,SORE
,SEAL,SASH,SOCK,SAFE,SOUP.+DL). MUSIC ST
UFF.8DV)SX.54272.ZD.). T.1 . 9:. HF%(T),
LF%(T):. T..D.). 16,195,18,209,21,31,22,
96,25,30,28,49,31,165,33,135,0,0..D.)...
D.*. READ FILE NAME..D.+DSK$.G(B(DE)):.D
SK$.."Y".FLNM$."NONE":. 11700..D.+FLNM$.
"":.I.1.B(NM)..E.+FLNM$.FLNM$.G(B(NM.I))
:.I.7E.-. REAL RANDOM GENERATOR.OE.-A.B(
78):. 78 IS $4E.HEH-B.A.1:. BE SURE A<>0
..ER-.X.1.10:.202,B:ANS..(1):.X..ER..I.0
.9:.PITCH(I):.I..ES..0,PITCH(.(7..(1)).1
)..E|.. 0,133,121,107,100,90,80,70,66,1.
.E.....EH2. CENTER/OUT WIPEOUT.&F63.I.1.
12:.34,12.I:.35,12.I:.33,4.3.I.FF73.32,2
4.2.I:.G(147);:.J.1.60.RF83.J:.I:..FF.>.
MELODY PLAYER.XF.>.I.1.C(FILE$)..F.>X.E
(J(FILE$,I,1)).FF.>. SX.1,HF%(X):. SX,LF
%(X):. SX.4,33:SEC.0.07:. 2900..F.>. QN.
1 . . SX.4,0:...F.>. SX.4,0:. I:...GHB.
ERROR HANDLING..GRB. 49155:.G(147);.+G|B
.1,Y,B$: 2.XG.B. Y=PEEK(222):X=PEEK(21
8)+256*PEEK(219).RG.B. X=LINE #; Y=ERROR
#..G.BL$."A5":. REVISION & LESSON #..G.
BVT%.2:.30100:."USER NAME: ";:.G(18);.RG
.B.FLNM$;:.G(146);..G.BVT%.4:.30100:.211
,0:.G(146);..H.B."AN ERROR HAS OCCURED!"
.BH.BVT%.6:.30100:."ERROR CODE: #";Y;"
";L$;B$.HHBBVT%.10:.30100:."ERROR MES
SAGE: ";..HLB.Y.26.."DISK IS WRITE PROTE
CTED"..HVB.Y.62.."FILE WAS NOT FOUND".LH
.B.Y.72.."YOUR DISK IS FULL"..H.BVT%.12:
.30100:.211,0:.G(18);."I.B."CHECK THAT T
HE APPROPRIATE DISK":VT%.14:.30100.TI.C.
"IS PROPERLY INSERTED IN DRIVE #1.":.G(1
46);..I.CVT%.24:.30100:.211,0:."PRESS <S
PACE BAR> TO RESUME...";..I.C.XX.1.10:.X
X$:..LI.C.XX$:X.F(XX$.ZE$).128:.X..160.1
7170..I.C.110:. TO MAIN MENU..JLJVT%.21:
.30100:.211,0:AX.ANS:."YOUR SCORE: ";.2J
MJ.G(18);:.SC.AX;:.G(146);.FJVJ.AX.SC.TS
.27360..JWJTS.AX.SC:. 211,20:.G(7);:FILE
$."HIGHEST SCORE: ".D(TS)..JXJSEC.4:. 30
000:.G(146);.DJ.J.211,20:."HIGHEST SCORE
: ";:.G(18);.VJ.J.TS;:.G(146);..J.J.9500
:...J0U. FLASH ROUTINE..K:U. STRING IN F
ILE$, TIME IN SEC.BKDUVT%.B(214).1:HT%.B
(211):TI$."000000".HKNU. 211,HT%:. 30100
:.".";FILE$;".";..KXU. TD.1 . 60:. TD:.
211,HT%:. 30100:.FILE$;..KBU. TD.1 . 60:
. TD.DKLU. TI.SEC.60 . 30030.JKVU...K.U.
VTAB ROUTINE..K.U. ROW # IN VT%..K.UXX%
.B(211)..L.U.H(VT$,VT%);..L.U.211,XX%.#L
FU..4L.U. EL ROUTINE.BL.VRX.B(211).[L.V.
H(EL$,40.RX);"...";.JL V. 211,RX:....
> CLICK IMAGE PREVIEW FOR FULL MODAL