@nataliapc/mcp-openmsx 1.1.15 → 1.2.3

package/resources/programming/basic_wiki/PAD().md

@@ -0,0 +1,110 @@
+# PAD()
+
+## Effect
+
+Returns several infos about different input devices: graphic tablet or touchpad, light pen, mouse or trackball.  With exception of the light pen that has its specific connector, all the mentioned devices can be connected to a joystick port.
+
+_Notes:_
+- infos about light pen are only available on MSX2 and MSX2+ (the support has been removed on MSX turbo R).
+- infos about mouse or trackball are only available on MSX2 and higher.
+- the button state of the mouse must be retrieved with the STRIG() instruction
+ check also the following pages for more info: Touchpad, Light pen, Mouse/Trackball.
+
+## Syntax
+
+`PAD(<Number>)`
+
+## Parameter
+
+`<Number>` is a value:
+- between 0 and 7 on MSX1 computers.
+- between 0 and 19 on most MSX2 computers, all MSX2+ and MSX turbo R machines.
+- between 0 and  23 on MSX2 computers manufactured by Daewoo (+ probably Sanyo MPC-X and Sanyo MPC-27).
+
+You must always check the state of the graphic tablet, touchpad or light pen before trying to get the coordinates. Besides, the internal lightpen interface, present in some MSX2 computers, needs first to be enabled with `CALL ADJUST`. Another preliminary step is required for the mouse or the trackball.
+
+|Number|Device|Joystick port|Returned info|
+|:-:|---|:-:|---|
+|0|Graphic Tablet / Touchpad|1|State of the device: -1 if the device is touched and 0 if not|
+|1|´´|1|X-coordinate|
+|2|´´|1|Y-coordinate|
+|3|´´|1|State of the button: -1 if the button is pressed and 0 if not|
+|4|´´|2|State of the device: -1 if the device is touched and 0 if not|
+|5|´´|2|X-coordinate|
+|6|´´|2|Y-coordinate|
+|7|´´|2|State of the button: -1 if the button is pressed and 0 if not|
+|8|Light Pen (external or built-in MSX1 interface)|-|State of the light pen: -1 if the light pen is ready and 0 if not (always 0 on MSX Turbo R)|
+|9|´´|-|X-coordinate (always 0 on MSX Turbo R)|
+|10|´´|-|Y-coordinate (always 0 on MSX Turbo R)|
+|11|´´|-|State of the button: -1 if the button is pressed and 0 if not (always 0 on MSX Turbo R)|
+|12|Mouse / Trackball|1|The X/Y-offset of the device is retrieved and can be queried by using `PAD(13)` and `PAD(14)`. The returned value of `PAD(12)` is always -1.|
+|13|´´|1|X-offset (-128 to +127)|
+|14|´´|1|Y-offset (-128 to +127)|
+|15|´´|1|Always 0 (is reserved for mouse/trackball in joystick port 1, but has never been used)|
+|16|´´|2|The X/Y-offset of the device is retrieved and can be queried by using `PAD(17)` and `PAD(18)`. The returned value of `PAD(16)` is always -1.|
+|17|´´|2|X-offset (-128 to +127)|
+|18|´´|2|Y-offset (-128 to +127)|
+|19|´´|2|Always 0 (is reserved for mouse/trackball in joystick port 2, but has never been used)|
+|20|Light Pen (internal MSX2 interface)<sup>(*)</sup>|1|State of the light pen: -1 if the light pen is ready and 0 if not|
+|21|´´|1|X-coordinate|
+|22|´´|1|Y-coordinate|
+|23|´´|1|State of the button: -1 if the button is pressed and 0 if not|
+
+<sup>(\*)</sup> Only with MSX2 computers manufactured by Daewoo:
+- AVT CPC-300
+- Bawareth Perfect MSX2
+- Daewoo CPC-300
+- Daewoo CPC-400
+- Daewoo CPC-400S
+- Talent DPC-300
+- Wandy CPC-300
+
+Maybe also with the Sanyo MPC-X Graphic Expander Unit and the Sanyo MPC-27 computer.
+
+## Examples
+
+```basic
+10 SCREEN 2
+20 A=0
+30 IF PAD(0)=0 THEN 20
+40 X=PAD(1):Y=PAD(2)
+50 IF A=0 THEN PSET(X,Y) ELSE LINE-(X,Y)
+60 A=1
+70 GOTO 30
+```
+```basic
+10 SCREEN 1
+20 LOCATE 2, 4 : PRINT "MOUSE ON PORT 1: "; PAD(12);
+30 LOCATE 2, 5 : PRINT "MOUSE 1 X: "; PAD(13); 
+40 LOCATE 2, 6 : PRINT "MOUSE 1 Y: "; PAD(14);
+50 LOCATE 2, 8 : PRINT "MOUSE ON PORT 2: "; PAD(16);
+60 LOCATE 2, 9 : PRINT "MOUSE 2 X: "; PAD(17); 
+70 LOCATE 2, 10 : PRINT "MOUSE 2 Y: "; PAD(18);
+80 LOCATE 2, 12 : PRINT "MOUSE 1 BUTTON ";
+90 IF STRIG(1) <> 0 THEN PRINT "PRESSED " ELSE PRINT "RELEASED"
+100 IF STRIG(0) <> 0 THEN END
+110 GOTO 20
+```
+```basic
+10 SCREEN 1
+20 A$=STRING$(8,255)
+30 SPRITE$(0) = A$
+40 PUT SPRITE 0,(100, 100),15,0
+50 IF PAD(12) <> 0 THEN PUT SPRITE 0, STEP(PAD(13), PAD(14))
+60 LOCATE 5, 12 : PRINT "MOUSE BUTTON ";
+70 IF STRIG(1) <> 0 THEN PRINT "PRESSED " ELSE PRINT "RELEASED"
+80 IF STRIG(0) <> 0 THEN END
+90 GOTO 50
+```
+
+## Related to
+
+`CALL ADJUST`, `INKEY$`, `PDL()`, `STICK()`, `STRIG()`
+
+## Compatibility
+
+MSX-BASIC 1.0 or higher
+
+## Source
+
+Retrieved from "https://www.msx.org/wiki/PAD()"

