0 REM *********************************
1 REM *** ORIGIN OF PROGRAM UNKNOWN ***
2 REM *********************************
5 POKE53280,11:POKE53281,12:POKE646,0
10 REM PROGRAM-CALENDAR
20 PRINT"[147]THIS PROGRAM PRINTS THE CALENDAR FOR"
25 PRINT
30 PRINT"ANY MONTH IN THE TWENTIETH CENTURY."
50 DIMC(7,6)
60 RESTORE
65 PRINT""
70 INPUT"NAME OF MONTH REQUIRED";M$
75 PRINT"
80 [133]"YEAR REQUIRED (4 DIGITS)";Y
85 [153]""
90 [153]"CACULATING-PLEASE WAIT...."
100 D$[178]"MONTUEWENTHUFRISATSUN"
110 [143] GET NUMBER OF DAYS
120 M[178]0
130 [135]Q$,F,D
140 M[178]M[170]1
150 [139]M[177]12[167][153]:[153]"INVALID MONTH!!":[137]60
160 [139][200](M$,3)[179][177][200](Q$,3)[167]130
165 [139]Y[179]1901[167][153]:[153]"INVALID YEAR!!":[137]60
170 Y[178]Y[171]1900
180 L[178][181](Y[173]4)
190 OF[178]Y[170]L
200 [139]Y[171][181](Y[173]4)[172]4[178]0[175]M[179]3[167]OF[178]OF[171]1
210 [139]Y[171][181](Y[173]4)[172]4[178]0[175]M[178]2[167] D[178]29
220 OF[178]OF[171][181](OF[173]7)[172]7
230 F[178]F[170]OF
240 F[178]F[171][181](F[173]7)[172]7
250 [139]F[178]0[167]F[178]7
260 [129]I[178]1[164]F[171]1
270 C(I,1)[178]0
280 [130]I
290 DY[178]1
300 [129]I[178]F[164]7
310 C(I,1)[178]DY
320 DY[178]DY[170]1
330 [130]I
340 [129]J[178]2[164]6
350 [129]I[178]1[164]7
360 C(I,J)[178]DY
370 DY[178]DY[170]1
380 [139]DY[177]D[167]I[178]7:J[178]6:[137]390
390 [130]I
400 [130]J
410 [141]1000:[153]"ON"
420 [153]"";M$;"   ";Y[170]1900;""
430 [129]I[178]1[164]7
440 [153]"   ";[202](D$,(I[171]1)[172]3[170]1,3)
450 [130]I
460 [153]"";
470 [129]J[178]1[164]6
480 [129]I[178]1[164]7
485 C$[178][196](C(I,J))
486 [139][195](C$)[178]2[167]C$[178]" "[170]C$:[137]490
490 [139]C(I,J)[179][177]0[167][153]C$;"CMDCMDCMD";
495 [139]C(I,J)[178]0[167][153]"   ";"CMDCMDCMD";
500 [130]I
510 [153]"ONONONONONONON";
520 [130]J
521 [153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]"ANOTHER ONE?  TYPE Y OR N:"
522 [161]Q$
523 [139]Q$[178]""[167]522
524 [139]Q$[179][177]"Y"[175]Q$[179][177]"N"[167]522
525 [139]Q$[178]"Y"[167][138]
526 [129]PAUSE[178]0[164]500:[130]PAUSE
527 [153]:[153]"GOODBYE":[141] 1000:[128]
540 [131]"JANUARY",1,31,"FEBRUARY",4,28,"MARCH",4,31,"APRIL",7,30,"MAY",2,31
550 [131]"JUNE",5,30,"JULY",7,31,"AUGUST",3,31,"SEPTEMBER",6,30,"OCTOBER",1,31
560 [131]"NOVEMBER",4,30,"DECEMBER",6,31,"",,
999 [143] FANCY SCREEN CLEARER BY A GALE
1000 [129]T[178]0 [164] 12
1010 [151] 781,T[172]2:[158] 59903
1020 [129] H[178]1 [164] 30:[130] H
1030 [130] T
1040 [129] T[178]0 [164] 11
1050 [151] 781,(T[172]2)[170]1:[158] 59903
1060 [129] H[178]1 [164] 30 :[130] H
1070 [130] T
1080 [153][199](147)
1090 [142]