PRICER

00000000: 01 04 17 04 00 00 9C 3A  97 35 39 34 36 38 2C 31  |.......:.59468,1|
00000010: 34 3A 50 4B B2 31 34 00  43 04 01 00 8F 20 50 52  |4:PK.14.C.... PR|
00000020: 49 43 45 52 20 43 4F 50  59 52 49 47 48 54 20 28  |ICER COPYRIGHT (|
00000030: 43 29 20 31 39 37 39 20  47 4C 45 4E 20 46 49 53  |C) 1979 GLEN FIS|
00000040: 48 45 52 00 63 04 02 00  8F 20 43 55 52 53 4F 52  |HER.c.... CURSOR|
00000050: 20 23 37 2C 20 46 45 42  52 55 41 52 59 2C 20 31  | #7, FEBRUARY, 1|
00000060: 39 37 39 00 84 04 03 00  8F 20 42 4F 58 20 35 35  |979...... BOX 55|
00000070: 30 2C 20 47 4F 4C 45 54  41 2C 20 43 41 2E 20 39  |0, GOLETA, CA. 9|
00000080: 33 30 31 37 00 8A 04 04  00 3A 00 AA 04 5A 00 50  |3017.....:...Z.P|
00000090: 47 24 B2 22 50 52 49 43  45 52 22 3A 4E 4D 24 B2  |G$."PRICER":NM$.|
000000A0: 22 37 22 3A 8D 36 32 30  30 30 00 CA 04 64 00 43  |"7":.62000...d.C|
000000B0: 52 24 B2 C7 28 31 33 29  3A 43 4D 24 B2 22 2C 20  |R$..(13):CM$.", |
000000C0: 22 3A 43 4C 24 B2 22 3A  20 22 00 F0 04 6E 00 50  |":CL$.": "...n.P|
000000D0: 4C 24 B2 22 2C 20 D0 CC  C5 C1 D3 C5 2E 22 3A 4C  |L$.", .......":L|
000000E0: 24 B2 22 12 CC 92 22 3A  55 24 B2 22 12 D5 92 22  |$."...":U$."..."|
000000F0: 00 FB 04 C8 00 8C 3A 44  54 B2 30 00 25 05 D2 00  |......:DT.0.%...|
00000100: 87 45 49 24 2C 45 4E 24  2C 45 53 2C 50 50 24 3A  |.EI$,EN$,ES,PP$:|
00000110: 8B 45 49 24 B3 B1 22 22  A7 44 54 B2 44 54 AA 31  |.EI$.."".DT.DT.1|
00000120: 3A 89 32 31 30 00 44 05  DC 00 87 44 43 24 3A 8B  |:.210.D....DC$:.|
00000130: 44 43 24 B3 B1 22 22 A7  44 43 B2 44 43 AA 31 3A  |DC$.."".DC.DC.1:|
00000140: 89 32 32 30 00 70 05 E8  03 50 52 24 B2 22 45 CE  |.220.p...PR$."E.|
00000150: D4 C5 D2 20 CF D6 C5 D2  C8 C5 C1 C4 20 D2 C1 D4  |... ........ ...|
00000160: C5 3A 20 22 3A 8D 35 39  30 30 30 3A 4F 56 B2 4E  |.: ":.59000:OV.N|
00000170: 00 A6 05 ED 03 8B 4F 56  B3 30 B0 4F 56 B1 B2 31  |......OV.0.OV..1|
00000180: A7 99 22 45 CE D4 C5 D2  20 C1 A0 C4 C5 C3 C9 CD  |.."E.... .......|
00000190: C1 CC A0 C6 D2 C1 C3 D4  C9 CF CE 22 3B 50 4C 24  |...........";PL$|
000001A0: 3A 89 31 30 30 30 00 C8  05 F2 03 50 52 24 B2 22  |:.1000.....PR$."|
000001B0: 11 47 26 41 20 D2 C1 D4  C5 3A 20 22 3A 8D 35 39  |.G&A ....: ":.59|
000001C0: 30 30 30 3A 47 41 B2 4E  00 FE 05 F7 03 8B 47 41  |000:GA.N......GA|
000001D0: B3 30 B0 47 41 B1 B2 31  A7 99 22 45 CE D4 C5 D2  |.0.GA..1.."E....|
000001E0: 20 C1 A0 C4 C5 C3 C9 CD  C1 CC A0 C6 D2 C1 C3 D4  | ...............|
000001F0: C9 CF CE 22 3B 50 4C 24  3A 89 31 30 31 30 00 23  |...";PL$:.1010.#|
00000200: 06 FC 03 50 52 24 B2 22  11 50 D2 CF C6 C9 D4 20  |...PR$.".P..... |
00000210: D2 C1 D4 C5 3A 20 22 3A  8D 35 39 30 30 30 3A 50  |....: ":.59000:P|
00000220: 46 B2 4E 00 59 06 01 04  8B 50 46 B3 30 B0 50 46  |F.N.Y....PF.0.PF|
00000230: B1 B2 31 A7 99 22 45 CE  D4 C5 D2 20 C1 A0 C4 C5  |..1.."E.... ....|
00000240: C3 C9 CD C1 CC A0 C6 D2  C1 C3 D4 C9 CF CE 22 3B  |..............";|
00000250: 50 4C 24 3A 89 31 30 32  30 00 6B 06 06 04 4D 46  |PL$:.1020.k...MF|
00000260: B2 31 AA 4F 56 AA 47 41  AA 50 46 00 AA 06 10 04  |.1.OV.GA.PF.....|
00000270: 50 52 24 B2 22 11 49 D3  20 CC C1 C2 CF D2 A0 C9  |PR$.".I. .......|
00000280: CE A0 28 31 29 20 C8 CF  D5 D2 D3 2C 20 CF D2 20  |..(1) ....., .. |
00000290: 28 32 29 20 C4 C1 D9 D3  3F 20 22 3A 4C B2 31 3A  |(2) ....? ":L.1:|
000002A0: 48 B2 32 3A 8D 35 38 30  30 30 00 DE 06 1A 04 4C  |H.2:.58000.....L|
000002B0: 50 44 B2 28 4E B2 32 29  3A 4C 50 24 B2 22 20 D0  |PD.(N.2):LP$." .|
000002C0: C5 D2 20 C8 CF D5 D2 2E  22 3A 8B 4C 50 44 A7 4C  |.. .....":.LPD.L|
000002D0: 50 24 B2 22 20 D0 C5 D2  20 C4 C1 D9 2E 22 00 1C  |P$." ... ...."..|
000002E0: 07 2E 04 4C B2 31 3A 48  B2 44 54 3A 50 52 24 B2  |...L.1:H.DT:PR$.|
000002F0: 22 11 48 CF D7 A0 CD C1  CE D9 A0 D0 C5 CF D0 CC  |".H.............|
00000300: C5 A0 CF CE A0 D4 C8 C9  D3 A0 CA CF C2 3F 20 22  |.............? "|
00000310: 3A 8D 35 38 30 30 30 3A  50 43 B2 4E 00 40 07 4C  |:.58000:PC.N.@.L|
00000320: 04 86 45 49 24 28 50 43  29 2C 45 4E 24 28 50 43  |..EI$(PC),EN$(PC|
00000330: 29 2C 45 53 28 50 43 29  2C 44 43 24 28 44 43 29  |),ES(PC),DC$(DC)|
00000340: 00 7B 07 56 04 99 22 11  45 CE D4 C5 D2 A0 C9 CE  |.{.V..".E.......|
00000350: C9 D4 C9 C1 CC D3 A0 CF  C6 A0 D0 C5 CF D0 CC C5  |................|
00000360: 20 CF CE 20 D4 C8 C5 22  3A 99 22 CA CF C2 2C 20  | .. ...":."..., |
00000370: D0 D2 C5 D3 D3 C9 CE C7  20 22 3B 00 A3 07 60 04  |........ ";...`.|
00000380: 99 22 12 52 45 54 55 52  4E 92 20 C1 C6 D4 C5 D2  |.".RETURN. .....|
00000390: A0 C5 C1 C3 C8 A0 CF CE  C5 2E 22 3A 81 49 B2 31  |..........":.I.1|
000003A0: A4 50 43 00 BD 07 6A 04  99 22 49 CE C9 D4 C9 C1  |.PC...j.."I.....|
000003B0: CC D3 3F 20 22 3B 3A 8D  36 30 30 30 30 00 EA 07  |..? ";:.60000...|
000003C0: 74 04 8B 49 4E 24 B2 22  22 A7 99 22 11 44 CF CE  |t..IN$.""..".D..|
000003D0: 27 D4 A0 D3 CB C9 D0 A0  C5 CE D4 D2 C9 C5 D3 22  |'.............."|
000003E0: 3B 50 4C 24 3A 89 31 31  33 30 00 13 08 7E 04 51  |;PL$:.1130...~.Q|
000003F0: 59 B2 49 4E 24 B2 22 3F  22 3A 8C 3A 81 4A B2 31  |Y.IN$."?":.:.J.1|
00000400: A4 44 54 3A 87 45 49 24  2C 45 4E 24 2C 45 53 2C  |.DT:.EI$,EN$,ES,|
00000410: 50 50 24 00 30 08 83 04  8B 51 59 A7 99 22 20 20  |PP$.0....QY.."  |
00000420: 20 22 3B 45 49 24 2C 45  4E 24 3A 89 31 31 37 30  | ";EI$,EN$:.1170|
00000430: 00 42 08 88 04 8B 45 49  24 B2 49 4E 24 A7 31 31  |.B....EI$.IN$.11|
00000440: 38 30 00 52 08 92 04 82  4A 3A 8B 51 59 A7 31 31  |80.R....J:.QY.11|
00000450: 33 30 00 83 08 97 04 99  22 11 4E CF 20 CF CE C5  |30......".N. ...|
00000460: 20 C8 C1 D3 20 D4 C8 CF  D3 C5 A0 C9 CE C9 D4 C9  | ... ...........|
00000470: C1 CC D3 2E 22 3A 49 4E  24 B2 22 3F 22 3A 89 31  |....":IN$."?":.1|
00000480: 31 35 30 00 BE 08 9C 04  45 49 24 28 49 29 B2 45  |150.....EI$(I).E|
00000490: 49 24 3A 45 4E 24 28 49  29 B2 45 4E 24 3A 45 53  |I$:EN$(I).EN$:ES|
000004A0: 28 49 29 B2 45 53 3A 8B  50 50 24 B2 22 59 52 22  |(I).ES:.PP$."YR"|
000004B0: A7 45 53 28 49 29 B2 45  53 AD 32 30 38 30 00 ED  |.ES(I).ES.2080..|
000004C0: 08 A6 04 99 22 43 CF D3  D4 A0 C6 CF D2 20 22 3B  |...."C....... ";|
000004D0: 45 4E 24 3B 22 20 C9 D3  3A 22 3A 4E B2 45 53 28  |EN$;" ..:":N.ES(|
000004E0: 49 29 3A 8B 4C 50 44 A7  4E B2 4E AC 38 00 15 09  |I):.LPD.N.N.8...|
000004F0: B0 04 8D 35 38 31 35 30  3A 99 22 20 20 22 3B 5A  |...58150:."  ";Z|
00000500: 55 24 3B 55 24 3B 43 4D  24 3B 5A 4C 24 3B 4C 24  |U$;U$;CM$;ZL$;L$|
00000510: 3B 3B 4C 50 24 00 1C 09  BA 04 82 49 00 26 09 6C  |;;LP$......I.&.l|
00000520: 07 89 32 35 30 30 00 71  09 C4 09 50 52 24 B2 22  |..2500.q...PR$."|
00000530: 11 41 D2 C5 20 D4 C9 CD  C5 20 C5 D3 D4 C9 CD C1  |.A.. .... ......|
00000540: D4 C5 D3 A0 C2 D9 A0 28  31 29 20 D7 C5 C5 CB D3  |.......(1) .....|
00000550: 2C 20 CF D2 A0 28 32 29  20 CD CF CE D4 C8 D3 3F  |, ...(2) ......?|
00000560: 20 22 3A 4C B2 31 3A 48  B2 32 3A 8D 35 38 30 30  | ":L.1:H.2:.5800|
00000570: 30 00 99 09 CE 09 57 4B  B2 4E B2 31 3A 55 4E 24  |0.....WK.N.1:UN$|
00000580: B2 22 CD CF CE D4 C8 D3  22 3A 8B 57 4B A7 55 4E  |."......":.WK.UN|
00000590: 24 B2 22 D7 C5 C5 CB D3  22 00 B9 09 E2 09 8C 3A  |$."....."......:|
000005A0: 81 49 B2 31 A4 44 54 AA  31 3A 87 54 24 2C 54 24  |.I.1.DT.1:.T$,T$|
000005B0: 2C 54 24 2C 54 24 3A 82  49 00 DD 09 E7 09 81 49  |,T$,T$:.I......I|
000005C0: B2 31 A4 44 43 3A 87 44  43 24 28 49 29 3A 82 49  |.1.DC:.DC$(I):.I|
000005D0: 3A 87 54 24 3A 8B 57 4B  A7 32 36 30 30 00 FD 09  |:.T$:.WK.2600...|
000005E0: EC 09 86 4D 4E 24 28 31  32 29 3A 81 49 B2 31 A4  |...MN$(12):.I.1.|
000005F0: 31 32 3A 87 4D 4E 24 28  49 29 3A 82 49 00 2B 0A  |12:.MN$(I):.I.+.|
00000600: F6 09 99 22 11 53 D4 C1  D2 D4 C9 CE C7 A0 CD CF  |...".S..........|
00000610: CE D4 C8 3F 20 22 3B 3A  8D 36 30 30 30 30 3A 8B  |...? ";:.60000:.|
00000620: 49 4E 24 B2 22 22 A7 32  35 35 30 00 58 0A 00 0A  |IN$."".2550.X...|
00000630: 81 49 B2 31 A4 31 32 3A  8B 49 4E 24 B2 C8 28 4D  |.I.1.12:.IN$..(M|
00000640: 4E 24 28 49 29 2C C3 28  49 4E 24 29 29 A7 4D 4E  |N$(I),.(IN$)).MN|
00000650: B2 49 3A 89 32 35 38 30  00 77 0A 0A 0A 82 49 3A  |.I:.2580.w....I:|
00000660: 99 22 55 CE CB CE CF D7  CE 20 CD CF CE D4 C8 2E  |."U...... ......|
00000670: 22 3A 89 32 35 35 30 00  A9 0A 14 0A 50 52 24 B2  |":.2550.....PR$.|
00000680: 22 11 53 D4 C1 D2 D4 C9  CE C7 A0 D9 C5 C1 D2 3F  |".S............?|
00000690: 20 22 3A 4C B2 31 39 30  30 3A 48 B2 30 3A 8D 35  | ":L.1900:H.0:.5|
000006A0: 38 30 30 30 3A 59 52 B2  4E 00 EF 0A 28 0A 50 52  |8000:YR.N...(.PR|
000006B0: 24 B2 22 11 48 CF D7 A0  CD C1 CE D9 20 22 AA 55  |$.".H....... ".U|
000006C0: 4E 24 AA 22 A0 C9 D3 A0  D4 C8 C5 A0 C5 D3 D4 C9  |N$."............|
000006D0: CD C1 D4 C5 A0 C6 CF D2  3F 20 22 3A 4C B2 31 3A  |........? ":L.1:|
000006E0: 48 B2 30 3A 8D 35 38 30  30 30 3A 54 4D B2 4E 00  |H.0:.58000:TM.N.|
000006F0: 05 0B 3C 0A 86 4C 42 28  50 43 2C 54 4D 29 2C 44  |..<..LB(PC,TM),D|
00000700: 43 28 54 4D 29 00 1A 0B  46 0A 81 49 B2 31 A4 50  |C(TM)...F..I.1.P|
00000710: 43 3A 8B 43 48 A7 32 37  30 30 00 48 0B 4B 0A 99  |C:.CH.2700.H.K..|
00000720: 22 11 45 CE D4 C5 D2 A0  CC C1 C2 CF D2 A0 C6 CF  |".E.............|
00000730: D2 20 22 3B 45 4E 24 28  49 29 3B 50 4C 24 3A 4D  |. ";EN$(I);PL$:M|
00000740: B2 4D 4E 3A 59 B2 59 52  00 73 0B 50 0A 81 4A B2  |.MN:Y.YR.s.P..J.|
00000750: 31 A4 54 4D 3A 8B 57 4B  A7 50 52 24 B2 22 57 C5  |1.TM:.WK.PR$."W.|
00000760: C5 CB 22 AA C4 28 4A 29  AA 22 3F 20 22 3A 89 32  |.."..(J)."? ":.2|
00000770: 36 36 30 00 A6 0B 5A 0A  50 52 24 B2 4D 4E 24 28  |660...Z.PR$.MN$(|
00000780: 4D 29 AA 22 2C 22 AA C4  28 59 29 AA 22 3F 20 22  |M).","..(Y)."? "|
00000790: 3A 4D B2 4D AA 31 3A 8B  4D B1 31 32 A7 59 B2 59  |:M.M.1:.M.12.Y.Y|
000007A0: AA 31 3A 4D B2 31 00 BC  0B 64 0A 8D 35 39 30 30  |.1:M.1...d..5900|
000007B0: 30 3A 8B 4C 50 44 A7 4E  B2 4E AC 38 00 CD 0B 6E  |0:.LPD.N.N.8...n|
000007C0: 0A 4C 42 28 49 2C 4A 29  B2 4E 3A 82 4A 00 E9 0B  |.LB(I,J).N:.J...|
000007D0: 8C 0A 99 22 11 22 3B 45  4E 24 28 49 29 3B 22 27  |...".";EN$(I);"'|
000007E0: D3 20 CC C1 C2 CF D2 3A  22 00 00 0C 91 0A 4E B2  |. .....:".....N.|
000007F0: 45 53 28 49 29 3A 8B 4C  50 44 A7 4E B2 4E AC 38  |ES(I):.LPD.N.N.8|
00000800: 00 2D 0C 92 0A 8D 35 38  31 35 30 3A 99 22 43 CF  |.-....58150:."C.|
00000810: D3 D4 3A 20 22 3B 5A 55  24 3B 55 24 3B 43 4D 24  |..: ";ZU$;U$;CM$|
00000820: 3B 5A 4C 24 3B 4C 24 3B  4C 50 24 3A 99 00 64 0C  |;ZL$;L$;LP$:..d.|
00000830: 96 0A 81 4A B2 31 A4 54  4D 3A 54 24 B2 22 12 22  |...J.1.TM:T$."."|
00000840: AA CA 28 C4 28 4A 29 2C  32 29 AA 22 92 20 22 3A  |..(.(J),2).". ":|
00000850: 4E B2 4C 42 28 49 2C 4A  29 3A 8B 4C 50 44 A7 4E  |N.LB(I,J):.LPD.N|
00000860: B2 4E AD 38 00 7C 0C A0  0A 8D 35 38 32 30 30 3A  |.N.8.|....58200:|
00000870: 99 54 24 3B 5A 24 2C 3A  82 4A 3A 99 00 A6 0C AA  |.T$;Z$,:.J:.....|
00000880: 0A 50 52 24 B2 22 11 41  CE D9 A0 C3 C8 C1 CE C7  |.PR$.".A........|
00000890: C5 D3 3F 20 22 3A 8D 35  39 32 30 30 3A 8B 4E 41  |..? ":.59200:.NA|
000008A0: 59 A7 32 38 30 30 00 CC  0C AF 0A 99 22 50 D2 C5  |Y.2800......"P..|
000008B0: D3 D3 A0 CF CE CC D9 A0  12 52 45 54 55 52 4E 92  |.........RETURN.|
000008C0: 20 D7 C8 C5 CE A0 C4 CF  CE C5 2E 22 00 F9 0C B4  | .........."....|
000008D0: 0A 4C B2 30 3A 48 B2 54  4D 3A 50 52 24 B2 22 57  |.L.0:H.TM:PR$."W|
000008E0: C8 C9 C3 C8 A0 D0 C5 D2  C9 CF C4 3F 20 22        |...........? "  |

.......:.59468,14:PK.14.C.... PRICER COP
YRIGHT (C) 1979 GLEN FISHER.C.... CURSOR
 #7, FEBRUARY, 1979...... BOX 550, GOLET
A, CA. 93017.....:...Z.PG$."PRICER":NM$.
"7":.62000.J.D.CR$.G(13):CM$.", ":CL$.":
 "...N.PL$.", PLEASE.":L$.".L.":U$.".U."
...H..:DT.0.%.R..EI$,EN$,ES,PP$:.EI$..""
.DT.DT.1:.210.D....DC$:.DC$.."".DC.DC.1:
.220.P...PR$."ENTER OVERHEAD RATE: ":.59
000:OV.N......OV.0.OV..1.."ENTER A DECIM
AL FRACTION";PL$:.1000.H...PR$.".G&A RAT
E: ":.59000:GA.N......GA.0.GA..1.."ENTER
 A DECIMAL FRACTION";PL$:.1010.#...PR$."
.PROFIT RATE: ":.59000:PF.N.Y....PF.0.PF
..1.."ENTER A DECIMAL FRACTION";PL$:.102
0.K...MF.1.OV.GA.PF.....PR$.".IS LABOR I
N (1) HOURS, OR (2) DAYS? ":L.1:H.2:.580
00.....LPD.(N.2):LP$." PER HOUR.":.LPD.L
P$." PER DAY.".....L.1:H.DT:PR$.".HOW MA
NY PEOPLE ON THIS JOB? ":.58000:PC.N.@.L
..EI$(PC),EN$(PC),ES(PC),DC$(DC).{.V..".
ENTER INITIALS OF PEOPLE ON THE":."JOB, 
PRESSING ";...`..".RETURN. AFTER EACH ON
E.":.I.1.PC...J.."INITIALS? ";:.60000...
T..IN$.""..".DON'T SKIP ENTRIES";PL$:.11
30...~.QY.IN$."?":.:.J.1.DT:.EI$,EN$,ES,
PP$.0....QY.."   ";EI$,EN$:.1170.B....EI
$.IN$.1180.R....J:.QY.1130......".NO ONE
 HAS THOSE INITIALS.":IN$."?":.1150.....
EI$(I).EI$:EN$(I).EN$:ES(I).ES:.PP$."YR"
.ES(I).ES.2080......"COST FOR ";EN$;" IS
:":N.ES(I):.LPD.N.N.8......58150:."  ";Z
U$;U$;CM$;ZL$;L$;;LP$......I.&.L..2500.Q
.D.PR$.".ARE TIME ESTIMATES BY (1) WEEKS
, OR (2) MONTHS? ":L.1:H.2:.58000...N.WK
.N.1:UN$."MONTHS":.WK.UN$."WEEKS"......:
.I.1.DT.1:.T$,T$,T$,T$:.I......I.1.DC:.D
C$(I):.I:.T$:.WK.2600......MN$(12):.I.1.
12:.MN$(I):.I.+....".STARTING MONTH? ";:
.60000:.IN$."".2550.X....I.1.12:.IN$.H(M
N$(I),C(IN$)).MN.I:.2580.W....I:."UNKNOW
N MONTH.":.2550.....PR$.".STARTING YEAR?
 ":L.1900:H.0:.58000:YR.N...(.PR$.".HOW 
MANY ".UN$." IS THE ESTIMATE FOR? ":L.1:
H.0:.58000:TM.N...<..LB(PC,TM),DC(TM)...
F..I.1.PC:.CH.2700.H.K..".ENTER LABOR FO
R ";EN$(I);PL$:M.MN:Y.YR.S.P..J.1.TM:.WK
.PR$."WEEK".D(J)."? ":.2660...Z.PR$.MN$(
M).",".D(Y)."? ":M.M.1:.M.12.Y.Y.1:M.1..
.D..59000:.LPD.N.N.8.M.N.LB(I,J).N:.J...
...".";EN$(I);"'S LABOR:".....N.ES(I):.L
PD.N.N.8.-....58150:."COST: ";ZU$;U$;CM$
;ZL$;L$;LP$:..D....J.1.TM:T$.".".J(D(J),
2).". ":N.LB(I,J):.LPD.N.N.8.|. ..58200:
.T$;Z$,:.J:......PR$.".ANY CHANGES? ":.5
9200:.NAY.2800.L...."PRESS ONLY .RETURN.
 WHEN DONE.".....L.0:H.TM:PR$."WHICH PER
IOD? "

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL