REDIM SUBR.
FILE INFORMATION
FILENAME(S): REDIM SUBR.
FILE TYPE(S): PRG
FILE SIZE: 789b
FIRST SEEN: 2025-11-30 21:07:07
APPEARS ON: 1 disk(s)
FILE HASH
6ee8d80a9dbc1acb445eff0a27da588a8866a4d26eb7b74b9e7e717e6ac64992
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CS TAPES PET 03 | REDIM SUBR. | PRG | DuncanTwain | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 24 04 64 00 50 31 B2 30 3A 50 32 B2 30 3A |..$.d.P1.0:P2.0:| 00000010: 8F 20 54 48 49 53 20 49 53 20 49 4D 50 4F 52 54 |. THIS IS IMPORT| 00000020: 41 4E 54 2E 00 47 04 6E 00 86 41 24 28 31 35 29 |ANT..G.n..A$(15)| 00000030: 3A 8F 20 44 49 4D 45 4E 53 49 4F 4E 20 41 52 52 |:. DIMENSION ARR| 00000040: 41 59 53 20 59 4F 55 00 6A 04 6F 00 3A 20 20 20 |AYS YOU.j.o.: | 00000050: 20 20 20 20 20 20 8F 20 57 49 53 48 20 54 4F 20 | . WISH TO | 00000060: 4B 45 45 50 20 48 45 52 45 2E 00 81 04 78 00 50 |KEEP HERE....x.P| 00000070: 32 B2 C2 28 34 36 29 AA C2 28 34 37 29 AC 32 35 |2..(46)..(47).25| 00000080: 36 00 98 04 79 00 50 31 B2 C2 28 34 34 29 AA C2 |6...y.P1..(44)..| 00000090: 28 34 35 29 AC 32 35 36 00 BC 04 82 00 8F 20 50 |(45).256...... P| 000000A0: 31 26 50 32 20 41 52 45 20 53 54 41 52 54 20 41 |1&P2 ARE START A| 000000B0: 4E 44 20 46 49 4E 49 53 48 20 4F 46 00 CA 04 83 |ND FINISH OF....| 000000C0: 00 8F 20 41 52 52 41 59 53 2E 00 EE 04 8C 00 86 |.. ARRAYS.......| 000000D0: 42 24 28 31 32 29 3A 8F 20 44 49 4D 45 4E 53 49 |B$(12):. DIMENSI| 000000E0: 4F 4E 20 41 52 52 41 59 53 20 48 45 52 45 00 15 |ON ARRAYS HERE..| 000000F0: 05 96 00 8F 20 59 4F 55 20 57 49 53 48 20 54 4F |.... YOU WISH TO| 00000100: 20 55 53 45 20 41 4E 44 20 4C 41 54 45 52 20 45 | USE AND LATER E| 00000110: 52 41 53 45 2E 00 2E 05 A0 00 81 42 B2 31 A4 31 |RASE.......B.1.1| 00000120: 32 3A 42 24 28 42 29 B2 C4 28 42 29 3A 82 00 49 |2:B$(B)..(B):..I| 00000130: 05 AA 00 81 42 B2 31 A4 31 35 3A 41 24 28 42 29 |....B.1.15:A$(B)| 00000140: B2 C4 28 42 AC 32 29 3A 82 00 63 05 B4 00 41 24 |..(B.2):..c...A$| 00000150: B2 22 48 45 4C 4C 4F 22 3A 44 B2 36 30 30 3A 8D |."HELLO":D.600:.| 00000160: 32 38 30 00 7D 05 BE 00 8F 20 44 45 4C 45 54 49 |280.}.... DELETI| 00000170: 4F 4E 20 4F 46 20 41 52 52 41 59 53 2E 00 9D 05 |ON OF ARRAYS....| 00000180: C8 00 5A B2 C2 28 34 34 29 AA C2 28 34 35 29 AC |..Z..(44)..(45).| 00000190: 32 35 36 3A 5A B2 5A AA 50 32 AB 50 31 00 AD 05 |256:Z.Z.P2.P1...| 000001A0: C9 00 50 31 B2 B5 28 5A AD 32 35 36 29 00 C5 05 |..P1..(Z.256)...| 000001B0: D2 00 97 34 37 2C 50 31 3A 97 34 36 2C 5A AB 50 |...47,P1:.46,Z.P| 000001C0: 31 AC 32 35 36 00 EB 05 DC 00 8F 20 54 48 45 20 |1.256...... THE | 000001D0: 54 45 4D 50 4F 52 41 52 59 20 41 52 52 41 59 53 |TEMPORARY ARRAYS| 000001E0: 20 48 41 56 45 20 47 4F 4E 45 2E 00 0C 06 E6 00 | HAVE GONE......| 000001F0: 8F 20 42 55 54 20 41 4C 4C 20 41 52 49 41 42 4C |. BUT ALL ARIABL| 00000200: 45 53 20 48 41 56 45 20 42 45 45 4E 00 1D 06 E7 |ES HAVE BEEN....| 00000210: 00 8F 20 50 52 45 53 45 52 56 45 44 2E 00 36 06 |.. PRESERVED..6.| 00000220: F0 00 8F 20 54 4F 20 52 45 50 45 41 54 20 47 4F |... TO REPEAT GO| 00000230: 54 4F 20 2E 2E 2E 00 48 06 FA 00 99 3A 99 3A 99 |TO ....H....:.:.| 00000240: 22 41 24 28 42 29 22 3A 00 5E 06 FB 00 81 42 B2 |"A$(B)":.^....B.| 00000250: 31 A4 31 35 3A 99 41 24 28 42 29 2C 3A 82 00 6B |1.15:.A$(B),:..k| 00000260: 06 04 01 86 42 24 28 31 2C 32 29 00 71 06 0E 01 |....B$(1,2).q...| 00000270: 80 00 82 06 18 01 99 3A 99 3A 99 22 42 24 28 42 |.......:.:."B$(B| 00000280: 29 22 00 98 06 19 01 81 42 B2 31 A4 31 32 3A 99 |)"......B.1.12:.| 00000290: 42 24 28 42 29 2C 3A 82 00 A9 06 22 01 99 3A 99 |B$(B),:...."..:.| 000002A0: 3A 99 22 41 24 28 42 29 22 00 BF 06 23 01 81 42 |:."A$(B)"...#..B| 000002B0: B2 31 A4 31 35 3A 99 41 24 28 42 29 2C 3A 82 00 |.1.15:.A$(B),:..| 000002C0: C9 06 2C 01 99 41 24 2C 44 00 CF 06 36 01 8E 00 |..,..A$,D...6...| 000002D0: E8 06 40 01 8F 20 46 4F 52 20 4F 4C 44 20 52 4F |..@.. FOR OLD RO| 000002E0: 4D 20 50 45 54 53 20 3A 00 FD 06 4A 01 8F 20 34 |M PETS :...J.. 4| 000002F0: 34 3D 31 32 36 20 20 34 35 3D 31 32 37 00 12 07 |4=126 45=127...| 00000300: 54 01 8F 20 34 36 3D 31 32 38 20 20 34 37 3D 31 |T.. 46=128 47=1| 00000310: 32 39 00 00 00 |29... |
..$.D.P1.0:P2.0:. THIS IS IMPORTANT..G.N
..A$(15):. DIMENSION ARRAYS YOU.J.O.:
. WISH TO KEEP HERE....X.P2.B(46).
B(47).256...Y.P1.B(44).B(45).256...... P
1&P2 ARE START AND FINISH OF.J.... ARRAY
S.......B$(12):. DIMENSION ARRAYS HERE..
.... YOU WISH TO USE AND LATER ERASE....
..B.1.12:B$(B).D(B):..I....B.1.15:A$(B)
.D(B.2):..C...A$."HELLO":D.600:.280.}...
. DELETION OF ARRAYS....H.Z.B(44).B(45).
256:Z.Z.P2.P1...I.P1..(Z.256).E.R..47,P1
:.46,Z.P1.256...... THE TEMPORARY ARRAYS
HAVE GONE....... BUT ALL ARIABLES HAVE
BEEN...... PRESERVED..6.... TO REPEAT GO
TO ....H....:.:."A$(B)":.^....B.1.15:.A$
(B),:..K....B$(1,2).Q..........:.:."B$(B
)"......B.1.12:.B$(B),:...."..:.:."A$(B)
"...#..B.1.15:.A$(B),:..I.,..A$,D.O.6...
..@.. FOR OLD ROM PETS :...J.. 44=126 4
5=127...T.. 46=128 47=129...
> CLICK IMAGE PREVIEW FOR FULL MODAL