Sayfa 64

İPHE NOKTASI

AYLIK PROGRAM

Commodore uyumlu bir yazıcınız varsa, bu program sizin için aylık takvim kâğıtları hazırlayacaktır. Girdiğiniz yıl ve ay kâğıdın üstünde yazılacaktır. Tam tarihi kendiniz eklemeniz gerekecek, çünkü program bunu yapabilecek kadar zeki değil.

PROGRAM ADI 1 AYLIK GROGRAM

00100 PRİNT *<CLR> ,0 00116 FRINT AY * (DOWN), (ESPACE )YIL (CTRL-7) ?(2UP).( RIGHT›*, 00120 I1-PUT

AS

<012>

60130 PRİNT .CCTRL-C)> YAZILIYOR. . 4.4 A$) * (ESPACE)*/B$/CHR$(15) 00140 PRINT#4IPRINT841FRINTH4 IES-*TTTTTT TTT.P* IFS-*P*•ES 00150 PRINT#4.CHR$(15))* 0*/ESF$F#F$F$F$F 00160 FRINT*4.CHR$(15)° KPAZAR(2SPACE).A .<2SFACE ›PAZARTES1<2SFACE ›.A. ‹2SPAC E ›SAL IACAREAMBA*, 00170 PRINT#4,*R PERSEMDER.<2SPACE )CUMA<2 00 100 00190 PRINT#4.CHR$(15)/* L*)E#F$F$F#F$F$F

00140

FOR Lei TO GİFOR TO HEScE> BOE10 NEKT BA Sela <o72> * ike <es7> ©0230 FOR LLs1 TO 1

PRİNT 4 c165>