package/resources/programming/basic_wiki/PAINT.md

@@ -0,0 +1,66 @@
+# PAINT
+
+## Effect
+
+Fills the zone of a drawing in graphic screen (2 to 8, 10 to 12) with the specified color.
+
+## Syntax
+
+`PAINT STEP(<X>,<Y>),<FillingColor>,<BorderColor>`
+
+_Note: Parameters can not end with a comma alone._
+
+## Parameters
+
+`<X>` is coordinate X (0-255/511) of the starting point to paint a zone of the drawing.
+
+`<Y>` is coordinate Y (0-191/211) of the starting point to paint a zone of the drawing.
+
+Coordinates cannot be omitted.
+
+If `STEP` is used before these starting coordinates, they are interpreted relative to the current cursor position. In this case the values can also be negative.
+
+`<FillingColor>` is the color to be used for painting a zone of the drawing. If `<FillingColor>` is not specified the current foreground color is used.
+
+`<BorderColor>` is the color to be used as limit of the zone to paint. If `<BorderColor>` is not specified the current draw color is used. If the border line is not fully uninterrupted, the entire screen will be painted. It implies that it is recommended to specify a `<BorderColor>` corresponding to the border line of the zone to paint.
+
+Both colors can receive different values according the used screen: 0 to 15 (screens 2 to 5, 7 and 10), 0 to 3 (screen 6), 0 to 255 (screens 8, 11, and 12). However, in screens 2 and 4, `<FillingColor>`  needs to be the same color as the border line of the part to paint; in this case, you can omit the `<BorderColor>`.
+
+## Examples
+
+```basic
+10 COLOR 15,4,7:SCREEN 2
+20 CIRCLE (80,80),20,8
+30 PAINT (80,80),8
+40 GOTO 40
+```
+```basic
+10 COLOR 15,4,7:SCREEN 3
+20 LINE (10,10)-(100,100),8,B
+30 PAINT (45,45),2,8
+40 GOTO 40
+```
+```basic
+10 COLOR 15,4,7:SCREEN 7
+20 CIRCLE (100,100),40,8
+30 PAINT (100,100),2,8
+40 GOTO 40
+```
+```basic
+10 SCREEN 8:COLOR 30,60,90
+20 CIRCLE (100,100),100,150
+30 PAINT (100,100),56,150
+40 GOTO 40
+```
+
+## Related to
+
+`CIRCLE`, `COLOR`, `DRAW`, `LINE`, `PRESET`, `PSET`, `SCREEN`
+
+## Compatibility
+
+MSX-BASIC 1.0 or higher
+
+## Source
+
+Retrieved from "https://www.msx.org/wiki/PAINT"

package/resources/programming/basic_wiki/PDL().md

