XE-Handbuch

Seite 50

Beispiel 7

10 REM * * * ADRESSEN-MASKE * * *

Fuer den Aufbau einer Adressenliste ist dieses Programm nicht vorge- sehen. Dazu waeren umfangreiche Veraenderungen und Programmiererfahrung er- forderlich.

20 OPEN #1, 4, 0, "K : " : OPEN #2, 12, 0, " S : "
30 DIM A$ ( 24 )
40 GRAPHICS 0 : POKE 710, 0
50 POSITlON 2, 2 : ? "NAME : "
60 POSITlON 2, 6 : ? " STRASSE : "
70 POSITlON 2, 10 : ? "WOHNORT : "
80 POSITlON 2, 14 : ? "ALTER : "
90 POSITlON 15, 14 : ? " BERUF : "
100 POSITlON 10, 2 : ? " : " ;
110 A$ ( 1 ) =" " : A$ ( 24 ) =" " : A$ ( 2 ) =A$
120 B=2
130 FOR I=1 TO 3
140 FOR K=1 TO 24
150 GET #l, A : ? #2 ; CHR$ ( A ) ;
160 IF A=l55 THEN POSITlON 11, B : ?A$ ; : POP : GOTO 190
170 A$ ( K, K ) =CHR$ ( A )
180 NEXT K
190 A$ ( 1 ) =" " : A$ ( 24 ) =" " : A$ ( 2 ) =A$< 200 IF I=1 THEN B=6 : POSITlON 10, B : ? " : " ;
210 IF I=2 THEN B=10 : POSITlON 10, B : ? " : " ;
220 NEXT I
230 POSITlON 10, 14 : ? " : " ;
240 A$=" " : A$=" "
250 FOR K=1 TO 2
260 GET #1, A : ? #2 ; CHR$ ( A ) ;
270 IF A=l55 THEN POSITlON 11, 14 : ? A$ ; : POP : GOTO 300
280 A$ ( K, K ) =CHR$ ( A )
290 NEXT K
300 POSITlON 21, 14 : ? " : " ;
310 A$=" " : A$ ( 1 ) =" " : A$ ( 13 ) =" " : A$ ( 2 ) =A$
320 FOR K=1 TO 13
330 GET #1, A : ? #2 ; CHR$ ( A ) ;
340 IF A=155 THEN POSITlON 22, 14 : ? A$ ; : POP : GOTO 370
350 A$ ( K, K ) =CHR$ ( A )
360 NEXT K

Falls kein Drucker vor handen ist, kann das Programm bereits in Zeile 360 beendet werden. Dann ist einzugeben:

360 NEXT K:End
370 POKE 752, 1
380 ? : ? : ? : ?
400 OPEN #3, 8, 0, "P : " : GOTO 420
410 FOR I=1 TO 40 : GET #2, A : ? # 3 ; CHR$ ( A ) ; : NEXT I : ? #3, " " : RETURN
420 POSITlON 0, 2 : GOSUB 410
430 POSITlON 0, 6 : GOSUB 410

Die Befehle OPEN in Zeile 20 und 400 sowie in Zeile 600 werden zum Datenaustausch mit einem Peripheriegeraet genutzt. Ihre ausfuehrliche Besprechung wuerden den Rahmen dieses BASIC Kurses ueberschreiten. Wir verweisen deshalb auf die Literaturempfehlungen.

440 POSITlON 0, 10 : GOSUB 410
450 POSITION 0, 14 : GOSUB 410
600 CLOSE #l : CLOSE #2 : CLOSE #3
610 POKE 752, 0

Erstellt am 1.Juli 1998 um 19:10