Program that enlarges a moon in multiple frames.
PROG : 16509
D-FILE: 17575
VARS : 18368
E-LINE: 18369
STKBOT: 18369
STKEND: 18369
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
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