10 DIM FF$(16)
20 RT$ = CHR$(13)
30 CL$ = "[157]" : REM CRSR LEFT
40 CR$ = "" : REM CRSR RIGHT
50 CU$ = "[145]" : REM CRSR UP
60 CD$ = "" : REM CRSR DOWN
70 :
80 :
90 FOR I = 1 TO 24:L1$=L1$+CL$:NEXT
100 L2$ = LEFT$(L1$,16)
110 REM-KEYS
120 :
130 FF$( 1)=   "FIND@"
140 :
150 FF$(2 )=   "@$" + RT$
160 :
170 FF$(3 )=   "L[201]:" + RT$
180 :
190 FF$(4 )=   "R[213]:" + RT$
200 :
210 FF$(5 )=   "RE[206]:" + RT$
220 :
230 FF$(6 )=   "A[213]"
240 :
250 FF$(7 )=   "L[193]:" + RT$
260 :
270 FF$(8 )=   "SYS_RUN,"
280 :
290 FF$(9 )=   "'---------------------" + RT$
300 :
310 FF$(10)=   "POKE"
320 :
330 FF$(11)=   "@!$8000 $AA00 BASSEM+"
340 :
350 FF$(12)=   "SYS$8320:" + RT$
360 :
370 FF$(13)=   "S[217]$8000" + RT$
380 :
390 FF$(14)=   "?PEEK(     )"+CL$+CL$+CL$+CL$+CL$+CL$
400 :
410 FF$(15)=   "X=     :?P[197](X)+256*P[197](X+1)"+L1$
420 :
430 FF$(16)=   "F[207]A=0TO10:?C[200](P[197](_       +A));:N[197]"+L2$
440 :
450 :
460 :
470 :
480 FOR R=1 TO 16:IF FF$(R)="" THEN       FF$(R)=" "
490 NEXT
500 :
510 :
520 REM-POKER
530 L=0
540 PRINT"[147]DEFINING FUNCTION KEYS. PLEASE WAIT..."
550 FOR R=1TO 16 :LC=LC+ LEN(FF$(R))
560 LC=LC+1: REM THE 0 AT THE END
570 NEXT
580 IFLC>290THENPRINT"FUNCTION KEYS DEFINITIONS ARE TOO LONG":END
590 TT = -1:FK = 32964
600 :
610 FOR R=1TO16
620 PRINT"";16-R;"[157]   "
630 :  FOR I=1 TO LEN(FF$(R))
640 :      T$=MID$(FF$(R),I):TT=TT+1
650 :      POKE FK+TT,ASC(T$)
660 :  NEXT I
670 :  TT=TT+1:POKE FK+TT,0
680 :  REM PRINTFK+TT : REM REMOVE FIRST REM TO SEE WHERE DEFS ARE GOING IN MEM
690 NEXT R
700 PRINT"DONE!"
710 PRINT"REMEMBER TO SAVE BASSEM+ TO MAKE THESE  DEFINITIONS PERMANENT"
720 PRINT"(USE : @!$8000 $AA00 BASSEM+)"