home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45b.d64 / eingabegeraete (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  40 lines

  1. 100 REM EINGABETREIBER INSTALLATIONS
  2. 110 REM PROGRAMM FUER AMICA PAINT
  3. 120 REM
  4. 130 REM WEITERE EINGABEGERAETE KOENNEN
  5. 140 REM IN DEN DATA-ZEILEN HINZUGEFUEGT
  6. 150 REM WERDEN (MAX.10)
  7. 155 REM
  8. 157 REM PROGRAMM UEBERARBEITET VON
  9. 158 REM NIKOLAUS HEUSLER 200789
  10. 190 :
  11. 200 READE$(DA),L$(DA)
  12. 210 IFE$(DA)<>"@@@"THENDA=DA+1:GOTO200
  13. 220 :
  14. 222 PRINT"[147]AMICA-PAINT: INSTALLATIONSPROGRAMM
  15. 224 [153]"             FUER EINGABEGERAETE
  16. 226 PRINT"NEUE VERSION VON O.STILLER/N.HEUSLER
  17. 228 [153]"(C) MARKT & TECHNIK, SONDERHEFT 45
  18. 230 PRINT"VERFUEGBARE EINGABEGERAETE:
  19. 240 :
  20. 250 [129]T[178].[164]DA[171]1
  21. 260 [153]"  "[199](65[170]T)" - "E$(T)
  22. 270 [130]
  23. 280 :
  24. 290 [153]"GEWUENSCHTES GERAET ?                   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  25. 300 POKE198,.
  26. 310 GETA$:IFA$=""THEN310
  27. 311 IFASC(A$)<65ORASC(A$)>DA+64THEN310
  28. 320 PRINT"INSTALLATION LAEUFT. BITTE WARTEN...
  29. 330 [159]1,8,15,"I0
  30. 340 PRINT#1,"S0:A.PAINT INPT
  31. 350 [152]1,"C0:A.PAINT INPT=INPUT."[170]L$([198](A$)[171]65)
  32. 355 [161]#1,A$:[153]A$;:[139]A$[179][177][199](13)[167]355
  33. 360 [160]1:[153]"FERTIG.
  34. 380 :
  35. 390 DATAJOYSTICK/TASTATUR,STICK
  36. 400 DATACOMMODORE MAUS 1351,MAUS
  37. 410 DATAMAUS 1351 MULTISPEED,MAUS LMS
  38. 420 DATANCE-MAUS MIT ADAPTER,MAUS NCE
  39. 430 DATA@@@,@@@
  40.