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 31 00 6D 04 |..- PROGRAM 1.m.|
00000050: 14 00 8F 2D 20 53 45 54 20 55 50 20 41 52 52 41 |...- SET UP ARRA|
00000060: 59 53 2C 20 56 41 52 49 41 42 4C 45 53 00 76 04 |YS, VARIABLES.v.|
00000070: 1E 00 53 B2 35 30 00 97 04 28 00 86 20 50 4C 24 |..S.50...(.. PL$|
00000080: 28 53 29 2C 44 55 24 28 53 29 2C 57 4F 24 28 53 |(S),DU$(S),WO$(S|
00000090: 29 2C 4C 44 28 53 29 00 B0 04 32 00 8F 2D 20 49 |),LD(S)...2..- I|
000000A0: 4E 49 54 49 41 4C 49 5A 45 20 41 52 52 41 59 53 |NITIALIZE ARRAYS|
000000B0: 00 BE 04 3C 00 81 20 49 B2 31 20 A4 20 53 00 D4 |...<.. I.1 . S..|
000000C0: 04 46 00 3A 50 4C 24 28 49 29 B2 22 20 20 20 20 |.F.:PL$(I)." |
000000D0: 20 20 20 22 00 E8 04 50 00 3A 44 55 24 28 49 29 | "...P.:DU$(I)|
000000E0: B2 22 20 20 20 20 20 22 00 F0 04 5A 00 82 20 49 |." "...Z.. I|
000000F0: 00 04 05 64 00 8F 2D 20 49 4E 50 55 54 20 41 52 |...d..- INPUT AR|
00000100: 52 41 59 53 00 0D 05 6E 00 4E 52 B2 30 00 1B 05 |RAYS...n.NR.0...|
00000110: 78 00 81 20 49 B2 31 20 A4 20 53 00 30 05 82 00 |x.. I.1 . S.0...|
00000120: 3A 87 20 50 4C 24 28 49 29 2C 44 55 24 28 49 29 |:. PL$(I),DU$(I)|
00000130: 00 4E 05 8C 00 3A 8B 20 50 4C 24 28 49 29 B2 22 |.N...:. PL$(I)."|
00000140: 44 55 4D 20 4E 55 4D 22 20 A7 20 31 37 30 00 5B |DUM NUM" . 170.[|
00000150: 05 96 00 3A 4E 52 B2 4E 52 AA 31 00 63 05 A0 00 |...:NR.NR.1.c...|
00000160: 82 20 49 00 89 05 AA 00 8F 2D 20 52 45 41 44 20 |. I......- READ |
00000170: 44 55 45 20 44 41 54 45 53 20 49 4E 54 4F 20 57 |DUE DATES INTO W|
00000180: 4F 52 4B 20 41 52 52 41 59 00 98 05 B4 00 81 20 |ORK ARRAY...... |
00000190: 49 B2 31 20 A4 20 4E 52 00 AB 05 BE 00 3A 57 4F |I.1 . NR.....:WO|
000001A0: 24 28 49 29 B2 44 55 24 28 49 29 00 B3 05 C8 00 |$(I).DU$(I).....|
000001B0: 82 20 49 00 BD 05 D2 00 55 4C B2 4E 52 00 C6 05 |. I.....UL.NR...|
000001C0: DC 00 53 4D B2 31 00 D1 05 E6 00 8D 20 38 30 30 |..SM.1...... 800|
000001D0: 30 00 DB 05 F0 00 53 52 B2 53 45 00 E1 05 3F 1F |0.....SR.SE...?.|
000001E0: 80 00 EA 05 40 1F 49 B2 53 4D 00 FB 05 4A 1F 3A |....@.I.SM...J.:|
000001F0: 53 4D 24 B2 57 4F 24 28 53 4D 29 00 06 06 54 1F |SM$.WO$(SM)...T.|
00000200: 3A 53 42 B2 53 4D 00 12 06 5E 1F 3A 4B B2 53 4D |:SB.SM...^.:K.SM|
00000210: AA 31 00 2C 06 68 1F 3A 8B 20 53 4D 24 B3 B2 57 |.1.,.h.:. SM$..W|
00000220: 4F 24 28 4B 29 20 A7 20 38 30 37 30 00 3D 06 72 |O$(K) . 8070.=.r|
00000230: 1F 3A 3A 53 4D 24 B2 57 4F 24 28 4B 29 00 48 06 |.::SM$.WO$(K).H.|
00000240: 7C 1F 3A 3A 53 42 B2 4B 00 54 06 86 1F 3A 3A 4B ||.::SB.K.T...::K|
00000250: B2 4B AA 31 00 68 06 90 1F 3A 8B 20 4B B3 B2 55 |.K.1.h...:. K..U|
00000260: 4C 20 A7 20 38 30 34 30 00 7C 06 9A 1F 3A 8B 20 |L . 8040.|...:. |
00000270: 49 B3 B1 53 4D 20 A7 20 38 31 34 30 00 AC 06 A4 |I..SM . 8140....|
00000280: 1F 3A 8F 2D 20 45 53 54 41 42 4C 49 53 48 20 45 |.:.- ESTABLISH E|
00000290: 4E 54 52 59 20 50 4F 49 4E 54 20 54 4F 20 54 48 |NTRY POINT TO TH|
000002A0: 45 20 4C 49 4E 4B 20 41 52 52 41 59 00 B7 06 AE |E LINK ARRAY....|
000002B0: 1F 3A 53 45 B2 53 42 00 C1 06 B8 1F 3A 4A B2 53 |.:SE.SB.....:J.S|
000002C0: 45 00 CD 06 C2 1F 3A 89 20 38 31 36 30 00 DB 06 |E.....:. 8160...|
000002D0: CC 1F 3A 4C 44 28 4A 29 B2 53 42 00 E5 06 D6 1F |..:LD(J).SB.....|
000002E0: 3A 4A B2 53 42 00 F6 06 E0 1F 3A 57 4F 24 28 53 |:J.SB.....:WO$(S|
000002F0: 42 29 B2 22 5B 22 00 01 07 EA 1F 3A 49 B2 49 AA |B)."[".....:I.I.|
00000300: 31 00 14 07 F4 1F 8B 20 49 B3 B2 55 4C 20 A7 20 |1...... I..UL . |
00000310: 38 30 31 30 00 20 07 FE 1F 4C 44 28 4A 29 B2 30 |8010. ...LD(J).0|
00000320: 00 26 07 08 20 8E 00 48 07 10 27 83 20 54 45 52 |.&.. ..H..'. TER|
00000330: 20 36 38 36 2C 31 32 2D 30 37 2C 4C 41 53 20 32 | 686,12-07,LAS 2|
00000340: 34 31 2C 31 32 2D 31 38 00 6A 07 11 27 83 20 4A |41,12-18.j..'. J|
00000350: 44 4C 20 34 31 33 2C 31 32 2D 31 31 2C 56 41 58 |DL 413,12-11,VAX|
00000360: 20 37 35 30 2C 31 32 2D 32 37 00 8C 07 12 27 83 | 750,12-27....'.|
00000370: 20 53 4A 53 20 30 31 37 2C 31 32 2D 30 33 2C 53 | SJS 017,12-03,S|
00000380: 50 59 20 30 30 37 2C 31 32 2D 31 31 00 A0 07 13 |PY 007,12-11....|
00000390: 27 83 20 44 55 4D 20 4E 55 4D 2C 39 39 2D 39 39 |'. DUM NUM,99-99|
000003A0: 00 00 00 |... |
..<.... THE TRANSACTOR VOLUME 5 ISSUE 05
PAGE 76.M....- PROGRAM 1.M.
...- SET UP ARRAYS, VARIABLES.V...S.50..
.(.. PL$(S),DU$(S),WO$(S),LD(S)...2..- I
NITIALIZE ARRAYS...<.. I.1 . S.T.F.:PL$(
I)." "...P.:DU$(I)." "...Z.. I
...D..- INPUT ARRAYS...N.NR.0...X.. I.1
. S.0...:. PL$(I),DU$(I).N...:. PL$(I)."
DUM NUM" . 170.[...:NR.NR.1.C. .. I.....
.- READ DUE DATES INTO WORK ARRAY......
I.1 . NR.....:WO$(I).DU$(I)...H.. I...R.
UL.NR.F...SM.1.Q.... 8000.....SR.SE...?.
....@.I.SM...J.:SM$.WO$(SM)...T.:SB.SM..
.^.:K.SM.1.,.H.:. SM$..WO$(K) . 8070.=.R
.::SM$.WO$(K).H.|.::SB.K.T...::K.K.1.H..
.:. K..UL . 8040.|...:. I..SM . 8140....
.:.- ESTABLISH ENTRY POINT TO THE LINK A
RRAY.....:SE.SB.A...:J.SE.M.B.:. 8160...
L.:LD(J).SB...V.:J.SB.....:WO$(SB)."["..
...:I.I.1...... I..UL . 8010. ...LD(J).0
.&.. ..H..'. TER 686,12-07,LAS 241,12-18
.J..'. JDL 413,12-11,VAX 750,12-27....'.
SJS 017,12-03,SPY 007,12-11. ..'. DUM N
UM,99-99...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL