60020 REM ******************************************************* 60030 IF hu=0 THEN RESTORE 60140:FOR fi=&9E10 TO &9E6F:READ fa:POKE fi,fa:NEXT:hu=1 60040 IF cd=0 OR cd=2 THEN MEMORY am-1:LOAD"!"+nf$+".img",am 60050 tp=PEEK(am)+PEEK(am+1)*256-&5000+am:POKE &9E00,(tp)-INT((tp)/256)*256:POKE &9E01,INT((tp)/256):tp=PEEK(am+2)+PEEK(am+3)*256-&5000+am:POKE &9E02,(tp)-INT((tp)/256)*256:POKE &9E03,INT((tp)/256) 60060 IF cn=0 THEN POKE &9E04,(am+4)-INT((am+4)/256)*256:POKE &9E05,INT((am+4)/256) ELSE POKE &9E04,(am)-INT((am)/256)*256:POKE &9E05,INT((am)/256) 60070 IF cd=0 THEN RETURN 60080 IF cc=1 THEN 60120 60090 IF cn=1 THEN gm=am+&3FE0 ELSE gm=am+PEEK(am+2)+PEEK(am+3)*256+&100-&5000 60100 FOR fi=0 TO 31:POKE &FFE0+fi,PEEK(gm+fi):NEXT 60110 FOR fi=0 TO 15:INK fi,PEEK(&FFE0+fI),PEEK(&FFE0+fI+16):NEXT 60120 IF cn=1 THEN CALL &9E61 60130 IF cn=0 THEN CALL &9E10 60140 DATA 42,2,158,17,0,157,1,0,1,237,176,221,42,0,158,253,33,0,149,33,0,157,1,0,157,205,62,158,221,42,4,158,253,33,0,192,33,0,149,1,0,0,205,62,158,201,62 60150 DATA 128,95,166,32,5,221,86,0,221,35,123,253,114,0,203,15,254,128,32,1,35,253,35,229,253,229,225,167,237,66,225,200,24,223,17,0,192,42,4,158,1,224,63,237,176,201,0,0,0 60160 RETURN 60170 REM ****************************************************