TO A
  PENUP HOME
  FORWARD 70
  PENDOWN DRAW_BAR
END

TO B
  PENUP HOME
  LEFT 90 FORWARD 35 RIGHT 90 FORWARD 35 LEFT 90
  PENDOWN DRAW_BAR
END

TO C
  PENUP HOME
  RIGHT 90 FORWARD 35 LEFT 90 FORWARD 35 RIGHT 90
  PENDOWN DRAW_BAR
END

TO D
  PENUP HOME
  PENDOWN DRAW_BAR
END

TO DIGIT
  CLEARTEXT CLEARSCREEN HIDETURTLE
  PRINT [ENTER DIGIT (0-9) >]
  MAKE "KEY READCHAR
  MAKE "KEY READCHAR
  IF :KEY = 0 [ZERO]
  IF :KEY = 1 [ONE]
  IF :KEY = 2 [TWO]
  IF :KEY = 3 [THREE]
  IF :KEY = 4 [FOUR]
  IF :KEY = 5 [FIVE]
  IF :KEY = 6 [SIX]
  IF :KEY = 7 [SEVEN]
  IF :KEY = 8 [EIGHT]
  IF :KEY = 9 [NINE]
END

TO DRAW_BAR
  PENUP LEFT 90 FORWARD 35 RIGHT 90 FORWARD 6 PENDOWN
  REPEAT 2 [RIGHT 90 FORWARD 70 RIGHT 90 FORWARD 12]
  PENUP RIGHT 90 FORWARD 35 RIGHT 90 FORWARD 6 PENDOWN FILL
END

TO E
  PENUP HOME
  LEFT 90 FORWARD 35 LEFT 90 FORWARD 35 RIGHT 90
  PENDOWN DRAW_BAR
END

TO EIGHT
  A B C D E F G
END

TO F
  PENUP HOME
  RIGHT 90 FORWARD 35 RIGHT 90 FORWARD 35 LEFT 90
  PENDOWN DRAW_BAR
END

TO FIVE
  A B D F G
END

TO FOUR
  B C D F
END

TO G
  PENUP HOME
  RIGHT 180 FORWARD 70
  PENDOWN DRAW_BAR
END

TO NINE
  A B C D F G
END

TO ONE
  C F
END

TO SEVEN
  A C F
END

TO SIX
  A B D E F G
END

TO THREE
  A C D F G
END

TO TWO
  A C D E G
END

Send mail to ljschwerin@hotmail.com with questions or comments about this web site.

Copyright © 1999-2002 Leon Schwerin
Last modified: 28 March 2000