PC Toledo

Código: Selecionar todos

50 61 72 61 62 e9 6e 73 20 61 20 76 6f 63 ea 2e 0d 0a 4e 65 73 74 61 20 64 61 74 61 20 71 75 65 72 69 64 61 2e 0d 0a 4d 75 69 74 61 73 20 66 65 6c 69 63 69 64 61 64 65 73 2e 0d 0a 4d 75 69 74 6f 73 20 61 6e 6f 73 20 64 65 20 76 69 64 61 2e 0d 0a 0d 0a 54 75 64 6f 20 64 65 20 62 6f 6d 20 65 20 75 6d 20 f3 74 69 6d 6f 20 61 6e 69 76 65 72 73 e1 72 69 6f 2e 0d 0a 28 54 6f 6d 61 72 61 20 71 75 65 20 73 65 6a 61 20 73 f3 20 73 61 63 61 6e 61 67 65 6d 20 64 6f 20 4d 61 6c 69 67 6e 6f 20 63 6f 6d 20 76 6f 63 ea 21 20 45 68 2e 45 68 2e 45 2e 29

Código: Selecionar todos

PROCEDURE Main
LOCAL cMsg := "50 61 72 61 62 e9 6e 73 20 61 20 76 6f 63 ea 2e 0d 0a 4e 65 73 74 61 20 64 61 74 61 20 71 75 65 72 69 64 61 2e 0d 0a 4d 75 69 74 61 73 20 66 65 6c 69 63 69 64 61 64 65 73 2e 0d 0a 4d 75 69 74 6f 73 20 61 6e 6f 73 20 64 65 20 76 69 64 61 2e 0d 0a 0d 0a 54 75 64 6f 20 64 65 20 62 6f 6d 20 65 20 75 6d 20 f3 74 69 6d 6f 20 61 6e 69 76 65 72 73 e1 72 69 6f 2e 0d 0a"
? HexToSTr( cMsg )
RETURN

Código: Selecionar todos

/* 
Autor.......: GVC
Criação....: 16/08/2010
Modificado: Fladimir
*/

PROCEDURE Main
LOCAL cMsg := "50 61 72 61 62 e9 6e 73 20 61 20 76 6f 63 ea 2e 0d 0a 4e 65 73 74 61 20 64 61 74 61 20 71 75 65 72 69 64 61 2e 0d 0a 4d 75 69 74 61 73 20 66 65 6c 69 63 69 64 61 64 65 73 2e 0d 0a 4d 75 69 74 6f 73 20 61 6e 6f 73 20 64 65 20 76 69 64 61 2e 0d 0a 0d 0a 54 75 64 6f 20 64 65 20 62 6f 6d 20 65 20 75 6d 20 f3 74 69 6d 6f 20 61 6e 69 76 65 72 73 e1 72 69 6f 2e 0d 0a"
? HexToSTr( cMsg )
   Tone(262, 3)
   Tone(262, 1)
   Tone(294, 6)
   Ttone(262, 6)
   Tone(349, 6)
   Tone(330, 15)
Return