GET SUBROUTINE 3
FILE INFORMATION
FILENAME(S): GET SUBROUTINE 3
FILE TYPE(S): PRG
FILE SIZE: 705b
FIRST SEEN: 2025-11-30 21:12:52
APPEARS ON: 1 disk(s)
FILE HASH
7b8bae08a16ffbd5d62df37df792b211a6b5d5298693f72d48c74e9e582311ae
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR 4 | GET SUBROUTINE 3 | PRG | DuncanTwain | 5 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 30 04 00 00 8F 20 54 48 45 20 54 52 41 4E |..0.... THE TRAN| 00000010: 53 41 43 54 4F 52 20 56 4F 4C 55 4D 45 20 34 20 |SACTOR VOLUME 4 | 00000020: 49 53 53 55 45 20 30 36 20 50 41 47 45 20 33 39 |ISSUE 06 PAGE 39| 00000030: 00 4F 04 01 00 8F 20 2A 20 53 50 45 43 49 41 4C |.O.... * SPECIAL| 00000040: 20 47 45 54 20 53 55 42 52 4F 55 54 49 4E 45 00 | GET SUBROUTINE.| 00000050: 69 04 02 00 8F 20 2A 20 38 30 20 43 4F 4C 20 20 |i.... * 80 COL | 00000060: 20 20 2D 20 4D 50 3D 38 30 00 94 04 03 00 8F 20 | - MP=80...... | 00000070: 2A 20 34 2E 30 20 42 41 53 49 43 20 2D 20 53 53 |* 4.0 BASIC - SS| 00000080: 3D 33 32 37 36 38 3A 59 41 3D 32 31 36 3A 58 41 |=32768:YA=216:XA| 00000090: 3D 31 39 38 00 AE 04 04 00 8F 20 2A 20 34 30 20 |=198...... * 40 | 000000A0: 43 4F 4C 20 20 20 20 2D 20 4D 50 3D 34 30 00 D9 |COL - MP=40..| 000000B0: 04 05 00 8F 20 2A 20 56 49 43 20 2B 20 43 36 34 |.... * VIC + C64| 000000C0: 20 2D 20 53 53 3D 31 30 32 34 20 3A 59 41 3D 32 | - SS=1024 :YA=2| 000000D0: 31 34 3A 58 41 3D 32 31 31 00 F3 04 06 00 8F 20 |14:XA=211...... | 000000E0: 2A 20 32 32 20 43 4F 4C 20 20 20 20 2D 20 4D 50 |* 22 COL - MP| 000000F0: 3D 32 32 00 40 05 07 00 8F 20 2A 20 53 45 54 20 |=22.@.... * SET | 00000100: 4D 4C 20 3D 20 4D 41 58 49 4D 55 4D 20 4C 45 4E |ML = MAXIMUM LEN| 00000110: 47 54 48 20 4F 46 20 53 54 52 49 4E 47 20 42 45 |GTH OF STRING BE| 00000120: 46 4F 52 45 20 45 4E 54 45 52 49 4E 47 20 54 48 |FORE ENTERING TH| 00000130: 49 53 20 53 55 42 2D 52 4F 55 54 49 4E 45 20 2A |IS SUB-ROUTINE *| 00000140: 00 5D 05 08 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.].... *********| 00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 63 05 |*************.c.| 00000160: 09 00 8F 00 A0 05 0A 00 4D 50 B2 38 30 20 3A 20 |........MP.80 : | 00000170: 53 53 B2 33 32 37 36 38 20 3A 20 59 41 B2 32 31 |SS.32768 : YA.21| 00000180: 36 20 3A 20 58 41 B2 31 39 38 20 3A 8F 20 44 45 |6 : XA.198 :. DE| 00000190: 46 41 55 4C 54 20 54 4F 20 38 30 20 43 4F 4C 53 |FAULT TO 80 COLS| 000001A0: 00 AA 05 88 13 42 24 B2 22 22 00 D7 05 89 13 41 |.....B$."".....A| 000001B0: 20 B2 20 53 53 20 AA 20 C2 28 58 41 29 20 AA 20 | . SS . .(XA) . | 000001C0: C2 28 59 41 29 AC 4D 50 3A 97 20 41 2C C2 28 41 |.(YA).MP:. A,.(A| 000001D0: 29 20 B0 20 31 32 38 00 EB 05 8A 13 A1 41 24 3A |) . 128......A$:| 000001E0: 8B 41 24 B2 22 22 A7 35 30 30 32 00 06 06 8B 13 |.A$."".5002.....| 000001F0: 97 20 41 2C C2 28 41 29 20 AB 20 31 32 38 3A 42 |. A,.(A) . 128:B| 00000200: B2 C6 28 41 24 29 00 1C 06 8C 13 8B 42 B2 31 33 |..(A$)......B.13| 00000210: 20 AF 20 C3 28 42 24 29 20 A7 20 8E 00 39 06 8D | . .(B$) . ..9..| 00000220: 13 8B 42 B2 32 30 20 A7 35 30 30 39 3A 8F 20 2A |..B.20 .5009:. *| 00000230: 20 44 45 4C 45 54 45 20 2A 00 5A 06 8E 13 8B 42 | DELETE *.Z....B| 00000240: B3 33 32 20 B0 20 42 B1 31 32 38 20 AF 20 42 B3 |.32 . B.128 . B.| 00000250: 31 36 30 20 A7 20 35 30 30 31 00 7D 06 8F 13 42 |160 . 5001.}...B| 00000260: 24 B2 42 24 AA 41 24 3A 99 41 24 3B 3A 8B C3 28 |$.B$.A$:.A$;:..(| 00000270: 42 24 29 B3 20 4D 4C 20 A7 35 30 30 31 00 83 06 |B$). ML .5001...| 00000280: 90 13 8E 00 A1 06 91 13 42 B2 C3 28 42 24 29 3A |........B..(B$):| 00000290: 8B 42 A7 42 24 B2 CA 28 42 24 2C 31 2C 42 AB 31 |.B.B$..(B$,1,B.1| 000002A0: 29 00 BE 06 92 13 99 3A 99 C7 28 31 34 35 29 C7 |)......:..(145).| 000002B0: 28 32 32 29 3B 42 24 3B 3A 89 35 30 30 31 00 00 |(22);B$;:.5001..| 000002C0: 00 |. |
..0.... THE TRANSACTOR VOLUME 4 ISSUE 06 PAGE 39.O.... * SPECIAL GET SUBROUTINE. I.... * 80 COL - MP=80...... * 4.0 BA SIC - SS=32768:YA=216:XA=198...... * 40 COL - MP=40.Y.... * VIC + C64 - SS=10 24 :YA=214:XA=211...... * 22 COL - MP =22.@.... * SET ML = MAXIMUM LENGTH OF S TRING BEFORE ENTERING THIS SUB-ROUTINE * .].... **********************.C..... ... MP.80 : SS.32768 : YA.216 : XA.198 :. DE FAULT TO 80 COLS.....B$."".W...A . SS . B(XA) . B(YA).MP:. A,B(A) . 128......A$: .A$."".5002...... A,B(A) . 128:B.F(A$).. ....B.13 . C(B$) . ..9....B.20 .5009:. * DELETE *.Z....B.32 . B.128 . B.160 . 50 01.}...B$.B$.A$:.A$;:.C(B$). ML .5001... ........B.C(B$):.B.B$.J(B$,1,B.1)......: .G(145)G(22);B$;:.5001...
> CLICK IMAGE PREVIEW FOR FULL MODAL