00000000: 01 04 38 04 00 00 8F 20 54 48 45 20 54 52 41 4E |..8.... THE TRAN|
00000010: 53 41 43 54 4F 52 20 56 4F 4C 55 4D 45 20 35 20 |SACTOR VOLUME 5 |
00000020: 49 53 53 55 45 20 30 36 20 20 20 20 20 20 20 20 |ISSUE 06 |
00000030: 20 50 41 47 45 20 37 31 00 71 04 64 00 8F 20 3A | PAGE 71.q.d.. :|
00000040: 20 53 41 56 45 22 40 30 3A 44 52 49 56 45 20 50 | SAVE"@0:DRIVE P|
00000050: 45 45 4B 45 52 22 2C 38 3A 56 45 52 49 46 59 22 |EEKER",8:VERIFY"|
00000060: 30 3A 44 52 49 56 45 20 50 45 45 4B 45 52 22 2C |0:DRIVE PEEKER",|
00000070: 38 00 95 04 69 00 8F 20 3A 20 2A 2A 20 44 52 49 |8...i.. : ** DRI|
00000080: 56 45 20 50 45 45 4B 45 52 20 2D 20 52 54 45 2F |VE PEEKER - RTE/|
00000090: 38 34 20 2A 2A 00 DB 04 6E 00 8F 20 3A 20 2A 2A |84 **...n.. : **|
000000A0: 20 57 49 4C 4C 20 53 43 4F 55 54 20 41 42 4F 55 | WILL SCOUT ABOU|
000000B0: 54 20 57 49 54 48 49 4E 20 59 4F 55 52 20 44 52 |T WITHIN YOUR DR|
000000C0: 49 56 45 20 26 20 52 45 50 4F 52 54 20 42 41 43 |IVE & REPORT BAC|
000000D0: 4B 20 54 4F 20 59 4F 55 20 2A 2A 00 F5 04 73 00 |K TO YOU **...s.|
000000E0: 99 22 2A 2A 20 44 52 49 56 45 20 50 45 45 4B 45 |."** DRIVE PEEKE|
000000F0: 52 20 2A 2A 22 00 10 05 78 00 48 58 24 B2 22 30 |R **"...x.HX$."0|
00000100: 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 22 |123456789ABCDEF"|
00000110: 00 2F 05 7D 00 85 22 48 45 58 20 3A 20 53 54 41 |./.}.."HEX : STA|
00000120: 52 54 2C 20 45 4E 44 20 22 3B 53 24 2C 45 24 00 |RT, END ";S$,E$.|
00000130: 6B 05 82 00 56 41 24 B2 53 24 20 3A 20 8D 32 31 |k...VA$.S$ : .21|
00000140: 35 20 3A 20 53 B2 C5 28 56 41 24 29 20 3A 20 8F |5 : S..(VA$) : .|
00000150: 20 3E 20 43 4F 4E 56 45 52 54 20 53 54 41 52 54 | > CONVERT START|
00000160: 20 54 4F 20 44 45 43 49 4D 41 4C 00 A7 05 87 00 | TO DECIMAL.....|
00000170: 56 41 24 B2 45 24 20 3A 20 8D 32 31 35 20 3A 20 |VA$.E$ : .215 : |
00000180: 45 B2 C5 28 56 41 24 29 20 3A 20 8F 20 3E 20 43 |E..(VA$) : . > C|
00000190: 4F 4E 56 45 52 54 20 45 4E 44 20 20 20 54 4F 20 |ONVERT END TO |
000001A0: 44 45 43 49 4D 41 4C 00 CA 05 8C 00 85 22 53 29 |DECIMAL......"S)|
000001B0: 20 53 43 52 45 45 4E 20 3A 20 50 29 20 50 52 49 | SCREEN : P) PRI|
000001C0: 4E 54 45 52 20 22 3B 53 50 24 00 E1 05 91 00 44 |NTER ";SP$.....D|
000001D0: 56 B2 33 3A 8B 53 50 24 B2 22 50 22 A7 44 56 B2 |V.3:.SP$."P".DV.|
000001E0: 34 00 EE 05 96 00 9F 20 31 2C 28 44 56 29 00 FC |4...... 1,(DV)..|
000001F0: 05 9B 00 9F 20 31 35 2C 38 2C 31 35 00 17 06 A0 |.... 15,8,15....|
00000200: 00 81 20 50 4B B2 53 20 A4 20 45 20 A9 20 38 20 |.. PK.S . E . 8 |
00000210: 3A 20 56 24 B2 22 22 00 34 06 A5 00 4D 48 25 B2 |: V$."".4...MH%.|
00000220: 50 4B AD 32 35 36 3A 4D 4C B2 50 4B AB 4D 48 25 |PK.256:ML.PK.MH%|
00000230: AC 32 35 36 00 6B 06 AA 00 98 31 35 2C 22 4D 2D |.256.k....15,"M-|
00000240: 52 22 C7 28 4D 4C 29 C7 28 4D 48 25 29 C7 28 38 |R".(ML).(MH%).(8|
00000250: 29 20 3A 20 8F 20 3E 20 52 45 41 44 20 49 4E 20 |) : . > READ IN |
00000260: 45 49 47 48 54 20 43 48 41 52 53 00 A7 06 AF 00 |EIGHT CHARS.....|
00000270: 46 4C 41 47 B2 31 3A 56 B2 4D 48 25 3A 8D 20 31 |FLAG.1:V.MH%:. 1|
00000280: 39 30 3A 98 31 2C 48 54 24 3B 3A 56 B2 4D 4C 3A |90:.1,HT$;:V.ML:|
00000290: 8D 20 31 39 30 3A 98 31 2C 48 54 24 22 20 22 3B |. 190:.1,HT$" ";|
000002A0: 3A 46 4C 41 47 B2 30 00 B7 06 B4 00 81 20 58 20 |:FLAG.0...... X |
000002B0: B2 20 30 20 A4 20 37 00 E2 06 B9 00 A1 23 31 35 |. 0 . 7......#15|
000002C0: 2C 41 24 20 3A 20 56 B2 C6 28 41 24 AA C7 28 30 |,A$ : V..(A$..(0|
000002D0: 29 29 20 3A 20 56 24 B2 56 24 AA C7 28 56 B0 36 |)) : V$.V$..(V.6|
000002E0: 34 29 00 F9 06 BE 00 48 25 B2 56 AD 31 36 3A 4C |4).....H%.V.16:L|
000002F0: 4F B2 56 AB 48 25 AC 31 36 00 28 07 C3 00 48 54 |O.V.H%.16.(...HT|
00000300: 24 B2 CA 28 48 58 24 2C 48 25 AA 31 2C 31 29 AA |$..(HX$,H%.1,1).|
00000310: CA 28 48 58 24 2C 4C 4F AA 31 2C 31 29 3A 8B 20 |.(HX$,LO.1,1):. |
00000320: 46 4C 41 47 20 A7 20 8E 00 37 07 C8 00 98 31 2C |FLAG . ..7....1,|
00000330: 48 54 24 22 20 22 3B 00 5E 07 CD 00 82 20 58 20 |HT$" ";.^.... X |
00000340: 3A 20 98 31 2C 56 24 20 3A 20 82 20 50 4B 20 3A |: .1,V$ : . PK :|
00000350: 20 A0 31 20 3A 20 A0 20 31 35 20 3A 20 80 00 73 | .1 : . 15 : ..s|
00000360: 07 D2 00 8F 20 3A 20 3E 3E 20 48 45 58 20 2D 20 |.... : >> HEX - |
00000370: 44 45 43 00 85 07 D7 00 4C 4E B2 C3 28 56 41 24 |DEC.....LN..(VA$|
00000380: 29 3A 46 B2 30 00 B2 07 DC 00 81 58 B2 30 A4 4C |):F.0......X.0.L|
00000390: 4E AB 31 3A 56 B2 C6 28 CA 28 56 41 24 2C 4C 4E |N.1:V..(.(VA$,LN|
000003A0: AB 58 2C 31 29 29 AB 34 38 3A 59 B2 B6 28 56 B1 |.X,1)).48:Y..(V.|
000003B0: 39 29 00 DD 07 E1 00 46 B2 46 AA 28 28 56 AB 28 |9).....F.F.((V.(|
000003C0: 59 AC 37 29 29 AC 31 36 AE 58 29 3A 82 3A 56 41 |Y.7)).16.X):.:VA|
000003D0: 24 B2 CA 28 C4 28 46 29 2C 32 29 3A 8E 00 00 00 |$..(.(F),2):....|
..8.... THE TRANSACTOR VOLUME 5 ISSUE 06
PAGE 71.Q.D.. : SAVE"@0:DRIVE P
EEKER",8:VERIFY"0:DRIVE PEEKER",8...I..
: ** DRIVE PEEKER - RTE/84 **...N.. : **
WILL SCOUT ABOUT WITHIN YOUR DRIVE & RE
PORT BACK TO YOU **...S.."** DRIVE PEEKE
R **"...X.HX$."0123456789ABCDEF"./.}.."H
EX : START, END ";S$,E$.K...VA$.S$ : .21
5 : S.E(VA$) : . > CONVERT START TO DECI
MAL.....VA$.E$ : .215 : E.E(VA$) : . > C
ONVERT END TO DECIMAL.J...."S) SCREEN
: P) PRINTER ";SP$.....DV.3:.SP$."P".DV.
4...... 1,(DV)...... 15,8,15... .. PK.S
. E . 8 : V$."".4...MH%.PK.256:ML.PK.MH%
.256.K....15,"M-R"G(ML)G(MH%)G(8) : . >
READ IN EIGHT CHARS.....FLAG.1:V.MH%:. 1
90:.1,HT$;:V.ML:. 190:.1,HT$" ";:FLAG.0.
..... X . 0 . 7......#15,A$ : V.F(A$.G(0
)) : V$.V$.G(V.64).....H%.V.16:LO.V.H%.1
6.(.C.HT$.J(HX$,H%.1,1).J(HX$,LO.1,1):.
FLAG . ..7.H..1,HT$" ";.^.M.. X : .1,V$
: . PK : 1 : 15 : ..S.R.. : >> HEX -
DEC...W.LN.C(VA$):F.0......X.0.LN.1:V.F(
J(VA$,LN.X,1)).48:Y..(V.9).....F.F.((V.(
Y.7)).16.X):.:VA$.J(D(F),2):....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL