Genie / TRS-80. User Club. "Bremerhaven" Club INFO * * Club INFO * * Club INFO * * Club INFO

Genie / TRS-80 User Club

"B r e m e r h a v e n "

Club INFO * * Club INFO * * Club INFO * * Club INFO

A u s g a b e ; 02 / 1987 Februar

J a h r g a n g : 5

Druck: Peter Spieß

Tr u g en h of e n er Straße 27 D-8859 Renne r t s h o f en

R e d a k t i o n : Ralf Folkerts

Nutzhorner Straße 9 D-2875 B o o k h ol z b e r g/

G a n d er k e s e e II Telefon: 04 2 23 / 2632

F r e e w a r e : Gerhard Loose Viefhaushof 42 D-4300 Essen 13

Telefon: 0201 / 212608

A u f l a g e : 095 Exemplare

Inhalt INFO 02/1987

... 1.. . T i t e l b l a t t . Grafik von Peter Spieß ... 2.. .Inhaltsverzeichnis

... 3 . . . Internes vom Betreuer

4.-. 5.. .Regelungen für Freeware - Bibliothek (vorläufig) ... 5 . . . Die D ru c k e r a b f r a g e von Paul-Jürgen Schmitz

6 .-.12 .* .Erfahrungsbericht S c h n e i d e r PC von Gregor Thalmeier 13.-.16 . . .Dem Chaos auf der Spur von Thilo Brake

...16 . . .Richtig s t e l l u n g : 256K Banker von Helmut Bernhardt 17 .-.30 . . . V e r e in s ve r w al tu n g von Paul Kröher

31.-.36.. .Adapterboard für DH 6 4 1 8 0 von Helmut Bernhard

* = Artikel stammt von T R S - 8 0 User Club München

R i c h t i g s t e l lu n g: 256K-Banker

Daß man be im Eintippen gelegentlich mal die SHIFT-Taste nicht erwischt, ist durchaus nichts besonderes; daß man beim Korrekturlesen aber nicht merkt, daß da anstelle der beabsichtigten Gänsefüßchen eine '2' steht ist schon ein mitte lprächtiges Verbrechen. Und genau das muß ich hier beichten.

In meiner Einbauanleitung für den 256K-Banker ist mir solches in der Tabelle zur Verdrahtung zwischen Banker und CPU-Board passiert. Beim GENIE I und -11 liegt IORQ* natürlich nicht an Pin9 von IC2 sondern an Pin9 von IC16, für das dann auch die Bezeichnung 74LS367 zutrifft.

Erstaunlich, daß noch niemand protestiert hat, weil seine Aufrüstung auf 256K nicht funktioniert. Wahrscheinlich habt ihr alle diesen Fehler entdeckt und selbständig beim Einbau korrigiert. Nur schade, daß mich niemand darauf hingewiesen hat.

Helmut Bernhardt

I • ‘ ä i s- k I I -k jj*- O |= i ö IP“"

K

■£=*. r~

pi -f"

&

I“"« w e c j <ün»

O — 2 S» ~y O EE m d e* n 1 / 2 *7 ” -7 O 7

P A U L K R Ö H E R , K A R P F E N W E G 6 , E -2 9 7 0 E M D E N 1

G e n i e / T R S Ö O U s e r C l u b B r e m e r h a v e n c / o R a l f F o l k e r t s

N u t z h o r n e r S t r . 9 2875 Bookholzberg

m ( 0 4 9 2 1 ) 8 6 2 3 0 7 M o - F r . 1 0 . 0 0 - 1 5 . 0 0 h B a n k y e r b i n d u n g j_

P o s t s c h e c k a m t H a n n o v e r 2 8 5 9 4 5 - 3 0 0

B L Z : 2 5 0 1 0 0 3 0

I h r S c h r a i b * n i I h r Z t l c h a m l i c l n B c h r a i b « n i M a i n Z a i c h a n i D « t u « i

Kr. 11.02.1987

L i e b e C l u b k a m e r a d e n ,

i n d i e s e m H e f t f i n d e t I h r w i e d e r e i n B A S I C - P r o g r a m m l i s t i n g v o n m i r . D i e s e s i s t sehr- u m f a n g r e i c h s o d a ß i c h w o h l d a v o n a u s g e h e n m u ß d a s I h r e s n i c h t a b t i p p t . D a s i s t a u c h n i c h t n ö t i g . S o b a l d u n s e r e P r o g r a m m b i b i i o t h e k s t e h t u n d d i e V e r f a h r e n s r e g e l n d u r c h R a l f b e k a n n t g e m a c h t s i n d h a b t I h r a u c h Z u g r i f f a u f d a s P r o g r a m m . W e r n i c h t s o l a n g e w a r t e n w i l l m a g e i n s t w e i l e n a b t i p p e n u n d d a b e i z u m i n d e s t d i e F i n g e r f e r t i g k e i t z u m B e d i e n e n d e r T a s t a t u r v e r v o l l k o m m n e n . D o c h S c h e r z b e i s e i t e , w e r d a s P r o g r a m m w i r k l i c h s c h n e l l s t e n s g e b r a u c h e n m ö c h t e s c h i c k t m i r e i n e D i s k e t t e n e b s t R ü c k p o r t o .

D o c h n u n z u m P r o g r a m m s e l b s t u n d s e i n e E n t s t e h u n g s g e s c h i c h t e :

E s w a r e i n m a l e i n armier K a s s e n w a r t e i n e s S e g e l V e r e i n e s . D e r s c h r i e b s i c h d i e F i n g e r w u n d i n d e r M i t g l i e d e r k a r t e i m i t B e l a s t u n g e n u n d E n t l a s t u n g e n u n d i m V e r e i n s k a s s e n b u c h m i t E i n n a h m e n u n d A u s g a b e n . G a n z z u A n f a n g m u ß t e e r s o g a r b e i d e n M i t g l i e d e r n n o c h b a r k a s s i e r e n . D a n n k a m d e r K a s s i e r e r a u f d i e I d e e d e n M i t g l i e d e r n d a s B a n k e i n z u g s v e r f a h r e n z u e m p f e h l e n . D i e s e w a r e n f r o h n u n n i c h t m e h r m i t s o v i e l K l e i n g e l d z u d e n V e r s a m m l u n g e n k o m m e n z u m ü s s e n u n d u n t e r s c h r i e b e n r e i h e n w e i s e d i e V o l l m a c h t e n z u m A b b u c h e n . N u n h a t t e u n s e r K a s s e n w a r t s i c h s e l b e r h e r e i n g e l e g t ; d e n n

n u n s c h r i e b e r s i c h z u s ä t z l i c h d i e F i n g e r w u n d b e i m E r s t e l l e n d e r E i n z u g s b e l e g e . U n d h ä t t e P a u l K r ö h e r n i c h t e i n P r o g r a m m f ü r d i e s e n K a s s e n w a r t e n t w i c k e l t , s o w ü r d e d e r a r m e K a s s i e r e r b i s a n s e i n L e b e n s e n d e s i c h d i e F i n g e r w u n d s c h r e i b e n .

S o w e i t d i e k l e i n e V o r g e s c h i c h t e , d i e e u c h h o f f e n t l i c h z u m S c h m u n z e l n g e b r a c h t h a t .

N u n z u m e i n e n Ü b e r l e g u n g e n z u m P r o g r a m m :

Die Vereinsverwaltung:

A n f o r d e r u n g e n j 1. M i t g l i e d e r d a t e i

I n h a l t : N a m e , V o r n a m e , S t r a ß e , N r . , P L Z , W o h n o r t , ( g a n z k l a r m u ß s e i n ! )

z u s ä t z l i c h G e b u r t s d a t u m , E i n t r i t t s d a t u m , S t a t u s k e n n z e i c h n u n g , B e i t r a g s g r u p p e s o w i e b e i m S e g e l v e r e i n H i n w e i s e f ü r S o m m e r l a g e r ( S o l a ) u n d W i n t e r l a g e r ( W i l a ) a b e r a u c h d e n A r b e i t s d i e n s t . D a n n n o c h B a n k v e r b i n d u n g u n d H i n w e i s a u f e r t e i l t e E i n z u g s e r m ä c h t i g u n g .

N a c h a l l e n K r i t e r i e n s o l l d i e D a t e i a u c h d u r c h s u c h t w e r d e n k ö n n e n .

0 2 / 8 7 - ^ 7

P«W .I. l-rflhöf » Ü . O l . fl. 5 1

2. M i t g l i e d e r l i s t e n d r u c k e n

V o n d e r k o m p l e t t e n L i s t e b i s z u T e i l l i s t e n -für b e s t i m m t e Z w e c k e z . B . f ü r d i e J u g e n d g r u p p e n u r d i e J u g e n d l i c h e n . F ü r d i e M ä n n e r g r u p p e , jfür d i e F r a u e n g r u p p e e b e n f a l l s . D e s w e i t e r e n a l l e A r b e i t s d i e n s t p f l i c h t i g e n , a l l e S o m m e r l a g e r u n d a l l e W i n t e r l a g e r b e n u t z e r . E i n e G e b u r t s t a g s - u n d J u b i l ä u m s l i s t e d a r f d a n n n a t ü r l i c h a u c h n i c h t f e h l e n .

3. Statistik

F ü r d e n J a h r e s b e r i c h t s o l l t e m a n s c h o n ' mit. a u f g e s c h l ü s s e l t e n M i t g l i e d e r z a h l e n a u f w a r t e n k ö n n e n .

I m P r o g r a m m l i s t i n g i s t n o c h n i c h t v e r w i r k l i c h t d i e Z ä h l u n g d e r a u s g e s c h i e d e n e n M i t g l i e d e r , d a i c h m i r z . Z t . n o c h n i c h t d a r ü b e r i m k l a r e n b i n w i e i c h e s r e a l i s i e r e , b e i m A u s d r u c k e n e r s c h e i n t z w a r A u s t r i t t e d o c h mit. d e m W e r t N u l l d a d i e V a r i a b l e

DUMMY

n o c h n i c h t s e n t h ä l t . D a e i n a u s g e t r e t e n e s M i t g l i e d j a e v e n t u e l l n o c h Z a h l u n g s v e r p f l i c h t u n g e n a n d e n V e r e i n h a t , k a n n m a n n i c h t e i n f a c h s e i n e D a t e n l ö s c h e n . A m b e s t e n e r s c h e i n t m i r n o c h d a s v e r ä n d e r n d e s B e i t r a g s s t a t u s , d a m i t a u c h b e i d e r a u t o m a t i s c h e n B e i t r a g s b e l a s t u n g k e i n w e i t e r e r B e i t r a g b e l a s t e t w i r d . D a r ü b e r m u ß i c h m i r a b e r n o c h d e n K o p f z e r b r e c h e n o d e r I h r E u c h !

4. M i t g l i e d e r f i n a n z k o n t o

H i e r s o l l t e s i c h d e r k o n k r e t e V e r l a u f v o n F o r d e r u n g e n u n d Z a h l u n g e n w i e d e r f i n d e n . A m J a h r e s e n d e m u ß d i e s e s f ü r d i e A k t e n a u s g e d r u c k t w e r d e n . O f f e n e P o s t e n m ü s s e n w i e d e r v o r g e t r a g e n w e r d e n .

N a c h E i n g a b e d e s G r u p p e n b e i t r a g e s - h i e r a k t i v , p a s s i v , j u g e n d l i c h u n d F a m i l i e n b e i t r a g - s o l l e n a l l e M i t g l i e d e r e n t s p r e c h e n d b e l a s t e t w e r d e n .

J e d e B e l a s t u n g s o l l e i n e G e g e n b u c h u n g a u f d e m E r t r a g s k o n t o d e s V e r e i n s a u s l ö s e n . E r t r a g s k o n t e n s i n d B e i t r a g , A u f n a h m e , S o l a , W i l a , A r b e i t s d i e n s t , ( w e r n i c h t a r b e i t e t s o l l z u m i n d e s t z a h l e n )

B e i Z a h l u n g e n e r f o l g e n d i e G e g e n b u c h u n g e n b e i B a n k o d e r K a s s e .

G e p l a t z t e B a n k l a s t s c h r i f t e n m ü s s e n n a t ü r l i c h a u c h d a s E r t r a g s k o n t o z . B . B e i t r a g w i e d e r s c h m ä l e r n . W i r d d a n n s p ä t e r d o c h b e z a h l t k a n n m a n d i r e k t z . B . d a s B e i t r a g s k o n t o w i e d e r e r h ö h e n .

5. V e r e i n s t i n a n z k o n t o

N e b e n K o n t e n f ü r K a s s e u n d B a n k s o l l t e n a u c h E i n n a h m e u n d A u s g a b e k o n t e n g e s o n d e r t , g e f ü h r t w e r d e n .

I m P r o g r a m m i s t b i s h e r j e e i n E i n n a h m e u n d e i n A u s g a b e k o n t o e i n g e b a u t . D i e s e s z u e r w e i t e r n d ü r f t e k a u m s c h w e r f a l l e n .

6. J a h r e s a b s c h l u ß d u r c h f ü h r e n

S ä m t l i c h « K o n t e n s o l l e n a u s g e d r u c k t w e r d e n , d a m i t m a n e s f ü r d i e K a s s e n p r ü t u n g s c h w a r z a u f w e i ß h a t u n d a u c h d e r A b l a g e z u f ü h r e n k a n n .

K o n t e n r e i n i g e n f ü r d a s n e u e G e s c h ä f t s j a h r u n d n o c h o f f e n e F o r d e r u n g e n a n M i t g l i e d e r v a r b u c h e n .

7. M a h n l i s t e

J e d e r z e i t s o l l t e m a n s i c h ü b e r d e n a k t u e l l e n S t a n d d e r F o r d e r u n g e n a n M i t g l i e d e r i n f o r m i e r e n k ö n n e n .

N o c h n i c h t r e a l i s i e r t - m a n g e l s v o r l i e g e n d e r F o r m u l a r e - i s t d a s D r u c k e n d e r E i n z u g s b e l e g e . H i e r m u ß m a n e r s t d u r c h u m f a n g r e i c h e P r o b e d r u c k e d i e r i c h t i g e E i n s t e l l u n g d e s D r u c k e r s f ü r d i e e n t s p r e c h e n d e n S p a l t e n d e s V o r d r u c k e s f i n d e n . D i e s e s k a n n a u c h n u r j e d e r i n d i v i d u e l l a u s p r o b i e r e n , d a d i e B e l e g e s i c h e r nicht, g e n o r m t s i n d . D i e K o n t o b e z e i c h n u n g k a n n m i t d e n i m L i s t i n g g e k e n n z e i c h n e t e n 02/S7-48

R a i_i 1 Kr~ c< h e r -

V 'af i a.S4 cjcd p u tH -’t fcif-dP f., 1 1 • OS2- 19Ö7, S - A (i 5 ) = 0 (1/1 sieht? listing»

V a r i a b l e n u n d d e r e n B e d e u t u n g :

A d ) b i s A (17) B d ) b i s B (17)

Bl

B 2 D D A D A D F D J D M D P D S

DU

H A

I N d ) b i s I N (20)

M R S

51

5 2 S A

Sü T

U X

XI

X 2 b i s X 4 Z

Z A (0) Z A d )

ZE

Z F Z G Z J Z M Z P Z S Z T Z U Z W

ss

E i n - u n d A u s g a b e d e r M i t g l i e d e r d a t e n F e l d b e z e i c h n u n g e n d e r E i n g a b e m a s k e C o p y r i g h t P a u l K r ö h e r

L i n i e ü b e r d e n B i l d s c h i r m

d o m i n a n t e r S t r i n g f ü r S o r t i e r u n g a l s Z a h l e n v a r . B e i t r a g a k t i v

a l s S t r i n g v a r . D a t u m b e i a u t o m . B e l a s t u n g B e i t r a g F a m i l i e

B e i t r a g J u g e n d B e t r a g b e i B u c h u n g B e i t r a g p a s s i v

H i l f s s t r i n g v a r . z u m Z w i s c h e n s p e i c h e r n D U M M Y n o c h n i c h t b e l e g t

H a b e n b e t r a g

I n d e x f ü r d i e 2 0 m ö g l i c h e n B u c h u n g e n p r o M i t g l i e d H i n w e i s a u f n ä c h s t e B u c h u n g i n F i n a n z / M i t

m e h r e r e S t r i n g s

R e s t s t r i n g d e r n i c h t b e n ö t i g t w i r d v o n d e n M i t g l i e d e r d a t e n S u c h b e g r i f f

H i 1 f s s t r i n g v a r H i l f s s t r i n g v a r S a l d o

S o l l b e t r a g P r i n t T A B S t e l l e

U n i v e r s a l s t r i n g m e i s t e n s b e i F r a g e n Z ä h l e r D a t e n s a t z

Z ä h l e r o f t b e i m S u c h b e g r i f f a l l g e m e i n e Z ä h l e r

w o e r f o r d e r l i c h a l s V a r . h i n t e r I N P U T z u m w e i t e r k o m m e n Z ä h l e r a k t i v w e i b l i c h

Z ä h l e r a k t i v m ä n n l i c h

Z ä h l e r E i n t r i t t e l a u f e n d e s Jahr- Z ä h l e r F a m i l i e n b e i t r a g s z a h l e r Z ä h l e r F a m i l i e n m i t g l i e d

Z ä h l e r J u g e n d (0) w e i b l i c h (1) m ä n n l i c h Z ä h l e r m ä n n l i c h

Z ä h l e r p a s s i v (0) w e i b l i c h d ) m ä n n l i c h Z ä h l e r S o m m e r l a g e r -

Z ä h l e r W i n t e r l a g e r Z ä h l e r A r b e i t s d i e n s t Z ä h l e r w e i b l i c h

D i e s e V a r i a b l e n l i s t e s o l l E u c h i n d i e L a g e v e r s e t z e n 1. d e n P r o g r a m m a b l a u f z u v e r s t e h e n

2. d a s P r o g r a m m E u r e n i n d i v i d u e l l e n G e g e b e n h e i t e n a n z u p a s s e n ( n i c h t j e d e r b e t r e u t e i n e n S e g e l v e r e i n !)

D a s P r o g r a m m l i s t i n g i s t w o n o t w e n d i g a u c h n o c h mit. K o m m e n t a r e n v e r s e h e n .

B e n u t z t w i r d d i e b e s o n d e r e D a t e i t e c h n i k d i e D i s k b a s i c z u r V e r f ü g u n g s t e l l t .

A m b e s t e n g e f i e l m i r d a v o n d i e " F F " D a t e i - s i e b e l e g t , a u c h d e n g e r i n g s t e n P l a t z a u t d e r D i s k e t t e . D e r V o r t e i l d i e s e r " F F " D a t e i i s t g e g e n ü b e r e i n e r n o r m a l e n R a n d o m D a t e i d i e I g e l s t a t t d e s m a n c h m a l u m s t ä n d l i c h e n F i e l d i n g u n d L S E T b z w . R S E T u n d d i e Z a h l e n u m w a n d l u n g i n S t r i n g u n d z u r ü c k .

D a i m V e r e i n s v e r w a l t u n g s p r o g r a m m mit. f e s t e n V o r g a b e n z u r S p e i c h e r u n g g e a r b e i t e t w i r d k o n n t e d i e s e T e c h n i k b e n u t z t w e r d e n . Z a h l e n v a r i a b l e f ü r e i n f a c h e G e n a u i g k e i t b e l e g e n 4 B y t e , f ü r d o p p e l t e G e n a u i g k e i t . 8 B y t e . D o p p e l t e G e n a u i g k e i t w u r d e b e i d e n S a l d e n v e r w e n d e t , d a d i e s e t e i l w e i s e a u f a d d i e r t w e r d e n . W e n n d a b e i 9 9 9 9 . 9 9 D M ü b e r s c h r i t t e n w e r d e n v e r s c h w i n d e t d i e P f e n n i g s t e l l e b e i e i n f a c h e r G e n a u i g k e i t .

0 2 / 8 7 - ^

