1 x=25:y=60:d=0:poke2047,255:poke53269,255:forz=16321to16382:pokez,0:next 
2 fori=1024to2023:pokei,(77.5+rnd(1)):next:fori=1053to2020step40:pokei,160:next 
3 poke16320,1:poke53281,13:k=peek(197):ifk=12thenx=x-1:y=y+1:goto7 
4 ifk=23thenx=x+1:y=y+1:goto7 
5 ifk=13theny=y-1:x=x+1:goto7 
6 ifk=10theny=y-1:x=x-1:goto7 
7 poke53294,0:poke53262,x:poke53263,y:if peek(53279)=0thenpoke53280,0:goto9 
8 poke53280,2:d=d+1 
9 if x<248thengoto3 
10 print"doctor bill in dollars:":printd:print" - mazo by onlineprof2010" 
