MadTracker.org
Forum - I went oldschool
Log in Log in Profile Profile Search Memberlist Usergroups FAQ FAQ
 Forum
General discussion
 I went oldschool
Reply to topic Post new topic  
Deepsleeper
Registered User


Joined: 03 Jul 2007
PostPosted: Wed Feb 24 2010 23:41    
I went oldschool
Reply with quote

I am doing this fun project at the moment, Since my father is not familiar with music making, but more familiar with programing in old Comal 80 code, we decided to make a sequenser that uses the same qwerty keyboard for typing in the notes, that might help him understand and maybe madtracker will not be so unfamiliar to him. i will post the code here when it is finnished and where to find the comal 80 emulator.

Greetings deepsleeper
 Back to top
View user's journal Send private message
Martin
Registered User


Joined: 05 May 2003
Location: Norway
PostPosted: Fri Feb 26 2010 11:12    
Reply with quote

Cool Cool!


~ http://martin.madtracker.net ~
 Back to top
View user's journal Send private message Visit poster's website
Deepsleeper
Registered User


Joined: 03 Jul 2007
PostPosted: Mon Mar 01 2010 23:57    
Reply with quote

Things are going smooth, i get to programing a lot, a lot of pokes, a lot of if labels, finnished the first 8 step sequenser and is developing it. It took some time, but it was defenetly fun, it is only in sine, but when i finnish it all, there will be 4 different 4,6,8,12,16,24,32,48 and 64 step sequencers if possible. and all can be chosen from the sub menu. 4 different : Sine, Saw, Pulse and rythm. And it will also be available as playable tunes directly on the keyboard. Am even planning on a fifth sequencer that mixes 3 sounds in one. But check out my 8 step sine sequenser here.

First DL The Emulator Vice
http://www.emulator-zone.com/doc.php/computer/vice.html

Then DL the Comal 80 Cartridge image
http://roms.zophar.net/commodore-64/applications/crt/comal-80-1985-commodore-.crt

unpack the Vice emulator and start the icon called x64
in "files" attach catridge image and chose the comal 80 cart

