1  :'Ranarama - tape
2  :'by Phil Howard
10 DATA 21,00,9a,e5,01,00
20 DATA 02,c5,3e,ee,aa,77
30 DATA   23,c1,0b,78,b1,20
40 DATA f4,21,37,9a,36,c3
50 DATA 23,36,28,23,346,3e
60 DATA  21,,1e,9a,,e3,e9,50
70 DATA 2e,46,2e,48,21,8c
80 DATA 79,36,00,c3,b5,,5a
90 MEMORY &3000:Y=0
100 FOR x= &BE00 TO &BE2F
110 READ  A$:AA=VAL("&"+A$)
120 POKE x,a:y=y+:NEXT
130 IF y<>&1275 THEN 160
140 LOAD"rana";LOAD"!"
150 CALL&BE00
160 PRINT"Data error"

1 :' Ranarama - disk
2 :' By Niall Brady
3 :' 229
10 DATA 01,1D,01,21,040
20 DATA 0F,50,11,00,070
30 DATA 50,06,FF,1A,16F
40 DATA AE,77,23,13,15B
50 DATA 10,F9,3A,07,14A
60 DATA 40,3D,32,07,0B6
70 DATA 40,32,07,50,0C9
80 DATA 06,50,ED,43,186
90 DATA 01,40,06,00,047
100 DATA ED,43,01,50,181
110 DATA A7,20,D8,3E,1DD
120 DATA BF,21,2C,50,15C
130 DATA 77,2B,AF,77,1C8
140 DATA 21,1F,50,11,0A1
150 DATA 5E,40,01,00,09F
160 DATA 02,ED,B0,3E,1DD
170 DATA 01,01,7E,FA,17A
180 DATA ED,79,3E,01,1A5
190 DATA CD,0E,BC,06,19D
200 DATA FF,76,10,FD,282
210 DATA F3,21,5C,40,1B0
220 DATA 11,1D,00,01,02F
230 DATA 00,01,ED,B0,19E
240 DATA C3,1D,00,3E,11E
250 DATA 79,20,4E,42,129
260 DATA 20,28,43,29,0B4
270 MEMORY &2000
280 a=&3FFD:l=10
290 WHILE l<270:GOSUB 550:WEND
300 LOAD"DISC",&4FB8
310 a=&BF00:l=330
320 WHILE l<370: GOSUB 550:WEND
330 DATA 21,52,99,3E,14A
340 DATA C0,77,3E,63,1D8
350 DATA 23,77,C3,00,15D
360 DATA 99,00,00,00,099
370 a=&BE80:l=390
380 WHILE l<540:GOSUB 550:WEND
390 DATA 21,8E,BE,11,17E
400 DATA 00,BF,01,40,100
410 DATA 00,ED,B0,C3,260
420 DATA 00,BF,01,7E,13E
430 DATA FA,AF,ED,79,30F
440 DATA 01,89,7F,ED,1F6
450 DATA 49,21,00,00,06A
460 DATA 11,00,00,01,012
470 DATA 00,02,ED,B0,19F
480 DATA 01,8D,7F,ED,1FA
490 DATA 49,21,91,79,174
500 DATA AF,77,23,77,1C0
510 DATA 23,77,21,65,120
520 DATA 65,77,C3,B5,254
530 DATA 5A,00,00,00,05A
540 CALL &3FFD
550 cs=0:FOR x=1 TO 4
560 READ v$
570 v=VAL("&"+v$):POKE a,v
580 cs=cs+v:a=a+1:NEXT
590 READ c$:c=VAL("&"+c$)
600 IF c<>cs THEN PRINT"Data error in line ",l:END
620 l=l+10:RETURN