#d*** KEY BUFFER IS C64 ONLY!!)n:^x" FORM MAKER - LOUIS F. SANDER "t53280,6:53281,6" THIS MAKES A FORM ON YOUR PRINTER."" YOUR PRINTER WIDTH IN SPACES 80";PW:PWPW1 " YOUR PAPER LENGTH IN INCHES 11";PL:PL(9PL)D " COLUMN 1 COLUMN 2"q " ϷϷ" " ROW 1 " " ϷϷ" " ROW 2 ̯̯"% " "T " ROW 3 ̯̯" "THE FORM CAN HAVE ANY NUMBER OF COLUMNS" "AND ROWS. IT CAN BE UP TO";PW;"PRINTER" "SPACES WIDE AND";PL;"PRINTER LINES LONG," "INCLUDING LABELS FOR COLUMNS AND ROWS."E "YOU CHOOSE ANINDIVIDUAL WIDTH FOR EACH"u ""COLUMN, AND ONE HEIGHT FOR ALL THE ROWS." ," HOW MANY COLUMNS ON THE FORM";NC%:CW(NC%)::NC%11020 6W0:J1NC% @" HOW MANY SPACES IN COLUMN";J;"";:CW(J)0:CW(J)$ JCW(J)135)"_ ???":3204 TWWCW(J):d ^"THESE COLUMNS TAKE UP";W;"OF THE";PW h"AVAILABLE SPACES ON YOUR PRINTER." rWPW" ABORTED - MAXIMUM WIDTH IS";PW;" SPACES. ":1020 |" IS THIS O.K. (Y OR N) Y";A$:A$"Y":310R " LABEL THE COLUMNS (Y OR N) Y";A$:(A$,1)"Y"470e 1090:J1NC% "LABEL FOR COLUMN";J;"-";CW(J);"SPACES" " ";(34);(20);(34); K1CW(J):" ";::A(0):(34):A38""; "";:631,29:198,1:A$3(A$)CW(J)" ERROR!! - TRY AGAIN ":410BL$L$A$:o"THAT FINISHES THE VERTICAL COLUMNS.""NOW WE WILL DO THE HORIZONTAL ROWS,""WHICH CAN FILL UP TO";PL1;"PRINTER LINES."" HOW MANY ROWS ON THE FORM";NR%:NR%1500+NW((NR%))1:NW$(" ",NW)a"HOW MANY PRINTER LINES PER ROW";LR%:LR%1520|TLNR%LR%1:L$(TL2)"THESE ROWS TAKE UP";TL;"PRINTER LINES,"&"INCLUDING A LINE FOR COLUMN LABELS." 0"YOUR PAPER HAS";PL;"LINES, LEAVING";PLTL%:"LINES UNPRINTED."^DTLPL" ABORTED - TOO LONG FOR THE PAPER.":1020N"THE FORM IS";W;"SPACES WIDE, LEAVING"X"";PWW;"SPACES FOR ";bNWPWW"NUMBERING OR ";l"LABELING"v"ITS";NR%;"HORIZONTAL ROWS."8NWPWW"THERE IS NO ROOM TO NUMBER THEM.":690u" NUMBER THE ROWS (Y OR N)";A$:(A$,1)"Y"690J0TL:L$(J)NW$::J1K1((LR%1)2)TL1LR%:L$(K)(" "(J),NW):JJ1:830" LABEL THE ROWS (Y OR N)";A$:(A$,1)"Y"830 1090J" # SPACES IN LONGEST LABEL";LWLWPWW" ERROR!! -";PWW;" MAXIMUM ":710J1LW:LW$LW$" ":J0TL:L$(J)LW$::J1K1((LR%1)2)TL1LR%"LABEL FOR ROW";J;"-";LW;"SPACES"," ";(34);LW$;:A(0):(34):A38"";I "";:631,29:198,1:A$z(A$)LW" ERROR!! - TRY AGAIN ":760 L$(K)A$:JJ1:*:4 PRINT THE FORM>"THE FORM IS" (((LWW)10),5);(34);" WIDE BY";H((TL9),5);(34);" LONG,"5R"OR";LWW;"SPACES WIDE BY";TL;"LINES LONG."e\""f" ALIGN THE PAPER IN THE PRINTER, "p" THEN PRESS THE 'P' KEY... "zA$:A$"P"890T$(15) : TEXT MODE **TARGET/G$(8) : GRAPHICS MODE (FOR LINE SPACING)E4,4:4:1060:L$xH1NR%:1060;:J1NC%:(207);:K1CW(J)1CW(J)1(163);::(165);G$:LR%2990I1LR%1:1060;:J1NC%:(165);:K1CW(J)1CW(J)1" "; ::(165);G$:7:1060;:J1NC%:K1CW(J):(163);::s4:4: " FORM MAKER - LOUIS F. SANDER "" YOUR FORM IS FINISHED!"53280,14:53281,6:"";: ROW LABELS SUBROUTINE$T$;L$(LC);:LCLC1:.:8 LABEL SUBROUTINEIB"ENTER THE LABELS RIGHT NOW. YOU MUST"wL"KEEP THEM BETWEEN THE QUOTATION MARKS,"V"BUT YOU CAN CENTER THEM OR POSITION"`"THEM AS YOU LIKE."j