00000000: 01 04 3C 04 00 00 8F 20 54 48 45 20 54 52 41 4E |..<.... 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 35 20 20 20 20 20 20 20 20 |ISSUE 05 |
00000030: 20 20 20 20 20 50 41 47 45 20 37 36 00 4D 04 0A | PAGE 76.M..|
00000040: 00 8F 2D 20 50 52 4F 47 52 41 4D 20 32 00 75 04 |..- PROGRAM 2.u.|
00000050: 28 00 86 20 50 4C 24 28 53 29 2C 44 55 24 28 53 |(.. PL$(S),DU$(S|
00000060: 29 2C 57 4F 24 28 53 29 2C 4D 49 24 28 53 29 2C |),WO$(S),MI$(S),|
00000070: 4C 44 28 53 29 00 8A 04 55 00 3A 4D 49 24 28 49 |LD(S)...U.:MI$(I|
00000080: 29 B2 22 20 20 20 20 20 20 22 00 A8 04 8C 00 3A |)." ".....:|
00000090: 8B 20 50 4C 24 28 49 29 B2 22 44 55 4D 20 4E 55 |. PL$(I)."DUM NU|
000000A0: 4D 22 20 A7 20 31 36 35 00 B5 04 96 00 3A 4E 52 |M" . 165.....:NR|
000000B0: B2 4E 52 AA 31 00 D5 04 A5 00 8F 2D 20 42 4C 41 |.NR.1......- BLA|
000000C0: 4E 4B 20 4F 55 54 20 54 48 45 20 44 55 4D 4D 59 |NK OUT THE DUMMY|
000000D0: 20 44 41 54 41 00 EA 04 A6 00 50 4C 24 28 49 29 | DATA.....PL$(I)|
000000E0: B2 22 20 20 20 20 20 20 20 22 00 FD 04 A7 00 44 |." ".....D|
000000F0: 55 24 28 49 29 B2 22 20 20 20 20 20 22 00 1B 05 |U$(I)." "...|
00000100: E8 03 8F 2D 20 46 4F 52 20 41 56 41 49 4C 41 42 |...- FOR AVAILAB|
00000110: 4C 45 20 56 45 48 49 43 4C 45 53 00 24 05 F2 03 |LE VEHICLES.$...|
00000120: 4E 41 B2 30 00 34 05 FC 03 42 24 B2 22 20 20 20 |NA.0.4...B$." |
00000130: 20 20 20 22 00 45 05 06 04 81 20 49 B2 4E 52 AA | ".E.... I.NR.|
00000140: 31 20 A4 20 53 00 5A 05 10 04 3A 87 20 50 4C 24 |1 . S.Z...:. PL$|
00000150: 28 49 29 2C 4D 49 24 28 49 29 00 79 05 1A 04 3A |(I),MI$(I).y...:|
00000160: 8B 20 50 4C 24 28 49 29 B2 22 44 55 4D 20 4E 55 |. PL$(I)."DUM NU|
00000170: 4D 22 20 A7 20 31 30 39 30 00 9E 05 24 04 3A 4D |M" . 1090...$.:M|
00000180: 49 24 28 49 29 B2 C8 28 42 24 2C 36 AB C3 28 4D |I$(I)..(B$,6..(M|
00000190: 49 24 28 49 29 29 29 AA 4D 49 24 28 49 29 00 AB |I$(I))).MI$(I)..|
000001A0: 05 2E 04 3A 4E 41 B2 4E 41 AA 31 00 B3 05 38 04 |...:NA.NA.1...8.|
000001B0: 82 20 49 00 D3 05 42 04 8F 2D 20 42 4C 41 4E 4B |. I...B..- BLANK|
000001C0: 20 4F 55 54 20 54 48 45 20 44 55 4D 4D 59 20 44 | OUT THE DUMMY D|
000001D0: 41 54 41 00 E8 05 4C 04 50 4C 24 28 49 29 B2 22 |ATA...L.PL$(I)."|
000001E0: 20 20 20 20 20 20 20 22 00 FC 05 56 04 4D 49 24 | "...V.MI$|
000001F0: 28 49 29 B2 22 20 20 20 20 20 20 22 00 37 06 60 |(I)." ".7.`|
00000200: 04 8F 2D 20 53 45 54 20 55 50 20 4C 4F 57 45 52 |..- SET UP LOWER|
00000210: 20 41 4E 44 20 55 50 50 45 52 20 4C 49 4D 49 54 | AND UPPER LIMIT|
00000220: 53 20 4F 4E 20 54 48 49 53 20 50 41 52 54 20 4F |S ON THIS PART O|
00000230: 46 20 41 52 52 41 59 00 43 06 6A 04 53 4D B2 4E |F ARRAY.C.j.SM.N|
00000240: 52 AA 31 00 50 06 74 04 55 4C B2 4E 52 AA 4E 41 |R.1.P.t.UL.NR.NA|
00000250: 00 77 06 7E 04 8F 2D 20 52 45 41 44 20 4D 49 4C |.w.~..- READ MIL|
00000260: 45 41 47 45 20 49 4E 54 4F 20 57 4F 52 4B 49 4E |EAGE INTO WORKIN|
00000270: 47 20 41 52 52 41 59 00 87 06 88 04 81 20 49 B2 |G ARRAY...... I.|
00000280: 53 4D 20 A4 20 55 4C 00 9A 06 92 04 3A 57 4F 24 |SM . UL.....:WO$|
00000290: 28 49 29 B2 4D 49 24 28 49 29 00 A2 06 9C 04 82 |(I).MI$(I)......|
000002A0: 20 49 00 AD 06 A6 04 8D 20 38 30 30 30 00 B7 06 | I...... 8000...|
000002B0: B0 04 53 41 B2 53 45 00 DA 06 D0 07 8F 2D 20 46 |..SA.SE......- F|
000002C0: 4F 52 20 56 45 48 49 43 4C 45 53 20 42 45 49 4E |OR VEHICLES BEIN|
000002D0: 47 20 53 45 52 56 49 43 45 44 00 E3 06 DA 07 4E |G SERVICED.....N|
000002E0: 53 B2 30 00 F3 06 E4 07 42 24 B2 22 20 20 20 20 |S.0.....B$." |
000002F0: 20 20 22 00 07 07 EE 07 81 20 49 B2 4E 52 AA 4E | "...... I.NR.N|
00000300: 41 AA 31 20 A4 20 53 00 1C 07 F8 07 3A 87 20 50 |A.1 . S.....:. P|
00000310: 4C 24 28 49 29 2C 4D 49 24 28 49 29 00 3B 07 02 |L$(I),MI$(I).;..|
00000320: 08 3A 8B 20 50 4C 24 28 49 29 B2 22 44 55 4D 20 |.:. PL$(I)."DUM |
00000330: 4E 55 4D 22 20 A7 20 32 30 39 30 00 60 07 0C 08 |NUM" . 2090.`...|
00000340: 3A 4D 49 24 28 49 29 B2 C8 28 42 24 2C 36 AB C3 |:MI$(I)..(B$,6..|
00000350: 28 4D 49 24 28 49 29 29 29 AA 4D 49 24 28 49 29 |(MI$(I))).MI$(I)|
00000360: 00 6D 07 16 08 3A 4E 53 B2 4E 53 AA 31 00 75 07 |.m...:NS.NS.1.u.|
00000370: 20 08 82 20 49 00 95 07 2A 08 8F 2D 20 42 4C 41 | .. I...*..- BLA|
00000380: 4E 4B 20 4F 55 54 20 54 48 45 20 44 55 4D 4D 59 |NK OUT THE DUMMY|
00000390: 20 44 41 54 41 00 AA 07 34 08 50 4C 24 28 49 29 | DATA...4.PL$(I)|
000003A0: B2 22 20 20 20 20 20 20 20 22 00 BE 07 3E 08 4D |." "...>.M|
000003B0: 49 24 28 49 29 B2 22 20 20 20 20 20 20 22 00 E0 |I$(I)." "..|
000003C0: 07 48 08 8F 2D 20 53 45 54 20 4C 4F 57 45 52 20 |.H..- SET LOWER |
000003D0: 41 4E 44 20 55 50 50 45 52 20 4C 49 4D 49 54 53 |AND UPPER LIMITS|
000003E0: 00 EF 07 52 08 53 4D B2 4E 52 AA 4E 41 AA 31 00 |...R.SM.NR.NA.1.|
000003F0: FF 07 5C 08 55 4C B2 4E 52 AA 4E 41 AA 4E 53 00 |..\.UL.NR.NA.NS.|
00000400: 23 08 66 08 8F 2D 20 52 45 41 44 20 4D 49 4C 45 |#.f..- READ MILE|
00000410: 41 47 45 20 49 4E 54 4F 20 57 4F 52 4B 20 41 52 |AGE INTO WORK AR|
00000420: 52 41 59 00 33 08 70 08 81 20 49 B2 53 4D 20 A4 |RAY.3.p.. I.SM .|
00000430: 20 55 4C 00 46 08 7A 08 3A 57 4F 24 28 49 29 B2 | UL.F.z.:WO$(I).|
00000440: 4D 49 24 28 49 29 00 4E 08 84 08 82 20 49 00 59 |MI$(I).N.... I.Y|
00000450: 08 8E 08 8D 20 38 30 30 30 00 63 08 98 08 53 53 |.... 8000.c...SS|
00000460: B2 53 45 00 7A 08 B8 0B 8F 2D 20 4C 49 4E 4B 20 |.SE.z....- LINK |
00000470: 46 52 45 45 20 53 50 41 43 45 00 85 08 C2 0B 49 |FREE SPACE.....I|
00000480: B2 55 4C AA 31 00 8E 08 CC 0B 53 46 B2 49 00 9F |.UL.1.....SF.I..|
00000490: 08 D6 0B 8B 20 49 B2 53 20 A7 20 33 30 37 30 00 |.... I.S . 3070.|
000004A0: AD 08 E0 0B 4C 44 28 49 29 B2 49 AA 31 00 B8 08 |....LD(I).I.1...|
000004B0: EA 0B 3A 49 B2 49 AA 31 00 CB 08 F4 0B 8B 20 49 |..:I.I.1...... I|
000004C0: B3 B2 34 39 20 A7 20 33 30 34 30 00 D7 08 FE 0B |..49 . 3040.....|
000004D0: 4C 44 28 53 29 B2 30 00 F9 08 14 27 83 20 4C 4F |LD(S).0....'. LO|
000004E0: 53 20 31 39 30 2C 31 30 31 37 36 30 2C 4E 4A 5A |S 190,101760,NJZ|
000004F0: 20 32 34 32 2C 31 35 36 39 00 1D 09 15 27 83 20 | 242,1569....'. |
00000500: 4B 46 44 20 38 32 32 2C 31 33 37 35 36 34 2C 54 |KFD 822,137564,T|
00000510: 4E 48 20 34 38 37 2C 32 30 30 31 34 37 00 3E 09 |NH 487,200147.>.|
00000520: 16 27 83 20 5A 4F 4D 20 34 33 34 2C 36 35 37 32 |.'. ZOM 434,6572|
00000530: 2C 45 41 4D 20 38 37 36 2C 38 37 36 32 34 00 5D |,EAM 876,87624.]|
00000540: 09 17 27 83 20 55 50 58 20 38 31 34 2C 31 36 35 |..'. UPX 814,165|
00000550: 38 33 2C 44 55 4D 20 4E 55 4D 2C 2D 31 00 80 09 |83,DUM NUM,-1...|
00000560: 18 27 83 20 45 52 45 20 30 39 38 2C 36 30 31 30 |.'. ERE 098,6010|
00000570: 35 2C 54 52 4B 20 36 33 33 2C 31 32 30 33 35 34 |5,TRK 633,120354|
00000580: 00 9F 09 19 27 83 20 47 42 44 20 34 38 34 2C 33 |....'. GBD 484,3|
00000590: 32 39 30 30 2C 44 55 4D 20 4E 55 4D 2C 2D 31 00 |2900,DUM NUM,-1.|
000005A0: 00 00 |.. |
..<.... THE TRANSACTOR VOLUME 5 ISSUE 05
PAGE 76.M....- PROGRAM 2.U.
(.. PL$(S),DU$(S),WO$(S),MI$(S),LD(S)...
U.:MI$(I)." ".....:. PL$(I)."DUM NU
M" . 165.....:NR.NR.1.U....- BLANK OUT T
HE DUMMY DATA.....PL$(I)." ".....D
U$(I)." "......- FOR AVAILABLE VEHIC
LES.$...NA.0.4...B$." ".E.... I.NR.
1 . S.Z...:. PL$(I),MI$(I).Y...:. PL$(I)
."DUM NUM" . 1090...$.:MI$(I).H(B$,6.C(M
I$(I))).MI$(I).....:NA.NA.1...8.. I.S.B.
.- BLANK OUT THE DUMMY DATA...L.PL$(I)."
"...V.MI$(I)." ".7.`..- SET
UP LOWER AND UPPER LIMITS ON THIS PART O
F ARRAY.C.J.SM.NR.1.P.T.UL.NR.NA.W.~..-
READ MILEAGE INTO WORKING ARRAY...... I.
SM . UL.....:WO$(I).MI$(I)...... I......
8000.....SA.SE.Z.P..- FOR VEHICLES BEIN
G SERVICED...Z.NS.0.....B$." ".....
. I.NR.NA.1 . S.....:. PL$(I),MI$(I).;..
.:. PL$(I)."DUM NUM" . 2090.`...:MI$(I).
H(B$,6.C(MI$(I))).MI$(I).M...:NS.NS.1.U.
.. I...*..- BLANK OUT THE DUMMY DATA...
4.PL$(I)." "...>.MI$(I)." "..
.H..- SET LOWER AND UPPER LIMITS...R.SM.
NR.NA.1...\.UL.NR.NA.NS.#.F..- READ MILE
AGE INTO WORK ARRAY.3.P.. I.SM . UL.F.Z.
:WO$(I).MI$(I).N.... I.Y.... 8000.C...SS
.SE.Z....- LINK FREE SPACE...B.I.UL.1...
L.SF.I...V.. I.S . 3070.....LD(I).I.1...
..:I.I.1.K.... I..49 . 3040.W...LD(S).0.
...'. LOS 190,101760,NJZ 242,1569....'.
KFD 822,137564,TNH 487,200147.>..'. ZOM
434,6572,EAM 876,87624.]..'. UPX 814,165
83,DUM NUM,-1....'. ERE 098,60105,TRK 63
3,120354....'. GBD 484,32900,DUM NUM,-1.
..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL