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 33 |ISSUE 06 PAGE 43|
00000030: 00 55 04 0A 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 54 57 4F 00 9A 04 0F 00 41 24 28 31 29 B2 |E TWO.....A$(1).|
00000060: 22 50 52 47 31 22 3A 41 24 28 32 29 B2 22 50 52 |"PRG1":A$(2)."PR|
00000070: 47 32 22 3A 41 24 28 33 29 B2 22 50 52 47 33 22 |G2":A$(3)."PRG3"|
00000080: 3A 41 24 28 34 29 B2 22 50 52 47 34 22 3A 41 24 |:A$(4)."PRG4":A$|
00000090: 28 35 29 B2 22 50 52 47 35 22 00 E1 04 14 00 41 |(5)."PRG5".....A|
000000A0: 24 28 36 29 B2 22 50 52 47 36 22 3A 41 24 28 37 |$(6)."PRG6":A$(7|
000000B0: 29 B2 22 50 52 47 37 22 3A 41 24 28 38 29 B2 22 |)."PRG7":A$(8)."|
000000C0: 50 52 47 38 22 3A 41 24 28 39 29 B2 22 50 52 47 |PRG8":A$(9)."PRG|
000000D0: 39 22 3A 41 24 28 31 30 29 B2 22 50 52 47 31 30 |9":A$(10)."PRG10|
000000E0: 22 00 07 05 19 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |"...... ********|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000100: 2A 2A 2A 2A 2A 2A 2A 00 2D 05 1E 00 8F 20 2A 20 |*******.-.... * |
00000110: 38 30 20 43 4F 4C 20 20 20 20 2D 20 54 4C 3D 32 |80 COL - TL=2|
00000120: 33 3A 54 46 3D 31 31 3A 54 53 3D 34 30 00 64 05 |3:TF=11:TS=40.d.|
00000130: 23 00 8F 20 2A 20 34 2E 30 20 42 41 53 49 43 20 |#.. * 4.0 BASIC |
00000140: 2D 20 50 52 49 4E 54 43 48 52 24 28 31 34 29 3A |- PRINTCHR$(14):|
00000150: 4E 4B 3D 31 35 38 3A 4B 42 3D 36 32 33 3A 43 52 |NK=158:KB=623:CR|
00000160: 3D 31 36 37 00 88 05 28 00 8F 20 2A 20 34 30 20 |=167...(.. * 40 |
00000170: 43 4F 4C 20 20 20 20 2D 20 54 4C 3D 36 3A 54 46 |COL - TL=6:TF|
00000180: 3D 30 3A 54 53 3D 32 30 00 BE 05 2D 00 8F 20 2A |=0:TS=20...-.. *|
00000190: 20 43 36 34 20 2D 20 20 20 20 20 20 20 50 4F 4B | C64 - POK|
000001A0: 45 35 33 32 37 32 2C 32 33 3A 4E 4B 3D 31 39 38 |E53272,23:NK=198|
000001B0: 3A 4B 42 3D 36 33 31 3A 43 52 3D 32 30 34 00 E4 |:KB=631:CR=204..|
000001C0: 05 32 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.2.. ***********|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 2A 00 16 06 37 00 54 4C B2 32 33 3A 54 |****...7.TL.23:T|
000001F0: 46 B2 31 31 3A 54 53 B2 34 30 3A 99 C7 28 31 34 |F.11:TS.40:..(14|
00000200: 29 3A 4E 4B B2 31 35 38 3A 4B 42 B2 36 32 33 3A |):NK.158:KB.623:|
00000210: 43 52 B2 31 36 37 00 3D 06 38 00 8F 20 44 45 46 |CR.167.=.8.. DEF|
00000220: 41 55 4C 54 53 20 54 4F 20 38 30 20 43 4F 4C 55 |AULTS TO 80 COLU|
00000230: 4D 4E 2C 20 42 41 53 49 43 20 34 2E 30 00 6C 06 |MN, BASIC 4.0.l.|
00000240: 3C 00 99 C7 28 31 34 37 29 3A 99 A3 54 4C 29 22 |<...(147):..TL)"|
00000250: CD 41 53 54 45 52 20 CD 45 4E 55 20 D6 45 52 53 |.ASTER .ENU .ERS|
00000260: 49 4F 4E 20 32 2E 30 22 3A 99 3A 99 00 A2 06 41 |ION 2.0":.:....A|
00000270: 00 99 A3 54 46 29 22 28 41 29 20 D0 52 4F 47 52 |...TF)"(A) .ROGR|
00000280: 41 4D 20 CF 4E 45 20 20 22 A3 54 53 29 22 28 42 |AM .NE ".TS)"(B|
00000290: 29 20 D0 52 4F 47 52 41 4D 20 D4 57 4F 22 20 20 |) .ROGRAM .WO" |
000002A0: 3A 99 00 D8 06 46 00 99 A3 54 46 29 22 28 43 29 |:....F...TF)"(C)|
000002B0: 20 D0 52 4F 47 52 41 4D 20 D4 48 52 45 45 22 A3 | .ROGRAM .HREE".|
000002C0: 54 53 29 22 28 44 29 20 D0 52 4F 47 52 41 4D 20 |TS)"(D) .ROGRAM |
000002D0: C6 4F 55 52 22 20 3A 99 00 0E 07 4B 00 99 A3 54 |.OUR" :....K...T|
000002E0: 46 29 22 28 45 29 20 D0 52 4F 47 52 41 4D 20 C6 |F)"(E) .ROGRAM .|
000002F0: 49 56 45 20 22 A3 54 53 29 22 28 46 29 20 D0 52 |IVE ".TS)"(F) .R|
00000300: 4F 47 52 41 4D 20 D3 49 58 22 20 20 3A 99 00 44 |OGRAM .IX" :..D|
00000310: 07 50 00 99 A3 54 46 29 22 28 47 29 20 D0 52 4F |.P...TF)"(G) .RO|
00000320: 47 52 41 4D 20 D3 45 56 45 4E 22 A3 54 53 29 22 |GRAM .EVEN".TS)"|
00000330: 28 48 29 20 D0 52 4F 47 52 41 4D 20 C5 49 47 48 |(H) .ROGRAM .IGH|
00000340: 54 22 3A 99 00 79 07 55 00 99 A3 54 46 29 22 28 |T":..y.U...TF)"(|
00000350: 49 29 20 D0 52 4F 47 52 41 4D 20 CE 49 4E 45 20 |I) .ROGRAM .INE |
00000360: 22 A3 54 53 29 22 28 4A 29 20 D0 52 4F 47 52 41 |".TS)"(J) .ROGRA|
00000370: 4D 20 D4 45 4E 22 20 3A 99 00 AC 07 5A 00 99 A3 |M .EN" :....Z...|
00000380: 54 46 29 22 28 51 29 20 D1 55 49 54 20 20 20 20 |TF)"(Q) .UIT |
00000390: 20 20 20 20 20 22 A3 54 53 29 22 28 2A 29 22 C7 | ".TS)"(*)".|
000003A0: 28 31 35 37 29 C7 28 31 35 37 29 3B 00 D0 07 5F |(157).(157);..._|
000003B0: 00 42 24 B2 22 41 42 43 44 45 46 47 48 49 4A 51 |.B$."ABCDEFGHIJQ|
000003C0: 22 3A 8D 31 31 35 3A 8B 43 24 B2 22 51 22 A7 80 |":.115:.C$."Q"..|
000003D0: 00 FA 07 64 00 99 C7 28 31 34 37 29 C7 28 31 37 |...d...(147).(17|
000003E0: 29 22 4C 4F 41 44 22 C7 28 33 34 29 41 24 28 42 |)"LOAD".(34)A$(B|
000003F0: 29 C7 28 33 34 29 22 2C 38 22 00 12 08 69 00 99 |).(34)",8"...i..|
00000400: 3A 99 3A 99 3A 99 3A 99 22 52 55 4E 22 C7 28 31 |:.:.:.:."RUN".(1|
00000410: 39 29 00 38 08 6E 00 97 20 4E 4B 2C 34 3A 97 4B |9).8.n.. NK,4:.K|
00000420: 42 2C 31 39 3A 81 42 B2 31 A4 33 3A 97 4B 42 AA |B,19:.B.1.3:.KB.|
00000430: 42 2C 31 33 3A 82 3A 80 00 63 08 73 00 8D 31 33 |B,13:.:..c.s..13|
00000440: 30 3A 81 42 B2 31 A4 C3 28 42 24 29 3A 8B 43 24 |0:.B.1..(B$):.C$|
00000450: B3 B1 CA 28 42 24 2C 42 2C 31 29 A7 82 42 3A 89 |...(B$,B,1)..B:.|
00000460: 31 31 35 00 69 08 78 00 8E 00 8F 08 7D 00 8F 20 |115.i.x.....}.. |
00000470: 2A 2A 2A 20 47 45 54 20 41 20 43 48 41 52 41 43 |*** GET A CHARAC|
00000480: 54 45 52 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 |TER ROUTINE ***.|
00000490: 9A 08 82 00 97 20 43 52 2C 30 00 B2 08 87 00 A1 |..... CR,0......|
000004A0: 20 43 24 20 3A 20 8B 20 43 24 B2 22 22 20 A7 31 | C$ : . C$."" .1|
000004B0: 33 35 00 C1 08 8C 00 97 20 43 52 2C 31 20 3A 20 |35...... CR,1 : |
000004C0: 8E 00 00 00 |.... |
..0.... THE TRANSACTOR VOLUME 4 ISSUE 06
PAGE 43.U.... UNIVERSAL MASTER MENU TYP
E TWO.....A$(1)."PRG1":A$(2)."PRG2":A$(3
)."PRG3":A$(4)."PRG4":A$(5)."PRG5".....A
$(6)."PRG6":A$(7)."PRG7":A$(8)."PRG8":A$
(9)."PRG9":A$(10)."PRG10"...... ********
***********************.-.... * 80 COL
- TL=23:TF=11:TS=40.D.#.. * 4.0 BASIC
- PRINTCHR$(14):NK=158:KB=623:CR=167...(
.. * 40 COL - TL=6:TF=0:TS=20...-.. *
C64 - POKE53272,23:NK=198:KB=631:
CR=204...2.. ***************************
****...7.TL.23:TF.11:TS.40:.G(14):NK.158
:KB.623:CR.167.=.8.. DEFAULTS TO 80 COLU
MN, BASIC 4.0.L.<..G(147):..TL)"MASTER M
ENU VERSION 2.0":.:....A...TF)"(A) PROGR
AM ONE ".TS)"(B) PROGRAM TWO" :..X.F..
.TF)"(C) PROGRAM THREE".TS)"(D) PROGRAM
FOUR" :....K...TF)"(E) PROGRAM FIVE ".TS
)"(F) PROGRAM SIX" :..D.P...TF)"(G) PRO
GRAM SEVEN".TS)"(H) PROGRAM EIGHT":..Y.U
...TF)"(I) PROGRAM NINE ".TS)"(J) PROGRA
M TEN" :....Z...TF)"(Q) QUIT ".T
S)"(*)"G(157)G(157);.P._.B$."ABCDEFGHIJQ
":.115:.C$."Q".....D..G(147)G(17)"LOAD"G
(34)A$(B)G(34)",8"...I..:.:.:.:."RUN"G(1
9).8.N.. NK,4:.KB,19:.B.1.3:.KB.B,13:.:.
.C.S..130:.B.1.C(B$):.C$..J(B$,B,1)..B:.
115.I.X.....}.. *** GET A CHARACTER ROUT
INE ***...... CR,0...... C$ : . C$."" .1
35.A.... CR,1 : ....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL