1 :' Rocky Horror - tape
2 :' by Johnny and Kim Olsen
10 FOR x=&BE80 TO &BEA3
20 READ a$
30 POKE x,VAL("&"+a$):NEXT
40 POKE &BD37,&C3
50 POKE &BD38,&80
60 POKE &BD39,&BE
70 DATA 3e,cf,21,88,88,32
80 DATA 37,bd,22,38,bd,21
90 DATA 94,be,22,f3,ac,c3
100 DATA e6,ac,af,32,44,0c
110 DATA 32,4f,0c,32,58,0c
120 DATA 32,68,0c,c3,5a,97
130 END

10 MODE 1:MEMORY 29999
20 GOSUB 160
30 INK 0,0:BORDER 0:INK 1,6
40 INK 2,18:INK 3,8
50 PEN 2:LOCATE 2,8
60 PRINT"T H E  R O C K Y";
70 PRINT"  H O R R O R  S H O W"
80 PEN 1:LOCATE 16,12
90 PRINT"IS LOADING"
100 LOAD"!A"
110 CLS:CALL 30000
120 LOAD"!B"
130 FOR a=44200 TO 44221
140 POKE a,PEEK(a) XOR 170
150 NEXT:CALL &BE5D
160 FOR n=&BE5D TO &BE7F
170 READ a$:a=VAL("&"+a$)
180 POKE n,a:c=c+a:NEXT
190 IF c<>3567 THEN 380
200 FOR n=&BE96 TO &BEAB
210 READ a$:a=VAL("&"+a$)
220 POKE n,a:d=d+a:NEXT
230 IF d<>2424 THEN 390
240 PRINT"How many pieces";
250 PRINT" to collect (1-15)";:INPUT p
260 POKE &BEA0,p
270 RETURN
280 REM <1>
290 DATA 21,52,55,22,a4,ac,21,4e
300 DATA 22,22,a6,ac,21,a8,ac,11
310 DATA 80,be,01,13,00,ed,b0,21
320 DATA f7,0d,22,92,be,21,20,ef
330 DATA 22,94,be
340 REM <2>
350 DATA 21,9f,be,22,f3,ac,c3,e6
360 DATA ac,3e,00,32,3b,1e,3e,a7
370 DATA 32,44,0c,c3,5a,97
380 PRINT"ERROR IN <1>":END
390 PRINT"ERROR IN <2>":END