&d ==============================Kn = CHECKLIST MAKER FOR =px = THE +/4 & C128 (40 COL) = = BY GARY VANGELDER = = = = USING ROUTINES MODIFIED = = FROM A C=64 PROGRAM =) = BY LOUIS SANDER =N = =s = SIDEWAYS CONCEPT = = BY ED BELL = ==============================VE(772)(773)256: CHECK WHICH COMPUTER VE35158 QI239:QB1319:CT$"PLUS/4":260P VE17165 QI205:QB842:CT$"C-128 ":260" THIS PROGRAM WILL NOT WORK WITH THIS COMPUTER !":(142);(8);(27)"N"2070: SETUP SIDEWAYS ARRAY " CHECKLIST FORM MAKER ";CT$;" ":(27)"T""0,1:4,1M," MAKE A CHECKLIST FORM ON YOUR PRINTER.":17306" YOUR PRINTER WIDTH IN SPACES 80";PW:PWPW1@" YOUR PAPER LENGTH IN INCHES 11";PL:PL((9PL)5)J" ENTER A HEADER TITLE (UP TO 40 CHARS)" T" (HEADER WILL BE AUTO CENTERED)"R^"0 0 1 1 2 2 3 3 4"h"1...5....0....5....0....5....0....5....0"r"";:Q$:Q$(13)410|Q$(20)" ";:HD$(HD$,((HD$)1)):370Q$;:HD$HD$Q$(HD$)41 370" ":HD$">>> "HD$" <<<"M"THE FORM CAN HAVE ANY NUMBER OF COLUMNS""AND ROWS. THE FORM MATRIX CAN HAVE UP TO 39 VERTICAL COLUMNS AND THE""ROWS CAN USE";PL10;"PRINTER LINES. THERE""ARE 10 ROWS USED FOR COLUMN LABLES AND"&"UNUSED COLUMN SPACES CAN BE USED FOR"D"ROW LABLES OR NUMBERS."t"YOU CHOOSE AN INDIVIDUAL WIDTH FOR EACH""COLUMN, AND ONE HEIGHT FOR ALL THE ROWS."" HOW MANY COLUMNS ON THE FORM";NC%NC%1" THERE MUST BE AT LEAST 1 COLUMN ":500<NC%39" 39 COLUMNS IS THE MAXIMUM ":500RCW(NC%),TZ$(NC%)cW0:J1NC%&"ALL COLUMNS MUST HAVE AT LEAST 2 SPACES"0" HOW MANY SPACES IN COLUMN";J;"";:CW(J)0:CW(J):CW(J)235)"_ ???":560DWWCW(J)/NW;"SPACES OF";PW;"USED -";PWW;"AVALIABLE":[X"THESE COLUMNS TAKE UP";W;"OF THE";PWb"AVAILABLE SPACES ON YOUR PRINTER."lWPW" ABORTED - MAXIMUM WIDTH IS";PW;"SPACES. ":1440v" IS THIS O.K. (Y OR N) Y";A$:A$"Y":5402 CL$(NC%):J1 NC%:CL$(J)" ":t" LABEL THE COLUMNS (Y OR N) Y";A$:(A$,1)"Y"7401510:"COLUMN LABLES HAVE 10 SPACES AVAILABLE" J1 NC%"LABEL FOR COLUMN";J" ";(34);(20);(34);K110:" ";::A(0):(34):A38"";<"";: QB,29: QI,1:A$l(A$)10 " ERROR!! - TRY AGAIN ":680}CL$(J)A$:J"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%1770Q NW((NR%))1s PWW4 NWNW((PWW)2)2 NW$"": J1NW:NW$NW$" ":*"HOW MANY PRINTER LINES PER ROW";LR%:LR%18104TLNR%LR%1:L$(TL2)>"THESE ROWS TAKE UP";TL;"PRINTER LINES,"@H"INCLUDING A LINE FOR COLUMN LABELS."pR"YOUR PAPER HAS";PL;"LINES, LEAVING";PLTL\"LINES UNPRINTED."fTLPL" ABORTED - TOO LONG FOR THE PAPER.":1440pRMPLTL:RM5RM5z RM0930"DO YOU WANT TO ADD ANY REMARKS IN ";RMG"OF THESE EXTRA ROWS N";A$:A$"Y"930Q1640~"THE FORM IS";W;"SPACES WIDE, LEAVING""";PWW;"SPACES FOR ";NWPWW"NUMBERING OR ";"LABELING""ITS";NR%;"HORIZONTAL ROWS."%NWPWW"THERE IS NO ROOM TO NUMBER THEM.":1040b" NUMBER THE ROWS (Y OR N)";A$:(A$,1)"Y"1040~J0TL:L$(J)NW$::J1K1((LR%1)2)TL1LR%L$(K)(" "(J),NW):JJ1:1180)" LABEL THE ROWS (Y OR N)";A$:(A$,1)"Y"118031510]$" # SPACES IN LONGEST LABEL";LW.LWPWW" ERROR!! -";PWW;" MAXIMUM ":10608J1LW:LW$LW$" ":BJ0TL:L$(J)LW$::J1LK1((LR%1)2)TL1LR% V"LABEL FOR ROW";J;"-";LW;"SPACES"> `" ";(34);LW$;:A(0):(34):A38"";[ j"";: QB,29: QI,1:A$ t(A$)LW" ERROR!! - TRY AGAIN ":1110 ~L$(K)A$:JJ1: :  PRINT THE FORM "THE FORM IS" (((LWW)10),5);(34);" WIDE BY";!((TL9),5);(34);" LONG,"E!"OR";LWW;"SPACES WIDE BY";TL;"LINES LONG."t!""!" ALIGN THE PAPER IN THE PRINTER, "!" THEN PRESS THE 'P' KEY... "!A$:A$"P"1240"T$(15) : TEXT MODE""B$(128): BLANK DOT COL`"G$(8) : GRAPHICS MODE (FOR LINE SPACING & COL LABLES){"4,4,0: GRAPHICS MODE" 6,4,6: SA OF 6 IS FOR SETTING LF IN X/144 INCH"6,(24): SETS TEXT MODE LF TO 24/144 INCH"1560: K101 1:1900:0#(6,(24): RESET TEXT MODE LF TO 24/144 INCHe#2H1NR%:1480;:J1NC%:4,(207);:K1CW(J)1}#<CW(J)14,(163);#F::4,(165);G$:LR%21390#PI1LR%1:1480;:J1NC%:4,(165);:K1CW(J)1#ZCW(J)14," ";$d::4,(165);G$:1$n:1480;:J1NC%:K1CW(J):4,(163);::B$x RX11420`$4,T$:K1RM:4,RM$(K):m$4:4:6$" YOUR FORM IS FINISHED!"$4,2$$:$ ROW LABELS SUBROUTINE$4,T$;L$(LC);:LCLC1:$:% LABEL SUBROUTINE1%"ENTER THE LABELS RIGHT NOW. YOU MUST"_%"KEEP THEM BETWEEN THE QUOTATION MARKS,"%"BUT YOU CAN CENTER THEM OR POSITION"%"THEM AS YOU LIKE."%%X(40((HD$)2))&"4," ";&,4,""%&643&@4,X)HD$:&J4&T4," ";&^4,"":4:&h" THERE ARE ";RM;" LINES TO FILL"&rRX1:RM$(RM)'|" THERE ARE ";RM;" LINES TO FILL"0'" ENTER A [RETURN] ONLY FOR A BLANK LINE"`'" EACH LINE CAN HAVE A MAX OF ";PW;"CHARS"r'"":K1RM'"LINE ";K;":";:RM$(K)'(RM$(K))PW RM$(K)(RM$(K),PW)':'" "(" >>>>>> HEADER <<<<<< "O(" "(" "(" "(" ")" "?)" "o)" ")" ")&" ")0" "/*:" "_*D" "*N" "*X" REMARKS: "*b" ":.+l ** CONVERT COL NAMES TO SIDEWAYS AND PRINT THEM SUB **Z+vTX$"":J1NC%:TX$TX$(CL$(J),K,1):+J1NC%:TY$(TX$,J,1):TZ$(J)""+A(TY$): A63 A96 AA64+ Z13:TZ$(J)TZ$(J)(128):+ CW(J)2 1990+ZCW(J)2 ,X16:TZ$(J)TZ$(J)(128): X#,ZZ1: Z11970O, Z17:TZ$(J)TZ$(J)(LT$(A),Z,1): Zs,TZ$(J)TZ$(J)(128)(255): J,4,T$;L$(0);G$;B$;, X1NC%:4,TZ$(X);::4,T$;,6,(1): SET LF TO 1/144 FOR SECOND PASS,4:4,L$(0);G$;B$;- X1NC%:4,TZ$(X);::4- ;- *** SET SIDEWAYS CHAR ARRAYS***I-  LT$(66)-*" SETTING UP SIDEWAYS ARRAY";: LT.66: Y17-4 LV : LV LV 128 : LT$(LT) LT$(LT) (LV) : ->"";LT::.H 56,68,92,84,92,64,60,56&.R 68,68,124,68,68,68,120,36E.\ 36,56,36,36,120,56,68,64d.f 64,64,68,56,120,36,36,36.p 36,36,120,124,64,64,120,64.z 64,124,124,64,64,120,64,64. 64,56,68,64,76,68,68,56. 68,68,68,124,68,68,68,56/ 16,16,16,16,16,56,28,8/ 8,8,8,72,48,68,72,809/ 96,80,72,68,64,64,64,64Y/ 64,64,124,68,108,84,84,68x/ 68,68,68,68,100,84,76,68/ 68,56,68,68,68,68,68,56/ 120,68,68,120,64,64,64,56/ 68,68,68,84,72,52,120,68/ 68,120,80,72,68,56,68,640 56,4,68,56,124,16,16,1600 16,16,16,68,68,68,68,68N0 68,56,68,68,68,40,40,16m0 16,68,68,68,84,84,108,680 68,68,40,16,40,68,68,680$ 68,68,56,16,16,16,124,40. 8,16,32,64,124,56,32,3208 32,32,32,56,24,36,32,1121B 32,32,124,56,8,8,8,81L 8,56,8,28,42,8,8,861V 8,0,16,32,124,32,16,0M1` 0,0,0,0,0,0,0,16j1j 16,16,16,16,0,16,40,401t 40,0,0,0,0,40,40,1241~ 40,124,40,40,16,60,80,561 20,120,16,100,100,8,16,321 76,76,16,40,40,48,84,721 52,8,16,32,0,0,0,02 4,8,16,16,16,8,4,16.2 8,4,4,4,8,16,16,84L2 56,124,56,84,16,0,16,16f2 124,16,16,0,0,0,0,02 32,32,64,0,0,0,124,02 0,0,0,0,0,0,0,482 48,4,4,8,16,32,64,642 56,68,76,84,100,68,56,162 48,16,16,16,16,56,56,68 3 4,8,48,64,124,56,68,4(3 56,4,68,56,8,24,40,72E3 124,8,8,124,64,120,4,4d3 68,56,28,32,64,120,68,683( 56,124,4,8,16,32,32,3232 56,68,68,56,68,68,56,563< 68,68,60,4,8,112,0,163F 0,0,16,0,0,0,16,03P 0,16,16,32,12,16,32,64 4Z 32,16,12,0,0,124,0,124&4d 0,0,96,16,8,4,8,16A4n 96,56,68,4,8,16,0,16_4x 112,64,97,66,114,2,1,14y4 9,78,9,78,32,64,0,04 0,0,0,0,127