by Bernt Figaro (8 Submissions)
Category: Sound/MP3
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Tue 6th June 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Code for the missing file TRIANGLE.PFM in talk.zip
API Declarations
in the Talk.zip (jukebox w speech)
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