Sections
Calendar
November 2019
S M T W T F S
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
             

Members
Not logged in.
 

Exploring TI BASIC
Video demonstrating the basics of BASIC (8:43)

In this video, we play a little bit with BASIC programming on the TI-99/4A. We write a program to play a holiday song to demonstrate the concepts of BASIC.

TI BASIC Program in Video: TWELVEDAYS

10 CALL CLEAR 20 DIM GIFT$(12) 30 FOR L=1 TO 12 40 READ GIFT$(L) 50 NEXT L 60 DIM ORD$(12) 70 FOR L=1 TO 12 80 READ ORD$(L) 90 NEXT L 100 LOWG=392 110 LOWA=440 120 LOWB=494 130 HIC=523 140 HID=587 150 HIE=659 160 HIF=698 170 HIFS=740 180 HIG=784 190 HIA=880 200 S=150 210 E=S*2 220 Q=E*2 230 H=Q*2 240 FOR VERSE=1 TO 12 250 PRINT "ON THE ";ORD$(VERSE); 260 CALL SOUND(S,LOWG,0) 270 CALL SOUND(S,LOWG,0) 280 CALL SOUND(E,LOWG,0) 290 PRINT "DAY OF CHRISTMAS," 300 CALL SOUND(S,HIC,0) 310 CALL SOUND(S,HIC,0) 320 CALL SOUND(E,HIC,0) 330 CALL SOUND(S,LOWB,0) 340 PRINT "MY TRUE LOVE GAVE TO ME," 350 CALL SOUND(S,HIC,0) 360 CALL SOUND(S,HID,0) 370 CALL SOUND(S,HIE,0) 380 CALL SOUND(S,HIF,0) 390 CALL SOUND(S,HID,0) 400 CALL SOUND(Q,HIE,0) 410 FOR LINE=VERSE TO 1 STEP -1 420 IF VERSE=1 THEN 460 430 IF LINE>1 THEN 460 440 PRINT " AND" 450 CALL SOUND(S,HIE,0) 460 PRINT " ";GIFT$(LINE); 470 IF LINE>1 THEN 500 480 PRINT "." 490 GOTO 510 500 PRINT "," 510 IF VERSE>4 THEN 540 520 ON LINE GOSUB 580,680,680,680 530 GOTO 550 540 ON LINE GOSUB 580,730,790,830,890,950,950,950,950,950,950,950 550 NEXT LINE 560 NEXT VERSE 570 END 580 CALL SOUND(S,HIF,0) 590 CALL SOUND(E,HIG,0) 600 CALL SOUND(S,HIA,0) 610 CALL SOUND(S,HIF,0) 620 CALL SOUND(S,HIE,0) 630 CALL SOUND(S,HIC,0) 640 CALL SOUND(E,HID,0) 650 CALL SOUND(H,HIC,0) 660 CALL SOUND(Q,HIC,30) 670 RETURN 680 CALL SOUND(E,HIG,0) 690 CALL SOUND(S,HID,0) 700 CALL SOUND(S,HIE,0) 710 CALL SOUND(E,HIF,0) 720 RETURN 730 CALL SOUND(S,HID,0) 740 CALL SOUND(S,HIC,0) 750 CALL SOUND(S,LOWB,0) 760 CALL SOUND(S,LOWA,0) 770 CALL SOUND(E,LOWG,0) 780 RETURN 790 CALL SOUND(E,HIF,0) 800 CALL SOUND(E,LOWA,0) 810 CALL SOUND(E,HIC,0) 820 RETURN 830 CALL SOUND(S,HIG,0) 840 CALL SOUND(S,HIF,0) 850 CALL SOUND(S,HIE,0) 860 CALL SOUND(S,HID,0) 870 CALL SOUND(E,HIC,0) 880 RETURN 890 CALL SOUND(Q,HIG,0) 900 CALL SOUND(E,HIA,0) 910 CALL SOUND(E,HIFS,0) 920 CALL SOUND(Q,HIG,0) 930 CALL SOUND(Q,HIG,30) 940 RETURN 950 CALL SOUND(E,HIG,0) 960 CALL SOUND(S,HID,0) 970 CALL SOUND(S,HIE,0) 980 CALL SOUND(S,HIF,0) 990 CALL SOUND(S,HID,0) 1000 RETURN 1010 DATA "A PARTRIDGE IN A PEAR TREE","TWO TURTLE DOVES","THREE FRENCH HENS","FOUR CALLING BIRDS" 1020 DATA "FIVE GOLDEN RINGS","SIX GEESE A-LAYING","SEVEN SWANS A-SWIMMING","EIGHT MAIDS A-MILKING" 1030 DATA "NINE LADIES DANCING","TEN LORDS A-LEAPING","ELEVEN PIPERS PIPING","TWELVE DRUMMERS DRUMMING" 1040 DATA "FIRST","SECOND","THIRD","FOURTH" 1050 DATA "FIFTH","SIXTH","SEVENTH","EIGHTH" 1060 DATA "NINTH","TENTH","ELEVENTH","TWELFTH"

Posted in Video on 2018-12-06 12:41:00.
Hits: 148