100 REM ------------------------------
110 REM --                          --
120 REM --  EIN EINFACHES PROGRAMM  --
130 REM --   ZUR ADRESSVERWALTUNG   --
140 REM --                          --
150 REM ------------------------------
160 :
170 (null) .AD = NM$,ST$,WO$,TL$
180 :
190 REM ***** HAUPTPROGRAMM *****
200 :
210 (null) HSCHLEIFE
220 : (null) MENUE
230 : (null) (W$)
240 (null) HSCHLEIFE
250 :
260 REM ***** MENUEAUSGABE *****
270 :
280 (null) MENUE
290 : (null) CLRSCR
300 : PRINT""
310 : C$=" [203][213][206][196][197][206][203][193][210][212][197][201] [146]":(null) CENTRE
320 : PRINT:PRINT
330 : C$="[196]ATEI ANLEGEN.........(1)"
340 :   (null) CENTRE
350 :   PRINT
360 : C$="[196]ATEI OEFFNEN.........(2)"
370 :   (null) CENTRE
380 :   PRINT
390 : C$="[196]ATENSATZ LESEN.......(3)"
400 :   (null) CENTRE
410 :   PRINT
420 : C$="[196]ATENSATZ SCHREIBEN...(4)"
430 :   (null) CENTRE
440 :   PRINT
450 : C$="[197][206][196][197]..................(5)"
460 :   (null) CENTRE
470 :   PRINT ""
480 :   PRINT
490 : C$="[201]HRE [215]AHL ? (1-5)"
500 :   (null) CENTRE
510 (null) TASTE
520 : GET W$
530 : IF W$<"1" OR W$>"5" (null) TASTE
540 RETURN
550 :
560 REM ***** MENUEPUNKTE *****
570 :
580 (null) 1
590 : (null) CLRSCR
600 : C$=" [196][193][212][197][201][160][193][206][204][197][199][197][206][160][146]"
610 :   (null) CENTRE
620 : (null) INAME
630 (null) GANZAHL
640 : (null) IANZAHL
650 : (null) TESTFLOPPY
660 : FB=(null)*254
670 : IF AZ>FB/250 THEN PRINT" [218][213][214][201][197][204][197] [196][193][212][197][206][211][193][197][212][218][197][160]!!! [146]":(null) GANZAHL
680 : (null) N$,AZ,250
690 RETURN
700 :
710 (null) 2
720 : (null)
730 : (null) CLRSCR
740 : C$=" [196][193][212][197][201][160][207][197][198][198][206][197][206][160][146]"
750 :   (null) CENTRE
760 : (null) INAME
770 : (null) N$
780 RETURN
790 :
800 (null) 3
810 : (null) CLRSCR
820 : C$=" [196][193][212][197][206][211][193][212][218][160][204][197][211][197][206][160][146]"
830 :   (null) CENTRE
840 :   PRINT:PRINT
850 : F=(null)
860 : IF F=0 THEN PRINT" [196][193][212][197][201][160][206][201][195][200][212] [199][197][207][198][198][206][197][212] !!! [146]":(null) (null)
870 (null) IKUNDE
880 : INPUT"[203]UNDENNUMMER : ";KN$
890 : KN=VAL(KN$)
900 : IF KN<1 OR KN>(null) THEN PRINT" [213][206][199][213][197][204][212][201][199][197] [203][213][206][196][197][206][206][213][205][205][197][210] ":(null) IKUNDE
910 : (null) KN
920 : (null) .AD
930 : PRINT"[203]UNDENNUMMER:";KN$
940 : PRINT"[206]AME        :";NM$
950 : PRINT"[211]TRASSE     :";ST$
960 : PRINT"[215]OHNORT     :";WO$
970 : PRINT"[212]EL.        :";TL$
980 (null) (null)
990 :
1000 (null) 4
1010 : (null) CLRSCR
1020 : C$=" [196][193][212][197][206][211][193][212][218][160][211][195][200][210][197][201][194][197][206][160][146]"
1030 :   (null) CENTRE
1040 :   PRINT:PRINT
1050 : F=(null)
1060 : IF F=0 THEN PRINT" [196][193][212][197][201][160][206][201][195][200][212] [199][197][207][198][198][206][197][212] !!! [146]":(null) (null)
1070 (null) JKUNDE
1080 : INPUT"[203]UNDENNUMMER:";KN$
1090 : KN=VAL(KN$)
1100 : IF KN<1ORKN>(null) THEN PRINT" [213][206][199][213][197][204][212][201][199][197] [203][213][206][196][197][206][206][213][205][205][197][210] ":(null) JKUNDE
1110 : INPUT"[206]AME        :";NM$
1120 : INPUT"[211]TRASSE     :";ST$
1130 : INPUT"[215]OHNORT     :";WO$
1140 : INPUT"[212]EL.        :";TL$
1150 : LN=LEN(NM$)+1+LEN(ST$)+1+LEN(WO$)+1+LEN(TL$)+1
1160 : IF LN>(null) THEN PRINT" [196][193][212][197][206][211][193][212][218][160][218][213][160][204][193][206][199] !!! [146]":(null) (null):(null) 4
1170 : (null) KN
1180 : (null) .AD
1190 RETURN
1200 :
1210 (null) 5
1220 : (null)
1230 : (null) CLRSCR
1240 END
1250 :
1260 REM ***** UNTERPROGRAMME *****
1270 :
1280 (null) CENTRE
1290 : PRINTTAB((40-LEN(C$))/2)C$
1300 RETURN
1310 :
1320 (null) CLRSCR
1330 : PRINTCHR$(147)CHR$(14)CHR$(8)
1340 RETURN
1350 :
1360 (null) TESTFLOPPY
1370 (null) TEST
1380 : IF (null)(8)=1 THEN RETURN
1390 : PRINT:PRINT" [204][193][213][198][215][197][210][203] [197][201][206][211][195][200][193][204][212][197][206] !!! [146]"
1400 : POKE 198,0:WAIT 198,255
1410 (null) TEST
1420 :
1430 (null) INAME
1440 : INPUT "[196]ATEINAME              :";N$
1450 : IF LEN(N$)=0 THEN PRINT"[145][145][145][145][145]":(null) INAME
1460 RETURN
1470 :
1480 (null) IANZAHL
1490 : INPUT "[193]NZAHL DER [196]ATENSAETZE :";AZ$
1500 : AZ=VAL(AZ$)
1510 : IF AZ<1 THEN PRINT"[145][145][145]":(null) IANZAHL
1520 RETURN
1530 :
1540 (null) (null)
1550 : POKE 198,0:WAIT 198,255
1560 RETURN