start tok64 d64-k724dm
1 REM from compute gazette april 84
3 SYS65517:a=PEEK(781):IFa=40THENPOKE53281,1
5 OPEN1,4:DIMw4(3):GOSUB1510:i=1:j=2
7 PRINT#1,CHR$(14)"{space*13}calendar for";y:PRINT#1:PRINT#1,CHR$(15)
10 PRINT#1,CHR$(14)SPC(8)"january"SPC(13)"february
12 GOSUB1009:GOSUB1000:GOSUB1012:c0=6:GOSUB1019:GOSUB1000:GOSUB1022
15 m0=i:m8=1:GOSUB292:GOSUB20:GOTO35
20 d=1:GOSUB1050:w2=8-d1:w4(m8)=w2+1:GOSUB321
22 IFd1=7THENGOTO30
25 FORd=2TOw2:GOSUB1050:GOSUB331:NEXT
30 RETURN
35 GOSUB990:m0=j:m8=2:GOSUB292:GOSUB20
44 w3=1
45 m0=i:m8=1:GOSUB292:GOSUB200
46 IFw4(2)=9THENPRINT#1,CHR$(15)SPC(1);
50 GOSUB991:m0=j:m8=2:GOSUB292:GOSUB200
56 IFw3=1ANDw4(1)>9THENPRINT#1,CHR$(15)SPC(0);
57 IFw3=1ANDw4(1)<10THENPRINT#1,CHR$(15)SPC(1);
58 IFw3=4ANDw4(2)>30THENPRINT#1,CHR$(15)SPC(0);
65 w3=w3+1
70 IFw3<c0THENGOTO45
71 PRINT#1," "
72 IFi=1THENGOTO86
73 IFi=3THENGOTO96
74 IFi=5THENGOTO106
75 IFi=7THENGOTO116
76 IFi=9THENGOTO126
77 IFi=11THENGOTO199
86 PRINT#1,CHR$(14)SPC(9)"march"SPC(16)"april
88 i=3:j=4:GOTO12
96 PRINT#1,CHR$(14)SPC(10)"may"SPC(17)"june
98 i=5:j=6:GOTO12
106 PRINT#1,CHR$(14)SPC(9)"july"SPC(16)"august
108 i=7:j=8:GOTO12
116 PRINT#1,CHR$(14)SPC(7)"september"SPC(13)"october
118 i=9:j=10:GOTO12
126 PRINT#1,CHR$(14)SPC(7)"november"SPC(13)"december
128 i=11:j=12:GOTO12
199 PRINT#1,CHR$(15)SPC(1):CLOSE1:LOAD"sta.store",8,1:RUN
200 d4=w4(m8):d7=w4(m8)+6
205 d=d4:GOSUB1050
210 IFd1<>1THENPRINT"why d1=";d1
212 IFm8=1AND(d+1)<10THENGOSUB528
213 IFm8=1AND(d+1)>9THENGOSUB530
214 IFm8=2AND(d+1)<10THENGOSUB428
215 IFm8=2ANDd4>=30ANDd4<=e1THENGOSUB433:GOTO217
216 IFm8=2AND(d+1)>9THENGOSUB430
217 FORd=d4+1TOd7:GOSUB1050:GOSUB331:NEXT
220 w4(m8)=d7+1
225 RETURN
292 IFm0=1ORm0=3ORm0=5ORm0=7ORm0=8ORm0=10ORm0=12THENe1=31
293 IFm0=4ORm0=6ORm0=9ORm0=11THENe1=30
294 IFm0=2ANDy/4<>INT(y/4)THENe1=28
295 IFm0=2ANDy/4=INT(y/4)THENGOSUB1400
296 RETURN
321 IFd1=7THENPRINT#1,CHR$(15)SPC(36);d;:GOTO330
322 IFd1=6THENPRINT#1,CHR$(15)SPC(31);d;:GOTO330
323 IFd1=5THENPRINT#1,CHR$(15)SPC(26);d;:GOTO330
324 IFd1=4THENPRINT#1,CHR$(15)SPC(21);d;:GOTO330
325 IFd1=3THENPRINT#1,CHR$(15)SPC(16);d;:GOTO330
326 IFd1=2THENPRINT#1,CHR$(15)SPC(11);d;:GOTO330
327 IFd1=1THENPRINT#1,CHR$(15)SPC(6);d;:GOTO330
328 PRINT#1,CHR$(15)SPC(3);d;:GOTO330
329 PRINT#1,CHR$(15)SPC(2);d;
330 RETURN
331 IFd>e1THENPRINT#1,CHR$(15)SPC(5);:GOTO350
332 IFd1=1ANDd<=9THENPRINT#1,d;:GOTO350
333 IFd1=1ANDd>9THENPRINT#1,d;:GOTO350
335 IFd<=9THENPRINT#1,CHR$(15)SPC(2);d;:GOTO350
336 PRINT#1,CHR$(15)SPC(1);d;
350 RETURN
428 IFd>e1THENPRINT#1,CHR$(15)SPC(9);:GOTO435
429 GOTO328
430 IFd>e1THENPRINT#1,CHR$(15)SPC(9);:GOTO435
431 GOTO329
433 PRINT#1,CHR$(15)SPC(1);d;
435 RETURN
528 IFd>e1THENPRINT#1,CHR$(15)SPC(9);:GOTO535
529 GOTO532
530 IFd>e1THENPRINT#1,CHR$(15)SPC(9);:GOTO535
531 GOTO533
532 PRINT#1,CHR$(15)SPC(5);d;:GOTO535
533 PRINT#1,CHR$(15)SPC(4);d;
535 RETURN
990 PRINT#1,CHR$(15)SPC(3);:GOTO992
991 PRINT#1,CHR$(15)SPC(6);
992 RETURN
1000 PRINT#1,CHR$(15)SPC(7);
1001 RETURN
1009 PRINT#1,CHR$(15)SPC(3);
1010 PRINT#1,"{space*2}sun{space*2}mon{space*2}tue{space*2}wed{space*2}thu{space*2}fri{space*2}sat";
1011 RETURN
1012 PRINT#1,"{space*2}sun{space*2}mon{space*2}tue{space*2}wed{space*2}thu{space*2}fri{space*2}sat"
1013 RETURN
1019 PRINT#1,CHR$(15)SPC(3);
1020 PRINT#1,"{space*2}{cm t*33}";
1021 RETURN
1022 PRINT#1," {cm t*34}"
1023 RETURN
1050 IFm0=1THENm0=13:y=y-1:GOTO1080
1060 IFm0=2THENm0=14:y=y-1
1080 m=m0-2
1100 d1=INT(2.6*m-0.2)+d+y-1900+INT((y-1900)/4)
1150 d1=d1+INT(19/4)-2*19
1200 d1=d1-INT(d1/7)*7+1
1210 IFm0=4ORm0=9THENd1=d1+1
1230 IFm0=13THENm0=1:y=y+1:GOTO1250
1240 IFm0=14THENm0=2:y=y+1:d1=d1+1
1244 IFd1=8THENd1=1
1245 IF(y=2100ANDm0>3)OR(y>2100)THENd1=d1-1:IFd1=0THENd1=7
1247 IF(y=2200ANDm0>3)OR(y>2200)THENd1=d1-1:IFd1=0THENd1=7
1249 IF(y=2300ANDm0>3)OR(y>2300)THENd1=d1-1:IFd1=0THENd1=7
1250 RETURN
1400 IF(y/100=INT(y/100))AND(y/400<>INT(y/400))THENe1=28:GOTO1410
1405 e1=29
1410 RETURN
1510 PRINT"{clear}{down*2}{space*2}this is a program":PRINT"{space*6}to show a
1520 PRINT"{space*3}yearly calendar.":PRINT"{space*3}on the printer.{down}"
1530 PRINT" please type in the":PRINT"{space*3}year that you":PRINT"{space*4}want to see.
1531 PRINT"{space*2}use all 4 digits.
1532 INPUT"{down*2}";y
1570 PRINT"{down}{space*3}thank you.{space*2}now turn on the
1573 PRINT"printer and hit a key.
1580 GETj$:IFj$=""THEN1580
1590 RETURN
stop tok64
(bastext 1.0)