LESSON4
FILE INFORMATION
FILENAME(S): LESSON4
FILE TYPE(S): PRG
FILE SIZE: 18.5K
FIRST SEEN: 2025-12-02 23:10:09
APPEARS ON: 1 disk(s)
FILE HASH
dd6163dbffd6a4a853df987ea107b02ae2ecf7278c3e415cd9833b0db96d73cc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES XLVI | LESSON4 | PRG | swasti, chrisbitti1 | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 0A 00 8F 20 4C 45 53 53 4F 4E 20 23 |....... LESSON #|
00000010: 34 3A 44 41 54 45 53 00 53 08 14 00 4D 55 B2 34 |4:DATES.S...MU.4|
00000020: 39 36 33 37 3A 45 4C B2 34 39 36 33 37 3A 47 52 |9637:EL.49637:GR|
00000030: B2 34 39 31 35 32 3A 45 52 B2 34 39 36 33 37 3A |.49152:ER.49637:|
00000040: 97 20 35 33 32 38 31 2C 30 3A 97 20 35 33 32 38 |. 53281,0:. 5328|
00000050: 30 2C 30 00 81 08 16 00 56 54 24 B2 22 13 11 11 |0,0.....VT$."...|
00000060: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000070: 11 11 11 11 11 11 11 11 11 11 11 22 3A 99 22 05 |...........":.".|
00000080: 22 00 B7 08 17 00 45 4C 24 B2 22 20 20 20 20 20 |".....EL$." |
00000090: 20 20 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 22 00 C4 08 18 00 4C 44 B2 34 | ".....LD.4|
000000C0: 39 35 39 34 00 E3 08 19 00 4E 4D B2 34 39 36 36 |9594.....NM.4966|
000000D0: 38 3A 44 45 B2 34 39 36 36 37 3A 9F 20 31 2C 38 |8:DE.49667:. 1,8|
000000E0: 2C 31 35 00 F0 08 22 00 86 45 47 24 28 38 32 29 |,15..."..EG$(82)|
000000F0: 00 12 09 26 00 86 4D 53 47 24 28 31 32 29 2C 4D |...&..MSG$(12),M|
00000100: 44 59 24 28 32 2C 31 32 29 2C 50 45 47 24 28 31 |DY$(2,12),PEG$(1|
00000110: 32 29 00 2F 09 2A 00 86 4D 4E 54 48 24 28 31 32 |2)./.*..MNTH$(12|
00000120: 29 2C 48 46 25 28 39 29 2C 4C 46 25 28 39 29 00 |),HF%(9),LF%(9).|
00000130: 48 09 2E 00 86 4D 45 4E 24 28 32 30 29 2C 57 4F |H....MEN$(20),WO|
00000140: 4D 45 4E 24 28 32 30 29 00 5F 09 32 00 86 54 4D |MEN$(20)._.2..TM|
00000150: 50 24 28 31 32 29 2C 41 46 54 24 28 31 32 29 00 |P$(12),AFT$(12).|
00000160: 76 09 36 00 86 20 47 4D 24 28 31 30 29 2C 42 45 |v.6.. GM$(10),BE|
00000170: 46 24 28 31 32 29 00 83 09 3A 00 86 53 39 24 28 |F$(12)...:..S9$(|
00000180: 32 34 29 00 8C 09 3C 00 89 31 30 30 00 A6 09 47 |24)...<..100...G|
00000190: 00 81 20 58 58 B2 31 20 A4 20 31 30 3A A1 58 58 |.. XX.1 . 10:.XX|
000001A0: 24 3A 82 20 58 58 00 B2 09 48 00 97 20 32 30 34 |$:. XX...H.. 204|
000001B0: 2C 30 00 C4 09 49 00 A1 43 24 3A 8B 43 24 B2 22 |,0...I..C$:.C$."|
000001C0: 22 A7 37 33 00 EB 09 4B 00 43 24 B2 C7 28 C6 28 |".73...K.C$..(.(|
000001D0: 43 24 AA 5A 45 24 29 AF 31 32 37 29 3A 97 20 32 |C$.ZE$).127):. 2|
000001E0: 30 34 2C 31 3A 8D 20 39 36 30 30 00 F1 09 4C 00 |04,1:. 9600...L.|
000001F0: 8E 00 0D 0A 50 00 8F 20 53 50 45 43 49 41 4C 20 |....P.. SPECIAL |
00000200: 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 37 0A |INPUT ROUTINE.7.|
00000210: 51 00 48 B2 C2 28 32 31 31 29 AA 31 3A 56 B2 C2 |Q.H..(211).1:V..|
00000220: 28 32 31 34 29 AA 31 3A 4C 24 B2 22 22 3A 4C B2 |(214).1:L$."":L.|
00000230: 31 32 3A 89 20 38 33 00 4A 0A 52 00 8D 37 32 3A |12:. 83.J.R..72:|
00000240: 8B 20 51 4E B2 31 20 A7 20 8E 00 7E 0A 53 00 43 |. QN.1 . ..~.S.C|
00000250: 58 B2 C6 28 43 24 AA 5A 45 24 29 3A 8B 43 58 B2 |X..(C$.ZE$):.CX.|
00000260: 31 33 A7 99 C8 28 45 4C 24 2C 4C AB C3 28 4C 24 |13...(EL$,L..(L$|
00000270: 29 29 3A 97 20 32 31 31 2C 48 AB 31 3A 8E 00 8D |)):. 211,H.1:...|
00000280: 0A 54 00 8B 43 58 B3 B1 32 30 A7 38 37 00 A3 0A |.T..CX..20.87...|
00000290: 55 00 52 24 B2 22 58 22 AA C9 28 4C 24 2C 31 29 |U.R$."X"..(L$,1)|
000002A0: AA 52 24 00 C7 0A 56 00 8B 4C 24 B1 22 22 A7 48 |.R$...V..L$."".H|
000002B0: B2 48 AB 31 3A 4C 24 B2 CA 28 4C 24 2C 31 2C C3 |.H.1:L$..(L$,1,.|
000002C0: 28 4C 24 29 AB 31 29 00 ED 0A 57 00 8B 43 58 B2 |(L$).1)...W..CX.|
000002D0: 32 39 20 AF 52 24 B1 22 22 A7 48 B2 48 AA 31 3A |29 .R$."".H.H.1:|
000002E0: 4C 24 B2 4C 24 AA C8 28 52 24 2C 31 29 00 0A 0B |L$.L$..(R$,1)...|
000002F0: 58 00 8B 43 58 B3 33 32 20 A7 43 24 B2 22 22 3A |X..CX.32 .C$."":|
00000300: 48 B2 48 AB 31 3A 43 58 B2 30 00 28 0B 59 00 8B |H.H.1:CX.0.(.Y..|
00000310: C3 28 4C 24 29 AA C3 28 43 24 29 B2 4C A7 99 C7 |.(L$)..(C$).L...|
00000320: 28 37 29 3B 3A 89 38 32 00 44 0B 5A 00 99 43 24 |(7);:.82.D.Z..C$|
00000330: 3B 3A 48 B2 48 AA 31 3A 56 54 25 B2 56 3A 8D 33 |;:H.H.1:VT%.V:.3|
00000340: 30 31 30 30 00 69 0B 5B 00 97 32 31 31 2C 48 AB |0100.i.[..211,H.|
00000350: 31 3A 4C 24 B2 4C 24 AA 43 24 3A 52 24 B2 CA 28 |1:L$.L$.C$:R$..(|
00000360: 52 24 2C 32 29 3A 89 38 32 00 7B 0B 64 00 8D 31 |R$,2):.82.{.d..1|
00000370: 33 30 30 30 3A 8D 31 30 30 30 30 00 AD 0B 6E 00 |3000:.10000...n.|
00000380: 50 47 4D 24 28 31 29 B2 22 49 4E 54 52 4F 44 55 |PGM$(1)."INTRODU|
00000390: 43 54 49 4F 4E 20 54 4F 20 4C 45 53 53 4F 4E 20 |CTION TO LESSON |
000003A0: 23 34 22 3A 9E 45 52 3A 55 24 B2 22 22 00 D3 0B |#4":.ER:U$.""...|
000003B0: 73 00 50 47 4D 24 28 32 29 B2 22 53 54 55 44 59 |s.PGM$(2)."STUDY|
000003C0: 2F 43 48 41 4E 47 45 20 50 45 47 20 4D 4F 4E 54 |/CHANGE PEG MONT|
000003D0: 48 53 22 00 FA 0B 78 00 50 47 4D 24 28 33 29 B2 |HS"...x.PGM$(3).|
000003E0: 22 52 45 4D 45 4D 42 45 52 20 4D 4F 4E 54 48 53 |"REMEMBER MONTHS|
000003F0: 20 41 4E 44 20 44 41 59 53 22 00 28 0C 7D 00 50 | AND DAYS".(.}.P|
00000400: 47 4D 24 28 34 29 B2 22 52 45 4D 45 4D 42 45 52 |GM$(4)."REMEMBER|
00000410: 20 4D 4F 4E 54 48 53 2C 20 44 41 59 53 20 41 4E | MONTHS, DAYS AN|
00000420: 44 20 59 45 41 52 53 22 00 4F 0C 82 00 50 47 4D |D YEARS".O...PGM|
00000430: 24 28 35 29 B2 22 52 45 4D 45 4D 42 45 52 20 4E |$(5)."REMEMBER N|
00000440: 41 4D 45 53 20 41 4E 44 20 44 41 54 45 53 22 00 |AMES AND DATES".|
00000450: 80 0C 87 00 50 47 4D 24 28 36 29 B2 22 52 45 54 |....PGM$(6)."RET|
00000460: 55 52 4E 20 54 4F 20 4D 45 4D 4F 52 59 20 54 52 |URN TO MEMORY TR|
00000470: 41 49 4E 45 52 20 4D 41 49 4E 20 4D 45 4E 55 22 |AINER MAIN MENU"|
00000480: 00 9B 0C 8C 00 50 47 4D 24 28 37 29 B2 22 51 55 |.....PGM$(7)."QU|
00000490: 49 54 20 46 4F 52 20 4E 4F 57 22 00 B0 0C 91 00 |IT FOR NOW".....|
000004A0: 4D 41 58 B2 37 3A 8D 38 30 30 30 3A 51 4E B2 30 |MAX.7:.8000:QN.0|
000004B0: 00 D4 0C 96 00 91 43 89 31 36 30 2C 31 37 30 2C |......C.160,170,|
000004C0: 33 34 30 2C 35 35 30 2C 37 33 30 2C 37 31 30 30 |340,550,730,7100|
000004D0: 2C 39 39 30 00 EE 0C A0 00 46 49 4C 45 24 B2 22 |,990.....FILE$."|
000004E0: 44 31 22 3A 8D 37 35 30 30 3A 89 31 31 30 00 0F |D1":.7500:.110..|
000004F0: 0D AA 00 8F 20 44 49 53 50 4C 41 59 20 26 20 41 |.... DISPLAY & A|
00000500: 4C 54 45 52 20 50 45 47 2D 4D 4F 4E 54 48 53 00 |LTER PEG-MONTHS.|
00000510: 24 0D B4 00 8B 56 56 B2 30 A7 8D 37 30 30 30 3A |$....VV.0..7000:|
00000520: 56 56 B2 31 00 35 0D B5 00 8B 20 51 4E B2 31 20 |VV.1.5.... QN.1 |
00000530: A7 20 31 31 30 00 4A 0D B9 00 46 49 4C 45 24 B2 |. 110.J...FILE$.|
00000540: 22 44 32 22 3A 8D 37 35 30 30 00 5B 0D BA 00 8B |"D2":.7500.[....|
00000550: 20 51 4E B2 31 20 A7 20 31 31 30 00 80 0D BE 00 | QN.1 . 110.....|
00000560: 4C 4D 41 52 47 49 4E B2 32 3A 4C 4F 57 B2 31 3A |LMARGIN.2:LOW.1:|
00000570: 48 49 47 48 B2 31 32 3A 99 C7 28 31 34 37 29 3B |HIGH.12:..(147);|
00000580: 00 B0 0D C8 00 81 49 B2 31 A4 31 32 3A 4D 53 47 |......I.1.12:MSG|
00000590: 24 28 49 29 B2 4D 4E 54 48 24 28 49 29 3A 54 4D |$(I).MNTH$(I):TM|
000005A0: 50 24 28 49 29 B2 50 45 47 24 28 49 29 3A 82 49 |P$(I).PEG$(I):.I|
000005B0: 00 E5 0D D2 00 46 49 4C 45 24 B2 22 20 20 20 53 |.....FILE$." S|
000005C0: 54 55 44 59 20 41 4E 44 2F 4F 52 20 43 48 41 4E |TUDY AND/OR CHAN|
000005D0: 47 45 20 54 48 45 20 50 45 47 20 4D 4F 4E 54 48 |GE THE PEG MONTH|
000005E0: 53 20 20 20 22 00 01 0E DC 00 8D 31 33 30 30 30 |S "......13000|
000005F0: 3A 43 4F 4C B2 32 3A 41 59 B2 33 3A 8D 32 30 30 |:COL.2:AY.3:.200|
00000600: 30 00 12 0E DD 00 8B 20 51 4E B2 31 20 A7 20 31 |0...... QN.1 . 1|
00000610: 31 30 00 1C 0E E1 00 8D 33 33 30 30 00 2D 0E E2 |10......3300.-..|
00000620: 00 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 51 0E |.. QN.1 . 110.Q.|
00000630: E6 00 81 49 B2 31 A4 31 32 3A 8F 20 55 50 44 41 |...I.1.12:. UPDA|
00000640: 54 45 20 54 48 45 20 50 45 47 20 4D 4F 4E 54 48 |TE THE PEG MONTH|
00000650: 53 00 72 0E F0 00 8B 41 46 54 24 28 49 29 B3 B1 |S.r....AFT$(I)..|
00000660: 22 22 A7 50 45 47 24 28 49 29 B2 41 46 54 24 28 |"".PEG$(I).AFT$(|
00000670: 49 29 00 79 0E FA 00 82 49 00 93 0E 04 01 81 49 |I).y....I......I|
00000680: B2 31 A4 31 32 3A 41 46 54 24 28 49 29 B2 22 22 |.1.12:AFT$(I).""|
00000690: 3A 82 49 00 AD 0E 0E 01 58 4E 55 4D B2 31 32 3A |:.I.....XNUM.12:|
000006A0: 58 4D 41 58 B2 31 32 3A 8D 31 35 30 30 00 E1 0E |XMAX.12:.1500...|
000006B0: 0F 01 46 49 4C 45 24 B2 22 20 20 20 45 4E 54 45 |..FILE$." ENTE|
000006C0: 52 20 54 48 45 20 43 4F 52 52 45 53 50 4F 4E 44 |R THE CORRESPOND|
000006D0: 49 4E 47 20 50 45 47 20 4D 4F 4E 54 48 20 20 20 |ING PEG MONTH |
000006E0: 22 00 03 0F 18 01 81 49 B2 31 A4 31 32 3A 42 45 |"......I.1.12:BE|
000006F0: 46 24 28 49 29 B2 50 45 47 24 28 52 44 52 25 28 |F$(I).PEG$(RDR%(|
00000700: 49 29 29 00 21 0F 19 01 4D 53 47 24 28 49 29 B2 |I)).!...MSG$(I).|
00000710: 4D 4E 54 48 24 28 52 44 52 25 28 49 29 29 3A 82 |MNTH$(RDR%(I)):.|
00000720: 49 00 52 0F 22 01 81 49 B2 31 A4 31 32 3A 54 4D |I.R."..I.1.12:TM|
00000730: 50 24 28 49 29 B2 22 2E 2E 2E 2E 22 3A 82 49 3A |P$(I)."....":.I:|
00000740: 55 24 B2 22 40 22 3A 8D 32 30 30 30 3A 55 24 B2 |U$."@":.2000:U$.|
00000750: 22 22 00 62 0F 2C 01 8D 33 33 30 30 3A 8D 33 30 |"".b.,..3300:.30|
00000760: 30 30 00 73 0F 2D 01 8B 20 51 4E B2 31 20 A7 20 |00.s.-.. QN.1 . |
00000770: 31 31 30 00 91 0F 36 01 54 4D 41 58 B2 31 32 3A |110...6.TMAX.12:|
00000780: 8D 33 37 30 30 3A 8B 43 24 B2 22 59 22 89 31 39 |.3700:.C$."Y".19|
00000790: 30 00 A2 0F 37 01 8B 20 51 4E B2 31 20 A7 20 31 |0...7.. QN.1 . 1|
000007A0: 31 30 00 C2 0F 40 01 8B A8 28 28 41 4E 53 B1 B2 |10...@...((ANS..|
000007B0: 38 29 AF 28 44 53 4B 24 B2 22 59 22 29 29 A7 33 |8).(DSK$."Y")).3|
000007C0: 33 30 00 EF 0F 41 01 51 55 49 54 B2 32 3A 53 44 |30...A.QUIT.2:SD|
000007D0: 24 B2 22 43 22 3A 52 57 24 B2 22 57 52 49 54 45 |$."C":RW$."WRITE|
000007E0: 20 22 3A 8D 37 32 32 30 3A 51 55 49 54 B2 30 00 | ":.7220:QUIT.0.|
000007F0: 00 10 42 01 8B 20 51 4E B2 31 20 A7 20 31 31 30 |..B.. QN.1 . 110|
00000800: 00 0F 10 4A 01 8D 33 38 30 30 3A 89 31 31 30 00 |...J..3800:.110.|
00000810: 2F 10 54 01 8F 20 52 45 4D 45 4D 42 45 52 49 4E |/.T.. REMEMBERIN|
00000820: 47 20 4D 4F 4E 54 48 53 20 26 20 44 41 59 53 00 |G MONTHS & DAYS.|
00000830: 44 10 5E 01 8B 56 56 B2 30 A7 8D 37 30 30 30 3A |D.^..VV.0..7000:|
00000840: 56 56 B2 31 00 55 10 5F 01 8B 20 51 4E B2 31 20 |VV.1.U._.. QN.1 |
00000850: A7 20 31 31 30 00 6A 10 68 01 46 49 4C 45 24 B2 |. 110.j.h.FILE$.|
00000860: 22 44 34 22 3A 8D 37 35 30 30 00 7B 10 69 01 8B |"D4":.7500.{.i..|
00000870: 20 51 4E B2 31 20 A7 20 31 31 30 00 95 10 6D 01 | QN.1 . 110...m.|
00000880: 46 49 4C 45 24 B2 22 4F 43 54 4F 50 55 53 22 3A |FILE$."OCTOPUS":|
00000890: 8D 36 36 30 30 00 A6 10 6E 01 8B 20 51 4E B2 31 |.6600...n.. QN.1|
000008A0: 20 A7 20 31 31 30 00 BB 10 72 01 46 49 4C 45 24 | . 110...r.FILE$|
000008B0: B2 22 44 35 22 3A 8D 37 35 30 30 00 CC 10 73 01 |."D5":.7500...s.|
000008C0: 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 E1 10 77 |. QN.1 . 110...w|
000008D0: 01 46 49 4C 45 24 B2 22 44 36 22 3A 8D 37 35 30 |.FILE$."D6":.750|
000008E0: 30 00 F2 10 78 01 8B 20 51 4E B2 31 20 A7 20 31 |0...x.. QN.1 . 1|
000008F0: 31 30 00 10 11 7C 01 4B 4D 41 58 B2 31 32 3A 55 |10...|.KMAX.12:U|
00000900: 24 B2 22 40 22 3A 50 59 B2 30 3A 8D 31 37 30 30 |$."@":PY.0:.1700|
00000910: 00 2C 11 86 01 8D 34 35 30 30 3A 8F 20 47 45 4E |.,....4500:. GEN|
00000920: 45 52 41 54 45 20 41 20 44 41 54 45 00 48 11 90 |ERATE A DATE.H..|
00000930: 01 58 4E 55 4D B2 31 32 3A 58 4D 41 58 B2 54 4D |.XNUM.12:XMAX.TM|
00000940: 41 58 3A 8D 31 35 30 30 00 81 11 9A 01 81 49 B2 |AX:.1500......I.|
00000950: 31 A4 54 4D 41 58 3A 42 45 46 24 28 49 29 B2 4D |1.TMAX:BEF$(I).M|
00000960: 4E 54 48 24 28 52 44 52 25 28 49 29 29 AA 22 20 |NTH$(RDR%(I))." |
00000970: 22 AA 4D 44 59 24 28 31 2C 52 44 52 25 28 49 29 |".MDY$(1,RDR%(I)|
00000980: 29 00 9D 11 9B 01 4D 53 47 24 28 49 29 B2 22 28 |).....MSG$(I)."(|
00000990: 22 AA C4 28 49 29 AA 22 29 22 3A 82 49 00 C4 11 |"..(I).")":.I...|
000009A0: A4 01 81 49 B2 31 A4 54 4D 41 58 3A 54 4D 50 24 |...I.1.TMAX:TMP$|
000009B0: 28 49 29 B2 50 45 47 24 28 52 44 52 25 28 49 29 |(I).PEG$(RDR%(I)|
000009C0: 29 3A 82 49 00 DA 11 AE 01 8D 31 30 30 30 3A 55 |):.I......1000:U|
000009D0: 24 B2 22 22 3A 8D 39 30 32 30 00 EB 11 AF 01 8B |$."":.9020......|
000009E0: 20 51 4E B2 31 20 A7 20 31 31 30 00 20 12 B8 01 | QN.1 . 110. ...|
000009F0: 81 49 B2 31 A4 54 4D 41 58 3A 4D 53 47 24 28 49 |.I.1.TMAX:MSG$(I|
00000A00: 29 B2 4D 4E 54 48 24 28 52 44 52 25 28 49 29 29 |).MNTH$(RDR%(I))|
00000A10: 3A 54 4D 50 24 28 49 29 B2 22 2E 2E 22 3A 82 49 |:TMP$(I)."..":.I|
00000A20: 00 51 12 C2 01 46 49 4C 45 24 B2 22 45 4E 54 45 |.Q...FILE$."ENTE|
00000A30: 52 20 43 4F 52 52 45 53 50 4F 4E 44 49 4E 47 20 |R CORRESPONDING |
00000A40: 44 41 59 20 4F 46 20 54 48 45 20 4D 4F 4E 54 48 |DAY OF THE MONTH|
00000A50: 22 00 76 12 CC 01 4C 4D 41 52 47 49 4E B2 31 35 |".v...LMARGIN.15|
00000A60: 3A 4C 4F 57 B2 31 3A 48 49 47 48 B2 54 4D 41 58 |:LOW.1:HIGH.TMAX|
00000A70: 3A 43 4F 4C B2 31 00 93 12 CD 01 8B 54 4D 41 58 |:COL.1......TMAX|
00000A80: B1 31 30 A7 43 4F 4C B2 32 3A 4C 4D 41 52 47 49 |.10.COL.2:LMARGI|
00000A90: 4E B2 32 00 A2 12 D6 01 41 59 B2 33 3A 8D 32 30 |N.2.....AY.3:.20|
00000AA0: 30 30 00 B3 12 D7 01 8B 20 51 4E B2 31 20 A7 20 |00...... QN.1 . |
00000AB0: 31 31 30 00 BD 12 DB 01 8D 33 33 30 30 00 CE 12 |110......3300...|
00000AC0: DC 01 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 DC |... QN.1 . 110..|
00000AD0: 12 E0 01 81 49 B2 31 A4 54 4D 41 58 00 0B 13 EA |....I.1.TMAX....|
00000AE0: 01 42 45 46 24 28 49 29 B2 4D 4E 54 48 24 28 52 |.BEF$(I).MNTH$(R|
00000AF0: 44 52 25 28 49 29 29 AA 22 20 22 AA 4D 44 59 24 |DR%(I))." ".MDY$|
00000B00: 28 31 2C 52 44 52 25 28 49 29 29 00 32 13 F4 01 |(1,RDR%(I)).2...|
00000B10: 41 46 54 24 28 49 29 B2 4D 4E 54 48 24 28 52 44 |AFT$(I).MNTH$(RD|
00000B20: 52 25 28 49 29 29 AA 22 20 22 AA 41 46 54 24 28 |R%(I))." ".AFT$(|
00000B30: 49 29 00 44 13 FE 01 4D 53 47 24 28 49 29 B2 22 |I).D...MSG$(I)."|
00000B40: 22 3A 82 49 00 55 13 08 02 8D 33 30 30 30 3A 8D |":.I.U....3000:.|
00000B50: 32 37 33 34 30 00 66 13 09 02 8B 20 51 4E B2 31 |27340.f.... QN.1|
00000B60: 20 A7 20 31 31 30 00 7C 13 0D 02 8D 33 37 30 30 | . 110.|....3700|
00000B70: 3A 8B 43 24 B2 22 59 22 89 33 38 30 00 8D 13 0E |:.C$."Y".380....|
00000B80: 02 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 97 13 |.. QN.1 . 110...|
00000B90: 12 02 8D 33 38 30 30 00 A0 13 1C 02 89 31 31 30 |...3800......110|
00000BA0: 00 BB 13 26 02 8F 20 4D 4F 4E 54 48 53 2C 20 44 |...&.. MONTHS, D|
00000BB0: 41 59 53 20 26 20 59 45 41 52 53 00 D0 13 30 02 |AYS & YEARS...0.|
00000BC0: 8B 56 56 B2 30 A7 8D 37 30 30 30 3A 56 56 B2 31 |.VV.0..7000:VV.1|
00000BD0: 00 E1 13 31 02 8B 20 51 4E B2 31 20 A7 20 31 31 |...1.. QN.1 . 11|
00000BE0: 30 00 F6 13 3A 02 46 49 4C 45 24 B2 22 44 37 22 |0...:.FILE$."D7"|
00000BF0: 3A 8D 37 35 30 30 00 07 14 3B 02 8B 20 51 4E B2 |:.7500...;.. QN.|
00000C00: 31 20 A7 20 31 31 30 00 21 14 3F 02 46 49 4C 45 |1 . 110.!.?.FILE|
00000C10: 24 B2 22 53 4E 4F 57 4D 41 4E 22 3A 8D 36 36 30 |$."SNOWMAN":.660|
00000C20: 30 00 32 14 40 02 8B 20 51 4E B2 31 20 A7 20 31 |0.2.@.. QN.1 . 1|
00000C30: 31 30 00 47 14 44 02 46 49 4C 45 24 B2 22 44 38 |10.G.D.FILE$."D8|
00000C40: 22 3A 8D 37 35 30 30 00 58 14 45 02 8B 20 51 4E |":.7500.X.E.. QN|
00000C50: B2 31 20 A7 20 31 31 30 00 6D 14 4E 02 46 49 4C |.1 . 110.m.N.FIL|
00000C60: 45 24 B2 22 44 39 22 3A 8D 37 35 30 30 00 7E 14 |E$."D9":.7500.~.|
00000C70: 4F 02 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 96 |O.. QN.1 . 110..|
00000C80: 14 58 02 4B 4D 41 58 B2 31 32 3A 55 24 B2 22 22 |.X.KMAX.12:U$.""|
00000C90: 3A 8D 31 37 30 30 00 A7 14 59 02 8B 20 51 4E B2 |:.1700...Y.. QN.|
00000CA0: 31 20 A7 20 31 31 30 00 C9 14 62 02 8D 34 35 30 |1 . 110...b..450|
00000CB0: 30 3A 8F 20 52 41 4E 44 4F 4D 20 44 41 54 45 20 |0:. RANDOM DATE |
00000CC0: 47 45 4E 45 52 41 54 4F 52 00 ED 14 6C 02 81 49 |GENERATOR...l..I|
00000CD0: B2 31 A4 54 4D 41 58 3A 54 4D 50 24 28 49 29 B2 |.1.TMAX:TMP$(I).|
00000CE0: 50 45 47 24 28 52 44 52 25 28 49 29 29 00 15 15 |PEG$(RDR%(I))...|
00000CF0: 6D 02 4D 53 47 24 28 49 29 B2 4D 4E 54 48 24 28 |m.MSG$(I).MNTH$(|
00000D00: 52 44 52 25 28 49 29 29 3A 52 44 52 25 28 49 29 |RDR%(I)):RDR%(I)|
00000D10: B2 49 3A 82 49 00 1F 15 76 02 8D 31 30 30 30 00 |.I:.I...v..1000.|
00000D20: 30 15 77 02 8B 20 51 4E B2 31 20 A7 20 31 31 30 |0.w.. QN.1 . 110|
00000D30: 00 57 15 7B 02 81 20 49 B2 31 20 A4 20 54 4D 41 |.W.{.. I.1 . TMA|
00000D40: 58 3A 54 4D 50 24 28 49 29 B2 22 2E 2E 20 2E 2E |X:TMP$(I).".. ..|
00000D50: 2E 2E 22 3A 82 20 49 00 80 15 80 02 46 49 4C 45 |..":. I.....FILE|
00000D60: 24 B2 22 45 4E 54 45 52 20 54 48 45 20 43 4F 52 |$."ENTER THE COR|
00000D70: 52 45 43 54 20 44 41 59 20 26 20 59 45 41 52 22 |RECT DAY & YEAR"|
00000D80: 00 A5 15 8A 02 4C 4D 41 52 47 49 4E B2 31 35 3A |.....LMARGIN.15:|
00000D90: 4C 4F 57 B2 31 3A 48 49 47 48 B2 54 4D 41 58 3A |LOW.1:HIGH.TMAX:|
00000DA0: 43 4F 4C B2 31 00 C2 15 8B 02 8B 54 4D 41 58 B1 |COL.1......TMAX.|
00000DB0: 31 30 A7 43 4F 4C B2 32 3A 4C 4D 41 52 47 49 4E |10.COL.2:LMARGIN|
00000DC0: B2 32 00 D1 15 94 02 41 59 B2 33 3A 8D 32 30 30 |.2.....AY.3:.200|
00000DD0: 30 00 E2 15 95 02 8B 20 51 4E B2 31 20 A7 20 31 |0...... QN.1 . 1|
00000DE0: 31 30 00 13 16 9E 02 81 49 B2 31 A4 54 4D 41 58 |10......I.1.TMAX|
00000DF0: 3A 42 45 46 24 28 49 29 B2 4D 44 59 24 28 31 2C |:BEF$(I).MDY$(1,|
00000E00: 49 29 AA 22 2C 22 AA 4D 44 59 24 28 32 2C 49 29 |I).",".MDY$(2,I)|
00000E10: 3A 82 49 00 32 16 A8 02 8D 34 38 33 30 3A 8F 20 |:.I.2....4830:. |
00000E20: 52 45 42 55 49 4C 44 20 44 41 59 20 26 20 59 45 |REBUILD DAY & YE|
00000E30: 41 52 00 5B 16 B2 02 81 49 B2 31 A4 54 4D 41 58 |AR.[....I.1.TMAX|
00000E40: 3A 54 4D 50 24 28 49 29 B2 4D 44 59 24 28 30 2C |:TMP$(I).MDY$(0,|
00000E50: 52 44 52 25 28 49 29 29 3A 82 49 00 6C 16 BC 02 |RDR%(I)):.I.l...|
00000E60: 8D 33 30 30 30 3A 8D 32 37 33 34 30 00 7D 16 BD |.3000:.27340.}..|
00000E70: 02 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 93 16 |.. QN.1 . 110...|
00000E80: C1 02 8D 33 37 30 30 3A 8B 43 24 B2 22 59 22 89 |...3700:.C$."Y".|
00000E90: 36 30 30 00 A4 16 C2 02 8B 20 51 4E B2 31 20 A7 |600...... QN.1 .|
00000EA0: 20 31 31 30 00 BF 16 C6 02 8D 33 38 30 30 3A 8F | 110......3800:.|
00000EB0: 20 4C 4F 53 45 52 53 20 4D 45 53 53 41 47 45 00 | LOSERS MESSAGE.|
00000EC0: C8 16 D0 02 89 31 31 30 00 E8 16 DA 02 8F 20 52 |.....110...... R|
00000ED0: 45 4D 45 4D 42 45 52 49 4E 47 20 4E 41 4D 45 53 |EMEMBERING NAMES|
00000EE0: 20 26 20 44 41 54 45 53 00 FD 16 E4 02 8B 56 56 | & DATES......VV|
00000EF0: B2 30 A7 8D 37 30 30 30 3A 56 56 B2 31 00 0E 17 |.0..7000:VV.1...|
00000F00: E5 02 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 24 |... QN.1 . 110.$|
00000F10: 17 EE 02 46 49 4C 45 24 B2 22 44 31 30 22 3A 8D |...FILE$."D10":.|
00000F20: 37 35 30 30 00 35 17 EF 02 8B 20 51 4E B2 31 20 |7500.5.... QN.1 |
00000F30: A7 20 31 31 30 00 4C 17 F1 02 46 49 4C 45 24 B2 |. 110.L...FILE$.|
00000F40: 22 44 31 31 22 3A 8D 20 37 35 30 30 00 5D 17 F2 |"D11":. 7500.]..|
00000F50: 02 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 77 17 |.. QN.1 . 110.w.|
00000F60: F3 02 46 49 4C 45 24 B2 22 47 4F 52 49 4C 4C 41 |..FILE$."GORILLA|
00000F70: 22 3A 8D 36 36 30 30 00 88 17 F4 02 8B 20 51 4E |":.6600...... QN|
00000F80: B2 31 20 A7 20 31 31 30 00 9E 17 F8 02 46 49 4C |.1 . 110.....FIL|
00000F90: 45 24 B2 22 44 31 32 22 3A 8D 37 35 30 30 00 AF |E$."D12":.7500..|
00000FA0: 17 F9 02 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |.... QN.1 . 110.|
00000FB0: C4 17 FD 02 46 49 4C 45 24 B2 22 44 39 22 3A 8D |....FILE$."D9":.|
00000FC0: 37 35 30 30 00 D5 17 FE 02 8B 20 51 4E B2 31 20 |7500...... QN.1 |
00000FD0: A7 20 31 31 30 00 EF 17 02 03 58 4D 41 58 B2 31 |. 110.....XMAX.1|
00000FE0: 32 3A 58 4E 55 4D B2 34 30 3A 8D 31 35 30 30 00 |2:XNUM.40:.1500.|
00000FF0: FB 17 0C 03 81 49 B2 31 A4 31 32 00 24 18 16 03 |.....I.1.12.$...|
00001000: 8B 52 44 52 25 28 49 29 B3 B2 32 30 A7 4D 53 47 |.RDR%(I)..20.MSG|
00001010: 24 28 49 29 B2 57 4F 4D 45 4E 24 28 52 44 52 25 |$(I).WOMEN$(RDR%|
00001020: 28 49 29 29 00 4D 18 20 03 8B 52 44 52 25 28 49 |(I)).M. ..RDR%(I|
00001030: 29 B1 32 30 A7 4D 53 47 24 28 49 29 B2 4D 45 4E |).20.MSG$(I).MEN|
00001040: 24 28 52 44 52 25 28 49 29 AB 32 30 29 00 54 18 |$(RDR%(I).20).T.|
00001050: 2A 03 82 49 00 79 18 34 03 4B 4D 41 58 B2 31 30 |*..I.y.4.KMAX.10|
00001060: 3A 55 24 B2 22 22 3A 8D 31 37 30 30 3A 8B 20 51 |:U$."":.1700:. Q|
00001070: 4E B2 31 20 A7 20 31 31 30 00 9B 18 3E 03 8D 34 |N.1 . 110...>..4|
00001080: 35 30 30 3A 8F 20 52 41 4E 44 4F 4D 20 44 41 54 |500:. RANDOM DAT|
00001090: 45 20 47 45 4E 45 52 41 54 4F 52 00 C9 18 48 03 |E GENERATOR...H.|
000010A0: 81 49 B2 31 A4 54 4D 41 58 3A 42 45 46 24 28 49 |.I.1.TMAX:BEF$(I|
000010B0: 29 B2 4D 53 47 24 28 49 29 AA 22 20 2E 2E 2E 20 |).MSG$(I)." ... |
000010C0: 22 AA 42 45 46 24 28 49 29 00 F0 18 49 03 54 4D |".BEF$(I)...I.TM|
000010D0: 50 24 28 49 29 B2 50 45 47 24 28 52 44 52 25 28 |P$(I).PEG$(RDR%(|
000010E0: 49 29 29 3A 52 44 52 25 28 49 29 B2 49 3A 82 49 |I)):RDR%(I).I:.I|
000010F0: 00 07 19 52 03 8D 31 30 30 30 3A 8B 20 51 4E B2 |...R..1000:. QN.|
00001100: 31 20 A7 20 31 31 30 00 15 19 5C 03 81 49 B2 31 |1 . 110...\..I.1|
00001110: A4 54 4D 41 58 00 44 19 66 03 42 45 46 24 28 49 |.TMAX.D.f.BEF$(I|
00001120: 29 B2 C9 28 42 45 46 24 28 49 29 2C C3 28 42 45 |)..(BEF$(I),.(BE|
00001130: 46 24 28 49 29 29 AB C3 28 4D 53 47 24 28 49 29 |F$(I))..(MSG$(I)|
00001140: 29 AB 35 29 00 61 19 70 03 54 4D 50 24 28 49 29 |).5).a.p.TMP$(I)|
00001150: B2 22 2E 2E 2E 20 2E 2E 20 2E 2E 2E 2E 22 3A 82 |."... .. ....":.|
00001160: 49 00 7F 19 7A 03 58 4D 41 58 B2 4B 4D 41 58 3A |I...z.XMAX.KMAX:|
00001170: 58 4E 55 4D B2 4B 4D 41 58 3A 8D 31 35 30 30 00 |XNUM.KMAX:.1500.|
00001180: A6 19 84 03 46 49 4C 45 24 B2 22 45 4E 54 45 52 |....FILE$."ENTER|
00001190: 20 54 48 45 20 27 4D 4F 4E 54 48 20 44 41 59 2C | THE 'MONTH DAY,|
000011A0: 59 45 41 52 27 22 00 CF 19 8E 03 4C 4D 41 52 47 |YEAR'".....LMARG|
000011B0: 49 4E B2 38 3A 4C 4F 57 B2 31 3A 48 49 47 48 B2 |IN.8:LOW.1:HIGH.|
000011C0: 54 4D 41 58 3A 41 59 B2 36 3A 43 4F 4C B2 31 00 |TMAX:AY.6:COL.1.|
000011D0: FE 19 8F 03 8D 32 30 30 30 3A 8F 20 44 49 53 50 |.....2000:. DISP|
000011E0: 4C 41 59 20 4E 41 4D 45 53 20 4F 4E 4C 59 20 28 |LAY NAMES ONLY (|
000011F0: 46 4F 55 4E 44 20 49 4E 20 4D 53 47 24 29 00 0F |FOUND IN MSG$)..|
00001200: 1A 90 03 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |.... QN.1 . 110.|
00001210: 30 1A 98 03 81 49 B2 31 A4 4B 4D 41 58 3A 54 4D |0....I.1.KMAX:TM|
00001220: 50 24 28 49 29 B2 4D 53 47 24 28 49 29 3A 82 49 |P$(I).MSG$(I):.I|
00001230: 00 60 1A A2 03 8D 34 36 30 30 3A 8D 33 30 30 30 |.`....4600:.3000|
00001240: 3A 8D 32 37 33 34 30 3A 8F 20 52 45 42 55 49 4C |:.27340:. REBUIL|
00001250: 44 20 4D 4F 4E 54 48 20 44 41 59 2C 59 45 41 52 |D MONTH DAY,YEAR|
00001260: 00 71 1A A3 03 8B 20 51 4E B2 31 20 A7 20 31 31 |.q.... QN.1 . 11|
00001270: 30 00 8E 1A AC 03 54 4D 41 58 B2 35 3A 8D 33 37 |0.....TMAX.5:.37|
00001280: 30 30 3A 8B 43 24 B2 22 59 22 89 37 37 30 00 9F |00:.C$."Y".770..|
00001290: 1A AD 03 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |.... QN.1 . 110.|
000012A0: BA 1A B6 03 8D 33 38 30 30 3A 8F 20 4C 4F 53 45 |.....3800:. LOSE|
000012B0: 52 53 20 4D 45 53 53 41 47 45 00 C3 1A C0 03 89 |RS MESSAGE......|
000012C0: 31 31 30 00 FB 1A DE 03 8D 31 33 30 30 30 3A 56 |110......13000:V|
000012D0: 54 25 B2 38 3A 8D 33 30 31 30 30 3A 99 22 59 4F |T%.8:.30100:."YO|
000012E0: 55 20 48 41 56 45 20 4A 55 53 54 20 45 58 49 54 |U HAVE JUST EXIT|
000012F0: 45 44 22 3A 99 C7 28 31 38 29 3B 00 3C 1B DF 03 |ED":..(18);.<...|
00001300: 56 54 25 B2 31 30 3A 8D 20 33 30 31 30 30 3A 97 |VT%.10:. 30100:.|
00001310: 20 32 31 31 2C 30 3A 99 22 54 48 45 20 45 49 4E | 211,0:."THE EIN|
00001320: 53 54 45 49 4E 20 4D 45 4D 4F 52 59 20 54 52 41 |STEIN MEMORY TRA|
00001330: 49 4E 45 52 22 3B 3A 99 22 92 22 3B 00 6D 1B E0 |INER";:.".";.m..|
00001340: 03 99 22 2E 22 3A 56 54 25 B2 31 32 3A 8D 33 30 |..".":VT%.12:.30|
00001350: 31 30 30 3A 99 22 54 48 41 4E 4B 20 59 4F 55 20 |100:."THANK YOU |
00001360: 46 4F 52 20 50 4C 41 59 49 4E 47 21 22 00 81 1B |FOR PLAYING!"...|
00001370: E1 03 56 54 25 B2 32 32 3A 8D 33 30 31 30 30 3A |..VT%.22:.30100:|
00001380: 80 00 94 1B E8 03 8F 20 57 4F 52 44 20 44 49 53 |....... WORD DIS|
00001390: 50 4C 41 59 00 D6 1B F2 03 99 C7 28 31 34 37 29 |PLAY.......(147)|
000013A0: 3B 3A 97 20 32 31 31 2C 39 3A 56 54 25 B2 31 33 |;:. 211,9:VT%.13|
000013B0: 3A 8D 33 30 31 30 30 3A 46 49 4C 45 24 B2 22 47 |:.30100:FILE$."G|
000013C0: 45 54 20 52 45 41 44 59 20 54 4F 20 42 45 20 54 |ET READY TO BE T|
000013D0: 45 53 54 45 44 22 00 F8 1B F3 03 97 20 32 31 31 |ESTED"...... 211|
000013E0: 2C 39 3A 53 45 43 B2 34 3A 8D 33 30 30 30 30 3A |,9:SEC.4:.30000:|
000013F0: 99 C7 28 31 34 36 29 3B 00 24 1C FC 03 56 54 25 |..(146);.$...VT%|
00001400: B2 31 32 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C |.12:.30100:.211,|
00001410: 30 3A 8D 33 30 32 30 30 3A 53 45 43 B2 32 3A 8D |0:.30200:SEC.2:.|
00001420: 32 39 30 30 00 33 1C FD 03 8B 20 51 4E B2 31 20 |2900.3.... QN.1 |
00001430: A7 20 8E 00 59 1C 06 04 8F 20 44 49 53 50 4C 41 |. ..Y.... DISPLA|
00001440: 59 20 43 4F 4E 43 52 45 54 45 2F 41 42 53 54 52 |Y CONCRETE/ABSTR|
00001450: 41 43 54 20 57 4F 52 44 53 00 67 1C 10 04 81 49 |ACT WORDS.g....I|
00001460: B2 31 A4 54 4D 41 58 00 A0 1C 24 04 56 54 25 B2 |.1.TMAX...$.VT%.|
00001470: 31 30 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 38 |10:.30100:.211,8|
00001480: 3A 99 C7 28 31 38 29 3B 22 20 20 20 20 20 20 20 |:..(18);" |
00001490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000014A0: 00 D6 1C 2E 04 56 54 25 B2 31 34 3A 8D 33 30 31 |.....VT%.14:.301|
000014B0: 30 30 3A 97 32 31 31 2C 38 3A 99 22 12 20 20 20 |00:.211,8:.". |
000014C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014D0: 20 20 20 92 22 3B 00 F3 1C 38 04 97 32 31 31 2C | .";...8..211,|
000014E0: 30 3A 56 54 25 B2 31 32 3A 8D 33 30 31 30 30 3A |0:VT%.12:.30100:|
000014F0: 9E 4D 55 00 1F 1D 39 04 99 A3 B5 28 28 34 30 AB |.MU...9....((40.|
00001500: C3 28 42 45 46 24 28 49 29 29 29 AD 32 29 29 3B |.(BEF$(I))).2));|
00001510: 42 45 46 24 28 49 29 3B 3A 8D 33 30 32 30 30 00 |BEF$(I);:.30200.|
00001520: 32 1D 42 04 8B 50 52 4F 4D 50 54 B2 31 89 31 31 |2.B..PROMPT.1.11|
00001530: 31 30 00 59 1D 4C 04 56 54 25 B2 31 39 3A 8D 33 |10.Y.L.VT%.19:.3|
00001540: 30 31 30 30 3A 97 32 31 31 2C 30 3A 46 49 4C 45 |0100:.211,0:FILE|
00001550: 24 B2 54 4D 50 24 28 49 29 00 86 1D 4D 04 8D 32 |$.TMP$(I)...M..2|
00001560: 39 39 30 3A 56 54 25 B2 31 39 3A 8D 33 30 31 30 |990:VT%.19:.3010|
00001570: 30 3A 97 32 31 31 2C 30 3A 99 22 50 45 47 20 4D |0:.211,0:."PEG M|
00001580: 4F 4E 54 48 3A 22 00 95 1D 56 04 8B 50 57 B2 31 |ONTH:"...V..PW.1|
00001590: 89 31 31 33 30 00 AE 1D 60 04 56 54 25 B2 32 31 |.1130...`.VT%.21|
000015A0: 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 00 D6 |:.30100:.211,0..|
000015B0: 1D 61 04 46 49 4C 45 24 B2 45 47 24 28 C5 28 4D |.a.FILE$.EG$(.(M|
000015C0: 44 59 24 28 31 2C 52 44 52 25 28 49 29 29 29 29 |DY$(1,RDR%(I))))|
000015D0: 3A 8D 32 39 39 30 00 FB 1D 62 04 56 54 25 B2 32 |:.2990...b.VT%.2|
000015E0: 31 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 3A |1:.30100:.211,0:|
000015F0: 99 22 50 45 47 20 44 41 59 3A 22 00 15 1E 6A 04 |."PEG DAY:"...j.|
00001600: 8B 28 55 24 B2 22 40 22 29 B0 28 50 59 B2 31 29 |.(U$."@").(PY.1)|
00001610: 89 31 31 35 30 00 2E 1E 74 04 56 54 25 B2 32 33 |.1150...t.VT%.23|
00001620: 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 00 5B |:.30100:.211,0.[|
00001630: 1E 75 04 46 49 4C 45 24 B2 45 47 24 28 C5 28 C9 |.u.FILE$.EG$(.(.|
00001640: 28 4D 44 59 24 28 32 2C 52 44 52 25 28 49 29 29 |(MDY$(2,RDR%(I))|
00001650: 2C 32 29 29 29 3A 8D 32 39 39 30 00 81 1E 76 04 |,2))):.2990...v.|
00001660: 56 54 25 B2 32 33 3A 8D 33 30 31 30 30 3A 97 32 |VT%.23:.30100:.2|
00001670: 31 31 2C 30 3A 99 22 50 45 47 20 59 45 41 52 3A |11,0:."PEG YEAR:|
00001680: 22 00 95 1E 7E 04 53 45 43 B2 44 54 49 4D 45 3A |"...~.SEC.DTIME:|
00001690: 8D 32 39 30 30 00 A4 1E 7F 04 8B 20 51 4E B2 31 |.2900...... QN.1|
000016A0: 20 A7 20 8E 00 C4 1E 88 04 56 54 25 B2 31 32 3A | . ......VT%.12:|
000016B0: 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 3A 8D 33 |.30100:.211,0:.3|
000016C0: 30 32 30 30 00 F2 1E 92 04 56 54 25 B2 32 33 3A |0200.....VT%.23:|
000016D0: 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 3A 8D 33 |.30100:.211,0:.3|
000016E0: 30 32 30 30 3A 56 54 25 B2 32 31 3A 8D 33 30 31 |0200:VT%.21:.301|
000016F0: 30 30 00 1E 1F 93 04 8D 33 30 32 30 30 3A 56 54 |00......30200:VT|
00001700: 25 B2 31 39 3A 8D 33 30 31 30 30 3A 8D 33 30 32 |%.19:.30100:.302|
00001710: 30 30 3A 53 45 43 B2 31 3A 8D 32 39 30 30 00 2D |00:SEC.1:.2900.-|
00001720: 1F 94 04 8B 20 51 4E B2 31 20 A7 20 8E 00 34 1F |.... QN.1 . ..4.|
00001730: 9C 04 82 49 00 3A 1F A6 04 8E 00 56 1F DC 05 8F |...I.:.....V....|
00001740: 20 52 41 4E 44 4F 4D 20 4F 52 44 45 52 20 53 45 | RANDOM ORDER SE|
00001750: 4C 45 43 54 4F 52 00 6E 1F E6 05 52 44 52 25 28 |LECTOR.n...RDR%(|
00001760: 31 29 B2 58 4E 55 4D AC BB 28 31 29 AA 31 00 7C |1).XNUM..(1).1.||
00001770: 1F F0 05 81 49 B2 32 A4 58 4D 41 58 00 94 1F FA |....I.2.XMAX....|
00001780: 05 52 44 52 25 28 49 29 B2 58 4E 55 4D AC BB 28 |.RDR%(I).XNUM..(|
00001790: 31 29 AA 31 00 A1 1F 04 06 81 4A B2 31 A4 49 AB |1).1......J.1.I.|
000017A0: 31 00 D0 1F 0E 06 8B 52 44 52 25 28 49 29 B2 52 |1......RDR%(I).R|
000017B0: 44 52 25 28 4A 29 89 31 35 33 30 3A 8F 20 47 45 |DR%(J).1530:. GE|
000017C0: 54 20 41 20 4E 45 57 20 52 41 4E 44 4F 4D 20 23 |T A NEW RANDOM #|
000017D0: 00 DA 1F 18 06 82 4A 3A 82 49 00 E0 1F 3F 06 8E |......J:.I...?..|
000017E0: 00 FB 1F A4 06 8F 20 4D 45 4D 4F 52 59 20 4F 50 |...... MEMORY OP|
000017F0: 54 49 4F 4E 20 53 45 4C 45 43 54 00 38 20 AE 06 |TION SELECT.8 ..|
00001800: 99 C7 28 31 34 37 29 3B 3A 46 49 4C 45 24 B2 22 |..(147);:FILE$."|
00001810: 20 20 20 20 20 20 53 45 54 20 4D 45 4D 4F 52 59 | SET MEMORY|
00001820: 20 50 52 41 43 54 49 43 45 20 4F 50 54 49 4F 4E | PRACTICE OPTION|
00001830: 53 20 20 20 20 20 20 22 00 53 20 AF 06 99 C7 28 |S ".S ....(|
00001840: 31 38 29 3B 3A 8D 32 39 39 30 3A 99 C7 28 31 34 |18);:.2990:..(14|
00001850: 36 29 3B 00 6B 20 B8 06 56 54 25 B2 34 3A 8D 33 |6);.k ..VT%.4:.3|
00001860: 30 31 30 30 3A 97 32 31 31 2C 30 00 A0 20 B9 06 |0100:.211,0.. ..|
00001870: 99 22 4E 55 4D 42 45 52 20 4F 46 20 44 41 54 45 |."NUMBER OF DATE|
00001880: 53 20 28 35 20 54 4F 20 22 3B 4B 4D 41 58 3B 22 |S (5 TO ";KMAX;"|
00001890: 29 2E 2E 2E 2E 2E 2E 2E 2E 22 3B A3 33 37 29 3B |)........";.37);|
000018A0: 00 BF 20 C2 06 8D 20 37 32 3A 8D 38 30 3A 54 4D |.. ... 72:.80:TM|
000018B0: 41 58 B2 C5 28 4C 24 29 3A 97 32 31 31 2C 30 00 |AX..(L$):.211,0.|
000018C0: CE 20 C3 06 8B 20 51 4E B2 31 20 A7 20 8E 00 EB |. ... QN.1 . ...|
000018D0: 20 CC 06 8B 54 4D 41 58 B3 B2 4B 4D 41 58 AF 54 | ...TMAX..KMAX.T|
000018E0: 4D 41 58 B1 B2 35 A7 31 37 35 30 00 2D 21 CD 06 |MAX..5.1750.-!..|
000018F0: 99 22 12 22 3B 3A 56 54 25 B2 36 3A 8D 33 30 31 |.".";:VT%.6:.301|
00001900: 30 30 3A 99 C7 28 37 29 3B 22 49 4E 56 41 4C 49 |00:..(7);"INVALI|
00001910: 44 20 45 4E 54 52 59 21 20 50 4C 45 41 53 45 20 |D ENTRY! PLEASE |
00001920: 45 4E 54 45 52 20 41 47 41 49 4E 22 3B 00 47 21 |ENTER AGAIN";.G!|
00001930: CE 06 99 C7 28 31 34 36 29 3B 3A 8D 33 30 32 30 |....(146);:.3020|
00001940: 30 3A 89 31 37 32 30 00 79 21 D6 06 56 54 25 B2 |0:.1720.y!..VT%.|
00001950: 36 3A 8D 33 30 31 30 30 3A 99 22 48 45 4C 50 20 |6:.30100:."HELP |
00001960: 57 49 54 48 20 50 45 47 20 57 4F 52 44 53 2D 2D |WITH PEG WORDS--|
00001970: 22 3B 3A 8D 33 30 32 30 30 00 91 21 D8 06 56 54 |";:.30200..!..VT|
00001980: 25 B2 38 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C |%.8:.30100:.211,|
00001990: 33 00 BE 21 D9 06 99 22 46 4F 52 20 4D 4F 4E 54 |3..!..."FOR MONT|
000019A0: 48 53 3A 20 28 59 29 45 53 20 4F 52 20 28 4E 29 |HS: (Y)ES OR (N)|
000019B0: 4F 2E 2E 2E 2E 2E 2E 22 3B A3 33 38 29 3B 00 CA |O......";.38);..|
000019C0: 21 DA 06 8D 37 32 3A 99 43 24 00 D9 21 DB 06 8B |!...72:.C$..!...|
000019D0: 20 51 4E B2 31 20 A7 20 8E 00 F4 21 E0 06 8B 43 | QN.1 . ...!...C|
000019E0: 24 B2 22 59 22 A7 50 52 4F 4D 50 54 B2 30 3A 89 |$."Y".PROMPT.0:.|
000019F0: 31 37 37 32 00 0F 22 E5 06 8B 43 24 B2 22 4E 22 |1772.."...C$."N"|
00001A00: A7 50 52 4F 4D 50 54 B2 31 3A 89 31 37 37 32 00 |.PROMPT.1:.1772.|
00001A10: 19 22 EA 06 89 31 37 35 30 00 32 22 EC 06 56 54 |."...1750.2"..VT|
00001A20: 25 B2 31 30 3A 8D 33 30 31 30 30 3A 97 32 31 31 |%.10:.30100:.211|
00001A30: 2C 33 00 5F 22 ED 06 99 22 46 4F 52 20 44 41 59 |,3._"..."FOR DAY|
00001A40: 53 3A 20 20 20 28 59 29 45 53 20 4F 52 20 28 4E |S: (Y)ES OR (N|
00001A50: 29 4F 2E 2E 2E 2E 2E 2E 22 3B A3 33 38 29 3B 00 |)O......";.38);.|
00001A60: 76 22 EE 06 8D 37 32 3A 99 43 24 3A 8B 20 51 4E |v"...72:.C$:. QN|
00001A70: B2 31 20 A7 20 8E 00 8D 22 EF 06 8B 43 24 B2 22 |.1 . ..."...C$."|
00001A80: 59 22 A7 50 57 B2 30 3A 89 31 37 38 31 00 A4 22 |Y".PW.0:.1781.."|
00001A90: F0 06 8B 43 24 B2 22 4E 22 A7 50 57 B2 31 3A 89 |...C$."N".PW.1:.|
00001AA0: 31 37 38 31 00 AE 22 F4 06 89 31 37 37 32 00 D6 |1781.."...1772..|
00001AB0: 22 F5 06 8B 55 24 B2 22 40 22 A7 50 59 B2 30 3A |"...U$."@".PY.0:|
00001AC0: 89 31 37 39 30 3A 8F 20 53 4B 49 50 20 50 45 47 |.1790:. SKIP PEG|
00001AD0: 20 59 45 41 52 53 00 EF 22 F6 06 56 54 25 B2 31 | YEARS.."..VT%.1|
00001AE0: 32 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 33 00 |2:.30100:.211,3.|
00001AF0: 1C 23 F7 06 99 22 46 4F 52 20 59 45 41 52 53 3A |.#..."FOR YEARS:|
00001B00: 20 20 28 59 29 45 53 20 4F 52 20 28 4E 29 4F 2E | (Y)ES OR (N)O.|
00001B10: 2E 2E 2E 2E 2E 22 3B A3 33 38 29 3B 00 33 23 F8 |.....";.38);.3#.|
00001B20: 06 8D 37 32 3A 99 43 24 3A 8B 20 51 4E B2 31 20 |..72:.C$:. QN.1 |
00001B30: A7 20 8E 00 4A 23 F9 06 8B 43 24 B2 22 59 22 A7 |. ..J#...C$."Y".|
00001B40: 50 59 B2 30 3A 89 31 37 39 30 00 61 23 FA 06 8B |PY.0:.1790.a#...|
00001B50: 43 24 B2 22 4E 22 A7 50 59 B2 31 3A 89 31 37 39 |C$."N".PY.1:.179|
00001B60: 30 00 6B 23 FC 06 89 31 37 38 32 00 84 23 FE 06 |0.k#...1782..#..|
00001B70: 56 54 25 B2 31 34 3A 8D 33 30 31 30 30 3A 97 32 |VT%.14:.30100:.2|
00001B80: 31 31 2C 30 00 B6 23 FF 06 99 22 44 49 53 50 4C |11,0..#..."DISPL|
00001B90: 41 59 20 53 50 45 45 44 3A 20 28 31 29 53 4C 4F |AY SPEED: (1)SLO|
00001BA0: 57 20 54 4F 20 28 34 29 46 41 53 54 2E 2E 2E 22 |W TO (4)FAST..."|
00001BB0: 3B A3 33 38 29 3B 00 CA 23 00 07 8D 37 32 3A 99 |;.38);..#...72:.|
00001BC0: 43 24 3A 58 B2 C5 28 43 24 29 00 D9 23 01 07 8B |C$:X..(C$)..#...|
00001BD0: 20 51 4E B2 31 20 A7 20 8E 00 EF 23 08 07 8B 28 | QN.1 . ...#...(|
00001BE0: 58 B1 34 29 B0 28 58 B2 30 29 89 31 37 39 30 00 |X.4).(X.0).1790.|
00001BF0: FE 23 12 07 44 54 49 4D 45 B2 34 34 AD 58 00 09 |.#..DTIME.44.X..|
00001C00: 24 1C 07 54 59 50 45 B2 31 00 2E 24 30 07 53 43 |$..TYPE.1..$0.SC|
00001C10: B2 31 30 AC 28 28 32 AC 50 52 29 AA 28 33 AC 50 |.10.((2.PR).(3.P|
00001C20: 57 29 AA 28 34 AC 50 59 29 AA 31 29 AC 58 00 4E |W).(4.PY).1).X.N|
00001C30: 24 35 07 8B 55 24 B2 22 40 22 A7 53 43 B2 31 30 |$5..U$."@".SC.10|
00001C40: AC 28 32 AC 50 57 AA 50 52 AA 31 29 AC 58 00 89 |.(2.PW.PR.1).X..|
00001C50: 24 3A 07 56 54 25 B2 31 37 3A 8D 33 30 31 30 30 |$:.VT%.17:.30100|
00001C60: 3A 99 22 53 43 4F 52 45 20 46 4F 52 20 45 41 43 |:."SCORE FOR EAC|
00001C70: 48 20 43 4F 52 52 45 43 54 20 41 4E 53 57 45 52 |H CORRECT ANSWER|
00001C80: 20 2E 2E 2E 2E 2E 2E 22 3B 00 AB 24 3B 07 99 A3 | ......";..$;...|
00001C90: 33 36 29 3B C7 28 31 38 29 3B 53 43 3B C7 28 31 |36);.(18);SC;.(1|
00001CA0: 34 36 29 3B 3A 8D 33 30 32 30 30 00 C4 24 44 07 |46);:.30200..$D.|
00001CB0: 56 54 25 B2 32 31 3A 8D 33 30 31 30 30 3A 97 32 |VT%.21:.30100:.2|
00001CC0: 31 31 2C 30 00 FB 24 45 07 99 22 41 52 45 20 54 |11,0..$E.."ARE T|
00001CD0: 48 45 53 45 20 54 48 45 20 4F 50 54 49 4F 4E 53 |HESE THE OPTIONS|
00001CE0: 20 59 4F 55 20 57 41 4E 54 3F 20 28 59 2F 4E 29 | YOU WANT? (Y/N)|
00001CF0: 20 22 3B 3A 8D 37 32 3A 99 43 24 00 0A 25 46 07 | ";:.72:.C$..%F.|
00001D00: 8B 20 51 4E B2 31 20 A7 20 8E 00 1B 25 4E 07 8B |. QN.1 . ...%N..|
00001D10: 43 24 B2 22 59 22 89 31 38 39 39 00 2D 25 58 07 |C$."Y".1899.-%X.|
00001D20: 8B 43 24 B3 B1 22 4E 22 89 31 38 36 30 00 37 25 |.C$.."N".1860.7%|
00001D30: 62 07 89 31 37 32 30 00 3D 25 6B 07 8E 00 5D 25 |b..1720.=%k...]%|
00001D40: D0 07 8F 20 55 4E 54 49 4D 45 44 20 4B 45 59 42 |... UNTIMED KEYB|
00001D50: 4F 41 52 44 20 52 45 54 52 49 45 56 45 00 7D 25 |OARD RETRIEVE.}%|
00001D60: DA 07 4B B2 4C 4F 57 3A 50 52 54 B2 31 3A 51 55 |..K.LOW:PRT.1:QU|
00001D70: 49 54 B2 30 3A 99 C7 28 31 34 37 29 3B 00 9E 25 |IT.0:..(147);..%|
00001D80: DB 07 43 24 B2 22 22 3A 81 49 B2 4C 4F 57 A4 48 |..C$."":.I.LOW.H|
00001D90: 49 47 48 3A 41 46 54 24 28 49 29 B2 22 22 00 B7 |IGH:AFT$(I).""..|
00001DA0: 25 DC 07 82 49 3A 81 58 58 B2 31 A4 31 30 3A A1 |%...I:.XX.1.10:.|
00001DB0: 58 58 24 3A 82 58 58 00 D2 25 E4 07 99 C7 28 31 |XX$:.XX..%....(1|
00001DC0: 38 29 3B 3A 8D 32 39 39 30 3A 99 C7 28 31 34 36 |8);:.2990:..(146|
00001DD0: 29 3B 00 FB 25 EE 07 44 46 52 B2 28 48 49 47 48 |);..%..DFR.(HIGH|
00001DE0: AB 4C 4F 57 AA 31 29 AD 32 3A 8B 43 4F 4C B2 31 |.LOW.1).2:.COL.1|
00001DF0: A7 44 46 52 B2 48 49 47 48 AA 31 00 16 26 F8 07 |.DFR.HIGH.1..&..|
00001E00: 4F 46 46 53 45 54 B2 B5 28 28 48 49 47 48 AB 4C |OFFSET..((HIGH.L|
00001E10: 4F 57 29 AD 32 29 00 26 26 02 08 81 49 B2 4C 4F |OW).2).&&...I.LO|
00001E20: 57 A4 48 49 47 48 00 43 26 0C 08 41 48 B2 4C 4D |W.HIGH.C&..AH.LM|
00001E30: 41 52 47 49 4E 3A 8B 20 41 48 B3 31 20 A7 20 41 |ARGIN:. AH.1 . A|
00001E40: 48 B2 31 00 63 26 16 08 8B 28 49 AB 4C 4F 57 29 |H.1.c&...(I.LOW)|
00001E50: B1 B2 44 46 52 A7 41 48 B2 4C 4D 41 52 47 49 4E |..DFR.AH.LMARGIN|
00001E60: AA 32 30 00 76 26 20 08 41 56 B2 32 AC 28 49 AB |.20.v& .AV.2.(I.|
00001E70: 4C 4F 57 29 AA 33 00 9E 26 21 08 8B 28 49 AB 4C |LOW).3..&!..(I.L|
00001E80: 4F 57 29 B1 B2 44 46 52 A7 41 56 B2 32 AC 28 49 |OW)..DFR.AV.2.(I|
00001E90: AB 4C 4F 57 AB 4F 46 46 53 45 54 29 AA 31 00 BA |.LOW.OFFSET).1..|
00001EA0: 26 2A 08 56 54 25 B2 41 56 3A 8D 33 30 31 30 30 |&*.VT%.AV:.30100|
00001EB0: 3A 97 32 31 31 2C 41 48 AB 31 00 D9 26 2B 08 99 |:.211,AH.1..&+..|
00001EC0: 4D 53 47 24 28 49 29 3B A3 41 48 AA 41 59 AA 34 |MSG$(I);.AH.AY.4|
00001ED0: 29 3B 54 4D 50 24 28 49 29 00 E0 26 34 08 82 49 |);TMP$(I)..&4..I|
00001EE0: 00 06 27 3E 08 56 54 25 B2 32 32 3A 8D 33 30 31 |..'>.VT%.22:.301|
00001EF0: 30 30 3A 81 49 B2 30 A4 37 3A 99 22 2D 2D 2D 2D |00:.I.0.7:."----|
00001F00: 2D 22 3B 3A 82 49 00 2B 27 48 08 56 54 25 B2 32 |-";:.I.+'H.VT%.2|
00001F10: 33 3A 8D 33 30 31 30 30 3A 99 C7 28 31 38 29 3B |3:.30100:..(18);|
00001F20: 22 5E 22 3B C7 28 31 34 36 29 3B 00 47 27 49 08 |"^";.(146);.G'I.|
00001F30: 99 22 20 46 4F 52 20 50 52 45 56 49 4F 55 53 20 |." FOR PREVIOUS |
00001F40: 4C 49 4E 45 3B 20 22 00 7E 27 52 08 56 54 25 B2 |LINE; ".~'R.VT%.|
00001F50: 32 34 3A 8D 33 30 31 30 30 3A 99 22 50 52 45 53 |24:.30100:."PRES|
00001F60: 53 20 3C 52 45 54 55 52 4E 3E 20 41 46 54 45 52 |S <RETURN> AFTER|
00001F70: 20 45 41 43 48 20 45 4E 54 52 59 2E 22 3B 00 8F | EACH ENTRY.";..|
00001F80: 27 5C 08 8B 50 52 54 B2 31 A7 8D 32 34 30 30 00 |'\..PRT.1..2400.|
00001F90: AC 27 66 08 8D 20 37 33 3A 58 58 24 B2 43 24 3A |.'f.. 73:XX$.C$:|
00001FA0: 58 B2 C6 28 58 58 24 AA 5A 45 24 29 00 BB 27 67 |X..(XX$.ZE$)..'g|
00001FB0: 08 8B 20 51 4E B2 31 20 A7 20 8E 00 DE 27 70 08 |.. QN.1 . ...'p.|
00001FC0: 8B 20 58 B2 33 32 20 89 32 32 38 30 3A 8F 20 43 |. X.32 .2280:. C|
00001FD0: 4F 4E 54 49 4E 55 45 20 54 49 4D 49 4E 47 00 0B |ONTINUE TIMING..|
00001FE0: 28 7A 08 8B 28 58 B2 31 37 29 A7 32 32 32 30 3A |(z..(X.17).2220:|
00001FF0: 8F 20 52 49 47 48 54 20 41 52 52 4F 57 20 4F 52 |. RIGHT ARROW OR|
00002000: 20 44 4F 57 4E 20 41 52 52 4F 57 00 2F 28 84 08 | DOWN ARROW./(..|
00002010: 8B 58 B2 34 32 A7 51 55 49 54 B2 31 3A 89 32 32 |.X.42.QUIT.1:.22|
00002020: 32 30 3A 8F 20 45 53 43 41 50 45 20 4B 45 59 00 |20:. ESCAPE KEY.|
00002030: 51 28 8E 08 8B 58 B2 31 33 20 89 32 32 32 30 3A |Q(...X.13 .2220:|
00002040: 8F 20 43 41 52 52 49 41 47 45 20 52 45 54 55 52 |. CARRIAGE RETUR|
00002050: 4E 00 6A 28 98 08 8B 28 58 B2 39 34 20 29 A7 8D |N.j(...(X.94 )..|
00002060: 32 35 30 30 3A 89 32 32 34 30 00 87 28 99 08 8F |2500:.2240..(...|
00002070: 20 42 41 43 4B 20 41 52 52 4F 57 20 4F 52 20 55 | BACK ARROW OR U|
00002080: 50 20 41 52 52 4F 57 00 AB 28 9D 08 8B 20 58 B3 |P ARROW..(... X.|
00002090: 34 38 20 A7 20 32 32 38 30 3A 8F 20 43 4F 4E 54 |48 . 2280:. CONT|
000020A0: 49 4E 55 45 20 54 49 4D 49 4E 47 00 BE 28 A2 08 |INUE TIMING..(..|
000020B0: 8D 38 30 3A 41 46 54 24 28 4B 29 B2 4C 24 00 CD |.80:AFT$(K).L$..|
000020C0: 28 A3 08 8B 20 51 4E B2 31 20 A7 20 8E 00 09 29 |(... QN.1 . ...)|
000020D0: AC 08 56 54 25 B2 41 56 3A 8D 33 30 31 30 30 3A |..VT%.AV:.30100:|
000020E0: 97 32 31 31 2C 41 48 AB 31 3A 99 4D 53 47 24 28 |.211,AH.1:.MSG$(|
000020F0: 4B 29 3B C8 28 45 4C 24 2C 41 48 AA 41 59 AA 34 |K);.(EL$,AH.AY.4|
00002100: AB C2 28 32 31 31 29 29 3B 00 37 29 AD 08 8B A8 |..(211));.7)....|
00002110: 28 55 24 B2 22 40 22 AF C8 28 42 45 46 24 28 4B |(U$."@"..(BEF$(K|
00002120: 29 2C 33 29 B2 C8 28 41 46 54 24 28 4B 29 2C 33 |),3)..(AFT$(K),3|
00002130: 29 29 A7 32 32 33 30 00 5A 29 AE 08 99 42 45 46 |)).2230.Z)...BEF|
00002140: 24 28 4B 29 3B 22 20 20 20 22 3A 41 46 54 24 28 |$(K);" ":AFT$(|
00002150: 4B 29 B2 42 45 46 24 28 4B 29 00 7C 29 B6 08 4B |K).BEF$(K).|)..K|
00002160: B2 4B AA 31 3A 8B 51 55 49 54 B2 31 A7 4B B2 48 |.K.1:.QUIT.1.K.H|
00002170: 49 47 48 AA 31 3A 51 55 49 54 B2 30 00 86 29 C0 |IGH.1:QUIT.0..).|
00002180: 08 50 52 54 B2 31 00 8F 29 CA 08 9E 20 4D 55 00 |.PRT.1..)... MU.|
00002190: B4 29 D4 08 81 58 58 B2 31 A4 31 30 3A A1 58 58 |.)...XX.1.10:.XX|
000021A0: 24 3A 82 58 58 3A 8F 20 52 45 53 45 54 20 53 54 |$:.XX:. RESET ST|
000021B0: 52 4F 42 45 00 C6 29 DE 08 8B 4B B1 48 49 47 48 |ROBE..)...K.HIGH|
000021C0: A7 8D 32 33 31 30 00 D7 29 E8 08 8B 43 24 B2 22 |..2310..)...C$."|
000021D0: 59 22 89 32 33 30 30 00 F3 29 F2 08 89 32 31 34 |Y".2300..)...214|
000021E0: 30 3A 8F 20 42 41 43 4B 20 54 4F 20 54 48 45 20 |0:. BACK TO THE |
000021F0: 54 4F 50 00 FE 29 FC 08 99 22 93 22 3A 8E 00 16 |TOP..)...".":...|
00002200: 2A 06 09 8F 20 41 4E 59 20 4D 4F 52 45 20 43 48 |*... ANY MORE CH|
00002210: 41 4E 47 45 53 3F 00 21 2A 10 09 4B B2 48 49 47 |ANGES?.!*..K.HIG|
00002220: 48 00 60 2A 1A 09 97 20 32 31 31 2C 30 3A 56 54 |H.`*... 211,0:VT|
00002230: 25 B2 32 35 3A 8D 33 30 31 30 30 3A 99 22 91 91 |%.25:.30100:."..|
00002240: 22 3B C8 28 45 4C 24 2C 33 39 29 3B 3A 8F 20 20 |";.(EL$,39);:. |
00002250: 20 20 54 4F 2D 45 4E 44 2D 4F 46 2D 4C 49 4E 45 | TO-END-OF-LINE|
00002260: 00 7D 2A 24 09 56 54 25 B2 32 34 3A 8D 33 30 31 |.}*$.VT%.24:.301|
00002270: 30 30 3A 97 32 31 31 2C 30 3A 9E 4D 55 00 AD 2A |00:.211,0:.MU..*|
00002280: 25 09 99 22 41 52 45 20 59 4F 55 20 46 49 4E 49 |%.."ARE YOU FINI|
00002290: 53 48 45 44 20 4D 41 4B 49 4E 47 20 45 4E 54 52 |SHED MAKING ENTR|
000022A0: 49 45 53 3F 20 28 59 2F 4E 29 20 22 3B 00 CB 2A |IES? (Y/N) ";..*|
000022B0: 2E 09 56 54 25 B2 32 34 3A 8D 33 30 31 30 30 3A |..VT%.24:.30100:|
000022C0: 97 32 31 31 2C 33 38 3A 8D 37 32 00 DA 2A 2F 09 |.211,38:.72..*/.|
000022D0: 8B 20 51 4E B2 31 20 A7 20 8E 00 12 2B 38 09 8B |. QN.1 . ...+8..|
000022E0: 43 24 B2 22 59 22 89 32 33 39 30 3A 8F 20 52 45 |C$."Y".2390:. RE|
000022F0: 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 50 4F 52 |TURN TO MAIN POR|
00002300: 54 49 4F 4E 20 4F 46 20 53 55 42 52 4F 55 54 49 |TION OF SUBROUTI|
00002310: 4E 45 00 2A 2B 3D 09 8B 43 24 B2 C7 28 31 37 29 |NE.*+=..C$..(17)|
00002320: A7 4B B2 31 3A 89 32 33 38 30 00 44 2B 42 09 8B |.K.1:.2380.D+B..|
00002330: 43 24 B2 22 4E 22 B0 43 24 B2 C7 28 39 34 29 89 |C$."N".C$..(94).|
00002340: 32 33 38 30 00 4E 2B 47 09 89 32 33 35 30 00 81 |2380.N+G..2350..|
00002350: 2B 4C 09 97 32 31 31 2C 30 3A 56 54 25 B2 32 35 |+L..211,0:VT%.25|
00002360: 3A 8D 33 30 31 30 30 3A 99 22 91 91 22 3B 3A 99 |:.30100:."..";:.|
00002370: C7 28 31 38 29 3B 22 5E 22 3B C7 28 31 34 36 29 |.(18);"^";.(146)|
00002380: 3B 00 A4 2B 4D 09 99 22 20 46 4F 52 20 50 52 45 |;..+M.." FOR PRE|
00002390: 56 49 4F 55 53 20 4C 49 4E 45 3B 22 3A 97 20 32 |VIOUS LINE;":. 2|
000023A0: 31 31 2C 30 00 E3 2B 51 09 56 54 25 B2 32 34 3A |11,0..+Q.VT%.24:|
000023B0: 8D 33 30 31 30 30 3A 99 22 4D 41 4B 45 20 43 48 |.30100:."MAKE CH|
000023C0: 41 4E 47 45 53 20 41 4E 44 20 52 45 54 55 52 4E |ANGES AND RETURN|
000023D0: 20 50 41 53 54 20 4C 41 53 54 20 45 4E 54 52 59 | PAST LAST ENTRY|
000023E0: 91 22 3B 00 E9 2B 56 09 8E 00 03 2C 60 09 8F 20 |.";..+V....,`.. |
000023F0: 48 49 47 48 4C 49 47 48 54 20 4E 45 58 54 20 4C |HIGHLIGHT NEXT L|
00002400: 49 4E 45 00 12 2C 6A 09 41 48 B2 4C 4D 41 52 47 |INE..,j.AH.LMARG|
00002410: 49 4E 00 32 2C 74 09 8B 28 4B AB 4C 4F 57 29 B1 |IN.2,t..(K.LOW).|
00002420: B2 44 46 52 A7 41 48 B2 4C 4D 41 52 47 49 4E AA |.DFR.AH.LMARGIN.|
00002430: 32 30 00 45 2C 7E 09 41 56 B2 32 AC 28 4B AB 4C |20.E,~.AV.2.(K.L|
00002440: 4F 57 29 AA 33 00 6D 2C 7F 09 8B 28 4B AB 4C 4F |OW).3.m,...(K.LO|
00002450: 57 29 B1 B2 44 46 52 A7 41 56 B2 32 AC 28 4B AB |W)..DFR.AV.2.(K.|
00002460: 4C 4F 57 AB 4F 46 46 53 45 54 29 AA 31 00 A0 2C |LOW.OFFSET).1..,|
00002470: 88 09 56 54 25 B2 41 56 3A 8D 33 30 31 30 30 3A |..VT%.AV:.30100:|
00002480: 97 32 31 31 2C 41 48 AB 31 3A 99 C7 28 31 38 29 |.211,AH.1:..(18)|
00002490: 3B 4D 53 47 24 28 4B 29 3B C7 28 31 34 36 29 3B |;MSG$(K);.(146);|
000024A0: 00 B5 2C 92 09 99 A3 41 48 AA 41 59 29 3B 22 2D |..,....AH.AY);"-|
000024B0: 2D 3E 20 22 3B 00 BF 2C 9C 09 50 52 54 B2 30 00 |-> ";..,..PRT.0.|
000024C0: C5 2C A6 09 8E 00 DD 2C C4 09 8F 20 42 41 43 4B |.,.....,... BACK|
000024D0: 53 50 41 43 45 20 48 41 4E 44 4C 45 52 00 03 2D |SPACE HANDLER..-|
000024E0: CE 09 56 54 25 B2 41 56 3A 8D 33 30 31 30 30 3A |..VT%.AV:.30100:|
000024F0: 97 32 31 31 2C 41 48 AB 31 3A 99 4D 53 47 24 28 |.211,AH.1:.MSG$(|
00002500: 4B 29 3B 00 25 2D D8 09 99 C8 28 45 4C 24 2C 41 |K);.%-....(EL$,A|
00002510: 48 AA 41 59 AA 34 AB C2 28 32 31 31 29 29 3B 3A |H.AY.4..(211));:|
00002520: 4B B2 4B AB 31 00 51 2D E2 09 8B 4B B3 4C 4F 57 |K.K.1.Q-...K.LOW|
00002530: A7 4B B2 4C 4F 57 3A 8F 20 50 52 45 56 45 4E 54 |.K.LOW:. PREVENT|
00002540: 20 4F 46 46 2D 53 43 52 45 45 4E 20 45 52 52 4F | OFF-SCREEN ERRO|
00002550: 52 00 57 2D EC 09 8E 00 8B 2D 54 0B 53 45 43 B2 |R.W-.....-T.SEC.|
00002560: 53 45 43 AA 28 32 AC 28 53 45 43 B2 30 29 29 3A |SEC.(2.(SEC.0)):|
00002570: 81 58 B2 31 A4 53 45 43 AC 33 30 3A A1 43 24 3A |.X.1.SEC.30:.C$:|
00002580: 8D 20 39 36 30 30 3A 82 58 3A 8E 00 9F 2D AE 0B |. 9600:.X:...-..|
00002590: 8F 20 43 45 4E 54 45 52 20 53 54 52 49 4E 47 00 |. CENTER STRING.|
000025A0: C9 2D B3 0B 99 A3 B5 28 28 34 30 AB C3 28 46 49 |.-.....((40..(FI|
000025B0: 4C 45 24 29 29 AD 32 29 29 3B 46 49 4C 45 24 3B |LE$)).2));FILE$;|
000025C0: 3A 97 32 31 31 2C 30 3A 8E 00 DD 2D B8 0B 8F 20 |:.211,0:...-... |
000025D0: 52 45 43 41 4C 4C 20 54 45 53 54 45 52 00 07 2E |RECALL TESTER...|
000025E0: C2 0B 41 4E 53 B2 30 3A 8F 20 5A 45 52 4F 20 54 |..ANS.0:. ZERO T|
000025F0: 48 45 20 23 20 4F 46 20 43 4F 52 52 45 43 54 20 |HE # OF CORRECT |
00002600: 41 4E 53 57 45 52 53 00 12 2E CC 0B 8D 31 33 30 |ANSWERS......130|
00002610: 30 30 00 35 2E D6 0B 8D 33 33 30 30 3A 8F 20 52 |00.5....3300:. R|
00002620: 45 4D 4F 56 45 20 54 52 41 49 4C 49 4E 47 20 42 |EMOVE TRAILING B|
00002630: 4C 41 4E 4B 53 00 5F 2E E0 0B 8F 20 44 49 53 50 |LANKS._.... DISP|
00002640: 4C 41 59 20 43 4F 52 52 45 43 54 20 26 20 49 4E |LAY CORRECT & IN|
00002650: 43 4F 52 52 45 43 54 20 41 4E 53 57 45 52 53 00 |CORRECT ANSWERS.|
00002660: 9C 2E EA 0B 46 49 4C 45 24 B2 22 20 20 20 20 59 |....FILE$." Y|
00002670: 4F 55 52 20 54 45 53 54 20 52 45 53 55 4C 54 53 |OUR TEST RESULTS|
00002680: 20 20 20 20 22 3A 99 C7 28 31 38 29 3B 3A 8D 32 | ":..(18);:.2|
00002690: 39 39 30 3A 99 C7 28 31 34 36 29 3B 00 CB 2E F4 |990:..(146);....|
000026A0: 0B 56 54 25 B2 33 3A 8D 33 30 31 30 30 3A 97 32 |.VT%.3:.30100:.2|
000026B0: 31 31 2C 38 3A 99 22 43 4F 52 52 45 43 54 22 3B |11,8:."CORRECT";|
000026C0: A6 31 31 29 3B 22 59 4F 55 52 22 00 FC 2E FE 0B |.11);"YOUR".....|
000026D0: 56 54 25 B2 34 3A 8D 33 30 31 30 30 3A 99 A3 38 |VT%.4:.30100:..8|
000026E0: 29 3B 22 52 45 53 50 4F 4E 53 45 22 3B A3 32 34 |);"RESPONSE";.24|
000026F0: 29 3B 22 52 45 53 50 4F 4E 53 45 22 00 16 2F 08 |);"RESPONSE"../.|
00002700: 0C 81 49 B2 30 A4 37 3A 99 22 2D 2D 2D 2D 2D 22 |..I.0.7:."-----"|
00002710: 3B 3A 82 49 3A 99 00 26 2F 12 0C 81 49 B2 4C 4F |;:.I:..&/...I.LO|
00002720: 57 A4 48 49 47 48 00 60 2F 1C 0C 8B 42 45 46 24 |W.HIGH.`/...BEF$|
00002730: 28 49 29 B2 22 22 A7 42 45 46 24 28 49 29 B2 22 |(I)."".BEF$(I)."|
00002740: 20 22 3A 8F 20 53 4B 49 50 20 54 48 49 53 20 4F | ":. SKIP THIS O|
00002750: 4E 45 20 49 46 20 49 54 27 53 20 42 4C 41 4E 4B |NE IF IT'S BLANK|
00002760: 00 76 2F 26 0C 99 4D 53 47 24 28 49 29 3B 3A 97 |.v/&..MSG$(I);:.|
00002770: 20 32 31 31 2C 38 00 AC 2F 30 0C 8B 42 45 46 24 | 211,8../0..BEF$|
00002780: 28 49 29 B2 41 46 54 24 28 49 29 A7 99 C8 28 42 |(I).AFT$(I)...(B|
00002790: 45 46 24 28 49 29 2C 31 38 29 3B 3A 41 4E 53 B2 |EF$(I),18);:ANS.|
000027A0: 41 4E 53 AA 31 3A 89 20 33 31 34 30 00 CD 2F 3B |ANS.1:. 3140../;|
000027B0: 0C 99 C7 28 31 38 29 3B C8 28 42 45 46 24 28 49 |...(18);.(BEF$(I|
000027C0: 29 2C 31 38 29 3B C7 28 31 34 36 29 3B 00 E8 2F |),18);.(146);../|
000027D0: 44 0C 97 32 31 31 2C 32 33 3A 99 C8 28 41 46 54 |D..211,23:..(AFT|
000027E0: 24 28 49 29 2C 31 36 29 00 EF 2F 4E 0C 82 49 00 |$(I),16)../N..I.|
000027F0: 11 30 58 0C 58 B2 B5 28 31 30 30 AC 41 4E 53 AD |.0X.X..(100.ANS.|
00002800: 28 48 49 47 48 AB 4C 4F 57 AA 31 29 AA 30 2E 35 |(HIGH.LOW.1).0.5|
00002810: 29 00 3C 30 62 0C 99 3A 99 22 59 4F 55 20 52 45 |).<0b..:."YOU RE|
00002820: 4D 45 4D 42 45 52 45 44 20 22 3B C7 28 31 38 29 |MEMBERED ";.(18)|
00002830: 3B 41 4E 53 3B C7 28 31 34 36 29 3B 00 6A 30 63 |;ANS;.(146);.j0c|
00002840: 0C 99 22 20 43 4F 52 52 45 43 54 4C 59 2C 20 4F |.." CORRECTLY, O|
00002850: 52 20 22 3B C7 28 31 38 29 3B 58 3B 22 9D 22 3B |R ";.(18);X;".";|
00002860: 22 25 22 C7 28 31 34 36 29 3B 00 74 30 6C 0C 8D |"%".(146);.t0l..|
00002870: 39 35 30 30 00 7A 30 80 0C 8E 00 9F 30 E4 0C 8F |9500.z0.....0...|
00002880: 20 52 45 4D 4F 56 45 20 54 52 41 49 4C 49 4E 47 | REMOVE TRAILING|
00002890: 20 42 4C 41 4E 4B 53 20 49 4E 20 41 46 54 24 00 | BLANKS IN AFT$.|
000028A0: AF 30 EE 0C 81 49 B2 4C 4F 57 A4 48 49 47 48 00 |.0...I.LOW.HIGH.|
000028B0: CC 30 F8 0C 58 B2 C3 28 41 46 54 24 28 49 29 29 |.0..X..(AFT$(I))|
000028C0: AB 31 3A 8B 58 B2 30 89 33 33 35 30 00 FD 30 02 |.1:.X.0.3350..0.|
000028D0: 0D 8B C9 28 41 46 54 24 28 49 29 2C 31 29 B2 22 |...(AFT$(I),1)."|
000028E0: 20 22 A7 41 46 54 24 28 49 29 B2 C8 28 41 46 54 | ".AFT$(I)..(AFT|
000028F0: 24 28 49 29 2C 58 29 3A 89 33 33 32 30 00 2E 31 |$(I),X):.3320..1|
00002900: 0C 0D 8B C8 28 41 46 54 24 28 49 29 2C 31 29 B2 |....(AFT$(I),1).|
00002910: 22 20 22 A7 41 46 54 24 28 49 29 B2 C9 28 41 46 |" ".AFT$(I)..(AF|
00002920: 54 24 28 49 29 2C 58 29 3A 89 33 33 32 30 00 35 |T$(I),X):.3320.5|
00002930: 31 16 0D 82 49 00 3B 31 47 0D 8E 00 53 31 74 0E |1...I.;1G...S1t.|
00002940: 8F 20 57 49 4E 4E 45 52 27 53 20 4D 45 53 53 41 |. WINNER'S MESSA|
00002950: 47 45 53 00 6A 31 7E 0E 8B 41 4E 53 B3 30 2E 37 |GES.j1~..ANS.0.7|
00002960: AC 54 4D 41 58 89 33 37 39 30 00 A0 31 88 0E 99 |.TMAX.3790..1...|
00002970: C7 28 31 34 37 29 3B 3A 56 54 25 B2 39 3A 8D 33 |.(147);:VT%.9:.3|
00002980: 30 31 30 30 3A 46 49 4C 45 24 B2 22 2D 2D 43 4F |0100:FILE$."--CO|
00002990: 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 2D 2D 22 |NGRATULATIONS--"|
000029A0: 00 CC 31 89 0E 8D 32 39 39 30 3A 99 3A 99 3A 46 |..1...2990:.:.:F|
000029B0: 49 4C 45 24 B2 22 59 4F 55 52 20 50 45 52 46 4F |ILE$."YOUR PERFO|
000029C0: 52 4D 41 4E 43 45 20 57 41 53 20 22 00 F8 31 92 |RMANCE WAS "..1.|
000029D0: 0E 8B 41 4E 53 B2 54 4D 41 58 A7 46 49 4C 45 24 |..ANS.TMAX.FILE$|
000029E0: B2 46 49 4C 45 24 AA 22 50 45 52 46 45 43 54 21 |.FILE$."PERFECT!|
000029F0: 21 22 3A 89 33 37 36 30 00 2A 32 9C 0E 8B 41 4E |!":.3760.*2...AN|
00002A00: 53 B1 B2 30 2E 39 AC 54 4D 41 58 A7 46 49 4C 45 |S..0.9.TMAX.FILE|
00002A10: 24 B2 46 49 4C 45 24 AA 22 45 58 43 45 4C 4C 45 |$.FILE$."EXCELLE|
00002A20: 4E 54 21 22 3A 89 33 37 36 30 00 5C 32 A6 0E 8B |NT!":.3760.\2...|
00002A30: 41 4E 53 B1 B2 30 2E 38 AC 54 4D 41 58 A7 46 49 |ANS..0.8.TMAX.FI|
00002A40: 4C 45 24 B2 46 49 4C 45 24 AA 22 56 45 52 59 20 |LE$.FILE$."VERY |
00002A50: 47 4F 4F 44 21 22 3A 89 33 37 36 30 00 8F 32 AB |GOOD!":.3760..2.|
00002A60: 0E 8B 41 4E 53 B1 B2 30 2E 37 AC 54 4D 41 58 A7 |..ANS..0.7.TMAX.|
00002A70: 46 49 4C 45 24 B2 46 49 4C 45 24 AA 22 47 4F 4F |FILE$.FILE$."GOO|
00002A80: 44 2E 20 4B 45 45 50 20 49 54 20 55 50 21 22 00 |D. KEEP IT UP!".|
00002A90: B6 32 B0 0E 8D 32 39 39 30 3A 46 49 4C 45 24 B2 |.2...2990:FILE$.|
00002AA0: 22 38 37 38 36 38 37 38 35 38 37 38 34 38 37 38 |"878687858784878|
00002AB0: 33 35 36 35 34 22 00 E7 32 B1 0E 8D 31 36 30 30 |35654"..2...1600|
00002AC0: 30 3A 46 49 4C 45 24 B2 22 35 36 35 33 35 36 35 |0:FILE$."5653565|
00002AD0: 32 39 33 39 34 39 35 39 36 39 37 39 39 38 31 22 |293949596979981"|
00002AE0: 3A 8D 31 36 30 30 30 00 F1 32 BA 0E 8D 39 35 30 |:.16000..2...950|
00002AF0: 30 00 00 33 BB 0E 8B 20 51 4E B2 31 20 A7 20 8E |0..3... QN.1 . .|
00002B00: 00 1B 33 CE 0E 99 C7 28 31 34 37 29 3B 3A 56 54 |..3....(147);:VT|
00002B10: 25 B2 31 32 3A 8D 33 30 31 30 30 00 4A 33 CF 0E |%.12:.30100.J3..|
00002B20: 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F |."DO YOU WANT TO|
00002B30: 20 42 45 20 54 45 53 54 45 44 20 41 47 41 49 4E | BE TESTED AGAIN|
00002B40: 3F 20 28 59 2F 4E 29 20 22 3B 00 67 33 D3 0E 8D |? (Y/N) ";.g3...|
00002B50: 37 32 3A 8B 28 43 24 B2 22 59 22 29 B0 28 43 24 |72:.(C$."Y").(C$|
00002B60: B2 22 4E 22 29 A7 8E 00 76 33 D4 0E 8B 20 51 4E |."N")...v3... QN|
00002B70: B2 31 20 A7 20 8E 00 80 33 D7 0E 89 33 37 39 35 |.1 . ...3...3795|
00002B80: 00 96 33 D8 0E 8F 20 4C 4F 53 45 52 27 53 20 4D |..3... LOSER'S M|
00002B90: 45 53 53 41 47 45 00 AB 33 E2 0E 8B 41 4E 53 B1 |ESSAGE..3...ANS.|
00002BA0: B2 30 2E 37 AC 54 4D 41 58 A7 8E 00 C5 33 00 0F |.0.7.TMAX....3..|
00002BB0: 46 49 4C 45 24 B2 22 46 41 49 4C 55 52 45 22 3A |FILE$."FAILURE":|
00002BC0: 8D 37 35 30 30 00 CB 33 0A 0F 8E 00 E0 33 94 11 |.7500..3.....3..|
00002BD0: 8F 20 44 41 54 45 20 47 45 4E 45 52 41 54 4F 52 |. DATE GENERATOR|
00002BE0: 00 FA 33 99 11 58 4E 55 4D B2 33 30 3A 58 4D 41 |..3..XNUM.30:XMA|
00002BF0: 58 B2 31 32 3A 8D 31 35 30 30 00 06 34 9E 11 81 |X.12:.1500..4...|
00002C00: 49 B2 31 A4 31 32 00 30 34 A3 11 41 24 B2 C4 28 |I.1.12.04..A$..(|
00002C10: 52 44 52 25 28 49 29 29 3A 4D 44 59 24 28 31 2C |RDR%(I)):MDY$(1,|
00002C20: 49 29 B2 C9 28 41 24 2C C3 28 41 24 29 AB 31 29 |I)..(A$,.(A$).1)|
00002C30: 00 53 34 A4 11 8B 49 B2 32 AF 52 44 52 25 28 49 |.S4...I.2.RDR%(I|
00002C40: 29 B1 32 39 A7 4D 44 59 24 28 31 2C 49 29 B2 22 |).29.MDY$(1,I)."|
00002C50: 32 39 22 00 5A 34 A8 11 82 49 00 8E 34 AD 11 58 |29".Z4...I..4..X|
00002C60: 4E 55 4D B2 31 32 3A 58 4D 41 58 B2 4B 4D 41 58 |NUM.12:XMAX.KMAX|
00002C70: 3A 8D 31 35 30 30 3A 8F 20 52 41 4E 44 4F 4D 20 |:.1500:. RANDOM |
00002C80: 4F 52 44 45 52 20 53 45 4C 45 43 54 4F 52 00 B5 |ORDER SELECTOR..|
00002C90: 34 B2 11 81 49 B2 31 A4 54 4D 41 58 3A 8F 20 42 |4...I.1.TMAX:. B|
00002CA0: 55 49 4C 44 20 44 49 53 50 4C 41 59 45 44 20 53 |UILD DISPLAYED S|
00002CB0: 54 52 49 4E 47 00 E6 34 B7 11 41 24 B2 C4 28 B5 |TRING..4..A$..(.|
00002CC0: 28 38 31 AC BB 28 31 29 29 AA 31 39 30 31 29 3A |(81..(1)).1901):|
00002CD0: 8F 20 59 45 41 52 53 20 46 52 4F 4D 20 31 39 30 |. YEARS FROM 190|
00002CE0: 31 2D 31 39 38 32 00 02 35 B8 11 4D 44 59 24 28 |1-1982..5..MDY$(|
00002CF0: 32 2C 49 29 B2 C9 28 41 24 2C C3 28 41 24 29 AB |2,I)..(A$,.(A$).|
00002D00: 31 29 00 1F 35 BC 11 4D 44 59 24 28 30 2C 49 29 |1)..5..MDY$(0,I)|
00002D10: B2 4D 4E 54 48 24 28 52 44 52 25 28 49 29 29 00 |.MNTH$(RDR%(I)).|
00002D20: 56 35 C1 11 42 45 46 24 28 49 29 B2 C8 28 4D 44 |V5..BEF$(I)..(MD|
00002D30: 59 24 28 30 2C 49 29 2C 33 29 AA 22 20 22 AA 4D |Y$(0,I),3)." ".M|
00002D40: 44 59 24 28 31 2C 49 29 AA 22 2C 22 AA 4D 44 59 |DY$(1,I).",".MDY|
00002D50: 24 28 32 2C 49 29 00 5D 35 C6 11 82 49 00 63 35 |$(2,I).]5...I.c5|
00002D60: CB 11 8E 00 80 35 F8 11 8F 20 52 45 42 55 49 4C |.....5... REBUIL|
00002D70: 44 20 4D 4F 4E 54 48 2C 44 41 59 2C 59 45 41 52 |D MONTH,DAY,YEAR|
00002D80: 00 AF 35 02 12 8D 33 33 30 30 3A 8F 20 52 45 4D |..5...3300:. REM|
00002D90: 4F 56 45 20 50 52 45 43 45 44 49 4E 47 20 26 20 |OVE PRECEDING & |
00002DA0: 54 52 41 49 4C 49 4E 47 20 42 4C 41 4E 4B 53 00 |TRAILING BLANKS.|
00002DB0: CC 35 0C 12 81 49 B2 31 A4 54 4D 41 58 3A 8F 20 |.5...I.1.TMAX:. |
00002DC0: 47 45 54 20 54 48 45 20 59 45 41 52 00 EF 35 16 |GET THE YEAR..5.|
00002DD0: 12 8B 41 46 54 24 28 49 29 B2 22 22 A7 4D 44 59 |..AFT$(I)."".MDY|
00002DE0: 24 28 32 2C 49 29 B2 22 22 3A 89 34 36 37 30 00 |$(2,I)."":.4670.|
00002DF0: 0A 36 20 12 4D 44 59 24 28 32 2C 49 29 B2 C9 28 |.6 .MDY$(2,I)..(|
00002E00: 41 46 54 24 28 49 29 2C 34 29 00 32 36 2A 12 4F |AFT$(I),4).26*.O|
00002E10: 46 46 53 45 54 B2 30 3A 58 B2 C3 28 41 46 54 24 |FFSET.0:X..(AFT$|
00002E20: 28 49 29 29 3A 8B 58 B1 34 A7 4F 46 46 53 45 54 |(I)):.X.4.OFFSET|
00002E30: B2 34 00 52 36 34 12 41 46 54 24 28 49 29 B2 C8 |.4.R64.AFT$(I)..|
00002E40: 28 41 46 54 24 28 49 29 2C 58 AB 4F 46 46 53 45 |(AFT$(I),X.OFFSE|
00002E50: 54 29 00 59 36 3E 12 82 49 00 8A 36 48 12 8D 33 |T).Y6>..I..6H..3|
00002E60: 33 30 30 3A 8F 20 52 45 4D 4F 56 45 20 42 4C 41 |300:. REMOVE BLA|
00002E70: 4E 4B 53 20 46 52 4F 4D 20 52 45 4D 41 49 4E 44 |NKS FROM REMAIND|
00002E80: 45 52 20 4F 46 20 41 46 54 24 00 A7 36 52 12 81 |ER OF AFT$..6R..|
00002E90: 49 B2 31 A4 4B 4D 41 58 3A 8F 20 47 45 54 20 54 |I.1.KMAX:. GET T|
00002EA0: 48 45 20 44 41 54 45 00 CA 36 5C 12 8B 41 46 54 |HE DATE..6\..AFT|
00002EB0: 24 28 49 29 B2 22 22 A7 4D 44 59 24 28 31 2C 49 |$(I)."".MDY$(1,I|
00002EC0: 29 B2 22 22 3A 89 34 37 35 30 00 F5 36 66 12 8B |)."":.4750..6f..|
00002ED0: C9 28 41 46 54 24 28 49 29 2C 31 29 B3 B1 22 2C |.(AFT$(I),1)..",|
00002EE0: 22 A7 41 46 54 24 28 49 29 B2 41 46 54 24 28 49 |".AFT$(I).AFT$(I|
00002EF0: 29 AA 22 2C 22 00 10 37 70 12 4D 44 59 24 28 31 |).","..7p.MDY$(1|
00002F00: 2C 49 29 B2 C9 28 41 46 54 24 28 49 29 2C 33 29 |,I)..(AFT$(I),3)|
00002F10: 00 25 37 7A 12 58 B2 C3 28 4D 44 59 24 28 31 2C |.%7z.X..(MDY$(1,|
00002F20: 49 29 29 AB 31 00 58 37 84 12 8B A8 28 C8 28 4D |I)).1.X7....(.(M|
00002F30: 44 59 24 28 31 2C 49 29 2C 31 29 B2 22 2E 22 B0 |DY$(1,I),1).".".|
00002F40: C8 28 4D 44 59 24 28 31 2C 49 29 2C 31 29 B2 22 |.(MDY$(1,I),1)."|
00002F50: 20 22 29 A7 34 37 35 30 00 75 37 85 12 4D 44 59 | ").4750.u7..MDY|
00002F60: 24 28 31 2C 49 29 B2 C9 28 4D 44 59 24 28 31 2C |$(1,I)..(MDY$(1,|
00002F70: 49 29 2C 58 29 00 7C 37 8E 12 82 49 00 9A 37 98 |I),X).|7...I..7.|
00002F80: 12 81 49 B2 31 A4 54 4D 41 58 3A 8F 20 47 45 54 |..I.1.TMAX:. GET|
00002F90: 20 54 48 45 20 4D 4F 4E 54 48 00 B5 37 A2 12 4D | THE MONTH..7..M|
00002FA0: 44 59 24 28 30 2C 49 29 B2 C8 28 41 46 54 24 28 |DY$(0,I)..(AFT$(|
00002FB0: 49 29 2C 33 29 00 BC 37 AC 12 82 49 00 E1 37 B6 |I),3)..7...I..7.|
00002FC0: 12 81 49 B2 31 20 A4 20 54 4D 41 58 3A 8F 20 52 |..I.1 . TMAX:. R|
00002FD0: 45 42 55 49 4C 44 20 54 48 45 20 53 54 52 49 4E |EBUILD THE STRIN|
00002FE0: 47 00 0F 38 C0 12 41 46 54 24 28 49 29 B2 4D 44 |G..8..AFT$(I).MD|
00002FF0: 59 24 28 30 2C 49 29 AA 22 20 22 AA 4D 44 59 24 |Y$(0,I)." ".MDY$|
00003000: 28 31 2C 49 29 AA 4D 44 59 24 28 32 2C 49 29 00 |(1,I).MDY$(2,I).|
00003010: 16 38 CA 12 82 49 00 1C 38 D4 12 8E 00 35 38 DE |.8...I..8....58.|
00003020: 12 8F 20 52 45 42 55 49 4C 44 20 44 41 59 20 26 |.. REBUILD DAY &|
00003030: 20 59 45 41 52 00 64 38 E8 12 8D 33 33 30 30 3A | YEAR.d8...3300:|
00003040: 8F 20 52 45 4D 4F 56 45 20 50 52 45 43 45 44 49 |. REMOVE PRECEDI|
00003050: 4E 47 20 26 20 54 52 41 49 4C 49 4E 47 20 42 4C |NG & TRAILING BL|
00003060: 41 4E 4B 53 00 81 38 F2 12 81 49 B2 31 A4 54 4D |ANKS..8...I.1.TM|
00003070: 41 58 3A 8F 20 47 45 54 20 54 48 45 20 59 45 41 |AX:. GET THE YEA|
00003080: 52 00 AB 38 FC 12 58 B2 C3 28 41 46 54 24 28 49 |R..8..X..(AFT$(I|
00003090: 29 29 3A 8B 58 B3 B2 34 A7 4D 44 59 24 28 32 2C |)):.X..4.MDY$(2,|
000030A0: 49 29 B2 22 22 3A 89 34 38 39 30 00 C6 38 06 13 |I)."":.4890..8..|
000030B0: 4D 44 59 24 28 32 2C 49 29 B2 C9 28 41 46 54 24 |MDY$(2,I)..(AFT$|
000030C0: 28 49 29 2C 34 29 00 E1 38 10 13 41 46 54 24 28 |(I),4)..8..AFT$(|
000030D0: 49 29 B2 C8 28 41 46 54 24 28 49 29 2C 58 AB 34 |I)..(AFT$(I),X.4|
000030E0: 29 00 E8 38 1A 13 82 49 00 F2 38 24 13 8D 33 33 |)..8...I..8$..33|
000030F0: 30 30 00 00 39 2E 13 81 49 B2 31 A4 54 4D 41 58 |00..9...I.1.TMAX|
00003100: 00 23 39 38 13 8B 41 46 54 24 28 49 29 B2 22 22 |.#98..AFT$(I).""|
00003110: A7 4D 44 59 24 28 31 2C 49 29 B2 22 22 3A 89 34 |.MDY$(1,I)."":.4|
00003120: 39 35 30 00 51 39 42 13 8B C9 28 41 46 54 24 28 |950.Q9B...(AFT$(|
00003130: 49 29 2C 31 29 B2 22 2C 22 A7 4D 44 59 24 28 31 |I),1).",".MDY$(1|
00003140: 2C 49 29 B2 41 46 54 24 28 49 29 3A 89 34 39 35 |,I).AFT$(I):.495|
00003150: 30 00 79 39 4C 13 4D 44 59 24 28 31 2C 49 29 B2 |0.y9L.MDY$(1,I).|
00003160: 41 46 54 24 28 49 29 AA 22 2C 22 3A 8F 20 41 44 |AFT$(I).",":. AD|
00003170: 44 20 41 20 43 4F 4D 4D 41 00 80 39 56 13 82 49 |D A COMMA..9V..I|
00003180: 00 A6 39 60 13 81 20 49 B2 31 20 A4 20 54 4D 41 |..9`.. I.1 . TMA|
00003190: 58 3A 8F 20 52 45 42 55 49 4C 44 20 54 48 45 20 |X:. REBUILD THE |
000031A0: 53 54 52 49 4E 47 00 C6 39 6A 13 41 46 54 24 28 |STRING..9j.AFT$(|
000031B0: 49 29 B2 4D 44 59 24 28 31 2C 49 29 AA 4D 44 59 |I).MDY$(1,I).MDY|
000031C0: 24 28 32 2C 49 29 00 CD 39 74 13 82 49 00 D3 39 |$(2,I)..9t..I..9|
000031D0: 7E 13 8E 00 E9 39 64 19 8F 20 48 49 52 45 53 20 |~....9d.. HIRES |
000031E0: 44 49 53 50 4C 41 59 45 52 00 FE 39 6E 19 99 C7 |DISPLAYER..9n...|
000031F0: 28 31 34 37 29 3B 3A 8D 20 36 35 35 30 3A 00 29 |(147);:. 6550:.)|
00003200: 3A 78 19 9E 20 34 39 31 35 38 3A 9E 20 34 39 31 |:x.. 49158:. 491|
00003210: 35 32 3A 8E 3A 8F 20 43 41 4C 4C 20 55 4E 43 4F |52:.:. CALL UNCO|
00003220: 4D 50 2F 52 41 53 54 45 52 00 43 3A 96 19 8F 20 |MP/RASTER.C:... |
00003230: 4C 4F 41 44 20 49 4E 20 42 49 4E 41 52 59 20 46 |LOAD IN BINARY F|
00003240: 49 4C 45 00 5D 3A A0 19 46 53 B2 4C 44 AA 33 3A |ILE.]:..FS.LD.3:|
00003250: 97 20 46 53 2C C3 28 46 49 4C 45 24 29 00 8D 3A |. FS,.(FILE$)..:|
00003260: AA 19 81 20 54 B2 31 20 A4 20 C3 28 46 49 4C 45 |... T.1 . .(FILE|
00003270: 24 29 3A 97 20 46 53 AA 54 2C C6 28 CA 28 46 49 |$):. FS.T,.(.(FI|
00003280: 4C 45 24 2C 54 2C 31 29 29 3A 82 20 54 00 98 3A |LE$,T,1)):. T..:|
00003290: B4 19 9E 20 4C 44 3A 8E 00 AE 3A C8 19 8F 20 50 |... LD:...:... P|
000032A0: 49 43 54 55 52 45 20 44 49 53 50 4C 41 59 00 C6 |ICTURE DISPLAY..|
000032B0: 3A D2 19 8D 36 35 30 30 3A 8D 39 35 30 30 3A 9E |:...6500:.9500:.|
000032C0: 20 34 39 31 35 35 00 D5 3A DC 19 99 C7 28 31 34 | 49155..:....(14|
000032D0: 37 29 3B 3A 8E 00 F1 3A 58 1B 8F 20 50 45 52 53 |7);:...:X.. PERS|
000032E0: 4F 4E 41 4C 20 44 49 53 4B 20 53 45 43 54 49 4F |ONAL DISK SECTIO|
000032F0: 4E 00 1D 3B 62 1B 8B 44 53 4B 24 B3 B1 22 59 22 |N..;b..DSK$.."Y"|
00003300: A7 8E 3A 8F 20 53 55 42 4A 45 43 54 20 48 41 53 |..:. SUBJECT HAS|
00003310: 20 4E 4F 20 44 49 53 4B 20 46 49 4C 45 00 3D 3B | NO DISK FILE.=;|
00003320: 6C 1B 52 57 24 B2 22 52 45 41 44 20 22 3A 53 44 |l.RW$."READ ":SD|
00003330: 24 B2 22 43 22 3A 8D 37 32 30 30 3A 8E 00 5A 3B |$."C":.7200:..Z;|
00003340: BC 1B 8F 20 57 52 49 54 45 20 54 4F 20 50 45 52 |... WRITE TO PER|
00003350: 53 4F 4E 41 4C 20 44 49 53 4B 00 79 3B C6 1B 52 |SONAL DISK.y;..R|
00003360: 57 24 B2 22 57 52 49 54 45 20 22 3A 53 44 24 B2 |W$."WRITE ":SD$.|
00003370: 22 41 22 3A 8D 37 34 35 30 00 B4 3B DA 1B 8D 31 |"A":.7450..;...1|
00003380: 33 30 30 30 3A 46 49 4C 45 24 B2 22 4C 4F 41 44 |3000:FILE$."LOAD|
00003390: 49 4E 47 20 4D 45 4D 4F 52 59 20 54 52 41 49 4E |ING MEMORY TRAIN|
000033A0: 45 52 20 4D 41 49 4E 20 4D 45 4E 55 22 3A 56 54 |ER MAIN MENU":VT|
000033B0: 25 B2 31 30 00 D8 3B DB 1B 8D 33 30 31 30 30 3A |%.10..;...30100:|
000033C0: 8D 32 39 39 30 3A 93 20 22 49 4E 54 52 4F 44 55 |.2990:. "INTRODU|
000033D0: 43 54 49 4F 4E 22 2C 38 00 F0 3B E4 1B 89 31 31 |CTION",8..;...11|
000033E0: 30 3A 8F 20 4A 55 53 54 20 49 4E 20 43 41 53 45 |0:. JUST IN CASE|
000033F0: 00 09 3C 20 1C 8F 20 52 45 41 44 2F 57 52 49 54 |..< .. READ/WRIT|
00003400: 45 20 54 4F 20 44 49 53 4B 00 34 3C 2A 1C 8B 44 |E TO DISK.4<*..D|
00003410: 53 4B 24 B3 B1 22 59 22 A7 51 55 49 54 B2 30 3A |SK$.."Y".QUIT.0:|
00003420: 89 37 34 33 30 3A 8F 20 4E 4F 20 44 49 53 4B 20 |.7430:. NO DISK |
00003430: 46 49 4C 45 00 5A 3C 34 1C 43 24 B2 22 55 50 44 |FILE.Z<4.C$."UPD|
00003440: 41 54 45 22 3A 8B 52 57 24 B2 22 52 45 41 44 20 |ATE":.RW$."READ |
00003450: 22 A7 43 24 B2 22 55 53 45 22 00 75 3C 3E 1C 99 |".C$."USE".u<>..|
00003460: C7 28 31 34 37 29 3B 3A 56 54 25 B2 31 30 3A 8D |.(147);:VT%.10:.|
00003470: 33 30 31 30 30 00 A0 3C 3F 1C 99 22 44 4F 20 59 |30100..<?.."DO Y|
00003480: 4F 55 20 57 41 4E 54 20 54 4F 20 22 3B 43 24 3B |OU WANT TO ";C$;|
00003490: 22 20 54 48 45 20 50 45 47 20 57 4F 52 44 53 22 |" THE PEG WORDS"|
000034A0: 00 D4 3C 48 1C 56 54 25 B2 31 32 3A 8D 33 30 31 |..<H.VT%.12:.301|
000034B0: 30 30 3A 99 22 4F 4E 20 59 4F 55 52 20 50 45 52 |00:."ON YOUR PER|
000034C0: 53 4F 4E 41 4C 20 44 49 53 4B 3F 20 28 59 2F 4E |SONAL DISK? (Y/N|
000034D0: 29 20 22 3B 00 E0 3C 49 1C 8D 37 31 3A 99 43 24 |) ";..<I..71:.C$|
000034E0: 00 EF 3C 4A 1C 8B 20 51 4E B2 31 20 A7 20 8E 00 |..<J.. QN.1 . ..|
000034F0: 00 3D 52 1C 8B 43 24 B2 22 59 22 89 37 32 39 30 |.=R..C$."Y".7290|
00003500: 00 28 3D 5C 1C 8B 28 43 24 B2 22 4E 22 29 AF 28 |.(=\..(C$."N").(|
00003510: 28 53 44 24 B2 22 51 55 49 54 22 29 B0 28 51 55 |(SD$."QUIT").(QU|
00003520: 49 54 B2 32 29 29 A7 8E 00 43 3D 5D 1C 8F 20 51 |IT.2))...C=].. Q|
00003530: 55 49 54 20 46 4F 52 20 4E 4F 57 20 53 45 43 54 |UIT FOR NOW SECT|
00003540: 49 4F 4E 00 61 3D 66 1C 8B 28 43 24 B2 22 4E 22 |ION.a=f..(C$."N"|
00003550: 29 AF 28 52 57 24 B2 22 52 45 41 44 20 22 29 A7 |).(RW$."READ ").|
00003560: 8E 00 83 3D 6B 1C 8B 28 43 24 B2 22 4E 22 29 AF |...=k..(C$."N").|
00003570: 28 52 57 24 B2 22 57 52 49 54 45 20 22 29 89 37 |(RW$."WRITE ").7|
00003580: 34 35 30 00 97 3D 70 1C 89 37 32 34 30 3A 8F 20 |450..=p..7240:. |
00003590: 44 45 46 41 55 4C 54 00 B6 3D 7A 1C 99 C7 28 31 |DEFAULT..=z...(1|
000035A0: 34 37 29 3B 3A 56 54 25 B2 31 30 3A 8D 33 30 31 |47);:VT%.10:.301|
000035B0: 30 30 3A 9E 4D 55 00 E1 3D 7B 1C 99 22 49 4E 53 |00:.MU..={.."INS|
000035C0: 45 52 54 20 59 4F 55 52 20 22 3B C7 28 31 38 29 |ERT YOUR ";.(18)|
000035D0: 3B 22 50 45 52 53 4F 4E 41 4C 20 44 49 53 4B 22 |;"PERSONAL DISK"|
000035E0: 3B 00 FF 3D 7C 1C 99 C7 28 31 34 36 29 3B 22 20 |;..=|...(146);" |
000035F0: 49 4E 54 4F 20 44 52 49 56 45 20 23 31 2E 22 00 |INTO DRIVE #1.".|
00003600: 36 3E 7F 1C 56 54 25 B2 31 35 3A 8D 33 30 31 30 |6>..VT%.15:.3010|
00003610: 30 3A 97 32 31 31 2C 30 3A 99 22 28 50 52 45 53 |0:.211,0:."(PRES|
00003620: 53 20 3C 43 54 52 4C 2D 43 3E 20 54 4F 20 43 41 |S <CTRL-C> TO CA|
00003630: 4E 43 45 4C 29 22 00 40 3E 84 1C 8D 39 35 30 30 |NCEL)".@>...9500|
00003640: 00 4F 3E 85 1C 8B 20 51 4E B2 31 20 A7 20 8E 00 |.O>... QN.1 . ..|
00003650: 75 3E 8E 1C 81 58 58 B2 31 A4 31 30 3A A1 58 58 |u>...XX.1.10:.XX|
00003660: 24 3A 82 58 58 3A 99 C7 28 31 34 37 29 3B 3A 56 |$:.XX:..(147);:V|
00003670: 54 25 B2 31 32 00 A7 3E 8F 1C 8D 33 30 31 30 30 |T%.12..>...30100|
00003680: 3A 46 49 4C 45 24 B2 22 55 53 49 4E 47 20 59 4F |:FILE$."USING YO|
00003690: 55 52 20 50 45 52 53 4F 4E 41 4C 20 44 49 53 4B |UR PERSONAL DISK|
000036A0: 22 3A 8D 32 39 39 30 00 C0 3E 98 1C 8F 20 41 43 |":.2990..>... AC|
000036B0: 54 55 41 4C 20 44 49 53 4B 20 41 43 43 45 53 53 |TUAL DISK ACCESS|
000036C0: 00 06 3F A2 1C 8F 20 50 52 49 4E 54 44 24 3B 22 |..?... PRINTD$;"|
000036D0: 52 45 41 44 20 22 3B 46 4C 4E 4D 24 3A 52 45 4D |READ ";FLNM$:REM|
000036E0: 20 31 53 54 20 43 48 45 43 4B 20 54 4F 20 53 45 | 1ST CHECK TO SE|
000036F0: 45 20 49 46 20 54 48 45 20 46 49 4C 45 20 49 53 |E IF THE FILE IS|
00003700: 20 54 48 45 52 45 00 1C 3F AC 1C 8F 20 50 52 49 | THERE..?... PRI|
00003710: 4E 54 44 24 3B 22 43 4C 4F 53 45 22 00 58 3F B1 |NTD$;"CLOSE".X?.|
00003720: 1C 8B 52 57 24 B3 B1 22 52 45 41 44 20 22 89 37 |..RW$.."READ ".7|
00003730: 33 39 30 3A 8F 20 41 4C 53 4F 20 48 41 56 45 20 |390:. ALSO HAVE |
00003740: 54 4F 20 52 45 41 44 20 49 4E 20 41 4C 4C 20 50 |TO READ IN ALL P|
00003750: 45 47 20 57 4F 52 44 53 00 84 3F B6 1C 9F 20 32 |EG WORDS..?... 2|
00003760: 2C 38 2C 32 2C 46 4C 4E 4D 24 AA 22 2E 57 52 44 |,8,2,FLNM$.".WRD|
00003770: 2C 53 45 51 2C 52 22 3A 8B 20 53 54 20 A7 20 31 |,SEQ,R":. ST . 1|
00003780: 37 30 30 30 00 8A 3F C0 1C 8F 00 AA 3F CA 1C 84 |7000..?.....?...|
00003790: 32 2C 50 4C 4D 41 58 3A 8B 20 53 54 20 AF 20 31 |2,PLMAX:. ST . 1|
000037A0: 39 31 20 A7 20 31 37 30 30 30 00 C5 3F D4 1C 81 |91 . 17000..?...|
000037B0: 49 B2 31 20 A4 20 36 30 3A 84 32 2C 45 47 24 28 |I.1 . 60:.2,EG$(|
000037C0: 49 29 3A 82 49 00 CD 3F D9 1C A0 20 32 00 09 40 |I):.I..?... 2..@|
000037D0: DE 1C 8B 20 52 57 24 B2 22 52 45 41 44 20 22 20 |... RW$."READ " |
000037E0: A7 20 9F 20 32 2C 38 2C 32 2C 46 4C 4E 4D 24 AA |. . 2,8,2,FLNM$.|
000037F0: 22 2E 4D 4E 54 2C 53 45 51 2C 52 22 3A 8B 20 53 |".MNT,SEQ,R":. S|
00003800: 54 20 A7 20 31 37 30 30 30 00 4B 40 DF 1C 8B 20 |T . 17000.K@... |
00003810: 52 57 24 B2 22 57 52 49 54 45 20 22 20 A7 20 9F |RW$."WRITE " . .|
00003820: 20 32 2C 38 2C 32 2C 22 40 3A 22 AA 46 4C 4E 4D | 2,8,2,"@:".FLNM|
00003830: 24 AA 22 2E 4D 4E 54 2C 53 45 51 2C 57 22 3A 8B |$.".MNT,SEQ,W":.|
00003840: 20 53 54 20 A7 20 31 37 30 30 30 00 7C 40 E0 1C | ST . 17000.|@..|
00003850: 8B 52 57 24 B2 22 57 52 49 54 45 20 22 A7 50 4C |.RW$."WRITE ".PL|
00003860: 4D 41 58 B2 31 30 3A 98 32 2C 50 4C 4D 41 58 3A |MAX.10:.2,PLMAX:|
00003870: 8B 20 53 54 20 A7 20 31 37 30 30 30 00 A4 40 E2 |. ST . 17000..@.|
00003880: 1C 8B 52 57 24 B2 22 52 45 41 44 20 22 A7 20 84 |..RW$."READ ". .|
00003890: 32 2C 50 4C 4D 41 58 3A 8B 20 53 54 20 A7 20 31 |2,PLMAX:. ST . 1|
000038A0: 37 30 30 30 00 B1 40 E3 1C 81 49 B2 31 20 A4 31 |7000..@...I.1 .1|
000038B0: 32 00 CD 40 E8 1C 8B 52 57 24 B2 22 52 45 41 44 |2..@...RW$."READ|
000038C0: 20 22 A7 84 32 2C 50 45 47 24 28 49 29 00 00 41 | "..2,PEG$(I)..A|
000038D0: ED 1C 8B 20 52 57 24 B2 22 57 52 49 54 45 20 22 |... RW$."WRITE "|
000038E0: 20 A7 20 41 24 B2 50 45 47 24 28 49 29 3A 8B 20 | . A$.PEG$(I):. |
000038F0: 41 24 B2 22 22 20 A7 20 41 24 B2 22 58 58 58 22 |A$."" . A$."XXX"|
00003900: 00 18 41 F2 1C 8B 52 57 24 B2 22 57 52 49 54 45 |..A...RW$."WRITE|
00003910: 20 22 A7 98 32 2C 41 24 00 23 41 FC 1C 82 49 3A | "..2,A$.#A...I:|
00003920: A0 20 32 00 35 41 06 1D 8B 53 44 24 B2 22 51 55 |. 2.5A...SD$."QU|
00003930: 49 54 22 A7 8E 00 54 41 1A 1D 99 C7 28 31 34 37 |IT"...TA....(147|
00003940: 29 3B 3A 56 54 25 B2 31 30 3A 8D 33 30 31 30 30 |);:VT%.10:.30100|
00003950: 3A 9E 4D 55 00 8C 41 1B 1D 99 22 42 45 20 53 55 |:.MU..A..."BE SU|
00003960: 52 45 20 4D 45 4D 4F 52 59 20 54 52 41 49 4E 45 |RE MEMORY TRAINE|
00003970: 52 20 22 3B C7 28 31 38 29 3B 22 44 49 53 4B 20 |R ";.(18);"DISK |
00003980: 22 3B 53 44 24 3B C7 28 31 34 36 29 00 C5 41 1C |";SD$;.(146)..A.|
00003990: 1D 56 54 25 B2 31 32 3A 8D 33 30 31 30 30 3A 99 |.VT%.12:.30100:.|
000039A0: 22 49 53 20 50 52 4F 50 45 52 4C 59 20 49 4E 53 |"IS PROPERLY INS|
000039B0: 45 52 54 45 44 20 49 4E 54 4F 20 44 52 49 56 45 |ERTED INTO DRIVE|
000039C0: 20 23 31 2E 22 00 F5 41 1F 1D 56 54 25 B2 31 36 | #1."..A..VT%.16|
000039D0: 3A 8D 33 30 31 30 30 3A 99 22 28 50 52 45 53 53 |:.30100:."(PRESS|
000039E0: 20 3C 43 54 52 4C 2D 43 3E 20 54 4F 20 43 41 4E | <CTRL-C> TO CAN|
000039F0: 43 45 4C 29 22 00 01 42 24 1D 8D 39 35 30 30 3A |CEL)"..B$..9500:|
00003A00: 8E 00 1F 42 4C 1D 8F 20 54 45 58 54 20 46 49 4C |...BL.. TEXT FIL|
00003A10: 45 20 53 43 52 45 45 4E 20 57 52 49 54 45 52 00 |E SCREEN WRITER.|
00003A20: 3A 42 60 1D 9F 20 32 2C 38 2C 32 2C 46 49 4C 45 |:B`.. 2,8,2,FILE|
00003A30: 24 3A 99 C7 28 31 34 37 29 3B 00 46 42 6A 1D 81 |$:..(147);.FBj..|
00003A40: 49 B2 31 A4 32 34 00 69 42 74 1D 84 32 2C 53 39 |I.1.24.iBt..2,S9|
00003A50: 24 28 49 29 3A 8B 20 53 54 B1 31 39 20 AF 20 53 |$(I):. ST.19 . S|
00003A60: 54 B3 B1 36 34 20 A7 20 90 00 75 42 7E 1D 82 20 |T..64 . ..uB~.. |
00003A70: 49 3A A0 20 32 00 88 42 88 1D 99 C7 28 31 34 37 |I:. 2..B....(147|
00003A80: 29 3B C7 28 31 38 29 3B 00 BB 42 89 1D 46 49 4C |);.(18);..B..FIL|
00003A90: 45 24 B2 22 54 48 45 20 45 49 4E 53 54 45 49 4E |E$."THE EINSTEIN|
00003AA0: 20 4D 45 4D 4F 52 59 20 54 52 41 49 4E 45 52 3A | MEMORY TRAINER:|
00003AB0: 20 4C 45 53 53 4F 4E 20 23 34 22 00 CD 42 8A 1D | LESSON #4"..B..|
00003AC0: 8D 32 39 39 30 3A 99 C7 28 31 34 36 29 00 D9 42 |.2990:..(146)..B|
00003AD0: 92 1D 81 49 B2 32 A4 32 32 00 E8 42 9C 1D 99 53 |...I.2.22..B...S|
00003AE0: 39 24 28 49 29 3A 82 49 00 11 43 A6 1D 53 45 43 |9$(I):.I..C..SEC|
00003AF0: B2 2E 35 3A 8D 32 39 30 30 3A 56 54 25 B2 32 34 |..5:.2900:VT%.24|
00003B00: 3A 8D 33 30 31 30 30 3A 99 53 39 24 28 32 33 29 |:.30100:.S9$(23)|
00003B10: 3B 00 1B 43 B0 1D 8D 39 35 31 35 00 3A 43 BA 1D |;..C...9515.:C..|
00003B20: 81 58 58 B2 31 A4 31 30 3A A1 58 58 24 3A 82 58 |.XX.1.10:.XX$:.X|
00003B30: 58 3A 8D 31 33 30 30 30 3A 8E 00 4E 43 40 1F 8F |X:.13000:..NC@..|
00003B40: 20 4D 45 4E 55 20 53 45 4C 45 43 54 4F 52 00 6D | MENU SELECTOR.m|
00003B50: 43 4A 1F 99 C7 28 31 34 37 29 3B 3A 81 58 58 B2 |CJ...(147);:.XX.|
00003B60: 31 A4 31 30 3A A1 58 58 24 3A 82 58 58 00 A7 43 |1.10:.XX$:.XX..C|
00003B70: 54 1F 46 49 4C 45 24 B2 22 20 20 20 20 20 54 48 |T.FILE$." TH|
00003B80: 45 20 45 49 4E 53 54 45 49 4E 20 4D 45 4D 4F 52 |E EINSTEIN MEMOR|
00003B90: 59 20 54 52 41 49 4E 45 52 20 20 20 20 20 22 3A |Y TRAINER ":|
00003BA0: 99 C7 28 31 38 29 3B 00 BA 43 55 1F 8D 32 39 39 |..(18);..CU..299|
00003BB0: 30 3A 99 C7 28 31 34 36 29 3B 00 EF 43 5E 1F 56 |0:..(146);..C^.V|
00003BC0: 54 25 B2 32 34 3A 8D 33 30 31 30 30 3A 99 22 46 |T%.24:.30100:."F|
00003BD0: 49 4C 45 20 4E 41 4D 45 3A 20 22 3B C7 28 31 38 |ILE NAME: ";.(18|
00003BE0: 29 3B 46 4C 4E 4D 24 3B C7 28 31 34 36 29 3B 00 |);FLNM$;.(146);.|
00003BF0: 07 44 68 1F 56 54 25 B2 34 3A 8D 33 30 31 30 30 |.Dh.VT%.4:.30100|
00003C00: 3A 97 32 31 31 2C 30 00 34 44 69 1F 46 49 4C 45 |:.211,0.4Di.FILE|
00003C10: 24 B2 22 4C 45 53 53 4F 4E 20 23 34 3A 20 49 4D |$."LESSON #4: IM|
00003C20: 50 4F 52 54 41 4E 54 20 44 41 54 45 53 22 3A 8D |PORTANT DATES":.|
00003C30: 32 39 39 30 00 45 44 72 1F 81 49 B2 36 35 A4 36 |2990.EDr..I.65.6|
00003C40: 34 AA 4D 41 58 00 50 44 7C 1F 53 B2 49 AB 36 34 |4.MAX.PD|.S.I.64|
00003C50: 00 75 44 86 1F 56 54 25 B2 53 AA 36 3A 8D 33 30 |.uD..VT%.S.6:.30|
00003C60: 31 30 30 3A 99 C7 28 49 29 22 20 3A 20 22 50 47 |100:..(I)" : "PG|
00003C70: 4D 24 28 53 29 00 7D 44 90 1F 82 3A 99 00 8E 44 |M$(S).}D...:...D|
00003C80: 9A 1F 8B 50 56 24 B2 22 22 89 38 31 31 30 00 CB |...PV$."".8110..|
00003C90: 44 A4 1F 56 54 25 B2 32 30 3A 8D 33 30 31 30 30 |D..VT%.20:.30100|
00003CA0: 3A 99 22 28 59 4F 55 52 20 50 52 45 56 49 4F 55 |:."(YOUR PREVIOU|
00003CB0: 53 20 53 45 4C 45 43 54 49 4F 4E 20 57 41 53 20 |S SELECTION WAS |
00003CC0: 27 22 3B 50 56 24 3B 22 27 29 22 00 07 45 AE 1F |'";PV$;"')"..E..|
00003CD0: 56 54 25 B2 31 38 3A 8D 33 30 31 30 30 3A 99 22 |VT%.18:.30100:."|
00003CE0: 53 45 4C 45 43 54 20 4F 50 54 49 4F 4E 3A 20 22 |SELECT OPTION: "|
00003CF0: 3B 3A 8D 33 30 32 30 30 3A 8F 20 43 4C 45 41 52 |;:.30200:. CLEAR|
00003D00: 20 54 4F 20 45 4F 4C 00 1E 45 B8 1F 8D 37 32 3A | TO EOL..E...72:|
00003D10: 43 B2 C6 28 43 24 29 3A 41 4E 24 B2 43 24 00 36 |C..(C$):AN$.C$.6|
00003D20: 45 CC 1F 8B 43 B3 36 35 B0 43 B1 36 34 AA 4D 41 |E...C.65.C.64.MA|
00003D30: 58 89 38 31 32 30 00 43 45 D6 1F 99 3A 43 B2 43 |X.8120.CE...:C.C|
00003D40: AB 36 34 00 6F 45 E0 1F 56 54 25 B2 43 AA 36 3A |.64.oE..VT%.C.6:|
00003D50: 8D 33 30 31 30 30 3A 99 C7 28 31 38 29 3B 41 4E |.30100:..(18);AN|
00003D60: 24 3B C7 28 31 34 36 29 3B 22 20 3A 20 22 3B 00 |$;.(146);" : ";.|
00003D70: 88 45 E1 1F 99 C7 28 31 38 29 3B 50 47 4D 24 28 |.E....(18);PGM$(|
00003D80: 43 29 C7 28 31 34 36 29 00 C5 45 EA 1F 56 54 25 |C).(146)..E..VT%|
00003D90: B2 31 38 3A 8D 33 30 31 30 30 3A 99 22 49 53 20 |.18:.30100:."IS |
00003DA0: 54 48 49 53 20 54 48 45 20 53 45 4C 45 43 54 49 |THIS THE SELECTI|
00003DB0: 4F 4E 20 59 4F 55 20 57 41 4E 54 3F 20 28 59 2F |ON YOU WANT? (Y/|
00003DC0: 4E 29 20 22 3B 00 E9 45 F4 1F 8D 37 32 3A 8B 43 |N) ";..E...72:.C|
00003DD0: 24 B3 B1 22 59 22 AF 43 24 B3 B1 22 4E 22 A7 99 |$.."Y".C$.."N"..|
00003DE0: 42 24 3B 3A 89 38 31 38 30 00 08 46 FE 1F 99 43 |B$;:.8180..F...C|
00003DF0: 24 3A 8B 43 24 B3 B1 22 4E 22 A7 50 56 24 B2 41 |$:.C$.."N".PV$.A|
00003E00: 4E 24 3A 89 38 32 31 30 00 32 46 08 20 56 54 25 |N$:.8210.2F. VT%|
00003E10: B2 43 AA 36 3A 8D 33 30 31 30 30 3A 99 41 4E 24 |.C.6:.30100:.AN$|
00003E20: 22 20 3A 20 22 50 47 4D 24 28 43 29 3A 89 38 31 |" : "PGM$(C):.81|
00003E30: 31 30 00 38 46 12 20 8E 00 4C 46 28 23 8F 20 42 |10.8F. ..LF(#. B|
00003E40: 55 42 42 4C 45 20 53 4F 52 54 45 52 00 57 46 32 |UBBLE SORTER.WF2|
00003E50: 23 8D 31 33 30 30 30 00 65 46 3C 23 81 4A B2 31 |#.13000.eF<#.J.1|
00003E60: A4 54 4D 41 58 00 75 46 46 23 81 49 B2 31 A4 54 |.TMAX.uFF#.I.1.T|
00003E70: 4D 41 58 AB 31 00 91 46 50 23 8B 52 44 52 25 28 |MAX.1..FP#.RDR%(|
00003E80: 49 29 B3 52 44 52 25 28 49 AA 31 29 89 39 30 38 |I).RDR%(I.1).908|
00003E90: 30 00 A2 46 5A 23 54 45 4D 50 B2 52 44 52 25 28 |0..FZ#TEMP.RDR%(|
00003EA0: 49 29 00 B8 46 64 23 52 44 52 25 28 49 29 B2 52 |I)..Fd#RDR%(I).R|
00003EB0: 44 52 25 28 49 AA 31 29 00 CB 46 6E 23 52 44 52 |DR%(I.1)..Fn#RDR|
00003EC0: 25 28 49 AA 31 29 B2 54 45 4D 50 00 D7 46 78 23 |%(I.1).TEMP..Fx#|
00003ED0: 82 49 3A 82 4A 3A 8E 00 F0 46 1C 25 8F 20 57 41 |.I:.J:...F.%. WA|
00003EE0: 49 54 20 46 4F 52 20 53 50 41 43 45 20 42 41 52 |IT FOR SPACE BAR|
00003EF0: 00 2F 47 26 25 56 54 25 B2 32 34 3A 8D 33 30 31 |./G&%VT%.24:.301|
00003F00: 30 30 3A 97 20 32 31 31 2C 30 3A 99 22 50 52 45 |00:. 211,0:."PRE|
00003F10: 53 53 20 3C 53 50 41 43 45 20 42 41 52 3E 20 54 |SS <SPACE BAR> T|
00003F20: 4F 20 43 4F 4E 54 49 4E 55 45 2E 2E 2E 22 3B 00 |O CONTINUE...";.|
00003F30: 45 47 2B 25 81 58 58 B2 31 A4 31 30 3A A1 58 58 |EG+%.XX.1.10:.XX|
00003F40: 24 3A 82 58 58 00 58 47 30 25 8D 37 33 3A 8B 20 |$:.XX.XG0%.73:. |
00003F50: 51 4E B2 31 20 A7 20 8E 00 6A 47 35 25 8B 43 24 |QN.1 . ..jG5%.C$|
00003F60: B3 B1 22 20 22 89 39 35 32 30 00 70 47 3A 25 8E |.." ".9520.pG:%.|
00003F70: 00 9C 47 80 25 8B 20 43 24 B2 C7 28 33 29 20 A7 |..G.%. C$..(3) .|
00003F80: 20 97 20 32 30 34 2C 31 3A 50 56 24 B2 22 22 3A | . 204,1:PV$."":|
00003F90: 9E 20 34 39 31 35 35 3A 51 4E B2 31 00 A2 47 8A |. 49155:QN.1..G.|
00003FA0: 25 8E 00 B7 47 10 27 8F 20 49 4E 49 54 49 41 4C |%...G.'. INITIAL|
00003FB0: 49 5A 41 54 49 4F 4E 00 CF 47 1A 27 86 52 44 52 |IZATION..G.'.RDR|
00003FC0: 25 28 32 30 29 2C 50 49 54 43 48 28 31 30 29 00 |%(20),PITCH(10).|
00003FD0: F9 47 24 27 4B 4D 41 58 B2 31 32 3A 48 49 47 48 |.G$'KMAX.12:HIGH|
00003FE0: B2 4B 4D 41 58 3A 4C 4F 57 B2 31 3A 44 24 B2 C7 |.KMAX:LOW.1:D$..|
00003FF0: 28 31 33 29 AA C7 28 34 29 00 12 48 2E 27 81 49 |(13)..(4)..H.'.I|
00004000: B2 31 A4 31 32 3A 87 4D 4E 54 48 24 28 49 29 3A |.1.12:.MNTH$(I):|
00004010: 82 49 00 48 48 38 27 83 20 4A 41 4E 2C 46 45 42 |.I.HH8'. JAN,FEB|
00004020: 2C 4D 41 52 2C 41 50 52 2C 4D 41 59 2C 4A 55 4E |,MAR,APR,MAY,JUN|
00004030: 2C 4A 55 4C 2C 41 55 47 2C 53 45 50 2C 4F 43 54 |,JUL,AUG,SEP,OCT|
00004040: 2C 4E 4F 56 2C 44 45 43 00 60 48 60 27 81 49 B2 |,NOV,DEC.`H`'.I.|
00004050: 31 A4 32 30 3A 87 4D 45 4E 24 28 49 29 3A 82 49 |1.20:.MEN$(I):.I|
00004060: 00 96 48 6A 27 83 20 42 49 4C 4C 2C 42 4F 42 2C |..Hj'. BILL,BOB,|
00004070: 42 52 55 43 45 2C 43 48 55 43 4B 2C 44 41 56 45 |BRUCE,CHUCK,DAVE|
00004080: 2C 44 45 4E 4E 49 53 2C 45 44 2C 46 52 41 4E 4B |,DENNIS,ED,FRANK|
00004090: 2C 48 41 52 52 59 00 D0 48 6B 27 83 20 4A 41 43 |,HARRY..Hk'. JAC|
000040A0: 4B 2C 4A 45 46 46 2C 4A 49 4D 2C 4A 4F 45 2C 4A |K,JEFF,JIM,JOE,J|
000040B0: 4F 48 4E 2C 4B 45 4E 2C 4D 41 52 4B 2C 4D 49 4B |OHN,KEN,MARK,MIK|
000040C0: 45 2C 50 48 49 4C 2C 53 54 45 56 45 2C 54 4F 4D |E,PHIL,STEVE,TOM|
000040D0: 00 EA 48 74 27 81 49 B2 31 A4 32 30 3A 87 57 4F |..Ht'.I.1.20:.WO|
000040E0: 4D 45 4E 24 28 49 29 3A 82 49 00 23 49 7E 27 83 |MEN$(I):.I.#I~'.|
000040F0: 20 41 4C 49 43 45 2C 41 4E 4E 45 2C 43 41 52 4F | ALICE,ANNE,CARO|
00004100: 4C 2C 43 41 54 48 59 2C 44 4F 52 49 53 2C 45 49 |L,CATHY,DORIS,EI|
00004110: 4C 45 45 4E 2C 47 41 49 4C 2C 4A 41 4E 45 2C 4A |LEEN,GAIL,JANE,J|
00004120: 45 41 4E 00 64 49 7F 27 83 20 4A 4F 41 4E 2C 4A |EAN.dI.'. JOAN,J|
00004130: 4F 59 43 45 2C 4A 55 4C 49 45 2C 4B 41 54 45 2C |OYCE,JULIE,KATE,|
00004140: 4C 49 53 41 2C 4C 49 5A 2C 52 55 54 48 2C 53 41 |LISA,LIZ,RUTH,SA|
00004150: 4E 44 59 2C 53 48 45 52 52 59 2C 53 55 45 2C 57 |NDY,SHERRY,SUE,W|
00004160: 45 4E 44 59 00 89 49 92 27 9F 20 32 2C 38 2C 32 |ENDY..I.'. 2,8,2|
00004170: 2C 22 50 45 47 20 57 4F 52 44 53 22 3A 8B 20 53 |,"PEG WORDS":. S|
00004180: 54 20 A7 20 31 37 30 30 30 00 AC 49 9C 27 81 49 |T . 17000..I.'.I|
00004190: B2 31 A4 38 32 3A 84 32 2C 45 47 24 28 49 29 3A |.1.82:.2,EG$(I):|
000041A0: 8B 20 53 54 20 A7 20 31 37 30 30 30 00 B8 49 A1 |. ST . 17000..I.|
000041B0: 27 82 20 49 3A A0 20 32 00 D0 49 A6 27 81 49 B2 |'. I:. 2..I.'.I.|
000041C0: 31 A4 31 32 3A 87 50 45 47 24 28 49 29 3A 82 49 |1.12:.PEG$(I):.I|
000041D0: 00 09 4A B0 27 83 20 4A 41 4E 49 54 4F 52 2C 46 |..J.'. JANITOR,F|
000041E0: 45 52 52 59 42 4F 41 54 2C 4D 41 52 43 48 49 4E |ERRYBOAT,MARCHIN|
000041F0: 47 2C 41 50 45 2C 46 4C 4F 57 45 52 53 2C 42 52 |G,APE,FLOWERS,BR|
00004200: 49 44 45 2C 4A 45 57 45 4C 00 38 4A B1 27 83 20 |IDE,JEWEL.8J.'. |
00004210: 57 49 4E 44 20 47 55 53 54 2C 53 49 50 50 45 44 |WIND GUST,SIPPED|
00004220: 2C 4F 43 54 4F 50 55 53 2C 50 49 4C 47 52 49 4D |,OCTOPUS,PILGRIM|
00004230: 2C 53 4E 4F 57 4D 41 4E 00 4A 4A CC 29 8F 20 4D |,SNOWMAN.JJ.). M|
00004240: 55 53 49 43 20 53 54 55 46 46 00 57 4A D6 29 53 |USIC STUFF.WJ.)S|
00004250: 58 B2 35 34 32 37 32 00 79 4A E0 29 81 20 54 B2 |X.54272.yJ.). T.|
00004260: 31 20 A4 20 39 3A 87 20 48 46 25 28 54 29 2C 4C |1 . 9:. HF%(T),L|
00004270: 46 25 28 54 29 3A 82 20 54 00 B7 4A EA 29 83 20 |F%(T):. T..J.). |
00004280: 31 36 2C 31 39 35 2C 31 38 2C 32 30 39 2C 32 31 |16,195,18,209,21|
00004290: 2C 33 31 2C 32 32 2C 39 36 2C 32 35 2C 33 30 2C |,31,22,96,25,30,|
000042A0: 32 38 2C 34 39 2C 33 31 2C 31 36 35 2C 33 33 2C |28,49,31,165,33,|
000042B0: 31 33 35 2C 30 2C 30 00 BD 4A F4 29 8F 00 D2 4A |135,0,0..J.)...J|
000042C0: F8 2A 8F 20 52 45 41 44 20 46 49 4C 45 20 4E 41 |.*. READ FILE NA|
000042D0: 4D 45 00 0D 4B 02 2B 46 4C 4E 4D 24 B2 22 22 3A |ME..K.+FLNM$."":|
000042E0: 44 53 4B 24 B2 C7 28 C2 28 44 45 29 29 3A 8B 44 |DSK$..(.(DE)):.D|
000042F0: 53 4B 24 B3 B1 22 59 22 A7 46 4C 4E 4D 24 B2 22 |SK$.."Y".FLNM$."|
00004300: 4E 4F 4E 45 22 3A 89 20 31 31 38 39 30 00 36 4B |NONE":. 11890.6K|
00004310: 0C 2B 81 49 B2 31 A4 C2 28 4E 4D 29 3A 46 4C 4E |.+.I.1..(NM):FLN|
00004320: 4D 24 B2 46 4C 4E 4D 24 AA C7 28 C2 28 4E 4D AA |M$.FLNM$..(.(NM.|
00004330: 49 29 29 3A 82 49 00 4E 4B 72 2E 81 49 B2 30 A4 |I)):.I.NKr..I.0.|
00004340: 39 3A 87 50 49 54 43 48 28 49 29 3A 82 49 00 68 |9:.PITCH(I):.I.h|
00004350: 4B 73 2E 97 30 2C 50 49 54 43 48 28 B5 28 37 AC |Ks..0,PITCH(.(7.|
00004360: BB 28 31 29 29 AA 31 29 00 8E 4B 7C 2E 83 20 30 |.(1)).1)..K|.. 0|
00004370: 2C 31 33 33 2C 31 32 31 2C 31 30 37 2C 31 30 30 |,133,121,107,100|
00004380: 2C 39 30 2C 38 30 2C 37 30 2C 36 36 2C 31 00 94 |,90,80,70,66,1..|
00004390: 4B DF 2E 8E 00 AD 4B C8 32 8F 20 43 45 4E 54 45 |K.....K.2. CENTE|
000043A0: 52 2F 4F 55 54 20 57 49 50 45 4F 55 54 00 D5 4B |R/OUT WIPEOUT..K|
000043B0: D2 32 81 49 B2 31 A4 31 32 3A 97 33 34 2C 31 32 |.2.I.1.12:.34,12|
000043C0: AB 49 3A 97 33 35 2C 31 32 AA 49 3A 97 33 33 2C |.I:.35,12.I:.33,|
000043D0: 34 AA 33 AC 49 00 F5 4B D3 32 97 33 32 2C 32 34 |4.3.I..K.2.32,24|
000043E0: AB 32 AC 49 3A 99 C7 28 31 34 37 29 3B 3A 81 4A |.2.I:..(147);:.J|
000043F0: B2 31 A4 36 30 00 01 4C D4 32 82 4A 3A 82 49 3A |.1.60..L.2.J:.I:|
00004400: 8E 00 15 4C 80 3E 8F 20 4D 45 4C 4F 44 59 20 50 |...L.>. MELODY P|
00004410: 4C 41 59 45 52 00 27 4C 8A 3E 81 49 B2 31 A4 C3 |LAYER.'L.>.I.1..|
00004420: 28 46 49 4C 45 24 29 00 3D 4C 94 3E 58 B2 C5 28 |(FILE$).=L.>X..(|
00004430: CA 28 46 49 4C 45 24 2C 49 2C 31 29 29 00 75 4C |.(FILE$,I,1)).uL|
00004440: 9E 3E 97 20 53 58 AA 31 2C 48 46 25 28 58 29 3A |.>. SX.1,HF%(X):|
00004450: 97 20 53 58 2C 4C 46 25 28 58 29 3A 97 20 53 58 |. SX,LF%(X):. SX|
00004460: AA 34 2C 33 33 3A 53 45 43 B2 30 2E 31 30 3A 8D |.4,33:SEC.0.10:.|
00004470: 20 32 39 30 30 00 8D 4C 9F 3E 8B 20 51 4E B2 31 | 2900..L.>. QN.1|
00004480: 20 A7 20 97 20 53 58 AA 34 2C 30 3A 8E 00 A0 4C | . . SX.4,0:...L|
00004490: A8 3E 97 20 53 58 AA 34 2C 30 3A 82 20 49 3A 8E |.>. SX.4,0:. I:.|
000044A0: 00 B5 4C 68 42 8F 20 45 52 52 4F 52 20 48 41 4E |..LhB. ERROR HAN|
000044B0: 44 4C 49 4E 47 00 D2 4C 72 42 9E 20 34 39 31 35 |DLING..LrB. 4915|
000044C0: 35 3A 99 C7 28 31 34 37 29 3B 3A 84 31 2C 41 2C |5:..(147);:.1,A,|
000044D0: 42 24 00 0C 4D 86 42 59 B2 41 3A 8F 20 58 3D 50 |B$..M.BY.A:. X=P|
000044E0: 45 45 4B 28 32 31 38 29 2B 32 35 36 2A 50 45 45 |EEK(218)+256*PEE|
000044F0: 4B 28 32 31 39 29 52 45 4D 20 58 3D 4C 49 4E 45 |K(219)REM X=LINE|
00004500: 20 23 3B 59 3D 45 52 52 4F 52 20 23 00 2E 4D 9A | #;Y=ERROR #..M.|
00004510: 42 4C 24 B2 22 41 34 22 3A 8F 20 52 45 56 49 53 |BL$."A4":. REVIS|
00004520: 49 4F 4E 20 26 20 4C 45 53 53 4F 4E 20 23 00 62 |ION & LESSON #.b|
00004530: 4D A4 42 56 54 25 B2 32 3A 8D 33 30 31 30 30 3A |M.BVT%.2:.30100:|
00004540: 99 22 55 53 45 52 20 4E 41 4D 45 3A 20 22 3B C7 |."USER NAME: ";.|
00004550: 28 31 38 29 3B 46 4C 4E 4D 24 3B C7 28 31 34 36 |(18);FLNM$;.(146|
00004560: 29 3B 00 7A 4D AE 42 56 54 25 B2 34 3A 8D 33 30 |);.zM.BVT%.4:.30|
00004570: 31 30 30 3A 97 32 31 31 2C 30 00 9E 4D AF 42 99 |100:.211,0..M.B.|
00004580: C7 28 31 34 36 29 3B 22 41 4E 20 45 52 52 4F 52 |.(146);"AN ERROR|
00004590: 20 48 41 53 20 4F 43 43 55 52 45 44 21 22 00 D0 | HAS OCCURED!"..|
000045A0: 4D B8 42 56 54 25 B2 36 3A 8D 33 30 31 30 30 3A |M.BVT%.6:.30100:|
000045B0: 99 22 45 52 52 4F 52 20 43 4F 44 45 3A 20 23 22 |."ERROR CODE: #"|
000045C0: 3B 59 3B 22 20 20 20 20 20 22 3B 4C 24 3B 42 24 |;Y;" ";L$;B$|
000045D0: 00 F6 4D C2 42 56 54 25 B2 31 30 3A 8D 33 30 31 |..M.BVT%.10:.301|
000045E0: 30 30 3A 99 22 45 52 52 4F 52 20 4D 45 53 53 41 |00:."ERROR MESSA|
000045F0: 47 45 3A 20 22 3B 00 1B 4E CC 42 8B 59 B2 32 36 |GE: ";..N.B.Y.26|
00004600: A7 99 22 44 49 53 4B 20 49 53 20 57 52 49 54 45 |.."DISK IS WRITE|
00004610: 20 50 52 4F 54 45 43 54 45 44 22 00 3B 4E D6 42 | PROTECTED".;N.B|
00004620: 8B 59 B2 36 32 A7 99 22 46 49 4C 45 20 57 41 53 |.Y.62.."FILE WAS|
00004630: 20 4E 4F 54 20 46 4F 55 4E 44 22 00 5A 4E EA 42 | NOT FOUND".ZN.B|
00004640: 8B 59 B2 37 32 A7 99 22 59 4F 55 52 20 44 49 53 |.Y.72.."YOUR DIS|
00004650: 4B 20 49 53 20 46 55 4C 4C 22 00 7B 4E FE 42 56 |K IS FULL".{N.BV|
00004660: 54 25 B2 31 32 3A 8D 33 30 31 30 30 3A 97 32 31 |T%.12:.30100:.21|
00004670: 31 2C 30 3A 99 C7 28 31 38 29 3B 00 B0 4E FF 42 |1,0:..(18);..N.B|
00004680: 99 22 43 48 45 43 4B 20 54 48 41 54 20 54 48 45 |."CHECK THAT THE|
00004690: 20 41 50 50 52 4F 50 52 49 41 54 45 20 44 49 53 | APPROPRIATE DIS|
000046A0: 4B 22 3A 56 54 25 B2 31 34 3A 8D 33 30 31 30 30 |K":VT%.14:.30100|
000046B0: 00 E2 4E 00 43 99 22 49 53 20 50 52 4F 50 45 52 |..N.C."IS PROPER|
000046C0: 4C 59 20 49 4E 53 45 52 54 45 44 20 49 4E 20 44 |LY INSERTED IN D|
000046D0: 52 49 56 45 20 23 31 2E 22 3A 99 C7 28 31 34 36 |RIVE #1.":..(146|
000046E0: 29 3B 00 1E 4F 08 43 56 54 25 B2 32 34 3A 8D 33 |);..O.CVT%.24:.3|
000046F0: 30 31 30 30 3A 97 32 31 31 2C 30 3A 99 22 50 52 |0100:.211,0:."PR|
00004700: 45 53 53 20 3C 53 50 41 43 45 20 42 41 52 3E 20 |ESS <SPACE BAR> |
00004710: 54 4F 20 52 45 53 55 4D 45 2E 2E 2E 22 3B 00 28 |TO RESUME...";.(|
00004720: 4F 12 43 8D 39 35 31 35 00 40 4F 1C 43 89 31 31 |O.C.9515.@O.C.11|
00004730: 30 3A 8F 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 |0:. TO MAIN MENU|
00004740: 00 59 4F CC 6A 56 54 25 B2 32 31 3A 8D 33 30 31 |.YO.jVT%.21:.301|
00004750: 30 30 3A 97 32 31 31 2C 30 00 82 4F CD 6A 99 22 |00:.211,0..O.j."|
00004760: 59 4F 55 52 20 53 43 4F 52 45 3A 20 22 3B C7 28 |YOUR SCORE: ";.(|
00004770: 31 38 29 3B 53 43 AC 41 4E 53 3B C7 28 31 34 36 |18);SC.ANS;.(146|
00004780: 29 3B 00 A3 4F D6 6A 8B 41 4E 53 AC 53 43 B1 54 |);..O.j.ANS.SC.T|
00004790: 53 A7 54 53 B2 41 4E 53 AC 53 43 3A 97 32 31 31 |S.TS.ANS.SC:.211|
000047A0: 2C 31 39 00 D7 4F D7 6A 99 C7 28 37 29 3B C7 28 |,19..O.j..(7);.(|
000047B0: 37 29 3B 3A 53 45 43 B2 34 3A 46 49 4C 45 24 B2 |7);:SEC.4:FILE$.|
000047C0: 22 48 49 47 48 45 53 54 20 53 43 4F 52 45 3A 20 |"HIGHEST SCORE: |
000047D0: 22 AA C4 28 54 53 29 00 FB 4F D8 6A 97 20 32 31 |"..(TS)..O.j. 21|
000047E0: 34 2C 32 31 3A 99 22 20 9D 22 3B 3A 8D 33 30 30 |4,21:." .";:.300|
000047F0: 30 30 3A 99 C7 28 31 34 36 29 3B 00 2D 50 E0 6A |00:..(146);.-P.j|
00004800: 97 32 31 31 2C 31 39 3A 99 22 48 49 47 48 45 53 |.211,19:."HIGHES|
00004810: 54 20 53 43 4F 52 45 3A 20 22 3B C7 28 31 38 29 |T SCORE: ";.(18)|
00004820: 3B 54 53 3B 3A 99 C7 28 31 34 36 29 3B 00 39 50 |;TS;:..(146);.9P|
00004830: EA 6A 8D 39 35 30 30 3A 8E 00 4D 50 30 75 8F 20 |.j.9500:..MP0u. |
00004840: 46 4C 41 53 48 20 52 4F 55 54 49 4E 45 00 76 50 |FLASH ROUTINE.vP|
00004850: 3A 75 8F 20 53 54 52 49 4E 47 20 49 4E 20 46 49 |:u. STRING IN FI|
00004860: 4C 45 24 2C 20 54 49 4D 45 20 43 4F 55 4E 54 20 |LE$, TIME COUNT |
00004870: 49 4E 20 53 45 43 00 9D 50 44 75 56 54 25 B2 C2 |IN SEC..PDuVT%..|
00004880: 28 32 31 34 29 3A 48 54 25 B2 C2 28 32 31 31 29 |(214):HT%..(211)|
00004890: 3A 54 49 24 B2 22 30 30 30 30 30 30 22 00 D4 50 |:TI$."000000"..P|
000048A0: 4E 75 97 20 32 31 31 2C 48 54 25 3A 8D 20 33 30 |Nu. 211,HT%:. 30|
000048B0: 31 30 30 3A 99 22 12 22 3B 46 49 4C 45 24 3B 22 |100:.".";FILE$;"|
000048C0: 92 22 3B 3A 81 20 54 44 B2 31 20 A4 20 36 30 3A |.";:. TD.1 . 60:|
000048D0: 82 20 54 44 00 03 51 58 75 97 20 32 31 31 2C 48 |. TD..QXu. 211,H|
000048E0: 54 25 3A 8D 20 33 30 31 30 30 3A 99 46 49 4C 45 |T%:. 30100:.FILE|
000048F0: 24 3B 3A 81 20 54 44 B2 31 20 A4 20 36 30 3A 82 |$;:. TD.1 . 60:.|
00004900: 20 54 44 00 1B 51 62 75 8B 20 54 49 B3 53 45 43 | TD..Qbu. TI.SEC|
00004910: AC 36 30 20 A7 20 33 30 30 33 30 00 21 51 6C 75 |.60 . 30030.!Qlu|
00004920: 8E 00 34 51 94 75 8F 20 56 54 41 42 20 52 4F 55 |..4Q.u. VTAB ROU|
00004930: 54 49 4E 45 00 47 51 9E 75 8F 20 52 4F 57 20 23 |TINE.GQ.u. ROW #|
00004940: 20 49 4E 20 56 54 25 00 74 51 A8 75 58 58 25 B2 | IN VT%.tQ.uXX%.|
00004950: C2 28 32 31 31 29 3A 8F 20 50 49 43 4B 20 55 50 |.(211):. PICK UP|
00004960: 20 48 4F 52 49 5A 4F 4E 54 41 4C 20 50 4F 53 49 | HORIZONTAL POSI|
00004970: 54 49 4F 4E 00 85 51 B2 75 99 C8 28 56 54 24 2C |TION..Q.u..(VT$,|
00004980: 56 54 25 29 3B 00 A2 51 BC 75 97 32 31 31 2C 58 |VT%);..Q.u.211,X|
00004990: 58 25 3A 8F 20 52 45 53 54 4F 52 45 20 43 4F 4C |X%:. RESTORE COL|
000049A0: 20 23 00 A8 51 C6 75 8E 00 B9 51 F8 75 8F 20 45 | #..Q.u...Q.u. E|
000049B0: 4C 20 52 4F 55 54 49 4E 45 00 E6 51 0C 76 52 B2 |L ROUTINE..Q.vR.|
000049C0: C2 28 32 31 31 29 3A 4C B2 34 30 AB 52 3A 99 C8 |.(211):L.40.R:..|
000049D0: 28 45 4C 24 2C 4C 29 3B 22 91 22 3B 3A 97 20 32 |(EL$,L);".";:. 2|
000049E0: 31 31 2C 52 3A 8E 00 00 00 |11,R:.... |
....... LESSON #4:DATES.S...MU.49637:EL.
49637:GR.49152:ER.49637:. 53281,0:. 5328
0,0.....VT$."...........................
...":.".".....EL$."
".D...LD.49594....
.NM.49668:DE.49667:. 1,8,15..."..EG$(82)
...&..MSG$(12),MDY$(2,12),PEG$(12)./.*..
MNTH$(12),HF%(9),LF%(9).H....MEN$(20),WO
MEN$(20)._.2..TMP$(12),AFT$(12).V.6.. GM
$(10),BEF$(12)...:..S9$(24)...<..100...G
.. XX.1 . 10:.XX$:. XX...H.. 204,0.D.I..
C$:.C$."".73...K.C$.G(F(C$.ZE$).127):. 2
04,1:. 9600...L.....P.. SPECIAL INPUT RO
UTINE.7.Q.H.B(211).1:V.B(214).1:L$."":L.
12:. 83.J.R..72:. QN.1 . ..~.S.CX.F(C$.Z
E$):.CX.13..H(EL$,L.C(L$)):. 211,H.1:...
.T..CX..20.87...U.R$."X".I(L$,1).R$.G.V.
.L$."".H.H.1:L$.J(L$,1,C(L$).1)...W..CX.
29 .R$."".H.H.1:L$.L$.H(R$,1)...X..CX.32
.C$."":H.H.1:CX.0.(.Y..C(L$).C(C$).L..G
(7);:.82.D.Z..C$;:H.H.1:VT%.V:.30100.I.[
..211,H.1:L$.L$.C$:R$.J(R$,2):.82.{.D..1
3000:.10000...N.PGM$(1)."INTRODUCTION TO
LESSON #4":.ER:U$."".S.S.PGM$(2)."STUDY
/CHANGE PEG MONTHS"...X.PGM$(3)."REMEMBE
R MONTHS AND DAYS".(.}.PGM$(4)."REMEMBER
MONTHS, DAYS AND YEARS".O...PGM$(5)."RE
MEMBER NAMES AND DATES".....PGM$(6)."RET
URN TO MEMORY TRAINER MAIN MENU".....PGM
$(7)."QUIT FOR NOW".....MAX.7:.8000:QN.0
.T....C.160,170,340,550,730,7100,990...
.FILE$."D1":.7500:.110...... DISPLAY & A
LTER PEG-MONTHS.$....VV.0..7000:VV.1.5..
.. QN.1 . 110.J...FILE$."D2":.7500.[....
QN.1 . 110.....LMARGIN.2:LOW.1:HIGH.12:
.G(147);...H..I.1.12:MSG$(I).MNTH$(I):TM
P$(I).PEG$(I):.I...R.FILE$." STUDY AND
/OR CHANGE THE PEG MONTHS "......13000
:COL.2:AY.3:.2000...... QN.1 . 110......
3300.-.... QN.1 . 110.Q....I.1.12:. UPDA
TE THE PEG MONTHS.R....AFT$(I).."".PEG$(
I).AFT$(I).Y....I......I.1.12:AFT$(I).""
:.I.....XNUM.12:XMAX.12:.1500.....FILE$.
" ENTER THE CORRESPONDING PEG MONTH
"......I.1.12:BEF$(I).PEG$(RDR%(I)).!...
MSG$(I).MNTH$(RDR%(I)):.I.R."..I.1.12:TM
P$(I)."....":.I:U$."@":.2000:U$."".B.,..
3300:.3000.S.-.. QN.1 . 110...6.TMAX.12:
.3700:.C$."Y".190...7.. QN.1 . 110.B.@..
.((ANS..8).(DSK$."Y")).330...A.QUIT.2:SD
$."C":RW$."WRITE ":.7220:QUIT.0...B.. QN
.1 . 110...J..3800:.110./.T.. REMEMBERIN
G MONTHS & DAYS.D.^..VV.0..7000:VV.1.U._
.. QN.1 . 110.J.H.FILE$."D4":.7500.{.I..
QN.1 . 110...M.FILE$."OCTOPUS":.6600...
N.. QN.1 . 110...R.FILE$."D5":.7500.L.S.
. QN.1 . 110...W.FILE$."D6":.7500...X..
QN.1 . 110...|.KMAX.12:U$."@":PY.0:.1700
.,....4500:. GENERATE A DATE.H...XNUM.12
:XMAX.TMAX:.1500......I.1.TMAX:BEF$(I).M
NTH$(RDR%(I))." ".MDY$(1,RDR%(I)).....MS
G$(I)."(".D(I).")":.I.D....I.1.TMAX:TMP$
(I).PEG$(RDR%(I)):.I.Z....1000:U$."":.90
20...... QN.1 . 110. ....I.1.TMAX:MSG$(I
).MNTH$(RDR%(I)):TMP$(I)."..":.I.Q.B.FIL
E$."ENTER CORRESPONDING DAY OF THE MONTH
".V.L.LMARGIN.15:LOW.1:HIGH.TMAX:COL.1..
.M..TMAX.10.COL.2:LMARGIN.2...V.AY.3:.20
00...W.. QN.1 . 110......3300.N.... QN.1
. 110......I.1.TMAX.....BEF$(I).MNTH$(R
DR%(I))." ".MDY$(1,RDR%(I)).2...AFT$(I).
MNTH$(RDR%(I))." ".AFT$(I).D...MSG$(I)."
":.I.U....3000:.27340.F.... QN.1 . 110.|
....3700:.C$."Y".380...... QN.1 . 110...
...3800. ....110...&.. MONTHS, DAYS & YE
ARS.P.0..VV.0..7000:VV.1...1.. QN.1 . 11
0...:.FILE$."D7":.7500...;.. QN.1 . 110.
!.?.FILE$."SNOWMAN":.6600.2.@.. QN.1 . 1
10.G.D.FILE$."D8":.7500.X.E.. QN.1 . 110
.M.N.FILE$."D9":.7500.~.O.. QN.1 . 110..
.X.KMAX.12:U$."":.1700...Y.. QN.1 . 110.
I.B..4500:. RANDOM DATE GENERATOR...L..I
.1.TMAX:TMP$(I).PEG$(RDR%(I))...M.MSG$(I
).MNTH$(RDR%(I)):RDR%(I).I:.I...V..1000.
0.W.. QN.1 . 110.W.{.. I.1 . TMAX:TMP$(I
).".. ....":. I.....FILE$."ENTER THE COR
RECT DAY & YEAR".....LMARGIN.15:LOW.1:HI
GH.TMAX:COL.1.B....TMAX.10.COL.2:LMARGIN
.2.Q...AY.3:.2000...... QN.1 . 110......
I.1.TMAX:BEF$(I).MDY$(1,I).",".MDY$(2,I)
:.I.2....4830:. REBUILD DAY & YEAR.[....
I.1.TMAX:TMP$(I).MDY$(0,RDR%(I)):.I.L...
.3000:.27340.}.... QN.1 . 110...A..3700:
.C$."Y".600...B.. QN.1 . 110...F..3800:.
LOSERS MESSAGE.H.P..110...Z.. REMEMBERI
NG NAMES & DATES......VV.0..7000:VV.1...
... QN.1 . 110.$...FILE$."D10":.7500.5..
.. QN.1 . 110.L...FILE$."D11":. 7500.]..
.. QN.1 . 110.W...FILE$."GORILLA":.6600.
..... QN.1 . 110.....FILE$."D12":.7500..
.... QN.1 . 110.D...FILE$."D9":.7500.U..
.. QN.1 . 110.....XMAX.12:XNUM.40:.1500.
.....I.1.12.$....RDR%(I)..20.MSG$(I).WOM
EN$(RDR%(I)).M. ..RDR%(I).20.MSG$(I).MEN
$(RDR%(I).20).T.*..I.Y.4.KMAX.10:U$."":.
1700:. QN.1 . 110...>..4500:. RANDOM DAT
E GENERATOR.I.H..I.1.TMAX:BEF$(I).MSG$(I
)." ... ".BEF$(I)...I.TMP$(I).PEG$(RDR%(
I)):RDR%(I).I:.I...R..1000:. QN.1 . 110.
..\..I.1.TMAX.D.F.BEF$(I).I(BEF$(I),C(BE
F$(I)).C(MSG$(I)).5).A.P.TMP$(I)."... ..
....":.I..Z.XMAX.KMAX:XNUM.KMAX:.1500.
....FILE$."ENTER THE 'MONTH DAY,YEAR'".O
...LMARGIN.8:LOW.1:HIGH.TMAX:AY.6:COL.1.
.....2000:. DISPLAY NAMES ONLY (FOUND IN
MSG$)...... QN.1 . 110.0....I.1.KMAX:TM
P$(I).MSG$(I):.I.`....4600:.3000:.27340:
. REBUILD MONTH DAY,YEAR.Q.... QN.1 . 11
0.....TMAX.5:.3700:.C$."Y".770...... QN.
1 . 110......3800:. LOSERS MESSAGE.C....
110......13000:VT%.8:.30100:."YOU HAVE J
UST EXITED":.G(18);.<...VT%.10:. 30100:.
211,0:."THE EINSTEIN MEMORY TRAINER";:.
".";.M....".":VT%.12:.30100:."THANK YOU
FOR PLAYING!".....VT%.22:.30100:.......
WORD DISPLAY.V....G(147);:. 211,9:VT%.13
:.30100:FILE$."GET READY TO BE TESTED"..
.... 211,9:SEC.4:.30000:.G(146);.$...VT%
.12:.30100:.211,0:.30200:SEC.2:.2900.3..
.. QN.1 . ..Y.... DISPLAY CONCRETE/ABSTR
ACT WORDS.G....I.1.TMAX. .$.VT%.10:.3010
0:.211,8:.G(18);" "
.V...VT%.14:.30100:.211,8:.".
.";...8..211,0:VT%.12:.30100:
.MU...9....((40.C(BEF$(I))).2));BEF$(I);
:.30200.2.B..PROMPT.1.1110.Y.L.VT%.19:.3
0100:.211,0:FILE$.TMP$(I)...M..2990:VT%.
19:.30100:.211,0:."PEG MONTH:"...V..PW.1
.1130...`.VT%.21:.30100:.211,0.V.A.FILE$
.EG$(E(MDY$(1,RDR%(I)))):.2990...B.VT%.2
1:.30100:.211,0:."PEG DAY:"...J..(U$."@"
).(PY.1).1150...T.VT%.23:.30100:.211,0.[
.U.FILE$.EG$(E(I(MDY$(2,RDR%(I)),2))):.2
990...V.VT%.23:.30100:.211,0:."PEG YEAR:
"...~.SEC.DTIME:.2900..... QN.1 . ..D..
.VT%.12:.30100:.211,0:.30200.....VT%.23:
.30100:.211,0:.30200:VT%.21:.30100......
30200:VT%.19:.30100:.30200:SEC.1:.2900.-
.... QN.1 . ..4....I.:.....V.... RANDOM
ORDER SELECTOR.N...RDR%(1).XNUM..(1).1.|
....I.2.XMAX.....RDR%(I).XNUM..(1).1....
..J.1.I.1.P....RDR%(I).RDR%(J).1530:. GE
T A NEW RANDOM #.Z....J:.I...?........ M
EMORY OPTION SELECT.8 ...G(147);:FILE$."
SET MEMORY PRACTICE OPTIONS "
.S ...G(18);:.2990:.G(146);.K ..VT%.4:.3
0100:.211,0. ..."NUMBER OF DATES (5 TO
";KMAX;")........";.37);.. B.. 72:.80:TM
AX.E(L$):.211,0.N C.. QN.1 . ... L..TMAX
..KMAX.TMAX..5.1750.-!M..".";:VT%.6:.301
00:.G(7);"INVALID ENTRY! PLEASE ENTER AG
AIN";.G!N..G(146);:.30200:.1720.Y!V.VT%.
6:.30100:."HELP WITH PEG WORDS--";:.3020
0..!X.VT%.8:.30100:.211,3..!Y.."FOR MONT
HS: (Y)ES OR (N)O......";.38);.J!Z..72:.
C$.Y!... QN.1 . ...!...C$."Y".PROMPT.0:.
1772.."...C$."N".PROMPT.1:.1772.."...175
0.2"..VT%.10:.30100:.211,3._"..."FOR DAY
S: (Y)ES OR (N)O......";.38);.V"...72:
.C$:. QN.1 . ..."...C$."Y".PW.0:.1781.."
...C$."N".PW.1:.1781.."...1772.V"...U$."
@".PY.0:.1790:. SKIP PEG YEARS.."..VT%.1
2:.30100:.211,3..#..."FOR YEARS: (Y)ES
OR (N)O......";.38);.3#...72:.C$:. QN.1
. ..J#...C$."Y".PY.0:.1790.A#...C$."N".P
Y.1:.1790.K#...1782..#..VT%.14:.30100:.2
11,0..#..."DISPLAY SPEED: (1)SLOW TO (4)
FAST...";.38);.J#...72:.C$:X.E(C$).Y#...
QN.1 . ...#...(X.4).(X.0).1790..#..DTIM
E.44.X..$..TYPE.1..$0.SC.10.((2.PR).(3.P
W).(4.PY).1).X.N$5..U$."@".SC.10.(2.PW.P
R.1).X..$:.VT%.17:.30100:."SCORE FOR EAC
H CORRECT ANSWER ......";..$;...36);G(18
);SC;G(146);:.30200.D$D.VT%.21:.30100:.2
11,0..$E.."ARE THESE THE OPTIONS YOU WAN
T? (Y/N) ";:.72:.C$..%F.. QN.1 . ...%N..
C$."Y".1899.-%X..C$.."N".1860.7%B..1720.
=%K...]%P.. UNTIMED KEYBOARD RETRIEVE.}%
Z.K.LOW:PRT.1:QUIT.0:.G(147);..%..C$."":
.I.LOW.HIGH:AFT$(I).""..%...I:.XX.1.10:.
XX$:.XX.R%...G(18);:.2990:.G(146);..%..D
FR.(HIGH.LOW.1).2:.COL.1.DFR.HIGH.1..&..
OFFSET..((HIGH.LOW).2).&&...I.LOW.HIGH.C
&..AH.LMARGIN:. AH.1 . AH.1.C&...(I.LOW)
..DFR.AH.LMARGIN.20.V& .AV.2.(I.LOW).3..
&!..(I.LOW)..DFR.AV.2.(I.LOW.OFFSET).1..
&*.VT%.AV:.30100:.211,AH.1.Y&+..MSG$(I);
.AH.AY.4);TMP$(I)..&4..I..'>.VT%.22:.301
00:.I.0.7:."-----";:.I.+'H.VT%.23:.30100
:.G(18);"^";G(146);.G'I.." FOR PREVIOUS
LINE; ".~'R.VT%.24:.30100:."PRESS <RETUR
N> AFTER EACH ENTRY.";..'\..PRT.1..2400.
.'F.. 73:XX$.C$:X.F(XX$.ZE$)..'G.. QN.1
. ...'P.. X.32 .2280:. CONTINUE TIMING..
(Z..(X.17).2220:. RIGHT ARROW OR DOWN AR
ROW./(...X.42.QUIT.1:.2220:. ESCAPE KEY.
Q(...X.13 .2220:. CARRIAGE RETURN.J(...(
X.94 )..2500:.2240..(... BACK ARROW OR U
P ARROW..(... X.48 . 2280:. CONTINUE TIM
ING..(...80:AFT$(K).L$.M(... QN.1 . ...)
..VT%.AV:.30100:.211,AH.1:.MSG$(K);H(EL$
,AH.AY.4.B(211));.7)....(U$."@".H(BEF$(K
),3).H(AFT$(K),3)).2230.Z)...BEF$(K);"
":AFT$(K).BEF$(K).|)..K.K.1:.QUIT.1.K.H
IGH.1:QUIT.0..)..PRT.1..)J.. MU..)T..XX.
1.10:.XX$:.XX:. RESET STROBE.F)...K.HIGH
..2310.W)...C$."Y".2300..)...2140:. BACK
TO THE TOP..)...".":...*... ANY MORE CH
ANGES?.!*..K.HIGH.`*... 211,0:VT%.25:.30
100:."..";H(EL$,39);:. TO-END-OF-LINE
.}*$.VT%.24:.30100:.211,0:.MU..*%.."ARE
YOU FINISHED MAKING ENTRIES? (Y/N) ";.K*
..VT%.24:.30100:.211,38:.72.Z*/.. QN.1 .
...+8..C$."Y".2390:. RETURN TO MAIN POR
TION OF SUBROUTINE.*+=..C$.G(17).K.1:.23
80.D+B..C$."N".C$.G(94).2380.N+G..2350..
+L..211,0:VT%.25:.30100:."..";:.G(18);"^
";G(146);..+M.." FOR PREVIOUS LINE;":. 2
11,0..+Q.VT%.24:.30100:."MAKE CHANGES AN
D RETURN PAST LAST ENTRY.";..+V....,`..
HIGHLIGHT NEXT LINE..,J.AH.LMARGIN.2,T..
(K.LOW)..DFR.AH.LMARGIN.20.E,~.AV.2.(K.L
OW).3.M,..(K.LOW)..DFR.AV.2.(K.LOW.OFFS
ET).1. ,..VT%.AV:.30100:.211,AH.1:.G(18)
;MSG$(K);G(146);..,....AH.AY);"--> ";..,
..PRT.0.E,.....,D.. BACKSPACE HANDLER..-
N.VT%.AV:.30100:.211,AH.1:.MSG$(K);.%-X.
.H(EL$,AH.AY.4.B(211));:K.K.1.Q-...K.LOW
.K.LOW:. PREVENT OFF-SCREEN ERROR.W-....
.-T.SEC.SEC.(2.(SEC.0)):.X.1.SEC.30:.C$:
. 9600:.X:...-... CENTER STRING.I-.....(
(40.C(FILE$)).2));FILE$;:.211,0:...-...
RECALL TESTER...B.ANS.0:. ZERO THE # OF
CORRECT ANSWERS...L..13000.5.V..3300:. R
EMOVE TRAILING BLANKS._.... DISPLAY CORR
ECT & INCORRECT ANSWERS.....FILE$." Y
OUR TEST RESULTS ":.G(18);:.2990:.G(1
46);.K...VT%.3:.30100:.211,8:."CORRECT";
.11);"YOUR".....VT%.4:.30100:..8);"RESPO
NSE";.24);"RESPONSE"../...I.0.7:."-----"
;:.I:..&/...I.LOW.HIGH.`/...BEF$(I)."".B
EF$(I)." ":. SKIP THIS ONE IF IT'S BLANK
.V/&..MSG$(I);:. 211,8../0..BEF$(I).AFT$
(I)..H(BEF$(I),18);:ANS.ANS.1:. 3140.M/;
..G(18);H(BEF$(I),18);G(146);../D..211,2
3:.H(AFT$(I),16)../N..I..0X.X..(100.ANS.
(HIGH.LOW.1).0.5).<0B..:."YOU REMEMBERED
";G(18);ANS;G(146);.J0C.." CORRECTLY, O
R ";G(18);X;".";"%"G(146);.T0L..9500.Z0.
....0... REMOVE TRAILING BLANKS IN AFT$.
.0...I.LOW.HIGH.L0..X.C(AFT$(I)).1:.X.0.
3350..0...I(AFT$(I),1)." ".AFT$(I).H(AFT
$(I),X):.3320..1...H(AFT$(I),1)." ".AFT$
(I).I(AFT$(I),X):.3320.51...I.;1G...S1T.
. WINNER'S MESSAGES.J1~..ANS.0.7.TMAX.37
90. 1...G(147);:VT%.9:.30100:FILE$."--CO
NGRATULATIONS--".L1...2990:.:.:FILE$."YO
UR PERFORMANCE WAS "..1...ANS.TMAX.FILE$
.FILE$."PERFECT!!":.3760.*2...ANS..0.9.T
MAX.FILE$.FILE$."EXCELLENT!":.3760.\2...
ANS..0.8.TMAX.FILE$.FILE$."VERY GOOD!":.
3760..2...ANS..0.7.TMAX.FILE$.FILE$."GOO
D. KEEP IT UP!"..2...2990:FILE$."8786878
5878487835654"..2...16000:FILE$."5653565
293949596979981":.16000..2...9500..3...
QN.1 . ...3N..G(147);:VT%.12:.30100.J3O.
."DO YOU WANT TO BE TESTED AGAIN? (Y/N)
";.G3S..72:.(C$."Y").(C$."N")...V3T.. QN
.1 . ...3W..3795..3X.. LOSER'S MESSAGE..
3...ANS..0.7.TMAX...E3..FILE$."FAILURE":
.7500.K3.....3... DATE GENERATOR..3..XNU
M.30:XMAX.12:.1500..4...I.1.12.04..A$.D(
RDR%(I)):MDY$(1,I).I(A$,C(A$).1).S4...I.
2.RDR%(I).29.MDY$(1,I)."29".Z4...I..4..X
NUM.12:XMAX.KMAX:.1500:. RANDOM ORDER SE
LECTOR..4...I.1.TMAX:. BUILD DISPLAYED S
TRING..4..A$.D(.(81..(1)).1901):. YEARS
FROM 1901-1982..5..MDY$(2,I).I(A$,C(A$).
1)..5..MDY$(0,I).MNTH$(RDR%(I)).V5A.BEF$
(I).H(MDY$(0,I),3)." ".MDY$(1,I).",".MDY
$(2,I).]5F..I.C5K....5... REBUILD MONTH,
DAY,YEAR..5...3300:. REMOVE PRECEDING &
TRAILING BLANKS.L5...I.1.TMAX:. GET THE
YEAR..5...AFT$(I)."".MDY$(2,I)."":.4670.
.6 .MDY$(2,I).I(AFT$(I),4).26*.OFFSET.0:
X.C(AFT$(I)):.X.4.OFFSET.4.R64.AFT$(I).H
(AFT$(I),X.OFFSET).Y6>..I..6H..3300:. RE
MOVE BLANKS FROM REMAINDER OF AFT$..6R..
I.1.KMAX:. GET THE DATE.J6\..AFT$(I)."".
MDY$(1,I)."":.4750..6F..I(AFT$(I),1)..",
".AFT$(I).AFT$(I).","..7P.MDY$(1,I).I(AF
T$(I),3).%7Z.X.C(MDY$(1,I)).1.X7....(H(M
DY$(1,I),1).".".H(MDY$(1,I),1)." ").4750
.U7..MDY$(1,I).I(MDY$(1,I),X).|7...I..7.
..I.1.TMAX:. GET THE MONTH..7..MDY$(0,I)
.H(AFT$(I),3)..7...I..7...I.1 . TMAX:. R
EBUILD THE STRING..8..AFT$(I).MDY$(0,I).
" ".MDY$(1,I).MDY$(2,I)..8J..I..8T...58.
.. REBUILD DAY & YEAR.D8...3300:. REMOVE
PRECEDING & TRAILING BLANKS..8...I.1.TM
AX:. GET THE YEAR..8..X.C(AFT$(I)):.X..4
.MDY$(2,I)."":.4890.F8..MDY$(2,I).I(AFT$
(I),4)..8..AFT$(I).H(AFT$(I),X.4)..8...I
..8$..3300..9...I.1.TMAX.#98..AFT$(I).""
.MDY$(1,I)."":.4950.Q9B..I(AFT$(I),1).",
".MDY$(1,I).AFT$(I):.4950.Y9L.MDY$(1,I).
AFT$(I).",":. ADD A COMMA..9V..I..9`.. I
.1 . TMAX:. REBUILD THE STRING.F9J.AFT$(
I).MDY$(1,I).MDY$(2,I).M9T..I.S9~....9D.
. HIRES DISPLAYER..9N..G(147);:. 6550:.)
:X.. 49158:. 49152:.:. CALL UNCOMP/RASTE
R.C:... LOAD IN BINARY FILE.]: .FS.LD.3:
. FS,C(FILE$)..:... T.1 . C(FILE$):. FS.
T,F(J(FILE$,T,1)):. T..:... LD:...:H.. P
ICTURE DISPLAY.F:R..6500:.9500:. 49155.U
:...G(147);:...:X.. PERSONAL DISK SECTIO
N..;B..DSK$.."Y"..:. SUBJECT HAS NO DISK
FILE.=;L.RW$."READ ":SD$."C":.7200:..Z;
... WRITE TO PERSONAL DISK.Y;F.RW$."WRIT
E ":SD$."A":.7450..;Z..13000:FILE$."LOAD
ING MEMORY TRAINER MAIN MENU":VT%.10.X;.
..30100:.2990:. "INTRODUCTION",8..;...11
0:. JUST IN CASE..< .. READ/WRITE TO DIS
K.4<*..DSK$.."Y".QUIT.0:.7430:. NO DISK
FILE.Z<4.C$."UPDATE":.RW$."READ ".C$."US
E".U<>..G(147);:VT%.10:.30100. <?.."DO Y
OU WANT TO ";C$;" THE PEG WORDS".T<H.VT%
.12:.30100:."ON YOUR PERSONAL DISK? (Y/N
) ";..<I..71:.C$..<J.. QN.1 . ...=R..C$.
"Y".7290.(=\..(C$."N").((SD$."QUIT").(QU
IT.2))...C=].. QUIT FOR NOW SECTION.A=F.
.(C$."N").(RW$."READ ")....=K..(C$."N").
(RW$."WRITE ").7450..=P..7240:. DEFAULT.
.=Z..G(147);:VT%.10:.30100:.MU..={.."INS
ERT YOUR ";G(18);"PERSONAL DISK";..=|..G
(146);" INTO DRIVE #1.".6>.VT%.15:.3010
0:.211,0:."(PRESS <CTRL-C> TO CANCEL)".@
>...9500.O>... QN.1 . ..U>...XX.1.10:.XX
$:.XX:.G(147);:VT%.12..>...30100:FILE$."
USING YOUR PERSONAL DISK":.2990..>... AC
TUAL DISK ACCESS..?... PRINTD$;"READ ";F
LNM$:REM 1ST CHECK TO SEE IF THE FILE IS
THERE..?... PRINTD$;"CLOSE".X?...RW$.."
READ ".7390:. ALSO HAVE TO READ IN ALL P
EG WORDS..?... 2,8,2,FLNM$.".WRD,SEQ,R":
. ST . 17000..?.....?J..2,PLMAX:. ST . 1
91 . 17000.E?T..I.1 . 60:.2,EG$(I):.I.M?
Y. 2..@... RW$."READ " . . 2,8,2,FLNM$.
".MNT,SEQ,R":. ST . 17000.K@... RW$."WRI
TE " . . 2,8,2,"@:".FLNM$.".MNT,SEQ,W":.
ST . 17000.|@...RW$."WRITE ".PLMAX.10:.
2,PLMAX:. ST . 17000..@...RW$."READ ". .
2,PLMAX:. ST . 17000..@...I.1 .12.M@...R
W$."READ "..2,PEG$(I)..A... RW$."WRITE "
. A$.PEG$(I):. A$."" . A$."XXX"..A...RW
$."WRITE "..2,A$.#A...I: 2.5A...SD$."QU
IT"...TA...G(147);:VT%.10:.30100:.MU..A.
.."BE SURE MEMORY TRAINER ";G(18);"DISK
";SD$;G(146).EA..VT%.12:.30100:."IS PROP
ERLY INSERTED INTO DRIVE #1."..A..VT%.16
:.30100:."(PRESS <CTRL-C> TO CANCEL)"..B
$..9500:...BL.. TEXT FILE SCREEN WRITER.
:B`.. 2,8,2,FILE$:.G(147);.FBJ..I.1.24.I
BT..2,S9$(I):. ST.19 . ST..64 . ..UB~..
I: 2..B...G(147);G(18);..B..FILE$."THE
EINSTEIN MEMORY TRAINER: LESSON #4".MB..
.2990:.G(146).YB...I.2.22..B...S9$(I):.I
..C..SEC..5:.2900:VT%.24:.30100:.S9$(23)
;..C...9515.:C...XX.1.10:.XX$:.XX:.13000
:..NC@.. MENU SELECTOR.MCJ..G(147);:.XX.
1.10:.XX$:.XX..CT.FILE$." THE EINSTE
IN MEMORY TRAINER ":.G(18);..CU..299
0:.G(146);..C^.VT%.24:.30100:."FILE NAME
: ";G(18);FLNM$;G(146);..DH.VT%.4:.30100
:.211,0.4DI.FILE$."LESSON #4: IMPORTANT
DATES":.2990.EDR..I.65.64.MAX.PD|.S.I.64
.UD..VT%.S.6:.30100:.G(I)" : "PGM$(S).}D
...:...D...PV$."".8110.KD..VT%.20:.30100
:."(YOUR PREVIOUS SELECTION WAS '";PV$;"
')"..E..VT%.18:.30100:."SELECT OPTION: "
;:.30200:. CLEAR TO EOL..E...72:C.F(C$):
AN$.C$.6EL..C.65.C.64.MAX.8120.CEV..:C.C
.64.OE..VT%.C.6:.30100:.G(18);AN$;G(146)
;" : ";..E...G(18);PGM$(C)G(146).EE..VT%
.18:.30100:."IS THIS THE SELECTION YOU W
ANT? (Y/N) ";..E...72:.C$.."Y".C$.."N"..
B$;:.8180..F...C$:.C$.."N".PV$.AN$:.8210
.2F. VT%.C.6:.30100:.AN$" : "PGM$(C):.81
10.8F. ..LF(#. BUBBLE SORTER.WF2#.13000.
EF<#.J.1.TMAX.UFF#.I.1.TMAX.1..FP#.RDR%(
I).RDR%(I.1).9080..FZ#TEMP.RDR%(I)..FD#R
DR%(I).RDR%(I.1).KFN#RDR%(I.1).TEMP.WFX#
.I:.J:...F.%. WAIT FOR SPACE BAR./G&%VT%
.24:.30100:. 211,0:."PRESS <SPACE BAR> T
O CONTINUE...";.EG+%.XX.1.10:.XX$:.XX.XG
0%.73:. QN.1 . ..JG5%.C$.." ".9520.PG:%.
..G.%. C$.G(3) . . 204,1:PV$."":. 49155:
QN.1..G.%...G.'. INITIALIZATION.OG.'.RDR
%(20),PITCH(10)..G$'KMAX.12:HIGH.KMAX:LO
W.1:D$.G(13).G(4)..H.'.I.1.12:.MNTH$(I):
.I.HH8'. JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG
,SEP,OCT,NOV,DEC.`H`'.I.1.20:.MEN$(I):.I
..HJ'. BILL,BOB,BRUCE,CHUCK,DAVE,DENNIS,
ED,FRANK,HARRY.PHK'. JACK,JEFF,JIM,JOE,J
OHN,KEN,MARK,MIKE,PHIL,STEVE,TOM..HT'.I.
1.20:.WOMEN$(I):.I.#I~'. ALICE,ANNE,CARO
L,CATHY,DORIS,EILEEN,GAIL,JANE,JEAN.DI'
. JOAN,JOYCE,JULIE,KATE,LISA,LIZ,RUTH,SA
NDY,SHERRY,SUE,WENDY..I.'. 2,8,2,"PEG WO
RDS":. ST . 17000..I.'.I.1.82:.2,EG$(I):
. ST . 17000..I.'. I: 2.PI.'.I.1.12:.PE
G$(I):.I..J.'. JANITOR,FERRYBOAT,MARCHIN
G,APE,FLOWERS,BRIDE,JEWEL.8J.'. WIND GUS
T,SIPPED,OCTOPUS,PILGRIM,SNOWMAN.JJL). M
USIC STUFF.WJV)SX.54272.YJ.). T.1 . 9:.
HF%(T),LF%(T):. T..J.). 16,195,18,209,21
,31,22,96,25,30,28,49,31,165,33,135,0,0.
.J.)..RJ.*. READ FILE NAME..K.+FLNM$."":
DSK$.G(B(DE)):.DSK$.."Y".FLNM$."NONE":.
11890.6K.+.I.1.B(NM):FLNM$.FLNM$.G(B(NM.
I)):.I.NKR..I.0.9:.PITCH(I):.I.HKS..0,PI
TCH(.(7..(1)).1)..K|.. 0,133,121,107,100
,90,80,70,66,1..K.....KH2. CENTER/OUT WI
PEOUT.UKR2.I.1.12:.34,12.I:.35,12.I:.33,
4.3.I..KS2.32,24.2.I:.G(147);:.J.1.60..L
T2.J:.I:...L.>. MELODY PLAYER.'L.>.I.1.C
(FILE$).=L.>X.E(J(FILE$,I,1)).UL.>. SX.1
,HF%(X):. SX,LF%(X):. SX.4,33:SEC.0.10:.
2900..L.>. QN.1 . . SX.4,0:.. L.>. SX.4
,0:. I:...LHB. ERROR HANDLING.RLRB. 4915
5:.G(147);:.1,A,B$..M.BY.A:. X=PEEK(218)
+256*PEEK(219)REM X=LINE #;Y=ERROR #..M.
BL$."A4":. REVISION & LESSON #.BM.BVT%.2
:.30100:."USER NAME: ";G(18);FLNM$;G(146
);.ZM.BVT%.4:.30100:.211,0..M.B.G(146);"
AN ERROR HAS OCCURED!".PM.BVT%.6:.30100:
."ERROR CODE: #";Y;" ";L$;B$..MBBVT%
.10:.30100:."ERROR MESSAGE: ";..NLB.Y.26
.."DISK IS WRITE PROTECTED".;NVB.Y.62.."
FILE WAS NOT FOUND".ZN.B.Y.72.."YOUR DIS
K IS FULL".{N.BVT%.12:.30100:.211,0:.G(1
8);..N.B."CHECK THAT THE APPROPRIATE DIS
K":VT%.14:.30100..N.C."IS PROPERLY INSER
TED IN DRIVE #1.":.G(146);..O.CVT%.24:.3
0100:.211,0:."PRESS <SPACE BAR> TO RESUM
E...";.(O.C.9515.@O.C.110:. TO MAIN MENU
.YOLJVT%.21:.30100:.211,0..OMJ."YOUR SCO
RE: ";G(18);SC.ANS;G(146);..OVJ.ANS.SC.T
S.TS.ANS.SC:.211,19.WOWJ.G(7);G(7);:SEC.
4:FILE$."HIGHEST SCORE: ".D(TS)..OXJ. 21
4,21:." .";:.30000:.G(146);.-P.J.211,19:
."HIGHEST SCORE: ";G(18);TS;:.G(146);.9P
.J.9500:..MP0U. FLASH ROUTINE.VP:U. STRI
NG IN FILE$, TIME COUNT IN SEC..PDUVT%.B
(214):HT%.B(211):TI$."000000".TPNU. 211,
HT%:. 30100:.".";FILE$;".";:. TD.1 . 60:
. TD..QXU. 211,HT%:. 30100:.FILE$;:. TD.
1 . 60:. TD..QBU. TI.SEC.60 . 30030.!QLU
..4Q.U. VTAB ROUTINE.GQ.U. ROW # IN VT%.
TQ.UXX%.B(211):. PICK UP HORIZONTAL POSI
TION..Q.U.H(VT$,VT%);..Q.U.211,XX%:. RES
TORE COL #..QFU...Q.U. EL ROUTINE..Q.VR.
B(211):L.40.R:.H(EL$,L);".";:. 211,R:...
.
> CLICK IMAGE PREVIEW FOR FULL MODAL