home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1984 October
/
64er_Magazin_84-10_1984_Markt__Technik_de.d64
/
funkt.tast
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
48 lines
100 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
110 [143]"(NULL) funktionstastenbelegung (NULL)
120 rem"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
130 [143]"(NULL) by m.kloss duesseldorf (NULL)
140 rem"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
150 [143]"(NULL)nn,mm:laufvariable (NULL)
160 rem"[221]q1 :readvariable [221]
170 [143]"(NULL)q2 :aenderungsvariable (NULL)
180 rem"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
190 [143]"(NULL)q1$ :loeschvariable (NULL)
200 rem"[221]q2$():befehlsfeld [221]
210 [143]"(NULL)q3$ :antwortvariable (NULL)
220 rem"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
230 [143]"(NULL) belegung der f.ftasten (NULL)
240 rem"[221] mit strings bis 9 byte [221]
250 [143]"(NULL) laenge.initialisierung (NULL)
260 rem"[221] durch run/stop restore [221]
270 [143]"/tantantantantantantantantantantantantantantantantantantantantantantantantanexp
280 print"[147]moment bitte":gosub450:print"[147]"
290 fornn=0to7:readq2$(nn):nextnn:print"[147]":q1$=" [145]"
300 printspc(5)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
310 printspc(5)" funktionstastenbelegung "
320 printspc(5)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
330 printspc(5)"jetzige belegung"
340 fornn=0to7:readq1:printspc(5)"f"q1" "q2$(nn):nextnn
350 printspc(5)"aenderungen erwuenscht (j)";:inputq3$
360 ifq3$<>"j"thenpoke58,255:end
370 print"[147]":fornn=0to7:readq1
380 printspc(3)"funktionstaste "q1" "q2$(nn):print"[145]"tab(20);
390 inputq2$(nn):iflen(q2$(nn))>9thenprint"[145]"tab(20)q1$:printtab(20);:goto390
400 nextnn
410 printspc(3)"eingaben korrekt (j)";:inputq3$:ifq3$<>"j"thenrun
420 q2=49262:fornn=0to7:formm=1tolen(q2$(nn))
430 pokeq2+mm,asc(mid$(q2$(nn),mm,1)):nextmm
440 formm=len(q2$(nn))+1to9:pokeq2+mm,0:nextmm:q2=q2+10:nextnn:poke58,255:end
450 fornn=49152to49343:readq1:pokenn,q1:nextnn:sys49152:return
460 rem * datastatements *
470 data120,169,78,141,0,3,169,192,141,1,3,169,23,141,20,3,169,192,141,21
480 data3,88,96,36,157,16,48,169,133,141,94,192,165,215,141,93,192,173,93
490 data192,205,94,192,240,12,238,94,192,173,94,192,201,141,240,20,208,236
500 data56,173,93,192,233,133,10,170,189,96,192,168,189,95,192,32,30,171
510 data76,49,234,120,169,23,141,20,3,169,192,141,21,3,88,76,139,227,10,141
520 data111,192,121,192,131,192,141,192,151,192,161,192,171,192,181,192,82
530 data85,78,0,0,0,0,0,0,0,76,73,83,84,0,0,0,0,0,0,76,79,65,68,0,0,0,0,0
540 data0,83,65,86,69,0,0,0,0,0,0,86,69,82,73,70,89,0,0,0,0,79,80,69,78,0
550 data0,0,0,0,0,67,76,79,83,69,0,0,0,0,0,67,79,78,84,0,0,0,0,0,0,0,run,list
560 dataload,save,verify,open,close,cont,1,3,5,7,2,4,6,8,1,3,5,7,2,4,6,8