64er Magazin 84_4

VC 20 + 16 KByte
Superkalender
10 REM PROGRAMMVORBEREITUNGEN
200IMM$(13l,M(12),H(13,7),S(415),N$(415)
30 GOSUBI5B0
40 PRINT"~ K ALE N D E R":PRINT"~
50 INPUT"JAHR";JA
60 INPUT"~I'FANGSMONAT";AM
70 PRINT"IEAHL DER AUSZUDRUCKEN-DEN MONATE·
80 INPUTW
90 W=W-I
100 IFW+AM>12THENPRINT·~ALENDERAUSDRUCKGEHT NUR BIS DEZEMBER"JA:GOT060
110 GOSUBI690:GOSUB2230
120 REM DATENEINGABE
130 PR I NT".:Ja)ATENE I NGABE."
140 PRINT·"
150 PRINT".I - DATENEINGABE"
160 PRINT".e - ZUSAETZLICH SPEI­
170 PRINT"~ - EINLESEN VON DATEN
180 PRINT·~ - ENDE DER EINGABE·
190 PRINT"~ITTE WAEHLEN"
200 GETXS: IFX$=" "THEN200
210 IFVAL(X$l(IORVAL(X$»5THEN200
220 ONVAL(XSlGOT0230,280,420,840
~"
ENDE->e,e"
~"
KOMMA
CHERUNG AUF BAND"
AUF BAND"
230 REM DATENEINGA8E NUR IN ARBEITSSPEICHER
240 GOSUB720
250 IFFD=ITHENI20
260 GOSUB530
270 GOT0230
280 REM DATENEINGABE + ABSPEICHERUNG
290 PR I NT" ~ I LENAI"E "
300 INPUT I'F$
310 OPEN2, 1 , I
320 PRINTtl2,1'F$
330 GOSUB720
340 PRINTtl2,TM
350 IFFD=ITHENCLOSE2:GOTOI20
360 PRINTtl2,X$+ES
370 GOSUB530
380 IFDE=0THEN410
390 PRINT"NEUE EINGABE WIRD DENNOCH ABGESPEICHERT'"
400 FORI=IT03000:NEXT
410 GOT0330
420 REM DATEN VOM BAND EINLESEN
430 PRINT"~ILENAI"E"
440 INPUTNF$
450 OPEN2,1 ,0
460 INPUTtl2,X$
470 IFI'FS(>XSTHEN450
480 INPUTtl2,TM
490 IFTM=0THENCLOSE2:GOTOI20
500 INPUTtl2,E$
510 GOSUB530
520 GOT0480
530 REM DOPPELEINTRAG-PRUEFUNG UP 7
540 DE=0
550 IFN$(TMl=""THENN$(TMl=E$:RETURN
560 M=INT(TMV32l:T=TM-32.M
570 PRINT"~OPPELEINTRAGFEST­ GESTELLT AM"
580 PRINTT"."M"."JA
590 PRINT""
~"
600 PRINT"~LTE EINGABE (Il:."
610 PRINTN$(TMl
620 PRINT".-NEUE EINGABE (2):."
630 PRINTE$
640 PRINT"~LCHE EINGABE SOLL UEBERNOMMEN WERDEN 1/2"
650 GETX$: IFX$=" "THEN650
660 IFXS="I"THENDE=I:RETURN
670 IFX$=·2·THENN$(TMl=E$:RETURN
880 GüT0650
690 REM FEHLERI"ELDUNG
100 PRINT·...-EINGABE- FEH L E R·
710 FORI=IT03000:NEXT
720 REM DATENEINGABE UP 6
730 FO=0:X$="·
740 PRINT"~ATENEINGABE
750 PRINT""
760 PRINT"TAG UND MONAT DURCH
770 INPUTT,M:TM=M.32+T
GETRENNT EIN-
780 IFT=0ANOM=0THEI'FD=I:E$="":RETURN
790 IFM(IORM>120RT(IORT>M(MlTHEN690
800 PRINT"-":INZUTRAGENOE NOTIZ BIS se ZEICHEN"
810 INPUTES
820 IFLEFTS(ES,ll="."THENE$=RIGHTS(E$,LEN(ESl-Il:S(TM)=1
830 RETURN
840 REM KALENDERAUSDRUCK
GEBEN. "
~·:PRINT:PRINT:PRINT
Listing des Programms "Kalendert!
Ausgabe 4/Apnl 1984
j.:Y.:it53