MT
FILE INFORMATION
FILENAME(S): MT
FILE TYPE(S): PRG
FILE SIZE: 17K
FIRST SEEN: 2025-12-02 23:10:29
APPEARS ON: 1 disk(s)
FILE HASH
dfb93e4414e9e4ee5a50b9ce31e83276df4a57cfb0748d54bfa4977f8650ba9f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES XLII | MT | PRG | swasti, chrisbitti1 | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 0A 00 8F 49 4E 54 52 4F 44 55 43 54 |.......INTRODUCT|
00000010: 49 4F 4E 00 29 08 0F 00 9C 3A 86 20 48 46 25 28 |ION.)....:. HF%(|
00000020: 39 29 2C 4C 46 25 28 39 29 00 36 08 11 00 9F 20 |9),LF%(9).6.... |
00000030: 31 2C 38 2C 31 35 00 5B 08 14 00 8F 20 3C 53 3E |1,8,15.[.... <S>|
00000040: 32 3C 4C 3E 44 24 3C 53 3E 36 3C 4C 3E 41 4E 24 |2<L>D$<S>6<L>AN$|
00000050: 2C 52 57 24 2C 43 24 2C 53 44 24 00 8F 08 16 00 |,RW$,C$,SD$.....|
00000060: 45 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |EL$." |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000090: E0 08 17 00 56 54 24 B2 22 13 11 11 11 11 11 11 |....VT$.".......|
000000A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000B0: 11 11 11 11 11 11 11 11 11 11 11 22 3A 4D 55 B2 |...........":MU.|
000000C0: 34 39 36 33 37 3A 45 52 B2 34 39 36 36 37 3A 47 |49637:ER.49667:G|
000000D0: 52 B2 34 39 31 35 32 3A 4C 44 B2 34 39 35 39 34 |R.49152:LD.49594|
000000E0: 00 FF 08 18 00 44 45 B2 34 39 36 36 37 3A 4E 4D |.....DE.49667:NM|
000000F0: B2 34 39 36 36 38 3A 57 52 B2 34 39 36 36 36 00 |.49668:WR.49666.|
00000100: 23 09 19 00 8F 3C 53 3E 31 36 3C 4C 3E 52 24 2C |#....<S>16<L>R$,|
00000110: 4C 24 3C 53 3E 33 30 3C 4C 3E 46 4C 4E 4D 24 2C |L$<S>30<L>FLNM$,|
00000120: 45 49 24 00 3E 09 1E 00 8F 3C 53 3E 34 30 3C 4C |EI$.>....<S>40<L|
00000130: 3E 46 49 4C 45 24 2C 53 50 24 2C 50 52 24 00 5B |>FILE$,SP$,PR$.[|
00000140: 09 20 00 97 20 35 33 32 38 30 2C 30 3A 97 20 35 |. .. 53280,0:. 5|
00000150: 33 32 38 31 2C 30 3A 99 22 05 22 00 66 09 24 00 |3281,0:.".".f.$.|
00000160: 8F 3C 53 3E 31 33 00 95 09 26 00 86 42 45 46 24 |.<S>13...&..BEF$|
00000170: 28 31 30 29 2C 41 46 54 24 28 31 30 29 2C 50 45 |(10),AFT$(10),PE|
00000180: 47 24 28 31 36 30 29 2C 50 53 24 28 39 29 2C 4E |G$(160),PS$(9),N|
00000190: 4D 24 28 34 29 00 A0 09 28 00 8F 3C 53 3E 34 30 |M$(4)...(..<S>40|
000001A0: 00 AB 09 2A 00 8F 3C 53 3E 33 35 00 B6 09 2C 00 |...*..<S>35...,.|
000001B0: 8F 3C 53 3E 31 35 00 C2 09 2E 00 86 53 52 24 28 |.<S>15......SR$(|
000001C0: 39 29 00 CD 09 34 00 8F 3C 53 3E 33 35 00 E2 09 |9)...4..<S>35...|
000001D0: 36 00 86 20 47 4D 24 28 31 30 29 2C 50 54 24 28 |6.. GM$(10),PT$(|
000001E0: 39 29 00 ED 09 38 00 8F 3C 53 3E 34 30 00 FA 09 |9)...8..<S>40...|
000001F0: 3A 00 86 53 39 24 28 32 34 29 00 14 0A 3C 00 8F |:..S9$(24)...<..|
00000200: 20 20 44 41 54 41 22 42 4C 4F 41 44 20 49 4E 54 | DATA"BLOAD INT|
00000210: 52 4F 32 22 00 3B 0A 41 00 8F 20 20 52 45 41 44 |RO2".;.A.. READ|
00000220: 4C 24 3A 50 52 49 4E 54 43 48 52 24 28 31 33 29 |L$:PRINTCHR$(13)|
00000230: 3B 43 48 52 24 28 34 29 3B 4C 24 00 44 0A 46 00 |;CHR$(4);L$.D.F.|
00000240: 89 31 30 30 00 4D 0A 47 00 8D 20 37 36 00 59 0A |.100.M.G.. 76.Y.|
00000250: 48 00 97 20 32 30 34 2C 30 00 6F 0A 49 00 A1 20 |H.. 204,0.o.I.. |
00000260: 43 24 3A 8B 20 43 24 B2 22 22 20 A7 20 37 33 00 |C$:. C$."" . 73.|
00000270: 94 0A 4A 00 43 24 B2 C7 28 C6 28 43 24 29 AF 31 |..J.C$..(.(C$).1|
00000280: 32 37 29 3A 8D 20 39 36 30 30 3A 97 20 32 30 34 |27):. 9600:. 204|
00000290: 2C 31 3A 8E 00 AE 0A 4C 00 81 20 54 58 B2 31 A4 |,1:....L.. TX.1.|
000002A0: 31 30 3A A1 54 58 24 3A 82 20 54 58 3A 8E 00 C9 |10:.TX$:. TX:...|
000002B0: 0A 50 00 8F 53 50 45 43 49 41 4C 20 49 4E 50 55 |.P..SPECIAL INPU|
000002C0: 54 20 52 4F 55 54 49 4E 45 00 FA 0A 51 00 48 B2 |T ROUTINE...Q.H.|
000002D0: C2 28 32 31 31 29 3A 56 B2 C2 28 32 31 34 29 AA |.(211):V..(214).|
000002E0: 31 3A 4C 24 B2 22 22 3A 4C B2 31 31 3A 43 58 B2 |1:L$."":L.11:CX.|
000002F0: C6 28 43 24 29 3A 89 20 38 33 00 2C 0B 52 00 8D |.(C$):. 83.,.R..|
00000300: 37 32 3A 43 58 B2 C6 28 43 24 29 3A 8B 43 58 B2 |72:CX..(C$):.CX.|
00000310: 31 33 A7 99 C8 28 45 4C 24 2C 4C AB C3 28 4C 24 |13...(EL$,L..(L$|
00000320: 29 29 3A 97 20 32 31 31 2C 48 3A 8E 00 66 0B 53 |)):. 211,H:..f.S|
00000330: 00 8B 43 58 B2 38 20 A7 52 24 B2 22 58 22 AA C9 |..CX.8 .R$."X"..|
00000340: 28 4C 24 2C 31 29 AA 52 24 3A 8B 4C 24 B1 22 22 |(L$,1).R$:.L$.""|
00000350: A7 48 B2 48 AB 31 3A 4C 24 B2 CA 28 4C 24 2C 31 |.H.H.1:L$..(L$,1|
00000360: 2C C3 28 4C 24 29 00 8C 0B 54 00 8B 43 58 B2 32 |,.(L$)...T..CX.2|
00000370: 31 20 AF 52 24 B1 22 22 A7 48 B2 48 AA 31 3A 4C |1 .R$."".H.H.1:L|
00000380: 24 B2 4C 24 AA C8 28 52 24 2C 31 29 00 9B 0B 55 |$.L$..(R$,1)...U|
00000390: 00 8B 20 51 4E B2 31 20 A7 20 8E 00 B7 0B 58 00 |.. QN.1 . ....X.|
000003A0: 8B 43 58 B3 33 32 A7 43 24 B2 22 22 3A 43 58 B2 |.CX.32.C$."":CX.|
000003B0: 30 3A 48 B2 48 AB 31 00 D5 0B 59 00 8B C3 28 4C |0:H.H.1...Y...(L|
000003C0: 24 29 AA C3 28 43 24 29 B2 4C A7 99 C7 28 37 29 |$)..(C$).L...(7)|
000003D0: 3B 3A 89 38 32 00 10 0C 5A 00 99 43 24 3B 3A 48 |;:.82...Z..C$;:H|
000003E0: B2 48 AA 31 3A 56 54 25 B2 56 3A 8D 33 30 31 30 |.H.1:VT%.V:.3010|
000003F0: 30 3A 97 32 31 31 2C 48 3A 4C 24 B2 4C 24 AA 43 |0:.211,H:L$.L$.C|
00000400: 24 3A 52 24 B2 CA 28 52 24 2C 32 29 3A 89 38 32 |$:R$..(R$,2):.82|
00000410: 00 32 0C 64 00 8D 31 33 30 30 30 3A 8D 31 30 30 |.2.d..13000:.100|
00000420: 30 30 3A 8F 49 4E 49 54 49 41 4C 49 5A 41 54 49 |00:.INITIALIZATI|
00000430: 4F 4E 00 5E 0C 6E 00 8F 20 20 50 47 4D 24 28 31 |ON.^.n.. PGM$(1|
00000440: 29 3D 22 49 4E 54 52 4F 44 55 43 54 49 4F 4E 2F |)="INTRODUCTION/|
00000450: 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 22 00 8A |DEMONSTRATION"..|
00000460: 0C 78 00 50 47 4D 24 28 37 29 B2 22 55 53 45 2F |.x.PGM$(7)."USE/|
00000470: 43 52 45 41 54 45 20 50 45 52 53 4F 4E 41 4C 20 |CREATE PERSONAL |
00000480: 44 49 53 4B 20 46 49 4C 45 22 00 B2 0C 82 00 50 |DISK FILE".....P|
00000490: 47 4D 24 28 31 29 B2 22 4C 45 53 53 4F 4E 20 31 |GM$(1)."LESSON 1|
000004A0: 3A 20 4E 41 4D 45 53 20 41 4E 44 20 46 41 43 45 |: NAMES AND FACE|
000004B0: 53 22 00 D9 0C 8C 00 50 47 4D 24 28 32 29 B2 22 |S".....PGM$(2)."|
000004C0: 4C 45 53 53 4F 4E 20 32 3A 20 4D 45 54 48 4F 44 |LESSON 2: METHOD|
000004D0: 20 4F 46 20 4C 4F 43 49 22 00 01 0D 96 00 50 47 | OF LOCI".....PG|
000004E0: 4D 24 28 33 29 B2 22 4C 45 53 53 4F 4E 20 33 3A |M$(3)."LESSON 3:|
000004F0: 20 50 45 47 2D 57 4F 52 44 20 53 59 53 54 45 4D | PEG-WORD SYSTEM|
00000500: 22 00 29 0D A0 00 50 47 4D 24 28 34 29 B2 22 4C |".)...PGM$(4)."L|
00000510: 45 53 53 4F 4E 20 34 3A 20 49 4D 50 4F 52 54 41 |ESSON 4: IMPORTA|
00000520: 4E 54 20 44 41 54 45 53 22 00 4F 0D AA 00 50 47 |NT DATES".O...PG|
00000530: 4D 24 28 35 29 B2 22 4C 45 53 53 4F 4E 20 35 3A |M$(5)."LESSON 5:|
00000540: 20 50 48 4F 4E 45 20 4E 55 4D 42 45 52 53 22 00 | PHONE NUMBERS".|
00000550: 72 0D B4 00 50 47 4D 24 28 36 29 B2 22 50 4C 41 |r...PGM$(6)."PLA|
00000560: 59 20 4D 45 4D 4F 52 59 20 4D 49 58 20 47 41 4D |Y MEMORY MIX GAM|
00000570: 45 22 00 8D 0D BE 00 50 47 4D 24 28 38 29 B2 22 |E".....PGM$(8)."|
00000580: 51 55 49 54 20 46 4F 52 20 4E 4F 57 22 00 A2 0D |QUIT FOR NOW"...|
00000590: C8 00 4D 41 58 B2 38 3A 8D 38 30 30 30 3A 51 4E |..MAX.8:.8000:QN|
000005A0: B2 30 00 CB 0D D2 00 91 43 89 20 36 37 30 2C 36 |.0......C. 670,6|
000005B0: 38 30 2C 36 39 30 2C 37 30 30 2C 37 31 30 2C 37 |80,690,700,710,7|
000005C0: 32 30 2C 37 31 30 30 2C 39 39 30 00 0F 0E DC 00 |20,7100,990.....|
000005D0: 48 4F 4D 45 3A 56 54 41 42 31 30 3A 99 22 44 4F |HOME:VTAB10:."DO|
000005E0: 20 59 4F 55 20 57 41 4E 54 20 4D 55 53 49 43 20 | YOU WANT MUSIC |
000005F0: 57 49 54 48 20 54 48 49 53 20 44 45 4D 4F 3F 20 |WITH THIS DEMO? |
00000600: 28 59 2F 4E 29 22 3B 3A A1 43 24 3A 8D 39 35 00 |(Y/N)";:.C$:.95.|
00000610: 2E 0E E6 00 8B 43 24 B2 22 59 22 A7 97 37 36 38 |.....C$."Y"..768|
00000620: 2C 31 36 39 3A 53 53 B2 30 3A 89 32 36 30 00 4C |,169:SS.0:.260.L|
00000630: 0E F0 00 8B 43 24 B2 22 4E 22 A7 97 37 36 38 2C |....C$."N"..768,|
00000640: 39 36 3A 53 53 B2 31 3A 89 32 36 30 00 55 0E FA |96:SS.1:.260.U..|
00000650: 00 89 32 32 30 00 85 0E 04 01 46 49 4C 45 24 B2 |..220.....FILE$.|
00000660: 22 4C 4F 47 4F 22 3A 8D 36 35 30 30 3A 8D 31 36 |"LOGO":.6500:.16|
00000670: 31 30 30 3A 8B 53 53 B2 31 A7 53 45 43 B2 32 3A |100:.SS.1.SEC.2:|
00000680: 8D 32 39 30 30 00 B9 0E 0E 01 54 45 58 54 3A 48 |.2900.....TEXT:H|
00000690: 4F 4D 45 3A 46 49 4C 45 24 B2 22 45 4D 41 4E 22 |OME:FILE$."EMAN"|
000006A0: 3A 8D 36 35 30 30 3A 8D 31 36 31 30 30 3A 53 45 |:.6500:.16100:SE|
000006B0: 43 B2 31 3A 8D 32 39 30 30 00 C4 0E 18 01 81 49 |C.1:.2900......I|
000006C0: B2 31 A4 36 00 06 0F 22 01 56 54 41 42 32 33 3A |.1.6...".VTAB23:|
000006D0: 46 49 4C 45 24 B2 42 4C 24 28 49 AB 31 29 3A 8D |FILE$.BL$(I.1):.|
000006E0: 32 39 37 30 3A 97 30 2C 50 49 54 43 48 28 49 AA |2970:.0,PITCH(I.|
000006F0: 32 29 3A 43 41 4C 4C 37 36 38 3A 53 45 43 B2 32 |2):CALL768:SEC.2|
00000700: 3A 8D 32 39 30 30 00 1E 0F 2C 01 48 4F 4D 45 3A |:.2900...,.HOME:|
00000710: 53 45 43 B2 31 3A 8D 32 39 30 30 3A 82 49 00 42 |SEC.1:.2900:.I.B|
00000720: 0F 36 01 54 45 58 54 3A 48 4F 4D 45 3A 58 4D 41 |.6.TEXT:HOME:XMA|
00000730: 58 B2 31 30 3A 58 4E 55 4D B2 31 30 3A 8D 31 35 |X.10:XNUM.10:.15|
00000740: 30 30 00 8D 0F 40 01 48 4F 4D 45 3A 56 54 41 42 |00...@.HOME:VTAB|
00000750: 31 3A 49 4E 56 45 52 53 45 3A 46 49 4C 45 24 B2 |1:INVERSE:FILE$.|
00000760: 22 57 48 4F 20 4E 45 45 44 53 20 4D 45 4D 4F 52 |"WHO NEEDS MEMOR|
00000770: 59 20 54 52 41 49 4E 45 52 3F 22 3A 8D 32 39 39 |Y TRAINER?":.299|
00000780: 30 3A 4E B0 4D 41 4C 3A 53 45 43 B2 32 00 99 0F |0:N.MAL:SEC.2...|
00000790: 4A 01 81 49 B2 31 A4 31 30 00 C3 0F 54 01 97 30 |J..I.1.10...T..0|
000007A0: 2C 50 49 54 43 48 28 39 AB 49 AC 28 49 B3 31 30 |,PITCH(9.I.(I.10|
000007B0: 29 29 3A 8B 49 B1 38 A7 97 30 2C 50 49 54 43 48 |)):.I.8..0,PITCH|
000007C0: 28 38 29 00 02 10 5E 01 43 41 4C 4C 37 36 38 3A |(8)...^.CALL768:|
000007D0: 56 54 41 42 49 AC 32 AA 32 3A 46 49 4C 45 24 B2 |VTABI.2.2:FILE$.|
000007E0: 53 52 24 28 52 44 52 25 28 49 29 AB 31 29 3A 8D |SR$(RDR%(I).1):.|
000007F0: 32 39 38 30 3A 53 45 43 B2 30 2E 35 3A 8D 32 39 |2980:SEC.0.5:.29|
00000800: 30 30 00 09 10 68 01 82 49 00 26 10 7C 01 81 49 |00...h..I.&.|..I|
00000810: B2 31 A4 39 3A 41 46 54 24 28 49 29 B2 50 54 24 |.1.9:AFT$(I).PT$|
00000820: 28 49 29 3A 82 49 00 6E 10 90 01 8D 31 33 30 30 |(I):.I.n....1300|
00000830: 30 3A 46 49 4C 45 24 B2 22 54 52 59 20 54 4F 20 |0:FILE$."TRY TO |
00000840: 4D 45 4D 4F 52 49 5A 45 20 54 48 45 20 4C 49 53 |MEMORIZE THE LIS|
00000850: 54 20 4F 46 20 50 4C 41 4E 45 54 53 22 3A 56 54 |T OF PLANETS":VT|
00000860: 41 42 31 30 3A 8D 32 39 38 30 3A 53 45 43 00 B6 |AB10:.2980:SEC..|
00000870: 10 9A 01 46 49 4C 45 24 B2 22 41 4E 44 20 54 48 |...FILE$."AND TH|
00000880: 45 49 52 20 44 49 53 54 41 4E 43 45 53 20 46 52 |EIR DISTANCES FR|
00000890: 4F 4D 20 54 48 45 20 53 55 4E 2D 2D 22 3A 56 54 |OM THE SUN--":VT|
000008A0: 41 42 31 32 3A 8D 32 39 38 30 3A 53 45 43 B2 31 |AB12:.2980:SEC.1|
000008B0: 3A 8D 32 39 30 30 00 02 11 A4 01 56 54 41 42 32 |:.2900.....VTAB2|
000008C0: 32 3A 48 54 41 42 31 3A 46 49 4C 45 24 B2 22 57 |2:HTAB1:FILE$."W|
000008D0: 41 52 4E 49 4E 47 3A 20 54 48 45 20 4C 49 53 54 |ARNING: THE LIST|
000008E0: 20 57 49 4C 4C 20 42 45 20 51 55 49 43 4B 21 22 | WILL BE QUICK!"|
000008F0: 3A 8D 32 39 39 30 3A 43 41 4C 4C 37 36 38 3A 53 |:.2990:CALL768:S|
00000900: 45 43 00 30 11 AE 01 53 50 45 45 44 B2 32 35 35 |EC.0...SPEED.255|
00000910: 3A 53 45 43 B2 31 3A 8D 32 39 30 30 3A 58 4D 41 |:SEC.1:.2900:XMA|
00000920: 58 B2 39 3A 58 4E 55 4D B2 39 3A 8D 31 35 30 30 |X.9:XNUM.9:.1500|
00000930: 00 57 11 B8 01 53 4B 49 50 B2 30 3A 53 51 B2 31 |.W...SKIP.0:SQ.1|
00000940: 3A 43 24 B2 22 22 3A 8D 38 30 30 3A 53 45 43 B2 |:C$."":.800:SEC.|
00000950: 33 3A 8D 32 39 30 30 00 9F 11 C2 01 8D 31 33 30 |3:.2900......130|
00000960: 30 30 3A 56 54 41 42 31 31 3A 46 49 4C 45 24 B2 |00:VTAB11:FILE$.|
00000970: 22 20 43 41 4E 20 59 4F 55 20 52 45 43 41 4C 4C |" CAN YOU RECALL|
00000980: 20 54 48 45 20 50 4C 41 4E 45 54 53 20 49 4E 20 | THE PLANETS IN |
00000990: 4F 52 44 45 52 3F 22 3A 8D 32 39 37 30 3A 43 00 |ORDER?":.2970:C.|
000009A0: C6 11 CC 01 81 49 B2 31 A4 39 3A 41 46 54 24 28 |.....I.1.9:AFT$(|
000009B0: 49 29 B2 50 54 24 28 49 29 3A 52 44 52 25 28 49 |I).PT$(I):RDR%(I|
000009C0: 29 B2 49 3A 82 49 00 F5 11 D6 01 53 51 B2 30 3A |).I:.I.....SQ.0:|
000009D0: 53 4B 49 50 B2 31 3A 43 24 B2 22 23 22 3A 8D 38 |SKIP.1:C$."#":.8|
000009E0: 30 30 3A 53 45 43 B2 35 3A 8D 32 39 30 30 3A 8D |00:SEC.5:.2900:.|
000009F0: 31 33 30 30 30 00 3D 12 E0 01 8D 31 33 30 30 30 |13000.=....13000|
00000A00: 3A 56 54 41 42 31 31 3A 46 49 4C 45 24 B2 22 44 |:VTAB11:FILE$."D|
00000A10: 49 44 20 59 4F 55 20 52 45 43 41 4C 4C 20 41 4E |ID YOU RECALL AN|
00000A20: 59 20 4F 46 20 54 48 45 20 50 4C 41 4E 45 54 53 |Y OF THE PLANETS|
00000A30: 3F 22 3A 8D 32 39 37 30 3A 53 45 43 B2 00 88 12 |?":.2970:SEC....|
00000A40: EA 01 56 54 41 42 31 31 3A 46 49 4C 45 24 B2 22 |..VTAB11:FILE$."|
00000A50: 4C 45 54 20 4D 45 4D 4F 52 59 20 54 52 41 49 4E |LET MEMORY TRAIN|
00000A60: 45 52 20 54 45 41 43 48 20 59 4F 55 20 48 4F 57 |ER TEACH YOU HOW|
00000A70: 2E 22 3A 8D 32 39 37 30 3A 43 41 4C 4C 37 36 38 |.":.2970:CALL768|
00000A80: 3A 53 45 43 B2 34 3A CB 00 D0 12 FE 01 56 54 41 |:SEC.4:......VTA|
00000A90: 42 31 30 3A 46 49 4C 45 24 B2 22 46 41 43 45 20 |B10:FILE$."FACE |
00000AA0: 20 20 20 20 20 20 20 22 3A 8D 32 39 38 30 3A 56 | ":.2980:V|
00000AB0: 54 41 42 31 32 3A 46 49 4C 45 24 B2 22 4E 41 4D |TAB12:FILE$."NAM|
00000AC0: 45 20 20 20 20 20 20 20 20 22 3A 8D 32 39 38 30 |E ":.2980|
00000AD0: 00 18 13 08 02 56 54 41 42 31 39 3A 48 54 41 42 |.....VTAB19:HTAB|
00000AE0: 31 3A 46 49 4C 45 24 B2 22 41 53 20 45 41 53 49 |1:FILE$."AS EASI|
00000AF0: 4C 59 20 41 53 20 59 4F 55 52 20 4F 57 4E 21 22 |LY AS YOUR OWN!"|
00000B00: 3A 8D 32 39 39 30 3A 43 41 4C 4C 37 36 38 3A 53 |:.2990:CALL768:S|
00000B10: 45 43 B2 35 3A 8D 32 39 00 3C 13 12 02 58 B2 B5 |EC.5:.29.<...X..|
00000B20: 28 31 33 AC BB 28 31 29 AA 31 35 29 3A 41 4E 24 |(13..(1).15):AN$|
00000B30: B2 4E 4D 24 28 34 AC BB 28 31 29 29 00 64 13 1C |.NM$(4..(1)).d..|
00000B40: 02 46 49 4C 45 24 B2 22 46 41 43 45 22 AA C4 28 |.FILE$."FACE"..(|
00000B50: 58 29 3A 8D 36 35 30 30 3A 53 45 43 B2 31 3A 8D |X):.6500:SEC.1:.|
00000B60: 32 39 30 30 00 A7 13 26 02 56 54 41 42 32 32 3A |2900...&.VTAB22:|
00000B70: 49 4E 56 45 52 53 45 3A 99 A3 35 29 3B 41 4E 24 |INVERSE:..5);AN$|
00000B80: 3B A3 31 35 29 3B 22 33 32 31 2D 35 31 36 38 22 |;.15);"321-5168"|
00000B90: 3B A3 32 36 29 3B 22 53 45 50 20 32 33 2C 31 39 |;.26);"SEP 23,19|
00000BA0: 35 33 22 3B 54 41 42 00 F3 13 30 02 56 54 41 42 |53";TAB...0.VTAB|
00000BB0: 32 34 3A 48 54 41 42 31 3A 99 22 54 52 59 20 54 |24:HTAB1:."TRY T|
00000BC0: 4F 20 52 45 4D 45 4D 42 45 52 20 22 3B 41 4E 24 |O REMEMBER ";AN$|
00000BD0: 3B 22 27 53 20 50 48 4F 4E 45 20 26 20 42 49 52 |;"'S PHONE & BIR|
00000BE0: 54 48 44 41 59 22 3B 3A 43 41 4C 4C 37 36 38 3A |THDAY";:CALL768:|
00000BF0: 53 45 43 00 3A 14 3A 02 56 54 41 42 34 3A 99 22 |SEC.:.:.VTAB4:."|
00000C00: 57 48 41 54 20 57 41 53 20 48 45 52 20 4E 41 4D |WHAT WAS HER NAM|
00000C10: 45 3F 22 3A 53 45 43 B2 35 3A 8D 32 39 30 30 3A |E?":SEC.5:.2900:|
00000C20: 43 41 4C 4C 37 36 38 3A 56 54 41 42 36 3A 46 49 |CALL768:VTAB6:FI|
00000C30: 4C 45 24 B2 41 4E 24 3A CB 53 00 82 14 44 02 56 |LE$.AN$:.S...D.V|
00000C40: 54 41 42 31 30 3A 48 54 41 42 31 3A 99 22 57 48 |TAB10:HTAB1:."WH|
00000C50: 41 54 20 57 41 53 20 22 3B 41 4E 24 3B 22 27 53 |AT WAS ";AN$;"'S|
00000C60: 20 50 48 4F 4E 45 20 4E 55 4D 42 45 52 3F 22 3A | PHONE NUMBER?":|
00000C70: 53 45 43 B2 35 3A 8D 32 39 30 30 3A 43 41 4C 4C |SEC.5:.2900:CALL|
00000C80: 37 36 00 CA 14 4E 02 56 54 41 42 31 36 3A 48 54 |76...N.VTAB16:HT|
00000C90: 41 42 31 3A 99 22 57 48 41 54 20 57 41 53 20 22 |AB1:."WHAT WAS "|
00000CA0: 3B 41 4E 24 3B 22 27 53 20 42 49 52 54 48 44 41 |;AN$;"'S BIRTHDA|
00000CB0: 59 3F 22 3A 53 45 43 B2 35 3A 8D 32 39 30 30 3A |Y?":SEC.5:.2900:|
00000CC0: 43 41 4C 4C 37 36 38 3A 56 54 00 11 15 58 02 8D |CALL768:VT...X..|
00000CD0: 31 33 30 30 30 3A 56 54 41 42 31 30 3A 46 49 4C |13000:VTAB10:FIL|
00000CE0: 45 24 B2 22 44 49 44 20 59 4F 55 20 52 45 4D 45 |E$."DID YOU REME|
00000CF0: 4D 42 45 52 20 41 4C 4C 20 54 48 41 54 3F 22 3A |MBER ALL THAT?":|
00000D00: 8D 32 39 37 30 3A 43 41 4C 4C 37 36 38 3A CB 53 |.2970:CALL768:.S|
00000D10: 55 00 33 15 62 02 57 24 B2 22 40 22 3A 46 49 4C |U.3.b.W$."@":FIL|
00000D20: 45 24 B2 22 49 31 22 3A 8D 37 35 30 30 3A 57 24 |E$."I1":.7500:W$|
00000D30: B2 22 22 00 75 15 6C 02 81 4A B2 31 A4 32 3A 46 |."".u.l..J.1.2:F|
00000D40: 49 4C 45 24 B2 22 37 35 32 38 39 39 37 35 32 31 |ILE$."7528997521|
00000D50: 39 39 36 35 34 31 34 35 36 35 39 32 35 22 3A 8D |9965414565925":.|
00000D60: 31 36 30 30 30 3A 53 45 43 B2 2E 35 3A 8D 32 39 |16000:SEC..5:.29|
00000D70: 30 30 3A 82 4A 00 C1 15 8A 02 53 50 45 45 44 B2 |00:.J.....SPEED.|
00000D80: 32 35 35 3A 8D 31 33 30 30 30 3A 56 54 41 42 31 |255:.13000:VTAB1|
00000D90: 30 3A 46 49 4C 45 24 B2 22 54 48 49 53 20 49 53 |0:FILE$."THIS IS|
00000DA0: 20 54 48 45 20 45 4E 44 20 4F 46 20 54 48 45 20 | THE END OF THE |
00000DB0: 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 2D 2D 22 |DEMONSTRATION--"|
00000DC0: 3A 00 CC 15 94 02 56 54 41 42 31 37 00 0E 16 96 |:.....VTAB17....|
00000DD0: 02 99 22 28 50 52 45 53 53 20 3C 43 54 52 4C 2D |.."(PRESS <CTRL-|
00000DE0: 43 3E 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |C> TO RETURN TO |
00000DF0: 4D 41 49 4E 20 4D 45 4E 55 29 22 3A 53 45 43 B2 |MAIN MENU)":SEC.|
00000E00: 31 30 3A 8D 32 39 30 30 3A 89 20 32 36 30 00 2F |10:.2900:. 260./|
00000E10: 16 9E 02 46 49 4C 45 24 B2 22 4C 45 53 53 4F 4E |...FILE$."LESSON|
00000E20: 31 22 3A 53 44 24 B2 22 41 22 3A 89 37 33 30 00 |1":SD$."A":.730.|
00000E30: 50 16 A8 02 46 49 4C 45 24 B2 22 4C 45 53 53 4F |P...FILE$."LESSO|
00000E40: 4E 32 22 3A 53 44 24 B2 22 42 22 3A 89 37 33 30 |N2":SD$."B":.730|
00000E50: 00 71 16 B2 02 46 49 4C 45 24 B2 22 4C 45 53 53 |.q...FILE$."LESS|
00000E60: 4F 4E 33 22 3A 53 44 24 B2 22 42 22 3A 89 37 33 |ON3":SD$."B":.73|
00000E70: 30 00 92 16 BC 02 46 49 4C 45 24 B2 22 4C 45 53 |0.....FILE$."LES|
00000E80: 53 4F 4E 34 22 3A 53 44 24 B2 22 43 22 3A 89 37 |SON4":SD$."C":.7|
00000E90: 33 30 00 B3 16 C6 02 46 49 4C 45 24 B2 22 4C 45 |30.....FILE$."LE|
00000EA0: 53 53 4F 4E 35 22 3A 53 44 24 B2 22 43 22 3A 89 |SSON5":SD$."C":.|
00000EB0: 37 33 30 00 D4 16 D0 02 46 49 4C 45 24 B2 22 4C |730.....FILE$."L|
00000EC0: 45 53 53 4F 4E 36 22 3A 53 44 24 B2 22 41 22 3A |ESSON6":SD$."A":|
00000ED0: 89 37 33 30 00 EC 16 DA 02 99 22 93 22 3A 56 54 |.730......".":VT|
00000EE0: 25 B2 31 30 3A 8D 20 33 30 31 30 30 00 20 17 DC |%.10:. 30100. ..|
00000EF0: 02 99 22 42 45 20 53 55 52 45 20 4D 45 4D 4F 52 |.."BE SURE MEMOR|
00000F00: 59 20 54 52 41 49 4E 45 52 20 22 3B 22 12 22 3B |Y TRAINER ";".";|
00000F10: 22 44 49 53 4B 20 22 3B 53 44 24 3B 22 92 22 3B |"DISK ";SD$;".";|
00000F20: 00 62 17 DE 02 56 54 25 B2 31 32 3A 8D 20 33 30 |.b...VT%.12:. 30|
00000F30: 31 30 30 3A 97 20 32 31 31 2C 30 3A 99 22 49 53 |100:. 211,0:."IS|
00000F40: 20 50 52 4F 50 45 52 4C 59 20 49 4E 53 45 52 54 | PROPERLY INSERT|
00000F50: 45 44 20 49 4E 54 4F 20 44 52 49 56 45 20 23 31 |ED INTO DRIVE #1|
00000F60: 2E 22 00 93 17 E4 02 56 54 25 B2 31 38 3A 8D 20 |.".....VT%.18:. |
00000F70: 33 30 31 30 30 3A 99 22 28 50 52 45 53 53 20 3C |30100:."(PRESS <|
00000F80: 43 54 52 4C 2D 43 3E 20 54 4F 20 43 41 4E 43 45 |CTRL-C> TO CANCE|
00000F90: 4C 29 22 00 D5 17 EE 02 56 54 25 B2 32 34 3A 8D |L)".....VT%.24:.|
00000FA0: 20 33 30 31 30 30 3A 9E 20 4D 55 3A 99 22 50 52 | 30100:. MU:."PR|
00000FB0: 45 53 53 20 3C 53 50 41 43 45 20 42 41 52 3E 20 |ESS <SPACE BAR> |
00000FC0: 54 4F 20 52 55 4E 20 53 45 4C 45 43 54 49 4F 4E |TO RUN SELECTION|
00000FD0: 2E 2E 2E 22 3B 00 F2 17 F8 02 8D 20 37 36 3A 8D |...";...... 76:.|
00000FE0: 20 39 35 32 30 3A 8B 20 51 4E B2 31 20 A7 20 31 | 9520:. QN.1 . 1|
00000FF0: 31 30 00 34 18 0C 03 99 22 93 22 3A 56 54 25 B2 |10.4....".":VT%.|
00001000: 31 32 3A 8D 33 30 31 30 30 3A 97 20 32 31 31 2C |12:.30100:. 211,|
00001010: 34 3A 99 22 50 52 45 50 41 52 49 4E 47 20 54 4F |4:."PREPARING TO|
00001020: 20 52 55 4E 20 59 4F 55 52 20 53 45 4C 45 43 54 | RUN YOUR SELECT|
00001030: 49 4F 4E 22 00 6D 18 16 03 99 3A 99 22 90 22 3A |ION".m....:.".":|
00001040: 99 22 20 20 20 20 20 20 20 20 4C 4F 41 44 20 22 |." LOAD "|
00001050: 3B C7 28 33 34 29 3B 46 49 4C 45 24 3B C7 28 33 |;.(34);FILE$;.(3|
00001060: 34 29 3B 22 2C 38 22 3B 22 91 91 91 22 00 86 18 |4);",8";"..."...|
00001070: 1A 03 8D 20 37 36 3A 97 31 39 38 2C 36 3A 97 20 |... 76:.198,6:. |
00001080: 36 33 31 2C 31 33 00 BE 18 1B 03 97 20 36 33 32 |631,13...... 632|
00001090: 2C C6 28 22 11 22 29 3A 97 20 36 33 33 2C C6 28 |,.("."):. 633,.(|
000010A0: 22 52 22 29 3A 97 20 36 33 34 2C C6 28 22 55 22 |"R"):. 634,.("U"|
000010B0: 29 3A 97 20 36 33 35 2C C6 28 22 4E 22 29 00 CD |):. 635,.("N")..|
000010C0: 18 1C 03 97 20 36 33 36 2C 31 33 3A 80 00 E8 18 |.... 636,13:....|
000010D0: 20 03 8F 4D 4F 56 49 4E 47 20 53 43 52 45 45 4E | ..MOVING SCREEN|
000010E0: 20 44 49 53 50 4C 41 59 00 23 19 2A 03 8D 31 33 | DISPLAY.#.*..13|
000010F0: 30 30 30 3A 46 49 4C 45 24 B2 22 54 48 45 20 4C |000:FILE$."THE L|
00001100: 49 53 54 20 4F 46 20 50 4C 41 4E 45 54 53 22 3A |IST OF PLANETS":|
00001110: 49 4E 56 45 52 53 45 3A 8D 32 39 39 30 3A 4E B0 |INVERSE:.2990:N.|
00001120: 4D 41 4C 00 2E 19 34 03 81 49 B2 31 A4 39 00 46 |MAL...4..I.1.9.F|
00001130: 19 3E 03 41 B2 49 3A 8B 53 51 B2 31 A7 41 B2 52 |.>.A.I:.SQ.1.A.R|
00001140: 44 52 25 28 49 29 00 73 19 48 03 97 30 2C 50 49 |DR%(I).s.H..0,PI|
00001150: 54 43 48 28 52 44 52 25 28 49 29 29 3A 8B 52 44 |TCH(RDR%(I)):.RD|
00001160: 52 25 28 49 29 B2 39 A7 97 30 2C 50 49 54 43 48 |R%(I).9..0,PITCH|
00001170: 28 31 29 00 B3 19 52 03 56 A3 32 AC 49 29 AA 32 |(1)...R.V.2.I).2|
00001180: 3A 48 54 41 42 37 3A 43 41 4C 4C 37 36 38 3A 99 |:HTAB7:CALL768:.|
00001190: 22 28 22 3B 41 3B 22 29 22 3B A3 31 33 29 3B 41 |"(";A;")";.13);A|
000011A0: 46 54 24 28 41 29 3B A3 32 31 29 3B 50 53 24 28 |FT$(A);.21);PS$(|
000011B0: 41 29 3B 00 C3 19 5C 03 53 45 43 B2 32 3A 8D 32 |A);...\.SEC.2:.2|
000011C0: 39 30 30 00 DE 19 66 03 8B 53 4B 49 50 B2 30 A7 |900...f..SKIP.0.|
000011D0: 48 54 41 42 31 3A 43 41 4C 4C AB 38 36 38 00 E7 |HTAB1:CALL.868..|
000011E0: 19 70 03 82 49 3A 8E 00 26 1A DE 03 8D 31 33 30 |.p..I:..&....130|
000011F0: 30 30 3A 56 54 25 B2 38 3A 8D 33 30 31 30 30 3A |00:VT%.8:.30100:|
00001200: 99 22 59 4F 55 20 48 41 56 45 20 4A 55 53 54 20 |."YOU HAVE JUST |
00001210: 45 58 49 54 45 44 22 3A 99 3A 99 22 12 22 3B 45 |EXITED":.:.".";E|
00001220: 49 24 3B 22 2E 22 00 5F 1A E3 03 99 3A 99 22 54 |I$;"."._....:."T|
00001230: 48 41 4E 4B 20 59 4F 55 20 46 4F 52 20 50 4C 41 |HANK YOU FOR PLA|
00001240: 59 49 4E 47 21 22 3A 56 54 25 B2 32 32 3A 8D 20 |YING!":VT%.22:. |
00001250: 33 30 31 30 30 3A 97 20 32 30 34 2C 30 3A 80 00 |30100:. 204,0:..|
00001260: 65 1A E7 03 80 00 81 1A DC 05 8F 20 52 41 4E 44 |e.......... RAND|
00001270: 4F 4D 20 4F 52 44 45 52 20 53 45 4C 45 43 54 4F |OM ORDER SELECTO|
00001280: 52 00 99 1A E6 05 52 44 52 25 28 31 29 B2 58 4E |R.....RDR%(1).XN|
00001290: 55 4D AC BB 28 31 29 AA 31 00 A7 1A F0 05 81 49 |UM..(1).1......I|
000012A0: B2 32 A4 58 4D 41 58 00 BF 1A FA 05 52 44 52 25 |.2.XMAX.....RDR%|
000012B0: 28 49 29 B2 58 4E 55 4D AC BB 28 31 29 AA 31 00 |(I).XNUM..(1).1.|
000012C0: CC 1A 04 06 81 4A B2 31 A4 49 AB 31 00 FB 1A 0E |.....J.1.I.1....|
000012D0: 06 8B 52 44 52 25 28 49 29 B2 52 44 52 25 28 4A |..RDR%(I).RDR%(J|
000012E0: 29 89 31 35 33 30 3A 8F 20 47 45 54 20 41 20 4E |).1530:. GET A N|
000012F0: 45 57 20 52 41 4E 44 4F 4D 20 23 00 05 1B 18 06 |EW RANDOM #.....|
00001300: 82 4A 3A 82 49 00 0B 1B 3F 06 8E 00 1A 1B 54 0B |.J:.I...?.....T.|
00001310: 8F 53 45 43 20 44 45 4C 41 59 00 42 1B 5E 0B 53 |.SEC DELAY.B.^.S|
00001320: 45 43 B2 53 45 43 AA 32 AC 28 53 45 43 B2 30 29 |EC.SEC.2.(SEC.0)|
00001330: 3A 81 58 B2 31 A4 53 45 43 AC 31 33 30 30 3A 82 |:.X.1.SEC.1300:.|
00001340: 3A 8E 00 86 1B 9A 0B 4C B2 C2 28 33 37 29 3A 53 |:......L..(37):S|
00001350: 50 24 B2 22 22 3A 81 58 B2 31 A4 32 30 AB C3 28 |P$."":.X.1.20..(|
00001360: 46 49 4C 45 24 29 AD 32 3A 53 50 24 B2 53 50 24 |FILE$).2:SP$.SP$|
00001370: AA 22 20 22 3A 82 3A 46 49 4C 45 24 B2 53 50 24 |." ":.:FILE$.SP$|
00001380: AA 46 49 4C 45 24 00 C2 1B 9C 0B 81 58 B2 31 A4 |.FILE$......X.1.|
00001390: 32 30 3A 50 52 24 B2 C8 28 46 49 4C 45 24 2C 58 |20:PR$..(FILE$,X|
000013A0: 29 AA C9 28 46 49 4C 45 24 2C 58 29 3A 56 54 41 |)..(FILE$,X):VTA|
000013B0: 42 4C 3A 48 54 41 42 32 31 AB 58 3A 99 50 52 24 |BL:HTAB21.X:.PR$|
000013C0: 3A 82 00 D6 1B A4 0B 8F 20 20 43 45 4E 54 45 52 |:....... CENTER|
000013D0: 20 53 4C 49 44 45 00 E9 1B AE 0B 8F 43 45 4E 54 | SLIDE......CENT|
000013E0: 45 52 20 53 54 52 49 4E 47 00 17 1C B3 0B 99 A3 |ER STRING.......|
000013F0: B5 28 28 34 30 AB C3 28 46 49 4C 45 24 29 29 AD |.((40..(FILE$)).|
00001400: 32 29 29 3B 46 49 4C 45 24 3B A3 34 30 29 3A 97 |2));FILE$;.40):.|
00001410: 32 31 31 2C 31 3A 8E 00 2E 1C 64 19 8F 20 20 48 |211,1:....d.. H|
00001420: 49 52 45 53 20 44 49 53 50 4C 41 59 45 52 00 58 |IRES DISPLAYER.X|
00001430: 1C 6E 19 99 22 93 22 3A 8D 20 36 36 30 30 3A 8F |.n..".":. 6600:.|
00001440: 20 4C 4F 41 44 20 43 4F 4D 50 52 45 53 53 45 44 | LOAD COMPRESSED|
00001450: 20 50 49 43 54 55 52 45 00 7B 1C 78 19 9E 20 34 | PICTURE.{.x.. 4|
00001460: 39 31 35 38 3A 9E 20 34 39 31 35 32 3A 8E 3A 8F |9158:. 49152:.:.|
00001470: 20 55 4E 43 4F 4D 50 52 45 53 53 00 93 1C C8 19 | UNCOMPRESS.....|
00001480: 8F 20 4C 4F 41 44 20 46 49 4C 45 20 52 4F 55 54 |. LOAD FILE ROUT|
00001490: 49 4E 45 00 AD 1C D2 19 46 53 B2 4C 44 AA 33 3A |INE.....FS.LD.3:|
000014A0: 97 20 46 53 2C C3 28 46 49 4C 45 24 29 00 DD 1C |. FS,.(FILE$)...|
000014B0: DC 19 81 20 54 B2 31 20 A4 20 C3 28 46 49 4C 45 |... T.1 . .(FILE|
000014C0: 24 29 3A 97 20 46 53 AA 54 2C C6 28 CA 28 46 49 |$):. FS.T,.(.(FI|
000014D0: 4C 45 24 2C 54 2C 31 29 29 3A 82 20 54 00 E8 1C |LE$,T,1)):. T...|
000014E0: E6 19 9E 20 4C 44 3A 8E 00 04 1D BC 1B 8F 57 52 |... LD:.......WR|
000014F0: 49 54 45 20 54 4F 20 50 45 52 53 4F 4E 41 4C 20 |ITE TO PERSONAL |
00001500: 44 49 53 4B 00 23 1D C6 1B 8D 38 36 38 35 3A 8F |DISK.#....8685:.|
00001510: 20 49 4E 54 52 4F 20 54 4F 20 55 53 45 52 20 44 | INTRO TO USER D|
00001520: 49 53 4B 00 34 1D C7 1B 8B 20 51 4E B2 31 20 A7 |ISK.4.... QN.1 .|
00001530: 20 31 31 30 00 75 1D D0 1B 43 24 B2 C7 28 C2 28 | 110.u...C$..(.(|
00001540: 44 45 29 29 3A 8B 43 24 B2 22 59 22 89 31 31 30 |DE)):.C$."Y".110|
00001550: 3A 8F 47 4F 20 54 4F 20 4D 41 49 4E 20 4D 45 4E |:.GO TO MAIN MEN|
00001560: 55 3B 20 53 55 42 4A 45 43 54 20 48 41 53 20 41 |U; SUBJECT HAS A|
00001570: 20 44 49 53 4B 00 94 1D DA 1B 52 57 24 B2 22 57 | DISK.....RW$."W|
00001580: 52 49 54 45 20 22 3A 53 44 24 B2 22 41 22 3A 8D |RITE ":SD$."A":.|
00001590: 37 31 35 30 00 BF 1D E4 1B 97 20 44 45 2C C6 28 |7150...... DE,.(|
000015A0: 22 59 22 29 3A 89 31 31 30 3A 8F 44 49 53 4B 20 |"Y"):.110:.DISK |
000015B0: 46 49 4C 45 20 4E 4F 57 20 45 58 49 53 54 53 00 |FILE NOW EXISTS.|
000015C0: D9 1D EE 1B 8F 20 20 52 45 41 44 2F 57 52 49 54 |..... READ/WRIT|
000015D0: 45 20 54 4F 20 44 49 53 4B 00 E2 1D F8 1B 99 22 |E TO DISK......"|
000015E0: 93 22 00 F7 1D 02 1C 46 49 4C 45 24 B2 22 49 30 |.".....FILE$."I0|
000015F0: 22 3A 8D 37 35 30 30 00 06 1E 03 1C 8B 20 51 4E |":.7500...... QN|
00001600: B2 31 20 A7 20 8E 00 4F 1E 0C 1C 46 47 B2 31 31 |.1 . ..O...FG.11|
00001610: 3A 9F 20 32 2C 38 2C 32 2C 46 4C 4E 4D 24 AA 22 |:. 2,8,2,FLNM$."|
00001620: 2E 4E 41 4D 22 3A 8F 20 49 46 20 46 49 4C 45 20 |.NAM":. IF FILE |
00001630: 44 4F 45 53 4E 27 54 20 45 58 49 53 20 45 52 52 |DOESN'T EXIS ERR|
00001640: 4F 52 20 4F 43 43 55 52 20 26 20 37 32 35 30 00 |OR OCCUR & 7250.|
00001650: 58 1E 0E 1C 84 32 2C 41 00 6F 1E 10 1C 84 31 2C |X....2,A.o....1,|
00001660: 41 3A 8B 20 41 B1 32 30 20 A7 20 37 32 34 30 00 |A:. A.20 . 7240.|
00001670: A4 1E 16 1C A0 20 32 3A 46 47 B2 30 3A 8F 46 49 |..... 2:FG.0:.FI|
00001680: 4C 45 20 45 58 49 53 54 53 3B 20 53 48 4F 55 4C |LE EXISTS; SHOUL|
00001690: 44 20 49 54 20 42 45 20 4F 56 45 52 57 52 49 54 |D IT BE OVERWRIT|
000016A0: 54 45 4E 3F 00 D4 1E 20 1C 99 22 93 22 3A 56 54 |TEN?... ..".":VT|
000016B0: 25 B2 31 31 3A 8D 33 30 31 30 30 3A 99 22 54 48 |%.11:.30100:."TH|
000016C0: 45 20 46 49 4C 45 20 12 22 3B 46 4C 4E 4D 24 3B |E FILE .";FLNM$;|
000016D0: 22 92 22 3B 00 FB 1E 21 1C 99 22 20 41 4C 52 45 |".";...!.." ALRE|
000016E0: 41 44 59 20 45 58 49 53 54 53 2E 22 3A 56 54 25 |ADY EXISTS.":VT%|
000016F0: B2 31 33 3A 8D 20 33 30 31 30 30 00 4A 1F 22 1C |.13:. 30100.J.".|
00001700: 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F |."DO YOU WANT TO|
00001710: 20 45 52 41 53 45 20 49 54 20 41 4E 44 20 43 52 | ERASE IT AND CR|
00001720: 45 41 54 45 22 3A 99 3A 99 22 41 20 4E 45 57 20 |EATE":.:."A NEW |
00001730: 46 49 4C 45 20 57 49 54 48 20 54 48 45 20 53 41 |FILE WITH THE SA|
00001740: 4D 45 20 4E 41 4D 45 3F 22 3B 00 5F 1F 24 1C 99 |ME NAME?";._.$..|
00001750: 22 20 28 59 2F 4E 29 20 22 3B 3A 8D 20 37 31 00 |" (Y/N) ";:. 71.|
00001760: 6E 1F 25 1C 8B 20 51 4E B2 31 20 A7 20 8E 00 AC |n.%.. QN.1 . ...|
00001770: 1F 2A 1C 8B 43 24 B2 22 4E 22 A7 97 44 45 2C C6 |.*..C$."N"..DE,.|
00001780: 28 22 59 22 29 3A 89 31 31 30 3A 8F 53 55 42 4A |("Y"):.110:.SUBJ|
00001790: 45 43 54 20 48 41 53 20 41 20 44 49 53 4B 20 46 |ECT HAS A DISK F|
000017A0: 49 4C 45 3B 20 44 4F 45 53 4E 27 54 00 CF 1F 34 |ILE; DOESN'T...4|
000017B0: 1C 8B 43 24 B2 22 59 22 A7 20 98 31 2C 22 53 30 |..C$."Y". .1,"S0|
000017C0: 3A 22 AA 46 4C 4E 4D 24 3A 89 20 37 32 34 30 00 |:".FLNM$:. 7240.|
000017D0: D9 1F 3E 1C 89 37 32 30 30 00 20 20 48 1C 99 22 |..>..7200. H.."|
000017E0: 93 22 3A 56 54 25 B2 31 31 3A 8D 33 30 31 30 30 |.":VT%.11:.30100|
000017F0: 3A 46 49 4C 45 24 B2 22 50 52 45 50 41 52 49 4E |:FILE$."PREPARIN|
00001800: 47 20 59 4F 55 52 20 50 45 52 53 4F 4E 41 4C 20 |G YOUR PERSONAL |
00001810: 44 49 53 4B 20 46 49 4C 45 22 3A 8D 32 39 39 30 |DISK FILE":.2990|
00001820: 00 3E 20 52 1C A0 20 32 3A 8F 20 20 41 43 54 55 |.> R.. 2:. ACTU|
00001830: 41 4C 20 44 49 53 4B 20 41 43 43 45 53 53 00 6C |AL DISK ACCESS.l|
00001840: 20 5C 1C 9F 20 32 2C 38 2C 32 2C 22 40 3A 22 AA | \.. 2,8,2,"@:".|
00001850: 46 4C 4E 4D 24 AA 22 2E 4E 41 4D 2C 53 45 51 2C |FLNM$.".NAM,SEQ,|
00001860: 57 22 3A 8F 50 45 47 20 4E 41 4D 45 00 8F 20 5E |W":.PEG NAME.. ^|
00001870: 1C 98 32 2C 30 3A 81 20 49 B2 32 20 A4 20 34 31 |..2,0:. I.2 . 41|
00001880: 3A 98 32 2C 50 45 47 24 28 49 29 3A 82 20 49 00 |:.2,PEG$(I):. I.|
00001890: 97 20 60 1C A0 20 32 00 BB 20 62 1C 9F 20 32 2C |. `.. 2.. b.. 2,|
000018A0: 38 2C 32 2C 22 40 3A 22 AA 46 4C 4E 4D 24 AA 22 |8,2,"@:".FLNM$."|
000018B0: 2E 4C 4F 43 2C 53 45 51 2C 57 22 00 DD 20 64 1C |.LOC,SEQ,W".. d.|
000018C0: 98 32 2C 30 3A 81 20 49 B2 34 33 20 A4 20 38 32 |.2,0:. I.43 . 82|
000018D0: 3A 98 32 2C 22 58 58 58 22 3A 82 20 49 00 E5 20 |:.2,"XXX":. I.. |
000018E0: 65 1C A0 20 32 00 09 21 66 1C 9F 20 32 2C 38 2C |e.. 2..!f.. 2,8,|
000018F0: 32 2C 22 40 3A 22 AA 46 4C 4E 4D 24 AA 22 2E 4D |2,"@:".FLNM$.".M|
00001900: 4E 54 2C 53 45 51 2C 57 22 00 2D 21 67 1C 98 32 |NT,SEQ,W".-!g..2|
00001910: 2C 30 3A 81 20 49 B2 38 34 20 A4 20 39 35 3A 98 |,0:. I.84 . 95:.|
00001920: 32 2C 50 45 47 24 28 49 29 3A 82 20 49 00 35 21 |2,PEG$(I):. I.5!|
00001930: 68 1C A0 20 32 00 59 21 69 1C 9F 20 32 2C 38 2C |h.. 2.Y!i.. 2,8,|
00001940: 32 2C 22 40 3A 22 AA 46 4C 4E 4D 24 AA 22 2E 57 |2,"@:".FLNM$.".W|
00001950: 52 44 2C 53 45 51 2C 57 22 00 6F 21 6A 1C 98 32 |RD,SEQ,W".o!j..2|
00001960: 2C 30 3A 81 20 49 B2 39 37 20 A4 20 31 35 36 00 |,0:. I.97 . 156.|
00001970: 91 21 70 1C 98 32 2C 50 45 47 24 28 49 29 3A 8B |.!p..2,PEG$(I):.|
00001980: 20 53 54 20 AF 20 31 39 31 20 A7 20 31 37 30 30 | ST . 191 . 1700|
00001990: 30 00 9D 21 72 1C 82 20 49 3A A0 20 32 00 A3 21 |0..!r.. I:. 2..!|
000019A0: 84 1C 8F 00 B2 21 98 1C 99 22 93 22 3A 8D 39 35 |.....!...".":.95|
000019B0: 35 30 00 F0 21 A2 1C 56 54 25 B2 36 3A 8D 20 33 |50..!..VT%.6:. 3|
000019C0: 30 31 30 30 3A 99 22 59 4F 55 52 20 50 45 52 53 |0100:."YOUR PERS|
000019D0: 4F 4E 41 4C 20 44 49 53 4B 20 46 49 4C 45 20 49 |ONAL DISK FILE I|
000019E0: 53 20 43 41 4C 4C 45 44 3A 22 3A 56 54 25 B2 38 |S CALLED:":VT%.8|
000019F0: 00 07 22 A4 1C 8D 20 33 30 31 30 30 3A 99 22 12 |.."... 30100:.".|
00001A00: 22 3B 46 4C 4E 4D 24 00 45 22 AC 1C 56 54 25 B2 |";FLNM$.E"..VT%.|
00001A10: 31 32 3A 8D 33 30 31 30 30 3A 99 22 52 45 4D 4F |12:.30100:."REMO|
00001A20: 56 45 20 59 4F 55 52 20 12 50 45 52 53 4F 4E 41 |VE YOUR .PERSONA|
00001A30: 4C 20 44 49 53 4B 92 20 41 4E 44 20 49 4E 53 45 |L DISK. AND INSE|
00001A40: 52 54 22 3A 99 00 72 22 B6 1C 99 22 4D 45 4D 4F |RT":..r"..."MEMO|
00001A50: 52 59 20 54 52 41 49 4E 45 52 20 12 44 49 53 4B |RY TRAINER .DISK|
00001A60: 20 41 92 20 49 4E 54 4F 20 44 52 49 56 45 20 23 | A. INTO DRIVE #|
00001A70: 31 22 00 7E 22 C0 1C 8D 39 35 30 30 3A 8E 00 9C |1".~"...9500:...|
00001A80: 22 4C 1D 8F 20 54 45 58 54 20 46 49 4C 45 20 53 |"L.. TEXT FILE S|
00001A90: 43 52 45 45 4E 20 57 52 49 54 45 52 00 A5 22 56 |CREEN WRITER.."V|
00001AA0: 1D 99 22 93 22 00 C4 22 60 1D 9F 20 32 2C 38 2C |..".".."`.. 2,8,|
00001AB0: 32 2C 46 49 4C 45 24 3A 8B 20 53 54 20 A7 20 31 |2,FILE$:. ST . 1|
00001AC0: 37 30 30 30 00 D0 22 6A 1D 81 49 B2 31 A4 32 34 |7000.."j..I.1.24|
00001AD0: 00 FC 22 74 1D 84 32 2C 53 39 24 28 49 29 3A 8B |.."t..2,S9$(I):.|
00001AE0: 20 53 54 20 AF A8 28 53 54 B2 36 34 20 AF 20 49 | ST ..(ST.64 . I|
00001AF0: B2 32 34 29 20 A7 20 31 37 30 30 30 00 08 23 7E |.24) . 17000..#~|
00001B00: 1D 82 20 49 3A A0 20 32 00 25 23 88 1D 99 22 93 |.. I:. 2.%#...".|
00001B10: 12 22 3B 3A 46 49 4C 45 24 B2 45 49 24 3A 8D 32 |.";:FILE$.EI$:.2|
00001B20: 39 39 30 3A 99 00 31 23 92 1D 81 49 B2 32 A4 32 |990:..1#...I.2.2|
00001B30: 32 00 40 23 9C 1D 99 53 39 24 28 49 29 3A 82 49 |2.@#...S9$(I):.I|
00001B40: 00 6E 23 A1 1D 8B 57 24 B2 22 40 22 A7 57 24 B2 |.n#...W$."@".W$.|
00001B50: 22 22 3A 8E 3A 8F 53 50 45 43 49 41 4C 20 46 4F |"":.:.SPECIAL FO|
00001B60: 52 20 49 4E 54 52 4F 44 55 43 54 49 4F 4E 00 90 |R INTRODUCTION..|
00001B70: 23 A6 1D 56 54 25 B2 32 34 3A 8D 20 33 30 31 30 |#..VT%.24:. 3010|
00001B80: 30 3A 99 53 39 24 28 32 33 29 3B 3A 8D 20 37 36 |0:.S9$(23);:. 76|
00001B90: 00 9B 23 B0 1D 8D 20 39 35 32 30 00 AD 23 BA 1D |..#... 9520..#..|
00001BA0: 8D 20 37 36 3A 8D 31 33 30 30 30 3A 8E 00 C0 23 |. 76:.13000:...#|
00001BB0: 40 1F 8F 4D 45 4E 55 20 53 45 4C 45 43 54 4F 52 |@..MENU SELECTOR|
00001BC0: 00 CE 23 4A 1F 99 22 93 22 3A 8D 20 37 36 00 ED |..#J..".":. 76..|
00001BD0: 23 54 1F 46 49 4C 45 24 B2 45 49 24 3A 99 22 12 |#T.FILE$.EI$:.".|
00001BE0: 22 3B 3A 8D 32 39 39 30 3A 99 22 92 22 00 1D 24 |";:.2990:."."..$|
00001BF0: 5E 1F 56 54 25 B2 32 34 3A 8D 20 33 30 31 30 30 |^.VT%.24:. 30100|
00001C00: 3A 99 22 46 49 4C 45 20 4E 41 4D 45 3A 20 22 3B |:."FILE NAME: ";|
00001C10: 22 12 22 3B 46 4C 4E 4D 24 3B 22 92 22 00 5D 24 |".";FLNM$;".".]$|
00001C20: 68 1F 56 54 25 B2 34 3A 8D 20 33 30 31 30 30 3A |h.VT%.4:. 30100:|
00001C30: 97 32 31 31 2C 31 3A 46 49 4C 45 24 B2 22 4D 45 |.211,1:FILE$."ME|
00001C40: 4D 4F 52 59 20 54 52 41 49 4E 45 52 20 4D 41 49 |MORY TRAINER MAI|
00001C50: 4E 20 4D 45 4E 55 22 3A 8D 32 39 39 30 00 6E 24 |N MENU":.2990.n$|
00001C60: 72 1F 81 49 B2 36 35 A4 36 34 AA 4D 41 58 00 7B |r..I.65.64.MAX.{|
00001C70: 24 7C 1F 53 B2 49 AB 36 34 3A 99 00 A0 24 86 1F |$|.S.I.64:...$..|
00001C80: 56 54 25 B2 53 AA 36 3A 8D 33 30 31 30 30 3A 99 |VT%.S.6:.30100:.|
00001C90: C7 28 49 29 22 20 3A 20 22 50 47 4D 24 28 53 29 |.(I)" : "PGM$(S)|
00001CA0: 00 A8 24 90 1F 82 3A 99 00 B9 24 9A 1F 8B 50 56 |..$...:...$...PV|
00001CB0: 24 B2 22 22 89 38 31 31 30 00 F6 24 A4 1F 56 54 |$."".8110..$..VT|
00001CC0: 25 B2 32 30 3A 8D 33 30 31 30 30 3A 99 22 28 59 |%.20:.30100:."(Y|
00001CD0: 4F 55 52 20 50 52 45 56 49 4F 55 53 20 53 45 4C |OUR PREVIOUS SEL|
00001CE0: 45 43 54 49 4F 4E 20 57 41 53 20 27 22 3B 50 56 |ECTION WAS '";PV|
00001CF0: 24 3B 22 27 29 22 00 37 25 AE 1F 56 54 25 B2 31 |$;"')".7%..VT%.1|
00001D00: 38 3A 8D 33 30 31 30 30 3A 99 22 53 45 4C 45 43 |8:.30100:."SELEC|
00001D10: 54 20 4F 50 54 49 4F 4E 3A 20 22 3B 3A 8D 20 33 |T OPTION: ";:. 3|
00001D20: 30 32 30 30 3A 8F 20 43 20 54 4F 20 45 4E 44 2D |0200:. C TO END-|
00001D30: 4F 46 2D 4C 49 4E 45 00 4F 25 B8 1F 8D 20 37 31 |OF-LINE.O%... 71|
00001D40: 3A 43 B2 C6 28 43 24 29 3A 41 4E 24 B2 43 24 00 |:C..(C$):AN$.C$.|
00001D50: 7B 25 C2 1F 8B 28 43 B1 34 38 AF 43 B3 35 34 29 |{%...(C.48.C.54)|
00001D60: A7 43 B2 43 AB 34 38 3A 41 4E 24 B2 C7 28 43 AA |.C.C.48:AN$..(C.|
00001D70: 36 34 29 3A 99 3A 89 38 31 36 30 00 93 25 CC 1F |64):.:.8160..%..|
00001D80: 8B 43 B3 36 35 B0 43 B1 36 34 AA 4D 41 58 89 38 |.C.65.C.64.MAX.8|
00001D90: 31 32 30 00 A0 25 D6 1F 99 3A 43 B2 43 AB 36 34 |120..%...:C.C.64|
00001DA0: 00 D8 25 E0 1F 56 54 25 B2 43 AA 36 3A 8D 33 30 |..%..VT%.C.6:.30|
00001DB0: 31 30 30 3A 99 22 12 22 3B 41 4E 24 3B 22 92 22 |100:.".";AN$;"."|
00001DC0: 3B 22 20 3A 20 22 3B 22 12 22 3B 50 47 4D 24 28 |;" : ";".";PGM$(|
00001DD0: 43 29 3B 22 92 22 3A 99 00 1D 26 EA 1F 56 54 25 |C);".":...&..VT%|
00001DE0: B2 31 38 3A 8D 20 33 30 31 30 30 3A 97 32 31 31 |.18:. 30100:.211|
00001DF0: 2C 30 3A 99 22 49 53 20 54 48 49 53 20 54 48 45 |,0:."IS THIS THE|
00001E00: 20 53 45 4C 45 43 54 49 4F 4E 20 59 4F 55 20 57 | SELECTION YOU W|
00001E10: 41 4E 54 3F 20 28 59 2F 4E 29 20 22 3B 00 41 26 |ANT? (Y/N) ";.A&|
00001E20: F4 1F 8D 37 31 3A 8B 43 24 B3 B1 22 59 22 AF 43 |...71:.C$.."Y".C|
00001E30: 24 B3 B1 22 4E 22 A7 99 42 24 3B 3A 89 38 31 38 |$.."N"..B$;:.818|
00001E40: 30 00 60 26 FE 1F 99 43 24 3A 8B 43 24 B3 B1 22 |0.`&...C$:.C$.."|
00001E50: 4E 22 A7 50 56 24 B2 41 4E 24 3A 89 38 32 31 30 |N".PV$.AN$:.8210|
00001E60: 00 8A 26 08 20 56 54 25 B2 43 AA 36 3A 8D 33 30 |..&. VT%.C.6:.30|
00001E70: 31 30 30 3A 99 41 4E 24 22 20 3A 20 22 50 47 4D |100:.AN$" : "PGM|
00001E80: 24 28 43 29 3A 89 38 31 31 30 00 90 26 12 20 8E |$(C):.8110..&. .|
00001E90: 00 A3 26 34 21 8F 49 4E 49 54 49 41 4C 20 53 45 |..&4!.INITIAL SE|
00001EA0: 54 55 50 00 BF 26 5C 21 8F 20 47 45 54 20 55 53 |TUP..&\!. GET US|
00001EB0: 45 52 20 4E 41 4D 45 20 52 4F 55 54 49 4E 45 00 |ER NAME ROUTINE.|
00001EC0: FA 26 66 21 99 22 93 22 3A 46 49 4C 45 24 B2 45 |.&f!.".":FILE$.E|
00001ED0: 49 24 3A 99 22 12 22 3B 3A 8D 32 39 39 30 3A 99 |I$:.".";:.2990:.|
00001EE0: 22 92 22 3B 3A 41 46 54 24 28 31 29 B2 22 22 3A |".";:AFT$(1)."":|
00001EF0: 41 46 54 24 28 32 29 B2 22 22 00 2C 27 7A 21 56 |AFT$(2)."".,'z!V|
00001F00: 54 25 B2 38 3A 8D 33 30 31 30 30 3A 46 49 4C 45 |T%.8:.30100:FILE|
00001F10: 24 B2 22 2D 2D 2D 50 4C 45 41 53 45 20 45 4E 54 |$."---PLEASE ENT|
00001F20: 45 52 2D 2D 2D 22 3A 8D 32 39 39 30 00 68 27 84 |ER---":.2990.h'.|
00001F30: 21 56 54 25 B2 39 3A 8D 20 33 30 31 30 30 3A 99 |!VT%.9:. 30100:.|
00001F40: 3A 99 22 41 20 50 45 52 53 4F 4E 41 4C 20 44 49 |:."A PERSONAL DI|
00001F50: 53 4B 20 46 49 4C 45 20 4E 41 4D 45 3A 20 2E 2E |SK FILE NAME: ..|
00001F60: 2E 2E 2E 2E 2E 22 3A 99 00 97 27 8E 21 56 54 25 |.....":...'.!VT%|
00001F70: B2 31 30 3A 8D 33 30 31 30 30 3A 97 20 32 31 31 |.10:.30100:. 211|
00001F80: 2C 32 37 3A 8D 20 37 32 3A 8D 38 30 3A 41 46 54 |,27:. 72:.80:AFT|
00001F90: 24 28 31 29 B2 4C 24 00 A6 27 8F 21 8B 20 51 4E |$(1).L$..'.!. QN|
00001FA0: B2 31 20 A7 20 8E 00 C7 27 90 21 8B 41 46 54 24 |.1 . ...'.!.AFT$|
00001FB0: 28 31 29 B2 22 22 B0 41 46 54 24 28 31 29 B2 22 |(1)."".AFT$(1)."|
00001FC0: 20 22 89 38 35 39 30 00 F4 27 98 21 81 49 B2 31 | ".8590..'.!.I.1|
00001FD0: A4 C3 28 41 46 54 24 28 31 29 29 3A 8B CA 28 41 |..(AFT$(1)):..(A|
00001FE0: 46 54 24 28 31 29 2C 49 2C 31 29 B2 22 20 22 89 |FT$(1),I,1)." ".|
00001FF0: 38 35 39 30 00 FB 27 A2 21 82 49 00 34 28 CA 21 |8590..'.!.I.4(.!|
00002000: 56 54 25 B2 31 35 3A 8D 33 30 31 30 30 3A 99 3A |VT%.15:.30100:.:|
00002010: 99 22 48 41 56 45 20 59 4F 55 20 54 59 50 45 44 |."HAVE YOU TYPED|
00002020: 20 49 4E 20 59 4F 55 52 20 46 49 4C 45 20 4E 41 | IN YOUR FILE NA|
00002030: 4D 45 22 3B 00 67 28 CC 21 8D 20 33 30 32 30 30 |ME";.g(.!. 30200|
00002040: 3A 56 54 25 B2 31 37 3A 8D 20 33 30 31 30 30 3A |:VT%.17:. 30100:|
00002050: 99 3A 99 22 43 4F 52 52 45 43 54 4C 59 3F 20 28 |.:."CORRECTLY? (|
00002060: 59 2F 4E 29 20 22 3B 00 73 28 CE 21 8D 20 33 30 |Y/N) ";.s(.!. 30|
00002070: 32 30 30 00 89 28 D4 21 8D 20 37 31 3A 8B 43 24 |200..(.!. 71:.C$|
00002080: B2 22 4E 22 89 38 35 35 30 00 98 28 D5 21 8B 20 |."N".8550..(.!. |
00002090: 51 4E B2 31 20 A7 20 8E 00 AA 28 DE 21 8B 43 24 |QN.1 . ...(.!.C$|
000020A0: B3 B1 22 59 22 89 38 36 35 30 00 BE 28 E8 21 46 |.."Y".8650..(.!F|
000020B0: 4C 4E 4D 24 B2 41 46 54 24 28 31 29 3A 8E 00 DC |LNM$.AFT$(1):...|
000020C0: 28 ED 21 8F 20 49 4E 54 52 4F 20 54 4F 20 55 53 |(.!. INTRO TO US|
000020D0: 45 52 20 44 49 53 4B 20 46 49 4C 45 00 1A 29 F2 |ER DISK FILE..).|
000020E0: 21 99 22 93 22 3A 56 54 25 B2 36 3A 8D 20 33 30 |!.".":VT%.6:. 30|
000020F0: 31 30 30 3A 99 22 4D 45 4D 4F 52 59 20 54 52 41 |100:."MEMORY TRA|
00002100: 49 4E 45 52 20 41 4C 4C 4F 57 53 20 59 4F 55 20 |INER ALLOWS YOU |
00002110: 54 4F 20 20 55 53 45 20 41 22 00 52 29 FC 21 56 |TO USE A".R).!V|
00002120: 54 25 B2 38 3A 8D 33 30 31 30 30 3A 99 22 50 45 |T%.8:.30100:."PE|
00002130: 52 53 4F 4E 41 4C 20 44 49 53 4B 20 46 49 4C 45 |RSONAL DISK FILE|
00002140: 20 54 48 41 54 20 53 54 4F 52 45 53 20 59 4F 55 | THAT STORES YOU|
00002150: 52 22 00 87 29 06 22 56 54 25 B2 31 30 3A 8D 33 |R"..)."VT%.10:.3|
00002160: 30 31 30 30 3A 99 22 50 45 52 53 4F 4E 41 4C 49 |0100:."PERSONALI|
00002170: 5A 45 44 20 4D 45 4D 4F 52 59 20 54 45 43 48 4E |ZED MEMORY TECHN|
00002180: 49 51 55 45 53 2E 22 00 BF 29 10 22 56 54 25 B2 |IQUES."..)."VT%.|
00002190: 31 35 3A 8D 33 30 31 30 30 3A 99 22 45 4E 54 45 |15:.30100:."ENTE|
000021A0: 52 20 12 43 92 20 54 4F 20 43 52 45 41 54 45 20 |R .C. TO CREATE |
000021B0: 41 20 4E 45 57 20 50 45 52 53 4F 4E 41 4C 22 00 |A NEW PERSONAL".|
000021C0: F9 29 12 22 56 54 25 B2 31 36 3A 8D 33 30 31 30 |.)."VT%.16:.3010|
000021D0: 30 3A 99 3A 99 22 44 49 53 4B 20 46 49 4C 45 20 |0:.:."DISK FILE |
000021E0: 4E 4F 57 2C 20 20 4F 52 20 12 55 92 20 20 54 4F |NOW, OR .U. TO|
000021F0: 20 20 55 53 45 20 41 4E 22 00 1F 2A 14 22 99 3A | USE AN"..*.".:|
00002200: 99 22 45 58 49 53 54 49 4E 47 20 50 45 52 53 4F |."EXISTING PERSO|
00002210: 4E 41 4C 20 44 49 53 4B 20 46 49 4C 45 2E 22 00 |NAL DISK FILE.".|
00002220: 3F 2A 16 22 99 3A 99 3A 99 22 50 52 45 53 53 20 |?*.".:.:."PRESS |
00002230: 12 55 92 20 4F 52 20 12 43 92 20 3A 20 22 3B 00 |.U. OR .C. : ";.|
00002240: 60 2A 1A 22 8D 20 37 31 3A 8B 28 43 24 B2 22 55 |`*.". 71:.(C$."U|
00002250: 22 29 B0 28 43 24 B2 22 43 22 29 89 38 37 34 35 |").(C$."C").8745|
00002260: 00 6F 2A 1B 22 8B 20 51 4E B2 31 20 A7 20 8E 00 |.o*.". QN.1 . ..|
00002270: 79 2A 24 22 89 38 37 33 30 00 8B 2A 29 22 55 58 |y*$".8730..*)"UX|
00002280: 24 B2 43 24 3A 8D 20 38 35 30 30 00 B3 2A 2E 22 |$.C$:. 8500..*."|
00002290: 97 20 44 45 2C C6 28 22 59 22 29 3A 8B 20 55 58 |. DE,.("Y"):. UX|
000022A0: 24 B2 22 43 22 20 A7 20 97 20 44 45 2C C6 28 22 |$."C" . . DE,.("|
000022B0: 4E 22 29 00 DE 2A 38 22 97 20 4E 4D 2C C3 28 46 |N")..*8". NM,.(F|
000022C0: 4C 4E 4D 24 29 3A 8F 53 54 4F 52 45 20 46 49 4C |LNM$):.STORE FIL|
000022D0: 45 4E 41 4D 45 20 26 20 4C 45 4E 47 54 48 00 0A |ENAME & LENGTH..|
000022E0: 2B 42 22 81 49 B2 31 A4 C3 28 46 4C 4E 4D 24 29 |+B".I.1..(FLNM$)|
000022F0: 3A 97 20 4E 4D AA 49 2C C6 28 CA 28 46 4C 4E 4D |:. NM.I,.(.(FLNM|
00002300: 24 2C 49 2C 31 29 29 3A 82 49 00 10 2B 4C 22 8E |$,I,1)):.I..+L".|
00002310: 00 24 2B 28 23 8F 20 42 55 42 42 4C 45 20 53 4F |.$+(#. BUBBLE SO|
00002320: 52 54 45 52 00 32 2B 3C 23 81 4A B2 31 A4 54 4D |RTER.2+<#.J.1.TM|
00002330: 41 58 00 44 2B 46 23 81 49 B2 49 B2 31 A4 54 4D |AX.D+F#.I.I.1.TM|
00002340: 41 58 AB 31 00 60 2B 50 23 8B 52 44 52 25 28 49 |AX.1.`+P#.RDR%(I|
00002350: 29 B3 52 44 52 25 28 49 AA 31 29 89 39 30 38 30 |).RDR%(I.1).9080|
00002360: 00 7C 2B 5A 23 54 45 4D 50 B2 52 44 52 25 28 49 |.|+Z#TEMP.RDR%(I|
00002370: 2B EE DE ED 7E E6 DE ED ED E2 D3 E2 EF ED E7 CD |+...~...........|
00002380: EE EE EE EE EE E2 D3 FF E7 E3 7E EE EE DA EF EE |..........~.....|
00002390: E6 DE ED ED E2 D3 FF E7 E3 7E DE EE DE ED ED E2 |.........~......|
000023A0: D3 FF E7 E2 EF 6F E7 43 EE 3E D3 EE 3E DF EE 3E |.....o.C.>..>..>|
000023B0: EF AE E6 6B EE 31 EE E4 41 49 54 20 46 4F 52 20 |...k.1..AIT FOR |
000023C0: 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E |SPACE BAR TO CON|
000023D0: 54 49 4E 55 45 00 0C 2C 26 25 56 54 25 B2 32 34 |TINUE..,&%VT%.24|
000023E0: 3A 8D 33 30 31 30 30 3A 99 22 50 52 45 53 53 20 |:.30100:."PRESS |
000023F0: 3C 53 50 41 43 45 20 42 41 52 3E 20 54 4F 20 43 |<SPACE BAR> TO C|
00002400: 4F 4E 54 49 4E 55 45 2E 2E 2E 22 3B 00 25 2C 30 |ONTINUE...";.%,0|
00002410: 25 8D 20 37 36 3A 8D 20 37 33 3A 8B 20 51 4E B2 |%. 76:. 73:. QN.|
00002420: 31 20 A7 20 8E 00 37 2C 35 25 8B 43 24 B3 B1 22 |1 . ..7,5%.C$.."|
00002430: 20 22 89 39 35 32 30 00 42 2C 3A 25 8D 20 37 36 | ".9520.B,:%. 76|
00002440: 3A 8E 00 78 2C 4E 25 56 54 25 B2 31 3A 8D 33 30 |:..x,N%VT%.1:.30|
00002450: 31 30 30 3A 97 32 31 31 2C 31 3A 46 49 4C 45 24 |100:.211,1:FILE$|
00002460: B2 45 49 24 3A 99 22 12 22 3B 3A 8D 32 39 39 30 |.EI$:.".";:.2990|
00002470: 3A 99 22 92 22 3B 3A 8E 00 9C 2C 80 25 8B 20 43 |:.".";:...,.%. C|
00002480: 24 B2 C7 28 33 29 20 A7 20 97 20 32 30 34 2C 31 |$..(3) . . 204,1|
00002490: 3A 50 56 24 B2 22 22 3A 51 4E B2 31 00 A2 2C 8A |:PV$."":QN.1..,.|
000024A0: 25 8E 00 B6 2C 10 27 8F 49 4E 49 54 49 41 4C 49 |%...,.'.INITIALI|
000024B0: 5A 41 54 49 4F 4E 00 C4 2C 1A 27 86 52 44 52 25 |ZATION..,.'.RDR%|
000024C0: 28 31 30 29 00 DC 2C 1E 27 8F 20 20 46 4F 52 20 |(10)..,.'. FOR |
000024D0: 57 41 52 4D 20 52 55 4E 20 2A 2A 2A 00 E8 2C 24 |WARM RUN ***..,$|
000024E0: 27 4B 4D 41 58 B2 31 30 00 0B 2D 29 27 8F 20 20 |'KMAX.10..-)'. |
000024F0: 20 20 20 50 52 49 4E 54 44 24 3B 22 42 4C 4F 41 | PRINTD$;"BLOA|
00002500: 44 20 49 4D 41 47 45 2C 44 31 22 00 2C 2D 2E 27 |D IMAGE,D1".,-.'|
00002510: 8F 20 46 4F 52 49 3D 31 54 4F 39 3A 52 45 41 44 |. FORI=1TO9:READ|
00002520: 50 54 24 28 49 29 3A 4E 45 58 54 49 00 74 2D 38 |PT$(I):NEXTI.t-8|
00002530: 27 8F 20 20 44 41 54 41 4D 45 52 43 55 52 59 2C |'. DATAMERCURY,|
00002540: 56 45 4E 55 53 2C 45 41 52 54 48 2C 4D 41 52 53 |VENUS,EARTH,MARS|
00002550: 2C 4A 55 50 49 54 45 52 2C 53 41 54 55 52 4E 2C |,JUPITER,SATURN,|
00002560: 55 52 41 4E 55 53 2C 4E 45 50 54 55 4E 45 2C 50 |URANUS,NEPTUNE,P|
00002570: 4C 55 54 4F 00 BF 2D 42 27 8F 20 50 53 24 28 31 |LUTO..-B'. PS$(1|
00002580: 29 3D 22 20 20 20 33 36 2C 30 30 30 2C 30 30 30 |)=" 36,000,000|
00002590: 22 3A 50 53 24 28 32 29 3D 22 20 20 20 36 37 2C |":PS$(2)=" 67,|
000025A0: 30 30 30 2C 30 30 30 22 3A 50 53 24 28 33 29 3D |000,000":PS$(3)=|
000025B0: 22 20 20 20 39 33 2C 30 30 30 2C 30 30 30 22 00 |" 93,000,000".|
000025C0: 0B 2E 4C 27 8F 20 36 29 3D 22 20 20 38 38 36 2C |..L'. 6)=" 886,|
000025D0: 30 30 30 2C 30 30 30 22 3A 50 53 24 28 37 29 3D |000,000":PS$(7)=|
000025E0: 22 31 2C 37 38 32 2C 30 30 30 2C 30 30 30 22 3A |"1,782,000,000":|
000025F0: 50 53 24 28 38 29 3D 22 32 2C 37 39 32 2C 30 30 |PS$(8)="2,792,00|
00002600: 30 2C 30 30 30 22 3A 50 53 24 28 00 21 2E 56 27 |0,000":PS$(.!.V'|
00002610: 81 49 B2 30 A4 34 3A 87 4E 4D 24 28 49 29 3A 82 |.I.0.4:.NM$(I):.|
00002620: 49 00 3E 2E 60 27 83 47 41 49 4C 2C 4A 41 4E 45 |I.>.`'.GAIL,JANE|
00002630: 2C 4C 49 5A 2C 4C 49 53 41 2C 41 4E 4E 45 00 60 |,LIZ,LISA,ANNE.`|
00002640: 2E 6A 27 8F 20 20 46 4F 52 49 3D 30 54 4F 39 3A |.j'. FORI=0TO9:|
00002650: 52 45 41 44 53 52 24 28 49 29 3A 4E 45 58 54 49 |READSR$(I):NEXTI|
00002660: 00 A7 2E 74 27 8F 20 45 58 45 43 55 54 49 56 45 |...t'. EXECUTIVE|
00002670: 53 20 20 20 2C 53 41 4C 45 53 20 50 45 4F 50 4C |S ,SALES PEOPL|
00002680: 45 20 2C 53 54 55 44 45 4E 54 53 20 20 20 20 20 |E ,STUDENTS |
00002690: 2C 53 45 43 52 45 54 41 52 49 45 53 20 20 2C 53 |,SECRETARIES ,S|
000026A0: 50 45 41 4B 45 52 53 00 D3 2E 82 27 81 49 B2 32 |PEAKERS....'.I.2|
000026B0: A4 32 31 3A 87 50 45 47 4E 41 4D 45 24 28 49 29 |.21:.PEGNAME$(I)|
000026C0: 3A 82 49 3A 8F 4D 41 4C 45 20 50 45 47 2D 4E 41 |:.I:.MALE PEG-NA|
000026D0: 4D 45 53 00 17 2F 86 27 83 20 44 4F 4C 4C 41 52 |MES../.'. DOLLAR|
000026E0: 20 42 49 4C 4C 2C 42 4F 42 53 4C 45 44 2C 4E 4F | BILL,BOBSLED,NO|
000026F0: 4F 53 45 2C 57 41 47 4F 4E 2C 57 41 56 45 2C 54 |OSE,WAGON,WAVE,T|
00002700: 45 4E 4E 49 53 2C 42 45 44 2C 48 4F 54 20 44 4F |ENNIS,BED,HOT DO|
00002710: 47 2C 48 41 49 52 59 00 62 2F 88 27 83 20 42 45 |G,HAIRY.b/.'. BE|
00002720: 41 4E 53 54 41 4C 4B 2C 43 48 45 46 2C 4A 55 4E |ANSTALK,CHEF,JUN|
00002730: 47 4C 45 2C 54 4F 45 2C 59 41 57 4E 2C 48 45 4E |GLE,TOE,YAWN,HEN|
00002740: 2C 53 48 41 52 4B 2C 4D 49 43 52 4F 50 48 4F 4E |,SHARK,MICROPHON|
00002750: 45 2C 50 49 4C 4C 2C 53 54 4F 56 45 2C 54 48 55 |E,PILL,STOVE,THU|
00002760: 4D 42 00 91 2F 8A 27 81 49 B2 32 32 A4 34 31 3A |MB../.'.I.22.41:|
00002770: 87 50 45 47 4E 41 4D 45 24 28 49 29 3A 82 49 3A |.PEGNAME$(I):.I:|
00002780: 8F 46 45 4D 41 4C 45 20 50 45 47 2D 4E 41 4D 45 |.FEMALE PEG-NAME|
00002790: 53 00 D6 2F 8E 27 83 20 50 41 4C 41 43 45 2C 41 |S../.'. PALACE,A|
000027A0: 4E 54 2C 42 41 52 52 45 4C 2C 43 41 54 2C 44 4F |NT,BARREL,CAT,DO|
000027B0: 4F 52 53 2C 49 53 4C 41 4E 44 2C 53 41 49 4C 2C |ORS,ISLAND,SAIL,|
000027C0: 43 48 41 49 4E 2C 4A 45 41 4E 53 2C 42 4F 4E 45 |CHAIN,JEANS,BONE|
000027D0: 2C 4A 55 49 43 45 00 15 30 90 27 83 20 4A 45 57 |,JUICE..0.'. JEW|
000027E0: 45 4C 52 59 2C 53 4B 41 54 45 2C 50 49 5A 5A 41 |ELRY,SKATE,PIZZA|
000027F0: 2C 4C 49 5A 41 52 44 2C 54 4F 4F 54 48 2C 42 45 |,LIZARD,TOOTH,BE|
00002800: 41 43 48 2C 43 48 45 52 52 59 2C 53 48 4F 57 2C |ACH,CHERRY,SHOW,|
00002810: 57 49 4E 44 59 00 3A 30 92 27 9F 20 32 2C 38 2C |WINDY.:0.'. 2,8,|
00002820: 32 2C 22 50 45 47 20 57 4F 52 44 53 22 3A 8B 20 |2,"PEG WORDS":. |
00002830: 53 54 20 A7 20 31 37 30 30 30 00 53 30 9C 27 81 |ST . 17000.S0.'.|
00002840: 49 B2 39 37 A4 31 35 36 3A 84 32 2C 50 45 47 24 |I.97.156:.2,PEG$|
00002850: 28 49 29 00 6C 30 9E 27 8B 20 28 53 54 20 AF 20 |(I).l0.'. (ST . |
00002860: 31 39 31 29 20 A7 20 31 37 30 30 30 00 78 30 A1 |191) . 17000.x0.|
00002870: 27 82 20 49 3A A0 20 32 00 A6 30 A3 27 8F 20 20 |'. I:. 2..0.'. |
00002880: 20 43 41 4C 4C 32 30 35 31 37 3A 52 45 4D 43 4F | CALL20517:REMCO|
00002890: 50 59 20 50 52 4F 54 45 43 54 49 4F 4E 20 41 54 |PY PROTECTION AT|
000028A0: 20 24 35 30 32 35 00 BF 30 A6 27 81 49 B2 38 34 | $5025..0.'.I.84|
000028B0: A4 39 35 3A 87 50 45 47 24 28 49 29 3A 82 49 00 |.95:.PEG$(I):.I.|
000028C0: 09 31 B0 27 83 20 4A 41 4E 49 54 4F 52 2C 46 45 |.1.'. JANITOR,FE|
000028D0: 52 52 59 42 4F 41 54 2C 4D 41 52 43 48 49 4E 47 |RRYBOAT,MARCHING|
000028E0: 2C 41 50 45 2C 46 4C 4F 57 45 52 53 2C 42 52 49 |,APE,FLOWERS,BRI|
000028F0: 44 45 2C 4A 45 57 45 4C 2C 57 49 4E 44 20 47 55 |DE,JEWEL,WIND GU|
00002900: 53 54 2C 53 49 50 50 45 44 00 27 31 B2 27 83 20 |ST,SIPPED.'1.'. |
00002910: 4F 43 54 4F 50 55 53 2C 50 49 4C 47 52 49 4D 2C |OCTOPUS,PILGRIM,|
00002920: 53 4E 4F 57 4D 41 4E 00 4D 31 C4 27 45 49 24 B2 |SNOWMAN.M1.'EI$.|
00002930: 22 54 48 45 20 45 49 4E 53 54 45 49 4E 20 4D 45 |"THE EINSTEIN ME|
00002940: 4D 4F 52 59 20 54 52 41 49 4E 45 52 22 00 7E 31 |MORY TRAINER".~1|
00002950: CE 27 42 4C 24 28 30 29 B2 22 54 48 45 20 46 55 |.'BL$(0)."THE FU|
00002960: 4E 20 57 41 59 20 54 4F 20 49 4D 50 52 4F 56 45 |N WAY TO IMPROVE|
00002970: 20 59 4F 55 52 20 4D 45 4D 4F 52 59 2E 22 00 AB | YOUR MEMORY."..|
00002980: 31 D8 27 42 4C 24 28 31 29 B2 22 20 4E 4F 20 43 |1.'BL$(1)." NO C|
00002990: 4F 4D 50 55 54 45 52 20 45 58 50 45 52 49 45 4E |OMPUTER EXPERIEN|
000029A0: 43 45 20 4E 45 45 44 45 44 2E 22 00 CE 31 E2 27 |CE NEEDED."..1.'|
000029B0: 42 4C 24 28 32 29 B2 22 47 52 45 41 54 20 46 4F |BL$(2)."GREAT FO|
000029C0: 52 20 41 4C 4C 20 41 47 45 53 2E 2E 2E 22 00 FB |R ALL AGES..."..|
000029D0: 31 EC 27 42 4C 24 28 33 29 B2 22 20 45 58 45 43 |1.'BL$(3)." EXEC|
000029E0: 55 54 49 56 45 53 2C 20 53 54 55 44 45 4E 54 53 |UTIVES, STUDENTS|
000029F0: 2C 20 43 48 49 4C 44 52 45 4E 22 00 2B 32 F6 27 |, CHILDREN".+2.'|
00002A00: 42 4C 24 28 34 29 B2 22 54 48 45 52 45 20 41 52 |BL$(4)."THERE AR|
00002A10: 45 20 4D 41 4E 59 20 41 43 48 49 45 56 45 4D 45 |E MANY ACHIEVEME|
00002A20: 4E 54 20 4C 45 56 45 4C 53 2E 22 00 5E 32 00 28 |NT LEVELS.".^2.(|
00002A30: 42 4C 24 28 35 29 B2 22 43 4F 4C 4F 52 46 55 4C |BL$(5)."COLORFUL|
00002A40: 20 47 52 41 50 48 49 43 53 2E 20 50 52 4F 56 45 | GRAPHICS. PROVE|
00002A50: 4E 20 54 45 43 48 4E 49 51 55 45 53 2E 22 00 84 |N TECHNIQUES."..|
00002A60: 32 0A 28 45 49 24 B2 22 54 48 45 20 45 49 4E 53 |2.(EI$."THE EINS|
00002A70: 54 45 49 4E 20 4D 45 4D 4F 52 59 20 54 52 41 49 |TEIN MEMORY TRAI|
00002A80: 4E 45 52 22 00 9C 32 04 29 8B 20 C2 28 57 52 29 |NER"..2.). .(WR)|
00002A90: B2 32 30 30 20 A7 20 31 31 30 30 30 00 AF 32 09 |.200 . 11000..2.|
00002AA0: 29 8F 20 4C 4F 41 44 20 52 4F 55 54 49 4E 45 00 |). LOAD ROUTINE.|
00002AB0: D1 32 0E 29 81 20 54 B2 30 20 A4 20 34 33 3A 87 |.2.). T.0 . 43:.|
00002AC0: 20 42 59 3A 97 20 4C 44 AA 54 2C 42 59 3A 82 20 | BY:. LD.T,BY:. |
00002AD0: 54 00 11 33 18 29 83 20 37 36 20 2C 20 32 30 35 |T..3.). 76 , 205|
00002AE0: 20 2C 20 31 39 33 20 2C 20 30 20 2C 20 33 32 20 | , 193 , 0 , 32 |
00002AF0: 2C 20 32 31 30 20 2C 20 32 35 35 20 2C 20 31 36 |, 210 , 255 , 16|
00002B00: 35 20 2C 20 31 34 34 20 2C 20 32 34 30 20 2C 20 |5 , 144 , 240 , |
00002B10: 33 00 4E 33 2C 29 83 20 37 36 20 2C 20 31 34 38 |3.N3,). 76 , 148|
00002B20: 20 2C 20 31 39 37 20 2C 20 32 33 34 20 2C 20 32 | , 197 , 234 , 2|
00002B30: 33 34 20 2C 20 32 33 34 20 2C 20 32 33 34 20 2C |34 , 234 , 234 ,|
00002B40: 20 32 33 34 20 2C 20 31 36 39 20 2C 20 34 00 89 | 234 , 169 , 4..|
00002B50: 33 40 29 83 20 31 36 32 20 2C 20 38 20 2C 20 31 |3@). 162 , 8 , 1|
00002B60: 36 30 20 2C 20 31 20 2C 20 33 32 20 2C 20 31 38 |60 , 1 , 32 , 18|
00002B70: 36 20 2C 20 32 35 35 20 2C 20 31 37 33 20 2C 20 |6 , 255 , 173 , |
00002B80: 31 38 39 20 2C 20 31 39 33 00 C5 33 54 29 83 20 |189 , 193..3T). |
00002B90: 31 36 30 20 2C 20 31 39 33 20 2C 20 31 36 32 20 |160 , 193 , 162 |
00002BA0: 2C 20 31 39 30 20 2C 20 33 32 20 2C 20 31 38 39 |, 190 , 32 , 189|
00002BB0: 20 2C 20 32 35 35 20 2C 20 31 36 39 20 2C 20 30 | , 255 , 169 , 0|
00002BC0: 20 2C 20 33 32 00 DA 33 68 29 83 20 32 31 33 20 | , 32..3h). 213 |
00002BD0: 2C 20 32 35 35 20 2C 20 39 36 00 FE 33 72 29 8F |, 255 , 96..3r).|
00002BE0: 20 52 45 41 44 20 49 4E 20 55 4E 43 4F 4D 50 2F | READ IN UNCOMP/|
00002BF0: 52 41 53 54 45 52 20 52 4F 55 54 49 4E 45 00 14 |RASTER ROUTINE..|
00002C00: 34 7C 29 46 49 4C 45 24 B2 22 55 4E 22 3A 8D 20 |4|)FILE$."UN":. |
00002C10: 36 36 30 30 00 26 34 CC 29 8F 20 4D 55 53 49 43 |6600.&4.). MUSIC|
00002C20: 20 53 54 55 46 46 00 33 34 D6 29 53 58 B2 35 34 | STUFF.34.)SX.54|
00002C30: 32 37 32 00 55 34 E0 29 81 20 54 B2 31 20 A4 20 |272.U4.). T.1 . |
00002C40: 39 3A 87 20 48 46 25 28 54 29 2C 4C 46 25 28 54 |9:. HF%(T),LF%(T|
00002C50: 29 3A 82 20 54 00 93 34 EA 29 83 20 31 36 2C 31 |):. T..4.). 16,1|
00002C60: 39 35 2C 31 38 2C 32 30 39 2C 32 31 2C 33 31 2C |95,18,209,21,31,|
00002C70: 32 32 2C 39 36 2C 32 35 2C 33 30 2C 32 38 2C 34 |22,96,25,30,28,4|
00002C80: 39 2C 33 31 2C 31 36 35 2C 33 33 2C 31 33 35 2C |9,31,165,33,135,|
00002C90: 30 2C 30 00 B0 34 F4 29 81 20 54 B2 53 58 20 A4 |0,0..4.). T.SX .|
00002CA0: 20 53 58 AA 32 34 3A 97 20 54 2C 30 3A 82 20 54 | SX.24:. T,0:. T|
00002CB0: 00 CC 34 FE 29 97 20 53 58 AA 35 2C 39 3A 8F 20 |..4.). SX.5,9:. |
00002CC0: 41 54 54 41 43 4B 2F 44 45 43 41 59 00 EB 34 08 |ATTACK/DECAY..4.|
00002CD0: 2A 97 20 53 58 AA 36 2C 30 3A 8F 20 53 55 53 54 |*. SX.6,0:. SUST|
00002CE0: 41 49 4E 2F 52 45 4C 45 41 53 45 00 07 35 12 2A |AIN/RELEASE..5.*|
00002CF0: 97 20 53 58 AA 32 34 2C 31 30 3A 8F 20 56 4F 4C |. SX.24,10:. VOL|
00002D00: 2E 28 30 2D 31 35 29 00 18 35 26 2A 8F 20 4D 55 |.(0-15)..5&*. MU|
00002D10: 20 52 4F 55 54 49 4E 45 00 3B 35 30 2A 81 20 54 | ROUTINE.;50*. T|
00002D20: B2 4D 55 20 A4 20 4D 55 AA 32 38 3A 87 20 42 59 |.MU . MU.28:. BY|
00002D30: 3A 97 20 54 2C 42 59 3A 82 20 54 00 80 35 44 2A |:. T,BY:. T..5D*|
00002D40: 83 20 31 36 39 2C 33 31 2C 31 32 38 2C 30 2C 32 |. 169,31,128,0,2|
00002D50: 31 32 2C 31 36 39 2C 32 31 2C 31 34 31 2C 31 2C |12,169,21,141,1,|
00002D60: 32 31 32 2C 31 36 39 2C 33 33 2C 31 34 31 2C 34 |212,169,33,141,4|
00002D70: 2C 32 31 32 2C 31 36 30 2C 31 32 38 2C 31 36 32 |,212,160,128,162|
00002D80: 00 AD 35 58 2A 83 20 30 2C 32 30 32 2C 32 30 38 |..5X*. 0,202,208|
00002D90: 2C 32 35 33 2C 31 33 36 2C 32 30 38 2C 32 34 38 |,253,136,208,248|
00002DA0: 2C 31 34 30 2C 34 2C 32 31 32 2C 39 36 00 C2 35 |,140,4,212,96..5|
00002DB0: F8 2A 8F 20 52 45 41 44 20 46 49 4C 45 20 4E 41 |.*. READ FILE NA|
00002DC0: 4D 45 00 E1 35 02 2B 44 53 4B 24 B2 C7 28 C2 28 |ME..5.+DSK$..(.(|
00002DD0: 44 45 29 29 3A 46 4C 4E 4D 24 B2 22 4E 4F 4E 45 |DE)):FLNM$."NONE|
00002DE0: 22 00 F7 35 07 2B 8B C2 28 57 52 29 B3 B1 32 30 |"..5.+..(WR)..20|
00002DF0: 30 89 31 31 39 30 30 00 33 36 0C 2B 8B 44 53 4B |0.11900.36.+.DSK|
00002E00: 24 B2 22 59 22 A7 46 4C 4E 4D 24 B2 22 22 3A 81 |$."Y".FLNM$."":.|
00002E10: 49 B2 31 A4 C2 28 4E 4D 29 3A 46 4C 4E 4D 24 B2 |I.1..(NM):FLNM$.|
00002E20: 46 4C 4E 4D 24 AA C7 28 C2 28 4E 4D AA 49 29 29 |FLNM$..(.(NM.I))|
00002E30: 7E 3E D2 EF E3 EC 6D EA 3E EF E1 EE 63 EE 30 EE |~>....m.>...c.0.|
00002E40: D1 EC 4B EE 31 EE EA D0 D4 D1 EE EE DA E6 DE EE |..K.1...........|
00002E50: 3D EE 3C EE DE D2 EA EE ED 7E EE EA D0 D4 D1 EE |=.<......~......|
00002E60: EE 3B EC EE EF EF EE EE EE DE 7E EE EE 3B EF EE |.;........~..;..|
00002E70: E3 EF EF EF 3D ED E3 E7 EE EE EE DE D2 EA EE ED |....=...........|
00002E80: 7E EE EE DA E6 DD EE EE 3B EF EC EE EF EE EE A3 |~.......;.......|
00002E90: EC 2F EE EE ED EE 7E EE E7 EE 3B EF EE EF E7 EF |./....~...;.....|
00002EA0: EF EE 99 22 44 45 53 49 47 4E 20 42 59 20 3A 20 |..."DESIGN BY : |
00002EB0: 4D 49 43 48 41 45 4C 20 47 2E 20 53 41 4D 45 54 |MICHAEL G. SAMET|
00002EC0: 2C 20 50 48 2E 44 2E 22 00 F6 36 9A 2E 99 22 50 |, PH.D."..6..."P|
00002ED0: 52 4F 47 52 41 4D 20 42 59 3A 20 44 2E 20 52 4F |ROGRAM BY: D. RO|
00002EE0: 53 45 4E 20 26 20 44 2E 20 52 55 42 49 4E 2C 20 |SEN & D. RUBIN, |
00002EF0: 50 48 2E 44 2E 22 00 24 37 9F 2E 99 22 4C 45 53 |PH.D.".$7..."LES|
00002F00: 53 4F 4E 53 20 42 59 3A 20 52 2E 20 45 44 57 41 |SONS BY: R. EDWA|
00002F10: 52 44 20 47 45 49 53 45 4C 4D 41 4E 2C 20 50 48 |RD GEISELMAN, PH|
00002F20: 2E 44 2E 22 00 53 37 A1 2E 99 22 43 4F 50 59 52 |.D.".S7..."COPYR|
00002F30: 49 47 48 54 20 31 39 38 33 20 54 48 45 20 45 49 |IGHT 1983 THE EI|
00002F40: 4E 53 54 45 49 4E 20 43 4F 52 50 4F 52 41 54 49 |NSTEIN CORPORATI|
00002F50: 4F 4E 22 00 7B 37 A4 2E 53 45 43 B2 33 3A 8D 20 |ON".{7..SEC.3:. |
00002F60: 32 39 30 30 3A 56 54 25 B2 32 31 3A 8D 20 33 30 |2900:VT%.21:. 30|
00002F70: 31 30 30 3A 8D 20 33 30 32 30 30 00 AB 37 A7 2E |100:. 30200..7..|
00002F80: 99 3A 99 22 49 4C 4C 55 53 54 52 41 54 49 4F 4E |.:."ILLUSTRATION|
00002F90: 53 20 42 59 3A 20 52 49 43 4B 20 4B 52 41 55 53 |S BY: RICK KRAUS|
00002FA0: 20 20 20 20 20 20 20 20 20 20 22 00 D9 37 A9 2E | "..7..|
00002FB0: 99 22 4D 55 53 49 43 20 42 59 3A 20 4C 41 52 52 |."MUSIC BY: LARR|
00002FC0: 59 20 4F 52 45 4E 53 54 45 49 4E 2C 20 41 53 43 |Y ORENSTEIN, ASC|
00002FD0: 41 50 20 20 20 20 20 20 22 00 F6 37 AE 2E 8D 20 |AP "..7... |
00002FE0: 31 36 31 30 30 3A 9E 20 34 39 31 35 35 3A 97 20 |16100:. 49155:. |
00002FF0: 57 52 2C 32 30 30 00 FC 37 DF 2E 8E 00 16 38 C8 |WR,200..7.....8.|
00003000: 32 8F 20 20 43 45 4E 54 45 52 2F 4F 55 54 20 57 |2. CENTER/OUT W|
00003010: 49 50 45 4F 55 54 00 21 38 CD 32 99 22 93 22 3A |IPEOUT.!8.2.".":|
00003020: 8E 00 60 38 D2 32 81 49 B2 31 A4 31 32 3A 97 33 |..`8.2.I.1.12:.3|
00003030: 34 2C 31 32 AB 49 3A 97 33 35 2C 31 32 AA 49 3A |4,12.I:.35,12.I:|
00003040: 97 33 33 2C 34 AA 33 AC 49 3A 97 33 32 2C 32 34 |.33,4.3.I:.32,24|
00003050: AB 32 AC 49 3A 43 41 4C 4C AB 39 33 36 3A 46 4F |.2.I:CALL.936:FO|
00003060: 00 75 38 80 3E 8F 20 20 4D 45 4C 4F 44 59 20 50 |.u8.>. MELODY P|
00003070: 4C 41 59 45 52 00 87 38 8A 3E 81 49 B2 31 A4 C3 |LAYER..8.>.I.1..|
00003080: 28 46 49 4C 45 24 29 00 9D 38 94 3E 58 B2 C5 28 |(FILE$)..8.>X..(|
00003090: CA 28 46 49 4C 45 24 2C 49 2C 31 29 29 00 D4 38 |.(FILE$,I,1))..8|
000030A0: 9E 3E 97 53 58 AA 31 2C 48 46 25 28 58 29 3A 97 |.>.SX.1,HF%(X):.|
000030B0: 20 53 58 2C 4C 46 25 28 58 29 3A 97 20 53 58 AA | SX,LF%(X):. SX.|
000030C0: 34 2C 33 33 3A 53 45 43 B2 30 2E 30 37 3A 8D 20 |4,33:SEC.0.07:. |
000030D0: 32 39 30 30 00 EC 38 9F 3E 8B 20 51 4E B2 31 20 |2900..8.>. QN.1 |
000030E0: A7 20 97 20 53 58 AA 34 2C 30 3A 8E 00 FF 38 BC |. . SX.4,0:...8.|
000030F0: 3E 97 20 53 58 AA 34 2C 30 3A 82 20 49 3A 8E 00 |>. SX.4,0:. I:..|
00003100: 13 39 E4 3E 8F 4D 55 53 49 43 20 46 4F 52 20 4C |.9.>.MUSIC FOR L|
00003110: 4F 47 4F 00 34 39 EE 3E 41 58 24 B2 22 35 33 34 |OGO.49.>AX$."534|
00003120: 35 36 35 34 32 33 34 35 34 35 33 34 35 36 35 36 |5654234545345656|
00003130: 39 37 39 22 00 5F 39 F8 3E 46 49 4C 45 24 B2 41 |979"._9.>FILE$.A|
00003140: 58 24 AA 22 35 33 34 35 36 35 34 32 33 34 35 34 |X$."534565423454|
00003150: 35 32 33 34 35 36 38 22 3A 8D 31 36 30 30 30 00 |5234568":.16000.|
00003160: 65 39 02 3F 8E 00 79 39 68 42 8F 45 52 52 4F 52 |e9.?..y9hB.ERROR|
00003170: 20 48 41 4E 44 4C 49 4E 47 00 85 39 72 42 9E 20 | HANDLING..9rB. |
00003180: 34 39 31 35 35 00 95 39 7C 42 84 31 2C 59 2C 42 |49155..9|B.1,Y,B|
00003190: 24 3A A0 20 32 00 DE 39 86 42 8F 20 20 20 20 59 |$:. 2..9.B. Y|
000031A0: 3D 50 45 45 4B 28 32 32 32 29 3A 58 3D 50 45 45 |=PEEK(222):X=PEE|
000031B0: 4B 28 32 31 38 29 2B 32 35 36 2A 50 45 45 4B 28 |K(218)+256*PEEK(|
000031C0: 32 31 39 29 3A 52 45 4D 20 20 20 58 3D 4C 49 4E |219):REM X=LIN|
000031D0: 45 20 23 3B 20 59 3D 45 52 52 4F 52 20 23 00 FF |E #; Y=ERROR #..|
000031E0: 39 9A 42 4C 24 B2 22 41 30 22 3A 8F 52 45 56 49 |9.BL$."A0":.REVI|
000031F0: 53 49 4F 4E 20 26 20 4C 45 53 53 4F 4E 20 23 00 |SION & LESSON #.|
00003200: 26 3A A4 42 56 54 25 B2 32 3A 8D 20 33 30 31 30 |&:.BVT%.2:. 3010|
00003210: 30 3A 99 22 55 53 45 52 20 4E 41 4D 45 3A 20 22 |0:."USER NAME: "|
00003220: 3B 46 4C 4E 4D 24 00 51 3A AE 42 56 54 25 B2 34 |;FLNM$.Q:.BVT%.4|
00003230: 3A 8D 20 33 30 31 30 30 3A 99 22 41 4E 20 45 52 |:. 30100:."AN ER|
00003240: 52 4F 52 20 48 41 53 20 4F 43 43 55 52 45 44 21 |ROR HAS OCCURED!|
00003250: 22 00 79 3A B8 42 56 54 25 B2 36 3A 8D 20 33 30 |".y:.BVT%.6:. 30|
00003260: 31 30 30 3A 99 22 45 52 52 4F 52 20 43 4F 44 45 |100:."ERROR CODE|
00003270: 3A 20 23 22 3B 59 2C 42 24 00 9F 3A C2 42 56 54 |: #";Y,B$..:.BVT|
00003280: 25 B2 31 30 3A 8D 33 30 31 30 30 3A 99 22 45 52 |%.10:.30100:."ER|
00003290: 52 4F 52 20 4D 45 53 53 41 47 45 3A 20 22 3B 00 |ROR MESSAGE: ";.|
000032A0: C4 3A CC 42 8B 59 B2 32 36 A7 99 22 44 49 53 4B |.:.B.Y.26.."DISK|
000032B0: 20 49 53 20 57 52 49 54 45 20 50 52 4F 54 45 43 | IS WRITE PROTEC|
000032C0: 54 45 44 22 00 E4 3A D6 42 8B 59 B2 36 32 A7 99 |TED"..:.B.Y.62..|
000032D0: 22 46 49 4C 45 20 57 41 53 20 4E 4F 54 20 46 4F |"FILE WAS NOT FO|
000032E0: 55 4E 44 22 00 03 3B EA 42 8B 59 B2 37 32 A7 99 |UND"..;.B.Y.72..|
000032F0: 22 59 4F 55 52 20 44 49 53 4B 20 49 53 20 46 55 |"YOUR DISK IS FU|
00003300: 4C 4C 22 00 3A 3B FE 42 56 54 25 B2 31 32 3A 8D |LL".:;.BVT%.12:.|
00003310: 20 33 30 31 30 30 3A 99 22 12 43 48 45 43 4B 20 | 30100:.".CHECK |
00003320: 54 48 41 54 20 54 48 45 20 41 50 50 52 4F 50 52 |THAT THE APPROPR|
00003330: 49 41 54 45 20 44 49 53 4B 22 00 66 3B 03 43 99 |IATE DISK".f;.C.|
00003340: 3A 99 22 12 49 53 20 50 52 4F 50 45 52 4C 59 20 |:.".IS PROPERLY |
00003350: 49 4E 53 45 52 54 45 44 20 49 4E 20 44 52 49 56 |INSERTED IN DRIV|
00003360: 45 20 23 31 2E 22 00 9A 3B 08 43 56 54 41 42 32 |E #1."..;.CVTAB2|
00003370: 34 3A 48 54 41 42 31 3A 99 22 50 52 45 53 53 20 |4:HTAB1:."PRESS |
00003380: 3C 53 50 41 43 45 20 42 41 52 3E 20 54 4F 20 52 |<SPACE BAR> TO R|
00003390: 45 53 55 4D 45 2E 2E 2E 22 3B 00 B2 3B 12 43 8D |ESUME...";..;.C.|
000033A0: 37 31 3A 8B 20 43 24 B3 B1 22 20 22 89 31 37 31 |71:. C$.." ".171|
000033B0: 37 30 00 BC 3B 1C 43 89 20 31 31 30 00 CE 3B 94 |70..;.C. 110..;.|
000033C0: 75 8F 20 56 54 25 20 52 4F 55 54 49 4E 45 00 DC |u. VT% ROUTINE..|
000033D0: 3B 9E 75 52 58 B2 C2 28 32 31 31 29 00 F8 3B A8 |;.uRX..(211)..;.|
000033E0: 75 99 C8 28 56 54 24 2C 56 54 25 29 3B 3A 97 20 |u..(VT$,VT%);:. |
000033F0: 32 31 31 2C 52 58 3A 8E 00 09 3C F8 75 8F 20 45 |211,RX:...<.u. E|
00003400: 4C 20 52 4F 55 54 49 4E 45 00 17 3C 0C 76 52 58 |L ROUTINE..<.vRX|
00003410: B2 C2 28 32 31 31 29 00 35 3C 16 76 99 C8 28 45 |..(211).5<.v..(E|
00003420: 4C 24 2C 33 39 AB 52 58 29 3B 3A 97 20 32 31 31 |L$,39.RX);:. 211|
00003430: 2C 52 58 3A 8E 00 00 00 22 22 89 38 31 31 30 00 |,RX:...."".8110.|
00003440: A7 3A A4 1F 56 54 25 B2 32 30 3A 8D 33 30 31 30 |.:..VT%.20:.3010|
00003450: 30 3A 99 22 28 59 4F 55 52 20 50 52 45 56 49 4F |0:."(YOUR PREVIO|
00003460: 55 53 20 53 45 4C 45 43 54 49 4F 4E 20 57 41 53 |US SELECTION WAS|
00003470: 20 27 22 3B 50 56 24 3B 22 27 29 22 00 E6 3A AE | '";PV$;"')"..:.|
00003480: 1F 56 54 25 B2 31 38 3A 8D 33 30 31 30 30 3A 99 |.VT%.18:.30100:.|
00003490: 22 53 45 4C 45 43 54 20 4F 50 54 49 4F 4E 3A 20 |"SELECT OPTION: |
000034A0: 22 3B 3A 8D 20 33 30 32 30 30 3A 8F 20 54 4F 20 |";:. 30200:. TO |
000034B0: 45 4E 44 2D 4F 46 2D 4C 49 4E 45 00 01 3B B8 1F |END-OF-LINE..;..|
000034C0: 8D 37 32 3A 43 B2 C6 28 43 24 AA 5A 45 24 29 3A |.72:C..(C$.ZE$):|
000034D0: 41 4E 24 B2 43 24 00 19 3B CC 1F 8B 43 B3 36 35 |AN$.C$..;...C.65|
000034E0: B0 43 B1 36 34 AA 4D 41 58 89 38 31 32 30 00 26 |.C.64.MAX.8120.&|
000034F0: 3B D6 1F 99 3A 43 B2 43 AB 36 34 00 50 3B E0 1F |;...:C.C.64.P;..|
00003500: 56 54 25 B2 43 AA 36 3A 8D 33 30 31 30 30 3A 99 |VT%.C.6:.30100:.|
00003510: C7 28 31 38 29 3B 3A 99 41 4E 24 3B 3A 99 C7 28 |.(18);:.AN$;:..(|
00003520: 31 34 36 29 3B 00 76 3B E1 1F 99 22 20 3A 20 22 |146);.v;..." : "|
00003530: 3B 3A 99 C7 28 31 38 29 3B 3A 99 50 47 4D 24 28 |;:..(18);:.PGM$(|
00003540: 43 29 3A 99 C7 28 31 34 36 29 3B 00 B3 3B EA 1F |C):..(146);..;..|
00003550: 56 54 25 B2 31 38 3A 8D 33 30 31 30 30 3A 99 22 |VT%.18:.30100:."|
00003560: 49 53 20 54 48 49 53 20 54 48 45 20 53 45 4C 45 |IS THIS THE SELE|
00003570: 43 54 49 4F 4E 20 59 4F 55 20 57 41 4E 54 3F 20 |CTION YOU WANT? |
00003580: 28 59 2F 4E 29 20 22 3B 00 BB 3B F4 1F 8D 37 31 |(Y/N) ";..;...71|
00003590: 00 ED 3B F5 1F 8B 43 24 B3 B1 22 59 22 AF 43 24 |..;...C$.."Y".C$|
000035A0: B3 B1 22 4E 22 A7 38 31 38 30 3A 8F 20 43 48 43 |.."N".8180:. CHC|
000035B0: 4B 20 41 50 50 4C 45 20 4C 49 53 54 49 4E 47 3F |K APPLE LISTING?|
000035C0: 3F 3F 00 0C 3C FE 1F 99 43 24 3A 8B 43 24 B3 B1 |??..<...C$:.C$..|
000035D0: 22 4E 22 A7 50 56 24 B2 41 4E 24 3A 89 38 32 31 |"N".PV$.AN$:.821|
000035E0: 30 00 36 3C 08 20 56 54 25 B2 43 AA 36 3A 8D 33 |0.6<. VT%.C.6:.3|
000035F0: 30 31 30 30 3A 99 41 4E 24 22 20 3A 20 22 50 47 |0100:.AN$" : "PG|
00003600: 4D 24 28 43 29 3A 89 38 31 31 30 00 3C 3C 12 20 |M$(C):.8110.<<. |
00003610: 8E 00 55 3C 1C 25 8F 20 57 41 49 54 20 46 4F 52 |..U<.%. WAIT FOR|
00003620: 20 53 50 41 43 45 20 42 41 52 00 94 3C 26 25 97 | SPACE BAR..<&%.|
00003630: 20 32 31 31 2C 30 3A 56 54 25 B2 32 34 3A 8D 33 | 211,0:VT%.24:.3|
00003640: 30 31 30 30 3A 99 22 50 52 45 53 53 20 3C 53 50 |0100:."PRESS <SP|
00003650: 41 43 45 20 42 41 52 3E 20 54 4F 20 43 4F 4E 54 |ACE BAR> TO CONT|
00003660: 49 4E 55 45 2E 2E 2E 22 3B 00 A8 3C 27 25 81 58 |INUE...";..<'%.X|
00003670: 58 B2 31 A4 31 30 3A A1 58 58 24 3A 82 00 C2 3C |X.1.10:.XX$:...<|
00003680: 30 25 8D 20 37 33 3A 8B 20 43 24 B3 B1 22 20 22 |0%. 73:. C$.." "|
00003690: 20 A7 20 39 35 32 30 00 D8 3C 3A 25 81 58 58 B2 | . 9520..<:%.XX.|
000036A0: 31 A4 31 30 3A A1 58 58 24 3A 82 3A 8E 00 ED 3C |1.10:.XX$:.:...<|
000036B0: 10 27 8F 20 49 4E 49 54 49 41 4C 49 5A 41 54 49 |.'. INITIALIZATI|
000036C0: 4F 4E 00 FB 3C 1A 27 86 52 44 52 25 28 32 30 29 |ON..<.'.RDR%(20)|
000036D0: 00 15 3D 1F 27 53 44 24 B2 22 41 22 3A 44 24 B2 |..=.'SD$."A":D$.|
000036E0: C7 28 31 33 29 AA C7 28 34 29 00 2C 3D 24 27 81 |.(13)..(4).,=$'.|
000036F0: 49 B2 31 A4 31 30 3A 87 44 31 24 28 49 29 3A 82 |I.1.10:.D1$(I):.|
00003700: 49 00 6D 3D 2E 27 83 20 53 48 41 52 4B 2D 4E 41 |I.m=.'. SHARK-NA|
00003710: 49 4C 2D 54 41 43 4B 2C 46 41 52 4D 2D 42 41 54 |IL-TACK,FARM-BAT|
00003720: 2D 50 49 4E 2C 43 41 4D 50 2D 46 49 4E 2D 53 4F |-PIN,CAMP-FIN-SO|
00003730: 55 50 2C 20 4D 41 50 53 2D 50 49 50 45 2D 46 4F |UP, MAPS-PIPE-FO|
00003740: 4F 54 00 A2 3D 2F 27 83 20 42 41 4E 4B 2D 46 41 |OT..=/'. BANK-FA|
00003750: 4E 2D 53 48 41 43 4B 2C 4C 41 42 45 4C 2D 43 4F |N-SHACK,LABEL-CO|
00003760: 41 4C 2D 46 49 52 45 2C 4D 4F 54 4F 52 2D 4E 4F |AL-FIRE,MOTOR-NO|
00003770: 53 45 2D 50 49 4C 4C 00 D6 3D 30 27 83 20 4A 55 |SE-PILL..=0'. JU|
00003780: 4E 4B 2D 4D 4F 56 49 45 2D 52 4F 41 52 2C 43 41 |NK-MOVIE-ROAR,CA|
00003790: 52 54 2D 4A 41 4D 2D 4C 49 50 2C 4E 49 43 4B 45 |RT-JAM-LIP,NICKE|
000037A0: 4C 2D 42 55 53 48 2D 53 48 49 50 00 ED 3D 38 27 |L-BUSH-SHIP..=8'|
000037B0: 81 49 B2 31 A4 31 30 3A 87 44 32 24 28 49 29 3A |.I.1.10:.D2$(I):|
000037C0: 82 49 00 29 3E 42 27 83 20 36 34 37 2D 32 35 31 |.I.)>B'. 647-251|
000037D0: 37 2C 38 34 33 2D 39 31 39 32 2C 37 33 39 2D 38 |7,843-9192,739-8|
000037E0: 32 30 39 2C 33 39 30 2D 39 39 38 31 2C 39 32 37 |209,390-9981,927|
000037F0: 2D 38 32 36 37 2C 35 39 35 2D 37 35 38 34 00 53 |-8267,595-7584.S|
00003800: 3E 43 27 83 20 33 31 34 2D 32 30 39 35 2C 36 32 |>C'. 314-2095,62|
00003810: 37 2D 33 38 34 34 2C 37 34 31 2D 36 33 35 39 2C |7-3844,741-6359,|
00003820: 32 37 35 2D 39 36 36 39 00 6E 3E 4C 27 4B 4D 41 |275-9669.n>L'KMA|
00003830: 58 B2 35 3A 48 49 47 48 B2 4B 4D 41 58 3A 4C 4F |X.5:HIGH.KMAX:LO|
00003840: 57 B2 31 00 86 3E 60 27 81 49 B2 31 A4 32 30 3A |W.1..>`'.I.1.20:|
00003850: 87 4D 45 4E 24 28 49 29 3A 82 49 00 C6 3E 6A 27 |.MEN$(I):.I..>j'|
00003860: 83 20 42 49 4C 4C 2C 42 4F 42 2C 42 52 55 43 45 |. BILL,BOB,BRUCE|
00003870: 2C 43 48 55 43 4B 2C 44 41 56 45 2C 44 45 4E 4E |,CHUCK,DAVE,DENN|
00003880: 49 53 2C 45 44 2C 46 52 41 4E 4B 2C 48 41 52 52 |IS,ED,FRANK,HARR|
00003890: 59 2C 4A 41 43 4B 2C 4A 45 46 46 00 F6 3E 6B 27 |Y,JACK,JEFF..>k'|
000038A0: 83 20 4A 49 4D 2C 4A 4F 45 2C 4A 4F 48 4E 2C 4B |. JIM,JOE,JOHN,K|
000038B0: 45 4E 2C 4D 41 52 4B 2C 4D 49 4B 45 2C 50 48 49 |EN,MARK,MIKE,PHI|
000038C0: 4C 2C 53 54 45 56 45 2C 54 4F 4D 00 10 3F 74 27 |L,STEVE,TOM..?t'|
000038D0: 81 49 B2 31 A4 32 30 3A 87 57 4F 4D 45 4E 24 28 |.I.1.20:.WOMEN$(|
000038E0: 49 29 3A 82 49 00 4E 3F 7E 27 83 20 41 4C 49 43 |I):.I.N?~'. ALIC|
000038F0: 45 2C 41 4E 4E 45 2C 43 41 52 4F 4C 2C 43 41 54 |E,ANNE,CAROL,CAT|
00003900: 48 59 2C 44 4F 52 49 53 2C 45 49 4C 45 45 4E 2C |HY,DORIS,EILEEN,|
00003910: 47 41 49 4C 2C 4A 41 4E 45 2C 4A 45 41 4E 2C 4A |GAIL,JANE,JEAN,J|
00003920: 4F 41 4E 00 8A 3F 7F 27 83 20 4A 4F 59 43 45 2C |OAN..?.'. JOYCE,|
00003930: 4A 55 4C 49 45 2C 4B 41 54 45 2C 4C 49 53 41 2C |JULIE,KATE,LISA,|
00003940: 4C 49 5A 2C 52 55 54 48 2C 53 41 4E 44 59 2C 53 |LIZ,RUTH,SANDY,S|
00003950: 48 45 52 52 59 2C 53 55 45 2C 57 45 4E 44 59 00 |HERRY,SUE,WENDY.|
00003960: B7 3F 82 27 81 49 B2 31 A4 32 30 3A 87 50 45 47 |.?.'.I.1.20:.PEG|
00003970: 4E 41 4D 45 24 28 49 29 3A 82 49 3A 8F 20 4D 41 |NAME$(I):.I:. MA|
00003980: 4C 45 20 50 45 47 2D 4E 41 4D 45 53 00 ED 3F 86 |LE PEG-NAMES..?.|
00003990: 27 83 20 44 4F 4C 4C 41 52 20 42 49 4C 4C 2C 42 |'. DOLLAR BILL,B|
000039A0: 4F 42 53 4C 45 44 2C 4E 4F 4F 53 45 2C 57 41 47 |OBSLED,NOOSE,WAG|
000039B0: 4F 4E 2C 57 41 56 45 2C 54 45 4E 4E 49 53 2C 42 |ON,WAVE,TENNIS,B|
000039C0: 45 44 00 20 40 87 27 83 20 48 4F 54 20 44 4F 47 |ED. @.'. HOT DOG|
000039D0: 2C 48 41 49 52 59 2C 42 45 41 4E 53 54 41 4C 4B |,HAIRY,BEANSTALK|
000039E0: 2C 43 48 45 46 2C 4A 55 4E 47 4C 45 2C 54 4F 45 |,CHEF,JUNGLE,TOE|
000039F0: 2C 59 41 57 4E 00 4C 40 88 27 83 20 48 45 4E 2C |,YAWN.L@.'. HEN,|
00003A00: 53 48 41 52 4B 2C 4D 49 43 52 4F 50 48 4F 4E 45 |SHARK,MICROPHONE|
00003A10: 2C 50 49 4C 4C 2C 53 54 4F 56 45 2C 54 48 55 4D |,PILL,STOVE,THUM|
00003A20: 42 00 7C 40 8A 27 81 49 B2 32 31 A4 34 30 3A 87 |B.|@.'.I.21.40:.|
00003A30: 50 45 47 4E 41 4D 45 24 28 49 29 3A 82 49 3A 8F |PEGNAME$(I):.I:.|
00003A40: 20 46 45 4D 41 4C 45 20 50 45 47 2D 4E 41 4D 45 | FEMALE PEG-NAME|
00003A50: 53 00 BB 40 8E 27 83 20 50 41 4C 41 43 45 2C 41 |S..@.'. PALACE,A|
00003A60: 4E 54 2C 42 41 52 52 45 4C 2C 43 41 54 2C 44 4F |NT,BARREL,CAT,DO|
00003A70: 4F 52 53 2C 49 53 4C 41 4E 44 2C 53 41 49 4C 2C |ORS,ISLAND,SAIL,|
00003A80: 43 48 41 49 4E 2C 4A 45 41 4E 53 2C 42 4F 4E 45 |CHAIN,JEANS,BONE|
00003A90: 00 00 41 8F 27 83 20 4A 55 49 43 45 2C 4A 45 57 |..A.'. JUICE,JEW|
00003AA0: 45 4C 52 59 2C 53 4B 41 54 45 2C 50 49 5A 5A 41 |ELRY,SKATE,PIZZA|
00003AB0: 2C 4C 49 5A 41 52 44 2C 54 4F 4F 54 48 2C 42 45 |,LIZARD,TOOTH,BE|
00003AC0: 41 43 48 2C 43 48 45 52 52 59 2C 53 48 4F 45 2C |ACH,CHERRY,SHOE,|
00003AD0: 57 49 4E 44 59 00 25 41 9C 27 9F 20 32 2C 38 2C |WINDY.%A.'. 2,8,|
00003AE0: 32 2C 22 50 45 47 20 57 4F 52 44 53 22 3A 8B 20 |2,"PEG WORDS":. |
00003AF0: 53 54 20 A7 20 31 37 30 30 30 00 48 41 A6 27 81 |ST . 17000.HA.'.|
00003B00: 49 B2 31 A4 39 39 3A 84 32 2C 45 47 24 28 49 29 |I.1.99:.2,EG$(I)|
00003B10: 3A 8B 20 53 54 20 A7 20 31 37 30 30 30 00 4F 41 |:. ST . 17000.OA|
00003B20: AD 27 82 49 00 64 41 B0 27 A0 20 32 3A 8B 20 53 |.'.I.dA.'. 2:. S|
00003B30: 54 20 A7 20 31 37 30 30 30 00 9B 41 BA 27 81 49 |T . 17000..A.'.I|
00003B40: B2 31 A4 35 3A 87 44 33 24 28 49 29 3A 82 49 3A |.1.5:.D3$(I):.I:|
00003B50: 8F 20 49 4E 49 54 49 41 4C 49 5A 45 20 46 4F 52 |. INITIALIZE FOR|
00003B60: 20 31 53 54 20 52 45 43 41 4C 4C 20 54 45 53 54 | 1ST RECALL TEST|
00003B70: 00 CE 41 BF 27 83 20 33 39 30 2D 31 31 32 38 2C |..A.'. 390-1128,|
00003B80: 36 34 37 2D 34 39 36 33 2C 34 33 39 2D 36 31 34 |647-4963,439-614|
00003B90: 33 2C 38 34 33 2D 31 39 35 38 2C 39 32 37 2D 33 |3,843-1958,927-3|
00003BA0: 33 38 34 00 E4 41 C4 27 81 49 B2 30 A4 39 3A 87 |384..A.'.I.0.9:.|
00003BB0: 45 47 24 28 49 29 3A 82 49 00 1C 42 CE 27 83 20 |EG$(I):.I..B.'. |
00003BC0: 53 41 55 43 45 2C 53 45 41 54 2C 53 55 4E 2C 53 |SAUCE,SEAT,SUN,S|
00003BD0: 45 41 4D 2C 53 4F 52 45 2C 53 45 41 4C 2C 53 41 |EAM,SORE,SEAL,SA|
00003BE0: 53 48 2C 53 4F 43 4B 2C 53 41 46 45 2C 53 4F 55 |SH,SOCK,SAFE,SOU|
00003BF0: 50 00 2E 42 CC 29 8F 20 4D 55 53 49 43 20 53 54 |P..B.). MUSIC ST|
00003C00: 55 46 46 00 3B 42 D6 29 53 58 B2 35 34 32 37 32 |UFF.;B.)SX.54272|
00003C10: 00 5D 42 E0 29 81 20 54 B2 31 20 A4 20 39 3A 87 |.]B.). T.1 . 9:.|
00003C20: 20 48 46 25 28 54 29 2C 4C 46 25 28 54 29 3A 82 | HF%(T),LF%(T):.|
00003C30: 20 54 00 9B 42 EA 29 83 20 31 36 2C 31 39 35 2C | T..B.). 16,195,|
00003C40: 31 38 2C 32 30 39 2C 32 31 2C 33 31 2C 32 32 2C |18,209,21,31,22,|
00003C50: 39 36 2C 32 35 2C 33 30 2C 32 38 2C 34 39 2C 33 |96,25,30,28,49,3|
00003C60: 31 2C 31 36 35 2C 33 33 2C 31 33 35 2C 30 2C 30 |1,165,33,135,0,0|
00003C70: 00 A1 42 F4 29 8F 00 B6 42 F8 2A 8F 20 52 45 41 |..B.)...B.*. REA|
00003C80: 44 20 46 49 4C 45 20 4E 41 4D 45 00 E4 42 02 2B |D FILE NAME..B.+|
00003C90: 44 53 4B 24 B2 C7 28 C2 28 44 45 29 29 3A 8B 44 |DSK$..(.(DE)):.D|
00003CA0: 53 4B 24 B3 B1 22 59 22 A7 46 4C 4E 4D 24 B2 22 |SK$.."Y".FLNM$."|
00003CB0: 22 3A 89 20 31 31 37 30 30 00 F3 42 0C 2B 81 49 |":. 11700..B.+.I|
00003CC0: B2 31 A4 C2 28 4E 4D 29 00 11 43 0D 2B 46 4C 4E |.1..(NM)..C.+FLN|
00003CD0: 4D 24 B2 46 4C 4E 4D 24 AA C7 28 C2 28 4E 4D AA |M$.FLNM$..(.(NM.|
00003CE0: 49 29 29 3A 82 49 00 2D 43 B4 2D 8F 20 52 45 41 |I)):.I.-C.-. REA|
00003CF0: 4C 20 52 41 4E 44 4F 4D 20 47 45 4E 45 52 41 54 |L RANDOM GENERAT|
00003D00: 4F 52 00 45 43 BE 2D 41 B2 C2 28 37 38 29 3A 8F |OR.EC.-A..(78):.|
00003D10: 20 37 38 20 49 53 20 24 34 45 00 5E 43 C8 2D 42 | 78 IS $4E.^C.-B|
00003D20: B2 41 AA 31 3A 8F 20 42 45 20 53 55 52 45 20 41 |.A.1:. BE SURE A|
00003D30: 3C 3E 30 00 7D 43 D2 2D 81 58 B2 31 A4 31 30 3A |<>0.}C.-.X.1.10:|
00003D40: 97 32 30 32 2C 42 3A 41 4E 53 B2 BB 28 31 29 3A |.202,B:ANS..(1):|
00003D50: 82 58 00 95 43 72 2E 81 49 B2 30 A4 39 3A 87 50 |.X..Cr..I.0.9:.P|
00003D60: 49 54 43 48 28 49 29 3A 82 49 00 AF 43 73 2E 97 |ITCH(I):.I..Cs..|
00003D70: 30 2C 50 49 54 43 48 28 B5 28 37 AC BB 28 31 29 |0,PITCH(.(7..(1)|
00003D80: 29 AA 31 29 00 D5 43 7C 2E 83 20 30 2C 31 33 33 |).1)..C|.. 0,133|
00003D90: 2C 31 32 31 2C 31 30 37 2C 31 30 30 2C 39 30 2C |,121,107,100,90,|
00003DA0: 38 30 2C 37 30 2C 36 36 2C 31 00 DB 43 DF 2E 8E |80,70,66,1..C...|
00003DB0: 00 F4 43 C8 32 8F 20 43 45 4E 54 45 52 2F 4F 55 |..C.2. CENTER/OU|
00003DC0: 54 20 57 49 50 45 4F 55 54 00 1C 44 36 33 81 49 |T WIPEOUT..D63.I|
00003DD0: B2 31 A4 31 32 3A 97 33 34 2C 31 32 AB 49 3A 97 |.1.12:.34,12.I:.|
00003DE0: 33 35 2C 31 32 AA 49 3A 97 33 33 2C 34 AA 33 AC |35,12.I:.33,4.3.|
00003DF0: 49 00 3C 44 37 33 97 33 32 2C 32 34 AB 32 AC 49 |I.<D73.32,24.2.I|
00003E00: 3A 99 C7 28 31 34 37 29 3B 3A 81 4A B2 31 A4 36 |:..(147);:.J.1.6|
00003E10: 30 00 48 44 38 33 82 4A 3A 82 49 3A 8E 00 5C 44 |0.HD83.J:.I:..\D|
00003E20: 80 3E 8F 20 4D 45 4C 4F 44 59 20 50 4C 41 59 45 |.>. MELODY PLAYE|
00003E30: 52 00 6E 44 8A 3E 81 49 B2 31 A4 C3 28 46 49 4C |R.nD.>.I.1..(FIL|
00003E40: 45 24 29 00 84 44 94 3E 58 B2 C5 28 CA 28 46 49 |E$)..D.>X..(.(FI|
00003E50: 4C 45 24 2C 49 2C 31 29 29 00 BC 44 9E 3E 97 20 |LE$,I,1))..D.>. |
00003E60: 53 58 AA 31 2C 48 46 25 28 58 29 3A 97 20 53 58 |SX.1,HF%(X):. SX|
00003E70: 2C 4C 46 25 28 58 29 3A 97 20 53 58 AA 34 2C 33 |,LF%(X):. SX.4,3|
00003E80: 33 3A 53 45 43 B2 30 2E 30 37 3A 8D 20 32 39 30 |3:SEC.0.07:. 290|
00003E90: 30 00 CF 44 A8 3E 97 20 53 58 AA 34 2C 30 3A 82 |0..D.>. SX.4,0:.|
00003EA0: 20 49 3A 8E 00 E4 44 68 42 8F 20 45 52 52 4F 52 | I:...DhB. ERROR|
00003EB0: 20 48 41 4E 44 4C 49 4E 47 00 F9 44 72 42 9E 20 | HANDLING..DrB. |
00003EC0: 34 39 31 35 35 3A 99 C7 28 31 34 37 29 3B 00 09 |49155:..(147);..|
00003ED0: 45 7C 42 84 31 2C 59 2C 42 24 3A A0 20 32 00 36 |E|B.1,Y,B$:. 2.6|
00003EE0: 45 86 42 8F 20 20 59 3D 50 45 45 4B 28 32 32 32 |E.B. Y=PEEK(222|
00003EF0: 29 3A 58 3D 50 45 45 4B 28 32 31 38 29 2B 32 35 |):X=PEEK(218)+25|
00003F00: 36 2A 50 45 45 4B 28 32 31 39 29 00 50 45 87 42 |6*PEEK(219).PE.B|
00003F10: 8F 20 58 3D 4C 49 4E 45 20 23 3B 20 59 3D 45 52 |. X=LINE #; Y=ER|
00003F20: 52 4F 52 20 23 00 72 45 9A 42 4C 24 B2 22 41 35 |ROR #.rE.BL$."A5|
00003F30: 22 3A 8F 20 52 45 56 49 53 49 4F 4E 20 26 20 4C |":. REVISION & L|
00003F40: 45 53 53 4F 4E 20 23 00 9B 45 A4 42 56 54 25 B2 |ESSON #..E.BVT%.|
00003F50: 32 3A 8D 33 30 31 30 30 3A 99 22 55 53 45 52 20 |2:.30100:."USER |
00003F60: 4E 41 4D 45 3A 20 22 3B 3A 99 C7 28 31 38 29 3B |NAME: ";:..(18);|
00003F70: 00 B0 45 A5 42 99 46 4C 4E 4D 24 3B 3A 99 C7 28 |..E.B.FLNM$;:..(|
00003F80: 31 34 36 29 3B 00 D1 45 AE 42 56 54 25 B2 34 3A |146);..E.BVT%.4:|
00003F90: 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 3A 99 C7 |.30100:.211,0:..|
00003FA0: 28 31 34 36 29 3B 00 EE 45 AF 42 99 22 41 4E 20 |(146);..E.B."AN |
00003FB0: 45 52 52 4F 52 20 48 41 53 20 4F 43 43 55 52 45 |ERROR HAS OCCURE|
00003FC0: 44 21 22 00 1D 46 B8 42 56 54 25 B2 36 3A 8D 33 |D!"..F.BVT%.6:.3|
00003FD0: 30 31 30 30 3A 99 22 45 52 52 4F 52 20 43 4F 44 |0100:."ERROR COD|
00003FE0: 45 3A 20 23 22 3B 59 3B A3 32 37 29 3B 4C 24 3B |E: #";Y;.27);L$;|
00003FF0: 42 24 00 43 46 C2 42 56 54 25 B2 31 30 3A 8D 33 |B$.CF.BVT%.10:.3|
00004000: 30 31 30 30 3A 99 22 45 52 52 4F 52 20 4D 45 53 |0100:."ERROR MES|
00004010: 53 41 47 45 3A 20 22 3B 00 68 46 CC 42 8B 59 B2 |SAGE: ";.hF.B.Y.|
00004020: 32 36 A7 99 22 44 49 53 4B 20 49 53 20 57 52 49 |26.."DISK IS WRI|
00004030: 54 45 20 50 52 4F 54 45 43 54 45 44 22 00 88 46 |TE PROTECTED"..F|
00004040: D6 42 8B 59 B2 36 32 A7 99 22 46 49 4C 45 20 57 |.B.Y.62.."FILE W|
00004050: 41 53 20 4E 4F 54 20 46 4F 55 4E 44 22 00 A7 46 |AS NOT FOUND"..F|
00004060: EA 42 8B 59 B2 37 32 A7 99 22 59 4F 55 52 20 44 |.B.Y.72.."YOUR D|
00004070: 49 53 4B 20 49 53 20 46 55 4C 4C 22 00 C8 46 FE |ISK IS FULL"..F.|
00004080: 42 56 54 25 B2 31 32 3A 8D 33 30 31 30 30 3A 97 |BVT%.12:.30100:.|
00004090: 32 31 31 2C 30 3A 99 C7 28 31 38 29 3B 00 FD 46 |211,0:..(18);..F|
000040A0: FF 42 99 22 43 48 45 43 4B 20 54 48 41 54 20 54 |.B."CHECK THAT T|
000040B0: 48 45 20 41 50 50 52 4F 50 52 49 41 54 45 20 44 |HE APPROPRIATE D|
000040C0: 49 53 4B 22 3A 56 54 25 B2 31 34 3A 8D 33 30 31 |ISK":VT%.14:.301|
000040D0: 30 30 00 2F 47 00 43 99 22 49 53 20 50 52 4F 50 |00./G.C."IS PROP|
000040E0: 45 52 4C 59 20 49 4E 53 45 52 54 45 44 20 49 4E |ERLY INSERTED IN|
000040F0: 20 44 52 49 56 45 20 23 31 2E 22 3A 99 C7 28 31 | DRIVE #1.":..(1|
00004100: 34 36 29 3B 00 6B 47 08 43 56 54 25 B2 32 34 3A |46);.kG.CVT%.24:|
00004110: 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 3A 99 22 |.30100:.211,0:."|
00004120: 50 52 45 53 53 20 3C 53 50 41 43 45 20 42 41 52 |PRESS <SPACE BAR|
00004130: 3E 20 54 4F 20 52 45 53 55 4D 45 2E 2E 2E 22 3B |> TO RESUME...";|
00004140: 00 7F 47 09 43 81 58 58 B2 31 A4 31 30 3A A1 58 |..G.C.XX.1.10:.X|
00004150: 58 24 3A 82 00 A7 47 12 43 A1 58 58 24 3A 58 B2 |X$:...G.C.XX$:X.|
00004160: C6 28 58 58 24 AA 5A 45 24 29 AA 31 32 38 3A 8B |.(XX$.ZE$).128:.|
00004170: 58 B3 B1 31 36 30 89 31 37 31 37 30 00 BF 47 1C |X..160.17170..G.|
00004180: 43 89 31 31 30 3A 8F 20 54 4F 20 4D 41 49 4E 20 |C.110:. TO MAIN |
00004190: 4D 45 4E 55 00 F0 47 CC 6A 56 54 25 B2 32 31 3A |MENU..G.jVT%.21:|
000041A0: 8D 33 30 31 30 30 3A 97 32 31 31 2C 30 3A 41 58 |.30100:.211,0:AX|
000041B0: B2 41 4E 53 3A 99 22 59 4F 55 52 20 53 43 4F 52 |.ANS:."YOUR SCOR|
000041C0: 45 3A 20 22 3B 00 0D 48 CD 6A 99 C7 28 31 38 29 |E: ";..H.j..(18)|
000041D0: 3B 3A 99 53 43 AC 41 58 3B 3A 99 C7 28 31 34 36 |;:.SC.AX;:..(146|
000041E0: 29 3B 00 21 48 D6 6A 8B 41 58 AC 53 43 B3 54 53 |);.!H.j.AX.SC.TS|
000041F0: A7 32 37 33 36 30 00 5C 48 D7 6A 54 53 B2 41 58 |.27360.\H.jTS.AX|
00004200: AC 53 43 3A 97 20 32 31 31 2C 32 30 3A 99 C7 28 |.SC:. 211,20:..(|
00004210: 37 29 3B 3A 46 49 4C 45 24 B2 22 48 49 47 48 45 |7);:FILE$."HIGHE|
00004220: 53 54 20 53 43 4F 52 45 3A 20 22 AA C4 28 54 53 |ST SCORE: "..(TS|
00004230: 29 00 77 48 D8 6A 53 45 43 B2 34 3A 8D 20 33 30 |).wH.jSEC.4:. 30|
00004240: 30 30 30 3A 99 C7 28 31 34 36 29 3B 00 9F 48 E0 |000:..(146);..H.|
00004250: 6A 97 32 31 31 2C 32 30 3A 99 22 48 49 47 48 45 |j.211,20:."HIGHE|
00004260: 53 54 20 53 43 4F 52 45 3A 20 22 3B 3A 99 C7 28 |ST SCORE: ";:..(|
00004270: 31 38 29 3B 00 B1 48 E1 6A 99 54 53 3B 3A 99 C7 |18);..H.j.TS;:..|
00004280: 28 31 34 36 29 3B 00 BD 48 EA 6A 8D 39 35 30 30 |(146);..H.j.9500|
00004290: 3A 8E 00 D1 48 30 75 8F 20 46 4C 41 53 48 20 52 |:...H0u. FLASH R|
000042A0: 4F 55 54 49 4E 45 00 F4 48 3A 75 8F 20 53 54 52 |OUTINE..H:u. STR|
000042B0: 49 4E 47 20 49 4E 20 46 49 4C 45 24 2C 20 54 49 |ING IN FILE$, TI|
000042C0: 4D 45 20 49 4E 20 53 45 43 00 1D 49 44 75 56 54 |ME IN SEC..IDuVT|
000042D0: 25 B2 C2 28 32 31 34 29 AA 31 3A 48 54 25 B2 C2 |%..(214).1:HT%..|
000042E0: 28 32 31 31 29 3A 54 49 24 B2 22 30 30 30 30 30 |(211):TI$."00000|
000042F0: 30 22 00 43 49 4E 75 97 20 32 31 31 2C 48 54 25 |0".CINu. 211,HT%|
00004300: 3A 8D 20 33 30 31 30 30 3A 99 22 12 22 3B 46 49 |:. 30100:.".";FI|
00004310: 4C 45 24 3B 22 92 22 3B 00 72 49 58 75 81 20 54 |LE$;".";.rIXu. T|
00004320: 44 B2 31 20 A4 20 36 30 3A 82 20 54 44 3A 97 20 |D.1 . 60:. TD:. |
00004330: 32 31 31 2C 48 54 25 3A 8D 20 33 30 31 30 30 3A |211,HT%:. 30100:|
00004340: 99 46 49 4C 45 24 3B 00 87 49 62 75 81 20 54 44 |.FILE$;..Ibu. TD|
00004350: B2 31 20 A4 20 36 30 3A 82 20 54 44 00 9F 49 6C |.1 . 60:. TD..Il|
00004360: 75 8B 20 54 49 B3 53 45 43 AC 36 30 20 A7 20 33 |u. TI.SEC.60 . 3|
00004370: 30 30 33 30 00 A5 49 76 75 8E 00 B8 49 94 75 8F |0030..Ivu...I.u.|
00004380: 20 56 54 41 42 20 52 4F 55 54 49 4E 45 00 CB 49 | VTAB ROUTINE..I|
00004390: 9E 75 8F 20 52 4F 57 20 23 20 49 4E 20 56 54 25 |.u. ROW # IN VT%|
000043A0: 00 DA 49 A8 75 58 58 25 B2 C2 28 32 31 31 29 00 |..I.uXX%..(211).|
000043B0: EB 49 B2 75 99 C8 28 56 54 24 2C 56 54 25 29 3B |.I.u..(VT$,VT%);|
000043C0: 00 F8 49 BC 75 97 32 31 31 2C 58 58 25 00 FE 49 |..I.u.211,XX%..I|
000043D0: C6 75 8E 00 0F 4A F8 75 8F 20 45 4C 20 52 4F 55 |.u...J.u. EL ROU|
000043E0: 54 49 4E 45 00 1D 4A 0C 76 52 58 B2 C2 28 32 31 |TINE..J.vRX..(21|
000043F0: 31 29 00 36 4A 16 76 99 C8 28 45 4C 24 2C 34 30 |1).6J.v..(EL$,40|
00004400: AB 52 58 29 3B 22 9D 9D 9D 22 3B 00 45 4A 20 76 |.RX);"...";.EJ v|
00004410: 97 20 32 31 31 2C 52 58 3A 8E 00 00 00 |. 211,RX:.... |
.......INTRODUCTION.)....:. HF%(9),LF%(9
).6.... 1,8,15.[.... <S>2<L>D$<S>6<L>AN$
,RW$,C$,SD$.....EL$."
".....VT$.".......
...........................":MU.49637:ER
.49667:GR.49152:LD.49594.....DE.49667:NM
.49668:WR.49666.#....<S>16<L>R$,L$<S>30<
L>FLNM$,EI$.>....<S>40<L>FILE$,SP$,PR$.[
. .. 53280,0:. 53281,0:.".".F.$..<S>13..
.&..BEF$(10),AFT$(10),PEG$(160),PS$(9),N
M$(4). .(..<S>40...*..<S>35...,..<S>15.B
....SR$(9).M.4..<S>35...6.. GM$(10),PT$(
9)...8..<S>40...:..S9$(24)...<.. DATA"B
LOAD INTRO2".;.A.. READL$:PRINTCHR$(13)
;CHR$(4);L$.D.F..100.M.G.. 76.Y.H.. 204,
0.O.I.. C$:. C$."" . 73...J.C$.G(F(C$).1
27):. 9600:. 204,1:....L.. TX.1.10:.TX$:
. TX:..I.P..SPECIAL INPUT ROUTINE...Q.H.
B(211):V.B(214).1:L$."":L.11:CX.F(C$):.
83.,.R..72:CX.F(C$):.CX.13..H(EL$,L.C(L$
)):. 211,H:..F.S..CX.8 .R$."X".I(L$,1).R
$:.L$."".H.H.1:L$.J(L$,1,C(L$)...T..CX.2
1 .R$."".H.H.1:L$.L$.H(R$,1)...U.. QN.1
. ....X..CX.32.C$."":CX.0:H.H.1.U.Y..C(L
$).C(C$).L..G(7);:.82...Z..C$;:H.H.1:VT%
.V:.30100:.211,H:L$.L$.C$:R$.J(R$,2):.82
.2.D..13000:.10000:.INITIALIZATION.^.N..
PGM$(1)="INTRODUCTION/DEMONSTRATION"..
.X.PGM$(7)."USE/CREATE PERSONAL DISK FIL
E".....PGM$(1)."LESSON 1: NAMES AND FACE
S".Y...PGM$(2)."LESSON 2: METHOD OF LOCI
".....PGM$(3)."LESSON 3: PEG-WORD SYSTEM
".). .PGM$(4)."LESSON 4: IMPORTANT DATES
".O...PGM$(5)."LESSON 5: PHONE NUMBERS".
R...PGM$(6)."PLAY MEMORY MIX GAME".....P
GM$(8)."QUIT FOR NOW"...H.MAX.8:.8000:QN
.0.K.R..C. 670,680,690,700,710,720,7100,
990.....HOME:VTAB10:."DO YOU WANT MUSIC
WITH THIS DEMO? (Y/N)";:.C$:.95......C$.
"Y"..768,169:SS.0:.260.L....C$."N"..768,
96:SS.1:.260.U....220.....FILE$."LOGO":.
6500:.16100:.SS.1.SEC.2:.2900.....TEXT:H
OME:FILE$."EMAN":.6500:.16100:SEC.1:.290
0.D....I.1.6...".VTAB23:FILE$.BL$(I.1):.
2970:.0,PITCH(I.2):CALL768:SEC.2:.2900..
.,.HOME:SEC.1:.2900:.I.B.6.TEXT:HOME:XMA
X.10:XNUM.10:.1500...@.HOME:VTAB1:INVERS
E:FILE$."WHO NEEDS MEMORY TRAINER?":.299
0:N.MAL:SEC.2...J..I.1.10.C.T..0,PITCH(9
.I.(I.10)):.I.8..0,PITCH(8)...^.CALL768:
VTABI.2.2:FILE$.SR$(RDR%(I).1):.2980:SEC
.0.5:.2900...H..I.&.|..I.1.9:AFT$(I).PT$
(I):.I.N....13000:FILE$."TRY TO MEMORIZE
THE LIST OF PLANETS":VTAB10:.2980:SEC..
...FILE$."AND THEIR DISTANCES FROM THE S
UN--":VTAB12:.2980:SEC.1:.2900.....VTAB2
2:HTAB1:FILE$."WARNING: THE LIST WILL BE
QUICK!":.2990:CALL768:SEC.0...SPEED.255
:SEC.1:.2900:XMAX.9:XNUM.9:.1500.W...SKI
P.0:SQ.1:C$."":.800:SEC.3:.2900...B..130
00:VTAB11:FILE$." CAN YOU RECALL THE PLA
NETS IN ORDER?":.2970:C.F.L..I.1.9:AFT$(
I).PT$(I):RDR%(I).I:.I...V.SQ.0:SKIP.1:C
$."#":.800:SEC.5:.2900:.13000.=....13000
:VTAB11:FILE$."DID YOU RECALL ANY OF THE
PLANETS?":.2970:SEC......VTAB11:FILE$."
LET MEMORY TRAINER TEACH YOU HOW.":.2970
:CALL768:SEC.4:K.P...VTAB10:FILE$."FACE
":.2980:VTAB12:FILE$."NAME
":.2980.....VTAB19:HTAB1:FILE$."AS EASI
LY AS YOUR OWN!":.2990:CALL768:SEC.5:.29
.<...X..(13..(1).15):AN$.NM$(4..(1)).D..
.FILE$."FACE".D(X):.6500:SEC.1:.2900...&
.VTAB22:INVERSE:..5);AN$;.15);"321-5168"
;.26);"SEP 23,1953";TAB...0.VTAB24:HTAB1
:."TRY TO REMEMBER ";AN$;"'S PHONE & BIR
THDAY";:CALL768:SEC.:.:.VTAB4:."WHAT WAS
HER NAME?":SEC.5:.2900:CALL768:VTAB6:FI
LE$.AN$:KS...D.VTAB10:HTAB1:."WHAT WAS "
;AN$;"'S PHONE NUMBER?":SEC.5:.2900:CALL
76.J.N.VTAB16:HTAB1:."WHAT WAS ";AN$;"'S
BIRTHDAY?":SEC.5:.2900:CALL768:VT...X..
13000:VTAB10:FILE$."DID YOU REMEMBER ALL
THAT?":.2970:CALL768:KSU.3.B.W$."@":FIL
E$."I1":.7500:W$."".U.L..J.1.2:FILE$."75
289975219965414565925":.16000:SEC..5:.29
00:.J.A...SPEED.255:.13000:VTAB10:FILE$.
"THIS IS THE END OF THE DEMONSTRATION--"
:.L...VTAB17......"(PRESS <CTRL-C> TO RE
TURN TO MAIN MENU)":SEC.10:.2900:. 260./
...FILE$."LESSON1":SD$."A":.730.P...FILE
$."LESSON2":SD$."B":.730.Q...FILE$."LESS
ON3":SD$."B":.730.....FILE$."LESSON4":SD
$."C":.730...F.FILE$."LESSON5":SD$."C":.
730.T.P.FILE$."LESSON6":SD$."A":.730...Z
..".":VT%.10:. 30100. ...."BE SURE MEMOR
Y TRAINER ";".";"DISK ";SD$;".";.B...VT%
.12:. 30100:. 211,0:."IS PROPERLY INSERT
ED INTO DRIVE #1.".....VT%.18:. 30100:."
(PRESS <CTRL-C> TO CANCEL)".U...VT%.24:.
30100:. MU:."PRESS <SPACE BAR> TO RUN S
ELECTION...";...... 76:. 9520:. QN.1 . 1
10.4....".":VT%.12:.30100:. 211,4:."PREP
ARING TO RUN YOUR SELECTION".M....:.".":
." LOAD ";G(34);FILE$;G(34);",8";
"..."...... 76:.198,6:. 631,13...... 632
,F("."):. 633,F("R"):. 634,F("U"):. 635,
F("N").M.... 636,13:.... ..MOVING SCREEN
DISPLAY.#.*..13000:FILE$."THE LIST OF P
LANETS":INVERSE:.2990:N.MAL...4..I.1.9.F
.>.A.I:.SQ.1.A.RDR%(I).S.H..0,PITCH(RDR%
(I)):.RDR%(I).9..0,PITCH(1)...R.V.2.I).2
:HTAB7:CALL768:."(";A;")";.13);AFT$(A);.
21);PS$(A);.C.\.SEC.2:.2900...F..SKIP.0.
HTAB1:CALL.868...P..I:..&....13000:VT%.8
:.30100:."YOU HAVE JUST EXITED":.:.".";E
I$;"."._....:."THANK YOU FOR PLAYING!":V
T%.22:. 30100:. 204,0:..E.......... RAND
OM ORDER SELECTOR.....RDR%(1).XNUM..(1).
1......I.2.XMAX.....RDR%(I).XNUM..(1).1.
L....J.1.I.1......RDR%(I).RDR%(J).1530:.
GET A NEW RANDOM #......J:.I...?.....T.
.SEC DELAY.B.^.SEC.SEC.2.(SEC.0):.X.1.SE
C.1300:.:......L.B(37):SP$."":.X.1.20.C(
FILE$).2:SP$.SP$." ":.:FILE$.SP$.FILE$.B
....X.1.20:PR$.H(FILE$,X).I(FILE$,X):VTA
BL:HTAB21.X:.PR$:..V.... CENTER SLIDE..
....CENTER STRING........((40.C(FILE$)).
2));FILE$;.40):.211,1:....D.. HIRES DIS
PLAYER.X.N..".":. 6600:. LOAD COMPRESSED
PICTURE.{.X.. 49158:. 49152:.:. UNCOMPR
ESS...H.. LOAD FILE ROUTINE...R.FS.LD.3:
. FS,C(FILE$)...... T.1 . C(FILE$):. FS.
T,F(J(FILE$,T,1)):. T...... LD:.......WR
ITE TO PERSONAL DISK.#.F..8685:. INTRO T
O USER DISK.4.G.. QN.1 . 110.U.P.C$.G(B(
DE)):.C$."Y".110:.GO TO MAIN MENU; SUBJE
CT HAS A DISK...Z.RW$."WRITE ":SD$."A":.
7150...... DE,F("Y"):.110:.DISK FILE NOW
EXISTS.Y.... READ/WRITE TO DISK......"
.".....FILE$."I0":.7500...... QN.1 . ..O
...FG.11:. 2,8,2,FLNM$.".NAM":. IF FILE
DOESN'T EXIS ERROR OCCUR & 7250.X....2,A
.O....1,A:. A.20 . 7240..... 2:FG.0:.FI
LE EXISTS; SHOULD IT BE OVERWRITTEN?.T.
..".":VT%.11:.30100:."THE FILE .";FLNM$;
".";...!.." ALREADY EXISTS.":VT%.13:. 30
100.J.".."DO YOU WANT TO ERASE IT AND CR
EATE":.:."A NEW FILE WITH THE SAME NAME?
";._.$.." (Y/N) ";:. 71.N.%.. QN.1 . ...
.*..C$."N"..DE,F("Y"):.110:.SUBJECT HAS
A DISK FILE; DOESN'T.O.4..C$."Y". .1,"S0
:".FLNM$:. 7240.Y.>..7200. H..".":VT%.1
1:.30100:FILE$."PREPARING YOUR PERSONAL
DISK FILE":.2990.> R. 2:. ACTUAL DISK
ACCESS.L \.. 2,8,2,"@:".FLNM$.".NAM,SEQ,
W":.PEG NAME.. ^..2,0:. I.2 . 41:.2,PEG$
(I):. I.. `. 2.. B.. 2,8,2,"@:".FLNM$."
.LOC,SEQ,W".. D..2,0:. I.43 . 82:.2,"XXX
":. I.. E. 2..!F.. 2,8,2,"@:".FLNM$.".M
NT,SEQ,W".-!G..2,0:. I.84 . 95:.2,PEG$(I
):. I.5!H. 2.Y!I.. 2,8,2,"@:".FLNM$.".W
RD,SEQ,W".O!J..2,0:. I.97 . 156..!P..2,P
EG$(I):. ST . 191 . 17000..!R.. I: 2..!
.....!...".":.9550..!..VT%.6:. 30100:."Y
OUR PERSONAL DISK FILE IS CALLED:":VT%.8
.."... 30100:.".";FLNM$.E"..VT%.12:.3010
0:."REMOVE YOUR .PERSONAL DISK. AND INSE
RT":..R"..."MEMORY TRAINER .DISK A. INTO
DRIVE #1".~"...9500:..."L.. TEXT FILE S
CREEN WRITER.."V..".".D"`.. 2,8,2,FILE$:
. ST . 17000.P"J..I.1.24.."T..2,S9$(I):.
ST ..(ST.64 . I.24) . 17000..#~.. I: 2
.%#..."..";:FILE$.EI$:.2990:..1#...I.2.2
2.@#...S9$(I):.I.N#...W$."@".W$."":.:.SP
ECIAL FOR INTRODUCTION..#..VT%.24:. 3010
0:.S9$(23);:. 76..#... 9520..#... 76:.13
000:...#@..MENU SELECTOR.N#J..".":. 76..
#T.FILE$.EI$:.".";:.2990:."."..$^.VT%.24
:. 30100:."FILE NAME: ";".";FLNM$;".".]$
H.VT%.4:. 30100:.211,1:FILE$."MEMORY TRA
INER MAIN MENU":.2990.N$R..I.65.64.MAX.{
$|.S.I.64:.. $..VT%.S.6:.30100:.G(I)" :
"PGM$(S)..$...:...$...PV$."".8110..$..VT
%.20:.30100:."(YOUR PREVIOUS SELECTION W
AS '";PV$;"')".7%..VT%.18:.30100:."SELEC
T OPTION: ";:. 30200:. C TO END-OF-LINE.
O%... 71:C.F(C$):AN$.C$.{%B..(C.48.C.54)
.C.C.48:AN$.G(C.64):.:.8160..%L..C.65.C.
64.MAX.8120. %V..:C.C.64.X%..VT%.C.6:.30
100:.".";AN$;".";" : ";".";PGM$(C);".":.
..&..VT%.18:. 30100:.211,0:."IS THIS THE
SELECTION YOU WANT? (Y/N) ";.A&...71:.C
$.."Y".C$.."N"..B$;:.8180.`&...C$:.C$.."
N".PV$.AN$:.8210..&. VT%.C.6:.30100:.AN$
" : "PGM$(C):.8110..&. ...&4!.INITIAL SE
TUP..&\!. GET USER NAME ROUTINE..&F!."."
:FILE$.EI$:.".";:.2990:.".";:AFT$(1)."":
AFT$(2)."".,'Z!VT%.8:.30100:FILE$."---PL
EASE ENTER---":.2990.H'.!VT%.9:. 30100:.
:."A PERSONAL DISK FILE NAME: .......":.
..'.!VT%.10:.30100:. 211,27:. 72:.80:AFT
$(1).L$..'.!. QN.1 . ..G'.!.AFT$(1)."".A
FT$(1)." ".8590..'.!.I.1.C(AFT$(1)):.J(A
FT$(1),I,1)." ".8590..'.!.I.4(J!VT%.15:.
30100:.:."HAVE YOU TYPED IN YOUR FILE NA
ME";.G(L!. 30200:VT%.17:. 30100:.:."CORR
ECTLY? (Y/N) ";.S(N!. 30200..(T!. 71:.C$
."N".8550..(U!. QN.1 . ...(.!.C$.."Y".86
50..(.!FLNM$.AFT$(1):...(.!. INTRO TO US
ER DISK FILE..).!.".":VT%.6:. 30100:."ME
MORY TRAINER ALLOWS YOU TO USE A".R).!V
T%.8:.30100:."PERSONAL DISK FILE THAT ST
ORES YOUR"..)."VT%.10:.30100:."PERSONALI
ZED MEMORY TECHNIQUES."..)."VT%.15:.3010
0:."ENTER .C. TO CREATE A NEW PERSONAL".
.)."VT%.16:.30100:.:."DISK FILE NOW, OR
.U. TO USE AN"..*.".:."EXISTING PERSO
NAL DISK FILE.".?*.".:.:."PRESS .U. OR .
C. : ";.`*.". 71:.(C$."U").(C$."C").8745
.O*.". QN.1 . ..Y*$".8730..*)"UX$.C$:. 8
500..*.". DE,F("Y"):. UX$."C" . . DE,F("
N")..*8". NM,C(FLNM$):.STORE FILENAME &
LENGTH..+B".I.1.C(FLNM$):. NM.I,F(J(FLNM
$,I,1)):.I..+L"..$+(#. BUBBLE SORTER.2+<
#.J.1.TMAX.D+F#.I.I.1.TMAX.1.`+P#.RDR%(I
).RDR%(I.1).9080.|+Z#TEMP.RDR%(I+...~...
..S....M......S...~..Z.......S...~......
S....O.C.>S.>..>...K.1..AIT FOR SPACE BA
R TO CONTINUE..,&%VT%.24:.30100:."PRESS
<SPACE BAR> TO CONTINUE...";.%,0%. 76:.
73:. QN.1 . ..7,5%.C$.." ".9520.B,:%. 76
:..X,N%VT%.1:.30100:.211,1:FILE$.EI$:.".
";:.2990:.".";:...,.%. C$.G(3) . . 204,1
:PV$."":QN.1..,.%...,.'.INITIALIZATION.D
,.'.RDR%(10)..,.'. FOR WARM RUN ***..,$
'KMAX.10..-)'. PRINTD$;"BLOAD IMAGE,
D1".,-.'. FORI=1TO9:READPT$(I):NEXTI.T-8
'. DATAMERCURY,VENUS,EARTH,MARS,JUPITER
,SATURN,URANUS,NEPTUNE,PLUTO..-B'. PS$(1
)=" 36,000,000":PS$(2)=" 67,000,000"
:PS$(3)=" 93,000,000"...L'. 6)=" 886,
000,000":PS$(7)="1,782,000,000":PS$(8)="
2,792,000,000":PS$(.!.V'.I.0.4:.NM$(I):.
I.>.`'.GAIL,JANE,LIZ,LISA,ANNE.`.J'. FO
RI=0TO9:READSR$(I):NEXTI...T'. EXECUTIVE
S ,SALES PEOPLE ,STUDENTS ,SECRETA
RIES ,SPEAKERS.S..'.I.2.21:.PEGNAME$(I)
:.I:.MALE PEG-NAMES../.'. DOLLAR BILL,BO
BSLED,NOOSE,WAGON,WAVE,TENNIS,BED,HOT DO
G,HAIRY.B/.'. BEANSTALK,CHEF,JUNGLE,TOE,
YAWN,HEN,SHARK,MICROPHONE,PILL,STOVE,THU
MB../.'.I.22.41:.PEGNAME$(I):.I:.FEMALE
PEG-NAMES.V/.'. PALACE,ANT,BARREL,CAT,DO
ORS,ISLAND,SAIL,CHAIN,JEANS,BONE,JUICE..
0.'. JEWELRY,SKATE,PIZZA,LIZARD,TOOTH,BE
ACH,CHERRY,SHOW,WINDY.:0.'. 2,8,2,"PEG W
ORDS":. ST . 17000.S0.'.I.97.156:.2,PEG$
(I).L0.'. (ST . 191) . 17000.X0.'. I: 2
..0.'. CALL20517:REMCOPY PROTECTION AT
$5025..0.'.I.84.95:.PEG$(I):.I..1.'. JA
NITOR,FERRYBOAT,MARCHING,APE,FLOWERS,BRI
DE,JEWEL,WIND GUST,SIPPED.'1.'. OCTOPUS,
PILGRIM,SNOWMAN.M1D'EI$."THE EINSTEIN ME
MORY TRAINER".~1N'BL$(0)."THE FUN WAY TO
IMPROVE YOUR MEMORY."..1X'BL$(1)." NO C
OMPUTER EXPERIENCE NEEDED.".N1.'BL$(2)."
GREAT FOR ALL AGES..."..1.'BL$(3)." EXEC
UTIVES, STUDENTS, CHILDREN".+2.'BL$(4)."
THERE ARE MANY ACHIEVEMENT LEVELS.".^2.(
BL$(5)."COLORFUL GRAPHICS. PROVEN TECHNI
QUES."..2.(EI$."THE EINSTEIN MEMORY TRAI
NER"..2.). B(WR).200 . 11000..2.). LOAD
ROUTINE.Q2.). T.0 . 43:. BY:. LD.T,BY:.
T..3.). 76 , 205 , 193 , 0 , 32 , 210 ,
255 , 165 , 144 , 240 , 3.N3,). 76 , 148
, 197 , 234 , 234 , 234 , 234 , 234 , 1
69 , 4..3@). 162 , 8 , 160 , 1 , 32 , 18
6 , 255 , 173 , 189 , 193.E3T). 160 , 19
3 , 162 , 190 , 32 , 189 , 255 , 169 , 0
, 32.Z3H). 213 , 255 , 96..3R). READ IN
UNCOMP/RASTER ROUTINE..4|)FILE$."UN":.
6600.&4L). MUSIC STUFF.34V)SX.54272.U4.)
. T.1 . 9:. HF%(T),LF%(T):. T..4.). 16,1
95,18,209,21,31,22,96,25,30,28,49,31,165
,33,135,0,0..4.). T.SX . SX.24:. T,0:. T
.L4.). SX.5,9:. ATTACK/DECAY..4.*. SX.6,
0:. SUSTAIN/RELEASE..5.*. SX.24,10:. VOL
.(0-15)..5&*. MU ROUTINE.;50*. T.MU . MU
.28:. BY:. T,BY:. T..5D*. 169,31,128,0,2
12,169,21,141,1,212,169,33,141,4,212,160
,128,162..5X*. 0,202,208,253,136,208,248
,140,4,212,96.B5.*. READ FILE NAME..5.+D
SK$.G(B(DE)):FLNM$."NONE"..5.+.B(WR)..20
0.11900.36.+.DSK$."Y".FLNM$."":.I.1.B(NM
):FLNM$.FLNM$.G(B(NM.I))~>R...M.>...C.0.
Q.K.1..PTQ..Z...=.<..R...~..PTQ..;......
..~..;......=.......R...~..Z....;.......
./....~...;........"DESIGN BY : MICHAEL
G. SAMET, PH.D."..6..."PROGRAM BY: D. RO
SEN & D. RUBIN, PH.D.".$7..."LESSONS BY:
R. EDWARD GEISELMAN, PH.D.".S7..."COPYR
IGHT 1983 THE EINSTEIN CORPORATION".{7..
SEC.3:. 2900:VT%.21:. 30100:. 30200..7..
.:."ILLUSTRATIONS BY: RICK KRAUS
".Y7..."MUSIC BY: LARRY ORENSTEIN, ASC
AP "..7... 16100:. 49155:. WR,200..
7.....8H2. CENTER/OUT WIPEOUT.!8M2.".":
..`8R2.I.1.12:.34,12.I:.35,12.I:.33,4.3.
I:.32,24.2.I:CALL.936:FO.U8.>. MELODY P
LAYER..8.>.I.1.C(FILE$)..8.>X.E(J(FILE$,
I,1)).T8.>.SX.1,HF%(X):. SX,LF%(X):. SX.
4,33:SEC.0.07:. 2900..8.>. QN.1 . . SX.4
,0:...8.>. SX.4,0:. I:...9.>.MUSIC FOR L
OGO.49.>AX$."5345654234545345656979"._9.
>FILE$.AX$."5345654234545234568":.16000.
E9.?..Y9HB.ERROR HANDLING..9RB. 49155..9
|B.1,Y,B$: 2..9.B. Y=PEEK(222):X=PEE
K(218)+256*PEEK(219):REM X=LINE #; Y=E
RROR #..9.BL$."A0":.REVISION & LESSON #.
&:.BVT%.2:. 30100:."USER NAME: ";FLNM$.Q
:.BVT%.4:. 30100:."AN ERROR HAS OCCURED!
".Y:.BVT%.6:. 30100:."ERROR CODE: #";Y,B
$..:BBVT%.10:.30100:."ERROR MESSAGE: ";.
D:LB.Y.26.."DISK IS WRITE PROTECTED"..:V
B.Y.62.."FILE WAS NOT FOUND"..;.B.Y.72..
"YOUR DISK IS FULL".:;.BVT%.12:. 30100:.
".CHECK THAT THE APPROPRIATE DISK".F;.C.
:.".IS PROPERLY INSERTED IN DRIVE #1."..
;.CVTAB24:HTAB1:."PRESS <SPACE BAR> TO R
ESUME...";..;.C.71:. C$.." ".17170..;.C.
110.N;.U. VT% ROUTINE..;.URX.B(211)..;.
U.H(VT$,VT%);:. 211,RX:...<.U. EL ROUTIN
E..<.VRX.B(211).5<.V.H(EL$,39.RX);:. 211
,RX:...."".8110..:..VT%.20:.30100:."(YOU
R PREVIOUS SELECTION WAS '";PV$;"')"..:.
.VT%.18:.30100:."SELECT OPTION: ";:. 302
00:. TO END-OF-LINE..;...72:C.F(C$.ZE$):
AN$.C$..;L..C.65.C.64.MAX.8120.&;V..:C.C
.64.P;..VT%.C.6:.30100:.G(18);:.AN$;:.G(
146);.V;..." : ";:.G(18);:.PGM$(C):.G(14
6);..;..VT%.18:.30100:."IS THIS THE SELE
CTION YOU WANT? (Y/N) ";..;...71..;...C$
.."Y".C$.."N".8180:. CHCK APPLE LISTING?
??..<...C$:.C$.."N".PV$.AN$:.8210.6<. VT
%.C.6:.30100:.AN$" : "PGM$(C):.8110.<<.
..U<.%. WAIT FOR SPACE BAR..<&%. 211,0:V
T%.24:.30100:."PRESS <SPACE BAR> TO CONT
INUE...";..<'%.XX.1.10:.XX$:..B<0%. 73:.
C$.." " . 9520.X<:%.XX.1.10:.XX$:.:...<
.'. INITIALIZATION..<.'.RDR%(20)..=.'SD$
."A":D$.G(13).G(4).,=$'.I.1.10:.D1$(I):.
I.M=.'. SHARK-NAIL-TACK,FARM-BAT-PIN,CAM
P-FIN-SOUP, MAPS-PIPE-FOOT..=/'. BANK-FA
N-SHACK,LABEL-COAL-FIRE,MOTOR-NOSE-PILL.
V=0'. JUNK-MOVIE-ROAR,CART-JAM-LIP,NICKE
L-BUSH-SHIP..=8'.I.1.10:.D2$(I):.I.)>B'.
647-2517,843-9192,739-8209,390-9981,927
-8267,595-7584.S>C'. 314-2095,627-3844,7
41-6359,275-9669.N>L'KMAX.5:HIGH.KMAX:LO
W.1..>`'.I.1.20:.MEN$(I):.I.F>J'. BILL,B
OB,BRUCE,CHUCK,DAVE,DENNIS,ED,FRANK,HARR
Y,JACK,JEFF..>K'. JIM,JOE,JOHN,KEN,MARK,
MIKE,PHIL,STEVE,TOM..?T'.I.1.20:.WOMEN$(
I):.I.N?~'. ALICE,ANNE,CAROL,CATHY,DORIS
,EILEEN,GAIL,JANE,JEAN,JOAN..?'. JOYCE,
JULIE,KATE,LISA,LIZ,RUTH,SANDY,SHERRY,SU
E,WENDY..?.'.I.1.20:.PEGNAME$(I):.I:. MA
LE PEG-NAMES..?.'. DOLLAR BILL,BOBSLED,N
OOSE,WAGON,WAVE,TENNIS,BED. @.'. HOT DOG
,HAIRY,BEANSTALK,CHEF,JUNGLE,TOE,YAWN.L@
.'. HEN,SHARK,MICROPHONE,PILL,STOVE,THUM
B.|@.'.I.21.40:.PEGNAME$(I):.I:. FEMALE
PEG-NAMES..@.'. PALACE,ANT,BARREL,CAT,DO
ORS,ISLAND,SAIL,CHAIN,JEANS,BONE..A.'. J
UICE,JEWELRY,SKATE,PIZZA,LIZARD,TOOTH,BE
ACH,CHERRY,SHOE,WINDY.%A.'. 2,8,2,"PEG W
ORDS":. ST . 17000.HA.'.I.1.99:.2,EG$(I)
:. ST . 17000.OA.'.I.DA.' 2:. ST . 1700
0..A.'.I.1.5:.D3$(I):.I:. INITIALIZE FOR
1ST RECALL TEST.NA.'. 390-1128,647-4963
,439-6143,843-1958,927-3384..AD'.I.0.9:.
EG$(I):.I..BN'. SAUCE,SEAT,SUN,SEAM,SORE
,SEAL,SASH,SOCK,SAFE,SOUP..BL). MUSIC ST
UFF.;BV)SX.54272.]B.). T.1 . 9:. HF%(T),
LF%(T):. T..B.). 16,195,18,209,21,31,22,
96,25,30,28,49,31,165,33,135,0,0..B.)...
B.*. READ FILE NAME..B.+DSK$.G(B(DE)):.D
SK$.."Y".FLNM$."":. 11700..B.+.I.1.B(NM)
..C.+FLNM$.FLNM$.G(B(NM.I)):.I.-C.-. REA
L RANDOM GENERATOR.EC.-A.B(78):. 78 IS $
4E.^CH-B.A.1:. BE SURE A<>0.}CR-.X.1.10:
.202,B:ANS..(1):.X..CR..I.0.9:.PITCH(I):
.I..CS..0,PITCH(.(7..(1)).1).UC|.. 0,133
,121,107,100,90,80,70,66,1..C.....CH2. C
ENTER/OUT WIPEOUT..D63.I.1.12:.34,12.I:.
35,12.I:.33,4.3.I.<D73.32,24.2.I:.G(147)
;:.J.1.60.HD83.J:.I:..\D.>. MELODY PLAYE
R.ND.>.I.1.C(FILE$)..D.>X.E(J(FILE$,I,1)
)..D.>. SX.1,HF%(X):. SX,LF%(X):. SX.4,3
3:SEC.0.07:. 2900.OD.>. SX.4,0:. I:...DH
B. ERROR HANDLING..DRB. 49155:.G(147);..
E|B.1,Y,B$: 2.6E.B. Y=PEEK(222):X=PEEK
(218)+256*PEEK(219).PE.B. X=LINE #; Y=ER
ROR #.RE.BL$."A5":. REVISION & LESSON #.
.E.BVT%.2:.30100:."USER NAME: ";:.G(18);
..E.B.FLNM$;:.G(146);.QE.BVT%.4:.30100:.
211,0:.G(146);..E.B."AN ERROR HAS OCCURE
D!"..F.BVT%.6:.30100:."ERROR CODE: #";Y;
.27);L$;B$.CFBBVT%.10:.30100:."ERROR MES
SAGE: ";.HFLB.Y.26.."DISK IS WRITE PROTE
CTED"..FVB.Y.62.."FILE WAS NOT FOUND"..F
.B.Y.72.."YOUR DISK IS FULL".HF.BVT%.12:
.30100:.211,0:.G(18);..F.B."CHECK THAT T
HE APPROPRIATE DISK":VT%.14:.30100./G.C.
"IS PROPERLY INSERTED IN DRIVE #1.":.G(1
46);.KG.CVT%.24:.30100:.211,0:."PRESS <S
PACE BAR> TO RESUME...";.G.C.XX.1.10:.X
X$:...G.C.XX$:X.F(XX$.ZE$).128:.X..160.1
7170..G.C.110:. TO MAIN MENU..GLJVT%.21:
.30100:.211,0:AX.ANS:."YOUR SCORE: ";..H
MJ.G(18);:.SC.AX;:.G(146);.!HVJ.AX.SC.TS
.27360.\HWJTS.AX.SC:. 211,20:.G(7);:FILE
$."HIGHEST SCORE: ".D(TS).WHXJSEC.4:. 30
000:.G(146);..H.J.211,20:."HIGHEST SCORE
: ";:.G(18);..H.J.TS;:.G(146);..H.J.9500
:..QH0U. FLASH ROUTINE..H:U. STRING IN F
ILE$, TIME IN SEC..IDUVT%.B(214).1:HT%.B
(211):TI$."000000".CINU. 211,HT%:. 30100
:.".";FILE$;".";.RIXU. TD.1 . 60:. TD:.
211,HT%:. 30100:.FILE$;..IBU. TD.1 . 60:
. TD..ILU. TI.SEC.60 . 30030..IVU...I.U.
VTAB ROUTINE.KI.U. ROW # IN VT%.ZI.UXX%
.B(211)..I.U.H(VT$,VT%);..I.U.211,XX%..I
FU...J.U. EL ROUTINE..J.VRX.B(211).6J.V.
H(EL$,40.RX);"...";.EJ V. 211,RX:....
> CLICK IMAGE PREVIEW FOR FULL MODAL