10 CLEAR ,&H17FF 20 LOADM "PSGPLAYM" 30 PRINT "PSG DATA FILE NAME:" 40 LINE INPUT F$ 50 IF ""=F$ THEN EXEC &H18f8:END 60 LOADM F$ 70 EXEC &H1808 ' Set up IRQ Hook 80 EXEC &H183c ' Start playing 90 PRINT "P:PAUSE R:RESTART S:STOP" 100 I$=INKEY$ 110 IF "P"=I$ OR "p"=I$ THEN EXEC &H1845:GOTO 100 120 IF "R"=I$ OR "r"=I$ THEN EXEC &H183c:GOTO 100 130 IF "S"<>I$ AND "s"<>I$ THEN GOTO 100 140 EXEC &H182f ' Revert IRQ Hook 150 EXEC &H18f8 ' Clear PSG registers 160 GOTO 30