Copy the text in the next post and paste it into the emulator (Yes you couldn't do that back in the days)

if succes type RUN and press enter
 Back to top
View user's journal Send private message
Deepsleeper
Registered User


Joined: 03 Jul 2007
PostPosted: Tue Mar 02 2010 00:13    
Reply with quote

0010 //8 step sequenser by Deepsleeper
0020 PRINT CHR$(147)
0030 INPUT AT 14,6: "indtast en tone - " : i$
0040 INPUT AT 15,6: "indtast en tone - ": up$
0050 INPUT AT 16,6: "indtast en tone - ": u$
0060 INPUT AT 17,6: "indtast en tone - ": yp$
0070 INPUT AT 18,6: "indtast en tone - ": y$
0080 INPUT AT 19,6: "indtast en tone - ": tp$
0090 INPUT AT 20,6: "indtast en tone - ": t$
0100 INPUT AT 21,6: "indtast en tone - ": rp$
0109 valg:
0110 IF i$="z" THEN c
0120 IF i$="s" THEN cp
0130 IF i$="x" THEN d
0140 IF i$="d" THEN dp
0150 IF i$="c" THEN e
0160 IF i$="v" THEN f
0170 IF i$="g" THEN fp
0180 IF i$="b" THEN g
0190 IF i$="h" THEN gp
0200 IF i$="n" THEN a
0210 IF i$="j" THEN ap
0220 IF i$="m" THEN b
0230 IF i$="q" THEN c2
0240 IF i$="2" THEN cp2
0250 IF i$="w" THEN d2
0260 IF i$="3" THEN dp2
0270 IF i$="e" THEN e2
0280 IF i$="r" THEN f2
0290 IF i$="5" THEN fp2
0300 IF i$="t" THEN g2
0310 IF i$="6" THEN gp2
0320 IF i$="y" THEN a2
0330 IF i$="7" THEN ap2
0340 IF i$="u" THEN b2
0350 IF i$="i" THEN c3
0360 IF i$="" THEN o
0370 IF i$="p" THEN p
0380 IF up$="z" THEN c
0390 IF up$="s" THEN cp
0400 IF up$="x" THEN d
0410 IF up$="d" THEN dp
0420 IF up$="c" THEN e
0430 IF up$="v" THEN f
0440 IF up$="g" THEN fp
0450 IF up$="b" THEN g
0460 IF up$="h" THEN gp
0470 IF up$="n" THEN a
0480 IF up$="j" THEN ap
0490 IF up$="m" THEN b
0500 IF up$="q" THEN c2
0510 IF up$="2" THEN cp2
0520 IF up$="w" THEN d2
0530 IF up$="3" THEN dp2
0540 IF up$="e" THEN e2
0550 IF up$="r" THEN f2
0560 IF up$="5" THEN fp2
0570 IF up$="t" THEN g2
0580 IF up$="6" THEN gp2
0590 IF up$="y" THEN a2
0600 IF up$="7" THEN ap2
0610 IF up$="u" THEN b2
0620 IF up$="i" THEN c3
0630 IF up$="" THEN o
0640 IF up$="p" THEN p
0650 IF u$="z" THEN c
0660 IF u$="s" THEN cp
0670 IF u$="x" THEN d
0680 IF u$="d" THEN dp
0690 IF u$="c" THEN e
0700 IF u$="v" THEN f
0710 IF u$="g" THEN fp
0720 IF u$="b" THEN g
0730 IF u$="h" THEN gp
0740 IF u$="n" THEN a
0750 IF u$="j" THEN ap
0760 IF u$="m" THEN b
0770 IF u$="q" THEN c2
0780 IF u$="2" THEN cp2
0790 IF u$="w" THEN d2
0800 IF u$="3" THEN dp2
0810 IF u$="e" THEN e2
0820 IF u$="r" THEN f2
0830 IF u$="5" THEN fp2
0840 IF u$="t" THEN g2
0850 IF u$="6" THEN gp2
0860 IF u$="y" THEN a2
0870 IF u$="7" THEN ap2
0880 IF u$="u" THEN b2
0890 IF u$="i" THEN c3
0900 IF u$="" THEN o
0910 IF u$="p" THEN p
0970 IF yp$="z" THEN c
0980 IF yp$="s" THEN cp
0990 IF yp$="x" THEN d
1000 IF yp$="d" THEN dp
1010 IF yp$="c" THEN e
1020 IF yp$="v" THEN f
1030 IF yp$="g" THEN fp
1040 IF yp$="b" THEN g
1050 IF yp$="h" THEN gp
1060 IF yp$="n" THEN a
1070 IF yp$="j" THEN ap
1080 IF yp$="m" THEN b
1090 IF yp$="q" THEN c2
1100 IF yp$="2" THEN cp2
1110 IF yp$="w" THEN d2
1120 IF yp$="3" THEN dp2
1130 IF yp$="e" THEN e2
1140 IF yp$="r" THEN f2
1150 IF yp$="5" THEN fp2
1160 IF yp$="t" THEN g2
1170 IF yp$="6" THEN gp2
1180 IF yp$="y" THEN a2
1190 IF yp$="7" THEN ap2
1200 IF yp$="u" THEN b2
1210 IF yp$="i" THEN c3
1220 IF yp$="" THEN o
1230 IF yp$="p" THEN p
1270 IF y$="z" THEN c
1280 IF y$="s" THEN cp
1290 IF y$="x" THEN d
1300 IF y$="d" THEN dp
1310 IF y$="c" THEN e
1320 IF y$="v" THEN f
1330 IF y$="g" THEN fp
1340 IF y$="b" THEN g
1350 IF y$="h" THEN gp
1360 IF y$="n" THEN a
1370 IF y$="j" THEN ap
1380 IF y$="m" THEN b
1390 IF y$="q" THEN c2
1400 IF y$="2" THEN cp2
1410 IF y$="w" THEN d2
1420 IF y$="3" THEN dp2
1430 IF y$="e" THEN e2
1440 IF y$="r" THEN f2
1450 IF y$="5" THEN fp2
1460 IF y$="t" THEN g2
1470 IF y$="6" THEN gp2
1480 IF y$="y" THEN a2
1490 IF y$="7" THEN ap2
1500 IF y$="u" THEN b2
1510 IF y$="i" THEN c3
1520 IF y$="" THEN o
1530 IF y$="p" THEN p
1570 IF tp$="z" THEN c
1580 IF tp$="s" THEN cp
1590 IF tp$="x" THEN d
1600 IF tp$="d" THEN dp
1610 IF tp$="c" THEN e
1620 IF tp$="v" THEN f
1630 IF tp$="g" THEN fp
1640 IF tp$="b" THEN g
1650 IF tp$="h" THEN gp
1660 IF tp$="n" THEN a
1670 IF tp$="j" THEN ap
1680 IF tp$="m" THEN b
1690 IF tp$="q" THEN c2
1700 IF tp$="2" THEN cp2
1710 IF tp$="w" THEN d2
1720 IF tp$="3" THEN dp2
1730 IF tp$="e" THEN e2
1740 IF tp$="r" THEN f2
1750 IF tp$="5" THEN fp2
1760 IF tp$="t" THEN g2
1770 IF tp$="6" THEN gp2
1780 IF tp$="y" THEN a2
1790 IF tp$="7" THEN ap2
1800 IF tp$="u" THEN b2
1810 IF tp$="i" THEN c3
1820 IF tp$="" THEN o
1830 IF tp$="p" THEN p
1870 IF t$="z" THEN c
1880 IF t$="s" THEN cp
1890 IF t$="x" THEN d
1900 IF t$="d" THEN dp
1910 IF t$="c" THEN e
1920 IF t$="v" THEN f
1930 IF t$="g" THEN fp
1940 IF t$="b" THEN g
1950 IF t$="h" THEN gp
1960 IF t$="n" THEN a
1970 IF t$="j" THEN ap
1980 IF t$="m" THEN b
1990 IF t$="q" THEN c2
2000 IF t$="2" THEN cp2
2010 IF t$="w" THEN d2
2020 IF t$="3" THEN dp2
2030 IF t$="e" THEN e2
2040 IF t$="r" THEN f2
2050 IF t$="5" THEN fp2
2060 IF t$="t" THEN g2
2070 IF t$="6" THEN gp2
2080 IF t$="y" THEN a2
2090 IF t$="7" THEN ap2
2100 IF t$="u" THEN b2
2110 IF t$="i" THEN c3
2120 IF t$="" THEN o
2130 IF t$="p" THEN p
2170 IF rp$="z" THEN c
2180 IF rp$="s" THEN cp
2190 IF rp$="x" THEN d
2200 IF rp$="d" THEN dp
2210 IF rp$="c" THEN e
2220 IF rp$="v" THEN f
2230 IF rp$="g" THEN fp
2240 IF rp$="b" THEN g
2250 IF rp$="h" THEN gp
2260 IF rp$="n" THEN a
2270 IF rp$="j" THEN ap
2280 IF rp$="m" THEN b
2290 IF rp$="q" THEN c2
2300 IF rp$="2" THEN cp2
2310 IF rp$="w" THEN d2
2320 IF rp$="3" THEN dp2
2330 IF rp$="e" THEN e2
2340 IF rp$="r" THEN f2
2350 IF rp$="5" THEN fp2
2360 IF rp$="t" THEN g2
2370 IF rp$="6" THEN gp2
2380 IF rp$="y" THEN a2
2390 IF rp$="7" THEN ap2
2400 IF rp$="u" THEN b2
2410 IF rp$="i" THEN c3
2420 IF rp$="" THEN o
2430 IF rp$="p" THEN p
2479 GOTO valg
2480 slut
2490 PROC o
2500 FOR v:=1 TO 250 DO
2510 ENDFOR v
2520 ENDPROC o
2530 PROC p
2540 POKE 54276,17
2550 POKE 54276,16
2560 FOR v:=1 TO 250 DO
2570 ENDFOR v
2580 ENDPROC p
2590 PROC c
2600 RESTORE
2610 POKE 54276,16
2620 POKE 54276,17
2630 POKE 54296,15
2640 POKE 54277,1
2650 POKE 54278,248
2660 POKE 54273,17
2670 POKE 54272,190
2680 FOR t:=1 TO 250 DO
2690 ENDFOR t
2700 //POKE 54276,16
2710 ENDPROC c
2720 PROC cp
2730 RESTORE
2740 POKE 54276,16
2750 POKE 54276,17
2760 POKE 54296,15
2770 POKE 54277,1
2780 POKE 54278,248
2790 POKE 54273,18
2800 POKE 54272,205
2810 FOR t:=1 TO 250 DO
2820 ENDFOR t
2830 //POKE 54276,16
2840 ENDPROC cp
2850 PROC d
2860 POKE 54276,16
2870 POKE 54276,17
2880 POKE 54296,15
2890 POKE 54277,1
2900 POKE 54278,248
2910 POKE 54273,19
2920 POKE 54272,230
2930 FOR t:=1 TO 250 DO
2940 ENDFOR t
2950 //POKE 54276,16
2960 ENDPROC d
2970 PROC slut
2980 POKE 54276,16
2990 ENDPROC slut
3000 PROC dp
3010 POKE 54276,16
3020 POKE 54276,17
3030 POKE 54296,15
3040 POKE 54277,1
3050 POKE 54278,248
3060 POKE 54273,21
3070 POKE 54272,30
3080 FOR t:=1 TO 250 DO
3090 ENDFOR t
3100 ENDPROC dp
3110 PROC e
3120 POKE 54276,16
3130 POKE 54276,17
3140 POKE 54296,15
3150 POKE 54277,1
3160 POKE 54278,248
3170 POKE 54273,22
3180 POKE 54272,90
3190 FOR t:=1 TO 250 DO
3200 ENDFOR t
3210 ENDPROC e
3220 PROC f
3230 POKE 54276,16
3240 POKE 54276,17
3250 POKE 54296,15
3260 POKE 54277,1
3270 POKE 54278,248
3280 POKE 54273,23
3290 POKE 54272,170
3300 FOR t:=1 TO 250 DO
3310 ENDFOR t
3320 ENDPROC f
3330 PROC fp
3340 POKE 54276,16
3350 POKE 54276,17
3360 POKE 54296,15
3370 POKE 54277,1
3380 POKE 54278,248
3390 POKE 54273,25
3400 POKE 54272,40
3410 FOR t:=1 TO 250 DO
3420 ENDFOR t
3430 ENDPROC fp
3440 PROC g
3450 POKE 54276,16
3460 POKE 54276,17
3470 POKE 54296,15
3480 POKE 54277,1
3490 POKE 54278,248
3500 POKE 54273,26
3510 POKE 54272,145
3520 FOR t:=1 TO 250 DO
3530 ENDFOR t
3540 ENDPROC g
3550 PROC gp
3560 POKE 54276,16
3570 POKE 54276,17
3580 POKE 54296,15
3590 POKE 54277,1
3600 POKE 54278,248
3610 POKE 54273,28
3620 POKE 54272,30
3630 FOR t:=1 TO 250 DO
3640 ENDFOR t
3650 ENDPROC gp
3660 PROC a
3670 POKE 54276,16
3680 POKE 54276,17
3690 POKE 54296,15
3700 POKE 54277,1
3710 POKE 54278,248
3720 POKE 54273,29
3730 POKE 54272,205
3740 FOR t:=1 TO 250 DO
3750 ENDFOR t
3760 ENDPROC a
3770 PROC ap
3780 POKE 54276,16
3790 POKE 54276,17
3800 POKE 54296,15
3810 POKE 54277,1
3820 POKE 54278,248
3830 POKE 54273,31
3840 POKE 54272,175
3850 FOR t:=1 TO 250 DO
3860 ENDFOR t
3870 ENDPROC ap
3880 PROC b
3890 POKE 54276,16
3900 POKE 54276,17
3910 POKE 54296,15
3920 POKE 54277,1
3930 POKE 54278,248
3940 POKE 54273,33
3950 POKE 54272,125
3960 FOR t:=1 TO 250 DO
3970 ENDFOR t
3980 ENDPROC b
3990 PROC c2
4000 POKE 54276,16
4010 POKE 54276,17
4020 POKE 54296,15
4030 POKE 54277,1
4040 POKE 54278,248
4050 POKE 54273,35
4060 POKE 54272,130
4070 FOR t:=1 TO 250 DO
4080 ENDFOR t
4090 ENDPROC c2
4100 PROC cp2
4110 POKE 54276,16
4120 POKE 54276,17
4130 POKE 54296,15
4140 POKE 54277,1
4150 POKE 54278,248
4160 POKE 54273,37
4170 POKE 54272,140
4180 FOR t:=1 TO 250 DO
4190 ENDFOR t
4200 ENDPROC cp2
4210 PROC d2
4220 POKE 54276,16
4230 POKE 54276,17
4240 POKE 54296,15
4250 POKE 54277,1
4260 POKE 54278,248
4270 POKE 54273,39
4280 POKE 54272,205
4290 FOR t:=1 TO 250 DO
4300 ENDFOR t
4310 ENDPROC d2
4320 PROC dp2
4330 POKE 54276,16
4340 POKE 54276,17
4350 POKE 54296,15
4360 POKE 54277,1
4370 POKE 54278,248
4380 POKE 54273,42
4390 POKE 54272,50
4400 FOR t:=1 TO 250 DO
4410 ENDFOR t
4420 ENDPROC dp2
4430 PROC e2
4440 POKE 54276,16
4450 POKE 54276,17
4460 POKE 54296,15
4470 POKE 54277,1
4480 POKE 54278,248
4490 POKE 54273,44
4500 POKE 54272,180
4510 FOR t:=1 TO 250 DO
4520 ENDFOR t
4530 ENDPROC e2
4540 PROC f2
4550 POKE 54276,16
4560 POKE 54276,17
4570 POKE 54296,15
4580 POKE 54277,1
4590 POKE 54278,248
4600 POKE 54273,47
4610 POKE 54272,100
4620 FOR t:=1 TO 250 DO
4630 ENDFOR t
4640 ENDPROC f2
4650 PROC fp2
4660 POKE 54276,16
4670 POKE 54276,17
4680 POKE 54296,15
4690 POKE 54277,1
4700 POKE 54278,248
4710 POKE 54273,50
4720 POKE 54272,60
4730 FOR t:=1 TO 250 DO
4740 ENDFOR t
4750 ENDPROC fp2
4760 PROC g2
4770 POKE 54276,16
4780 POKE 54276,17
4790 POKE 54296,15
4800 POKE 54277,1
4810 POKE 54278,248
4820 POKE 54273,53
4830 POKE 54272,30
4840 FOR t:=1 TO 250 DO
4850 ENDFOR t
4860 ENDPROC g2
4870 PROC gp2
4880 POKE 54276,16
4890 POKE 54276,17
4900 POKE 54296,15
4910 POKE 54277,1
4920 POKE 54278,248
4930 POKE 54273,56
4940 POKE 54272,90
4950 FOR t:=1 TO 250 DO
4960 ENDFOR t
4970 ENDPROC gp2
4980 PROC a2
4990 POKE 54276,16
5000 POKE 54276,17
5010 POKE 54296,15
5020 POKE 54277,1
5030 POKE 54278,248
5040 POKE 54273,59
5050 POKE 54272,200
5060 FOR t:=1 TO 250 DO
5070 ENDFOR t
5080 ENDPROC a2
5090 PROC ap2
5100 POKE 54276,16
5110 POKE 54276,17
5120 POKE 54296,15
5130 POKE 54277,1
5140 POKE 54278,248
5150 POKE 54273,63
5160 POKE 54272,50
5170 FOR t:=1 TO 250 DO
5180 ENDFOR t
5190 ENDPROC ap2
5200 PROC b2
5210 POKE 54276,16
5220 POKE 54276,17
5230 POKE 54296,15
5240 POKE 54277,1
5250 POKE 54278,248
5260 POKE 54273,67
5270 POKE 54272,1
5280 FOR t:=1 TO 250 DO
5290 ENDFOR t
5300 ENDPROC b2
5310 PROC c3
5320 POKE 54276,16
5330 POKE 54276,17
5340 POKE 54296,15
5350 POKE 54277,1
5360 POKE 54278,248
5370 POKE 54273,71
5380 POKE 54272,1
5390 FOR t:=1 TO 250 DO
5400 ENDFOR t
5410 ENDPROC c3
 Back to top
View user's journal Send private message
Martin
Registered User


Joined: 05 May 2003
Location: Norway
PostPosted: Tue Mar 02 2010 15:07    
Reply with quote

hmm, seems like you need a couple of poke 53281,x before you sys 64738.

Wink


~ http://martin.madtracker.net ~
 Back to top
View user's journal Send private message Visit poster's website
Deepsleeper
Registered User


Joined: 03 Jul 2007
PostPosted: Tue Mar 02 2010 23:04    
Reply with quote

he he... I definetly need to shorten down those if labels so there will be not as many sentences.
 Back to top
View user's journal Send private message
Axlzero451
User


Joined: 13 Nov 2007
Location: Portland, OR
PostPosted: Thu Sep 23 2010 05:08    
Reply with quote

Wow. That is oldschool. I tried to make a music program on my commodore 64 with BASIC, but I couldn't wrap my brain around all those POKEs.
 Back to top
View user's journal Send private message
Reply to topic Post new topic  
Display posts from previous:   
Page 1 of 1 All times are GMT + 1 Hour


Powered by phpBB © phpBB Group

Copyright © 1998-2005 Yannick Delwiche
All rights reserved