LT$(66) , CK$(30)3 53280,. : 53281,.9:[TB$(.) (27) (16) (.)}TB$(1) (27) (16) (1)#:( " ETTING P "- LT . 66 : Y 1 72 LV7LV LV 128 : LT$(LT) LT$(LT) (LV) : : <:,A " 128 BY EGBELL"aF "S ERFORATION LIGNED W/IBBON Y";C$gK:P "O YOU WANT INSTRUCTIONS N";C$ : C$ "Y" 105U "AKE SURE PRINTER IS   RESS  "Z A$ : A$ "" 90_ 1995 : 65d:.i"** ORKING **"4n:`s 3 : 3,4,7 : DL$ "" : 3, "" : 3fx:}: *** 1ST CHARS TOP/BOTTOM BEFORE STARTING KEYBOARD OUTLINE: 1300 : PRS 1 760 : 765 : 770 : 3 : PRS 7 140:: *** LEFT EDGE OF KEYBOARD :B 760 : 680 : BOTTOM EDGEY3, TB$(.) (73) ;~3, (26) (181) (129) (255) ; 765 715 : 770 : LEFT SIDE - TOP ROW OF KEYS3: : *** REMAINDER OF BLOCK OF KEYS BEFORE SPACE BAR - LEFT : X 1 264 PRS MAX 760N 680 : BOTTOM EDGEe 690 : TOP EDGE} PRS MAX 765 700 : FCTN KEYS TOP ROW PRS MAX 770 3 : : : *** LEFT SIDE OF SPACEBAR : !3, TB$(.) (26) (255) ;(! 3, (26) (46) (129) ;L! 690 : 700 : 3 : TOP EDGER!:o!: *** SPACE BAR SECTIONu!:!"FG . : FC% . : FM% 16 : SM% 32 : OG . : X 1 69!' X MIN PRS 1 : OG OG 1 : OG 1440, 1575 ", PRS MAX 755("13, TB$(.) (26) (255) ;H"6 690 : PRS MAX 765k"; FG . 700 : TOP EDGES"@ FG . PFS FMAX 870"E:"J SC SM% 730 : SC SC 1 : SM% 31 : 350"OFC% FC% FG #T FC% 16 FC% . : FG . : 715#Y:'#^ PRS MAX 770.#c34#h:#m:\#r: *** RIGHT SIDE OF SPACEBARb#w:y#|3, TB$(.) (26) ;#3, (26) (47) (129) (255) ;# 690 : 700 : 3#:#: *** BLOCK AFTER SPACEBAR - RIGHT#:$PRS MAX 1 : H0 SC 38$ 1710 : X SC 30 : X H0 PRS 1P$ PRS MAX 760j$ 680 : BOTTOM EDGE$ 690 : PRS MAX 765$ 700$ PRS MAX 770$3 : $:$: *** RIGHT EDGE OF KEYS$:$ PRS MAX 760%3, TB$(.) (73) ;.%3, (26) (182) (129) ;4%:L% PRS MAX 765c%3, TB$(1) (23) ;%3, (26) (43) (129) ;% PRS MAX 770%3 : TOP EDGE%:%: *** BLANK SPACE BETWEEN KEYBOARD AND FUNCTION KEYS%:(& X 1 5 : PRS MAX 760 : 765 : 7703& 3 : 9& :_&: *** LEFT EDGE OF FUNCTION KEYSe&:}&! PRS MAX 760&& 680 : BOTTOM EDGE&+3, (26) (180) (129) (255) ;&, PRS MAX 765&0:&5 715 : PRS MAX 770'63'::4'?: *** STRINGS ABOVE/BELOW FUNCTION KEYS:'D:S'EH0 (MAX PRS) 6d'I X 1 30'M PRS MAX X H0 PRS 1 : 1850'N PRS MAX 760'S 680 : BOTTOM EDGE'X PRS MAX 765'] 690(b PRS MAX 770(g 700 : TOP EDGES#(l3 : )(q:P(v: *** RIGHT EDGE OF FUNCTION KEYSV({:n(| PRS MAX 760(3, TB$(.) (73) ;(3, (26) (182) (129) ;( PRS MAX 765(3, TB$(1) (23) ;(3, (26) (43) (129) ;) PRS MAX 770()3 : PRS MAX 3 : @) X PRS MAX 1_) 760 : 765 : 770 : 3t) : 3 : 3 : z):): *** BOTTOM/TOP EDGES OF KEYBOARD):)3, TB$(.) (73) (255) ; : : BOTM):)3, TB$(.) (254) (255) ;: : P*:1*3, TB$(1) (23) (255) ; : FKEYS MIDa*3, TB$(1) (66) (255) ; : SC SC 1 : g*:*3, TB$(1) (23) (255) ; : FKEYS LFT*3, (26) (42) (129) (255) ; : SC 1 : *:*3, TB$(1) (23) ; : FKEYS RGT-+3, (26) (43) (192) ; : FG 1 : PFS 1 : 3+:k+: ***** COMMON SINGLE CHAR ROUTINE FOR TOP COLUMNSq+:+3, TB$(.) (.) ; : FI 18 : LA 17 : 785+3, TB$(.) (.) ; : FI 23 : LA 17 : 785 ,3, TB$(1) (1) ; : FI 16 : LA 15 : 785$,3, TB$(1) (69) ;V,FI 14 : LA . : 785 : PRS PRS 1 : \, :u, CK FI LA 1,SW$ (CK$(CK),PRS,1) : 3, (128) ;,:,  SW$ "" SW 34 : 845,% SW$ "" SW 64 : 845 -* SW$ "" SW 65 : 845--/ SW$ "" SW 66 : 8453-4:g-9SW (SW$) 127 : SW 44 SW 59 840->3, LT$(SW) (128) (128) ; : 850-C:-H SW 63 SW SW 64-M3, (128) LT$(SW) (128) ;-R : -W:.\: AREAS BETW. FUNCTION KEYS .a:6.f3, (128) (128) ; : CK 3 . 1`.kSW$ (FK$(CK),PFS,1) : 3, (128) ;f.p:.u SW$ "" SW 64 : 925.z SW$ "" SW 65 : 925. SW$ "" SW 66 : 925. SW$ "" SW 34 : 925"/SW (SW$) 127 : SW 44 SW 59 920J/3, LT$(SW) (128) (128) ; : 930P/:m/ SW 63 SW SW 64/3, (128) LT$(SW) (128) ;/ : PFS PFS 1 : /:/ 30, 1, 29, 21, 29, 17, 14: @/ 17, 17, 17, 31, 17, 17, 14: A(0 15, 18, 18, 14, 18, 18, 15: BQ0 14, 17, 1, 1, 1, 17, 14: Cz0 15, 18, 18, 18, 18, 18, 15: D0 31, 1, 1, 15, 1, 1, 31: E0 1, 1, 1, 15, 1, 1, 31: F0 14, 17, 17, 25, 1, 17, 14: G1 17, 17, 17, 31, 17, 17, 17: HG1 14, 4, 4, 4, 4, 4, 14: Ip1 6, 9, 8, 8, 8, 8, 28: J1 17, 9, 5, 3, 5, 9, 17: K1 31, 1, 1, 1, 1, 1, 1: L1 17, 17, 17, 21, 21, 27, 17: M2 17, 17, 25, 21, 19, 17, 17: N=2 14, 17, 17, 17, 17, 17, 14: Of2 1, 1, 1, 15, 17, 17, 15: P2 22, 9, 21, 17, 17, 17, 14: Q2 17, 9, 5, 15, 17, 17, 15: R2  14, 17, 16, 14, 1, 17, 14: S 3 4, 4, 4, 4, 4, 4, 31: T33 14, 17, 17, 17, 17, 17, 17: U\3 4, 4, 10, 10, 17, 17, 17: V3 17, 27, 21, 21, 17, 17, 17: W3$ 17, 17, 10, 4, 10, 17, 17: X3) 4, 4, 4, 14, 17, 17, 17: Y4. 31, 1, 2, 4, 8, 16, 31: Z)43 14, 2, 2, 2, 2, 2, 14: [R48 31, 2, 2, 7, 2, 18, 12: \{4= 14, 8, 8, 8, 8, 8, 14: ]4B 8, 8, 8, 8, 42, 28, 8: ^4G 0, 4, 2, 31, 2, 4, 0: _4L 0, 0, 0, 0, 0, 0, 0: SPACE#5Q 4, 0, 4, 4, 4, 4, 4: !L5V 0, 0, 0, 0, 10, 10, 10: "u5[ 10, 10, 31, 10, 31, 10, 10: #5` 4, 15, 20, 14, 5, 30, 4: $5e 25, 25, 2, 4, 8, 19, 19: %5j 22, 9, 21, 6, 10, 10, 4: &6o 0, 0, 0, 0, 2, 4, 8: 'B6t 16, 8, 4, 4, 4, 8, 16: (k6y 4, 8, 16, 16, 16, 8, 4: )6~ 4, 21, 14, 31, 14, 21, 4: *6 0, 4, 4, 31, 4, 4, 0: +6 1, 2, 2, 0, 0, 0, 0: ,7 0, 0, 0, 31, 0, 0, 0: -87 6, 6, 0, 0, 0, 0, 0: .a7 1, 1, 2, 4, 8, 16, 16: /7 14, 17, 19, 21, 25, 17, 14: 07 14, 4, 4, 4, 4, 6, 4: 17 31, 1, 6, 8, 16, 17, 14: 28 14, 17, 16, 14, 16, 17, 14: 3.8 8, 8, 31, 9, 10, 12, 8: 4W8 14, 17, 16, 16, 15, 1, 31: 58 14, 17, 17, 15, 1, 2, 28: 68 2, 2, 2, 4, 8, 16, 31: 78 14, 17, 17, 14, 17, 17, 14: 88 7, 8, 16, 30, 17, 17, 14: 9$9 0, 0, 4, 0, 0, 4, 0: :M9 2, 4, 4, 0, 0, 4, 0: ;v9 24, 4, 2, 1, 2, 4, 24: <9 0, 0, 31, 0, 31, 0, 0: =9 3, 4, 8, 16, 8, 4, 3: >9 4, 0, 4, 8, 16, 17, 14: ?: 64, 32, 39, 33, 67, 1, 73: 1, 2, 57, 72, 57, 72, 56T:127, 0, 0, 0, 0, 0, 0Z:::: *** COLUMN 1 STRING ASSIGNMENTS: : *** ALL STRINGS IN THIS BLOCK ** MUST ** BE THE SAME LENGTH:::CK$(.) " "(;CK$(1) " "W;CK$(2) " ";#CK$(3) " ";(CK$(4) " ";-CK$(5) " "<2CK$(6) " "B<7CK$(7) " "q<<CK$(8) " "iCK$(17) " "G>nCK$(18) " "v>sCK$(19) " ">xCK$(20) " ">}CK$(21) " "?CK$(22) " "E?CK$(23) " " : MIN 1 : 1975K?:s?: COLUMN 2 CONVENTIONS LIST?: *** ALL STRINGS IN THIS BLOCK ** MUST ** BE THE SAME LENGTH?:?CK$(.) " "@CK$(1) " "I@CK$(2) " "x@CK$(3) " "@CK$(4) " "@CK$(5) " "ACK$(6) " "4ACK$(7) " "cACK$(8) " "ACK$(9) " "ACK$(10) " "ACK$(11) " "BCK$(12) " "NBCK$(13) " "}BCK$(14) " "BCK$(15) " "BCK$(16) " " CCK$(17) " "9CCK$(18) "SIDEWINDER 128 BY E.G.BELL "XCFK$(.) " "wCFK$(1) " "C FK$(2) " "CFK$(3) " " : MIN 37 : 1975C:C: *** COLUM 3 CONVENTIONS LIST6D: *** ALL STRINGS IN THIS BLOCK ** MUST ** BE THE SAME LENGTHZ"CHARACTER STRINGS IN COLUMN 2, ETC. HE IMPORTANT THING IS THAT Z"STRINGS IN COLUMN 1 ARE 30 CHARACTERS LONG AND ALL STRINGS IN COLUMNZ"2 ARE 25 CHARACTERS LONG (IN THIS EXAMPLE).Z["LL CHARACTERS WILL BE IN UPPER CASE WHEN PRINTED OUT. ON'TL["COMPLAIN! HAD TO REDEFINE ALL THE CHARACTERS USED AS IT IS.["O PRINT OUT QUOTATIONS MARKS, USE A -, WHICH WILL SHOW UP AS A["REVERSE-FIELD, LOWER CASE LETTER Q. HEN PRINTED, IT WILL PUT OUT$\"YOUR QUOTATION MARK (SAME AS SHIFT-2). O PRINT AN UNDERLINED\"CHARACTER USE A SHIFT-@."J\\"HE VARIABLE YOU SEE IS USED BY MOST OF THE ROUTINES AND IS SET\"AUTOMATICALLY TO EQUAL THE LENGTH OF STRINGS + 1. HE VARIABLE(]"IS USED DURING THE ROUTINES PRINTING ABOVE AND BELOW THE SPACEs]"BAR. 'LL LET YOU FIGURE IT OUT YOURSELF IF YOU KNOW WHAT IT IS]"DOING."]]"F YOU ARE INCLINED, REQUEST A $2 SHAREWARE DONATION. HIS PROJECT^ "WAS VERY TIME-CONSUMING AND PUT A BEATING ON MY PRINTER MY PAPERi^ "SUPPLY. Y ADDRESS: 1613 ONONGAHELA VE. ITTSBURGH, 15218o^ ^ " 128 WAS WRITTEN FOR THE 128. T SHOULD NOT BE PICKY"^ "ABOUT WHICH DRIVE YOU USE. OU MUST HAVE A 1525 COMPATIBLE"C_ "PRINTER. TESTED IT ON A ANASONIC -1595 USING A ETEC UPER"_ "OLD NTERFACE, SO IT DOES WORK ON PRINTERS WHICH JUST EMULATE THE"_$ "1525. OPE YOU LIKE IT! THINK IT IS THE BEST OF ITS KIND"_) "AVAILABLE! E.G.BELL"_. 3 : 3 :