Monday, April 23, 2012

Our MSX-BASIC stuff

In this section you will find two new little programs coded in MSX-BASIC for your hungry MSX emulator.
Oops! You don't have an emulator? Try the BlueMSX!

>>> PROGRAM NUMBER ONE: 3DNIGHTCITYDESIGNER <<<

Here is the first program; a 3D night city designer created in only 10 lines of code.

It's original, easy and free. Use this fast tool and your creativity to draw a complete beautiful night city. Start from a single white dot and fill the screen using your keyboard or joystick. You can obtain images like these:



















Download the zips and extract all main files and manuals. Choose your preferred emulated format:

ROM CARTRIGDE: 3dnightcitydesigner_rom.zip
DISKETTE: 3dnightcitydesigner_dsk.zip
CASSETTE: 3dnightcitydesigner_cas.zip

Ah! You can also copy and write the program to your real MSX computer (if you have one). It's very short. Here is the complete MSX-BASIC code of it:

10 DEFINTA-Z:COLOR 15,1,1:SCREEN2,,0:C=200:X=100:Y=100:PLAY"V8T255O8L8CL8FL8B"
20 A=STICK(0)+STICK(1)+STICK(2):B=STRIG(0)+STRIG(1)+STRIG(2)
30 IFA=1THENC=C+3:IFD<60THENC=C-3
40 IFA=3THENX=X+3:IFE>250THENX=X-3
50 IFA=5THENC=C-3:IFD>189THENC=C+3
60 IFA=5ANDE>250THENC=C+3
70 IFA=7THENX=X-3:IFE<4THENX=X+3
80 E=X*256/C:D=Y*256/C:PSET(E,D),15:IFB<>0THENLINE(E,D)-(E,D-2),4
90 IFINKEY$="0"THENRUN
100 GOTO20
110 '
120 ' 3dnightcitydesigner
130 ' created by senglar
140 ' (c) troll soft
150 ' the msx is still alive in 2011
160 ' http://www.trollsoftmsx.blogspot.com
170 '

>>> PROGRAM NUMBER TWO: AUTOMATICSOUNDSDJ <<<

Here is the second program; a powerful generator of mechanical sounds created in only 9 lines of code.

It's original, easy and free. Become an industrial DJ using your keyboard or joystick. Start it and make some noise! Pump up the volume! In this program there is a lot to hear but not much to see. Here you can find two images > one from the program running and the other from the code (list) of it. See them:



















Download the zips and extract all main files and manuals. Choose your preferred emulated format:

ROM CARTRIGDE: automaticsoundsdj_rom.zip
DISKETTE: automaticsoundsdj_dsk.zip
CASSETTE: automaticsoundsdj_cas.zip

Ah! You can also copy and write the program to your real MSX computer (if you have one). It's very short. Here is the complete MSX-BASIC code of it:

10 COLOR15,4,4:SCREEN0,,0:KEYOFF
20 PRINT"make some noise!"
30 J=STICK(0)+STICK(1)+STICK(2)
40 IFJ=0THENSOUND9,0:SOUND2,0:SOUND3,0
50 IFJ=1THENFORB=4TO16STEP.7:FORA=20TO40STEPB:SOUND9,11:SOUND2,40:SOUND3,A:NEXTA:NEXTB
60 IFJ=3THENFORB=6TO26STEP.6:FORA=40TO90STEPB:SOUND9,11:SOUND2,40:SOUND3,A:NEXTA:NEXTB
70 IFJ=5THENFORA=20TO60:SOUND9,11:SOUND2,A:SOUND3,A+20:NEXTA
80 IFJ=7THENFORB=4TO16STEP.7:FORA=20TO60STEPB:SOUND9,11:SOUND2,40:SOUND3,A:NEXTA:NEXTB
90 GOTO30
100 '
110 ' automaticsoundsdj
120 ' created by senglar
130 ' (c) troll soft
140 ' the msx is still alive in 2012
150 ' http://www.trollsoftmsx.blogspot.com
160 '


No comments:

Post a Comment