@@ -0,0 +1,53 @@
+# PDL()
+
+## Effect
+
+Returns the position of asked paddle, connected to a joystick port. The returned position value can vary between 0 and 255.
+
+_Notes:_
+- Paddle controllers support is removed on MSX turbo R and these devices are unused on MSXPLAYer.
+- See also MSX Paddle Controller for more information.
+
+## Syntax
+
+`PDL(<PaddleNumber>)`
+
+## Parameter
+
+`<PaddleNumber>` is a value between 1 and 12 to select the paddle controller to read. 
+
+|Paddle controller number|Used general port|
+|:--|:-:|
+|1, 3, 5, 7, 9 or 11|1|
+|2, 4, 6, 8, 10 or 12|2|
+
+## Example
+
+```basic
+5 ' Sample program to use Paddle controllers 1 & 2 in port 1 & 2  
+10 COLOR 15,1,1:SCREEN2,2
+20 SPRITE$(0)=STRING$(6,CHR$(255))+STRING$(10,CHR$(0))+STRING$(6,CHR$(255))+STRING$(10,CHR$(0))
+30 SPRITE$(1)=STRING$(16,CHR$(252))+STRING$(16,CHR$(0))
+40 LINE(0,0)-(37,5),15,BF: LINE(218,0)-(255,5),15,BF
+50 LINE(0,186)-(37,191),15,BF: LINE(218,186)-(255,191),15,BF
+60 X=PDL(1):X2=PDL(3):Y=PDL(2):Y2=PDL(4)
+70 IF X>162 THEN X=162
+80 IF X2>162 THEN X2=162
+90 IF Y>162 THEN Y=162
+100 IF Y2>162 THEN Y2=162
+110 PUTSPRITE 0,(X+39,-1): PUTSPRITE 2,(X2+39,185),,0
+120 PUTSPRITE 1,(0,Y+6): PUTSPRITE 3,(250,Y2+6),,1
+130 GOTO 60
+```
+
+## Related to
+
+`INKEY$`, `PAD()`, `STICK()`, `STRIG()`
+
+## Compatibility
+
+MSX-BASIC 1.0 or higher
+
+## Source
+
+Retrieved from "https://www.msx.org/wiki/PDL()"

package/resources/programming/basic_wiki/PEEK().md

@@ -0,0 +1,44 @@
+# PEEK()
+
+## Effect
+
+Returns the value read from a byte of the memory (RAM).
+
+## Syntax
+
+`PEEK(<Address>)`
+
+## Parameter
+
+`<Address>` must be in the range -32768 to 65535. It's a decimal number in single precision, but you can also specify an address in hexadecimal form.
+
+If `<Address>` is negative the binary complement is used. This means `PEEK(-1)`=`PEEK(65536-1)`=`PEEK(65535)`.
+
+## Examples
+
+```basic
+10 POKE 60000!, 11
+20 PRINT PEEK(60000!)
+ 
+RUN
+11
+```
+```basic
+10 POKE &HEA60, 11
+20 PRINT PEEK(&HEA60)
+ 
+RUN
+11
+```
+
+## Related to
+
+`BLOAD`, `BSAVE`, `POKE`, `VARPTR()`, `VPEEK()`, `VPOKE`
+
+## Compatibility
+
+MSX-BASIC 1.0 or higher
+
+## Source
+
+Retrieved from "https://www.msx.org/wiki/PEEK()"

package/resources/programming/basic_wiki/PLAY().md

@@ -0,0 +1,58 @@
+# PLAY()
+
+## Effect
+
+Checks if music is being played via PSG channels.
+
+The function returns -1 (true) if the selected channel is playing. If playing has ended the function returns 0 (false) again.
+
+If the function is called immediately after the `PLAY` statement the value -1 is persistent.
+
+## Syntax
+
+`PLAY(<Channel>)`
+
+## Parameter
+
+`<Channel>` allows to specify the PSG channel(s) to check: 
+- 0 = all channels
+- 1 = channel 1 
+- 2 = channel 2 
+- 3 = channel 3
+
+## Examples
+
+```basic
+10 PLAY "CDE"
+20 IF PLAY(0) THEN 20 ' Wait for playing to end on all channels
+```
+```basic
+10 A$="":BEEP
+20 FOR I=1 TO 6
+30 READ AA$:A$=A$+AA$
+40 NEXT I
+50 PLAY "XA$;"
+60 SCREEN 0:CLS
+70 IF PLAY(0)=-1 THEN PRINT "The music is playing":GOTO 70
+80 PRINT "The music has ended"
+90 END
+100 DATA CCGGAAGR
+110 DATA FFEEDDCR
+120 DATA GGFFEEDR
+130 DATA GGFFEEDR
+140 DATA CCGGAAGR
+150 DATA FFEEDDCR
+```
+
+##  Related to
+
+`BEEP`, `CALL PLAY`, `PLAY`
+
+## Compatibility
+
+MSX-BASIC 1.0 or higher
+
+
+## Source
+
+Retrieved from "https://www.msx.org/wiki/PLAY()"

