DYNAM-DATA-8
FILE INFORMATION
FILENAME(S): DYNAM-DATA-8
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 16:59:32
APPEARS ON: 1 disk(s)
FILE HASH
935dc0acb2ad3330ce4cd8f103157df5cd3ed2022d6ceb9754b1e777e811df05
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MAC64 FLOPPY | DYNAM-DATA-8 | PRG | High Voltage Complete C64 Collection | 8 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 6B 0C C0 0C 3F 0D 00 0A 24 00 20 2A 2D 2D 2D 2D |k...?...$. *----|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 14 1F 00 20 20 |----------.... |
00000030: 44 45 4C 45 54 45 20 22 30 3A 44 59 4E 41 4D 2D |DELETE "0:DYNAM-|
00000040: 44 41 54 41 2D 38 2E 4C 22 00 1E 1C 00 20 57 52 |DATA-8.L".... WR|
00000050: 49 54 54 45 4E 20 42 59 20 54 2E 20 53 2E 20 43 |ITTEN BY T. S. C|
00000060: 52 45 41 53 59 00 28 1B 00 20 4D 4F 44 49 46 49 |REASY.(.. MODIFI|
00000070: 45 44 20 42 59 20 42 4F 42 20 44 4F 44 53 4F 4E |ED BY BOB DODSON|
00000080: 00 32 1F 00 20 20 4C 49 53 54 20 20 20 22 30 3A |.2.. LIST "0:|
00000090: 44 59 4E 41 4D 2D 44 41 54 41 2D 38 2E 4C 22 00 |DYNAM-DATA-8.L".|
000000A0: 3C 24 00 20 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |<$. *-----------|
000000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000C0: 2D 2D 2D 00 46 04 00 00 50 1F 00 20 54 48 49 53 |---.F...P.. THIS|
000000D0: 20 50 52 4F 47 52 41 4D 20 50 52 45 50 41 52 45 | PROGRAM PREPARE|
000000E0: 53 20 44 41 54 41 00 5A 1E 00 20 53 54 41 54 45 |S DATA.Z.. STATE|
000000F0: 4D 45 4E 54 53 20 46 52 4F 4D 20 41 20 4D 41 43 |MENTS FROM A MAC|
00000100: 48 49 4E 45 00 64 1C 00 20 4C 41 4E 47 55 41 47 |HINE.d.. LANGUAG|
00000110: 45 20 50 52 4F 47 52 41 4D 20 49 4E 20 52 41 4D |E PROGRAM IN RAM|
00000120: 00 6E 20 00 20 41 4E 44 20 50 4C 41 43 45 53 20 |.n . AND PLACES |
00000130: 54 48 45 4D 20 49 4E 20 41 20 4C 49 53 54 45 44 |THEM IN A LISTED|
00000140: 00 78 1F 00 20 44 49 53 4B 20 46 49 4C 45 20 46 |.x.. DISK FILE F|
00000150: 4F 52 20 4D 45 52 47 49 4E 47 20 57 49 54 48 00 |OR MERGING WITH.|
00000160: 82 13 00 20 4F 54 48 45 52 20 50 52 4F 47 52 41 |... OTHER PROGRA|
00000170: 4D 53 00 8C 04 00 00 96 24 00 20 2A 2D 2D 2D 2D |MS......$. *----|
00000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A0 04 00 00 AA |----------......|
000001A0: 1E 00 20 D6 45 52 53 49 4F 4E 20 38 20 41 4C 4C |.. .ERSION 8 ALL|
000001B0: 4F 57 53 20 49 4E 50 55 54 20 4F 46 00 B4 21 00 |OWS INPUT OF..!.|
000001C0: 20 4D 45 4D 4F 52 59 20 4C 4F 43 41 54 49 4F 4E | MEMORY LOCATION|
000001D0: 53 20 48 49 47 48 45 52 20 54 48 41 4E 00 BE 22 |S HIGHER THAN.."|
000001E0: 00 20 33 32 37 36 37 2E 20 20 C5 41 52 4C 49 45 |. 32767. .ARLIE|
000001F0: 52 20 56 45 52 53 49 4F 4E 53 20 55 53 45 44 00 |R VERSIONS USED.|
00000200: C8 22 00 20 41 4E 20 49 4E 54 45 47 45 52 20 46 |.". AN INTEGER F|
00000210: 55 4E 43 54 49 4F 4E 20 46 4F 52 20 49 4E 50 55 |UNCTION FOR INPU|
00000220: 54 00 D2 1E 00 20 41 4E 44 20 57 4F 55 4C 44 20 |T.... AND WOULD |
00000230: 4E 4F 54 20 41 4C 4C 4F 57 20 54 48 49 53 2E 00 |NOT ALLOW THIS..|
00000240: DC 04 00 00 E6 21 00 20 D4 48 49 53 20 56 45 52 |.....!. .HIS VER|
00000250: 53 49 4F 4E 20 41 4C 53 4F 20 53 54 41 52 54 53 |SION ALSO STARTS|
00000260: 20 54 48 45 00 F0 21 00 20 44 41 54 41 20 4C 49 | THE..!. DATA LI|
00000270: 4E 45 20 4E 55 4D 42 45 52 49 4E 47 20 41 54 20 |NE NUMBERING AT |
00000280: 35 30 30 30 2E 00 FA 04 00 01 04 18 00 20 D6 45 |5000......... .E|
00000290: 52 53 49 4F 4E 20 38 20 2D 20 38 2F 31 32 2F 38 |RSION 8 - 8/12/8|
000002A0: 34 01 0E 07 00 20 42 59 01 18 12 00 20 C2 4F 42 |4.... BY.... .OB|
000002B0: 20 C7 2E 20 C4 4F 44 53 4F 4E 01 22 1B 00 20 33 | .. .ODSON.".. 3|
000002C0: 32 39 35 20 42 52 45 4E 4E 41 20 41 56 45 2E 2C |295 BRENNA AVE.,|
000002D0: 20 4E 2E 45 2E 01 2C 14 00 20 53 41 4C 45 4D 20 | N.E..,.. SALEM |
000002E0: 4F 52 2E 20 39 37 33 30 33 01 36 11 00 20 35 30 |OR. 97303.6.. 50|
000002F0: 33 2D 35 38 35 2D 30 36 32 33 01 40 04 00 01 4A |3-585-0623.@...J|
00000300: 24 00 20 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |$. *------------|
00000310: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000320: 2D 2D 01 54 04 00 01 5E 19 8C 8F 02 00 02 00 46 |--.T...^.......F|
00000330: 93 C5 00 46 4F 52 20 4D 45 53 53 41 47 45 53 01 |...FOR MESSAGES.|
00000340: 68 19 8C 8F 03 00 02 00 4E 93 C5 00 50 52 4F 47 |h.......N...PROG|
00000350: 52 41 4D 20 4C 49 4E 45 01 72 18 8C 8F 04 00 02 |RAM LINE.r......|
00000360: 00 03 93 C5 00 50 45 45 4B 20 56 41 4C 55 45 53 |.....PEEK VALUES|
00000370: 01 7C 04 00 01 86 23 00 20 2A 2D 2D 2D 2D 2D 2D |.|....#. *------|
00000380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000390: 2D 2D 2D 2D 2D 2D 2D 01 90 0D 00 20 49 4E 53 54 |-------.... INST|
000003A0: 52 55 43 54 01 9A 23 00 20 2A 2D 2D 2D 2D 2D 2D |RUCT..#. *------|
000003B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000003C0: 2D 2D 2D 2D 2D 2D 2D 01 A4 04 00 01 AE 1B 8C 8F |-------.........|
000003D0: 05 00 02 00 01 93 C5 00 4B 45 59 42 4F 41 52 44 |........KEYBOARD|
000003E0: 20 49 4E 50 55 54 01 B8 18 5F 02 00 93 4B 65 60 | INPUT..._...Ke`|
000003F0: 61 00 43 4C 45 41 52 20 53 43 52 45 45 4E 01 C2 |a.CLEAR SCREEN..|
00000400: 19 5F 02 00 0E 4B 65 60 61 00 20 53 45 54 20 46 |._...Ke`a. SET F|
00000410: 4F 52 20 54 45 58 54 01 CC 14 E4 01 90 50 20 00 |OR TEXT......P .|
00000420: 00 E5 02 00 07 E6 00 20 53 45 54 01 D6 14 E4 01 |....... SET.....|
00000430: 90 50 21 00 00 E5 02 00 07 E6 00 20 41 4C 4C 01 |.P!........ ALL.|
00000440: E0 14 E4 02 02 86 E5 02 00 09 E6 00 20 43 4F 4C |............ COL|
00000450: 4F 52 53 01 EA 29 5F 03 20 20 20 20 20 20 20 20 |ORS..)_. |
00000460: 20 20 C4 59 4E 41 4D 49 43 20 C4 41 54 41 20 D3 | .YNAMIC .ATA .|
00000470: 54 41 54 45 4D 45 4E 54 53 65 60 61 01 F4 06 5F |TATEMENTSe`a..._|
00000480: 60 61 01 FE 29 5F 03 20 20 20 20 20 20 20 20 20 |`a..)_. |
00000490: 20 57 52 49 54 54 45 4E 20 42 59 20 20 D4 2E D3 | WRITTEN BY ...|
000004A0: 2E 20 C3 52 45 41 53 59 65 60 61 02 08 28 5F 03 |. .REASYe`a..(_.|
000004B0: 1F 20 20 20 20 20 20 20 20 20 4D 4F 44 49 46 49 |. MODIFI|
000004C0: 45 44 20 42 59 20 C2 4F 42 20 C4 4F 44 53 4F 4E |ED BY .OB .ODSON|
000004D0: 65 60 61 02 12 06 5F 60 61 02 1C 2C B5 03 21 20 |e`a..._`a..,..! |
000004E0: 20 20 20 20 20 20 C4 4F 20 59 4F 55 20 4E 45 45 | .O YOU NEE|
000004F0: 44 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 3F 20 |D INSTRUCTIONS? |
00000500: B7 09 05 BA BB 02 26 14 68 06 05 03 01 59 2D 06 |......&.h....Y-.|
00000510: 05 03 01 D9 2D 39 69 00 00 02 30 06 7F 06 81 02 |....-9i...0.....|
00000520: 3A 04 6F 02 44 04 00 02 4E 23 00 20 2A 2D 2D 2D |:.o.D...N#. *---|
00000530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 02 58 11 00 20 4D |----------.X.. M|
00000550: 41 49 4E 20 50 52 4F 47 52 41 4D 02 62 23 00 20 |AIN PROGRAM.b#. |
00000560: 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |*---------------|
00000570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 02 6C |--------------.l|
00000580: 04 00 02 76 18 5F 02 00 93 4B 65 60 61 00 43 4C |...v._...Ke`a.CL|
00000590: 45 41 52 20 53 43 52 45 45 4E 02 80 2E 09 02 03 |EAR SCREEN......|
000005A0: 26 C5 4E 54 45 52 20 54 48 45 20 53 54 41 52 54 |&.NTER THE START|
000005B0: 20 41 44 44 52 45 53 53 20 4F 46 20 54 48 45 20 | ADDRESS OF THE |
000005C0: 52 4F 55 54 49 4E 45 3C 02 8A 24 00 20 47 45 54 |ROUTINE<..$. GET|
000005D0: 20 53 54 41 52 54 20 41 44 44 52 45 53 53 20 4F | START ADDRESS O|
000005E0: 46 20 4D 4C 20 50 52 4F 47 52 41 4D 02 94 0B 7F |F ML PROGRAM....|
000005F0: 07 09 02 12 07 08 16 02 9E 2C 09 02 03 24 C5 4E |.........,...$.N|
00000600: 54 45 52 20 54 48 45 20 45 4E 44 20 41 44 44 52 |TER THE END ADDR|
00000610: 45 53 53 20 4F 46 20 54 48 45 20 52 4F 55 54 49 |ESS OF THE ROUTI|
00000620: 4E 45 3C 02 A8 24 00 20 47 45 54 20 45 4E 44 20 |NE<..$. GET END |
00000630: 20 20 41 44 44 52 45 53 53 20 4F 46 20 4D 4C 20 | ADDRESS OF ML |
00000640: 50 52 4F 47 52 41 4D 02 B2 0B 7F 07 09 02 12 07 |PROGRAM.........|
00000650: 09 16 02 BC 12 8C 8E 0A 01 04 09 04 08 29 02 00 |.............)..|
00000660: 01 27 92 C5 02 C6 04 00 02 D0 23 00 20 2A 2D 2D |.'........#. *--|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 02 DA 1D 00 20 |-----------.... |
00000690: 52 45 41 44 20 52 4F 55 54 49 4E 45 20 46 52 4F |READ ROUTINE FRO|
000006A0: 4D 20 4D 45 4D 4F 52 59 02 E4 23 00 20 2A 2D 2D |M MEMORY..#. *--|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 02 EE 04 00 02 |-----------.....|
000006D0: F8 0F 5F 03 06 93 11 11 11 11 11 65 60 61 03 02 |.._........e`a..|
000006E0: 20 5F 03 17 2A 2A 2A 20 20 20 43 4F 4E 56 45 52 | _..*** CONVER|
000006F0: 53 49 4F 4E 20 49 53 20 4E 4F 57 65 60 61 03 0C |SION IS NOWe`a..|
00000700: 1F 5F 03 16 2A 2A 2A 20 20 20 54 41 4B 49 4E 47 |._..*** TAKING|
00000710: 20 50 4C 41 43 45 2C 20 53 4F 65 60 61 03 16 1D | PLACE, SOe`a...|
00000720: 5F 03 14 2A 2A 2A 20 20 20 42 45 20 50 41 54 49 |_..*** BE PATI|
00000730: 45 4E 54 2E 2E 2E 2E 65 60 61 03 20 1F 82 0B 0E |ENT....e`a. ....|
00000740: 00 04 08 84 04 09 85 88 0B 0A 04 0B 04 08 29 02 |..............).|
00000750: 00 01 27 19 04 0B D8 3B 89 03 2A 04 00 03 34 13 |..'....;..*...4.|
00000760: 7F 0C 81 00 54 4F 20 44 49 53 4B 20 46 49 4C 45 |....TO DISK FILE|
00000770: 03 3E 20 5F 03 17 C6 49 4C 45 20 44 41 54 41 2E |.> _...ILE DATA.|
00000780: 53 54 4D 54 53 20 43 52 45 41 54 45 44 65 60 61 |STMTS CREATEDe`a|
00000790: 03 48 04 9F 03 52 04 00 03 5C 23 00 20 2A 2D 2D |.H...R...\#. *--|
000007A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 03 66 0F 00 20 |-----------.f.. |
000007C0: 50 52 4F 43 45 44 55 52 45 53 03 70 23 00 20 2A |PROCEDURES.p#. *|
000007D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 03 7A 04 |-------------.z.|
000007F0: 00 03 84 0D 70 07 00 00 02 74 0D 75 0E 7C 03 8E |....p....t.u.|..|
00000800: 09 5F 06 0D 65 60 61 03 98 27 B5 03 1C 31 2D 35 |._..e`a..'...1-5|
00000810: 20 44 49 47 49 54 20 44 45 43 49 4D 41 4C 20 4E | DIGIT DECIMAL N|
00000820: 55 4D 42 45 52 20 3D 20 20 B7 07 0E B8 BB 03 A2 |UMBER = .......|
00000830: 05 7D 07 03 AC 04 00 03 B6 23 00 20 2A 2D 2D 2D |.}.......#. *---|
00000840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 03 C0 04 00 03 CA |----------......|
00000860: 09 70 0C 00 00 00 7B 03 D4 1C DB 02 00 02 DC 03 |.p....{.........|
00000870: 0C 30 3A 44 41 54 41 2D 53 54 4D 54 53 DD 02 00 |.0:DATA-STMTS...|
00000880: 08 E2 DF 03 DE 09 07 0B 02 00 00 3A 03 E8 04 95 |...........:....|
00000890: 03 F2 17 7F 0F 02 13 88 04 0B 02 00 08 23 02 00 |.............#..|
000008A0: 0A 24 27 0D 09 03 18 03 FC 15 0C 03 02 00 06 1F |.$'.............|
000008B0: 02 00 0A 19 03 05 44 41 54 41 20 3C 04 06 09 08 |......DATA <....|
000008C0: 10 02 00 01 3B 04 10 04 95 04 1A 11 7F 0F 0B 0A |....;...........|
000008D0: 04 0B 05 10 27 19 11 09 04 18 04 24 1B 00 20 4C |....'......$.. L|
000008E0: 49 4E 45 24 3A 3D 4C 49 4E 45 24 2B 42 59 54 45 |INE$:=LINE$+BYTE|
000008F0: 24 2B 22 2C 22 04 2E 11 08 11 02 00 0A 05 10 47 |$+","..........G|
00000900: 02 00 04 24 27 3B 04 38 16 0C 03 05 11 1F 05 11 |...$';.8........|
00000910: 02 00 04 27 19 06 04 03 01 2C 28 3C 04 42 09 08 |...'.....,(<.B..|
00000920: 10 02 00 01 3E 04 4C 1D DA 05 10 02 00 09 2C 04 |....>.L.......,.|
00000930: 0B 05 10 27 04 09 04 08 29 02 00 01 27 30 39 96 |...'....)...'09.|
00000940: 00 00 04 56 0A FF 1E 02 00 09 FF 1F 04 60 10 00 |...V.........`..|
00000950: 20 50 52 49 4E 54 20 4C 49 4E 45 24 04 6A 10 0C | PRINT LINE$.j..|
00000960: 03 05 11 02 00 03 27 19 03 01 20 3C 04 74 0E 5F |......'... <.t._|
00000970: 02 00 02 C8 CB 06 03 65 60 61 04 7E 08 09 03 03 |.......e`a.~....|
00000980: 00 3C 04 88 09 07 0B 02 00 08 3D 04 92 0F DA 04 |.<........=.....|
00000990: 0B 04 09 04 08 29 30 96 00 00 04 9C 08 CF 02 00 |.....)0.........|
000009A0: 02 D0 04 A6 05 7D 0C 04 B0 04 00 04 BA 23 00 20 |.....}.......#. |
000009B0: 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |*---------------|
000009C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 04 C4 |--------------..|
000009D0: 04 00 04 CE 0D 70 0F 00 00 02 72 0E 77 02 7C 04 |.....p....r.w.|.|
000009E0: D8 15 09 02 03 00 3C 00 43 4C 45 41 52 20 53 54 |......<.CLEAR ST|
000009F0: 52 49 4E 47 04 E2 17 FF 1E 02 00 0B FF 1F 00 53 |RING...........S|
00000A00: 43 52 45 45 4E 20 43 4F 4C 4F 52 04 EC 11 5F 02 |CREEN COLOR..._.|
00000A10: 00 93 4B 65 60 61 00 43 4C 45 41 52 04 F6 09 5F |..Ke`a.CLEAR..._|
00000A20: 04 0E 64 60 61 05 00 10 5F 02 00 13 4B 65 60 61 |..d`a..._...Ke`a|
00000A30: 00 48 4F 4D 45 05 0A 21 DB 02 00 5D DC 03 00 DD |.HOME..!...]....|
00000A40: 02 00 03 E2 DE 00 53 43 52 45 45 4E 20 41 53 20 |......SCREEN AS |
00000A50: 41 20 46 49 4C 45 05 14 0E B5 02 00 5D C8 CB CC |A FILE......]...|
00000A60: 09 02 BA BB 05 1E 08 CF 02 00 5D D0 05 28 18 5F |..........]..(._|
00000A70: 02 00 93 4B 65 60 61 00 43 4C 45 41 52 20 53 43 |...Ke`a.CLEAR SC|
00000A80: 52 45 45 4E 05 32 05 7D 0F 05 3C 04 00 05 46 23 |REEN.2.}..<...F#|
00000A90: 00 20 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. *-------------|
00000AA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000AB0: 05 50 04 00 05 5A 09 70 06 00 00 00 7C 05 64 04 |.P...Z.p....|.d.|
00000AC0: 00 05 6E 18 5F 02 00 93 4B 65 60 61 00 43 4C 45 |..n._...Ke`a.CLE|
00000AD0: 41 52 20 53 43 52 45 45 4E 05 78 30 5F 03 27 D4 |AR SCREEN.x0_.'.|
00000AE0: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL|
00000AF0: 20 43 4F 4E 56 45 52 54 20 56 41 4C 55 45 53 20 | CONVERT VALUES |
00000B00: D0 C5 C5 CB 45 44 65 60 61 05 82 2F 5F 03 26 20 |....EDe`a../_.& |
00000B10: 46 52 4F 4D 20 4D 45 4D 4F 52 59 20 49 4E 54 4F |FROM MEMORY INTO|
00000B20: 20 44 41 54 41 20 53 54 41 54 45 4D 45 4E 54 53 | DATA STATEMENTS|
00000B30: 20 54 48 41 54 65 60 61 05 8C 2E 5F 03 25 20 20 | THATe`a..._.% |
00000B40: 43 41 4E 20 42 45 20 41 50 50 45 4E 44 45 44 20 |CAN BE APPENDED |
00000B50: 54 4F 20 41 20 C3 CF CD C1 CC 20 50 52 4F 47 52 |TO A ..... PROGR|
00000B60: 41 4D 2E 65 60 61 05 96 2E 5F 03 25 20 20 D4 48 |AM.e`a..._.% .H|
00000B70: 45 20 44 41 54 41 20 53 54 41 54 45 4D 45 4E 54 |E DATA STATEMENT|
00000B80: 53 20 57 49 4C 4C 20 48 41 56 45 20 45 49 47 48 |S WILL HAVE EIGH|
00000B90: 54 65 60 61 05 A0 2D 5F 03 24 20 20 20 20 56 41 |Te`a..-_.$ VA|
00000BA0: 4C 55 45 53 20 50 45 52 20 4C 49 4E 45 20 41 4E |LUES PER LINE AN|
00000BB0: 44 20 41 52 45 20 4E 55 4D 42 45 52 45 44 65 60 |D ARE NUMBEREDe`|
00000BC0: 61 05 AA 34 5F 03 2B 20 20 20 53 54 41 52 54 49 |a..4_.+ STARTI|
00000BD0: 4E 47 20 57 49 54 48 20 4C 49 4E 45 20 35 30 30 |NG WITH LINE 500|
00000BE0: 30 2E 20 20 20 20 20 20 20 D4 48 45 20 C5 CE D4 |0. .HE ...|
00000BF0: C5 D2 65 60 61 05 B4 2E 5F 03 25 20 20 43 4F 4D |..e`a..._.% COM|
00000C00: 4D 41 4E 44 20 49 53 20 55 53 45 44 20 54 4F 20 |MAND IS USED TO |
00000C10: 41 50 50 45 4E 44 20 54 48 45 20 46 49 4C 45 2E |APPEND THE FILE.|
00000C20: 65 60 61 05 BE 06 5F 60 61 05 C8 36 5F 03 20 20 |e`a..._`a..6_. |
00000C30: 20 20 20 20 20 20 20 D0 52 45 53 53 20 C3 D4 D2 | .RESS ...|
00000C40: CC 2D C5 20 54 4F 20 43 4F 4E 54 49 4E 55 45 65 |.-. TO CONTINUEe|
00000C50: 60 61 00 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 05 |`a.////////////.|
00000C60: D2 0D 97 F9 02 00 05 4B 33 99 F4 9A 05 DC 05 7D |.......K3......}|
00000C70: 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000CA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000CB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000CC0: 00 00 00 00 00 00 03 53 45 51 04 54 45 58 54 04 |.......SEQ.TEXT.|
00000CD0: 4C 49 4E 45 04 42 59 54 45 06 41 4E 53 57 45 52 |LINE.BYTE.ANSWER|
00000CE0: 08 49 4E 53 54 52 55 43 54 0A 47 45 54 27 4E 55 |.INSTRUCT.GET'NU|
00000CF0: 4D 42 45 52 05 53 54 41 52 54 06 46 49 4E 49 53 |MBER.START.FINIS|
00000D00: 48 05 41 52 52 41 59 05 43 4F 55 4E 54 13 41 44 |H.ARRAY.COUNT.AD|
00000D10: 44 27 44 41 54 41 27 53 54 41 54 45 4D 45 4E 54 |D'DATA'STATEMENT|
00000D20: 53 07 4D 45 53 53 41 47 45 05 56 41 4C 55 45 06 |S.MESSAGE.VALUE.|
00000D30: 53 54 52 49 4E 47 05 49 4E 44 45 58 07 50 4F 49 |STRING.INDEX.POI|
00000D40: 4E 54 45 52 00 00 |NTER.. |
K...?...$. *----------------------------
--.... DELETE "0:DYNAM-DATA-8.L".... WR
ITTEN BY T. S. CREASY.(.. MODIFIED BY BO
B DODSON.2.. LIST "0:DYNAM-DATA-8.L".
<$. *------------------------------.F...
P.. THIS PROGRAM PREPARES DATA.Z.. STATE
MENTS FROM A MACHINE.D.. LANGUAGE PROGRA
M IN RAM.N . AND PLACES THEM IN A LISTED
.X.. DISK FILE FOR MERGING WITH.... OTHE
R PROGRAMS......$. *--------------------
----------. ...... VERSION 8 ALLOWS INPU
T OF..!. MEMORY LOCATIONS HIGHER THAN.."
. 32767. EARLIER VERSIONS USED.H". AN I
NTEGER FUNCTION FOR INPUT.R.. AND WOULD
NOT ALLOW THIS.......!. THIS VERSION ALS
O STARTS THE..!. DATA LINE NUMBERING AT
5000......... VERSION 8 - 8/12/84.... BY
.... BOB G. DODSON.".. 3295 BRENNA AVE.,
N.E..,.. SALEM OR. 97303.6.. 503-585-06
23.@...J$. *----------------------------
--.T...^.......F.E.FOR MESSAGES.H.......
N.E.PROGRAM LINE.R.........E.PEEK VALUES
.|....#. *-----------------------------.
... INSTRUCT..#. *----------------------
-------...............E.KEYBOARD INPUT..
._...KE`A.CLEAR SCREEN.B._...KE`A. SET F
OR TEXT.L....P ........ SET.V....P!.....
... ALL............. COLORS..)_.
DYNAMIC DATA STATEMENTSE`A..._`A..)_.
WRITTEN BY T.S. CREASYE`A..(_.
. MODIFIED BY BOB DODSONE`A..._`
A..,..! DO YOU NEED INSTRUCTIONS?
......&.H....Y-....Y-9I...0....:.O.D...
N#. *-----------------------------.X.. M
AIN PROGRAM.B#. *-----------------------
------.L...V._...KE`A.CLEAR SCREEN......
&ENTER THE START ADDRESS OF THE ROUTINE<
..$. GET START ADDRESS OF ML PROGRAM...
.........,...$ENTER THE END ADDRESS OF T
HE ROUTINE<..$. GET END ADDRESS OF ML
PROGRAM.....................)...'.E.F..
.P#. *-----------------------------.Z..
READ ROUTINE FROM MEMORY..#. *----------
-------------------......._........E`A..
_..*** CONVERSION IS NOWE`A..._..***
TAKING PLACE, SOE`A..._..*** BE PATI
ENT....E`A. ..................)...'...X;
..*...4....TO DISK FILE.> _..FILE DATA.
STMTS CREATEDE`A.H...R...\#. *----------
-------------------.F.. PROCEDURES.P#. *
-----------------------------.Z.....P...
.T.U.|..._..E`A..'...1-5 DIGIT DECIMAL N
UMBER = ........}.......#. *-----------
------------------.....J.P....{.T.......
.0:DATA-STMTS..............:...........
.....#...$'...................DATA <....
....;..............'......$.. LINE$:=LI
NE$+BYTE$+","..........G...$';.8........
...'.....,(<.B......>.L.Z.....,....'....
)...'09....V.........`.. PRINT LINE$.J..
......'... <.T._...HK..E`A.~.....<......
..=...Z......)0......O...P...}.......#.
*-----------------------------.D...N.P..
..R.W.|.X.....<.CLEAR STRING...........S
CREEN COLOR..._...KE`A.CLEAR..._..D`A...
_...KE`A.HOME..!...]..........SCREEN AS
A FILE......]HKL.......O..]P.(._...KE`A.
CLEAR SCREEN.2.}..<...F#. *-------------
----------------.P...Z.P....|.D...N._...
KE`A.CLEAR SCREEN.X0_.'THIS PROGRAM WILL
CONVERT VALUES PEEKEDE`A../_.& FROM MEM
ORY INTO DATA STATEMENTS THATE`A..._.%
CAN BE APPENDED TO A COMAL PROGRAM.E`A..
._.% THE DATA STATEMENTS WILL HAVE EIGH
TE`A. -_.$ VALUES PER LINE AND ARE NU
MBEREDE`A..4_.+ STARTING WITH LINE 500
0. THE ENTERE`A..._.% COMMAND IS
USED TO APPEND THE FILE.E`A..._`A.H6_.
PRESS CTRL-E TO CONTINUEE`A./////
///////.R......K3......}................
........................................
...............................SEQ.TEXT.
LINE.BYTE.ANSWER.INSTRUCT.GET'NUMBER.STA
RT.FINISH.ARRAY.COUNT.ADD'DATA'STATEMENT
S.MESSAGE.VALUE.STRING.INDEX.POINTER..
> CLICK IMAGE PREVIEW FOR FULL MODAL