An updated version that saves the frames and displays in real time.
PROG : 16509
D-FILE: 17948
VARS : 18741
E-LINE: 18742
STKBOT: 18742
STKEND: 18742
9999 means line number
PRINT means treat as KEYWORD P
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