10 REM +---------------------------+
20 REM ! The mad teknolog strikes! !
30 REM +---------------------------+
40 REM * Per Lindberg 79 11 16     *
50 DEFFNA%(Y%,X%)=31744%+5%*(Y% AND 24%)+128%*(Y% AND 7%)+X%
60 ; INP(3);CHR$(12%)CUR(10%,10%)"The mad programmer" : ; TAB(10%)"strikes again....!"
70 FOR Y%=10% TO 11% : FOR X%=10% TO 28% : A%=FNA%(Y%,X%) : POKE A%,PEEK(A%) OR 128% : NEXT X% : NEXT Y%
80 FOR ]=0 TO 3000 : NEXT ]
90 ; CHR$(12%); : RESTORE 400 : FOR I%=0% TO 8% : READ A$ : ; CHR$(151%)A$ : NEXT I%
100 FOR ]=0 TO 2000 : NEXT ]
110 ; 
120 DIM A$(19),A%(19) : RESTORE 130 : FOR I%=1% TO 19% : READ A$(I%),A%(I%) : NEXT I%
130 DATA p,0,c,45,e,34,d#,37,f,31,g,27,a,23,h,20,c',18,d',15,c'#,16,d'#,14,d,40,f#,29,a#,21,c#,42,g#,25,c#',16,d#',14
140 READ A$,T%,B$ : IF A$="" 150 ELSE 180
150 ; CUR(0%,0%); : RESTORE 490 : FOR I%=9% TO 17% : READ A$ : ; CHR$(151%)A$SPACE$(39%-LEN(A$)); : NEXT I%
160 ; CUR(2%,5%)CHR$(151%)CUR(0%,0%)"PL-79"CHR$(151%) : ; "  &"CHR$(151%);
170 END 
180 IF B$="" ; CUR(22%,0%)SPACE$(78%)CUR(22%,0%); ELSE ; B$; : IF B$<>"" THEN IF MID$(B$,LEN(B$),1)=" " THEN ; 
190 FOR I%=1% TO 18% : IF A$<>A$(I%) THEN NEXT I% ELSE A%=A%(I%) : GOSUB 210 : GOTO 140
200 ; : ; : ; "Undefined symbol: ";A$ : END 
210 O%=121% : IF A%=0% THEN O%=0% ELSE T1%=50%/SQR(A%)
220 FOR I%=1% TO T1%*T%*2.4
230 OUT 6%,O% : FOR T%=0% TO A% : NEXT T%
240 OUT 6%,0% : NEXT I% : RETURN 
250 DATA p,10,"",g,2,"Hej",g,1," p}",g,1," er",a,1," br|",g,1,"der",e,2," all",c,2,"a, "
260 DATA c',1,"vi",c',1," ska",c',2," su",c',1,"pa",c',1," till",d',1," dess",c',1," vi",a,2," fall",f,1,"a. "
270 DATA a,1,"men",a,1," br{nn",a,1,"vins",g,2,"lit",g,1,"ern,",g,1," den", g,1," {r",a,1," f|r",h,2," li",h,2,"ten "
280 DATA a,2,"den",g,1," {r",a,1," f|r",g,1," li",f,1,"ten",e,1," f|r",d,1," oss",c,2," all",c',4,"a! "
290 DATA p,3," ",e,1,"]",g,2," en",g,1," g}ng",g,1," n{r",a,1," jag",g,1," {r",e,2," d|",c,2,"der "
300 DATA c',2,"och",c',2," lagd",c',1," mell",c',1,"an",d',1," tven",c',1,"ne",a,2," br|",f,3,"der "
310 DATA p,1,"",a,1,"be",g,2,"grav",g,3," mej",p,1,",",a,1," be",h,2,"grav",h,2," mej "
320 DATA a,2,"i en",g,1," br{nn",a,1,"vins",g,1,"k{ll",f,1,"a",e,1,"re",d,1," p}",c,2," S|",c',4,"der. "
330 DATA p,3," ",e,1,"P}",f,1," min",g,2," grav",g,1,"sten",g,1," ska",a,1," det",g,1," st}",e,2," ris",c,2,"tat "
340 DATA c',2,"med",c',2," tven",c',1,"ne",c',1," sm}",d',1," en",c',1,"kla",a,2," ra",f,3,"der "
350 DATA a,2,"h{r",g,1," vil",g,1,"ar",g,2," det",a,2," en",h,1," fyll",h,1,"e",h,3,"bror "
360 DATA a,1,"som",g,1," all",a,1,"tid",g,1," var",f,1," s}",e,1," god",d,1," och",c,2," gla",c',4,"der."
370 DATA p,0,"",a,4,"H{r",g,2," vil",g,2,"ar",g,4," det",a,4," en",h,2," fyll",h,2,"e",h,8,"bror "
380 DATA a,2,"som",g,2," all",a,2,"tid",g,2," var",f,2," s}",e,2," glad",d,2," och",c,2," go-",c',4,"o-",c',8,"deer!"
390 DATA ,0,SLUT
400 DATA "               *0    :  "
410 DATA "                k!"
420 DATA "                 o%"
430 DATA "                 ""7"
440 DATA "                  k!"
450 DATA "                  j"
460 DATA "                  j"
470 DATA "                  j"
480 DATA "                (,/-,"
490 DATA "                ""#o'#"
500 DATA "                  j"
510 DATA "                  j"
520 DATA "                  :  0"
530 DATA "                 h!i"
540 DATA "                `%  e"
550 DATA "                6   ""4"
560 DATA "               *     *"
570 DATA "                                     "
580 DATA "                  `"
590 DATA "                  z0"
600 DATA "                 `u"
610 DATA "                 *x?"