MENU TYPE 1
FILE INFORMATION
FILENAME(S): MENU TYPE 1
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:12:52
APPEARS ON: 1 disk(s)
FILE HASH
4fcdf395ad470924e8d4f83038f9681017899d17d622388f5cd2a6f00962da46
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR 4 | MENU TYPE 1 | PRG | DuncanTwain | 5 | 1 | 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 31 |ISSUE 06 PAGE 41|
00000030: 00 55 04 01 00 8F 20 55 4E 49 56 45 52 53 41 4C |.U.... UNIVERSAL|
00000040: 20 4D 41 53 54 45 52 20 4D 45 4E 55 20 54 59 50 | MASTER MENU TYP|
00000050: 45 20 4F 4E 45 00 90 04 05 00 97 20 45 50 2C C2 |E ONE...... EP,.|
00000060: 28 41 45 29 3A 97 20 45 50 AA 31 2C C2 28 41 45 |(AE):. EP.1,.(AE|
00000070: AA 31 29 3A 9C 3A 8F 20 2A 20 46 49 52 53 54 20 |.1):.:. * FIRST |
00000080: 45 56 41 4C 55 41 54 45 44 20 4C 49 4E 45 20 2A |EVALUATED LINE *|
00000090: 00 B3 04 0A 00 8F 20 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 00 E1 04 0F 00 8F 20 2A 20 38 30 20 43 |***...... * 80 C|
000000C0: 4F 4C 20 20 20 20 20 20 2D 20 54 54 3D 32 38 3A |OL - TT=28:|
000000D0: 54 53 3D 32 32 3A 54 4C 3D 31 37 3A 54 52 3D 34 |TS=22:TL=17:TR=4|
000000E0: 36 00 20 05 14 00 8F 20 2A 20 34 2E 30 20 42 41 |6. .... * 4.0 BA|
000000F0: 53 49 43 20 20 20 2D 20 45 50 3D 34 32 3A 41 45 |SIC - EP=42:AE|
00000100: 3D 32 30 31 3A 43 52 3D 31 36 37 3A 4E 4B 3D 31 |=201:CR=167:NK=1|
00000110: 35 38 3A 50 52 49 4E 54 43 48 52 24 28 31 34 29 |58:PRINTCHR$(14)|
00000120: 00 4B 05 19 00 8F 20 2A 20 34 30 20 43 4F 4C 20 |.K.... * 40 COL |
00000130: 20 20 20 20 20 2D 20 54 54 3D 37 3A 54 53 3D 30 | - TT=7:TS=0|
00000140: 3A 54 4C 3D 30 3A 54 52 3D 32 30 00 89 05 1E 00 |:TL=0:TR=20.....|
00000150: 8F 20 2A 20 43 36 34 20 20 20 20 20 20 20 20 20 |. * C64 |
00000160: 2D 20 45 50 3D 34 35 3A 41 45 3D 31 37 34 3A 50 |- EP=45:AE=174:P|
00000170: 4F 4B 45 35 33 32 37 32 2C 32 33 3A 43 52 3D 32 |OKE53272,23:CR=2|
00000180: 30 34 3A 4E 4B 3D 31 39 38 00 AC 05 23 00 8F 20 |04:NK=198...#.. |
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EC 05 28 |************...(|
000001B0: 00 9C 3A 54 54 B2 32 38 3A 54 53 B2 32 32 3A 54 |..:TT.28:TS.22:T|
000001C0: 4C B2 31 37 3A 54 52 B2 34 36 3A 45 50 B2 34 32 |L.17:TR.46:EP.42|
000001D0: 3A 41 45 B2 32 30 31 3A 43 52 B2 31 36 37 3A 4E |:AE.201:CR.167:N|
000001E0: 4B B2 31 35 38 3A 99 C7 28 31 34 29 00 13 06 29 |K.158:..(14)...)|
000001F0: 00 8F 20 44 45 46 41 55 4C 54 53 20 54 4F 20 38 |.. DEFAULTS TO 8|
00000200: 30 20 43 4F 4C 55 4D 4E 2C 20 42 41 53 49 43 20 |0 COLUMN, BASIC |
00000210: 34 2E 30 00 34 06 2D 00 8D 35 35 3A 8D 31 34 35 |4.0.4.-..55:.145|
00000220: 3A 8D 31 38 35 3A 8D 32 31 30 3A 8D 32 33 30 3A |:.185:.210:.230:|
00000230: 89 32 34 35 00 5E 06 32 00 8F 20 2A 2A 2A 20 56 |.245.^.2.. *** V|
00000240: 41 52 49 41 42 4C 45 20 53 45 54 2D 55 50 20 53 |ARIABLE SET-UP S|
00000250: 55 42 2D 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 6A |UB-ROUTINE ***.j|
00000260: 06 37 00 86 42 24 28 32 31 29 00 94 06 3C 00 42 |.7..B$(21)...<.B|
00000270: 24 28 30 29 B2 22 50 52 47 31 22 3A 42 24 28 37 |$(0)."PRG1":B$(7|
00000280: 29 20 B2 22 28 41 29 20 D0 52 4F 47 52 41 4D 20 |) ."(A) .ROGRAM |
00000290: CF 4E 45 22 00 BE 06 41 00 42 24 28 31 29 B2 22 |.NE"...A.B$(1)."|
000002A0: 50 52 47 32 22 3A 42 24 28 38 29 20 B2 22 28 42 |PRG2":B$(8) ."(B|
000002B0: 29 20 D0 52 4F 47 52 41 4D 20 D4 57 4F 22 00 EA |) .ROGRAM .WO"..|
000002C0: 06 46 00 42 24 28 32 29 B2 22 50 52 47 33 22 3A |.F.B$(2)."PRG3":|
000002D0: 42 24 28 39 29 20 B2 22 28 43 29 20 D0 52 4F 47 |B$(9) ."(C) .ROG|
000002E0: 52 41 4D 20 D4 48 52 45 45 22 00 15 07 4B 00 42 |RAM .HREE"...K.B|
000002F0: 24 28 33 29 B2 22 50 52 47 34 22 3A 42 24 28 31 |$(3)."PRG4":B$(1|
00000300: 30 29 B2 22 28 44 29 20 D0 52 4F 47 52 41 4D 20 |0)."(D) .ROGRAM |
00000310: C6 4F 55 52 22 00 40 07 50 00 42 24 28 34 29 B2 |.OUR".@.P.B$(4).|
00000320: 22 50 52 47 35 22 3A 42 24 28 31 31 29 B2 22 28 |"PRG5":B$(11)."(|
00000330: 45 29 20 D0 52 4F 47 52 41 4D 20 C6 49 56 45 22 |E) .ROGRAM .IVE"|
00000340: 00 6A 07 55 00 42 24 28 35 29 B2 22 50 52 47 36 |.j.U.B$(5)."PRG6|
00000350: 22 3A 42 24 28 31 32 29 B2 22 28 46 29 20 D0 52 |":B$(12)."(F) .R|
00000360: 4F 47 52 41 4D 20 D3 49 58 22 00 96 07 5A 00 42 |OGRAM .IX"...Z.B|
00000370: 24 28 36 29 B2 22 50 52 47 37 22 3A 42 24 28 31 |$(6)."PRG7":B$(1|
00000380: 33 29 B2 22 28 47 29 20 D0 52 4F 47 52 41 4D 20 |3)."(G) .ROGRAM |
00000390: D3 45 56 45 4E 22 00 B4 07 5F 00 42 24 28 31 34 |.EVEN"..._.B$(14|
000003A0: 29 B2 22 28 51 29 20 D1 55 49 54 20 D0 52 4F 47 |)."(Q) .UIT .ROG|
000003B0: 52 41 4D 22 00 D9 07 64 00 42 24 28 31 35 29 B2 |RAM"...d.B$(15).|
000003C0: 22 CD 41 53 54 45 52 20 CD 45 4E 55 20 D6 45 52 |".ASTER .ENU .ER|
000003D0: 53 49 4F 4E 20 31 2E 30 22 00 09 08 69 00 42 24 |SION 1.0"...i.B$|
000003E0: 28 31 36 29 B2 22 D0 4C 45 41 53 45 20 C3 48 4F |(16).".LEASE .HO|
000003F0: 4F 53 45 20 D4 48 45 20 D0 52 4F 47 52 41 4D 20 |OSE .HE .ROGRAM |
00000400: D2 45 51 55 49 52 45 44 22 00 48 08 6E 00 42 24 |.EQUIRED".H.n.B$|
00000410: 28 31 37 29 B2 22 D9 4F 55 52 20 20 C3 48 4F 49 |(17).".OUR .HOI|
00000420: 43 45 20 20 28 2A 29 22 AA C7 28 31 35 37 29 AA |CE (*)"..(157).|
00000430: C7 28 31 35 37 29 3A 8F 20 28 43 55 52 53 4F 52 |.(157):. (CURSOR|
00000440: 20 4C 45 46 54 29 2A 32 00 7B 08 73 00 42 24 28 | LEFT)*2.{.s.B$(|
00000450: 31 38 29 B2 C7 28 31 39 29 AA C7 28 31 39 29 AA |18)..(19)..(19).|
00000460: C7 28 31 34 37 29 3A 8F 20 28 48 4F 4D 45 29 58 |.(147):. (HOME)X|
00000470: 32 20 2B 20 28 43 4C 45 41 52 29 00 B0 08 78 00 |2 + (CLEAR)...x.|
00000480: 42 24 28 31 39 29 B2 22 D4 48 45 20 D0 52 4F 47 |B$(19).".HE .ROG|
00000490: 52 41 4D 20 C3 48 4F 53 45 4E 20 C8 41 53 20 CE |RAM .HOSEN .AS .|
000004A0: 4F 54 20 C2 45 45 4E 20 CC 4F 43 41 54 45 44 22 |OT .EEN .OCATED"|
000004B0: 00 E5 08 7D 00 42 24 28 32 30 29 B2 22 D0 4C 45 |...}.B$(20).".LE|
000004C0: 41 53 45 20 C5 4E 53 55 52 45 20 D4 48 41 54 20 |ASE .NSURE .HAT |
000004D0: D9 4F 55 52 20 D0 52 4F 47 52 41 4D 20 C4 49 53 |.OUR .ROGRAM .IS|
000004E0: 4B 20 C9 53 22 00 1A 09 82 00 42 24 28 32 31 29 |K .S".....B$(21)|
000004F0: B2 22 C9 4E 20 C4 52 49 56 45 20 DA 45 52 4F 2E |.".N .RIVE .ERO.|
00000500: 20 D0 52 45 53 53 20 C1 4E 59 20 CB 45 59 20 D7 | .RESS .NY .EY .|
00000510: 48 45 4E 20 D2 45 41 44 59 22 00 20 09 87 00 8E |HEN .EADY". ....|
00000520: 00 49 09 8C 00 8F 20 2A 2A 2A 20 53 43 52 45 45 |.I.... *** SCREE|
00000530: 4E 20 44 49 53 50 4C 41 59 20 53 55 42 2D 52 4F |N DISPLAY SUB-RO|
00000540: 55 54 49 4E 45 20 2A 2A 2A 00 63 09 91 00 99 42 |UTINE ***.c....B|
00000550: 24 28 31 38 29 3A 99 3A 99 A3 54 54 29 42 24 28 |$(18):.:..TT)B$(|
00000560: 31 35 29 00 77 09 96 00 99 3A 99 A3 54 53 29 42 |15).w....:..TS)B|
00000570: 24 28 31 36 29 3A 99 00 91 09 9B 00 99 3A 99 A3 |$(16):.......:..|
00000580: 54 4C 29 42 24 28 37 29 A3 54 52 29 42 24 28 38 |TL)B$(7).TR)B$(8|
00000590: 29 00 AC 09 A0 00 99 3A 99 A3 54 4C 29 42 24 28 |)......:..TL)B$(|
000005A0: 39 29 A3 54 52 29 42 24 28 31 30 29 00 C8 09 A5 |9).TR)B$(10)....|
000005B0: 00 99 3A 99 A3 54 4C 29 42 24 28 31 31 29 A3 54 |..:..TL)B$(11).T|
000005C0: 52 29 42 24 28 31 32 29 00 E4 09 AA 00 99 3A 99 |R)B$(12)......:.|
000005D0: A3 54 4C 29 42 24 28 31 33 29 A3 54 52 29 42 24 |.TL)B$(13).TR)B$|
000005E0: 28 31 34 29 00 F9 09 AF 00 99 3A 99 A3 54 4C 29 |(14)......:..TL)|
000005F0: 42 24 28 31 37 29 3B 3A 8E 00 22 0A B4 00 8F 20 |B$(17);:..".... |
00000600: 2A 2A 2A 20 47 45 54 20 54 48 45 20 43 48 4F 49 |*** GET THE CHOI|
00000610: 43 45 20 53 55 42 2D 52 4F 55 54 49 4E 45 20 2A |CE SUB-ROUTINE *|
00000620: 2A 2A 00 2E 0A B9 00 97 20 43 52 2C 20 30 00 41 |**...... CR, 0.A|
00000630: 0A BE 00 A1 43 24 3A 8B 43 24 B2 22 22 A7 31 39 |....C$:.C$."".19|
00000640: 30 00 4F 0A C3 00 97 20 43 52 2C 20 31 3A 8E 00 |0.O.... CR, 1:..|
00000650: 8A 0A C8 00 8F 20 2A 2A 2A 20 43 48 45 43 4B 20 |..... *** CHECK |
00000660: 43 48 4F 49 43 45 20 41 4E 44 20 41 53 53 49 47 |CHOICE AND ASSIG|
00000670: 4E 20 56 41 52 49 41 42 4C 45 20 53 55 42 2D 52 |N VARIABLE SUB-R|
00000680: 4F 55 54 49 4E 45 20 2A 2A 2A 00 93 0A CD 00 8D |OUTINE ***......|
00000690: 31 38 35 00 A2 0A D2 00 8B 43 24 B2 22 51 22 A7 |185......C$."Q".|
000006A0: 20 80 00 DA 0A D7 00 43 B2 C6 28 43 24 29 AB 36 | ......C..(C$).6|
000006B0: 35 3A 8B 43 24 B3 22 41 22 20 B0 20 43 24 B1 22 |5:.C$."A" . C$."|
000006C0: 47 22 20 A7 32 30 35 3A 8F 20 2A 20 57 52 4F 4E |G" .205:. * WRON|
000006D0: 47 20 43 48 4F 49 43 45 20 2A 00 E0 0A DC 00 8E |G CHOICE *......|
000006E0: 00 1A 0B E1 00 8F 20 2A 2A 2A 20 43 48 45 43 4B |...... *** CHECK|
000006F0: 20 49 46 20 50 52 4F 47 52 41 4D 20 45 58 49 53 | IF PROGRAM EXIS|
00000700: 54 53 20 41 4E 44 20 4C 4F 41 44 20 49 4E 20 50 |TS AND LOAD IN P|
00000710: 52 4F 47 52 41 4D 20 2A 2A 2A 00 46 0B E6 00 9F |ROGRAM ***.F....|
00000720: 35 2C 38 2C 35 2C 22 30 3A 22 AA 42 24 28 43 29 |5,8,5,"0:".B$(C)|
00000730: AA 22 22 3A A1 23 35 2C 43 24 3A 8B 53 54 B3 B1 |."":.#5,C$:.ST..|
00000740: 30 A7 A0 35 3A 8E 00 5E 0B EB 00 A0 35 3A 93 22 |0..5:..^....5:."|
00000750: 30 3A 22 AA 42 24 28 43 29 AA 22 22 2C 38 00 8F |0:".B$(C)."",8..|
00000760: 0B F0 00 8F 20 2A 2A 2A 20 50 52 4F 47 52 41 4D |.... *** PROGRAM|
00000770: 20 44 4F 45 53 20 4E 4F 54 20 45 58 49 53 54 20 | DOES NOT EXIST |
00000780: 53 55 42 2D 53 45 43 54 49 4F 4E 20 2A 2A 2A 00 |SUB-SECTION ***.|
00000790: B4 0B F5 00 99 42 24 28 31 38 29 3B 42 24 28 31 |.....B$(18);B$(1|
000007A0: 39 29 3A 99 3A 99 42 24 28 32 30 29 3A 99 42 24 |9):.:.B$(20):.B$|
000007B0: 28 32 31 29 00 D1 0B FA 00 97 20 4E 4B 2C 30 3A |(21)...... NK,0:|
000007C0: 92 20 4E 4B 2C 31 3A 97 20 4E 4B 2C 30 3A 89 34 |. NK,1:. NK,0:.4|
000007D0: 30 00 00 00 |0... |
..0.... THE TRANSACTOR VOLUME 4 ISSUE 06
PAGE 41.U.... UNIVERSAL MASTER MENU TYP
E ONE...... EP,B(AE):. EP.1,B(AE.1):.:.
* FIRST EVALUATED LINE *...... *********
*******************...... * 80 COL
- TT=28:TS=22:TL=17:TR=46. .... * 4.0 BA
SIC - EP=42:AE=201:CR=167:NK=158:PRINT
CHR$(14).K.... * 40 COL - TT=7:TS=0
:TL=0:TR=20...... * C64 - EP=45:
AE=174:POKE53272,23:CR=204:NK=198...#..
****************************...(..:TT.28
:TS.22:TL.17:TR.46:EP.42:AE.201:CR.167:N
K.158:.G(14)...).. DEFAULTS TO 80 COLUMN
, BASIC 4.0.4.-..55:.145:.185:.210:.230:
.245.^.2.. *** VARIABLE SET-UP SUB-ROUTI
NE ***.J.7..B$(21)...<.B$(0)."PRG1":B$(7
) ."(A) PROGRAM ONE"...A.B$(1)."PRG2":B$
(8) ."(B) PROGRAM TWO"...F.B$(2)."PRG3":
B$(9) ."(C) PROGRAM THREE"...K.B$(3)."PR
G4":B$(10)."(D) PROGRAM FOUR".@.P.B$(4).
"PRG5":B$(11)."(E) PROGRAM FIVE".J.U.B$(
5)."PRG6":B$(12)."(F) PROGRAM SIX"...Z.B
$(6)."PRG7":B$(13)."(G) PROGRAM SEVEN"..
._.B$(14)."(Q) QUIT PROGRAM".Y.D.B$(15).
"MASTER MENU VERSION 1.0"...I.B$(16)."PL
EASE CHOOSE THE PROGRAM REQUIRED".H.N.B$
(17)."YOUR CHOICE (*)".G(157).G(157):.
(CURSOR LEFT)*2.{.S.B$(18).G(19).G(19).
G(147):. (HOME)X2 + (CLEAR)...X.B$(19)."
THE PROGRAM CHOSEN HAS NOT BEEN LOCATED"
...}.B$(20)."PLEASE ENSURE THAT YOUR PRO
GRAM DISK IS".....B$(21)."IN DRIVE ZERO.
PRESS ANY KEY WHEN READY". .....I.... *
** SCREEN DISPLAY SUB-ROUTINE ***.C....B
$(18):.:..TT)B$(15).W....:..TS)B$(16):..
.....:..TL)B$(7).TR)B$(8)... ..:..TL)B$(
9).TR)B$(10).H....:..TL)B$(11).TR)B$(12)
......:..TL)B$(13).TR)B$(14)......:..TL)
B$(17);:..".... *** GET THE CHOICE SUB-R
OUTINE ***...... CR, 0.A....C$:.C$."".19
0.O.C.. CR, 1:....H.. *** CHECK CHOICE A
ND ASSIGN VARIABLE SUB-ROUTINE ***...M..
185...R..C$."Q". ..Z.W.C.F(C$).65:.C$."A
" . C$."G" .205:. * WRONG CHOICE *......
...... *** CHECK IF PROGRAM EXISTS AND L
OAD IN PROGRAM ***.F....5,8,5,"0:".B$(C)
."":.#5,C$:.ST..0. 5:..^... 5:."0:".B$(C
)."",8...... *** PROGRAM DOES NOT EXIST
SUB-SECTION ***......B$(18);B$(19):.:.B$
(20):.B$(21).Q.... NK,0:. NK,1:. NK,0:.4
0...
> CLICK IMAGE PREVIEW FOR FULL MODAL