Tî I#1:‰ 2=Ž DRUCK IN 600/900 Ž E=ZEILENBEGRENZUG BEIM AUSDRUCK: Z=ANZAHL DER LEHRZEILEN ±Ž A$(1)=NAMEN : C$=ABFRGE-$(KEINE SPEICHERUNGëŽ TA=ANFANGSTAG:TE=ENDTAG:MA=ANFANGSMONAT:ME=ENDMONAT2Ž JA=ANGFANGSJAHR :JE=ENDJAHRDA=SCHALTJAHR(ANFANGSJAHR)(J/N)-(1,0)xŽ S=STRASSE:K=KELLER:B=BODEN:DE=SCHALTJAHRABFRAGE-ENDJAHR(1/0)  Ý0,31,0,39:â7,0:™:Ý3,28,3,37:â6,4:™¶A$(1)´"MIETER 1 "ÌA$(2)´"MIETER 2 "â(A$(3)´"MIETER 3 "ø2A$(4)´"MIETER 4 "<A$(5)´"MIETER 5 "$FA$(6)´"MIETER 6 ":PA$(7)´"MIETER 7 "PZA$(8)´"MIETER 8 "‚džá(4,3);"Strassen-, Keller- und Bodenordnung"Ânžá(5,3);"-----------------------------------":Ý9,28,4,36:ß7êxžá(7,3);"Anfangsdatum (Sonntag):":ž‚ž:„" Tag:";TA: Š TAµ³·(TA) ©Œ230:‰)ŒŠ TAµ1²TA³31©Œ230:‰O–ž:„" Monat:";MA:ŠMAµ³·(MA)©Œ230:‰f ŠMAµ1²MA³12©Œ230:‰ªŠ MA´2± TA³29©Œ230:‰·´ŠMA´4±TA´31²MA´6±TA´31²M´9±TA´31²MA´11±TA´31©Œ230:‰Ü¾ž:„" Jahr:";JA:ŠJAµ³·(JA)©Œ230:‰ÈŠ JA¯4´·(JA¯4)© ž:ß6:ž" Schaltjahr":ß7:DA´1:Û4:ÒŠ JA¯4µ³·(JA¯4) ± MA´2 ± TA³28 ©Œ230:‰\ÜŠJA³1994±JAµ2020 ©240:ÔŒ230:‰æâ22,3:žá(27,5);"Eingabefehler !!!":Ü3:Û3 µèâ7,4:žá(27,5);" ":âðâ10,0:žá(7,25);TA;¥04);MA;¥08);JA:â7,4:™ìòˆ 670 úÝ10,28,3,37:â7,4:™:ž"STRASSE"9 ž"-------":ž: I´1¦8:ž I;"= ";A$(I):‚p ž:„" Nr. der ANFANGSFAMILIE:";S:ŠSµ³·(S)©Œ480:ˆ250ˆ Š Sµ1²S³8©Œ480:ˆ250 "žá(10,3);"S T R A S S E :":žá(11,3);"---------------"û ,ß0:žá(12,3);"___________________________________":ß5 6žá(10,26);A$(S):Ý13,28,4,37:ß7:™< @ž:ž"Keller":ž"------":ž[ J I´1¦4:ž I;"= ";A$(I):‚:ž T„"Nr. der ANFANGSFAMILIE:";K:ŠKµ³·(K)©Œ480:ˆ310¦ ^ŠKµ1²K³4©Œ480:ˆ310Ù hžá(12,3);" " ržá(13,3);"K E L L E R :":žá(14,3);"-------------":ß57 |žá(13,26);A$(K):ß7:Ý17,28,4,37:™p †ß0:žá(15,3);"___________________________________":ß7‰ ž"BODEN":ž"-----":ž § šI´5¦8:ž I;"= ";A$(I):‚:žÛ ¤„"Nr. der ANFANGSFAMILIE:";B:ŠBµ³·(B)©Œ480:ˆ380ó ®Š Bµ5²B³8©Œ480:ˆ380& ¸žá(15,3);" "X žá(16,3);"B O D E N :":žá(17,3);"-----------"‘ Ìß0:žá(18,3);"___________________________________":ß5» Öžá(16,26);A$(B):ß7:Ý20,28,3,37:™:ˆ490ï àâ22,3:žá(27,5);"Eingabefehler !!!":Ü4:Û2:â5,4:+ êž" * AUSDRUCK *":ž" -------------":žt ôŽ PRINT" 1 = Endlospapier":PRINT:PRINT" 2 = Ausdruck mit Zeilenb";Œ þŽ PRINT"egrenzung"± Ž C$="":C$=INKEY$:IFC$=""THEN520Ò Ž IF C$="1" THEN CLS:GOTO560ú Ž IF C$="2" THEN CLS:PRINT:ELSE5204&Ž INPUT" Zeilenanzahl:";E:IF E<1THEN CLS:INK7:GOTO490k0Ž PRINT:PRINT: INPUT" Wieviele Freizeilen (?):";Z‘:Ž IFZ<0THENGOSUB480:INK7:GOTO490Ð;Ž CLS:PRINT:PRINT"Bitte nach >ENTER< die Tasten >CLR<" þ<Ž PRINT"und >";CHR$(150);"< druecken!!!",=Ž PRINT: PRINT"Danach weiter mit >CONT<"MDß22:žá(28,28);"> ENTER <":ß7oNC$´"":C$´Õ:ŠC$´Ì(13)©595:Ô590†S’ 0:ïO#1"HAUSPLAN"£XÝ:â7,0:™: ŠZ´0© ˆ620³b I´0¦Z:ž:‚àlž" Strassen-, Keller- und Bodenordnung"vž" -----------------------------------":ž:žQ€ž"Datum Strasse Keller Boden" ‘Šž"________________________________________" œ”ž:ˆ860Òžžá(8,3);"Enddatum (Sonnabend): ":Ý9,28,4,37:™:žø¨„" Tag:";TE:Š TEµ³·(TE)©Œ230:ˆ670²Š TEµ1²TE³31©Œ230:ˆ670<¼ž:„" Monat:";ME:ŠMEµ³·(ME)©Œ230:ˆ670WÆŠ MEµ1²ME³12©Œ230:ˆ670sЊ ME´2± TE³29©Œ230:ˆ670¬ÚŠME´4±TE´31²ME´6±TE´31²ME´9±TE´31²ME´11±TE´31©Œ230 ×ÜŠME´4±TE´31²ME´6±TE´31²ME´9±TE´31©ˆ670 äŠ MA´ME ± TA´TE © JE´JA¬1:ž:ž" Jahr:";JE:ˆ7803îŠ MEµMA © JE´JA¬1:ž:ž" Jahr:";JE:ˆ780eøŠ TA³TE ± MA´ME © JE´JA¬1:ž:ž" Jahr:";JE:ˆ780Žž:„" Jahr:";JE:Š JEµ³·(JE)©Œ230:ˆ670Å Š JE¯4´·(JE¯4)© ž:ß6:ž" Schaltjahr":ß7:DE´1:Û4 óŠ JE¯4µ³·(JE¯4) ± ME´2 ± TE³28 ©Œ230:ˆ670  Š JA¬1µJE ©Œ230:‰$*ŠJEµ1990²J³2049©Œ230:‰84Š JEµJA ©Œ230:‰\>ŠJA´JE ± MA´ME ± JEµJA¬6©Œ230:‰wHŠJA´JE ± MA³ME ©Œ230:‰¢Râ10,0:žá(8,25);TE;¥04);ME;¥08);JE:ˆ250Ï\TB´TA:TE´TF:MB´MA:MF´MA:JB´JA:JF´JE:ˆ950ïfŠ JA¯4´·(JA¯4) © D´1 :Ô D´0pŠE³0© H´H¬1:Š H³E © Œ1490:H´0!zŽ WIDTH 40@„Œ1200:Ž IF TA<9 THEN MF=MBl…ž ¥0);TA;¥3);MB;¥7);TB;¥10);MF;¥13);JA; †ž ¥18);A$(S);¥27);A$(K);¥38);A$(B) ؇ž#1 ¥3);TA;¥5);".";¥7);MB;¥9);".";¥11);"-"; ˆž#1 ¥13);TB;¥15);".";¥17);MF;¥19);"."¥21);JA;3‰ž#1 ¥32);A$(S);¥46);A$(K);¥60);A$(B)KŠž#1 " "sŽTA´TB¬1:MB´MF: S´S¬1:Š S³8 © S´1 ˜Š TA³´ TE ± MF³´ME¬1 ± JA³´JE © ˆ1130ÌšŠ TA³´TE ± ME³´ME ± JA³´JE ±ME´12 © ˆ 1130â¢K´K¬1:Š K´5 © K´1õ¬B´B¬1:ŠB´9©B´5¶Š TA´29 ± D´0 ± MB´2 © TA´1:MB´3AÀŠ TA´30 ± D´1 ± MB´2 © TA´1:MB´3ÊŠ TA´31±MB´4²TA´31±MB´6²TA´31±MB´9²TA´31±MB´11©TA´1:F´1 —ÔŠ F´1 © MB´MB¬1:F´0¹ÞŠ TA´32 ± F´0 © TA´1:MB´MB¬1äèŠ TA³32 © Ü5:â22,3:ž"PROGRAMMFEHLER":€òŠMB´13© MB´1:JA´JA¬1:Š JA¯4´·(JA¯4)© D´1:ÔD´0@üŠMB³12 © Ü5:â22,3:ž"PROGRAMMFEHLER":€LTB´TA¬6~Š TB³28 ± MF´2 ± D´0 © G´TB­28:TB´G:G´0:MF´3°Š TB³29 ± MF´2 ± D´1 © G´TB­29:TB´G:G´0:MF´3ÖŠ TA ´29 ± D´0 ± MB´2 © TA´1:MB´3üŠ TA ´30 ± D´1 ± MB´2 © TA´1:MB´3"Š TB ´29 ± D´0 ± MF´2 © TB´1:MF´3HŠ TB ´30 ± D´1 ± MF´2 © TB´1:MF´3n$Š MF´4 ² MF´6 ² MF´9 ² MF´11 ©F´1­.Š F´1 ± TB³30 ± TBµ37 © G´TB­30:TB´G:G´0:F´0:MF´MF¬1:Ô F´0á8Š TB³31 ± TBµ38 ±F´0 © G´TB­31:TB´G:G´0:MF´MF¬1 BŠ TB³31©Ü5:â22,3:ž"PROGRAMMFEHLER":€<LŠMF´13© MF´1:JA´JA¬1:ŠJA¯4´·(JA¯4)© D´1:Ô D´0dVŠMF³12©Ü5:â22,3:ž"PROGRAMMFEHLER":€m`ˆ870”jÛ20: Ý:™:Ý5,27,5,34:â6,5:™:îO#1 štÝ ~€³°Š TAµ9 © MF´MBÒºŠ JA¯4´·(JA¯4) © D´1:Ô D´0ÄŠ D´1 ± MF´3 ± TBµ8 © TB´TB­1:Š TB´0 © TB´29:MF´2MÎŽ IF D=1 AND MB =3 AND TA<8 THEN TA=TA-1:IF TA=0 THEN TA=29:MB=2SØŠ D´1 ± MF´3 ± TBµ8 © TB´TB­1:Š TB´0 © TB