AIR=	+160
EARTH=	+169
WATER=	+178
FIRE=	+187
RAMP=	+196
CONVEY=	+205
372 BYTES SKAL KOPIERES

*******;REGNE FRA   RUTINEN HETET MEM.TAP
10 let ad=32396 ;KOPIER TIL
11 let nad=49312  ;KOPIER FRA
40 for a=1 to 62
50 for b=1 to 6
60 let x=peek nad
65 poke ad,x
70 let ad=ad+1
80 let nad=nad+9
90 next b
100 let ad=49312+(256*a)
110 next a

*******;REGNE TILBAKE
10 let ad=32396  ;KOPIER FRA
11 let nad=49312 ;KOPIER TIL

40 for a=1 to 62
50 for b=1 to 6
60 let x=peek ad
65 poke nad,x
70 let ad=ad+1
80 let nad=nad+9
90 next b
100 let nad=49312+(256*a)
110 next a


LOAD:
clear 32395 ; Fr kode
load "night" code 32396,372
load "maria" code 32768,32768

SAVE MEM:
clear 32395
save "night" code 32396,372
 
