0010/* PZOOM 0020/* Zoom a bit! 0030/* Klaus-Peter Plog 0040/* 0050DEFINE DATA LOCAL 006001 #SCREEN(A1/20,60) 007001 REDEFINE #SCREEN 0080 02 #LINE(A60/20) 009001 #LOGO(A60/20) INIT 0100 (01) <'PPPPPPPPPP LLL OOOOOOOOOO GGGGGGGGGGGGG '> 0110 (02) <'PPPPPPPPPPP LLL OOOOOOOOOOOO GGGGGGGGGGGGGGG '> 0120 (03) <'PPP PP LLL OOO OO GGG GG'> 0130 (04) <'PPP PP LLL OOO OO GGG GG'> 0140 (05) <'PPP PP LLL OOO OO GGG '> 0150 (06) <'PPP PP LLL OOO OO GGG '> 0160 (07) <'PPP PP LLL OOO OO GGG '> 0170 (08) <'PPP PP LLL OOO OO GGG '> 0180 (09) <'PPPPPPPPPP LLL OOO OO GGG '> 0190 (10) <'PPPPPPPPP LLL OOO OO GGG '> 0200 (11) <'PPP LLL OOO OO GGG GGGGGGGGGG'> 0210 (12) <'PPP LLL OOO OO GGG GG GG'> 0220 (13) <'PPP LLL OOO OO GGG GG GG'> 0230 (14) <'PPP LLL OOO OO GGG GG'> 0240 (15) <'PPP LLL OOO OO GGG GG'> 0250 (16) <'PPP LLL OOO OO GGG GG'> 0260 (17) <'PPP LLL OOO OO GGG GG'> 0270 (18) <'PPP LLL OOO OO GGG GG'> 0280 (19) <'PPP LLL OOO OO GGGGGGGGGGGGGGGG'> 0290 (20) <'PPP LLLLLLLLLLL OOOOOOOOOO GGGGGGGGGGGG '> 030001 REDEFINE #LOGO 0310 02 #LOGO-YX(A1/20,60) 032001 #I(I2) 033001 #J(I2) 034001 #K(I2) 035001 #L(I2) 036001 #X(N8.2) 037001 #Y(N8.2) 038001 #FACTOR(N8.2) 0390END-DEFINE 0400/* 0410FOR #FACTOR = 4 TO 0 STEP -0.1 0420 RESET #LINE(*) 0430 FOR #I 1 60 0440 COMPUTE #X = #I * #FACTOR 0450 FOR #J 1 20 0460 COMPUTE #Y = #J * #FACTOR 0470 IF (NOT (#Y = 1 THRU 20)) OR (NOT (#X = 1 THRU 60)) 0480 ASSIGN #SCREEN(#J,#I) = ' ' 0490 ELSE 0500 ASSIGN #K = #X 0510 ASSIGN #L = #Y 0520 ASSIGN #SCREEN(#J,#I) = #LOGO-YX(#L,#K) 0530 END-IF 0540 END-FOR 0550 END-FOR 0560 SET CONTROL 'N' 0570 EJECT 0580 WRITE #LINE(*) 0590END-FOR 0600/* 0610END