Lionpoulos d STOS REPLAY SAMPLE PLAYER"n (C) 2 BIT SYSTEMS LTD 1989x SPEED 0 - 5KHZ 1 - 7.5KHZ 2 - 10 KHZ 3 - 15 KHZ 4 - 20 KHZ* RESERVE SPACE AND LOAD MACHINE CODE,ȴ"ҡLOAD MACHINE CODE ..... ܠ STOSPLAY.PRG,* RESERVE SPACE AND LOAD SAMPLE DATA ,eLOAD SAMPLE ....z SAMPLE.SAM, " SET UP PLAY PARAMETERS4,INIT(): FIND START OF BANK"6SPEEDINIT"@REPLAYINIT$JREVPLAYINIT TSYNCINIT ^HALTINIT hHEARINIT"rSAMPLEINIT:| SAMPLESTART( ) : START OF SAMPLE<INIT: WE MUST INITIALISE THE SOUND CHIP FIRSTPLAYING SAMPLE X()X" SPEED: SET THE SPEED̊8ּ() SAMPLESTART: POKE START OF SAMPLE.()*: POKE LENGTH OF SAMPLE$(): LOOPING OFF"REPLAY: PLAY SAMPLE*SYNC: WAIT FOR END OF SAMPLE X&NOW PLAY BACKWARDS 5 TIMES. &() SAMPLESTART0()*":(): LOOPING ONDREVPLAY NXXX; ;bSYNC lXvHALT ALL DONE.