• Home
 · 
• Sound/MP3
 · 
• Code for the missing file TRIANGLE.PFM in talk.zip

Code for the missing file TRIANGLE.PFM in talk.zip

Code for the missing file TRIANGLE.PFM in talk.zip

API Declarations


in the Talk.zip (jukebox w speech)



Rate Code for the missing file TRIANGLE.PFM in talk.zip

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim I%
CONST PFM$="AUA.+AQA.+AQA.+ARWQA.+AWQA.+AQA.+ARSQA.+AQA.+AQA.+"
OPEN "TRIANGLE.PFM" FOR BINARY AS #1
FOR I%=1 TO 50
A%=ASC(MID$(PFM$,I%,1))-33
put #1,I%,CHR$(A%)
NEXT I%
RESET
END Sub