Demonstration of artwork using map making method.
Appears on
Library tape of the Indiana Sinclair Timex User’s Group.
Gallery
Source Code
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