10 REM ........MAZETTI.................
20 REM .                              .
30 REM .       Rustan Ligander        .
40 REM .       Gamla Strandgatan 1    .
50 REM .       453 00  Lysekil        .
60 REM .       0523-100 61            .
70 REM .       Medlem 803             .
80 REM .       1984-03-05             .
90 REM .................................
100 RANDOMIZE : H%=72% : L%=80%
110 DIM L%(H%*L%-1%)
120 H%(0%)=2% : H%(1%)=-2%*L% : H%(2%)=-2% : H%(3%)=2%*L% : REM Hopptabell
130 C%=127% : A%=244% : A1%=A%
140 PRINT CHR$(12%,151%)'     nnnnnnnn V[NTA LITE ========'
150 FOR I%=0% TO H%*L%-1% : L%(I%)=C% : NEXT I% : L%(A%)=4%
160 FOR I%=1% TO 24% : PRINT CHR$(151%,106%)STRING$(38%,127%); : NEXT I%
170 REM Tag bort kanterna
180 FOR I%=0% TO L%-1%
190 L%(I%)=255% : L%(I%+L%)=255% : L%(I%+2%*L%)=255%
200 L%(I%+(H%-2%)*L%)=255% : L%(I%+(H%-1%)*L%)=255%
210 NEXT I%
220 FOR I%=3% TO H%-3%
230 L%(I%*L%)=255% : L%(I%*L%+1%)=255% : L%(I%*L%+2%)=255%
240 NEXT I%
250 REM Huvudloop
260 J%=RND*4% : X%=J%
270 B%=A%+H%(J%)
280 IF L%(B%)=C% L%(B%)=J% : B1%=A%+H%(J%)/2 : L%(B1%)=H% : A%=B% : GOSUB 350 : GOTO 260
290 J%=-(J%+1%)*(J%<3%) : IF J%<>X% 270
300 J%=L%(A%) : L%(A%)=H% : IF J%<4% A%=A%-H%(J%) : GOTO 260
310 B%=A1% : GOSUB 350 : REM Klart
320 GOSUB 380 : REM In-Ut
330 IF INP(56%) AND 128% THEN END ELSE 330
333 REM Ev.tiil printer
340 REM Dotterier
350 R%=B1%/L% : K%=B1%-L%*R% : CLRDOT R%-2%,K%
360 R%=B%/L% : K%=B%-L%*R% : CLRDOT R%-2%,K%
370 RETURN 
380 REM In- och utg}ng
390 K5%=L%/9%
400 IF NOT DOT(1%,K5%) AND NOT DOT(67%,L%-K5%) CLRDOT 0%,K5% : CLRDOT 68%,L%-K5% ELSE K5%=K5%+1% : GOTO 400
410 RETURN 
420 REM ARK AB LA PRO GR AM FIN NS DET GO TT OM