PIES
FILE INFORMATION
FILENAME(S): PIES
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 21:06:45
APPEARS ON: 3 disk(s)
FILE HASH
c7c41f10b3617c1432d8fc41b8a8a73c19f40f4bb36e8a76980df0802f7b8713
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C128 DEMO DISK | PIES | PRG | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
| DEMO128 V1 | PIES | PRG | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
| RENS2 | PIES | PRG | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 22 1C 0A 00 8F 20 43 31 32 38 20 44 45 4D |..".... C128 DEM| 00000010: 4F 2E 20 20 42 59 20 20 44 2E 4A 2E 50 4F 43 4F |O. BY D.J.POCO| 00000020: 43 4B 00 28 1C 14 00 8F 00 2E 1C 1E 00 8F 00 34 |CK.(...........4| 00000030: 1C 28 00 3A 00 3A 1C 32 00 3A 00 63 1C 3C 00 FE |.(.:.:.2.:.c.<..| 00000040: 25 3A E7 30 2C 31 3A DE 31 2C 31 3A DE 30 2C 31 |%:.0,1:.1,1:.0,1| 00000050: 3A 81 41 B2 30 A4 35 3A E7 41 2C 37 3A 82 3A E7 |:.A.0.5:.A,7:.:.| 00000060: 35 2C 34 00 C2 1C 46 00 81 41 B2 31 A4 36 3A 87 |5,4...F..A.1.6:.| 00000070: 4D 4F 24 28 41 29 3A 82 3A 83 20 22 1D 1D CA 41 |MO$(A):.:. "...A| 00000080: 4E 55 41 52 49 22 2C 22 1D C6 45 42 52 55 41 52 |NUARI","..EBRUAR| 00000090: 49 22 2C 22 1D 1D 1D 1D CD 41 41 52 54 22 2C 22 |I",".....AART","| 000000A0: 1D 1D 1D 1D C1 50 52 49 4C 22 2C 22 1D 1D 1D 1D |.....PRIL","....| 000000B0: 1D 1D CD 45 49 22 2C 22 1D 1D 1D 1D 1D CA 55 4E |...EI","......UN| 000000C0: 49 22 00 E2 1C 50 00 81 41 B2 31 A4 35 3A 87 43 |I"...P..A.1.5:.C| 000000D0: 4C 28 41 29 3A 82 3A 83 20 33 2C 38 2C 36 2C 32 |L(A):.:. 3,8,6,2| 000000E0: 2C 35 00 1D 1D 5A 00 81 41 B2 31 A4 35 3A 87 43 |,5...Z..A.1.5:.C| 000000F0: 4E 24 28 41 29 3A 82 3A 83 20 48 2E 48 4F 47 2C |N$(A):.:. H.HOG,| 00000100: 4A 2E 54 41 43 4B 2C 4D 2E 53 4D 49 54 48 2C 49 |J.TACK,M.SMITH,I| 00000110: 2E 57 4F 52 4B 2C 53 2E 54 52 41 4E 53 00 60 1D |.WORK,S.TRANS.`.| 00000120: 64 00 53 50 24 B2 22 20 20 20 20 20 20 20 20 20 |d.SP$." | 00000130: 20 20 20 20 20 20 20 20 20 20 20 22 3A 53 50 24 | ":SP$| 00000140: B2 53 50 24 AA 53 50 24 AA 53 50 24 AA 53 50 24 |.SP$.SP$.SP$.SP$| 00000150: 3A 46 53 24 B2 22 20 23 23 23 23 23 2E 23 23 22 |:FS$." #####.##"| 00000160: 00 6A 1D 6E 00 89 20 33 33 30 00 70 1D 78 00 3A |.j.n.. 330.p.x.:| 00000170: 00 84 1D 82 00 E0 20 31 2C 30 2C 59 2C 53 50 24 |...... 1,0,Y,SP$| 00000180: 2C 31 3A 8E 00 AA 1D 8C 00 8F 20 2A 2A 2A 2A 2A |,1:....... *****| 00000190: 3F 20 43 4F 4C 4F 52 20 31 2C 33 3A 50 41 49 4E |? COLOR 1,3:PAIN| 000001A0: 54 20 31 2C 31 36 30 2C 35 30 00 B0 1D 96 00 3A |T 1,160,50.....:| 000001B0: 00 CF 1D A0 00 DE 20 30 2C 31 3A FE 1A 30 2C 30 |...... 0,1:..0,0| 000001C0: 2C 33 39 2C 32 34 3A 99 22 93 0E 9F 22 3A 8E 00 |,39,24:."...":..| 000001D0: D5 1D AA 00 3A 00 F3 1D B4 00 DE 35 2C 31 3A FE |....:......5,1:.| 000001E0: 1A 30 2C 30 2C 37 39 2C 32 34 3A 99 22 93 0E 9F |.0,0,79,24:."...| 000001F0: 22 3A 8E 00 F9 1D BE 00 3A 00 1A 1E C8 00 8F 20 |":......:...... | 00000200: 34 30 20 43 4F 4C 55 4D 4E 20 44 45 53 43 52 49 |40 COLUMN DESCRI| 00000210: 50 54 49 56 45 20 54 45 58 54 00 20 1E D2 00 3A |PTIVE TEXT. ...:| 00000220: 00 4E 1E DC 00 8D 31 36 30 3A 99 22 20 20 20 20 |.N....160:." | 00000230: 20 20 20 20 12 C5 45 4E 20 5A 41 4B 45 4C 49 4A | ..EN ZAKELIJ| 00000240: 4B 45 20 54 4F 45 50 41 53 53 49 4E 47 22 00 77 |KE TOEPASSING".w| 00000250: 1E E1 00 99 22 20 20 20 20 20 20 20 20 12 20 20 |...." . | 00000260: 20 20 20 20 20 D3 D0 D2 C5 C1 C4 D3 C8 C5 C5 D4 | ...........| 00000270: 20 20 20 20 20 20 22 00 C6 1E E6 00 99 22 11 11 | "......"..| 00000280: 11 05 20 20 20 20 20 20 C8 45 54 20 38 30 20 4B |.. .ET 80 K| 00000290: 4F 4C 4F 4D 20 53 43 48 45 52 4D 20 54 4F 4F 4E |OLOM SCHERM TOON| 000002A0: 54 20 4E 55 22 3A 99 22 20 20 20 20 20 20 45 45 |T NU":." EE| 000002B0: 4E 20 53 50 52 45 41 44 53 48 45 45 54 20 56 41 |N SPREADSHEET VA| 000002C0: 4E 20 45 45 4E 22 00 0B 1F EB 00 99 22 20 20 20 |N EEN"......" | 000002D0: 20 20 20 48 41 4C 46 20 4A 41 41 52 4C 49 4A 4B | HALF JAARLIJK| 000002E0: 53 45 20 4F 4D 5A 45 54 22 3A 99 22 20 20 20 20 |SE OMZET":." | 000002F0: 20 20 56 41 4E 20 45 45 4E 20 44 4F 4F 52 53 4E | VAN EEN DOORSN| 00000300: 45 45 20 42 45 44 52 49 4A 46 22 00 1D 1F EC 00 |EE BEDRIJF".....| 00000310: E7 36 2C 31 3A FE 26 3A FE 0B 31 3A 8E 00 72 1F |.6,1:.&:..1:..r.| 00000320: F0 00 DE 30 3A 99 22 11 11 20 20 20 20 20 20 CF |...0:.".. .| 00000330: 50 20 44 49 54 20 53 43 48 45 52 4D 20 57 4F 52 |P DIT SCHERM WOR| 00000340: 44 45 4E 20 44 45 20 52 45 53 55 4C 2D 22 3A 99 |DEN DE RESUL-":.| 00000350: 22 20 20 20 20 20 20 54 41 54 45 4E 20 56 41 4E |" TATEN VAN| 00000360: 20 45 45 4E 20 57 49 4C 4C 45 4B 45 55 52 49 47 | EEN WILLEKEURIG| 00000370: 45 22 00 B8 1F F5 00 99 22 20 20 20 20 20 20 4D |E"......" M| 00000380: 41 41 4E 44 20 49 4E 20 44 45 20 56 4F 52 4D 20 |AAND IN DE VORM | 00000390: 56 41 4E 20 45 45 4E 22 3A 99 22 20 20 20 20 20 |VAN EEN":." | 000003A0: 20 43 49 52 4B 45 4C 20 44 49 41 47 52 41 4D 20 | CIRKEL DIAGRAM | 000003B0: 47 45 54 4F 4F 4E 44 22 00 20 20 FA 00 99 22 11 |GETOOND". ...".| 000003C0: 11 20 20 20 20 20 20 C4 45 20 42 45 52 45 4B 45 |. .E BEREKE| 000003D0: 4E 49 4E 47 45 4E 20 57 4F 52 44 45 4E 20 47 45 |NINGEN WORDEN GE| 000003E0: 44 41 41 4E 22 3A 99 22 20 20 20 20 20 20 54 45 |DAAN":." TE| 000003F0: 52 57 49 4A 4C 20 44 45 20 43 49 52 4B 45 4C 20 |RWIJL DE CIRKEL | 00000400: 44 49 41 47 52 41 4D 20 57 4F 52 44 54 22 3A 99 |DIAGRAM WORDT":.| 00000410: 22 20 20 20 20 20 20 47 45 54 45 4B 45 4E 44 22 |" GETEKEND"| 00000420: 00 28 20 2C 01 FE 0B 35 00 2E 20 36 01 8E 00 34 |.( ,...5.. 6...4| 00000430: 20 40 01 3A 00 63 20 4A 01 8F 20 38 30 20 43 4F | @.:.c J.. 80 CO| 00000440: 4C 55 4D 4E 20 44 49 53 50 4C 41 59 20 4F 46 20 |LUMN DISPLAY OF | 00000450: 53 50 52 45 41 44 20 53 48 45 45 54 20 4D 4F 43 |SPREAD SHEET MOC| 00000460: 4B 55 50 00 69 20 54 01 3A 00 A0 20 5E 01 8D 32 |KUP.i T.:.. ^..2| 00000470: 30 30 3A 8F 20 50 55 54 20 44 45 53 43 52 49 50 |00:. PUT DESCRIP| 00000480: 54 49 56 45 20 54 45 58 54 20 4F 4E 20 34 30 20 |TIVE TEXT ON 40 | 00000490: 43 4F 4C 55 4D 4E 20 54 48 45 4E 20 53 4C 4F 57 |COLUMN THEN SLOW| 000004A0: 00 A6 20 68 01 3A 00 C1 20 72 01 8D 31 38 30 3A |.. h.:.. r..180:| 000004B0: 59 B2 30 3A 8D 31 33 30 3A 59 B2 31 3A 8D 31 33 |Y.0:.130:Y.1:.13| 000004C0: 30 00 F8 20 7C 01 41 24 B2 22 C1 2E CE 2E CF 54 |0.. |.A$.".....T| 000004D0: 48 45 52 20 D3 50 52 45 41 44 53 48 45 45 54 22 |HER .PREADSHEET"| 000004E0: 3A E0 20 31 2C 28 38 30 AB C3 28 41 24 29 29 AD |:. 1,(80..(A$)).| 000004F0: 32 2C 30 2C 41 24 2C 31 00 21 21 86 01 81 41 B2 |2,0,A$,1.!!...A.| 00000500: 31 A4 32 33 3A E0 31 2C 30 2C 41 AA 31 2C C9 28 |1.23:.1,0,A.1,.(| 00000510: 22 20 20 20 22 AA C4 28 41 29 2C 34 29 2C 31 3A |" "..(A),4),1:| 00000520: 82 00 45 21 90 01 81 41 B2 31 A4 38 3A E0 31 2C |..E!...A.1.8:.1,| 00000530: 39 AC 41 2C 31 2C C7 28 31 32 38 AA 36 34 AA 41 |9.A,1,.(128.64.A| 00000540: 29 2C 31 3A 82 00 83 21 9A 01 FE 1A 34 2C 32 2C |),1:...!....4,2,| 00000550: 37 39 2C 32 34 3A E0 31 2C 31 38 2C 30 2C 22 C6 |79,24:.1,18,0,".| 00000560: 49 43 54 49 45 46 20 42 45 44 52 49 4A 46 53 20 |ICTIEF BEDRIJFS | 00000570: 52 45 53 55 4C 54 41 41 54 20 56 41 4E 20 31 39 |RESULTAAT VAN 19| 00000580: 38 35 22 00 B5 21 A4 01 E0 31 2C 31 38 2C 31 2C |85"..!...1,18,1,| 00000590: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |"...............| 000005A0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 000005B0: B8 B8 B8 B8 22 00 08 22 AE 01 E0 20 31 2C 30 2C |....".."... 1,0,| 000005C0: 32 2C 22 02 C2 45 44 52 49 4A 46 1D 1D 22 AA 4D |2,"..EDRIJF..".M| 000005D0: 4F 24 28 31 29 AA 4D 4F 24 28 32 29 AA 4D 4F 24 |O$(1).MO$(2).MO$| 000005E0: 28 33 29 AA 4D 4F 24 28 34 29 AA 4D 4F 24 28 35 |(3).MO$(4).MO$(5| 000005F0: 29 AA 4D 4F 24 28 36 29 AA 22 1D 1D 1D 1D D4 4F |).MO$(6).".....O| 00000600: 54 41 41 4C 82 22 3A 99 00 1A 22 B8 01 99 A3 36 |TAAL.":..."....6| 00000610: 37 29 22 A3 A3 A3 A3 A3 A3 22 00 79 22 C2 01 8F |7)"......".y"...| 00000620: 20 20 22 1C C8 2E C8 4F 47 22 3A 50 52 49 4E 54 | "....OG":PRINT| 00000630: 22 9E CA 2E D4 41 43 4B 22 3A 50 52 49 4E 54 22 |"....ACK":PRINT"| 00000640: 1E CD 2E D3 4D 49 54 48 22 3A 50 52 49 4E 54 22 |....MITH":PRINT"| 00000650: 05 C9 2E D7 4F 52 4B 22 3A 50 52 49 4E 54 22 9C |....ORK":PRINT".| 00000660: D3 2E D4 52 41 4E 53 22 3A 50 52 49 4E 54 22 9F |...RANS":PRINT".| 00000670: 11 CD 2E D4 4F 54 41 4C 22 00 B9 22 CC 01 81 43 |....OTAL".."...C| 00000680: B2 31 A4 35 3A E7 35 2C 43 4C 28 43 29 3A E0 31 |.1.5:.5,CL(C):.1| 00000690: 2C 30 2C 43 AA 33 2C 22 8E 22 AA 43 4E 24 28 43 |,0,C.3,".".CN$(C| 000006A0: 29 3A 82 3A E0 20 31 2C 30 2C 31 30 2C 22 9F 0E |):.:. 1,0,10,"..| 000006B0: CD 2E D4 4F 54 41 41 4C 22 00 F3 22 D6 01 8F 20 |...OTAAL".."... | 000006C0: 54 48 41 54 53 20 54 48 45 20 4C 41 59 4F 55 54 |THATS THE LAYOUT| 000006D0: 20 44 4F 4E 45 20 4E 4F 57 20 46 4F 52 20 53 4F | DONE NOW FOR SO| 000006E0: 4D 45 20 52 41 4E 44 4F 4D 28 49 53 48 29 20 44 |ME RANDOM(ISH) D| 000006F0: 41 54 41 00 5C 23 E0 01 81 4D B2 31 A4 36 3A 52 |ATA.\#...M.1.6:R| 00000700: 53 28 4D 2C 30 29 B2 30 3A 81 43 B2 31 A4 35 3A |S(M,0).0:.C.1.5:| 00000710: 56 B2 B5 28 28 31 30 30 AC BB 28 31 29 AA 39 30 |V..((100..(1).90| 00000720: 29 AC 31 30 30 30 29 AD 31 30 30 3A 56 B2 56 AC |).1000).100:V.V.| 00000730: B5 28 32 AC BB 28 31 29 AA 31 29 3A 52 53 28 4D |.(2..(1).1):RS(M| 00000740: 2C 43 29 B2 56 3A 52 53 28 4D 2C 30 29 B2 52 53 |,C).V:RS(M,0).RS| 00000750: 28 4D 2C 30 29 AA 56 3A 82 43 2C 4D 00 9C 23 EA |(M,0).V:.C,M..#.| 00000760: 01 81 43 B2 31 A4 35 3A 52 53 28 30 2C 43 29 B2 |..C.1.5:RS(0,C).| 00000770: 30 3A 81 4D B2 31 A4 36 3A 52 53 28 30 2C 43 29 |0:.M.1.6:RS(0,C)| 00000780: B2 52 53 28 30 2C 43 29 AA 52 53 28 4D 2C 43 29 |.RS(0,C).RS(M,C)| 00000790: 3A 82 4D 2C 43 20 3A 20 8D 37 31 30 00 CE 23 F4 |:.M,C : .710..#.| 000007A0: 01 8D 32 34 30 3A DE 35 3A 81 20 43 B2 31 A4 35 |..240:.5:. C.1.5| 000007B0: 3A E0 31 2C 36 33 2C 43 AA 33 2C 22 9E 22 3A 99 |:.1,63,C.3,".":.| 000007C0: FB 46 53 24 3B 52 53 28 30 2C 43 29 3A 82 00 F8 |.FS$;RS(0,C):...| 000007D0: 23 FE 01 81 20 4D B2 31 A4 36 3A E0 31 2C 4D AC |#... M.1.6:.1,M.| 000007E0: 39 2C 31 30 2C 22 05 22 3A 99 FB 46 53 24 3B 52 |9,10,".":..FS$;R| 000007F0: 53 28 4D 2C 30 29 3A 82 00 33 24 08 02 8F 20 4E |S(M,0):..3$... N| 00000800: 4F 57 20 43 41 4C 43 55 4C 41 54 45 20 50 45 52 |OW CALCULATE PER| 00000810: 43 45 4E 54 41 47 45 53 20 46 4F 52 20 45 41 43 |CENTAGES FOR EAC| 00000820: 48 20 43 4F 4D 50 41 4E 59 20 50 45 52 20 4D 4F |H COMPANY PER MO| 00000830: 4E 54 48 00 76 24 12 02 E0 20 31 2C 31 30 2C 32 |NTH.v$... 1,10,2| 00000840: 32 2C 22 C2 C5 D2 C5 CB C5 CE C9 CE C7 20 D0 C5 |2,".......... ..| 00000850: D2 C3 C5 CE D4 C1 C7 C5 D3 20 D6 CF CF D2 20 C8 |......... .... .| 00000860: C5 D4 A0 D3 C5 C3 D4 CF D2 A0 C4 C9 C1 C7 D2 C1 |................| 00000870: CD 22 3A FE 0B 32 00 E3 24 1C 02 4D B2 B5 28 36 |.":..2..$..M..(6| 00000880: AC BB 28 31 29 AA 31 29 3A E0 31 2C 39 AC 4D 2C |..(1).1):.1,9.M,| 00000890: 32 2C 22 9F 0F 02 22 AA 4D 4F 24 28 4D 29 3A 81 |2,"...".MO$(M):.| 000008A0: 43 B2 31 A4 35 3A E0 31 2C 4D AC 39 2C 43 AA 33 |C.1.5:.1,M.9,C.3| 000008B0: 2C 22 82 0F 9F 22 3A 99 FB 46 53 24 3B 52 53 28 |,"...":..FS$;RS(| 000008C0: 4D 2C 43 29 3A 82 3A E0 31 2C 4D AC 39 2C 31 30 |M,C):.:.1,M.9,10| 000008D0: 2C 22 0F 05 22 3A 99 FB 46 53 24 3B 52 53 28 4D |,"..":..FS$;RS(M| 000008E0: 2C 30 29 00 FD 24 26 02 FE 0B 33 3A E0 31 2C 30 |,0)..$&...3:.1,0| 000008F0: 2C 32 32 2C C8 28 53 50 24 2C 37 30 29 00 46 25 |,22,.(SP$,70).F%| 00000900: 30 02 81 43 B2 31 A4 35 3A 50 43 28 43 29 B2 52 |0..C.1.5:PC(C).R| 00000910: 53 28 4D 2C 43 29 AD 52 53 28 4D 2C 30 29 AC 31 |S(M,C).RS(M,0).1| 00000920: 30 30 3A E0 31 2C 4D AC 39 2C 43 AA 33 2C 22 22 |00:.1,M.9,C.3,""| 00000930: 3A 99 FB 22 23 23 23 23 23 2E 23 23 23 22 3B 50 |:.."#####.###";P| 00000940: 43 28 43 29 3A 82 00 4C 25 3A 02 3A 00 72 25 44 |C(C):..L%:.:.r%D| 00000950: 02 8F 20 4E 4F 57 20 4C 45 54 53 20 57 4F 52 4B |.. NOW LETS WORK| 00000960: 20 4F 55 54 20 54 48 45 20 50 49 45 20 43 48 41 | OUT THE PIE CHA| 00000970: 52 54 00 78 25 4E 02 3A 00 B9 25 58 02 E0 20 31 |RT.x%N.:..%X.. 1| 00000980: 2C 31 30 2C 32 32 2C 22 CE D5 20 D7 CF D2 C4 D4 |,10,22,".. .....| 00000990: 20 C8 C5 D4 20 D3 C5 C3 D4 CF D2 A0 C4 C9 C1 C7 | ... ...........| 000009A0: D2 C1 CD 20 C7 C5 D4 C5 CB C5 CE C4 20 D6 CF CF |... ........ ...| 000009B0: D2 22 AA 4D 4F 24 28 4D 29 00 DF 25 62 02 81 43 |.".MO$(M)..%b..C| 000009C0: B2 31 A4 35 3A 50 43 28 43 29 B2 33 2E 36 AC 50 |.1.5:PC(C).3.6.P| 000009D0: 43 28 43 29 3A 82 3A 52 41 B2 FF AD 31 38 30 00 |C(C):.:RA...180.| 000009E0: EB 25 6C 02 DE 31 3A E7 31 2C 32 00 3B 26 76 02 |.%l..1:.1,2.;&v.| 000009F0: 53 41 B2 33 33 35 3A 81 43 B2 31 A4 35 20 3A E7 |SA.335:.C.1.5 :.| 00000A00: 20 31 2C 43 4C 28 43 29 3A 50 41 B2 53 41 AA 50 | 1,CL(C):PA.SA.P| 00000A10: 43 28 43 29 AD 32 3A 4F 58 B2 31 35 39 AA 31 35 |C(C).2:OX.159.15| 00000A20: AC BF 28 50 41 AC 52 41 29 3A 4F 59 B2 39 39 AB |..(PA.RA):OY.99.| 00000A30: 31 35 AC BE 28 50 41 AC 52 41 29 00 64 26 80 02 |15..(PA.RA).d&..| 00000A40: 50 58 B2 31 35 39 AA 36 30 AC BF 28 50 41 AC 52 |PX.159.60..(PA.R| 00000A50: 41 29 3A 50 59 B2 39 39 AB 36 30 AC BE 28 50 41 |A):PY.99.60..(PA| 00000A60: AC 52 41 29 00 DD 26 8A 02 FE 1C 31 3A 41 B2 53 |.RA)..&....1:A.S| 00000A70: 41 3A 58 B2 4F 58 AA 38 30 AC BF 28 41 AC 52 41 |A:X.OX.80..(A.RA| 00000A80: 29 3A 59 B2 4F 59 AB 38 30 AC BE 28 41 AC 52 41 |):Y.OY.80..(A.RA| 00000A90: 29 3A E5 20 31 2C 4F 58 2C 4F 59 A4 58 2C 59 3A |):. 1,OX,OY.X,Y:| 00000AA0: E2 31 2C 4F 58 2C 4F 59 2C 38 30 2C 2C 53 41 2C |.1,OX,OY,80,,SA,| 00000AB0: 28 53 41 AA 50 43 28 43 29 29 3A E5 A4 4F 58 2C |(SA.PC(C)):..OX,| 00000AC0: 4F 59 3A 53 41 B2 53 41 AA 50 43 28 43 29 3A FE |OY:SA.SA.PC(C):.| 00000AD0: 1C 32 3A DF 31 2C 50 58 2C 50 59 3A 82 00 21 27 |.2:.1,PX,PY:..!'| 00000AE0: 94 02 FE 1C 31 3A 81 43 B2 31 A4 35 3A E7 31 2C |....1:.C.1.5:.1,| 00000AF0: 43 4C 28 43 29 3A E1 31 2C 30 2C 28 43 AB 31 29 |CL(C):.1,0,(C.1)| 00000B00: AC 38 2C 31 30 2C 43 AC 38 AB 31 2C 2C 31 3A E0 |.8,10,C.8.1,,1:.| 00000B10: 20 31 2C 32 2C 43 AB 31 2C 43 4E 24 28 43 29 3A | 1,2,C.1,CN$(C):| 00000B20: 82 00 34 27 9E 02 DE 35 3A FE 1A 30 2C 30 2C 37 |..4'...5:..0,0,7| 00000B30: 39 2C 32 34 00 3A 27 A8 02 3A 00 47 27 B2 02 FE |9,24.:'..:.G'...| 00000B40: 0B 35 3A 89 37 34 30 00 4D 27 BC 02 3A 00 62 27 |.5:.740.M'..:.b'| 00000B50: C6 02 8F 20 44 49 53 50 4C 41 59 20 56 41 4C 55 |... DISPLAY VALU| 00000B60: 45 53 00 68 27 D0 02 3A 00 9E 27 DA 02 81 4D B2 |ES.h'..:..'...M.| 00000B70: 31 A4 36 3A 81 43 B2 31 A4 35 3A E0 31 2C 4D AC |1.6:.C.1.5:.1,M.| 00000B80: 39 2C 43 AA 33 2C 22 9F 22 3A 99 FB 46 53 24 3B |9,C.3,".":..FS$;| 00000B90: 52 53 28 4D 2C 43 29 3A 82 43 2C 4D 3A 8E 00 A4 |RS(M,C):.C,M:...| 00000BA0: 27 E4 02 3A 00 DE 27 EE 02 8F 20 4E 4F 57 20 54 |'..:..'... NOW T| 00000BB0: 45 58 54 20 46 4F 52 20 4C 49 4E 4B 20 54 4F 20 |EXT FOR LINK TO | 00000BC0: 34 30 20 43 4F 4C 55 4D 4E 20 48 49 52 45 53 20 |40 COLUMN HIRES | 00000BD0: 41 4E 44 20 46 41 53 54 20 44 52 49 56 45 00 E4 |AND FAST DRIVE..| 00000BE0: 27 F8 02 3A 00 19 28 02 03 DE 30 2C 31 3A E0 31 |'..:..(...0,1:.1| 00000BF0: 2C 36 2C 31 31 2C 22 05 C4 45 20 31 35 37 30 2F |,6,11,"..E 1570/| 00000C00: 37 31 20 49 4E 20 43 4F 4D 42 49 4E 41 54 49 45 |71 IN COMBINATIE| 00000C10: 20 4D 45 54 20 44 45 20 22 00 44 28 03 03 E0 31 | MET DE ".D(...1| 00000C20: 2C 36 2C 31 32 2C 22 C3 31 32 38 20 CC CF C1 C4 |,6,12,".128 ....| 00000C30: 20 45 4E 20 D3 C1 D6 C5 C4 20 5A 45 45 52 20 D3 | EN ..... ZEER .| 00000C40: CE C5 CC 22 00 7A 28 04 03 E0 31 2C 31 2C 31 34 |...".z(...1,1,14| 00000C50: 2C 22 C1 41 4E 47 45 54 4F 4F 4E 44 20 44 4F 4F |,".ANGETOOND DOO| 00000C60: 52 20 44 45 20 53 45 52 49 45 20 C8 49 52 45 53 |R DE SERIE .IRES| 00000C70: 20 D0 49 43 54 55 52 45 53 22 00 B0 28 0C 03 DE | .ICTURES"..(...| 00000C80: 35 2C 31 3A E0 31 2C 32 36 2C 31 30 2C 22 9C C4 |5,1:.1,26,10,"..| 00000C90: 45 20 31 35 37 30 2F 37 31 20 49 4E 20 43 4F 4D |E 1570/71 IN COM| 00000CA0: 42 49 4E 41 54 49 45 20 4D 45 54 20 44 45 20 22 |BINATIE MET DE "| 00000CB0: 00 DC 28 0D 03 E0 31 2C 32 36 2C 31 31 2C 22 C3 |..(...1,26,11,".| 00000CC0: 31 32 38 20 CC CF C1 C4 20 45 4E 20 D3 C1 D6 C5 |128 .... EN ....| 00000CD0: C4 20 5A 45 45 52 20 D3 CE C5 CC 22 00 13 29 0E |. ZEER ...."..).| 00000CE0: 03 E0 31 2C 32 33 2C 31 33 2C 22 C1 41 4E 47 45 |..1,23,13,".ANGE| 00000CF0: 54 4F 4F 4E 44 20 44 4F 4F 52 20 44 45 20 53 45 |TOOND DOOR DE SE| 00000D00: 52 49 45 20 C8 49 52 45 53 20 D0 49 43 54 55 52 |RIE .IRES .ICTUR| 00000D10: 45 53 22 00 20 29 16 03 8A 22 48 49 52 45 53 22 |ES". )..."HIRES"| 00000D20: 00 00 00 |... |
..".... C128 DEMO. BY D.J.POCOCK.(....
.......4.(.:.:.2.:.C.<..%:.0,1:.1,1:.0,1
:.A.0.5:.A,7:.:.5,4.B.F..A.1.6:.MO$(A):.
:. "..JANUARI",".FEBRUARI","....MAART","
....APRIL","......MEI",".....JUNI"...P..
A.1.5:.CL(A):.:. 3,8,6,2,5...Z..A.1.5:.C
N$(A):.:. H.HOG,J.TACK,M.SMITH,I.WORK,S.
TRANS.`.D.SP$." ":SP$
.SP$.SP$.SP$.SP$:FS$." #####.##".J.N.. 3
30.P.X.:...... 1,0,Y,SP$,1:....... *****
? COLOR 1,3:PAINT 1,160,50.....:.O. .. 0
,1:..0,0,39,24:."...":..U...:......5,1:.
.0,0,79,24:."...":......:...H.. 40 COLUM
N DESCRIPTIVE TEXT. .R.:.N....160:."
.EEN ZAKELIJKE TOEPASSING".W...."
. SPREADSHEET ".F...."..
.. HET 80 KOLOM SCHERM TOONT NU":."
EEN SPREADSHEET VAN EEN"......"
HALF JAARLIJKSE OMZET":." VAN EE
N DOORSNEE BEDRIJF"......6,1:.&:..1:..R.
...0:.".. OP DIT SCHERM WORDEN DE R
ESUL-":." TATEN VAN EEN WILLEKEURIG
E"......" MAAND IN DE VORM VAN EEN"
:." CIRKEL DIAGRAM GETOOND". ...".
. DE BEREKENINGEN WORDEN GEDAAN":."
TERWIJL DE CIRKEL DIAGRAM WORDT":.
" GETEKEND".( ,...5.. 6...4 @.:.C J
.. 80 COLUMN DISPLAY OF SPREAD SHEET MOC
KUP.I T.:. ^..200:. PUT DESCRIPTIVE TEX
T ON 40 COLUMN THEN SLOW.. H.:.A R..180:
Y.0:.130:Y.1:.130.. |.A$."A.N.OTHER SPRE
ADSHEET":. 1,(80.C(A$)).2,0,A$,1.!!...A.
1.23:.1,0,A.1,I(" ".D(A),4),1:..E!...A
.1.8:.1,9.A,1,G(128.64.A),1:...!....4,2,
79,24:.1,18,0,"FICTIEF BEDRIJFS RESULTAA
T VAN 1985"..!...1,18,1,"...............
....................".."... 1,0,2,".BEDR
IJF..".MO$(1).MO$(2).MO$(3).MO$(4).MO$(5
).MO$(6)."....TOTAAL.":..."....67)".....
.".Y"B.. ".H.HOG":PRINT".J.TACK":PRINT"
.M.SMITH":PRINT".I.WORK":PRINT".S.TRANS"
:PRINT"..M.TOTAL".."L..C.1.5:.5,CL(C):.1
,0,C.3,".".CN$(C):.:. 1,0,10,"..M.TOTAAL
".."V.. THATS THE LAYOUT DONE NOW FOR SO
ME RANDOM(ISH) DATA.\#...M.1.6:RS(M,0).0
:.C.1.5:V..((100..(1).90).1000).100:V.V.
.(2..(1).1):RS(M,C).V:RS(M,0).RS(M,0).V:
.C,M..#...C.1.5:RS(0,C).0:.M.1.6:RS(0,C)
.RS(0,C).RS(M,C):.M,C : .710.N#...240:.5
:. C.1.5:.1,63,C.3,".":..FS$;RS(0,C):...
#... M.1.6:.1,M.9,10,".":..FS$;RS(M,0):.
.3$... NOW CALCULATE PERCENTAGES FOR EAC
H COMPANY PER MONTH.V$... 1,10,22,"BEREK
ENING PERCENTAGES VOOR HET SECTOR DIAGRA
M":..2..$..M..(6..(1).1):.1,9.M,2,"...".
MO$(M):.C.1.5:.1,M.9,C.3,"...":..FS$;RS(
M,C):.:.1,M.9,10,"..":..FS$;RS(M,0)..$&.
..3:.1,0,22,H(SP$,70).F%0..C.1.5:PC(C).R
S(M,C).RS(M,0).100:.1,M.9,C.3,"":.."####
#.###";PC(C):..L%:.:.R%D.. NOW LETS WORK
OUT THE PIE CHART.X%N.:..%X.. 1,10,22,"
NU WORDT HET SECTOR DIAGRAM GETEKEND VOO
R".MO$(M)..%B..C.1.5:PC(C).3.6.PC(C):.:R
A...180..%L..1:.1,2.;&V.SA.335:.C.1.5 :.
1,CL(C):PA.SA.PC(C).2:OX.159.15..(PA.RA
):OY.99.15..(PA.RA).D&..PX.159.60..(PA.R
A):PY.99.60..(PA.RA)..&....1:A.SA:X.OX.8
0..(A.RA):Y.OY.80..(A.RA):. 1,OX,OY.X,Y:
.1,OX,OY,80,,SA,(SA.PC(C)):..OX,OY:SA.SA
.PC(C):..2:.1,PX,PY:..!'....1:.C.1.5:.1,
CL(C):.1,0,(C.1).8,10,C.8.1,,1:. 1,2,C.1
,CN$(C):..4'...5:..0,0,79,24.:'..:.G'...
.5:.740.M'..:.B'F.. DISPLAY VALUES.H'P.:
..'Z..M.1.6:.C.1.5:.1,M.9,C.3,".":..FS$;
RS(M,C):.C,M:...'..:..'... NOW TEXT FOR
LINK TO 40 COLUMN HIRES AND FAST DRIVE..
'..:..(...0,1:.1,6,11,".DE 1570/71 IN CO
MBINATIE MET DE ".D(...1,6,12,"C128 LOAD
EN SAVED ZEER SNEL".Z(...1,1,14,"AANGET
OOND DOOR DE SERIE HIRES PICTURES"..(...
5,1:.1,26,10,".DE 1570/71 IN COMBINATIE
MET DE "..(...1,26,11,"C128 LOAD EN SAVE
D ZEER SNEL"..)...1,23,13,"AANGETOOND DO
OR DE SERIE HIRES PICTURES". )..."HIRES"
...
> CLICK IMAGE PREVIEW FOR FULL MODAL