VICE Snapshot FilePETVICE VersionMAINCPUEph [N\CPU6809-phPETMEM3 Ls"@}f0}}<(h)# XL0wx: 808`OROUx ' 128000000WIL8ûL8ÀhĎaDͷBδdd ,2N"WANT INSTRUCTIONS? YES OR NO, PLEASE."S."0,3,-1,403,-1,4),LS()SS d ***WATCHPERSON*** nBx (C) MAC OGLESBY MARCH 1980Hi LAST REVISD:3/22/80 22:30o COPYRIGHT 1980 BY MAC OGLESBY INITIALIZATION 59468,12 : GRAPHICS MODE LC(25),DS(25),LS(25)V$(1)"OGLE-BORO"-V$(2)"KUNK-TOWN"LV$(3)"LIND-BURG"$ J1 4: DA(J),DA$(J):: DIRECTION ALLOWED. -40," N",1," E ",40," S ",-1," W "`SP$" "jDN$""tSQ$"": N1 28:SQ$SQ$(166): N y?~ZZ$""OVN1: 8000w "";DN$;"WELCOME, WATCHPERSON..."XX$"WANT INSTRUCTIONS? YES OR NO, PLEASE." 10000:N0$XA$ ""; "AS WATCHPERSON, YOU'VE BEEN HIRED TO"" "WALK ALL OF THE STREETS OF A VILLAGE"P "WITHOUT RETRACING ANY OF YOUR STEPS." "CHOOSE A VILLAGE: OGLEBORO, KUNKTOWN," "OR LINDBURG. LINDBURG IS THE HARDEST."XX$"PLEASE TYPE O, K OR L" 10000 XA$"O" VN1: 1300 XA$"K" VN2: 13006  XA$"L" VN3: 1300MXX$""XX$: 1270a N0$"N" 1470uA$"FOOTPRINTS" " ";# J1 (A$): (A$,J,1);: 7025:(A032951: A0,87 < J1 12: 7025:A0A01: A0,87:* F J1 4: 7025:A0A040: A0,87:Q P J1 9: 7025:A0A01: A0,87:y Z J1 6: 7025:A0A040: A0,87: d J1 15: 7025: A0J,87: n J16 18: 7025: A0J,46: x 7200 } "";  "ALTHOUGHT YOU MAY NOT WALK TWICE ON"<  "ANY STREET, YOU MAY REVISIT CORNERS."k  "REMEMBER, YOUR TASK IS TO WALK ALONG"  "ALL OF THE STREETS. GOOD LUCK!" XX$"PRESS RETURN TO START..."  10000  8000 Z00  J1 NC: 32767LC(J),J:  "";DN$;"START WHERE?"B XX$"PICK ONE OF THE LETTERS SHOWN."N  10000t  (XA$)64 (XA$)65NC 1550 XX$""XX$: 1520 Z032767LC((XA$)64) XX$"TYPE X TO CANCEL STARTING POINT." @A$"" J J1 4 T: (Z0DA(J))32 A$A$DA$(J) ^D  "";DN$;"WALK WHICH WAY? CHOICES: ";A$P  10000a  S0 1740  XA$"X" ZZ$;ZZ$;ZZ$;: 1480  XA$"N" D40  XA$"E" D1  XA$"S" D40  XA$"W" D1  (Z0D) 32 A$""A$: 1700  S0 18251  J1 NC: LC(J)32767,32:< XX$""K  ZZ$;ZZ$;Y ! ZZ$;ZZ$k &SS1: Z0,87t 0CR0 :Z0Z0D: Z0,87 ?SS1 D J1 4 N: (Z0DA(J))32 CRCR1:D1DA(J) X b CR0 1960l CR1 CR11 DD1: 1840v CR10 20005 CR5 CR12 D0: 1600U (Z0D)87 CR10: 1850s END OF GAME CELEBRATIONA$"YOU WERE SUPPOSED TO WALK EVERY STREET!"4 STS A$"EXCELLENT!! YOU WALKED EVERY STREET!!!"> J1 3 H: 59409,52: SCREEN OFFR: K1 300:8\: 59409,60: SCREEN ONKf: K1 300:Qp_ J1 5q: "";DN$;A$: K1 300:: J2(J2) "";: 2250: "";XX$"PRESS Y TO PLAY AGAIN; N TO STOP." 10000 XA$"Y" "RUN":7 "THANKS FOR WALKING MY STREETS."`$ " BYE FOR NOW, WATCHPERSON ..."f. {X VARIOUS DELAYSq X91 25::  X91 200::@ READ VILLAGE DATA AND DRAW ITJ VCVN 8200 LH,WH: LENGTH, WIDTH OF REVERSE FIELD5 NC,TS: NUMBER OF CORNERS, TOTAL STEPSm J1 NC: LC(J):: LOCATION OF CORNERS (HOME=1) NS: NUMBER OF STREETS TO DRAW J1 NS: DS(J),LS(J): SD: START DRAWING WHERE?VCVC1: 8010 ""; A$(SP$,(40LH)2)""(SQ$,LH)+ J1 WH: A$:;& PX32767SDG0 PX,32V: I1 NSiD : J1 LS(I)N : PXPXDS(I): PX,32X : Jb Il J1 NC: 32767LC(J),J:v "NW--ES" "MAPOF";V$(VN) (# DATA FOR VILLAGES## OGLEBORO7# 22,17: LH,WHL# 14,120: NC,TS# 56,65,171,176,185,190,336,345,350,496,505,510,611,625: LC()# 14: NS# 1,19,40,8,-1,5,40,3,-1,14,-40,11,1,5,40,8,1,14,-40,4# -1,14,-40,7,1,9,40,10: DS(),LS()# 171: SD# KUNKTOWN2# 24,19: LH,WHG$ 19,157: NC,TSv$ 54,63,67,170,174,183,187,191,334,343,347$ 454,463,467,570,574,583,694,711: LC()$ 14: NS"$ 1,21,40,13,-1,17,-40,6,1,13,-40,10,-1,13,40,7,1,13,$ -40,7,-1,4,40,13,-1,13,-40,10: DS(),LS())6$ 170: SD8T$ LINDBURGL^$ 28,20: LH,WHah$ 25,195: NC,TSr$ 56,65,69,73,172,176,185,189,328,332,336,345,349w$ 492,496,505,509,612,616,625,629,728,732,736,753: LC()|$ 20: NS!$ 1,21,40,7,-1,17,40,3,-1,4,-40,10,1,4,40,4,1,17,40,3,-1,4f$ -40,14,-1,9,40,17,1,17,-40,17,-1,4,40,3,-1,17,40,4: DS(),LS()u$ 328: SD' GET A CHARACTERB' "";DN$;"";t' XX$"" XX$' XA$: XA$"" 10200<( XA$: 10500: XA$"" 10300n() BLINKh) Z00 107000r) TITT20 10700]|) (Z0)128256 Z0,(Z0)128: 10690p) Z0,(Z0)128z)TTTI)JpS DS}NhZ(VNLH0WHNC`TSpNS`SD+VCA }PXIpX&XLC`+09>(,/x|@DS LS @`0 ``` V( 8DA> D( YW N W  NW E S W E S  E S N E S N E  NW E S W E S  E N N S W N S  NS N E S N E  NW E S W E S  E W E S W E S  E B !   LNN          B   -Z- B           -     , ...   ?`   ,  .  @CRTCV 1()1%-)hPIA1<=PIA2<