4 BORDER 0:INK 0,0 5 CLS 10 PRINT TAB(24);"DODGEM" 20 PRINT TAB(18);"CREATIVE COMPUTING" 30 PRINT TAB(16);"MORRISTOWN  NEW JERSEY" 40 PRINT:PRINT:PRINT 240 PRINT "DO YOU WANT INSTRUCTIONS FOR DODGEM"; 250 INPUT A$ 260 GOSUB 2950 270 IF LEFT$(A$,1) <> "Y" THEN 290 280 GOSUB 3130 290 PRINT "BOARD SIZE (3-6)"; 300 INPUT A 310 LET A=INT(A) 320 IF (6-A)*(A-3) >=0 THEN 340 330 GOTO 290 340 LET P(1,0)=A-1:LET P(2,0)=A-1 380 FOR J=1 TO A-1 390 LET P(1,J)=10*J+1 400 NEXT J 420 FOR J=1 TO A-1 430 LET P(2,J)=10*A+J+1 440 NEXT J 460 LET F=1 470 LET M$(1)="NES" 480 LET M$(2)="NE W" 490 LET C$(1)="DIGITS" 500 LET  C$(2)="LETTERS" 510 LET A$(1)="1234567" 520 LET A$(2)="ABCDEFG" 560 FOR J=1 TO A 570 IF J=A THEN 630 580 LET D$(J,1)=CHR$(48+J) 590 FOR K=2 TO A 600 LET D$(J,K)="." 610 NEXT K 620 GOTO 670 630 LET D$(J,1)="." 640 FOR K=2 TO A 650 LET D$(J,K)=CHR$(63+K) 660 NEXT K 670 NEXT J 690 PRINT "HOW MANY PLAYERS (1 OR 2)"; 700 INPUT B 710 IF B=2 THEN 800 720 IF B=1 THEN 740 730 GOTO 690 740 PRINT "OK, THE COMPUTER WILL MOVE THE DIGITS." 750 PRINT "WHO MOVES FIRST (1=COMPUTER, 2=YOU)"; 760 INPUT F 770 IF (2-F)*(1-F)=0 THEN 800 780 PRINT "PLEASE TYPE 1 OR 2. NOW,"; 790 GOTO 750 800 PRINT 810 PRINT "HERE WE GO..." 840 PRINT 850 FOR J=1 TO A 860 FOR K=1 TO A 870 PRINT "  ";D$(J,K); 880 NEXT K 890 PRINT 900 NEXT J 910 PRINT 950 FOR J=F TO 3-F STEP 3-2*F 960 REM 980 FOR J1=1 TO A-1 990 LET R=INT(P(J,J1)/10) 1000 LET C=P(J,J1)-10*R 1020 ON J GOTO 1040,1100 1040 IF C=A THEN 1080 1050 IF C > A THEN 1070 1060 GOTO 1160 1070 GOTO 1250 1080 GOTO 1300 1100 IF R=1 THEN 1140 1110 IF R=0 THEN 1130 1120 GOTO 1160 1130 GOTO 1250 1140 GOTO 1300 1160 REM 1165 IF D$(R-1,C)="." THEN 1240 1170 IF D$(R,C+1)="." THEN 1240 1180 IF J=2 THEN 1220 1190 IF D$(R+1,C)="." THEN 1210 1200 GOTO 1250 1210 GOTO 1300 1220 IF D$(R,C-1)="." THEN 1240 1230 GOTO 1250 1240 GOTO 1300 1245 PRINT "BBS---1245",J1 1250 NEXT J1 1260 PRINT "THE ";C$(3-J);" HAVE NO LEGAL MOVES FOR THE ";C$(J);"!" 1270 PRINT "THE ";C$(J);" WIN!!!" 1280 STOP 1300 IF B=2 THEN 1750 1310 IF J=2 THEN 1750 1340 LET L1=2 1350 FOR L0=1 TO 3 1370 ON L0 GOTO 1450,1380,1430 1380 IF RND(1) < 0.5 THEN 1410 1390 LET L1=1 1400 GOTO 1450 1410 LET L1=3 1420 GOTO 1450 1430 LET L1=4-L1 1450 LET P1=INT(RND(1)*A) 1460 FOR L2=1 TO A-1 1470 LET P1=P1+1 1480 IF P1 <= A-1 THEN 1500 1490 LET P1=P1-(A-1) 1500 LET R=INT(P(J,P1)/10) 1510 LET C=P(J,P1)-10*R 1520 IF C > A THEN 1720 1540 ON L1 GOTO 1570,1620,1690 1570 IF D$(R-1,C)="." THEN 1590 1580 GOTO 1720 1590 GOTO 2090 1620 IF D$(R,C+1)="." THEN 1660 1630 IF C=A THEN 1650 1640 GOTO 1720 1650 LET P(J,0)=P(J,0)-1 1660 GOTO 2160 1690 IF D$(R+1,C)="." THEN 1710 1700 GOTO 1720 1710 GOTO 2230 1720 NEXT L2 1730 NEXT L0 1740 GOTO 1260 1750 PRINT C$(J);" MOVE"; 1760 INPUT A$ 1770 GOSUB 2950 1790 IF LEFT$(A$,1)="R" THEN 2860 1800 IF LEFT$(A$,1)="H" THEN 2460 1810 LET A$=MID$(A$,1,2) 1811 P1=0 1813 FOR B0=1 TO A-1 1815 IF MID$(A$(J),B0,1)=MID$(A$,1,1) THEN P1=B0 1817 NEXT B0 1830 IF P1=0 THEN 2430 1832 LET P2=0 1834 FOR B0=1 TO 4 1836 IF MID$(M$(J),B0,1)=MID$(A$,2,1) THEN P2=B0 1838 NEXT B0 1850 IF P2=0 THEN 2430 1860 LET R=INT(P(J,P1)/10) 1870 LET C=P(J,P1)-10*R 1880 IF R=0 THEN 2430 1890 IF C > A THEN 2430 1910 ON J GOTO 1930,1990 1930 IF C < A THEN 1970 1940 IF P2 <> 2 THEN 1970 1950 LET P(1,0)=P(1,0)-1 1960 GOTO 2160 1970 GOTO 2040 1990 IF R > 1 THEN 2040 2000 IF P2 <> 1 THEN 2040 2010 LET P(2,0)=P(2,0)-1 2020 GOTO 2090 2040 ON P2 GOTO 2070,2140,2210,2280 2070 IF D$(R-1,C)="." THEN 2090 2080 GOTO 2430 2090 LET D$(R-1,C)=MID$(A$(J),P1,1) 2100 LET P(J,P1)=P(J,P1)-10 2110 GOTO 2330 2140 IF D$(R,C+1)="." THEN 2160 2150 GOTO 2430 2160 LET D$(R,C+1) = MID$(A$(J),P1,1) 2170 LET P(J,P1)=P(J,P1)+1 2180 GOTO 2330 2210 IF D$(R+1,C)="." THEN 2230 2220 GOTO 2430 2230 LET D$(R+1,C)=MID$(A$(J),P1,1) 2240 LET P(J,P1)=P(J,P1)+10 2250 GOTO 2330 2280 IF D$(R,C-1)="." THEN 2300 2290 GOTO 2430 2300 LET D$(R,C-1)=MID$(A$(J),P1,1) 2310 LET P(J,P1)=P(J,P1)-1 2330 LET D$(R,C)="." 2340 IF B=2 THEN 2380 2350 IF J=2 THEN 2380 2360 PRINT "THE DIGITS MOVE: ";MID$(A$(J),P1,1); 2365 PRINT MID$(M$(J),L1,1) 2380 IF P(J,0) <> 0 THEN 2420 2390 PRINT 2400 PRINT "*** THE ";C$(J);" WIN!!!" 2410 END 2420 GOTO 2900 2430 PRINT "ILLEGAL MOVE OR BAD INPUT." 2440 PRINT "INPUT IGNORED. TYPE H FOR HELP." 2450 GOTO 1750 2460 PRINT "THE ";C$(J);" HAVE THESE LEGAL MOVES:" 2480 FOR J3=1 TO A-1 2490 LET P$=MID$(A$(J),J3,1) 2500 LET R=INT(P(J,J3)/10) 2510 LET C=P(J,J3)-10*R 2530 ON J GOTO 2550,2620 2550 IF C=A THEN 2590 2560 IF C > A THEN 2580 2570 GOTO 2690 2580 GOTO 2830 2590 PRINT " ";P$;"E"; 2600 GOTO 2690 2620 IF R=1 THEN 2660 2630 IF R=0 THEN 2650 2640 GOTO 2690 2650 GOTO 2830 2660 GOTO 2700 2690 IF D$(R-1,C) <> "." THEN 2730 2700 PRINT "  ";P$;"N"; 2730 IF D$(R,C+1) <> "." THEN 2770 2740 PRINT "  ";P$;"E"; 2770 IF J=2 THEN 2810 2780 IF D$(R+1,C) <> "." THEN 2800 2790 PRINT "  ";P$;"S"; 2800 GOTO 2830 2810 IF D$(R,C-1) <> "." THEN 2830 2820 PRINT "  ";P$;"W"; 2830 NEXT J3 2840 PRINT 2850 GOTO 1750 2860 PRINT "THE ";C$(J);" GIVE UP!!" 2870 PRINT "*** THE ";C$(3-J);" WIN!!!" 2880 END 2900 NEXT J 2910 GOTO 840 2950 IF LEN(A$)>10 THEN 3090 2960 LET C1=0 2963 FOR B0=1 TO LEN(A$) 2965 LET A(B0)=ASC(MID$(A$,B0,1)) 2970 NEXT B0 2975 LET A(0)=LEN(A$) 2980 FOR J2=1 TO A(0) 2990 IF A(J2)<96 THEN 3010 3000 LET A(J2)=A(J2)-32 3010 IF (57-A(J2))*(A(J2)-48) >= 0 THEN 3040 3020 IF (90-A(J2))*(A(J2)-65) >=  0 THEN 3040 3030 GOTO 3060 3040 LET C1=C1+1 3050 LET A(C1)=A(J2) 3060 NEXT J2 3070 LET A(0)=C1 3073 LET A$="" 3075 FOR B0=1 TO A(0) 3077 LET A$=A$+CHR$(A(B0)) 3080 NEXT B0 3090 RETURN 3130 PRINT 3140 PRINT "HERE'S A SAMPLE PLAYING BOARD:" 3150 PRINT 3160 PRINT "1 . . . ." 3170 PRINT "2 . . . ." 3180 PRINT "3 . . . ." 3190 PRINT "4 . . . ." 3200 PRINT ". A B C D" 3210 PRINT 3220 PRINT "TWO SETS OF PIECES (DIGITS AND LETTERS) RACE AT RIGHT ANG"; 3225 PRINT "LES" 3230 PRINT "ACROSS A SQUARE BOARD. VACANT LOCATIONS ARE SHOWN AS PERI"; 3235 PRINT "ODS." 3240 PRINT "YOU CHOOSE THE BOARD SIZE (THE ONE ABOVE IS SIZE 5.)" 3260 PRINT "  N" 3270 PRINT "  :" 3280 PRINT "W---E" 3290 PRINT "  :" 3300 PRINT "  S" 3310 PRINT 3320 PRINT "THE OBJECT IS TO MOVE ALL OF YOUR PIECES ACROSS THE BOARD" 3330 PRINT "AND OFF THE OPPOSITE EDGE. DIGITS LEAVE THE BOARD ONLY AT" 3340 PRINT "THE EASTERN EDGE; LETTERS ONLY AT THE NORTHERN. THE WINNER" 3350 PRINT "IS THE PLAYER WHOSE PIECES HAVE ALL LEFT THE BOARD." 3360 PRINT 3370 PRINT "THE PLAYERS GO IN TURN, MOVING ONE OF THEIR PIECES TO AN" 3380 PRINT "ADJACENT LOCATION WHICH IS EITHER OFF THE BOARD OF CURRENT"; 3385 PRINT "LY" 3390 PRINT "VACANT. THERE ARE NO DIAGONAL MOVES, NO JUMPS AND NO CAPT"; 3395 PRINT "URES." 3400 PRINT "DIGITS CANNOT MOVE WEST, NOR LETTERS MOVE SOUTH." 3410 PRINT 3420 PRINT "TO MOVE A PIECE, TYPE ITS NAME AND THE FIRST LETTER OF THE" 3430 PRINT "DESIRED DIRECTION.  EXAMPLES:" 3440 PRINT "  2E MEANS THAT PIECE 2 WANTS TO GO EAST" 3450 PRINT "  BW MEANS THAT PIECE B WANTS TO GO WEST." 3460 PRINT 3470 PRINT "NOTE: YOU FORFET THE GAME IF YOUR MOVE LEAVES YOUR OPPONENT 3480 PRINT "WITHOUT ANY LEGAL MOVE." 3490 PRINT 3500 PRINT "LASTLY, YOU MAY TYPE R TO RESIGN AND H FOR HELP." 3510 PRINT 3520 RETURN 3530 END