DIM A(255)

SAVESC
10000 REM SCREEN TO CASSETTE SUBROUTINE
10010 FOR I=1024 TO 1534 STEP 2
10020 J=(I-1024)/2
10030 A(J)=PEEK(I)*256+PEEK(I+1)
10040 NEXT I
10050 OPEN"O",-1,"DISPLAY"
10060 FOR I=0 TO 255
10070 PRINT#-1,A(I)
10080 NEXT I
10090 CLOSE-1
10100 RETURN
11000 REM CASSETTE TO SCREEN SUBROUTINE
11010 OPEN"I",-1 ,"DISPLAY"
11020 FOR I=0 TO 255
11030 INPUT#-1,A(I)
11040 NEXT I
11050 CLOSE-1
11060 FOR I=1024 TO 1534 STEP 2
11070 J=(I-1024)/2
11120 B=INT(A(J)/(256))
11130 POKE I,B:A(J)=A(J)-B*256
11140 POKE I+1,A(J)
11150 NEXT I
11160 RETURN

SAVESCMC
10000 REM SCREEN TO CASSETTE SUBROUTINE
10010 FOR I=16384 TO 16894 STEP 2
10020 J=(I-16384)/2
10030 A(J)PEEK(I)*256+PEEK(I+1)
10040 NEXT I
10050 CSAVE*A,"DISPLAY"
10060 RETURN
11000 REM CASSETTE TO SCREEN SUBROUTINE
11010 CLOAD*A,"DISPLAY"
11020 FOR I=16384 TO 16894 STEP 2
11030 J=(I-16384)/2
11040 B=INT(A(J)/(256))
11050 POKE I,B:A(J)=A(J)-B*256
11060 POKE I+1,A(J)
11070 NEXT I
11080 RETURN