1 DATA 68,85,85,17,128,170,170,40,170,0,85,0,170,0,85,0
2 DATA 0,0,0,0,0,31,110,110,24,24,8,104,152,16,44,68
5 GO SUB 200
9 RESTORE 1
10 FOR n= USR "a" TO USR "d" + 7
20 READ a: POKE n,a
30 NEXT n
99 PAPER 5: CLS
100 FOR n=8 TO 21: PRINT PAPER 4; INK 0; AT n,0;"####################etc": N
    EXT n
102 PLOT 100,112: DRAW 0,30 : DRAW 20,20: DRAW 20,-20: DRAW 0,-30: CIRCLE
    200,150,15
105 LET EXP= INT ( RND *3)
110 FOR n=21 TO 8 STEP -1: FOR m=30 TO 0 STEP -1
115 PRINT PAPER 4; INK 0; AT n,m;"@"
116 BEEP .005,-12: BEEP .002,-5
117 IF INKEY$ <> "m" THEN GO TO 116
119 IF exp=2 AND n=18 AND m=12 THEN GOTO 800
120 PRINT PAPER 4; INK 7; AT n,m;"!!"
130 NEXT m: NEXT n
140 PRINT PAPER 0; INK 7; AT 14,11;"WELL MOWN"
145 PAUSE 20: BEEP .5,12: GO SUB 500
150 PRINT AT 17,6;"PRESS 'Q' FOR MENU"
160 IF INKEY$ ="Q" THEN GOTO 5
170 GO TO 160
200 BORDER 4: INK 0: PAPER 4: CLS
201 LET a$="CAMPARI GRASSMASTER": LET B$="DAF TURFOMATIC": LET C$="ACME MEGA-
    CUT 3000": LET D$="ACME LAWNACE": LET E$="FLYMO GRASSCHUM": LET F$="PATIO
    SPRINTETTE"
210 PRINT PAPER 7; INK 0; FLASH 1; AT 4,4;"************************"
212 PRINT PAPER 7; INK 0; FLASH 1; AT 3,4;"* LAWN MOWER SIMULATOR *"
214 PRINT PAPER 7; INK 0; FLASH 1; AT 2,4;"************************"
220 PRINT AT 6,4;"THIS IS A POWERFUL AND"; AT 7,4;"ACCURATE LAWN MOWING"
225 PRINT AT 8,4;"SIMULATION.";AT 9,4;"CHOOSE FROM SEVERAL"; AT 10,4;"DIFFER
    ENT MACHINES AND"; AT 11,4;"'GO GET THAT GRASS'"
230 PRINT AT 13,4;"Press relevent number."
240 FOR n=15 TO 20: PRINT INK 7; AT n,4;n-14: NEXT n
250 PRINT AT 15,6;a$; AT 16,6;b$; AT 17,6;c$
260 PRINT AT 18,6;d$; AT 19,6;e$; AT 120,6;f$
300 LET z$= INKEY$
305 IF z$="" THEN GO TO 300
310 IF CODE z$<49 OR CODE z$>54 THEN BEEP .5,5: GO TO 300
330 BORDER 4; PAPER 4; INK 0; CLS
350 IF z$="1" THEN PRINT '''"I'M SORRY, I'M AFRAID THAT THE"'A$'"IS BROKEN
    AT THE MOMENT": PAUSE 200: GO TO 200
355 IF z$="2" THEN PRINT '''"I'M SORRY, I'M AFRAID THAT THE"'B$'"IS BROKEN
    AT THE MOMENT": PAUSE 200: GO TO 200
360 IF z$="3" THEN PRINT '''"I'M SORRY, I'M AFRAID THAT THE"'C$'"IS BROKEN
    AT THE MOMENT": PAUSE 200: GO TO 200
365 IF z$="4" THEN PRINT '''"I'M SORRY, I'M AFRAID THAT THE"'D$'"IS BROKEN
    AT THE MOMENT": PAUSE 200: GO TO 200
370 IF z$="5" THEN PRINT '''"I'M SORRY, I'M AFRAID THAT THE"'E$'"IS BROKEN
    AT THE MOMENT": PAUSE 200: GO TO 200
380 IF z$="6" THEN PRINT '''"THE "'F$'"IS WORKING WELL"''"PRESSING 'M'
    ENGAGES THE MOTOR."'"RELEASING 'M' DISENGAGES IT"'''"PRESS ANY KEY TO
    START..."
390 PAUSE 0: PAUSE 0: RETURN
500 BORDER 0: PAPER 0 INK 7: CLS
504 PLOT 0,0: DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175
505 PLOT 12,86: DRAW 224,0: DRAW 0,12: DRAW -224,0: DRAW 0,-12
510 DIM g$(10,100)
520 LET g$(1)="		WELL DONE. YOU'VE EARNED YOURSELF A CORNED BEEF SAND
    WICH!"
525 LET g$(2)="		A BIT OF A SHODDY JOB, THAT. DO IT AGAIN!"
530 LET g$(3)="		YOU'VE BROKEN THE MOWER YOU STUPID LITTLE GIT. GO 
    AWAY AND DON'T DARKEN MY DOOR AGAIN."
535 LET g$(4)="		TEA AND CAKES FOR YOU, MATEY. THAT WAS A SUPER BIT OF
    GRASSWORK. IN FACT, HERE'S A TENNER."
540 LET g$(5)="		MOWER TESTER CHUCK SAYS 'OH OH! YOU SURE BOUGHT THE
    LAWN THAT TIME! I DON'T KNOW YOU!'"
545 LET g$(6)="		CALL THAT A MOW-JOB (oo-er)? I COULD DO BETTER WITH
    MY GRANNY'S NAIL CLIPPERS!"
550 LET g$(7)="		WORRA CUT! VIDAL SASSOON'S NOT A PATCH ON YOUR GOOD
    SELF I'D SAY!"
555 LET g$(8)="		THAT'S A BIT OF AN ERRATIC CUT. HELEN KELLER COULD
    HAVE DONE BETTER."
560 LET g$(9)="		GREAT. SMASHING. SUPER. BENDY BULLIES ALL ROUND.
    LOVELY. SMASHING."
600 LET V= INT ( RND *10)+1
602 PRINT AT 20,4;"PRESS ANY KEY TO RESTART"
605 LET V$=G$(V)
630 PRINT AT 10,2;V$(1 TO 27)
640 LET V$=V$(2 TO )+V$(1)
644 BEEP .04,12
645 IF INKEY$ <> "" THEN GO TO 700
650 GO TO 630
700 RUN
800 PRINT FLASH 1; INK 2; AT n,m;"@"
805 FOR l=0 TO 21; PRINT INK 2; AT l,0;"[[[[[[[[[[[[[[[[[[[[[[[etc" 
810 FOR f=35 TO 15 STEP -5: BEEP .002,f: NEXT f
815 NEXT l
820 BORDER 5: CLS
830 PRINT INK 0; AT 10,4;"YOU HAVE BEEN KILLED"
840 PRINT INK 0; AT 21,4;"PRESS ANY KEY TO RESTART"
850 IF INKEY$ ="" THEN GO TO 849
860 RUN
1000 FOR n=1 TO 10
1001 PRINT G$(n)
1002 NEXT n




Notes
1) Line 100 : The "########etc" is exactly one line of grass.
	      Type out as defined in the DATA defines declared in lines 1 & 2
2) Line 115 : The "@" is one bit of mown grass, defined similarly to the one line
	      of grass.
3) Line 120 : The "!!" is the bloke & mower, as defined... oh, you get the idea.
4) Line 805 : The "[[[[[[[[[[etc" is exactly one line of purple spaces or something,
	      used for scrolling down the screen when you die.