64'er 1992 April/64er_Magazin_92-04_1992_Markt__Technik_de_Side_A.d64/kalender

Commodore BASIC | 2022-10-26 | 1KB | 21 lines

1 dimm$(23),a(11),b(11):fora=0to11:readm$(a),m$(a+12),a(a),b(a),b$(a+(a>9)):next
2 poke53281,12:poke53280,12:h$="":fora=0to36:h$=h$+"[192]":next:u=214:gosub13
3 b=5:gosub11:print,"[153]f1..kalender"spc(68)"f3..wochentag"spc(67)"f5..ende":z=6
4 geta$:on-(a$<"[133]"ora$>"[135]")goto4:onasc(a$)-133goto9,20:datajanuar,1,31,-1,montag
5 gosub14:b=15:gosub11:print""r;m$(m):print,"[159]mon die mit don fre sam son";
6 fora=1tox+a(m)-y*(m=1):z=z+1:ifz=7thenz=0:print:print,"";:datafebruar,2,28,-5
7 ifa<=xthenprintspc(4);:next:datadienstag,maerz,3,31,-5,mittwoch,april,4,30,-2
8 print"[153]"chr$(-32*(a-x<10));chr$(-28*(z=6));chr$(-5*(a-x=n));a-x;:next:goto10
9 gosub14:print"[153]der"n"[157]. "m$(m)r"ist ein "b$(x+n-1-int((x+n-1)/7)*7)".
10 [151]214,22:[153]:[153]" druecken sie eine taste!":[151]198,0:[146]198,1:[137]2
11 [153]"stopor"h$"^":[129]a[178]1[164]b:[153]"(NULL)"[166]37)"peek":[130]:[153]"/"h$"exp":[151]u,4:[142]
12 [131]donnerstag,mai,5
13 [158]58692:b[178]1:[141]11:[153]"  kalender 1992  sysby rasto levrinc":[142]
14 [141]13:[153]"printgeben sie das datum an":[131]31,,freitag,juni,6,30,-4,samstag
15 y[178]1:[151]214,7:[133]"jahr";r:[139]r[179]1752[137]15:[131]juli,7,31,-2,sonntag,august
16 i[178]r[173]4:[151]214,9:[133]"monat";f$:[129]m[178]0[164]23:[145][171](f$[178]m$(m))[137]17:[130]:[137]16
17 m[178]m[170](m[177]11)[172]12:g[178]r[173]400:h[178]r[173]100:[145][171](g[178][181](g))[137]18:y[178]1[170](h[178][181](h)[176][171](i[171][181](i)))
18 p[178][181](i)[170][181](g)[171][181](h)[170]r:x[178]p[171][181](p[173]7)[172]7[170]b(m)[170]y[172](m[179]2):x[178]x[171](x[179]0)[172]7:[131]8,31,-6,
19 [151]214,11:[133]"tag";n:[145]1[171](n[179]1[176]n[177]a(m)[171]y[172](m[178]1))[137]13,19:[131]september
20 [158]64738:[131]9,30,-3,,oktober,10,31,-1,,november,11,30,-5,,dezember,12,31,-3,