00000000: 01 04 1C 04 64 00 8F 20 53 41 56 45 22 30 3A 4C |....d.. SAVE"0:L|
00000010: 4F 41 44 20 26 20 52 55 4E 22 2C 38 00 2C 04 6E |OAD & RUN",8.,.n|
00000020: 00 8F 20 2A 2A 20 52 54 45 2F 38 37 00 51 04 78 |.. ** RTE/87.Q.x|
00000030: 00 8F 20 2A 2A 20 41 20 4C 4F 41 44 20 41 4E 44 |.. ** A LOAD AND|
00000040: 20 52 55 4E 20 49 4E 54 52 4F 44 55 43 54 49 4F | RUN INTRODUCTIO|
00000050: 4E 00 76 04 82 00 8F 20 2A 2A 20 46 4F 52 20 41 |N.v.... ** FOR A|
00000060: 4C 4C 20 43 4F 4D 4D 4F 44 4F 52 45 20 4D 41 43 |LL COMMODORE MAC|
00000070: 48 49 4E 45 53 2E 00 7C 04 8C 00 3A 00 96 04 96 |HINES..|...:....|
00000080: 00 44 56 B2 38 3A 20 8F 20 44 49 53 4B 20 44 45 |.DV.8: . DISK DE|
00000090: 56 49 43 45 20 23 00 B3 04 A0 00 50 44 B2 34 3A |VICE #.....PD.4:|
000000A0: 20 8F 20 50 52 49 4E 54 45 52 20 44 45 56 49 43 | . PRINTER DEVIC|
000000B0: 45 20 23 00 CF 04 AA 00 43 4C 53 24 B2 C7 28 31 |E #.....CLS$..(1|
000000C0: 34 37 29 3A 20 54 58 54 24 B2 C7 28 31 34 29 00 |47): TXT$..(14).|
000000D0: E0 04 B4 00 99 20 43 4C 53 24 3B 54 58 54 24 3B |..... CLS$;TXT$;|
000000E0: 00 03 05 BE 00 99 20 22 D4 52 41 4E 53 41 43 54 |...... ".RANSACT|
000000F0: 4F 52 20 D0 55 42 4C 49 53 48 49 4E 47 20 C9 4E |OR .UBLISHING .N|
00000100: 43 2E 22 00 26 05 C8 00 99 20 22 38 35 20 D7 45 |C.".&.... "85 .E|
00000110: 53 54 20 D7 49 4C 4D 4F 54 20 D3 54 52 45 45 54 |ST .ILMOT .TREET|
00000120: 2C 20 23 31 30 22 00 45 05 D2 00 99 20 22 D2 49 |, #10".E.... ".I|
00000130: 43 48 4D 4F 4E 44 20 C8 49 4C 4C 2C 20 CF 4E 54 |CHMOND .ILL, .NT|
00000140: 41 52 49 4F 22 00 5D 05 DC 00 99 20 22 C3 C1 CE |ARIO".].... "...|
00000150: C1 C4 C1 20 20 CC 34 C2 20 31 CB 37 22 00 7E 05 |... .4. 1.7".~.|
00000160: E6 00 99 20 22 54 45 4C 45 50 48 4F 4E 45 20 28 |... "TELEPHONE (|
00000170: 34 31 36 29 20 37 36 34 2D 35 32 37 33 22 00 84 |416) 764-5273"..|
00000180: 05 F0 00 99 00 A7 05 FA 00 99 20 22 C9 4E 53 45 |.......... ".NSE|
00000190: 52 54 20 59 4F 55 52 20 46 41 56 4F 55 52 49 54 |RT YOUR FAVOURIT|
000001A0: 45 20 42 4F 4F 54 22 00 BD 05 04 01 99 20 22 50 |E BOOT"...... "P|
000001B0: 52 4F 47 52 41 4D 20 48 45 52 45 2E 22 00 C3 05 |ROGRAM HERE."...|
000001C0: 0E 01 99 00 E5 05 18 01 85 20 22 D6 49 45 57 20 |......... ".IEW |
000001D0: C4 49 52 45 43 54 4F 52 59 20 28 59 2F 4E 29 20 |.IRECTORY (Y/N) |
000001E0: 22 3B 56 44 24 00 F9 05 22 01 8B 20 56 44 24 B2 |";VD$...".. VD$.|
000001F0: 22 4E 22 20 A7 20 34 30 30 00 0E 06 2C 01 8B 20 |"N" . 400...,.. |
00000200: 56 44 24 B3 B1 22 59 22 20 A7 20 32 38 30 00 14 |VD$.."Y" . 280..|
00000210: 06 36 01 3A 00 26 06 40 01 9F 20 38 2C 44 56 2C |.6.:.&.@.. 8,DV,|
00000220: 30 2C 22 24 30 22 00 43 06 4A 01 A1 23 38 2C 41 |0,"$0".C.J..#8,A|
00000230: 24 2C 41 24 3A 20 8F 20 54 52 41 53 48 20 42 59 |$,A$: . TRASH BY|
00000240: 54 45 53 00 6A 06 54 01 A1 23 38 2C 41 24 2C 41 |TES.j.T..#8,A$,A|
00000250: 24 2C 41 24 2C 41 31 24 3A 20 8B 20 53 54 20 A7 |$,A$,A1$: . ST .|
00000260: 20 A0 38 3A 20 89 20 34 30 30 00 8C 06 5E 01 99 | .8: . 400...^..|
00000270: 20 C6 28 41 24 AA C7 28 30 29 29 AA 32 35 36 AC | .(A$..(0)).256.|
00000280: C6 28 41 31 24 AA C7 28 30 29 29 3B 00 B0 06 68 |.(A1$..(0));...h|
00000290: 01 A1 23 38 2C 41 24 3A 20 8B 20 41 24 B3 B1 22 |..#8,A$: . A$.."|
000002A0: 22 20 A7 20 99 20 41 24 3B 3A 20 89 20 33 36 30 |" . . A$;: . 360|
000002B0: 00 BD 06 72 01 99 3A 20 89 20 33 34 30 00 C3 06 |...r..: . 340...|
000002C0: 7C 01 3A 00 D9 06 86 01 8F 20 2A 2A 20 4D 4F 52 ||.:...... ** MOR|
000002D0: 45 20 49 4E 46 4F 20 2A 2A 00 DF 06 90 01 99 00 |E INFO **.......|
000002E0: 03 07 9A 01 99 20 22 D7 4F 55 4C 44 20 59 4F 55 |..... ".OULD YOU|
000002F0: 20 4C 49 4B 45 20 54 4F 20 4B 4E 4F 57 20 4D 4F | LIKE TO KNOW MO|
00000300: 52 45 22 00 30 07 A4 01 85 20 22 41 42 4F 55 54 |RE".0.... "ABOUT|
00000310: 20 D4 52 41 4E 53 41 43 54 4F 52 20 CD 41 47 41 | .RANSACTOR .AGA|
00000320: 5A 49 4E 45 20 28 59 2F 4E 29 20 22 3B 59 4E 24 |ZINE (Y/N) ";YN$|
00000330: 00 44 07 AE 01 8B 20 59 4E 24 B2 22 4E 22 20 A7 |.D.... YN$."N" .|
00000340: 20 35 30 30 00 59 07 B8 01 8B 20 59 4E 24 B3 B1 | 500.Y.... YN$..|
00000350: 22 59 22 20 A7 20 34 30 30 00 5F 07 C2 01 3A 00 |"Y" . 400._...:.|
00000360: 7C 07 CC 01 9F 20 38 2C 44 56 2C 38 2C 22 30 3A ||.... 8,DV,8,"0:|
00000370: D2 D5 CE 20 CD C5 20 D4 C5 D8 D4 22 00 A4 07 D6 |... .. ...."....|
00000380: 01 81 20 58 B2 30 20 A4 20 31 3A 20 84 38 2C 41 |.. X.0 . 1: .8,A|
00000390: 24 3A 20 99 20 41 24 3A 20 58 B2 53 54 3A 20 82 |$: . A$: X.ST: .|
000003A0: 3A 20 A0 38 00 AA 07 E0 01 3A 00 BF 07 EA 01 8F |: .8.....:......|
000003B0: 20 2A 2A 20 53 55 42 20 46 4F 52 4D 20 2A 2A 00 | ** SUB FORM **.|
000003C0: C5 07 F4 01 99 00 E9 07 FE 01 99 20 22 D7 4F 55 |........... ".OU|
000003D0: 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 4F 20 50 |LD YOU LIKE TO P|
000003E0: 52 49 4E 54 20 4F 55 54 22 00 10 08 08 02 85 20 |RINT OUT"...... |
000003F0: 22 41 20 53 55 42 53 43 52 49 50 54 49 4F 4E 20 |"A SUBSCRIPTION |
00000400: 46 4F 52 4D 20 28 59 2F 4E 29 20 22 3B 59 4E 24 |FORM (Y/N) ";YN$|
00000410: 00 24 08 12 02 8B 20 59 4E 24 B2 22 4E 22 20 A7 |.$.... YN$."N" .|
00000420: 20 36 33 30 00 39 08 1C 02 8B 20 59 4E 24 B3 B1 | 630.9.... YN$..|
00000430: 22 59 22 20 A7 20 35 30 30 00 3F 08 26 02 3A 00 |"Y" . 500.?.&.:.|
00000440: 67 08 30 02 99 20 22 2A 20 D2 45 41 44 59 20 D0 |g.0.. "* .EADY .|
00000450: 52 49 4E 54 45 52 20 26 20 D0 52 45 53 53 20 C1 |RINTER & .RESS .|
00000460: 20 CB 45 59 20 2A 22 00 7F 08 3A 02 A1 20 41 24 | .EY *"...:.. A$|
00000470: 3A 20 8B 20 41 24 B2 22 22 20 A7 20 35 37 30 00 |: . A$."" . 570.|
00000480: A1 08 44 02 9F 20 34 2C 50 44 3A 20 8F 20 50 44 |..D.. 4,PD: . PD|
00000490: 3D 50 52 49 4E 54 45 52 20 44 45 56 49 43 45 20 |=PRINTER DEVICE |
000004A0: 23 00 BE 08 4E 02 9F 20 38 2C 44 56 2C 38 2C 22 |#...N.. 8,DV,8,"|
000004B0: 30 3A D2 D5 CE 20 CD C5 20 C6 CF D2 CD 22 00 EB |0:... .. ...."..|
000004C0: 08 58 02 81 20 58 B2 30 20 A4 20 31 3A 20 84 38 |.X.. X.0 . 1: .8|
000004D0: 2C 41 24 3A 20 58 B2 53 54 3A 20 98 34 2C 41 24 |,A$: X.ST: .4,A$|
000004E0: 3A 20 82 3A 20 A0 38 3A 20 A0 34 00 F1 08 62 02 |: .: .8: .4...b.|
000004F0: 3A 00 01 09 6C 02 8F 20 2A 2A 20 42 59 45 20 2A |:...l.. ** BYE *|
00000500: 2A 00 0C 09 76 02 99 20 43 4C 53 24 00 2D 09 80 |*...v.. CLS$.-..|
00000510: 02 99 20 22 D4 48 41 4E 4B 20 59 4F 55 20 46 4F |.. ".HANK YOU FO|
00000520: 52 20 53 55 50 50 4F 52 54 49 4E 47 22 00 49 09 |R SUPPORTING".I.|
00000530: 8A 02 99 20 22 D4 52 41 4E 53 41 43 54 4F 52 20 |... ".RANSACTOR |
00000540: CD 41 47 41 5A 49 4E 45 22 00 4F 09 94 02 80 00 |.AGAZINE".O.....|
00000550: 00 00 |.. |
....D.. SAVE"0:LOAD & RUN",8.,.N.. ** RT
E/87.Q.X.. ** A LOAD AND RUN INTRODUCTIO
N.V.... ** FOR ALL COMMODORE MACHINES..|
...:.....DV.8: . DISK DEVICE #... .PD.4:
. PRINTER DEVICE #.O...CLS$.G(147): TXT
$.G(14)...... CLS$;TXT$;...... "TRANSACT
OR PUBLISHING INC.".&.H.. "85 WEST WILMO
T STREET, #10".E.R.. "RICHMOND HILL, ONT
ARIO".].... "CANADA L4B 1K7".~.... "TEL
EPHONE (416) 764-5273"............ "INSE
RT YOUR FAVOURITE BOOT"...... "PROGRAM H
ERE.".C.......... "VIEW DIRECTORY (Y/N)
";VD$...".. VD$."N" . 400...,.. VD$.."Y"
. 280...6.:.&.@.. 8,DV,0,"$0".C.J..#8,A
$,A$: . TRASH BYTES.J.T..#8,A$,A$,A$,A1$
: . ST . 8: . 400...^.. F(A$.G(0)).256.
F(A1$.G(0));...H..#8,A$: . A$.."" . . A$
;: . 360...R..: . 340.C.|.:.Y.... ** MOR
E INFO **............ "WOULD YOU LIKE TO
KNOW MORE".0.... "ABOUT TRANSACTOR MAGA
ZINE (Y/N) ";YN$.D.... YN$."N" . 500.Y..
.. YN$.."Y" . 400._.B.:.|.L.. 8,DV,8,"0:
RUN ME TEXT"...V.. X.0 . 1: .8,A$: . A$:
X.ST: .: 8.....:...... ** SUB FORM **.
E.......... "WOULD YOU LIKE TO PRINT OUT
"...... "A SUBSCRIPTION FORM (Y/N) ";YN$
.$.... YN$."N" . 630.9.... YN$.."Y" . 50
0.?.&.:.G.0.. "* READY PRINTER & PRESS A
KEY *"..:.. A$: . A$."" . 570...D.. 4,
PD: . PD=PRINTER DEVICE #...N.. 8,DV,8,"
0:RUN ME FORM"...X.. X.0 . 1: .8,A$: X.S
T: .4,A$: .: 8: 4...B.:...L.. ** BYE *
*...V.. CLS$.-.... "THANK YOU FOR SUPPOR
TING".I.... "TRANSACTOR MAGAZINE".O.....
..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL