1 REM Ins{nt av 2839
10 REM ********************************
20 REM *         BLOCKAD              *
60 REM ********************************
70 ; CHR$(12) : ; CUR(0,0);"**********     BLOCKAD      ************"
80 ; : ; "\NSKAS INSTRUKTIONER (J/N) ?"; : GET V$ : IF V$="N" OR V$="n" THEN ; CUR(3,0);SPACE$(39) : GOTO 320
90 ; CHR$(12) : ; CUR(0,0);"**********     BLOCKAD      ************"
100 ; "Detta {r spelet blockad f|r tv} spelare.Det g}r ut p} att du skall lura din"
101 ; "motst}ndare in i den 'v{gg' ";
110 ; "du sj{lv    bygger samtidigt som du inte sj{lv k|r  in i motst}ndarens eller din egen 'v{gg'"
120 ; "Du kan {ven spela ensam (f|r tr{ning)." : ; 
121 ; "Det finns 50 olika hastigheter,d{r 1 {r snabbast och 50 {r ";
130 ; "l}ngsammast."
140 ; : ; "Om n}gon spelare k|r in i en v{gg upph|rspelet och det blinkar i vinnarens h|rn."
150 GOSUB 830 : GET V$ : ; CHR$(12) : ; CUR(0,0);"**********     BLOCKAD     *************"
160 ; : ; "Spelare 1 (Anv{nds d} man spelar ensam) sitter till v{nster om tangentbordet."
170 ; "Spelare 1 anv{nder f|ljande tangenter:"
180 ; "                    Q                                     A   S                                     Z"
190 ; : ; "Q=Upp}t,A=V{nster,S=H|ger,Z=Ned}t "
200 ; : ; "Om ingen tangent nedtryckes forts{tter  'v{ggen' i sin nuvarande riktning (Den  st}r aldrig stilla)."
210 ; : ; "Spelare 1:s 'v{gg' startar i |vre       v{nstra h|rnet."
220 GOSUB 830 : GET V$ : ; CHR$(12) : ; CUR(0,0);"**********     BLOCKAD     *************"
230 ; : ; "Spelare 2 (Sitter till h|ger om tangent bordet) styr med f|ljande tangenter:"
240 ; "                    ^                                     [   *                                     -"
250 ; : ; "^=Upp}t,[=V{nster,*(')=H|ger,-=Ned}t"
260 ; "Spelare 2:s 'v{gg' startar i nedre h|grah|rnet."
270 GOSUB 830 : GET V$ : ; CHR$(12) : ; CUR(0,0);"**********     BLOCKAD      ************"
280 ; : ; "Om du {r p} v{g en riktning f}r du inte direkt v{nda om eftersom du d} k|r in i din egen 'v{gg'." : ; 
290 ; "Ex. Du {r p} v{g rakt ner och trycker   ner Q (=upp}t).D} f|rlorar du.";
300 ; "Vill du   v{nda om m}ste du f|rst k|ra }t v{nster eller h|ger och sedan trycka ner Q."
310 ; "Motsvarande g{ller spelare 2 med dennes tangenter."
320 ; : ; "HUR M]NGA SPELARE (1 eller 2)"; : ONERRORGOTO 320 : INPUT N1% : IF N1%>2 OR N1%<1 THEN 320
330 ; : ; "HASTIGHET (1-50)"; : ONERRORGOTO 330 : INPUT N : IF N<0 OR N>50 THEN 330
340 REM ********* SPELPLANEN *********
350 FOR I%=0% TO 23% : ; CHR$(151) : NEXT I%
360 FOR G1%=2% TO 79% : SETDOT 0%,G1% : NEXT G1%
370 FOR G1%=2% TO 79% : SETDOT 68%,G1% : NEXT G1%
380 FOR G1%=0% TO 67% : SETDOT G1%,2% : NEXT G1%
390 FOR G1%=0% TO 67% : SETDOT G1%,79% : NEXT G1%
400 ; CUR(10,13);CHR$(135);"REDO (J) ?";CHR$(151) : GET U$ : IF U$="J" OR U$="j" THEN 410 ELSE 400
410 ; CUR(10,13);"                "
420 REM ******** HUVUDPROGRAM ********
430 X%=2 : Y%=4 : B%=77 : A%=65 : Z%=3 : L%=2
440 D=D+1 : IF INP(56%) AND 128% THEN 460
450 IF D<N THEN 440 ELSE 550
460 D=D+1 : IF D<N THEN 460 ELSE T%=INP(56%)-128% : OUT 6,173
470 IF T%=ASC("Q") OR T%=ASC("q") THEN Z%=1
480 IF T%=ASC("A") OR T%=ASC("a") THEN Z%=2
490 IF T%=ASC("S") OR T%=ASC("s") THEN Z%=3
500 IF T%=ASC("Z") OR T%=ASC("z") THEN Z%=4
510 IF T%=ASC("^") OR T%=ASC("~") THEN L%=1
520 IF T%=ASC("[") OR T%=ASC("{") THEN L%=2
530 IF T%=ASC("'") THEN L%=3
540 IF T%=ASC("-") THEN L%=4
550 ON Z% GOTO 560,570,580,590
560 X%=X%-1 : GOTO 600
570 Y%=Y%-1 : GOTO 600
580 Y%=Y%+1 : GOTO 600
590 X%=X%+1
600 IF N1%=1 THEN 650 ELSE ON L% GOTO 610,620,630,640
610 A%=A%-1 : GOTO 650
620 B%=B%-1 : GOTO 650
630 B%=B%+1 : GOTO 650
640 A%=A%+1
650 IF DOT(X%,Y%) THEN 690
660 IF DOT(A%,B%) THEN 710
670 SETDOT X%,Y% : IF N1%<>1 THEN SETDOT A%,B%
680 D=0 : GOTO 440
690 IF N1%=1 THEN 730 ELSE OUT 6,37 : POKE 32628,255,255,255,255 : \1=\1+1
700 POKE 32500,255,255,255,255 : GOTO 730
710 OUT 6,37 : POKE 31745,255,255,255,255 : \2=\2+1
720 POKE 31873,255,255,255,255
730 FOR ]1=1 TO 3500 : NEXT ]1 : ; CHR$(12)
740 OUT 6,0
750 IF N1%=1 THEN 780
760 ; CUR(6,8);"SPELARE 1:";\2
770 ; CUR(10,8);"SPELARE 2:";\1
780 ; CUR(14,8);"IGEN (J/N) ?"; : GET U$ : IF U$="N" OR U$="n" THEN 790
781 IF U$="J" OR U$="j" THEN 350 ELSE 780
790 ; : ; CUR(14,8);"HUR M]NGA SPELARE (1/2)"; : ONERRORGOTO 790 : INPUT N1% : IF N1%>2 OR N1%<1 THEN 790
800 ; CUR(14,8);STRING$(30,0); : ; CUR(14,8);"HASTIGHET (1-50)";
801 ONERRORGOTO 330 : INPUT N : IF N<1 OR N>50 THEN 800
810 GOTO 350
820 END 
830 ; CUR(22,0);"TRYCK p} RETURN n{r du l{st f{rdigt" : RETURN