31999 END ›32000 PROC INITDIGI:DIM STRING$(160),TRACK$(72),DUMMY$(12),PLAY$(100),DIGIFILE$(255):WHERE=-%1:PLAY$="1":SPEED=54›32010 STRING$="hh…Ìh…Ëh…Îh…Íh…Ùh…Øhh…Ôhh…Õ© …Ñ ÔÔ¤Ñ±Í8é1


¨¢ ±ËeØ•ÚÈ±ËeÙ•ÛÈèèàÐë  ±Ú…æjjj"›32020 STRING$(81)="j)	Ò¦ÕÊÐý¥æ)	Ò¦ÕÊÐý¥Úi…Ú¥Ûi …Û¥ÚÅÜÐË¥ÛÅÝÐÅ¥ÑÅÔÐ©@Ô©  Ô`æÑ‹"›32025 STRING$(145,145)=CHR$(34):ENDPROC ›32030 PROC LOADDIGI:EXEC FINDSIZE›32035 TRACK$(72)=" ":IF TRACK:BGET #%1,ADR(TRACK$),72:GET #%1,XX:ELSE :DPOKE ADR(TRACK$)+%2,FILESIZE:ENDIF ›32040 BGET #%1,WHERE,FILESIZE:CLOSE #%1:ENDPROC ›32050 PROC FINDSIZE:CLOSE #%1:OPEN #%1,4,%0,DIGIFILE$›32052 INPUT #%1,DUMMY$:FILESIZE=VAL(DUMMY$(7)):TRACK=%0:IF DUMMY$(%1,6)="PQRSTU" THEN INPUT #%1;DUMMY$:TRACK=%1›32059 ENDPROC ›32500 PROC PLAY:DUM=USR(ADR(STRING$),ADR(TRACK$),ADR(PLAY$),WHERE,LEN(PLAY$)-%1,SPEED):ENDPROC ›32501 REM  Îå÷ §ÌïáäÐìáù§º  ö®°®°        âù ÎÂÓ ±¹¹³   By Bill Kendrick›