home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 27 / 64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / eingabegeraete (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  661b  |  34 lines
  1. 100 rem eingabetreiber installations
  2. 110 rem programm fuer amica paint v1.1
  3. 120 rem
  4. 130 rem weitere eingabegeraete koennen
  5. 140 rem in den data-zeilen hinzugefuegt
  6. 150 rem werden
  7. 160 :
  8. 170 da=0
  9. 180 dim e$(20),l$(20)
  10. 190 :
  11. 200 read e$(da),l$(da)
  12. 210 if e$(da)<>"@@@" then da=da+1:goto200
  13. 220 :
  14. 230 print"[147]verfuegbare eingabegeraete:"
  15. 240 :
  16. 250 for t=0 to da-1
  17. 260 printchr$(65+t);" - ";e$(t)
  18. 270 next t
  19. 280 :
  20. 290 print"gewuenschtes geraet ?"
  21. 300 :
  22. 310 get a$:if a$="" then 310
  23. 311 if asc(a$)<65 or asc(a$)>da+64 then 310
  24. 320 :
  25. 330 open 1,8,15
  26. 340 print#1,"s:a.paint inpt"
  27. 350 print#1,"c:a.paint inpt=input."+l$(asc(a$)-65)
  28. 360 close 1
  29. 370 end
  30. 380 :
  31. 390 data "joystick/tastatur","stick"
  32. 400 data "commodore maus 1351","maus"
  33. 63999 data "@@@","@@@"
  34.