10 DIM O$=9%,Q$=1%
20 I1%=11% : I2%=58%
30 J1%=15% : J2%=62%
40 O$='WAZS]\-['+CHR$(13%)
50 ; CHR$(12%)'    Ge ett alternativ'
60 ; CUR(2%,4%)'1. Sluta'
70 ; CUR(3%,4%)'2. Rita sj{lv'
80 ; CUR(4%,4%)'3. Virus'
90 ; CUR(5%,4%)'4. Glidare med sm{ll'
100 ; CUR(6%,4%)'5. Rymdskepp'
110 ; CUR(7%,4%)'6. Cheshire katt'
120 ; CUR(8%,4%)'7. Monkey'
130 ; CUR(0%,25%); : GET Q$
140 IF Q$<'1' OR Q$>'7' 130
150 ; CUR(1%+VAL(Q$),2%)''
160 FOR I%=0% TO 5000% : NEXT I%
170 ON VAL(Q$) GOSUB 300,330,630,780,850,900,1020
180 Z%=CALL(49152%)
190 GOTO 50
200 REM  Rita ramen
210 ; CHR$(12%) : FOR I%=1% TO 23% : ; 
220 ; CHR$(23%); : NEXT I%
230 ; CUR(0%,13)'L   I   F   E' : ; 
240 ; SPACE$(13%)'(Avbryt med "RETURN")'
250 FOR I%=10% TO 59% : SETDOT I%,14%
260 SETDOT I%,63% : NEXT I%
270 FOR I%=14% TO 63% : SETDOT 10%,I%
280 SETDOT 59%,I% : NEXT I%
290 RETURN 
300 REM  Sluta
310 ; CUR(20%,4%)'ADJ\'
320 END 
330 REM  Rita ursprungsbilden
340 ; CHR$(12%)
350 ; : ; 'Du ritar  med W - A - Z - S'
360 ; : ; 'Du suddar med \ - - - [ - ]'
370 ; : ; 'Sluta rita med RETURN'
380 ; : ; 'Avsluta LIFE med A'
390 ; CUR(23%,0%)'Tryck p} RETURN ';
400 GET Q$ : IF Q$<>CHR$(13%) 400
410 GOSUB 210
420 I%=11% : J%=15% : SETDOT I%,J%
430 SETDOT I%,J% : GET Q$ : Q%=INSTR(1%,O$,Q$)+1%
440 ON Q% GOTO 430,450,470,490,510,530,550,570,590,610
450 IF I%>11% I%=I%-1% : SETDOT I%,J%
460 GOTO 430
470 IF J%>15% J%=J%-1% : SETDOT I%,J%
480 GOTO 430
490 IF I%<58% I%=I%+1% : SETDOT I%,J%
500 GOTO 430
510 IF J%<62% J%=J%+1% : SETDOT I%,J%
520 GOTO 430
530 IF I%>11% CLRDOT I%,J% : I%=I%-1%
540 GOTO 430
550 IF J%>15% CLRDOT I%,J% : J%=J%-1%
560 GOTO 430
570 IF I%<58% CLRDOT I%,J% : I%=I%+1%
580 GOTO 430
590 IF J%<62% CLRDOT I%,J% : J%=J%+1%
600 GOTO 430
610 ; CUR(2%,26%)'A")      '
620 RETURN 
630 REM  Virus
640 GOSUB 210 : GOSUB 610
650 FOR I%=I1%+2% TO I2%-3% STEP 3%
660 FOR J%=J1%+2% TO J2%-3% STEP 3%
670 SETDOT I%,J% : SETDOT I%,J%+1%
680 SETDOT I%+1%,J% : SETDOT I%+1%,J%+1%
690 NEXT J% : NEXT I%
700 FOR I%=33% TO 37%
710 FOR J%=39% TO 43%
720 CLRDOT I%,J% : NEXT J% : NEXT I%
730 SETDOT 34%,40% : SETDOT 34%,41%
740 SETDOT 34%,42% : SETDOT 35%,40%
750 SETDOT 35%,42% : SETDOT 36%,40%
760 SETDOT 36%,41% : SETDOT 36%,42%
770 RETURN 
780 REM  Glidare med sm{ll
790 GOSUB 200 : GOSUB 610
800 SETDOT I1%+1%,J1%+2% : SETDOT I1%+2%,J1%+3% : SETDOT I1%+3%,J1%+1% : SETDOT I1%+3%,J1%+2% : SETDOT I1%+3%,J1%+3%
810 SETDOT 34%,39% : SETDOT 34%,40%
820 SETDOT 36%,39% : SETDOT 36%,40%
830 SETDOT 35%,38% : SETDOT 35%,41%
840 RETURN 
850 REM  Rymdskepp
860 GOSUB 200 : GOSUB 610
870 SETDOT I1%+3%,J1%+1% : SETDOT I1%+4%,J1%+2% : SETDOT I1%+4%,J1%+3% : SETDOT I1%+4%,J1%+4% : SETDOT I1%+4%,J1%+5%
880 SETDOT I1%+4%,J1%+6% : SETDOT I1%+3%,J1%+6% : SETDOT I1%+2%,J1%+6% : SETDOT I1%+1%,J1%+5%
890 RETURN 
900 REM  Cheshire katt
910 GOSUB 200 : GOSUB 610
920 SETDOT 24%,39% : SETDOT 24%,42%
930 SETDOT 25%,39% : SETDOT 25%,42%
940 SETDOT 25%,40% : SETDOT 25%,41%
950 SETDOT 26%,38% : SETDOT 26%,43%
960 SETDOT 27%,38% : SETDOT 27%,43%
970 SETDOT 27%,40% : SETDOT 27%,41%
980 SETDOT 28%,38% : SETDOT 28%,43%
990 SETDOT 29%,39% : SETDOT 29%,42%
1000 SETDOT 29%,40% : SETDOT 29%,41%
1010 RETURN 
1020 REM  Monkey
1030 GOSUB 200 : GOSUB 610
1040 SETDOT 40%,38% : SETDOT 41%,38%
1050 SETDOT 41%,37% : SETDOT 41%,39%
1060 SETDOT 42%,37% : SETDOT 42%,39%
1070 RETURN