LESSON6
FILE INFORMATION
FILENAME(S): LESSON6
FILE TYPE(S): PRG
FILE SIZE: 12.8K
FIRST SEEN: 2025-12-02 23:10:29
APPEARS ON: 1 disk(s)
FILE HASH
3cfe44fd3c1721d4f9f940658f5111237f2e66b77c7e261cd36af54717de8758
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES XLII | LESSON6 | PRG | swasti, chrisbitti1 | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 01 00 8F 20 2C 59 59 3A 52 45 4D 20 |....... ,YY:REM |
00000010: 52 45 53 54 4F 52 45 20 43 4F 4C 00 36 08 0A 00 |RESTORE COL.6...|
00000020: 8F 20 4C 45 53 53 4F 4E 20 23 36 3A 4D 45 4D 4F |. LESSON #6:MEMO|
00000030: 52 59 20 4D 49 58 00 5A 08 22 00 86 52 43 4C 24 |RY MIX.Z."..RCL$|
00000040: 28 34 2C 32 30 29 2C 4D 44 59 24 28 33 2C 32 30 |(4,20),MDY$(3,20|
00000050: 29 3A 5A 45 24 B2 C7 28 30 29 00 A3 08 26 00 86 |):ZE$..(0)...&..|
00000060: 42 45 46 24 28 32 30 29 2C 41 46 54 24 28 32 30 |BEF$(20),AFT$(20|
00000070: 29 3A 56 54 24 B2 22 13 11 11 11 11 11 11 11 11 |):VT$.".........|
00000080: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000090: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000A0: 11 11 22 00 D4 08 2A 00 86 4D 4E 54 48 24 28 31 |.."...*..MNTH$(1|
000000B0: 32 29 2C 4D 45 4E 24 28 32 30 29 2C 57 4F 4D 45 |2),MEN$(20),WOME|
000000C0: 4E 24 28 32 30 29 2C 48 46 25 28 39 29 2C 4C 46 |N$(20),HF%(9),LF|
000000D0: 25 28 39 29 00 F1 08 2D 00 97 20 35 33 32 38 30 |%(9)...-.. 53280|
000000E0: 2C 30 3A 97 20 35 33 32 38 31 2C 30 3A 99 22 05 |,0:. 53281,0:.".|
000000F0: 22 00 11 09 32 00 86 4D 53 47 24 28 32 30 29 2C |"...2..MSG$(20),|
00000100: 54 4D 50 24 28 32 30 29 3A 4C 44 B2 34 39 35 39 |TMP$(20):LD.4959|
00000110: 34 00 60 09 36 00 86 20 47 4D 24 28 31 30 29 3A |4.`.6.. GM$(10):|
00000120: 45 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |EL$." |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 4D | ":M|
00000150: 55 B2 34 39 36 33 37 3A 47 52 B2 34 39 36 33 37 |U.49637:GR.49637|
00000160: 00 9A 09 3A 00 86 53 39 24 28 32 34 29 3A 45 52 |...:..S9$(24):ER|
00000170: B2 34 39 36 33 37 3A 4E 4D B2 34 39 36 36 38 3A |.49637:NM.49668:|
00000180: 45 4C B2 34 39 36 33 37 3A 44 45 B2 34 39 36 36 |EL.49637:DE.4966|
00000190: 37 3A 9F 20 31 2C 38 2C 31 35 00 A3 09 3C 00 89 |7:. 1,8,15...<..|
000001A0: 31 30 30 00 B9 09 47 00 81 59 59 B2 31 A4 31 30 |100...G..YY.1.10|
000001B0: 3A A1 58 58 24 3A 82 59 59 00 C5 09 48 00 97 20 |:.XX$:.YY...H.. |
000001C0: 32 30 34 2C 30 00 D7 09 49 00 A1 43 24 3A 8B 43 |204,0...I..C$:.C|
000001D0: 24 B2 22 22 A7 37 33 00 00 0A 4A 00 43 24 B2 C7 |$."".73...J.C$..|
000001E0: 28 C6 28 43 24 AA 5A 45 24 29 AF 31 32 37 29 3A |(.(C$.ZE$).127):|
000001F0: 97 20 32 30 34 2C 31 3A 8D 20 39 36 30 30 3A 8E |. 204,1:. 9600:.|
00000200: 00 18 0A 4B 00 81 59 59 B2 31 A4 31 30 3A A1 58 |...K..YY.1.10:.X|
00000210: 58 24 3A 82 59 59 3A 8E 00 34 0A 50 00 8F 20 53 |X$:.YY:..4.P.. S|
00000220: 50 45 43 49 41 4C 20 49 4E 50 55 54 20 52 4F 55 |PECIAL INPUT ROU|
00000230: 54 49 4E 45 00 5E 0A 51 00 48 B2 C2 28 32 31 31 |TINE.^.Q.H..(211|
00000240: 29 AA 31 3A 56 B2 C2 28 32 31 34 29 AA 31 3A 4C |).1:V..(214).1:L|
00000250: 24 B2 22 22 3A 4C B2 31 35 3A 89 20 38 33 00 8C |$."":L.15:. 83..|
00000260: 0A 52 00 8D 20 37 32 3A 8B 43 24 B2 C7 28 31 33 |.R.. 72:.C$..(13|
00000270: 29 A7 99 C9 28 45 4C 24 2C 4C AB C3 28 4C 24 29 |)...(EL$,L..(L$)|
00000280: 29 3A 97 32 31 31 2C 48 AB 31 3A 8E 00 A9 0A 53 |):.211,H.1:....S|
00000290: 00 43 58 B2 C6 28 43 24 AA 5A 45 24 29 3A 8B 43 |.CX..(C$.ZE$):.C|
000002A0: 58 B3 B1 32 30 20 A7 38 37 00 BF 0A 54 00 52 24 |X..20 .87...T.R$|
000002B0: B2 22 58 22 AA C9 28 4C 24 2C 31 29 AA 52 24 00 |."X"..(L$,1).R$.|
000002C0: E3 0A 55 00 8B 4C 24 B1 22 22 A7 48 B2 48 AB 31 |..U..L$."".H.H.1|
000002D0: 3A 4C 24 B2 CA 28 4C 24 2C 31 2C C3 28 4C 24 29 |:L$..(L$,1,.(L$)|
000002E0: AB 31 29 00 08 0B 57 00 8B 43 58 B2 32 31 AF 52 |.1)...W..CX.21.R|
000002F0: 24 B1 22 22 A7 48 B2 48 AA 31 3A 4C 24 B2 4C 24 |$."".H.H.1:L$.L$|
00000300: AA C8 28 52 24 2C 31 29 00 25 0B 58 00 8B 43 58 |..(R$,1).%.X..CX|
00000310: B3 33 32 20 A7 43 24 B2 22 22 3A 43 58 B2 30 3A |.32 .C$."":CX.0:|
00000320: 48 B2 48 AB 31 00 43 0B 59 00 8B C3 28 4C 24 29 |H.H.1.C.Y...(L$)|
00000330: AA C3 28 43 24 29 B2 4C A7 99 C7 28 37 29 3B 3A |..(C$).L...(7);:|
00000340: 89 38 32 00 68 0B 5A 00 99 43 24 3B 3A 48 B2 48 |.82.h.Z..C$;:H.H|
00000350: AA 31 3A 56 54 25 B2 56 3A 8D 33 30 31 30 30 3A |.1:VT%.V:.30100:|
00000360: 97 32 31 31 2C 48 AB 31 00 80 0B 5B 00 4C 24 B2 |.211,H.1...[.L$.|
00000370: 4C 24 AA 43 24 3A 52 24 B2 CA 28 52 24 2C 32 29 |L$.C$:R$..(R$,2)|
00000380: 00 8F 0B 5C 00 8B 20 51 4E B2 31 20 A7 20 8E 00 |...\.. QN.1 . ..|
00000390: 98 0B 5D 00 89 20 38 32 00 AA 0B 64 00 8D 31 33 |..].. 82...d..13|
000003A0: 30 30 30 3A 8D 31 30 30 30 30 00 D8 0B 6E 00 50 |000:.10000...n.P|
000003B0: 47 4D 24 28 31 29 B2 22 49 4E 53 54 52 55 43 54 |GM$(1)."INSTRUCT|
000003C0: 49 4F 4E 53 20 46 4F 52 20 4D 45 4D 4F 52 59 20 |IONS FOR MEMORY |
000003D0: 4D 49 58 22 3A 9E 45 52 00 F6 0B 78 00 50 47 4D |MIX":.ER...x.PGM|
000003E0: 24 28 32 29 B2 22 50 4C 41 59 20 4D 45 4D 4F 52 |$(2)."PLAY MEMOR|
000003F0: 59 20 4D 49 58 22 00 27 0C 82 00 50 47 4D 24 28 |Y MIX".'...PGM$(|
00000400: 33 29 B2 22 52 45 54 55 52 4E 20 54 4F 20 4D 45 |3)."RETURN TO ME|
00000410: 4D 4F 52 59 20 54 52 41 49 4E 45 52 20 4D 41 49 |MORY TRAINER MAI|
00000420: 4E 20 4D 45 4E 55 22 00 42 0C 8C 00 50 47 4D 24 |N MENU".B...PGM$|
00000430: 28 34 29 B2 22 51 55 49 54 20 46 4F 52 20 4E 4F |(4)."QUIT FOR NO|
00000440: 57 22 00 57 0C 96 00 4D 41 58 B2 34 3A 8D 38 30 |W".W...MAX.4:.80|
00000450: 30 30 3A 51 4E B2 30 00 6F 0C A0 00 91 43 89 31 |00:QN.0.o....C.1|
00000460: 37 30 2C 32 31 30 2C 37 34 35 30 2C 39 39 37 00 |70,210,7450,997.|
00000470: 84 0C AA 00 46 49 4C 45 24 B2 22 47 31 22 3A 8D |....FILE$."G1":.|
00000480: 37 35 30 30 00 95 0C AB 00 8B 20 51 4E B2 31 20 |7500...... QN.1 |
00000490: A7 20 31 31 30 00 AA 0C B4 00 46 49 4C 45 24 B2 |. 110.....FILE$.|
000004A0: 22 47 32 22 3A 8D 37 35 30 30 00 BB 0C B5 00 8B |"G2":.7500......|
000004B0: 20 51 4E B2 31 20 A7 20 31 31 30 00 D0 0C BE 00 | QN.1 . 110.....|
000004C0: 46 49 4C 45 24 B2 22 47 33 22 3A 8D 37 35 30 30 |FILE$."G3":.7500|
000004D0: 00 E1 0C BF 00 8B 20 51 4E B2 31 20 A7 20 31 31 |...... QN.1 . 11|
000004E0: 30 00 FB 0C C8 00 46 49 4C 45 24 B2 22 47 34 22 |0.....FILE$."G4"|
000004F0: 3A 8D 37 35 30 30 3A 89 31 31 30 00 1C 0D D2 00 |:.7500:.110.....|
00000500: 8D 31 33 30 30 30 3A 56 54 25 B2 31 31 3A 8D 33 |.13000:VT%.11:.3|
00000510: 30 31 30 30 3A 97 32 31 31 2C 31 31 00 42 0D D3 |0100:.211,11.B..|
00000520: 00 99 C7 28 31 38 29 3B 22 47 45 54 20 52 45 41 |...(18);"GET REA|
00000530: 44 59 20 54 4F 20 50 4C 41 59 22 3B C7 28 31 34 |DY TO PLAY";.(14|
00000540: 36 29 00 5E 0D DC 00 58 4E 55 4D B2 32 38 3A 58 |6).^...XNUM.28:X|
00000550: 4D 41 58 B2 4B 4D 41 58 3A 8D 31 35 30 30 00 6C |MAX.KMAX:.1500.l|
00000560: 0D E6 00 81 49 B2 31 A4 4B 4D 41 58 00 87 0D EB |....I.1.KMAX....|
00000570: 00 41 24 B2 C4 28 52 44 52 25 28 49 29 29 3A 8F |.A$..(RDR%(I)):.|
00000580: 20 46 41 43 45 20 23 00 AC 0D F0 00 52 43 4C 24 | FACE #.....RCL$|
00000590: 28 31 2C 49 29 B2 C9 28 41 24 2C C3 28 41 24 29 |(1,I)..(A$,.(A$)|
000005A0: AB 31 29 3A 8F 20 46 41 43 45 20 23 00 B3 0D FA |.1):. FACE #....|
000005B0: 00 82 49 00 CE 0D 04 01 8F 20 53 45 4C 45 43 54 |..I...... SELECT|
000005C0: 20 4D 41 54 43 48 49 4E 47 20 4E 41 4D 45 00 EA | MATCHING NAME..|
000005D0: 0D 0E 01 58 4E 55 4D B2 32 30 3A 58 4D 41 58 B2 |...XNUM.20:XMAX.|
000005E0: 4B 4D 41 58 3A 8D 31 35 30 30 00 F8 0D 18 01 81 |KMAX:.1500......|
000005F0: 49 B2 31 A4 4B 4D 41 58 00 2C 0E 22 01 8B C5 28 |I.1.KMAX.,."...(|
00000600: 52 43 4C 24 28 31 2C 49 29 29 B1 31 34 A7 52 43 |RCL$(1,I)).14.RC|
00000610: 4C 24 28 32 2C 49 29 B2 57 4F 4D 45 4E 24 28 52 |L$(2,I).WOMEN$(R|
00000620: 44 52 25 28 49 29 29 3A 89 33 31 30 00 75 0E 2C |DR%(I)):.310.u.,|
00000630: 01 52 43 4C 24 28 32 2C 49 29 B2 4D 45 4E 24 28 |.RCL$(2,I).MEN$(|
00000640: 52 44 52 25 28 49 29 29 3A 8F 20 4D 41 4C 45 20 |RDR%(I)):. MALE |
00000650: 46 41 43 45 20 57 41 53 20 53 45 4C 45 43 54 45 |FACE WAS SELECTE|
00000660: 44 20 53 4F 20 50 49 43 4B 20 41 20 4D 41 4C 45 |D SO PICK A MALE|
00000670: 20 4E 41 4D 45 00 7C 0E 36 01 82 49 00 96 0E 40 | NAME.|.6..I...@|
00000680: 01 8F 20 53 45 4C 45 43 54 20 50 48 4F 4E 45 20 |.. SELECT PHONE |
00000690: 4E 55 4D 42 45 52 00 A4 0E 4A 01 81 49 B2 31 A4 |NUMBER...J..I.1.|
000006A0: 4B 4D 41 58 00 AE 0E 54 01 8D 34 30 31 30 00 C4 |KMAX...T..4010..|
000006B0: 0E 5E 01 52 43 4C 24 28 34 2C 49 29 B2 4E 55 4D |.^.RCL$(4,I).NUM|
000006C0: 42 45 52 24 00 CB 0E 68 01 82 49 00 DD 0E 72 01 |BER$...h..I...r.|
000006D0: 8F 20 53 45 4C 45 43 54 20 44 41 54 45 00 E7 0E |. SELECT DATE...|
000006E0: 7C 01 8D 34 35 30 30 00 F5 0E 86 01 81 49 B2 31 ||..4500......I.1|
000006F0: A4 4B 4D 41 58 00 0B 0F 90 01 52 43 4C 24 28 33 |.KMAX.....RCL$(3|
00000700: 2C 49 29 B2 42 45 46 24 28 49 29 00 19 0F 9A 01 |,I).BEF$(I).....|
00000710: 82 49 3A 48 53 43 52 B2 30 00 33 0F A4 01 8F 20 |.I:HSCR.0.3.... |
00000720: 44 49 53 50 4C 41 59 20 46 41 43 45 20 26 20 44 |DISPLAY FACE & D|
00000730: 41 54 41 00 61 0F AE 01 44 53 50 B2 31 3A 48 54 |ATA.a...DSP.1:HT|
00000740: 49 4D B2 33 32 35 30 30 3A 8D 36 30 30 30 3A 8F |IM.32500:.6000:.|
00000750: 20 44 49 53 50 4C 41 59 20 31 53 54 20 46 41 43 | DISPLAY 1ST FAC|
00000760: 45 00 72 0F AF 01 8B 20 51 4E B2 31 20 A7 20 31 |E.r.... QN.1 . 1|
00000770: 31 30 00 96 0F B8 01 48 53 43 52 B2 30 3A 42 31 |10.....HSCR.0:B1|
00000780: B2 30 3A 42 32 B2 30 3A 42 33 B2 30 3A 52 58 B2 |.0:B2.0:B3.0:RX.|
00000790: 30 3A 44 43 B2 31 00 A5 0F C2 01 81 49 49 B2 32 |0:DC.1......II.2|
000007A0: A4 4B 4D 41 58 00 B1 0F CC 01 58 58 B2 BB 28 31 |.KMAX.....XX..(1|
000007B0: 29 00 CE 0F D6 01 8B A8 28 28 58 58 B3 2E 35 29 |).......((XX..5)|
000007C0: AF 28 52 58 B3 44 53 50 29 29 A7 34 38 30 00 F1 |.(RX.DSP)).480..|
000007D0: 0F D7 01 52 58 B2 52 58 AA 31 3A 44 43 B2 30 3A |...RX.RX.1:DC.0:|
000007E0: 8D 35 30 30 30 3A 8B 51 55 49 54 B2 31 89 35 34 |.5000:.QUIT.1.54|
000007F0: 30 00 02 10 D8 01 8B 20 51 4E B2 31 20 A7 20 31 |0...... QN.1 . 1|
00000800: 31 30 00 3F 10 E0 01 8B 28 58 58 B3 2E 35 29 89 |10.?....(XX..5).|
00000810: 34 36 30 3A 8F 20 47 45 54 20 41 20 52 41 4E 44 |460:. GET A RAND|
00000820: 4F 4D 20 4E 55 4D 42 45 52 20 26 20 44 4F 4E 27 |OM NUMBER & DON'|
00000830: 54 20 49 4E 43 20 44 53 50 20 4F 52 20 49 49 00 |T INC DSP OR II.|
00000840: 7A 10 EA 01 44 43 B2 44 43 AA 31 3A 8B 44 43 B1 |z...DC.DC.1:.DC.|
00000850: 32 89 34 36 30 3A 8F 20 50 52 45 56 45 4E 54 20 |2.460:. PREVENT |
00000860: 4D 4F 52 45 20 54 48 41 4E 20 33 20 46 41 43 45 |MORE THAN 3 FACE|
00000870: 53 20 49 4E 20 41 20 52 4F 57 00 A1 10 F4 01 8B |S IN A ROW......|
00000880: 28 58 58 B2 B1 2E 35 29 A7 44 53 50 B2 49 49 3A |(XX...5).DSP.II:|
00000890: 8D 36 30 30 30 3A 8B 51 55 49 54 B2 31 89 35 34 |.6000:.QUIT.1.54|
000008A0: 30 00 B2 10 F5 01 8B 20 51 4E B2 31 20 A7 20 31 |0...... QN.1 . 1|
000008B0: 31 30 00 BA 10 FE 01 82 49 49 00 E0 10 08 02 8B |10......II......|
000008C0: 52 58 B3 44 53 50 A7 52 58 B2 52 58 AA 31 3A 8D |RX.DSP.RX.RX.1:.|
000008D0: 35 30 30 30 3A 8B 51 55 49 54 B2 31 89 35 34 30 |5000:.QUIT.1.540|
000008E0: 00 F1 10 09 02 8B 20 51 4E B2 31 20 A7 20 31 31 |...... QN.1 . 11|
000008F0: 30 00 2E 11 12 02 8B 52 58 B3 44 53 50 89 35 32 |0......RX.DSP.52|
00000900: 30 3A 8F 20 43 4F 4E 54 49 4E 55 45 20 52 45 43 |0:. CONTINUE REC|
00000910: 41 4C 4C 49 4E 47 20 41 4C 4C 20 4F 55 54 53 54 |ALLING ALL OUTST|
00000920: 41 4E 44 49 4E 47 20 53 43 52 45 45 4E 53 00 43 |ANDING SCREENS.C|
00000930: 11 1C 02 9E 20 34 39 31 35 35 3A 99 C7 28 31 34 |.... 49155:..(14|
00000940: 37 29 3B 00 78 11 26 02 56 54 25 B2 31 3A 8D 33 |7);.x.&.VT%.1:.3|
00000950: 30 31 30 30 3A 46 49 4C 45 24 B2 22 54 48 45 20 |0100:FILE$."THE |
00000960: 45 49 4E 53 54 45 49 4E 20 4D 45 4D 4F 52 59 20 |EINSTEIN MEMORY |
00000970: 54 52 41 49 4E 45 52 22 00 93 11 27 02 99 C7 28 |TRAINER"...'...(|
00000980: 31 38 29 3B 3A 8D 32 39 39 30 3A 99 C7 28 31 34 |18);:.2990:..(14|
00000990: 36 29 3B 00 C2 11 30 02 56 54 25 B2 35 3A 8D 33 |6);...0.VT%.5:.3|
000009A0: 30 31 30 30 3A 97 32 31 31 2C 31 30 3A 99 22 4D |0100:.211,10:."M|
000009B0: 45 4D 4F 52 59 20 4D 49 58 20 52 45 53 55 4C 54 |EMORY MIX RESULT|
000009C0: 53 22 00 E4 11 31 02 97 32 31 31 2C 31 30 3A 99 |S"...1..211,10:.|
000009D0: 22 2D 2D 2D 2D 2D 2D 20 2D 2D 2D 20 2D 2D 2D 2D |"------ --- ----|
000009E0: 2D 2D 2D 22 00 1F 12 3A 02 56 54 25 B2 38 3A 8D |---"...:.VT%.8:.|
000009F0: 33 30 31 30 30 3A 99 22 4E 55 4D 42 45 52 20 4F |30100:."NUMBER O|
00000A00: 46 20 46 41 43 45 53 20 54 45 53 54 45 44 20 4F |F FACES TESTED O|
00000A10: 4E 2E 2E 2E 2E 2E 22 3B A3 33 38 29 3B 52 58 00 |N.....";.38);RX.|
00000A20: 59 12 44 02 56 54 25 B2 31 30 3A 8D 33 30 31 30 |Y.D.VT%.10:.3010|
00000A30: 30 3A 99 22 4E 55 4D 42 45 52 20 4F 46 20 4E 41 |0:."NUMBER OF NA|
00000A40: 4D 45 53 20 43 4F 52 52 45 43 54 2E 2E 2E 2E 2E |MES CORRECT.....|
00000A50: 22 3B A3 33 38 29 3B 42 31 00 97 12 4E 02 56 54 |";.38);B1...N.VT|
00000A60: 25 B2 31 32 3A 8D 33 30 31 30 30 3A 99 22 4E 55 |%.12:.30100:."NU|
00000A70: 4D 42 45 52 20 4F 46 20 42 49 52 54 48 44 41 59 |MBER OF BIRTHDAY|
00000A80: 53 20 43 4F 52 52 45 43 54 2E 2E 2E 2E 2E 22 3B |S CORRECT.....";|
00000A90: A3 33 38 29 3B 42 32 00 A9 12 58 02 56 54 25 B2 |.38);B2...X.VT%.|
00000AA0: 31 34 3A 8D 33 30 31 30 30 00 DD 12 59 02 99 22 |14:.30100...Y.."|
00000AB0: 4E 55 4D 42 45 52 20 4F 46 20 50 48 4F 4E 45 20 |NUMBER OF PHONE |
00000AC0: 4E 55 4D 42 45 52 53 20 43 4F 52 52 45 43 54 2E |NUMBERS CORRECT.|
00000AD0: 2E 2E 2E 2E 22 3B A3 33 38 29 3B 42 33 00 F7 12 |....";.38);B3...|
00000AE0: 62 02 56 54 25 B2 31 36 3A 8D 33 30 31 30 30 3A |b.VT%.16:.30100:|
00000AF0: 97 32 31 31 2C 32 33 00 21 13 63 02 99 22 59 4F |.211,23.!.c.."YO|
00000B00: 55 52 20 53 43 4F 52 45 3A 22 3B A3 33 35 29 3B |UR SCORE:";.35);|
00000B10: C7 28 31 38 29 3B 48 53 43 52 3B C7 28 31 34 36 |.(18);HSCR;.(146|
00000B20: 29 00 3A 13 6C 02 99 22 11 11 22 3B 3A 97 32 31 |).:.l.."..";:.21|
00000B30: 31 2C 32 30 3A 53 45 43 B2 32 00 4C 13 6D 02 8B |1,20:SEC.2.L.m..|
00000B40: 48 53 43 52 B3 B2 54 53 A7 36 33 30 00 82 13 6E |HSCR..TS.630...n|
00000B50: 02 54 53 B2 48 53 43 52 3A 46 49 4C 45 24 B2 22 |.TS.HSCR:FILE$."|
00000B60: 48 49 47 48 45 53 54 20 53 43 4F 52 45 3A 20 22 |HIGHEST SCORE: "|
00000B70: AA C4 28 54 53 29 3A 99 C7 28 37 29 3B C7 28 37 |..(TS):..(7);.(7|
00000B80: 29 3B 00 A7 13 6F 02 8D 33 30 30 30 30 3A 99 C7 |);...o..30000:..|
00000B90: 28 31 34 36 29 3B 3A 8F 20 50 55 54 20 4D 55 53 |(146);:. PUT MUS|
00000BA0: 49 43 20 48 45 52 45 00 D4 13 76 02 8B 48 53 43 |IC HERE...v..HSC|
00000BB0: 52 B3 54 53 A7 99 22 48 49 47 48 45 53 54 20 53 |R.TS.."HIGHEST S|
00000BC0: 43 4F 52 45 3A 22 3B A3 33 35 29 3B 54 53 3A 8D |CORE:";.35);TS:.|
00000BD0: 32 39 30 30 00 FF 13 80 02 46 49 4C 45 24 B2 22 |2900.....FILE$."|
00000BE0: 37 35 32 38 39 39 37 35 32 31 39 39 36 35 34 31 |7528997521996541|
00000BF0: 34 35 36 35 39 32 35 22 3A 8D 31 36 30 30 30 00 |4565925":.16000.|
00000C00: 09 14 8A 02 8D 39 35 30 30 00 24 14 94 02 99 C7 |.....9500.$.....|
00000C10: 28 31 34 37 29 3B 3A 56 54 25 B2 31 30 3A 8D 33 |(147);:VT%.10:.3|
00000C20: 30 31 30 30 00 52 14 95 02 99 22 44 4F 20 59 4F |0100.R...."DO YO|
00000C30: 55 20 57 41 4E 54 20 54 4F 20 50 4C 41 59 20 41 |U WANT TO PLAY A|
00000C40: 47 41 49 4E 3F 20 28 59 2F 4E 29 20 22 3B 3A 8D |GAIN? (Y/N) ";:.|
00000C50: 37 32 00 63 14 96 02 8B 20 51 4E B2 31 20 A7 20 |72.c.... QN.1 . |
00000C60: 31 31 30 00 73 14 9E 02 8B 43 24 B2 22 59 22 89 |110.s....C$."Y".|
00000C70: 32 31 30 00 83 14 A8 02 8B 43 24 B2 22 4E 22 89 |210......C$."N".|
00000C80: 31 31 30 00 8C 14 B2 02 89 36 36 30 00 BC 14 E5 |110......660....|
00000C90: 03 8D 31 33 30 30 30 3A 56 54 25 B2 38 3A 8D 33 |..13000:VT%.8:.3|
00000CA0: 30 31 30 30 3A 99 22 59 4F 55 20 48 41 56 45 20 |0100:."YOU HAVE |
00000CB0: 4A 55 53 54 20 45 58 49 54 45 44 22 00 F4 14 E6 |JUST EXITED"....|
00000CC0: 03 56 54 25 B2 31 30 3A 8D 33 30 31 30 30 3A 99 |.VT%.10:.30100:.|
00000CD0: C7 28 31 38 29 3B 22 54 48 45 20 45 49 4E 53 54 |.(18);"THE EINST|
00000CE0: 45 49 4E 20 4D 45 4D 4F 52 59 20 54 52 41 49 4E |EIN MEMORY TRAIN|
00000CF0: 45 52 22 3B 00 12 15 E7 03 99 C7 28 31 34 36 29 |ER";.......(146)|
00000D00: 3B 22 2E 22 3A 56 54 25 B2 31 32 3A 8D 33 30 31 |;".":VT%.12:.301|
00000D10: 30 30 00 40 15 E8 03 99 22 54 48 41 4E 4B 20 59 |00.@...."THANK Y|
00000D20: 4F 55 20 46 4F 52 20 50 4C 41 59 49 4E 47 21 22 |OU FOR PLAYING!"|
00000D30: 3A 56 54 25 B2 32 32 3A 8D 33 30 31 30 30 3A 80 |:VT%.22:.30100:.|
00000D40: 00 5C 15 DC 05 8F 20 52 41 4E 44 4F 4D 20 4F 52 |.\.... RANDOM OR|
00000D50: 44 45 52 20 53 45 4C 45 43 54 4F 52 00 74 15 E6 |DER SELECTOR.t..|
00000D60: 05 52 44 52 25 28 31 29 B2 58 4E 55 4D AC BB 28 |.RDR%(1).XNUM..(|
00000D70: 31 29 AA 31 00 82 15 F0 05 81 49 B2 32 A4 58 4D |1).1......I.2.XM|
00000D80: 41 58 00 9A 15 FA 05 52 44 52 25 28 49 29 B2 58 |AX.....RDR%(I).X|
00000D90: 4E 55 4D AC BB 28 31 29 AA 31 00 A7 15 04 06 81 |NUM..(1).1......|
00000DA0: 4A B2 31 A4 49 AB 31 00 D6 15 0E 06 8B 52 44 52 |J.1.I.1......RDR|
00000DB0: 25 28 49 29 B2 52 44 52 25 28 4A 29 89 31 35 33 |%(I).RDR%(J).153|
00000DC0: 30 3A 8F 20 47 45 54 20 41 20 4E 45 57 20 52 41 |0:. GET A NEW RA|
00000DD0: 4E 44 4F 4D 20 23 00 E0 15 18 06 82 4A 3A 82 49 |NDOM #......J:.I|
00000DE0: 00 E6 15 3F 06 8E 00 1C 16 54 0B 53 45 43 B2 53 |...?.....T.SEC.S|
00000DF0: 45 43 AA 32 AC 28 53 45 43 B2 30 29 3A 81 58 B2 |EC.2.(SEC.0):.X.|
00000E00: 31 A4 53 45 43 AC 31 33 30 3A 8D 20 39 36 30 30 |1.SEC.130:. 9600|
00000E10: 3A 82 58 3A 8E 3A 8F 20 31 33 30 30 00 30 16 AE |:.X:.:. 1300.0..|
00000E20: 0B 8F 20 43 45 4E 54 45 52 20 53 54 52 49 4E 47 |.. CENTER STRING|
00000E30: 00 54 16 B3 0B 99 A3 B5 28 28 34 30 AB C3 28 46 |.T......((40..(F|
00000E40: 49 4C 45 24 29 29 AD 32 29 29 3B 46 49 4C 45 24 |ILE$)).2));FILE$|
00000E50: A3 34 30 29 00 61 16 B4 0B 97 32 31 31 2C 30 3A |.40).a....211,0:|
00000E60: 8E 00 77 16 B8 0B 8F 20 43 4F 52 52 45 43 54 20 |..w.... CORRECT |
00000E70: 41 4E 53 57 45 52 53 00 93 16 C2 0B 49 B2 31 3A |ANSWERS.....I.1:|
00000E80: 8D 33 33 30 30 3A 8F 20 50 41 52 53 45 20 4E 41 |.3300:. PARSE NA|
00000E90: 4D 45 53 00 AF 16 CC 0B 49 B2 32 3A 8D 33 35 30 |MES.....I.2:.350|
00000EA0: 30 3A 8F 20 50 41 52 53 45 20 44 41 54 45 53 00 |0:. PARSE DATES.|
00000EB0: D5 16 D6 0B 49 B2 33 3A 8D 33 33 30 30 3A 8D 33 |....I.3:.3300:.3|
00000EC0: 34 30 30 3A 8F 20 50 41 52 53 45 20 50 48 4F 4E |400:. PARSE PHON|
00000ED0: 45 20 23 27 53 00 02 17 E0 0B 46 41 43 B2 30 3A |E #'S.....FAC.0:|
00000EE0: 54 54 4C B2 30 3A 8F 20 4D 55 4C 54 49 50 4C 59 |TTL.0:. MULTIPLY|
00000EF0: 49 4E 47 20 46 41 43 54 4F 52 20 26 20 54 4F 54 |ING FACTOR & TOT|
00000F00: 41 4C 00 29 17 EA 0B 8B C8 28 52 43 4C 24 28 32 |AL.).....(RCL$(2|
00000F10: 2C 59 29 2C 33 29 B3 B1 C8 28 41 46 54 24 28 31 |,Y),3)...(AFT$(1|
00000F20: 29 2C 33 29 A7 33 30 36 30 00 5A 17 EB 0B 42 31 |),3).3060.Z...B1|
00000F30: B2 42 31 AA 31 3A 46 41 43 B2 31 3A 54 54 4C B2 |.B1.1:FAC.1:TTL.|
00000F40: 31 3A 41 B2 32 3A 8D 33 32 30 30 3A 8F 20 43 4F |1:A.2:.3200:. CO|
00000F50: 52 52 45 43 54 20 4E 41 4D 45 00 69 17 EC 0B 8B |RRECT NAME.i....|
00000F60: 20 51 4E B2 31 20 A7 20 8E 00 86 17 F4 0B 8B 52 | QN.1 . .......R|
00000F70: 43 4C 24 28 33 2C 59 29 B3 B1 41 46 54 24 28 32 |CL$(3,Y)..AFT$(2|
00000F80: 29 A7 33 30 37 30 00 B0 17 F5 0B 42 32 B2 42 32 |).3070.....B2.B2|
00000F90: AA 31 3A 46 41 43 B2 46 41 43 AA 31 3A 54 54 4C |.1:FAC.FAC.1:TTL|
00000FA0: B2 54 54 4C AA 32 3A 41 B2 33 3A 8D 33 32 30 30 |.TTL.2:A.3:.3200|
00000FB0: 00 BF 17 F6 0B 8B 20 51 4E B2 31 20 A7 20 8E 00 |...... QN.1 . ..|
00000FC0: DC 17 FE 0B 8B 52 43 4C 24 28 34 2C 59 29 B3 B1 |.....RCL$(4,Y)..|
00000FD0: 41 46 54 24 28 33 29 A7 33 30 38 30 00 10 18 FF |AFT$(3).3080....|
00000FE0: 0B 42 33 B2 42 33 AA 31 3A 46 41 43 B2 46 41 43 |.B3.B3.1:FAC.FAC|
00000FF0: AA 31 3A 54 54 4C B2 54 54 4C AA 33 3A 41 B2 34 |.1:TTL.TTL.3:A.4|
00001000: 3A 8D 33 32 30 30 3A 8F 20 50 48 4F 4E 45 20 23 |:.3200:. PHONE #|
00001010: 00 1F 18 00 0C 8B 20 51 4E B2 31 20 A7 20 8E 00 |...... QN.1 . ..|
00001020: 2A 18 08 0C 81 4A B2 32 A4 34 00 46 18 12 0C 56 |*....J.2.4.F...V|
00001030: 54 25 B2 31 39 AA 4A 3A 8D 33 30 31 30 30 3A 97 |T%.19.J:.30100:.|
00001040: 32 31 31 2C 32 33 00 58 18 1C 0C 99 52 43 4C 24 |211,23.X....RCL$|
00001050: 28 4A 2C 59 29 3A 82 4A 00 87 18 26 0C 54 54 4C |(J,Y):.J...&.TTL|
00001060: B2 46 41 43 AC 31 30 AC 54 54 4C 3A 8F 20 54 4F |.FAC.10.TTL:. TO|
00001070: 54 41 4C 20 53 43 4F 52 45 20 46 4F 52 20 54 48 |TAL SCORE FOR TH|
00001080: 49 53 20 46 41 43 45 00 B5 18 2E 0C 48 53 43 52 |IS FACE.....HSCR|
00001090: B2 48 53 43 52 AA 54 54 4C 3A 56 54 25 B2 32 31 |.HSCR.TTL:VT%.21|
000010A0: 3A 8D 33 30 31 30 30 3A 46 49 4C 45 24 B2 C4 28 |:.30100:FILE$..(|
000010B0: 48 53 43 52 29 00 D3 18 30 0C 46 49 4C 45 24 B2 |HSCR)...0.FILE$.|
000010C0: C9 28 46 49 4C 45 24 2C C3 28 46 49 4C 45 24 29 |.(FILE$,.(FILE$)|
000010D0: AB 31 29 00 F9 18 31 0C 8B C3 28 46 49 4C 45 24 |.1)...1...(FILE$|
000010E0: 29 B3 34 A7 46 49 4C 45 24 B2 46 49 4C 45 24 AA |).4.FILE$.FILE$.|
000010F0: 22 20 22 3A 89 33 31 32 31 00 2C 19 32 0C 46 49 |" ":.3121.,.2.FI|
00001100: 4C 45 24 B2 46 49 4C 45 24 AA 22 9D 9D 9D 9D 11 |LE$.FILE$.".....|
00001110: 22 AA 22 50 54 53 20 22 3A 8F 20 34 20 42 41 43 |"."PTS ":. 4 BAC|
00001120: 4B 20 41 4E 44 20 31 20 44 4F 57 4E 00 57 19 33 |K AND 1 DOWN.W.3|
00001130: 0C 56 54 25 B2 32 32 3A 8D 20 33 30 31 30 30 3A |.VT%.22:. 30100:|
00001140: 97 20 32 31 31 2C 33 36 3A 8D 33 30 30 30 30 3A |. 211,36:.30000:|
00001150: 99 C7 28 31 34 36 29 00 70 19 3A 0C 56 54 25 B2 |..(146).p.:.VT%.|
00001160: 32 34 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 |24:.30100:.211,0|
00001170: 00 AC 19 3B 0C 99 22 50 52 45 53 53 20 3C 22 3B |...;.."PRESS <";|
00001180: C7 28 31 38 29 3B 22 53 50 41 43 45 20 42 41 52 |.(18);"SPACE BAR|
00001190: 22 3B C7 28 31 34 36 29 3B 22 3E 20 54 4F 20 43 |";.(146);"> TO C|
000011A0: 4F 4E 54 49 4E 55 45 2E 2E 2E 22 3B 00 B8 19 3C |ONTINUE...";...<|
000011B0: 0C 8D 20 33 30 32 30 30 00 E8 19 44 0C 81 59 59 |.. 30200...D..YY|
000011C0: B2 31 A4 31 30 3A A1 43 24 3A 82 59 59 3A 8D 37 |.1.10:.C$:.YY:.7|
000011D0: 33 3A 58 B2 C6 28 43 24 AA 5A 45 24 29 3A 8B 20 |3:X..(C$.ZE$):. |
000011E0: 51 4E B2 31 20 A7 20 8E 00 08 1A 45 0C 8B 58 B2 |QN.1 . ....E..X.|
000011F0: 35 20 20 A7 51 55 49 54 B2 31 3A 45 53 24 B2 22 |5 .QUIT.1:ES$."|
00001200: 59 22 3A 89 33 31 36 30 00 1A 1A 4E 0C 8B 43 24 |Y":.3160...N..C$|
00001210: B3 B1 22 20 22 89 33 31 34 30 00 20 1A 58 0C 8E |.." ".3140. .X..|
00001220: 00 3C 1A 80 0C 8F 20 44 49 53 50 4C 41 59 20 43 |.<.... DISPLAY C|
00001230: 4F 52 52 45 43 54 20 45 4E 54 52 59 00 6E 1A 85 |ORRECT ENTRY.n..|
00001240: 0C 56 54 25 B2 31 39 AA 41 3A 8D 33 30 31 30 30 |.VT%.19.A:.30100|
00001250: 3A 97 32 31 31 2C 38 3A 99 C7 28 31 34 36 29 3B |:.211,8:..(146);|
00001260: 22 20 22 3B 52 43 4C 24 28 41 2C 59 29 3B 00 A3 |" ";RCL$(A,Y);..|
00001270: 1A 87 0C 99 C8 28 45 4C 24 2C 31 35 AB C3 28 52 |.....(EL$,15..(R|
00001280: 43 4C 24 28 41 2C 59 29 29 29 3B 3A 8F 20 54 4F |CL$(A,Y)));:. TO|
00001290: 20 43 4C 45 41 52 20 4F 4C 44 20 52 45 53 50 4F | CLEAR OLD RESPO|
000012A0: 4E 53 45 00 DC 1A 8B 0C 9E 4D 55 3A 53 45 43 B2 |NSE......MU:SEC.|
000012B0: 30 3A 56 54 25 B2 32 30 AA 41 3A 8D 20 33 30 31 |0:VT%.20.A:. 301|
000012C0: 30 30 3A 97 32 31 31 2C 38 3A 46 49 4C 45 24 B2 |00:.211,8:FILE$.|
000012D0: 22 2A 22 3A 8D 33 30 30 30 30 3A 8E 00 F9 1A 8C |"*":.30000:.....|
000012E0: 0C 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 5E |.. ^|
000012F0: 20 20 48 55 48 3F 3F 3F 3F 00 1E 1B E4 0C 8F 20 | HUH????...... |
00001300: 52 45 4D 4F 56 45 20 54 52 41 49 4C 49 4E 47 20 |REMOVE TRAILING |
00001310: 42 4C 41 4E 4B 53 20 49 4E 20 41 46 54 24 00 3B |BLANKS IN AFT$.;|
00001320: 1B F8 0C 58 B2 C3 28 41 46 54 24 28 49 29 29 AB |...X..(AFT$(I)).|
00001330: 31 3A 8B 58 B2 30 89 33 33 39 39 00 6C 1B 02 0D |1:.X.0.3399.l...|
00001340: 8B C9 28 41 46 54 24 28 49 29 2C 31 29 B2 22 20 |..(AFT$(I),1)." |
00001350: 22 A7 41 46 54 24 28 49 29 B2 C8 28 41 46 54 24 |".AFT$(I)..(AFT$|
00001360: 28 49 29 2C 58 29 3A 89 33 33 32 30 00 9D 1B 0C |(I),X):.3320....|
00001370: 0D 8B C8 28 41 46 54 24 28 49 29 2C 31 29 B2 22 |...(AFT$(I),1)."|
00001380: 20 22 A7 41 46 54 24 28 49 29 B2 C9 28 41 46 54 | ".AFT$(I)..(AFT|
00001390: 24 28 49 29 2C 58 29 3A 89 33 33 32 30 00 A3 1B |$(I),X):.3320...|
000013A0: 47 0D 8E 00 B8 1B 48 0D 8F 20 50 48 4F 4E 45 20 |G.....H.. PHONE |
000013B0: 23 20 50 41 52 53 45 52 00 E3 1B 52 0D 8F 20 49 |# PARSER...R.. I|
000013C0: 4E 53 45 52 54 20 41 20 48 59 50 48 45 4E 20 46 |NSERT A HYPHEN F|
000013D0: 4F 52 20 54 48 45 20 50 48 4F 4E 45 20 4E 55 4D |OR THE PHONE NUM|
000013E0: 42 45 52 00 0D 1C 5C 0D 41 46 54 24 28 49 29 B2 |BER...\.AFT$(I).|
000013F0: C8 28 41 46 54 24 28 49 29 2C 33 29 AA 22 2D 22 |.(AFT$(I),3)."-"|
00001400: AA C9 28 41 46 54 24 28 49 29 2C 34 29 00 13 1C |..(AFT$(I),4)...|
00001410: 66 0D 8E 00 30 1C AC 0D 8F 20 52 45 42 55 49 4C |f...0.... REBUIL|
00001420: 44 20 4D 4F 4E 54 48 2C 44 41 59 2C 59 45 41 52 |D MONTH,DAY,YEAR|
00001430: 00 5F 1C B6 0D 8D 33 33 30 30 3A 8F 20 52 45 4D |._....3300:. REM|
00001440: 4F 56 45 20 50 52 45 43 45 44 49 4E 47 20 26 20 |OVE PRECEDING & |
00001450: 54 52 41 49 4C 49 4E 47 20 42 4C 41 4E 4B 53 00 |TRAILING BLANKS.|
00001460: 79 1C C0 0D 8F 20 52 45 2D 42 55 49 4C 44 20 54 |y.... RE-BUILD T|
00001470: 48 45 20 27 59 45 41 52 27 00 9C 1C CA 0D 8B 41 |HE 'YEAR'......A|
00001480: 46 54 24 28 49 29 B2 22 22 A7 4D 44 59 24 28 33 |FT$(I)."".MDY$(3|
00001490: 2C 49 29 B2 22 22 3A 89 33 35 37 30 00 B7 1C D4 |,I)."":.3570....|
000014A0: 0D 4D 44 59 24 28 33 2C 49 29 B2 C9 28 41 46 54 |.MDY$(3,I)..(AFT|
000014B0: 24 28 49 29 2C 34 29 00 DF 1C DE 0D 4F 46 46 53 |$(I),4).....OFFS|
000014C0: 45 54 B2 30 3A 58 B2 C3 28 41 46 54 24 28 49 29 |ET.0:X..(AFT$(I)|
000014D0: 29 3A 8B 58 B1 34 A7 4F 46 46 53 45 54 B2 34 00 |):.X.4.OFFSET.4.|
000014E0: FF 1C E8 0D 41 46 54 24 28 49 29 B2 C8 28 41 46 |....AFT$(I)..(AF|
000014F0: 54 24 28 49 29 2C 58 AB 4F 46 46 53 45 54 29 00 |T$(I),X.OFFSET).|
00001500: 30 1D F2 0D 8D 33 33 30 30 3A 8F 20 52 45 4D 4F |0....3300:. REMO|
00001510: 56 45 20 42 4C 41 4E 4B 53 20 46 52 4F 4D 20 52 |VE BLANKS FROM R|
00001520: 45 4D 41 49 4E 44 45 52 20 4F 46 20 41 46 54 24 |EMAINDER OF AFT$|
00001530: 00 49 1D FC 0D 8F 20 52 45 2D 42 55 49 4C 44 20 |.I.... RE-BUILD |
00001540: 54 48 45 20 27 44 41 59 27 00 6C 1D 06 0E 8B 41 |THE 'DAY'.l....A|
00001550: 46 54 24 28 49 29 B2 22 22 A7 4D 44 59 24 28 32 |FT$(I)."".MDY$(2|
00001560: 2C 49 29 B2 22 22 3A 89 33 36 34 30 00 97 1D 10 |,I)."":.3640....|
00001570: 0E 8B C9 28 41 46 54 24 28 49 29 2C 31 29 B3 B1 |...(AFT$(I),1)..|
00001580: 22 2C 22 A7 41 46 54 24 28 49 29 B2 41 46 54 24 |",".AFT$(I).AFT$|
00001590: 28 49 29 AA 22 2C 22 00 B2 1D 1A 0E 4D 44 59 24 |(I).",".....MDY$|
000015A0: 28 32 2C 49 29 B2 C9 28 41 46 54 24 28 49 29 2C |(2,I)..(AFT$(I),|
000015B0: 33 29 00 C7 1D 24 0E 58 B2 C3 28 4D 44 59 24 28 |3)...$.X..(MDY$(|
000015C0: 32 2C 49 29 29 AB 31 00 FA 1D 2E 0E 8B A8 28 C8 |2,I)).1.......(.|
000015D0: 28 4D 44 59 24 28 32 2C 49 29 2C 31 29 B2 22 2E |(MDY$(2,I),1).".|
000015E0: 22 B0 C8 28 4D 44 59 24 28 32 2C 49 29 2C 31 29 |"..(MDY$(2,I),1)|
000015F0: B2 22 20 22 29 A7 33 36 34 30 00 17 1E 2F 0E 4D |." ").3640.../.M|
00001600: 44 59 24 28 32 2C 49 29 B2 C9 28 4D 44 59 24 28 |DY$(2,I)..(MDY$(|
00001610: 32 2C 49 29 2C 58 29 00 32 1E 38 0E 8F 20 52 45 |2,I),X).2.8.. RE|
00001620: 2D 42 55 49 4C 44 20 54 48 45 20 27 4D 4F 4E 54 |-BUILD THE 'MONT|
00001630: 48 27 00 4D 1E 42 0E 4D 44 59 24 28 31 2C 49 29 |H'.M.B.MDY$(1,I)|
00001640: B2 C8 28 41 46 54 24 28 49 29 2C 33 29 00 67 1E |..(AFT$(I),3).g.|
00001650: 4C 0E 8F 20 52 45 2D 42 55 49 4C 44 20 54 48 45 |L.. RE-BUILD THE|
00001660: 20 53 54 52 49 4E 47 00 95 1E 56 0E 41 46 54 24 | STRING...V.AFT$|
00001670: 28 49 29 B2 4D 44 59 24 28 31 2C 49 29 AA 22 20 |(I).MDY$(1,I)." |
00001680: 22 AA 4D 44 59 24 28 32 2C 49 29 AA 4D 44 59 24 |".MDY$(2,I).MDY$|
00001690: 28 33 2C 49 29 00 9B 1E 60 0E 8E 00 BA 1E A0 0F |(3,I)...`.......|
000016A0: 8F 20 4E 41 4D 45 20 26 20 50 48 4F 4E 45 20 23 |. NAME & PHONE #|
000016B0: 20 47 45 4E 45 52 41 54 4F 52 00 D5 1E AA 0F 8F | GENERATOR......|
000016C0: 20 37 20 44 49 47 49 54 20 50 48 4F 4E 45 20 4E | 7 DIGIT PHONE N|
000016D0: 55 4D 42 45 52 00 E4 1E B4 0F 4E 55 4D 42 45 52 |UMBER.....NUMBER|
000016E0: 24 B2 22 22 00 EF 1E BE 0F 81 4A B2 31 A4 37 00 |$.""......J.1.7.|
000016F0: 00 1F C8 0F 59 B2 B5 28 31 30 AC BB 28 31 29 29 |....Y..(10..(1))|
00001700: 00 16 1F D2 0F 8B 28 4A B2 31 29 AF 28 59 B3 32 |......(J.1).(Y.2|
00001710: 29 89 34 30 34 30 00 34 1F DC 0F 4E 55 4D 42 45 |).4040.4...NUMBE|
00001720: 52 24 B2 4E 55 4D 42 45 52 24 AA C9 28 C4 28 59 |R$.NUMBER$..(.(Y|
00001730: 29 2C 31 29 00 3B 1F E6 0F 82 4A 00 65 1F F0 0F |),1).;....J.e...|
00001740: 4E 55 4D 42 45 52 24 B2 C8 28 4E 55 4D 42 45 52 |NUMBER$..(NUMBER|
00001750: 24 2C 33 29 AA 22 2D 22 AA C9 28 4E 55 4D 42 45 |$,3)."-"..(NUMBE|
00001760: 52 24 2C 34 29 00 6B 1F FA 0F 8E 00 80 1F 94 11 |R$,4).k.........|
00001770: 8F 20 44 41 54 45 20 47 45 4E 45 52 41 54 4F 52 |. DATE GENERATOR|
00001780: 00 B6 1F 9E 11 58 4E 55 4D B2 4B 4D 41 58 3A 58 |.....XNUM.KMAX:X|
00001790: 4D 41 58 B2 4B 4D 41 58 3A 8D 31 35 30 30 3A 8F |MAX.KMAX:.1500:.|
000017A0: 20 52 41 4E 44 4F 4D 20 4F 52 44 45 52 20 53 45 | RANDOM ORDER SE|
000017B0: 4C 45 43 54 4F 52 00 DD 1F A8 11 81 49 B2 31 A4 |LECTOR......I.1.|
000017C0: 4B 4D 41 58 3A 8F 20 42 55 49 4C 44 20 44 49 53 |KMAX:. BUILD DIS|
000017D0: 50 4C 41 59 45 44 20 53 54 52 49 4E 47 00 15 20 |PLAYED STRING.. |
000017E0: B2 11 4D 44 59 24 28 32 2C 49 29 B2 C4 28 B5 28 |..MDY$(2,I)..(.(|
000017F0: 32 38 AC BB 28 31 29 29 AA 31 29 3A 8F 20 44 41 |28..(1)).1):. DA|
00001800: 59 53 20 4F 46 20 4D 4F 4E 54 48 20 46 52 4F 4D |YS OF MONTH FROM|
00001810: 20 31 2D 32 39 00 4D 20 BC 11 4D 44 59 24 28 33 | 1-29.M ..MDY$(3|
00001820: 2C 49 29 B2 C4 28 B5 28 37 30 AC BB 28 31 29 29 |,I)..(.(70..(1))|
00001830: AA 31 39 30 31 29 3A 8F 20 59 45 41 52 53 20 46 |.1901):. YEARS F|
00001840: 52 4F 4D 20 31 39 30 31 2D 31 39 37 30 00 6F 20 |ROM 1901-1970.o |
00001850: C6 11 8B 52 44 52 25 28 49 29 B1 31 32 A7 52 44 |...RDR%(I).12.RD|
00001860: 52 25 28 49 29 B2 52 44 52 25 28 49 29 AD 32 00 |R%(I).RDR%(I).2.|
00001870: 8C 20 D0 11 4D 44 59 24 28 31 2C 49 29 B2 4D 4E |. ..MDY$(1,I).MN|
00001880: 54 48 24 28 52 44 52 25 28 49 29 29 00 C9 20 D5 |TH$(RDR%(I)).. .|
00001890: 11 81 20 54 58 B2 32 20 A4 20 33 3A 4D 44 59 24 |.. TX.2 . 3:MDY$|
000018A0: 28 54 58 2C 49 29 B2 C9 28 4D 44 59 24 28 54 58 |(TX,I)..(MDY$(TX|
000018B0: 2C 49 29 2C C3 28 4D 44 59 24 28 54 58 2C 49 29 |,I),.(MDY$(TX,I)|
000018C0: 29 AB 31 29 3A 82 20 54 58 00 00 21 DA 11 42 45 |).1):. TX..!..BE|
000018D0: 46 24 28 49 29 B2 C8 28 4D 44 59 24 28 31 2C 49 |F$(I)..(MDY$(1,I|
000018E0: 29 2C 33 29 AA 22 20 22 AA 4D 44 59 24 28 32 2C |),3)." ".MDY$(2,|
000018F0: 49 29 AA 22 2C 22 AA 4D 44 59 24 28 33 2C 49 29 |I).",".MDY$(3,I)|
00001900: 00 07 21 E4 11 82 49 00 0D 21 EE 11 8E 00 20 21 |..!...I..!.... !|
00001910: 88 13 8F 20 52 45 43 41 4C 4C 20 46 41 43 45 53 |... RECALL FACES|
00001920: 00 5E 21 92 13 8D 35 39 30 30 3A 51 55 49 54 B2 |.^!...5900:QUIT.|
00001930: 30 3A 45 53 24 B2 22 22 3A 8F 20 4F 42 54 41 49 |0:ES$."":. OBTAI|
00001940: 4E 20 54 48 45 20 4A 54 48 20 46 41 43 45 20 54 |N THE JTH FACE T|
00001950: 4F 20 42 45 20 44 49 53 50 4C 41 59 45 44 00 99 |O BE DISPLAYED..|
00001960: 21 9C 13 46 49 4C 45 24 B2 22 46 41 43 45 22 AA |!..FILE$."FACE".|
00001970: 52 43 4C 24 28 31 2C 59 29 3A 52 43 4C 24 28 31 |RCL$(1,Y):RCL$(1|
00001980: 2C 59 29 B2 22 44 4F 4E 45 22 3A 8F 20 44 49 53 |,Y)."DONE":. DIS|
00001990: 43 41 52 44 20 46 49 4C 45 00 BD 21 A6 13 8D 36 |CARD FILE..!...6|
000019A0: 35 30 30 3A 8F 20 44 49 53 50 4C 41 59 20 4F 4E |500:. DISPLAY ON|
000019B0: 20 48 49 52 45 53 20 53 43 52 45 45 4E 00 C9 21 | HIRES SCREEN..!|
000019C0: B0 13 99 C7 28 31 38 29 3B 00 E6 21 BA 13 56 54 |....(18);..!..VT|
000019D0: 25 B2 32 31 3A 8D 33 30 31 30 30 3A 99 22 12 4E |%.21:.30100:.".N|
000019E0: 41 4D 45 20 3A 22 00 03 22 C4 13 56 54 25 B2 32 |AME :".."..VT%.2|
000019F0: 32 3A 8D 33 30 31 30 30 3A 99 22 12 44 41 54 45 |2:.30100:.".DATE|
00001A00: 20 3A 22 00 22 22 CE 13 56 54 25 B2 32 33 3A 8D | :".""..VT%.23:.|
00001A10: 33 30 31 30 30 3A 99 22 12 50 48 4F 4E 45 3A 22 |30100:.".PHONE:"|
00001A20: 3A 99 00 3C 22 D8 13 56 54 25 B2 32 34 3A 8D 33 |:..<"..VT%.24:.3|
00001A30: 30 31 30 30 3A 97 20 32 31 31 2C 30 00 6C 22 D9 |0100:. 211,0.l".|
00001A40: 13 99 C7 28 31 34 36 29 3B 22 50 52 45 53 53 20 |...(146);"PRESS |
00001A50: 3C 52 45 54 55 52 4E 3E 20 41 46 54 45 52 20 45 |<RETURN> AFTER E|
00001A60: 41 43 48 20 45 4E 54 52 59 2E 22 3B 00 9C 22 E2 |ACH ENTRY.";..".|
00001A70: 13 56 54 25 B2 32 31 3A 8D 33 30 31 30 30 3A 97 |.VT%.21:.30100:.|
00001A80: 32 31 31 2C 33 35 3A 99 C7 28 31 38 29 3B 3A 46 |211,35:..(18);:F|
00001A90: 49 4C 45 24 B2 C4 28 48 53 43 52 29 00 BA 22 E3 |ILE$..(HSCR)..".|
00001AA0: 13 46 49 4C 45 24 B2 C9 28 46 49 4C 45 24 2C C3 |.FILE$..(FILE$,.|
00001AB0: 28 46 49 4C 45 24 29 AB 31 29 00 E0 22 E6 13 8B |(FILE$).1).."...|
00001AC0: C3 28 46 49 4C 45 24 29 B3 34 A7 46 49 4C 45 24 |.(FILE$).4.FILE$|
00001AD0: B2 46 49 4C 45 24 AA 22 20 22 3A 89 35 30 39 34 |.FILE$." ":.5094|
00001AE0: 00 FF 22 E7 13 46 49 4C 45 24 B2 46 49 4C 45 24 |.."..FILE$.FILE$|
00001AF0: AA 22 11 9D 9D 9D 9D 22 AA 22 50 54 53 20 22 00 |."....."."PTS ".|
00001B00: 28 23 EA 13 56 54 25 B2 32 31 3A 8D 33 30 31 30 |(#..VT%.21:.3010|
00001B10: 30 3A 97 20 32 31 31 2C 33 35 3A 99 46 49 4C 45 |0:. 211,35:.FILE|
00001B20: 24 3B C7 28 31 34 36 29 00 4A 23 EC 13 56 54 25 |$;.(146).J#..VT%|
00001B30: B2 32 31 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C |.21:.30100:.211,|
00001B40: 39 3A 99 22 2E 2E 2E 2E 2E 22 00 72 23 F6 13 56 |9:.".....".r#..V|
00001B50: 54 25 B2 32 32 3A 8D 33 30 31 30 30 3A 97 32 31 |T%.22:.30100:.21|
00001B60: 31 2C 39 3A 99 22 2E 2E 2E 20 2E 2E 20 2E 2E 2E |1,9:."... .. ...|
00001B70: 2E 22 00 97 23 00 14 56 54 25 B2 32 33 3A 8D 33 |."..#..VT%.23:.3|
00001B80: 30 31 30 30 3A 97 32 31 31 2C 39 3A 99 22 2E 2E |0100:.211,9:."..|
00001B90: 2E 2D 2E 2E 2E 2E 22 00 AE 23 0A 14 8D 35 34 30 |.-...."..#...540|
00001BA0: 30 3A 8B 51 55 49 54 B2 31 89 35 31 35 30 00 BD |0:.QUIT.1.5150..|
00001BB0: 23 0B 14 8B 20 51 4E B2 31 20 A7 20 8E 00 F8 23 |#... QN.1 . ...#|
00001BC0: 0F 14 56 54 25 B2 32 31 3A 8D 20 33 30 31 30 30 |..VT%.21:. 30100|
00001BD0: 3A 97 20 32 31 31 2C 33 35 3A 99 22 20 20 20 20 |:. 211,35:." |
00001BE0: 9D 9D 9D 9D 11 20 20 20 20 22 3B 3A 8F 20 45 52 |..... ";:. ER|
00001BF0: 41 53 45 20 50 54 53 2E 00 1C 24 14 14 8D 33 30 |ASE PTS...$...30|
00001C00: 30 30 3A 8F 20 44 49 53 50 4C 41 59 20 43 4F 52 |00:. DISPLAY COR|
00001C10: 52 45 43 54 20 41 4E 53 57 45 52 53 00 2F 24 1E |RECT ANSWERS./$.|
00001C20: 14 9E 20 34 39 31 35 35 3A 99 22 93 22 3A 8E 00 |.. 49155:.".":..|
00001C30: 4C 24 18 15 8F 20 53 50 45 43 49 41 4C 20 52 45 |L$... SPECIAL RE|
00001C40: 43 41 4C 4C 20 52 4F 55 54 49 4E 45 00 65 24 22 |CALL ROUTINE.e$"|
00001C50: 15 4B B2 31 3A 50 52 54 B2 31 3A 43 24 B2 22 22 |.K.1:PRT.1:C$.""|
00001C60: 3A 8D 20 37 35 00 76 24 2C 15 8B 50 52 54 B2 31 |:. 75.v$,..PRT.1|
00001C70: A7 8D 35 36 30 30 00 8A 24 36 15 8D 37 32 3A 58 |..5600..$6..72:X|
00001C80: B2 C6 28 43 24 AA 5A 45 24 29 00 99 24 37 15 8B |..(C$.ZE$)..$7..|
00001C90: 20 51 4E B2 31 20 A7 20 8E 00 BE 24 4A 15 8B 58 | QN.1 . ...$J..X|
00001CA0: B2 31 37 89 35 35 31 30 3A 8F 20 52 49 47 48 54 |.17.5510:. RIGHT|
00001CB0: 20 4F 52 20 44 4F 57 4E 20 41 52 52 4F 57 00 D5 | OR DOWN ARROW..|
00001CC0: 24 54 15 8B 28 58 B2 34 32 29 A7 51 51 B2 31 3A |$T..(X.42).QQ.1:|
00001CD0: 89 35 35 31 30 00 FB 24 5E 15 8B 28 58 B2 35 29 |.5510..$^..(X.5)|
00001CE0: A7 51 55 49 54 B2 31 3A 81 59 59 B2 31 A4 31 30 |.QUIT.1:.YY.1.10|
00001CF0: 3A A1 58 58 24 3A 82 59 59 3A 8E 00 17 25 68 15 |:.XX$:.YY:...%h.|
00001D00: 8B 58 B2 31 33 89 35 35 31 30 3A 8F 20 52 45 54 |.X.13.5510:. RET|
00001D10: 55 52 4E 20 4B 45 59 00 2F 25 72 15 8B 28 58 B2 |URN KEY./%r..(X.|
00001D20: 39 34 29 A7 8D 35 37 30 30 3A 89 35 35 33 30 00 |94)..5700:.5530.|
00001D30: 46 25 73 15 8F 20 42 41 43 4B 20 4F 52 20 55 50 |F%s.. BACK OR UP|
00001D40: 20 41 52 52 4F 57 00 5F 25 74 15 8B 28 58 B3 33 | ARROW._%t..(X.3|
00001D50: 32 29 B0 28 58 B2 31 33 32 29 89 35 35 35 30 00 |2).(X.132).5550.|
00001D60: 72 25 7C 15 8D 38 30 3A 41 46 54 24 28 4B 29 B2 |r%|..80:AFT$(K).|
00001D70: 4C 24 00 81 25 7D 15 8B 20 51 4E B2 31 20 A7 20 |L$..%}.. QN.1 . |
00001D80: 8E 00 A3 25 86 15 56 54 25 B2 32 30 AA 4B 3A 8D |...%..VT%.20.K:.|
00001D90: 33 30 31 30 30 3A 97 32 31 31 2C 36 3A 99 22 20 |30100:.211,6:." |
00001DA0: 20 20 22 00 BC 25 90 15 4B B2 4B AA 31 3A 8B 51 | "..%..K.K.1:.Q|
00001DB0: 51 B2 31 A7 4B B2 34 3A 51 51 B2 30 00 D8 25 9A |Q.1.K.4:QQ.0..%.|
00001DC0: 15 50 52 54 B2 31 3A 81 59 59 B2 31 A4 31 30 3A |.PRT.1:.YY.1.10:|
00001DD0: A1 58 58 24 3A 82 59 59 00 E1 25 A4 15 9E 20 4D |.XX$:.YY..%... M|
00001DE0: 55 00 FB 25 AE 15 8B 4B B1 33 A7 8D 35 38 30 30 |U..%...K.3..5800|
00001DF0: 3A 8B 45 53 24 B2 22 59 22 A7 8E 00 0C 26 B8 15 |:.ES$."Y"....&..|
00001E00: 8B 43 24 B2 22 59 22 89 35 35 38 30 00 16 26 C2 |.C$."Y".5580..&.|
00001E10: 15 89 35 34 32 30 00 1C 26 CC 15 8E 00 36 26 E0 |..5420..&....6&.|
00001E20: 15 8F 20 48 49 47 48 4C 49 47 48 54 20 4E 45 58 |.. HIGHLIGHT NEX|
00001E30: 54 20 4C 49 4E 45 00 59 26 EA 15 56 54 25 B2 32 |T LINE.Y&..VT%.2|
00001E40: 30 AA 4B 3A 8D 33 30 31 30 30 3A 97 32 31 31 2C |0.K:.30100:.211,|
00001E50: 36 3A 99 22 2D 2D 3E 22 3B 00 65 26 F4 15 50 52 |6:."-->";.e&..PR|
00001E60: 54 B2 30 3A 8E 00 7D 26 44 16 8F 20 42 41 43 4B |T.0:..}&D.. BACK|
00001E70: 53 50 41 43 45 20 48 41 4E 44 4C 45 52 00 A0 26 |SPACE HANDLER..&|
00001E80: 4E 16 56 54 25 B2 32 30 AA 4B 3A 8D 33 30 31 30 |N.VT%.20.K:.3010|
00001E90: 30 3A 97 32 31 31 2C 36 3A 99 22 20 20 20 22 3B |0:.211,6:." ";|
00001EA0: 00 AA 26 58 16 4B B2 4B AB 31 00 B7 26 62 16 8B |..&X.K.K.1..&b..|
00001EB0: 4B B3 31 A7 4B B2 31 00 BD 26 6C 16 8E 00 D0 26 |K.1.K.1..&l....&|
00001EC0: A8 16 8F 20 41 4E 59 20 43 48 41 4E 47 45 53 3F |... ANY CHANGES?|
00001ED0: 00 FD 26 B2 16 4B B2 33 3A 56 54 25 B2 32 34 3A |..&..K.3:VT%.24:|
00001EE0: 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 3A 97 30 |.30100:.211,0:.0|
00001EF0: 2C 50 49 54 43 48 28 37 29 3A 9E 4D 55 00 2D 27 |,PITCH(7):.MU.-'|
00001F00: BC 16 99 22 41 52 45 20 59 4F 55 20 46 49 4E 49 |..."ARE YOU FINI|
00001F10: 53 48 45 44 20 4D 41 4B 49 4E 47 20 45 4E 54 52 |SHED MAKING ENTR|
00001F20: 49 45 53 3F 20 28 59 2F 4E 29 20 22 3B 00 4B 27 |IES? (Y/N) ";.K'|
00001F30: C6 16 56 54 25 B2 32 34 3A 8D 33 30 31 30 30 3A |..VT%.24:.30100:|
00001F40: 97 32 31 31 2C 33 39 3A 8D 37 32 00 5A 27 C7 16 |.211,39:.72.Z'..|
00001F50: 8B 20 51 4E B2 31 20 A7 20 8E 00 9C 27 D0 16 8B |. QN.1 . ...'...|
00001F60: 43 24 B2 22 59 22 89 35 38 39 39 3A 8F 20 52 45 |C$."Y".5899:. RE|
00001F70: 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 45 4E 54 |TURN TO MAIN ENT|
00001F80: 52 59 20 52 4F 55 54 49 4E 45 20 26 20 51 55 49 |RY ROUTINE & QUI|
00001F90: 54 20 45 4E 54 52 59 20 4D 4F 44 45 00 B4 27 DA |T ENTRY MODE..'.|
00001FA0: 16 8B 43 24 B2 C7 28 31 37 29 A7 4B B2 31 3A 89 |..C$..(17).K.1:.|
00001FB0: 35 38 39 30 00 CE 27 E4 16 8B 43 24 B2 22 4E 22 |5890..'...C$."N"|
00001FC0: B0 43 24 B2 C7 28 39 34 29 89 35 38 39 30 00 F0 |.C$..(94).5890..|
00001FD0: 27 EE 16 8B 43 24 B2 C7 28 35 29 A7 45 53 24 B2 |'...C$..(5).ES$.|
00001FE0: 22 59 22 3A 51 55 49 54 B2 31 3A 89 35 38 39 39 |"Y":QUIT.1:.5899|
00001FF0: 00 18 28 EF 16 8F 20 3C 43 54 52 4C 2D 45 3E 20 |..(... <CTRL-E> |
00002000: 45 4E 44 20 47 41 4D 45 20 26 20 44 49 53 50 4C |END GAME & DISPL|
00002010: 41 59 20 53 43 4F 52 45 00 22 28 F8 16 89 35 38 |AY SCORE."(...58|
00002020: 33 30 00 3B 28 02 17 56 54 25 B2 32 34 3A 8D 33 |30.;(..VT%.24:.3|
00002030: 30 31 30 30 3A 97 32 31 31 2C 30 00 73 28 03 17 |0100:.211,0.s(..|
00002040: 99 22 4D 41 4B 45 20 43 48 41 4E 47 45 53 20 41 |."MAKE CHANGES A|
00002050: 4E 44 20 52 45 54 55 52 4E 20 50 41 53 54 20 4C |ND RETURN PAST L|
00002060: 41 53 54 20 45 4E 54 52 59 22 3B 3A 8D 20 33 30 |AST ENTRY";:. 30|
00002070: 32 30 30 00 79 28 0B 17 8E 00 97 28 0C 17 59 B2 |200.y(.....(..Y.|
00002080: 30 3A 4A 4A B2 B5 28 28 44 53 50 AB 52 58 29 AC |0:JJ..((DSP.RX).|
00002090: BB 28 31 29 29 AA 31 00 B9 28 0D 17 8F 20 4F 42 |.(1)).1..(... OB|
000020A0: 54 41 49 4E 20 4A 54 48 20 55 4E 44 49 53 50 4C |TAIN JTH UNDISPL|
000020B0: 41 59 45 44 20 46 41 43 45 00 C6 28 20 17 81 4B |AYED FACE..( ..K|
000020C0: 4B B2 31 A4 4A 4A 00 E7 28 2A 17 59 B2 59 AA 31 |K.1.JJ..(*.Y.Y.1|
000020D0: 3A 8B 52 43 4C 24 28 31 2C 59 29 B2 22 44 4F 4E |:.RCL$(1,Y)."DON|
000020E0: 45 22 89 35 39 33 30 00 0E 29 2B 17 8F 20 54 52 |E".5930..)+.. TR|
000020F0: 59 20 4E 45 58 54 20 46 41 43 45 2E 20 57 41 53 |Y NEXT FACE. WAS|
00002100: 20 49 54 20 44 49 53 50 4C 41 59 45 44 3F 00 18 | IT DISPLAYED?..|
00002110: 29 34 17 82 4B 4B 3A 8E 00 39 29 70 17 8F 20 44 |)4..KK:..9)p.. D|
00002120: 49 53 50 4C 41 59 20 4E 41 4D 45 53 20 26 20 46 |ISPLAY NAMES & F|
00002130: 41 43 45 53 20 45 54 43 2E 00 56 29 7A 17 46 49 |ACES ETC..V)z.FI|
00002140: 4C 45 24 B2 22 46 41 43 45 22 AA 52 43 4C 24 28 |LE$."FACE".RCL$(|
00002150: 31 2C 44 53 50 29 00 67 29 84 17 8D 36 35 30 30 |1,DSP).g)...6500|
00002160: 3A 51 55 49 54 B2 30 00 8B 29 98 17 56 54 25 B2 |:QUIT.0..)..VT%.|
00002170: 32 32 3A 8D 33 30 31 30 30 3A 99 A3 35 29 3B 52 |22:.30100:..5);R|
00002180: 43 4C 24 28 32 2C 44 53 50 29 3B 00 B2 29 99 17 |CL$(2,DSP);..)..|
00002190: 99 A3 31 35 29 3B 52 43 4C 24 28 33 2C 44 53 50 |..15);RCL$(3,DSP|
000021A0: 29 3B A3 33 30 29 3B 52 43 4C 24 28 34 2C 44 53 |);.30);RCL$(4,DS|
000021B0: 50 29 00 DD 29 A2 17 56 54 25 B2 32 34 3A 8D 33 |P)..)..VT%.24:.3|
000021C0: 30 31 30 30 3A 97 32 31 31 2C 35 3A 99 22 50 52 |0100:.211,5:."PR|
000021D0: 45 53 53 20 3C 22 3B C7 28 31 38 29 3B 00 0B 2A |ESS <";.(18);..*|
000021E0: A3 17 99 22 53 50 41 43 45 20 42 41 52 22 3B C7 |..."SPACE BAR";.|
000021F0: 28 31 34 36 29 3B 22 3E 20 57 48 45 4E 20 4D 45 |(146);"> WHEN ME|
00002200: 4D 4F 52 49 5A 45 44 2E 2E 22 3B 00 20 2A A4 17 |MORIZED..";. *..|
00002210: 81 59 59 B2 31 A4 31 30 3A A1 43 24 3A 82 59 59 |.YY.1.10:.C$:.YY|
00002220: 00 4C 2A AC 17 A1 20 43 24 3A 8D 20 37 34 3A 58 |.L*... C$:. 74:X|
00002230: B2 C6 28 43 24 AA 5A 45 24 29 3A 8B 58 B2 35 A7 |..(C$.ZE$):.X.5.|
00002240: 51 55 49 54 B2 31 3A 89 36 30 39 39 00 5B 2A AD |QUIT.1:.6099.[*.|
00002250: 17 8B 20 51 4E B2 31 20 A7 20 8E 00 78 2A B6 17 |.. QN.1 . ..x*..|
00002260: 48 54 49 4D B2 48 54 49 4D AB 35 3A 8B 48 54 49 |HTIM.HTIM.5:.HTI|
00002270: 4D B1 30 A7 36 30 38 30 00 B1 2A B7 17 99 C7 28 |M.0.6080..*....(|
00002280: 31 34 37 29 3B 3A 56 54 25 B2 31 30 3A 8D 33 30 |147);:VT%.10:.30|
00002290: 31 30 30 3A 46 49 4C 45 24 B2 22 59 4F 55 52 20 |100:FILE$."YOUR |
000022A0: 54 49 4D 45 20 4C 49 4D 49 54 20 49 53 20 55 50 |TIME LIMIT IS UP|
000022B0: 22 00 CC 2A B8 17 8D 32 39 39 30 3A 53 45 43 B2 |"..*...2990:SEC.|
000022C0: 35 3A 8D 32 39 30 30 3A 89 35 34 30 00 ED 2A C0 |5:.2900:.540..*.|
000022D0: 17 56 54 25 B2 32 34 3A 8D 33 30 31 30 30 3A 97 |.VT%.24:.30100:.|
000022E0: 32 31 31 2C 30 3A 99 C7 28 31 38 29 3B 00 12 2B |211,0:..(18);..+|
000022F0: C1 17 99 C9 28 C4 28 B5 28 48 54 49 4D AD 36 35 |....(.(.(HTIM.65|
00002300: 29 29 2C 33 29 3B C7 28 31 34 36 29 3B 22 20 20 |)),3);.(146);" |
00002310: 22 3B 00 23 2B CA 17 8B 58 B3 B1 33 32 20 89 36 |";.#+...X..32 .6|
00002320: 30 36 30 00 3A 2B D3 17 9E 20 34 39 31 35 35 3A |060.:+... 49155:|
00002330: 99 C7 28 31 34 37 29 3B 3A 8E 00 50 2B 64 19 8F |..(147);:..P+d..|
00002340: 20 48 49 52 45 53 20 44 49 53 50 4C 41 59 45 52 | HIRES DISPLAYER|
00002350: 00 76 2B 6E 19 99 C7 28 31 34 37 29 3B 3A 8D 20 |.v+n...(147);:. |
00002360: 36 35 35 30 3A 9E 20 34 39 31 35 38 3A 9E 20 34 |6550:. 49158:. 4|
00002370: 39 31 35 32 3A 8E 00 94 2B 78 19 8F 20 43 41 4C |9152:...+x.. CAL|
00002380: 4C 20 48 49 52 45 53 20 4C 4F 41 44 20 52 4F 55 |L HIRES LOAD ROU|
00002390: 54 49 4E 45 00 AE 2B 96 19 8F 20 42 49 4E 41 52 |TINE..+... BINAR|
000023A0: 59 20 4C 4F 41 44 20 52 4F 55 54 49 4E 45 00 D0 |Y LOAD ROUTINE..|
000023B0: 2B A0 19 9E 20 34 39 31 35 35 3A 4C 53 B2 4C 44 |+... 49155:LS.LD|
000023C0: AA 33 3A 97 20 4C 53 2C C3 28 46 49 4C 45 24 29 |.3:. LS,.(FILE$)|
000023D0: 00 00 2C AA 19 81 20 54 B2 31 20 A4 20 C3 28 46 |..,... T.1 . .(F|
000023E0: 49 4C 45 24 29 3A 97 20 4C 53 AA 54 2C C6 28 CA |ILE$):. LS.T,.(.|
000023F0: 28 46 49 4C 45 24 2C 54 2C 31 29 29 3A 82 20 54 |(FILE$,T,1)):. T|
00002400: 00 22 2C B4 19 9E 20 4C 44 3A A0 20 34 3A 8B 20 |.",... LD:. 4:. |
00002410: 28 53 54 20 AF 20 31 39 31 29 20 A7 20 31 37 30 |(ST . 191) . 170|
00002420: 30 30 00 28 2C BE 19 8E 00 3E 2C C8 19 8F 20 50 |00.(,....>,... P|
00002430: 49 43 54 55 52 45 20 44 49 53 50 4C 41 59 00 56 |ICTURE DISPLAY.V|
00002440: 2C D2 19 8D 36 35 30 30 3A 8D 39 35 30 30 3A 9E |,...6500:.9500:.|
00002450: 20 34 39 31 35 35 00 6B 2C DC 19 8D 33 30 31 30 | 49155.k,...3010|
00002460: 30 99 C7 28 31 34 37 29 3B 3A 8E 00 A6 2C DA 1B |0..(147);:...,..|
00002470: 8D 31 33 30 30 30 3A 46 49 4C 45 24 B2 22 4C 4F |.13000:FILE$."LO|
00002480: 41 44 49 4E 47 20 4D 45 4D 4F 52 59 20 54 52 41 |ADING MEMORY TRA|
00002490: 49 4E 45 52 20 4D 41 49 4E 20 4D 45 4E 55 22 3A |INER MAIN MENU":|
000024A0: 56 54 25 B2 31 30 00 C2 2C DB 1B 8D 33 30 31 30 |VT%.10..,...3010|
000024B0: 30 3A 8D 32 39 39 30 3A 99 22 90 22 3A 99 3A 99 |0:.2990:.".":.:.|
000024C0: 3A 99 00 FA 2C DC 1B 99 22 20 20 20 20 20 20 4C |:...,..." L|
000024D0: 4F 41 44 22 3B C7 28 33 34 29 3B 22 49 4E 54 52 |OAD";.(34);"INTR|
000024E0: 4F 44 55 43 54 49 4F 4E 22 3B C7 28 33 34 29 3B |ODUCTION";.(34);|
000024F0: 22 2C 38 22 3B 22 91 91 91 22 00 29 2D DD 1B 97 |",8";"...".)-...|
00002500: 20 31 39 38 2C 36 3A 97 20 36 33 31 2C 31 33 3A | 198,6:. 631,13:|
00002510: 97 20 36 33 32 2C C6 28 22 11 22 29 3A 97 20 36 |. 632,.("."):. 6|
00002520: 33 33 2C C6 28 22 52 22 29 00 52 2D DE 1B 97 20 |33,.("R").R-... |
00002530: 36 33 34 2C C6 28 22 55 22 29 3A 97 20 36 33 35 |634,.("U"):. 635|
00002540: 2C C6 28 22 4E 22 29 3A 97 20 36 33 36 2C 31 33 |,.("N"):. 636,13|
00002550: 3A 80 00 5B 2D E4 1B 89 31 31 30 00 7A 2D 1A 1D |:..[-...110.z-..|
00002560: 99 C7 28 31 34 37 29 3B 3A 56 54 25 B2 31 30 3A |..(147);:VT%.10:|
00002570: 8D 33 30 31 30 30 3A 9E 4D 55 00 AB 2D 1B 1D 99 |.30100:.MU..-...|
00002580: 22 42 45 20 53 55 52 45 20 4D 45 4D 4F 52 59 20 |"BE SURE MEMORY |
00002590: 54 52 41 49 4E 45 52 20 22 3B C7 28 31 38 29 3B |TRAINER ";.(18);|
000025A0: 22 44 49 53 4B 20 22 3B 53 44 24 00 E4 2D 1C 1D |"DISK ";SD$..-..|
000025B0: 56 54 25 B2 31 32 3A 8D 33 30 31 30 30 3A 99 22 |VT%.12:.30100:."|
000025C0: 49 53 20 50 52 4F 50 45 52 4C 59 20 49 4E 53 45 |IS PROPERLY INSE|
000025D0: 52 54 45 44 20 49 4E 54 4F 20 44 52 49 56 45 20 |RTED INTO DRIVE |
000025E0: 23 31 2E 22 00 EE 2D 24 1D 8D 39 35 30 30 00 FF |#1."..-$..9500..|
000025F0: 2D 25 1D 8B 20 51 4E B2 31 20 A7 20 31 31 30 00 |-%.. QN.1 . 110.|
00002600: 09 2E 38 1D 89 37 31 33 30 00 27 2E 4C 1D 8F 20 |..8..7130.'.L.. |
00002610: 54 45 58 54 20 46 49 4C 45 20 53 43 52 45 45 4E |TEXT FILE SCREEN|
00002620: 20 57 52 49 54 45 52 00 46 2E 60 1D 9F 20 32 2C | WRITER.F.`.. 2,|
00002630: 38 2C 32 2C 46 49 4C 45 24 3A 8B 20 53 54 20 A7 |8,2,FILE$:. ST .|
00002640: 20 31 37 30 30 30 00 52 2E 6A 1D 81 49 B2 31 A4 | 17000.R.j..I.1.|
00002650: 32 34 00 7F 2E 74 1D 84 32 2C 53 39 24 28 49 29 |24...t..2,S9$(I)|
00002660: 3A 8B 20 53 54 20 AF 20 A8 28 49 B2 32 34 20 AF |:. ST . .(I.24 .|
00002670: 20 53 54 B2 36 34 29 20 A7 20 31 37 30 30 30 00 | ST.64) . 17000.|
00002680: 8B 2E 7E 1D 82 20 49 3A A0 20 32 00 C4 2E 88 1D |..~.. I:. 2.....|
00002690: 99 C7 28 31 34 37 29 3B 3A 99 C7 28 31 38 29 3B |..(147);:..(18);|
000026A0: 3A 46 49 4C 45 24 B2 22 54 48 45 20 45 49 4E 53 |:FILE$."THE EINS|
000026B0: 54 45 49 4E 20 4D 45 4D 4F 52 59 20 54 52 41 49 |TEIN MEMORY TRAI|
000026C0: 4E 45 52 22 00 D6 2E 89 1D 8D 32 39 39 30 3A 99 |NER"......2990:.|
000026D0: C7 28 31 34 36 29 00 E2 2E 92 1D 81 49 B2 32 A4 |.(146)......I.2.|
000026E0: 32 32 00 F1 2E 9C 1D 99 53 39 24 28 49 29 3A 82 |22......S9$(I):.|
000026F0: 49 00 1A 2F A6 1D 53 45 43 B2 2E 35 3A 8D 32 39 |I../..SEC..5:.29|
00002700: 30 30 3A 56 54 25 B2 32 34 3A 8D 33 30 31 30 30 |00:VT%.24:.30100|
00002710: 3A 99 53 39 24 28 32 33 29 3B 00 24 2F B0 1D 8D |:.S9$(23);.$/...|
00002720: 39 35 32 30 00 33 2F B1 1D 8B 20 51 4E B2 31 20 |9520.3/... QN.1 |
00002730: A7 20 8E 00 52 2F BA 1D 81 59 59 B2 31 A4 31 30 |. ..R/...YY.1.10|
00002740: 3A A1 58 58 24 3A 82 59 59 3A 8D 31 33 30 30 30 |:.XX$:.YY:.13000|
00002750: 3A 8E 00 66 2F 40 1F 8F 20 4D 45 4E 55 20 53 45 |:..f/@.. MENU SE|
00002760: 4C 45 43 54 4F 52 00 85 2F 4A 1F 99 C7 28 31 34 |LECTOR../J...(14|
00002770: 37 29 3B 3A 81 59 59 B2 31 A4 31 30 3A A1 58 58 |7);:.YY.1.10:.XX|
00002780: 24 3A 82 59 59 00 B5 2F 54 1F 46 49 4C 45 24 B2 |$:.YY../T.FILE$.|
00002790: 22 54 48 45 20 45 49 4E 53 54 45 49 4E 20 4D 45 |"THE EINSTEIN ME|
000027A0: 4D 4F 52 59 20 54 52 41 49 4E 45 52 22 3A 99 C7 |MORY TRAINER":..|
000027B0: 28 31 38 29 3B 00 C8 2F 55 1F 8D 32 39 39 30 3A |(18);../U..2990:|
000027C0: 99 C7 28 31 34 36 29 3B 00 FD 2F 5E 1F 56 54 25 |..(146);../^.VT%|
000027D0: B2 32 34 3A 8D 33 30 31 30 30 3A 99 22 46 49 4C |.24:.30100:."FIL|
000027E0: 45 20 4E 41 4D 45 3A 20 22 3B C7 28 31 38 29 3B |E NAME: ";.(18);|
000027F0: 46 4C 4E 4D 24 3B C7 28 31 34 36 29 3B 00 33 30 |FLNM$;.(146);.30|
00002800: 68 1F 56 54 25 B2 34 3A 8D 33 30 31 30 30 3A 97 |h.VT%.4:.30100:.|
00002810: 32 31 31 2C 30 3A 46 49 4C 45 24 B2 22 4D 45 4D |211,0:FILE$."MEM|
00002820: 4F 52 59 20 4D 49 58 20 47 41 4D 45 22 3A 8D 32 |ORY MIX GAME":.2|
00002830: 39 39 30 00 44 30 72 1F 81 49 B2 36 35 A4 36 34 |990.D0r..I.65.64|
00002840: AA 4D 41 58 00 4F 30 7C 1F 53 B2 49 AB 36 34 00 |.MAX.O0|.S.I.64.|
00002850: 74 30 86 1F 56 54 25 B2 53 AA 36 3A 8D 33 30 31 |t0..VT%.S.6:.301|
00002860: 30 30 3A 99 C7 28 49 29 22 20 3A 20 22 50 47 4D |00:..(I)" : "PGM|
00002870: 24 28 53 29 00 7C 30 90 1F 82 3A 99 00 8D 30 9A |$(S).|0...:...0.|
00002880: 1F 8B 50 56 24 B2 22 22 89 38 31 31 30 00 CA 30 |..PV$."".8110..0|
00002890: A4 1F 56 54 25 B2 32 30 3A 8D 33 30 31 30 30 3A |..VT%.20:.30100:|
000028A0: 99 22 28 59 4F 55 52 20 50 52 45 56 49 4F 55 53 |."(YOUR PREVIOUS|
000028B0: 20 53 45 4C 45 43 54 49 4F 4E 20 57 41 53 20 27 | SELECTION WAS '|
000028C0: 22 3B 50 56 24 3B 22 27 29 22 00 06 31 AE 1F 56 |";PV$;"')"..1..V|
000028D0: 54 25 B2 31 38 3A 8D 33 30 31 30 30 3A 99 22 53 |T%.18:.30100:."S|
000028E0: 45 4C 45 43 54 20 4F 50 54 49 4F 4E 3A 20 22 3B |ELECT OPTION: ";|
000028F0: 3A 8D 33 30 32 30 30 3A 8F 20 43 4C 45 41 52 20 |:.30200:. CLEAR |
00002900: 54 4F 20 45 4F 4C 00 21 31 B8 1F 8D 37 32 3A 43 |TO EOL.!1...72:C|
00002910: B2 C6 28 43 24 AA 5A 45 24 29 3A 41 4E 24 B2 43 |..(C$.ZE$):AN$.C|
00002920: 24 00 39 31 CC 1F 8B 43 B3 36 35 B0 43 B1 36 34 |$.91...C.65.C.64|
00002930: AA 4D 41 58 89 38 31 32 30 00 46 31 D6 1F 99 3A |.MAX.8120.F1...:|
00002940: 43 B2 43 AB 36 34 00 6C 31 E0 1F 56 54 25 B2 43 |C.C.64.l1..VT%.C|
00002950: AA 36 3A 8D 33 30 31 30 30 3A 99 C7 28 31 38 29 |.6:.30100:..(18)|
00002960: 3B 41 4E 24 3B C7 28 31 34 36 29 3B 00 8C 31 E1 |;AN$;.(146);..1.|
00002970: 1F 99 22 20 3A 20 22 3B C7 28 31 38 29 3B 50 47 |.." : ";.(18);PG|
00002980: 4D 24 28 43 29 C7 28 31 34 36 29 3B 00 D1 31 EA |M$(C).(146);..1.|
00002990: 1F 56 54 25 B2 31 38 3A 8D 33 30 31 30 30 3A 97 |.VT%.18:.30100:.|
000029A0: 20 32 31 31 2C 30 3A 99 22 49 53 20 54 48 49 53 | 211,0:."IS THIS|
000029B0: 20 54 48 45 20 53 45 4C 45 43 54 49 4F 4E 20 59 | THE SELECTION Y|
000029C0: 4F 55 20 57 41 4E 54 3F 20 28 59 2F 4E 29 20 22 |OU WANT? (Y/N) "|
000029D0: 3B 00 F5 31 F4 1F 8D 37 31 3A 8B 43 24 B3 B1 22 |;..1...71:.C$.."|
000029E0: 59 22 AF 43 24 B3 B1 22 4E 22 A7 99 42 24 3B 3A |Y".C$.."N"..B$;:|
000029F0: 89 38 31 38 30 00 14 32 FE 1F 99 43 24 3A 8B 43 |.8180..2...C$:.C|
00002A00: 24 B3 B1 22 4E 22 A7 50 56 24 B2 41 4E 24 3A 89 |$.."N".PV$.AN$:.|
00002A10: 38 32 31 30 00 3E 32 08 20 56 54 25 B2 43 AA 36 |8210.>2. VT%.C.6|
00002A20: 3A 8D 33 30 31 30 30 3A 99 41 4E 24 22 20 3A 20 |:.30100:.AN$" : |
00002A30: 22 50 47 4D 24 28 43 29 3A 89 38 31 31 30 00 44 |"PGM$(C):.8110.D|
00002A40: 32 12 20 8E 00 69 32 1C 25 8F 20 57 41 49 54 20 |2. ..i2.%. WAIT |
00002A50: 46 4F 52 20 53 50 41 43 45 20 42 41 52 20 54 4F |FOR SPACE BAR TO|
00002A60: 20 43 4F 4E 54 49 4E 55 45 00 A8 32 26 25 56 54 | CONTINUE..2&%VT|
00002A70: 25 B2 32 34 3A 8D 33 30 31 30 30 3A 97 20 32 31 |%.24:.30100:. 21|
00002A80: 31 2C 31 3A 99 22 50 52 45 53 53 20 3C 53 50 41 |1,1:."PRESS <SPA|
00002A90: 43 45 20 42 41 52 3E 20 54 4F 20 43 4F 4E 54 49 |CE BAR> TO CONTI|
00002AA0: 4E 55 45 2E 2E 2E 22 3B 00 BD 32 27 25 81 59 59 |NUE...";..2'%.YY|
00002AB0: B2 31 A4 31 30 3A A1 43 24 3A 82 59 59 00 D0 32 |.1.10:.C$:.YY..2|
00002AC0: 30 25 8D 37 33 3A 8B 20 51 4E B2 31 20 A7 20 8E |0%.73:. QN.1 . .|
00002AD0: 00 E2 32 35 25 8B 43 24 B3 B1 22 20 22 A7 39 35 |..25%.C$.." ".95|
00002AE0: 32 30 00 E8 32 3A 25 8E 00 13 33 80 25 8B 20 43 |20..2:%...3.%. C|
00002AF0: 24 B2 C7 28 33 29 A7 20 97 20 32 30 34 2C 31 3A |$..(3). . 204,1:|
00002B00: 50 56 24 B2 22 22 3A 9E 20 34 39 31 35 35 3A 51 |PV$."":. 49155:Q|
00002B10: 4E B2 31 00 19 33 8A 25 8E 00 2E 33 10 27 8F 20 |N.1..3.%...3.'. |
00002B20: 49 4E 49 54 49 41 4C 49 5A 41 54 49 4F 4E 00 3C |INITIALIZATION.<|
00002B30: 33 1A 27 86 52 44 52 25 28 32 30 29 00 58 33 1F |3.'.RDR%(20).X3.|
00002B40: 27 8F 20 52 43 4C 24 28 31 2C 49 29 3D 46 41 43 |'. RCL$(1,I)=FAC|
00002B50: 45 20 4E 55 4D 42 45 52 00 79 33 20 27 8F 20 52 |E NUMBER.y3 '. R|
00002B60: 43 4C 24 28 32 2C 49 29 3D 4D 41 4C 45 2F 46 45 |CL$(2,I)=MALE/FE|
00002B70: 4D 41 4C 45 20 4E 41 4D 45 00 92 33 21 27 8F 20 |MALE NAME..3!'. |
00002B80: 52 43 4C 24 28 33 2C 49 29 3D 42 49 52 54 48 44 |RCL$(3,I)=BIRTHD|
00002B90: 41 59 00 AF 33 22 27 8F 20 52 43 4C 24 28 34 2C |AY..3"'. RCL$(4,|
00002BA0: 49 29 3D 50 48 4F 4E 45 20 4E 55 4D 42 45 52 00 |I)=PHONE NUMBER.|
00002BB0: D1 33 24 27 4B 4D 41 58 B2 32 30 3A 44 24 B2 C7 |.3$'KMAX.20:D$..|
00002BC0: 28 31 33 29 AA C7 28 34 29 3A 53 44 24 B2 22 41 |(13)..(4):SD$."A|
00002BD0: 22 00 EA 33 2E 27 81 49 B2 31 A4 31 32 3A 87 4D |"..3.'.I.1.12:.M|
00002BE0: 4E 54 48 24 28 49 29 3A 82 49 00 2C 34 38 27 83 |NTH$(I):.I.,48'.|
00002BF0: 20 4A 41 4E 2E 2C 46 45 42 2E 2C 4D 41 52 2E 2C | JAN.,FEB.,MAR.,|
00002C00: 41 50 52 2E 2C 4D 41 59 20 2C 4A 55 4E 45 2C 4A |APR.,MAY ,JUNE,J|
00002C10: 55 4C 59 2C 41 55 47 2E 2C 53 45 50 2E 2C 4F 43 |ULY,AUG.,SEP.,OC|
00002C20: 54 2E 2C 4E 4F 56 2E 2C 44 45 43 2E 00 44 34 60 |T.,NOV.,DEC..D4`|
00002C30: 27 81 49 B2 31 A4 32 30 3A 87 4D 45 4E 24 28 49 |'.I.1.20:.MEN$(I|
00002C40: 29 3A 82 49 00 84 34 6A 27 83 20 42 49 4C 4C 2C |):.I..4j'. BILL,|
00002C50: 42 4F 42 2C 42 52 55 43 45 2C 43 48 55 43 4B 2C |BOB,BRUCE,CHUCK,|
00002C60: 44 41 56 45 2C 44 45 4E 4E 49 53 2C 45 44 2C 46 |DAVE,DENNIS,ED,F|
00002C70: 52 41 4E 4B 2C 48 41 52 52 59 2C 4A 41 43 4B 2C |RANK,HARRY,JACK,|
00002C80: 4A 45 46 46 00 B4 34 6B 27 83 20 4A 49 4D 2C 4A |JEFF..4k'. JIM,J|
00002C90: 4F 45 2C 4A 4F 48 4E 2C 4B 45 4E 2C 4D 41 52 4B |OE,JOHN,KEN,MARK|
00002CA0: 2C 4D 49 4B 45 2C 50 48 49 4C 2C 53 54 45 56 45 |,MIKE,PHIL,STEVE|
00002CB0: 2C 54 4F 4D 00 CE 34 74 27 81 49 B2 31 A4 32 30 |,TOM..4t'.I.1.20|
00002CC0: 3A 87 57 4F 4D 45 4E 24 28 49 29 3A 82 49 00 12 |:.WOMEN$(I):.I..|
00002CD0: 35 7E 27 83 20 41 4C 49 43 45 2C 41 4E 4E 45 2C |5~'. ALICE,ANNE,|
00002CE0: 43 41 52 4F 4C 2C 43 41 54 48 59 2C 44 4F 52 49 |CAROL,CATHY,DORI|
00002CF0: 53 2C 45 49 4C 45 45 4E 2C 47 41 49 4C 2C 4A 41 |S,EILEEN,GAIL,JA|
00002D00: 4E 45 2C 4A 45 41 4E 2C 4A 4F 41 4E 2C 4A 4F 59 |NE,JEAN,JOAN,JOY|
00002D10: 43 45 00 48 35 7F 27 83 20 4A 55 4C 49 45 2C 4B |CE.H5.'. JULIE,K|
00002D20: 41 54 45 2C 4C 49 53 41 2C 4C 49 5A 2C 52 55 54 |ATE,LISA,LIZ,RUT|
00002D30: 48 2C 53 41 4E 44 59 2C 53 48 45 52 52 59 2C 53 |H,SANDY,SHERRY,S|
00002D40: 55 45 2C 57 45 4E 44 59 00 5A 35 CC 29 8F 20 4D |UE,WENDY.Z5.). M|
00002D50: 55 53 49 43 20 53 54 55 46 46 00 67 35 D6 29 53 |USIC STUFF.g5.)S|
00002D60: 58 B2 35 34 32 37 32 00 89 35 E0 29 81 20 54 B2 |X.54272..5.). T.|
00002D70: 31 20 A4 20 39 3A 87 20 48 46 25 28 54 29 2C 4C |1 . 9:. HF%(T),L|
00002D80: 46 25 28 54 29 3A 82 20 54 00 C7 35 EA 29 83 20 |F%(T):. T..5.). |
00002D90: 31 36 2C 31 39 35 2C 31 38 2C 32 30 39 2C 32 31 |16,195,18,209,21|
00002DA0: 2C 33 31 2C 32 32 2C 39 36 2C 32 35 2C 33 30 2C |,31,22,96,25,30,|
00002DB0: 32 38 2C 34 39 2C 33 31 2C 31 36 35 2C 33 33 2C |28,49,31,165,33,|
00002DC0: 31 33 35 2C 30 2C 30 00 CD 35 F4 29 8F 00 E2 35 |135,0,0..5.)...5|
00002DD0: F8 2A 8F 20 52 45 41 44 20 46 49 4C 45 20 4E 41 |.*. READ FILE NA|
00002DE0: 4D 45 00 1D 36 02 2B 46 4C 4E 4D 24 B2 22 22 3A |ME..6.+FLNM$."":|
00002DF0: 44 53 4B 24 B2 C7 28 C2 28 44 45 29 29 3A 8B 44 |DSK$..(.(DE)):.D|
00002E00: 53 4B 24 B3 B1 22 59 22 A7 46 4C 4E 4D 24 B2 22 |SK$.."Y".FLNM$."|
00002E10: 4E 4F 4E 45 22 3A 89 20 31 31 38 39 30 00 46 36 |NONE":. 11890.F6|
00002E20: 0C 2B 81 49 B2 31 A4 C2 28 4E 4D 29 3A 46 4C 4E |.+.I.1..(NM):FLN|
00002E30: 4D 24 B2 46 4C 4E 4D 24 AA C7 28 C2 28 4E 4D AA |M$.FLNM$..(.(NM.|
00002E40: 49 29 29 3A 82 49 00 4C 36 72 2E 8F 00 52 36 DF |I)):.I.L6r...R6.|
00002E50: 2E 8E 00 6B 36 C8 32 8F 20 43 45 4E 54 45 52 2F |...k6.2. CENTER/|
00002E60: 4F 55 54 20 57 49 50 45 4F 55 54 00 7A 36 D2 32 |OUT WIPEOUT.z6.2|
00002E70: 99 C7 28 31 34 37 29 3B 3A 8E 00 8E 36 80 3E 8F |..(147);:...6.>.|
00002E80: 20 4D 45 4C 4F 44 59 20 50 4C 41 59 45 52 00 A0 | MELODY PLAYER..|
00002E90: 36 8A 3E 81 49 B2 31 A4 C3 28 46 49 4C 45 24 29 |6.>.I.1..(FILE$)|
00002EA0: 00 B6 36 94 3E 58 B2 C5 28 CA 28 46 49 4C 45 24 |..6.>X..(.(FILE$|
00002EB0: 2C 49 2C 31 29 29 00 ED 36 9E 3E 97 53 58 AA 31 |,I,1))..6.>.SX.1|
00002EC0: 2C 48 46 25 28 58 29 3A 97 20 53 58 2C 4C 46 25 |,HF%(X):. SX,LF%|
00002ED0: 28 58 29 3A 97 20 53 58 AA 34 2C 33 33 3A 53 45 |(X):. SX.4,33:SE|
00002EE0: 43 B2 30 2E 30 33 3A 8D 20 32 39 30 30 00 05 37 |C.0.03:. 2900..7|
00002EF0: 9F 3E 8B 20 51 4E B2 31 20 A7 20 97 20 53 58 AA |.>. QN.1 . . SX.|
00002F00: 34 2C 30 3A 8E 00 17 37 A8 3E 97 20 53 58 AA 34 |4,0:...7.>. SX.4|
00002F10: 2C 30 3A 82 49 3A 8E 00 2C 37 68 42 8F 20 45 52 |,0:.I:..,7hB. ER|
00002F20: 52 4F 52 20 48 41 4E 44 4C 49 4E 47 00 44 37 6D |ROR HANDLING.D7m|
00002F30: 42 9E 20 34 39 31 35 35 3A 84 31 2C 41 2C 42 24 |B. 49155:.1,A,B$|
00002F40: 3A A0 20 32 00 51 37 72 42 99 C7 28 31 34 37 29 |:. 2.Q7rB..(147)|
00002F50: 3B 00 79 37 86 42 59 B2 41 3A 8F 20 20 20 20 3A |;.y7.BY.A:. :|
00002F60: 58 3D 50 45 45 4B 28 32 31 38 29 2B 32 35 36 2A |X=PEEK(218)+256*|
00002F70: 50 45 45 4B 28 32 31 39 29 00 93 37 87 42 8F 20 |PEEK(219)..7.B. |
00002F80: 58 3D 4C 49 4E 45 20 23 3B 20 59 3D 45 52 52 4F |X=LINE #; Y=ERRO|
00002F90: 52 20 23 00 B5 37 9A 42 4C 24 B2 22 41 36 22 3A |R #..7.BL$."A6":|
00002FA0: 8F 20 52 45 56 49 53 49 4F 4E 20 26 20 4C 45 53 |. REVISION & LES|
00002FB0: 53 4F 4E 20 23 00 E8 37 A4 42 56 54 25 B2 32 3A |SON #..7.BVT%.2:|
00002FC0: 8D 33 30 31 30 30 3A 99 22 55 53 45 52 20 4E 41 |.30100:."USER NA|
00002FD0: 4D 45 3A 20 22 3B C7 28 31 38 29 3B 46 4C 4E 4D |ME: ";.(18);FLNM|
00002FE0: 24 3B C7 28 31 34 36 29 00 19 38 AE 42 56 54 25 |$;.(146)..8.BVT%|
00002FF0: B2 34 3A 8D 33 30 31 30 30 3A 99 C7 28 31 34 36 |.4:.30100:..(146|
00003000: 29 3B 22 41 4E 20 45 52 52 4F 52 20 48 41 53 20 |);"AN ERROR HAS |
00003010: 4F 43 43 55 52 45 44 21 22 00 48 38 B8 42 56 54 |OCCURED!".H8.BVT|
00003020: 25 B2 36 3A 8D 33 30 31 30 30 3A 99 22 45 52 52 |%.6:.30100:."ERR|
00003030: 4F 52 20 43 4F 44 45 3A 20 23 22 3B 59 3B A3 32 |OR CODE: #";Y;.2|
00003040: 37 29 3B 4C 24 3B 42 24 00 6E 38 C2 42 56 54 25 |7);L$;B$.n8.BVT%|
00003050: B2 31 30 3A 8D 33 30 31 30 30 3A 99 22 45 52 52 |.10:.30100:."ERR|
00003060: 4F 52 20 4D 45 53 53 41 47 45 3A 20 22 3B 00 93 |OR MESSAGE: ";..|
00003070: 38 CC 42 8B 59 B2 32 36 A7 99 22 44 49 53 4B 20 |8.B.Y.26.."DISK |
00003080: 49 53 20 57 52 49 54 45 20 50 52 4F 54 45 43 54 |IS WRITE PROTECT|
00003090: 45 44 22 00 B3 38 D6 42 8B 59 B2 36 32 A7 99 22 |ED"..8.B.Y.62.."|
000030A0: 46 49 4C 45 20 57 41 53 20 4E 4F 54 20 46 4F 55 |FILE WAS NOT FOU|
000030B0: 4E 44 22 00 D2 38 EA 42 8B 59 B2 37 32 A7 99 22 |ND"..8.B.Y.72.."|
000030C0: 59 4F 55 52 20 44 49 53 4B 20 49 53 20 46 55 4C |YOUR DISK IS FUL|
000030D0: 4C 22 00 EB 38 FE 42 56 54 25 B2 31 32 3A 8D 33 |L"..8.BVT%.12:.3|
000030E0: 30 31 30 30 3A 97 32 31 31 2C 30 00 26 39 FF 42 |0100:.211,0.&9.B|
000030F0: 99 C7 28 31 38 29 3B 22 43 48 45 43 4B 20 54 48 |..(18);"CHECK TH|
00003100: 41 54 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 |AT THE APPROPRIA|
00003110: 54 45 20 44 49 53 4B 22 3A 56 54 25 B2 31 34 3A |TE DISK":VT%.14:|
00003120: 8D 33 30 31 30 30 00 56 39 00 43 99 22 49 53 20 |.30100.V9.C."IS |
00003130: 50 52 4F 50 45 52 4C 59 20 49 4E 53 45 52 54 45 |PROPERLY INSERTE|
00003140: 44 20 49 4E 20 44 52 49 56 45 20 23 31 2E 22 3B |D IN DRIVE #1.";|
00003150: C7 28 31 34 36 29 00 8B 39 08 43 56 54 25 B2 32 |.(146)..9.CVT%.2|
00003160: 34 3A 8D 33 30 31 30 30 3A 99 22 50 52 45 53 53 |4:.30100:."PRESS|
00003170: 20 3C 53 50 41 43 45 20 42 41 52 3E 20 54 4F 20 | <SPACE BAR> TO |
00003180: 52 45 53 55 4D 45 2E 2E 2E 22 3B 00 95 39 12 43 |RESUME...";..9.C|
00003190: 8D 39 35 32 30 00 AD 39 1C 43 89 31 31 30 3A 8F |.9520..9.C.110:.|
000031A0: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 C1 39 | TO MAIN MENU..9|
000031B0: 30 75 8F 20 46 4C 41 53 48 20 52 4F 55 54 49 4E |0u. FLASH ROUTIN|
000031C0: 45 00 E2 39 3A 75 43 4C B2 C2 28 32 31 31 29 3A |E..9:uCL..(211):|
000031D0: 52 57 B2 C2 28 32 31 34 29 3A 53 45 43 B2 30 2E |RW..(214):SEC.0.|
000031E0: 30 35 00 1A 3A 44 75 81 20 46 4C B2 31 20 A4 20 |05..:Du. FL.1 . |
000031F0: 35 3A 56 54 25 B2 52 57 3A 8D 33 30 31 30 30 3A |5:VT%.RW:.30100:|
00003200: 97 20 32 31 31 2C 43 4C 3A 99 22 12 22 3B 46 49 |. 211,CL:.".";FI|
00003210: 4C 45 24 3A 8D 20 32 39 30 30 00 4F 3A 4E 75 56 |LE$:. 2900.O:NuV|
00003220: 54 25 B2 52 57 3A 8D 20 33 30 31 30 30 3A 97 20 |T%.RW:. 30100:. |
00003230: 32 31 31 2C 43 4C 3A 99 22 92 22 3B 46 49 4C 45 |211,CL:.".";FILE|
00003240: 24 3A 8D 20 32 39 30 30 3A 82 20 46 4C 3A 8E 00 |$:. 2900:. FL:..|
00003250: 62 3A 94 75 8F 20 56 54 41 42 20 52 4F 55 54 49 |b:.u. VTAB ROUTI|
00003260: 4E 45 00 75 3A 9E 75 8F 20 52 4F 57 20 23 20 49 |NE.u:.u. ROW # I|
00003270: 4E 20 56 54 25 00 90 3A A8 75 59 59 B2 C2 28 32 |N VT%..:.uYY..(2|
00003280: 31 31 29 3A 8F 20 53 41 56 45 20 43 4F 4C 20 23 |11):. SAVE COL #|
00003290: 00 AF 3A B2 75 99 C8 28 56 54 24 2C 56 54 25 29 |..:.u..(VT$,VT%)|
000032A0: 3B 3A 8F 20 4D 4F 56 45 20 54 4F 20 52 4F 57 00 |;:. MOVE TO ROW.|
000032B0: C9 3A BC 75 97 32 31 31 2C 59 59 3A 8F 20 52 45 |.:.u.211,YY:. RE|
000032C0: 53 54 4F 52 45 20 43 4F 4C 00 CF 3A C6 75 8E 00 |STORE COL..:.u..|
000032D0: E0 3A F8 75 8F 20 45 4C 20 52 4F 55 54 49 4E 45 |.:.u. EL ROUTINE|
000032E0: 00 08 3B 0C 76 43 43 B2 C2 28 32 31 31 29 3A 99 |..;.vCC..(211):.|
000032F0: C8 28 45 4C 24 2C 33 39 AB 43 43 29 3B 3A 97 20 |.(EL$,39.CC);:. |
00003300: 32 31 31 2C 43 43 3A 8E 00 00 00 |211,CC:.... |
....... ,YY:REM RESTORE COL.6.... LESSON
#6:MEMORY MIX.Z."..RCL$(4,20),MDY$(3,20
):ZE$.G(0)...&..BEF$(20),AFT$(20):VT$.".
........................................
..".T.*..MNTH$(12),MEN$(20),WOMEN$(20),H
F%(9),LF%(9)...-.. 53280,0:. 53281,0:.".
"...2..MSG$(20),TMP$(20):LD.49594.`.6..
GM$(10):EL$."
":MU.49637:GR.49637...:..S9
$(24):ER.49637:NM.49668:EL.49637:DE.4966
7:. 1,8,15...<..100...G..YY.1.10:.XX$:.Y
Y.E.H.. 204,0.W.I..C$:.C$."".73...J.C$.G
(F(C$.ZE$).127):. 204,1:. 9600:....K..YY
.1.10:.XX$:.YY:..4.P.. SPECIAL INPUT ROU
TINE.^.Q.H.B(211).1:V.B(214).1:L$."":L.1
5:. 83...R.. 72:.C$.G(13)..I(EL$,L.C(L$)
):.211,H.1:....S.CX.F(C$.ZE$):.CX..20 .8
7...T.R$."X".I(L$,1).R$...U..L$."".H.H.1
:L$.J(L$,1,C(L$).1)...W..CX.21.R$."".H.H
.1:L$.L$.H(R$,1).%.X..CX.32 .C$."":CX.0:
H.H.1.C.Y..C(L$).C(C$).L..G(7);:.82.H.Z.
.C$;:H.H.1:VT%.V:.30100:.211,H.1...[.L$.
L$.C$:R$.J(R$,2)...\.. QN.1 . ....].. 82
...D..13000:.10000.X.N.PGM$(1)."INSTRUCT
IONS FOR MEMORY MIX":.ER...X.PGM$(2)."PL
AY MEMORY MIX".'...PGM$(3)."RETURN TO ME
MORY TRAINER MAIN MENU".B...PGM$(4)."QUI
T FOR NOW".W...MAX.4:.8000:QN.0.O. ..C.1
70,210,7450,997.....FILE$."G1":.7500....
.. QN.1 . 110.....FILE$."G2":.7500......
QN.1 . 110.P...FILE$."G3":.7500...... Q
N.1 . 110...H.FILE$."G4":.7500:.110...R.
.13000:VT%.11:.30100:.211,11.B.S..G(18);
"GET READY TO PLAY";G(146).^...XNUM.28:X
MAX.KMAX:.1500.L....I.1.KMAX.....A$.D(RD
R%(I)):. FACE #.....RCL$(1,I).I(A$,C(A$)
.1):. FACE #......I.N.... SELECT MATCHIN
G NAME.....XNUM.20:XMAX.KMAX:.1500......
I.1.KMAX.,."..E(RCL$(1,I)).14.RCL$(2,I).
WOMEN$(RDR%(I)):.310.U.,.RCL$(2,I).MEN$(
RDR%(I)):. MALE FACE WAS SELECTED SO PIC
K A MALE NAME.|.6..I...@.. SELECT PHONE
NUMBER...J..I.1.KMAX...T..4010.D.^.RCL$(
4,I).NUMBER$.K.H..I...R.. SELECT DATE...
|..4500......I.1.KMAX.....RCL$(3,I).BEF$
(I)......I:HSCR.0.3.... DISPLAY FACE & D
ATA.A...DSP.1:HTIM.32500:.6000:. DISPLAY
1ST FACE.R.... QN.1 . 110.....HSCR.0:B1
.0:B2.0:B3.0:RX.0:DC.1...B..II.2.KMAX...
L.XX..(1).N.V...((XX..5).(RX.DSP)).480..
.W.RX.RX.1:DC.0:.5000:.QUIT.1.540...X..
QN.1 . 110.?....(XX..5).460:. GET A RAND
OM NUMBER & DON'T INC DSP OR II.Z...DC.D
C.1:.DC.2.460:. PREVENT MORE THAN 3 FACE
S IN A ROW......(XX...5).DSP.II:.6000:.Q
UIT.1.540...... QN.1 . 110......II......
RX.DSP.RX.RX.1:.5000:.QUIT.1.540...... Q
N.1 . 110......RX.DSP.520:. CONTINUE REC
ALLING ALL OUTSTANDING SCREENS.C.... 491
55:.G(147);.X.&.VT%.1:.30100:FILE$."THE
EINSTEIN MEMORY TRAINER"...'..G(18);:.29
90:.G(146);.B.0.VT%.5:.30100:.211,10:."M
EMORY MIX RESULTS"...1..211,10:."------
--- -------"...:.VT%.8:.30100:."NUMBER O
F FACES TESTED ON.....";.38);RX.Y.D.VT%.
10:.30100:."NUMBER OF NAMES CORRECT.....
";.38);B1...N.VT%.12:.30100:."NUMBER OF
BIRTHDAYS CORRECT.....";.38);B2...X.VT%.
14:.30100...Y.."NUMBER OF PHONE NUMBERS
CORRECT.....";.38);B3...B.VT%.16:.30100:
.211,23.!.C.."YOUR SCORE:";.35);G(18);HS
CR;G(146).:.L.."..";:.211,20:SEC.2.L.M..
HSCR..TS.630...N.TS.HSCR:FILE$."HIGHEST
SCORE: ".D(TS):.G(7);G(7);...O..30000:.G
(146);:. PUT MUSIC HERE.T.V..HSCR.TS.."H
IGHEST SCORE:";.35);TS:.2900.....FILE$."
75289975219965414565925":.16000......950
0.$....G(147);:VT%.10:.30100.R...."DO YO
U WANT TO PLAY AGAIN? (Y/N) ";:.72.C....
QN.1 . 110.S....C$."Y".210......C$."N".
110......660......13000:VT%.8:.30100:."Y
OU HAVE JUST EXITED".....VT%.10:.30100:.
G(18);"THE EINSTEIN MEMORY TRAINER";....
..G(146);".":VT%.12:.30100.@...."THANK Y
OU FOR PLAYING!":VT%.22:.30100:..\.... R
ANDOM ORDER SELECTOR.T...RDR%(1).XNUM..(
1).1......I.2.XMAX.....RDR%(I).XNUM..(1)
.1......J.1.I.1.V....RDR%(I).RDR%(J).153
0:. GET A NEW RANDOM #......J:.I...?....
.T.SEC.SEC.2.(SEC.0):.X.1.SEC.130:. 9600
:.X:.:. 1300.0.... CENTER STRING.T......
((40.C(FILE$)).2));FILE$.40).A....211,0:
..W.... CORRECT ANSWERS...B.I.1:.3300:.
PARSE NAMES...L.I.2:.3500:. PARSE DATES.
U.V.I.3:.3300:.3400:. PARSE PHONE #'S...
..FAC.0:TTL.0:. MULTIPLYING FACTOR & TOT
AL.)....H(RCL$(2,Y),3)..H(AFT$(1),3).306
0.Z...B1.B1.1:FAC.1:TTL.1:A.2:.3200:. CO
RRECT NAME.I.... QN.1 . .......RCL$(3,Y)
..AFT$(2).3070.....B2.B2.1:FAC.FAC.1:TTL
.TTL.2:A.3:.3200...... QN.1 . .......RCL
$(4,Y)..AFT$(3).3080.....B3.B3.1:FAC.FAC
.1:TTL.TTL.3:A.4:.3200:. PHONE #...... Q
N.1 . ..*....J.2.4.F...VT%.19.J:.30100:.
211,23.X....RCL$(J,Y):.J...&.TTL.FAC.10.
TTL:. TOTAL SCORE FOR THIS FACE.....HSCR
.HSCR.TTL:VT%.21:.30100:FILE$.D(HSCR).S.
0.FILE$.I(FILE$,C(FILE$).1)...1..C(FILE$
).4.FILE$.FILE$." ":.3121.,.2.FILE$.FILE
$."....."."PTS ":. 4 BACK AND 1 DOWN.W.3
.VT%.22:. 30100:. 211,36:.30000:.G(146).
P.:.VT%.24:.30100:.211,0...;.."PRESS <";
G(18);"SPACE BAR";G(146);"> TO CONTINUE.
..";...<.. 30200...D..YY.1.10:.C$:.YY:.7
3:X.F(C$.ZE$):. QN.1 . ....E..X.5 .QUIT
.1:ES$."Y":.3160...N..C$.." ".3140. .X..
.<.... DISPLAY CORRECT ENTRY.N...VT%.19.
A:.30100:.211,8:.G(146);" ";RCL$(A,Y);..
....H(EL$,15.C(RCL$(A,Y)));:. TO CLEAR O
LD RESPONSE......MU:SEC.0:VT%.20.A:. 301
00:.211,8:FILE$."*":.30000:.......
^ HUH????...... REMOVE TRAILING
BLANKS IN AFT$.;...X.C(AFT$(I)).1:.X.0.3
399.L....I(AFT$(I),1)." ".AFT$(I).H(AFT$
(I),X):.3320......H(AFT$(I),1)." ".AFT$(
I).I(AFT$(I),X):.3320...G.....H.. PHONE
# PARSER...R.. INSERT A HYPHEN FOR THE P
HONE NUMBER...\.AFT$(I).H(AFT$(I),3)."-"
.I(AFT$(I),4)...F...0.... REBUILD MONTH,
DAY,YEAR._....3300:. REMOVE PRECEDING &
TRAILING BLANKS.Y.... RE-BUILD THE 'YEAR
'...J..AFT$(I)."".MDY$(3,I)."":.3570...T
.MDY$(3,I).I(AFT$(I),4).....OFFSET.0:X.C
(AFT$(I)):.X.4.OFFSET.4.....AFT$(I).H(AF
T$(I),X.OFFSET).0....3300:. REMOVE BLANK
S FROM REMAINDER OF AFT$.I.... RE-BUILD
THE 'DAY'.L....AFT$(I)."".MDY$(2,I)."":.
3640......I(AFT$(I),1)..",".AFT$(I).AFT$
(I).",".....MDY$(2,I).I(AFT$(I),3).G.$.X
.C(MDY$(2,I)).1.......(H(MDY$(2,I),1).".
".H(MDY$(2,I),1)." ").3640.../.MDY$(2,I)
.I(MDY$(2,I),X).2.8.. RE-BUILD THE 'MONT
H'.M.B.MDY$(1,I).H(AFT$(I),3).G.L.. RE-B
UILD THE STRING...V.AFT$(I).MDY$(1,I)."
".MDY$(2,I).MDY$(3,I)...`..... .. NAME &
PHONE # GENERATOR.U.... 7 DIGIT PHONE N
UMBER.....NUMBER$.""......J.1.7...H.Y..(
10..(1))...R..(J.1).(Y.2).4040.4...NUMBE
R$.NUMBER$.I(D(Y),1).;....J.E...NUMBER$.
H(NUMBER$,3)."-".I(NUMBER$,4).K.........
. DATE GENERATOR.....XNUM.KMAX:XMAX.KMAX
:.1500:. RANDOM ORDER SELECTOR......I.1.
KMAX:. BUILD DISPLAYED STRING.. ..MDY$(2
,I).D(.(28..(1)).1):. DAYS OF MONTH FROM
1-29.M ..MDY$(3,I).D(.(70..(1)).1901):.
YEARS FROM 1901-1970.O F..RDR%(I).12.RD
R%(I).RDR%(I).2.. P.MDY$(1,I).MNTH$(RDR%
(I)).I U.. TX.2 . 3:MDY$(TX,I).I(MDY$(TX
,I),C(MDY$(TX,I)).1):. TX..!Z.BEF$(I).H(
MDY$(1,I),3)." ".MDY$(2,I).",".MDY$(3,I)
..!...I..!.... !... RECALL FACES.^!...59
00:QUIT.0:ES$."":. OBTAIN THE JTH FACE T
O BE DISPLAYED..!..FILE$."FACE".RCL$(1,Y
):RCL$(1,Y)."DONE":. DISCARD FILE..!...6
500:. DISPLAY ON HIRES SCREEN.I!...G(18)
;..!..VT%.21:.30100:.".NAME :".."D.VT%.2
2:.30100:.".DATE :".""N.VT%.23:.30100:."
.PHONE:":..<"X.VT%.24:.30100:. 211,0.L"Y
..G(146);"PRESS <RETURN> AFTER EACH ENTR
Y.";.."..VT%.21:.30100:.211,35:.G(18);:F
ILE$.D(HSCR).."..FILE$.I(FILE$,C(FILE$).
1).."...C(FILE$).4.FILE$.FILE$." ":.5094
.."..FILE$.FILE$."....."."PTS ".(#..VT%.
21:.30100:. 211,35:.FILE$;G(146).J#..VT%
.21:.30100:.211,9:.".....".R#..VT%.22:.3
0100:.211,9:."... .. ...."..#..VT%.23:.3
0100:.211,9:."...-...."..#...5400:.QUIT.
1.5150..#... QN.1 . ...#..VT%.21:. 30100
:. 211,35:." ..... ";:. ERASE PTS.
..$...3000:. DISPLAY CORRECT ANSWERS./$.
.. 49155:.".":..L$... SPECIAL RECALL ROU
TINE.E$".K.1:PRT.1:C$."":. 75.V$,..PRT.1
..5600..$6..72:X.F(C$.ZE$)..$7.. QN.1 .
...$J..X.17.5510:. RIGHT OR DOWN ARROW.U
$T..(X.42).QQ.1:.5510..$^..(X.5).QUIT.1:
.YY.1.10:.XX$:.YY:...%H..X.13.5510:. RET
URN KEY./%R..(X.94)..5700:.5530.F%S.. BA
CK OR UP ARROW._%T..(X.32).(X.132).5550.
R%|..80:AFT$(K).L$..%}.. QN.1 . ...%..VT
%.20.K:.30100:.211,6:." "..%..K.K.1:.Q
Q.1.K.4:QQ.0.X%..PRT.1:.YY.1.10:.XX$:.YY
..%... MU..%...K.3..5800:.ES$."Y"....&..
.C$."Y".5580..&B..5420..&L...6&... HIGHL
IGHT NEXT LINE.Y&..VT%.20.K:.30100:.211,
6:."-->";.E&..PRT.0:..}&D.. BACKSPACE HA
NDLER. &N.VT%.20.K:.30100:.211,6:." ";
..&X.K.K.1..&B..K.1.K.1..&L...P&... ANY
CHANGES?..&..K.3:VT%.24:.30100:.211,0:.0
,PITCH(7):.MU.-'..."ARE YOU FINISHED MAK
ING ENTRIES? (Y/N) ";.K'F.VT%.24:.30100:
.211,39:.72.Z'G.. QN.1 . ...'P..C$."Y".5
899:. RETURN TO MAIN ENTRY ROUTINE & QUI
T ENTRY MODE..'Z..C$.G(17).K.1:.5890.N'.
..C$."N".C$.G(94).5890..'...C$.G(5).ES$.
"Y":QUIT.1:.5899..(... <CTRL-E> END GAME
& DISPLAY SCORE."(...5830.;(..VT%.24:.3
0100:.211,0.S(..."MAKE CHANGES AND RETUR
N PAST LAST ENTRY";:. 30200.Y(.....(..Y.
0:JJ..((DSP.RX)..(1)).1..(... OBTAIN JTH
UNDISPLAYED FACE.F( ..KK.1.JJ..(*.Y.Y.1
:.RCL$(1,Y)."DONE".5930..)+.. TRY NEXT F
ACE. WAS IT DISPLAYED?..)4..KK:..9)P.. D
ISPLAY NAMES & FACES ETC..V)Z.FILE$."FAC
E".RCL$(1,DSP).G)...6500:QUIT.0..)..VT%.
22:.30100:..5);RCL$(2,DSP);..)....15);RC
L$(3,DSP);.30);RCL$(4,DSP)..)..VT%.24:.3
0100:.211,5:."PRESS <";G(18);..*..."SPAC
E BAR";G(146);"> WHEN MEMORIZED..";. *..
.YY.1.10:.C$:.YY.L*... C$:. 74:X.F(C$.ZE
$):.X.5.QUIT.1:.6099.[*... QN.1 . ..X*..
HTIM.HTIM.5:.HTIM.0.6080..*...G(147);:VT
%.10:.30100:FILE$."YOUR TIME LIMIT IS UP
".L*...2990:SEC.5:.2900:.540..*..VT%.24:
.30100:.211,0:.G(18);..+A..I(D(.(HTIM.65
)),3);G(146);" ";.#+J..X..32 .6060.:+S.
. 49155:.G(147);:..P+D.. HIRES DISPLAYER
.V+N..G(147);:. 6550:. 49158:. 49152:...
+X.. CALL HIRES LOAD ROUTINE..+... BINAR
Y LOAD ROUTINE.P+ .. 49155:LS.LD.3:. LS,
C(FILE$)..,... T.1 . C(FILE$):. LS.T,F(J
(FILE$,T,1)):. T.",... LD: 4:. (ST . 19
1) . 17000.(,....>,H.. PICTURE DISPLAY.V
,R..6500:.9500:. 49155.K,...30100.G(147)
;:...,Z..13000:FILE$."LOADING MEMORY TRA
INER MAIN MENU":VT%.10.B,...30100:.2990:
.".":.:.:...,..." LOAD";G(34);"INTR
ODUCTION";G(34);",8";"...".)-... 198,6:.
631,13:. 632,F("."):. 633,F("R").R-...
634,F("U"):. 635,F("N"):. 636,13:..[-...
110.Z-...G(147);:VT%.10:.30100:.MU..-...
"BE SURE MEMORY TRAINER ";G(18);"DISK ";
SD$..-..VT%.12:.30100:."IS PROPERLY INSE
RTED INTO DRIVE #1."..-$..9500..-%.. QN.
1 . 110...8..7130.'.L.. TEXT FILE SCREEN
WRITER.F.`.. 2,8,2,FILE$:. ST . 17000.R
.J..I.1.24..T..2,S9$(I):. ST . .(I.24 .
ST.64) . 17000...~.. I: 2.D....G(147);
:.G(18);:FILE$."THE EINSTEIN MEMORY TRAI
NER".V....2990:.G(146)......I.2.22......
S9$(I):.I../..SEC..5:.2900:VT%.24:.30100
:.S9$(23);.$/...9520.3/... QN.1 . ..R/..
.YY.1.10:.XX$:.YY:.13000:..F/@.. MENU SE
LECTOR../J..G(147);:.YY.1.10:.XX$:.YY../
T.FILE$."THE EINSTEIN MEMORY TRAINER":.G
(18);.H/U..2990:.G(146);../^.VT%.24:.301
00:."FILE NAME: ";G(18);FLNM$;G(146);.30
H.VT%.4:.30100:.211,0:FILE$."MEMORY MIX
GAME":.2990.D0R..I.65.64.MAX.O0|.S.I.64.
T0..VT%.S.6:.30100:.G(I)" : "PGM$(S).|0.
..:...0...PV$."".8110.J0..VT%.20:.30100:
."(YOUR PREVIOUS SELECTION WAS '";PV$;"'
)"..1..VT%.18:.30100:."SELECT OPTION: ";
:.30200:. CLEAR TO EOL.!1...72:C.F(C$.ZE
$):AN$.C$.91L..C.65.C.64.MAX.8120.F1V..:
C.C.64.L1..VT%.C.6:.30100:.G(18);AN$;G(1
46);..1..." : ";G(18);PGM$(C)G(146);.Q1.
.VT%.18:.30100:. 211,0:."IS THIS THE SEL
ECTION YOU WANT? (Y/N) ";..1...71:.C$.."
Y".C$.."N"..B$;:.8180..2...C$:.C$.."N".P
V$.AN$:.8210.>2. VT%.C.6:.30100:.AN$" :
"PGM$(C):.8110.D2. ..I2.%. WAIT FOR SPAC
E BAR TO CONTINUE..2&%VT%.24:.30100:. 21
1,1:."PRESS <SPACE BAR> TO CONTINUE...";
..2'%.YY.1.10:.C$:.YY.P20%.73:. QN.1 . .
..25%.C$.." ".9520..2:%...3.%. C$.G(3).
. 204,1:PV$."":. 49155:QN.1..3.%...3.'.
INITIALIZATION.<3.'.RDR%(20).X3.'. RCL$(
1,I)=FACE NUMBER.Y3 '. RCL$(2,I)=MALE/FE
MALE NAME..3!'. RCL$(3,I)=BIRTHDAY..3"'.
RCL$(4,I)=PHONE NUMBER.Q3$'KMAX.20:D$.G
(13).G(4):SD$."A"..3.'.I.1.12:.MNTH$(I):
.I.,48'. JAN.,FEB.,MAR.,APR.,MAY ,JUNE,J
ULY,AUG.,SEP.,OCT.,NOV.,DEC..D4`'.I.1.20
:.MEN$(I):.I..4J'. BILL,BOB,BRUCE,CHUCK,
DAVE,DENNIS,ED,FRANK,HARRY,JACK,JEFF..4K
'. JIM,JOE,JOHN,KEN,MARK,MIKE,PHIL,STEVE
,TOM.N4T'.I.1.20:.WOMEN$(I):.I..5~'. ALI
CE,ANNE,CAROL,CATHY,DORIS,EILEEN,GAIL,JA
NE,JEAN,JOAN,JOYCE.H5'. JULIE,KATE,LISA
,LIZ,RUTH,SANDY,SHERRY,SUE,WENDY.Z5L). M
USIC STUFF.G5V)SX.54272..5.). T.1 . 9:.
HF%(T),LF%(T):. T.G5.). 16,195,18,209,21
,31,22,96,25,30,28,49,31,165,33,135,0,0.
M5.)...5.*. READ FILE NAME..6.+FLNM$."":
DSK$.G(B(DE)):.DSK$.."Y".FLNM$."NONE":.
11890.F6.+.I.1.B(NM):FLNM$.FLNM$.G(B(NM.
I)):.I.L6R...R6....K6H2. CENTER/OUT WIPE
OUT.Z6R2.G(147);:...6.>. MELODY PLAYER.
6.>.I.1.C(FILE$)..6.>X.E(J(FILE$,I,1))..
6.>.SX.1,HF%(X):. SX,LF%(X):. SX.4,33:SE
C.0.03:. 2900..7.>. QN.1 . . SX.4,0:...7
.>. SX.4,0:.I:..,7HB. ERROR HANDLING.D7M
B. 49155:.1,A,B$: 2.Q7RB.G(147);.Y7.BY.
A:. :X=PEEK(218)+256*PEEK(219)..7.B.
X=LINE #; Y=ERROR #..7.BL$."A6":. REVISI
ON & LESSON #..7.BVT%.2:.30100:."USER NA
ME: ";G(18);FLNM$;G(146)..8.BVT%.4:.3010
0:.G(146);"AN ERROR HAS OCCURED!".H8.BVT
%.6:.30100:."ERROR CODE: #";Y;.27);L$;B$
.N8BBVT%.10:.30100:."ERROR MESSAGE: ";..
8LB.Y.26.."DISK IS WRITE PROTECTED"..8VB
.Y.62.."FILE WAS NOT FOUND".R8.B.Y.72.."
YOUR DISK IS FULL"..8.BVT%.12:.30100:.21
1,0.&9.B.G(18);"CHECK THAT THE APPROPRIA
TE DISK":VT%.14:.30100.V9.C."IS PROPERLY
INSERTED IN DRIVE #1.";G(146)..9.CVT%.2
4:.30100:."PRESS <SPACE BAR> TO RESUME..
.";..9.C.9520..9.C.110:. TO MAIN MENU.A9
0U. FLASH ROUTINE..9:UCL.B(211):RW.B(214
):SEC.0.05..:DU. FL.1 . 5:VT%.RW:.30100:
. 211,CL:.".";FILE$:. 2900.O:NUVT%.RW:.
30100:. 211,CL:.".";FILE$:. 2900:. FL:..
B:.U. VTAB ROUTINE.U:.U. ROW # IN VT%..:
.UYY.B(211):. SAVE COL #..:.U.H(VT$,VT%)
;:. MOVE TO ROW.I:.U.211,YY:. RESTORE CO
L.O:FU...:.U. EL ROUTINE..;.VCC.B(211):.
H(EL$,39.CC);:. 211,CC:....
> CLICK IMAGE PREVIEW FOR FULL MODAL