10 REM ************************
20 REM * Hugo Wikstr|m        *
30 REM *      &               *
40 REM * Jocke Nordlander     *
50 REM * ABC&Co 0611/106 75   *
60 REM *               209 22 *
70 REM * 1984/11/02           *
80 REM ************************
90 ; CHR$(12)
100 ; "VAD HETER DU"; : INPUT X$
110 F=0 : K=0 : I=0 : J=0 : E=0 : A$="" : B$="" : \=0
120 FOR A=1 TO 10 : A$(A)="" : K(A)=0 : NEXT A
140 ; CHR$(12)
150 ; "HUR M]NGA BOKS[VER HAR DU I DITT ORD    DET F]R INTE VARA MER EN 10 BOKST[VER"; : INPUT G
160 FOR I=1 TO G
170 GET A$(I)
180 ; CUR(12,E)A$(I)
190 E=E+1
200 NEXT I
210 ; CHR$(12)
220 ; CUR(22,0)STRING$(G,95)
230 ; CUR(0,12)"H[NGNING"
240 ; CUR(2,0)"VILKEN BOKSTAV TAR DU"; : INPUT B$
250 ; CUR(7,\)B$
260 \=\+1
270 FOR I=1 TO G
280 IF A$(I)=B$ THEN IF K(I)=1 THEN 290 ELSE K(I)=1 : GOTO 320
290 NEXT I
300 F=F+1
310 ON F GOTO 360,400,440,470,490,530,560,580
320 ; CUR(22,I-1)A$(I)
330 ; CUR(22,I-1)A$(I)
340 K=K+1 : IF K=G THEN GOTO 600
350 GOTO 240
360 ; CUR(17,14)"***"
370 ; CUR(18,13)"*   *"
380 ; CUR(19,12)"*     *"
390 GOTO 230
400 J=12
410 ; CUR(J,15)"I"
420 IF J=16 THEN GOTO 230
430 J=J+1 : GOTO 410
440 ; CUR(12,17)"/"
450 ; CUR(13,16)"/"
460 GOTO 230
470 ; CUR(11,16)"___"
480 GOTO 230
490 ; CUR(12,18)"!"
500 ; CUR(13,18)"!"
510 ; CUR(14,18)"O"
520 GOTO 230
530 ; CUR(15,18)"I"
540 ; CUR(16,18)"I"
550 GOTO 230
560 ; CUR(15,17)"-+-"
570 GOTO 230
580 ; CUR(17,18)"A"
590 GOTO 660
600 ; "DU KLARADE DIG (FANTSIC!)"
610 ; "VILL DU DUELLA MER (JA)"; : INPUT R$
620 IF R$="N" OR R$="NEJ" THEN 640
630 GOTO 90
640 ; ""X$" DU [R EN FEGSKIT" : ; "H&W" : ; "J&N" : ; "1984"
650 END 
660 ; CHR$(12)
670 ; CUR(4,16)"***"
680 FOR J=5 TO 8
690 ; CUR(J,16)"* *"
700 NEXT J
710 ; CUR(9,10)"******* *******"
720 ; CUR(10,10)"*    "X$""
730 ; CUR(10,24)"*"
740 ; CUR(11,10)"******* *******"
750 FOR J=12 TO 20
760 ; CUR(J,16)"* *"
770 NEXT J
780 ; CUR(21,16)"***"
790 ; "VILL DU H[NGAS MER (JA)"; : INPUT R$
800 IF R$="N" OR R$="NEJ" THEN GOTO 820
810 GOTO 100
820 ; "DU GL\MDE ATT BETALA KIST L]SET" : ; "H&W" : ; "J&N" : ; "1984"