$*$*&*d ***WATCHPERSON*** n x(C) MAC OGLESBY MARCH 1980   LAST REVISED: 2021-10-19  COPYRIGHT 1980 BY MAC OGLESBY   INITIALIZATION &0:0:6:1: CS$ HOLDS THE PET 40x22 SCREEN, OF WHICH WE DISPLAY A 32x22 WINDOW S$(880p)  C(25)  D(25)  L(25) V$(4,8) V$(1)="Ogleboro" V$(2)="Kunktown" V$(3)="Lindburg" $ A(4) %A$(4,3) &A(1)=-40( 'A(2)=1 (A(3)=40( )A(4)=-1 .A$(1)=" N " /A$(2)=" E " 0A$(3)=" S " 1A$(4)=" W " `S$=" " j/P$=" " t'Q$="" y  VN=1  8000@ 619,0;4;"Welcome, Watchperson..." $X$="Want instructions? Yes or No"  9505!% N$=Y$  % 1...5...10...15...20...25...30.. *7;"As watchperson, you have been" -7;"hired to walk all the streets of" ,7;"a village without retracing any" 7;"of your steps."  A7;"Choose a village: ";4;"O";7;"gleboro," G4;"K";7;"unktown, or ";4;"L";7;"indburg." %7;"Lindburg is the hardest." X$="Please type O, K, or L"  9505!% "Y$="O"Y$="K"Y$="L"1290   1270  7VN=1*(Y$="O")+2*(Y$="K")+3*(Y$="L") N$="N"1470 B$="Footprints"  4,20; #J=1̱B$ $B$(J); % 2 &J ( 6,18;5;"" <J=112 ="6,18-J;5;"" > 2 ?J FJ=14 G!6-J,6;5;"" H 2 IJ PJ=19 Q!2,6+J;5;"" R 2 SJ ZJ=16 ["2+J,15;5;"" \ 2 ]J dJ=112 e"8,15-J;5;"" f 2 gJ nJ=13 15 o"8,15-J;5;"." p 2 qJ x 16 }V10 ,0;7;"Although you may ";2;"not";7;" walk twice" ~U11 ,0;7;"on ";2;"any ";7;"street, you may revisit" '12 ,0;7;"corners." =14,0;7;"Remember, your task is to walk" P15,0;7;"along ";2;"all";7;" of the streets." )17,0;4;"Good luck!" X$="Press ENTER to start..."  9505!%  8000@  Z0=0  S=0 J=1NC U=C(J) U$=(J+("A")-1)  6000p J K20,0;P$(32 );20,0;4;"Start where?" $X$="Pick one of the letters shown"  9505!% "Y$ȯ"A"ƯY$<"A"+NC1550  1520 Z0=C(Y$-"A"+1) &X$="Type X to cancel starting point" @B$="" JJ=14 TS$(Z0+A(J))=" "B$=B$+A$(J) ^J 320,0;7;"Walk which way? ";B$,  9505!% +20,0;S$(765797) S>01740 Y$="X"1480 !Y$="N"D=-40(:62008 Y$="E"D=1:62008  Y$="S"D=40(:62008  Y$="W"D=-1:62008 S$(Z0+D)" "1700 S>01825! J=1NC  U$=" "  U=C(J)  6000p  J X$=" " & S=S+1 +U=Z0 ,U$=Z$ - 6000p 0 CR=0 : Z0=Z0+D ;U=Z0 <U$=Z$ = 6000p ? S=S+1 DJ=14 I)PRINT AT 19,0;S$(Z0+A(J));" CR=";CR;" " NS$(Z0+A(J))" "1880X OCR=CR+1 P D1=A(J) XJ bCR=01960 l$CR=1CR=11 1975 vCR=10 2000 $CR<5CR=12 1973 CC=(S$(Z0+D)) 'CC145CC1481971  2000  CR=10  1850:  D=0  1600@ D=D1:62008  18400 END OF GAME CELEBRATION .B$="You were supposed to walk every street!" STS2110> 4.B$="Excellent You walked every street!" J=17 19,0;J;B$  5 J 'X$="Press Y to play again; N to stop"  9505!%  Y$="Y" +19,0;S$(725757) 420,0;"Thanks for walking my streets." $421,0;" Bye for now, Watchperson..." . p5UPDATE S$ AND REPAINT THE CORRESPONDING SCREEN CELL u S$(U)=U$ zR=(U/40() C=U-(40(*R) CC=U$ R+1,C-5; *CC145CC1485;U$: U$  8+SELECT FOOTPRINT DIRECTION GRAPHIC FROM D BD=-40(Z$="": LD=1Z$="": VD=40(Z$="": `D=-1Z$="": j @READ VILLAGE DATA AND DRAW IT A 8000@ B$Z=039':D:"A"+Z,D:Z CW85U,170,85U,170,85U,170,85U,170:50% grey DW0,102f,102f,96`,0,102f,102f,6:footsteps N EV0,110n,110n,0,0,230,230,0:footsteps E FW96`,102f,102f,0,6,102f,102f,0:footsteps S GV0,103g,103g,0,0,118v,118v,0:footsteps W I J9000(#+100d*VN Z=021 /S$(Z*40(+1Z*40(+40()=P$ Z X=(40(-LH)/2 Z=0WH :S$(Z*40(+X+1Z*40(+X+1+LH)=Q$(LH) Z &PX=SD 0 S$(SD)=" " :I=1NS DJ=1L(I) N PX=PX+D(I) S S$(PX)=" " XJ bI lJ=1NC mS$(C(J))=(J+("A")-1) nJ vS$(57)=" N " S$(45-47/)="W+E" S$(85U87W)=" S " Z=121 8Z,0;S$(Z*40(-35#Z*40(-4); Z 0,X;"Map of ";V$(VN)  #DATA FOR VILLAGES # OGLEBORO # LH=22 # WH=17 # NC=14 #TS=120x #C(1)=568 #C(2)=65A #C(3)=171 #C(4)=176 #C(5)=185 #C(6)=190 #C(7)=336P #C(8)=345Y #C(9 )=350^ #C(10 )=496 #C(11 )=505 #C(12 )=510 #C(13 )=611c #C(14)=625q # NS=14 #D(1)=1 #L(1)=19 #D(2)=40( #L(2)=8 #D(3)=-1 #L(3)=5 #D(4)=40( #L(4)=3 #D(5)=-1 #L(5)=14 #D(6)=-40( #L(6)=11 #D(7)=1 #L(7)=5 #D(8)=40( #L(8)=8 #D(9 )=1 #L(9 )=14 #D(10 )=-40( #L(10 )=4 #D(11 )=-1 #L(11 )=14 #D(12 )=-40( #L(12 )=7 #D(13 )=1 #L(13 )=9 #D(14)=40( #L(14)=10 #SD=171 # # KUNKTOWN # LH=24 # WH=19 $ NC=19 $ TS=157 $C(1)=546 $C(2)=63? $C(3)=67C $C(4)=170 $C(5)=174 $C(6)=183 $C(7)=187 $C(8)=191 $C(9 )=334N $C(10 )=343W $C(11 )=347[ $C(12 )=454 $C(13 )=463 $C(14)=467 $C(15)=570: $C(16)=574> $C(17)=583G $C(18)=694 $ C(19)=711 $! NS=14 $"D(1)=1 $#L(1)=21 $$D(2)=40( $%L(2)=13 $&D(3)=-1 $'L(3)=17 $(D(4)=-40( $)L(4)=6 $*D(5)=1 $+L(5)=13 $,D(6)=-40( $-L(6)=10 $.D(7)=-1 $/L(7)=13 $0D(8)=40( $1L(8)=7 $2D(9 )=1 $3L(9 )=13 $4D(10 )=-40( $5L(10 )=7 $6D(11 )=-1 $7L(11 )=4 $8D(12 )=40( $9L(12 )=13 $:D(13 )=-1 $;L(13 )=13 $<D(14)=-40( $=L(14)=10 $RSD=170 $S $T LINDBURG $^ LH=28 $c WH=20 $h NC=25 $mTS=195 $rC(1)=568 $sC(2)=65A $tC(3)=69E $uC(4)=73I $vC(5)=172 $wC(6)=176 $xC(7)=185 $yC(8)=189 $zC(9 )=328H ${C(10 )=332L $|C(11 )=336P $}C(12 )=345Y $~C(13 )=349] $C(14)=492 $C(15)=496 $C(16)=505 $C(17)=509 $C(18)=612d $C(19)=616h $C(20)=625q $C(21)=629u $C(22)=728 $C(23)=732 $C(24)=736 $C(25)=753 $ NS=20 $D(1)=1 $L(1)=21 $D(2)=40( $L(2)=7 $D(3)=-1 $L(3)=17 $D(4)=40( $L(4)=3 $D(5)=-1 $L(5)=4 $D(6)=-40( $L(6)=10 $D(7)=1 $L(7)=4 $D(8)=40( $L(8)=4 $D(9 )=1 $L(9 )=17 $D(10 )=40( $L(10 )=3 $D(11 )=-1 $L(11 )=4 $D(12 )=-40( $L(12 )=14 $D(13 )=-1 $L(13 )=9 $D(14)=40( $L(14)=17 $D(15)=1 $L(15)=17 $D(16)=-40( $L(16)=17 $D(17)=-1 $L(17)=4 $D(18)=40( $L(18)=3 $D(19)=-1 $L(19)=17 $D(20)=40( $L(20)=4 $SD=328H $ %GET A CHARACTER %"Y$= %#Y$""9506"% %&(21,0;7;1;X$ %(ZT=105i %DY$= %NY$=""9540D% %b!21,0;P$(32 ) %fYC=Y$ %g-YC97aYC122zY$=(YC-32 ) %l 8