9) LEAP FROGS (487 B) To use: LOAD 2, RUN 500 The goal is to swap the frogs between the left and right sides. 510 REM 520 REM LEAP FROGS 530 REM 540 DIM P(9) 550 LET P(5)=0 560 FOR I=1 TO 4 570 LET P(I)=129 580 LET P(I+5)=128 590 NEXT I 600 LET C=0 610 CLS 620 FOR I=1 TO 9 630 PRINT CHR$(P(I));" "; 640 NEXT I 650 PRINT 660 FOR I=1 TO 9 670 PRINT I;" "; 680 NEXT I 690 PRINT "ENTER MOVE" 700 INPUT A 710 IF A=0 THEN GOTO 930 720 LET F=A/10 730 IF F=0 THEN GOTO 700 740 IF P(F)=0 THEN GOTO 700 750 LET T=A-10*F 760 IF T=0 THEN GOTO 700 770 IF P(T)>0 THEN GOTO 700 780 IF ABS(T-F)>2 THEN GOTO 700 790 LET C=C+1 800 LET P(T)=P(F) 810 LET P(F)=0 820 LET X=0 830 FOR I=1 TO 9 840 IF I=5 THEN GOTO 860 850 IF NOT P(I)=128-(I>5) THEN LET X=1 860 NEXT I 870 LET X=X+P(5) 880 IF X>0 THEN GOTO 610 890 PRINT "YOU DID IT IN ";C;" MOVES" 900 PRINT "ANOTHER GO? (Y)" 910 INPUT A$ 920 IF CODE(A$)=62 THEN GOTO 550 930 PRINT "BYEBYE" 940 STOP