yes srry i havnt yet done the symbols but this shouldnt be a problem as it is code error or something that i dont knwo about
yes like i said it runs for bout 30-40 secs then stops on one of the if...then....gosub... in the PONG: heading it always seems to stop here any help will be great thanks.
its a game where you have two paddles and a ball which you batt around wen you miss the other person gets a point first to three wins its played on a 8x8 dot matrix but only 7x8 is used for the game the top row is for the points that you get
main:
let b10=0
let b11=0
goto startvalues
startvalues:
let b6=28
let b7=28
let b8=-1
let b0=4
let b1=3
let b2=1
goto pong
pong:
do
let b9=b9+1
gosub inputbuttons
gosub positiondata
gosub outputs
loop until b9=2
goto ball2
inputbuttons:
let dirsc = %00000000
if pin0=1 then gosub up2
if pin1=1 then gosub dw2
if pin2=1 then gosub up
if pin3=1 then gosub dw
return
positiondata:
if b1=7 then gosub negb4
if b1=b8 then gosub posb4
if b0=7 then checkrightpad
if b0=0 then checkleftpad
return
outputs:
high portc 0
let pins=b6
low portc 0
let pins=%00000000
let pinsc=%00000000
high portc 7
let pins=b7
low portc 7
let pins=%00000000
let pinsc=%00000000
high portc b0
high b1
let pins=%00000000
let pinsc=%00000000
let dirsc = %00000000
high 7
high portc b10
let pinsc=%00000000
high portc b11
let pins=%00000000
let pinsc=%00000000
let dirsc = %00000000
return
ball2:
let b0=b0+b2
let b1=b1+b4
let b9=0
goto pong
posb4:
let b4=1
let b1=1
return
negb4:
let b4=-1
let b1=5
return
up:
if b6=112 then inputbuttons
b6=b6*2
return
dw:
if b6=7 then inputbuttons
b6=b6/2
return
up2:
if b7=112 then inputbuttons
b7=b7*2
return
dw2:
if b7=7 then inputbuttons
b7=b7/2
return
checkrightpad:
if b6=28 and b1=3 then middlebounce
if b6=112 and b1=5 then middlebounce
if b6=56 and b1=4 then middlebounce
if b6=14 and b1=2 then middlebounce
if b6=7 and b1=1 then middlebounce
if b6=28 and b1=4 then topbounce
if b6=112 and b1=6 then topbounce
if b6=56 and b1=5 then topbounce
if b6=14 and b1=3 then topbounce
if b6=7 and b1=2 then topbounce
if b6=28 and b1=2 then bottombounce
if b6=112 and b1=4 then bottombounce
if b6=56 and b1=3 then bottombounce
if b6=14 and b1=1 then bottombounce
if b6=7 and b1=0 then bottombounce
goto player1
checkleftpad:
if b7=28 and b1=3 then middlebounce2
if b7=112 and b1=5 then middlebounce2
if b7=56 and b1=4 then middlebounce2
if b7=14 and b1=2 then middlebounce2
if b7=7 and b1=1 then middlebounce2
if b7=28 and b1=4 then topbounce2
if b7=112 and b1=6 then topbounce2
if b7=56 and b1=5 then topbounce2
if b7=14 and b1=3 then topbounce2
if b7=7 and b1=2 then topbounce2
if b7=28 and b1=2 then bottombounce2
if b7=112 and b1=4 then bottombounce2
if b7=56 and b1=3 then bottombounce2
if b7=14 and b1=1 then bottombounce2
if b7=7 and b1=0 then bottombounce2
goto player2
middlebounce:
let b2=-1
let b0=6
goto ball2
middlebounce2:
let b2=1
let b0=1
goto ball2
topbounce:
let b4=1
let b2=-1
let b0=6
goto ball2
topbounce2:
let b4=1
let b2=1
let b0=1
goto ball2
bottombounce:
let b4=-1
let b2=-1
let b0=6
goto ball2
bottombounce2:
let b4=-1
let b2=1
let b0=1
goto ball2
player1:
let b10=b10*2+1
if b10=7 then player1win
goto startvalues
player2:
let b11=b11*2+1
if b11=7 then player2win
goto startvalues
player1win:
do
loop
player2win:
do
loop