%d -----------------------------In - FORM MAKER FOR THE PLUS/4 -mx - AND THE C128 (40 COLS) - - - - CONVERTED AND IMPROVED - - BY GARY VANGELDER - - -! - FROM A C=64 PROGRAM -E - BY LOUIS F. SANDER -i -----------------------------~(142);(27)"N"VE(772)(773)256: CHECK FOR WHICH COMPUTER VE35158 QI239:QB1319:CT$"PLUS/4":250 VE17165 QI205:QB842:CT$"C-128 ":250T"THIS PROGRAM WILL NOT RUN ON THIS COMPUTER !":" FORM MAKER ";CT$;" ":(27)"T"0,1:4,1" THIS MAKES A FORM ON YOUR PRINTER.":1580" YOUR PRINTER WIDTH IN SPACES 80";PW:PWPW1O"" YOUR PAPER LENGTH IN INCHES 11";PL:PL((9PL)5)," ENTER A HEADER TITLE (UP TO 40 CHARS)"6" (HEADER WILL BE AUTO CENTERED)"@"0 0 1 1 2 2 3 3 4" J"1...5....0....5....0....5....0....5....0"'T"";:Q$:Q$(13)380Z^Q$(20)" ";:HD$(HD$,((HD$)1)):340nhQ$;:HD$HD$Q$r(HD$)41 340|" ":HD$">>> "HD$" <<<""THE FORM CAN HAVE ANY NUMBER OF COLUMNS""AND ROWS. IT CAN BE UP TO";PW;"PRINTER"2"SPACES WIDE AND";PL;"PRINTER LINES LONG,"_"INCLUDING LABELS FOR COLUMNS AND ROWS""YOU CHOOSE AN INDIVIDUAL WIDTH FOR EACH""COLUMN, AND ONE HEIGHT FOR ALL THE ROWS."" HOW MANY COLUMNS ON THE FORM";NC%:CW(NC%)::NC%11290W0:J1NC%K" HOW MANY SPACES IN COLUMN";J;"";:CW(J)0:CW(J)kCW(J)135)"_ ???":470{WWCW(J):"THESE COLUMNS TAKE UP";W;"OF THE";PW"AVAILABLE SPACES ON YOUR PRINTER."WPW" ABORTED - MAXIMUM WIDTH IS";PW;" SPACES. ":1290Q" IS THIS O.K. (Y OR N) Y";A$:A$"Y":460" LABEL THE COLUMNS (Y OR N) Y";A$:(A$,1)"Y"670&" HOW MANY COLUMN LABEL ROWS (2 MAX) 1";XX0 XX1 XX2 " ERROR TRY AGAIN":550: CL$(2)D1360:R1$N J1 NC%YX"LABEL FOR COLUMN";R;"/";J;"-";CW(J);"SPACES"vb" ";(34);(20);(34);lK1CW(J):" ";::A(0):(34):A38"";v"";: QB,29: QI,1:A$(A$)CW(J)" ERROR!! - TRY AGAIN ":600L$L$A$:J,CL$(R)L$:L$"":RR1:RXX1590X"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%1700NW((NR%))1:NW$(" ",NW)G"HOW MANY PRINTER LINES PER ROW";LR%:LR%1720bTLNR%LR%1:L$(TL2)"THESE ROWS TAKE UP";TL;"PRINTER LINES,""INCLUDING A LINE FOR COLUMN LABELS.""YOUR PAPER HAS";PL;"LINES, LEAVING";PLTL"LINES UNPRINTED."= TLPL" ABORTED - TOO LONG FOR THE PAPER.":1290URMPLTL:RM5RM5d  RM0840*"DO YOU WANT TO ADD ANY REMARKS IN ";RM4"OF THESE EXTRA ROWS N";A$:A$"Y"840>1490H"THE FORM IS";W;"SPACES WIDE, LEAVING"R"";PWW;"SPACES FOR ";7\NWPWW"NUMBERING OR ";Gf"LABELING"ip"ITS";NR%;"HORIZONTAL ROWS."zNWPWW"THERE IS NO ROOM TO NUMBER THEM.":940" NUMBER THE ROWS (Y OR N)";A$:(A$,1)"Y"940J0TL:L$(J)NW$::J15K1((LR%1)2)TL1LR%:L$(K)(" "(J),NW):JJ1A:1080~" LABEL THE ROWS (Y OR N)";A$:(A$,1)"Y"10801360" # SPACES IN LONGEST LABEL";LWLWPWW" ERROR!! -";PWW;" MAXIMUM ":960J1LW:LW$LW$" ":J0TL:L$(J)LW$::J1;K1((LR%1)2)TL1LR%c"LABEL FOR ROW";J;"-";LW;"SPACES"" ";(34);LW$;:A(0):(34):A38"";"";: QB,29: QI,1:A$(A$)LW" ERROR!! - TRY AGAIN ":1010L$(K)A$:JJ1:$:. PRINT THE FORMG8"THE FORM IS" (((LWW)10),5);(34);" WIDE BY";hB((TL9),5);(34);" LONG,"L"OR";LWW;"SPACES WIDE BY";TL;"LINES LONG."V""`" ALIGN THE PAPER IN THE PRINTER, "( j" THEN PRESS THE 'P' KEY... "> tA$:A$"P"1140a ~T$(15) : TEXT MODE **TARGET G$(8) : GRAPHICS MODE (FOR LINE SPACING) 4,4:1410:K1XX:LC0:1330:4,CL$(K): H1NR%:1330;:J1NC%:4,(207);:K1CW(J)1 !CW(J)14,(163);.!::4,(165);G$:LR%21240e!I1LR%1:1330;:J1NC%:4,(165);:K1CW(J)1z!CW(J)14," ";!::4,(165);G$:!:1330;:J1NC%:K1CW(J):4,(163);::! RX11270!4,T$:K1RM:4,RM$(K):!4:4'"" YOUR FORM IS FINISHED!"0" 4,26"<":X"( ROW LABELS SUBROUTINEt"24,T$;L$(LC);:LCLC1:z"<:"F LABEL SUBROUTINE"P"ENTER THE LABELS RIGHT NOW. YOU MUST""Z"KEEP THEM BETWEEN THE QUOTATION MARKS,"#d"BUT YOU CAN CENTER THEM OR POSITION"0#n"THEM AS YOU LIKE."6#xM#X(40((HD$)2))#4," ";#4,""#4#4,X)HD$#4 $4," ";*$4,"":4:S$" THERE ARE ";RM;" LINES TO FILL"e$RX1:RM$(RM)$" THERE ARE ";RM;" LINES TO FILL"$" ENTER A [RETURN] ONLY FOR A BLANK LINE"$" EACH LINE CAN HAVE A MAX OF ";PW;"CHARS"$"":K1RM%"LINE ";K;":";:RM$(K)C%(RM$(K))PW RM$(K)(RM$(K),PW)K%":|%," "%6" >>>>>> HEADER <<<<<< "%@" " &J" "<&T" COLUMN 1 COLUMN 2 "l&^" ϷϷ "&h" ROW 1 ̯̯ "&r" "&|" ROW 2 ̯̯ ",'" "\'" ROW 3 ̯̯ "'" ":