5 T=ASC("^"):REM HIER AUSWAHLTASTE EINSETZEN
6 X=6:REM ANZAHL DER FUNKTIONEN
10 PRINT"[147]DEMO-PROGRAMM FUER 'MULITFUNKTIONSTASTE'":PRINT:PRINT
20 FORZ=1TOX:PRINTZ"MAL <"CHR$(T)"> DRUECKEN = FUNKTION "Z:PRINT:NEXTZ:GOTO40
30 FORK1=1TO50:FORK2=640TO631STEP-1:POKEK2,0:NEXTK2:NEXTK1
40 GETT$:IFT$<>CHR$(T)THEN40
50 FORA=1TOX:FORK=1TO35
60 GETT$:IFT$=CHR$(T)THENNEXTA
70 IFA>XTHEN30
80 NEXTK
90 ONAGOTO1000,2000,3000,4000,5000,6000
100 :
1000 PRINT"[147]FUNKTION 1":END
2000 PRINT"[147]FUNKTION 2":END
3000 PRINT"[147]FUNKTION 3":END
4000 PRINT"[147]FUNKTION 4":END
5000 PRINT"[147]FUNKTION 5":END
6000 PRINT"[147]FUNKTION 6":END