Atari XL

86
6000
6010
6020
6493
6494
6495
6496
6497
6498
6499
6500
6510
6520
7993
7994
7995
7996
7997
7998
7999
8000
8005
8010
8020
8030
8040
8050
9993
9994
9995
9996
9997
9998
9999
10000
10010
The Ateri XL Handbook
S{CHAN,P)=S{CHAN,P)-1-{P=2)
IF S(CHAN,P) <0 THEN S(CHAN,P)
=S(CHAN,P+l)
RETURN
REM
REM ***********************
REM * *
REM * SUBROUTINE INCREASE *
REM * *
REM ***********************
REM
S(CHAN,P)=S{CHAN,P)+1+{P=2)
IF S(CHAN,P»S{CHAN,P+l) THEN
S{CHAN,P)=O
RETURN
REM
REM *******************
REM * *
REM * SUBROUTINE PLAY *
REM * *
REM *******************
REM
SOUND CHAN,S{CHAN,0),S{CHAN,2)
,S(CHAN,4)
XP=X+«P=0)*3)+{(P=2)*4)+
«P=4)*2)
POSITION XP,7+2*CHAN
PRINT" n:REM 3 SPACES
POSITION XP,7+2*CHAN
PRINT S(CHAN,P)
RE"URN
REM
REM ******************
REM * *
REM * SET UP DISPLAY *
REM * *
REM ******************
REM
PRINT
POSITION 13,1