home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8609.d64 / multi-taste (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  481b  |  19 lines
  1. 5 T=ASC("^"):REM HIER AUSWAHLTASTE EINSETZEN
  2. 6 X=6:REM ANZAHL DER FUNKTIONEN
  3. 10 PRINT"[147]DEMO-PROGRAMM FUER 'MULITFUNKTIONSTASTE'":PRINT:PRINT
  4. 20 FORZ=1TOX:PRINTZ"MAL <"CHR$(T)"> DRUECKEN = FUNKTION "Z:PRINT:NEXTZ:GOTO40
  5. 30 FORK1=1TO50:FORK2=640TO631STEP-1:POKEK2,0:NEXTK2:NEXTK1
  6. 40 GETT$:IFT$<>CHR$(T)THEN40
  7. 50 FORA=1TOX:FORK=1TO35
  8. 60 GETT$:IFT$=CHR$(T)THENNEXTA
  9. 70 IFA>XTHEN30
  10. 80 NEXTK
  11. 90 ONAGOTO1000,2000,3000,4000,5000,6000
  12. 100 :
  13. 1000 PRINT"[147]FUNKTION 1":END
  14. 2000 PRINT"[147]FUNKTION 2":END
  15. 3000 PRINT"[147]FUNKTION 3":END
  16. 4000 PRINT"[147]FUNKTION 4":END
  17. 5000 PRINT"[147]FUNKTION 5":END
  18. 6000 PRINT"[147]FUNKTION 6":END
  19.