ZX81 Listing for enl.p


ZX81 program listing for **ENLARGER**SLR/1984***

**ENLARGER**SLR/1984*** (enl.p)

Program that enlarges a moon in multiple frames.


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17575
VARS  : 18368
E-LINE: 18369
STKBOT: 18369
STKEND: 18369


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **ENLARGER**SLR/1984***
  20 PRINT "WE SHALL ENLARGE A P
ICTURE OF A MOON."
  21 DIM A$(704)
  30 LET A$="                   
                                
                                
                                
                                
                 "
  40 PRINT A$( TO 180)
  50 PRINT "OK, TO ENLARGE THE M
OON WE WILL TAKE EACH SQUARE AND
 MULTIPLY ITBY 4 MAKING A LARGER
 PICTURE."
  60 PRINT ,,"PRESS ENTER TO BEG
IN..."
  70 PAUSE 300
  80 CLS
  90 FOR A=1 TO 5
 100 PRINT AT 0,0;A$
 105 PAUSE 50
 110 DIM B$((LEN A$)*4)
 120 FAST
 130 LET L=1
 140 FOR B=1 TO (LEN A$) STEP 32
 145 FOR C=B TO B+15-((B+15-(
LEN A$)) AND B+15>LEN A$)
 150 LET B$(L)=A$(C)
 160 LET B$(L+1)=A$(C)
 170 LET B$(L+32)=A$(C)
 180 LET B$(L+33)=A$(C)
 190 LET L=L+2
 200 NEXT C
 210 LET L=L+32
 220 NEXT B
 230 SLOW
 240 LET A$=B$
 250 PAUSE 50
 260 NEXT A
 270 PRINT AT 0,0;A$
 280 PRINT AT 0,0;"THAT WAS A SC
ALE ENLARGEMENT OF A MOON.  NOT 
VERY SPECTACULAR,  BUT, IF ONE C
OULD MODIFY THIS   SIMPLE PROGRA
M, THE EFFECT COULDBE BOTH USEFU
L AND SPECTACULAR."
 290 PAUSE 300
 300 CLS
 310 RUN
 400 SAVE "ENL"
 410 RUN