KAS
FILE INFORMATION
FILENAME(S): KAS
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 21:22:59
APPEARS ON: 1 disk(s)
FILE HASH
1dc6fca278b2a56ffeb283e77b40c0dadc8046a322c555ecc482fe2c490b1931
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 53 2 | KAS | PRG | DuncanTwain | 12 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 04 00 58 B2 32 39 39 3A 86 4E 28 58 |..'...X.299:.N(X|
00000010: 29 2C 44 24 28 58 29 2C 42 24 28 58 29 2C 53 28 |),D$(X),B$(X),S(|
00000020: 58 29 2C 48 28 58 29 00 4D 08 05 00 99 22 1E 22 |X),H(X).M...."."|
00000030: 3A 99 C7 28 31 34 29 C7 28 38 29 3A 97 35 33 32 |:..(14).(8):.532|
00000040: 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 5F 08 |80,0:.53281,0._.|
00000050: 0A 00 9F 31 35 2C 38 2C 31 35 3A 89 31 30 30 00 |...15,8,15:.100.|
00000060: 82 08 3C 00 58 58 24 B2 C4 28 58 58 29 AA 22 30 |..<.XX$..(XX)."0|
00000070: 30 30 22 3A 4C 53 B2 C3 28 C4 28 B5 28 58 58 29 |00":LS..(.(.(XX)|
00000080: 29 29 00 B0 08 3E 00 8B B6 28 58 58 29 B3 31 A7 |))...>...(XX).1.|
00000090: 58 58 24 B2 C8 28 58 58 24 2C 31 29 AA 22 30 22 |XX$..(XX$,1)."0"|
000000A0: AA C9 28 58 58 24 2C C3 28 58 58 24 29 AB 31 29 |..(XX$,.(XX$).1)|
000000B0: 00 D4 08 40 00 58 58 24 B2 C8 28 58 58 24 2C 4C |...@.XX$..(XX$,L|
000000C0: 53 29 AA 22 2E 22 AA CA 28 58 58 24 2C 4C 53 AA |S)."."..(XX$,LS.|
000000D0: 32 2C 32 29 00 F7 08 44 00 58 58 24 B2 C9 28 22 |2,2)...D.XX$..("|
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 22 AA 58 58 | ".XX|
000000F0: 24 2C 31 32 29 3A 8E 00 0A 09 64 00 43 52 24 B2 |$,12):....d.CR$.|
00000100: C7 28 31 33 29 3A 9F 39 2C 30 00 13 09 6E 00 99 |.(13):.9,0...n..|
00000110: 22 93 22 00 28 09 78 00 99 22 C5 D3 D6 20 CB 41 |".".(.x.."... .A|
00000120: 53 53 41 42 55 43 48 22 00 2E 09 82 00 99 00 4A |SSABUCH".......J|
00000130: 09 8C 00 99 2C 22 31 20 2E 2E 2E 2E 2E 20 CE 45 |....,"1 ..... .E|
00000140: 55 45 52 20 CD 4F 4E 41 54 22 00 62 09 96 00 99 |UER .ONAT".b....|
00000150: 2C 22 32 20 2E 2E 2E 2E 2E 20 C5 49 4E 47 41 42 |,"2 ..... .INGAB|
00000160: 45 22 00 7C 09 A0 00 99 2C 22 33 20 2E 2E 2E 2E |E".|....,"3 ....|
00000170: 2E 20 C1 42 53 43 48 4C 55 53 53 22 00 9A 09 AA |. .BSCHLUSS"....|
00000180: 00 99 2C 22 34 20 2E 2E 2E 2E 2E 20 D0 52 4F 47 |..,"4 ..... .ROG|
00000190: 52 41 4D 4D 20 C5 4E 44 45 22 00 B4 09 AF 00 99 |RAMM .NDE"......|
000001A0: 2C 22 35 20 2E 2E 2E 2E 2E 20 CB 4F 52 52 45 4B |,"5 ..... .ORREK|
000001B0: 54 55 52 22 00 BA 09 B4 00 99 00 DF 09 BE 00 99 |TUR"............|
000001C0: 22 C9 48 52 45 20 D7 41 48 4C 20 3A 22 3B 3A 84 |".HRE .AHL :";:.|
000001D0: 39 2C 41 24 3A 41 25 B2 C5 28 41 24 29 3A 99 00 |9,A$:A%..(A$):..|
000001E0: 03 0A C8 00 91 20 41 25 20 89 20 31 30 30 30 2C |..... A% . 1000,|
000001F0: 32 30 30 30 2C 33 30 30 30 2C 34 30 30 30 2C 35 |2000,3000,4000,5|
00000200: 30 30 30 00 0C 0A D2 00 89 31 31 30 00 21 0A DC |000......110.!..|
00000210: 00 80 3A 20 44 45 53 20 31 2E 20 54 45 49 4C 45 |..: DES 1. TEILE|
00000220: 53 00 2A 0A 2C 01 99 22 93 22 00 52 0A 36 01 99 |S.*.,..".".R.6..|
00000230: 22 CE 52 2E 20 20 C4 41 54 55 4D 20 20 C2 45 5A |".R. .ATUM .EZ|
00000240: 2E 20 20 20 20 20 D3 4F 4C 4C 20 20 C8 41 42 45 |. .OLL .ABE|
00000250: 4E 22 00 76 0A 40 01 84 39 2C 4E 24 3A 4E B2 C5 |N".v.@..9,N$:N..|
00000260: 28 4E 24 29 3A 99 3A 8B 20 4E B2 30 20 A7 20 A0 |(N$):.:. N.0 . .|
00000270: 31 3A 89 31 31 30 00 8C 0A 4A 01 99 A3 35 29 3B |1:.110...J...5);|
00000280: 22 91 22 3B 3A 84 39 2C 44 24 3A 99 00 A3 0A 54 |".";:.9,D$:....T|
00000290: 01 99 A3 31 32 29 3B 22 91 22 3B 3A 84 39 2C 42 |...12);".";:.9,B|
000002A0: 24 3A 99 00 CB 0A 5E 01 99 A3 32 31 29 3B 22 91 |$:....^...21);".|
000002B0: 22 3B 3A 84 39 2C 53 24 3A 53 B2 C5 28 53 24 29 |";:.9,S$:S..(S$)|
000002C0: 3A 99 3A 8B 53 B3 30 A7 33 35 30 00 F3 0A 68 01 |:.:.S.0.350...h.|
000002D0: 99 A3 32 37 29 3B 22 91 22 3B 3A 84 39 2C 48 24 |..27);".";:.9,H$|
000002E0: 3A 48 B2 C5 28 48 24 29 3A 99 3A 8B 48 B3 30 A7 |:H..(H$):.:.H.0.|
000002F0: 33 36 30 00 06 0B 6A 01 8B 53 B2 30 AF 20 48 B2 |360...j..S.0. H.|
00000300: 30 20 A7 33 35 30 00 20 0B 72 01 99 A3 33 34 29 |0 .350. .r...34)|
00000310: 3B 22 91 CF CB 3F 22 3B 3A 84 39 2C 41 24 3A 99 |;"...?";:.9,A$:.|
00000320: 00 3A 0B 7C 01 8B 41 24 B3 B1 22 4A 22 AF 20 41 |.:.|..A$.."J". A|
00000330: 24 B3 B1 22 4E 22 A7 33 37 30 00 4A 0B 86 01 8B |$.."N".370.J....|
00000340: 41 24 B2 22 4E 22 A7 33 32 30 00 72 0B 90 01 98 |A$."N".320.r....|
00000350: 31 2C 4E 3B 43 52 24 3B 44 24 3B 43 52 24 3B 42 |1,N;CR$;D$;CR$;B|
00000360: 24 3B 43 52 24 3B 53 3B 43 52 24 3B 48 3B 43 52 |$;CR$;S;CR$;H;CR|
00000370: 24 3B 00 7C 0B 9A 01 8D 36 30 30 30 00 86 0B A4 |$;.|....6000....|
00000380: 01 89 20 33 32 30 00 A0 0B E7 03 80 3A 20 44 45 |.. 320......: DE|
00000390: 53 20 45 49 4E 47 41 42 45 20 54 45 49 4C 45 53 |S EINGABE TEILES|
000003A0: 00 BB 0B E8 03 98 31 35 2C 22 53 30 3A 4B 41 53 |......15,"S0:KAS|
000003B0: 53 41 42 55 43 48 2D 56 4F 52 22 00 E3 0B F2 03 |SABUCH-VOR".....|
000003C0: 98 31 35 2C 22 52 3A 4B 41 53 53 41 42 55 43 48 |.15,"R:KASSABUCH|
000003D0: 2D 56 4F 52 3D 4B 41 53 53 41 42 55 43 48 2D 41 |-VOR=KASSABUCH-A|
000003E0: 4C 54 22 00 07 0C FC 03 98 31 35 2C 22 52 3A 4B |LT"......15,"R:K|
000003F0: 41 53 53 41 42 55 43 48 2D 41 4C 54 3D 4B 41 53 |ASSABUCH-ALT=KAS|
00000400: 53 41 42 55 43 48 22 00 22 0C 06 04 9F 31 2C 38 |SABUCH"."....1,8|
00000410: 2C 33 2C 22 4B 41 53 53 41 42 55 43 48 2C 53 2C |,3,"KASSABUCH,S,|
00000420: 57 22 00 2C 0C 10 04 8D 36 30 30 30 00 35 0C 1A |W".,....6000.5..|
00000430: 04 89 33 30 30 00 50 0C D0 07 9F 31 2C 38 2C 34 |..300.P....1,8,4|
00000440: 2C 22 4B 41 53 53 41 42 55 43 48 2C 53 2C 41 22 |,"KASSABUCH,S,A"|
00000450: 00 5A 0C DA 07 8D 36 30 30 30 00 63 0C E4 07 89 |.Z....6000.c....|
00000460: 33 30 30 00 7E 0C B8 0B 9F 31 2C 38 2C 35 2C 22 |300.~....1,8,5,"|
00000470: 4B 41 53 53 41 42 55 43 48 2C 53 2C 52 22 00 88 |KASSABUCH,S,R"..|
00000480: 0C C2 0B 8D 36 30 30 30 00 90 0C D6 0B 49 B2 30 |....6000.....I.0|
00000490: 00 BD 0C E0 0B 84 31 2C 4E 28 49 29 2C 44 24 28 |......1,N(I),D$(|
000004A0: 49 29 2C 42 24 28 49 29 2C 53 28 49 29 2C 48 28 |I),B$(I),S(I),H(|
000004B0: 49 29 3A 8B 20 53 54 20 A7 33 30 36 30 00 CD 0C |I):. ST .3060...|
000004C0: EA 0B 49 B2 49 AA 31 3A 89 33 30 34 30 00 D6 0C |..I.I.1:.3040...|
000004D0: F4 0B 58 4E B2 49 00 DD 0C FE 0B A0 31 00 F6 0C |..XN.I......1...|
000004E0: 08 0C 8F 20 53 4F 52 54 49 45 52 45 20 44 49 45 |... SORTIERE DIE|
000004F0: 20 44 41 54 45 4E 00 03 0D 1C 0C 4E B2 58 4E 3A | DATEN.....N.XN:|
00000500: 4D B2 4E 00 24 0D 26 0C 4D B2 B5 28 4D AD 32 29 |M.N.$.&.M..(M.2)|
00000510: 3A 4A B2 30 3A 4B B2 4E AB 4D 3A 8B 4D B2 30 A7 |:J.0:K.N.M:.M.0.|
00000520: 33 35 30 30 00 2C 0D 30 0C 49 B2 4A 00 46 0D 3A |3500.,.0.I.J.F.:|
00000530: 0C 4C B2 49 AA 4D 3A 8B 4E 28 49 29 B3 4E 28 4C |.L.I.M:.N(I).N(L|
00000540: 29 A7 33 31 36 30 00 82 0D 3C 0C 4E 31 B2 4E 28 |).3160...<.N1.N(|
00000550: 49 29 3A 4E 28 49 29 B2 4E 28 4C 29 3A 4E 28 4C |I):N(I).N(L):N(L|
00000560: 29 B2 4E 31 3A 44 24 B2 44 24 28 49 29 3A 44 24 |).N1:D$.D$(I):D$|
00000570: 28 49 29 B2 44 24 28 4C 29 3A 44 24 28 4C 29 B2 |(I).D$(L):D$(L).|
00000580: 44 24 00 BC 0D 3D 0C 42 24 B2 42 24 28 49 29 3A |D$...=.B$.B$(I):|
00000590: 42 24 28 49 29 B2 42 24 28 4C 29 3A 42 24 28 4C |B$(I).B$(L):B$(L|
000005A0: 29 B2 42 24 3A 53 B2 53 28 49 29 3A 53 28 49 29 |).B$:S.S(I):S(I)|
000005B0: B2 53 28 4C 29 3A 53 28 4C 29 B2 53 00 D8 0D 3E |.S(L):S(L).S...>|
000005C0: 0C 48 B2 48 28 49 29 3A 48 28 49 29 B2 48 28 4C |.H.H(I):H(I).H(L|
000005D0: 29 3A 48 28 4C 29 B2 48 00 EC 0D 44 0C 49 B2 49 |):H(L).H...D.I.I|
000005E0: AB 4D 3A 8B 49 B3 31 A7 33 31 36 30 00 F6 0D 4E |.M:.I.1.3160...N|
000005F0: 0C 89 33 31 33 30 00 0A 0E 58 0C 4A B2 4A AA 31 |..3130...X.J.J.1|
00000600: 3A 8B 4A B1 4B A7 33 31 31 30 00 14 0E 62 0C 89 |:.J.K.3110...b..|
00000610: 33 31 32 30 00 2B 0E AC 0D 8F 20 44 52 55 43 4B |3120.+.... DRUCK|
00000620: 45 20 44 49 45 20 44 41 54 45 4E 00 5F 0E B1 0D |E DIE DATEN._...|
00000630: 53 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |SP$." |
00000640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000650: 20 20 20 20 20 20 20 20 20 20 20 A0 A0 A0 22 00 | ...".|
00000660: 94 0E B6 0D 99 22 D2 49 43 48 54 45 4E 20 D3 49 |.....".ICHTEN .I|
00000670: 45 20 42 49 54 54 45 20 44 41 53 20 D0 41 50 49 |E BITTE DAS .API|
00000680: 45 52 20 41 4D 20 C4 52 55 43 4B 45 52 20 45 49 |ER AM .RUCKER EI|
00000690: 4E 20 21 22 00 C2 0E BB 0D 99 22 CC 45 54 5A 54 |N !"......".ETZT|
000006A0: 45 20 D3 45 49 54 45 20 CE 55 4D 4D 45 52 20 3A |E .EITE .UMMER :|
000006B0: 22 3B 3A 84 39 2C 50 24 3A 50 B2 C5 28 50 24 29 |";:.9,P$:P..(P$)|
000006C0: 3A 99 00 F8 0E C0 0D 99 22 D7 45 4E 4E 20 C6 45 |:.......".ENN .E|
000006D0: 52 54 49 47 20 44 52 55 45 43 4B 45 4E 20 D3 49 |RTIG DRUECKEN .I|
000006E0: 45 20 D2 45 54 55 52 4E 9D 9D 9D 9D 9D 9D 22 3B |E .ETURN......";|
000006F0: 3A 84 39 2C 41 24 3A 99 00 2B 0F CA 0D 9F 31 2C |:.9,A$:..+....1,|
00000700: 34 3A 46 45 54 54 24 B2 C7 28 32 37 29 AA C7 28 |4:FETT$..(27)..(|
00000710: 31 36 29 3A 8F 20 28 45 53 43 20 52 56 53 20 5B |16):. (ESC RVS [|
00000720: 20 50 20 4F 46 46 2F 52 56 53 29 00 40 0F D4 0D | P OFF/RVS).@...|
00000730: 81 49 B2 30 A4 58 4E A9 35 30 3A 50 B2 50 AA 31 |.I.0.XN.50:P.P.1|
00000740: 00 4D 0F DE 0D 98 31 3A 98 31 3A 98 31 00 71 0F |.M....1:.1:.1.q.|
00000750: E8 0D 98 31 2C 22 45 20 53 20 56 20 2D 20 4B 20 |...1,"E S V - K |
00000760: 41 20 53 20 53 A0 41 A0 42 A0 55 A0 43 A0 48 22 |A S S.A.B.U.C.H"|
00000770: 3B 00 89 0F F2 0D 98 31 2C A3 33 35 29 3B 22 53 |;......1,.35);"S|
00000780: 45 49 54 45 20 3A 22 3B 50 00 90 0F FC 0D 98 31 |EITE :";P......1|
00000790: 00 CA 0F 06 0E 98 31 2C 22 20 20 20 20 20 4E 55 |......1," NU|
000007A0: 4D 4D 45 52 20 20 20 20 44 41 54 55 4D 20 20 20 |MMER DATUM |
000007B0: 20 20 20 42 45 5A 45 49 43 48 4E 55 4E 47 20 20 | BEZEICHNUNG |
000007C0: 20 20 20 20 20 20 20 20 22 3B 00 EC 0F 10 0E 98 | ";......|
000007D0: 31 2C 22 20 20 20 20 20 53 4F 4C 4C 22 3B 22 20 |1," SOLL";" |
000007E0: 20 20 20 20 20 20 48 41 42 45 4E 22 00 F3 0F 1A | HABEN"....|
000007F0: 0E 98 31 00 09 10 24 0E 53 31 B2 30 3A 48 31 B2 |..1...$.S1.0:H1.|
00000800: 30 3A 81 4A B2 30 A4 34 39 00 2C 10 2E 0E 58 B2 |0:.J.0.49.,...X.|
00000810: 49 AA 4A 3A 8B 58 B1 58 4E A7 81 4C B2 4A A4 34 |I.J:.X.XN..L.J.4|
00000820: 39 3A 98 31 3A 82 3A 89 33 36 38 30 00 56 10 38 |9:.1:.:.3680.V.8|
00000830: 0E 98 31 2C C9 28 22 20 20 20 20 20 20 22 AA C4 |..1,.(" "..|
00000840: 28 4E 28 58 29 29 2C 36 29 3B 22 20 20 20 20 20 |(N(X)),6);" |
00000850: 20 20 20 20 22 3B 00 83 10 42 0E 98 31 2C C8 28 | ";...B..1,.(|
00000860: 44 24 28 58 29 2C 34 29 3B 22 20 20 20 20 20 20 |D$(X),4);" |
00000870: 20 22 3B C8 28 42 24 28 58 29 AA 53 50 24 2C 31 | ";.(B$(X).SP$,1|
00000880: 38 29 3B 00 AE 10 4C 0E 58 58 B2 53 28 58 29 3A |8);...L.XX.S(X):|
00000890: 8D 36 30 3A 98 31 2C 58 58 24 3B 3A 58 58 B2 48 |.60:.1,XX$;:XX.H|
000008A0: 28 58 29 3A 8D 36 30 3A 98 31 2C 58 58 24 00 CB |(X):.60:.1,XX$..|
000008B0: 10 56 0E 53 31 B2 53 31 AA 53 28 58 29 3A 48 31 |.V.S1.S1.S(X):H1|
000008C0: B2 48 31 AA 48 28 58 29 3A 82 4A 00 D2 10 60 0E |.H1.H(X):.J...`.|
000008D0: 98 31 00 EB 10 6A 0E 98 31 2C A3 33 35 29 3B 22 |.1...j..1,.35);"|
000008E0: 47 45 53 41 4D 54 20 20 20 22 3B 00 12 11 6B 0E |GESAMT ";...k.|
000008F0: 58 58 B2 53 31 3A 8D 36 30 3A 98 31 2C 58 58 24 |XX.S1:.60:.1,XX$|
00000900: 3B 3A 58 58 B2 48 31 3A 8D 36 30 3A 98 31 2C 58 |;:XX.H1:.60:.1,X|
00000910: 58 24 00 2B 11 6C 0E 98 31 2C A3 33 35 29 3B 22 |X$.+.l..1,.35);"|
00000920: 55 45 42 45 52 54 52 41 47 22 3B 00 52 11 6D 0E |UEBERTRAG";.R.m.|
00000930: 58 58 B2 53 32 3A 8D 36 30 3A 98 31 2C 58 58 24 |XX.S2:.60:.1,XX$|
00000940: 3B 3A 58 58 B2 48 32 3A 8D 36 30 3A 98 31 2C 58 |;:XX.H2:.60:.1,X|
00000950: 58 24 00 85 11 74 0E 98 31 2C A3 33 35 29 3B 22 |X$...t..1,.35);"|
00000960: 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3B 22 3D 3D 3D 3D |=========";"====|
00000970: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000980: 3D 3D 3D 3D 22 00 9B 11 76 0E 53 32 B2 53 32 AA |===="...v.S2.S2.|
00000990: 53 31 3A 48 32 B2 48 32 AA 48 31 00 B4 11 77 0E |S1:H2.H2.H1...w.|
000009A0: 98 31 2C A3 33 35 29 3B 22 53 55 4D 4D 45 20 20 |.1,.35);"SUMME |
000009B0: 20 20 22 3B 00 DB 11 78 0E 58 58 B2 53 32 3A 8D | ";...x.XX.S2:.|
000009C0: 36 30 3A 98 31 2C 58 58 24 3B 3A 58 58 B2 48 32 |60:.1,XX$;:XX.H2|
000009D0: 3A 8D 36 30 3A 98 31 2C 58 58 24 00 0E 12 7A 0E |:.60:.1,XX$...z.|
000009E0: 98 31 2C A3 33 35 29 3B 22 3D 3D 3D 3D 3D 3D 3D |.1,.35);"=======|
000009F0: 3D 3D 22 3B 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |==";"===========|
00000A00: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 24 |=============".$|
00000A10: 12 88 0E 98 31 3A 98 31 3A 98 31 3A 98 31 3A 98 |....1:.1:.1:.1:.|
00000A20: 31 3A 98 31 00 31 12 92 0E 98 31 3A 98 31 3A 98 |1:.1.1....1:.1:.|
00000A30: 31 00 38 12 9C 0E 82 49 00 3F 12 A6 0E A0 31 00 |1.8....I.?....1.|
00000A40: 48 12 B0 0E 89 31 31 30 00 58 12 A0 0F A0 39 3A |H....110.X....9:|
00000A50: A0 31 3A 89 36 31 30 30 00 73 12 88 13 9F 31 2C |.1:.6100.s....1,|
00000A60: 38 2C 36 2C 22 4B 41 53 53 41 42 55 43 48 2C 53 |8,6,"KASSABUCH,S|
00000A70: 2C 52 22 00 97 12 92 13 98 31 35 2C 22 53 30 3A |,R"......15,"S0:|
00000A80: 54 45 4D 50 22 3A 9F 32 2C 38 2C 37 2C 22 54 45 |TEMP":.2,8,7,"TE|
00000A90: 4D 50 2C 53 2C 57 22 00 B3 12 9C 13 99 22 93 CB |MP,S,W"......"..|
00000AA0: 41 53 53 41 42 55 43 48 20 4B 4F 52 52 45 4B 54 |ASSABUCH KORREKT|
00000AB0: 55 52 22 00 B9 12 A6 13 99 00 E1 12 AB 13 99 22 |UR"............"|
00000AC0: CE 52 2E 20 20 C4 41 54 55 4D 20 20 C2 45 5A 2E |.R. .ATUM .EZ.|
00000AD0: 20 20 20 20 20 D3 4F 4C 4C 20 20 C8 41 42 45 4E | .OLL .ABEN|
00000AE0: 22 00 FA 12 B0 13 84 31 2C 4E 2C 44 24 2C 42 24 |"......1,N,D$,B$|
00000AF0: 2C 53 2C 48 3A 54 53 B2 53 54 00 12 13 B5 13 99 |,S,H:TS.ST......|
00000B00: CA 28 C4 28 4E 29 2C 32 2C C3 28 C4 28 4E 29 29 |.(.(N),2,.(.(N))|
00000B10: 29 3B 00 30 13 BA 13 99 A3 35 29 44 24 3B A3 31 |);.0.....5)D$;.1|
00000B20: 32 29 42 24 3B A3 32 30 29 53 3B A3 32 36 29 48 |2)B$;.20)S;.26)H|
00000B30: 00 4B 13 C4 13 99 A3 33 34 29 22 91 CF CB 20 4A |.K.....34)"... J|
00000B40: 9D 22 3B 3A 84 39 2C 41 24 3A 99 00 5C 13 CE 13 |.";:.9,A$:..\...|
00000B50: 8B 41 24 B2 22 4A 22 A7 35 31 36 30 00 6D 13 D8 |.A$."J".5160.m..|
00000B60: 13 8B 41 24 B2 22 4E 22 A7 35 31 30 30 00 77 13 |..A$."N".5100.w.|
00000B70: E2 13 89 35 30 36 30 00 9F 13 EC 13 84 39 2C 4E |...5060......9,N|
00000B80: 24 3A 4E B2 C5 28 4E 24 29 3A 99 3A 8B 20 4E B2 |$:N..(N$):.:. N.|
00000B90: 30 20 A7 20 99 22 91 91 22 3A 89 35 31 30 30 00 |0 . ."..":.5100.|
00000BA0: B5 13 F6 13 99 A3 35 29 3B 22 91 22 3B 3A 84 39 |......5);".";:.9|
00000BB0: 2C 44 24 3A 99 00 CC 13 00 14 99 A3 31 32 29 3B |,D$:........12);|
00000BC0: 22 91 22 3B 3A 84 39 2C 42 24 3A 99 00 F4 13 0A |".";:.9,B$:.....|
00000BD0: 14 99 A3 32 31 29 3B 22 91 22 3B 3A 84 39 2C 53 |...21);".";:.9,S|
00000BE0: 24 3A 53 B2 C5 28 53 24 29 3A 99 3A 8B 53 B3 30 |$:S..(S$):.:.S.0|
00000BF0: A7 33 35 30 00 1C 14 14 14 99 A3 32 37 29 3B 22 |.350.......27);"|
00000C00: 91 22 3B 3A 84 39 2C 48 24 3A 48 B2 C5 28 48 24 |.";:.9,H$:H..(H$|
00000C10: 29 3A 99 3A 8B 48 B3 30 A7 33 36 30 00 30 14 1E |):.:.H.0.360.0..|
00000C20: 14 8B 53 B2 30 AF 20 48 B2 30 20 A7 35 31 33 30 |..S.0. H.0 .5130|
00000C30: 00 4B 14 23 14 99 A3 33 34 29 22 91 CF CB 20 4A |.K.#...34)"... J|
00000C40: 9D 22 3B 3A 84 39 2C 41 24 3A 99 00 5C 14 24 14 |.";:.9,A$:..\.$.|
00000C50: 8B 41 24 B2 22 4A 22 A7 35 31 36 30 00 6D 14 25 |.A$."J".5160.m.%|
00000C60: 14 8B 41 24 B2 22 4E 22 A7 35 31 30 30 00 77 14 |..A$."N".5100.w.|
00000C70: 26 14 89 35 31 35 35 00 9F 14 28 14 98 32 2C 4E |&..5155...(..2,N|
00000C80: 3B 43 52 24 3B 44 24 3B 43 52 24 3B 42 24 3B 43 |;CR$;D$;CR$;B$;C|
00000C90: 52 24 3B 53 3B 43 52 24 3B 48 3B 43 52 24 3B 00 |R$;S;CR$;H;CR$;.|
00000CA0: AE 14 32 14 8B 54 53 B2 30 A7 35 30 34 30 00 BB |..2..TS.0.5040..|
00000CB0: 14 3C 14 A0 31 3A A0 32 3A A0 39 00 EF 14 46 14 |.<..1:.2:.9...F.|
00000CC0: 98 31 35 2C 22 53 30 3A 4B 41 53 53 41 42 55 43 |.15,"S0:KASSABUC|
00000CD0: 48 22 3A 98 31 35 2C 22 52 3A 4B 41 53 53 41 42 |H":.15,"R:KASSAB|
00000CE0: 55 43 48 3D 54 45 4D 50 22 3A A0 31 35 3A 8A 00 |UCH=TEMP":.15:..|
00000CF0: 04 15 70 17 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 |..p..15,EN,EM$,E|
00000D00: 54 2C 45 53 00 10 15 7A 17 8B 45 4E B2 30 A7 8E |T,ES...z..EN.0..|
00000D10: 00 28 15 84 17 99 45 4E 2C 45 4D 24 3A A0 31 35 |.(....EN,EM$:.15|
00000D20: 3A A0 31 3A A0 32 3A 80 00 3C 15 D4 17 9C 3A 99 |:.1:.2:..<....:.|
00000D30: C7 28 39 29 3A 99 C7 28 31 34 32 29 00 53 15 D9 |.(9):..(142).S..|
00000D40: 17 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |..53280,14:.5328|
00000D50: 31 2C 36 00 60 15 DE 17 99 22 93 1F 4E 45 57 22 |1,6.`...."..NEW"|
00000D60: 00 87 15 E8 17 99 22 11 11 4C 4F 41 44 22 AA C7 |......"..LOAD"..|
00000D70: 28 33 34 29 AA 22 4D 45 4E 55 45 22 AA C7 28 33 |(34)."MENUE"..(3|
00000D80: 34 29 AA 22 2C 38 22 00 B4 15 EA 17 99 22 11 11 |4).",8"......"..|
00000D90: 11 11 11 11 11 11 11 11 05 20 20 20 20 20 20 20 |......... |
00000DA0: 20 20 20 20 42 49 54 54 45 20 57 41 52 54 45 4E | BITTE WARTEN|
00000DB0: 20 21 1F 22 00 BF 15 F2 17 97 31 39 38 2C 37 00 | !."......198,7.|
00000DC0: D9 15 FC 17 83 31 39 2C 31 33 2C 31 33 2C 38 32 |.....19,13,13,82|
00000DD0: 2C 38 35 2C 37 38 2C 31 33 00 F3 15 06 18 81 49 |,85,78,13......I|
00000DE0: B2 31 A4 37 3A 87 58 3A 97 36 33 30 AA 49 2C 58 |.1.7:.X:.630.I,X|
00000DF0: 3A 82 49 00 00 00 4D 85 30 |:.I...M.0 |
..'...X.299:.N(X),D$(X),B$(X),S(X),H(X).
M....".":.G(14)G(8):.53280,0:.53281,0._.
...15,8,15:.100...<.XX$.D(XX)."000":LS.C
(D(.(XX)))...>...(XX).1.XX$.H(XX$,1)."0"
.I(XX$,C(XX$).1).T.@.XX$.H(XX$,LS).".".J
(XX$,LS.2,2)...D.XX$.I(" ".XX
$,12):....D.CR$.G(13):.9,0...N..".".(.X.
."ESV KASSABUCH".......J....,"1 ..... NE
UER MONAT".B....,"2 ..... EINGABE".|. ..
,"3 ..... ABSCHLUSS"......,"4 ..... PROG
RAMM ENDE"......,"5 ..... KORREKTUR"....
........"IHRE WAHL :";:.9,A$:A%.E(A$):..
..H.. A% . 1000,2000,3000,4000,5000...R.
.110.!....: DES 1. TEILES.*.,..".".R.6..
"NR. DATUM BEZ. SOLL HABEN".V.@..
9,N$:N.E(N$):.:. N.0 . 1:.110...J...5);
".";:.9,D$:....T...12);".";:.9,B$:..K.^.
..21);".";:.9,S$:S.E(S$):.:.S.0.350...H.
..27);".";:.9,H$:H.E(H$):.:.H.0.360...J.
.S.0. H.0 .350. .R...34);".OK?";:.9,A$:.
.:.|..A$.."J". A$.."N".370.J....A$."N".3
20.R....1,N;CR$;D$;CR$;B$;CR$;S;CR$;H;CR
$;.|....6000...... 320. ....: DES EINGAB
E TEILES......15,"S0:KASSABUCH-VOR".....
.15,"R:KASSABUCH-VOR=KASSABUCH-ALT".....
.15,"R:KASSABUCH-ALT=KASSABUCH"."....1,8
,3,"KASSABUCH,S,W".,....6000.5....300.P.
P..1,8,4,"KASSABUCH,S,A".Z.Z..6000.C....
300.~....1,8,5,"KASSABUCH,S,R"...B..6000
...V.I.0......1,N(I),D$(I),B$(I),S(I),H(
I):. ST .3060.M...I.I.1:.3040.V...XN.I..
... 1...... SORTIERE DIE DATEN.....N.XN:
M.N.$.&.M..(M.2):J.0:K.N.M:.M.0.3500.,.0
.I.J.F.:.L.I.M:.N(I).N(L).3160...<.N1.N(
I):N(I).N(L):N(L).N1:D$.D$(I):D$(I).D$(L
):D$(L).D$...=.B$.B$(I):B$(I).B$(L):B$(L
).B$:S.S(I):S(I).S(L):S(L).S.X.>.H.H(I):
H(I).H(L):H(L).H...D.I.I.M:.I.1.3160...N
..3130...X.J.J.1:.J.K.3110...B..3120.+..
.. DRUCKE DIE DATEN._...SP$."
"......"RI
CHTEN SIE BITTE DAS PAPIER AM DRUCKER EI
N !".B...."LETZTE SEITE NUMMER :";:.9,P$
:P.E(P$):......."WENN FERTIG DRUECKEN SI
E RETURN......";:.9,A$:..+.J..1,4:FETT$.
G(27).G(16):. (ESC RVS [ P OFF/RVS).@.T.
.I.0.XN.50:P.P.1.M....1:.1:.1.Q....1,"E
S V - K A S S A B U C H";......1,.35);"S
EITE :";P......1.J....1," NUMMER
DATUM BEZEICHNUNG ";......
1," SOLL";" HABEN"......1...$.
S1.0:H1.0:.J.0.49.,...X.I.J:.X.XN..L.J.4
9:.1:.:.3680.V.8..1,I(" ".D(N(X)),6
);" ";...B..1,H(D$(X),4);"
";H(B$(X).SP$,18);...L.XX.S(X):.60:.1,X
X$;:XX.H(X):.60:.1,XX$.K.V.S1.S1.S(X):H1
.H1.H(X):.J.R.`..1...J..1,.35);"GESAMT
";...K.XX.S1:.60:.1,XX$;:XX.H1:.60:.1,X
X$.+.L..1,.35);"UEBERTRAG";.R.M.XX.S2:.6
0:.1,XX$;:XX.H2:.60:.1,XX$...T..1,.35);"
=========";"========================"...
V.S2.S2.S1:H2.H2.H1...W..1,.35);"SUMME
";...X.XX.S2:.60:.1,XX$;:XX.H2:.60:.1,
XX$...Z..1,.35);"=========";"===========
=============".$....1:.1:.1:.1:.1:.1.1..
..1:.1:.1.8....I.?... 1.H....110.X. . 9:
1:.6100.S....1,8,6,"KASSABUCH,S,R".....
.15,"S0:TEMP":.2,8,7,"TEMP,S,W"......".K
ASSABUCH KORREKTUR"............"NR. DAT
UM BEZ. SOLL HABEN"......1,N,D$,B$
,S,H:TS.ST......J(D(N),2,C(D(N)));.0....
.5)D$;.12)B$;.20)S;.26)H.K.D...34)".OK J
.";:.9,A$:..\.N..A$."J".5160.M.X..A$."N"
.5100.W....5060......9,N$:N.E(N$):.:. N.
0 . ."..":.5100.......5);".";:.9,D$:..L.
....12);".";:.9,B$:........21);".";:.9,S
$:S.E(S$):.:.S.0.350.......27);".";:.9,H
$:H.E(H$):.:.H.0.360.0....S.0. H.0 .5130
.K.#...34)".OK J.";:.9,A$:..\.$..A$."J".
5160.M.%..A$."N".5100.W.&..5155...(..2,N
;CR$;D$;CR$;B$;CR$;S;CR$;H;CR$;...2..TS.
0.5040...<. 1: 2: 9...F..15,"S0:KASSABUC
H":.15,"R:KASSABUCH=TEMP": 15:....P..15,
EN,EM$,ET,ES...Z..EN.0...(....EN,EM$: 15
: 1: 2:..<.T..:.G(9):.G(142).S.Y..53280,
14:.53281,6.`...."..NEW"......"..LOAD".G
(34)."MENUE".G(34).",8"......"..........
. BITTE WARTEN !."......198,7.
Y....19,13,13,82,85,78,13......I.1.7:.X:
.630.I,X:.I...M.0
> CLICK IMAGE PREVIEW FOR FULL MODAL