10 REM ++++++++++++++++++++++++++++++++
11 REM ! Program ....   INST[NGD
12 REM ! Utg}va         1983-01-27
13 REM ! av (c) Isak Engquist
14 REM ! Minne 16 Kbytes
15 REM ! Ins{nt av 375
16 REM ++++++++++++++++++++++++++++++++
17 REM 
18 REM Screened by <TCP>
19 REM 
20 REM *****************************
21 REM *                           *
22 REM * R%  K%  = V[NSTER SPELARE *
23 REM * R1% K1% =  H\GER  SPELARE *
24 REM *                           *
25 REM * P%  =  V[NSTER PO[NG      *
26 REM * V%  =  V[NSTER RIKTNING   *
27 REM * P1% =   H\GER  PO[NG      *
28 REM * V1% =   H\GER  RIKTNING   *
29 REM *                           *
30 REM * F%  BEST[MMER HASTIGHETEN *
31 REM *                           *
32 REM *****************************
33 ; CHR$(12%);'           I N S T [ N G D' : ; TAB(9%)CHR$(151%)'#################'
34 ; : ; 'Du och din motspelare ska styra varsin  linje och f|rs|ka st{nga in varandra.'
35 ; 'Den som f|rst g}r p} en linje, vilken   som helst, har f|rlorat.'
36 ; : ; '       Ni styr era linjer med :' : ; 
37 ; '       A S                 \ ['
38 ; : ; 'A och \ sv{nger }t v{nster              S och [ sv{nger }t h|ger'
39 ; : ; 'Skruva upp volymen !' : ; : ; 'Upper case ska LYSA !                                  ===='
40 ; : ; 'Fart (H|g / Mellan / L}g) ?'; : POKE 65013%,0% : GET T$
41 ON INSTR(1%,'HhMmLl',T$)+1% GOTO 33,42,42,43,43,44,44
42 F%=50% : ; ' H|g' : GOTO 45
43 F%=125% : ; ' Mellan' : GOTO 45
44 F%=200% : ; ' L}g'
45 ; : ; : ; 'Tryck p} RETURN n{r ni {r redo.';
46 IF INP(56%)<>141% 46
47 ; CHR$(12%) : FOR I%=0% TO 23% : ; CUR(I%,0%)CHR$(151%); : NEXT I%
48 FOR I%=0% TO 71% : SETDOT I%,2% : SETDOT I%,79% : NEXT I%
49 FOR I%=2% TO 79% : SETDOT 0%,I% : SETDOT 71%,I% : NEXT I%
50 R%=18% : K%=21% : R1%=18% : K1%=60% : V%=3% : V1%=3% : W%=0% : Z%=0% : C%=0%
51 REM -------- B\RJA
52 REM -------- FLYTTA V[NSTER SPELARE
53 ON V% GOTO 54,55,56,57
54 R%=R%-1% : IF DOT(R%,K%) C%=1% : GOTO 58 ELSE SETDOT R%,K% : GOTO 58
55 K%=K%-1% : IF DOT(R%,K%) C%=1% : GOTO 58 ELSE SETDOT R%,K% : GOTO 58
56 R%=R%+1% : IF DOT(R%,K%) C%=1% : GOTO 58 ELSE SETDOT R%,K% : GOTO 58
57 K%=K%+1% : IF DOT(R%,K%) C%=1% ELSE SETDOT R%,K% : GOTO 58
58 REM -------- FLYTTA H\GER SPELARE
59 ON V1% GOTO 60,61,62,63
60 R1%=R1%-1% : IF DOT(R1%,K1%) 76 ELSE SETDOT R1%,K1% : GOTO 64
61 K1%=K1%-1% : IF DOT(R1%,K1%) 76 ELSE SETDOT R1%,K1% : GOTO 64
62 R1%=R1%+1% : IF DOT(R1%,K1%) 76 ELSE SETDOT R1%,K1% : GOTO 64
63 K1%=K1%+1% : IF DOT(R1%,K1%) 76 ELSE SETDOT R1%,K1% : GOTO 64
64 IF C%=1% 74
65 REM -------- F\RDR\JNING
66 FOR I%=1% TO F% : NEXT I%
67 REM -------- KOLLA OM N]'N TRYCKER
68 W%=INP(56%) : IF W%=Z% 52 ELSE IF W%<128% Z%=0% : GOTO 52 ELSE Z%=W%
69 IF W%=193% V%=V%+1% : IF V%>4% V%=1%
70 IF W%=211% V%=V%-1% : IF V%<1% V%=4%
71 IF W%=220% V1%=V1%+1% : IF V1%>4% V1%=1%
72 IF W%=219% V1%=V1%-1% : IF V1%<1% V1%=4%
73 GOTO 52
74 REM -------- V[NSTER GICK P]
75 IF R%=R1% AND K%=K1% S%=3% ELSE S%=1% : GOTO 78
76 REM -------- H\GER GICK P]
77 IF R1%=R% AND K1%=K% OR C%=1% S%=3% ELSE S%=2% : GOTO 78
78 REM -------- STOPP SPEL
79 ON S% GOSUB 85,88,91
80 ; CUR(21%,0%)'Tryck RETURN f|r nytt spel'CHR$(151%);
81 ; CUR(22%,0%)'Tryck SPACE om ni vill byta fart'CHR$(151%);
82 ; CUR(20%,25%)P%' -'P1%
83 IF INP(56%)<>141% 84 ELSE 47
84 IF INP(56%)<>160% 83 ELSE 18
85 P1%=P1%+1% : OUT 6%,249% : FOR I=1 TO 200 : NEXT I : OUT 6%,0%
86 ; CUR(20%,0%)'V[NSTER GICK P].                      'CHR$(151%);
87 RETURN 
88 P%=P%+1% : OUT 6%,251% : FOR I=1 TO 200 : NEXT I : OUT 6%,0%
89 ; CUR(20%,0%)'H\GER GICK P].                        'CHR$(151%);
90 RETURN 
91 OUT 6%,7% : FOR I=1 TO 200 : NEXT I : OUT 6%,0%
92 ; CUR(20%,0%)'B]DA KROCKADE. OAVGJORT.              'CHR$(151%);
93 RETURN