_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

MENU TYPE 3

FILE INFORMATION

FILENAME(S): MENU TYPE 3

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-11-30 21:12:52

APPEARS ON: 1 disk(s)

FILE HASH

8842933d79e18676ef398b2845046c5b0f4923e1f9c88f36c62d606dbdb3e34a

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TRANSACTOR 4 MENU TYPE 3 PRG DuncanTwain 5 14 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 34 34  |ISSUE 06 PAGE 44|
00000030: 00 4F 04 0A 00 8F 20 41  20 4D 45 4E 55 20 46 4F  |.O.... A MENU FO|
00000040: 52 20 41 4C 4C 20 4F 43  43 41 53 49 4F 4E 53 00  |R ALL OCCASIONS.|
00000050: 8B 04 0F 00 9C 3A 43 4C  24 B2 22 22 3A 81 41 B2  |.....:CL$."":.A.|
00000060: 31 A4 31 34 3A 43 4C 24  B2 43 4C 24 AA C7 28 31  |1.14:CL$.CL$..(1|
00000070: 35 37 29 3A 82 3A 8F 20  2A 20 46 4F 52 20 43 55  |57):.:. * FOR CU|
00000080: 52 53 4F 52 20 4C 45 46  54 20 2A 00 B5 04 14 00  |RSOR LEFT *.....|
00000090: 8F 20 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |. **************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000B0: 2A 2A 2A 2A 2A 00 DE 04  19 00 8F 20 2A 20 38 30  |*****...... * 80|
000000C0: 20 43 4F 4C 20 2D 20 54  54 3D 32 38 3A 54 4E 3D  | COL - TT=28:TN=|
000000D0: 32 31 3A 54 46 3D 31 32  3A 54 53 3D 34 32 00 07  |21:TF=12:TS=42..|
000000E0: 05 1E 00 8F 20 2A 20 34  2E 30 20 42 41 53 49 43  |.... * 4.0 BASIC|
000000F0: 20 2D 20 43 52 3D 31 36  37 3A 50 52 49 4E 54 43  | - CR=167:PRINTC|
00000100: 48 52 24 28 31 34 29 00  2D 05 23 00 8F 20 2A 20  |HR$(14).-.#.. * |
00000110: 34 30 20 43 4F 4C 20 2D  20 54 54 3D 39 3A 54 4E  |40 COL - TT=9:TN|
00000120: 3D 31 3A 54 46 3D 30 3A  54 53 3D 32 30 00 55 05  |=1:TF=0:TS=20.U.|
00000130: 28 00 8F 20 2A 20 43 36  34 20 20 20 20 20 20 20  |(.. * C64       |
00000140: 2D 20 43 52 3D 32 30 34  3A 50 4F 4B 45 35 33 32  |- CR=204:POKE532|
00000150: 37 32 2C 32 33 00 7F 05  2D 00 8F 20 2A 2A 2A 2A  |72,23...-.. ****|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
00000180: A9 05 32 00 54 54 B2 32  38 3A 54 4E B2 32 31 3A  |..2.TT.28:TN.21:|
00000190: 54 46 B2 31 32 3A 54 53  B2 34 32 3A 43 52 B2 31  |TF.12:TS.42:CR.1|
000001A0: 36 37 3A 99 C7 28 31 34  29 00 D0 05 33 00 8F 20  |67:..(14)...3.. |
000001B0: 44 45 46 41 55 4C 54 53  20 54 4F 20 38 30 20 43  |DEFAULTS TO 80 C|
000001C0: 4F 4C 55 4D 4E 2C 20 42  41 53 49 43 20 34 2E 30  |OLUMN, BASIC 4.0|
000001D0: 00 E7 05 37 00 99 C7 28  31 34 37 29 3A 97 20 43  |...7...(147):. C|
000001E0: 41 2C 20 56 43 3A 99 00  0A 06 3C 00 99 A3 54 54  |A, VC:....<...TT|
000001F0: 29 22 CD 59 20 CD 45 4E  55 20 2D 20 D6 45 52 53  |)".Y .ENU - .ERS|
00000200: 49 4F 4E 20 CF 4E 45 22  3A 99 00 3C 06 41 00 99  |ION .NE":..<.A..|
00000210: A3 54 4E 29 22 D0 4C 45  41 53 45 20 43 48 4F 4F  |.TN)".LEASE CHOO|
00000220: 53 45 20 54 48 45 20 53  45 43 54 49 4F 4E 20 52  |SE THE SECTION R|
00000230: 45 51 55 49 52 45 44 22  3A 99 3A 99 00 6E 06 46  |EQUIRED":.:..n.F|
00000240: 00 99 A3 54 46 29 22 28  41 29 20 D3 45 43 54 49  |...TF)"(A) .ECTI|
00000250: 4F 4E 20 CF 4E 45 22 A3  54 53 29 22 28 42 29 20  |ON .NE".TS)"(B) |
00000260: D3 45 43 54 49 4F 4E 20  D4 57 4F 22 3A 99 00 A3  |.ECTION .WO":...|
00000270: 06 4B 00 99 A3 54 46 29  22 28 43 29 20 D3 45 43  |.K...TF)"(C) .EC|
00000280: 54 49 4F 4E 20 D4 48 52  45 45 22 A3 54 53 29 22  |TION .HREE".TS)"|
00000290: 28 44 29 20 D3 45 43 54  49 4F 4E 20 C6 4F 55 52  |(D) .ECTION .OUR|
000002A0: 22 3A 99 00 D6 06 50 00  99 A3 54 46 29 22 28 45  |":....P...TF)"(E|
000002B0: 29 20 D3 45 43 54 49 4F  4E 20 C6 49 56 45 22 A3  |) .ECTION .IVE".|
000002C0: 54 53 29 22 28 46 29 20  D3 45 43 54 49 4F 4E 20  |TS)"(F) .ECTION |
000002D0: D3 49 58 22 3A 99 00 0A  07 55 00 99 A3 54 46 29  |.IX":....U...TF)|
000002E0: 22 28 58 29 20 C5 4E 44  20 D3 45 53 53 49 4F 4E  |"(X) .ND .ESSION|
000002F0: 22 A3 54 53 29 22 28 2A  29 20 D9 4F 55 52 20 C3  |".TS)"(*) .OUR .|
00000300: 48 4F 49 43 45 22 43 4C  24 3B 00 39 07 5A 00 8F  |HOICE"CL$;.9.Z..|
00000310: 20 2A 2A 2A 20 47 45 54  20 43 48 4F 49 43 45 20  | *** GET CHOICE |
00000320: 41 4E 44 20 41 43 54 20  4F 4E 20 49 54 20 53 45  |AND ACT ON IT SE|
00000330: 43 54 49 4F 4E 20 2A 2A  2A 00 68 07 5F 00 8D 31  |CTION ***.h._..1|
00000340: 38 35 3A 8B 41 24 B2 22  58 22 A7 31 31 35 3A 8F  |85:.A$."X".115:.|
00000350: 20 2A 20 45 4E 44 20 53  45 53 53 49 4F 4E 20 52  | * END SESSION R|
00000360: 4F 55 54 49 4E 45 20 2A  00 87 07 64 00 41 B2 C6  |OUTINE *...d.A..|
00000370: 28 41 24 29 AB 36 34 3A  8B 20 41 B3 31 20 B0 20  |(A$).64:. A.1 . |
00000380: 41 B1 36 20 A7 39 35 00  A9 07 69 00 91 20 41 20  |A.6 .95...i.. A |
00000390: 89 20 31 35 30 2C 31 35  35 2C 31 36 30 2C 31 36  |. 150,155,160,16|
000003A0: 35 2C 31 37 30 2C 31 37  35 00 CF 07 6E 00 8F 20  |5,170,175...n.. |
000003B0: 2A 2A 2A 20 45 4E 44 20  53 45 53 53 49 4F 4E 20  |*** END SESSION |
000003C0: 53 55 42 2D 53 45 43 54  49 4F 4E 20 2A 2A 2A 00  |SUB-SECTION ***.|
000003D0: EF 07 73 00 99 C7 28 31  34 37 29 3A 99 3A 99 A3  |..s...(147):.:..|
000003E0: 33 29 22 C5 4E 44 20 D3  45 53 53 49 4F 4E 22 00  |3)".ND .ESSION".|
000003F0: 08 08 78 00 99 A3 32 29  22 C1 52 45 20 D9 4F 55  |..x...2)".RE .OU|
00000400: 20 D3 55 52 45 20 3F 22  00 21 08 7D 00 99 22 28  | .URE ?".!.}.."(|
00000410: 59 29 20 D9 45 53 20 4F  52 20 28 4E 29 20 CE 4F  |Y) .ES OR (N) .O|
00000420: 22 00 34 08 82 00 8D 31  38 35 3A 8B 41 24 B2 22  |".4....185:.A$."|
00000430: 59 22 A7 80 00 43 08 87  00 8B 41 24 B2 22 4E 22  |Y"...C....A$."N"|
00000440: A7 31 35 00 4C 08 8C 00  89 31 33 30 00 75 08 91  |.15.L....130.u..|
00000450: 00 8F 20 2A 2A 2A 20 53  54 41 52 54 20 4F 46 20  |.. *** START OF |
00000460: 54 48 45 20 4D 41 49 4E  20 52 4F 55 54 49 4E 45  |THE MAIN ROUTINE|
00000470: 53 20 2A 2A 2A 00 92 08  96 00 99 C7 28 31 34 37  |S ***.......(147|
00000480: 29 22 D3 45 43 54 49 4F  4E 20 CF 4E 45 22 20 20  |)".ECTION .NE"  |
00000490: 3A 90 00 AF 08 9B 00 99  C7 28 31 34 37 29 22 D3  |:........(147)".|
000004A0: 45 43 54 49 4F 4E 20 D4  57 4F 22 20 20 3A 90 00  |ECTION .WO"  :..|
000004B0: CC 08 A0 00 99 C7 28 31  34 37 29 22 D3 45 43 54  |......(147)".ECT|
000004C0: 49 4F 4E 20 D4 48 52 45  45 22 3A 90 00 E9 08 A5  |ION .HREE":.....|
000004D0: 00 99 C7 28 31 34 37 29  22 D3 45 43 54 49 4F 4E  |...(147)".ECTION|
000004E0: 20 C6 4F 55 52 22 20 3A  90 00 06 09 AA 00 99 C7  | .OUR" :........|
000004F0: 28 31 34 37 29 22 D3 45  43 54 49 4F 4E 20 C6 49  |(147)".ECTION .I|
00000500: 56 45 22 20 3A 90 00 23  09 AF 00 99 C7 28 31 34  |VE" :..#.....(14|
00000510: 37 29 22 D3 45 43 54 49  4F 4E 20 D3 49 58 22 20  |7)".ECTION .IX" |
00000520: 20 3A 90 00 4D 09 B4 00  8F 20 2A 2A 2A 20 47 45  | :..M.... *** GE|
00000530: 54 20 41 20 43 48 41 52  41 43 54 45 52 20 53 55  |T A CHARACTER SU|
00000540: 42 2D 52 4F 55 54 49 4E  45 20 2A 2A 2A 00 59 09  |B-ROUTINE ***.Y.|
00000550: B9 00 97 20 43 52 20 2C  30 00 6C 09 BE 00 A1 41  |... CR ,0.l....A|
00000560: 24 3A 8B 41 24 B2 22 22  A7 31 39 30 00 7A 09 C3  |$:.A$."".190.z..|
00000570: 00 97 20 43 52 20 2C 31  3A 8E 00 00 00           |.. CR ,1:....   |

