Epson FX-100 User Manual - Page 207

Table 14-1. Variables for SYMMETRY Variable A C DOT H J K L LAST MAX MIN N N1 N2 P P0 PASS R RE X Purpose Array Counter of array elements Counter of dots; used to calculate P Highest number used in calculating P Loop counter Loop counter Loop counter Last pass of the print head Maximum number for the pattern Minimum number for the pattern Number of pins in the current pattern Length of the graphics line Length of the graphics line Pin firing pattern Reverse pattern of P Number of the current pass Remainder Number of repeats of the pattern 0 or 1 to fill the array 90 IF N>MIN THEN 70 100 NEXT J: PRINT The J loop will Repeat four times (RE = 4). It has two subloops, each of which depends on the value of N. Each time through the first loop (lines 40 to 60), N increases by one-to the value of MAX. Each time through the second loop (lines 70 to 90), N decreases by one-to the value of MIN. For each value of N, the program calls subroutine 300, and each time it is called, this subroutine adds more ones and zeros into the array. Enter the program lines for the subroutine by typing: 290 LPRINT CHR$(27)"2": END 300 FOR K=0 TO MAX-N 310 FOR L=1 TO N 320 C=C+1: A(C)=X 330 NEXT L: X=1-X 340 NEXT K: PRINT N;: RETURN 190