100 REM *******************
101 REM *      KRYSS      *
102 REM *AV YVONNE & ROGER*
103 REM *******************
111 REM  : MATA ENDAST IN RADER 400-600 SOM PRINTAR KRYSSET. LYCKA TILL.
455 PRINT
460 FOR I=1 TO 9
465 DIM A$(9,12)
470 FOR J=1 TO 12
480 READ A$(I,J)
484 NEXT J
486 NEXT I
490 DATA a,a,a,a,a,b,b,b,b,b,a,a,a,a,b,b,b,a,a,b,b,a,a,a,a,b,b,b,a,b,a,b,b,a,a,a
500 DATA a,b,b,b,b,b,b,b,b,b,b,b,b,b,b,b,a,b,b,b,b,b,a,b,a,a,a,b,b,a,a,a,b,a,a,b
510 DATA b,b,b,a,b,b,b,a,a,b,b,b,a,b,b,b,b,b,a,b,b,a,a,b,a,a,b,b,b,b,b,b,b,b,a,a
520 CALL CHAR(97,"FFFFFFFFFFFFFFFF")
530 CALL CHAR(98,"FF818181818181FF")
540 CALL CHAR(99,"00FE02020702")
550 A$(5,4)=CHR$(99)
560 A$(4,12)=CHR$(99)
570 PRINT TAB(6);"123456789012"
580 C=1
590 FOR I=1 TO 9
600 PRINT TAB(3);C;
610 FOR J=1 TO 12
620 PRINT A$(I,J);
630 NEXT J
640 C=C+1
650 NEXT I
655 PRINT
660 INPUT "VILL DU SE SVARET INPUT J":B$
670 IF B$="J" THEN 455
680 STOP
690 DATA a,a,a,a,a,I,N,P,U,T,a,a,a,a,N,E,W,a,a,R,R,a,a,a,a,H,E,X,a,],a,I,U,a,a,a
700 DATA a,E,X,T,A,S,I,N,S,T,R,U,U,L,T,R,a,E,N,T,E,R,a,M,a,a,a,A,V,a,a,a,L,a,a,E
710 DATA F,O,R,a,R,A,D,a,a,S,I,N,a,B,O,R,],S,a,O,R,a,a,T,a,a,M,U,N,C,H,M,A,N,a,a