10 REM +---------------------------+
20 REM ! The mad teknolog strikes! !
30 REM +---------------------------+
40 REM * Per Lindberg 79 11 16     *
50 REM ! Ny s}ng {r Dover Calais   !
60 REM ! Om gjort av C.l och E.h   ! 
70 REM *****************************
80 FOR ]=0 TO 3000 : NEXT ]
90 ; CHR$(12)
100 FOR ]=0 TO 2000 : NEXT ]
110 ; : ; : ; 
120 DIM A$(20),A%(20) : RESTORE 130 : FOR I%=1% TO 20% : 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,a#',23
140 DATA e#',12
150 READ A$,T%,B$ : IF A$="" 160 ELSE 180
160 ; CHR$(12)CUR(2%,5%)CHR$(151%)CUR(0%,0%)"CL-88"CHR$(151%) : ; "  &"CHR$(151%);
170 FOR I=1 TO 1000 : NEXT I : CHAIN 'MENY'
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 20% : IF A$<>A$(I%) THEN NEXT I% ELSE A%=A%(I%) : GOSUB 210 : GOTO 150
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,"",a,2," Vi",e,4," s}g",a,2," p}",a,1," va",e,4,"rann "
260 DATA g#,2,"och",a,2," vi",h,2," n{r",h,2,"ma",h,2,"de",a,2," oss",c#',4," land "
270 DATA h,2,"n{r",c#',2," vi",d',2," m|tt",c#',2,"es",h,2," mell",a,2,"an",a,2," 'Dov",e,2,"er-",c#',2,"Cal"
280 DATA h,8,"ais' ",p,4," ",a,2,"All",a,2," min",e,4," r{d",a,2,"sla",a,1," f|r",e,4,"svann "
290 DATA g#,2,"n{r",a,2," du",h,2," sak",h,2,"ta",h,2," tog",a,2," min",c#',4," hand "
300 DATA h,2,"n}g",c#',2,"on",d',2,"stans",c#',2," e",h,2,"mell",a,2,"an",c#',4," 'Dov",h,4,"er-",a,1,"Call",a,8,"ais' "
310 DATA p,2,"   ",a,2," Vi",a,2," st}r",e,2," ty-",a,2,"y",a,2,"sta",e,1," i",h,3," natt",h,4,"en "
320 DATA h,2,"och",c#',2," h|r",d#',2," v}g",c#',2,"or",a,2,"nas",a,6," s}ng "
330 DATA e,2,"en",f#,2," lugn",a,2," och",a,2," still",f#,2,"a",e,4," se",c#',2,"re",h,6,"nad "
340 DATA p,2,""e,2,"Dov",a,2,"ers",a,2," vi",e,1,"ta",h,3," klipp",h,4,"or "
350 DATA c#',2,"i",d',2," so-",c#',2,"ol",a,2," ned",a,6,"g}ng "
360 DATA d',2,"drunk",d',2,"nar",d',2," i",e#',2," ett"
370 DATA c#',2," gyll",a#',2,"e",c#',2,"ne",h,6," haaav "
380 DATA h,2,"och",h,2," v}",c#',2,"ra",d',2," fr}",c#',2,"gor" 
390 DATA a#',2," fi",h,2,"nner",h,6," svar "
400 DATA p,0," ",a,2," Vi",e,4," s}g",a,2," p}",a,1," va",e,4,"rann "
410 DATA g#,2,"och",a,2," vi",h,2," n{r",h,2,"ma",h,2,"de",a,2," oss",c#',4," land "
420 DATA h,2,"n{r",c#',2," vi",d',2," m|tt",c#',2,"es",h,2," mell",a,2,"an",a,2," 'Dov",e,2,"er-",c#',2,"Cal"
430 DATA h,8,"ais' ",p,4," ",a,2,"All",a,2," min",e,4," r{d",a,2,"sla",a,1," f|r",e,4,"svann " 
440 DATA g#,2,"n{r",a,2," du",h,2," sak",h,2,"ta",h,2," tog",a,2," min",c#',4," hand "
450 DATA h,2,"n}g",c#',2,"on",d',2,"stans",c#',2," e",h,2,"mell",a,2,"an",c#',4," 'Dov",h,4,"er-",a,1,"Call",a,8,"ais' " 
460 DATA ,0,SLUT