1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   DOMINO.BAS
3 REM ! Utg}va         1982-09-18
4 REM ! av (c) Olle Bliding <2182>
7 REM ! Minne 16 Kbytes
8 REM ! Ins{nt av Olle Bliding
9 REM +++++++++++++++++++++++++++++++++
10 REM Fungerar p} b}de stora som sm}
11 REM bokst{ver.
12 REM 
13 REM Screening av
14 REM Allan Varcoe & G|ran Olsson
15 REM 
16 IF PEEK(885)<>124 THEN ; INP(3)
17 REM +++++++++++++++++++++++++++++++++
39 ; CHR$(12)CUR(0,17)"DOMINO"CUR(1,17)"======"
40 ; "  F|r styrning anv{nd tangenterna "
41 ; CUR(3,2)"SPELARE NR 1      SPELARE NR 2 "
42 ; CUR(5,7)"W                 ]"
43 ; CUR(6,6)"A S               \ ["
44 ; CUR(7,7)"Z                 -"
45 ; CUR(9,0)"i respektive riktning."
46 ; "Detta spel g}r ut p} att st{nga in den"
47 ; "andra spelaren eller p} n}got annat"
48 ; "s{tt f} honom/henne att g} in i v{ggen"
49 ; "eller n}got annat streck."
50 ; "OBS STORA bokst{ver."
51 ; "Vilken hastighet (1-10)";
52 INPUT K% : K%=(11%-K%)*3%-2% : IF K%<1% OR K%>28% 30
53 ; : ; "Hur m}nga spel "; : INPUT Q%
54 IF Q%<1% 30
55 FOR F=1 TO 1000 : NEXT F
56 ; CUR(23,0)"Tryck p} valfri tangent f|r start ";
57 IF INP(56%)<127% 57
58 N%=0%
59 GOTO 88
60 Y%=37% : X%=20% : A%=-1% : Z%=37% : U%=60% : C%=1% : H%=1% : B%=0% : D%=0%
61 ; CHR$(12%); : FOR I%=1% TO 23% : ; CUR(I%,0%)CHR$(151%) : NEXT I%
62 FOR E%=3% TO 77% : SETDOT 3%,E% : SETDOT 68%,E% : NEXT E%
63 FOR G%=3% TO 68% : SETDOT G%,3% : SETDOT G%,78% : NEXT G%
64 ; CUR(0,7)CHR$(135%)"Spel nr"N%+1%" Hastighet"11-(K%+2%)/3%
65 IF Y%=Z% AND X%=U% SETDOT Y%,X% : GOTO 89
66 IF DOT(Y%,X%) AND DOT(Z%,U%) 89
67 IF DOT(Y%,X%) I%=1% : L%=L%+1% : GOTO 82
68 SETDOT Y%,X%
69 IF DOT(Z%,U%) I%=2% : M%=M%+1% : GOTO 82
70 SETDOT Z%,U%
71 H%=H%+1%
72 FOR F%=1% TO K%
73 IF (INP(56%)=219% OR INP(56%)=251%) AND A%<>-1% A%=1% : B%=0%
74 IF INP(56%)=173% AND B%<>-1% B%=1% : A%=0%
75 IF (INP(56%)=211% OR INP(56%)=243%) AND C%<>-1% C%=1% : D%=0%
76 IF (INP(56%)=218% OR INP(56%)=250%) AND D%<>-1% D%=1% : C%=0%
77 IF (INP(56%)=220% OR INP(56%)=252%) AND A%<>1% A%=-1% : B%=0%
78 IF (INP(56%)=221% OR INP(56%)=253%) AND B%<>1% B%=-1% : A%=0%
79 IF (INP(56%)=193% OR INP(56%)=225%) AND C%<>1% C%=-1% : D%=0%
80 IF (INP(56%)=215% OR INP(56%)=247%) AND D%<>1% D%=-1% : C%=0%
81 NEXT F% : Y%=Y%+D% : X%=X%+C% : Z%=Z%+B% : U%=U%+A% : GOTO 65
82 FOR F=1 TO 800 : NEXT F : N%=N%+1% : IF N%=Q% THEN 83 : ; CUR(0%,7%)CHR$(135%)"SPELARE NR"I%" KROCKADE "; : GOTO 88
83 ; CHR$(12)STRING$(500,7)CUR(5,0)"SPELARE NR 1 KROCKADE"L%" G]NGER OCH"CUR(6,0)"SPELARE NR 2 KROCKADE"M%" G]NGER "
84 ; CUR(10,0)"En g}ng till (J)";
85 INPUT A$ : IF A$="N" OR A$='n' END 
86 ; "Skall jag nollst{lla tidigare resultat"; : INPUT A$ : IF A$="J" OR A$='j' L%=0 : M%=0
87 ; "Samma konstanter "; : INPUT A$ : IF A$="N" OR A$='n' 51 ELSE 56
88 FOR F=1 TO 1000 : NEXT F : ; STRING$(7000,7) : GOTO 60
89 ; CUR(0,7)CHR$(135)"    B]DA KROCKADE     " : N%=N%+1% : M%=M%+1 : L%=L%+1 : IF N%<>Q% 88
90 ; STRING$(8000,7) : GOTO 83