# LT$(66) , FK$(16) , CK$(20)= 53280,. : 53281,.C:| " ETTING P " : LT . 66 : Y 1 7 LV : LV LV 128 : LT$(LT) LT$(LT) (LV) : : #:( " BY EGBELL"- "S RINTER URNED N"92 "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$ "" 70K 1745 : 40P:U"** ORKING **" Z:;_ 3 : 3,4,7 : DL$ "" : 3, "" : 3 : 3Ad:i: *** 1ST CHARS TOP/BOTTOM BEFORE STARTING KEYBOARD OUTLINEn:s 1240 : PRS 1x 695 : 700 : 3 : PRS 5 120}:: *** LEFT EDGE OF KEYBOARD: 6953, (27) (16) (.) (73);93,(26) (96) (192) ;H 700 : 3R 695l 665: BOTTOM EDGE3, (27) (16) (.) (168) (255); 700 : 3 695 665 : BOTTOM EDGE3, (27) (16) (.) (168); 3,(26) (91) (129) (255); 700 : 3 :] : *** REMAINDER OF BLOCK OF KEYS BEFORE SPACE BAR - LEFTc :t X 1 19 PRS MAX 695 665 : BOTTOM EDGE 670 : TOP EDGE PRS MAX 700 3 : :!: *** LEFT SIDE OF SPACEBAR !:3! 3,(27) (16) (.) (26) (255);N!3,(26) (46) (129);j! 670 : 3 : TOP EDGEp!:!: *** SPACE BAR SECTION!":!' X 1 70!, X MIN PRS 1 : OG OG 1 : OG 1330, 1395!1 PRS MAX 690"63, (27) (16) (.) (26) (255);4"; 670 : TOP EDGEL"@ PRS MAX 700W"E3 : ]"J:"O: *** RIGHT SIDE OF SPACEBAR"T:"Y3,(27) (16) (.) (26) ;"^3,(26) (47) (129) (255);"c3, (27) (16) (1) (3) (255)"h:#m: *** BLOCK AFTER SPACEBAR - RIGHT #r:D#wPRS 1 : 1460 : X 1 32\#| PRS MAX 695v# 665 : BOTTOM EDGE# 670 : TOP EDGE# PRS MAX 700#3 : #:#: *** RIGHT EDGE OF KEYS#:#3,(27) (16) (.) (73);$3,(26) (93) (129) (255);7$ 670 : 3 : TOP EDGEW$3,(27) (16) (.) (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);n% 700 : 3t%:%: *** STRINGS ABOVE/BELOW FUNCTION KEYS%:% X 1 10%  PRS MAX 695% 665 : BOTTOM EDGE& 670 : TOP EDGE& PRS MAX 700$&!3 : <&& PRS MAX 695B&+:i&0: *** RIGHT EDGE OF FUNCTION KEYSo&5:&:3,(27) (16) (.) (73);&?3,(26) (185) (129);&D PRS MAX 3 : 590&I 700&N3&S:"'X: **** FUNCTION KEYS AND REMAINDER OF STRINGS ABOVE/BELOW THEM(']:='b 1640 : PFS 1U'g PRS MAX 695l'l PFS FMAX 635'q3,(27) (16) (.) (72);'vFI 16 : LA 1 : 795 : PFS PFS 1'{ PRS MAX 700 : 3( PRS MAX PFS FMAX 3 : 3 : ( 615(:9(: *** BOTTOM/TOP EDGES OF KEYBOARD?(:s(3, (27) (16) (.) (73) (255) ; : : BOTM(3, (27) (16) (1) (3) (255) ; : : P(:(: ***** COMMON SINGLE CHAR ROUTINE FOR TOP COLUMNS(:")3, (27) (16) (.) (7) ; : FI 8 : LA 8 : 715])3, (27) (16) (.) (7) ; : FI 13 : LA 8 : 715~)3, (27) (16) (1) (10) ;)FI 7 : LA . : 715 : PRS PRS 1 : ):) CK FI LA 1)SW$ (CK$(CK),PRS,1) : 3, (128) ;): * SW$ "" SW 64 : 770B* SW$ "" SW 65 : 770d* SW$ "" SW 66 : 770j*:*SW (SW$) 127 : SW 44 SW 59 765*3, LT$(SW) (128) (128); : 775*:* SW 64 SW SW 64+3, (128) LT$(SW) (128) ;+ : + :?+: *** FUNCTION KEY OUTPUT ROUTINEE+:p+ CK FI LA 1 : CK 16 810+  CK 4 (CK4) Y 1 2 : 3, (128); : +%:+*SW$ (FK$(CK),PFS,1) : 3, (128) ;+/:+4 SW$ "" SW 64 : 860!,9 SW$ "" SW 65 : 860C,> SW$ "" SW 66 : 860I,C:},HSW (SW$) 127 : SW 44 SW 59 855,M3, LT$(SW) (128) (128); : 870,R:,W SW 64 SW SW 64,\3, (128) LT$(SW) (128) ;-a CK 4 (CK4) Y 1 4 : 3, (128); : )-f : /-k:X-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: EN. 1, 1, 1, 15, 1, 1, 31: Fw. 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: KD/ 31, 1, 1, 1, 1, 1, 1: Lm/ 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: Q:0 17, 9, 5, 15, 17, 17, 15: Rc0 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: W01 17, 17, 10, 4, 10, 17, 17: XY1 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: \1 14, 8, 8, 8, 8, 8, 14: ]&2 8, 8, 8, 8, 42, 28, 8: ^O2  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: "2 10, 10, 31, 10, 31, 10, 10: # 3$ 4, 15, 20, 14, 5, 30, 4: $I3) 25, 25, 2, 4, 8, 19, 19: %r3. 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: *?4G 0, 4, 4, 31, 4, 4, 0: +h4L 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: 055e 14, 4, 4, 4, 4, 6, 4: 1^5j 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: 56~ 14, 17, 17, 15, 1, 2, 28: 6+6 2, 2, 2, 4, 8, 16, 31: 7T6 14, 17, 17, 14, 17, 17, 14: 8}6 7, 8, 16, 30, 17, 17, 14: 96 0, 0, 4, 0, 0, 4, 0: :6 2, 4, 4, 0, 0, 4, 0: ;6 24, 4, 2, 1, 2, 4, 24: <!7 0, 0, 31, 0, 31, 0, 0: =J7 3, 4, 8, 16, 8, 4, 3: >s7 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 ASSIGNMENTS98: *** CTRL / STOP / SHIFT / CMDR KEY ASSIGNMENTS|8: *** ALL STRINGS IN THIS BLOCK ** MUST ** BE THE SAME LENGTH8:8CK$(.) " "8CK$(1) " "9CK$(2) " "*9CK$(3) " "T9CK$(4) " "~9CK$(5) " "9CK$(6) " "9CK$(7) " "9CK$(8) " "&:CK$(9) " "P: CK$(10) " "z:CK$(11) " ":CK$(12) " ":CK$(13) " " : MIN 5 : 1725::;#: COLUMN 2 CONVENTIONS LISTR;(: *** ALL STRINGS IN THIS BLOCK ** MUST ** BE THE SAME LENGTHX;-:;2CK$(.) " ";7CK$(1) " ";<CK$(2) " "CK$(3) " "I>CK$(4) " "y>CK$(5) " ">CK$(6) " ">CK$(7) " "?CK$(8) "(C) 1990  ALL RIGHTS RESERVED" : MIN . : 1725"?:_?: *** COLUMN 4 CONVENTIONS LIST - AFTER SPACE BAR - TOP?: *** ALL STRINGS IN THIS BLOCK ** MUST ** BE THE SAME LENGTH?:?CK$(.) " "@CK$(1) " "5@CK$(2) " "d@CK$(3) " "@CK$(4) " "@CK$(5) " "@CK$(6) " " ACK$(7) " "OACK$(8) " "~ACK$(9) " "ACK$(10) " "ACK$(11) " " BCK$(12) " "MBCK$(13) " " : MIN . : 1725SB:B: *** COLUMN 4 CONVENTIONS LIST - ABOVE / BELOW FUNCTION KEYSB: *** ALL STRINGS IN THIS BLOCK ** MUST ** BE THE SAME LENGTHB : CCK$(.) " ";CCK$(1) " "iCCK$(2) " "CCK$(3) " "C"CK$(4) " "C'CK$(5) " "!D,CK$(6) " "OD1CK$(7) " "}D6CK$(8) " "D;CK$(9) " "D@CK$(10) " "EECK$(11) " "5EJCK$(12) " "vEOCK$(13) " " : MIN . : 1725|ET:EY: *** FUNCTION KEY ASSIGNMENTSE^: *** ALL STRINGS IN THIS BLOCK ** MUST ** BE THE SAME LENGTHEc: FhFK$(1) "F1 "+FmFK$(2) " -------------"LFrFK$(3) "F2 "mFwFK$(4) " "F|FK$(5) "F3 "FFK$(6) " -------------"FFK$(7) "F4 "FFK$(8) " "GFK$(9) "F5 "3GFK$(10) " -------------"TGFK$(11) "F6 "uGFK$(12) " "GFK$(13) "F7 "GFK$(14) " -------------"GFK$(15) "F8 "GFK$(16) " "G:2HMAX (CK$(.)) 1 : FMAX (FK$(1)) 1 : 8H:XH: *** INSTRUCTIONS FOR USE^H:oH 3,4,7 : 3H"O USE :"::H"1] ILL IN STRINGS WITH DEFINITIONS IN LINES:HH"- 1240 TO 1305)I" RINTS ABOVE AND BELOW KEYBOARD TO THE LEFT OF THE SPACEBAR"/IEI"- 1330 TO 1365I" RINTS ABOVE AND BELOW THE SPACE BAR. !! ON'T REMOVEI" LINE 1370 WHICH CONTAINS MY NAME AND THE PROGRAM TITLE!" J" HIS PROGRAM MAY BE ٠DISTRIBUTED, BUT !"J)J "- 1395 TO 1430oJ" RINTS ABOVE AND BELOW THE SPACE BAR. !! ON'T REMOVEJ" LINE 1435. T IS A COPYRIGHT NOTICE. HIS PROGRAM MAY BEJ" DISTRIBUTED, BUT !"J!J&"- 1460 TO 1525CK+" RINTS ABOVE AND BELOW KEYBOARD TO THE RIGHT OF THE SPACEBAR."IK0_K5"- 1550 TO 1615K:" RINTS ABOVE AND BELOW THE FUNCTION KEYS."K?KD"- 1640 TO 1715KI" RINTS BESIDE THE FUNCTION KEYS.KN+LS"UST PUT YOUR DEFINITIONS INSIDE THE QUOTATION MARKS IN EACH OF THESEuLX"SETS OF LINES. ' ŠŠȠOF THE STRINGS. UST ENTERL]"YOUR STRINGS. F YOU HAVE TO USE THE KEY, WHEN YOU ARE DONE, Mb"INSERT SPACES INTO THE STRING TO MAKE IT IS THE SAME LENGTH AS>Mg"ALL THE OTHER STRINGS IN THAT BLOCK OF LINES!DMlMq"HEN YOU ARE DONE, YOU CAN JUST SAVE THE WHOLE PROGRAM AND RUN ITMv"ANY TIME YOU NEED IT. AKE A COPY FOR ALL OF YOU MOST OFTENM{"USED SOFTWARE. OOK OUT EROY!MFN"LL STRINGS IN EACH BLOCK **** BE THE SAME LENGTH! RY TO STICKN"WITH THE LENGTHS HAVE ASSIGNED. F YOU CAN SEE WHAT AM DOING INN"THIS PROGRAM, YOU CAN MAKE SOME ADJUSTMENTS TO STRING LENGTH, ETC.O"T SHOULDN'T BE NECESSARY THOUGH!OSO"** ** HE STRING LENGTHS IN EACH COLUMN BE DIFFERENT. ORO"EXAMPLE, YOU CAN HAVE 30 CHARACTER STRINGS IN COLUMN 1 AND 25O"CHARACTER STRINGS IN COLUMN 2, ETC. HE IMPORTANT THING IS THAT -P"STRINGS IN COLUMN 1 ARE 30 CHARACTERS LONG AND ALL STRINGS IN COLUMN_P"2 ARE 25 CHARACTERS LONG (IN THIS EXAMPLE).ePP"LL CHARACTERS WILL BE IN UPPER CASE WHEN PRINTED OUT. ON'TP"COMPLAIN! HAD TO REDEFINE ALL THE CHARACTERS USED AS IT IS.P@Q"HE VARIABLE YOU SEE IS USED BY MOST OF THE ROUTINES AND IS SETQ"AUTOMATICALLY TO EQUAL THE LENGTH OF STRINGS + 1. HE VARIABLEQ"IS USED DURING THE ROUTINES PRINTING ABOVE AND BELOW THE SPACER"BAR. 'LL LET YOU FIGURE IT OUT YOURSELF IF YOU KNOW WHAT IT ISkR"DOING. HERE IS REALLY NO NEED FOR YOU TO CHANGE IT, BUT IF YOU WANTR"TO HAVE 5 SMALLER COLUMNS OF DATA ABOVE THE KEYBOARD, YOU WILL NEEDR"TO USE TO WORK IT OUT.R)S"F YOU ARE INCLINED, REQUEST A $2 SHAREWARE DONATION. HIS PROJECTtS"WAS VERY TIME-CONSUMING AND PUT A BEATING ON MY PRINTER MY PAPERS"SUPPLY. Y ADDRESS: 1613 ONONGAHELA VE. ITTSBURGH, 15218ST" WAS WRITTEN FOR THE 64 (OBVIOUSLY), SHOULD NOT BE PICKYUT "ABOUT WHICH DRIVE YOU USE, AND YOU MUST HAVE A 1525 COMPATIBLET"PRINTER. TESTED IT ON A ANASONIC -1595 USING A ETEC UPERT"OLD NTERFACE, SO IT DOES WORK ON PRINTERS WHICH JUST EMULATE THE*U"1525. OPE YOU LIKE IT! THINK IT IS THE BEST OF ITS KINDFU "AVAILABLE! E.G.BELL"WU%3 : 3 :