start tok64 d64-CSDrrj
1 REM *** giga function keys by
2 REM *** mikael pawlo in 1989!
3 REM ***
4 REM *** the bymp of tropical duo
10 DATA 120,169,32,141,20,3,169,192
20 DATA 141,21,3,88,234,234,234,234
30 DATA 234,234,96,160,64,169,0,153
40 DATA 102,192,136,208,250,96,234,234
50 DATA 72,138,72,152,72,165,197,197
60 DATA 251,240,49,133,251,105,1,234
70 DATA 41,252,201,4,208,38,24,165
80 DATA 251,42,42,42,41,63,172,141
90 DATA 2,240,3,24,105,32,105,78
91 DATA 133,252,169,192,133,253,160,0
92 DATA 177,252,153,119,2,200,192,8
93 DATA 208,246,132,198,104,168,104
94 DATA 170,104,76,49,234,170,234
150 FOR x= 0 TO 101 : READ a: POKE49152+x,a:NEXTx
160 SYS49152:SYS49171
170 REM ** sys 49152 aktiverar rutinen
180 REM ** sys 49171 st[nger av den
190 FORx=1TO8:READ d$:l=LEN(d$)
200 IF l>8 THEN PRINTd$: PRINT"max 8 tecken f]r anv[ndas!!":END
210 FOR y= 1TOl:p=ASC(MID$(d$,y,1)):IFp=64THEN p=13
220 POKE 49245+y+8*x,p:NEXTy:NEXTx
230 PRINT"{clear}*** nu [r f1-f8 f[rdig definierade ! ***":NEW
600 REM *** skriv in de funktioner du vill ha h[r
610 REM *** max 8 stycken tecken
620 REM *** om du vill ha return efter
630 REM *** skriv : @
640 REM ***
650 DATA "run:@","load","sY64767@","poke"
660 DATA "save","new@","verify","print"
stop tok64
(bastext 1.0)