1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program ....   PLAYTILL
3 REM ! Utg}va  1.0    83-02-12
4 REM ! av (c) Bernt Figaro
7 REM ! Minne 16 Kbytes
8 REM ! Ins{nt av 412
9 REM ++++++++++++++++++++++++++++++++
10 REM 
11 REM Screened by  C R LERIN.
12 REM 
13 REM F|rb{ttringar av schack-
14 REM programmet GAMBIT & PLAY.
15 REM Skriv och lagra detta till{gs-
16 REM program. Raderna 1-25 utel{mnas.
17 REM Ladda sedan in PLAY och g|r
18 REM MERGE PLAYTILL. G|r sedan
19 REM SAVE PLAY.
20 REM Vill man ha dragens nr p}
21 REM sk{rmen/printer g|r man en peek
22 REM till variabeln MOVENO p}
23 REM adress 49190
24 REM XXX ;cur(x%,0%)"Drag"peek(49190)
25 REM 
232 Q%=0% : POKE 49193%,Q%+1% : Q1%=0% : REM . Snabba upp
410 D%=CALL(A5%) : D%=CALL(52657%) : REM .  \ppningsvarianter
452 Z%=CALL(52527%) : REM Pj{serna bort !
480 REM 
5050 FOR I%=0% TO 4% : POKE 52451%+I%,ASC(MID$(S$,I%+1%,1%)) : NEXT I%
5052 REM 
5054 REM 
5056 REM 
5060 Z%=CALL(52418%) : IF Z% 5049 : REM Testa inmatning !
5070 REM 
5080 REM 
5090 REM 
5100 REM 
5110 REM 
5410 GOTO 5120
5510 GOTO 5120
6045 ; CUR(Q%,0%); : Z%=CALL(52550%)
6046 IF Z% GOSUB 6124 : GOSUB 6700
6100 IF U2% POKE 52463%,120% ELSE POKE 52463%,45%
6110 REM 
6112 REM 
6114 REM 
6116 REM 
6122 REM 
6123 REM 
6124 S$="" : FOR I%=0% TO 7% : S$=S$+CHR$(PEEK(52461%+I%)) : NEXT I%
6125 ; S$ : W$=S$ : GOSUB 9930 : REM PRINTER-utskrift
6126 IF S$="PATT!   " 6150
6230 ; CUR(23%,0%)SPACE$(39%)CHR$(13%)'Vill du spela igen? J/N';
6231 GET R$ : IF R$='J' OR R$='j' GOTO 110 ELSE END 
6700 OUT 6%,155% : IF Q%<>0% ; CUR(15%,0%);
6710 ; "Oavgjort!"
6720 W$=CHR$(13%,10%)+"PATT ! OAVGJORT !!" : GOSUB 9950 : GOTO 6230
7060 Z%=PEEK(B1%) AND 135% : IF NOT (Q1%) AND Z%=0% 7200
7205 F9%=-1% : Q1%=-1%