MIND

00000000: 01 04 17 04 00 00 9C 3A  97 35 39 34 36 38 2C 31  |.......:.59468,1|
00000010: 34 3A 50 4B B2 31 32 00  41 04 01 00 8F 20 4D 49  |4:PK.12.A.... MI|
00000020: 4E 44 20 43 4F 50 59 52  49 47 48 54 20 28 43 29  |ND COPYRIGHT (C)|
00000030: 20 31 39 37 39 20 47 4C  45 4E 20 46 49 53 48 45  | 1979 GLEN FISHE|
00000040: 52 00 61 04 02 00 8F 20  43 55 52 53 4F 52 20 23  |R.a.... CURSOR #|
00000050: 37 2C 20 46 45 42 52 55  41 52 59 2C 20 31 39 37  |7, FEBRUARY, 197|
00000060: 39 00 82 04 03 00 8F 20  42 4F 58 20 35 35 30 2C  |9...... BOX 550,|
00000070: 20 47 4F 4C 45 54 41 2C  20 43 41 2E 20 39 33 30  | GOLETA, CA. 930|
00000080: 31 37 00 88 04 04 00 3A  00 A6 04 5A 00 50 47 24  |17.....:...Z.PG$|
00000090: B2 22 4D 49 4E 44 22 3A  4E 4D 24 B2 22 37 22 3A  |."MIND":NM$."7":|
000000A0: 8D 36 32 30 30 30 00 B4  04 64 00 43 52 24 B2 C7  |.62000...d.CR$..|
000000B0: 28 31 33 29 00 F5 04 69  00 99 22 44 4F 20 59 4F  |(13)...i.."DO YO|
000000C0: 55 20 57 41 4E 54 20 41  20 4C 49 4D 49 54 20 4F  |U WANT A LIMIT O|
000000D0: 4E 20 54 48 45 20 4E 55  4D 42 45 52 20 4F 46 22  |N THE NUMBER OF"|
000000E0: 3A 99 22 47 55 45 53 53  45 53 3F 20 22 3B 3A 8D  |:."GUESSES? ";:.|
000000F0: 36 30 30 30 30 00 23 05  6E 00 49 4E 24 B2 C8 28  |60000.#.n.IN$..(|
00000100: 49 4E 24 2C 31 29 3A 8B  49 4E 24 B2 22 4E 22 B0  |IN$,1):.IN$."N".|
00000110: 49 4E 24 B2 22 22 A7 4C  4D B2 31 45 33 38 3A 89  |IN$."".LM.1E38:.|
00000120: 32 30 30 00 56 05 73 00  8B 49 4E 24 B3 B1 22 59  |200.V.s..IN$.."Y|
00000130: 22 A7 99 22 50 4C 45 41  53 45 20 41 4E 53 57 45  |".."PLEASE ANSWE|
00000140: 52 20 27 59 45 53 27 20  4F 52 20 27 4E 4F 27 2E  |R 'YES' OR 'NO'.|
00000150: 22 3A 89 31 30 35 00 80  05 78 00 99 22 57 48 41  |":.105...x.."WHA|
00000160: 54 20 53 48 4F 55 4C 44  20 54 48 45 20 4C 49 4D  |T SHOULD THE LIM|
00000170: 49 54 20 42 45 3F 20 22  3B 3A 8D 36 30 30 30 30  |IT BE? ";:.60000|
00000180: 00 AA 05 82 00 8B 49 4E  24 B2 22 22 A7 99 22 49  |......IN$."".."I|
00000190: 27 4C 4C 20 41 53 53 55  4D 45 20 31 30 2E 22 3A  |'LL ASSUME 10.":|
000001A0: 4C 4D B2 31 30 3A 89 32  30 30 00 C8 05 8C 00 81  |LM.10:.200......|
000001B0: 49 B2 31 A4 C3 28 49 4E  24 29 3A 54 24 B2 CA 28  |I.1..(IN$):T$..(|
000001C0: 49 4E 24 2C 49 2C 31 29  00 F8 05 96 00 8B 54 24  |IN$,I,1)......T$|
000001D0: B3 22 30 22 B0 54 24 B1  22 39 22 A7 99 22 4E 4F  |."0".T$."9".."NO|
000001E0: 20 22 3B 54 24 3B 22 27  53 2C 20 50 4C 45 41 53  | ";T$;"'S, PLEAS|
000001F0: 45 2E 22 3A 89 31 32 30  00 09 06 A0 00 82 49 3A  |E.":.120......I:|
00000200: 4C 4D B2 C5 28 49 4E 24  29 00 24 06 C8 00 87 54  |LM..(IN$).$....T|
00000210: 24 3A 8B 54 24 B3 B1 22  22 A7 43 B2 43 AA 31 3A  |$:.T$.."".C.C.1:|
00000220: 89 32 30 30 00 4E 06 CD  00 83 52 45 44 2C 4F 52  |.200.N....RED,OR|
00000230: 41 4E 47 45 2C 59 45 4C  4C 4F 57 2C 47 52 45 45  |ANGE,YELLOW,GREE|
00000240: 4E 2C 42 4C 55 45 2C 56  49 4F 4C 45 54 2C 00 80  |N,BLUE,VIOLET,..|
00000250: 06 D2 00 4E B2 34 3A 43  5A B2 36 3A 42 24 B2 22  |...N.4:CZ.6:B$."|
00000260: 22 3A 81 49 B2 31 A4 43  5A 3A 42 24 B2 42 24 AA  |":.I.1.CZ:B$.B$.|
00000270: 22 20 22 3A 4C 24 B2 4C  24 AA 22 C0 22 3A 82 49  |" ":L$.L$.".":.I|
00000280: 00 9B 06 DC 00 86 50 28  4E 29 2C 47 28 4E 29 2C  |......P(N),G(N),|
00000290: 50 53 28 4E 29 2C 43 24  28 43 29 00 CA 06 E6 00  |PS(N),C$(C).....|
000002A0: 8C 3A 81 49 B2 31 A4 43  3A 87 43 24 3A 43 24 28  |.:.I.1.C:.C$:C$(|
000002B0: 49 29 B2 C8 28 43 24 AA  42 24 2C 43 5A 29 3A 82  |I)..(C$.B$,CZ):.|
000002C0: 49 3A 43 24 28 30 29 B2  42 24 00 FA 06 F0 00 48  |I:C$(0).B$.....H|
000002D0: 24 B2 22 92 22 3A 4D 24  B2 22 92 22 3A 81 49 B2  |$.".":M$.".":.I.|
000002E0: 31 A4 4E 3A 48 24 B2 48  24 AA 22 D1 22 3A 4D 24  |1.N:H$.H$.".":M$|
000002F0: B2 4D 24 AA 22 D7 22 3A  82 49 00 1A 07 F4 01 54  |.M$.".":.I.....T|
00000300: 42 B2 36 3A 96 A5 54 28  4E 29 B2 28 43 5A AA 31  |B.6:..T(N).(CZ.1|
00000310: 29 AC 28 4E AB 31 29 AA  54 42 00 39 07 E8 03 81  |).(N.1).TB.9....|
00000320: 49 B2 31 A4 4E 3A 50 28  49 29 B2 B5 28 BB 28 31  |I.1.N:P(I)..(.(1|
00000330: 29 AC 43 29 AA 31 3A 82  49 00 62 07 F2 03 99 22  |).C).1:.I.b...."|
00000340: 93 22 3B 3A 81 49 B2 31  A4 4E 3A 99 A3 A5 54 28  |.";:.I.1.N:...T(|
00000350: 49 29 AA 28 43 5A AD 32  29 AB 31 29 3B 49 3B 3A  |I).(CZ.2).1);I;:|
00000360: 82 49 00 7F 07 FC 03 99  3A 81 49 B2 31 A4 4E 3A  |.I......:.I.1.N:|
00000370: 99 A3 A5 54 28 49 29 29  3B 4C 24 3B 3A 82 49 00  |...T(I));L$;:.I.|
00000380: 9D 07 06 04 47 4D B2 47  4D AA 31 3A 54 4E B2 30  |....GM.GM.1:TN.0|
00000390: 3A 99 22 13 47 41 4D 45  22 3A 99 47 4D 00 AE 07  |:.".GAME":.GM...|
000003A0: 4C 04 8B 54 4E B1 B2 4C  4D A7 31 39 36 30 00 DE  |L..TN..LM.1960..|
000003B0: 07 56 04 54 4E B2 54 4E  AA 31 3A 54 54 B2 54 54  |.V.TN.TN.1:TT.TT|
000003C0: AA 31 3A 99 A3 54 42 AB  33 29 3B C9 28 C4 28 54  |.1:..TB.3);.(.(T|
000003D0: 4E 29 2C 32 29 3A 54 B2  31 3A 4F 54 B2 54 00 F3  |N),2):T.1:OT.T..|
000003E0: 07 60 04 81 49 B2 31 A4  4E 3A 47 28 49 29 B2 30  |.`..I.1.N:G(I).0|
000003F0: 3A 82 49 00 16 08 B0 04  8B 4F 54 B3 B1 54 A7 99  |:.I......OT..T..|
00000400: 22 91 22 3B A3 A5 54 28  4F 54 29 29 3B 43 24 28  |".";..T(OT));C$(|
00000410: 47 28 4F 54 29 29 00 23  08 BA 04 8B 54 B3 31 A7  |G(OT)).#....T.1.|
00000420: 54 B2 4E 00 30 08 C4 04  8B 54 B1 4E A7 54 B2 31  |T.N.0....T.N.T.1|
00000430: 00 53 08 CE 04 99 22 91  22 3B A3 A5 54 28 54 29  |.S....".";..T(T)|
00000440: 29 3B 22 12 22 3B 43 24  28 47 28 54 29 29 3A 4F  |);".";C$(G(T)):O|
00000450: 54 B2 54 00 67 08 14 05  A1 54 24 3A 8B 54 24 B2  |T.T.g....T$:.T$.|
00000460: 22 22 A7 31 33 30 30 00  86 08 1E 05 8B 54 24 B2  |"".1300......T$.|
00000470: 22 20 22 B0 54 24 B2 22  1D 22 A7 54 B2 54 AA 31  |" ".T$.".".T.T.1|
00000480: 3A 89 31 32 30 30 00 A7  08 28 05 8B 54 24 B2 C7  |:.1200...(..T$..|
00000490: 28 32 30 29 B0 54 24 B2  22 9D 22 A7 54 B2 54 AB  |(20).T$.".".T.T.|
000004A0: 31 3A 89 31 32 30 30 00  BA 08 32 05 8B 54 24 B2  |1:.1200...2..T$.|
000004B0: C7 28 31 33 29 A7 32 30  30 30 00 C5 08 3C 05 81  |.(13).2000...<..|
000004C0: 49 B2 31 A4 43 00 F4 08  46 05 3A 8B 54 24 B2 CA  |I.1.C...F.:.T$..|
000004D0: 28 22 31 32 33 34 35 36  37 38 39 22 2C 49 2C 31  |("123456789",I,1|
000004E0: 29 B0 54 24 B2 C8 28 43  24 28 49 29 2C 31 29 A7  |).T$..(C$(I),1).|
000004F0: 31 39 30 30 00 FB                                 |1900..          |

.......:.59468,14:PK.12.A.... MIND COPYR
IGHT (C) 1979 GLEN FISHER.A.... CURSOR #
7, FEBRUARY, 1979...... BOX 550, GOLETA,
 CA. 93017.....:...Z.PG$."MIND":NM$."7":
.62000...D.CR$.G(13)...I.."DO YOU WANT A
 LIMIT ON THE NUMBER OF":."GUESSES? ";:.
60000.#.N.IN$.H(IN$,1):.IN$."N".IN$."".L
M.1E38:.200.V.S..IN$.."Y".."PLEASE ANSWE
R 'YES' OR 'NO'.":.105...X.."WHAT SHOULD
 THE LIMIT BE? ";:.60000......IN$."".."I
'LL ASSUME 10.":LM.10:.200.H....I.1.C(IN
$):T$.J(IN$,I,1)......T$."0".T$."9".."NO
 ";T$;"'S, PLEASE.":.120... ..I:LM.E(IN$
).$.H..T$:.T$.."".C.C.1:.200.N.M..RED,OR
ANGE,YELLOW,GREEN,BLUE,VIOLET,...R.N.4:C
Z.6:B$."":.I.1.CZ:B$.B$." ":L$.L$.".":.I
......P(N),G(N),PS(N),C$(C).J....:.I.1.C
:.C$:C$(I).H(C$.B$,CZ):.I:C$(0).B$.....H
$.".":M$.".":.I.1.N:H$.H$."Q":M$.M$."W":
.I.....TB.6:..T(N).(CZ.1).(N.1).TB.9....
I.1.N:P(I)..(.(1).C).1:.I.B....".";:.I.1
.N:...T(I).(CZ.2).1);I;:.I.....:.I.1.N:
...T(I));L$;:.I.....GM.GM.1:TN.0:.".GAME
":.GM...L..TN..LM.1960...V.TN.TN.1:TT.TT
.1:..TB.3);I(D(TN),2):T.1:OT.T...`..I.1.
N:G(I).0:.I......OT..T..".";..T(OT));C$(
G(OT)).#....T.1.T.N.0.D..T.N.T.1.S.N..".
";..T(T));".";C$(G(T)):OT.T.G....T$:.T$.
"".1300......T$." ".T$.".".T.T.1:.1200..
.(..T$.G(20).T$.".".T.T.1:.1200...2..T$.
G(13).2000.E.<..I.1.C...F.:.T$.J("123456
789",I,1).T$.H(C$(I),1).1900..

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL