FIGSAVER.BAS

10 ' ALMACENA FIGURAS EN MEMORIA
20 '        COMO BYTES
30 '
31 ' preparado para funcionar con una     sola figura
32 ' compatible con figgen.bas
33 ' tambien podr¡a funcionar con
34 ' varias figuras. 999 indica fin
35 '
40 SCREEN 2:CLEAR 200,49999!
50 BLOAD"GLYPTO.SCR",S
60 NB=0:CB=50001!
70 READ X:IF X=999 THEN 1000
80 READ Y,AX,AY
85 FOR F=Y TO Y-1+AY
86 FOR G=X TO X-1+AX
87 FOR H=0 TO 7
90 A=VPEEK(F*256+H+G*8)
91 POKE CB,A
92 NB=NB+1:CB=CB+1
93 NEXT H
94 NEXT G
95 NEXT F
120 GOTO 70
1000 SCREEN 1:PRINT"BYTES ALMACENADOS"
1010 PRINT"DESDE 50002 HASTA";CB
1020 PRINT:PRINT NB;" BYTES"
1030 END
2000 DATA 3,3,2,3,999