1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   TAKDROPP
3 REM ! Utg}va         1980-02-10
4 REM ! av (c) Per Lindberg <816>
7 REM ! Minne 16 Kbytes
9 REM +++++++++++++++++++++++++++++++++
10 REM Ett rent grafisk program-ex.
11 REM "Nu {r den l}nga vintern slut!"
12 REM 
13 REM Screening av
14 REM Allan Varcoe & G|ran Olsson
15 REM 
17 REM +++++++++++++++++++++++++++++++++
20 N=5 : A$="THE MAD PROGRAMMER STRIKES AGAIN ! << "
30 FOR A=0 TO 400 : ; A$ : A$=RIGHT$(A$,2%)+LEFT$(A$,1%)
40 FOR ]=0 TO N : NEXT ] : NEXT A
50 RANDOMIZE : RESTORE 400 : ; CHR$(12%) : FOR I%=0% TO 23% : READ A$ : ; CUR(I%,0%)CHR$(23%)A$; : NEXT I%
60 M1%=8% : M2%=10%
70 DIM A(77%),A%(77%)
80 FOR I%=0% TO 77% : A%(I%)=15% : NEXT I%
90 FOR I%=2% TO 76% STEP 4% : A=.5+.5*RND : A(I%-2%)=A-.35-.1*RND : A(I%-1%)=A-.25-.1*RND : A(I%)=A
100 A(I%+2%)=A-.35-.1*RND : A(I%+1%)=A-.25-.1*RND : NEXT I%
110 FOR Q%=1% TO 8%
120 FOR M%=0% TO 3%
130 FOR N%=0% TO 50%
140 I%=78%*RND : IF A(I%)>RND A%=A%(I%)+1% : IF A%<72% SETDOT A%,I%+2% : A%(I%)=A% ELSE END 
150 NEXT N%
160 IF M%<>3% 220
170 FOR M2%=10%-(M1%-8%) TO 71%+(M1%-8%)
180 IF M1%<11% IF M2%>47% AND M2%<55% 200
190 CLRDOT M1%,M2%
200 NEXT M2%
210 M1%=M1%+1%
220 S%=0% : FOR I%=0% TO 77% : S%=S%+A%(I%) : NEXT I% : S%=S%/77%
230 I0%=1%+76%*RND : I%=I0%
240 I%=I%+1% : IF I%>76% I%=1%
250 IF I%=I0% 130
260 A%=A%(I%) : IF A%<S% 240 ELSE IF A%-A%(I%+1%)<5% OR A%-A%(I%-1%)<5% 240
270 I%=I%+2%
280 T%=100%
290 FOR J%=A%+1% TO 70% : K0%=K1% : K1%=DOT(J%+1%,I%) : SETDOT J%+1%,I% : IF NOT K0% CLRDOT J%,I%
300 T%=T%-T%/10%-1%
310 FOR N%=0% TO T% : NEXT N%
320 NEXT J%
330 OUT 6%,0% : FOR N%=0% TO 40% : OUT 6%,5% : NEXT N% : OUT 6%,0%
340 RESTORE 390 : FOR N%=1% TO 10% : READ Z%,Y%,X% : IF Z% SETDOT Y%,I%+X% ELSE CLRDOT Y%,I%+X%
350 FOR K%=0% TO 50% : NEXT K% : NEXT N%
360 NEXT M%
370 NEXT Q%
380 ; CUR(20%,1%);"PL" : ; CUR(21%,1%)CHR$(135%)"&"; : END 
390 DATA 1,71,0, 1,71,1, 1,71,-1, 1,70,0, 1,69,0, 0,71,1, 0,71,-1, 0,69,0, 0,70,0, 0,71,0
400 DATA "                       "
410 DATA "                       "
420 DATA "   `|||||||||||||||||||h||||||||0"
430 DATA "  xssszt"
440 DATA "`~}0"
450 DATA "##k################################k###"
460 DATA "  j                                j"
470 DATA "  j                                j"
480 DATA "  j                                j"
490 DATA "  j                                j"
500 DATA "  j     `pppppp                    j"
510 DATA "  j     j     j    ||<,,<,,||4     j"
520 DATA "  j     j  80 j    5  5  o5     j"
530 DATA "  j     j f b$j    ? 005  *5     j"
540 DATA "  j     j  )! j    %""v$5   o5     j"
550 DATA "  j     j`0   j     h} 5   j5     j"
560 DATA "  j     j     j    ##########!     j"
570 DATA "  j     j     j                    j"
580 DATA "  j     j     j                    j"
590 DATA "  j     j     j                    j"
600 DATA "  *,,,,,~<,,,,,,,,,,,,,,,,,,,."
610 DATA ""
620 DATA ""
630 DATA ""