# LT$(66) , FK$(16) , CK$(20)= 53280,. : 53281,.C:eTB$(.) (27) (16) (.)TB$(1) (27) (16) (1) " ETTING P " : LT . 66 : Y 1 7 LV : LV LV 128 : LT$(LT) LT$(LT) (LV) : : #:-( " 64 BY EGBELL"L- "S RINTER URNED N"2 "S ERFORATION LIGNED W/IBBON Y";C$7:< "O YOU WANT INSTRUCTIONS N";C$ : C$ "Y" 85A "AKE SURE PRINTER IS   RESS  "F A$ : A$ "" 70,K 1745 : 402P:KU"** ORKING **"QZ:_ 3 : 3,4,7 : DL$ "" : 3, "" : 3 : 3d:i: *** 1ST CHARS TOP/BOTTOM BEFORE STARTING KEYBOARD OUTLINEn:s 1240 : PRS 1 x 695 : 700 : 3 : PRS 5 120}:4: *** LEFT EDGE OF KEYBOARD::D 695[3, TB$(.) (73) ;w3,(26) (96) (192) ; 700 : 3 695 665: BOTTOM EDGE3, TB$(.) (168) (255) ; 700 : 3 695 665 : BOTTOM EDGE 3, TB$(.) (168) ;8 3, (26) (91) (129) (255) ;G 700 : 3M : : *** REMAINDER OF BLOCK OF KEYS BEFORE SPACE BAR - LEFT : X 1 19 PRS MAX 695 665 : BOTTOM EDGE 670 : TOP EDGE! PRS MAX 700!3 : !:5!: *** LEFT SIDE OF SPACEBAR;!:Y! 3, TB$(.) (26) (255) ;v!3, (26) (46) (129) ;! 670 : 3 : TOP EDGE!:!: *** SPACE BAR SECTION!":!' X 1 70", X MIN PRS 1 : OG OG 1 : OG 1330, 1395"1 PRS MAX 690<"63, TB$(.) (26) (255) ;S"; 670 : TOP EDGEk"@ PRS MAX 700v"E3 : |"J:"O: *** RIGHT SIDE OF SPACEBAR"T:"Y3, TB$(.) (26) ;"^3, (26) (47) (129) (255) ;"c3, TB$(1) (3) (255)#h:(#m: *** BLOCK AFTER SPACEBAR - RIGHT.#r:R#wPRS 1 : 1460 : X 1 32j#| PRS MAX 695# 665 : BOTTOM EDGE# 670 : TOP EDGE# PRS MAX 700#3 : #:#: *** RIGHT EDGE OF KEYS#:#3, TB$(.) (73) ;#$3, (26) (93) (129) (255) ;?$ 670 : 3 : TOP EDGEW$3, TB$(.) (167) ;q$3,(26) (92) (129)w$:$: *** BLANK SPACE BETWEEN KEYBOARD AND FUNCTION KEYS$:$ X 1 8 : 3 : $:$: *** LEFT EDGE OF FUNCTION KEYS%:%PRS 1 : 1550!% 695;% 665 : BOTTOM EDGE`%3, (26) (185) (129) (255) ;o% 700 : 3u%:%: *** STRINGS ABOVE/BELOW FUNCTION KEYS%:% X 1 10%  PRS MAX 695% 665 : BOTTOM EDGE& 670 : TOP EDGE& PRS MAX 700%&!3 : =&& PRS MAX 695C&+:j&0: *** RIGHT EDGE OF FUNCTION KEYSp&5:&:3, TB$(.) (73) ;&?3, (26) (185) (129) ;&D PRS MAX 3 : 590&I 700&N3&S:'X: **** FUNCTION KEYS AND REMAINDER OF STRINGS ABOVE/BELOW THEM#']:8'b 1640 : PFS 1P'g PRS MAX 695g'l PFS FMAX 635~'q3, TB$(.) (72) ;'vFI 16 : LA 1 : 795 : PFS PFS 1'{ PRS MAX 700 : 3' PRS MAX PFS FMAX 3 : 3 : ' 615(:,(: *** BOTTOM/TOP EDGES OF KEYBOARD2(:\(3, TB$(.) (73) (255) ; : : BOTM(3, TB$(1) (3) (255) ; : : P(:(: ***** COMMON SINGLE CHAR ROUTINE FOR TOP COLUMNS(:(3, TB$(.) (7) ; : FI 8 : LA 8 : 715))3, TB$(.) (7) ; : FI 13 : LA 8 : 715@)3, TB$(1) (10) ;q)FI 7 : LA . : 715 : PRS PRS 1 : w):) CK FI LA 1)SW$ (CK$(CK),PRS,1) : 3, (128) ;):) SW$ "" SW 34 : 770* SW$ "" SW 64 : 770&* SW$ "" SW 65 : 770H* SW$ "" SW 66 : 770N*:*SW (SW$) 127 : SW 44 SW 59 765*3, LT$(SW) (128) (128) ; : 775*:* SW 63 SW SW 64*3, (128) LT$(SW) (128) ;* : * :$+: *** FUNCTION KEY OUTPUT ROUTINE*+:U+ CK FI LA 1 : CK 16 810+  CK 4 (CK4) Y 1 2 : 3, (128) ; : +%:+*SW$ (FK$(CK),PFS,1) : 3, (128) ;+/:+3 SW$ "" SW 34 : 860,4 SW$ "" SW 64 : 860),9 SW$ "" SW 65 : 860K,> SW$ "" SW 66 : 860Q,C:,HSW (SW$) 127 : SW 44 SW 59 855,M3, LT$(SW) (128) (128) ; : 870,R:,W SW 63 SW SW 64,\3, (128) LT$(SW) (128) ;)-a CK 4 (CK4) Y 1 4 : 3, (128) ; : 3-f : 9-k:b-p 30, 1, 29, 21, 29, 17, 14: @-u 17, 17, 17, 31, 17, 17, 14: A-z 15, 18, 18, 14, 18, 18, 15: B- 14, 17, 1, 1, 1, 17, 14: C. 15, 18, 18, 18, 18, 18, 15: D/. 31, 1, 1, 15, 1, 1, 31: EX. 1, 1, 1, 15, 1, 1, 31: F. 14, 17, 17, 25, 1, 17, 14: G. 17, 17, 17, 31, 17, 17, 17: H. 14, 4, 4, 4, 4, 4, 14: I. 6, 9, 8, 8, 8, 8, 28: J%/ 17, 9, 5, 3, 5, 9, 17: KN/ 31, 1, 1, 1, 1, 1, 1: Lw/ 17, 17, 17, 21, 21, 27, 17: M/ 17, 17, 25, 21, 19, 17, 17: N/ 14, 17, 17, 17, 17, 17, 14: O/ 1, 1, 1, 15, 17, 17, 15: P0 22, 9, 21, 17, 17, 17, 14: QD0 17, 9, 5, 15, 17, 17, 15: Rm0 14, 17, 16, 14, 1, 17, 14: S0 4, 4, 4, 4, 4, 4, 31: T0 14, 17, 17, 17, 17, 17, 17: U0 4, 4, 10, 10, 17, 17, 17: V1 17, 27, 21, 21, 17, 17, 17: W:1 17, 17, 10, 4, 10, 17, 17: Xc1 4, 4, 4, 14, 17, 17, 17: Y1 31, 1, 2, 4, 8, 16, 31: Z1 14, 2, 2, 2, 2, 2, 14: [1 31, 2, 2, 7, 2, 18, 12: \2 14, 8, 8, 8, 8, 8, 14: ]02 8, 8, 8, 8, 42, 28, 8: ^Y2  0, 4, 2, 31, 2, 4, 0: _2 0, 0, 0, 0, 0, 0, 0: SPACE2 4, 0, 4, 4, 4, 4, 4: !2 0, 0, 0, 0, 10, 10, 10: "3 10, 10, 31, 10, 31, 10, 10: #*3$ 4, 15, 20, 14, 5, 30, 4: $S3) 25, 25, 2, 4, 8, 19, 19: %|3. 22, 9, 21, 6, 10, 10, 4: &33 0, 0, 0, 0, 2, 4, 8: '38 16, 8, 4, 4, 4, 8, 16: (3= 4, 8, 16, 16, 16, 8, 4: ) 4B 4, 21, 14, 31, 14, 21, 4: *I4G 0, 4, 4, 31, 4, 4, 0: +r4L 1, 2, 2, 0, 0, 0, 0: ,4Q 0, 0, 0, 31, 0, 0, 0: -4V 6, 6, 0, 0, 0, 0, 0: .4[ 1, 1, 2, 4, 8, 16, 16: /5` 14, 17, 19, 21, 25, 17, 14: 0?5e 14, 4, 4, 4, 4, 6, 4: 1h5j 31, 1, 6, 8, 16, 17, 14: 25o 14, 17, 16, 14, 16, 17, 14: 35t 8, 8, 31, 9, 10, 12, 8: 45y 14, 17, 16, 16, 15, 1, 31: 5 6~ 14, 17, 17, 15, 1, 2, 28: 656 2, 2, 2, 4, 8, 16, 31: 7^6 14, 17, 17, 14, 17, 17, 14: 86 7, 8, 16, 30, 17, 17, 14: 96 0, 0, 4, 0, 0, 4, 0: :6 2, 4, 4, 0, 0, 4, 0: ;7 24, 4, 2, 1, 2, 4, 24: <+7 0, 0, 31, 0, 31, 0, 0: =T7 3, 4, 8, 16, 8, 4, 3: >}7 4, 0, 4, 8, 16, 17, 14: ?7 64, 32, 39, 33, 67, 1, 77 1, 2, 57, 72, 57, 72, 567127, 0, 0, 0, 0, 0, 07: 8: *** COLUMN 1 STRING ASSIGNMENTSC8: *** CTRL / STOP / SHIFT / CMDR KEY ASSIGNMENTS8: *** ALL STRINGS IN THIS BLOCK ** MUST ** BE THE SAME LENGTH8:8CK$(.) " "8CK$(1) " A - CHANGE CASE " 9CK$(2) " B - CHANGE BORDER COLOR "49CK$(3) " D - DELETE (S,W,P) "^9CK$(4) " E - ERASE (S,W,P) "9CK$(5) " G - SEARCH AND REPLACE "9CK$(6) " _ BACKSPACE "9CK$(7) "SHFT-_ DELETE SPACES ":CK$(8) "RESTORE EXIT SPEEDSCRIPT"0:CK$(9) "RUN/STOP INSERT 5 SPACES"Z: CK$(10) "SHFT-RUN-STOP INSERT 255":CK$(11) " SPACES ":CK$(12) "CTRL-= SHOW FREE MEMORY ":CK$(13) "CTRL-4 SHOW DIRECTORY " : MIN 5 : 1725::;#: COLUMN 2 CONVENTIONS LIST\;(: *** ALL STRINGS IN THIS BLOCK ** MUST ** BE THE SAME LENGTHb;-:;2CK$(.) "CTRL ";7CK$(1) " H HUNT ";<CK$(2) "SHFT-H ENTER HUNT PHRASE " CK$(3) " R RESTORE BUFFER "S>CK$(4) " X SWAP W/CHARACTER TO RIGHT ">CK$(5) " Z END OF TEXT ">CK$(6) " 3 ENTER FORMAT COMMAND ">CK$(7) " 4 DISK DIRECTORY "&?CK$(8) "(C) 1990  ALL RIGHTS RESERVED" : MIN . : 1725,?:i?: *** COLUMN 4 CONVENTIONS LIST - AFTER SPACE BAR - TOP?: *** ALL STRINGS IN THIS BLOCK ** MUST ** BE THE SAME LENGTH?:?CK$(.) "FORMAT COMMAND CHARACTERS (CTRL-3) "@CK$(1) "A TRUE ASCII (DEFAULT OFF) "N@CK$(2) "B BOTTOM MARGIN C CENTER TEXT "@CK$(3) "E RIGHT EDGE F FOOTER "@CK$(4) "G LINK FILES (GD:FILENAME) D=DISK "@CK$(5) "CTRL-^ SEND DISK COMMAND "ACK$(6) "HOME TOP OF DOCUMENT "RACK$(7) "SHFT-CLR-HOME ERASE ALL TEXT "ACK$(8) "CTRL-= SHOW FREE MEMORY "ACK$(9) "CRSR-DN CURSOR DOWN "ACK$(10) "CRSR-UP CURSOR UP ""BCK$(11) "CRSR-RT CURSOR RIGHT "VBCK$(12) "CRSR-LF CURSOR LEFT "BCK$(13) " " : MIN . : 1725B:B: *** COLUMN 4 CONVENTIONS LIST - ABOVE / BELOW FUNCTION KEYS)C: *** ALL STRINGS IN THIS BLOCK ** MUST ** BE THE SAME LENGTH/C :]CCK$(.) "FORMAT COMMAND CHARACTERS "CCK$(1) "H HEADER I REM LINE "CCK$(2) "L LFT MARGIN M MARGIN RLEAS"CCK$(3) "N NEXT PAGE P PAGE LENGTH "D"CK$(4) "R RT MARGIN S LINE SPACING"CD'CK$(5) "T TOP MARGIN W PAGE WAIT "qD,CK$(6) "X COLUMNS ACROSS "D1CK$(7) "@ INITIAL PAGE NUMBER "D6CK$(8) "? SKIP PAGES "D;CK$(9) "# PRINT CURRENT PAGE NUMBER ")E@CK$(10) "TO INSTALL FORMAT COMMANDS, "WEECK$(11) "PRESS CTRL-3, THEN ENTER THE "EJCK$(12) "LETTER CORRESPONDING TO "EOCK$(13) "REQUIRED FUNCTION. " : MIN . : 1725ET:EY: *** FUNCTION KEY ASSIGNMENTS3F^: *** ALL STRINGS IN THIS BLOCK ** MUST ** BE THE SAME LENGTH9Fc:ZFhFK$(1) "F1 WORD RIGHT "{FmFK$(2) " -------------"FrFK$(3) "F2 WORD LEFT "FwFK$(4) " "F|FK$(5) "F3 NEXT SENTENCE"FFK$(6) " -------------" GFK$(7) "F4 PREV SENTENCE"AGFK$(8) " "bGFK$(9) "F5 NEXT PARA. "GFK$(10) " -------------"GFK$(11) "F6 PREV PARA. "GFK$(12) " "GFK$(13) "F7 LOAD FILE "HFK$(14) " -------------"(HFK$(15) "F8 SAVE FILE "IHFK$(16) " "OH:HMAX (CK$(.)) 1 : FMAX (FK$(1)) 1 : H:H: *** INSTRUCTIONS FOR USEH:H 3,4,7 : 3H"O USE :"::I"1] ILL IN STRINGS WITH DEFINITIONS IN LINES:I3I"- 1240 TO 1305yI" RINTS ABOVE AND BELOW KEYBOARD TO THE LEFT OF THE SPACEBAR"II"- 1330 TO 1365I" RINTS ABOVE AND BELOW THE SPACE BAR. !! ON'T REMOVEJ" LINE 1370 WHICH CONTAINS MY NAME AND THE PROGRAM TITLE!"]J" HIS PROGRAM MAY BE ٠DISTRIBUTED, BUT !"cJyJ "- 1395 TO 1430J" RINTS ABOVE AND BELOW THE SPACE BAR. !! ON'T REMOVEK" LINE 1435. T IS A COPYRIGHT NOTICE. HIS PROGRAM MAY BE/K" DISTRIBUTED, BUT !"5K!KK&"- 1460 TO 1525K+" RINTS ABOVE AND BELOW KEYBOARD TO THE RIGHT OF THE SPACEBAR."K0K5"- 1550 TO 1615K:" RINTS ABOVE AND BELOW THE FUNCTION KEYS."K?KD"- 1640 TO 1715)LI" RINTS BESIDE THE FUNCTION KEYS./LN{LS"UST PUT YOUR DEFINITIONS INSIDE THE QUOTATION MARKS IN EACH OF THESELX"SETS OF LINES. ' ŠŠȠOF THE STRINGS. UST ENTERM]"YOUR STRINGS. F YOU HAVE TO USE THE KEY, WHEN YOU ARE DONE,ZMb"INSERT SPACES INTO THE STRING TO MAKE IT IS THE SAME LENGTH ASMg"ALL THE OTHER STRINGS IN THAT BLOCK OF LINES!MlMq"HEN YOU ARE DONE, YOU CAN JUST SAVE THE WHOLE PROGRAM AND RUN ITNv"ANY TIME YOU NEED IT. AKE A COPY FOR ALL OF YOU MOST OFTENEN{"USED SOFTWARE. OOK OUT EROY!KNN"LL STRINGS IN EACH BLOCK **** BE THE SAME LENGTH! RY TO STICKN"WITH THE LENGTHS HAVE ASSIGNED. F YOU CAN SEE WHAT AM DOING IN*O"THIS PROGRAM, YOU CAN MAKE SOME ADJUSTMENTS TO STRING LENGTH, ETC.SO"T SHOULDN'T BE NECESSARY THOUGH!"YOO"** ** HE STRING LENGTHS IN EACH COLUMN BE DIFFERENT. ORO"EXAMPLE, YOU CAN HAVE 30 CHARACTER STRINGS IN COLUMN 1 AND 253P"CHARACTER STRINGS IN COLUMN 2, ETC. HE IMPORTANT THING IS THAT ~P"STRINGS IN COLUMN 1 ARE 30 CHARACTERS LONG AND ALL STRINGS IN COLUMNP"2 ARE 25 CHARACTERS LONG (IN THIS EXAMPLE).PP"LL CHARACTERS WILL BE IN UPPER CASE WHEN PRINTED OUT. ON'TAQ"COMPLAIN! HAD TO REDEFINE ALL THE CHARACTERS USED AS IT IS.GQQ"SE A - FOR QUOTATION MARKS. T WILL SHOW UP IN YOUR STRING ASQ"A LOWER CASE, REVERSE-FIELD LETTER 'Q', BUT WILL PRINT AS QUOTATIONR"MARKS (-2). OR AN UNDERLINE CHARACTER, USE -@."$RnR"HE VARIABLE YOU SEE IS USED BY MOST OF THE ROUTINES AND IS SETR"AUTOMATICALLY TO EQUAL THE LENGTH OF STRINGS + 1. HE VARIABLES"IS USED DURING THE ROUTINES PRINTING ABOVE AND BELOW THE SPACEMS"BAR. 'LL LET YOU FIGURE IT OUT YOURSELF IF YOU KNOW WHAT IT ISS"DOING. HERE IS REALLY NO NEED FOR YOU TO CHANGE IT, BUT IF YOU WANTS"TO HAVE MORE COLUMNS OF DATA ABOVE THE KEYBOARD, YOU WILL NEED TOS"USE TO WORK IT OUT.TQT"F YOU ARE INCLINED, REQUEST A $2 SHAREWARE DONATION. HIS PROJECTT"WAS VERY TIME-CONSUMING AND PUT A BEATING ON MY PRINTER MY PAPERT"SUPPLY. Y ADDRESS: 1613 ONONGAHELA VE. ITTSBURGH, 15218T1U" 64 WAS WRITTEN FOR THE 64 AND SHOULD NOT BE PICKYsU "ABOUT WHICH DRIVE YOU USE. OU MUST HAVE A 1525 COMPATIBLEU"PRINTER. TESTED IT ON A ANASONIC -1595 USING A ETEC UPERV"OLD NTERFACE, SO IT DOES WORK ON PRINTERS WHICH JUST EMULATE THEHV"1525. OPE YOU LIKE IT! THINK IT IS THE BEST OF ITS KINDdV "AVAILABLE! E.G.BELL"uV%3 : 3 :