00000000: 01 40 88 40 01 00 DE 30 3A E7 34 2C 31 3A E7 30 |.@.@...0:.4,1:.0|
00000010: 2C 31 3A 99 22 93 11 11 05 2A 31 2A 22 2C 22 1C |,1:."....*1*",".|
00000020: 2A 32 2A 22 2C 22 9F 2A 33 2A 22 2C 22 9C 2A 34 |*2*",".*3*",".*4|
00000030: 2A 22 2C 22 11 1E 2A 35 2A 22 2C 22 1F 2A 36 2A |*","..*5*",".*6*|
00000040: 22 2C 22 9E 2A 37 2A 22 2C 22 81 2A 38 2A 22 2C |",".*7*",".*8*",|
00000050: 22 11 95 2A 39 2A 22 2C 22 96 2A 31 30 2A 22 2C |"..*9*",".*10*",|
00000060: 22 97 2A 31 31 2A 22 2C 22 98 2A 31 32 2A 22 2C |".*11*",".*12*",|
00000070: 22 11 99 2A 31 33 2A 22 2C 22 9A 2A 31 34 2A 22 |"..*13*",".*14*"|
00000080: 2C 22 9B 2A 31 35 2A 22 00 E4 40 02 00 99 22 11 |,".*15*"..@...".|
00000090: 11 9A 57 48 41 54 20 43 4F 4C 4F 52 20 57 4F 55 |..WHAT COLOR WOU|
000000A0: 4C 44 20 59 4F 55 20 4C 49 4B 45 20 59 4F 55 52 |LD YOU LIKE YOUR|
000000B0: 20 44 45 53 49 47 4E 2E 2E 2E 22 3A 85 22 11 11 | DESIGN...":."..|
000000C0: 43 48 4F 4F 53 45 20 31 20 54 4F 20 31 35 20 50 |CHOOSE 1 TO 15 P|
000000D0: 4C 45 41 53 45 22 3B 43 3A 8B 43 B3 31 B0 43 B1 |LEASE";C:.C.1.C.|
000000E0: 31 35 A7 31 00 20 41 03 00 E7 31 2C B5 28 43 AA |15.1. A...1,.(C.|
000000F0: 31 29 3A 85 22 11 11 9F 48 4F 57 20 4D 41 4E 59 |1):."...HOW MANY|
00000100: 20 50 4F 49 4E 54 53 20 28 33 20 54 4F 20 33 30 | POINTS (3 TO 30|
00000110: 29 22 3B 50 3A 8B 50 B3 33 B0 50 B1 33 30 A7 33 |)";P:.P.3.P.30.3|
00000120: 00 8A 41 04 00 86 58 31 28 31 30 30 29 2C 59 31 |..A...X1(100),Y1|
00000130: 28 31 30 30 29 3A 43 B2 31 3A DE 31 2C 31 3A E9 |(100):C.1:.1,1:.|
00000140: 31 2C 31 30 30 30 2C 31 30 30 30 3A E2 31 2C 35 |1,1000,1000:.1,5|
00000150: 30 30 2C 35 30 30 2C 34 30 30 2C 34 35 30 2C 2C |00,500,400,450,,|
00000160: 2C 2C 31 3A 81 49 B2 30 A4 32 AC FF A9 32 AC FF |,,1:.I.0.2...2..|
00000170: AC 28 31 AD 50 29 3A 58 B2 B5 28 35 30 30 AA 34 |.(1.P):X..(500.4|
00000180: 30 30 AC 28 BF 28 49 29 29 29 00 E8 41 05 00 59 |00.(.(I)))..A..Y|
00000190: B2 B5 28 35 30 30 AA 34 35 30 AC 28 BE 28 49 29 |..(500.450.(.(I)|
000001A0: 29 29 3A 58 31 28 43 29 B2 58 3A 59 31 28 43 29 |)):X1(C).X:Y1(C)|
000001B0: B2 59 3A 43 B2 43 AA 31 3A 82 3A 81 41 B2 31 A4 |.Y:C.C.1:.:.A.1.|
000001C0: 50 3A 81 42 B2 41 A4 50 3A E5 31 2C 58 31 28 42 |P:.B.A.P:.1,X1(B|
000001D0: 29 2C 59 31 28 42 29 A4 58 31 28 41 29 2C 59 31 |),Y1(B).X1(A),Y1|
000001E0: 28 41 29 3A 82 42 2C 41 00 75 42 06 00 41 B2 31 |(A):.B,A.uB..A.1|
000001F0: 3A 4D 24 28 30 29 B2 22 20 20 50 52 45 53 53 20 |:M$(0)." PRESS |
00000200: 27 52 45 54 55 52 4E 27 20 54 4F 20 4D 41 4B 45 |'RETURN' TO MAKE|
00000210: 20 41 20 4E 45 57 20 44 45 53 49 47 4E 22 3A 4D | A NEW DESIGN":M|
00000220: 24 28 31 29 B2 22 20 20 20 20 20 50 52 45 53 53 |$(1)." PRESS|
00000230: 20 54 48 45 20 27 53 50 41 43 45 20 42 41 52 27 | THE 'SPACE BAR'|
00000240: 20 54 4F 20 51 55 49 54 20 20 20 22 3A EB 3A 41 | TO QUIT ":.:A|
00000250: B2 AB 28 41 B2 30 29 3A E0 31 2C 30 2C 32 34 2C |..(A.0):.1,0,24,|
00000260: 4D 24 28 41 29 3A 81 49 B2 31 A4 31 30 30 3A 8D |M$(A):.I.1.100:.|
00000270: 37 3A 82 3A EC 00 A0 42 07 00 A1 20 52 24 3A 8B |7:.:...B... R$:.|
00000280: 52 24 B2 C7 28 31 33 29 A7 8A 3A D5 8B 52 24 B2 |R$..(13)..:..R$.|
00000290: C7 28 33 32 29 A7 DE 30 2C 31 3A 80 3A D5 20 8E |.(32)..0,1:.:. .|
000002A0: 00 00 00 |... |
.@.@...0:.4,1:.0,1:."....*1*",".*2*",".*
3*",".*4*","..*5*",".*6*",".*7*",".*8*",
"..*9*",".*10*",".*11*",".*12*","..*13*"
,".*14*",".*15*"..@..."...WHAT COLOR WOU
LD YOU LIKE YOUR DESIGN...":."..CHOOSE 1
TO 15 PLEASE";C:.C.1.C.15.1. A...1,.(C.
1):."...HOW MANY POINTS (3 TO 30)";P:.P.
3.P.30.3..A...X1(100),Y1(100):C.1:.1,1:.
1,1000,1000:.1,500,500,400,450,,,,1:.I.0
.2...2...(1.P):X..(500.400.(.(I)))..A..Y
..(500.450.(.(I))):X1(C).X:Y1(C).Y:C.C.1
:.:.A.1.P:.B.A.P:.1,X1(B),Y1(B).X1(A),Y1
(A):.B,A.UB..A.1:M$(0)." PRESS 'RETURN'
TO MAKE A NEW DESIGN":M$(1)." PRESS
THE 'SPACE BAR' TO QUIT ":.:A..(A.0):
.1,0,24,M$(A):.I.1.100:.7:.:.. B... R$:.
R$.G(13)..:U.R$.G(32)..0,1:.:U ....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL