home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 55 / 64er_Magazin_Sonderheft_55_19xx_Markt__Technik_de_Side_A.d64 / eingabegeraete (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.