Category : Utilities for DOS and Windows Machines
Archive   : POP-CAL.ZIP
Filename : POP-CAL.BAS

100 'POP-CAL.BAS: Creates POP-CAL.COM, a memory-resident pop-up calendar.
102 'See POP-CAL.DOC. From PC Magazine Vol 5 No 17 October 14, 1986 by
103 'Leo Forrest. Copyright Ziff-Davis Publishing Co.
104 '
110 OPEN "pop-cal.com" AS #1 LEN=1
120 FIELD #1,1 AS A$
130 CHECKSUM=0
140 FOR I%=1 TO 110
150 LINESUM%=0
160 FOR J%=1 TO 8
170 READ BYTE%
180 CHECKSUM=CHECKSUM+BYTE%
190 LINESUM%=LINESUM%+BYTE%
200 IF (BYTE%<256) THEN LSET A$=CHR$(BYTE%)
210 PUT #1
220 NEXT J%
230 READ LINECHECK%
240 IF LINECHECK%<>LINESUM% THEN PRINT"Error in line";280+10*I%
250 NEXT I%
260 CLOSE
270 IF CHECKSUM=96431! THEN PRINT"POP-CAL.COM created.":END
280 PRINT"POP-CAL.COM not valid.":END
290 DATA 233,10,3,67,111,112,121,114,771
300 DATA 105,103,104,116,32,49,57,56,622
310 DATA 54,32,90,105,102,102,45,68,598
320 DATA 97,118,105,115,32,80,117,98,762
330 DATA 108,105,115,104,105,110,103,32,782
340 DATA 67,111,46,26,83,117,110,77,637
350 DATA 111,110,84,117,101,87,101,100,811
360 DATA 84,104,114,70,114,105,83,97,771
370 DATA 116,74,97,110,70,101,98,77,743
380 DATA 97,114,65,112,114,77,97,121,797
390 DATA 74,117,110,74,117,108,65,117,782
400 DATA 103,83,101,112,79,99,116,78,771
410 DATA 111,118,68,101,99,31,28,31,587
420 DATA 30,31,30,31,31,30,31,30,244
430 DATA 31,64,0,0,46,251,128,252,772
440 DATA 0,116,5,46,255,46,235,0,703
450 DATA 46,128,62,252,0,0,117,243,848
460 DATA 156,46,255,30,235,0,46,59,827
470 DATA 6,115,1,116,1,207,46,198,690
480 DATA 6,252,0,1,46,140,22,239,706
490 DATA 0,46,137,38,241,0,140,204,806
500 DATA 250,142,212,188,235,0,251,80,1358
510 DATA 83,81,82,85,86,87,30,6,540
520 DATA 232,31,0,7,31,95,94,93,583
530 DATA 90,89,91,88,250,46,142,22,818
540 DATA 239,0,46,139,38,241,0,251,954
550 DATA 180,0,46,198,6,252,0,0,682
560 DATA 235,174,14,14,31,7,252,232,959
570 DATA 171,1,235,9,144,136,54,245,995
580 DATA 0,137,14,246,0,232,83,0,712
590 DATA 180,0,205,22,59,6,115,1,588
600 DATA 117,4,232,144,1,195,138,54,885
610 DATA 245,0,139,14,246,0,128,252,1024
620 DATA 75,117,10,254,206,121,214,182,1179
630 DATA 11,73,235,39,144,128,252,77,959
640 DATA 117,13,254,198,128,254,11,126,1101
650 DATA 196,182,0,65,235,7,144,128,957
660 DATA 252,72,117,9,65,129,249,16,909
670 DATA 39,125,189,235,176,128,252,80,1224
680 DATA 117,182,73,129,249,46,6,126,928
690 DATA 175,235,162,232,146,0,142,6,1098
700 DATA 243,0,160,245,0,152,185,3,988
710 DATA 0,246,225,190,65,1,3,240,970
720 DATA 139,62,254,0,3,62,249,0,769
730 DATA 131,199,22,172,232,13,1,226,996
740 DATA 250,131,199,2,161,246,0,179,1168
750 DATA 100,246,243,183,1,232,206,0,1211
760 DATA 138,196,232,201,0,161,254,0,1182
770 DATA 179,4,246,227,5,4,0,139,804
780 DATA 62,249,0,3,248,138,22,248,970
790 DATA 0,138,202,182,6,227,5,232,992
800 DATA 206,0,226,251,177,7,42,202,1111
810 DATA 138,30,245,0,50,255,138,151,1007
820 DATA 101,1,176,1,232,151,0,254,916
830 DATA 192,131,199,4,254,202,116,10,1108
840 DATA 226,242,232,15,0,235,237,232,1419
850 DATA 166,0,226,251,232,5,0,117,997
860 DATA 246,14,7,195,3,62,249,0,776

870 DATA 131,199,4,177,7,254,206,195,1173
880 DATA 139,54,246,0,198,6,102,1,746
890 DATA 28,247,198,3,0,117,5,198,796
900 DATA 6,102,1,29,187,6,0,139,470
910 DATA 198,45,47,6,3,216,5,2,522
920 DATA 0,185,4,0,153,247,241,3,833
930 DATA 216,129,254,164,6,124,35,139,1067
940 DATA 198,45,64,6,177,100,153,247,990
950 DATA 241,131,250,0,117,11,169,3,922
960 DATA 0,116,5,198,6,102,1,28,456
970 DATA 72,43,216,153,177,4,247,241,1153
980 DATA 3,216,190,101,1,50,228,138,927
990 DATA 14,245,0,227,5,172,3,216,882
1000 DATA 226,251,139,195,153,177,7,247,1395
1010 DATA 241,136,22,248,0,195,80,83,1005
1020 DATA 212,10,5,48,48,128,252,48,751
1030 DATA 117,7,128,255,1,116,2,180,806
1040 DATA 32,138,216,138,196,232,20,0,972
1050 DATA 138,195,232,15,0,91,88,195,954
1060 DATA 176,32,232,7,0,232,4,0,683
1070 DATA 131,199,4,195,82,139,22,0,772
1080 DATA 1,138,224,236,168,1,117,251,1136
1090 DATA 250,236,168,1,116,251,138,196,1356
1100 DATA 170,251,71,90,195,232,60,0,1069
1110 DATA 139,22,0,1,131,234,2,142,671
1120 DATA 6,113,1,38,138,62,101,0,459
1130 DATA 138,199,36,247,238,190,105,4,1157
1140 DATA 139,62,249,0,142,6,243,0,841
1150 DATA 179,11,185,30,0,38,139,5,587
1160 DATA 165,137,68,254,226,247,3,62,1162
1170 DATA 249,0,254,203,117,236,138,199,1396
1180 DATA 238,14,7,195,6,142,6,113,721
1190 DATA 1,38,161,74,0,209,224,163,870
1200 DATA 254,0,44,60,163,249,0,38,808
1210 DATA 161,99,0,5,6,0,163,0,434
1220 DATA 1,198,6,251,0,112,38,138,744
1230 DATA 30,73,0,128,251,7,184,0,673
1240 DATA 176,116,13,184,0,184,246,195,1114
1250 DATA 1,116,5,198,6,251,0,31,608
1260 DATA 163,243,0,7,195,232,188,255,1283
1270 DATA 191,105,4,138,38,251,0,176,903
1280 DATA 32,185,74,1,243,171,87,190,983
1290 DATA 44,1,179,7,191,105,4,129,660
1300 DATA 199,184,0,185,3,0,164,71,806
1310 DATA 226,252,71,71,254,203,117,243,1437
1320 DATA 180,42,205,33,254,206,136,54,1110
1330 DATA 245,0,137,14,246,0,51,192,885
1340 DATA 142,192,38,161,88,0,163,235,1019
1350 DATA 0,38,161,90,0,163,237,0,689
1360 DATA 184,117,1,250,38,163,88,0,841
1370 DATA 38,140,14,90,0,251,90,205,828
1380 DATA 39,0,0,0,0,0,0,0,39