$*$*&*ÿdê ***WATCHPERSON*** nê xê(C) MAC OGLESBY MARCH 1980 ‚ê Œê LAST REVISED: 2021-10-19 –ê  êCOPYRIGHT 1980 BY MAC OGLESBY ªê ´ê èêINITIALIZATION ò&ç0:Ú0:Ù6:Ü1:û ôCêS$ 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 " 0ñA$(3)=" S " 1ñA$(4)=" W " `ñS$=" " j/ñP$=" " t'ñQ$="��������������������������������" yê ˆ ñVN=1 ‰ í8000@ ’6õ¬19,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." Óõ ØAõÙ7;"Choose a village: ";Ù4;"O";Ù7;"gleboro," ÝGõÙ4;"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ö  7ñVN=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=1Ì12 ="õ¬6,18-J;Ù5;"”" > ò2 ?óJ FëJ=1Ì4 G!õ¬6-J,6;Ù5;"‘" H ò2 IóJ PëJ=1Ì9 Q!õ¬2,6+J;Ù5;"’" R ò2 SóJ ZëJ=1Ì6 ["õ¬2+J,15;Ù5;"“" \ ò2 ]óJ dëJ=1Ì12 e"õ¬8,15-J;Ù5;"”" f ò2 góJ nëJ=13 Ì15 o"õ¬8,15-J;Ù5;"." p ò2 qóJ x ò16 }Võ¬10 ,0;Ù7;"Although you may ";Ù2;"not";Ù7;" walk twice" ~Uõ¬11 ,0;Ù7;"on ";Ù2;"any ";Ù7;"street, you may revisit" 'õ¬12 ,0;Ù7;"corners." ‚=õ¬14,0;Ù7;"Remember, your task is to walk" ŒPõ¬15,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=1ÌNC ÓñU=C(J) ÔñU$=Â(J+¯("A")-1) Õ í6000p ÖóJ ÜKõ¬20,0;P$(Ì32 );¬20,0;Ù4;"Start where?" æ$ñX$="Pick one of the letters shown" ð í9505!% ú"ú¯Y$ȯ"A"ƯY$<¯"A"+NCËì1550  ì1520ð ñZ0=C(¯Y$-¯"A"+1) &ñX$="Type X to cancel starting point" @ñB$="" JëJ=1Ì4 TúS$(Z0+A(J))=" "ËñB$=B$+A$(J) ^óJ ¤3õ¬20,0;Ù7;"Walk which way? ";B$, ® í9505!% ³+õ¬20,0;S$(765ýÌ797) ¸úS>0Ëì1740Ì Âú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>0Ëì1825! ëJ=1ÌNC  ñ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 DëJ=1Ì4 I)êPRINT AT 19,0;S$(Z0+A(J));" CR=";CR;" " NúS$(Z0+A(J))É" "Ëì1880X OñCR=CR+1 P ñD1=A(J) XóJ búCR=0Ëì1960¨ l$úCR=1ÅCR=11 Ëì1975· vúCR=10 Ëì2000Ð €$úCR<5ÅCR=12 Ëì1973µ ŠñCC=¯(S$(Z0+D)) ¨'úCCÈ145‘ÆCCÇ148”Ëì1971³ ² ì2000Ð ³ ñCR=10 ´ ì1850: µ ñD=0 ¶ ì1600@ ·ñD=D1:í62008 ¸ ì18400 ÐêEND OF GAME CELEBRATION .ñB$="You were supposed to walk every street!" úSÉTSËì2110> 4.ñB$="Excellent You walked every street!" ˜ëJ=1Ì7 ¢õ¬19,0;ÙJ;B$ ¬ ò5 ÊóJ ü'ñX$="Press Y to play again; N to stop"  í9505!%  úY$="Y"Ë÷ +õ¬19,0;S$(725ÕÌ757õ) 4õ¬20,0;"Thanks for walking my streets." $4õ¬21,0;" Bye for now, Watchperson..." .â p5êUPDATE S$ AND REPAINT THE CORRESPONDING SCREEN CELL u ñS$(U)=U$ zñR=º(U/40() „ñC=U-(40(*R) ‰ñCC=¯U$ Žõ¬R+1,C-5; “*úCCÈ145‘ÆCCÇ148”ËõÙ5;U$:þ ”õU$ ˜þ 8+êSELECT FOOTPRINT DIRECTION GRAPHIC FROM D BúD=-40(ËñZ$="‘":þ LúD=1ËñZ$="’":þ VúD=40(ËñZ$="“":þ `úD=-1ËñZ$="”":þ jþ @êREAD VILLAGE DATA AND DRAW IT A å8000@ B$ëZ=0Ì39':ãD:ôÀ"A"+Z,D:óZ CWä85U,170ª,85U,170ª,85U,170ª,85U,170ª:ê50% grey DWä0,102f,102f,96`,0,102f,102f,6:êfootsteps N EVä0,110n,110n,0,0,230æ,230æ,0:êfootsteps E FWä96`,102f,102f,0,6,102f,102f,0:êfootsteps S GVä0,103g,103g,0,0,118v,118v,0:êfootsteps W Iû Jí9000(#+100d*VN ëZ=0Ì21 /ñS$(Z*40(+1ÌZ*40(+40()=P$ óZ ñX=(40(-LH)/2 ëZ=0ÌWH :ñS$(Z*40(+X+1ÌZ*40(+X+1+LH)=Q$(ÌLH) óZ &ñPX=SD 0 ñS$(SD)=" " :ëI=1ÌNS DëJ=1ÌL(I) N ñPX=PX+D(I) S ñS$(PX)=" " XóJ bóI lëJ=1ÌNC mñS$(C(J))=Â(J+¯("A")-1) nóJ vñS$(5Ì7)=" N " €ñS$(45-Ì47/)="W+E" ŠñS$(85UÌ87W)=" S " ÆëZ=1Ì21 Ç8õ¬Z,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 $0ñD(8)=40( $1ñL(8)=7 $2ñD(9 )=1 $3ñL(9 )=13 $4ñD(10 )=-40( $5ñL(10 )=7 $6ñD(11 )=-1 $7ñL(11 )=4 $8ñD(12 )=40( $9ñL(12 )=13 $:ñD(13 )=-1 $;ñL(13 )=13 $<ñD(14)=-40( $=ñL(14)=10 $RñSD=170ª $Sþ $T êLINDBURG $^ ñLH=28 $c ñWH=20 $h ñNC=25 $mñTS=195à $rñC(1)=568 $sñC(2)=65A $tñC(3)=69E $uñC(4)=73I $vñC(5)=172¬ $wñC(6)=176° $xñC(7)=185¹ $yñC(8)=189½ $zñC(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 %DñY$=¦ %NúY$=""Ëì9540D% %b!õ¬21,0;P$(Ì32 ) %fñYC=¯Y$ %g-úYCÈ97aÆYCÇ122zËñY$=Â(YC-32 ) %lþ 8