
 1000  *SAVE JOHNSON'S MACROS
 1010  *--------------------------------
 1020  *      DAVID JOHNSON'S MACROS
 1030  *      FOR THE FAST SHAPE TABLE
 1040  *      PROGRAM IN LATEST BYTE MAGAZINE
 1050  *--------------------------------
 1060         .MA Q
 1070  R      .SE 0
 1080         >R
 1090  Q      .SE Q+1
 1100         .DO Q<40
 1110         >Q
 1120         .FI
 1130         .EM
 1140         .MA R
 1150         .DA #Q,#R
 1160  R      .SE R+1
 1170         .DO R<7
 1180         >R
 1190         .FI
 1200         .EM
 1210  Q      .SE 0
 1220         >Q

