1 ' Biospheres -tape-
2 ' By Graham Smith
3 ' Choice of 10 skill levels
4 ' Method 1
5 '
10 MODE 1:DEFSTR a
20 FOR j=0 TO 97:READ a
30 x=VAL("&"+a):y=y+x
40 POKE j+48640,x:NEXT j
50 IF y<>8513 GOTO 290
60 PRINT "Enter skill ";
70 PRINT "level (0-9) ";
80 a=INKEY$:IF a="" GOTO 80
90 x=ASC(a)-48
100 IF x<0 OR x>9 GOTO 80
110 PRINT a:POKE 48738,x
120 CALL 48640:RUN"
130 DATA 2a,09,00,22,1e,be
140 DATA 22,21,be,21,10,be
150 DATA 22,09,00,c9,e5,21
160 DATA f9,2a,36,c3,23,36
170 DATA 20,23,36,be,e1,c3
175 DATA 00,00,21,00,00,22
180 DATA 09,00,3a,62,be,5f
190 DATA af,93,32,34,31,32
200 DATA a0,32,c6,0a,32,8e
210 DATA 38,32,96,38,47,87
220 DATA 80,32,9e,38,32,a6
230 DATA 38,7b,b7,20,03,af
240 DATA 18,02,3e,ff,32,b1
250 DATA 2f,32,35,31,32,a1
260 DATA 32,21,d0,07,22,a2
270 DATA 3d,af,32,bb,3e,c3
280 DATA fc,2a
290 PRINT"DATA ERROR