BASIC
Pegs
PROGRAM
Sample program
The object of this game is to eliminate as many “pegs” as possible (pegs are represented by circles on the screen). You eliminate pegs by jumping over them with another peg onto an empty space.
Specify a peg you want to jump with by moving the black selection box with the cursor (arrow) keys and then press ENTER. Then press one of the four cursor keys to indicate the direction you want to jump.
Notice
Although all reasonable precautions have been taken to ensure that accuracy of data provided, no liability will be accepted by Sharp in respect of losses, whether direct or otherwise, arising out of your use of or reliance on such data. Any use of the data provided shall be at your own risk.
BIN_PROG_1
PFILE:B0OXTF8M.BAS
ü
ÿ
=
E
=
E
=
ÿ '
7þ0B(8,8):M=1:K=1
<þ%
X
*INITGAME
]þb½*SHOWWAIT
b#þWI=0þR8:þWJ=0þR8:B(I,J)=0:þ[J:þ[I
g'
mþVK=1þb*BOARD1
nþVK=2þb'*BOARD2
oþVK=3þbÊ*BOARD3
v þWU=1þRM
€I=þ 7:J=þ 7:T=B(I,J)
…þVT<>2þ+ ´640
ŠB(I,J)=1:L=L-1
”þ[U
þP
*þVK=1þbw*SHOWBOARD1
4þVK=2þbf*SHOWBOARD2
>þVK=3þb *SHOWBOARD3
Hþb
³*SHOWKEY
„*þWX=1þR7:þWY=1þR7:þbi*SHOWPIECE:þ[Y:þ[X
ŽX=4:Y=4
è
*MAINLOOP
òþQ74,0:þ`"MOVE: "
!þi(X*9-8,Y*9-7)-(X*9-1,Y*9),X,BF
Z$=þé(1):þb¾*KEYCONVERT
þVH=6þ+ð*OPTION
$þVH=27þ+
*LAST
.!þi(X*9-8,Y*9-7)-(X*9-1,Y*9),X,BF
LI=X:J=Y
`
þVH=5þTJ=J+1
tþVH=15þTI=I-1
~þVH=10þ+ß*SELECTED
ˆþVH=14þTI=I+1
œ
þVH=4þTJ=J-1
¨ T=B(I,J)
ªþVT>0þTX=I:Y=J
«þ+‘*MAINLOOP
°
*SELECTED
ºþVB(X,Y)<>2þ+‘*MAINLOOP
Ä,V=X:W=Y:þbô*CHECKJUMP:þVU=0þ+‘*MAINLOOP
ÎB(X,Y)=3:þbi*SHOWPIECE
ØþQ74,0:þ`"JUMP: "
âZ$=þé(1):þb¾*KEYCONVERT
I=0:J=0
(þVH=5þTJ=1
<
þVH=15þTI=-1
F0þVH=10þTB(X,Y)=2:þbi*SHOWPIECE:þ+‘*MAINLOOP
PþVH=14þTI=1
dþVH=4þTJ=-1
nþVH=27þ+
*LAST
xþVB(X+I,Y+J)<>2þ+81230
‚þVB(X+I*2,Y+J*2)<>1þ+81230
ŒB(X,Y)=1:þbi*SHOWPIECE
–+L=L-1:X=X+I:Y=Y+J:B(X,Y)=1:þbi*SHOWPIECE
%X=X+I:Y=Y+J:B(X,Y)=2:þbi*SHOWPIECE
ªþVL=1þ+*EXITGAME
Òþ+‘*MAINLOOP
Ü*CHECKJUMP
æU=0
òI=0:J=1:þby*CHECKSUB
ôI=-1:J=0:þby*CHECKSUB
öI=1:J=0:þby*CHECKSUB
øI=0:J=-1:þby*CHECKSUB
þe
@
*CHECKSUB
JþVB(V+I,W+J)<>2þe
TþVB(V+I*2,W+J*2)<>1þe
^U=1:þe
¤*KEYCONVERT
®H=þÐZ$
¸þVH=7þTH=6
Â
þVH=13þTH=10
ÌþVZ$="Q"þTH=27
þþe
3'
4*BOARD1
>L=33
H#þWI=1þR7:þWJ=3þR5:B(I,J)=2:þ[J:þ[I
R#þWI=3þR5:þWJ=1þR7:B(I,J)=2:þ[J:þ[I
\þe
f*SHOWBOARD1
p þWI=2þR5:þi(I*9,1)-(I*9,64):þ[I
z$þWJ=2þR5:þi(0,J*9+1)-(63,J*9+1):þ[J
„!þWI=0þR7:þi(I*9,19)-(I*9,46):þ[I
Ž%þWJ=0þR7:þi(18,J*9+1)-(45,J*9+1):þ[J
“þe
—'
˜*BOARD2
¢L=49
¬#þWI=1þR7:þWJ=1þR7:B(I,J)=2:þ[J:þ[I
¶þe
Ê*SHOWBOARD2
Ô þWI=0þR7:þi(I*9,1)-(I*9,64):þ[I
Þ$þWJ=0þR7:þi(0,J*9+1)-(63,J*9+1):þ[J
èþe
û'
ü*BOARD3
L=25
#þWI=2þR6:þWJ=2þR6:B(I,J)=2:þ[J:þ[I
þe
.*SHOWBOARD3
8!þWI=1þR6:þi(I*9,10)-(I*9,55):þ[I
B$þWJ=1þR6:þi(9,J*9+1)-(54,J*9+1):þ[J
Lþe
`*SHOWPIECE
jþh(X*9-8,Y*9-7):U=B(X,Y)
tþVU=1þ3"0000000000000000"
~þVU=2þ3"003C424242423C00"
ˆþVU=3þ3"3C4281999981423C"
ºþe
Ä*OPTION
ÎþP
Ø5þQ10,3:þ`"Change the layout by pressing the left or"
âþQ10,4:þ`"right cursor key."
(*OPTIONSHOW
2þVK=1þTPR$="Cross "
<þVK=2þTPR$="7*7 "
FþVK=3þTPR$="5*5 "
PþQ10,1:þ`"Layout : ";PR$
Œ*OPTIONWAIT
–Z$=þé(1):H=þÐZ$
þVH=13þ+ *INITGAME
¥þVH=10þ+ *INITGAME
ªþVH=6þ+ *INITGAME
¯þVH=7þ+ *INITGAME
´þVH=15þTK=K-1:þVK<0þTK=3
¾þVH=14þTK=K+1:þVK>3þTK=1
æþ+ Y*OPTIONSHOW
€ *SHOWKEY
Š(þQ76,1:þ`"CURSOR KEYS: Moves the black"
”þQ76,2:þ`"selection box."
ž/þQ76,3:þ`"ENTER KEY: Selects peg to be moved."
¨3þQ76,4:þ`"Also deselects if one already selected."
²/þQ76,5:þ`"PAGE DOWN: Allows you to change the"
¼þQ76,6:þ`"layout."
äþe
ø
*SHOWWAIT
þP
þQ80,2:þ`"Working..."
þQ80,3:þ`"Please wait."
þe
H*LAST
¢þZ
¬
*EXITGAME
¶!þQ74,0:þ*20:þ`"Congratulation!!"
Àþ*0:þ+ *INITGAME
#)'
#*'
#+'
#,'
#-'
#.'
#/'
#0'
#1'
#2'
#3'
#4'
#5'
#6'
#7'
#8'
#9'
#:'
#;'
#<'
#='
#>'
#?'
#@'
#A'
#B'