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%