100 REM -------------------------------
102 REM  KEYPOWER PROFILE DEFINITIONS
104 REM         KPOWER.DEFS
106 REM -------------------------------
108 REM
110 REM (REPOSITION SHIFT CURSOR KEYS)
112 REM
114 ZP(ND,UA)=DO+SF:ZP(ND,LA)=RI+SF
116 REM
118 REM   (COMMANDS ON STRINGS)
120 REM
122 ZS$(TD,S)=S$+"SAVE"+Q$+"0:"+I$+Q$+",8"+R$:REM SAVE
124 ZS$(TD,P)=S$+"OPEN15,8,15,"+Q$+"S0:"+I$+Q$+":CLOSE15"+R$:REM PURGE
126 ZS$(TD,N)=S$+"OPEN15,8,15,"+Q$+"R0:"+I$+"="+I$+Q$+":CLOSE15"+R$:REM RENAME
128 ZS$(TD,L)=S$+"LOAD"+Q$+"0:"+I$+Q$+",8"+R$:REM LOAD
130 ZS$(TD,R)=S$+"LOAD"+Q$+"0:"+I$+Q$+",8"+R$+"RUN"+R$:REM LOAD-RUN
132 ZS$(TD,I)=S$+"OPEN15,8,15,"+Q$+"I0"+Q$+":CLOSE15"+R$:REM INIT DISK
134 ZS$(TD,V)=S$+"OPEN15,8,15,"+Q$+"V0"+Q$+":CLOSE15"+R$:REM VALIDATE
136 ZS$(TD,G)=S$+"LOAD   ,8"+R$:REM LOAD FROM DIR
138 ZS$(TD,PL)=S$+"CLR:POKE43,PEEK(45):POKE44,PEEK(46):NEW"+R$:REM TEST PART
140 ZS$(TD,MI)=S$+"POKE45,PEEK(43):POKE46,PEEK(44):"
142 ZS$(TD,MI)=ZS$(TD,MI)+"POKE43,1:POKE44,8:CLR"+R$:REM BACK TO NORM
144 REM
146 REM   (BASIC PROGS ON STRINGS)
147 REM
148 REM READ ERROR CHANNEL
150 ZS$(TD,E)=S$+"8000OPEN15,8,15:INPUT#15,A,B$,C,D:PRINTA,B$,C,D"
152 ZS$(TD,E)=ZS$(TD,E)+":CLOSE15"+R$+"RUN8000"+R$+"8000"+R$
154 REM LIST DIR TO SCREEN
156 ZS$(TD,D)=S$+"8000N$=CHR$(0):OPEN15,8,0,"+Q$+"$0"+Q$+":GET#15,A$,B$"+R$
158 ZS$(TD,D)=ZS$(TD,D)+"8001GET#15,A$,B$:IFST<>0THEN8005"+R$
160 ZS$(TD,D)=ZS$(TD,D)+"8002GET#15,A$,B$:PRINTASC(A$+N$)+ASC(B$+N$)*256;"+R$
162 ZS$(TD,D)=ZS$(TD,D)+"8003GET#15,A$:IFA$="+Q$+Q$+"THENPRINT:GOTO8006"+R$
164 ZS$(TD,D)=ZS$(TD,D)+LN$+CHR$(A)
166 ZS$(ND,A)=L$+"8004PRINTA$;:GOTO8003"+R$
168 ZS$(ND,A)=ZS$(ND,A)+"8005CLOSE15:POKE198,0:END"+R$
170 ZS$(ND,A)=ZS$(ND,A)+"8006K=PEEK(203):IFK=64THEN8001"+R$
172 ZS$(ND,A)=ZS$(ND,A)+"8007IFK=62THEN8005"+R$
174 ZS$(ND,A)=ZS$(ND,A)+"8008GOTO8006"+R$+"RUN8000"+R$
176 REM DELETE BASIC LINES
178 ZS$(TD,Z)=S$+"8000"+R$+"[145]8001"+R$+"[145]8002"+R$+"[145]8003"+R$
180 ZS$(TD,Z)=ZS$(TD,Z)+"[145]8004"+R$+"[145]8005"+R$+"[145]8006"+R$+"[145]8007"+R$
182 ZS$(TD,Z)=ZS$(TD,Z)+"[145]8008"+R$+"[145]8009"+R$+"[145]8010"+R$+"[145]8011"+R$
184 REM
186 REM    (SOME BASIC KEYWORDS)
187 REM
188 ZS$(CD,A)=S$+"ASC(":ZS$(CD,C)=S$+"CHR$(":ZS$(CD,D)=S$+"DATA"
190 ZS$(CD,F)=S$+"FOR":ZS$(CD,G)=S$+"GOTO":ZS$(CD,I)=S$+"INPUT"
192 ZS$(CD,L)=S$+"LIST":ZS$(CD,M)=S$+"MID$(":ZS$(CD,N)=S$+"NEXT"
194 ZS$(CD,O)=S$+"OPEN":ZS$(CD,P)=S$+"PRINT":ZS$(CD,R)=S$+"RIGHT$("
196 ZS$(CD,S)=S$+"STR$("
198 REM
200 REM (JMP TABLE AND COMMAND LINE)
202 REM
204 ZV=40204:REM ZC=0 NO COMMAND LINE*
206 REM
208 REM   (INTERRUPT ROUTINES)
210 REM
212 ZR(ND,F5)=40192:ZR(ND,F7)=40195:REM LIST SCROLL DOWN/UP
214 ZR(SD,F5)=40198:ZR(CD,F5)=40201:REM LINE RULE ENABLE/DISABLE
216 REM
218 REM END OF DEFS