home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27a.d64 / eingabegeraete (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.