$9636,$01
$9638,$02
$963a,$04
$963c,$10
$963e,$08

  10 REM ROCKY HORROR SHOW 128
  20 REM SINCLAIR JOYSTICK FIX
  30 CLEAR 32767: LET B=1: LET D=32767
  40 LET T=0: FOR N=1 TO 1E9: READ A: IF A>=0 AND A<256 THEN POKE D+N,A: LET T=T+N*A: NEXT N
  50 IF A>0 THEN GO TO 80
  60 IF T+A THEN PRINT "DATA ERROR IN BLOCK ";B: STOP
  70 LET B=B+1: LET D=D+N-1: GO TO 30
  80 BORDER 0: PAPER 0: INK 0: CLS : PRINT `0; INK 2; BRIGHT 1;AT 0,1;"Play Rocky Horror Show 128 Tape": RANDOMIZE USR 32768
  90 DATA 221,33,212,183,17,144,1,62
 100 DATA 255,55,205,86,5,48,241,33
 110 DATA 33,128,17,34,185,237,83,100
 120 DATA 184,1,23,0,237,176,195,212
 130 DATA 183,33,54,150,62,1,6,3
 140 DATA 119,35,35,135,16,250,35,35
 150 DATA 119,135,43,43,119,195,132,129,-156431
 160 DATA 999: REM DATA END MARKER