ZX81 Listing for enlp.p


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

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17948
VARS  : 18741
E-LINE: 18742
STKBOT: 18742
STKEND: 18742


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
  85 DIM C$(6,704)
  90 FOR A=1 TO 5
  95 LET C$(A)=A$
 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
 265 LET C$(6)=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 PRINT "HERE IT IS AGAIN IN 
REAL TIME..."
 320 PAUSE 200
 330 CLS
 340 FOR L=1 TO 25
 350 FOR A=1 TO 6
 360 PRINT AT 0,0;C$(A)
 370 FOR Z=1 TO INT (5-(26-L)/4)
 380 LET ZZ=SIN PI
 390 NEXT Z
 400 NEXT A
 410 CLS
 420 PAUSE 25
 430 NEXT L
 440 PRINT "WAS THAT FUN? I THIN
K WE SHOULD DO THAT AGAIN./"
 450 PAUSE 200
 460 CLS
 470 RUN
 500 SAVE "ENLP"
 510 RUN