C64 için Püf Noktaları

Commodore sayı 46, Aralık 1989 · sayfa 64

BASIC
Ofis programları
Program dökümü

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

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

PRİNT
4 c165>