00000000: C1 CE C4 22 3B 3A 8D 31 32 30 00 DC 23 3C 23 8D |...";:.120..#<#.|
00000010: 38 35 31 30 00 EA 23 46 23 4E 46 B2 32 3A 8D 35 |8510..#F#NF.2:.5|
00000020: 30 30 00 F7 23 50 23 49 55 B2 31 3A 49 B2 31 00 |00..#P#IU.1:I.1.|
00000030: 18 24 5A 23 8D 35 34 30 3A 8B 49 4E 24 B2 22 40 |.$Z#.540:.IN$."@|
00000040: 22 A7 4E 53 28 49 55 29 B2 49 3A 89 39 30 37 30 |".NS(IU).I:.9070|
00000050: 00 36 24 64 23 53 41 24 28 49 55 2C 49 29 B2 49 |.6$d#SA$(IU,I).I|
00000060: 4E 24 3A 49 B2 49 AA 31 3A 89 39 30 35 30 00 4F |N$:I.I.1:.9050.O|
00000070: 24 6E 23 8B 49 55 B2 31 A7 49 B2 31 3A 49 55 B2 |$n#.IU.1.I.1:IU.|
00000080: 32 3A 89 39 30 35 30 00 58 24 78 23 8D 35 38 30 |2:.9050.X$x#.580|
00000090: 00 5E 24 82 23 8E 00 80 24 30 75 8F 20 20 42 55 |.^$.#...$0u. BU|
000000A0: 44 47 45 54 20 49 53 20 45 45 4E 20 50 52 4F 47 |DGET IS EEN PROG|
000000B0: 52 41 4D 4D 41 20 4F 4D 00 A0 24 3A 75 8F 20 20 |RAMMA OM..$:u. |
000000C0: 55 57 20 49 4E 4B 4F 4D 53 54 45 4E 20 45 4E 20 |UW INKOMSTEN EN |
000000D0: 55 49 54 47 41 56 45 4E 00 C4 24 44 75 8F 20 20 |UITGAVEN..$Du. |
000000E0: 4E 55 20 45 45 4E 53 20 4E 45 54 4A 45 53 20 4F |NU EENS NETJES O|
000000F0: 50 20 45 45 4E 20 52 49 4A 54 4A 45 00 D6 24 4E |P EEN RIJTJE..$N|
00000100: 75 8F 20 20 54 45 20 5A 45 54 54 45 4E 2E 00 F3 |u. TE ZETTEN...|
00000110: 24 58 75 8F 20 20 42 49 4A 20 44 45 20 55 49 54 |$Xu. BIJ DE UIT|
00000120: 56 4F 45 52 20 57 4F 52 44 45 4E 00 11 25 62 75 |VOER WORDEN..%bu|
00000130: 8F 20 20 50 52 49 4E 54 45 52 20 45 4E 20 44 49 |. PRINTER EN DI|
00000140: 53 4B 47 45 42 52 55 49 4B 00 25 25 6C 75 8F 20 |SKGEBRUIK.%%lu. |
00000150: 20 4F 4E 44 45 52 53 54 45 55 4E 44 2E 00 49 25 | ONDERSTEUND..I%|
00000160: 76 75 8F 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |vu. ===========|
00000170: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000180: 3D 00 65 25 80 75 8F 20 20 47 45 42 52 55 49 4B |=.e%.u. GEBRUIK|
00000190: 54 45 20 56 41 52 49 41 42 45 4C 45 4E 00 7E 25 |TE VARIABELEN.~%|
000001A0: 8A 75 8F 20 20 48 4F 2C 56 45 2C 49 4E 2C 43 4E |.u. HO,VE,IN,CN|
000001B0: 2C 43 54 2C 53 52 00 96 25 94 75 8F 20 20 43 48 |,CT,SR..%.u. CH|
000001C0: 20 3D 20 4B 45 55 5A 45 4E 55 4D 4D 45 52 00 B4 | = KEUZENUMMER..|
000001D0: 25 9E 75 8F 20 20 43 31 20 3D 20 48 55 4C 50 56 |%.u. C1 = HULPV|
000001E0: 41 52 2E 20 4B 45 55 5A 45 4E 52 2E 00 D3 25 A8 |AR. KEUZENR...%.|
000001F0: 75 8F 20 20 49 55 20 3D 20 49 4E 2F 55 49 54 56 |u. IU = IN/UITV|
00000200: 4F 45 52 4B 45 55 5A 45 4E 52 2E 00 F7 25 B2 75 |OERKEUZENR...%.u|
00000210: 8F 20 20 4D 58 20 3D 20 4D 41 58 49 4D 55 4D 20 |. MX = MAXIMUM |
00000220: 49 4E 56 4F 45 52 56 41 52 49 41 42 45 4C 45 00 |INVOERVARIABELE.|
00000230: 0F 26 BC 75 8F 20 20 52 45 20 3D 20 52 45 47 45 |.&.u. RE = REGE|
00000240: 4C 4E 55 4D 4D 45 52 00 2E 26 C6 75 8F 20 20 49 |LNUMMER..&.u. I|
00000250: 20 20 3D 20 46 4F 52 2F 4E 45 58 54 20 4C 55 53 | = FOR/NEXT LUS|
00000260: 54 45 4C 4C 45 52 00 49 26 D0 75 8F 20 20 47 44 |TELLER.I&.u. GD|
00000270: 20 3D 20 49 4E 56 4F 45 52 43 4F 4E 54 52 4F 4C | = INVOERCONTROL|
00000280: 45 00 62 26 DA 75 8F 20 20 4E 52 20 3D 20 49 4E |E.b&.u. NR = IN|
00000290: 56 4F 45 52 54 45 4C 4C 45 52 00 7D 26 E4 75 8F |VOERTELLER.}&.u.|
000002A0: 20 20 50 52 20 3D 20 50 52 49 4E 54 45 52 50 4F | PR = PRINTERPO|
000002B0: 49 4E 54 45 52 00 98 26 EE 75 8F 20 20 54 31 20 |INTER..&.u. T1 |
000002C0: 3D 20 49 4E 4B 4F 4D 53 54 45 4E 53 41 4C 44 4F |= INKOMSTENSALDO|
000002D0: 00 B2 26 F8 75 8F 20 20 54 32 20 3D 20 55 49 54 |..&.u. T2 = UIT|
000002E0: 47 41 56 45 4E 53 41 4C 44 4F 00 C4 26 02 76 8F |GAVENSALDO..&.v.|
000002F0: 20 20 44 4C 20 3D 20 44 45 4C 45 52 00 E5 26 0C | DL = DELER..&.|
00000300: 76 8F 20 20 4E 46 20 3D 20 42 45 53 54 41 4E 44 |v. NF = BESTAND|
00000310: 53 55 49 54 56 4F 45 52 20 56 41 52 2E 00 02 27 |SUITVOER VAR...'|
00000320: 16 76 8F 20 20 56 31 20 3D 20 48 55 4C 50 56 41 |.v. V1 = HULPVA|
00000330: 52 2E 20 56 4F 4F 52 20 56 45 00 1F 27 20 76 8F |R. VOOR VE..' v.|
00000340: 20 20 48 31 20 3D 20 48 55 4C 50 56 41 52 2E 20 | H1 = HULPVAR. |
00000350: 56 4F 4F 52 20 48 4F 00 3F 27 2A 76 8F 20 20 4E |VOOR HO.?'*v. N|
00000360: 53 28 29 20 3D 20 49 4E 2F 55 49 54 47 41 56 45 |S() = IN/UITGAVE|
00000370: 4E 54 45 4C 4C 45 52 00 58 27 34 76 8F 20 20 47 |NTELLER.X'4v. G|
00000380: 45 42 52 55 49 4B 54 45 20 53 54 52 49 4E 47 53 |EBRUIKTE STRINGS|
00000390: 00 6B 27 3E 76 8F 20 20 49 4E 24 2C 53 52 24 2C |.k'>v. IN$,SR$,|
000003A0: 4E 46 24 00 85 27 3F 76 8F 20 20 51 24 20 3D 20 |NF$..'?v. Q$ = |
000003B0: 54 45 52 4D 49 4A 4E 53 54 52 49 4E 47 00 A2 27 |TERMIJNSTRING..'|
000003C0: 40 76 8F 20 20 48 31 24 2C 48 32 24 20 3D 20 48 |@v. H1$,H2$ = H|
000003D0: 55 4C 50 53 54 52 49 4E 47 53 00 BC 27 41 76 8F |ULPSTRINGS..'Av.|
000003E0: 20 20 54 24 20 3D 20 54 45 52 4D 49 4A 4E 53 54 | T$ = TERMIJNST|
000003F0: 52 49 4E 47 00 DE 27 48 76 8F 20 20 53 41 24 28 |RING..'Hv. SA$(|
00000400: 58 2C 59 29 20 3D 20 47 45 47 45 56 45 4E 53 20 |X,Y) = GEGEVENS |
00000410: 53 54 52 49 4E 47 00 06 28 52 76 8F 20 20 49 55 |STRING..(Rv. IU|
00000420: 24 28 29 20 3D 20 49 4E 4B 4F 4D 53 54 45 4E 2F |$() = INKOMSTEN/|
00000430: 55 49 54 47 41 56 45 4E 20 54 49 54 45 4C 00 2E |UITGAVEN TITEL..|
00000440: 28 00 7D 8F 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |(.}. ==========|
00000450: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000460: 3D 3D 3D 3D 3D 3D 00 43 28 0A 7D 8F 20 20 47 45 |======.C(.}. GE|
00000470: 4D 41 41 4B 54 20 44 4F 4F 52 3A 00 59 28 14 7D |MAAKT DOOR:.Y(.}|
00000480: 8F 20 20 4B 2E 20 56 2E 44 2E 20 57 49 53 53 45 |. K. V.D. WISSE|
00000490: 4C 00 70 28 1E 7D 8F 20 20 4E 49 45 55 57 53 54 |L.p(.}. NIEUWST|
000004A0: 52 41 41 54 20 33 30 36 00 8B 28 28 7D 8F 20 20 |RAAT 306..((}. |
000004B0: 33 32 30 31 20 45 47 20 53 50 49 4A 4B 45 4E 49 |3201 EG SPIJKENI|
000004C0: 53 53 45 00 9E 28 32 7D 8F 20 20 30 31 38 38 30 |SSE..(2}. 01880|
000004D0: 2D 31 33 33 39 38 00 B9 28 3C 7D 8F 20 20 4F 50 |-13398..(<}. OP|
000004E0: 20 45 45 4E 20 4C 41 53 45 52 20 58 54 32 20 50 | EEN LASER XT2 P|
000004F0: 43 00 CE 28 46 7D 8F 20 20 4E 4F 56 45 4D 42 45 |C..(F}. NOVEMBE|
00000500: 52 20 31 39 38 39 00 D4 28 50 7D 8F 00 EF 28 5A |R 1989..(P}...(Z|
00000510: 7D 8F 20 54 52 4F 53 2D 52 41 44 49 4F 20 44 44 |}. TROS-RADIO DD|
00000520: 20 39 30 30 35 33 30 00 00 00 | 900530... |
AND";:.120..#<#.8510..#F#NF.2:.500..#P#I
U.1:I.1..$Z#.540:.IN$."@".NS(IU).I:.9070
.6$D#SA$(IU,I).IN$:I.I.1:.9050.O$N#.IU.1
.I.1:IU.2:.9050.X$X#.580.^$.#...$0U. BU
DGET IS EEN PROGRAMMA OM. $:U. UW INKOM
STEN EN UITGAVEN.D$DU. NU EENS NETJES O
P EEN RIJTJE.V$NU. TE ZETTEN...$XU. BI
J DE UITVOER WORDEN..%BU. PRINTER EN DI
SKGEBRUIK.%%LU. ONDERSTEUND..I%VU. ===
=========================.E%.U. GEBRUIK
TE VARIABELEN.~%.U. HO,VE,IN,CN,CT,SR..
%.U. CH = KEUZENUMMER..%.U. C1 = HULPV
AR. KEUZENR..S%.U. IU = IN/UITVOERKEUZE
NR...%.U. MX = MAXIMUM INVOERVARIABELE.
.&.U. RE = REGELNUMMER..&FU. I = FOR/
NEXT LUSTELLER.I&PU. GD = INVOERCONTROL
E.B&ZU. NR = INVOERTELLER.}&.U. PR = P
RINTERPOINTER..&.U. T1 = INKOMSTENSALDO
..&.U. T2 = UITGAVENSALDO.D&.V. DL = D
ELER..&.V. NF = BESTANDSUITVOER VAR...'
.V. V1 = HULPVAR. VOOR VE..' V. H1 = H
ULPVAR. VOOR HO.?'*V. NS() = IN/UITGAVE
NTELLER.X'4V. GEBRUIKTE STRINGS.K'>V.
IN$,SR$,NF$..'?V. Q$ = TERMIJNSTRING..'
@V. H1$,H2$ = HULPSTRINGS..'AV. T$ = T
ERMIJNSTRING..'HV. SA$(X,Y) = GEGEVENS
STRING..(RV. IU$() = INKOMSTEN/UITGAVEN
TITEL..(.}. ==========================
======.C(.}. GEMAAKT DOOR:.Y(.}. K. V.
D. WISSEL.P(.}. NIEUWSTRAAT 306..((}.
3201 EG SPIJKENISSE..(2}. 01880-13398..
(<}. OP EEN LASER XT2 PC.N(F}. NOVEMBE
R 1989.T(P}...(Z}. TROS-RADIO DD 900530.
..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL