Mountie

   10 BORDER 0: PAPER 0: INK 7: CLS 
   20 LET w=10: LET q=w: LET e=0
   30 PLOT 121,91
   40 LET l$="w33w35w58w13w12w1q31q2w11w1ew1q1w34eq42q1w2q3eq3w3q6eq41q13ew2e1q11e11242e1112w1q2w1q11q71q4w1q6eq44q5": REM horses neck and head
   50 LET l$=l$+"w22eq22q61q6eq5eq5w2q3eq14ee412e8e6e52ee211w1q1eq21q51q51q7eq5w2q2eq24ee412w16e9e8eq1412q11e2q1": REM forelegs
   60 LET l$=l$+"2q52q6eq4w1q3eq2w2q32q11e11e312e8e4w1713w121q21q41q4eq6eq5eq5w2q3eq14ee413w1714e81314e4w14": REM tail
   70 LET l$=l$+"3q71q62q42q3w3q4w35w16e5e4w14w23w44w6ew1311w1111w2313e6w12w41e111e2": REM mountie's hat
   80 LET l$=l$+"2ee1w21w6e5ee1w22w1ew2q2eq1w2q12e1q43e11w1q12ew4e2q1w3q1w4q5w3ew22e3w11w1e": REM neck
   90 LET l$=l$+"6q93e31e41q43111e3eq3w3q1w1e1q6e144w4q4eq1w5ew141ew1ew3q1w1q13q332w3q24q5522q11q2w2q51q31q51q4w1q31q3eq3w31w1ew31e221w19w15w24w21w32": REM mountie
  100 GO SUB 160
  110 PLOT 113,108: DRAW 0,30: DRAW -1,-1: DRAW -1,-30
  120 PLOT 113,135: LET l$="3e4q13q22q14e21w1q2w8ew51w4e4e5q26ew7q2w5q1w4e"
  130 GO SUB 160
  140 PLOT 104,90: DRAW 22,4
  150 GO TO 210
  160 LET n=1
  170 IF n>=LEN l$ THEN RETURN 
  180 LET x=VAL l$(n): IF x=10 THEN LET x=-(VAL l$(n+1)): LET n=n+1
  190 LET n=n+1: LET y=VAL l$(n): IF y=10 THEN LET y=-(VAL l$(n+1)): LET n=n+1
  200 LET n=n+1: DRAW x,y: GO TO 170
  210 FOR f=30 TO 12 STEP -1
  220 INK 2
  230 PRINT AT 20,f;"R ": NEXT f
  240 FOR f=30 TO 13 STEP -1
  250 PRINT AT 20,f;". ": NEXT f
  260 FOR f=30 TO 14 STEP -1
  270 PRINT AT 20,f;"C ": NEXT f
  280 FOR f=30 TO 15 STEP -1
  290 PRINT AT 20,f;". ": NEXT f
  300 FOR f=30 TO 16 STEP -1
  310 PRINT AT 20,f;"M ": NEXT f
  320 FOR f=30 TO 17 STEP -1
  330 PRINT AT 20,f;". ": NEXT f
  340 FOR f=30 TO 18 STEP -1
  350 PRINT AT 20,f;"P ": NEXT f
  360 FOR f=30 TO 19 STEP -1
  370 PRINT AT 20,f;". ": NEXT f
  380 STOP 
  390 
  400 REM Demonstration of        artwork using map making method    by D.J. Currie
  410 
  420 SAVE "Mountie" LINE 10