Random demo
Random game
Random software
  • Entry name:
     BASICally Melodic 
  • Category:
    Music: Sound
  • Publisher/Developer:
    ANALOG Computing, Flop 5
  • Year:
    1989
  • Inlay/Poster art:
    GIA Software,Clayton Walnum
  • Programming language:
    Atari BASIC
BASICally Melodic
Listing 1
10 REM 
20 REM | BASICally Melodic |
30 REM 
40 REM - for all ATARI XL/XE
50 REM (c) 1987
60 REM by Clayton Walnum
70 REM ANALOG Computing 5/1987
80 REM (p) 1989
90 REM by GIA Software
110 TRAP 180
120 READ F0,​P0,​F1,​P1,​F2,​P2,​F3,​P3
130 SOUND 0,​F0,​0,​P0:​SOUND 1,​F1,​10,​P1:​SOUND 2,​F2,​10,​P2
140 IF PASS=2 THEN SOUND 3,​F3,​10,​6
150 SOUND 0,​F0,​0,​4:​SOUND 1,​F1,​10,​8:​SOUND 2,​F2,​10,​6
160 FOR X=1 TO 50:​NEXT X
170 GOTO 120
180 PASS=2:​RESTORE 1370:​TRAP 190:​GOTO 120
190 RESTORE:​PASS=1:​SOUND 3,​0,​0,​0:​GOTO 110
999 STOP
1000 REM MEASURE 1
1010 DATA 50,​4,​0,​0,​0,​0,​0,​0
1020 DATA 0,​0,​0,​0,​0,​0,​0,​0
1030 DATA 1,​4,​0,​0,​0,​0,​0,​0
1040 DATA 1,​0,​0,​0,​0,​0,​0,​0
1050 DATA 50,​4,​0,​0,​0,​0,​0,​0
1060 DATA 50,​0,​0,​0,​0,​0,​0,​0
1070 DATA 1,​4,​0,​0,​0,​0,​0,​0
1080 DATA 1,​0,​0,​0,​0,​0,​0,​0
1090 REM MEASURE 2
1100 DATA 50,​4,​0,​0,​0,​0,​0,​0
1110 DATA 0,​0,​0,​0,​0,​0,​0,​0
1120 DATA 1,​4,​0,​0,​0,​0,​0,​0
1130 DATA 1,​0,​0,​0,​0,​0,​0,​0
1140 DATA 50,​4,​0,​0,​0,​0,​0,​0
1150 DATA 50,​0,​0,​0,​0,​0,​0,​0
1160 DATA 1,​4,​0,​0,​0,​0,​0,​0
1170 DATA 1,​0,​0,​0,​0,​0,​0,​0
1180 REM MEASURE 3
1190 DATA 50,​4,​0,​0,​144,​6,​0,​0
1200 DATA 0,​0,​0,​0,​144,​6,​0,​0
1210 DATA 1,​4,​0,​0,​0,​0,​0,​0
1220 DATA 1,​0,​0,​0,​144,​6,​0,​0
1230 DATA 50,​4,​0,​0,​144,​0,​0,​0
1240 DATA 50,​0,​0,​0,​144,​6,​0,​0
1250 DATA 1,​4,​0,​0,​0,​0,​0,​0
1260 DATA 1,​0,​0,​8,​0,​0,​0,​0
1270 REM MEASURE 4
1280 DATA 50,​4,​0,​0,​144,​6,​0,​0
1290 DATA 0,​0,​0,​0,​144,​6,​0,​0
1300 DATA 1,​4,​0,​0,​0,​0,​0,​0
1310 DATA 1,​0,​0,​0,​144,​6,​0,​0
1320 DATA 50,​4,​0,​0,​144,​0,​0,​0
1330 DATA 50,​0,​0,​0,​144,​6,​0,​0
1340 DATA 1,​4,​0,​0,​0,​0,​0,​0
1350 DATA 1,​0,​0,​8,​0,​0,​0,​0
1360 REM MEASURE 5
1370 DATA 50,​4,​0,​0,​144,​6,​0,​0
1380 DATA 0,​0,​0,​0,​144,​6,​0,​0
1390 DATA 1,​4,​60,​0,​0,​0,​47,​4
1400 DATA 1,​0,​53,​0,​144,​6,​45,​4
1410 DATA 50,​4,​47,​0,​144,​0,​40,​4
1420 DATA 50,​0,​53,​0,​144,​6,​45,​4
1430 DATA 1,​4,​60,​0,​0,​0,​47,​4
1440 DATA 1,​0,​47,​8,​0,​0,​40,​4
1450 REM MEASURE 6
1460 DATA 50,​4,​47,​8,​144,​6,​40,​4
1470 DATA 0,​0,​47,​8,​144,​6,​40,​4
1480 DATA 1,​4,​60,​0,​0,​0,​47,​4
1490 DATA 1,​0,​53,​0,​144,​6,​45,​4
1500 DATA 50,​4,​47,​0,​144,​0,​40,​4
1510 DATA 50,​0,​53,​0,​144,​6,​45,​4
1520 DATA 1,​4,​60,​0,​0,​0,​47,​4
1530 DATA 1,​0,​47,​8,​0,​0,​40,​4
1540 REM MEASURE 7
1550 DATA 50,​4,​47,​8,​192,​6,​64,​4
1560 DATA 0,​0,​47,​8,​192,​6,​60,​4
1570 DATA 1,​4,​64,​0,​0,​0,​53,​4
1580 DATA 1,​0,​60,​0,​192,​6,​47,​4
1590 DATA 50,​4,​53,​8,​192,​0,​45,​4
1600 DATA 50,​0,​60,​0,​192,​6,​40,​4
1610 DATA 1,​4,​64,​0,​0,​0,​35,​4
1620 DATA 1,​0,​53,​0,​0,​0,​31,​4
1630 REM MEASURE 8
1640 DATA 50,​4,​53,​8,​192,​6,​35,​4
1650 DATA 0,​0,​53,​8,​192,​6,​40,​4
1660 DATA 1,​4,​64,​0,​0,​0,​45,​4
1670 DATA 1,​0,​60,​0,​192,​6,​47,​4
1680 DATA 50,​4,​53,​0,​192,​0,​53,​4
1690 DATA 50,​0,​60,​0,​192,​6,​60,​4
1700 DATA 1,​4,​64,​0,​0,​0,​64,​4
1710 DATA 1,​0,​53,​0,​0,​0,​64,​4
1720 REM MEASURE 9
1730 DATA 50,​4,​53,​8,​182,​6,​72,​4
1740 DATA 0,​0,​53,​8,​182,​6,​64,​4
1750 DATA 1,​4,​72,​0,​0,​0,​60,​4
1760 DATA 1,​0,​64,​0,​182,​6,​53,​3
1770 DATA 50,​4,​60,​0,​182,​0,​47,​4
1780 DATA 50,​0,​64,​0,​182,​6,​53,​4
1790 DATA 1,​4,​72,​0,​0,​0,​60,​4
1800 DATA 1,​0,​60,​0,​0,​0,​47,​4
1810 REM MEASURE 10
1820 DATA 50,​4,​60,​8,​182,​6,​47,​4
1830 DATA 0,​0,​60,​8,​182,​6,​47,​4
1840 DATA 1,​4,​72,​0,​0,​0,​60,​4
1850 DATA 1,​0,​64,​0,​182,​6,​53,​4
1860 DATA 50,​4,​60,​0,​182,​0,​47,​4
1870 DATA 50,​0,​64,​0,​182,​6,​53,​4
1880 DATA 1,​4,​72,​8,​0,​0,​60,​4
1890 DATA 1,​0,​72,​8,​0,​0,​60,​4
1900 REM MEASURE 11
1910 DATA 50,​4,​81,​8,​162,​6,​29,​4
1920 DATA 0,​0,​81,​8,​162,​6,​57,​4
1930 DATA 1,​4,​81,​8,​0,​0,​31,​4
1940 DATA 1,​0,​81,​8,​162,​6,​64,​4
1950 DATA 50,​4,​81,​8,​162,​0,​35,​4
1960 DATA 50,​0,​81,​8,​162,​6,​72,​4
1970 DATA 1,​4,​81,​8,​0,​0,​40,​4
1980 DATA 1,​0,​81,​8,​0,​0,​81,​4
1990 REM MEASURE 12
2000 DATA 50,​4,​91,​8,​162,​6,​45,​4
2010 DATA 0,​0,​91,​8,​162,​6,​91,​4
2020 DATA 1,​4,​91,​8,​0,​0,​47,​4
2030 DATA 1,​0,​91,​8,​162,​6,​96,​4
2040 DATA 50,​4,​81,​8,​162,​0,​53,​4
2050 DATA 50,​0,​91,​8,​162,​6,​108,​4
2060 DATA 1,​4,​91,​8,​0,​0,​60,​4
2070 DATA 1,​0,​91,​8,​0,​0,​121,​4
2080 REM MEASURE 13
2090 DATA 50,​4,​96,​8,​192,​6,​0,​0
2100 DATA 0,​0,​96,​8,​192,​6,​0,​0
2110 DATA 1,​4,​96,​8,​0,​0,​0,​0
2120 DATA 1,​0,​96,​8,​192,​6,​0,​0
2130 DATA 50,​4,​96,​8,​192,​0,​0,​0
2140 DATA 50,​0,​96,​8,​192,​6,​0,​0
2150 DATA 1,​4,​96,​8,​0,​0,​0,​0
2160 DATA 1,​0,​96,​8,​0,​0,​0,​0
2170 REM MEASURE 14
2180 DATA 50,​4,​96,​8,​192,​6,​76,​4
2190 DATA 0,​0,​96,​8,​192,​6,​76,​4
2200 DATA 1,​4,​96,​8,​0,​0,​76,​4
2210 DATA 1,​0,​96,​8,​192,​6,​76,​4
2220 DATA 50,​4,​96,​8,​192,​0,​76,​4
2230 DATA 50,​0,​96,​8,​192,​6,​76,​4
2240 DATA 1,​4,​96,​8,​0,​0,​76,​4
2250 DATA 1,​0,​96,​8,​0,​0,​76,​4
2260 REM MEASURE 15
2270 DATA 50,​4,​76,​8,​192,​6,​64,​4
2280 DATA 0,​0,​76,​8,​192,​6,​64,​4
2290 DATA 1,​4,​76,​8,​0,​0,​64,​4
2300 DATA 1,​0,​76,​8,​192,​6,​64,​4
2310 DATA 50,​4,​76,​8,​192,​0,​64,​4
2320 DATA 50,​0,​76,​8,​192,​6,​64,​4
2330 DATA 1,​4,​76,​8,​0,​0,​64,​4
2340 DATA 1,​0,​76,​8,​0,​0,​64,​4
2350 REM MEASURE 16
2360 DATA 50,​4,​64,​8,​192,​6,​53,​4
2370 DATA 0,​0,​64,​8,​192,​6,​53,​4
2380 DATA 1,​4,​64,​8,​0,​0,​53,​4
2390 DATA 1,​0,​64,​8,​192,​6,​53,​4
2400 DATA 50,​4,​64,​8,​192,​0,​53,​4
2410 DATA 50,​0,​64,​8,​192,​6,​53,​4
2420 DATA 1,​4,​64,​8,​0,​0,​53,​4
2430 DATA 1,​0,​64,​8,​0,​0,​53,​4
2440 REM MEASURE 17
2450 DATA 50,​4,​53,​8,​192,​6,​45,​4
2460 DATA 0,​0,​53,​8,​192,​6,​45,​4
2470 DATA 1,​4,​53,​8,​0,​0,​45,​4
2480 DATA 1,​0,​53,​8,​192,​6,​45,​4
2490 DATA 50,​4,​53,​8,​192,​0,​45,​4
2500 DATA 50,​0,​53,​8,​192,​6,​45,​4
2510 DATA 1,​4,​53,​8,​0,​0,​45,​4
2520 DATA 1,​0,​53,​8,​0,​0,​45,​4
2530 REM MEASURE 18
2540 DATA 50,​4,​53,​8,​192,​6,​45,​4
2550 DATA 0,​0,​53,​8,​192,​6,​45,​4
2560 DATA 1,​4,​53,​8,​0,​0,​45,​4
2570 DATA 1,​0,​53,​8,​192,​6,​45,​4
2580 DATA 50,​4,​53,​8,​192,​0,​45,​4
2590 DATA 50,​0,​53,​8,​192,​6,​45,​4
2600 DATA 1,​4,​53,​8,​0,​0,​45,​4
2610 DATA 1,​0,​53,​8,​0,​0,​45,​4	

This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page, please contact me immediatelly so I can remove it!