home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9110b.d64 / tagesberechnung (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  938b  |  20 lines
  1. 1 PRINT"[147][155]"SPC(10)"[196]IE  [212]AGESBERECHNUNG":PRINTSPC(12)"[152]VON [193]LBERT [213]LMER[155]"CHR$(14)
  2. 2 POKE53280,0:POKE53281,0:PRINTSPC(10)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT
  3. 3 DIMB$(12):FORI=0TO6:READA$(I):NEXTI:FORI=1TO12:READB$(I):NEXTI
  4. 4 INPUT"WELCHES [196]ATUM: [212][212].[205][205].19[202][202][157][157][157][157][157][157][157][157][157][157][157][157]";DA$:IFLEN(DA$)<>10THENPRINT"[145][145]":GOTO4
  5. 5 T=VAL(LEFT$(DA$,2)):M=VAL(MID$(DA$,4,2)):J=VAL(RIGHT$(DA$,4)):A=T:B=M:C=J
  6. 6 IFT>((M-7*INT((M-1)/7))AND1)+30+(M=2)*(2+(J/4=INT(J/4)))ORT<1THENPRINT"[145][145]":GOTO4
  7. 7 IFM<1ORM>12ORJ<1582ORJ>9999THENPRINT"[145][145]":GOTO4
  8. 8 IFM>2THENM=M-2:GOTO10
  9. 9 M=M+10:J=J-1
  10. 10 H=INT(J/100):J=J-100*H:W=INT(J/4)+INT(H/4)+INT((13*M-1)/5)+T+J-2*H
  11. 11 IFW>0THENW=W-INT(W/7)*7:GOTO13
  12. 12 IFW<0THENW=W+7:GOTO12
  13. 13 PRINT:PRINT:PRINT"[196]ER"A"[157]. "B$(B)"DES [202]AHRES"C:PRINT"IST EIN "A$(W)"[146]!"
  14. 14 PRINT:PRINT"[206]OCH MAL ?[146]":GETK$:IFK$<>"J"ANDK$<>"N"THENPRINT"[145][145][145]":GOTO14
  15. 15 IFK$="N"THENPRINT"[147][195]IAO.":END
  16. 16 FORI=5TO11:POKE781,I:SYS59903:NEXTI:POKE214,4:POKE211,0:SYS58640:GOTO4
  17. 17 DATA"[211]ONNTAG","[205]ONTAG","[196]IENSTAG","[205]ITTWOCH","[196]ONNERSTAG","[198]REITAG","[211]AMSTAG"
  18. 18 DATA"[202]ANUAR","[198]EBRUAR","[205]AERZ","[193]PRIL","[205]AI","[202]UNI","[202]ULI","[193]UGUST"
  19. 19 DATA"[211]EPTEMBER","[207]KTOBER","[206]OVEMBER","[196]EZEMBER"
  20.