package/resources/programming/basic_wiki/PLAY.md

@@ -0,0 +1,196 @@
+# PLAY
+
+## Effect
+
+Executes the instructions of a Music Macro Language (MML) allowing to play notes on one or several PSG channels (and optionally on MSX-AUDIO/PCM, MSX-MUSIC or MSX-MIDI).
+
+_Note: If you use `BEEP` all values of the MML instructions will be reset to their default values._
+
+## Syntax
+
+`PLAY #<Device>,"<MmlStringChannel1>","<MmlStringChannel2>",...,"<MmlStringChannel13>"`
+
+_Note: Do not put a comma if no MML string is behind. If no parameter is required for one channel between two others, put only the two quotation marks._
+
+## Parameters
+
+`<Device>` is a number that defines the used sound chip. This parameter is available only after `CALL AUDIO` or `CALL MUSIC` has been executed:
+- 0 = PSG (default value - can be omitted)
+- 1 = MSX-MIDI (optional - requires MSX-MUSIC Basic and a MSX-MIDI hardware)
+- 2 or 3 = MSX-AUDIO or MSX-MUSIC depending on the chip activated by `CALL AUDIO` or `CALL MUSIC`, optionally with PCM and PSG.
+
+There is no any difference between modes 2 and 3.
+
+`<MmlStringChannel>` for each music channel is a string of macro language instructions that describe the notes to play. Maximum length is 255 characters per string.
+
+When using only PSG, the simplified syntax is therefore:
+
+`PLAY ["<MML string - PSG Channel 1>"], ["<MML string - PSG Channel 2>"], ["<MML string - PSG Channel 3>"]`
+
+When using MSX-MUSIC or MSX-MIDI, the maximum of FM or MIDI melody strings can't exceed the number of FM or MIDI melody channels enabled with `CALL MUSIC`. However, there's a special rule for the 7th and 8th strings when mode 1 is specified with `CALL MUSIC` on MSX turbo R with MSX-MIDI.
+
+The first strings are for the FM or MIDI melody channels, the next one is for the FM or MIDI rhythm, the next 3 strings can be used for the PSG channels. If the selected mode does not have a FM or MIDI rhythm, you have to omit the corresponding string with a comma.
+
+When using MSX-AUDIO, the maximum of FM melody strings can't exceed the number of FM melody channels enabled with `CALL AUDIO`.
+
+The first strings are for the FM melody channels, the next one is for PCM, the next one is for the FM rhythm, the next 3 strings can be used for the PSG channels. If the selected mode does not have PCM and/or FM rhythm, you have to omit the corresponding strings with a comma.
+
+## MML instructions
+
+MML has the following instructions:
+
+### Commin 
+
+|Instruction|Effect|Values / Remarks|
+|:-:|---|---|
+|A to G [\<halftone>][\<octave>][\<period>]|Specifies a note from the scale, optionally with a specific increasing / decreasing halftone and/or octave and/or period|<li>\<halftone> = + or # for increasing halftone (sharp), - for decreasing halftone (flat)<li>\<octave>=1 to 8 (default value: 4)<li>\<period>=one or several . (dots), each . lengthens note by 1.5|
+|L\<length>|Specifies the length of the notes after this instruction|<li>\<length>=1 to 64 (MIDI: 1 to 96)<li>(FM) 1=full note 2=half note 3=third note 4=quarter note (default value) etc...<li>(MIDI) 96=full note 48=half note 32=third note 24=quarter note (default value) etc...<li>If no length is specifed the length of the last played note is used|
+|N\<number>[\<period>]|Specifies the note corresponding to the number (or pitch) - Beware! It's not a MIDI note number, but a number on a conventional scale.|<li>\<number>=0 to 96<li>If \<number>= 0 no sound is generated. In this case a short pause is played before the remaining part<li>\<period>=one or several . (dots), each . lengthens note by 1.5|
+|O\<octave>|Specifies the octave of the notes after this instruction|\<octave>=1 to 8 (default value: 4)|
+|R\<pause>[\<period>]|Specifies a pause (or rest)|<li>\<pause>=1 to 64 (MIDI: 1 to 96)<li>(FM) 1=full pause 2=half pause 3=third pause 4=quarter pause (default value) etc...<li>(MIDI) 96=full pause 48=half pause 32=third pause 24=quarter pause (default value) etc...<li>If no pause is specified the length specified by the last L instruction will be applied<li>\<period>=one or several . (dots), each . lengthens pause by 1.5|
+|T\<tempo>|Specifies the tempo of the notes after this instruction|<li>\<tempo>=32 to 255 (default value: 120)<li>it indicates the number of quarter notes per minute<li>If no tempo is set the tempo of the last played note will be used|
+|V\<volume>|Specifies the volume of the notes or the MIDI velocity after this instruction (when applied to FM rhythm, it's only for the non-accented voices)|<li>\<volume>=0 to 15 (default value: 8)<li>If no volume is set the volume of the last played note will be used<li>For MIDI instruments, the value is multiplied by 8 to modify the velocity of the note output|
+|X\<string>;|Executes a sub-string A$ of instructions|<li>String-variables can be used within PLAY MML instructions<li>A X needs to be prefixed and all variables must be closed by a ';'<li>Adding other MML instructions after the last ';' will result in error|
+|=\<variable>;|Puts a parameter in a integer-variable after one of several sub-strings of instructions (see X instruction)|<li>Variables can be used within PLAY MML instructions<li>The value range is determined by the preceding MML but it cannot exceed the value 32767<li>Adding other MML instructions after the last ';' will result in error|
+|\<|Decreases one octave|Can be used after `CALL AUDIO` or `CALL MUSIC`, also with PSG|
+|\>|Increases one octave|Can be used after `CALL AUDIO` or `CALL MUSIC`, also with PSG|
+|\&|Connects two notes (Tie)|<li>Can be used after `CALL AUDIO` or `CALL MUSIC`, also with PSG<li>When placed between two notes with the same pitch, it extends the length of the notes to the equivalent of two notes<li>When the notes on both sides of this instruction have a different pitch, only the note in front will be played for 100% of its value.|
+
+### Only for PSG
+
+|Instruction|Effect|Values / Remarks|
+|:-:|---|---|
+|M\<frequency>|Specifies the sound modulation (envelope frequency)|<li>\<frequency>=1 to 65536 (default value: 255)<li>If no frequency is specified the last set value will be used<li>See also `SOUND`, registers 11 and 12|
+|S\<pattern>|Specifies an envelope pattern|<li>\<pattern>=0 to 15 (default value: 0)<li>If no envelope pattern is specified the last set value will be used<li>See also `SOUND`, register 13|
+
+### Only for MSX-AUDIO/PCM and MSX-MUSIC
+
+|Instruction|Effect|Values / Remarks|
+|:-:|---|---|
+|Y\<register>,\<value>|Writes value directly in a register of the sound generator|<li>\<value>=0 to 255<li>Useful for example to change the pitch of the FM rhythm sound<li>See also `CALL AUDREG`|
+
+### Only for MSX-AUDIO/PCM and MSX-MUSIC/MIDI
+
+|Instruction|Effect|Values / Remarks|
+|:-:|---|---|
+|Q\<division>|Divides the length of the sound|\<division>=1 to 8 (default value: 8)|
+|{\<string>}\<tuplet length>|Defines a tuplet (duplet, triplet, quadruplet, quintuplet, etc..)|<li>\<tuplet length>=1 to 64 (FM) or 1 to 96 (MIDI) (default value= length value set with L<length>)<li>Generates even notes<li>Quantity of notes is equal to the quantity of pitches enclosed between { }<li>Each length is equal to the length of a nth note divided by the quantity of the pitches|
+|@\<voice>|Changes used FM voice or tone color of MIDI equipment|<li>\<voice>=0 to 63 for FM, 0 to 127 for MIDI<li>See `CALL MK VOICE`, `CALL VOICE` or `CALL VOICE COPY` for FM table<li>Can also be used for the MIDI rhythm, it will be ignored by the built-in FM sound source|
+|@V\<tuning>|Makes a fine tuning of the FM volume or the MIDI Control Change # 7 output|\<tuning>=0 to 127|
+|@W\<state length>|Continues the state for a specified length|<li>\<state length>=1 to 64 (MIDI: 1 to 96)<li>default value= length value set with L\<length>|
+
+### Only for MIDI
+
+|Instruction|Effect|Values / Remarks|
+|:-:|---|---|
+|Z\<data>|Sends 1 byte data to MSX-MIDI|\<data>=0 to 255|
+|@C\<control>,\<value>|Changes the value of a MIDI control|<li>\<control>=0 to 127<li>\<value>=0 to 127|
+|@H\<channel>|Specifies the MIDI channel to be used|\<channel>=0 to 16|
+|@S\<clock mode>|Specifies the mode of the MIDI real-time clock|<li>\<clock mode>=0 to 2<li>0=FCH (STOP) - stop the clock<li>1=FAH (START) - start the clock<li>2=FBH (CONTINUE) - start the clock with the tempo specified in the first PLAY string|
+
+### Only for FM or MIDI rhythm
+
+|Instruction|Effect|Values / Remarks|
+|:-:|---|---|
+|B|Generates bass drum|For MIDI, first specify note number with `CALL MDR`|
+|C|Generates cymbals|For MIDI, first specify note number with `CALL MDR`|
+|H|Generates hi-hat|For MIDI, first specify note number with `CALL MDR`|
+|M|Generates tom-tom|For MIDI, first specify note number with `CALL MDR`|
+|S|Generates snare drum|For MIDI, first specify note number with `CALL MDR`|
+|\<number>|Generates the musical sounds written up to here, then waits for the length of a n<sup>th</sup> note|\<number>=1 to 64|
+|!|Accents preceeding note||
+|@A\<volume>|Sets the volume for FM accented voices or the MIDI velocity|<li>\<volume>=0 to 15<li>For MIDI instruments, the value is multiplied by 8 to modify the velocity of the note output|
+
+
+_Notes:_
+- Default Value: Initial value set when `CALL MUSIC` or `CALL AUDIO` is used.
+- FM Rhythm: There are 5 different voices that are available for the rhythm (percussion) MML and up to 3 voices may be played simultaneously. For this reason the rhythm MML first lines up the instruments that are to be played simultaneously.
+
+## Examples
+
+```basic
+10 PLAY "CDE","EFG"
+```
+
+---
+```basic
+PLAY#2,"","","","BSH8H8H8S!H!8H8"
+```
+
+Plays: Bass, snare, hi-hat and wait an 8th note, hi-hat and wait an 8th note, snare, hi-hat plays accented and waits an 8th note, hi-hat and wait an 8th note.
+
+---
+```basic
+1 '----->IDENTIFICATION DIVISION
+2 'BIZET:Carmen(Habanera)
+3 'by JL2TBB for MSX-MUSIC on HB-F1XD
+100 '----->ENVIRONMENT DIVISION
+110 CALLMUSIC(1,0,1,1,1,1,1,1):CALLPITCH(440):CALLTRANSPOSE(0):POKE-1460,20:SOUND6,0:SOUND7,49
+120 CLEAR3000:DEFSTRA-K:DEFINTL-Z:DIMA(12),B(12),C(12),D(12),E(12),F(12),G(12),H(12),I(12)
+130 '----->RHYTHM PATTERN
+140 J="M500C12M200C24":K="M4000C8"
+150 H(0)="T100SL24"+J+J+K+J+J+J+K+"V10CV9CVDS"+J+J+K+J+J+J+K+J:I(0)="T100R2.R8L24O8VEV7EV6E"
+160 G(0)="T100V15@A2Y40,5Y24,153BM!24M!24M!24M!12M!24S8R12B8B24B8S4B4S8R12B8B24B8S8Y24,15C8"
+170 H(1)=LEFT$(H(0),151)+"M5000R12C8R24C4":I(1)=I(0)
+180 G(1)=LEFT$(G(0),66)+"SCB8R24SCB4"
+190 G(11)="BCS24BCS4"
+200 H(10)="RS0M500R4L32CCCCM1000CCCCM1500CCCCM2000CCCC":H(11)="M3000C24C4"
+210 '----->BASS PATTERN
+220 A(0)="T100@13V13O3D1.":B(0)="T100@13V14O2D1."
+230 B(1)="D2.>>@31L24C12DF12DF12GC12DFGA>C<A>CR12V15DR8D<V14"
+240 B(2)="Q4D8RR12FG8G8A8>QD8Q4<D8RR12FG8G8A8>QE8Q4<":B(3)="D8RR12FG8A8>E8<QA8E8R12GAGA>C+12<AR12>DR8D<"
+250 B(4)="Q4D8RR12F+G8G8A8>QD8Q4<D8RR12F+G8G8A8>QE8Q4<":B(5)="E8RR12F+G8A8>E8<QA8E8R12GAGA>C+12<AR12>DR8D<"
+260 B(6)="Y19,0V5L2T150OD.<A.>DE-4E."
+270 B(7)="<B.>D.C+.<A>C+4":B(8)="E.T130D.T120C+<A":B(10)="T150>V4D"
+280 '----->MELODY
+290 A(1)="R1R8OL24@6DCDFGA>C<A>CR@0V13O6Q4L8DD-"
+300 J="Q6C12C12C12Q4<BB-AR12A24":A(2)=J+"A-GF24G24F24E12F24GF12QG48F48Q4E4>DD-"
+310 A(3)=J+"GFQL24EFED12EQ4L8FED&D>DD-"
+320 A(4)="R48"+J+"A-GF+24G24F+24E12F+24GF+12QG48F+48Q4E4>DD-16"
+330 A(5)="R48"+J+"GF+E24F+24E24D12E24F+E12<A24>D12..R12@21VY0,40Y1,36Y2,26Y4,244<A24>DE"
+340 C(4)="@0O5VQ4L8A12A12A12A-GF+R12F+24FED24E24D24C+12D24ED12E48D48C+4BB-"
+350 C(5)="A12A12A12A-GF+R12F+24EDC+24D24C+24<B12>C+24D<A12G24F+12Y50,5R8A24>DE"
+360 A(6)="V5T150L8F+4.AF+ED4.EF+GAAAABAG4.<B>EF+":A(7)="G4.BGF+E4.F+GABBBB>C+<BA4.<A>DE"
+370 A(8)="T140G4.BGF+T130E4.F+GAT120>C+<BG+AL32>EF+L28EF+L24EF+L20EF+L16EF+L12EF+L8EF+L7EF+L6EF+L5EF+L4EF+L3EF+E"
+380 A(10)="T150R8.D"
+390 '----->OTHERS
+400 J="@10D8R12A24>@16F8<@6A8":C(0)="T100Q2O4"+J+J+J+J:C(1)=J+J
+410 D(0)="@14V13T100R1.RR12O5C24R12D24"
+420 E(0)="@14V13T100R1.RR12OG24R12A24"
+430 F(0)="@6V14T100L24O3"
+440 J="R1RL24@6>FGA>C<A>CR12":D(1)=J+"V15DR8D8V10L64V9C<BVAGV7FEV6DC"
+450 E(1)=J+"V15AR8A8V10L64V9GFVEDV7C<BV6AG":F(1)=J+">GR8G8V10L64V9FEVDC<V7BAGF"
+460 F(1)=J+">GR8G8V10L64V9FEVDC<V7BAGF"
+470 D(2)="@2L24V10O5D&Y19,120&Y19,130&Y19,140&D&Y19,150&D&Y19,160&D&Y19,170&D&Y19,178&D1&D4F2"
+480 E(2)="@2L24V9OG&G&Y20,5&G&Y20,10&G&Y20,15&GY20,50&G&Y20,225Y20,30&G1&G4B-2"
+490 F(2)="@2L24V9OE&Y21,160&E&Y21,170&E&Y21,180&E&Y21,190&E&Y21,200&E&E1&E4G2"
+500 D(3)=LEFT$(D(2),77)+"2.R24C+2@6R12V13>DR8D"
+510 E(3)="A&Y20,0&A&Y20,10&A&Y20,20&A&Y20,30&A&Y20,40&A&Y20,50&A2.A2V13@6>>>R12DR8D"
+520 F(3)="E&E&Y21,215&E&Y21,225&E&Y21,235&E&Y21,245&E&Y21,255&E2.G2@6>>R12AR8A"
+530 D(4)="@16LRVO5F+A2R>D<B2":E(4)="@16LRVO5DF+2RAG2":F(4)="@16LRVOA>D2RF+E2"
+540 D(5)="RE>E2R<A>DY51,90":E(5)="R<B>B2RGF+":F(5)="R<G>G2RED"
+550 D(6)="T150L8Q4OR64D4A>F+<A4DA>F+4<A4D4A>F+D+4E<EF+GAB16."
+560 D(7)="E4B>G<B4EB>G4<B4A4>C+AG4F+<<AB>C+DE":D(8)="T140E4B>G<B4T130EB>G4D4E"
+570 IJ="SM100T100O8L64CCCL48CCCL32CCCL24CCCR":I(9)=IJ+IJ+IJ
+580 D(10)="Y51,5R16O5F+":E(10)="Y52,5R8O5A"
+590 J="T100Q8L24V15A>D":A(11)="@6O5"+J:B(11)="@31O4"+J:C(11)="@6O6"+J:D(11)="@2O5"+J:E(11)="@2O3"+J:F(11)="@6O3"+J
+600 E(6)="T150@3O6V5Q4L8RDEF+GL24QABABABABABABABABABA4"
+610 '----->PROCEDURE DIVISION
+620 FORX=0TO5:IFX=4ANDY=0THENX=2:Y=1
+630 Z=XMOD2:PLAY#2,A(X),B(X),C(X),D(X),E(X),F(X),G(Z),H(Z),I(Z):NEXT
+640 FORX=6TO11:IFX=8ANDY=1THENX=6:Y=0
+650 X=X+(X=7)*(Y=0):PLAY#2,A(X),B(X),C(X),D(X),E(X),F(X),G(X),H(X),I(X):NEXT
+660 END
+```
+
+## Related to
+
+`BEEP`, `CALL AUDIO`, `CALL AUDREG`, `CALL MDR`, `CALL MUSIC`, `CALL PLAY`, `CALL MK VOICE`, `CALL VOICE`, `CALL VOICE COPY`, `PLAY()`, `SOUND`
+
+## Compatibility
+
+MSX-BASIC 1.0 or higher, MSX-AUDIO BASIC, MSX-MIDI BASIC, MSX-MUSIC BASIC
+
+## Source
+
+Retrieved from "https://www.msx.org/wiki/PLAY"

package/resources/programming/basic_wiki/POINT.md

@@ -0,0 +1,52 @@
+# POINT
+
+##  Effect
+
+Returns the color number of the specified point in graphic screen.
+
+## Syntax
+
+`POINT STEP(<X>,<Y>)`
+
+## Parameters
+
+`<X>` is coordinate X (0-255/511) of the point whose the color will be checked. It cannot be omitted.
+
+`<Y>` is coordinate Y (0-191/211) of the point whose the color will be checked. It cannot be omitted.
+
+If `STEP` is used before these starting coordinates, they are interpreted relative to the current cursor position. In this case the values can also be negative.
+
+## Example
+
+```basic
+10 SCREEN 2:COLOR 15,1,7
+20 OPEN "GRP:" FOR OUTPUT AS #1
+30 FOR I=1 TO 10
+40 PRESET(I*16,8)
+50 C=INT(RND(1)*13)+2
+60 COLOR C
+70 PRINT #1,CHR$(1)+CHR$(66)
+80 NEXT I
+90 COLOR 15
+100 PRESET (40,24)
+110 PRINT #1,"Color numbers"
+120 FOR I=1 TO 20
+130 C=POINT(I*16+4,12)
+140 PRESET(I*16,I*8+56),4
+150 PRINT#1,USING "##";C
+160 NEXT I
+170 FOR I=1 TO 2000:NEXT I
+180 COLOR 15,4,7
+```
+
+## Related to
+
+`CIRCLE`, `COLOR`, `DRAW`, `LINE`, `PAINT`, `PRESET`, `PSET`, `SCREEN`
+
+## Compatibility
+
+MSX-BASIC 1.0 or higher
+
+## Source
+
+Retrieved from "https://www.msx.org/wiki/POINT"

package/resources/programming/basic_wiki/POKE.md

@@ -0,0 +1,51 @@
+# POKE
+
+## Effect
+
+Writes a value to a byte of the memory (RAM).
+
+## Syntax
+
+`POKE <Address>,<Value>`
+
+## Parameters
+
+`<Address>` must be in the range -32768 to 65535.  It's a decimal number in single precision, but you can also specify an address in hexadecimal form.
+
+If `<Address>` is negative the binary complement is used. This means `POKE-1,0`=`POKE(65536-1),0`.
+
+`<Value>` is a decimal number between 0 and 255. It can also be a numeric expression.
+
+## Examples
+
+```basic
+10 POKE 60000!, 11
+20 PRINT PEEK(60000!)
+ 
+RUN
+11
+```
+
+```basic
+10 POKE &HEA60, 11
+20 PRINT PEEK(&HEA60)
+ 
+RUN
+11
+```
+
+```basic
+A=VDP(10)\8AND1:POKE&H430A,A*255
+```
+
+## Related to
+
+`BLOAD`, `BSAVE`, `PEEK()`, `VARPTR()`, `VPEEK()`, `VPOKE`
+
+## Compatibility
+
+MSX-BASIC 1.0 or higher
+
+## Source
+
+Retrieved from "https://www.msx.org/wiki/POKE"

package/resources/programming/basic_wiki/POS().md

@@ -0,0 +1,36 @@
+# POS()
+
+## Effect
+
+Returns the horizontal coordinate of the cursor.
+
+## Syntax 
+
+`POS(<Value>)`
+
+## Parameter
+
+`<Value>` is a dummy value or variable but cannot be omitted.
+
+## Example
+
+```basic
+10 CLS
+20 LOCATE 14,1:PRINT "Example of POS";
+30 PRINT POS(0)
+ 
+RUN
+Example of POS 14
+```
+
+## Related to
+
+`CSRLIN`
+
+## Compatibility
+
+MSX-BASIC 1.0 or higher
+
+## Source
+
+Retrieved from "https://www.msx.org/wiki/POS()"