10REM  CAR THIRTEEN
20REM  CAPS LOCK!!!
30REM  ******
40HOME:? "--->PRESS ANY KEY<---"
41? "---> CAPS LOCK MUST BE ON <---"
42 j=PEEK(64885)
43 r=RND(2):IF j=PEEK(64885) THEN 43
50DEF FN r(x)=INT(RND(2)*x)+1
60 n=65: b1=FN r(5): b2=FN r(5)
70HOME
80 a=FN r(7): b=FN r(7)
90IF b1=a OR b2=b THEN 80
100 b=b+n: b$=CHR$(b)
110IF b$="E" AND a<6 THEN 80
120IF b$="F" AND a>5 THEN 80
130IF a=6 AND (b$>"E" OR b$<"B") THEN 80
140IF a=7 AND b$="E" THEN 80
150?:? "CAR 13! CAR 13!"
160? "ROBBERY...IN PROGRESS...CORNER"
170? " OF "; a; " AND "; 
180 c=FN r(6):IF c=a THEN 180
190? b$; " STREETS. RESPOND CODE 5"
200 d=FN r(7)-1:IF d=b THEN 200
210 d=d+n
220 d$=CHR$(d)
230IF d$="E" AND c<6 THEN 200
240IF d$="F" AND c>5 THEN 200
250IF c=6 AND (d$>"E" OR d$<"B") THEN 200
260IF c=7 AND d$>"E" THEN 200
270?:? "YOU'RE AT THE CORNER OF "; c; " & "; d$; " STREETS."
280?:? "WHICH WAY ("; 
290GOSUB 1250
300IF a$<>"N" AND a$<>"S" AND a$<>"E" AND a$<>"W" THEN 280
310IF a$="N" THEN 420
320IF a$="S" THEN 490
330IF a$="E" THEN 560
340REM  ***
350REM  WEST
360IF d=n OR c=6 AND d=n+1 THEN 630
370 d=d-1
380IF c<6 AND d=n+4 THEN  d=n+3
390 d$=CHR$(d):GOTO 710
400REM  ****
410REM  NORTH
420IF c=7 THEN 630
430IF (d+n+5 OR d=n+6) AND c=5 THEN 630
440 c=c+1
450IF d=n AND c=6 THEN  c=7
460GOTO 710
470REM  ****
480REM  SOUTH
490IF c=1 THEN 630
500IF d=n+4 AND c=6 THEN 630
510 c=c-1
520IF d=n AND c=6 THEN  c=5
530GOTO 710
540REM  ***
550REM  EAST
560IF d=n+6 THEN 630
570IF (c=7 OR c=6) AND d=n+4 THEN 630
580 d=d+1
590IF c<6 AND d=n+4 THEN  d=n+5
600 d$=CHR$(d):GOTO 710
610REM  ********
620REM  RUN OFF ROAD
630?:? "YOU DUMMY!!! YOU'VE RUN OFF THE"
632? "ROAD!!!"
640? "YOU'VE NOT ONLY DAMAGED        EPENSIVE PROPERTY, YOU INJURED SEVERAL PEOPLE!"
670FLASH:? "TURN IN YOUR BADGE!!!":NORMAL
680GOTO 1220
690REM  *****
700REM  CROOK MOVE
710IF a=c AND b=d THEN 1130
720IF RND(2)<.4 THEN 750
730?:? "CAR 13! CAR 13!"
740?:? "CROOK HAS STOPPED AT RED LIGHT":GOTO 270
750 m=FN r(4)
760ON m GOTO 790, 860, 930, 1000
770REM  ****
780REM  NORTH
790IF a=7 OR (b=n+5 AND a=5) THEN 750
800IF b=d AND a+1=c THEN 750
810 a=a+1: w$="NORTH": n$=CHR$(b)
820IF b=n AND a=6 THEN  a=7
830GOTO 1070
840REM  ****
850REM  SOUTH
860IF a=1 OR (b=n+4 AND a=6) THEN 750
870IF b=d AND a-1=c THEN 750
880 a=a-1: w$="SOUTH": n$=CHR$(b)
890IF b=n AND a=6 THEN  a=5
900GOTO 1070
910REM  ****
920REM  EAST
930IF b=n+6 OR ((a=7 OR a=6) AND b=n+4) THEN 750
940IF a=c AND b+1=d THEN 750
950 b=b+1: w$="EAST": n$=STR$(a)
960IF a>6 AND b=n+4 THEN  b=n+5
970GOTO 1070
980REM  ****
990REM  WEST
1000IF b=n OR (a=6 AND b=n+1) THEN 750
1010IF a=c AND b-1=d THEN 750
1020 b=b-1: w$="WEST": n$=STR$(a)
1030IF a<6 AND b=n+4 THEN  b=n+3
1040REM  ****
1050REM  WHICH WAY?
1060HOME
1070IF a=b1 AND b=b2 THEN 1190
1080?:? "CAR 13! CAR 13!":?
1090? "CROOK LAST SEEN HEADING "; w$
1100GOTO 270
1110REM  *****
1120REM  CROOK CAUGHT
1130?:? TAB(10); "GOTCHA!!!"
1140?:? "HEY, WELL DONE!!! YOU CAUGHT "; 
1145? "THE CROOK, AND NOW YOU'LL BE "; 
1150? "PROMOTED TO CAPTAIN!!!"
1160GOTO 1220
1170REM  *******
1180REM  CROOK GETS AWAT!!!!
1190?:? "CAR 13! CAR 13!"
1200?:? "THE CROOK HAS DISAPPEARED INTO"
1210? "HIS SECRET HIDEAWAY HE ESCAPED!"
1220END
1230REM  *****
1240REM  DIRECTION ROUTINE
1250IF d=n OR (c=5 AND d=n+1) THEN 1270
1260? "-W"; 
1270IF c=7 OR ((d=n+5 OR d=n+6) AND c=5) THEN 1300
1280? "-N"; 
1290IF c=1 OR (d=n+4 AND c=6) THEN 1310
1300? "-S"; 
1310IF d=n+6 OR ((c=7 OR c=6) AND d=n+4) THEN 1330
1320? "-E"; 
1330? "-)"; 
1340INPUT a$
1345IF a$="M" THEN GOSUB 1400
1350HOME
1360RETURN
1400REM  **** MAP *****
1410HOME
1420? TAB(24); "E ST"
1430? TAB(24); ":":? TAB(24); ":"
1440? TAB(2); "______________________ 7th"
1450? TAB(2); "!      !    !    !    !"
1460? TAB(2); "______________________ 6th"
1465? TAB(2); "!      !    !    !"
1475? TAB(2); "__________________________ 5"
1480? TAB(2); "!      !    !    !    !   !"
1490? TAB(2); "__________________________ 4"
1495? TAB(2); "!      !    !    !    !   !"
1505? TAB(2); "__________________________ 3"
1510? TAB(2); "!      !    !    !    !   !"
1520? TAB(2); "__________________________ 2"
1525? TAB(2); "!      !    !    !    !   !"
1535? TAB(2); "__________________________ 1"
1540? TAB(2); "A      B    C    D    F   G"
1550?:?:? "---> ANY KEY TO CONTINUE <---"
1560 p=PEEK(64885)
1565IF p=PEEK(64885) THEN 1565
1570RETURN
