> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 37 08 64 00 8F 20 49 4E 46 4F 20 54 45 54 |..7.d.. INFO TET|
00000010: 52 41 43 52 59 53 54 41 4C 53 3A 20 45 2E 47 2E |RACRYSTALS: E.G.|
00000020: 48 41 4D 4E 45 52 20 46 45 42 20 31 39 38 34 2E |HAMNER FEB 1984.|
00000030: 20 46 55 4E 48 55 47 00 56 08 6E 00 50 B2 35 33 | FUNHUG.V.n.P.53|
00000040: 32 38 30 3A 97 50 2C 30 3A 97 50 AA 31 2C 30 3A |280:.P,0:.P.1,0:|
00000050: 97 36 34 36 2C 35 00 8B 08 78 00 50 54 24 B2 22 |.646,5...x.PT$."|
00000060: 93 12 20 20 20 20 20 20 20 20 20 20 49 4E 46 4F |.. INFO|
00000070: 20 20 20 54 45 54 52 41 43 52 59 53 54 41 4C 53 | TETRACRYSTALS|
00000080: 20 20 20 20 20 20 20 20 20 20 22 00 9A 08 7D 00 | "...}.|
00000090: 99 22 93 22 3A 8D 31 30 30 30 00 AE 08 82 00 99 |.".":.1000......|
000000A0: 50 54 24 3A 81 5A B2 30 A4 35 30 30 3A 82 00 C3 |PT$:.Z.0.500:...|
000000B0: 08 8C 00 99 22 11 9E 48 4F 57 20 54 4F 20 50 4C |...."..HOW TO PL|
000000C0: 41 59 1E 00 DF 08 96 00 99 22 11 46 55 4E 43 54 |AY.......".FUNCT|
000000D0: 49 4F 4E 20 4B 45 59 20 50 52 45 53 45 54 53 00 |ION KEY PRESETS.|
000000E0: 00 09 A0 00 99 22 11 20 20 46 31 20 43 48 41 4E |.....". F1 CHAN|
000000F0: 47 45 53 20 42 4F 52 44 45 52 20 43 4F 4C 4F 52 |GES BORDER COLOR|
00000100: 00 21 09 AA 00 99 22 11 20 20 46 32 20 43 4E 41 |.!....". F2 CNA|
00000110: 4E 47 45 53 20 53 43 52 45 45 4E 20 43 4F 4C 4F |NGES SCREEN COLO|
00000120: 52 00 40 09 B4 00 99 22 11 20 20 46 35 20 53 45 |R.@....". F5 SE|
00000130: 54 53 20 52 45 56 45 52 53 45 20 56 49 44 45 4F |TS REVERSE VIDEO|
00000140: 00 5F 09 BE 00 99 22 11 20 20 46 37 20 53 54 41 |._....". F7 STA|
00000150: 52 54 53 20 54 48 45 20 50 52 4F 47 52 41 4D 00 |RTS THE PROGRAM.|
00000160: 68 09 C8 00 8D 34 39 30 00 86 09 D2 00 99 22 11 |h....490......".|
00000170: 9E 50 52 4F 47 52 41 4D 20 53 50 45 45 44 3A 20 |.PROGRAM SPEED: |
00000180: 30 2D 39 39 39 1E 00 AD 09 DC 00 99 22 11 5A 45 |0-999.......".ZE|
00000190: 52 4F 2D 39 39 20 49 53 20 52 41 50 49 44 20 20 |RO-99 IS RAPID |
000001A0: 20 20 47 52 4F 57 54 48 20 52 41 54 45 00 D4 09 | GROWTH RATE...|
000001B0: E6 00 99 22 11 31 30 30 2D 34 30 30 20 49 53 20 |...".100-400 IS |
000001C0: 4D 4F 44 45 52 41 54 45 20 47 52 4F 57 54 48 20 |MODERATE GROWTH |
000001D0: 52 41 54 45 00 FB 09 F0 00 99 22 11 34 30 30 2D |RATE......".400-|
000001E0: 39 39 39 20 49 53 20 53 4C 4F 57 20 20 20 20 20 |999 IS SLOW |
000001F0: 47 52 4F 57 54 48 20 52 41 54 45 00 04 0A FA 00 |GROWTH RATE.....|
00000200: 8D 34 39 30 00 1C 0A 04 01 99 22 11 9E 43 48 41 |.490......"..CHA|
00000210: 52 41 43 54 45 52 20 53 45 54 53 1E 00 3A 0A 0E |RACTER SETS..:..|
00000220: 01 99 22 11 43 48 4F 4F 53 45 20 53 45 54 20 31 |..".CHOOSE SET 1|
00000230: 2C 32 2C 33 2C 20 4F 52 20 34 00 43 0A 18 01 8D |,2,3, OR 4.C....|
00000240: 34 39 30 00 5F 0A 22 01 99 22 11 9E 50 4C 41 4E |490._.".."..PLAN|
00000250: 54 20 54 48 45 20 43 52 59 53 54 41 4C 53 1E 00 |T THE CRYSTALS..|
00000260: 90 0A 2C 01 99 22 11 43 48 4F 4F 53 45 20 58 20 |..,..".CHOOSE X |
00000270: 41 4E 44 20 59 20 43 4F 4F 52 44 49 4E 41 54 45 |AND Y COORDINATE|
00000280: 53 3A 20 9E 41 20 54 48 52 4F 55 47 48 20 50 1E |S: .A THROUGH P.|
00000290: 00 BB 0A 36 01 99 22 11 43 52 59 53 54 41 4C 20 |...6..".CRYSTAL |
000002A0: 54 59 50 45 3A 20 31 20 28 53 45 45 44 29 20 4F |TYPE: 1 (SEED) O|
000002B0: 52 20 32 20 28 4D 4F 4E 41 44 29 00 D4 0A 40 01 |R 2 (MONAD)...@.|
000002C0: 99 22 11 43 48 4F 4F 53 45 20 43 4F 4C 4F 52 3A |.".CHOOSE COLOR:|
000002D0: 20 31 2D 38 00 03 0B 4A 01 99 22 11 20 20 20 46 | 1-8...J..". F|
000002E0: 31 20 4B 45 59 3A 20 43 41 4E 43 45 4C 20 43 48 |1 KEY: CANCEL CH|
000002F0: 4F 49 43 45 53 20 28 55 50 20 54 4F 20 43 4F 4C |OICES (UP TO COL|
00000300: 4F 52 29 00 24 0B 54 01 99 22 11 20 20 20 46 37 |OR).$.T..". F7|
00000310: 20 4B 45 59 3A 20 53 54 41 52 54 20 54 48 45 20 | KEY: START THE |
00000320: 47 41 4D 45 00 2D 0B 5E 01 8D 34 39 30 00 4A 0B |GAME.-.^..490.J.|
00000330: 68 01 99 22 11 9E 4F 50 54 49 4F 4E 53 20 44 55 |h.."..OPTIONS DU|
00000340: 52 49 4E 47 20 47 41 4D 45 1E 00 70 0B 72 01 99 |RING GAME..p.r..|
00000350: 22 11 20 20 20 46 31 20 52 55 4E 20 50 52 4F 47 |". F1 RUN PROG|
00000360: 52 41 4D 20 41 46 54 45 52 20 46 37 20 4B 45 59 |RAM AFTER F7 KEY|
00000370: 00 96 0B 7C 01 99 22 11 20 20 20 46 33 20 53 4C |...|..". F3 SL|
00000380: 4F 57 53 20 47 52 4F 57 54 48 3A 20 53 45 4C 45 |OWS GROWTH: SELE|
00000390: 43 54 20 31 2D 39 00 BD 0B 86 01 99 22 11 20 20 |CT 1-9......". |
000003A0: 20 46 35 20 53 50 45 45 44 53 20 47 52 4F 57 54 | F5 SPEEDS GROWT|
000003B0: 48 3A 20 53 45 4C 45 43 54 20 31 2D 39 00 FE 0B |H: SELECT 1-9...|
000003C0: 90 01 99 22 11 20 20 20 46 37 20 53 54 4F 50 53 |...". F7 STOPS|
000003D0: 20 47 52 4F 57 54 48 3A 20 52 45 50 45 41 54 20 | GROWTH: REPEAT |
000003E0: 46 37 20 20 46 4F 52 20 20 20 20 20 20 20 20 20 |F7 FOR |
000003F0: 20 20 20 53 49 4E 47 4C 45 20 53 54 45 50 00 3C | SINGLE STEP.<|
00000400: 0C 9A 01 99 22 11 20 20 20 46 32 20 41 44 44 53 |....". F2 ADDS|
00000410: 20 53 45 45 44 53 3A 20 52 41 4E 44 4F 4D 2D 43 | SEEDS: RANDOM-C|
00000420: 4F 4C 4F 52 20 41 4E 44 20 20 20 20 20 20 20 20 |OLOR AND |
00000430: 20 20 20 20 4C 4F 43 41 54 49 4F 4E 00 68 0C A4 | LOCATION.h..|
00000440: 01 99 22 11 20 20 20 46 34 20 41 44 44 53 20 53 |..". F4 ADDS S|
00000450: 45 45 44 53 3A 20 53 45 4C 45 43 54 20 31 2D 38 |EEDS: SELECT 1-8|
00000460: 20 28 43 4F 4C 4F 52 29 00 82 0C AE 01 99 22 11 | (COLOR)......".|
00000470: 20 20 20 46 36 20 52 45 53 54 41 52 54 20 47 41 | F6 RESTART GA|
00000480: 4D 45 00 8B 0C B8 01 8D 34 39 30 00 A2 0C C2 01 |ME......490.....|
00000490: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 52 55 |."............RU|
000004A0: 4E 22 00 EF 0C CC 01 99 22 13 11 11 9E 4B 49 4C |N"......"....KIL|
000004B0: 4C 3A 52 45 4D 20 43 55 52 53 4F 52 20 55 50 20 |L:REM CURSOR UP |
000004C0: 41 4E 44 20 48 49 54 20 3C 52 45 54 55 52 4E 3E |AND HIT <RETURN>|
000004D0: 20 20 20 20 20 20 20 20 20 20 54 4F 20 44 49 53 | TO DIS|
000004E0: 41 42 4C 45 20 56 49 43 2D 54 52 45 45 1E 22 00 |ABLE VIC-TREE.".|
000004F0: 27 0D D6 01 5A 24 B2 C7 28 33 34 29 3A 99 22 13 |'...Z$..(34):.".|
00000500: 11 11 11 11 11 11 4C 4F 41 44 22 5A 24 22 30 3A |......LOAD"Z$"0:|
00000510: 54 45 54 52 41 43 52 59 53 54 41 4C 53 22 5A 24 |TETRACRYSTALS"Z$|
00000520: 22 2C 38 91 91 91 22 00 2D 0D E0 01 80 00 65 0D |",8...".-.....e.|
00000530: EA 01 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............|
00000540: 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 |............ |
00000550: 20 20 20 20 20 20 20 20 20 20 20 4D 4F 52 45 20 | MORE |
00000560: 3C 43 52 3E 22 00 7C 0D F4 01 A1 41 24 3A 8B 41 |<CR>".|....A$:.A|
00000570: 24 B3 B1 C7 28 31 33 29 A7 35 30 30 00 85 0D FE |$...(13).500....|
00000580: 01 99 50 54 24 00 8B 0D 08 02 8E 00 A9 0D E8 03 |..PT$...........|
00000590: 41 24 B2 22 49 4E 46 4F 20 20 20 54 45 54 52 41 |A$."INFO TETRA|
000005A0: 43 52 59 53 54 41 4C 53 22 00 D2 0D F2 03 41 B2 |CRYSTALS".....A.|
000005B0: C3 28 41 24 29 3A 8B 41 AD 32 B3 B1 B5 28 41 AD |.(A$):.A.2...(A.|
000005C0: 32 29 A7 41 24 B2 22 20 22 AA 41 24 3A 89 31 30 |2).A$." ".A$:.10|
000005D0: 31 30 00 DF 0D FC 03 81 49 B2 31 A4 41 AD 32 00 |10......I.1.A.2.|
000005E0: FE 0D 06 04 99 22 13 22 A3 32 30 AB 49 29 3B C8 |.....".".20.I);.|
000005F0: 28 41 24 2C 49 29 3B C9 28 41 24 2C 49 29 00 08 |(A$,I);.(A$,I)..|
00000600: 0E 10 04 99 22 91 22 3B 00 1C 0E 1A 04 81 5A 5A |....".";......ZZ|
00000610: B2 31 A4 35 30 3A 82 5A 5A 3A 82 49 00 2E 0E 24 |.1.50:.ZZ:.I...$|
00000620: 04 81 5A 5A B2 30 A4 35 30 30 3A 82 3A 8E 00 4B |..ZZ.0.500:.:..K|
00000630: 0E 2E 04 8F 20 48 59 50 45 52 2D 50 52 49 4E 54 |.... HYPER-PRINT|
00000640: 20 53 55 42 52 4F 55 54 49 4E 45 00 00 94 | SUBROUTINE... |
..7.D.. INFO TETRACRYSTALS: E.G.HAMNER F
EB 1984. FUNHUG.V.N.P.53280:.P,0:.P.1,0:
.646,5...X.PT$.".. INFO TETRA
CRYSTALS "...}..".":.1000......
PT$:.Z.0.500:..C...."..HOW TO PLAY......
.".FUNCTION KEY PRESETS... ..". F1 CHAN
GES BORDER COLOR.!....". F2 CNANGES SCR
EEN COLOR.@....". F5 SETS REVERSE VIDEO
._....". F7 STARTS THE PROGRAM.H.H..490
...R.."..PROGRAM SPEED: 0-999.......".ZE
RO-99 IS RAPID GROWTH RATE.T....".100
-400 IS MODERATE GROWTH RATE......".400-
999 IS SLOW GROWTH RATE......490....
.."..CHARACTER SETS..:....".CHOOSE SET 1
,2,3, OR 4.C....490._.".."..PLANT THE CR
YSTALS....,..".CHOOSE X AND Y COORDINATE
S: .A THROUGH P....6..".CRYSTAL TYPE: 1
(SEED) OR 2 (MONAD).T.@..".CHOOSE COLOR:
1-8...J..". F1 KEY: CANCEL CHOICES (U
P TO COLOR).$.T..". F7 KEY: START THE
GAME.-.^..490.J.H.."..OPTIONS DURING GAM
E..P.R..". F1 RUN PROGRAM AFTER F7 KEY
...|..". F3 SLOWS GROWTH: SELECT 1-9..
....". F5 SPEEDS GROWTH: SELECT 1-9...
...". F7 STOPS GROWTH: REPEAT F7 FOR
SINGLE STEP.<....". F2 ADDS
SEEDS: RANDOM-COLOR AND LOCA
TION.H....". F4 ADDS SEEDS: SELECT 1-8
(COLOR)......". F6 RESTART GAME......
490...B.."............RUN"...L.."....KIL
L:REM CURSOR UP AND HIT <RETURN>
TO DISABLE VIC-TREE.".'.V.Z$.G(34):.".
......LOAD"Z$"0:TETRACRYSTALS"Z$",8...".
-.....E...."........................
MORE <CR>".|....A$:.A$..G(13)
.500......PT$...........A$."INFO TETRA
CRYSTALS".R...A.C(A$):.A.2...(A.2).A$."
".A$:.1010......I.1.A.2......".".20.I);H
(A$,I);I(A$,I)......".";......ZZ.1.50:.Z
Z:.I...$..ZZ.0.500:.:..K.... HYPER-PRINT
SUBROUTINE...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL