Programming the TI

C. Regena

Christmas Graphics

Try this special Christmas program. (It can only be typed in on a TI - 99/4A console.)

We Three Kings

100 REM  WE THREE KING 9
110 CALL CLEAR
120 T = 375
130 CALL S0UND (2 * T, 494, 2, 392, 6, 165, 8)
140 CALL CHAR (152, "0001010303FF7F1F")
150 CALL CHAR (153, "07070F1F1C30304")
160 CALL SCREEN (2)
170 CALL CHAR (154, "8080C0C0E0FFFEF8")
180 CALL CHAR (155, "E0E0F078180C0C02")
190 CALL CHAR (33, "0000000515DF7F78")
200 CALL SOUND (T, 440, 2, 370, 6, 165, 9)
210 CALL CHAR (34, "02066660606773F1")
220 CALL CHAR (35, "0000000040C0E0F")
230 CALL SOUND (2 * T, 392, 2, 330, 6, 165, 8)
240 CALL CHAR (36, "E0C0D29293333373")
250 CALL CHAR (37, "0107010001010101")
260 CALL CHAR (38, "50F0C0103080B0B")
270 CALL CHAR (39, "01000103070704")
280 CALL CHAR (40, "F000808898C86")
290 PRINT TAB (10); "!"
300 CALL SOUND (T, 330, 2, 196, 6, 165, 9)
310 CALL CHAR (41, "7B7B7BFBFBFBFBFB")
320 CALL CHAR (42, "808080E0FCF8F8F")
330 CALL SOUND (T, 370, 2, 311, 6, 123, 9)
340 CALL CHAR (43, "0303070604010307")
350 CALL CHAR (44, "90000020F0F0F0F")
360 CALL SOUND (T, 392, 2, 311, 7, 123, 9)
370 CALL CHAR (45, "03070707070F0F0F")
380 CALL CHAR (46, "80C0C0C0E0E0E0F")
390 CALL SOUND (T, 370, 2, 311, 6, 123, 8)
400 CALL CHAR (47, "0000080818183839")
410 CALL CHAR (48, "F9F9F8FBF9FDF0FC")
420 CALL SOUND (2 * T, 330, 2, 196, 6, 165, 8)
430 PRINT TAB (10); CHR * (34)
440 PRINT TAB (8); "# $ % &"
450 CALL CHAR (49, "F6E6E040089CFEFE")
460 CALL CHAR (50, "070707000E0F01")
470 CALL CHAR (51, "F0F0F8FC7E7C3911")
480 CALL CHAR (52, "00000000001C3F8F")
490 PRINT TAB (7); "'( ) *  +, "
500 CALL CHAR (53, "000000000030F8FC")
510 CALL CHAR (54, "000001030707071B")
520 CALL CHAR (55, "1F9FCFC7E7F3F9FC")
530 CALL SOUND (2 * T, 494, 2, 392, 6, 165, 8)
540 CALL CHAR (56, "F0F0E6F0E0C3CF1F")
550 CALL CHAR (57, "39190949E1F1F9F9")
560 CALL CHAR (58, "FDFDFDFDFDFDFDFD")
570 CALL CHAR (59, "7C0CE0FCFFFFFFFF")
580 CALL CHAR (60, "000103030383C7C7")
590 CALL SOUND (T, 440, 2, 370, 6, 165, 9)
600 CALL CHAR (61, "E7F3FBFCFEFFFFFF")
610 CALL CHAR (62, "C0E6FE7E3F1F8FC7")
620 CALL SOUND (2 * T, 392, 2, 330, 6, 165, 8)
630 CALL CHAR (63, "070F00383F000F3F")
640 CALL CHAR (64, "FFFFFF3F8000FEFE")
650 CALL CHAR (65, "80C0C0D0102C4C1C")
660 PRINT TAB (7); " - ./01 2345"
670 CALL CHAR (66, "03030703091C1F3F")
680 CALL CHAR (67, "FCFEFFFFFF1FC0CE")
690 CALL SOUND (T, 330, 2, 196, 6, 165, 9)
700 CALL CHAR (68, "FCFEFFFFFF1FC0CE")
710 CALL CHAR (69, "0000010101091939")
720 CALL SOUND (T, 370, 2, 311, 6, 123, 8)
730 CALL CHAR (70, "7BF9F9F8FBFCFEFF")
740 CALL CHAR (71, "F8F0E0C3070F1F3F")
750 CALL SOUND (T, 392, 2, 311, 5, 123, 8)
760 CALL CHAR (72, "9F9F9F9F9F9F9F9F")
770 CALL CHAR (73, "F9F9F9F1F1F1F3F3")
780 CALL SOUND (T, 370, 2, 311, 6, 123, 9)
790 CALL CHAR (74, "FFFFFFFFFFFF")
800 CALL CHAR (75, "E7E7E7EFEF870723")
810 CALL SOUND (2 * T, 330, 2, 196, 6, 165, 8)
820 CALL CHAR (76, "FFFFFFFFFFFFFFFF")
830 CALL CHAR (77, "E1F0F8FCFCFEFEFE")
840 CALL CHAR (78, "3F3F3F3F3F3F3F3F")
850 PRINT TAB (6); "6789 : ;< = > ?@ABCD"
860 CALL CHAR (79, "FCF8F0E0C0C1C1C3")
870 CALL CHAR (80, "180080808")
880 CALL CHAR (81, "3F7F00007FFFFFFF")
890 CALL CHAR (82, "FF930040C0818101")
900 PRINT TAB (5); "EFGHI : JKLMNOPQRS"
910 CALL S0UND (2 * T, 392, 4, 330, 8, 165, 10)
920 CALL CHAR (83, "38387810808")
930 CALL CHAR (84, "79F9F9F9F9710101")
940 CALL CHAR (85, "FFFFFFFEFEFCF8F")
950 PRINT TAB (5); "TUVHW : LXLYVZ [\]"
960 CALL CHAR (86, "3F7F7F7FFFFFFFFF")
970 CALL CHAR (87, "F3F3F3F3F3F3F3F3")
980 CALL SOUND (T, 392, 3, 330, 9, 165, 11)
990 CALL CHAR (88, "636171717078787C")
1000 CALL CHAR (89, "F7F7F7FCF8F8F1E1")
1010 CALL SOUND (2 * T, 440, 4, 370, 8, 147, 10)
1020 CALL CHAR (90, "C28286888080802")
1030 CALL CHAR (91, "0101010303070F1F")
1040 CALL CHAR (92, "FEFCFCF8FBF8F8F")
1050 PRINT TAB (4); "^ _ 'LHWaLbcdVeHf"
1060 CALL CHAR (93, "03030306040C18E")
1070 CALL CHAR (94, "0707070707070703")
1080 CALL SOUND (T, 440, 5, 370, 9, 147, 11)
1090 CALL CHAR (95, "F9F9F9F9F9F9F9F9")
1100 CALL CHAR (96, "F8F0F0F0E0E4E4C4")
1110 CALL SOUND (2 * T, 494, 3,  392, 7, 196, 9)
1120 CALL CHAR (97, "FCFCFCFCFCFCFCFC")
1130 CALL CHAR (98, "600000030F3F3F3F")
1140 CALL CHAR (99, "3F3F1F0080E1FBFA")
1150 PRINT TAB (4); "g_hLHijLNklmna"
1160 CALL CHAR (100, "C3870F3F7F7F7F75")