10 MODE 1:INK 0,15:BORDER 5:INK 1,26:INK 2,24:INK 3,26:MEMORY &7FFF:FOR a=&8000 TO &828B:READ b$:POKE a,VAL("&"+b$):NEXT a:LOCATE 13,4:PRINT"Trench Digger":PEN 3:LOCATE 1,8:PRINT"Guide the Trench Digger around the Maze." 20 PEN 3:LOCATE 1,10:PRINT"How long can you last before hitting the":LOCATE 2,12:PRINT"Maze or falling into your own Trench.":LOCATE 6,16:PEN 2:PRINT"-Use Curser keys to control-":LOCATE 9,22:PEN 1:PRINT"Press ENTER to start":IF INKEY(18)=-1 THEN 20 30 DATA 3E,01,F5,CD,0E,BC,F1,CD,DE,BB,11,5A,00,6B,62,D5,E5,CD,C0,BB,11,2C,02,E1,E5,CD,F6,BB,11,2C,02,21,36,01,CD,F6,BB,D1,D5,21,36,01,CD,F6,BB,D1,E1,CD,F6,BB,21,36,01,06,06,C5,E5,06,0D,11,5A,00,C5,E5,D5,CD,C0,BB,D1,E1,E5,D5,21,00,00,11,0A,00,CD,F9,BB,21 40 DATA F6,FF,11,00,00,CD,F9,BB,11,F6,FF,21,00,00,CD,F9,BB,21,0A,00,11,00,00,CD,F9,BB,E1,D1,01,26,00,09,EB,C1,10,C8,E1,01,D6,FF,09,C1,10,B9,3E,02,CD,90,BB,21,03,0F,11,47,82,CD,5C,81,3E,03,CD,DE,BB,21,40,01,22,8C,82,21,C8,00,22,8E,82,21,02,00,22,90,82,21 50 DATA 00,00,22,92,82,21,00,00,22,94,82,DD,21,9D,82,06,05,AF,DD,77,00,DD,23,10,F8,AF,3C,CD,1E,BB,28,0E,21,00,00,22,92,82,21,02,00,22,90,82,18,3C,3E,08,CD,1E,BB,28,0E,21,00,00,22,92,82,21,FE,FF,22,90,82,18,27,AF,CD,1E,BB,28,0E,21,00,00,22,90,82,21,02,00 60 DATA 22,92,82,18,13,3E,02,CD,1E,BB,28,0C,21,00,00,22,90,82,21,FE,FF,22,92,82,2A,8C,82,ED,5B,90,82,19,22,8C,82,E5,2A,8E,82,ED,5B,92,82,19,22,8E,82,D1,D5,E5,CD,F0,BB,FE,00,C2,A4,81,E1,D1,CD,EA,BB,3E,08,0E,07,CD,34,BD,3E,07,0E,38,CD,34,BD,AF,0E,14,CD,34 70 DATA BD,3E,07,0E,3F,CD,34,BD,21,03,14,CD,75,BB,CD,69,81,C3,BD,80,CD,75,BB,1A,FE,40,C8,CD,5A,BB,13,18,F6,2A,94,82,23,22,94,82,DD,21,9D,82,DD,E5,06,05,DD,7E,00,FE,09,20,08,AF,DD,77,00,DD,23,18,06,3C,DD,77,00,18,02,10,E9,DD,E1,01,04,00,DD,09,41,DD,7E,00 80 DATA C6,30,CD,5A,BB,DD,2B,10,F4,C9,06,FF,C5,3E,08,0E,0C,CD,34,BD,3E,07,4F,CD,34,BD,ED,5F,4F,3E,06,CD,34,BD,06,00,10,FE,C1,10,E3,3E,07,0E,3F,CD,34,BD,3E,01,CD,0E,BC,2A,94,82,ED,5B,96,82,7C,BA,38,5D,20,06,7D,BB,38,57,28,55,22,96,82,21,98,82,11,9D,82,06 90 DATA 04,1A,77,23,13,10,FA,21,0E,18,CD,75,BB,2A,96,82,DD,21,98,82,CD,74,81,21,05,0B,11,51,82,CD,5C,81,DD,21,9D,82,CD,74,81,21,0E,0B,11,60,82,CD,5C,81,21,16,07,11,6E,82,CD,5C,81,3E,2E,CD,1E,BB,C4,00,00,3E,2B,CD,1E,BB,28,F1,C3,00,80,21,0E,18,CD,75,BB,DD 100 DATA 21,98,82,CD,91,81,C3,03,82,54,49,4D,45,3A,30,30,30,30,40,59,4F,55,52,20,54,49,4D,45,20,57,41,53,20,40,42,45,53,54,20,54,49,4D,45,20,49,53,20,40,44,4F,20,59,4F,55,20,57,41,4E,54,20,41,4E,4F,54,48,45,52,20,47,4F,20,28,59,2F,4E,29,3F,40:CALL &8000