TI BASIC Music Demo

[+mizapf]

I just stumbled upon this program in my disk image collection, a TI BASIC program that shows a surprisingly good music demo with all generators. The comments state that copying is explicitly allowed. It's not from me, I don't know the authors either, obviously someone from a German-speaking country.

 

1 REM        MIC-SOFT 
2 REM    
3 REM PRESENTS : PANIC 
4 REM  
5 REM DIESES PROGRAMM DARF        KOPIERT WERDEN!!! 
100 CALL CLEAR
110 CALL SCREEN(1)
120 FOR R=1 TO 16
130 CALL COLOR(R,16,1)
140 NEXT R
150 PRINT "          MIC-SOFT": : :"          PRESENTS": : : :"   MUSIC-DEMO  P A N I C": : : : : :
160 REM 1. STROPHE 
170 FOR R=1 TO 4
180 GOSUB 1800
190 NEXT R
200 FOR R=1 TO 2
210 GOSUB 710
220 GOSUB 710
230 GOSUB 830
240 GOSUB 830
250 GOSUB 710
260 GOSUB 710
270 GOSUB 950
280 GOSUB 950
290 NEXT R
300 FOR R=1 TO 2
310 GOSUB 710
320 GOSUB 830
330 GOSUB 710
340 GOSUB 950
350 NEXT R
360 FOR R=5 TO 20
370 CALL SOUND(-90,880,20,659,28,R*150,30,-8,20-R)
380 NEXT R
390 IF F=1 THEN 1770
400 FOR R=1 TO 4
410 GOSUB 1680
420 NEXT R
430 FOR Y=1 TO 3
440 FOR R=1 TO 4
450 GOSUB 1070
460 GOSUB 1070
470 GOSUB 1130
480 GOSUB 1130
490 GOSUB 1070
500 GOSUB 1070
510 GOSUB 1190
520 GOSUB 1190
530 NEXT R
540 FOR R=1 TO 4
550 GOSUB 1430
560 GOSUB 1430
570 GOSUB 1490
580 GOSUB 1490
590 GOSUB 1430
600 GOSUB 1430
610 GOSUB 1610
620 GOSUB 1550
630 NEXT R
640 NEXT Y
650 FOR R=1 TO 8
660 GOSUB 1680
670 NEXT R
680 F=1
690 GOTO 200
700 REM PART 1 A 
710 CALL SOUND(-90,523,9,698,20,-7,15)
720 CALL SOUND(-90,523,12,698,28,-7,26)
730 CALL SOUND(-90,523,9,110,30,110,30)
740 CALL SOUND(-90,523,12,110,30,110,30)
750 CALL SOUND(-90,698,9,523,20,110,30)
760 CALL SOUND(-90,698,12,523,28,110,30)
770 CALL SOUND(-90,523,9,698,20,-5,17)
780 CALL SOUND(-90,523,12,698,28,111,30)
790 CALL SOUND(-90,698,9,523,20,111,30)
800 CALL SOUND(-90,698,12,523,28,110,30)
810 RETURN
820 REM PART 1 B 
830 CALL SOUND(-90,587,9,784,20,-7,15)
840 CALL SOUND(-90,587,12,784,26,-7,26)
850 CALL SOUND(-90,587,9,110,30,110,30)
860 CALL SOUND(-90,587,12,110,30,110,30)
870 CALL SOUND(-90,784,9,587,20,110,30)
880 CALL SOUND(-90,784,12,587,26,110,30)
890 CALL SOUND(-90,587,9,784,20,-5,17)
900 CALL SOUND(-90,587,12,784,26,110,30)
910 CALL SOUND(-90,784,9,587,20,110,30)
920 CALL SOUND(-90,784,12,587,26,110,30)
930 RETURN
940 REM PART 1 C 
950 CALL SOUND(-90,659,9,110,30,-7,20)
960 CALL SOUND(-90,659,12,110,30,-7,26)
970 CALL SOUND(-90,659,9,880,20,110,30)
980 CALL SOUND(-90,659,12,880,26,110,30)
990 CALL SOUND(-90,880,9,659,20,110,30)
1000 CALL SOUND(-90,880,12,659,26,110,30)
1010 CALL SOUND(-90,659,9,880,20,-5,17)
1020 CALL SOUND(-90,659,12,880,26,-5,27)
1030 CALL SOUND(-90,880,9,659,20,110,30)
1040 CALL SOUND(-90,880,12,659,26,110,30)
1050 RETURN
1060 REM PART 2 A 
1070 CALL SOUND(-90,131,9,349,12,-7,20)
1080 CALL SOUND(-90,131,12,349,9,110,30)
1090 CALL SOUND(-90,175,9,262,12,110,30)
1100 CALL SOUND(-90,175,12,262,9,110,30)
1110 RETURN
1120 REM PART 2 B 
1130 CALL SOUND(-90,147,9,392,14,110,30)
1140 CALL SOUND(-90,147,12,392,9,110,30)
1150 CALL SOUND(-90,196,9,294,14,110,30)
1160 CALL SOUND(-90,196,12,294,9,110,30)
1170 RETURN
1180 REM PART 2 C 
1190 CALL SOUND(-90,165,9,440,14,110,30)
1200 CALL SOUND(-90,165,12,440,9,110,30)
1210 CALL SOUND(-90,220,9,330,14,110,30)
1220 CALL SOUND(-90,220,12,330,9,110,30)
1230 RETURN
1240 GOTO 450
1250 REM PART 2 BASS A 
1260 CALL SOUND(-90,131,9,110,30,-5,25)
1270 CALL SOUND(-90,131,12,110,30,110,30)
1280 CALL SOUND(-90,175,9,110,30,110,30)
1290 CALL SOUND(-90,175,12,110,30,110,30)
1300 RETURN
1310 REM PART 2 BASS 2 
1320 CALL SOUND(-90,147,9,110,30,110,30)
1330 CALL SOUND(-90,147,12,110,30,110,30)
1340 CALL SOUND(-90,196,9,110,30,110,30)
1350 CALL SOUND(-90,196,12,110,30,110,30)
1360 RETURN
1370 REM PART 2 BASS 3 
1380 CALL SOUND(-90,165,9,110,30,110,30)
1390 CALL SOUND(-90,165,12,110,30,110,30)
1400 CALL SOUND(-90,220,9,110,30,110,30)
1410 CALL SOUND(-90,220,9,110,30,110,30)
1420 RETURN
1430 REM REFRAIN ANSCHLUSS 1 
1440 CALL SOUND(-90,131,9,349,16,-7,20)
1450 CALL SOUND(-90,131,12,349,14,110,30)
1460 CALL SOUND(-90,175,9,349,13,110,30)
1470 CALL SOUND(-90,175,12,349,12,110,30)
1480 RETURN
1490 REM REFRAIN ANSCHLUSS 2     
1500 CALL SOUND(-90,147,9,392,15,110,30)
1510 CALL SOUND(-90,147,12,392,14,110,30)
1520 CALL SOUND(-90,196,9,392,13,110,30)
1530 CALL SOUND(-90,196,12,392,12,110,30)
1540 RETURN
1550 REM PART 2 C  REFRAIN 1     
1560 CALL SOUND(-90,165,9,523,14,-5,17)
1570 CALL SOUND(-90,165,12,523,17,-5,20)
1580 CALL SOUND(-90,220,9,440,14,-6,17)
1590 CALL SOUND(-90,220,12,392,14,-7,17)
1600 RETURN
1610 REM REFRAIN  1 C 
1620 CALL SOUND(-90,165,9,440,15,110,30)
1630 CALL SOUND(-90,165,12,440,14,110,30)
1640 CALL SOUND(-90,220,9,440,13,110,30)
1650 CALL SOUND(-90,220,12,440,12,110,30)
1660 RETURN
1670 REM BASS SOLO 
1680 GOSUB 1260
1690 GOSUB 1260
1700 GOSUB 1320
1710 GOSUB 1320
1720 GOSUB 1260
1730 GOSUB 1260
1740 GOSUB 1380
1750 GOSUB 1380
1760 RETURN
1770 CALL SOUND(-90,110,30,110,30,110,30,-7,30)
1780 GOTO 1770
1790 REM DRUM SOLO 
1800 CALL SOUND(-90,110,30,110,30,-7,15)
1810 CALL SOUND(-90,110,30,110,30,-7,26)
1820 CALL SOUND(-90,110,30,110,30,110,30)
1830 CALL SOUND(-90,110,30,110,30,110,30)
1840 CALL SOUND(-90,110,30,110,30,110,30)
1850 CALL SOUND(-90,110,30,110,30,110,30)
1860 CALL SOUND(-90,110,30,110,30,-5,17)
1870 CALL SOUND(-90,110,30,110,30,110,30)
1880 CALL SOUND(-90,110,30,110,30,110,30)
1890 CALL SOUND(-90,110,30,110,30,110,30)
1900 RETURN

 

musicdemo.dsk

[InfernalKeith]

Oh, this is awesome!  Thanks for sharing it.  You don't see a TI BASIC listing with REM DRUM SOLO in it every day.

[sometimes99er]

Yeah, that was surprisingly good. 👍
 

[jrhodes]

It sounds good in BASIC, but i prefer it under XB.

Change line 120 like this:

120 FOR R=1 TO 14

Much faster paced. I wish this music was playing in the background of, for instance, a TOD adventure.

Edited April 15, 2023 by jrhodes