t I K P * (A h i m

P f e n n i g v e r l u s t e d a r f s i c h e i n B u c h h a l t e r b z w . K a s s e n w a r t a b e r n i c h t l e i s t e n ! ! !

Dtfffi fth funkt

i

Bfiel 1 bk BASIC Programm!sryftGi If|f:@r§i§i@httn mag ingßitönaer« di© INSTR

T e c h n i k i n Z e i l e 1 6 4 2 0 i n t e r e s s i e r e n .

A n s t a t t e n d l o s e r Z e i l e n I F V a r i a b l e = d i e s e s u n d j e n e s T H E N G O T O z B , B e i t r a g , B o l a , W i l s , A r b d i n s t , A u f n ä h m e , B a n k , K a s s e

t u t e s a u c h e i n e e i n z i g e k l e i n e Z e i l e . Z w e i B u c h s t a b e n r e i c h t e n h i e r b e i j e w e i l s a u s u m e i n d e u t i g d i e v o r g e n a n n t e n E i n g a b e n z u i d e n t i f i z i e r e n . E i n B u c h s t a b e g i n g n i c h t d a B z w e i m a l v o r k o m m t i n B e i t r a g u n d B a n k .

W e r n o c h n i c h t mi■f d e r D a t e i f o r m " F F " e x p e r i m e n t i e r t h a t w i r d b e g e i s t e r t s e i n , w i e e i n f a c h s i e z u h a n d h a b e n i s t . D e r e i n z i g e N a c h t e i l i s t n u r d a s d i e I g e l b e s t i m m t s e i n m u ß d . h . k e i n e V a r i a b l e n z u r L ä n g e n k e n n u n g v e r w e n d e t w e r d e n d ü r f e n . D a d u r c h f ä l l t d i e s e D a t e i t e c h n i k b e i A n w e n d e r ; __. b e s t i m m t e r D a t e n s a t z l ä n g e w i e z . B . i n U N I D A T v o n P a u l K r ö h e r a u s . I n v i e l e n F ä l l e n k a n n s i e j e d o c h d i e n o r m a l e R a n d o m D a t e i e r s e t z e n u n d b r i n g t d a b e i n o c h d e n V o r t e i l n i c h t s o v i e l D i s k e t t e n p l a t z z u b e l e g e n , d a s i e D a t e n s a t z a n D a t e n s a t z h ä n g t . D a b e i i s t e s e g a l o b e s 2 5 5 B y t e s o d e r w e n i g e r s i n d o d e r a u c h m e h r . E s g i b t k e i n e r l e i v e r s c h e n k t e n D i s k e t t e n p l a t z .

I m D i s k b a s i c H a n d b u c h s t e h t n o c h m e h r ü b e r b e s o n d e r e D a t e i f o r m e n . W e r m a g k a n n d a s e i n g e h e n d s t u d i e r e n u n d

f ü r s ____n ä c h s t e ____ I n f o ___e i n e n _ _ E r f a h r u n g s b e r i c h t __ o d e r _ _ . A n w e n d u n g s b e r i c h t ü b e r d i e v e r s c h i e d e n e n F o r m e n b r i n g e n .

I c h h o f f e d a m i t a u c h d e n b i s h e r i g e n N i c h t s c h r e i b e r n e i n e A n r e g u n g g e g e b e n z u h a b e n .

H o f f e n t l i c h l a n g w e i l i g t . I h r E u c h n i c h t w e g e n m e i n e r B A S I C P r o g r a m m e . S o l a n g e I h r j e d o c h n i c h t m e c k e r t , m u ß R a l f d a v o n a u s g e h e n d a s d e r a r t i g e A b h a n d l u n g e n , L i s t i n g s e t c . n i c h t u n i n t e r e s s a n t s i n d . R a l f w i r d s i c h d a n n w e i t e r h i n b e m ü h e n d e n e i n o d e r a n d e r e n z u m A b d r u c k e n e i n e s s e l b s t g e s c h r i e b e n e n B A S I C P r o g r a m m s a u f z u r u f e n .

A u f d e n n ä c h s t e n S e i t e n f i n d e t I h r d a s L i s t i n g .

T s c h ü s b i s m i r w i e d e r w a s e i n f ä l l t

O U 8 T - Z 0

5 PRINT'Prograi« läuft nur unter input Klaiieraffe von Paul Kröher’sSTOP 10 ’Vereinsverxaltung VEfi£IN/BflS

20 ’

30 CLEfiRl 0000 31 0NERR0R60TQ32: BOT040 32 RESUNE33

33 CLE:PR3RT:PRINT:CfIC'E":RRINTiRFINT’Bitte (NEU LINE) zur PrograBsfcrtsetzung*:INPUT:RUN 40 OEFINTI:DEFSTRA,B, S.U:DI HA(17>,6(171,SI17),IN(20)

50 ’

IOC ’Felderbezeichnung

110 ’

111 Bl**Vereiosver»altung <C> 1987 Paul Kreher Karpfen»eg 6, 2970 Eiden, Telefon 1049211 27707 112 B2*STRI«46*(64,I31)

120 Bl!)**haie i 130 B(2l*'Vgrna«e : 140 B(3)*”Str.a Nr.:

150 B(4I=*PLZ Ort : 160 B(5)=*TelefDn : 170 B(6)=*Eeb,Dat. NNTTJJ : 180 B(7l=*Eintntt JJNNTT : 190 B(8)=*(■)ännlich (»leiblich : 200 B(9)=*(A)ktiv (P)essiv (J)ugend :

210 B ! 10)="B e i t r e g s g r u p p elAlktiv (Plassiv (J)ugend (F)aiilie (N)itglied der Faeilie i 220 B(ll)=*So.La. (J/Nl:

230 Bll2>**«i.La. IJ/NI:

240 B(13)=*Ardeitsdienst (J/Nl i 250 B(14)«*Einrunsverfähren U/h) i 260 8(15l**Konto-Nr.:

270 B(16l*’Eark ! 2B0 B(17)**8LZ i 290 ’

500 60TD1000 ’Prograubeginn

SIO ’

600 ’Igel 610 ’

620 ’EingaSefeldir (11 bis (17) 630 ’

640 (lB)A(ll,(121(1(2),(20)6(3),(20)A(4)f(]1>A(S),(i>A (61,(6)A(7),111(118),(1)6(91,(116(10),11)0111),(1)A(12),(1)A (13),(1)A (14}

,(I0)A(15),(3)6(16l,(8)fl(17)j 650 ’

660 670 680 681 682 683 66* 635

6E6

68’

666

669 91,1 690 9’1 692 6=7 6C<

6=9

’ koipletter Inhalt zui sortieren (127)5(1!(

(91)S(I).(46lRj (81)80).(6)8(1),I40IP1 (81)5(1), (6IP.(6)8(1),(34IRj (81)8.(12)6,11)5,(33IPi (81)8,11316,IIIS,I32IR(

(B118,!17)6,(l)S,(28)6i (8118,(1516,(1)5,(30)Ri 181)8,116!=,(1)5,(29)F;

«annlich »eiblich Jugend Arbeitsdienst SoLa ki La

IN(l).IN!;),INI3>1IN!4),IN(5),IN(6),IN(7),IN(B),IN(9),IN(10),IN(ll),IN(12),IN(13),IN(I4),IN(lS),IN(lt),IN(17),IN(lB),IN(l N420); ’ Index

Finanz/Nit

’Einzelkonten

’Forderungssaida (8)8,(10)5, SS’.HA),S6»i

(B)S,(1S!-«,S0'.HA!,5A*;

(8UI,(1BIA(1),SAI|

SD«; (B)

ü

,(

ie

:

f

':

i

,

ha

«

i

'Forderungssaldo 700 'diverse Pcutinen

701 ’

710 P6TNTSS32,STRINGS(62,32):RETURN ’ Zeile 832 löschen

711 ’ 02/fr- 2/1

751) tU|If!!(rl?|lh',tT6Np6t/' " 4 3 IS)<5tSTMINPRlNT)PRINT*BfUEklf i U f t k U f »« MA *l WlN ll fM «*i ih A| [)fv=*ff lit Jlstl Rn utine sinnlos’iPRINT’Nenn l g <NEN LINE) drücken•:INPUT

721 ’

722 ’ 1NP12S3) x Oruckerabfrage Genie 723 ’PEEK(14312) = Bruckerabirage TRS80 724 ’

730 IFINP(253)*63DRPEEK(14312)=63THENLPRINTCHRSI15)1RETURNELSERUN 731 ’

732 ’LPPINTCHRSI15) * 6e«ini 10* in 136 Zeichen/Zeile Modus 733 ’

740 CLS:PRINT:PRINT:PRINT* Noient ... ich sortiere gerade”:RETURN 741 ’

750 CLSiPRINTiPRINT:PRINT” Jetzt drucke ich'iRETURN 751 ’

760 m*XI*liIFXl«EOTHENCLE

i

PRINTiPRINTiPRINT"Bltti neues Blatt Papier elnipennen’ iPRINTiPRINT’Bltte (NEU LINE) nenn fertig

*fINPUT!11*01605UB750!RETURNELSERETURN 761 ’

770 CLS:PRINT:PRINT:PRINT* Ich lese die Daten ein*:RETURN

7B0 LPRINT5TRINGS(T-PEEK(16539),321 j :RETURN . • ( * '1 'T r - A V ‘ * ^ r ^

781 ’ iwcc 6 . i . U r

^'

782 ’ Brucken auf TAB Positionen >63 i<"

’* ' * ’)*■

* ’ * * ^

790 SAt=INT(SAetlE2*.5)/lE2:RETURN 791 ’

792 ’ kfa. auf 2 Nachkouastellen begrenzen

793 ’ I Variable speichert intern unkontrolliert ab 3. Stelle 794 ’ und bei diversen Rechenoperationen koennen Pfennige 795 ’ verloren gehen

999 ’

1000 ’Ausxahlienü

1010

^’

1020 U=**:CLS:PR1NTS0,B1:PRINTB2: ’Kopf 1030 PRINT'l * Mitglieder eingeben

1040 PRINT*2 * Nitglieder suchen nebst Zugriff auf Finanzkonto 1041 PRINT‘3 * Nitgliederlisten drucken

1042 PRINT"4 = Nitgliederstatistik drucken 1043 PRINT'S * autoiatische Seitragsbelastung 1044 PRINT'S * Vereinsfinanzkonten

1045 PRINT"7 * JahresabschluB (Bruck aller Konten) 1046 PRINT'8 * Nahnliste drucken

1047 PRINT*9 * Progran beenden 1050 PRINT:PRINT'Bitte Höhlen 1055 U=INKEYS

1060 U'INKEYS: 1FU*"'THEN1060ELSEIFV6L(U)>9THEN1060

1070 ONVALIUIGOTOUOO, 11000,13000,15100,17000,18000,19000,1090,21010 1080 60T01000

1090 60SUB19400:RUN

1100 G05UB2000:GOSUB3000:60SUS7000:SOT01000

1101

^’

2000 'Bildschireiaske 2010 '

2030 CLSlPRlNTiO,B(l)|lPRINTI32,S(2l|lPRINTi64,ei3)|lPRINTI96,B(4liiPRINT!128,8(5)1 :PRINTS160,8(6):PR1NTB2i

2040 PRINTS256,B<7l:iPRINTi2821B(8l|!PRINTf320,B(9l!iPRINTi3B4I6(!OI|!PRiNTI3l2l8ill)|iPRlNTI330,Bll2l|iPRINtl!48,8(i3)|!PRIN TS576,B(14);:PRINTS640,B(15);:PRINTB664,B(16);:PRINTS4B3,B(17):PRINTB2J

2050 RETURN 2060 ’

3000 'Eingaben 3010 ’

3011 p61Nlt704,B2:PRINl!768,"Bisheriger untenstehender Inhalt «ird bei <N£N LINE) beibehalten”;B0SUB7IO 3020 PRINTS832,AI1):INPUT411,18,A(1):60SUB710 'Naie

3021 PPlNT!S32,A(2l!lNPUTS43,12,AI2):60SUB710 ’ Vnrnaie 3022 PPINTSB32,A(3»:INPUTS7S,20,Ä(3):60SUB710 ’ Str. Nr.

3023 PP,'NTS832,A(4):1NPUH107,20,A(4):GOSUB710 ’ PLZ Ort 3024 PPINTs332,fl(5):INPUTfl39,ll,A(5):60SUB710 ’ Telefon

3025 PRlNTi832,A(6l;INPUT1178,6,AI6):GDSUB710 'Geb.Dat. Ol!fr -zz