..0.... THE TRANSACTOR VOLUME 4 ISSUE 06
 PAGE 44.O.... A MENU FOR ALL OCCASIONS.
.....:CL$."":.A.1.14:CL$.CL$.G(157):.:. 
* FOR CURSOR LEFT *...... **************
*********************...... * 80 COL - T
T=28:TN=21:TF=12:TS=42...... * 4.0 BASIC
 - CR=167:PRINTCHR$(14).-.#.. * 40 COL -
 TT=9:TN=1:TF=0:TS=20.U.(.. * C64       
- CR=204:POKE53272,23..-.. ************
***********************...2.TT.28:TN.21:
TF.12:TS.42:CR.167:.G(14).P.3.. DEFAULTS
 TO 80 COLUMN, BASIC 4.0...7..G(147):. C
A, VC:....<...TT)"MY MENU - VERSION ONE"
:..<.A...TN)"PLEASE CHOOSE THE SECTION R
EQUIRED":.:..N.F...TF)"(A) SECTION ONE".
TS)"(B) SECTION TWO":....K...TF)"(C) SEC
TION THREE".TS)"(D) SECTION FOUR":..V.P.
..TF)"(E) SECTION FIVE".TS)"(F) SECTION 
SIX":....U...TF)"(X) END SESSION".TS)"(*
) YOUR CHOICE"CL$;.9.Z.. *** GET CHOICE 
AND ACT ON IT SECTION ***.H._..185:.A$."
X".115:. * END SESSION ROUTINE *...D.A.F
(A$).64:. A.1 . A.6 .95...I.. A . 150,15
5,160,165,170,175.O.N.. *** END SESSION 
SUB-SECTION ***...S..G(147):.:..3)"END S
ESSION"...X...2)"ARE YOU SURE ?".!.}.."(
Y) YES OR (N) NO".4....185:.A$."Y"...C..
..A$."N".15.L....130.U.... *** START OF 
THE MAIN ROUTINES ***......G(147)"SECTIO
N ONE"  :.......G(147)"SECTION TWO"  :..
L. ..G(147)"SECTION THREE":.......G(147)
"SECTION FOUR" :.......G(147)"SECTION FI
VE" :..#....G(147)"SECTION SIX"  :..M...
. *** GET A CHARACTER SUB-ROUTINE ***.Y.
... CR ,0.L....A$:.A$."".190.Z.C.. CR ,1
:....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL