STAT
FILE INFORMATION
FILENAME(S): STAT
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-12-02 02:15:52
APPEARS ON: 1 disk(s)
FILE HASH
042dcdf003228ff0b920b7272b3c339db5b76ccf383871731749714238792ac5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FAC BROADCASTING | STAT | PRG | The BAM Archive | 28 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2D 08 0A 00 99 22 93 20 20 20 20 20 20 D3 |..-....". .|
00000010: D4 C1 D4 C9 D3 D4 C9 D3 C3 C8 C5 A0 CA C1 C8 D2 |................|
00000020: C5 D3 C1 D5 D3 D7 C5 D2 D4 D5 CE C7 22 00 53 08 |............".S.|
00000030: 14 00 81 58 B2 31 A4 34 30 3A 99 22 A3 22 3B 3A |...X.1.40:.".";:|
00000040: 81 54 B2 31 A4 34 30 3A 82 3A 82 3A 99 3A 99 3A |.T.1.40:.:.:.:.:|
00000050: 99 3A 99 00 6F 08 1E 00 85 22 C6 DD 52 20 57 45 |.:..o...."..R WE|
00000060: 4C 43 48 45 53 20 CA 41 48 52 BB 22 3B 4A 41 00 |LCHES .AHR.";JA.|
00000070: A1 08 28 00 99 3A 99 3A 99 22 C4 49 45 20 CA 41 |..(..:.:.".IE .A|
00000080: 48 52 45 53 53 54 41 54 49 53 54 49 4B 20 53 4F |HRESSTATISTIK SO|
00000090: 4C 4C 20 41 4C 53 4F 20 46 DD 52 22 3B 4A 41 3A |LL ALSO F.R";JA:|
000000A0: 99 00 BE 08 32 00 99 22 47 45 4D 41 43 48 54 20 |....2.."GEMACHT |
000000B0: 57 45 52 44 45 4E 20 28 CA 2F CE 29 BB 22 00 D0 |WERDEN (./.)."..|
000000C0: 08 3C 00 A1 41 24 3A 8B 41 24 B2 22 4E 22 A7 8A |.<..A$:.A$."N"..|
000000D0: 00 E0 08 46 00 8B 41 24 B3 B1 22 4A 22 A7 36 30 |...F..A$.."J".60|
000000E0: 00 0D 09 50 00 99 22 11 11 C4 41 4E 4E 20 44 52 |...P.."...ANN DR|
000000F0: DD 43 4B 45 4E 20 D3 49 45 20 41 55 46 20 D2 C5 |.CKEN .IE AUF ..|
00000100: D4 D5 D2 CE 2C 20 57 45 4E 4E 22 3A 99 00 38 09 |...., WENN":..8.|
00000110: 5A 00 99 22 C6 4C 4F 50 50 59 20 55 4E 44 20 C4 |Z..".LOPPY UND .|
00000120: 52 55 43 4B 45 52 20 42 45 52 45 49 54 20 53 49 |RUCKER BEREIT SI|
00000130: 4E 44 2E 22 3A 99 3A 99 00 64 09 64 00 99 22 12 |ND.":.:..d.d..".|
00000140: C1 4E 4D 45 52 4B 2E 3A 92 22 2C 22 C4 52 55 43 |.NMERK.:.",".RUC|
00000150: 4B 45 52 3A 20 C5 4E 44 4C 4F 53 50 41 50 49 45 |KER: .NDLOSPAPIE|
00000160: 52 22 3A 99 00 86 09 6E 00 99 2C 20 20 20 20 20 |R":....n.., |
00000170: 20 20 20 20 22 C6 4C 4F 50 50 59 20 3A 20 C4 C9 | ".LOPPY : ..|
00000180: C1 D3 20 38 34 22 00 9D 09 78 00 A1 41 24 3A 8B |.. 84"...x..A$:.|
00000190: 41 24 B1 B3 C7 28 31 33 29 A7 31 32 30 00 CD 09 |A$...(13).120...|
000001A0: 82 00 99 22 93 C4 49 45 20 53 54 41 54 49 53 54 |..."..IE STATIST|
000001B0: 49 53 43 48 45 20 C1 55 53 57 45 52 54 55 4E 47 |ISCHE .USWERTUNG|
000001C0: 20 44 45 52 20 C4 41 54 45 4E 22 3A 99 00 FB 09 | DER .ATEN":....|
000001D0: 8C 00 99 22 56 4F 4E 20 C4 C9 C1 D3 20 38 34 20 |..."VON .... 84 |
000001E0: 46 DD 52 20 44 41 53 20 CA 41 48 52 22 3B 4A 41 |F.R DAS .AHR";JA|
000001F0: 3B 22 42 45 47 49 4E 4E 54 2E 22 00 23 0A 96 00 |;"BEGINNT.".#...|
00000200: 99 A3 37 29 3B 22 11 11 11 11 11 C2 49 54 54 45 |..7);"......ITTE|
00000210: 20 48 41 42 45 4E 20 D3 49 45 20 C7 45 44 55 4C | HABEN .IE .EDUL|
00000220: 44 21 22 00 45 0A 9B 00 99 3A 81 58 B2 31 A4 34 |D!".E....:.X.1.4|
00000230: 30 3A 99 22 C0 22 3B 3A 81 54 B2 31 A4 33 30 3A |0:.".";:.T.1.30:|
00000240: 82 3A 82 3A 99 00 67 0A C6 00 8F 20 2A 2A 2A 2A |.:.:..g.... ****|
00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000260: 2A 2A 2A 2A 2A 2A 2A 00 89 0A C7 00 8F 20 2A 2A |*******...... **|
00000270: 2A 2A 20 20 20 20 4D 41 49 4E 50 52 4F 47 52 41 |** MAINPROGRA|
00000280: 4D 20 20 20 20 2A 2A 2A 2A 00 AB 0A C8 00 8F 20 |M ****...... |
00000290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C1 0A D2 00 |***********.....|
000002B0: 9F 31 2C 38 2C 31 35 3A 98 31 2C 22 49 22 3A A0 |.1,8,15:.1,"I":.|
000002C0: 31 00 E1 0A DC 00 86 44 36 24 28 31 34 29 3A 9F |1......D6$(14):.|
000002D0: 32 2C 38 2C 32 2C 22 44 41 54 41 36 2C 53 2C 52 |2,8,2,"DATA6,S,R|
000002E0: 22 00 F9 0A E6 00 81 58 B2 31 A4 31 34 3A 84 32 |"......X.1.14:.2|
000002F0: 2C 44 36 24 28 58 29 3A 82 00 0E 0B F0 00 A0 32 |,D6$(X):.......2|
00000300: 3A 86 4D 28 31 32 29 2C 4D 24 28 31 32 29 00 2E |:.M(12),M$(12)..|
00000310: 0B FA 00 86 44 35 24 28 31 35 29 3A 9F 32 2C 38 |....D5$(15):.2,8|
00000320: 2C 32 2C 22 44 41 54 41 35 2C 53 2C 52 22 00 46 |,2,"DATA5,S,R".F|
00000330: 0B 04 01 81 58 B2 31 A4 31 35 3A 84 32 2C 44 35 |....X.1.15:.2,D5|
00000340: 24 28 58 29 3A 82 00 4D 0B 0E 01 A0 32 00 61 0B |$(X):..M....2.a.|
00000350: 18 01 9F 32 2C 38 2C 32 2C 22 44 4D 2C 53 2C 52 |...2,8,2,"DM,S,R|
00000360: 22 00 78 0B 22 01 81 58 B2 31 A4 38 3A 84 32 2C |".x."..X.1.8:.2,|
00000370: 44 4D 24 28 58 29 3A 82 00 7F 0B 2C 01 A0 32 00 |DM$(X):....,..2.|
00000380: 9C 0B 36 01 81 4D B2 31 A4 31 32 3A 87 4D 24 28 |..6..M.1.12:.M$(|
00000390: 4D 29 3A 4D 28 58 29 B2 30 3A 82 4D 00 D7 0B 40 |M):M(X).0:.M...@|
000003A0: 01 83 22 CA 41 4E 55 41 52 22 2C 22 C6 45 42 52 |..".ANUAR",".EBR|
000003B0: 55 41 52 22 2C 22 CD DB 52 5A 22 2C 22 C1 50 52 |UAR","..RZ",".PR|
000003C0: 49 4C 22 2C 22 CD 41 49 22 2C 22 CA 55 4E 49 22 |IL",".AI",".UNI"|
000003D0: 2C 22 CA 55 4C 49 22 00 11 0C 45 01 83 22 C1 55 |,".ULI"...E..".U|
000003E0: 47 55 53 54 22 2C 22 D3 45 50 54 45 4D 42 45 52 |GUST",".EPTEMBER|
000003F0: 22 2C 22 CF 4B 54 4F 42 45 52 22 2C 22 CE 4F 56 |",".KTOBER",".OV|
00000400: 45 4D 42 45 52 22 2C 22 C4 45 5A 45 4D 42 45 52 |EMBER",".EZEMBER|
00000410: 22 00 2F 0C 72 01 86 53 28 32 35 35 2C 31 32 29 |"./.r..S(255,12)|
00000420: 2C 45 28 31 32 29 2C 47 25 28 39 2C 31 32 29 00 |,E(12),G%(9,12).|
00000430: 3B 0C 7C 01 81 4D B2 31 A4 31 32 00 62 0C 86 01 |;.|..M.1.12.b...|
00000440: 46 24 B2 C9 28 C4 28 4A 41 29 2C 32 29 AA C9 28 |F$..(.(JA),2)..(|
00000450: 22 30 22 AA C4 28 4D 29 2C 32 29 AA 22 2C 53 2C |"0"..(M),2).",S,|
00000460: 52 22 00 7E 0C 90 01 9F 32 2C 38 2C 32 2C 22 53 |R".~....2,8,2,"S|
00000470: 22 AA 46 24 3A A0 32 3A 8D 34 30 30 30 30 00 A0 |".F$:.2:.40000..|
00000480: 0C 9A 01 8B 41 B3 B1 30 A7 35 33 30 3A 8F 20 4D |....A..0.530:. M|
00000490: 4F 4E 41 54 20 4C 45 45 52 20 4D 28 4D 29 3D 30 |ONAT LEER M(M)=0|
000004A0: 00 B2 0C A4 01 9F 32 2C 38 2C 32 2C 22 53 22 AA |......2,8,2,"S".|
000004B0: 46 24 00 CC 0C AE 01 81 58 B2 31 A4 32 35 35 3A |F$......X.1.255:|
000004C0: 84 32 2C 53 28 58 2C 4D 29 3A 82 58 00 D3 0C B8 |.2,S(X,M):.X....|
000004D0: 01 A0 32 00 EF 0C C2 01 9F 32 2C 38 2C 32 2C 22 |..2......2,8,2,"|
000004E0: 45 22 AA 46 24 3A A0 32 3A 8D 34 30 30 30 30 00 |E".F$:.2:.40000.|
000004F0: 05 0D CC 01 8B 41 B3 B1 30 A7 35 33 30 3A 8F 20 |.....A..0.530:. |
00000500: 53 2E 34 31 30 00 22 0D D6 01 9F 32 2C 38 2C 32 |S.410."....2,8,2|
00000510: 2C 22 45 22 AA 46 24 3A 84 32 2C 45 28 4D 29 3A |,"E".F$:.2,E(M):|
00000520: A0 32 00 3E 0D E0 01 9F 32 2C 38 2C 32 2C 22 47 |.2.>....2,8,2,"G|
00000530: 22 AA 46 24 3A A0 32 3A 8D 34 30 30 30 30 00 54 |".F$:.2:.40000.T|
00000540: 0D EA 01 8B 41 B3 B1 30 A7 35 33 30 3A 8F 20 53 |....A..0.530:. S|
00000550: 2E 34 31 30 00 66 0D F4 01 9F 32 2C 38 2C 32 2C |.410.f....2,8,2,|
00000560: 22 47 22 AA 46 24 00 7F 0D FE 01 81 58 B2 31 A4 |"G".F$......X.1.|
00000570: 39 3A 84 32 2C 47 25 28 58 2C 4D 29 3A 82 58 00 |9:.2,G%(X,M):.X.|
00000580: 8D 0D 08 02 A0 32 3A 4D 28 4D 29 B2 31 00 94 0D |.....2:M(M).1...|
00000590: 12 02 82 4D 00 C6 0D 1C 02 99 3A 99 22 D3 49 45 |...M......:.".IE|
000005A0: 20 4B DC 4E 4E 45 4E 20 44 49 45 20 C6 4C 4F 50 | K.NNEN DIE .LOP|
000005B0: 50 59 20 4E 55 4E 20 41 55 53 53 43 48 41 4C 54 |PY NUN AUSSCHALT|
000005C0: 45 4E 21 22 3A 99 00 D7 0D 58 02 8F 20 41 55 53 |EN!":....X.. AUS|
000005D0: 57 45 52 54 55 4E 47 00 E3 0D 62 02 9F 34 2C 34 |WERTUNG...b..4,4|
000005E0: 3A 9D 34 00 F3 0D 6C 02 99 C7 28 32 37 29 3B 22 |:.4...l...(27);"|
000005F0: 40 22 3B 00 1B 0E 76 02 99 22 D3 D4 C1 D4 C9 D3 |@";...v.."......|
00000600: D4 C9 D3 C3 C8 C5 A0 CA C1 C8 D2 C5 D3 C1 D5 D3 |................|
00000610: D7 C5 D2 D4 D5 CE C7 22 3B 4A 41 00 27 0E 80 02 |.......";JA.'...|
00000620: 99 3A 99 3A 99 3A 99 00 33 0E 8A 02 81 4D B2 31 |.:.:.:..3....M.1|
00000630: A4 31 32 00 45 0E 94 02 99 4D 24 28 4D 29 3B 4A |.12.E....M$(M);J|
00000640: 41 3A 99 3A 99 00 80 0E 9E 02 8B 4D 28 4D 29 B2 |A:.:.......M(M).|
00000650: 30 A7 99 22 CB 45 49 4E 45 20 C4 41 54 45 4E 20 |0..".EINE .ATEN |
00000660: 46 DD 52 20 22 3B 4D 24 28 4D 29 3B 22 2E 22 3A |F.R ";M$(M);".":|
00000670: 99 3A 89 30 39 33 30 3A 8F 20 4D 28 4D 29 3D 30 |.:.0930:. M(M)=0|
00000680: 00 AC 0E A8 02 99 22 C7 52 41 44 41 54 49 4F 4E |......".RADATION|
00000690: 45 4E 20 42 45 49 20 D3 D7 2D D6 45 52 47 52 DC |EN BEI ..-.ERGR.|
000006A0: 53 53 45 52 55 4E 47 45 4E 22 3A 99 00 CD 0E B2 |SSERUNGEN":.....|
000006B0: 02 47 53 B2 30 3A 81 58 B2 31 A4 39 3A 47 53 B2 |.GS.0:.X.1.9:GS.|
000006C0: 47 53 AA 47 25 28 58 2C 4D 29 3A 82 58 00 D8 0E |GS.G%(X,M):.X...|
000006D0: BC 02 81 58 B2 31 A4 39 00 FE 0E C6 02 99 22 C1 |...X.1.9......".|
000006E0: 4E 54 45 49 4C 20 44 45 52 20 C7 52 41 44 41 54 |NTEIL DER .RADAT|
000006F0: 49 4F 4E 22 3B 58 3B 22 20 20 20 3A 22 3B 00 26 |ION";X;" :";.&|
00000700: 0F D0 02 47 B2 B5 28 47 25 28 58 2C 4D 29 AD 47 |...G..(G%(X,M).G|
00000710: 53 AC 31 30 30 30 30 AA 2E 35 29 AD 31 30 30 3A |S.10000..5).100:|
00000720: 99 47 3B 22 25 22 00 2D 0F DA 02 82 58 00 51 0F |.G;"%".-....X.Q.|
00000730: E4 02 99 3A 99 3A 99 22 D6 45 52 4B 41 55 46 54 |...:.:.".ERKAUFT|
00000740: 45 20 D3 54 DD 43 4B 5A 41 48 4C 45 4E 3A 22 3A |E .T.CKZAHLEN:":|
00000750: 99 00 5F 0F EE 02 99 3A 81 58 B2 31 A4 31 35 00 |.._....:.X.1.15.|
00000760: 72 0F F3 02 8B 58 B2 31 35 B0 58 B2 31 30 A7 38 |r....X.15.X.10.8|
00000770: 37 30 00 7E 0F F4 02 81 59 B2 31 A4 31 34 00 C1 |70.~....Y.1.14..|
00000780: 0F F8 02 50 24 B2 C8 28 44 35 24 28 58 29 AA 22 |...P$..(D5$(X)."|
00000790: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000007A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000007B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 2C 34 34 |............",44|
000007C0: 29 00 CA 0F 02 03 99 50 24 3B 00 D8 0F 0C 03 46 |)......P$;.....F|
000007D0: 24 B2 44 36 24 28 59 29 00 EF 0F 16 03 8B 58 B2 |$.D6$(Y)......X.|
000007E0: 37 AF 59 B3 39 A7 46 24 B2 44 4D 24 28 59 29 00 |7.Y.9.F$.DM$(Y).|
000007F0: 20 10 20 03 8B 58 B2 37 AF 59 B1 38 A7 99 3A 89 | . ..X.7.Y.8..:.|
00000800: 30 38 36 30 3A 8F 20 4E 45 58 54 59 20 20 20 20 |0860:. NEXTY |
00000810: 20 20 40 20 5A 55 53 41 54 5A 20 50 52 49 4E 54 | @ ZUSATZ PRINT|
00000820: 00 3C 10 2A 03 46 24 B2 C9 28 22 20 20 20 20 20 |.<.*.F$..(" |
00000830: 20 20 20 20 20 22 AA 46 24 2C 39 29 00 55 10 34 | ".F$,9).U.4|
00000840: 03 8B 59 B2 31 B0 59 B2 32 A7 46 24 B2 46 24 AA |..Y.1.Y.2.F$.F$.|
00000850: 22 20 4D 4D 22 00 70 10 3E 03 8B 59 B3 B1 31 AF |" MM".p.>..Y..1.|
00000860: 59 B3 B1 32 A7 46 24 B2 46 24 AA 22 20 43 4D 22 |Y..2.F$.F$." CM"|
00000870: 00 84 10 48 03 46 24 B2 46 24 AA 22 20 3A 22 3A |...H.F$.F$." :":|
00000880: 99 46 24 3B 00 B3 10 52 03 4B B2 31 35 AC 58 AA |.F$;...R.K.15.X.|
00000890: 59 3A 50 24 B2 C9 28 22 20 20 20 20 20 20 20 20 |Y:P$..(" |
000008A0: 22 AA C4 28 53 28 4B 2C 4D 29 29 2C 31 30 29 3A |"..(S(K,M)),10):|
000008B0: 99 50 24 00 BA 10 5C 03 82 59 00 C1 10 66 03 82 |.P$...\..Y...f..|
000008C0: 58 00 C9 10 70 03 99 3A 99 00 EF 10 7A 03 99 22 |X...p..:....z.."|
000008D0: C7 45 53 41 4D 54 45 49 4E 4E 41 48 4D 45 4E 20 |.ESAMTEINNAHMEN |
000008E0: 49 4D 20 22 3B 4D 24 28 4D 29 3B 22 3A 22 3B 00 |IM ";M$(M);":";.|
000008F0: 12 11 84 03 45 56 B2 B5 28 45 28 4D 29 29 3A 45 |....EV..(E(M)):E|
00000900: 4E B2 B5 28 28 45 28 4D 29 AB 45 56 29 AC 31 30 |N..((E(M).EV).10|
00000910: 30 29 00 47 11 8E 03 45 24 B2 C9 28 22 20 20 20 |0).G...E$..(" |
00000920: 20 20 20 22 AA C4 28 45 56 29 2C 36 29 AA 22 2E | "..(EV),6).".|
00000930: 22 AA C9 28 22 30 30 22 AA C4 28 45 4E 29 2C 32 |"..("00"..(EN),2|
00000940: 29 AA 22 20 C4 CD 22 00 5B 11 98 03 99 45 24 3A |)." ..".[....E$:|
00000950: 45 47 B2 45 47 AA C5 28 45 24 29 00 62 11 A2 03 |EG.EG..(E$).b...|
00000960: 82 4D 00 85 11 AC 03 99 3A 99 3A 99 22 C7 45 53 |.M......:.:.".ES|
00000970: 41 4D 54 45 49 4E 4E 41 48 4D 45 4E 22 3B 4A 41 |AMTEINNAHMEN";JA|
00000980: 3B 22 3A 22 3B 00 A4 11 B6 03 45 56 B2 B5 28 45 |;":";.....EV..(E|
00000990: 47 29 3A 45 4E B2 B5 28 28 45 47 AB 45 56 29 AC |G):EN..((EG.EV).|
000009A0: 31 30 30 29 00 DC 11 C0 03 45 24 B2 C9 28 22 20 |100).....E$..(" |
000009B0: 20 20 20 20 20 20 20 20 22 AA C4 28 45 56 29 2C | "..(EV),|
000009C0: 36 29 AA 22 2C 22 AA C9 28 22 30 30 22 AA C4 28 |6).","..("00"..(|
000009D0: 45 4E 29 2C 32 29 AA 22 20 C4 CD 22 00 E4 11 CA |EN),2)." .."....|
000009E0: 03 99 45 24 00 EE 11 D4 03 98 34 3A A0 34 00 08 |..E$......4:.4..|
000009F0: 12 DE 03 99 3A 99 22 D3 4F 20 44 41 53 20 57 41 |....:.".O DAS WA|
00000A00: 52 27 53 20 21 21 21 22 00 23 12 E8 03 99 20 22 |R'S !!!".#.... "|
00000A10: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000A20: 22 3A 99 00 29 12 F2 03 80 00 2F 12 3F 9C 90 00 |":..)...../.?...|
00000A30: 43 12 40 9C 8F 20 46 4C 4F 50 50 59 20 46 45 48 |C.@.. FLOPPY FEH|
00000A40: 4C 45 52 00 57 12 41 9C 9F 31 2C 38 2C 31 35 3A |LER.W.A..1,8,15:|
00000A50: 84 31 2C 41 3A A0 31 00 5D 12 42 9C 8E 00 00 00 |.1,A:.1.].B.....|
..-....". STATISTISCHE JAHRESAUSWER
TUNG".S....X.1.40:.".";:.T.1.40:.:.:.:.:
.:..O...."F.R WELCHES JAHR.";JA...(..:.:
."DIE JAHRESSTATISTIK SOLL ALSO F.R";JA:
....2.."GEMACHT WERDEN (J/N).".P.<..A$:.
A$."N".....F..A$.."J".60...P.."..DANN DR
.CKEN SIE AUF RETURN, WENN":..8.Z.."FLOP
PY UND DRUCKER BEREIT SIND.":.:..D.D..".
ANMERK.:.","DRUCKER: ENDLOSPAPIER":....N
.., "FLOPPY : DIAS 84"...X..A$:.
A$..G(13).120.M....".DIE STATISTISCHE AU
SWERTUNG DER DATEN":......."VON DIAS 84
F.R DAS JAHR";JA;"BEGINNT.".#.....7);"..
...BITTE HABEN SIE GEDULD!".E....:.X.1.4
0:.".";:.T.1.30:.:.:..G.F.. ************
***************...G.. **** MAINPROGRA
M ****...H.. ************************
***.A.R..1,8,15:.1,"I": 1......D6$(14):.
2,8,2,"DATA6,S,R"......X.1.14:.2,D6$(X):
...... 2:.M(12),M$(12)......D5$(15):.2,8
,2,"DATA5,S,R".F....X.1.15:.2,D5$(X):..M
... 2.A....2,8,2,"DM,S,R".X."..X.1.8:.2,
DM$(X):...,. 2...6..M.1.12:.M$(M):M(X).
0:.M.W.@.."JANUAR","FEBRUAR","M.RZ","APR
IL","MAI","JUNI","JULI"...E.."AUGUST","S
EPTEMBER","OKTOBER","NOVEMBER","DEZEMBER
"./.R..S(255,12),E(12),G%(9,12).;.|..M.1
.12.B...F$.I(D(JA),2).I("0".D(M),2).",S,
R".~....2,8,2,"S".F$: 2:.40000. ....A..0
.530:. MONAT LEER M(M)=0......2,8,2,"S".
F$.L....X.1.255:.2,S(X,M):.X.S... 2...B.
.2,8,2,"E".F$: 2:.40000...L..A..0.530:.
S.410.".V..2,8,2,"E".F$:.2,E(M): 2.>....
2,8,2,"G".F$: 2:.40000.T....A..0.530:. S
.410.F....2,8,2,"G".F$.....X.1.9:.2,G%(
X,M):.X..... 2:M(M).1......M.F....:."SIE
K.NNEN DIE FLOPPY NUN AUSSCHALTEN!":..W
.X.. AUSWERTUNG...B..4,4:.4...L..G(27);"
@";...V.."STATISTISCHE JAHRESAUSWERTUNG"
;JA.'....:.:.:..3....M.1.12.E....M$(M);J
A:.:.......M(M).0.."KEINE DATEN F.R ";M$
(M);".":.:.0930:. M(M)=0......"GRADATION
EN BEI SW-VERGR.SSERUNGEN":..M...GS.0:.X
.1.9:GS.GS.G%(X,M):.X.X....X.1.9...F.."A
NTEIL DER GRADATION";X;" :";.&.P.G..(G
%(X,M).GS.10000..5).100:.G;"%".-.Z..X.Q.
...:.:."VERKAUFTE ST.CKZAHLEN:":.._....:
.X.1.15.R....X.15.X.10.870.~....Y.1.14.A
...P$.H(D5$(X)."........................
....................",44).J....P$;.X...F
$.D6$(Y)......X.7.Y.9.F$.DM$(Y). . ..X.7
.Y.8..:.0860:. NEXTY @ ZUSATZ PRINT
.<.*.F$.I(" ".F$,9).U.4..Y.1.Y.
2.F$.F$." MM".P.>..Y..1.Y..2.F$.F$." CM"
...H.F$.F$." :":.F$;...R.K.15.X.Y:P$.I("
".D(S(K,M)),10):.P$...\..Y.A.F..
X.I.P..:....Z.."GESAMTEINNAHMEN IM ";M$(
M);":";.....EV..(E(M)):EN..((E(M).EV).10
0).G...E$.I(" ".D(EV),6).".".I("00"
.D(EN),2)." DM".[....E$:EG.EG.E(E$).B...
.M......:.:."GESAMTEINNAHMEN";JA;":";...
..EV..(EG):EN..((EG.EV).100).....E$.I("
".D(EV),6).",".I("00".D(EN),2)."
DM"...J..E$...T..4: 4......:."SO DAS WA
R'S !!!".#.... "................":..)...
../.?...C.@.. FLOPPY FEHLER.W.A..1,8,15:
.1,A: 1.].B.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL